Lbl A
1->B
Locate 1,1,"******* ****** ******"
Locate 1,2,"****** **** ******"
Locate 1,3,"***** *10* *****"
Locate 1,4,"*** 3 *** ***"
Locate 1,5,"** * *"
Locate 1,6," * 6 *"
Locate 1,7,"@ *** **"
List 1[5]>=3=>Locate 7,4,"@"
List 1[5]>=6=>Locate 16,5,"@"
List 1[5]>=10=>Locate 11,3,"*@"
Lbl 0
If D=1
Then 0->D
List 1[1]->H
IfEnd
If B=1
Then Locate 1,6,"\/"
Locate 7,3," "
Locate 16,5," "
Locate 12,4,"*"
IfEnd
If B=2 And List 1[5]>=3
Then Locate 7,3,"\/"
Locate 1,6," "
Locate 16,5," "
Locate 12,4,"*"
IfEnd
If B=3 And List 1[5]>=6
Then Locate 16,5,"\/"
Locate 1,6," "
Locate 7,3," "
Locate 12,4,"*"
IfEnd
If B=4 And List 1[5]>=10
Then Locate 12,4,"^"
Locate 1,6," "
Locate 7,3," "
Locate 16,5,"*"
IfEnd
Getkey=27 And B=1 And List1[5]>=3=>B+1->B
Getkey=27 And B=2 And List1[5]>=6=>B+1->B
Getkey=27 And B=3 And List1[5]>=10=>B+1->B
Getkey=27 And B=4>=3=>B+1->B
Getkey=38 And B=1 And List 1[5]>=10=>B-1->B
Getkey=38 And B>2=>B-1->B
B>4=>1->B
B<1=>4->B
Getkey=31 And B=1=>Goto 1
Getkey=31 And B=2 And List1[5]>=3=>Goto 2
Getkey=31 And B=3 And List1[5]>=6=>Goto 3
Getkey=31 And B=4 And List1[5]>=10=>Goto 4
Getkey=78=>Goto 5
Goto 0
Lbl 1
Prog "RPGL1"
Goto A
Lbl 2
Prog "RPGL2"
Goto A
Lbl 3
Prog "RPGL3"
Goto A
Lbl 4
Prog "RPGB1"
Goto A
Lbl 5
Prog "RPGMENU"
D=1=>Return
Goto A