27 lines
No EOL
443 B
Text
27 lines
No EOL
443 B
Text
Filename:7-CARD
|
|
If X>=21 Or Y>21
|
|
Then Return
|
|
IfEnd
|
|
Int (Ran#*13)+1->S
|
|
X+S->X
|
|
Mat B[1,4]+1->Mat B[1,4]
|
|
If Not (X>21) And Not (Y>18)
|
|
Then Int (Ran#*13)+1->T
|
|
Y+T->Y
|
|
Mat B[1,4]+1->Mat B[1,4]
|
|
IfEnd
|
|
Locate 2,2," "
|
|
Locate 7,2," "
|
|
Locate 13,2," "
|
|
Locate 18,2," "
|
|
Locate 2,2,X
|
|
Locate 7,2,S
|
|
Locate 13,2,T
|
|
Locate 18,2,Y
|
|
Mat B[1,4]->C
|
|
Locate 11,5,C
|
|
Locate 1,7,"LOADING..."
|
|
0.2->L
|
|
Prog "S-TIMER"
|
|
Locate 1,7," "
|
|
Return |