old-casio-programs/SINK-NG.txt
2016-02-19 07:58:34 +02:00

34 lines
No EOL
451 B
Text

Filename:SINK-NG
Lbl 9
ClrText
"How many boats?"
?->Mat H[1,43]
If Mat H[1,43]>125
Then "Too many boats, dork!"[DISP]
Goto 9
IfEnd
If Mat H[1,43]<1
Then "What're you tryin' topull?"[DISP]
Goto 9
IfEnd
ClrText
"Please wait while loading game..."
"Clearing matrix..."
0->X
1->Y
0->L
Do
X+1->X
If X=43
Then 1->X
Y+1->Y
IfEnd
If Y>6
Then Break
IfEnd
0->Mat H[Y,X]
LpWhile L=0
"Starting up..."
0->N
Prog "SINK-GC"
Return