Scuba 205
1180 PEN 3:PRINT:PRINT"There is a maxim um of 3 fish and 3 sharkin the sea at an y one time. Fish may suddenly change course or speed if they become scared.": PEN 1
1190 PRINT: PRINT"You have 180 units of air in your tanks when you enter the wat er. You may returnto the raft as often a s you like for air"
1200 PEN 3:PRINT:PRINT TAB(11); CHR$(24) ;"PRESS ANY KEY TO START";CHR$(24);:PEN 1
1210 IF INKEY$<>" THEN 1210
1220 0=RND: IF INKEY$=" THEN 1220 1230 CLS:RETURN
1240 REM
1250 FOR 3=0 TO 3:LOCATE 1,J+1:PEN 2:PRI NT STRING$(32,143);:PEN 1
1260 NEXT J
1270 LOCATE 21,5:PEN 2:PRINT STRING$(6,1 43);:PEN 1
1280 A$="
1290 LOCATE 1,19:PEN 1:FOR X =1 TO LEN(A $):IF MID$(A$,X,1)=" " THEN PRINT " "; E LSE PRINT CHR$(243);
1300 NEXT X
1310 RETURN
1320 STOP
1330 REM DEFINED GRAPHICS
1340 SYMBOL AFTER 230
1350 SYMBOL 231,0,0,221,63,220,7,0,0 1360 SYMBOL 232,0,0,29,255,4,4,4,0 1370 SYMBOL 233,0,0,187,252,59,224,0,0 1380 SYMBOL 234,0,0,184,255,32,32,32,0 1390 SYMBOL 235,0,0,76,126,124,64,0,0 1400 SYMBOL 236,0,0,50,126,62,2,0,0
1410 SYMBOL 237,0,140,190,255,190,128,0,
1420 SYMBOL 238,0,140,191,254,191,128,0,
0
1430 SYMBOL 239,0,49,125,255,125,1,0,0 1440 SYMBOL 240,0,49,253,127,253,1,0,0