I? %^! 6D:\-z68@W P P P۱3v3z3-3z.z33v8zz3z6}*(>>BB<DHpHDB@~BfZBBBBbRJFBB~kB<<<<~|B~BB>BB@|B@JJ@BB@kB@@@@BZBDF@kBBB@@B@FFBBB@BkB~~~~<$<<|BBB>B~kB><<<<~@B~BB>THE YELLOW SUBMARINE< > 1986 STEVE NICHOLS<  r6:6:3::10 ,6;"THE YELLOW SUBMARINE";14,5;" 1986 STEPHEN NICHOLS" ( 800  2#900:1000:1200 d### MAIN LOOP ### n 200 s 300, x 400 }HIT=1450 END=1600X LEV=1500 SUB=1700 100d  ### MOVE ### A$=:A$="" 0.001wn,502 6A$="1"C=C-1:S$="":C<1C=C+1 7A$="2"C=C+1:S$="":C>29C=C-1 .A$="3"R=R+1:R>19R=R-1 -A$="4"R=R-1:R<4R=R+1 B(R,C)=32 ū(R,C+1)=32 R=OR:C=OC:HIT=1 B(R,C)=33!ū(R,C+1)=33!R=OR:C=OC:HIT=1 6(R,C)=34"ū(R,C+1)=34"LEV=1 *OR,OC;" ";R,C;6;S$:OR=R:OC=C  " ,### MOVE MEANIES ### @1MR19MR=MR-1 J0MR>RMR=MR-1:MR<4MR=MR+1 T1MC29MC=MC-1 ^0MC>CMC=MC-1:MC<1MC=MC+1 h#(MR,MC)=32 MR=OMR:MC=OMC m0(MR,MC)=38&MR=OMR:MC=OMC:HIT=1 |2OMR,OMC;" ";MR,MC;1;"":OMR=MR:OMC=MC   ### MOVE SEA ### ;B$=B$(2)+B$(1):2,0;1;B$    ### HIT ### 7TI=TI-1:HIT=0:TI<1SUB=1: [21,TI;0;"":0.008zn,-5:0.008zn,5:0.008zn,1   ### NEXT LEVEL ### <SC=SC+(TI*12 ):0,6;1;1;SC CN=110 :0.008zn,30:0.008zn,502:N T N=11342:(M(N))*0.03{u\,M(N+1):0.001wn,40(  =""N 'L=L+1:L>4END=1: H=H*1.5@  FN=319:N,0;" ":N "910:1220:100d X ### END ### b 4: g[19,15;1;"":N=3015-1:9 ,N;6;" " l0.08}# =,502:N qL=14 vTN=10 18:N,15;2;I$(L):0.020{# =,N:N,15;" ":N {L !19,15;2;"" QN=150-1:9 ,N;6;" ":0.08}# =,502:N  700  ### SUB END ### SC>HIHI=SC ƈ9 ,11 ;1;1;"GAME OVER":N=130:0.008zn,1:0.008zn,-10 :N Г21,0;" PRESS SPACE FOR ANOTHER GAME ":=" "910:L=1:H=10 :TI=32 :SC=0:1200:100d  720  ### MUSIC ### *9M(135):N=1134:MUSIC:M(N)=MUSIC:N > 6,11 ,4,12 ,8,14,6,14,4,11 ,6,9 ,4,11 ,12 ,7,6,11 ,4,11 ,6,9 ,4,7,10 ,4,4,4,6,11 ,4,11 C12 ,9 ,6,11 ,4,12 ,8,14,6,14,4,11 ,6,9 ,4,11 ,12 ,7,6,11 ,4,11 ,6,9 ,4,7,10 ,4,4,4,6,11 ,4,11 H12 ,9 ,6,11 ,4,12 ,8,14,6,14,4,11 ,6,9 ,4,11 ,12 ,7,6,11 ,4,11 ,6,9 ,4,7,10 ,4,4,4,6,11 ,4,11 M12 ,9 ,6,11 ,4,12 ,8,14,6,14,4,11 ,6,9 ,4,11 ,12 ,7,6,11 ,4,11 ,6,9 ,4,7,8,4,6,11 ,4,11 ,16,9 p z ### VARIABLES ###  SC=0 ]TI=32 :L=1:H=10 :I$(4,1):Z=14:N$:I$(Z)=N$:Z "","","","" ,R=4:C=28:OR=R:OC=C:S$="" 1MR=19:MC=2:OMR=MR:OMC=MC:M$="" BTIME=0:SUB=0:HIT=0:END=0:LEV=0   ### GRAPHICS ### &N="A""O"+7:DATA:N,DATA:N VN=11342:(M(N))*0.03{u\,M(N+1):0.001wn,40(:N L14,2,63?,127,234,255,127,63? N568,32 ,252,254,87W,255,254,252 K0,0,131,199,255,255,135,3  M0,0,193,227,255,255,225,192 I16,24,20,20,20,24,16,60< G0,0,72H,255,248,72H,0,0 I16,16,16,24,60<,24,60<,24 M60<,66B,153,189,189,153,66B,60< $O60<,126~,219,255,189,165,165,36$ )K24,60<,236,60<,24,60<,126~,36$ .Q255,255,255,255,255,255,195,129 3O60<,126~,255,255,255,255,126~,60< 8G42*,28,28,42*,8,42*,28,8 =Q102f,255,255,255,255,255,255,255 BM0,126~,126~,126~,126~,126~,126~,0   ### DISPLAY ### 1:4:7: 6#1;3;"  MCMLXXXVI STEPHEN NICHOLS " ^0,0;1;"@" EB$="":2,0;1;B$ !4,28;6;"" 90,0;1;1;"SCORE ";SC,"HI ";HI CN=1H:(*16)+3,(*28);0;"":N  19,2;1;"" "19,1;2;I$(L) ?20,0;3;" " TI3121,0;1;"";21,6;2;"";21,12 ;"";21,18;3;"";21,25;5;""  %*usi lh rcmmimuineat NSMB A            "" z submarine b