34 lines
451 B
Text
34 lines
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
|