Sgj16562,255:16561,120: 1000j * * * SCURVE INVADERS * * * (WRITTEN BY WAYNE G. RICHMOND) (913-7788)k * N.B. MEMORY SIZE? 32640 (FOR 16K) * * 49020 (FOR 32K) * * 65400 (FOR 48K) * (UTILISES "SOUNDOFF" PROGRAM)l * MATHS VERSION ADAPTED FROM ORIGINAL GAME SEPT. 1980 * (ALL RIGHTS RESERVED)4l500:50000: LOAD MACHINE LANGUAGE ROUTINESgl!TM(16561)1256(16562): GET TOP OF MEMORYl#50150: JUSTIFY MEM BOUNDARYl(8400l*Q$(34)l-C$(78)l2l4LA$(184)(191)(180):LS$(3,188)l:UY$:UY$"X"58l<8700 m>NU190:mAN178#mF C$(N)*mK 4mL8800=mN100GmP8400QmZN$""{md@776,"TYPE AND <> YOUR NAME";mi16192,151:16255,186mnN$mN$""100mm42000m NAME0nV900:D12:TX259:FF0:K0:T2000:SC0:Q2:FM(3):LE$(1)"NOVICE":LE$(2)"WARRIOR":LE$(3)"EXPERT"AnX:TX260:D2Mnb 8000 un@67,"SCORE = ";:"###,##";SC;n@88,"<";LE$;">";nTS(LE)0 @131,"TOP SCORE = ";:"##,###";TS(LE);:" <";TN$(LE);">";n@V,LA$; o @109,"SHOTS = ";:"###,#";FF;.o*@173,"HITS = ";:"###,#";K;:o4 20000Do2000ioN71083864:@N,(55," ");::o * NO. SENTENCE WINDOW *o@775,"";oLP(S$)((CD)):TP$(LP1,(140))?p@722,TP$;:@850,TP$;:@722,(168);:@723LP,(148);:@786,(170);:@787LP,(149);:@850,(138);:@851LP,(133);fp@789LP,"<> CORRECT DATA";lpp MATHS PROGRAMpCH(4):CH3000,3500,4000,4500pAN0:S$"":AN$""pS$(A)" "O$(B)" = ":1000:@787,S$;qAN787(S$):@AN,(((CD))," ");>qCB$:CB$""CB$","CB$"."ʑ20000:2040bq(CB$)31CB$" "ʑ20000:2040}q(CB$)8AN$"":2035q(CB$)132200:AN$AN$CB$:(AN$)((CD))AN$"":2035:@AN,AN$;:2040q(AN$)CD Z1Z1:900:5000:AN$"":2035r (ADDITION ROUTINE) r O$"+"=r LE3040,3050,3060:3100Sr A(10):B(10):or A(20)10:B(20)10:r A(50)30:B(50)30:r CDAB:r (SUBTRACTION ROUTINE)r O$"-"r LE3540,3550,3560:3600r A(5)5:B(9):BA3540:s A(10)20:B(10):2s A(60)20:B(10)10:?sCDAB:^s (MULTIPLICATION ROUTINE)isO$"X"sLE4040,4050,4060:4100sA(10):B(10):sA(20)10:B(10):sA(50)20:B(10):sCDAB:s (DIVISION ROUTINE)sO$"/"tLE4540,4560,4580:46002tB(10):CD(5):ItB(10):CD(20):ctB(10):CD(10)25:ptABCD:t * SHOOTING CYCLE *tJ$:J$" "ʑ10000t20000t(14368)166000:(14368)647000:5020upV9005020:VV3:@V3," ";:@V,LA$;:5020AuXV9535020:VV3:@V3," ";:@V,LA$;:5020[u@ * DRAW GAME FRAME *auJtuTN1536015423u^ N,135uh N960,180ur uw NAMEu|N153601625664u N,151u N63,186u u16383,186u15423,191 v16320,181v NAMEv2v * TITLE FRAME *8v Kv N1536015423Xv N,151iv N960,181pv {v NAMEv!N153601625664v ! N,151v! N63,186v ! v*!16383,186v4!15423,191 w>!@265,"* * * S C U R V E I N V A D E R S * * *";1w?!@404,"* * (WITH SOUND) * *";>>"w!N1(D$)w! @648,(D$,N);w!x! NAME x!wx!N91885064:@N,"";:8900:@N," ";::@790,"";:x`"N64890464:@N,D$;:8900:@N," ";:N776ZZ0(0):::ZZ(0):NU1200::y"NU170::y(#C(78)>y-#TX64363 TT363:TTTX64Sy2#@TT,C$(C);"!!";_y<#D1(2)eyF#qy%C(20)y&%TX64363TT363:TTTX64y0%@TT,D$(C);"!";y:%y' * FIRE ROUTINE *y'N(V63915360):N128N192ʑ60150:2000y'@V,LS$;z'ZV383V703128,z$' @Z128,(128);>z.' @Z,(191);Ez8' Rz9'@V,LA$;fz:'@Z192,(128);zz='@Z128,(128);z>'53000z@'TX64373TT373:TTTX64zA'@TT,"MISSED!!";:JK1200::@TT," ";zB'W0:10060B{G'W99: @V640,(153);(162);(128);: 9000 :KK1:@173,"HITS = ";:"###,#";K;:10060N{L'FFFF1r{V'@109,"SHOTS = ";:"###,#";FF;{`'W0 SCSC50: 20050::SCSCBO{e'20040{j'FM10092,10093,10094:10100{l'53040:{m'53050:{n'53060:$|t'@V643,(128);(128);(128);(128);(128);(128);D|y'@TT," ";M|~'K$g|'Q(2):R(2):FM(3)w|'AU010130|'R 10140,10150|'TX260:D12:|'TX314:D11:| N@237,"TIME = ";:"###,#";T;|%NT2T3}*NT0 40000:TTTW: 30000-}HNK0 @173,"HITS = ";:"###,#";K;:F}RN@67,"SCORE = ";Y}fN"###,##";SC;}kNTS(LE)0 @131,"TOP SCORE = ";:"####,#";TS(LE);:" <";TN$(LE);">";}pN}0u * MOVING TARGET *}3uFM30004,31000,32000}4u * MALE SCURVE *~5uVA2:BO400~7uD1130060S~:uAL1AL0:@TX,(180);(183);:AL1:@TX,(180);(188);m~Du@TX2,(128);(128);~IuDDDD1:DD8 30030:D1(2):DD0~NuTXTXQ:TX309 D11~Xu~lu @TX1,(128);(128);vuAL1AL0: @TX1,(187);(184);:AL1:@TX1,(188);(184);<xuDDDD1:DD8 30075:D1(2):DD0W{uTXTXQ:TX262 D12]uuy * FEMALE SCURVE *yVA2:BO500:Q2"yD1131080,yAL1AL0:@TX,(157);(156);:AL1:@TX,(157);(172);6y@TX2,(128);(128);@yDDDD1:DD831050:D1(2):DD0/JyTXTXQ:TX311D115TyOhy@TX1,(128);(128);ryAL1AL0:@TX1,(172);(174);:AL1:@TX1,(156);(174);|yDDDD1:DD831110:D1(2):DD0πyTXTXQ:TX261D12Հy} * BABY SCURVE *}Q2:VA2:BO600 }D1132080L}AL1AL0:@TX,(152);(164);:AL1:@TX,(162);(145);f}@TX2,(128);(128);(}DDDD1:DD1032050:D1(2):DD02}TXTXQ:TX311D11<}ƁP}@TX1,(128);(128);Z}AL1AL0:@TX1,(152);(164);:AL1:@TX1,(162);(145);.d}DDDD1:DD1032110:D1(2):DD0Gn}TXTXQ:TX261D12Mx}u * DRAW SCURVES FOR INSTRUCTIONS *ˆ36000Lj@398," ";:@398,LS$;̈@711,(180);(183);͂@731,(157);(156);@751,(152);(164);N1100:@398," ";:@398,LA$;)@711,(180);(188);B@731,(157);(172);[0@751,(162);(145);j:N1100:N@968,"(PRESS <> FOR GALACTIC RECORDS)";bI$:I$""35015Ãg NAME΃l35500vLE35200,35310,35320 LE$"NOVICE":LE$(LE)LE$:TW5:1LE$"WARRIOR":LE$(LE)LE$:TW4:ULE$"EXPERT":LE$(LE)LE$:TW3:o * GALACTIC RECORD *u(63,"-")˄ʊ"* * * C U R R E N T G A L A C T I C R E C O R D S * * *"ڄԊ(63,"-")ފ@256," ";23)"";50);""'@384,"1. NOVICE";@TS(1)0LE1:35700Y@512,"2. WARRIOR";rTS(2)0LE2:35700.@640,"3. EXPERT";8TS(3)0LE3:35700߅B@896,"WHICH CLASS COMMANDER ";N$;" (1, 2 OR 3)? ";LI$:I$""35660V(I$)1(I$)335660:I$"`LE(I$)-j35190et20)"COMMANDER ";TN$(LE);52);:"##,###";TS(LE): * DRAW BOXES ROUND SCURVES (INSTRUCTIONS) *X115874XHX1X113Æ XH,176ԆҌ XH20,176܌ XH40,176 XH384,131 XH404,131 XH424,131!9YHX164X132064G YH,191X" YH13,191i, YH20,191z6 YH33,191@ YH40,191J YH53,191Th@ * RESULTS *ESC4999FI0T500:FI99:ZZ(0):53030:ZZ0(0):53030:@229,"* BONUS ";:30000:200404H900:@257,(60,(128));ZJ@266,"M I S S I O N O V E R";|T@394,"NAME: COMMANDER ";N$;^@458,"SCORE: ";:"####,#";SC;c60400ɈhTS(LE)1 53010:40080^rSCTS(LE) @586,"THIS IS A NEW ";LE$;" TOP SCORE!!";:@650,"(OLD ";LE$;" TOP SCORE = ";:"####,#";TS(LE);:") (";TN$(LE);")";:53150: 40080|@650,"(";LE$;" TOP SCORE = ";:"####,#";TS(LE);:") (";TN$(LE);")";:53020: 40100ЉTS(LE)SC:TN$(LE)N$牚TS(LE)1TS(LE)0@906,"ANOTHER MISSION COMMANDER ";N$;" (Y/N)? ";5I$:I$"" 40110CFI0:AU0I$"Y" 40200 :I$"N"ʲ@906,"GOOD-BYE FOR NOW COMMANDER ";N$;"!! ";:N11000:N:80:4011035500:190Ԋ * INSTRUCTIONS *ߊ NAME$(63,"-")%.@77,"* * * I N S T R U C T I O N S * * *"48(63,"-")aG" WELCOME ON BOARD COMMANDER ";N$;"!"L"- YOUR MISSION IS TO WIPE OUT THE DREADED SCURVES!"V"- <> DATA INTO COMPUTER TO GIVE YOU CONTROL OF LASER"K`"- FIRE LASER ";LA$;" WITH <>. (AIM WITH ";(34);"<";(34);" & ";(34);">";(34);" KEYS)"e"- OVER 5,000 EARNS BONUS TIME (500) (A MISS COSTS 50 POINTS!)"j@582,"MALE":@602,"FEMALE":@622,"BABY"m@646,"SCURVE";:@666,"SCURVE";:@686,"SCURVE";0o@836,"400 POINTS":@856,"500 POINTS":@876,"600 POINTS";t35000S~I$:I$"" 42110hI$" " 42110ntOÀP:LOADER FOR MACHINE LANGUAGE ROUTINESQñ16553,255UÄ::10);(23);"*** SOUND - OFF ***"::2);"BY DICK SMITH ELECTRONICS"(Vò:::"SYSTEM 80 (1) OR TRS80 (2) ? ";SWK$: K$"" K$"1" K$"2" 50007kXÏ K$"1" 254,16YÄ::::25);"SETTING UP";ZTM(16561)(16562)256[Ñ50150Ύ_N22704:MLTM8:50093sË A$:A$"ASM"50035xÁNTM1 TM200Ë ML:ML255 N64300:50080:Ï ML0 50090: 50080Eñ N,MLMÇ:SÒ`MLTMMLuÏMLTM9MLML1ÏML0MLML65536Z1(ML256):Z2MLZ1256ÏñN,Z2:N1,Z1:NN1:׏Ï(TM8)229 ÏTM32767TMTM65536Òʈ ASM@ ˈ 50,0,15,0,0,0,0,229,219,255,230,64,238,64,15,15,15,246,1z*ˈ 95,243,58,-6,87,58,-7,254,0,194,-37,122,50,-7,42,-14ˈ34,-53,42,-3,34,-50,33,15,0,1,50,0,11,120,177,32,251>ˈ 123,238,7,203,215,211,255,95,43,124,181,32,235,58,-5,254,0)Hˈ 202,-104,61,50,-5,58,-53,130,50,-53,58,-7,103\Rˈ 122,50,-7,84,195,-49,50,-7,50,-4,50,-2,62,15\ˈ 50,-3,62,50,50,-1,251,225,201,300F15:D10:A30:B1:C0:53070:: LITTLE LASERF5:D5:A100:B2:C0:53070:: BIG LASERF15:D30:A150:B1:C0:53070:: BOMB DROP=&F200:D7:A0:B0:53070:: PONGo0F500:D10:A50:B1:C1:53070:: MALE DEATH:F600:D2:A50:B150:C1:53070:: FEM DEATHݒDF10:D200:A5:B1:C1:53070:N1300::: BABY DEATHNϓ POKE PARAMETERS AND CALL ML ROUTINEXϱTM4,ACbE(D256):DDDE256:G(F256):F1F256GTlϏC0ʱTM6,C`vϱTM5,BuϱTM2,DD:TM3,EϱTM,F1:TM1,GZZ0(0):A140:C50:53220ÓA140:C50:53220ړA125:C168:53220A140:C150:53220A105:C200:53220A111:C189:53220%ϒBϱTM,A:TM2,C:ZZ0(0):2ψ X,GOT ME,CRIPES,HEY!,OUCH,OOH ER,BLIMEY,HELP,OOPS,MOAN,GEE WHIZ,RACK OFF,RAT FINK,FINK,YOW,YOU CAD,SUGAR,WOW,I'M DONE FOR,SIZZLE,POP,AAAGH,RATS,SCUM,BASIC,SCURVY,YOU DOG,RIPPED OFF,TURKEY,I'M SCURVED OUT,COME ON FELLAS,STRIKE A LIGHTHψ STONE THE CROWS7Ј BYE FOR NOW,LOOK OUT,WATCH IT,HELLS BELLS,BUCKETS OF BLOOD,YOWEE,OH BOTHER,OH DASH IT,OH DRATS,FAREWELL WORLD,EUREKA,ZOUNDS,OH CRUEL FATE,MY MY,GO AWAY,STRIKE ONE,GOOD SHOT,HUMMPH,WHO?,BAH HUMBUG,WHO DID DAT?,MERRY XMAS,BANG,VICIOUSD Ј SAVAGEЈ GOR BLIMEY,GAD,SHOCK! HORROR,FAR OUT,STRENGTH,STRIKE ME,I'VE BEEN ZAPPED,GREASY JOE,YOU'RE ON BOY,FAIR GO,I'LL GET yA',TOP SHOT,FANTASTIC,CHEEKY,TERRIFIC,CLASSY SHOT,FLUKE,WHY ME?,UNREAL!,SPECKS,UNTOLD6` * AUTOMATIC PLAY ROUTINE *@jAU99ItI$x~N(V63915360):N128N19260050:60040I$" "ʑ10000:I$"":60000:60060I$" "ʑ60150:60100חV639TXʑ60130:60110闦20000:60000I$" "I$"":2000:2040600002000KV90160130:VV3:@V3," ";:@V,LA$;QV95460110:VV3:@V3," ";:@V,LA$;@V,LS$;ZV383V703128 @Z128,(128);Ҙ @Z,(191);ؘ(@V,LA$;2@Z128,(128); <@Z192,(128);F53000qPW99:@V639,(153);(162);(128);:9000:KK1:@173,"HITS = ";:"###,#";K;:60250}ZFFFF1dQ(2)n@109,"SHOTS = ";:"###,#";FF;xSCSCBOę20040噌FM60310,60320,60330:6034053040:53050: 53060:$@257,(60,(128));E@TT," ";_Q(2):R(2):FM(3)rR60380,60390TX260:D12:TX314:D11:JK473:SC7999LE3ʲ@JK,"<-- VERY GOOD! (TRY ";Q$;LE$(LE1);Q$;" CLASS)";:SC11999@JK2,"<-- (WOW!! WHAT A SCORE!!)";:OSC7999@JK2,"<-- (WHAT AN EXPERT!!)";:SC500LE1ʲ@JK4,"(TRY ";Q$;LE$(LE1);Q$;" CLASS!)";:SC1@JK,"(NEVER MIND, TRY AGAIN!!)";:"SC500@JK,"<-- WELL DONE!";:,