202 Scuba
210 REM INPUT
220 LOCATE X(7)+1,Y(7)+1:PRINT" ";:IF Z$ =CHR$(243) THEN LOCATE X(7)+1,Y(7)+1:PRI NT CHR$(243)
230 AIR=AIR-1
240 IF INKEY(2)=0 THEN 310
250 IF T=1 THEN AIR=190:GOTO 530
260 IF INKEY(0)=0 THEN 360
270 IF Y(7)<1 THEN 530
280 IF INKEy(1)=0 THEN 430
290 IF INKEY(8)=0 THEN 480
300 GOTO 530
310 IF T=1 AND Y(7)>4 THEN T=0
320 Y(7)=Y(7)+1: IF S=12 THEN S=11: GOTO 340
330 8=12
340 IF Y(7)>21 THEN Y(7)=2I
350 GOTO 530
360 Y(7)=Y(7)-1: IF S=12 THEN S=11: GOTO 380
370 S=12
am IF Y(7)<5 AND X(7)>20 AND X(7),(26 TH EN 410
390 IF Y(7)<5 THEN Y(7)=5
400 GOTO 530
410 X(7)=23:IF Y(7)<5 THEN T=1:1mc=3
420 GOTO 530
430 X(7)=X(7)+1:IF (8<5 AND S>2) THEN S= 11: GOTO 460
440 IF S=1 THEN S=2: GOTO 460
450 S=1
460 IF X(7)>31 THEN X(7)=31
470 GOTO 530
480 X(7)=X(7)-1:IF 8<3 THEN S=12:GOTO 51
490 IF S=3 THEN S=4:GOTO 510
500 8=3
510 IF X(7)<0 THEN X(7)=0
520 GOTO 530
530 LOCATE X(7)+1,Y(7)+1:CALL 360: KK=PEE K(367):LOCATE X(7)+1,Y(7)+1:PRINT MIDS(S $,S,1);:IF KK>234 OR KK<241 THEN 550
540 GOTO 660
550 FOR K=1 TO 6