SPLASH & 1986 H.S. SOFTWARE 0:0:7:1:49999O:23659k\,0:"":1:1:1:22,0;:"":22,0;:"" ISCREEN PPPPPPPPPPPPPPPPPPPPPPUUUUUUUUUUUUUUUUUUUUUUUUUUUוUUUUUUUUUUUUUUUUUUUUUUUUU] ] ] ] ]PPPPPPPPPPPPPPPPPPPPPP] ] ] ] ]PPPPPPPPPPPPPPPPPPPPPPUUUUUUUUUUUUUUUUUUUUUUUUUU] ] ] ] ] ]PPPPPPPPPPPPPPPPPPPPPPUUUUUUUUUUUUUUUUUUUUUUUUUU] ] ] ] ] ]PPPP? PPq`` PP ] ] ]? ] ] ]  ] ]PPPP PoPo   PP ] ] ]Ì ] ]? ]`` `  ] ]PPPP P Pq?P`?? P ] ] ] ] Ï ]` ]`  ] ]PPPP P P`??PP ] ] ] Ï ] ]` qq  ] ]`gp` ]?`g?p`<P````f`ffc`PPPPPPPPPPPPPPPPPPP`p`fpx`B ]````f`fa ] ]<|~<~|fcf~|<~><0990 `8p`?qac`c`f`f`l`|`x?>vf?p`````?p``?p``````p?````cccc```````p??p```op````p?`8000?p``p??p````p??p````p?````p? ?p````?pf`i`a`g`i`o``p??p``````````````````````````?p`````````p?``````````````````````````````````?````````aa````?````````````````````````````````````p?``acg~|~gca````````````````pyo`f```````````````p`p`x`x`l`l`f`g`c`aa``?p``````````````p?````````````?p````````````l`v?a``angca`8008p000p?````````````````````p?````````````````p9````````````````f`o`yp``p0990p``````````p98p`p8`6f` ` `  `?q```q?````oq```qo8@0008@?q```q??q``?`````00007?800000011?0000037><>7316f`f`f`f`f`f`op``````?q```q?oq```qo```?q```q?` ?0?0? ?? 0000009```11f`f`f`f`f`f`6`q;;q`0000091?8?p``o`y`x`x`y`o```p? HHPPPP ( X@@  @@@ ``P P  x00 @pp` ppppp pppp @ppppxp   @ pp@  @p ppppppp pبȨppppppp pP P PP  @x@@@@@x@ xx p 0H@@hpxxppxxpx0H@@@@xxp ` pH0@P``PH 𨨨ppxx pp p xPP pP Pxp H80``08`080`PpȨplll66666 ?h> ~`f 0f8ll8mf; 0 000 0 0~<~~ ~ 0` 80 0`0 ~~0  0 l8flxpxlf``````~cwkkccffv~nff><~60|00~:fff:```|ff|ff>ff><```|fff ,,006<8<66kkc|ffffff>lv```<`<<~ffff>fff<ckk6f<<~ 0~ 0 0 0(|T2v!~2r#~2s#~2t"ɷ~ !~2r#~2s#~2t#++w#w#:r[sz 07{02.w#:tW:z(z2t:sW:yz2s:w2t#NO/NS/NL/WE/IM/AO/OS/LP!i! !!!"{NF͞ x *{~'''2m#~2l#~<'''=2o#~2n#~2u~|((O:m:ow:m:ow:m:o:lO}o:n2v?G APPE2v VERI! !!(!8?~ ~(5/~ݾ(@5~w~ݾ(4~ݾ( 46?F x ~~(z2s{2tz2t{2s~O ~2r"[sz 0@{0;.:v(w#:tW:z(z2t:sW:yz2s:w2t#j!zT~G##~2p#~2q#N#~ &o))))) [p.A ~I(/#I(7I(~????O#~I(/O#:p<2p:p2py5ͯs:H\&.U\RR}8=g= x #:G*[͵K[JR8 :G*[͵KB0[[ q###2G*[͵KJ"Ɏ*"ss*.5"!*[͵KB">t(`t  `t}='^#V:t2w2z#:s2y#&o){@{_WV^~(Q*K\~( Ÿ(͸#H:5 0![ ~̀tw*"X>2r̀tT]>(#O 2*"Åit̀t![ [>Oa{˯t08 :A8[!u(7#_.?@%$u*p~(:###CV˺~t( 8 ~#(# ~( C#^#V++7C~# [pRXDM*pR*xR:b*VR:b*pSpx(6#6#6#~tw## +~t# *p~u###~#(*p~v(uuKpBDM+(Spvsw:U(vx\v͊w:U(vx(\v͊w÷w>2ìw͊w*Gw>$2!v~X#:T*p~G^V###~X~#(>02x>UXx>L(x>M(X>N2(w͊wTOTAL ERRORS 2*l:|8*}(w>2:U8>GO*V~-w#"V*l "l:U2U|-w}????:w0:8X!iw^V R0y0X##'d >T2͐i>x͏w>͏w>͏w> X2F#x 8 ͬw:~XHHHHȇO!w ~#foF#2~X#:(2>^X*#"xx"x-xExVxexyxxxxx BAD LABELMULTIPLE DEFINITION BAD OPCODEMULTIPLY DEFINED SYMBOLDIVISION BY ZEROFIELD OVERFLOWBRANCH OUT OF RANGE P P P 3MOnO\GWq !Ov>>BB<DHpHDB@@@@@~BfZBBBBbRJFB\:A,2:A+1,233  'S$=" " #T$=S$+S$:U$=T$+T$ (A(X()=(X/256) -B(X()=X-A(X)*256 2R(Xh)=1+(*X) 7P(2):G(4) <W(2):M(2) A(S(4,9 ):R(4,3) F PUS=1000:GES=1100L K SCS=1200:SPS=1300 P TWS=1400x:FOS=1500 U WHS=1600@:SOS=1700 ZINS=1800 _ UD1A=168:UD1B=222 d UD2A=112p:UD2B=223 i AT1A=192:AT1B=217 nAT2A=0:AT2B=60< s EL=4 T=50000P:2500 L=0EL-1:M !60608+(L*2),B(M+T) !60609+(L*2),A(M+T) T=T+M:L 236066\,AT1A 236077\,AT1B 23675{\,UD1A 23676|\,UD1B ,LOCAL VARIABLES HERE 1*C(4,2):C$(4,20) 6#N$(4,9 ):H$(64@) ;K$(20):FIN=0 @LTH=0:CT=0 EINST=3000 :CLEA=3150N :READ=3200 :CHOO=3250 :EXPL=3300 :SINK=3350 :SUBM=3400H :PLAN=3500 :BANN=3550 :BOAT=3600:CHEC=3650B J/G$="":O$=6+5+4+3 O 4000 ^"000009022031043056061074077084090093106116127139142154159169181193203210222230240245249253" "abcdgjlntagbfghjlnrstwamcdhjmryanbcfmnprtvwapbcdglmnrstyasghwaybdghjlmprswebwedbflrwegbklpesyetbgjlmnpsvwyigbdfgjprwinbdfgkpstwipdhklnprstzishitbfhklnpstwixfmsodcghmnprsotcdghjlnprtowbchlmnrstvubcdhnprstudbcdmsugbdfhjlmprtumbghmrsunbdfgnprsupcpsusbpuybg" "000006010017022028033038043048052057062066072078084088092096101106111117120124128134139144147151157161165171176183188193198203207211216221225229233239244" "bdaeiubbiobgaeioubnaiubtaeiubyaoucbaoucpaouctaoudbauddaiudgioudmaifgaioufnaeiufraiouftaifxiogniugteouhdaiohgaouhmaeiuhnehpiohsaihtaiouldaeiltieomgunpainteiounwoepdaopnaeiuppiouptaeiourbiourdeiorgaiurmaiurnaurpairtaoustaeiswaetbautgautnaeiotpaio" Xa"000009016025034044051055062070075081090097103112117122128132138145149158166175178185194201209" Y"badgnprtybibdgntbudgmnstycabdmnprtcobdgnptwydabdmpydenwfadgnrtfibgnrtxfugnrgumntyhadgmstwyhidmpstjobgtylabdgpwxymentwmudgmnabgnpnetwniblptnobdrtwnuntpadlnrtwypubgnpstragmnptwyredribdgmpsacdgptwysinprtxtabgnprx" ,"Would you like ",23,1,0 ("to see the ",17,2,0 ="instructions y/n ",26,3,1,"YyNn",5 )"Please type}",18,1,0 ("what level ",17,2,0 ;"of play (1-5)}",21,3,1,"12345",6 /"1=words in groups}",27,2,0 :"2=not in groups}",24,3,1,"12",6 *"which letter ",20,2,0 9"missing (1-3)}",21,3,1,"123",6 /"number of players}",27,2,0 1"(1-4)}",9 ,3,1,"1234",6 0"your name player 1}",28,2,0 ."then press ENTER ",26,3,0 )" ",19,4,0 3,"The game takes place at sea, with each player having a 'boat' made up of a 3 letter word with one letter missing." V6,"The player has to type a letter that wouldfit in the space to make a word." M8,"At the beginning of the game you can make the following choices :" x11 ," A) The LEVEL (1-5) - this sets the number of mistakes that will be allowed before the game ends (1=Easy)" ]15," B) Words in GROUPS : (groups of similar boats in sequence e.g. c-t, c-t, c-t)" K17," NOT IN GROUPS : (every boat different e.g. s-t, p-d, l-t)" =20," C) The position of the MISSING LETTER (1-3)" |3,"1) When the space in your boat starts to flash, type a letter that would fit in the space to make a word." i6," (Names are not allowed, and a particular word can only be used once during a game.)" Z10 ,"2) A player wins if he or she completes 4 words by the time the game ends." @13 ,"3) When the game is over , press P to play again."  4000 PUT SPRITE P(1)=60900 P(2)=58000 2000+PUR:A #A0P(2)=58010 L=02:A P(1)+L,A:L A=P(2): LGET SPRITE NG(1)=60903 PG(2)=58050 R21004+GER TL=04:A VG(1)+L,A:L XA=G(2): SCROLL SCREEN *S(OPT,1)=60901+(OPT*7) *S(OPT,2)=58195S+(OPT*5) 2200+SCR L=06:A S(OPT,1)+L,A:L A=S(OPT,2): SPRITE ROUTINES 2300+SPR:A +R(OPT,1)=60920+(OPT*16) *R(OPT,2)=58695G+(OPT*5) 'A=0R(OPT,2)=58740t *R(OPT,3)=58745y+(OPT*5)  L=07:A "R(OPT,1)+L,A:L $%L=1̾(R(OPT,1)+5) &A:R(OPT,1)+7+L,A (L:A=R(OPT,2) *A=R(OPT,3): x20CPL PRINTING zA=59000x: 42CPL PRINTING A=59200@: @WHITE NOISE BW(1)=59400 DW(2)=59400 FW(1)+11 ,B(WHR) HW(1)+12 ,A(WHR) JA=W(2): SOUND ROUTINES 2400` +SOR:A M(1)=60890 %M(2)=59400+(A*502) A:M(1),A L=03:A 60891+(L*2),B(A) 60892+(L*2),A(A) L:A=M(2)   !A$="_ ":P7=0:1816   ""1804   B$=:B$=""1806 f.1}L,25:P8=B$:P8P4P8P5P7P3P7=P7+1:A$=A$(̱A$-2)+B$+"_ ":1816 <P8=12 P7P7=P7-1:A$=A$(P7)+"_ ":1816 P813 1804   A$=A$(̱A$-2): $Q$=P1+P2+P6+A$:TWS:1804  PUT SPRITE DATA 4GET SPRITE DATA 5+1,20,0,2,32 6+2,20,0,2,32 7+3,20,0,2,32 8+4,20,0,2,32 9+1,16,0,2,32 :*1,12 ,0,2,9 ;+1,12 ,0,2,32 SCROLL SCREEN DATA >9 ,0,10 ,7,130,16,15 ?9 ,8,10 ,15,130,16,15 @9 ,16,10 ,23,130,16,15 @9 ,24,10 ,31,130,16,15 ;12 ,2,23,6,0,1,1 =12 ,10 ,23,14,0,1,1 =12 ,18,23,22,0,1,1 =12 ,26,23,30,0,1,1 :9 ,0,10 ,7,0,1,2 <9 ,0,10 ,15,4,64@,2 <9 ,0,10 ,23,4,64@,2 <9 ,0,10 ,31,4,64@,2 :0,0,3,31,0,1,1 :2,0,10 ,0,0,2,1 :0,0,1,31,0,1,1 SPRITE ROUTINE DATA W0,0,223,255,4,223,1,1,1,1 S0,0,0,31,16,0,1,1,1,1 a0,129,250,33!,12 ,250,2,1,1,7,8 `0,129,244,1,12 ,244,2,1,1,5,6 V0,0,247,0,9 ,247,1,1,20,1 W0,1,223,255,2,223,1,1,2,1 W0,1,223,255,5,223,1,1,2,1 `SOUND ROUTINE DATA a61,1,40(,200,10 ,40( b53,1,502,502,5,340T c81,1,1000,4,10 ,21004 d62,1,400,100d,15,0 SPRITE DATA $0,98b,98b,66B 900 1::F=7 H3,0;4;U$;U$;11 ,0;6;U$;U$;S$;T$ ;0,0;5;S$;1,0;7;S$ 1Q$=0+8+0+"SPLASHDOWN":TWS .L=1F:A,Q$:Q$=A+0+Q$:FOS:L Z#0;1,0;1;1;7;" PRESS THE ENTER KEY TO CONTINUE"; 13 3030 .2~L,20: B=9990: H3,0;4;U$;U$;U$:F=4:B=999:3012 NRT=1 POPT=1:SCR=15:SCS:S(1,1)+4,132:S(1,1)+5,255:A=S(1,2): LEVELLTH=0 %LTH0C$(NUM)=K$:3206 5CHOO:LTH=C$(NUM,20):K$=C$(NUM):3206 7P$=C$(NUM,1819):LTH=LTH-1:BOAT: 400+WPS*100d A$,B$ X=R((A$/3)-1) H$(X)="1"3254 H$(X)="1":A$=B$(A$(X*3-2X*3)+1̰A$((1+X)*3-2(1+X)*3)):A=A$:C$(NUM,17)=A$(3A):C$(NUM,1819)=A$(2):C$(NUM,20)=(A-2): 23675{\,UD2A:23676|\,UD2B:1;9 ,8*(NUM-1);"";10 ,8*(NUM-1);"";1;9 ,8*(NUM-1);"";10 ,8*(NUM-1);""; WHR=2500 :WHS:254,O$(NUM):1;0;9 ,8*(NUM-1);" ";10 ,8*(NUM-1);" ";:SCR=NUM:OPT=1:SCS:23675{\,UD1A:23676|\,UD1B: OPT=1:SCR=4+NUM:SCS:S(1,1)+2,13 +((6-C(NUM,1))*2):S(1,1)+4,2:S(1,1)+5,((6-C(NUM,1))*16):A=S(1,2): HOPT=1:SPR=3:SPS:OPT=2:SPR=4:SPS:SOR=1:SOS:R(2,1)+2,((NUM-1)*8)+1 JkL=180P:A=R(1,3):A=R(2,3):L/15=(L/15)A=M(2) LL:OPT=1:SCR=4+NUM:SCS:S(1,1)+2,15:S(1,1)+4,2:S(1,1)+5,16:S(1,1)+6,8:A=S(1,2) NA=130:1:A:S(1,1),14:S(1,1)+2,23:S(1,1)+5,80P:A=S(1,2) PHA=1421:1;1;A,(NUM-1)*8;" ":A RlA=01:#0;1;1;8;8;8;A,(NUM-1)*8;" ":A: OPT=1:SCR=13 :SCS:S(1,1)+4,132:S(1,1)+5,((WPS+1)*16)+(64@*(NUM-1))-14:A=S(1,2) SCR=14:SCS:S(1,1)+1,(8*(NUM-1))+(WPS*2)+1:S(1,1)+3,1+(S(1,1)+1):S(1,1)+4,130 OSOR=2:SOS:L=128:A=S(1,2):A=M(2):L W5:EXPL:Q$=12 +(((NUM-1)*8)+2)+0+P$:TWS:SINK SCR=15:SCS:S(1,1)+4,132:S(1,1)+5,((5-NUM)*64@)-1:A=S(1,2): $A,B;"";A+1,B;"";: Y12 ,0;1;T$;12 ,1;"";13 ,1;"" 3604+WPS P$="&"+P$:3608 ,P$=P$(1)+"&"+P$(2):3608  P$=P$+"&" I12 ,(WPS*2)+2;" ";13 ,(WPS*2)+2;" " EL=13:Q$=12 +(L*2)+3+P$(L):TWS:L A=G(2):R(1,1),1:R(1,1)+2,((NUM-1)*8)-1:R(1,1)+4,247:A=R(1,3) !12 ,0;7;T$: B7B=1̯C$(NUM,20):M$=C$(NUM,B)3656H DB F5C(NUM,2)=C(NUM,2)+1:RT=0: HP$=C$(NUM,1819) J3660L+WPS LP$=M$+P$:3664P M+P$=P$(1)+M$+P$(2):3664P N P$=P$+M$ P7A=1̱G$3:P$=G$(AA+2)3654F RA TLC(NUM,1)=C(NUM,1)+1:G$=G$+P$:RT=1:NUM=1 V2A=NUM2-1:C$(A)=C$(A-1):A: PROGRAM STARTS HERE N0:0:0:1::6;2,0;U$;U$;U$;U$; 1GER=1:GES:OPT=1:SPR=1:SPS E=115:700+E:20,0;T$;:Q$:Q$=20+1+2+Q$:TWS:B,GER,C:A=20:BANN yC0B$,D:GES:R(1,1),1:R(1,1)+2,255:R(1,1)+3,GER*4:R(1,1)+4,255-(B+3):R(1,1)+8,GER:E=15R(1,1)+2,0:4070 GES:R(1,1),1:R(1,1)+2,255:R(1,1)+3,GER*4:R(1,1)+4,255-(B+3):R(1,1)+8,GER:E=15R(1,1)+2,0:4070 .A=R(1,3):C=04070 A$=:A$=""4030 (A=1̱B$:A$B$(A)A:4030 .2~L,20:F=A:B=D7:R(1,1),1:R(1,1)+2,31:R(1,1)+3,(B-4)*4:R(1,1)+4,255:R(1,1)+8,B-4:A=R(1,2):A=R(1,3):B QE=3F<3INST::2,0;6;U$;U$;U$;U$;:4070 E=6ERR=5-F E=8LEVEL=F-1 E=10 WPS=F-1 E=12 NOPLAY=F E kP1=16:P2=2:P3=9 :P4=32 :P5=122z:P6=2:OPT=2:SPR=2:SPS E=1NOPLAY:23658j\,0:Q$=8+25+3+(E):TWS:R(1,1),1:R(1,1)+4,225:A=R(1,2):A=R(1,3) INS:N$(E)=A$:R(2,1),1:R(2,1)+4,0:GER=5:GES:A=R(2,2):A=R(2,3):E 8:8:2: A$=16+1+" "+17+1+16+7+" ":B$=17+6+A$+17+5+A$+17+4+A$+17+3+A$ j0;7;T$;2;7;S$;U$;U$;;7;1;"";T$ FL=18:B$;:L:#0;0,0;1;B$;B$; L=17:14+L,0;N$(1,L);14+L,8;N$(2,L);14+L,16;N$(3,L);14+L,24;N$(4,L);:L L=01:#0;8;8;8;L,0;N$(1,L+8);L,8;N$(2,L+8);L,16;N$(3,L+8);L,24;N$(4,L+8):L 1GER=6:GES:OPT=1:SPR=5:SPS +M=NOPLAY1-1:NUM=M:READ:M #M=1NOPLAY:NUM=M:O$(NUM) 0,0;"";1,0;"";9 ,((NUM-1)*8)+(WPS*2)+1;1;7;" ";10 ,((NUM-1)*8)+(WPS*2)+1;" " 23658j\,0 M$=:M$=""5055 #M$>"@"M$<"["M$=(32 +M$) M$<"a"M$>"z"5050 ΃9 ,((NUM-1)*8)+(WPS*2)+1;7;" ";10 ,((NUM-1)*8)+(WPS*2)+1;" " 0CHEC:RT1SOR=3:SOS:5090 ؄Q$=2+1+2+M$:TWS:1;2,0;" ";3,0;" ":SOR=4:SOS:PLAN:OPT=1 3MNOPLAYSCR=NUM+8:SCS:NUM=1:READ M:CT=CT+1 M=1NOPLAY ^C(M,1)=4CLEA:2:12 ,0;0;T$:NUM=M:SUBM:FIN=1 M  FINCT4+ERR5125 5RT0SCR=NUM+8:SCS:NUM=1:READ  5040 aCLEA:2:12 ,0;1 ;T$:Q$=12 +1+2+"Game over}":TWS  OA=12 :B=15:BANN:OPT=1:GER=7:GES:SPR=6:SPS mQ$=12 +1+2+"Press P to play}":TWS:A=12 :B=24:BANN:GES:SPR=7:SPS "P"Ʀ"p"5140 0:0:: TCLEA:2:12 ,0;0;T$:NUM=M:SUBM:FIN=1:5105 H