4 REM P24 4:gauche, 6:droite, 2:plus court, 8: plus long, 5:feu
5 CLS:BEEP: BEEP: BEEP 1:BEEP
10 DEF CHR$(252)="12180C0602":DEF CHR$(253)="02060C1812":DEF CHR$(254)="0200020002":DEF CHR$(255)="0000303000"
20 PRINT TAB(4);"Pearl Harbor                üáóó__á__ýþþþþþþþþþþþþþþþþþþüàòý"+CHR$(2)
30 LOCATE 1,0:PRINT "2              ;
40 sm=0:c=3:X=6:T=2:A=0:a=0:H=0:h=0:s=0:b=-1
50 DIM s(3,2):s(0,0)=16:s(0,1)=1:s(1,0)=24:s(1,1)=1:s(2,0)=21:s(2,1)=1
60 DIM T$(2):t$="                           ":T$(0)=".¥¥¥¥.":T$(1)=".¥¥ÿÿÿÿÿÿ¥¥.":T$(2)="..¥¥¥››››››››››¥¥¥.."
100 GOSUB 400
140 R=INT(RAN#*8):s=-(s=0)
150 FOR z=s TO s+1
160 s(z,0)=s(z,0)+(R<5)-(R>4)
170 s(z,0)=s(z,0)+(s(z,0)=27)
180 IF s(z,0)=10 THEN GOSUB 700
190 LOCATE s(z,0)-1,1
200 IF s(z,1)=1 THEN PRINT "þ­þ";: GOTO 220
210 PRINT "þÕþ";
220 NEXT z
230 IF sm<2 AND h=0 GOTO 300
240 b=b-1:IF b=-2 GOTO 300
250 IF a=0 THEN U=s(z-1+(R>4),0):a=2+(U<16)-(U>22):b=a+1:d=1:IF R=0 AND h<6 THEN U=29
260 IF b=-1 GOTO 800
270 LOCATE U-1-d*(a+1),0:PRINT MID$(T$(a-1),1+b*(a+1),a+1);
280 d=d+1
300 GOSUB 400
305 IF A=0 GOTO 100
310 IF B=-1 GOTO 850
320 LOCATE Y+1+D,0:PRINT MID$(T$(A-1),D+1,A+2);
330 D=D+A+2:B=B-1: GOTO 100
400 K=ASC(INKEY$)-48
430 ON K GOSUB ,500,,550,600,550,,500
440 RETURN
500 T=T+(K=2)-(K=8)
510 T=T+(T=4)-(T=0)
520 LOCATE 0,0:PRINT T;:RETURN
550 X=X+(K=4)-(K=6)
560 X=X+(X=9)-(X=3)
570 LOCATE X+(K=6),1:IF K=6 THEN PRINT "_á";:RETURN
580 PRINT "á_";:RETURN
600 IF A>0 THEN RETURN
610 A=T:Y=X:B=T:D=0:RETURN
700 c=c-1:sm=sm+1:LOCATE 9,1
710 BEEP: PRINT "ÅŠþ";:BEEP
720 IF c=0 GOTO 999
730 LOCATE 3-c,1:PRINT "_";
740 s(z,0)=25:s(z,1)=2:RETURN
800 F=U-1-(a+2)*(a+1)
810 E=F-a-1:a=0: GOTO 900
850 E=Y+(A+2)*(A+1)
860 F=E+1+A:A=0
900 FOR r=0 TO 2
910 IF s(r,0)>E AND s(r,0)<F THEN LOCATE s(r,0),1:PRINT "Š";:s(r,1)=s(r,1)-1:IF s(r,1)=0 THEN sm=sm+1:s(r,0)=24:s(r,1)=2:LOCATE 29,0:BEEP 1:IF sm=20 THEN 1000 ELSE PRINT STR$(sm);
920 NEXT r
930 IF E<3 AND F>3 THEN H=H+1:LOCATE 3,1:BEEP: ON H GOSUB 970,972,974,976,978,980
940 IF E<30 AND F>30 THEN h=h+1:LOCATE 30,1:BEEP 1: ON h GOSUB 970,972,974,976,978,980
950 IF E<X AND F>X THEN c=c-1:LOCATE 3-c,1:BEEP: BEEP: IF c=0 THEN 999 ELSE PRINT "_";
960 LOCATE 2,0:PRINT t$;: GOTO 300
970 PRINT "Œ";:RETURN
972 PRINT "û";:RETURN
974 PRINT "¡";:RETURN
976 PRINT ".";:RETURN
978 PRINT "Š";:RETURN
980 IF H=6 THEN c=c-1:IF c>0 THEN H=0:LOCATE 2,1:PRINT "_ó";:RETURN
990 LOCATE 1+23*(h=6)*(H<6),1:PRINT "þŠŠŠŠŠŠþ";:IF c=0 GOTO 1000
995 IF h>5 THEN RETURN
999 LOCATE X,1:PRINT "ù";
1000 BEEP 1:BEEP 1:BEEP: LOCATE 0,0:PRINT c"á,";sm"Õ";-(h>5)"üàòý score";2+80*c+27*sm-9*h*(h<6)-95*(h>5)+12*(H>5);"pts "
1010 GOTO 5