|
|
|
|
Basketball |
|
|
(c) Copyright Geert Jansen, 1999
geert_jansen84@hotmail.com Program: Basketball Size: small Models: all Author: Geert Jansen Description: Basketball - try press forward when the ball is in the middle! |
|
|
0->A~B
8->C 6->D Locate 1,1,"BASKETBALL" Locate 1,3,"YOU VS PC" Locate 1,4,A Locate 3,4,"-" Locate 5,4,B Locate 7,D,"[7spaces]" Locate C,D,"*" Lbl 1 Getkey->Z If Z Then Z=28=>Goto 3 IfEnd Locate C,D," " C+1->C If C=13 Then Locate 13,D,"*" Locate 13,D," " Locate 14,D,"*" 14->C Goto 2 IfEnd Locate C,D,"*" Goto 1 Lbl 2 Getkey->Z If Z Then Z=28=>Goto 3 IfEnd Locate C,D," " C-1->C If C=9 Then Locate 9,D,"*" Locate 9,D," " Locate 8,D,"*" 8->C Goto 1 IfEnd Locate C,D,"*" Goto 2 Lbl 3 If C=11 Then A+1->A Else B+1->B IfEnd Locate 1,4,A Locate 3,4,"-" Locate 5,4,B A+10=>Goto 4 B=10=>Goto 5 Locate C,D," " 8->C Locate C,D,"*" Goto 1 Lbl 4 ClrText "YOU WIN" Goto 6 Lbl 5 ClrText "YOU LOSE" Goto 6 Lbl 6 Stop |
|
|
|
|
|
|
|