T11NPAT21NPA= PS(T1)PS(T2)PS(T1)PS(W)WT1 AHT2,T1AX IN$(W);"!"A*" "IN$(W)" WILL NOW PLAY THE BONUS ROUND!"A41650A>R(50):PZ$PZ$(R):CA$CA$(R):PZ$""2110AHP$PZ$:PZ$(R)""AR1690BN\@128,"";: "TYPE 5 CONSONANTS SEPARATED BY COMMAS AND PRESS ENTER";C$(1),C$(2),C$(3),C$(4),C$(5)Btf"TYPE ONE VOWEL AND ENTER";C$(6)BpT15:C$(T)"A"C$(T)"E"C$(T)"I"C$(T)"O"C$(T)"U"@128,(128," "):2140::TBzT1LBC16CL$(T)C$(C)@32T2,C$(C);CC,TCU@392,"YOU NOW HAVE 60 SECONDS IN WHICH TO TYPE YOUR ANSWER":T0CuA$: A$""2290:2230CA$(8)A$;:TT1:AN$(AN$,T):2230Cʇ@288T,A$;:AN$AN$A$:TT1CԅT(P$)2230Cށ1550DE:AN$P$T811:T:25,1:T:@161,"THAT'S RIGHT!!":1550:PS(W)PS(W)1000:2310:2295DcTSTS1:TS15602300::D TS1560 :"SORRY, THE PUZZLE WAS ": P$: 1650:2310D:"SORRY, TIME IS UP!":"THE PUZZLE WAS:":P$:1650EX :Z0:"FINAL SCORES-":T1NP:IN$(T)"-"PS(T): T:::"PLAY ANOTHER ROUND?";AA$:(AA$,1)"Y"1590:BR0:550:F'  WAR OF THE WORLDS,title,JOHN GLENN,name,HO CHI MINH CITY,place,ABBEY ROAD,title,RICHARD MILLHOUSE NIXON,name,RICHARD BURTON,name,BOTSWANA,place,SUWANEE RIVER,place,NOVA SCOTIA,place,CLAUDE PEPPER,nameG  BENJAMIN FRANKLIN,name,FOURTH OF JULY,event,TAJ MAHAL,place,VIDEO MONITOR,thing,MICROCOMPUTER,thing,OVER THE HILL,phrase,SYLVESTER STALLONE,name,COUNTY FAIR,event,MUHAMMED ALI,name,SOMEWHERE OVER THE RAINBOW,titleG $ FRANKLIN DELANO ROOSEVELT,name,TOO HOT TO HANDLE,phrase,DRUNK AS A SKUNK,phrase,ISAAC ASIMOV,name,ONE TANDY CENTER,place,CARRY A TORCH,phrase,LINDA RONSTADT,name,MASSACHUSETTS,place,WATERMELON SEED,thing,STANLEY STEAMER,thingH . MASTERPIECE THEATER,title,SALT OF THE EARTH,phrase,INDIRA GHANDI,person,HARRY BELAFONTE,person,WEDDING RECEPTION,event,THE LORD OF THE RINGS,title,TABLE FOR TWO,phrase,ONE FOR THE ROAD,phrase,THE WINDS OF WAR,title,ALAN ALDA,personI 8 JOHN LENNON,person,THE DICK VAN DYKE SHOW,title,MILLARD FILLMORE,person,NANCY REAGAN,person,SHERMAN TANK,thing,KENTUCKY DERBY,event,COCOCASSETTE MAGAZINE,thing,WINSTON CHURCHILL,person,BOWLING BALL,thing,THE UNTOUCHABLES,titletle,ALAN ALDA,personI 8 JOHN LENNON,person,THE DICK VANf>T&D SOFTWARE RAM TEST UTILITY COPYRIGHT (C) T&D SOFTWARE 1983RAM OKBAD BYTE AT *>>>& ׆ >Ҏ>ӎ>>Ս,t?' @>Ӟt>Ս}>&>>& 9>Ӧ&X]&0>&944>Ŧo>&>>>>>5'+|> '+|> d+|> d +|> >4>צ0>& >55|46o569`&9> ׆ >Ҏ>ӎ>>Ս,t?' @>Ӟt>Ս}>&>>& 9>Ӧ&X]&0>&944>Ŧo>&>>>>>5'+|> R A";/&" BONUS OF 1000 POINTS./1ꁦ1650/Q"HOW MANY PLAYERS(1-4)";NP/ZPL1/fT1NP/"TWO INITIALS FOR PLAYER";T;:IN$(T)/T/&LN0:NR0:1660/0PZ(50)/:PZ$(PZ)""560/DPZ$PZ$(PZ):CA$CA$(PZ)0NP$PZ$:PZ$(PZ)""0 X16900b19400!l 6200WvOO$"BR7BU10D7F3R4E3U7H3L4G3BR14D7F3R4E3U7H3L4G3"0N$(1)"C3XP1$;NR3NL3U13L1G2XP1$;XOO$;"0N$(2)"C4XP2$;NR3L4U3E3R2E2U3H2L3G2XP2$;XOO$;"0N$(3)"C3XP3$;L2H2XP3$;R1E2U2H2NL2E2U3H2L3G2XP3$;XOO$;"1'N$(4)"C4XP4$;L2H2U1D1F2R3E2U3H2L5U6R7XP4$;XOO$;"1ON$(5)"C3XP5$;U7E3U3L9D2XP5$;XOO$;"1N$(6)"C4XP6$;NR3NL3U13L1G2XP6$;XOO$;BR14D7F3R4E3U7H3L4G3"1N$(7)"C1XP7$;BR15NR2L4U13R6F1D3G2NL4F2D4G1BR6U13R6F1D3G1L2NL3D1F3D4"2N$(8)"C4XP8$;BR2U6NU7NR2L6U7XP8$;XOO$;"2 А2 DP$(1)"BM44,81"25DP$(2)"BM80,39"2KDP$(3)"BM136,39"2aDP$(4)"BM168,81"2xDP$(5)"BM168,123"2 DP$(6)"BM136,175"2DP$(7)"BM80,175"2 DP$(8)"BM44,123"2*2422>1,03HWH$:AR$:(128,96),100:TR(8):RN(8):PARNTR:PA8PAPA83!RP1833\P$(P)DP$(RN)3MfRNRN1:RN8RNRN83TpP3zP1$P$(1):P2$P$(2):P3$P$(3):P4$P$(4):P5$P$(5):P6$P$(6):P7$P$(7):P8$P$(8)3P183N$(P)3P3TD1TR 2:WH$:AR$:(128,96),100325,14$TDTD1:TDTR RNRN1:RN8RNRN845TDTR 8504KʅPA4S10:S2004_ԀT110:S,1:T4jޅF04TD0:PA 1010,1020,1030,1040,1050,1060,1070,10804AM200:10904AM100:10904AM400:10904SC(PL)0:10904AM1000:10905$AM700:10905#.AM500:1090558AM300:10905@B15505uLPA4@161,"YOU ARE BANKRUPT!";:1550:1560:5V@161,"WHICH LETTER DO YOU CHOOSE?";5`A$:A$""11205e(A$)65(A$)9011205jLA(A$)646-tA$(LA)""1900:@161,"THAT LETTER HAS BEEN CHOSEN!";:1550:15606;~A$(LA)""6F19006A$"A"A$"E"A$"I"A$"O"A$"U"@161,"THAT'S A VOWEL! ";:1550:15606(A$)65(A$)901120616306T1L7A$L$(T)@32T2,L$(T);:CF1:NRNR1:SC(PL)SC(PL)AM7ċT7[΅NRLN 1900:@161,"NOTHING BUT VOWELS LEFT!";:1550:12907f؁18007CF0@161,"SORRY. "A$" IS NOT IN THE PUZZLE";:1550:15607CF07610719007 @161,"TYPE YOUR GUESS AND ENTER.";8@193,"";:G$:@223,(191);8G$P$ZP1:T811:T:190,1:T:@161,"THAT'S RIGHT! YOU HAVE EARNED "SC(PL)"POINTS!":@161,"SORRY. THAT'S NOT CORRECT.";:1550:1900:15608(PS(PL)PS(PL)SC(PL)82T1480օL$(NT)" "L$(NT)(128)@32NT2,(CR);:NLNL1:@32NT2,(RC);>8NT>PBR0@64,(191);>^@97,CA$;>jBR1>|T12938532>@T,(30," ");>T>&@215,IN$(1)SC(1);: NP1@247,IN$(2)SC(2);>0NP2@279,IN$(3)SC(3);?:NP4@311,IN$(4)SC(4);?D?NT1611?uX(PZ$,T,1)" "Z1$(PZ$,T1):Z2$(PZ$,T,LT2):PZ$Z1$(16T,128)Z2$:L(PZ$):?|bT?lT12938532:@T,(30," ");:T:@)1800:@129,IN$(PL)"'S TURN";:@193,"1. BUY A VOWEL";:@225,"2. GUESS THE PUZZLE";:@257,"3. SPIN THE WHEEL";:@289,"1,2 OR 3?";@QA$:A$"1"A$"2"A$"3"1990@\Ё1900@A(A$):A3LNNR @161,"NOTHING BUT VOWELS LEFT!";:1550:1940: A 1430,1280,820@䁥610@BR1:: @161," THE WINNER AFTER THREE ROUNDSIS ";A0)126 (65280)254 9208%9608EEE5:(0,0)(255,128),SS,G8(0,127)(128,64),:(255,127)(128,64),:"V31T100L200O2ADCO1AC":(0,127)(128,64),:(255,127)(128,64),8 64AY3D 64AY0 128AX4D 128AX0 AF1 11209(0,0)(255,128),SS,9GC9(ʅAF1 10209>ԅGM(SX,SY)110709V(200)L25:0:AX20(150):AY30(80):D1:AF1:1000:10209(AX20,AY)(AX30,AY20),S,G9"BM"(AX)","(AY)"S"(D)"R4F4D4F8NL28H8G4L4H4NG8U4E4"::(AX20,AY)(AX30,AY20),S,:ZV D5 DD1:AXAX2:AYAY2:0:AX20 AY100 AF0:540:m(3)3 1070:AXAX3(5):AYAY3(5):AX20 AX224 AY0 AY107 AF0:540:$1000:.AF01110:(2L)11110;98(0,0)(255,128),SS,G:(AX2D,AY4D)(85,127),:(AX2D,AY4D)(170,127),;BI05:16200:"T200L200O5V31ADEFGDEF":16200::(0,0)(255,128),SS,;LEE(20(30));V540;`I2302:(AX,AY),I,1:(AX,AY),I,0:"V31T100L100O3AD"::1,0;jTATA1:TA01170<tGM(SX,SY)GM(SX,SY)1<5~TA5(TA5) L1 LL1TA1000:1550)H820)UTD0:F1)h"TA1000:1550)s,:0,0)6" "(34)"WHEEL OF FORTUNE"(34)" IS BASED ON THE T.V. QUIZ SHOW OF THE SAME NAME."*@" THE OBJECT OF THE GAME IS TO AMASS THE LARGEST AMOUNT OF POINTS POSSIBLE AND THEN GUESS THE PUZZLE. POINTS ARE GAINED FOR CORRECTLY GUESSING LETTERS IN THE PUZZLE. THE AMOUNT OF POINTS FOR ANY GIVEN LETTER IS DETERMINED ";*J"BY SPINNING THE WHEEL."*T1650+'^" A PLAYER HAS THREE OPTIONS ONEACH TURN:"+h" 1. THEY MAY 'BUY' A VOWEL. (IN ORDER TO GUESS A VOWEL, YOU MUST GIVE UP 250 POINTS FROM YOUR SCORE)":+|" 2. THEY MAY GUESS THE PUZZLE.(YOU MUST GUESS THE PUZZLE COR- RECTLY TO SCORE POINTS.)":,;" 3. THEY MAY SPIN THE WHEEL AND GUESS A CONSONANT.,F1650," CONSONANT VALUE IS DETERMINEDBY THE WHEEL. IF A CORRECTLY GUESSED CONSONANT APPEARS IN THEPUZZLE MORE THAN ONE TIME, THE POINTS ARE MULTIPLIED ACCORDING-LY.",1650-" IF THE WHEEL STOPS ON THE SPACE LABELLED 'B.R.'(BANKRUPT),THE PLAYER SPINNING THE WHEEL LOSES ALL POINTS GAINED DURING THAT PUZZLE."-1650.̇" AFTER THREE PUZZLES HAVE BEENPLAYED, THE PLAYER WITH THE MOST POINTS WILL MOVE ON TO THE BONUS ROUND."/և" IN THE BONUS ROUND YOU WILL BE ASKED TO SELECT 6 LETTERS, 5 CONSONANTS AND 1 VOWEL. A SPE- CIAL PUZZLE WILL THEN BE DIS- PLAYED WITH YOUR LETTERS UN- COVERED. YOU WILL THEN HAVE 60 SECONDS TO TYPE IN THE CORRECT ANSWER FO&' COPYRIGHT (C) T&D SOFTWARE 1983&: STAR-FIGHTER&H0,2:2:':("C1BM12,80NR10D10R10D10L10 BM+25,0U20NL6R5 BM+10,0ND20R10D10NL10D10 BM+10,0U20R10D10NL10L5F6D4 BM+10,0BU10R10 BM+10,10U10NR10U10R10 BM+12,0D20 BM+12,0U20NR10D20R10U10L5 BM+15,10U10NU10R10NU10D10 BM+15,0U20NL6R6 BM+10,0 NR10D10NR8D10R10"'\2"BM+10,0U20R10D10NL10L5F6D4"'<"BM21,50E4NR25R6E4R4F4R6F4D2G4L25H4U2"'F"BM200,45R4F4D4F8NL26H8G4L4H4NG8U4E4":90(P"BM21,20D4ND4R4NU4D4 BM+4,0 NR4U4NR2U4R4 BM+4,0D8R4 BM+4,0 U4NU4R4U4L4R4 BM+4,0D4BD4D1":( Z0,1(/d500,15900(Rn S(70),GM(4,8),SS(300),CH(20)(\xSC42(iC$"WSX"(I1600016030:D:I,D:(158,186,16,142,0,64,191,1,21,198,5,166,1,167,128,90,38,249,111,132,190,1,21,48,136,16,49,63,38,232,57)I1605016084:D:I,D:)158,186,48,15,16,142,0,64,191,1,21,198,5,166,31,167,132,48,31,90,38,247,111,132,190,1,21,48,136,16,49,63,38,230,57)I1610016118:D:I,D:)158,186,16,142,1,128,166,136,16,111,136,16,167,128,49,63,38,244,57*ȀI1615016172:D:I,D:*[҆158,186,48,137,3,255,16,142,1,128,166,16,111,16,167,132,48,31,49,63,38,244,57*x܀I1620016212:D:I,D:*158,186,16,142,6,0,99,128,49,63,38,250,57*:1,1*"BM126,90R4F4D4F8NL26H8G4L4H4NG8U4E4":(128,96),1+I01002:(128,96),I:"V15T200L200O2AO3A":+0"V31T200L200O1"+JI080:"A":16200:+V" 2 1+,I02:"C1":80:"V31T2L5A":"C0":80:+61,0:I200212:(I,50):"V31T200L200O5A":+@I194212:(I,50):"V31T200L200O3A":,JI0204:(30,50),I:"V31T200L200O1C":,.TI0242:(30,50),I,0:,p^T0:I050:16200:"V31T200L100O1AO3AO4D":TT1:TD1 T::,vh,r10)"STAR-FIGHTER":-4|" IN THIS HI-RES GRAPHIC GAME, YOU MUST GUARD 32 SECTORS OF THEGALAXY. THIS PROGRAM USES BOTH THE KEYBOARD AND THE RIGHT JOY- STICK TO MANEUVER YOUR SHIP."-"COMMANDS:":" W - ACTIVATES WARP DRIVE S - DISPLAYS STATUS BOARD X - RETURNS DISPLAY TO BATTLEFIELD"-450:.`" THE JOYSTICK IS USED TO LINE THE ALIEN UP IN YOUR SIGHTS WHENLOOKING AT THE BATTLEFIELD SCREEN. USE THE FIRE BUTTON TO FIRE YOUR LASER."." NOTE THAT THE ALIEN MAY FIRE BACK, EVEN WHEN YOUR ARE LOOKINGAT THE STATUS BOARD."/i" THE WARP DRIVE, LASER, AND BEING HIT BY ALIEN FIRE WILL CONSUME VARYING AMOUNTS OF THE SHIPS ENERGY SUPPLY. WHEN YOU ARE OUT OF ENERGY, THE GAME IS OVER."/y450:475/‡@484,"PRESS [ENTER] TO CONTINUE";/̅(13)460/֐/۞:" CAN YOUR COMPUTER HANDLE HIGH SPEED Y/N?"0IN$: IN$"Y" IN$"N" 477 : 4760Bݞ: IN$"Y" 65495,0 : 65494,00mL5:E1000:AF0:SX(4):SY(8):BF00TA0:I14:J18:A(4)1:GM(I,J)A:TATAA:::TTTA0:1,1:(0,128)(255,191),,BF1U"C0BM 89,132 NR5D5NR3D5R5 BM+10,0 U10F10U10 BM+10,0 NR6D5NR4D5R6 BM+10,0 U10R6D5L6R2F4D2 BM+10,0 U10NR6D10R6U6L2 BM+14,0 NE4NH4D5"11,0:(2,148)(252,150),,BF:(2,154):(2,156):(64,154):(128,154):(128,156):(192,154):(252,154):(252,156)29(116,64)(124,64),:(132,64)(140,64),:(128,54)(128,58),:(128,70)(128,74),:(116,54)(140,74),CH,G2FGC1 L2n&AF1(AX20,AY)(AX30,AY20),S,20(95,(SC)SC):(160,(SC)SC):((76)87,48):((76)87,78):16000:16050:I14:16100:16150::(116,54)(140,74),CH,:AF1100038:TE(1000E)4:E0(252TE,148)(252,150),,BF :12203MDK$:K$""7203fNP(C$,K$):P07203|X P 610,660,7103b"WARP TO WHICH SECTOR ==> ";S$:(S$)2 6103lSX((S$,1))64:SY((S$,2)): SX4 SX1 SX8 SY1 6104!vAF1(AX20,AY)(AX30,AY20),S,4"T200L200O2V31":1,1:I110:16200:16200:"A":(95,(SC)SC):(160,(SC)SC):((76)87,48):((76)87,78):16000:16050:J14:16100:16150::J111I::4EE(10(10)):AF0:5405O:11)"GALAXY MAP"::" ";:I18:I;::::I14:" ";(64I);" ";:J18:"###";GM(I,J);5Y::5n:"ENERGY : ";E5::"CURRENT SECTOR : ";(64SX);((SY),1)55405ƿ1,1:5405H(0):V(1):H207505څH437805䁥8105AF07706R(AX20,AY)(AX30,AY20),S,:16050:AXAX6:AX224AF0:810 :1000:8106c16050:8106q AF08006(AX20,AY)(AX30,AY20),S,:16000:AXAX6:AX20AF0:810 :1000:8106 160006*V20 84064V438706>9007H AF08607`R(AX20,AY)(AX30,AY20),S,:16150:16150:AYAY6:AY0AF0:900 ESLEGOSUB630:9007x\16150:16150:9007fAF08907p(AX20,AY)(AX30,AY20),S,:16100:16100:AYAY6:AY107AF0:900 :1000:9007z16100:161008(6528 &' COPYRIGHT (C) T&D SOFTWARE 1983&= BOMB-STOPPER&G4:3&P(700&e2 S(10,1),B(8,1)&<:10)"BOMB-STOPPER":'vF" THE EVIL ALIENS ARE DROPPING BOMBS ON YOUR CITY... CAN YOU STOP THEM ?":" CONTROLLING YOUR SHIP WITH THE RIGHT JOYSTICK, YOU MUST DE-STROY THEIR BOMBS BEFORE THEY HIT YOUR CITY. WHEN HALF YOUR CITY IS GONE THE GAME IS OVER."( P" YOU MAY HAVE UP TO 10 SHOTS ON THE SCREEN AT ONCE. THIS GAMEGETS PROGRESSIVELY HARDER.":" NOTE: YOUR SHIP IS IMPERVIOUSTO THEIR BOMBS."(/Z@485,"PRESS [ENTER] TO START";(LdR():(13)100(e:" CAN YOUR MACHINE HANDLE HIGH SPEED ? (Y/N)"(fK$:K$"Y" 65495,0:110(gK$"N"102(h65494,0)nBX0:BY0:BC0:SC0:X0:Y172:SX8:SY30:D1:CD0:SL3:NB0)x4,3::"BM8,186":I112:R(8):"BM+0,0 U10R10D"(R)"R10D"(10R)::"BM0,186R8 BM255,186L8":(128,190),4)4,3:1,0)C4:860)GC1 SL)C3:870)H(0):P(65280))X((H32)120)8*&F0:TYY17 Y 2:TXTX TX82:(TX,TY)2 F1*.ȋ:*;҅F0250*h܀L1BC:X4B(L,0)X4B(L,0)12 ML*:BXB(M,0):BYB(M,1)*760*C2:870*SC10 (P126 P254)340*"V31T200L200O3A"*SCSC1:S(SC,0)X4:S(SC,1)Y16+"(S(SC,0),S(SC,1))1340+P,L1 BC:S(SC,0)B(L,0) S(SC,0)B(L,0)12 ML+j6:BXB(M,0):BYB(M,1)+t@760+JSCSC1+TSC0490+^I1 SC+h(S(I,0),S(I,1))1440+r(S(I,0),S(I,1))+|S(I,1)S(I,1)6+S(I,1)30410, 700:SC0490:360,8F0:J20:(S(I,0),S(I,1)J)1F1,>,KF0470,L1 BC:S(I,0)B(L,0) S(I,0)B(L,0)12 ML,‹:BXB(M,0):BYB(M,1),́760:700:II1:480,ֽ(S(I,0),S(I,1),2),,-C3:860:D1SXSX20:SX228D1-!D1SXSX20:SX8D1-/C4:860-F"V31T200L100O2AC"-sBC8 ((1SL)SL (1SL)1) 610-&BC0590-0F0:I1 BC:B(I,0)SX5 F1-:-DF1610-N"V31T200L100O1A"-XBCBC1:B(BC,0)SX5:B(BC,1)SY5.bBC0690. lI1BC./vC3:BXB(I,0):BYB(I,1):880.;BYBY4.XBY175 MI:780:610.p (BX,BY4)4730.C1:880:B(I,1)BY..150.I1SC 720.ƀJI1 SC:S(J1,0)S(J,0):S(J1,1)S(J,1):.SCSC1:/=CXBX5:N110:C14:C,3:(CX,175)(CX19,191),,BF:"V31T100L100O1AAD"::/a4,3:(CX,175)(CX19,191),,BF/MI:780:CDCD1:CD6810:610/N12:C14:880:"V31T200L100O2ADFG":::C3:880:NBNB1/NB5(NB5)SLSL1:SL1SL10 M1BC 80002AM1 BC:B(A1,0)B(A,0):B(A1,1)B(A,1):0@ BCBC1:0*:"SORRY, YOUR CITY WAS DESTROYED.":"HOWEVER, YOU MANAGED TO DE- STROY ";NB;" BOMBS."04:"PLAY AGAIN ? (Y/N)"0>K$:K$"Y"600HK$"N"8300R65494,0:1:\"C"(C)"BM"(SX)","(SY)"U4E4R12F4D4L20":(SX2,SY4),C:1yf"C"(C)"BM"(X)","(Y)"E4NU5F4L8":(X4,Y2),C:1pC,3:(BX,BY)(BX11,BY5),,BF:4:"PLAY AGAIN ? (Y/N)"0>K$:K$"Y"600HK$"N"8300R65494,0:1:\"C"(&':COPYRIGHT (C) T&D SOFTWARE 1983&9 359,57:0,1&u:2048:0:4:@229,"READING DISK DIRECTORY";:&HFF22,8&Ȁ X512 541:A$:X,("&H"A$):X:0512:F(0)&ҌA$(68):Y1:P11:PO4:T247&܀ X311:0,17,X,A$,B$:C$A$(B$,127)'4 N07:A$(Y)(C$,N321,8)"."(C$,N329,3)" "'[R(A$(Y)): R255A$(Y)"":300'A$(Y)A$(Y)((1547N32)48)" "' (1548N32)0 A$(Y)A$(Y)"B" : A$(Y)A$(Y)"A"( R0 (A$(Y),1)"B" ((A$(Y),10,3)"BAS" (A$(Y),10,3)"BIN") A$(Y)"":290(<A$(Y)(A$(Y),12):YY1(F" N,X(q,P2((Y1)10): P2(Y1)10 P2P21(6:6)"COLOR DISK DIRECTORY"(@A$(68F)" USED -"(F)" FREE":(32(A$))2)A$:10)"PAGE";P1;"OF";P2:(JH(P11)101)T XH H9) ^ A$(X)"" :370)/h9);A$(X))5r)C|&HFF22,8)nKPO328:529,&H80:A0(K):529,&H8B)E(P11)10PO3)(341)T PO4 P11 P1P11:PO13:A0(K):310 : (341)T PO4 A0(K):POPO1:390*d (342)T PO13 EY1 A0(K):POPO1:390 : (342)T P1P2 PO13 P1P11:PO4:A0(K):310*z (338)191450*410*(A$(E),9,1)".":T$(A$(E),12)*Z$ : : @233,"LOADING "(T$,8);*օ (A$(E),"BIN") 359,126:MT$:+& (A$(E),"BAS") 359,126:T$,R+0ꁥ410+ BD,B3,ED,C3,4,0,1F,1,C3,0,E,ED,8D,0,D,A6,84,8B,40,A7,80,AC,8D,0,3,26,F4,39,0,0(A$(E),9,1)".":T$(A$(E),12)*Z$ : : @233,"LOADING "(T$,8);*օ (A$(E),"BIN") 359,126:MT$:&':COPYRIGHT (C) T&D SOFTWARE 1983&:3:1,1::200&"BM5,40C2R235F2R1F2D135BF10U135H10D135L30ND2U1H1U3H1U3H1U3H1U3H1U3H1U3H1U3H1L169G1D3G1D3G1D3G1D3G1D3G1D3G1D3G1D3NR185U2L30U135E2R1E2BR8BD8R219F5D93L229U93E5"'_"BM0,180F10R30NH4F2R185H2NR30H2BH6L185BR6BD2NR32F6R32H6BR18BD1NR4F4R4H4BR18BU1NR32F6R32H6BR19BD1NR4F4R4H4BU1BR18NR32F6R32H6"'(248,55),2,2:"BM35,182C5NF8BR182NF8":"BM52,168C2E3R3F3D3G3L3H3U3BR128E3R3F3D3G3L3H3U3":(54,168),2,2:(182,168),2,2("C3":X20:Y32: 60:A$"T AND D SOFTWARE":X50:Y20:63:X220:Y32:60:X50:Y30:A$"HOLLAND MICHIGAN":63:X14:A$"REPRODUCTION OF ANY OF THE":YY32:"C4": 63(A$"FOLLOWING IS PROHIBITED.":YY10:X22:63(A$"T AND D SOFTWARE SHALL HAVE":X6:YY18:63)$ A$"NO LIABILITY OR RESPONSIBIL-":YY10:X6:63)Z A$"ITY TO CUSTOMER WITH RESPECT":YY10:X6:63) A$"TO ERROR, LOSS, OR DAMAGES":YY10:X14:63:A$"CAUSED BY THESE PROGRAMS.":YY10:X14:63*K A$"COCO CASSETTE NO. I":X35:Y158:"C3":63:"BM+4,-4R4D2L4D2R4":A$"JUNE":X80:YY10:63:"BM+10,+0;U4R4D2NL2D2NL4BR4R4U2NL4U2L4"*\ TD03000:*x:"C3":X90:Y170:52*"C2":A$"ITS JUNE AND TIME TO ENJOY THE SUMMER...":X0:Y0:62*PA13000:*:X90:Y170:"C3":52+"BM0,20C4R150D40NL150D5L150U45":(10,25),4+d(200,40),20,3:(200,40),2,3:I05:(2008(14),408(14)),4,4:+X0:Y26:"C1":A$"NO MORE CLASSROOMS...":62+PA14000:+:X90:Y170:"C3":52+(255,191),50,2:(250,181),2,(30,20),10,4:(30,20),4,(90,140),70,4,1,.5,.8,5(50,82)(80,170),,kX10:Y0:"C2":A$"NOTHING BUT THE BEACH...":62,|PA14000:,:X90:Y170:"C3":52,X20:Y130:45,X210:Y110:45, X0:Y0:A$"THE WOODS...":"C4":62,!PA13000:-":X90:Y170:"C3":52-F#X0:Y0:A$"AND BEST OF ALL...":"C2":62-W$PA12000:-s%:X90:Y170:"C3":52-&X50:Y100:60-'X0:Y0:A$"MORE COCOCASSETTES.":"C4":62-(PA13000:-)1-*42.C+:"C2":(0,156)(256,156),:(50,172),2:"BM207,155C4U60L28H11R8L8E4F15H15R52D15L16R4D12L4R4D48L4C2".,Y155:X19624816:(X,Y)(X3,Y4),:(X,Y)(X3,Y4),: X:.-(X,Y)(X,Y),.."C3E4U20R4D20NL4F6"./(X6,Y20),3.0(X8,Y50),30,2:(X8,Y50),2.1/H2C1:Y154:X"$&')*-ER BIN,DIR BAS COVER12 BAS!SHOOTGALBAS#BOMBSTOPBASVALLEY BAS%STRFGHTRBASWHLOFORTBASMLT 7 BAS(MERGE BIN+RAMTEST BINpLANDER BIN,20 90 10:"C3":52:"T250O1C":PA1200:PA:X6051:"C5":52:X/3PA11000:PA:"C4BM188,96D18L8U18": PA11000:PA:/4(X,Y)(X,Y),/5"BM+0,+0;R16E3R1F3R12U20D20R30E2U2H2L4H4U5D5F4L4G2L12H2L6U1L8H1L10H1L7H1L7G2D3F2D2BU12BR4NG4E3U8"0R6"BM+0,+0H1L5H1L5R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1R40U2L45BU2R45"07"BM+0,+0;H20L48G2F20BR3BU2H16R41F16BL13BU21H1L4H1L4H1L4U32L72D20E1R3E1R3BL6BG2L3G1L3G1L3G1L1G1L1G2L1G3D2F7R30U1H3U1E3U1L22U1E1R3BR24U24R30D24L30"1u8"BM+0,+0;E3U18H3F3R24E3G3D18F3H3L24BR5BU8U8R4D8L4BR2BU2R1BR8U6R4D8L4U2BR2R1BD6BL3L6BR21BD9R7BU3L7BU3R7BU3L7BU5U12R8D12L8BU3BR2R3BU4L3"29"BM-65,+35;R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1H5L5H1L5H1U6D6L5H1U5D5L5H1U4D4L5H1U3D3L5H1L5H1L5H1L3G1D2F1R1G2D1F2BR32BU12H2U2E2R5G2D2F2L5R12E1H1L4R4E1R1U1H1L4R4"2:"BM+0,+0;L9U2R4F2D1G2BR20BD10R2BR4R2BR4R2BR4R2BR4R2BR4R2BD4L2BL4L2BL4L2BL4L2BL4L2BD4R2BR4R2BR4R11BR4R2BR4R2"2;3!<(X,Y)(X,Y),:"BM+0,+0;R3U2R5D2L5R7U6L10D6BU6BR3U1L2H2U1R3L7H2U1R4L9H2U1R22D3G3D2R2E3R2E2R2U3H7U1L2G1D2F2H2L2G1D2F2H2L2G1BD17BL6BU5":3T=(X,Y)(X,Y),:"BM+0,+0R3U2R5D2L5R7U6L10D6":3Z>3d?"S2"3@ P1 (A$):I$(A$,P,1):I(I$)64 3AXX8B: X(252(B1.5)) X8:YY10(B2)3B I19 I283C I18 I293D I20 I304E I0 I274F(X,Y)(X,Y),: I 74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,1034G S0 "T250O1C"4H P:"S4":4I 734J"BM+0,+0;BR4ND4NF4G4D4BR8U4":4K"BM+0,+0;ND8R8D4NL8D4L8":5L"BM+0,+0;NR8D8R8":53M"BM+0,+0;ND8R6F2D4G2L6":5QN"BM+0,+0;NR8D4NR6D4R8":5mO"BM+0,+0;NR8D4NR6D4":5P"BM+0,+0;NR8D8R8U4L1":5Q"BM+0,+0;D4ND4R8U4D8":5R"BM+4,+0;D8":5S"BM+0,+0;BR6D8L4U2":5T"BM+0,+0;D8U4R4NE4NF4":6U"BM+0,+0;D8R8":::L6,V"BM+0,+0;ND8R4ND3R4D8":6EW"BM+0,+0;ND8R8D8":6_X"BM+0,+0;D8R8U8L8":6zY"BM+0,+0;ND8R8D4L8":6Z"BM+0,+0;R8D8NH3NF2L8U8":::Q6["BM+0,+0;R8D4L4NF4L4D4U8":6\"BM+0,+0;NR8D4R8D4L8":6]"BM+0,+0;R4ND8R4":7 ^"BM+0,+0;D8R8U8":7'_"BM+0,+0;D4F4E4U4":7D`"BM+0,+0;D8R4NU3R4U8":7]a"BM+0,+0;F8BL8E8":7vb"BM+0,+0;F4ND4E4":7c"BM+0,+0;R8G8R8":7d::SPACE7e"BM+1,+4;R6":::-7f"BM+2,+6;D2R2U2L2":7g"BM+2,+6D2R2ND2U2L2":ND8R4":7 ^"BM+&' COPYRIGHT (C) T&D SOFTWARE 1983&> SHOOTING GALLERY&H 80&("BM"(PX)","(PY)"C"(C)"U2E4U1L2U1R2ND1NU8D4G4":&2277,(EAPK):278,(EAPK(EAPK))PK:'"BM"(X)","(Y)"C4U2E4U2H2U2E2H2U4E2H2E2F2R8E2F2G2F2D4G2F2D2G2D2F4D2L6H2L4G2L6":(X8,Y10),4,4:(X8,Y20,1):(X12,Y20,1):(X10,Y18,2):(X8,Y17,2):(X12,Y17,2):3HXX4:"BM"(X)","(Y)"C2R2NU2L2U2E2U2C1H2U3E4U2H2U2E2R2F2D2G2D2F4D3G2NL6C2D2F2D2L2U2":(X8,Y10),1,1:(X6,Y22),1,1:(X4,Y21,4):(X6,Y21,4):(X4,Y19,2):(X4,Y18,2):(X2,Y17,2):XX4:4HRI03:"BM128,20A"(I)"C3U16R2D2L2"::"V31T200L100O1ADO3AD":I14:"BM128,20A"(I1)"C"(FF(I))"U16R2D2L2"::"O3ADO1AD":TFF(1):I13:FF(I)FF(I1)::FF(4)T:"A0":4\I17:SP(I)0::S$((S),2):I1 (S$):SP(7(S$)I)((S$,I,1))::4,2:(180,18)(250,24),,BF5fI17:"C4BM"(170I10)",24": SP(I)1 890,900,910,920,930,940,950,960,970,9805p:2,3:50z"U5R6D5L6":5E"BR2R4L2U5G2":5Z"NR6U3R6U2L6":5o"R6U3NL4U2L6":5"BR6U5D3L6U2":5"R6U3L6U2R6":5"U5NR6D5R6U3L6":5"BR6U5L6":5"R6U3L6ND3U2R6D2":5"R6U3L6U2R6D5":910,920,930,9&':COPYRIGHT (C) T&D SOFTWARE 1983&-&j:@6,"##VALLEY BATTLE##":BY JOEL ROBBINS, SYRACUSE,IND'L" BLOW UP ENEMY COMMAND CENTER, TWO CAMOUFLAGED ANTI-AIRCRAFT GUNS AND ARMORED TRUCK LOCATED IN LEFT MOUNTAIN. USE ROCKETS(R)& BOMBS(B) OF HELICOPTER(H) TO FIRE ON MOUNTAIN. FIRE YOUR CAN-NONS WITH 4 KEYS (SAMPLE"; '"=CBJ2). C=CANNON,(A-H)=VERTICAL COORDIN-ATE, (A-P)= HORIZONTAL,(1-3)= SPECIFIC CANNON . YOU HAVE 5 COPTERS(5 ROCKETS,3 BOMBS EACH) AND THREE CANNON SHOTS.(1@416," CHOOSE SPEED 1 OR 2(IF COCO CANTAKE HI-SPEED POKE)(:SP (FSP26(:@32,"CHOOSE (A) = STRONG ENEMY OR (B) = VERY STRONG( RO$:RO$"A"11( RO$"B"9( 3,1( :1,0( R(40):V(40))]"BM250,30G5D19L5G10H2D19G7D9L7D3G8L4D9L1G8L3G2D5H3D15L4G7L2D9L80U9L3U17L4H10G9H7L3U18H9G3H5U9L3U10H9G3H6L3U18L5H4L3H5L4D170R250U160")|UP93:PU108:AA240:BB256)DC(20):AC(70))(248,71),7,8)(DC5,AC90)(DC10,AC95),,BF)"BM225,85R2D2L2U2")"BM185,145R2D2L2U2"*"BM205,115R2D2L2U2"*55*+CA455*7CACA1*I"BM252,19L7"*aRA0:PP0:OO0:MM0*x"BM250,20L7BR5U3"*"BM250,16R8BL8L8"*(0,16)(21,24),,BF*SP233:31*65494,0* 34*!65495,0*"AA240:BB256+# (AA,16)1 55+$(AA,16)(BB,24),R,G+.%"T255O1CV5"+B&AAAA2:BBBB2+O'AA355+h((AA,16)(BB,24),R,+~)CCAA14:DDBB24+*F$++F$"B" 65+,F$"R"258+-(CC,20)(DD,20),,BF+.(CC,19)(DD,19),,BF+/(CC,17)(DD,17),,0(CC,16)(DD,16),,BF,+1(CC,18)(DD,18),,BF,L2OOOO1.5:MMMM1.5:TTOO80,c3(10,10)4120,u4OO(OO)35,5 (TT)137,635,7F$,8F$"C"141,9F$"H"23,:CA4273,;(DC7,AC92)1195,64-'?(0,16)(21,24),,BF-0@55-@AGG20:FF20-UBRARA1: RA3-pC(AA6,GG)(AA6,FF),-DGGGG2:FFFF2-EGG218074-F(AA6,GG2)(AA6,GG2),-G (AA6,GG6)377-H67-I-J"T255O1A-V27".K(AA4,GG4),8,8.L"T255O1A-V31".0M(AA4,GG4),7,5.CN"T255O1A-V27".XO(AA4,GG4),8,5.mP(AA4,GG4),5,5.Q(AA4,GG4),3,5.R(AA6,21)(AA6,FF),.S35.T(AA4,16)(BB,20),R,.U(AA4,16)(BB,20),R,G.VZ15.WZ/ X(AA1,12)(BB4,16),R,/YY15:Y/5Z(AA,12)(BB4,25),,BF/C[X15: /V\"L255O1A-V31"/h](AA,14),10,6/{^"T254O1A-V27"/_(AA,14),12,6/`"T250O1A-V31"/a(AA,14),10,5/b"L255O1B-V31"/c(AA,14),12,5/d"L255O1A-V29"/e55/f0g(17,60)(BB10,20),0&h"T250O1A-V30"0@i(17,60)(BB10,20),0Ij840ck(17,60)(BB40,40),0vl"T250O1A-V30"0m(17,60)(BB40,40),0n(BB40,40),2,60o"T250O1AV29"0p(BB40,40),2,50q"T255O1A-V31"0r(BB40,40),10,61s"T255O1A-V29"1t(BB40,40),12,61/u(BB40,40),10,51Dv(BB40,40),12,51Jw1VxNNMM:1cyAA601~z(80,122)(AA40,20),1{"T255O1AV30"1|(80,122)(AA40,20),1}"T255;O1;A;V30"1~(AA40,20),2,61"T250O1A-V25"1(AA40,20),2,52 "T255O1BV30"2"(AA40,20),10,625"T252O1A-V27"2J(AA40,20),12,62_(AA40,20),10,52t(AA40,20),12,52 MM(MM) 22UU(25)3 (UU)243,139,121,243,243,35,243,35,107,35,243,35,121,35,107,121,121,107,35,243,35,103,35,35,353RO$"A"1213%RO$"B"10339JUJU1:JU33DTB$3WTB$"A"TB103jTB$"B"TB203}TB$"C"TB303TB$"D"TB403TB$"E"TB503TB$"F"TB603TB$"G"TB703TB$"H"TB803TB$"" 15331424TC$4 TC$"A"TC104*TC$"B"TC204=TC$"C"TC304PTC$"D"TC404cTC$"E"TC504vTC$"F"TC604TC$"G"TC704TC$"H"TC804TC$"I"TC904TC$"J"TC1004TC$"K"TC1104TC$"L"TC1204TC$"M"TC1305TC$"N"TC1405'TC$"O"TC1505;TC$"P"TC1605LTC$""1725V1535|TA$:TA(TA$): TA0172:1735 (TA)174,190,1875(225,85)(TB,TC),5"T255O4CV25"5(225,85)(TB,TC),5"T255O1A-"6 (TB,TC),3,6:"T255;O1;V30;A-"6(TB,TC),3,56/"T255O1A-V27"6R(TB,TC),9,6:"T255;O1;V15;A-"6c(TB,TC),9,56v"T255O1A-V29"6(TB,TC),7,5:(TB,TC),5,56"T255O1A-V20"6556(185,145)(TB,TC),6(185,145)(TB,TC),6 1777(205,115)(TB,TC),7(205,115)(TB,TC),76"L255V29O1A-T250"7A 1777K 357`Å(77,126)3 7są(14,67)37Ņ(PU2,160)17ƿ0,07Ǟ7Ȟ:@192,"GOOD JOB, GENERAL. YOU CAPTURED THE ENEMY MOUNTAIN." 7ɀI12000:I8 ʞ:@192,"SAME GAME?(Y-N)"8"BG$:BG$"Y"184̅BG$"N"2038>́2868PYUYU1:F$8^υYU12108lЅYU22178zхYU32248һ(PU,150)(185,145),8(185,145),5,88"T255O1BV30"8(185,145),5,58"T255O1A-V30"8׀I1200:I8؁559ٻ(PU,150)(205,115),9%(205,115),5,898"T255O1A-V29"9K(205,115),5,59]"T255O1BV30"9mހI1300:I9v߁559(PU,150)(225,85),9(225,85),5,89"T255O1BV30"9(225,85),5,59"T255O1A-V30"9I1200:I9恥279: ME1 234:("BM94,160U3R12D3L12BU3BR3U2R5D2"::(98,159),7,8:Q(PU2,160)1 :i(PU4,160)3206:(UP,155)(PU,160),V,G:UPUP1:PUPU1:MEME1:(UP,155)(PU,160),V,:(UP4,154)(UP2,160),,BF:;(80,122)(BB40,20),;(80,122)(BB40,20),;."T255O1A-V30";I(80,122)(BB40,20),;](BB40,20),2,6;p"T250O1A-V29";(BB40,20),2,5;"T255O1AV30";(BB40,20),10,6;"T252O1A-V25";(BB40,20),12,6;"T255O1AV30";(BB40,20),10,5< "T255O1BV25"'@160,"TOO BAD, GENERAL, YOU LOST YOUR MOUNTAIN. TRY AGAIN?">2KK$>AKK$"Y"1>SKK$"N"283>j:@230,"BYE, BYE">y65494,0:> "T250O1AV29">!(AZTT,16TT),5,8>""T255O1A-V30">#(AZTT,16TT),5,5>$282=>'@160,"TOO BAD, GENERAL, &' COPYRIGHT (C) T&D SOFTWARE 1983&> MACHINE LANGUAGE&T TUTORIAL PART 7&^0:1&n1000,15999&{ P$(26)&I1630016347:D:I,D:'6182,1,21,190,1,22,48,134,191,1,24,190,1,22,49,1,166,132,161,164,36,6,230,164,231,132,167,164,49,33,16,188,1,24,38,236,48,2,188,1,24,39,4,48,31,32,223,57'K I126:P$(I):'j 00100 ORG 16300' 00110 LENGTH EQU 277' 00120 ASTART EQU 278' 00130 AEND EQU 280'00140 START LDA LENGTH(00150 LDX ASTART( "00160 LEAX A,X"(>00170 STX AEND(^00180 LDX ASTART(}"00190 LOOP2 LEAY 1,X"("00200 LOOP1 LDA ,X"("00210 CMPA ,Y"(00220 BHS NOSWAP("00230 LDB ,Y")"00240 STB ,X")3"00250 STA ,Y")R"00260 NOSWAP LEAY 1,Y")p00270 CMPY AEND)00280 BNE LOOP1)"00290 LEAX 2,X")00300 CMPX AEND)00310 BEQ QUIT* "00320 LEAX -1,X"*)!00330 BRA LOOP2*?"00340 QUIT RTS*^#00350 END START*{$:8)"MACHINE LANGUAGE"*%8)"TUTORIAL PART 7":+q&" THIS TUTORIAL WILL DISCUSS LINKING MACHINE LANGUAGE SUB- ROUTINES TO BASIC PROGRAMS AND WILL PRESENT YOU WITH A MACHINE LANGUAGE SUBROUTINE YOU CAN RUN (FROM THIS PROGRAM) AND USE IN YOUR OWN PROGRAMS."+{'113,L(:" VERY OFTEN, YOU WILL EN- COUNTER A BASIC PROGRAM WHICH WOULD BE HELPED TREMENDOUSLY BY THE ADDITION OF A MACHINE LANG- UAGE SUBROUTINE TO PERFORM A FUNCTION WHICH BASIC MIGHT DO SLOWLY.",)" IN THIS CASE, A ML (MACHINE LANGUAGE) SUBROUTINE MAY BE ALL THAT IS REALLY NEEDED. (AS OP- POSED TO WRITING THE ENTIRE PRO-GRAM IN ML.)",*113-_+:" WHEN USING A ML SUBROUTINE IN A BASIC PROGRAM SEVERAL THINGS MUST BE TAKEN INTO CON- SIDERATION."-,"1. WHERE WILL THE MACHINE CODE RESIDE IN MEMORY?"--"2. HOW DO I CALL THE ML SUB- ROUTINE?".!."3. HOW DO I PASS VALUES OR PARAMETERS TO THE ML SUB- ROUTINE?".Z/"ANSWERS TO THESE QUESTIONS WILL NOW BE DISCUSSED.".d0113.1:" THE EASIEST WAY TO GET ML IN-TO MEMORY IS TO PUT THE MACHINE CODE IN DATA STATEMENTS AND THENPOKE THEM IN, ONE BY ONE."/2" IT IS USUALLY BEST TO PLACE THE ML SOMEWHERE AT THE TOP OF MEMORY. IN A 16K SYSTEM, TOP OF MEMORY IS 16383. FOR 32K, THE TOP IS 32767. NOTE HOWEVER THAT BEFORE YOU START POKING CODE INTO MEMORY, YOU SHOULD PROTECT"03"THAT MEMORY FROM BEING USED BY BASIC.":11304:"TO PROTECT MEMORY, USE THE FORM OF THE CLEAR STATEMENT: CLEAR [STRING BYTES],[LAST ADDRESS USABLE BY BASIC]"05"THIS WILL KEEP BASIC FROM PUT- TING SOMETHING INTO YOUR ML BY ACCIDENT.":1131r6:" YOUR ML SUBROUTINE MAY BE CALLED TWO DIFFERENT WAYS: 1. EXEC [ADDRESS] - STARTS EXE- CUTION AT [ADDRESS], RETURNS TO BASIC ON RTS."1~7113:2g8"2. U=USR[N]([EXPRESSION]) - THIS WILL BE USED TO CALL A ML FUNCTION. [N] IS A DIGIT FROM 0 TO 9. THIS COMMAND SUPPOSEDLY WILL PASS A VALUE TO THE FUNC- TION AND THEN BACK TO BASIC. HOWEVER, THIS PROCEDURE IS QUITE";3*9"COMPLEX AND RARELY USED. THE AUTHOR RECOMMENDS THAT YOU USE EXEC [ADDRESS] FOR ITS SIMPLIC- ITY. (NOTE: THE ADDRESS OF A 'USR' FUNCTION IS SET WITH THE DEFUSR =[ADDRESS] COMMAND.)"34:1134;:" PASSING VALUES TO A MACHINE LANGUAGE SUBROUTINE IS MOST EASILY ACCOMPLISHED BY POKING THE NECESSARY VALUES INTO A CER-TAIN PART OF MEMORY. THE ML SUB-ROUTINE CAN THEN GET THOSE VAL- UES FROM MEMORY, PERFORM THE"4<"FUNCTION, AND THEN IF NECESSA- RY, STORE A VALUE IN MEMORY WHICH IS THEN IN TURN PEEKED BY THE BASIC PROGRAM. (THIS METHOD WILL BE DEMONSTRATED.)"4=1135>:" IT IS USUALLY A GOOD IDEA TO MAKE ML SUBROUTINES AS GENERAL AS POSSIBLE SO THAT THEY MAY BE USED IN MORE THAN ONE PRO- GRAM. THIS WILL SAVE YOU A LOT OF WORK AND ALLOW YOU TO BUILD A LIBRARY OF ML SUBROUTINES."5?1136@:" NOW, LET'S SUPPOSE WE WANT TO WRITE A ML SORT ROUTINE THAT WILL SORT AN ARRAY OF FROM 5 TO 127 ELEMENTS, EACH ELEMENT IN THE RANGE OF 0 TO 255. WE ALSO WANT TO PLACE THE ARRAY ANYWHEREIN MEMORY. IT IS CLEAR THAT THE"7VA"PARAMETERS WE MUST GIVE OUR ML SUBROUTINE ARE THE LENGTH OF THEARRAY, THE START ADDRESS OF THE ARRAY, AND THE ARRAY ITSELF MUSTBE POKED INTO MEMORY AND PEEKED AFTER IT IS SORTED."7`B1138GC:" WE CAN USE MEMORY LOCATIONS 277-281 TO PASS OUR PARAMETERS. 277 WILL CONTAIN THE LENGTH OF THE ARRAY. 278/279 WILL CONTAIN THE START ADDRESS. 280/281 WILL CONTAIN THE ADDRESS OF THE END OF THE ARRAY. THE END WILL BE"8uD"CALCULATED BY THE ML SUBROUTINE.":1138E:"HERE IS THE ML SUBROUTINE:"8FI113:P$(I):8G1138H:I1426:P$(I):8I1138JC09'K:116:"THIS LINE SETS THE PROGRAM RE- SIDING ADDRESS.":1139L:116:"THIS LINE TELLS THE ASSEMBLER THAT THE LENGTH OF THE ARRAY IS IN LOCATION 277.":1139M:116:"ASTART IS THE STARTING ADDRESS OF THE ARRAY.":113:N:116:"AEND IS THE END OF THE ARRAY.":113:)O:116:"GETS THE LENGTH.":113:sP:116:116:116:"THESE LINES CALCULATE THE END ADDRESS.":113:Q:116:"GETS THE START OF THE ARRAY.":113:R:116:"POINT TO NEXT ELEMENT.":113:S:116:"GETS FIRST ELEMENT.":113;*T:116:"COMPARE WITH NEXT ELEMENT.":113;tU:116:"IF GREATER THAN OR EQUAL TO THENDON'T SWAP ELEMENTS.":113;V:116:116:116:"THESE LINES SWAP ELEMENTS.":113<W:116:116:116:"POINT TO NEXT ELEMENT AND TEST AGAIN IF POINTER NOT AT END.":113 c:"STARTING SORT...":0>d 16300>4eT60:"SORTING DONE.">Xf"TIME REQUIRED :";T:"SECONDS">bg113>h:"HERE ARE THE NUMBERS:">iI0 N1:(16000I);:>j113>k:"WOULD YOU LIKE TO RUN THE DEMO AGAIN ? (Y/N)">lK$:K$"Y" 91? mK$"N"108?#n:11)"NEXT MONTH":?o" NEXT MONTH, USEFUL POKES, PEEKS, AND MACHINE LANGUAGE ROM ROUTINES WILL BE DISCUSSED."?p?q@484,"PRESS [ENTER] TO CONTINUE";?r(13)114?s?tCC1:P$(C)::lK$:K$"Y" 91? mK>`&?N?& ܝ???ʳ??Ξ??Ȧ??1?' ?? ?d?&??̎?o?&'%|? '%|? d%|? d %|? ?z?Վ?Ԧ0 ?& 946569MACHINE CODE IN BASIC MERGE UTILITY COPYRIGHT (C) T&D SOFTWARE 1983NEW ENTRY POINT ADDRESS : *::: >%|? d%|? d %|? ?z?Վ?Ԧ0 ?& 946569MACHINE CODE IN BASIC MERGE UTILITY &+ν&// /!*f/##'%)&+(!}//'+n*(+@&9,&&|. @ &'Y'N&&|ͷƷɷʷ̷ηзҷ·Ķ""`&9}J&0&9÷ŷǷɷ˷̷ηзҶ""o&&9/"//$/'/"/&/"//$/(/$%/$O/O'9/6///2(#ী$&)Ԇ/3'RO*9 /"/$/&/(&#ী$&/3)|//(*f9=.Q/ =////TTTO////_}/'DVz/ 0 z/&9=.Q/ =////TTTO////_}/'DVz/ 0 z/&9+&x)R'6/$&jÁ&d/(}%_/( /0/1)1d/1)1 (f9|/2/2 / /6*/24)**f5Z&z/3}/3&/3'R94/"//$/')'')++|++|50&˽(/6*'R9z////=.$1 Z&9(* Z&1?&9K/024/1)15J&9/0O /1J&C /1J&0&9/"//$ =//"TTTO/}/'XIz/ 9/./(.O/(& /(.K/( ,& /&.M/& ߷& /&.M/&|/.9/,O//*˗/'ж//&熞/h/'ж//z/,&9/*//+/'9}/.& 40&59,* J& J&0&94a0&59$/*|/ *|/!*|94DDDD=.0 Z&05=.0 Z&09/!/!/ / //9* 9/- =/-9/4/7}/4' * 焽*0 z/4 ی/'o0 9/7m'@//4'5~% }//4'50 /&9z/5&+|F/59/7m'/"/$0 /&9/"//$ =//"TTTO/}/'XIz/ 9, @&'9& ,',9c&&9 LANDER COPYRIGHT (C) 1983 BY T+D SOFTWARE BY A. PAKERSKI LAND YOUR SPACE SHIP ON THE LANDING PLATFORM. USE UP, LEFT AND RIGHT ARROW KEYS. YOU MUST TOUCH-DOWN VERY SOFTLY OR YOU WILL BOUNCE. PRESS ANY KEY TO START GAME OVER PLAY AGAIN? Y/N 22