[ 53280,0:53281,0:646,(162):"":" USE LYNX TO DISSOLVE THIS FILE":10 1 *LYNX XVII WILL CORLEY 4 1!LS014-1 161 P 163 2!LS014-1 149 P 17 3!LS014-1 135 P 19 4!LS014-1 164 P 133 \$ " "B1"("X")+"C1:10773H*13)" "B1"("X")"C1H*E010775H*13)"+  +"E"= "F:10776I*13)"+  "E"= "F+I*13)" "D1:12000OI*13)" -("X")+"C1:10773_I*C1010980oI&*D1111010~I0*E0110 11981Kq*E011983Kr*13)""A1"(-"X"+"C1")+"E"= "F"":11990Ks*E011984Lt*13)""A1"("B1"("X")"C1")+"E"= "F"":11990Lv*B1110873'Lw*C1010875YLx*13)" "A1"("B1"("X")+"C1")":10877iLy*C1010876Lz*13)" "B1"("X"))"JY*E010843JZ*13)"+  +"E"= "F:10844J[*13)"+  "E"= "FJ\*13)" "D1:12000Kb*E011070Kl*B1110864&Km*C10108675Kn*E011980nKo*13)""A1"("B1"("X")+"C1")+"E"= "F"":11990~Kp*C10  "E"= "F:16)" "D1:12000G)E010725G)E010726G)13)"+"E"= "F"":12000G)13)"= "F"":12000H)13)""E"= "F"":12000(H)B11108808H)C1010920HH)D1110950WH*E010970tH*C1010772:B1110777H*13) C1")":10717F)C1010716F)13)" "A1"(-"X"+"C1")":10717F)13)" "A1"("B1"("X")"C1")":10717%G)13)" "A1"(-"X""C1")":107174G)E010719lG)13)"+  +"E"= "F:13)" "D1:12000G)13)"+  12M*13)" "X"+"C1:10913M*13)" "X;C1""M*E010915M*13)"+  +"E"= "F:10916M*13)"+  "E"= "FN*13)" "D1:12000$N*D11111403N*E011160QN*13)" "B1"("X")"`N*E010943N*13)"+  "A1"(-"X"+"C1")":10877L{*13)" "A1"("B1"("X")"C1")":10877L|*13)" "A1"(-"X""C1")":10877L}*E011990M~*13)"+  = "F7M*13)" "D1:12000GM*C1011080WM*D1110fM*E011130vM*C10109)" "A"("B"("X"))":10650E)" "A"(-"X")":10650E)" "A"("X")"E)A1010720E)A1110730 F)B1110780F)C1010820-F)D1110850+C1011072S?+13)" "?(" "D:10650?(B110440?(C010470?(D110490?(B110433?(C010435@(" "B"("X")+"C:10437(@(C010436@@(" -"X"+"C:10437]@(" "B"("X")"C:10437m@(" -"X""C@("  "@(" " 30I:*C1010812I;*13)" "A1"("X"+"C1")":10813I<*13)" "A1"("X""C1")"I=*E010815J>*13)"+  +"E"= "F:10816,J?*13)"+  "E"= "FEJ@*13)" "D1:12000UJD*D1111040dJN*E011060JX*13)" "A1"(61/ T : / 2540:TS5000: SP15:1110/ CONNECT BACK TO LOADSTAR80""LOAD"(34)"HELLO" (34)",8":"RUN"]0,631,13:632,13:198,2: *. 430:"*** DEFENSE SCREEN UP! ***":LW1864:RW1863:P61.  T1 20. SLW LW240 40. S,61. S : T20 P32/ URW RW240 40/* U,P#/4 U8/> LWLW1: RWRW1J/H T :1884,32U/R 430:[/\ :/f *** RESTORE GUN PROTECTION ***/p T1923 1483 40/z (T)61 T1, S5,3- S6,25515- S24,15- S4,17#. D11 18022:S1,D :S4,33 :S1,80D:S4,17: D0. S4,16@. T1600:TF. k. *** BUILD WALL *. 430:"*** DEFENSE SCREEN UP! ***":LW1864:RW1863:P61. 10.5)10;D1(D110.5)10;S1$(A);S2$(B);S3$(C);S4$(A1);S5$(B1)<S6$(C1)<S7$(D)#< S8$(D1)1<*L1(S1$)?<4L2(S2$)M<>L3(S3$)[-N " "Z-X LP2(RD7):956:DL5:x-b W,102:W40,20:3200: -l NEW BUILDING SOUND-v :- S54279- S1,14- T+ (1964)32 THTH1: 2004,214: 1964,66:3200, TH1 3120/, MB0:T19842023:(T)32MBMB1G, T:THMB THMB1U, Q1 THk, W((1)39)1984, (W)32 3170: Q: 3120,& 3090,0 TH0:T1 1500 :JD=>!G1A1:H1B1:I1C1:J1D1=H!KE:LF:341=(#S9$(Z)=2#L9(S9$)=<#>'19,5,12,5,3,20,9,14,7,32,5,17,21,1,20,9,15,14O>'6,15,18,32,8,5,12,16,44,32,20,25,16,5,32,60,8,62c>d(AG:BH:CI:DJ>e(A1G1:B1H1:C1I1:D1J1>f(EK:FL>i(AB2(B2)4700e9C4620t9HA1A2:3419RC2(C2)47109W45809\C2( 010650>n(A110400>x(B110550>(C010580>(D110600>(B110393>(C010395?(A"("B"("X")+"C")":10397(?(C010396F?(A"(-"X"+"C")":10397i?(A"("B"("X")"C")":10397?(A"(-"X""C")":10397?(" 1"MULTIPLY BY WHAT VALUE";1Z2" MULTIPLY BY "Z""275002EEZ:FFZ%2ZV2" DIVIDE BY "Z""`27500p2EEZ:FFZ2 " COMBINE LIKE TERMS"2 D 8,209,10! 14,239,10, 12,143,10 " 18,209,10, 25,30,10&" 12,143,4 , 11,48,10A" 11,48, 4, 9,104,10]" 14,24,10, 12,143,24x" 4,180,10, 4,180,17" 4,180,10, 4,180,4" 4,48,10, 3,187,10" 3,134,10" 12,143, HERE ------- S54272:LSS24:L,0:L !*T3500035180!!4N:T,N:T: 2430 12,143,24, 14,239,17W!H 12,143,10, 12,143,3s!R 16,195,10, 12,143,10!\ 11,48,10!f 12,143,24, 18,209,17!p 12,143,10, 12,143,4!z 19,239,10, 1 0*BAB:CAC:A10/B0C0A004B1A1B1:C1A1C1:A1119B10C10A10 1>3411CZC1D" ADD "Z""M1H7500j1\"SUBTRACT WHAT VALUE";q1aZ1b" SUBTRACT "Z""1f7500 0/B$"DIV"45000"' ":"":A$:201060"INAPPROPRIATE COMMAND "F0O11000:|0"& ":20000 " DISTRIBUTE" 11,48,4 , 9,104,10#L 14,24,10, 12,143,24$V 50,60,10, 50,60,18.$` 50,60,10, 50,60,10I$j 50,60, 4, 50,60,10_$t 50,60,10, 255$~ MUSIC CONTINUED *$ T3520035298 3$ T,((1)4010):T1,((1)23012):T 24, 14,239,17" 12,143,10, 12,143,4# 16,195,10, 12,143,10# 11,48,108# 12,143,24, 18,209,17S# 12,143,10, 12,143,4o# 19,239,10, 18,209,10#$ 14,239,10, 12,143,10#. 18,209,10, 25,30,10#8 12,143,4 , 11,48,10#B "A1"(-X"C1")"E"= "F"".A10T(T(T1)))"+"/A11B10T(T(T1)))"+"/:"/A$1/B$(A$,3)@/C$(A$,1)R/C$"H"12040e/B$"DIS"2080x/B$"COM"2500/B$"ADD"3000/B$"SUB"3500/ B$"MUL"400(T1)))""A1"("B1"X+"C1")"E"= "F"":1990-E01985).T(T(T1)))""A1"(-X"C1")+"E"= "F"":1990a.T(T(T1)))""A1"(-X+"C1")"E"= "F"":1990.T(T(T1)))""A1"("B1"X"C1")"E"= "F"":1990.T(T(T1)))" T110:NM$(T)"---":SC(T)1500:T:2:2630:& T 1 10& 2,NM$(T),SC(T)$& T : 2,&( 152&2 W&< * WRITE HI-SCORES *w&F 5,8,5,"@0:WORM SCORES,S,W"&P T1 10&Z 5,NM$(T)","SC(T)&d T : 5&n &x * CHEC2,1:T$ 35299,255% RESET THEME MUSIC  *% 1020,184: 1021,136(% 1022,335% 1023,DLO% 54277,8 : 54278,8`% 54296,12: % * GET HI-SCORES  *% 2,8,2,"0:WORM SCORES,S,R"% 15,8,15:15,A$% A$"62"B1"X+"C1""E"= "F"":1991,E01975-T(T(T1)))"-X"C1"+"E"= "F"":2000C-T(T(T1)))"-X+"C1""E"= "F"":2000w-T(T(T1)))""B1"X"C1""E"= "F"":1991-T(T(T1)))"-X"C1""E"= "F"":2000-T(TC01262+T(T(T1)))"+X+"C1"= "F"":2000,T(T(T1)))"+X"C1"= "F"":2000G,T(T(T1)))""B1"X = "F"":1991t,T(T(T1)))""A1"X = "F"":1990, T(T(T1)))" +X = "F"":2000,T(T(T1)))"""SC(T)( T( (" * INPUT INITIALS *#), " YOUR SCORE OF"TS"ENTITLES YOU TO"Q)6 "ENTER YOUR INITIALS IN THE WORMSHOT"p)@ "HALL OF FAME! ";)J "";:NM$"": T1 3)T I$:I$"" 2900)^ I$;:NM$NM$I$)h LUE";3 Z3 90003 "& "4 35L9)"ADD "Z""4 75004 FFZ,4 A1D13080@4 A11D113090O4 EEZ:341_4 CZ03100i4 3060z4 C1Z031104 30704 C0:3414& C10:3414 "1)))""A1"("B1"X) = "F"":1990*E01290*E01242'+T(T(T1)))"+X+"E"= "F"":2000R+T(T(T1)))"+X"E"= "F"":2000r+T(T(T1)))" X"+T(T(T1)))" + = "F+T(T(T1)))" "D1:2000+X"E"= "F"":1990)T(T(T1)))" "A1"X"*T(T(T1)))" + = "F4*T(T(T1)))" "D1:2000B*C01212w*T(T(T1)))""A1"(X+"C1") = "F"":1990*T(T(T1)))""A1"(X"C1") = "F"":1990*T(T(TT1)TP( TN$NM$(T) : NM$(T)NM$(T1): NM$(T1)TN$ : )( * DISPLAY HIGH SCORES *_( " *** WORMSHOT HALL OF FAME *** "( "& "( T1 10( " "NM$(T)" K FOR HIGH SCORE **& TSSC(10) %' SC(10) TS:2860:NM$(10)NM$: SORT SCORES *>' SW0: T9 1 1l' SC(T)SC(T1) SW1: 2760' T: SW 2710' 2630' ' TPSC(T) : SC(T)SC(T1): SC( = "F(T(T(T1)))" "D1:2000(C101172$)T(T(T1)))""B1"X+"C1"= "F"":1991T)T(T(T1)))""B1"X"C1"= "F"":1991b)E01280p)E01192)T(T(T1)))""A1"X+"E"= "F"":1990)T(T(T1)))""A1" 1A125602 D11A1125702 B1C025802 B11C1025903 A1D12600 3 3413 EEC:C0:252033 EEC1:C10:2530E3 BA:A1:2540Z3 B1A1:A11:2550n3( A11D112610w3- 34132 BBB1:B10:A103< 3413 "ADD WHAT VAER. >ILES USED: &- RECTION. OR AN EXAMPLE, THINK OF THE FOLLOWING AS PART OF A PLAYING BOARD    OU COULD FORM THE WORD ""   FROM THE";:IJ" PROGRAMS ON ."::"LEASE RESPECT THIS POLICY:"wLJ:"O NOT ALLOW UNAUTHORIZED COPIES":29)"TO BE MADE."NJ:"(CHOOLS MAY MAKE A COPY FOR EACH -64.)"QJ:"YPE THEN PRESS <> TO RETURN TO ." N(T1)))" "D1:2000E01170 B11964 C10967 E01970T T(T(T1)))""B1"X+"C1"+"E"= "F"":1991c C101971q E01973 T(T(T1)))"-X+"C1"+"E"= "F"":2000 E01974 T(T(T1)))""B1"  +"E"= "F:916T(T(T1)))" + "E"= "F*T(T(T1)))" "D1:20009D111140GE01160kT(T(T1)))" "B1"X"xE0943T(T(T1)))" + +"E"= "F:944T(T(T1)))" + "E"= "FT(TE01210!T(T(T1)))" "A1"X""E010030"T(T(T1)))" + +"E"= "F:1004S"T(T(T1)))" + "E"= "Ft"T(T(T1)))" "D1:2000"E01210"C101023"E01025"T(T(T1)))""A1"(X+"C1")+"E" (X0): B(X0)C(X0) PB(X0): DOES STUFF/  200Q  RECONNECT TO BOOT PROGRAM "LOAD"(34)"TEXT BOOT" (34)",8":"RUN" 631,13:632,13:198,2: ,X1(X$): NN1: PX1 RR1: CONVERT CHARACTER, ADD ONE 1 P0380F ^ ""(P)"";: SHOW PREDICTION ON SCREENz |CL(214):CC(211): "SCORE:"R; ~783,0:781,CL:782,CC: 65520 C(X0)B(X0): B(X0)A(X0): A(X0)X1: X0X1: SHIFT IN NEW INFORMATION% PAX"C1"+"E"= "F"":1991 C10972-!T1TL5L65:T(T(T1)))" "B1"X+"C1:973`!T1TL5L64:T(T(T1)))" "B1"X"C1!T(T(T1)))" +  "!T1)" = "F!T(T(T1)))" "D1:2000!D111180!3#T(T(T1)))" "A1"(X"C1")$ T(T(T1)))" +  = "F=$ T(T(T1)))" "D1:2000K$E01220Y$E01052$T(T(T1)))""A1"("B1"X)+"E"= "F"":1990$T(T(T1)))""A1"("B1"X)"E"= "F"":1990 WAIT FOR USER TO TYPE A LETTER< X$"_"63000n LL1:L38::: L0:NLNL1:NL7190 ""(8);X$;: BACKSPACE-THEN PRINT CHOSEN LETTER ,X1(X$): NN1: PX1 RR1: CONVERT CHARACTER, ADD ONE 1ҟ ] ELECTS /"xÙ" [  ҟ ] CROLLS ENU"Ù" [ ş ] ELECTS IGHLIGHTED TEMS"Ù" [؟] XITS";Ù"";:51200:5 ÀS(  "HEADER STUFF"ZÙ="F"":1990"E01026#T(T(T1)))""A1"(X"C1")+"E"= "F"":1990R#T(T(T1)))""A1"(X+"C1")"E"= "F"":1990#T(T(T1)))""A1"(X"C1")"E"= "F"":1990#C101032#T(T(T1)))" "A1"(X+"C1")":1031230%BE01250%LT(T(T1)))" X"&ME01103+&NT(T(T1)))" + +"E"= "F:1104L&OT(T(T1)))" + "E"= "Fl&PT(T(T1)))" "D1:2000z&VE01260&`C101123&aE01125&bT(T(T1)))"+X+"C1"+"E"= "F"5)" ݙ OADSTAR AYLOAD UMBER "NU$;"";(221)\Ù6)"";:(D$,27);:""]Í59000^ËAF57000_ËRF58000cÙ"";(D$,38);"";4dÁI115:"& ";: KeÙ"";(D$,38);"";unÙ" [  ÄEOYÀS(  "HEADER STUFF"ZÙ$$T(T(T1)))" "A1"("B1"X)"%%T(T(T1)))" +  = "F7%&T(T(T1)))" "D1:2000F%.C101072%/T(T(T1)))""A1"("B1"X+"C1") = "F"":1990%0T(T(T1)))""A1"("B1"X"C1") = "F"":1990%8D11BY STARTING AT THE TOP , GOING DOWN TO AND AND THEN BACK UP AND TO THE RIGHT (DIAGONALLY) TO THE . HEN THE TIME IS UP, YOU SHOULD COMPUTE YOUR SCORE AND INPUT IT FOR THAT ROUND. HE COMPUTER WILL KEEP A RUNNING TOTAL SCORE FOR EACH PLAYE ":2000&cE01126'dT(T(T1)))"+X"C1"+"E"= "F"":20009'eT(T(T1)))"+X+"C1""E"= "F"":2000i'fT(T(T1)))"+X"C1" "E"= "F"":2000x'jC101132'kT(T(T1)))" X+"C1:1133'lT(T(T1)))" X"C 1'mT(T(T1)))" + = "F(nT(T(T1)))" "D1:2000(tE01270 (~E01152P(T(T(T1)))""B1"X+"E"= "F"":1991(T(T(T1)))""B1"X"E"= "F"":1991(T(T(T1)))" "B1"X"(T(T(T1)))" +  YOU HAVE TO LOOK FOR WORDS. EMEMBER, THE WORDS CAN GO IN ANY DIRECTION. OR AN EXAMPLE, THINK OF THE FOLLOWING AS PART OF A PLAYING BOARD OU COULD FORM THE WORD "" 1 &- M, YOU CAN NOT IT FROM THE ENVIRONMENT. F YOU WISH TO IT, SIMPLY " ",8 AND THEN . HIS PROGRAM IS COPYRIGHTED BY ICROCOMPUTERS MAGAZINE. LL RIGHTS TO   mE01990nT(T(T1)))" +  = "F,oT(T(T1)))" "D1:2000;pC101080JzD111110XE01130fC10912T(T(T1)))" X+"C1:913T(T(T1)))" X"C1E0915T(T(T1)))" +  E PROGRAMS, PLEASE DO NOT USE LOWER-CASE LETTERS OR PUNCTUATION MARKS. O EXIT ANY OF THESE THREE PROGRAMS, PRESS THE LEFT ARROW KEY (_ UPPER-LEFT OF KEYBOARD). **** **** HE ROUTINES TO DISPLAY THE TEXT HAVE BEEN MODIFIED BY LAN ARDNER. -2, PREDICTS THE NEXT CHARACTER ON THE BASIS OF WHAT HAPPENED TWO TIMES OUT OF THREE IN THE PAST. HE LAST VERSION, NAMED -3, SCANS PRIOR INPUT AND LOOKS FOR PATTERNS OF THREE OR LESS CHARACTERS. HILE RUNNING ANY OF THES  HIS PROGRAM IS COPYRIGHTED BY ICROCOMPUTERS MAGAZINE. LL RIGHTS TO IT ARE RESERVED.  HAS RELIEVED YOU FROM THE BURDEN OF KEYING IN THIS  PROGRAM. OR MORE COMPLETE INFORMATION ABOUT THIS PROGRAM, REFER TO THE UGUST HEREFORE, THE LISTINGS IN THE MAGAZINE WILL EXACTLY MATCH THOSE ON THIS DISK. LSO NOTE THAT YOU MAY TYPE FOR A WHILE WITHOUT GETTING ANY RESPONSE FROM THE COMPUTER. T TAKES SOME TIME FOR THE COMPUTER TO 'LEARN' THE CORRECT PATTERNS.  R ORM",2,ORDER FORM,1/"EEDBACK ISK AKER",2,F.B MAKER.1,<>!,,!,BPFp8J" ҠIS NOT PUBLIC DOMAIN."=J" ҠIS UNPROTECTED FOR YOUR"BJ28);"CONVENIENCE.":"E WANT YOU TO BE ABLE";GJ" TO COPY, MODIFY, AND LEAR 1985 ISSUE OF OMMODORE  ICROCOMPUTERS AGAZINE. >ILES USED: -1  -2  -3 &- SOME TIME FOR THE COMPUTER TO 'LEARN' THE CORRECT PATTERNS. /Y646,C%((S$)):"HE DISKETTE CURRENTLY IN YOUR DRIVE IS"jYI1$"\"" NOT A REGULAR ISSUE.":24000Y" SIDE "S$" OF Ҡ"(((N1$N2$)),2)"."]646,C%(IX(K,.)):""17(IX$(K,.))2);Q$;IX$(K,.);Q$;" IS ON2 &- M, YOU CAN NOT IT FROM THE ENVIRONMENT. F YOU WISH TO IT, SIMPLY " ",8 AND THEN . HIS PROGRAM IS COPYRIGHTED BY ICROCOMPUTERS MAGAZINE. LL RIGHTS TO  K$" "63002:63000:^%0u READ SIDE INDICATOR72u63000:63002m4u8,8,8,"#":15,8,15,"UA:8 0 18 0":15,"B-P:8 154"5u#8,N1$,N2$,A$,A$,A$,S$,A$,A$,I1$,I2$:8:15:u646,C%(IX(K,.)):V32,C%((S$))Du(S$)IX(K,.) 23000Iu6553"]" SIDE"IX(K,.)"OF "IN$"."J]" NSERT THAT SIDE, PLEASE"X]19)"&"v]12)"PRESS SPACE BAR"]" OR PRESS ΒTO RETURN TO MENU"]:" ( SUGGEST YOU TURN THE DISK OVER.)]198,.:198,1:K$:)" "B1"X+"C1:774*T1TL5L65:T(T(T1)))" "B1"X"C1LT(T(T1)))" +  "YE0777sT1)" +"E"= "F:778 T1)" "E"= "F T(T(T1)))" "D1:2000 T1TL66:T(T(T1)))" -X+"C1:774E0725E0726T(T(T1)))" +"E"= "F"":2000CT(T(T1)))" = "F"":2000jT(T(T1)))""E"= "F"":2000xB11880C10920D11950E0970C10773B11779T1TL5L65:T(T(T1)) (34)IX$(K,1)(34)",8":"RUN"#Y6400,0:44,25:198,2:W^"LOAD"(34);IX$(K,1);(34)",8":"RUN"h631,13:632,13:198,2:65535,10(S$)IX(K,1):I.24:SI,.::S1,100:S2,100:S5,10:S6,2S24,15:S4,33:DL1600::5,10(S$)IX(K,1)/NuIX$(K,1)"PRESENTER"(597)06400,0:44,25:q@53281,.:"AUNCHING "IX$(K,.);"";|J599,0OI023:SI,0:P198,0:631,13:632,13Q IX$(K,1)"PRESENTER"597,0:40030T"L"Dž T(T(T1)))" "D1:20004D111040>E01060@HT(T(T1)))" "A1"("B1"X)"MIE0843zJT(T(T1)))" +  +"E"= "F:844KT(T(T1)))" +  "E"= "FLT(T(T1)))" "D1:2000RE01070\ C10980D111010 E01030*C10812F+T(T(T1)))" "A1"(X+"C1")":813q,T(T(T1)))" "A1"(X"C1")"~-E0815.T(T(T1)))" +  +"E"= "F:816/T(T(T1)))" +  "E"= "F0B SPZD_K DL@I Iؓw    (3  3IX 24,32:!I024:SI,0::S1,40:S2,40:S5,10:S6,2LS24,15:S4,33:DL1600::S4,32:؀ـ IsQNNA S I C SIB S( IHIo TCO@C1CX KKp 1990fB11873gC10875-hT(T(T1)))" "A1"("B1"X+"C1")":877;iC10876mjT(T(T1)))" "A1"(-X+"C1")":877kT(T(T1)))" "A1"("B1"X"C1")":877lT(T(T1)))" "A1"(-X"C1")":877 B11864]C10867^E01980:_T(T(T1)))""A1"("B1"X+"C1")+"E"= "F"":1990I`C101981WaE01983bT(T(T1)))""A1"(-X+"C1")+"E"= "F"":1990cE01984dT(T(T1)))""A1"("B1"X"C1")+"E"= "F"":-- IS , YOU NEED TO HAVE A FORMATTED DISK ON HAND. HIS PROGRAM IS COPYRIGHTED BY ICROCOMPUTERS MAGAZINE. LL RIGHTS TO  IT ARE RESERVED.  HAS RELIEVED YOU FROM THE BURDEN OF KEYING IN THIS  PROGRAM. OR MORE C DS";:T2" ";:% " TO SORT"NN"ELEMENTS."N " "g 198,0:198,1:198,0m  '""11)"SORT COMPARISON":53281,0:53280,5 '17)"BY" '12)"ALAN GARDNER" '"LOADSTAR IS NOT PUBLIC DOMAIN,  SORT 2000 : __ PRINT TIME" ( :. :j "BEFORE :"::X0NN1:A$(X)(65(1)26):A$(X);:v :::| : "SORTING...":TI$"000000"  : "AFTER :"::X1NN:A$(X);::: T(TI60) "IT TOOK"T"SECON **"4N" 1. MODIFIED INSERTION"5>N" 2. SHELL SORT"WHN" 3. SHELL-METZNER SORT"RN" 4. MACHINE-LANGUAGE SHELL-METZNER"TN" 5. EXIT PROGRAM"\N"WHICH ?";fN198,0:198,1:Z$: Z(Z$) pNZ$""(Z$) BUT FEEL"''"FEEL FREE TO USE ANY OF THE SORT "V'"ROUTINES FOUND IN THIS PROGRAM IN YOUR"l'"OWN PROGRAMS."$'" PRESS A KEY TO CONTINUE".'198,0:198,1:198,08' N MENU/SELECTION*N" *** MENU * 0L1L3:T(T(T1)))" "A"(X"C")":650"B1644XT10L1L2:T(T(T1)))" "A"("B"X)":650T9L1:T(T(T1)))""A"(-X)":650A1647T13L1:T(T(T1)))""A"X":650T11:T(T(T1)))" -0Z0Z5 20070&zNZ90,19,200,400,630001N20N CONNECT BACK TO L.S.""LOAD"(34)"PAYLOAD"(34)",8":"RUN",631,13:632,13:198,2: 8,08' N MENU/SELECTION*N" *** MENU * (T1)))""A"("B"X"C")":650@^T9L1L3:T(T(T1)))" "A"(-X"C")":650MbD1645plT12L1:T(T(T1)))A"X"mT(T(T1)))""nT1)D:650vC0635wT9L1L3:T(T(T1)))""A"(X+"C")":650{T1))" " QT2)D:6503ST9L1:T(T(T1)))A"(-X)":592AXB1603NYC0605ZT10L1L2L3:T(T(T1)))""A"("B"X+"C")":650[C0606\T8L1L3:T(T(T1)))""A"(-X+"C")":650 ]T11L1L2L3:T(TX"T14:A10720 A11730B11780&C108204D11850AE0870PB11713^C10715T(T(T1)))" "A1"("B1"X+"C1")":717C10716T(T(T1)))" "A1"(-X+"C1")":717 T(T(s, AND THEN USE ON IT TO BE SURE. ILES USED: &-   *  *  . OST COPY PROTECTION SCHEMET1)))" "A1"("B1"X"C1")":717:T(T(T1)))" "A1"(-X"C1")":717GE0719T(T(T1)))" +  +"E"= "F:T(T(T1)))" "D1:2000T(T(T1)))" +  "E"= "F:T(T(T1)))" "D1:2000ROCOMPUTERS MAGAZINE. LL RIGHTS TO IT ARE RESERVED.  HAS RELIEVED YOU FROM THE BURDEN OF KEYING IN THIS  PROGRAM. OR MORE COMPLETE INFORMATION ABOUT THIS PROGRAM, REFER TO THE UGUST 1985 ISSUE OF OMMODORE  ICRT12L2:T(T(T1)))B"X",T(T(T1)))""=T1)D:650KB1493XC0495T12L2L3:T(T(T1)))""B"X+"C"":650C0496T11L3:T(T(T1)))"-X+"C"":650T13L2L3:T(T(T1)))""B"X"C"":650#T12L3:T(T(T1)))"-X"C"":6500D1540QT12L7:T(T(T1)))"X"bT1)""sT1)D:650C0525 T10L3:T(T(T1)))"X +"C"":650 T12L3:T(T(T1)))"X"C"":650B1532T1[OCOMPUTERS AGAZINE. >ILES USED: &- IT AS A SUB-ROUTINE. FTER YOU HAVE MADE ANY CHANGES TO YOUR PROGRAM, YOU CAN DELETE THOSE TWO LINES FROM YOUR PROGRAM. HIS PROGRAM IS COPYRIGHTED BY ICHIT A KEY TO START""S$:S$"" 1570#,H6 TAIL SOUND ROUTINE  *N@:ZJS54279hT S6,240u^ S4,17h A1 10r X 1 255 25| S1,X2 X A S4,16 MET 3L2:T(T(T1)))""B"X":6508T12:T(T(T1)))"-X":650JA10E0543jT13:T(T(T1)))"X"s65012)"" 12)"šX = "F:21)""!12)"""34)"CHECK":10340&C06100 D1630:C0575-;T9L1L3:T(T(T1)))A"(X+"C")"O<T(T(T1)))" "`=T3)D:650?T10L1L3:T(T(T1)))A"(X"C")":572DD1640NB1595OT10L1L2:T(T(T1)))A"("B"X)"PT(T(T1)1)"";:C(C):1500""(142) C$:) CONNECT BACK TO L.S.\""LOAD"(34)"PAYLOAD"(34)",8":"RUN",631,13:632,13:198,2: ":"":53281,07)""T$:7)"  "7)""T$: 3,141 4,212,173,255,3,133,182,108  46,3,32,88,3,76,107,34  120,173,254,3,41,254,141,4T  212,173,46,3,141,20,3,173r  47,3,141,21,3,169,0,141  0,212,141,1,212,88,96,256  - YOUR PROGRAM -  - CONTINUES  " n"TER TWICE IN THE SAME WORD. "=x" HIT A KEY GENTLY "U T$: T$"" 1410[T$" ":C0:C$"":"":53281,07)""T$:7)"  "7)""T$: X 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 OYSTICK POSTION ARROW "[\F$:F$""7260lfF$"H"7500}pF$""7216u7260L"COMMAND: LOAD SAVE EDIT HELP QUIT "V SPRITE  0 0 0 0 0 0 0 0 0 0 0 0 3 255 192 4 0 32 9 223 32 9 81 32 17 223 62 48 0 2 28 0 58 19 253 230 18 0 36 12 0 24 0 0 0 0   THE WORDS THAT "!<"EVERYONE ELSE FOUND, THEN ADD YOURS UP,"QF"ACCORDING TO THE INSTRUCTIONS ON THE "}P"SCREEN. BE SURE TO LOOK FOR WORDS INZ"ANY SNAKE-LIKE DIRECTIONS YOU CAN FIND "d"THEM, AS LONG AS YOU DON'T USE ONE LET- IT A KEY198,0:198,1:198,02 " TO PLAY, JUST FOLLOW THE SCREEN PROMPTS"a"TO SET UP THE GAME. WHEN COMPETING WITH""ANOTHER PERSON(S), EACH OF YOU WRITE "("DOWN THE WORDS YOU FIND. TO TOTAL YOUR "2"SCORE, FIRST MARK OUT OPYRIGHT 1985"6 :::" IS NOT PUBLIC DOMAIN."e :" LEASE RESPECT THE AUTHOR'S RIGHTS." :" RESS SPACE BAR TO CONTINUE." CC148:K$:K$" "60130 CC1(C$,C2,1)"";:C(C) :60100 C$: CO (C)15)1:" 50)" PROGRAM ABORTED "H S,27:I11500::808,237:63000 `T$" ":C0:C$"":"":53281,0 ~Ꙧ7)""T$:7)" RITE UARD " Ꙧ7)""T$::18)"BY" :14)".. OBER" :12)"TRUCTIONS *"":" THIS IS AN ENJOYABLE WORD SEARCH GAME"i"FOR ONE TO FIVE PLAYERS. THE COMPUTER ""GENERATES A SQUARE BOARD OF LETTERS (YOU""PICK THE SIZE!) THAT IS FULL OF WORDS."" H PS(T)HS HSPS(T):WWT:1170- PS(T)HS AG1: 11104Tq" "NM$(WW)" WINS!"B$" PLAY AGAIN?(Y/N) " T$: T$"" 1200 T$"Y" "":63000 INS" T(T(T1)))" "D:650# B14400 C0470= D1490K B1433X C0435 T11L2L3:T(T(T1)))B"X+"C:437 C0436 T11L3:T(T(T1)))"-X+"C:437 T12L2L3:T(T(T1)))B"X"C:437 T11L3:iNNECT TO L.S.4""LOAD"(34)"PAYLOAD"(34)",8":"RUN"Y,631,13:632,13:198,2:  ":C0:C$"":"":53281,0 ~Ꙧ7)""T$:7)" RITE UARD " Ꙧ7)""T$::18)"BY" :14)".. OBER" :12)".AG1:WC0: B$" "48T1NP: PS(T)MS AG0: WCWC1IBT: WC0 1150OLV"TIE GAME CALLS FOR A PLAYOFF ROUND!"`"ALL PLAYERS PARTICIPATE!"j T1 1000: T:AG1t~HS0:T1NP: : T:" ":9701 TALLY SCORE ***SD$" " T1 NP: D$ NM$(T)"'S SCORE: "PS(T) "ENTER THIS ROUND'S ";RS$PS(T)PS(T)RS : TS MODIFY THE DISK IN ONE WAY OR ANOTHER. S THIS PROGRAM CHANGES THREE BYTES IN THE ALSO, IT COULD RENDER THE COPY PROTECTED DISK UN-USABLE. T HAS NO SUCH ADVERSE EFFECT ON ANY OTHER DISK. F YOU HAVE ANY DOUBTS, MAKE A COPY OF THE DISKT(T(T1)))"-X"C-T(T(T1)))" ">T2)D:650KC0500XD1520eC0467T11L3:T(T(T1)))"X+"C"T(T(T1)))" "T1)D:650T12L3:T(T(T1)))"X"C:465D1530TER YOUR NAME";:NM$(T): NM$(T)(NM$(T),8)T/ L$"S" F1B L$"M" F2U L$"L" F3jDL100SZF1.25"WHAT SCORE DO YOU WANT TO PLAY TO";MS MS25 MS1000 1010"BE REAL!(25-1000)"T1 1000"M"L$"L"860H"TRY AGAIN...":T11000:TFR" ": 810p\"HOW MANY PLAYERS(1-5)": ""f T$: T$ "" 870p T$"1"T$"5""TRY AGAIN...":T1800:T:860zNP(T$)T1NP"PLAYER"T" ENHE NORMAL OPERATION OF THE DISK. T IS SIMPLY AN EASY WAY TO ASCERTAIN THAT THE DISK HAS BEEN ' '.  * *  . OST COPY PROTECTION SCHEME E '2' IN THE DISK'S DIRECTORY IS REPLACED WITH '', INDICATING THE DISK IS . HEN THE DISK IS - WITH THIS PROGRAM, THE '2' IS REPLACED AS NORMAL. HIS CHANGE IN THE DIRECTORY HEADER IS COSMETIC ONLY AND HAS NO EFFECT ON T TED WITH ' ', IS TO RE-FORMAT THE DISK, OR USE ' ' TO - IT. BVIOUSLY, UNLESS YOU WISH TO LOSE ALL THE DATA ON THE DISK, THE SECOND OF THESE TWO CHOICES IS THE MOST LOGICAL. HEN A DISK IS WITH THIS PROGRAM, TH :18)"BY":14)"OE ARRETT":12)"OPYRIGHT 1985"J:::" IS NOT PUBLIC DOMAIN."y:" LEASE RESPECT THE AUTHOR'S RIGHTS.":" RESS SPACE BAR TO CONTINUE."CC148:K$:K$" "1540CC1(C$,C2, *** *** RITTEN BY: .. OBER O, THIS PROGRAM HAS NOTHING TO DO WITH YOUR PERSONAL HYGIENE, UNLESS YOU CONSIDER LOSING YOUR TEMPER A HEALTH HAZARD -- THAT IT MAY PREVENT. HIS PROGRAM WILL 'SOFTWARE' WRITE- PROTECT $A$(I) A$(I)A$(IS)" A$(IS)T$9 "Z1:53280,(1)15@ ,IU @(Z1)(S1)220r J2000 : __ PRINT TIMEx T~ ^: h:  M/L SHELL METZNER 500 : __ SET ARRAY 1000 : __ SET TIME=00 49152A$(0): ___  T.EZDIR BOOT  -1 SIMPLY KEEPS TRACK OF PRIOR INPUT AND CHECKS FOR PATTERNS. HEREFORE, IF YOU HAVE PREVIOUSLY TYPED '', THEN THE NEXT TIME YOU TYPE THE LETTER '', THE PROGRAM WILL PREDICT THAT THE NEXT CHARACTER WILL BE AN ''. HE SECOND VERSION,  AND EVEN DIAGONALLY. HE LONGER THE WORD THE BETTER YOUR SCORE. HE GAME IS PLAYED AGAINST ONE OR MORE OPPONENTS AND THE FIRST TO SCORE A SET NUMBER OF POINTS IS THE WINNER. N THIS VERSION, YOU CAN SELECT THE BOARD SIZE AND THE AMOUNT OF TIME '%- : 10 2,8,2,"" : 20 =0 62 30 #2, : 40 832+, : 13*64=832 50 60 2 : 70 : 80  90 92 . 94 : Y THE WAY, THE FILE '' IS REALLY ON THIS ISSUE OF . T CAN BE FOUND ON IDE 1. T WAS CREATED BY HOMAS ARKEL. ILES USED: -":T$"":B$""HL$(L$,3)(L$,SZ2)bT$(T$,3)(T$,SZ2)|B$(B$,4)(B$,SZ2)S$(S$,12SZ)C$(C$,14(4SZ)) *** SET UP ***53280,5 :53281,4"  COMPUTER ATTEMPTS TO PREDICT THE NEXT LETTER BEFORE THE USER PRESSES THE KEY. IS ACTUALLY A COLLECTION OF THREE PROGRAMS. HEY ALL TRY TO PREDICT THE NEXT KEY TO BE TYPED, BUT THEY GO ABOUT IT IN DIFFERENT WAYS. A$(I)A$(IG):A$(IG)T$:N1:53280,(1)158 <I:N140N FG(G2):G140j P2000 : __ PRINT TIMEp Wv X: Z MODIFIED INSERTION \500 : __ SET ARRAY _1000 : __ SET TIME= 00 dX0NN1 nYX1NN% xA$(X)A$(Y)T$ A$(X):A$(X)A$(Y):A$(Y)T$:53280,(1)15/ Y:XK 2000 : __ PRINT TIMEQ W :p SHELL/METZNER SORT 500 : __ SET ARRAY 1000 : __ SET TIME = 00 SNN Z0 S((S1)2) I1NNS A$(I)A$(IS)300 T(98(1)1):140:BD(T,P)CD(TT):P:T5 Z QC0 160W dA1 QC: TQ(A,1): PQ(A,2) n P1SZ BD(T,P1)21:A :160 xBD(T,P1)21:A:160 Q COUNTER & PLACE SAVER * TT70 QCQC1:Q(QC,1)T:Q(QC,2)P: S$ 1430: 1230QDL500:CD(98):"":BD(8,8): QC(20,2),PS(5),NM$(5):40e"@0:COLOR",8:(740: CD(TI):53280,0:53281,0:"":CN0:4002"WAIT, WHILE THE BOARD IS GENERATED.": QC0<660FT1SZ:P1SZ:"";T% PTT. TABULATE SCORE.": " 2 POINTS FOR EACH 2 LETTER WORD.h " 3 POINTS FOR EACH 3 LETTER WORD." " 5 POINTS FOR EACH 4 LETTER WORD." " 10 POINTS FOR EACH 5 LETTER WORD." " WORDS OVER 5 LETTERS COUNT 5 POINTS" ";C$;T$:C$;> T1SZ:"";: P1SZ:""(BD(T,P)64)"";:PZ :C$;L$ :C$;: T: B$d "";u F$"R" "%END";:CN0 T1DL:T:CNCN1:CN41".";:CN40 220 "ROUND OVER..    PRESS ANY KEY"3 | D$:D$"" 380< 230T T1 9:CD(T)1:Tl T1011:CD(T)2:T T1213:CD(T)3:T T1417:CD(T)4:T T1829:CD(T)5:T T3031:CD(T)6:T T3234:CD(T)7:T T3536:CD" FOR EACH ADDITIONAL LETTER. "I ," HIT 'R' TO REVIEW BOARD"q 6" HIT 'S' TO TALLY SCORE" @F$: F$"" 320 J F$"S" 1020: AG "":50 T F$"A" ^ F$"R"320 h160 r" :TDT7780:CD(T)19:T'NT8186:CD(T)20:T@XT8790:CD(T)21:TYbT9192:CD(T)22:TrlT9394:CD(T)23:TvT9595:CD(T)24:TCD(96)25:CD(97)25:CD(98)26C$"":S$" ".L$" (T)8:TT3745:CD(T)9:T-T4646:CD(T)10:TFT4747:CD(T)11:T_T4851:CD(T)12:TxT5253:CD(T)13:TT5459:CD(T)14:TT6067:CD(T)15:T&T6869:CD(T)16:T0T7070:CD(T)17:T:T7176:CD(T)18HOW BIG OF A BOARD WOULD":11) "YOU LIKE (4-8)?"6 SZ$:SZ$"" 770P  SZ$"3"SZ$"9"800"INVALID SIZE":T11000:T:198,0: 760 SZ(SZ$)*"SHORT, MEDIUM, OR LONG TIME DELAY?"4 L$: L$ "" 820> L$"S"L$  A DISK. T WILL PROTECT ANY DISK FROM BEING WRITTEN TO, JUST LIKE THE WRITE-PROTECT TAB DOES, WITHOUT USING THE TAB. T, IN NO WAY, EFFECTS THE ABILTY OF THE DISK TO BE READ AS NORMAL. HE ONLY WAY TO PERMIT WRITING TO A DISK AGAIN, ONCE PROTEC A DISK. T WILL PROTECT ANY DISK FROM BEING WRITTEN TO, JUST LIKE THE WRITE-PROTECT TAB D Y%1YY8 C$""PK125Y%21YY87 C$""PK123X%1XX8W C$""PK119X%24XX8i V4,X:V5,Y{! X%(X24)81& Y%(Y44)810 ""25)"ROW"Y%" "5 32)"COL"X%" ": 3065d I1 1 (197)6V21,0:V4,99:V5,108:15A (197)3C$"Q"V21,0:6000\ C$"L"(197)44000w C$"S"(197)55010 C$"H"7000 PK126PK119PK125PK1233080 C$""C$""C$""C$""3065 C$""PK126  ,06 224,0,0,255,255,255,96,0,0,56,0,0,28,0,0,14,0,0,7,0,0,1,0,0N 0,0,0,0,0,0,0,0,0f 0,0,0,0,0,0,0,0,0~ 0,0,0,0,0,0,0,0,0 0,0,0,0,0,0,0,0,0 0,0,0,0,0,0,0,0,0  MOVING FINGER C$:PK(56320) (197)1PK11  TURN)"lF$:F$""7020vF$"H"7500F$""7020G" FUNCTION KEY (F1) LOAD A FILE "[F$:F$""7060lF$"H"7500}F$""7010F$""7060" FUNCTION KEY (F3) SAVE A FILE "F$:F$""7100 I10431046:54272I,0:I8"COMMAND: LOAD SAVE EDIT HELP QUIT ":198,0E4:15:Kp~"LOAD"(34)"PAYLOAD"(34)",8":"RUN"631,13:632,13:198,2: X HELPb" HELP-SCROLL W/ CRSR KEYS (H TO RE  *F$""7130/F$""7190'0" HIT RETURN TO FILL/UNFILL BOX ";4F$:F$""7220L>F$"H"7500]HF$""7180oMF$""7220R" CRSR KEYS/JOYSTICK POSTION ARROW "\F$:F$""7260fF$"H"7500pF$""721 F$"H"7500F$""7050F$""71007" FUNCTION KEY (F5) CLEAR SPRITE "KF$:F$""7140\F$"H"7500mF$""7090F$""7140 " FUNCTION KEY (F7) TERMINATE "F$:F$""7190 F$"H"7500  ":""EM$" -RETURN FOR MENU"YN$:YN$""5044*YN$"Y"5070P" SAVING "SF$" "s4:F$"@:"F$",S,W":4,8,4,F$W163:4,SP(W);(13)""W""1044,160:R%(0)131:55316,R%W  " " SAVING "F$""15,8,15:15,"IO":15,EN$,EM$,ET$,ES$MEN$"00"5040w"DISK ERROR ":SF$F$:F$F$",S,W":4,8,4,F$15,EN$,EM$,ET$,ES$EN$"00"5046" ' AND STORE IT IN SPRITE BLOCK 13: 10 2,8,2,"" : 20 =0 62 30 #2, : 40 832+, : 13*64=832 50 60 2 : 70 : 80 ɉP6u7260L"COMMAND: LOAD SAVE EDIT HELP QUIT " V SPRITE "KF$:F$""7140\F$"H"7500mF$""7090F$""7140 " FUNCTION KEY (F7) TERMINATE "F$:F$""7190 F$"H"7500 OV$"":OV$D$(T1$,2,(T1$))",";GT2$(SP(I1)):(T2$,2,(T2$))",";kT3$(SP(I2)):(T3$,2,(T3$))|PTPT1:I:" SAVE FILENAME-> """;:F$"  "I10431046:54272I,0:I198,0:C$"":4:15O"":T1$(SP(1)):T2$(SP(2)):T3$(SP(3))~29)(T1$,2,(T1$));:","(T2$,2,(T2$));","(T3$,2,(T3$))PT1:I4633D$"":K1PT:D$D$"":K:"";:T1$(SP(I))  S - OLUMN AND ROW NUMBER DISPLAYED - OP LINE COMMAND LINE - ELP MODE - ISPLAY OF SPRITE BEING BUILT LL OF YOUR OPTIONS ARE VISABLE ON THE TOP LINE OF THE SCREEN WHILE RUNNING THE PROGRAM. ELP IS PROVIDED BY TYPING THE '' KEY.    RITTEN BY: HOMAS ARKEL HIS PROGRAM ALLOWS FOR THE EASY CREATION, EDITING, LOADING AND SAVING OF SPRITES. OME OF ITS FEATURES ARE: - RID LAYOUT TO BUILD SPRITE IN - ISPLAY OF CORRESPONDING POKE  VALUE 1:""25)"ROW"J%" "032)"COL"I%" "GSC3I%0:J%J%1SC3SC0:""32)"COL 24" "K:896CD,SP(W):CDCD1SCSC1:W"COMMAND: LOAD SAVE EDIT HELP QUIT  ,SP(W):CSP(W)K701IX1X11:Y1Y11:X1X2X1X116:X2X123:Y1Y116:Y2Y223:4090yX%C2K:X%1X1,160:Y1,3:CC2K:4085X1,122:Y1,1:CTCT11044,160:R%(0)131:55316,R%""CT"":I%I%   HE PROGRAM SAVES THE SPRITE AS A UENTIAL FILE. O USE THE SPRITE, SIMPLY THE FILE, THE DATA AND THE DATA INTO THE CORRECT MEMORY LOCATIONS. OR EXAMPLE, THE FOLLOWING PROGRAM SEGMENT WILL THE DATA FROM A FILE CALLED ' OU 'SCROLL' THROUGH BY USING THE CURSOR KEYS (CURSOR LEFT => PAGE FORWARD, CURSOR DOWN => PAGE BACK). HE ARROW IN THE GRID IS CONTROLLED BY THE JOYSTICK OR VIA THE KEYBOARD. SE THE JOYSTICK IN ORT 2 OR USE THE CURSOR KEYS FOR MOVEMENT.   ":15:#SF$F$:F$F$",S,R":4,8,4,F$;15,EN$,EM$,ET$,ES$NEN$"00"4049x" "SF$" NOT FOUND RETURN TO CONT"YN$:YN$""40444092X1SP39:X2X123:Y1SC39:Y2Y123:CT0:SC0:I%0:J%1:CD0W163:4  0431046:54272I,0:I4" LOAD FILENAME-> "Q"";:F$y" "" LOADING "F$""15,8,1515,"I0":15,EN$,EM$,ET$,ES$EN$"00"4040"DISK ERROR ** *swapflag=1ifaswapneeds *tobedone.swapflag=0if *thestringsareinorder. * *thezflagtellstheouterloop *ifaswapoccuredinthelast *pass.ifso,thenitmakes *anotherpassunconditionally. * O```"H"h`NQ0Q` }#"mm }` m mee`"NQ` stored *inaddress2 *  GHȱiJ JLyJi8 1 "N  LQ   LL LDLD`RO0Rъ 00 2 clc adc location+1 sta b2 rts pushitinzero  * *pushthelength,addresslo, *andaddresshiintozeropage. *stringonepointerisstored *inaddress1 *stringtwopointerisstored *inaddress2 * * ldy #$00 pushin lda (pointone),y sta address1,y lda (pointtwo),y sta address2,y iny cpy #$03 bne pushin rts length hex 00 count hex 0 end hex 0 high hex 0 scount hex 0 b1 hex 00 b2 hex 00 swapflag hex 00 zflag hex 8,T3110  ARROW POINTER# ] V53248:V21,12:2042,13:X99:Y108:2043,14:V41,0 V42,0:N062:Q:832N,Q::V4,99:V5,108 N062:896N,0::V6,229:V7,76: 0,0,0,0,0,0,0,0,0,1,0,0,7,0,0,14,0,0,28,0,0,120,0@X0X1: "SHELL-METZNER.O",8,1UNN100:A$(NN1)[:f10q 20w: SHELL500 : __ SET ARRAY1000 : __ SET TIME = 00G(NN2)(N0:I1NNG) 2A$(I)A$(IG)T$A$(I): a b2 clc adc location+1 sta b2 rts pushitinzero * *pushthelength,addresslo, *andaddresshiintozeropage. *stringonepointerisstored *inaddress1 *stringtwopointerisstored *inaddress2 * * lda b2 asl clc adc b2 sta b2 lda b1 asl bcs incremit bcc noincremit incremit inc b2 noincremit clc adc b1 sta b1 bcc downtown inc b2 downtown lda b1 clc adc location bcc dontincit inc b2 dontincit sta b1 ld  START."# 198,0:198,1:198,0K SP(63):SC55336:SC%0:CX0:SP1064_  SPRITE EDITORe  "COMMAND: LOAD SAVE EDIT HELP QUIT " I10431046:54272I,0:I #" SPRITE EDITOR DATA ":U$"" 53281,15:53280,0_(142)" **SPRITE EDITOR V1**":" BY"|" TOMAR"" LOADSTAR IS NOT PUBLIC DOMAIN." " PLEASE RESPECT THE AUTHOR'S RIGHTS." " HIT ANY KEY TO 2 jsr addlocation lda b2 sta pointtwo+1 lda b1 sta pointtwo rts addlocation * *changelittlenumbersinto *thingsthatreallymean *something.theycanbe *addressedintothetableof *thearray. * * lda count sta b1 lda count+1 sta b2 jsr addlocation lda b2 sta pointone+1 lda b1 sta pointone lda count sta b1 lda count+1 sta b2 lda b1 clc adc scount bcc bisok inc b2 bisok sta b1 lda b2 clc adc scount+1 sta b 12345678901234 "8 <I10431046:54272I,0:IB d3000H n` 3050:C%(X24)81r R%(Y44)81 D1064(R%40)C%1 P55336(R%40)C%1 (D)160P,1:D,122:180 P,3:D,160:SW0 C%9XX2((8C%)1):T1(R  *I121) +I$(I):L(I$)1:I$(I$,2,L)^ ,U$""I$:28)" 0,0,0"k -U$"":I ."";:25)"ϣ" /25)" " 025)"̤" 1"123456789 12 ROW 7 COL 10 " 2" 0 heactual *stringpointers. *forexample,if(b1+b2*256)= *5thenb1andb2willbe *convertedtosomethinglike *3152. *usesthesubroutinecalled *'addlocation'.thisiswhat *addsthestartofthearray *tothenumbers. * h. * lda address1 sta length cmp address2 bmi lengthok lda address2 sta length lengthok rts findptr * *changelittlenumbersstored *inb1andb2intoaddresses *whichpointtot " ";Z ""(T1$,2,(T1$))",";s (T2$,2,(T2$))","; (T3$,2,(T3$)) C%9896(R%1)3(C%1)8,T1:110 C%17896(R%1)3(C%1)8,T2:110 896(R%1)3(C%1) %1)3:1831 C%17XX2((16C%)1):T2(R%1)3:183S XX2((24C%)1):T3(R%1)3l (D)122XXXX(1) SP(T)SP(T)XX:T1SP((R%3)2):T2SP((R%3)1):T3SP(R%3) D$"":K1R%:D$D$"":K T1$(T1):T2$(T2):T3$(T3)! D$ * ldy #$00 upthere lda (pointone),y pha lda (pointtwo),y sta (pointone),y pla sta (pointtwo),y iny cpy #$03 bne upthere rts findlength * *findlengthofshorter *stringandstoreitin *lengt * lda #$01 sta swapflag sta zflag rts swap * *actuallyswapthetwostring *pointers.length,addresslo, *andaddresshiareswaped. *nogarbagecollectiontakes *placebecauseofthis. *e  * ** *stringarraysorter* ** *writtenby * ** *alanw.gardner * * * ** *nowweactuallycompare* *thetwostrings. * ** * compare ldy #$00 bigloop lda (address2+1),y cmp (address1+1),y bm   60000F C53280:S53265:D59516:E65126:C,34:C1,2:808,234w""44)"PUT THE DISK TO GUARD OR UN-GUARD"12)"IN THE DISK DRIVE."(47)" PRESS ANY KEY WHEN READY ":240:198,0:198,1 213)" WARNING!! ":" ONCE GUARDED, O  i setswapflag lda (address2+1),y cmp (address1+1),y bne return iny cpy length bne bigloop rts return  * *thetwostringsareequal  * rts setswapflag *OMPLETE INFORMATION ABOUT THIS PROGRAM, REFER TO THE UGUST 1985 ISSUE OF OMMODORE  ICROCOMPUTERS AGAZINE. >ILES USED: .  .  .  . $- NLY RE-FORMATTING OR"A <2)"USING THIS PROGRAM WILL AGAIN ALLOW"~ F" WRITING TO THIS DISK.":11)" CONTINUE? (Y/N)":240 PK$:K$"N"250 ZK$"Y"80 d16)" OKAY " n15,8,15,"I":8,8,8,"#":15,"UA:"8;0;18;0:15,"B-P:"8;2# x43  )"ENTER 'G' TO GUARD THE DISK, OR..."P 9)"'U' TO UN-GUARD THE DISK...":240m K$:K$"G"K$"U"140 P$"UN-GUARDED.":K$"G"P$"GUARDED..." 16)" OKAY ":43)" THE DISK IS NOW BEING "P$"":240 K$"G"210 8,"A";:15,"  IS , YOU NEED TO HAVE A FORMATTED DISK ON HAND. HIS PROGRAM IS COPYRIGHTED BY ICROCOMPUTERS MAGAZINE. LL RIGHTS TO IT ARE RESERVED.  HAS RELIEVED YOU FROM THE BURDEN OF KEYING IN THIS  PROGRAM. OR MORE C  10 FILES CAN BE USED . -- PRINTS ALL CURRENT  VALUES OF  VARIABLES . - ALLOWS YOU TO CREATE A  VERSION OF ON YOUR  OWN DISKS. *** *** HEN THE . M-W";(1);(1);(1);(65)6 15,"M-W";(2);(7);(1);(65)X 15,"B-P:"8,165:8,"2A";:220~ 8,"4";:15,"B-P:"8,165:8,"WG";: 15,"UB:"8;0;18;0:8:15,"I":15:I12000: S,11:240)255)" ALL DONE ":260 I120:"* ";:::C,(‹T9L1L2L3:T(T(T1)))A"("B"X+"C")":3979 C0396k T8L1L2:T(T(T1)))A"(-X+"C")":397 T10L1L2L3:T(T(T1)))A"("B"X"C")":397 T9L1L3:T(T(T1)))A"(-X"C")":397 T(T(T1)))"   . NCLUDED ON THIS ISSUE OF ARE THESE FILES: . -- ALLOWS TO SCRATCH  UP TO 10 FILES . -- ALLOWS TO READ A  FILE AND PRINT IT  TO THE SCREEN--UP TO  USE WILDCARDS OR PATTERN MATCHING. HE COMMANDS THAT ARE WRITTEN IN LOAD INTO MEMORY SPACE, THEREFORE REPLACING WHATEVER PROGRAM WAS ALREADY IN MEMORY. N OTHER WORDS, YOU SHOULD ANY PROGRAM YOU ARE WORKING ON BEFORE USING 1 innerloop lda #$00 sta swapflag jsr findptr jsr pushitinzero jsr findlength lda address1 bne down jsr setswapflag jsr swap jmp addtocount down lda address2 beq addtocount * * jsr compare lda swapflag  tisok inc scount+1 scountisok lda scount+1 lsr sta scount+1 bcs funny lda scount lsr sta scount jmp aroundfunny funny lda scount lsr clc adc #128 sta scount aroundfunny lda high sec sbc scount sta end lda high+1 sbc scount+1 sta end+  d sta location * *'location'nowpointsthe *thefyrstsetoflength, *firstbyte,andsecondbyte. * lda high sta scount lda high+1 sta scount+1 topofloop lda #$00 sta zflag lda #$00 sta count sta count+1 inc count inc scount bne scoun  ' * address1 = 78 address2 = 81 pointone = 34 pointtwo = $fd ldy #5 lda (location),y sta high+1 iny lda (location),y sta high dec high cmp #$ff bne highisok dec high+1 highisok lda location clc adc #$07 bcc dontadd inc location+1 dontad stop lda scount+1 bne dontstop lda scount cmp #$01 beq exitsort lda scount beq exitsort jmp topofloop dontstop jmp topofloop exitsort rts * *thisrtsreturnstobasic. *itisperformedwhenscount *isequaltozero. * * beq addtocount jsr swap * * addtocount lda count+1 cmp end+1 bne incem lda count cmp end bne incem jmp exitinner incem inc count bne countisok inc count+1 countisok jmp innerloop exitinner lda zflag bne dont   location = $fb ptrset = 44446 * *timetofindthearray * jsr ptrset lda $47 sta location lda $48 sta location+1 lda location clc sbc #$06 bcs foundit dec location+1 foundit sta location * *addressofarrayisnowstored *in'location ~  * *sys49152a$(0)-sortthearray* *a$inascending* *order. * ** *written6/3/85 * ** * org 49152  RITTEN BY: ARK OBIN AGAZINE NTRY ROGRAM HIS PROGRAM IS CONTAINED IN ALL OF THE RECENT EDITIONS OF OWERLAY AND OMMODORE ICROCOMPUTERS AGAZINES. IS A MACHINE LANGUAGE PROGRAM TO ASSIS SAYS WHAT SHOULD BE ON THE PROGRAM LINE. F THERE IS SOMETHING WRONG WITH THE LINE YOU TYPE (MISSPELLING, EXTRA CHARACTERS, ETC.), AN ERROR MESSAGE WILL BE PRINTED OUT. EMEMBER THAT YOU ENTER THE FIVE CHARACTERS AT THE END OF THE PROGRAM L  ELL YOU EVERYTHING IS . HEN TYPE 49152 AND YOU'RE READY TO START TYPING. HIS PROGRAM WILL HELP PREVENT MOST 'TYPOS' THAT OCCUR WHEN TYPING IN LISTINGS. HE KEY IS THE APOSTROPHE AND THE FOUR LETTERS THAT FOLLOW IT. HIS IS A CODE THAT  HAVE "ADDED" SOME CHECKSUMS. INCE WE HAVE ALREADY DONE THE JOB OF TYPING THE PROGRAM LISTINGS FOR YOU, THERE'S NO NEED FOR YOU TO RUN FROM . E HAVE INCLUDED IT, ANYWAY. HIS PROGRAM IS COPYRIGHTED BY OMMODORE UB  INE! OU WILL GET AN ERROR MESSAGE IF YOU TRY TO ENTER A PROGRAM LINE WITHOUT THOSE 5 CHARACTERS. "" WILL DISABLE THE ENTRY PROGRAM. "" WILL ALLOW YOU TO ADD CHECKSUMS TO YOUR OWN PROGRAMS. "" PUTS YOU BACK IN NORMAL MODE AFTER YOU ILES SE &: .K: : ALGEBRA :p: :M.A.C.E. SOFTWARE CONTEST:: : JOHN ROBINSON :: : 1984 : : :.: 13000 2"":53281,0:mT PROGRAM> "LOAD"(34)"TEXT BOOT" (34)",8":"RUN"c 631,13:632,13:198,2:  BACKSPACE - THEN PRINT CHOSEN LETTER ,X1(X$): NN1: PX1  RR1: CONVERT CHARACTER, ADD ONE 1P03802 ^ "  53280,0 <Y118 =Z2 >1033Y,Z:55305Y,28 ?D FY118K GZd H1993Y,Z:56265Y,2j I _:DEFINE VARIABLES dA(18(1))9 nB(18(1))9 xB0B1 C(18(1))9 D(20(1))10 D0D1 E(20(1))10 D TEXTRAPOLATION 2/3 -- PREDICTION = 2 OUT OF 3 CHOICES BEFOREd A(255) ,B(255), C(255): RESERVE SPACE FOR SAVING LETTERSn"BEGIN TYPING...":53281,1:53280,7:198,1"":53281,1:53280,7: NL0:* X$: X$"" 210:   F(20(1))10$ A1(18(1))98 B1(18(1))9G B10B11[ C1(18(1))9p D1(20(1))10 D10D11 A0100 A10100 N1DD1F N2AD1C N3A1DC1 N4DD1E N5AD1B N6A1DB1 "M1N1  RITTEN BY: ARK IMMERMANN ANDOM HOUGHTS-ANDOMNESS IN ANGUAGE OMMODORE ICROCOMPUTERS, UGUST 1985 AGE 62 IS A DEMONSTRATION OF THE REDUNDANCY OF THE NGLISH LANGUAGE. S WORDS ARE TYPED IN, THE  N2N3N4 ,M2N5N6 6M20100* @XM1M2: JX(X)336C O100W PX99X99100d QX0100n R6000 STI$"000000" T"":8500 U7000 YA0650 ^A1400 hB1550 rC0580 |D1600 B1393 C0395,  RITTEN BY: OE ARRETT IS LIKE THE OLD GAME OF OGGLE. HE COMPUTER SHOWS YOU A BOARD OF LETTERS--YOUR JOB IS TO FIND AS MANY WORDS AS POSSIBLE. HEN FINDING WORDS, YOU CAN MOVE VERTICALLY, HORIZONTALLY,  LD BE NOTED THAT THE FIRST LINE OF ANY OF YOUR PROGRAMS MUST BE OF THE FORM: 10 :PROGRAM NAME ALSO HAS THE ABILITY TO PERFORM A MODIFIED OF THE DIRECTORY. Y TYPING '& $', YOU CAN VIEW THE WHOLE DIRECTORY. OU CAN ALSO QC3,A9,00,8D,04,D4,60,8DW04,D4,A2,70,A0,00,88,D01XFD,CA,D0,FA,60,END4C,F7,C0,A4,FD,A9fH27,91,7A,A2,00,C8,BD,0BIC0,91,7A,C8,E8,E0,04,D0JF5,A9,00,91,7A,20,64,C3K4C,7A,C0,A0,00,B9,00,02LF0,11,C9,28,D0,03,EE,03MC0,C9,~ A$ "LOADING "F$ :S "LOAD"(34)F$(34) ",8":"RUN"x "631,13:632,13:198,2:  LINE WRITER V/64  T.PEEK-A-POKE PEEK-A-POKE T.LABEL MAKER   XDOS BOOT@ " 1. REATOR"_ " 2. ETURN TO "r"HICH ? ";198,0:198,1:A$A$"1"A$"2" 53280,(1)15:16:A$"1"F$"XDOS CREATOR"A$"2"F$"PAYLOAD"  29,D0,03,EE,04,C0NC8,D0,EA,AD,03,C0,CD,041OC0,D0,01,60,A9,05,4C,F7NPC0,A9,20,8D,00,D4,8D,01kQD4,A9,09,8D,05,D4,A9,0FR8D,18,D4,60,20,41,C3,A9S81,20,77,C3,A9,80,20,77TC3,4C,71,C3,20,41,C3,A9U11,20,77,C3,A9,10,20,77V T YOU IN TYPING IN LISTINGS FROM AND ICROCOMPUTERS MAGAZINE. O USE THE PROGRAM, TYPE IN THE FOLLOWING: " ",8 FTER THE PROGRAM HAS INSTALLED ITSELF IN MEMORY (THIS TAKES A FEW MINUTES), THE PROGRAM WILL T -- 14 RBIT ORBIT AME 0 0 ERBOSITY VERBOSITY AME 0 0 LGEBRA ALGEBRA DUCATIONAL 0 0 ORT OLLECTION SORT COLLECTION TILITY 0 0 PRITE DITOR SPRITE EDITOR TILITY 0 0 RITE UARD WRITE GUARD TILITY 0 0 ! ! ! 0 0   "(P)"";: SHOW PREDICTION ON SCREENf |CL(214):CC(211): "SCORE:"R; ~783,0:781,CL:782,CC: 65520 A(X0)X1: X0X1: PA(X0): SHIFT IN NEW INFORMATION  200  RECONNECT TO BOO  : 20 15,8,15,"0:"+$(1) 30 15 HIS WOULD ALLOW YOU TO SCRATCH A FILE ON THE DISK DRIVE AND YOU WOULD ACCESS IT LIKE THIS: & FILENAME ITH , YOU CAN CREATE ANY TYPE OF COMMAND SHORT-CUT YOU WOULD LIKE. T SHOU 0: JUMP TO DELAY IF ALARM WAS TRIGGERED BY SW 15m 2 A16 56576,(56576)251: ALARM HAS BEEN TRIGGERED| 7 A16 < B F 20 Z C1 50: C: DELAY FOR NORMAL ENTRANCE d50 EZDIR CREATOR   < 56579,15: SETS PB0-PB3 TO OUTPUT, PB4-PB7 TO INPUTSk56578,(56578) 4 : PA2 IS MADE AN OUPUTz B0 1556577,B: GENERATES BINARY COUNT ON PB0-PB3(A(56577) 16: SENSES STATE OF INPUT SELECTED BY COUNT0 - A16 B15 9  USER TO TYPE A LETTER& X$"_"63000S LL1:L38 :::L0:NLNL1:NL7190 ""(8);X$;:  BACKSPACE - THEN PRINT CHOSEN LETTER ,X1(X$): NN1: PX1  RR1: CONVERT CHARACTER, ADD ONE 1P03802 ^ " D TEXTRAPOLATION 1 -- PREDICTION = SINGLE LETTER, LATEST MATCHv"BEGIN TYPING...":53281,1:53280,7:198,1d A(255): RESERVE SPACE FOR SAVING LETTERS"":53281,1:53280,7:NL0: X$: X$"" 210: WAIT FOR  BH16L:P,B:TTB:PP1:10[ PT103233:"MISTAKE IN DATA--> CHECK DATA STATEMENTS":i Z"DONE": 4C,23,C0,00,00,00,00,00 00,00,00,00,00,00,00,0D 00,58,C1,5E,C1,66,C1,76 C1,83,C1,8F,C1,EA,EA,EA 4C,83,C0,A2,05,BD,1D,C0 )""9)"MAGAZINE ENTRY PROGRAM"I17)"BY":13)"MARK ROBIN"_"POKING-->";tP49152 : $C000 A$:A$"END"80L((A$,2,1))H((A$,1,1))(LL48:L9LL72HH48:H9HH7<"  "P; F  00,88 10,F7,A9,00,8D,18,D4,4C9 1F,C1,E6,7A,D0,02,E6,7BV 4C,79,00,A5,9D,F0,F3,A5s 7A,C9,FF,D0,ED,A5,7B,C9 01,D0,E7,20,5A,C0,AD,00 02,20,A3,C0,90,DC,A0,00 4C,EA,C1,C9,30,30,06,C9 3A,10,02,38,60,18,60,C8 B1,7A,C9,20   95,73,CA,10,F8,60,A0,024 B9,00,02,D9,3C,C1,D0,0BQ 88,10,F5,A9,01,8D,10,C0n 4C,1F,C1,60,A0,03,B9,00 02,D9,38,C1,D0,E0,88,10 F5,A9,00,8D,10,C0,4C,1F C1,60,A0,03,B9,00,02,D9 34,C1,D0,E0,88,10,F5,A0 05,B9,A2,E3,99,73,  9,11,C0,85,FB,B9,12& C0,85,FC,A0,00,A9,12,20C D2,FF,B1,FB,F0,06,20,D2` FF,C8,D0,F6,20,54,C3,20} 7E,C3,20,E4,FF,F0,FB,A0 1B,B9,3F,C1,20,D2,FF,88 10,F7,68,68,A9,00,8D,00 02,4C,74,A4,4B,49,4C,4C 54,45,53,54,41,44,44,91  ,D0,03,C8,D0! F7,B1,7A,60,18,C8,B1,7A> F0,35,C9,22,F0,F5,6D,05[ C0,8D,05,C0,AD,06,C0,69x 00,8D,06,C0,4C,BD,C0,18 6D,07,C0,8D,07,C0,90,03 EE,08,C0,EE,0B,C0,60,18 6D,0A,C0,8D,0A,C0,90,03 EE,09,C0,EE,0C,C0,60,0A A8,B  3,4845,43,4B,53,55,4D,00,50041,52,45,4E,54,48,45,53M49,53,00,C8,B1,7A,D0,FBj84,FD,C0,09,10,03,4C,C7C1,88,88,88,88,88,B1,7AC9,27,D0,13,A9,00,91,7AC8,A2,00,B1,7A,9D,3C,03 C8,E8,E0,04,D0,F5,60,4C!F2,C2,A0,00,  91,0D,20,20,20,20,20,20+20,20,20,20,20,20,20,20H20,20,20,20,20,20,91,0De51,55,4F,54,45,00,4B,4559,57,4F,52,44,00,23,204F,46,20,43,48,41,52,4143,54,45,52,53,00,55,4E49,44,45,4E,54,49,46,4945,44,00,4E,4F,20,4  ,20,AF,C0,F0,CD,24+02,F0,06,20,D7,C0,4C,12:,C2,C9,22,D0,06,20,BC,C0W-4C,12,C2,20,E7,C0,4C,12t.C2,A0,00,B9,00,02,20,A3/C0,C8,90,0A,18,6D,09,C008D,09,C0,4C,33,C2,88,A2100,B9,00,02,9D,00,02,F0204,E8,C8,D0,F4,60,18,AD3  B9,00,02,99"40,03,F0,F2,C8,D0,F5,A05#00,B9,40,03,F0,E8,99,00R$02,C8,D0,F5,20,D7,C1,4Co%56,C2,A0,0B,A9,00,99,03&C0,8D,3C,03,88,10,F7,A9'80,85,02,20,1B,C3,A0,00(20,9B,C1,20,CA,C1,20,31)C2,E6,7A,E6,7B,20,7C,A5*A0,00GUST 1985 ISSUE OF OMMODORE  ICROCOMPUTERS AGAZINE. >ILES USED: &- T.BAR GRAPHS  MICRO BOTTOMRAM WEDGE.O  RAM DISK 0B,C0,69,41,8D,0B,C0,38"4AD,0C,C0,E9,19,90,06,8D?50C,C0,4C,60,C2,AD,0C,C0\669,41,8D,0C,C0,AD,05,C0y76D,07,C0,48,AD,06,C0,6D808,C0,8D,0E,C0,68,6D,0A9C0,8D,0D,C0,AD,0E,C0,6D:09,C0,8D,0E,C0,38,E9,19;90,06,8D,0E,C0,4C,96  ,C2 <AD,0E,C0,69,41,8D,0E,C0'=AD,0D,C0,E9,19,90,06,8DD>0D,C0,4C,AB,C2,AD,0D,C0a?69,41,8D,0D,C0,A0,01,AD~@0B,C0,CD,3C,03,D0,20,C8AAD,0C,C0,CD,3D,03,D0,17BC8,AD,0D,C0,CD,3E,03,D0C0E,AD,0E,C0,CD,3F,03,D0D06,20,64,C3,4 C,7A,C0,ADE10,C0,D0,11,98,48,68,4C,FF7,C0,AD,10,C0,F0,01,60IGA9,04,4C,F7,C0,A4,FD,A9fH27,91,7A,A2,00,C8,BD,0BIC0,91,7A,C8,E8,E0,04,D0JF5,A9,00,91,7A,20,64,C3K4C,7A,C0,A0,00,B9,00,02LF0,11,C9,28,D0,03,EE,03MC0,C9, UV3UUfuUYU?M1UUU3UUUUSUU15UUVSqUUUf33UUUf??UQUf*"U%UwVVͪyg߿~]WoUYwnw]fffvnoU^[UwnUUUWu^Wۚ_zww^_UUnRu>?TDD #c3%# %* be- J*bUcS@ JjڪJJ*cCC J JjCcC' J ڪJZ ˵\]յ[ܼڥպPۼ][뫽]եܺ˺PյZ۽ӓ###%###c3cե%c#3% :)X))( :Ꚛ)( 蚚)*((((() 0  )))  = 뺽[ Pн]ۺ :Нҝ :ٝ]]]՝:]]]Չ:]]YYp:(] ]))*(]RR%)))   * * iã#    sB  *   CM * * eC%I 0eU%%eU%̰E KEeEE%E+  m S J @(J C# i I@:ښJ:P Z e*           |=======uգ:::zz׭-]z:::zzڧ*r*z::zrrz::z z::牎zzݷ*\Ԅ3TUUu KN_\TUco;O>?\THRV||#T3]ϻ@@?󿣣8==== =! !T T2! !T T!1 !T T!1 !T T2! !T T! !T Ta! !X Xa! !T T2! !T T! !X X!0 !T T!0 !T T!x !T T!T Ta!H !T T!T T2!b !bKeE%U ]  EEEEE Z e*           #@< OTw7󿣸3ϋU ϳZ@s|\ #?@?OTV,CsP"! !T TT TP P!T Ta! !X X0 !0 !T T0 !0 !T T0 !0 !X X,! !T T?*!T T%! !T T,!T T! !T T%!T T!! !T T,!T T2!0 !T T!!T T! !T T%!T T!! !T T!T T2!0 !T T2!T Ta!  !T T!T T! !T T!T Ta!H !T T!T T2!b !T Ta!T T!b !T T!T Ta!0 !T Ta!T Tb!b !T TT TUuQFWcODQ@*@.y%UUQTjjH">77uuꪪJzJ;*{:γ{s?_wtw]wn~; KhhJJRVUUDh?|**jBPՃ#2?WC|_0 =7???|UVKoL UU@@@O?9tT Ta!T T!b !T T!T Ta! !X X0 !0 !T T0 !0 !T T0 !0 !X X,! !T T?*!T T%! !T T,!T T! !T T%!T T!! !T T,!T T2!0 !T T!!T T! !T  HIS PROGRAM IS COPYRIGHTED BY ICROCOMPUTERS MAGAZINE. LL RIGHTS TO IT ARE RESERVED.  HAS RELIEVED YOU FROM THE BURDEN OF KEYING IN THIS  PROGRAM. OR MORE COMPLETE INFORMATION ABOUT THIS PROGRAM, REFER TO THE U_^u{ļDOD #DμD辫D0DD?D¨:D?< D=>D?0P| oJ5oАQXRKSO:[cMeUU]qGWPSOr ]5VVUUUVѴCCC VTBBN:VUWSGS UѻT?DODDUD{DDER)D0IDU"D0U3D12HUD UbD]3D0"\?DࠕfD "fD*dOX""<ϪvD0Uv]uoUujvggv٧jw}wfjUUUWVUU_~{jj kjjUՕD?30 000  <<??0?0;/מU ):33nkUY^k^u{iݮjjo~~޿w߿Uu^v]ZmkUj{ޛzڪ33ULU33WU333U3333Ls335333U333333333333?3UTq k {jj]UnVZjz""*333333??333333333?3333?333333333333333333333333333333s3333333333 ;???00UV@*μ.;U( ?UUUWWjyvjjoww߿γ;;;?;3λ #kjUUՕ2 ̃wpg (i)<?000 3303? 33333??33?3333?3333333333333?3:333f%93jvY{^{k ?3 33 3<333?33?3333333?3333333? ??333??nok+GDQ枧kUmyww$z^?VYfzꪩUVZj߯Z >??ϯjjjZUUUյ|XhZUժkQdXYUWfy6Ƒt}JjUjUՕUVXZz)fjoV_ 33 ?2ffUjjjUUUVV[[ozvfjw%?(?0 UUUWW]jjjzeUUV{n3? 33 3?33??????333?33???33S졊↪j_\pVJk饕UUU_\UjUUUUEURꠕjY~ꪊw꯿(ZU]uUUJhUUV+*UfVzU꫿o{W^{{6? ???33? ????????3333?^[NFN" 33?? 333??33??33zZZںjZժUꪺ꺪ꪩUWVZl*UUUUUU_U*U(UUUUUUd_Z\\\_WU﫪YYVgUW{okgow(Z j]ޖUUWU{o( 800  ZZZ?T T!0 !T T! !T T2! !T T! !T Ta! !T T!1 !X Xb!b !T Tb!b !T Tb!b !X Xa!T T!T T2! !T T!! !T T! !T T2! !T T!1 !T T ! !T T! !T T2! !T T2! !T T!H !T T2!H !T T!T T!T Ta!H !T T!H !T Ta!T T!T T!1 !X X!P P!T T!T T2! !T T!! !T T !T T ! !X X! !T T! !T T!H !T Ta!H !T T! !T Ta! !T T!H !T T2!H !T T! !T T!! !T T! !T T2! !T T! !T TN !N !T T ORMSHOT",1,WORM BOOT,.."AYLOAD ROGRAMS",1,PAYLOAD,2T."OMMODORE ROGRAMS",1,PAYLOAD,1Z.:." URVEY",2,PRESENTER,4."APERLESS AGES",2,PRESENTER,1."NFLUX",2,PRESENTER,2."ATH EFLECTIONS",2,PRESENTER,3/"RDERC?  ,27);:""]Í59000^ËAF57000_ËRF58000cÙ"";(D$,38);"";4dÁI115:"& ";: KeÙ"";(D$,38);"";unÙ" [    !T T ! !T T0 !0 !T T0 !0 !T Ta!x !T Ta!x !T Ta! !T T! !T Ta! !T T! !T Ta!H !T T2!H !T T! !T Ta! !T T!1 !X X ! !T T ! !1 !T T2! !T T! !T Ta! !T T! !T T0 !0 !T T! !T Tb!b !T Tb!b !T T!0 !X X!x !T T!T Ta!H !T T!T T2!0 !T Ta!T T!b !T  ORM",2,ORDER FORM,0/"EEDBACK ISK AKER",2,F.B MAKER.1,;>!,,!,APFo8J" ҠIS NOT PUBLIC DOMAIN."=J" ҠIS UNPROTECTED FOR YOUR"BJ28);"CONVENIENCE.":"E WANT YOU TO BE ABLE";GJ" TO COPY, MODIFY, AND LEARN@00006w666 `aa(a ?????  ";: KeÙ"";(D$,38);"";unÙ" [  `=NOTHING HERE 006w666 `aa(a ?????  ";: KeÙ"";(D$,38);"";unÙ" [  LU_U*UٺsUUUյU5UVW_UU_ªU OTHING HERE 006w666 `aa(a ?????  ";: KeÙ"";(D$,38);"";unÙ" [  Q$"'"; 8,8,8,"#":15,8,15,"UA:8 0 18 0":15,"B-P:8 154"h (#8,N1$,N2$,A$,A$,A$,S$,A$,A$,I1$:8:15 -I1$"\"65533,.:65534,.:V32,.:60 265533,(N1$N2$):65534,(S$) <CD$"":SI(65534) PBS$"   HELLO;(51201)12(51202)200(52222)57C10Z"ROUTINES V4",8,1v V53248:SV1024:52176"":XSS24:X,0:X10241034:A:X,A:169,228,141,8,3,169,167,141,9,3,961024 : __ WEDGE DEACTIVATOR  1.1 IX$(CO,C1),IX(CO,C1)? IX$(CO,.)"!"CXCO1:CO22:C13G C1O CO[ "";h CO1CX~ 646,C%(IX(CO,.)) SIIX(CO,.)""; IX(CO,.)IX(CO1,.)"IDE"IX(CO,.)" ";:290 " "; "(CO96)"= "IX$(CO,.);"D ZSP$"' "r xIX$(22,1),IX(22,1),C%(4):I14:C%(I): y2,5,6,7 V33,1:V32,C%(SI) IN$:TT$"ҠUMBER "IN$ "";SP$;"";19(TT$)2);TT$:"" CO122 C % KK$:ZD1222::K$" "K$"Z"K$KS$:3307 TK$"X"19000G ^K$"A"330\ cK$(CX64)330r h((K$)32);""; |K(K$)31 KCX30000 330 ' *14 ."IXEL AGE",1,PIXEL PAGE, ."ONTENTS AP",1,CONTENTS MAP, ."  $22(IX$(CO,.)));' 'SIIX(CO,.)"";[ ,IX(CO,.)IX(CO1,.)"IDE"IX(CO,.)"";:310k 0" ";q 6 @(CD$,25)"HICH "24)"ؒ TO EXIT";BS$; IK$"?" JKS$K$:B$"":SP$(0)""K$"":SP$(1)""K$"":SP$(SP1);B$;:SPSP  T!T Ta! !X X0 !0 !T T0 !0 !T T0 !0 !X X!X X!1 !T Ta!1 !T T! !T Ta! !T T!H !T T2!H !T T! !T T!! !T T!! !T T! !T Ti !iT!T Ta! !X X0 !0 !T T0 !0 !T T0 !0 !X X!X X!1 !T Ta!1 !T T! !T Ta! !T T!H !T T2!H !T T! !T T!! !T T!! !T T!  * * RITTEN BY: ERRY . TURDIVANT EMORY INDER FOR THE -64 AND -20 OMMODORE ICROCOMPUTERS, UGUST 1985 AGE 47 ALLOWS YOU TO FIND THE MEMORY LOCATIONS THAT CORRESPOND TO YOUR PROGRAM'S L  ,! !T T?*!T T%! !T T,!T T! !T T%!T T!! !T T,!T T2!0 !T T!!T T! !T T%!T T!! !T T!T T2!0 !T T2!T Ta!  !T Q1"LOAD"(34)"STAR"(34)",8":"RUN"M 631,13:632,13:198,2 T.LABEL MAKER PEEK-A-POKE  T.PEEK-A-POKE  MARQUEE  *!T.MARQUEE   T2! !T T!1 !T T!1 !T T2! !T T! !T Ta! !T T! !T T0 !0 !T T! !T Tb!b !T Tb!b !T T!0 !T T!0 !T T!x !T T!x !T T!0 ! * * RITTEN BY: .. ANE SER XTENDABLE ISK PERATING YSTEM ICROCOMPUTERS AGAZINE, UGUST 1985 AGE 50 ALLOWS YOU TO CREATE ALMOST ANY TYPE OF DISK ROUTINE YOU WOULD LIKE. TS COMMANDS ARE DEFINED AS PR 0@P`pɀ%ɐ)Lkl)l)l)LG)L_LfԝLlԭl1AG TO ZERO"LOAD"(34)"HELLO"(34)",8":"RUN" 631,13:632,13:198,2RIBUTING DITORS: ONNA O x>X`xX`ƶl(:]LLGԙԠ魡qHqhLGHHhhLLG)Ll)ޑСІLl)ݑLOGRAMS, THAT THE USER WRITES, ON THE DISK. ALLOWS PASSING VARIABLES TO THE PROGRAMS AS WELL AS A SPECIFIED FEATURE. COMMANDS ARE ENTERED AS FOLLOWS: & VAR1 VAR2 VAR3 VAR4 ... VAR8 VAR9 VAR10 LEASE NOTE  THAT THE MAGAZINE SAYS TO USE "_" AND NOT "&". UE TO A CONFLICT WITH AND THE EDGE ("_" IS THE WEDGE SYMBOL TO SAVE A FILE), WE HAVE CHANGED THE MACRO FROM "_" TO "&". SAMPLE PROGRAM MIGHT LOOK LIKE THIS: 10  T!T T! !T T!T Ta!H !T T!T T2!b !T Ta!T T!b !T T!T Ta!0 !T T T Tb!b !T TT T! !T TT Ta!T T!T T2! !T T!! !T T! !T pD D D_ P;;; P RCCB P T5I595) P T P X''' P` X T.PEEK-A-POKE  MARQUEE *!T.MARQUEE  WAY TO USE IS TO INCLUDE LINES 1 AND 2 AS A PART OF YOUR PROGRAMS AND USE IT AS A SUB-ROUTINE. FTER YOU HAVE MADE ANY CHANGES TO YOUR PROGRAM, YOU CAN DELETE THOSE TWO LINES FROM YOUR PROGRAM. HIS PROGRAM IS COPYRIGHTED BY ICPROGRAM. ECAUSE OF THE NATURE OF THIS PROGRAM, YOU CAN NOT IT FROM THE ENVIRONMENT. O USE , YOU HAVE TWO CHOICES. OU CAN RELOCATE " " SO THAT YOU ANOTHER PROGRAM INTO NORMAL MEMORY. NOTHER ƪ__/U_////__*?U^^^^^^^^^^^^^^^^^T?U_////_/ |_* 631,13:632,13:198,2RIBUTING DITORS: ONNA O0</_U|^^^^^^^^^^_|/ U /x/x/x^^^^^^U^^^^T?U_////////////_EMORY ADDRESS. F THE PROGRAM LINES THAT ARE PRINTED BEGIN TO LOSE ANY SENSE OF ORDER, THEN THAT MEANS THE PROGRAM HAS GONE PAST THE END OF YOUR PROGRAM. OU MAY GET AN ? ERROR--THIS ALSO MEANS YOU HAVE GONE PAST THE END OF YOUR  IS A GIANT LOOP THAT STARTS AT THE BEGINNING OF PROGRAM MEMORY (2049) AND GOES THROUGH MEMORY LOOKING FOR LINE NUMBERS. IRST THE LINK TO THE NEXT LINE NUMBER IS FOUND AND THEN THE CURRENT LINE NUMBER IS PRINTED ALONG WITH ITS MЅL)0@P` p#ɀ*ɠ,ɰDLLW)LW)LW))5L)LLԝLԭLW1|_* 631,13:632,13:198,2RIBUTING DITORS: ONNA O L L:L!­ xIX`xX`) ƶl(:^LL^ԙԠ qH qhL^HHiihhLL^)L)РHANGE THEM WITH A FEW SIMPLE S. ERE'S HOW WORKS. VERY PROGRAM LINE HAS FOUR BYTES UP FRONT. WO OF THE BYTES ARE THE ACTUAL LINE NUMBER OF THE LINE. HE OTHER TWO BYTES TELL WHERE THE PROGRAM LINE RESIDES IN MEMORY.  INE NUMBERS. Y KNOWING WHERE YOUR PROGRAM LINES SIT IN MEMORY, YOU CAN CHANGE THEM SO THEY CAN'T BE REMOVED. F YOU'VE EVER TRIED TO ENTER A LINE NUMBER OVER 63999, THEN YOU KNOW IT IS ILLEGAL. F YOU KNOW WHERE YOUR PROGRAM LINES ARE, YOU CAN Cb A + *    H   ?l WLOADSTAR #14 S-1\$2A  U  PAYLOAD  PAY.PRGS  ORBIT ORBITGAME  2 T.ORBIT VERBOSITY   T.VERBOSITY   ALGEBRA ^STAR  ! MUSIC  CE3K.M  LOADSTAR.SPR  SIDIRQ V3  ROMUSIC  ROUTINES V4   T.CALENDAR XDOS CREATOR XDOS.TYPE  XDOS.ECHO  XDOS.DELETE T.XDOS BOOT ALARM BOOT  ALARM CONTROL T.ALARM BOOT R R T.ALGEBRA  SORT COLLECTION SHELL-METZNER.S  SHELL-METZNER.O T.SORT COLLECTIO SPRITE EDITOR MYCAR   T.SPRITE EDITOR HELLO  MENU.SP2 MENU.SP1 >- -< >- -< PIXEL PAGE PIC F BORDER  (UNPACK.ML300 R TEXT BOOT  TEXTRAPOLATION-1  TEXTRAPOLATION-2 TEXTRAPOLATION-3  T.TEXT BOOT  MAGAZINE BOOT  MAGAZINE ENTRY  T.MAGAZINE BOOT RR WRITE GUARD T.WRITE GUARD #>--  -< MAG.PRGS MEMORY BOOT MEMORY FINDER T.MEMORY BOOT XDOS BOOT  >- -< CONTENTS MAP  CONTENTS MAP.T >-  -< WORM BOOT WORMSHOT )WORM SCORES >-< R >  -<  MICRO BOTTOM T.MARQUEE  MARQUEE  * LINE WRITER V/64  T.PEEK-A-POKE PEEK-A-POKE T.LABEL MAKER RR  L LLFLȭĭíðLEȥ ?Ʌ@m L`ĭíðLȥ ?Ʌ@mȹ?Ʌ@mLPȭ ?Ʌ@m `ĭí7 ?Ʌ@m?Ʌ@mL ȭ LȭĭíðL>ɥ ?Ʌ@i؅L`(Px@h0X Hp _`@ (   _U !` ` ` `* "     GȩGȩG` (   ȘGȩGȩG`L7ܭ˭˩ˍ`H.*ɣ#ɴːې , ,,,,,hlL˭ۍˍ`HH xH)h( LlU !` ` ` `* "  ECAUSE OF THE NATURE OF THIS PROGRAM, IT CAN NOT BE RUN FROM THE ENVIRONMENT. HIS PROGRAM IS COPYRIGHTED BY ICROCOMPUTERS MAGAZINE. LL RIGHTS TO IT ARE RESERVED.  HAS RELIEVED YOU FROM THE BURDEN OF KEYI  S15#S1:"ROMUSIC",8,18 STAR MAIN DISKW53269,.:808,225:S%.1153281,.:53280,.:" ŠΠŠ"" F YOU HAVE A OYSTICK," " PLUG IT INTO ONTROL ORT WO." S%0 S%1:"LOADSTAR.SPR",8,12 S%1S%2:"MUSIC",8,1O S%2S%3:"CE3K.M",8,1m 49,255:50,47::51200,. 53281,1:53280,10 X10241034:A:X,A: 169,228,141,8,3,169,167,141,9,3,96 1024 : __ WEDGE DEACTIVATOR I.7:S:2040I,S:) 192,193,194,195,196,197,194,198[ V53248:O1:B255:T2:SEV21:SCV39:YDV23} (SE,.:V29,.:V23,.:V16,. d"  n"   x"    "   C "   k "   "  I11000::C10 49569,.:49570,112:49152:I1500: ,S.7:SCS,C:VSS,165:VSSO,114:SE,(SE)TS8 1X,C:I11465(TT):VSSO,I:n 6I165X(X165)T:VSS,I::SCS,C:53280,C: ;74,2,101,8,127,7,152,5,180,3,206,14,230,6,255,4 "  "  COPYRIGHT 1985  " ( (788)49425R " x "  PUSH SPACE BAR "  RV17:C128:C(9):I.9:C(I)::V32,. 15,12,11,0,0,11,12,15,1,1 A$:A$""460XV21,.:808,2374"";:V33,.:V31,.Q13)"SSUE UMBER 14":f16);""13)".. OX 30007"7)"HREVEPORT, 71130-0007"13)"(318) 868-7247":11)"ONTHLY UBLICATION"$11)""'.12)"UBLISHERS: L EKOVIUS"-8:QB13)" IM ANGHAM":G" USINESS ANAGER: UDI ANGHAM":L16)"DITOR: IM EILER"V" ANAGING DITOR: LAN ARDNER"[" ONTRIBUTING DITORS: ONNA OODY""]" L OMMERVIK":F`11)"IRCULATION: ARY ORDAN"Lj:ft24)"HONDA EIMERS"~y24)"RLENE ATES"11)"";198,0:198,1:198,0"AUNCHING ABLE OF ONTENTS";S54272:I024:SI,0:LS5,240:S6,253:S,0:S1,4:S23,241:S24,31YS4,129|597,0: SET HIDE FLAG TO ZERO"LOAD"(34)"HELLO"(34)",8":"RUN" 631,13:632,13:198,2RIBUTING DITORS: ONNA O RITTEN BY: AN ABRIZIO UILD A URGLAR LARM--ONTROL AN ALARM SYSTEM WITH YOUR -64 ICROCOMPUTERS AGAZINE, UGUST 1985 AGE 53 Y USING THE OMMODORE 64'S USER PORT, PLUS SOME ADDITIONAL HARDWARE, YOU CAN ALLOW YO UR -64 TO CONTROL AN ALARM SYSTEM. **** **** ECAUSE OF THE TECHNICAL ASPECT OF THIS PROGRAM, WE RECOMMEND YOU BUY THE UGUST ISSUE OF ICROCOMPUTERS FOR AN INDEPTH VIEW OF THE ELECTRONIC SCHEMATICS. ERE IS A LIST OF THE EXTRA HARDWA  RE THAT WILL BE NEEDED (MOST CAN BE PICKED UP A YOUR LOCAL ADIO HACK):  30-AUGE IRE  IRE RAPPING OOL  16-POSITION IP EADER  RAP IP OCKETS  RID OARDS  ULSING/ONTINUOUS IEZO UZZER  UAL-OS ARRIEW TRIPS <L?a!  Э Э Щ    ؅ ` `L L L``ƥ `PIC A PIC  (!  ITY AGAINST THE ONSLAUGHT OF KILLER WORMS. ! ! - OW LONG CAN YOU SURVIVE AGAINST THE ATTACKING ALIENS? ! TWIST ON THE OLD GAME OF . OW MANY WORDS CAN YOU FIND IN A GIVEN LENGTH ONOTHING HERE !  Э Э Щ    ؅ ` `L L L``ƥ `PIC A PIC  (! F TIME? ! WONDERFUL WAY TO PRACTICE SOLVING ALGEBRAIC EQUATIONS. ! COLLECTION OF THREE OF THE MORE POPULAR SORTS PLUS A MACHINE- LANGUAGE VERSION OF THE HELL- ETZNER SORT. ! NG IN THIS  PROGRAM. OR MORE COMPLETE INFORMATION ABOUT THIS PROGRAM, REFER TO THE UGUST 1985 ISSUE OF OMMODORE  ICROCOMPUTERS AGAZINE. >ILES USED: &-  UAL-OS ARRIEW TRIPS   TEXT BOOT:P53281,1:53280,7:""9)"Π"V(:d2""<" 1. -- 1"F" 2. -- 2"P" 3. -- 3"Z" 4. XIT TO "d"HICH ?"; n19   ""::3" ORBIT 64"9#[(" BY A. PAKERSKI"c2:<" LOADSTAR IS NOT PUBLIC DOMAIN."F" PLEASE RESPECT THE AUTHORS RIGHTS."P::Z" PLEASE WAIT. LOADING GAME." dG0G1: v"ORBITGAME",8,1 n 3700K x"LOAD"(34)"PAYLOAD"(34)",8":"RUN"p 631,13:632,13:198,2:   T.SPRITE EDITOR WRITE GUARD T.WRITE GUARD #>--  -< .Y646,C%((S$)):"HE DISKETTE CURRENTLY IN YOUR DRIVE IS"iYI1$"\"" NOT A REGULAR ISSUE.":24000Y" SIDE "S$" OF Ҡ"(((N1$N2$)),2)"."]646,C%(IX(K,.)):""17(IX$(K,.))2);Q$;IX$(K,.);Q$;" IS ON" N EASY WAY TO DESIGN SPRITES. OMPLETE WITH A HELP SCREEN. ! ERE'S AN EASY WAY TO WRITE PROTECT YOUR DISKS WITHOUT USING TABS. ! - EARCH THROUGH MEMORY IN SEARCH OF CONTENTS MAPF(51201)12(51202)200"ROUTINES V4",8,1S15,8,15`650,255DA$" &-"LI52016:SU51206:SD51209:CL51203C125:DA$:"";:53281,0:53282,9 1020,4:1021,24:1022,0:1023,39+ FI$"CONTENTS MAP.T"? DM500:IN$(DM)X 5000:OPENING BLURBm (6000:LOAD FILEw -""; 27000:""; :C1017:IN$(C1)::IN$(C1);:LP0 *646,1:CL:""; RK$:"";:K$""850 \K$""K$""K$""K$""11000:8508 aK$""K$""CC118:11000::850e fK$""K$""K$""K$""10000:850 kK$""K$""CC118:10000::850 mK$"P"2000:"":50 nK$"X"K$""63000 p"";:7000:"";:7000:850 :  HARD5 ""DA$:DA$:"URN ON YOUR PRINTER AND PRESS"I K$:K$""2011] K$(13)2090 " RESS ANY KEY TO STOP PRINTING. " ""; 4,4,7 CP0LC:K$:K$""2070 4,20);IN$(CP)  4:4 *% ""DA$:" --OADING THE CONTENTS MAP.--"T "  -LEASE BE PATIENT. -" ::"RESS 'X' TO EXIT NOW WITHOUT READING" :"THIS ARTICLE."  p8,8,8,FI$ LL0:781,8:65478 LI,B$:IN$(LL)(B$,1) (198)0(631)886100 ST0LLLL1:6040, 65484:8:156 LCLL< N 65484:8:15~ X" -RESS F1-F7 KEYS TO MOVE TEXT-" ]" -RESS 'P' TO PRINT TEXT.-" b"  -RESS 'X' TO EXIT -" gDA$ l'646#,1:CL:"";A'LPLC15SU:LPLP1:""IN$(LP18):T'53280,(1)15Z$'o*646,1:CL:"";+ LP0SD:LPLP1:""IN$(LP):+53280,(1)15 +650,128""LOAD"(34)"HELLO"(34)",8":"RUN"  LINE NUMBERS. ! USTOMIZE TO FIT YOUR OWN NEEDS. ! ITH A LITTLE EXTRA HARDWARE, YOU CAN LET YOUR -64 CONTROL A BURGLAR ALARM IN YOUR HOUSE. ! COLLECTION OF THREE PROGRAMS   #14 -- -  - - - - 'HO KNOWS WHAT EVIL LURKS INSIDE  OF A TOMATO?' ! - OU ARE HERE ! - EFEND YOUR C AT SOME OF THE MOST UP-TO- DATE NEWS ON FROM LAYNET. LSO A PROGRAM TO EXPLAIN SOME OF THE BASICS OF . ! UGS AND TUFF ! - HAT IS ELP!!! UESTIONS & NSWERS ORE UESTIONS & NSWERS YMBO L ASTER EVIEW ELECOMMUNICATIONS--ART 1 ELECOMMUNICATIONS--ART 2 EST OU ORGET ! - IOPHANTINE QUATIONS SEFUL EMMA OLVING THE QUATION OLVING THE QUATION GAIN INDING LL THE NSWERS NCLUDES A PROGR AM TO CALCULATE ANSWERS TO IOPHANTINE EQUATIONS. ! - RDER , , OR OWER- LAY SUBSCRIPTIONS. URCHASE DISKS, , OR BACK ISSUES. ! - SE THIS TO SEND US YOUR COMMENTS AND PROGRAMS . ASTER EVIEW ELECOMMUNICATIONS--ART 1 ELECOMMUNICATIONS--ART 2 EST OU ORGET ! - IOPHANTINE QUATIONS SEFUL EMMA OLVING THE QUATION OLVING THE QUATION GAIN INDING LL THE NSWERS NCLUDES A PROGRN :ʆ؅ Jeɖ`:e 2109,217: 828,0P1190:*** TITLE SCREEN *Z2540:NM25:MT(NM,2)dRD1: 53280,0:53281,0:"":DL5: 440:T(TI)nHD107640LP :TL106440LP :BG 6 XDOS:ECHO,I110:AR$(I);" ";:21,8,2,AR$(I)\2AR$(2)""AR$(I):u<ST0"?ERROR":90F#1,A$:64ST90PA$;:70Z1::d1:M XDOS CREATOR  T.ADDRESS FILE NOTHING HERE , OR OWER- LAY SUBSCRIPTIONS. URCHASE DISKS, , OR BACK ISSUES. ! - SE THIS TO SEND US YOUR COMMENTS AND PROGRAMS. S AND TUFF ! - HAT IS INTS AND IPS UESTION & NSW g XDOS:DELETE 15,8,15,I110>(AR$(I)""70S215,"S0:"AR$(I)Y<cF15:0"?ERROR":90F#1,A$:64ST90PA$;:70Z1::d1:M XDOS CREATOR  T.ADDRESS FILE $" "63002:63000:^$0u READ SIDE INDICATOR62u63000:63002l4u8,8,8,"#":15,8,15,"UA:8 0 18 0":15,"B-P:8 154"5u#8,N1$,N2$,A$,A$,A$,S$,A$,A$,I1$,I2$:8:15:u646,C%(IX(K,.)):V32,C%((S$))Du(S$)IX(K,.) 23000Iu655358,0:198,1:A$:A(A$)O xA1A4 53280,(1)15:110n A1F$"TEXTRAPOLATION-1" A2F$"TEXTRAPOLATION-2" A3F$"TEXTRAPOLATION-3" A4F$"PAYLOAD" : A$;:"LOADING "F$ :" "LOAD"(34)t   !  ܍   j     ! z  QL % `     J 2d  % YLLtЍ %( ;  `)) Э`']" SIDE"IX(K,.)"OF "IN$"."I]" NSERT THAT SIDE, PLEASE"W]19)"&"u]12)"PRESS SPACE BAR"]" OR PRESS ΒTO RETURN TO MENU"]:" ( SUGGEST YOU TURN THE DISK OVER.)]198,.:198,1:K$:KЍ)Ѝ*Э Э ЩЍЩFЩЩPЍЩxЩЩЩ` ԩ ԩ ԩ! ԢԠ@8 `mJJJJ )  ` ԩ ԩ ԩdԩ ``ɈɸRɂ)Щ) +    )  )?` `8`ɉ`IU @.-ЩZ Ѝ Э @ЭЍ@Щ8`ЍЍЍЍЍ`v L YNL`)ߍЩЩЩ Ѝ!Щ  `@ )* 'Ѝ( XDOS:TYPEI1100AR$(I)""100B(1,8,2,AR$(I)\2AR$(2)""AR$(I):u<ST0"?ERROR":90F#1,A$:64ST90PA$;:70Z1::d1:M XDOS CREATOR  T.ADDRESS FILE OF$ (34)",8":"RUN"G "631,13:632,13:198,2: "V(:d2""<" 1. -- 1"F" 2. -- 2"P" 3. -- 3"Z" 4. XIT TO "d"HICH ?"; n19THAT ATTEMPT TO PREDICT WHAT WILL BE TYPED BASED UPON PRIOR INPUT. ! ETS YOU TYPE /OWERLAY PROGRAMS WITHOUT TYPOS. - - - - ! - ELP US SERVE YOU BETTER BY ANSWERING A FEW QUESTIONS ABOUT YOURSELF AND YOUR -64. ! - TARGAB IGH CORES BOUT OFTWARE UTHORS VAILABLE FROM OADSTAR & ON'TS ART 40 HIS IS THE LAS T OF THE SERIES. F YOU MISSED ANY, YOU CAN ORDER THE COMPLETE & ON'TS SERIES ON A SINGLE DISK. ! EEKS, OKES & YSES ARTS 32-36 BEGINNING LOOK INTO I-ES GRAPHICS ROUTINES. ! -- ART 7 LOOK NOTHING HERE  39000:43050: HARDCOPY43080ި$Q3172%LP240000:43306=&44000C(I*O,:[Q317wLPLC1440100:4340645000:ો LP240000:: SCROLL BACKWARDLPLP1:51209X%1:Y%5:56000: 0(51200)76(52016)32(52080)1737E(52176)16910^"0:ROUTINES V4",8,1 (832)24(960)63(1019)."0:MENU.SP1",8,1(704)3(732)252(760)"0:MENU.SP2",8,115,8,15:52176- W53265:U128:V53248:SV10 24:LI52016:WI51200:CL51203:SU51206:SD51209k (1020,5:1021,19:1022,1:1023,38: SET WINDOW BOUNDARIES 2600,00: SET ARTICLE FLAG TO ZERO PP(599)1: MENU POINTER SP$" " SL$"   " AF1 53280,5? D$(96):X16:D$D$D$:T XSS24:X,0:| 54277,8:54278,8:54291,8:54292,8 V33,.  V29,2:V27,12:V23,. : :  PN$(50),RC$(50),CA$(50),SA(50),SY(50),T$(300)5  MENU NAME,PR OG NAME,CATEGORY,SECONDARY ADDR,SYS ADDR,ABOUT TEXT STORAGE; :X 52000: READ PRGS FILEq  V21,11: 0,1,3 ONw !: "CO.2:2040CO,13CO:2043,11::SPRITE POINTERS ,V39,15:V40,7:V41,7:V42,7:V27,255 1V16,. 6V,49:V1 ,218: CRSRS$ @V2,45:V3,143: SELECTORB JV4,56:V5,54: RT HAND` TV6,44:V7,54: LT HANDl ^V16,4 hS24,15: LOUD SOUND  50000:HEADER : 51000:HOME TPPP:PP153005:4100  53000:PRINT MENU 49000  54000:V21,0:KEYWAITQ "OCKING WITH ABLE OF ONTENTS"c 63002:63000x XSS23:X,0: "LOAD"(34)"0:HELLO"(34)",8":"RUN";:631,13 632,13:198,2: XWI: CLEAR WINDOWbX%9:Y%8:56000:"URN YOUR PRINTER ON"*gX%18:Y%10:56000:"&"VhX%12:Y%12:56000:"RESS []."~iX%15:Y%14:56000:"ؒ TO EXIT"lK$: K$""39020qK$(13)K$"X"K$""39020v K$"X"K$"" WI:4,4,7:440(MO$));MO$::40(PN$(PP1)));PN$(PP)) C81 LC>T$(C8)""39070L4,T$(C8)R\4:4dWIjw@ BOING!C41000EI2731:W,U:W,I:JI31251:W,U:W,U:W,I:OI2527:W,U:W,U:W,U:W,U:W,I:T RV17:C128: OTHER BOING!410001I27241:W,U:W,I:OI2429:W,U:W,U:W,I:zI29271:W,U:W,U:W,U:W,U:W,I:(S4,20:S,(.)256:S1,(.)256:S14,(.)256-S15,(.)256:S4,21:2 :ALREADY RETURNED ^/PL15:X%.:Y%24:56000:" [ȟ] FOR ARDCOPY";:AF0[X%1:Y%12:56000:"EADING":V21,.X%22:Y%21: 56000:"/ ";X%14:Y%22: 56000:"CROLLS EXT";(600)PPWI:CL:43050600,PP:X%0:Y%5:LP1:56000:WI:CL-8,8,8,"T."RC$(PP):46000:ER%62RF.:AF1::290IC11300:781,8:65478a LI,B$:T$(C1)B$""ST46000:ER%0ST64LCC1:C1300:43030C115"";T$(C1):654848 C8LC1300:T$(C8)""::CL*X%.:Y% 5:LP1:56000:C11154"";T$(C1)>KCRF1:X%.:Y%3: 56000:48000:"'BOUT' HEADER"sHK$:J(56321)31:K$""J043080RK1(K$(.))\K$""J4MF1:RF0:48000:43080:CRSR LEFTfK$""J8MF0:RF1:48000:43080:CRSR R10:""OS2049:I19E9:M(S)(S1) 256:L(M2)(M3)256kL,M4:SM:(197)64q:w:'" MEMORY FINDER"'" MEMORY FINDER WILL FIND THE LINE "'"NUMBERS OF ANY PROGRAM IN MEMORY. THE"$ '"LINE NUMBERS ARE PRINTED IN THE LEFT"R '"COLUMN AND THE MEMORY ADDRESS OF THAT" '"LINE IS PRINTED IN THE RIGHT COLUMN." '" WHEN THE LINE NUMBERS BEGIN TO LOSE" '"ANY SEMBLANCE OF ORDER, YOU CAN PRESS" '"A KEY TO EXIT AND START OVER IF YOU"2 "'"WISH.":" "K #'198,0:198,1:198,0{ $'"  1. RUN MEMORY FINDER" &'" 2. RETURN TO LOADSTAR" ('" WHICH ?"; *'198,0:198,1:A$ ,'A$"1"A$"2" 53280,(1)T$(LP)Q9Q9:Q9044010:1ȯ LPLC1440100:: SCROLL FORWARDDүLPLP1:51206hܯX%1:Y%19:56000:""T$(LP14)ޯQ9Q9:Q9045010"15,ER%,ER$,ET%,EB%(ER%19ER%30)ER%66ER%6746015"OU JUST HAD  IGHT)pK$""K$""K$""J245000:43080: SCROLL FORWARDFrK$""43300: BIG UPzK$""K$""K$""J144000:43080: SCROLL BACKWARD|K$""43400: B/DOWNJ16RF63900J16MF0:AF1::K$"":J.:290K172 1200:51203:X%1:Y%12:56000)Ù"& ";HÁI217242:I,(I)128::Y8Ǚ"": HOMEgBǙ"";mLǎ ˏ READ IN FROM WHAT FILE???!NU(65535)"ˋNU11NU$"MAG.PRGS"$ˋNU12NU$"PAY.PRGS"&I 0:2,8,2,NU$'˄2,HT$ : HEADER FOR TOP(II1*˄2,PN$(I)*,˄2,RC$(I)8.˄2,CA$(I)E0˄2,SA(I)R2˄2,SY(I)k4ˋ PN$(I)"!" 52008r6ˠ2}9PCI1>PN$(PC1)"":PPPCPPPCHˎϞ51200:"";:PP453020 ϙ"";:IPP3 PP3:QQI:QQ0QQ0ϋIPP"";ϙ10)PN$(QQ)""::@ρIPP3:"";::I1PP3:IPP"";X!ϙ10)PN$(I)""::{ҏ MAIN MENU KEYPRESS SELECTIONҡK$:K$""J(56321)31:K$""J.54010K(K$(.)) ӋK$""J4AF1:RF.: 49000:54000:LEFT ӋK$""J8AF.:RF1:49000:54000:RIGHTRӋK$""K$""K$""J254100:49000: 54000:DOWNӋK$""OPPPPC:54100::49000:54000:BIG DOWN"ӋK$""K$""K$""J154200:49000:54000: UP'ӋK$""OPPP 11:54200::49000:54000:B/UP ,ӋK$"X"K$"" *6ӋJ16RF:51000:63800?;ӋJ16AF 43000O@J.: 54000eTӋPPPC140100:^PPPP1:51206:51206:X%10:Y%18:56000hӋPPPC2""PN$(PP3):rә" ": ӋPP240:PPPP1:51209:51209:X%10:Y%6:56000+ӋPP2""PN$(PP3):Nә" ":{ڗ783,(783)254:781,Y%:782,X%:65520:ڗ783,(783)1:65520:Y%(781):X%(782):X%0:Y%3:56000:59000X%1: Y%3:56000:"Ԓ"ޗ V21,11ގ X%0:Y%3:56000:590007 X%36:Y%3:56000:"Β"D V21,7J | x"  ": "  ": @X%0:Y%3:56000:59100 E X%1:Y%3:56000:"Ւ" J V21,9 T!X%0:Y%3:56000:591009!X%36:Y%3:56000:"Β"F! V21,5L!R!:!I.24:SI,.::S1,100:S2,100:S5,10:S6,2!S24,15:S4,33:DL1600::24,32:!I024:SI,0::S1,40:S2,40:S5,10:S6,2"S24,15:S4,33:DL1600::S4,32:("8 EXECUTE PROGRAM>" EXECUTE PROGRAM"65412:65409:"LOAD"(34);RC$(PP);(34)",8,"SA(PP)""599,PP1: MENU POINTER"SA(PP)."RUN":63910""SYS"SY(PP)Y""" 631,13:632,13:198,2"V21,0#!,!,!,,:NEED THESE FOR EOF MARKERS.3:56000:"Β"F! V21,5L!R!:!I.24:SI,.::S1,100:S2,100:S5,10:S6,2!S24,15:S4,33:DL1600::24,32:!I024:SI,0::S15:10026 .'A$"1"$ 0'A$"2"63020* 8':G  LINK BACK TO LOADSTARt "WOULD YOU LIKE TO TRY IT AGAIN ?"; Q198,0:198,1:A$:A$"N"A$"Y"53280,(1)15:63007 A$"N"A$"Y"53280,(1)15:63007 "A$"Y"1& ,"LOOAD"(34)"PAYLOAD" (34)",8":"RUN"C .631,13:632,13:198,2:0{ $'"  1. RUN MEMORY FINDER" &'" 2. RETURN TO LOADSTAR" ('" WHICH ?"; *'198,0:198,1:A$ ,'A$"1"A$"2" 53280,(1)  RITTEN BY: LAN ARDNER N THE NEVER ENDING SEARCH FOR THE MOST EFFICIENT WAY TO SPEND OUR COMPUTER'S TIME, PEOPLE HAVE PUT MUCH STUDY AND EFFORT INTO DESIGNING A FASTER AND MORE EFFICIENT SORTING METHOD. OME OF THE FIRST SORTS WERE SO SLOW THAT IT COULD TAKE DAYS TO SORT JUST A FEW HUNDRED ELEMENTS. UE TO THE INCREASE OF KNOWLEDGE IN THE AREA OF MATHEMATICAL THEORY, BETTER SORTING ALGORITHMS CONTINUALLY ARISE. PRESENTS THREE OF THE MORE POPULAR AND MORE EFFICIENT SORTING METHODS. RESENTED FIRST IS A MODIFIED VERSION OF THE INSERTION SORT. HE SECOND IS THE FAMOUS HELL ORT. HE THIRD METHOD PRESENTED IS A MODIFICATION OF THE HELL ORT CALLED THE HELL-ETZNER. LSO INCLUDED IN THIS PROGRAM IS AN EXAMPLE OF A MACHINE-LANGUAGE VERSION OF THE HELL-ETZNER SORT. HEN YOU RUN THE PROGRAM, YOU ARE PRESENTED WITH A MENU OF THE VARIOUS SORTING METHODS. FTER CHOSING A METHOD TO SORT WITH, A RANDOM ARRAY OF 100 CHA A DISK / ERROR."ij:"RESS SPACE TO CONTINUE.",ɳK$:K$""460252γTRF59300: REWRITE PGM NAMEvMF59200: REWRITE PGM NAMEY%3:X%20(PN$(PP))2:56000:"";PN$(PP);"";hRF58000: REWRITE CATEGORYrAF570 00|Y%3:X%20(CA$(PP))2:56000"";CA$(PP);"";!SPÙ""6)"";:(D$,28);"": "HEADER STUFF"nZÙ5)" ݙ"HT$"";(221)\Ù6)"";:(D$,28);:""]Í59000^ËAF57000_ËRF58000cÙ"";(D$,38);"";dÁI115 :"& ";: -eÙ"";(D$,38);"";WnÙ" [  ҟ ] ELECTS /"|xÙ" [  ҟ ] CROLLS ENU"Ù" [ ş ] ELECTS IGHLIGHTED TEMS"Ù" [؟] XITS";Ù"";:5  `Щ;Щ`  ``UUUUUp0"7U UUUUU7UUUUUORBIT 64 BY A. PAKERSKI COPYRIGHT (C) 1985 LOADSTAR. LOADSTAR IS NOT PUBLIC D OMAIN. PLEASE RESPECT THE AUTHORS RIGHTS. PLUG JOYSTICK INTO PORT 2. THE PERCENT OF DAMAGE YOUR SHIP HAS IS SHOWN ON THE LOWER LEFT. YOUR SCORE IS ON THE LOWER RIGHT. WHEN DAMAGE IS 100 PERCENT YOUR SHIP IS DESTROYED. GOOD LUCK.PRESS ANY K EY TO START.   GAME OVER. PLAY AGAIN? (Y/N)>|>|>|8p8 0` 0|>|>|>p8p8À`0 I À@ 2|D~@@~B8 o ppx <~~< ~~  >????BD !@B @@$   @ x <f<8~< 0`~<<&&&?~``|f<8`@|ff<~f <bd&F   " l>!@  @!>l N?) ?  Щ( `)``miiآJJJJ ) JJJJ ) JJJJ ) ` aH>`^ ~ ~ LA ) ?`,.Т! @ЩՍ  ) )Щ%  `@ @`@ @`)` Ȱ` F )Щ ԩ `)Э . .  .`) @ @`-)Щ .ЍЭi Э `ɐ``2`(`ɐ` i`2 8` ) )F  `Э)ɐ )`Э)   `iЭ) 2 )`8Э)Э `Lԩԩ ԩ ԩ```ɈɸRɂ )Щ* +     , P ` @` @`)`) ] ) i )  ) u `()`    `)* 'Ѝ(Э)ЩЍЩAЩЭ Э Щ`) @  @`X6``   Щ  I` )Lz)`JJJ ` `+ * 2 2nЭ Э Э Щ`)  @`)`  {`iЭ8Э8Э8Э a v  4 ?? ? X T j l (  ^  *2  N&  t b% ?<h8;? ??????????<<<<???<330  3??  33??<<???<330  3??  33       90 d53280,(1)15 nK(K$)7 xK62000,63000:90K `C0C1:60005S bC0p eC0" ARNING!" jC1" ARNING!" t 0CONNECT TO ACTUAL ENTERY PGM 2"LOAD"(34)"PAYLOAD" (34)",8":"RUN" 4198,0: ?< 0 ?<<? <<?? ? ???Ϛ ? ?<3? 0??? ????<0<?<<<??< <<< <<?3 0???????????33???? ?<< BL,66:BL40,32:240:d *** CHECK FOR HIT  *q BLTL~ BLHD WHWH1:LG(HDTL2):HHBL(HD1) (BLTL)LG BN1:" BONUS 50 POINTS FOR HITTING TAIL! "- HHLGBL,32 "". *** *** HE SOURCE FILE FOR - IS INCLUDED ON THIS ISSUE OF . T IS SAVED UNDER THE NAME OF "-.". T WAS WRITTEN WITH THE ASSEMBLER. >ILES USED: - N ALL YOU WOULD NEED IS: 100 49152 $(0) *** *** HE MACHINE-LANGUAGE SORT DOES TAKE INTO ACCOUNT ELEMENT ZERO WHEN SORTING. HEREFORE, IF ELEMENT ZERO IS EQUAL TO "", THEN AFTER THE SORT ELEMENT ZERO WILL STILL BE EQUAL TO  ! M64:" "9M$"C":M64M$"A"VQ15023010:C0:".";:j(ADD$,MEM$,CSUM2H$ADD$:140:ADDD<H$(MEM$,2):H$""110F(MEM$,1)"*"H$M$(H$,1):R1PMEM$(MEM$,3)Z140:ADD,D:R0CCD dADDADD1 X.  -. -OPTIONAL &- E SORT DOES TAKE INTO ACCOUNT ELEMENT ZERO WHEN SORTING. HEREFORE, IF ELEMENT ZERO IS EQUAL TO "", THEN AFTER THE SORT ELEMENT ZERO WILL STILL BE EQUAL TO  ..."* 43,58:44,3:45,0:46,4:"XDOS",8,1V 44,8:43,1:45,007: 46,14:{ "OULD YOU LIKE ANOTHER ?"; 198,0:198,1:A$:A$"N"A$"Y"53280,(1)15:134 A$:A$"Y"112 63000 D0:I1(H$):J((H$,I,1))48 :R0:60( nCSUMC"ERROR IN LINE";Q:. od p::"NSERT THE INITIALIZED DISK WHICH IS TO" r"CONTAIN . RESS A KEY WHEN READY." s" <'Q' TO XIT>" t198,0:198,1:K$:198,0 vK$"Q"K$""63000 x"AVING 37*4862D842E862F84,2493N 39C,3086318432A900A02791318810FBA006B9F80391318810F8,2574 3B4,A200A008E88A9131C8A902913188CAE8BD0002C921B0F848,2950 3CC,8A38F131889131C8C8C8C868D0DEA9281865319002E63285,3090 3E4,31208E*62033*5AD0102C924D0034CC3  D16DJ(J9)7::R 33C,AD050385FDA9038D0503AD040385FCA9518D040360AD0002,2122 354,C926F0036CFC00A201E8BD0002C921B0F8CA86FB2044*6A9,2942 36C,002090FFA90EA208A00020BAFFA5FBA201A00220BDFFA900,2803 384,A62BA42C865F846020D5FF9004AA4CG---, 0 ---, 0 ---, 0 ---, 0 ---, 0 ---, 0 ---, 0 ---, 0 ---, 0 ---, 0 1522 ---, 1500 ---, 1500 ---, 1500  (34)",8":"RUN"]0,631,13:632,13:198,2: *. 430:"*** DEFENSE SCREEN UP! ***":LW1864:RW1863:P61.*64CAE*741D22800,1766 3FC,01000B,129  CONNECT TO LOADSTARn " AKE SURE YOUR DISK IS IN THE" "DRIVE. RESS A KEY WHEN YOU'RE READY." 198,0:198,1:198,0 ""LOAD"(34)"PAYLOAD"(34)",8":"RUN",631,13+"":53281,11:53280,11: 53272,23f "****** ******"tT 1 3" &=":T:"EWARE! OUR CITY IS IN DOUBLE TROUBLE!" "REQUENT METEOR SHOWERS THREMS". A"MAKES FREQUENT ATTACKS ON YOUR DEFENSE"Z F"WALL AS SOON AS IT'S BUILT, BECAUSE" K"THEIR MOTHER WAS KILLED IN A GOVERNMENT" P"FUNDED DEFENSE WALL EXPERIMENT. S YOU" U"BLAST A WORM, IT GETS SHORTER AND" Z"SHORTER. OWEV 0% x *** MOVE WORM *< HD1883WH11390h HD,81:TL,32:TLTL1:160:HDHD1:130 *** MOVE BULLET * BGFR$:BL1924 FR$" "BG1:210 FR$"_" 200 T$:T$"" 190 T112:T:" BLATEN YOU AND"6 #"ALL YOUR FRIENDS. OWEVER, A LASER-"b ("CONSTRUCTED DEFENSE SCREEN CAN SLOW" -"AND/OR STOP METEORS. O COMPOUND THE " 2" < PRESS A KEY: ! >" 7 T$: T$"" 55 <"PROBLEM, A FAMILY OF SINISTER WOR O USE THE MACHINE-LANGUAGE HELL-ETZNER SORT, YOU MUST "-.",8,1. O DO THIS, SIMPLY PUT THIS LINE AT THE BEGINNING OF YOUR PROGRAM: =0=1:"-.",8,1 O ACTUALLY SORT AN ARRAY, USE THE FOLLOWING : 100 FLASH THE BORDER. HEN THE SORT IS FINISHED, THE SORTED CHARACTERS WILL BE PRINTED BACK TO THE SCREEN ALONG WITH THE TIME IT TOOK TO SORT THE ARRAY. LEASE FEEL FREE TO USE ANY OF THE SORTS PRESENTED IN THIS PROGRAM IN YOUR OWN PROGRAMS.  :BN1:" A SHOT TO THE HEAD ! "= " BN 360L ,BLTL330 6ETLHD:E,32:E:HDHD40:TLTL40:ETLHD1:E,81:E @BL,32:BLHD:340 JTHTH1:TSTS50 T1610:430 ^BN0:940 hBG0:BL,32:TL,32:TLTL1:TSTSHD ~  SPZD_K DL@I Iؓw    (3  3IX TP(5)90:TP(6)102:TP(7)1279  * DRAW CITY *V  T 1 40 : PC1983T (1)21PC,102:PC54272,3: PC40,TP(((1)7)1)  PC54232,((1)15)1  T 2004,214: 1964,66 T080 40:T56196,7: T BL:"SCORE:"TS r198,0: |:I TTLHD1:T,32:T: LPLP1: BL,32:600[ SP125 1100d 110j  "' ":198,0:   * BUILDINGS TOPPINGS* TP(1)88:TP(2)86:TP(3)87:TP(4)88:  A263000A.160&""/1005:A 49154S198,0:198,1k53265,(53265)223(53270,(53270)239253272,217""<63000F:P:Z:dV53248:S54272 nV32,.:V33,.:" UMBER 1 FNYÀS(  "HEADER STUFF"ZÙ5 RE":A1:F$,8,1( Q4915449317:A:Q,A:` S54272:I.23:SI,0::S24,15:S5,255:S6,255 S12,255:S13,255:S19,255:S20,255:S1,3:S8,3 S15,3:S7,7:S14,18 "RESS SPACE BAR TO VIEW COVER." "RESS IT AGAIN TO RE 4" x""< " HO KNOWS WHAT EVIL LURKS INSIDE OF"\ " A TOMATO?"h ""n F$(129)"PIC F BORDER " " OVER DESIGNED BY ERRY ONES" " USING THE PAD." A."OADING ICTUAUNCHING ABLE OF ONTENTS";X ;"LOAD"(34)"HELLO"(34)",8":"RUN"u @631,13:632,13:198,2: 173,17,208,41,239,141,17,208 162,127,160,64,32,156,192,162 4,160,0,32,161,192,162,131 160,39,32,114,192,162, TURN TO MENU." 198,0:198,1< S4,17:S11,17:S18,17:10B :H ,:d  RETURN BACK TO MENU A1A2:"ROUTINES V4",8,1 A2A3:"SIDIRQ*",8,1 "S4,16:S11,16:S18,16:56,160::53281,0 ,53280,0 1(14)' 6"60,0,32,161,192& 162,127,160,63,32,114,192,173E17,208,9,16,141,17,208,96d142,1,192,140,0,192,160,0(177,251,145,253,165,252,205,12192,208,8,165,251,205,0,192<208,1,96,230,251,208,2,230F252,230,253,208,227,230,254,76P131,160 40,32,156,192,162,216,160,0@ 32,161,192,162,135,160,15,32c 114,192,173,16,135,141,33,208 173,17,208,9,34,141,17,208 173,22,208,41,223,9,16,141 22,208,173,24,208,9,8,141 24,208,162,96,160,0,32,156192,162,32,1 24,32: I024:SI,0::S1,40:S2,40:S5,10:S6,2KS24,15:S4,33:DL1600::S4,32:؀ـ IsQNNA S I C SIB S( IHIo TCO@C1CX KKp BB122,192,134,252,132,251,96,134$Z254,132,253,96*E:0G:160,15,32c 114,192,173,16,135,141,33,208 173,17,208,9,34,141,17,208 173,22,208,41,223,9,16,141 22,208,173,24,208,9,8,141 24,208,162,96,160,0,32,156192,162,32,1C0 eC0" ARNING!"< jC1" ARNING!"B t\ 0CONNECT BACK TO L.S. 2"LOAD"(34)"PAYLOAD" (34)",8":"RUN" 4198,0:631,13:632,13: 198,2:KCK134 A$:A$"Y"112 6300,10(S$)IX(K,1).NuIX$(K,1)"PRESENTER"(597)06400,0:44,25:p@53281,.:"AUNCHING "IX$(K,.);"";{J599,0OI023:SI,0:P198,0:631,13:632,13Q IX$(K,1)"PRESENTER"597,0:40030T"L"(34)IX$(K,1)(34)",8":"RUN""Y6400,0:44,25:198,2:V^"LOAD"(34);IX$(K,1);(34)",8":"RUN"h631,13:632,13:198,2:65535,10(S$)IX(K,1):I.24:SI,.::S1,100:S2,100:S5,10:S6,2S24,15:S4,33:DL1600::0 D0:I1(H$):J((H$,I,1))48 D16DJ(J9)7::R 33C,AD050385FDA9038D0503AD040385FCA9518D040360AD0002,2122 354,C926F0036CFCEY TO RETURN TO ."ZK$:K$""60000:90_62000d53280,(1)15`C0C1:60005 b  53281,2:53280,2!""8" ARNING!"@:i("OU CANNOT RUN ͠ FROM"2:"THE ENVIRONMENT."<:"RESS A KEY TO RETURN TO ."ZK$:K$""60000:90_ 62000d53280,(1)15nK(K$)  49,"AND ($",1,"),Y"53,"AND $",1,",X"54,"ROL $",1,",X"56,"SEC",0," "$57,"AND $",2," ";61,"AND $",2,",X"R62,"ROL $",2,",X"f64,"RTI",0," "65,"EOR ($",1,",X)""69,"EOR $",1," ",70,"LSR $",1," "672,"PH"112 63000 D0:I1(H$):J((H$,I,1))48 D16DJ(J9)7::R 33C,AD050385FDA9038D0503AD040385FCA9518D040360AD0002,2122 354,C926F0036CFCF:"RESS 2 TO Π٠."ZK$:K$""60000:90d53280,(1)15 `C0  xK62000,63000:90( `C0C1:600050 bC0M eC0" ARNING!"j jC1" ARNING!"p t 0CONNECT TO ACTUAL ENTERY PGM 2"LOAD"(34)"PAYLOAD" (34)",8":"RUN" 4198,0:631,13:632,13:198,2:  )" ݙ OADSTAR AYLOAD UMBER "NU$;"";(221)\Ù6)"";:(D$,27);:""]Í59000^ËAF57000_ËRF58000cÙ"";(D$,38);"";4dÁI115:"& ";: KeÙ"";(D$,38);"";unÙ" [   A",0," "@73,"EOR #$",1," "J74,"LSR",0," "T76,"JMP $",2," "^77,"EOR $",2," ",h78,"LSR $",2," "Br80,"BVC $",1," "[|81,"EOR ($",1,"),Y"r85,"EOR $",1,",X"86,"LSR $",1,",X"88,"CLI",0," "89,"EOR $",2,",Y"KE PREDICTION P$""200X  ""P$"";: SHOW PREDICTION ON SCREENa 200  RECONNECT TO BOOT PROGRAM "LOAD"(34)"TEXT BOOT" (34)",8":"RUN" 631,13:632,13:198,2:  STOP TRY ҟ ] ELECTS /"xÙ" [  ҟ ] CROLLS ENU"Ù" [ ş ] ELECTS IGHLIGHTED TEMS"Ù" [؟] XITS";Ù"";:51200:5 ÀS(  "HEADER STUFF"ZÙ5B TEXTRAPOLATION 123 -- SCAN BACK FOR BEST MATCH LENGTH <= 3hdA$" ": 15 BLANKSxA$A$A$: A$A$A$: A$A$A$: A$A$A$: A$ = 240 BLANKS53281,1:53280,7"BEGIN TYPING...":"BEWARE--THIS IS ONE IS SLOW...":198,1 AD$(I);jItSF$~CC201180" PRESS RETURN TO CONTINUE.":CC00C$:C$(13) 11706I0,"BRK",0," "a1,"ORA ($",1,",X)"v5,"ORA $",1," "6,"ASL $",1," "8,"PHP",0," "9,"ORA #$",1," "10,:632,13:198,2:493N 39C,3086318432A900A02791318810FBA006B9F80391318810F8,2574 3B4,A200A008E88A9131C8A902913188CAE8BD0002C921B0F848,2950 3CC,8A38F131889131C8C8C8C868D0DEA9281865319002E63285,3090 3E4,31208E*62033*5AD0102C924D0034CC3% "":53281,1:53280,7: NL0+ :r X$: X$"" 210: WAIT FOR USER TO TYPE A LETTER X$"_"63000 LL1:L38::: L0:NLNL1:NL7190 ""(8);X$;: BACKSPACE-THEN PRINT CHOSEN LETTERC ,NN1: P$X$ RR1: CONVERT CHARACTER, ADD ONE A$(A$,239)X$: P240: RECORD LATEST CHOICE, INITIALIZE P M0:I23931:(A$,I,1)(A$,240,1)PI1:M1:FI:I3  I:M0 900: STOP TRY 93,"EOR $",2,",X"94,"LSR $",2,",X"96,"RTS",0," "97,"ADC ($",1,",X)"&101,"ADC $",1," "=102,"ROR $",1," "R104,"PLA",0," "j105,"ADC #$",1," "106,"ROR",0," "108,"JMP ($",2,")"109,"ADC $",2," "KE PREDICTION P$""200: CL(214):CC(211):"SCORE:";Rd 783,0:781,CL:782,CC: 65520  ""P$"";: SHOW PREDICTION ON SCREEN 200  RECONNECT TO BOOT PROGRAM "LOAD"(34)"TEXT BOOT" ING IF NO MATCH FOUNDL M0:IF121:(A$,I,2)(A$,239,2)PI2:M1:FI:I2 0 I:M0 900: STOP TRYING IF NO MATCH FOUND DIF111:(A$,I,3)(A$,238,3)PI3:I1 X I P$(A$,P,1) : MAING IF NO MATCH FOUNDL M0:IF121:(A$,I,2)(A$,239,2)PI2:M1:FI:I2 0 I:M0 900: STOP TRYING IF NO MATCH FOUND DIF111:(A$,I,3)(A$,238,3)PI3:I1 X I P$(A$,P,1) : MAA (34)",8":"RUN"3 631,13:632,13:198,2: PI2:M1:FI:I2 0 I:M0 900: STOP TRYING IF NO MATCH FOUND DIF111:(A$,I,3)(A$,238,3)PI3:I1 X I P$(A$,P,1) : MA" ",1,",Y"184,"CLV",0," "185,"LDA $",2,",Y"186,"TSX",0," " 188,"LDY $",2,",X"%189,"LDA $",2,",X"= 192,"CPY #$",1," "W 193,"CMP ($",1,",X)"n 196,"CPY $",1," "$ 197,"CMP $",1," ". 198,"DEC $",1," "8 200,"IN SP124  MS 3310#930:2480:828: e3440: " WARNING! METEOR SHOWER": AS0 : 198,01022,129:1020,128:1021,137: 1023,054296,10 CT1 NMMT(CT,1)((1)40)1424MT(CT,2)((1)6)1 CT " "133,"STA $",1," "134,"STX $",1," "136,"DEY",0," " 138,"TXA",0," "#140,"STY $",2," ":141,"STA $",2," "Q142,"STX $",2," "h144,"BCC $",1," "145,"STA ($",1,"),Y"148,"STY $",1,",X"149,"STA $",1," 110,"ROR $",2," "&112,"BVS $",1," "0113,"ADC ($",1,"),Y":117,"ADC $",1,",X"&D118,"ROR $",1,",X";N120,"SEI",0," "SX121,"ADC $",2,",Y"kb125,"ADC $",2,",X"l126,"ROR $",2,",X"v129,"STA ($",1,",X)"132,"STY $",1,,1," "f168,"TAY",0," "p169,"LDA #$",1," "z170,"TAX",0," " 172,"LDY $",2," "#173,"LDA $",2," ":174,"LDX $",2," "Q176,"BCS $",1," "k177,"LDA ($",1,"),Y"180,"LDY $",1,",X"181,"LDA $",1,",X"182,"LDX $ ,X"150,"STX $",1,",Y"152,"TYA",0," " 153,"STA $",2,",Y" 154,"TXS",0," "$ 157,"STA $",2,",X"<*160,"LDY #$",1," "V4161,"LDA ($",1,",X)"n>162,"LDX #$",1," "H164,"LDY $",1," "R165,"LDA $",1," "\166,"LDX $" B TEXTRAPOLATION 123 -- SCAN BACK FOR BEST MATCH LENGTH <= 3hdA$" ": 15 BLANKSxA$A$A$: A$A$A$: A$A$A$: A$A$A$: A$ = 240 BLANKS53281,1:53280,7"BEGIN TYPING...":"BEWARE--THIS IS ONE IS SLOW...":198,1   NN  (828)120 580%&2790:1820f0"": T1 16:"& ":To:""D2055: 430: 3300N2480: 828: 940: X METEOR SHOWER *bI%RD2:((RD2ID)0) DLDL1:DL1D ,NN1: P$X$ RR1: CONVERT CHARACTER, ADD ONE A$(A$,239)X$: P240: RECORD LATEST CHOICE, INITIALIZE P M0:I23931:(A$,I,1)(A$,240,1)PI1:M1:FI:I3  I:M0 900: STOP TRYING % "":53281,1:53280,7: NL0+ :r X$: X$"" 210: WAIT FOR USER TO TYPE A LETTER X$"_"63000 LL1:L38::: NLNL1:NL7190 ""(8);X$;: BACKSPACE-THEN PRINT CHOSEN LETTER?REDICTION P$""200T  ""P$"";: SHOW PREDICTION ON SCREEN] 200  RECONNECT TO BOOT PROGRAM "LOAD"(34)"TEXT BOOT" (34)",8":"RUN" 631,13:632,13:198,2:  STOP TRYING IF NO MATCH FOUNDH M0:IF121:(A$,I,2)(A$,239,2)PI2:M1:FI:I2 0 I:M0 900: STOP TRYING IF NO MATCH FOUND DIF111:(A$,I,3)(A$,238,3)PI3:I1 X I P$(A$,P,1) : MAKE PER, IF IT IS NOT KILLED"= _"BEFORE REACHING YOUR WALL, IT WILL"j d"BEGIN CHEWING ON IT, WHICH OF COURSE" i"MAKES YOU MORE VULNERABLE TO THE" " k"METEORS, SO..."% " n" < MO0  MC1 NM : 828) M1MT(MC,1):M2MT(MC,2)4*M1,32l4M11984MT(MC,1)MT(MC,1)40:M1M140:P(M1):840|>M1,32:890H(P32)MT(MC,2)MT(MC,2)1:P6153281,2:1730R MT(MC,2)1 830\M1,42f M20 830p801. ") "2. O BACK TO ": "HICH ?";P 198,0:198,1:A$ A$"1"A$"2" 53280,(1)15:190 A$"1"F$"WORMSHOT" A$"2"F$"HELLO" A$; "LOAD"(34)F$(34) ",8":"R PRESS A KEY >" s T$: T$ "" 115@ x"": A$" "d A$"   " A$" " A$"  " A$"" A$" " " L1l430"v956:T(TI): (1624)32 710o" DEFENSE TOO GREAT FOR METEORS!!! BONUS 200 POINTS."TSTS200:T11800:T"   "MS0WH0:970: -UN"631,13:632,13:198,2: "": A$" "d A$"   " A$" " A$"  " A$"" A$" " " SCORE:"TS%"TABULATING SURVIVAL POINTS": SP06T19842023t (T)32 SPSP10:"";SP{TT19441983 (T)32 SPSP15: " ";SPT:TSTSSPT1160  ,254,3,141 4,212,173,255,3,133,182,108  46,3,32,88,3,76,107,39  120,173,254,3,41,254,141,4Y  212,173,46,3,141,20,3,173w  47,3,141,21,3,169,0,141  0,212,141,1,212,88,96,256  - YOUR PROGRAM -  - CONTI PROTECT YOUR CITY FROM THE IMPEND-"1"ING METEOR STORM. IF AN EQUIVALENT OF"_"FIVE BUILDINGS REMAIN AFTER A STORM,""SURVIVAL POINTS ARE ADDED UP AND THE ""WORM ATTACKS AGAIN, FROM ONE POSITION""LOWER. EVERY SEVENTH ROU 0:T$"  "G." "u8"  "B430:2980:RDRD1:2055:L  * ENDING MESSAGE **V956:"YOUR SURVIVAL QUOTIENT OF"SP SOLVING ALGEBRAIC EQUATIONS. FTER AN EQUATION IS CHOSEN, YOUR GOAL IS TO SOLVE IT AS QUICKLY AS POSSIBLE. O SOLVE THE EQUATION, YOU MUST ALTER IT BY USING ANY OF THE FOLLOWING COMMANDS (YOU CAN VIEW THESE FROM WITHIN THE PROGRAM): -- ND YOU SURVIVE,""YOU'LL GET A BONUS BUILDING FOR EACH "F "TIME YOU HIT THE TAIL. THE '_' KEY WILL"t "PAUSE AN ATTACKING WORM IN CASE OF " "PHONE, SNACK NEEDED, ETC.":" FIRE TOWERɝ CITY BUILDINGS""HIT A "IS "`"NOT ENOUGH TO CONTINUE YOUR BATTLE."<j" YOUR SCORE WAS"TSMt2690: 2790~198,0: "DO YOU WANT TO PLAY AGAIN?(Y/N)"T$:T$"" 1160T$"Y" TS0:LP0:TH0:T(TI):100"":63000  *TIT  * * RITTEN BY: NDY AKERSKI AVE YOU EVER WANTED TO SHOOT DOWN ENEMY FIGHTERS LIKE UKE KYWALKER? F YOU HAVE, THEN IS FOR YOU. RITTEN IN 100% MACHINE LANGUAGE, IS A FAST-PACED SHOOT-'EM-UP. S YOU'R KEY TO START" 198,0""S$:S$"" 1570(,M6 TAIL SOUND ROUTINE  *S@:_JS54279mT S6,240z^ S4,17h A1 10r X 1 255 25| S1,X2 X A S4,16 LE SCREEN *453280,0:53281,0:"": *** PUT TITLE SCREEN HEREe""""" "" "" "?" BY JOE GARRETT"d" COPYRIGHT 1985"" LOADSTAR IS NOT PUBLIC DOMAIN" " PLEASE RESPECT THE AUTHOR'S RIGHTS"" DO YOU NEED IN METEOR CRASH SOUND  *:S54279 S1,14! S5,32 S6,25515? S4,17l D1 315:EE1:S1,40D:S4,17: D S4,16: 53281,0 - IRQ MUSIC MAKER -I828: ((I)120)2480&"WAIT..."0 A: A256 2060: I,A:II1:1840'D 120,173,20,3,141,46,3,173GN 21,3,141,47,3,169,107,141dX 20,3,169,3,141,21,3,32b 88,3,88,96,173,252,3,133l 253,173,253,3,133,254,169,0v 133,182,169,0,133,169,96,165 169STRUCTIONS?(Y/N)" 2055 : T1 10: T (T$:T$"" 1310322109,219:""E< T$"Y" tF" *** INSTRUCTIONS *** "PNN1:440:NN0d(142)"USE SPACE BAR TO FIRE SHOTS ONE AT A"n"TIME AT AN ADVANCING WOR0z956: MC'" "=2480:MS1: 680] *** PRINT STATUS LINE ***u((198)1) 198,1"SCORE:"TS" TAILS HIT:"TH" ROUND:"RD * CITY BONUS430: " ,240,15,198,169,208,8,173  254,3,41,254,141,4,212,108- 46,3,165,182,240,5,198,182N 108,46,3,160,0,177,253,201q 255,240,39,141,1,212,200,177 253,141,0,212,200,177,253,133 169,24,165,253,105,3,133,253 144,2,230,254,173M:. MORE"x"POINTS ARE SCORED BY HITTING HIM TOWARD"L"HIS TAIL, WITH A BONUS FOR HITTING IT."y"IF HIS HEAD IS HIT THEN HE IS KNOCKED""BACK A ROW. DESTROY HIM BEFORE HE ""REACHES YOUR DEFENSE WALL SO THAT YOU""CAN;ES USED: &- GET THE EQUATION TO LOOK SOMETHING LIKE '=17', YOU HAVE SOLVED THE EQUATION. FTER SOLVING THE EQUATION, THE ORIGINAL EQUATION WILL BE SHOWN WITH THE CALCULATED VALUE OF INSERTED INTO TH  SC(T1)TP ( TN$NM$(T) : NM$(T)NM$(T1): NM$(T1)TN$ : .( * DISPLAY HIGH SCORES *d( " *** WORMSHOT HALL OF FAME *** "( "& "( T1 10( " "NM$(T)"  NUES HERE ------- S54272:LSS24:L,0:L!*T3500035180&!4N:T,N:T: 2430A!> 12,143,24, 14,239,17\!H 12,143,10, 12,143,3x!R 16,195,10, 12,143,10!\ 11,48,10!f 12,143,24, 18,209,17!p 12,143,10, 12,143,4!z 19,239,1 ! "SC(T)( T( (" * INPUT INITIALS *(), " YOUR SCORE OF"TS"ENTITLES YOU TO"V)6 "ENTER YOUR INITIALS IN THE WORMSHOT"u)@ "HALL OF FAME! ";)J "";:NM$"": T1 3)T I$:I$"" 2900)^ I$;:NM$NM$I$ "62"T110:NM$(T)"---":SC(T)1500:T:2:2630:& T 1 10& 2,NM$(T),SC(T))& T : 21&( 157&2 \&< * WRITE HI-SCORES *|&F 5,8,5,"@0:WORM SCORES,S,W"&P T1 10&Z 5,NM$(T)","SC(T)&d T : 5&n &x * 0, 18,209,10! 14,239,10, 12,143,10" 18,209,10, 25,30,10+" 12,143,4 , 11,48,10F" 11,48, 4, 9,104,10b" 14,24,10, 12,143,24}" 4,180,10, 4,180,17" 4,180,10, 4,180,4" 4,48,10, 3,187,10" 3,134,10" 12  ,143,24, 14,239,17" 12,143,10, 12,143,4# 16,195,10, 12,143,10"# 11,48,10=# 12,143,24, 18,209,17X# 12,143,10, 12,143,4t# 19,239,10, 18,209,10#$ 14,239,10, 12,143,10#. 18,209,10, 25,30,10#8 12,143,4 , 11,48,10 DD A CONSTANT TO THE EQUATION. -- UBTRACT A CONSTANT FROM THE EQUATION. -- ULTIPLY THE EQUATION BY SOME CONSTANT. -- IVIDE THE EQUATION BY SOME CONSTANT. -- OMBINE THE LI  E FLYING THROUGH THE VAST EMPTINESS OF DEEP SPACE, YOU ARE ATTACKED BY ENEMY FIGHTERS. OUR ONLY CHOICE IS A FIGHT TO THE DEATH. HE HIGH-RES BACKGROUND IS YOUR BATTLE FIELD. N YOUR CONTROL PANEL IS A GAUGE THAT RECORDS THE AMOUNT OF DAMAGE TH  #B 11,48,4 , 9,104,10#L 14,24,10, 12,143,24$V 50,60,10, 50,60,183$` 50,60,10, 50,60,10N$j 50,60, 4, 50,60,10d$t 50,60,10, 255$~ MUSIC CONTINUED *$ T3520035298 3$ T,((1)4010):T1,((1)2301 KE TERMS IN THE EQUATION. HIS CLEANS THINGS UP A LOT SOMETIMES. -- ISTRIBUTE THROUGH THE EQUATION. HIS CHANGES SUCH THINGS AS 3(-1) TO 3-3. FTER THIS IS DONE, BINING I  AT YOU HAVE SUSTAINED. HEN THIS REACHES 100%, IT'S LIGHTS OUT!! SE THE JOYSTICK IN ORT 2 TO CONTROL THE MOVEMENT OF YOUR SHIP. HEN THE ENEMY IS WITHIN THE CROSS- HAIRS, PRESS THE FIRE BUTTON TO DESTROY (HOPEFULLY) YOU OPPONENT. HEN YOUR ENEMY FIRES, YOU CAN DESTROY HIS SHOTS BY SHOOTING THEM BEFORE THEY REACH YOUR SHIP. HIS IS A GOOD DEFENSIVE MOVE THAT SHOULD BE PRACTICED AS MUCH AS POSSIBLE. ILES USED:  &- E TH S USUALLY MOST EFFECTIVE. HEN YOU FINALLY GET THE EQUATION TO LOOK SOMETHING LIKE '=17', YOU HAVE SOLVED THE EQUATION. FTER SOLVING THE EQUATION, THE ORIGINAL EQUATION WILL BE SHOWN WITH THE CALCULATED VALUE OF INSERTED INTO TH  E CORRECT POSITIONS. HIS IS DONE SO YOU CAN CHECK THE VALIDITY OF YOUR ANSWER. FTER SOLVING AN EQUATION, YOU CAN TRY TO SOLVE A NEW EQUATION OR YOU CAN TRY TO SOLVE THE SAME EQUATION BY USING DIFFERENT (AND MAYBE MORE EFFECTIVE) STEPS. IL CHECK FOR HIGH SCORE **& TSSC(10) *' SC(10) TS:2860:NM$(10)NM$: SORT SCORES *C' SW0: T9 1 1q' SC(T)SC(T1) SW1: 2760' T: SW 2710' 2630' ' TPSC(T) : SC(T)SC(T1):  2):T2,1:T$ 35299,255% RESET THEME MUSIC  * % 1020,184: 1021,136-% 1022,33:% 1023,DLT% 54277,8 : 54278,8e% 54296,12: % * GET HI-SCORES  *% 2,8,2,"0:WORM SCORES,S,R"% 15,8,15:15,A$% A$!! )"C1;E"= "F"":11991Z.13)"-"X""C1;E"= "F"":12000Z.13)""A1"("B1"("X")+"C1")"E"= "F"":11990Z.E011985[.13)""A1"(-"X""C1")+"E"= "F"":11990A[.13)""A1"(-"X"+"C1")"E"= "F"":11990x[.13)""A1"("B1"! " ^`35)" "^a35)" "^b35)" "^c35)" " _d35)" "H_e35)" "o_h37! ]/:Q250]/Q4"  GOODBYE!!":W11000::""]/Q463000]/Q114000]/W1W11]/Q315000]/"":12200]0]216000^J3""^T3W115^U336)""$^V31^^3""X^_35)" ! !vTp+C1011123Tq+E011125Tr+13)"+"X"+"C1"+"E"= "F"":12000Ts+E011126Tt+13)"+"X""C1"+"E"= "F"":12000Uu+13)"+"X"+"C1""E"= "F"":12000";Q`! "61. T1 20. SLW LW240 40. S,61. S : T20 P32/ URW RW240 40 /* U,P(/4 U=/> LWLW1: RWRW1O/H T :1884,32Z/R 430:`/\ :/f *** RESTORE GUN PROTECTION ***/p T1923 1483 40/z (T)61 !)h T: : (NM$)3 C$"2":2950*r "ARE THEY CORRECT? (Y/N)"*| C$: C$"" 2940Y* C$"Y" " ":2860_* * *** 7TH ROUND SURVIVAL BONUS ** (RD7RD14RD21RD28) SP125 *! !13)" "D1:12000V+C1011172V+13)""B1"("X")+"C1"= "F"":11991V+13)""B1"("X")"C1"= "F"":11991V+E011280V+E011192(W+13)""A1"("X")+"E"= "F"":11990SW+13)""A1"("X")"E"= "F"":11990qW+13)"!! "A1"("X")"W+13)"+ = "FW+13)" "D1:12000W+C011212W+13)""A1"("X"+"C1") = "F"":11990 X+13)""A1"("X""C1") = "F"":119909X+13)""A1"("B1""X") = "F"":11990HX+E011290WX+E011242|X+! 1022,17:1020,128:1021,137:1023,7:54278,255 + 54296,15 :54277,0 :828+ 430B+ " CONGRATULATIONS,"RD"TH ROUND"o+ "SURVIVOR! ONE BONUS BUILDING FOR"+ " EVERY TAIL HIT!"+ T55456 55655 3:T,((1)15!)1:T+ (1964)32 THTH1: 2004,214: 1964,66:3200 , TH1 31204, MB0:T19842023:(T)32MBMB1L, T:THMB THMB1Z, Q1 THp, W((1)39)1984, (W)32 3170: Q: 3120,& 3090,0 TH0:T1 !!13)"+"X"+"E"= "F"":12000X+13)"+"X""E"= "F"":12000X+13)" "X""X+13)"+ = "FX+13)" "D1:12000X+C011262Y+13)"+"X"+"C1"= "F"":12000=Y+13)"+"X""C1"= "F"":12000fY,13)""B1"("X") = "F!!"":11991Y,13)""A1"("X") = "F"":11990Y,13)"+"X" = "F"":12000Y.13)""B1"("X")+"C1" "E"= "F"":11991Y.E011975Z.13)"-"X""C1"+"E"= "F"":12000CZ.13)"-"X"+"C1;E"= "F"":12000qZ.13)""B1"("X"! 1500: T,: " "-D "! "C-N " "_-X LP2(RD7):956:DL5:}-b W,102:W40,20:3200: -l NEW BUILDING SOUND-v :- S54279- S1,1! 4- S5,3- S6,25515- S24,15- S4,17(. D11 18022:S1,D :S4,33 :S1,80D:S4,17: D5. S4,16E. T1600:TK. p. *** BUILD WALL *. 430:"*** DEFENSE SCREEN UP! ***":LW1864:RW1863:P""891913188CAE8BD0002C921B0F8480202913188CAE8BD0002C921B0F848A9A902913188CAE8BD0002C921B0F848C8C8A902913188CAE8BD0002C921B0F8483131C8A902913188CAE8BD0002C921B0F848919131C8A902913188CAE8BD0002C921B0F8488A8A9131C8A902913188CAE8BD0002C921B0F848E8E88A9131C8A90" #$(271)"  ") L$(272)"  "*L$(273)"  "*L$(274)"  "3*(L$(275)"    ";*2 VT*<L$(276)"  "m*FL$(277)"  "*PL$(278)"  "*ZL$(279)"  "*dL$(280)" ߒ "" )"JOHN ROBINSON JULY 1984"_r3" M.A.C.E. SOFTWARE CONTEST EDUCATIONAL"_X41,0:13)"PRESS RETURN";::1,U:1_4W115_436)""_414500 `6AG:BH:CI:DJ)`6A1G1:B1H1:C1I1:D1J15`6EK:FLQ`6"":53281,0:5328" "Y",0," "B 201,"CMP #$",1," "L 202,"DEX",0," "V 204,"CPY $",2," " ` 205,"CMP $",2," "#j 206,"DECPAYLOADQ0B0B00000B010000282800D2D228004141D22800A77*7*741D22800AEAE*741D228004C4CAE*741D22800A66*6*64CAE*741D22800C3C3*64CAE*741D228004C4CC3*"" 64CAE*741D2280003034CC3*64CAE*741D22800D0D0034CC3*64CAE*741D228002424D0034CC3*64CAE*741D22800C9C924D0034CC3*64CAE*741D228000202C924D0034CC3*64CAE*741D22800010102C924D0034CC3*64CAE*741D22800ADAD0102C924D0034CC3*64CAE*741D22800A55*5*5AD0102C924D0034CC3*64C" "0,0Z`6338e`816000p`:9""`D95)"THIS PROGRAM PRESENTS UNIQUE"`N95)"WAYS TO ILLUSTRATE SOME OF THE"`X95)"PROPERTIES OF EQUALITY LEADING"ab95)"TO THE SOLUTION OF AN EQUATION."=al95)"IT MAY BE USED AS PART OF A"cav95)"TEAC"" HER'S CLASSROOM LESSON"a95)"OR AS INDIVIDUAL STUDENT"a95)"PRACTICE."a91,0:13)"PRESS RETURN";::1,U:1a:16000a.;""a8;16)"COMMANDS"bB;10)"ADD"bL;10)"SUBTRACT"0bV;10)"MULTIPLY"Eb[;10)"DIVIDE"^b`;" "AE*741D228003333*5AD0102C924D0034CC3*64CAE*741D22800202033*5AD0102C924D0034CC3*64CAE*741D22800A66*6*62033*5AD0102C924D0034CC3*64CAE*741D228008E8E*62033*5AD0102C924D0034CC3*64CAE*741D2280020208E*62033*5AD0102C924D0034CC3*64CAE*741D22800318585323285E6E6328 T1,61/ T : / 2540:TS5000: SP15:11100 CONNECT BACK TO LOADSTAR=0""LOAD"(34)"HELLO" (34)",8":"RUN"b0,631,13:632,13:198,2: *. 430:"*** DEFENSE SCREEN UP! ***":LW1864:RW1863:P "10)"DISTRIBUTE"bj;10)"COMBINE LIKE TERMS"bt;13)"PRESS RETURN"b;Q$:Q$""15240b;W1012040b;50b>"":53281,12:53280,12c>" ""c>W118,c>2)""2c>cc>"""oc>W115|c>3)""c>c>" ""c>""c>W117c>37)""c? d ?3)" "d?"""d ?W1150d*?36)""6d4??Td C""2913188CAE8BD0002C921B0F8480808E88A9131C8A902913188CAE8BD0002C921B0F848A0A008E88A9131C8A902913188CAE8BD0002C921B0F8480000A008E88A9131C8A902913188CAE8BD0002C921B0F848A2F8F81010F8888810F831318810F89191318810F8030391318810F8F8F80391318810F8B9B9F80391318810F""50202E63285909002E6328531319002E632856565319002E63285181865319002E6328528281865319002E63285A9A9281865319002E63285DEDEA9281865319002E63285D0D0DEA9281865319002E632856868D0DEA9281865319002E63285C8C868D0DEA9281865319002E63285C8C8C868D0DEA9281865319002E63285CjONNECT TO L.S.d""LOAD"(34)"PAYLOAD"(34)",8":"RUN"d,631,13:632,13:198,2: ;W1012040b;50b>"":53281,12:53280,12c>" ""c>W118,c>2)""2c>cc>""80606B9F80391318810F8A0A006B9F80391318810F8FBFBA006B9F80391318810F81010FBA006B9F80391318810F8888810FBA006B9F80391318810F831318810FBA006B9F80391318810F89191318810FBA006B9F80391318810F8272791318810FBA006B9F80391318810F8A0A02791318810F1B0F848E8E88A9131C8A90""8C8C8C868D0DEA9281865319002E63285C8C8C8C8C868D0DEA9281865319002E632853131C8C8C8C868D0DEA9281865319002E63285919131C8C8C8C868D0DEA9281865319002E6328588889131C8C8C8C868D0DEA9281865319002E632853131889131C8C8C8C868D0DEA9281865319002E63285F1F131889131C8C8C8C86""8D0DEA9281865319002E632853838F131889131C8C8C8C868D0DEA9281865319002E632858A4848F8F848B0B0F8482121B0F848C9C921B0F8480202C921B0F848000002C921B0F848BDBD0002C921B0F848E8E8BD0002C921B0F848CACAE8BD0002C921B0F8488888CAE8BD0002C921B0F848313188CAE8BD0002C921B0F84 R TO THE ULY 1985 ISSUE  OF OWERLAY AGAZINE. >ILES SED: &- DONE THE JOB OF TYPING THE PROGRAM LISTINGS FOR YOU, THERE'S NO NEED FOR YOU TO RUN FROM . E HAVE # ESIRED.,"LACE THE DISK TO EDIT IN THE DRIVE AND "M" PRESS A KEY."W1245g(142)"";z1,8,15:1,"I"2,8,2,"#":7903,8,3,"0:TZ,U,W":790ER02:3:1:2103:1,"S0:TZ"N1:Z1:T18:S1:HI$""## *n W*xL$(281)"  "*L$(282)"  " +L$(283)"  "$+L$(284)"    "=+L$(285)"ߒߒ "E+ X^+L$(286)"ߒ  "w+L$(287)" "+L$(288)"   "+L$(289)"ߒ "+L$(290)"  :K1I111:HI$HI$(0):KK$(131)(18)(0):DA$"-"HI$:FI$" "n"READING FILES. PLEASE WAIT1,"U1 2 0";T;S #2,T$,S$T(T$(0)):S(S$(0))T0ZZ1BP2I18:""Z;I"1,"B-P 2";BP,631,13:632,13:198,2:1:6040, 65484:8:156 LCLL< N 65484:8:15~ X" -RESS F1-F7 KEYS TO MOVE TEXT-" ]" -RESS 'P' TO PRINT TEXT.-" b"  -RESS 'X' TO EXIT -" gDA$ l'646# # ߒ "+ Y+L$(291)"  "+L$(292)"  ",L$(293)"  ".,L$(294)"  "G,L$(295)"  "O," Zh,,L$(296)"    ",6L$(297)"  ",@L$(298)"  ",JL$(299)" ",## TL$(300)"    ",^ [ HAPPY FACE,hL$(301)""-rL$(302)"ђ "*-|L$(303)" "C-L$(304)""\-L$(305)""i- \ BOAT-L$(306)" "-L$(307)"  "-L$(308)" " # 'LIST 50 -' TO SEE PROGRAM"E 2FL0FL1:"INPUT 30.O",8,1d 4A$"":53281,1:"";(14) 7" IRECTORY EDIT" <" HIS PROGRAM WILL DO THE FOLLOWING: A" 1: ŠDIRECTORY LISTINGS F" 2: AKE A PLACE IN THE #DIRECTORY"@ K" WHERE EVER YOU WANT, SO THAT THE NEXT";e P" SAVED FILE WILL APPEAR THERE" U" 3: AKE A MARK ( -)" Z" [EACH WILL BE DIFFERENT -- 45 MAX] _" ANY PLACE IN THE DIRECTORY" d" 4: # #-L$(309)" ؒ"-L$(310)"   "- ] TRAIN CAR.L$(311)" ϒ "*.L$(312)""C.L$(313)" "\.L$(314)""u.L$(315)"ʒ˒ ʒ". ^ MAN.L$(316)"  ".&L$(317)"  ##".0L$(318)"  ".:L$(319)" ".DL$(320)"  " /N _ ARROWS&/XL$(321)" "?/bL$(322)"ߒ "X/lL$(323)" "q/vL$(324)" "/L$(325)"ߒ "/30/" STANDBY CHARACTERS"# AND FILES1 i" [RENAME THAT MYSTERY FILE]T n" [SCRATCH '' OR',' ETC.]v s" 5: / FILES; x" LOCKED FILES CAN'T BE SCRATCHED. AND ARE PRINTED REVERSED }" SELECTED LOCKED FILES WILL BE U#NLOCKED. ";6 "SELECTED UNLOCKED FILES WILL BE LOCKED< :V B(18),F$(144):198,0t Z$"" B(1)1:B(2)4:B(3)7:B(4)10:B(5)13:B(6)16:B(7)2:B(8)5:B(9)8:B(10)11 B(11)14:B(12)17:B(13)3:B(14)6:B(15)9:B(16#/" "/ _ MAD FACE/L$(321)""0L$(322)"͒ "+0L$(323)"ג "D0L$(324)"Ւ"]0L$(325)""e030y0 CONNECT BACK0"53270,2000,"WOULD YOU LIKE TO DO SOME #MORE?"06198,0:198,1:A$:A$"Y"A$"N"53280,(1)15:630301@A$"Y"SB113:A$(SB)""::L1:N1:30$1J:W1T"LOAD"(34)"PAYLOAD"(34)",8":"RUN"t1^631,13:632,13:198,2:5)"ߒ "/30/" STANDBY CHARACTERS"##)12:B(17)15:B(18)18) ," PRESS A KEY":1245u "HEN YOU ARE FINISHED IT WILL REWRITE THE DIRECTORY ON THE DISK. "ALIDATE THE DISK IF DESIRED. O NOT USEON DISKS WITH RANDOM FILES "OFT-WRITE PROTECT THE DISK IF SELECTED W## ILL ACT LIKE THE WRITE ";K"PROTECT TAB ON ADISK. T WORKS BY GIVING A DOS MISMATCHz"ERROR ON ATTEMPTING TO WRITE TO THE DISK"OTH HARD AND SOFT WRITE PROTECTED DISKS";"WILL BE CHECKED FOR AT THE START OF THE PROGRAM AND REMOVED IF D