tHE COUNT 128 - FROM IPS HOY! - INFORMS YOU OF HOW MANY LINES ARE IN YOUR PROGRAM WHEN YOU TYPE 3072. - VEMENT. - N THE SPECIFIED EQUATION. NTEGERS. 2.  222,198,200,208,205,96,160,0  185,0,192,153,0,4,185,240  195,153,0,216,185O CROLL! 64 - FROM IPS HOY! - ALLOWS YOU TO PAUSE LISTINGS WHEN YOU USE THE COMMAND - SIMULATING THE 128'S KEY. SPECIFIED EQUATION. NTEGERS. 2.  222,198,200,208,205,96,160,0  185,0,192,153,0,4,185,240  195,153,0,216,185bAPS-OCK 64 - FROM IPS HOY! - LETS YOU SIMULATE THE APS-OCK KEY OF THE -128 ON THE 64. - - MULATING THE 128'S KEY. SPECIFIED EQUATION. NTEGERS. 2.  222,198,200,208,205,96,160,0  185,0,192,153,0,4,185,240  195,153,0,216,185OCK 'N OLL - FROM IPS HOY! - PERMITS YOU TO ADD FLAIR TO YOUR ACTION SCREENS BY ROCKING AND SHAKING THE DISPLAY. 53000 TO ACTIVATE. ED EQUATION. NTEGERS. 2.  222,198,200,208,205,96,160,0  185,0,192,153,0,4,185,240  195,153,0,216,185128 EXT ODE PLIT ACKROUND - FROM IPS HOY! - DIVIDES THE 128'S TEXT MODE SCREEN IN TWO BY DISPLAYING SEPARATE BACKGROUND COLORS IN EACH HALF. ION. NTEGERS. 2.  222,198,200,208,205,96,160,0  185,0,192,153,0,4,185,240  195,153,0,216,185 * ==================================N COMMODARES PROBLEM #43-1 :f" ULER'S RIMES"{ SOLUTION BY PAUL VAUGHAN ================================== A.B=4294967297 A=4294967... B=.......297 A42949HIS IS HOY!'S ACHINE ANGUAGE ENTRY PROGRAM FOR OUR ADVENTUROUS READERS WHO LIKE TO TYPE IN THE PROGRAM FROM OUR MAGAZINE. - TEXT IN ULER'S RIMESHOY!'S CHECKSUM PROGRAM FOR MIS- TAKEPROOF TYPING OF -64 PROGRAMS PRINTED IN HOY!. (OR PROGRAMS PUBLISHED FROM AY 1987 ONLY! THERWISE USE 64 UG EP.) ULER'S RIMESHOY!'S CHECKSUM PROGRAM FOR MIS- TAKEPROOF TYPING OF -128 PROGRAMS PRINTED IN HOY!. (OR PROGRAMS PUBLISHED FROM AY 1987 ONLY! THERWISE USE 128 UG EP.) LER'S RIMES   2062,_`Z[nXȅY L  m9Ņ:;<< 9;@e99:i:e;;>    ?3GYEhfjiP*ڠ UUUʨWYEhfjiP*ڠ67 : B297 : N7 65537 2C H(AN) : RHANH : LR1000RHBj LLRN : RLLRN(L) : RL0 14v N : "1+2^(2^5)=4294967297=" ((N),2)"*"((H),2)((L),2)  È) ĭâ  L6 7Э) rL,8Í F­Ѕ   rí L F jíɶ X2X0HAN$(13)2140 zV21,0:230882:225I116:POI,5::K P$(1,1)"LANKSPEED":IN$(1,1)"LANK IN"} P$(1,2)"64 UG EP ":IN$(1,2)"UG EP IN" P$(1,3)"128 UG EP 2":IN$(1,3)"BUG REP IN" P$(1,4)"ORBIT":IN$(1,4)"ORBIT IN" P$(1,5) D THIS "%J4)" PROGRAM SUCCESSFULLY. SE THE"QT4)" PRESCRIBED METHOD WHICH IS..."}^4)" OAD ''ROGNAME'' "h4)" [RESS ANY EY] "r4)""|AT,22,3:" ,71,12,143( 6,71,12,143,6,71,12,143,6,71,12,143R 6,71,12,143,6,71,12,143,6,71,12,143| 6,71,12,143,6,71,12,143,6,71,12,143,1,4,4,2,2,8 : 4,2,2,2,2,2,2,2,2,2,2,2,2,2,2 D 8,97,16,195,8,97,16,195,8,97,16,195 N 8,97,16,195,8,97, Y1Y18:Y1188Y1100+V1,Y1:I0F:LCI,0:?HH1:H12H1SPP1:P18P7sLCLC40:LC56030LC55590|204Y1Y18:Y1100Y1188V1,Y1:I0F:LCI,0:HH1:H1H12 PP1:P7P18#LCLC40:LC55   28,49,33,135,28,49(  25,30,28,49,31,165B  33,135,37,162,28,49]  37,165,33,135,31,165v & 25,30,22,96,18,209 0 4,2,2,3,1,4,4,2,2,8 : 4,2,2,2,2,2,2,2,2,2,2,2,2,2,2 D 8,97,16,195,8,97,16,195,8,97,16,195 N 8,97,16,195,8,97, - >AT,20,2:"  "d CAT,21,2:"" HAT,22,1:"" RAT,23,1:" RSR=ELECT PC=ORE /Ґ=XECUTE "\AT,24,1:" 276,17:54283,17& " 54272,00: 54273,33> ,54279,59:54280,33_ 6 X1 25: HI(X),LO(X): Xz @ X1 25: DU(X): X J X1 64: H3(X),L3(X): X T 54296,15 ^B1: X1 25 hAN$:AN$(13)460 r 54272,LO(X): 54273,HI(X) | )1250 AN$(145)1300) AN$(13)2000J AN$(32)3000:Y1100:140S 204w "";:53280,0:53281,6:V21,0 "OADING...";(34);P$(B,H)(34);"" "LOAD";(34);P$(B,H);(34);",8" "RUN": ""  631,13 9:NATAT22:M:N,M:4 ,32,180,2,132,251,32,180,2W .166,251,76,240,255,32,253,174u 032,158,173,32,170,177,96 253265,(53265)239 <4000:V53248:X175:Y1100 P P$(4,12),PG$(4,12),IN$(4,12):5000:NN4:B.:5190 d53280,0:53281,1: R2080\X0882:4100aX22180>bB1H3B1H4B1H10B1H122155XcB2H2B2H42155dB3H1B3H2B3H5B3H8B3H122155e IFB=4 THEN2155f2159k882:1550oX1882pI035:V,X1I:D135:: "ESERT RONT":IN$(1,5)"ESERT IN"5 P$(1,6)"LASH LOOD":IN$(1,6)"LASH IN"c P$(1,7)"APER OUTE":IN$(1,7)"APER IN" P$(1,8)"INE ENTRY":IN$(1,8)"INE IN" P$(1,9)"-AZE-NG 64":IN$(1,9)"-MAZE IN" P$(1,10)"A-MAZE-ING 128":IN  ":1000(AN$:AN$""1670>882:V21,1:225_ ************************** **** WINDOW ROUTINE **** **************************828AT,4,11:""11)"EE NSTRUCTIO $(1,10)"A-MAZE IN"(( P$(1,11)"AZE EMO 64":IN$(1,11)"AZE 64 IN"Y2 P$(1,12)"MAZE DEMO 128":IN$(1,12)"MAZE IN"7 P$(2,1)"AMCO 64":IN$(2,1)"AMCO IN"< P$(2,2)"RAMCO 128":IN$(2,2)"RAMCO IN"F P$(2,3)"MAZEMENT 64":IN$(2,3)"MAZEMENT 590LC56030(204828:V21,0IAT,12,4:""u"4)" HIS IS A 128 ROGRAM.T MAY ",4)" NOT BE LOADED IN THE 64 MODE."64)" OU MUST SWITCH TO THE 128 "@4)" MODE IN ORDER TO LOA 16,195,8,97,16,1952 X 8,97,16,195,8,97,16,195,8,97,16,195\ b 8,97,16,195,8,97,16,195,8,97,16,195 l 8,97,16,195,8,97,16,195,8,97,16,195 v 8,97,16,195  5,152,11,48,5,152,11,48,5,152,11,48  5,152,11,48  6,71,12,143,6,71,12,143,6 ":fAT,3,10:""`pAT,4,10:" "zAT,5,10:""S54272:S23,0:S24,15S6,0:S5,12:S1,70:S3,40S4,0:S4,65:D1100::S4,0:  54279,LO(X)45:54280,HI(X))  N1 DU(X)G 54286,L3(B):54287,H3(B)Q BB1c  L1 145:k  Ns  X| 350 S54272:I024:SI,0::155  16,195,21,31,25,30  28,49,21,31,28,49  33,135,37,162,25,30  33,135 : 632,13: 198,2:F "":AT,2,2:""u %AT,1,5:"(C)1987 OUBLE OFTWARE V2.0" *AT,3,2:"  " /I419 4AT,I,2:2)"  ": (14):2500+ n2040,15:V39,10:V,X1:V1,Y1P x800:53265,(53265)16:53296,0m LC55590:P7:H1:V21,1 BB1:BNNB1 I112:AT,I6,14:""P$(B,I)::V1,Y1 F(P$(B,H)):A0F:LCA,8::1000 AN$:AN$""206 AN$(17w SMOOTH MOVE "".G$"٧"T G1 37: A17: A$(G$,A,1)g((19)G)" "A$s2 A: GSCREEN CLOCKSPRITE PRINT 128CROLL-A-ATIC   *** THE COUNT...C-64 ***IA700: *** CHANGE A TO RELOCATE ***`(147)"LOADING";BAA38:C:B,C:DDC:".";:B::D6713"ERROR IN DATA...":"OK * SYS"A"TO COUNT...":160,0,132,251,132,252,165,43,166,44,133,253 ! *** THE COUNT...C-128 ***KA3072: *** CHANGE A TO RELOCATE ***a(147)"LOADING";BAA48:C:B,C:DDC:".";:B::D7698"ERROR IN DATA...":"OK * SYS"A"TO COUNT...":169,63,141,0,255,160,0,132,251,132,252,165 # NO SCROLL! 64 BY JIM PARTIN=T679766:A:T,A:TF679d#"O CROLL LOADED...."~(169,178,141,24,3,16922,141,25,3,96,72<138,72,152,72,173,13F221,16,3,76,114,254P173,254,2,208,55,32Z188,246,32,225,255,208 , CAPS-LOCK FOR THE C-64 BY JIM PARTINLT4915249198:DT:T,DT:T49152:49153,0:49154,224:49156,0:49157,224(49162,255:49192,255:491522T5300053053:A:T,A:T<T193218:AD:60289AD,T:TF53000 P"CTRL-F1 TO ,141,21,3,88,96,165,197,201,4,240\ 7,201,5,240,17,76,49,234,173,141,2,201,4,208,4,169,53,133 1,76,49,234,173,141,2,201,4,208,4,169,55,133,1,76,49,234 10,28,20,18,14,21,26,29,33,34,37,42,36,39,38,41,62,17 13,22,30,31,9,23,25,12F1 TO ,A53000: *** CHANGE A TO RELOCATE ***LBAA126:C:B,C:DDC:BpD16748"ERROR IN DATA...":"SYS53000 TO ACTIVATE !!!"169,0,133,2,173,18,208,208,251,173,17,208 9,4,141,17,208,164,2,202,208,253,136,16 "250,173,188,208,208,251,169= .27,141,17,208,169,200,141,22,208,164,2,192k 037,144,1,96,202,208,253,136,16,250,230,2 2230,2,208,136,65,72,83!!!"169,0,133,2,173,18,208,208,251,173,17,208 9,4,141,17,208,164,2,202,208,253,136,16 "250,173,18 : N$(N)4 (D$(D$,2,3) : N$(N$,2,6) : T$D$N$I 2 (T$)9 120W < X1 8g F YX1 9 P (T$,X,1)(T$,Y,1) 120 Z Y d X n" ";D$" * ";D$;" = ";N$ x D: S24,32 E-MAJOR GUITAR CHORD ========= ! 128 TEXT SPLIT BACKGROUND\ SYS2816,LINE#(0-200),COLOR1,COLOR2; SYS2819 DISABLESSUM0:I28162935:J:I,J:SUMSUMJ::SUM11782"ERROR IN DATA STATEMENTS": 76,6,11,76,39,11,120,24 105,49,141,120,11,142,121,11 140,13P 17,208,48,7,173,18,208,201?X 49,144,14,169,1,141,18,208b` 173,122,11,141,33,208,76,117h 11,173,120,11,141,18,208,173p 121,11,141,33,208,76,22,194": 76,6,11,76,39,11,120,24 105,49,141,120,11,142,121,11 140,1y/ 134,254,200,177,253,240,13,230,251,208,2,230c 252,170,136,177,253,184,80,234,165,252,166,251s 76,205,189250,76,72,235,01,4,240,21,201,5,240,25,201,6 240,13,201,3,208,6,32,234,232,32,240,233 76,72,235,228,2,240,249,201,6,240,2/45,166,46,133,253,134,254,200,177,253,240,13a 230,251,208,2,230,252,170,136,177,253,184,80 234,165,252,166,251,160,0,140,0,255,76,50,1425,240,25,201,6 240,13,201,3,208,6,32,234,232,32,240,233 76,72,235,228,2,240,249,201,6,240,2 d15,32,21,253,32,163/ n253,32,24,229,32,167F x2,108,2,160,169,1` 141,254,2,238,32,208| 32,159,255,165,203,201 1,240,3,76,227,2 206,32,208,169,0,141 254,2,169,0,133,198 76,188,254,06,72,235,228,2,240,249,201,6,240,2 ACTIVATE CAPS-LOCK"0 Z"CTRL-F3 TO DEACTIVATE":v d173,0,160,141,0,160,172,5,192,192,191,240,23,238,1,192,238,4,192 n173,4,192,240,3,76,0,192,238,2,192,238,5,192,76,0,192,172,4,192,192 x255,240,3,76,13,192,96 120,169,21,141,20,3,169,207  (147). X128:Y100: I1024 2023LA(1): A.49 I,77:b A.5 I,77:n(V532482 I832 83261: I,0:: 83262,3< 2040,13: V21,1: V39,1F V,X: V1,YPJ(56320): PORT 2Z (J1)0 YY1:XX1 ,208,208,251,169,27,141,17,208,173M $22,208,9,4,141,22,208,164,2,202,208,253 &136,16,250,173,18,208,208,251,169,200,141,22 (208,173,18,208,208,251,173,17,208,9,4,141 *17,208,173,22,208,9,4,141,22,208,164,2 ,202,208,253,136,16,250,173,1_d (J2)0 YY1:XX14n (J4)0 YY1:XX1Px (J8)0 YY1:XX1Y 70 THE COUNT 128 O CROLL! 64 APS-OCK 64 OCK 'N OLL 128 TEXT SPLIT  Z198,0'dI0I1:"DDLOGO",8,14i53280,6Gn55,0:56,92:Ux53265,59d53272,120|56576,(56576)25425055,0:56,16053265,2753272,2156576,(56576)1"";:53280,6:53281,0:(14); "OADING 22,11,169,58,141,20,34 169,11,141,21,3,173,33,208U 41,15,141,123,11,88,96,120x( 169,101,141,20,3,169,250,1410 21,3,173,123,11,141,33,2088 88,96,169,250,72,169,104,72@ 216,56,173,25,208,41,1,208H 3,76,20,194,141,25,208,17 AIN ENU...."< "LOAD";(34);"DIR 1";(34);",8,1"T "RUN":""q 631,13:632,13:198,2: HI(25),LO(25),DU(25),H3(64),L3(64)  54291,134: 54277,136:54284,136  54292,136: 54278,134:54285,134  54290,17: 54 * ==================================N COMMODARES PROBLEM #43-1 :f" ULER'S RIMES"{ SOLUTION BY PAUL VAUGHAN ================================== A.B=4294967297 A=4294967... B=.......297 A42949 * ==================================N COMMODARES PROBLEM #43-2 :c" ERM ARITY"x SOLUTION BY DAVID HOFFNER ==================================R"NTER ONE DIGIT AT A TIME " Q15:B(Q):A(B(Q))Q::N * ==================================N COMMODARES PROBLEM #43-3 :e RANDOM ORDERz SOLUTION BY JIM SPEERS ==================================d"LOWER LIMIT";L:L(L.5)n"UPPER LIMIT";H:H(H.5) x 760 A=X(N):B=Y(N):CH$=C$ : GOSUB 2200% =============================@ C-64 ONLY >>>>>>>>R 214,B1 : j 211,A : CH$ :  ============================= --- RETRACE THE SOLUTION ---- C$"-" CMV(C,1) : MS(C,0)3 * ==================================N COMMODARES PROBLEM #43-3 :e RANDOM ORDERz SOLUTION BY PAUL SOBOLIK ==================================d"LOW, HIGH";P1,P2n S(P2): X0 P2:S(X)X: x XP2 $"E"AX(N):BY(N):CH$C$ : 2200 7 =============================W >>> NOTES FOR C-64 USERS:q CHANGE THE 'CHAR' STATEMENTS IN LINES 210, 240, 970, 980, 1010, 1030, & 17604 TO THE FOLLOWING:> 210 * ==================================N COMMODARES PROBLEM #43-3 :e RANDOM ORDERz SOLUTION BY JOE MATELLO ================================== "ENTER LOWER LIMIT ";LL : "ENTER UPPER LIMIT ";UL8 NEUL (NSQ.01)FMS(N,1)NSQ : NSQ1 MS(N,1)0>PMS(N,2)N1 : MOD%0 MS(N,2)0gZMS(N,3)NSQ : NNCSQ MS(N,3)0dMS(N,4)N1 : MOD%1 MS(N,4)0n Nx --- GET CELL SCREEN LOCATIONS -ROW1COL1 C1 ( ================================H GUITAR CHORD SUBROUTINEd( TO ACCOMPANY YOUR2 OTHERWISE ORDINARY SOLUTIONS< BY OREN DALTONF ===== C-64 OR C-128 ============PS54272: 230Z N1 3 : 110: 230:: 23  20,223,31,68,52,1527 D-MAJOR GUITAR CHORD ========Q 18,209,28,49,47,107w C-MAJOR GUITAR CHORD ========= 16,195,25,30,42,62 === INITIALIZATION ============= J024: SJ,0:S24,44: S22,96: S21,0* S23,67 : B297 : N7 65537 2C H(AN) : RHANH : LR1000RHBj LLRN : RLLRN(L) : RL0 14v N : "1+2^(2^5)=4294967297=" ((N),2)"*"((H),2)((L),2)760 A=X(N):B=Y(N):CH$=C$ : GOSUB 2200- ===========================L14:JA(N):KB(N):NJT1TF A(K)J:B(J)K:: ("EVENODD",1T4,4)LRN : RLLRN(L) : RL0 14v N : "1+2^(2^5)=4294967297=" ((N),2)"*"((H),2)((L),2)760 A=X(N):B=Y(N):CH$=C$ : GOSUB 2200- =========================== HL TH : HL : LT7 WHL1 : N(W1) : I1 WG X((1)W)Z N(X)0 180r XX1 : XW X0| 150 N(X)1 : XL; I2)"*"((H),2)((L),2)760 A=X(N):B=Y(N):CH$=C$ : GOSUB 2200- ===========================Z 1000 : 3020 C$"+"* CMS(C,MV(C,0)) : MS(C,0)4 1000 : 30400 0):CH$=" ":GOSUB 2200z\ 980 A=X(C0):B=Y(C0):CH$="*":GOSUB 2200f 1010 A=X(C):B=Y(C):CH$=" ": GOSUB 2200p 1030 A=X(C):B=Y(C):CH$=C$ : GOSUB 2200z 1T P1 1 : Y(1)(XP1)P1/ : S(Y);@ : S(Y)S(X)N : : )0 180r XX1 : XW X0| 150 N(X)1 : XL; I2)"*"((H),2)((L),2)760 A=X(N):B=Y(N):CH$=C$ : GOSUB 2200- =========================== A=0:B=21:CH$="":GOSUB 2200H 240 A=0:B=21:CH$="":GOSUB 2200LR 970 A=X(C0):B=Y(C0):CH$=" ":GOSUB 2200z\ 980 A=X(C0):B=Y(C0):CH$="*":GOSUB 2200f 1010 A=X(C):B=Y(C):CH$=" ": GOSUB 2200p 1030 A=X(C):B=Y(C):CH$=C$ : GOSUB 2200z 1LL1 : RN(NE) : I1 NE:RN(I)LL1I : : I1 NE~ R1((0)NE)1:R2((0)NE)1:TERN(R1):RN(R1)RN(R2):RN(R2)TE (:: I1 NE: RN(I);: ((H),2)((L),2)760 A=X(N):B=Y(N):CH$=C$ : GOSUB 2200- ===========================  NC SQ NC CSQ1 Y(N)ROW#X(N)COL : COLCOL3+" NA,ROWROW2 : COL1I6 CO@u ----------------- DRAW SCREEN - (147) N1 NCC$"." : MS(N,0)1 C$"*" MS(N,0)3 C$"S" MS(N,0)4 C 0:*dMnR54266: J13:RR7: HF,LF{x R,HF: R1,LF: R3,17: K1150: K,J J122 1: S24,J32: K1100: K,J: S24,33 J120:: S24,32 E-MAJOR GUITAR CHORD =========b7: S5,0: S6,247: S12,0: S13,247: S19,0X S20,247: S4,16: S11,16: S18,16:LF: R3,17: K1150: K,J J122 1: S24,J32: K1100: K,J: S24,33 J120:: S24,32 E-MAJOR GUITAR CHORD ========= ( ================================L COMMODARES SOLUTION #43-4 :c FRACTION FUNw SOLUTION BY FRANK WALCZER ================================ "THE VALID NUMBERS ARE:": D100 999 NDD : D$(D) , *** RAMCO 128 *** BUCK CHILDRESS ***Y *** P.O. BOX 13575 SALEM, OR 97309 ***(147)"LOADING AND CHECKING DATA LINE:":J4864(B011:A2B0L(66)256(65):(19)31)L:<A0A25580FJB,A:XXA:DD1:B:A:AX90 ) ---------------------------------A AMAZEMENT] RUPERT REPORT #47c | C-128 / C-64 C-64 USERS SEE NOTES AT LINE 2000 --------------------------------- ================ INITIALIZATION =  GET SCREEN POSITIONS0 n 1700 : DRAW SCREENQ xDLY100 : MOVE DELAY{ N1 NC : MS(N,0)3 CN : NNC N : FIND STARTING CELL C0 "NO STARTING CELL" : ==================== MAIN LOOP = 300 : PI =====$ , -------------------- PICK MOVE -I 6GDMOVETRUE : ASSUME GOOD @MV(C,0)MV(C,0)1 : INCREMENT MOVE DIRECTION; C=CURRENT CELL JDIRMV(C,0) : CURRENT DIRECTION T ^  ------------------- CHECK MOVE - BKUPFAL00,600,700 : TO MAIN LOOPB ------------------- VALID MOVE -hMV(C,0)DIR : SET FWD LINKMV(NXTCELL,1)C : SET BACK LINKMS(NXTCELL,0)2 : STATUS=USEDCNXTCELL : CURRENT CELL&X ---------------------- BACKUP -+*RESTARTFALSE : ASSUME NO RESTARTR4NXTCELLMV(C,1) : USE BACK LINKy>MV(C,0)0 : RESTORE FWD LINKHMS(C,0)1 : SET STATUS TO AVAILABLERC0C : SAVE OLD CELL #\CNXTCELLfBKUPTRUE'!6169,0,174,88,20,32,50,142,32,125,255,32,1119S!@42,32,76,79,67,65,84,73,79,78,32,0,707!J166,235,164,236,142,90,20,140,91,20,174,90,1568!T20,172,91,20,24,32,240,255,169,0,174,86,1283!^20,32,50,142,32,225,255,240,3,76,70,19,1164!"h169AX(C0):BY(C0):CH$" ": 22001AX(C0):BY(C0):CH$"*": 2200N MOVE CURSOR TO CELL C\ N1 2~AX(C):BY(C):CH$" ": 2200 P1 DLY : AX(C):BY(C):CH$C$ : 2200 P1 DLY :  N$ : TO MAIN .5,77,45,82,0,32,61,20,789G32,78,20,162,15,32,198,255,32,207,255,205,1491x89,20,240,23,32,125,255,32,42,32,69,82,104182,79,82,46,46,46,0,169,0,141,86,20,79776,188,19,72,32,32,20,104,141,99,4,165,952 241,141,99,216,173,89,20,24,1OM CELL C; 1=UP, 2=RT, 3=DOWN, 4=LEFT< -------------------------------\ MS(C,0) CELL STATUS DATAv 1,0,0,0,1,1,1,1,1,1 1,1,1,1,0,0,1,0,1,0 1,0,0,1,1,0,1,0,1,0 1,0,0,0,1,0,1,0,1,0 0,1,1,1,1,0,1,0,1,0 1P"ERROR IN DATA LINE:"L:3ZX0:JJ12:D34840Nd"THE DATA IS OK...":on"SYS 4864 TO ACTIVATE...":x32,125,255,147,18,32,67,45,49,50,56,32,90867,72,69,67,75,83,32,66,79,84,72,32,79849,53,55,49,32,65,78,68,32,49,53,52,635&"" (FALSE0 : TRUE FALSE; 2NC100 : # CELLSf <SQ((NC).5) : WIDTH OF SQUARE F MV(NC,1),MS(NC,4) : MOVES AND MAZE STRUCTURE P X(NC),Y(NC) : SCREEN POSITIONS Z 1320 : GET MAZE STRUCTURE d 1500 :CK MOVE 400 : CHECK MOVE: 900 : UPDATE SCREENW XIT NOSOLN 170r A0:B21:CH$"": 2200 NOSOLN "NO SOLUTION" : 3010 : RETRACE SOLUTION A0:B21:CH$"": 2200  ===========================SE : ASSUME NO BACKUP;  DIR4 800 : 490 : MUST BACK UPb NXTCELLMS(C,DIR) : NEXT CELL # CSMS(NXTCELL,0) : CELL STATUS  CS=0,2,3 INVALID MOVE  CS=1 VALID MOVE  CS=4 END OF MAZE  CS1 600,500,6------ INVALID MOVE -bGDMOVEFALSEBl MS(C,0)3 MV(C,0)4 NOSOLNTRUEHvo ------------------------- DONE -MV(C,0)DIR : SET FWD LINKMV(NXTCELL,1)C : SET BACK LINKCNXTCELLXITTRUE  ------------(p MS(C,0)3 RESTARTTRUE : MV(C,0)4 NOSOLNTRUE.zU ---------------- SCREEN UPDATE -`C$"O"x GDMOVE 1060 XIT C$"E" : 1000 BKUP 1000 NOSOLN RESTART C$"S" RESTORE CELL C0 TO UNUSED,15,32,195,255,76,204,255,169,15,168,162,1715T"r8,32,186,255,169,0,32,189,255,32,192,255,1605"|162,15,76,201,255,173,86,20,32,105,146,173,1444"87,20,32,105,146,169,1,76,105,146,169,13,1069"32,105,146,76,204,255,65,46,72,46,83,46,1176 ===============================*L MAZE DATA STRUCTURE0VS` MS(C,N): C=CELL #, N=0-4rj N=0: CURRENT CELL STATUSt 0=NO ACCESS,1=AVAILABLE,2=USED~ 3=START, 4=END N=1-4: CELL #'S IN DIRECTIONS 1-4 FR05,16,141,89,1354< 20,208,91,238,86,20,208,86,32,125,255,32,1401j 42,32,79,75,46,46,46,0,238,87,20,238,949 88,20,173,88,20,201,5,144,8,169,32,141,1089 "99,4,76,32,20,32,125,255,13,13,68,82,819 ,73,86,69,32,66,85,70,70,69,82,32,0,734 ,1,0,0,1,0,1,0,1,0 1,0,0,0,0,0,1,0,1,1, 1,0,0,0,0,0,1,0,0,1F  3,1,1,1,1,1,1,0,1,1` 1,0,0,0,0,4,0,1,1,0 READ CELL STATUS DATA( N1 NC : MS(N,0) : 2 CALC ADJACENT CELL #'S< N1 NC : MOD%NSQ49,32,68,82,73,86,69,83,32,13,13,13,613W0,169,0,162,2,160,255,141,86,20,141,89,122520,142,87,20,140,88,20,76,188,19,32,40,87220,32,125,255,77,45,87,0,32,61,20,173,92789,20,32,105,146,32,78,20,32,32,20,32,63840,20,32,125,25 . *** LINE SENTRY *** BUCK CHILDRESS ***[ *** P.O. BOX 13575 SALEM, OR 97309 ***(147)"LOADING AND CHECKING DATA LINE:":J52000(B011:A2B0L(64)256(63):(19)31)L:<A0A25580 FJB,A:XXA:DD1:B:A:AX ` *** C-64 VERSION ***@bJ5280053183:A:J,A:XXA:JbdX51326"ERROR IN DATA..."e"-AZ-NG 64 LOADED...":f169,11,141,17,208,32,68,229,169,17,32,210h255,169,23,133,251,169,146,160,207,32,30,171 j198,251,208,245,169,    ?3WYEhfjiP*ڠ UUUʨWYEhfjiP*ڠ UTT ,160,0,173,188,207> v208,26,165,251,24,105,2,32,128,207,165,251m x24,105,1,133,251,144,2,230,252,169,32,145 z251,76,103,206,201,1,208,22,165,251,56,233 |80,32,137,207,165,251,56,233,40,133,251,176 ~2,198,252,76,181,206,201,2,208,16,165,*QeF)Ji @U@PAP@& *QeF)Ji @UP?PPP&ʨWYEhfjiP*ڠ UUUʨWYEhfjiP*ڠ UTT201,4,144,5,169,0,141,188,207,173,188,207V 205,189,207,240,3,76,145,206,177,251,170,169 32,145,251,224,4,144,6,169,27,141,17,208 96,224,0,208,11,165,251,56,233,2,133,251 176,43,144,39,224,1,208,8,165,251,24,105 80,76,97,207,224  @߿  <  0   0  0 0   0 ɮ ɲ ɫ ˽ ˱ PRESS FIRE57,204,157,0,4,189,97,204,157,0,216,202,1487Y ,16,241,166,251,164,252,24,32,240,255,104,201,1946 689,240,3,76,123,164,56,76,169,164,79,78,1317 @0,79,70,70,0,19,18,76,73,78,69,32,584 J0,32,69,88,73,83,84,83,32,42,32,67,685T79,78,84,73,é`)`+)%= 8| Æ ¦`` mĨK`ĢԹL ԹMč`Hà8i:0hͤύà Ȍ `ٵ LL 0` xHyxyؙx22,132,123,32,115,0,170,1285K 240,243,162,255,134,58,144,3,76,150,164,32,1661 107,169,32,121,165,132,11,32,19,166,176,3,1133 76,237,164,166,214,164,211,134,251,132,252,162,2163 39,189,0,4,157,57,204,189,0,216,157,97,1309 204,169,390 P"ERROR IN DATA LINE:"L:7 ZX0:JJ12:D28840R d"THE DATA IS OK...":{ n"SYS 52000 TOGGLES ON AND OFF...": x104,104,169,60,162,203,236,1,3,208,4,169,1423 139,162,227,141,0,3,142,1,3,224,227,240,1509 40,76,79,203,134,251,181,162,4,133,253,134,254G l141,81,4,165,253,166,254,133,251,134,252,32w n190,224,165,140,69,141,69,142,69,143,162,0 p201,64,144,11,232,201,128,144,6,232,201,192 r144,1,232,142,188,207,142,189,207,165,253,166 t254,141,190,207,142,191,2072,32,32,32'32,32,32,32,32,32,32,32,32,32,32,32P32,32,32,32,32,32,32,32,32,32,32,32w32,32,32,32,32,32,13,0,0,65,72,8317,208 96,224,0,208,11,165,251,56,233,2,133,251 176,43,144,39,224,1,208,8,165,251,24,105 80,76,97,207,224251* 56,233,2,32,137,207,165,251,56,233,1,76\ 205,206,165,251,24,105,80,32,128,207,165,251 24,105,40,76,175,206,177,253,201,160,208,6 173,188,207,145,253,96,104,104,173,190,207,133 253,173,191,207,133,254,238,188,207,173,188,207$ WYEhfjiP*ڠ UPAP@ʨWYEhfjiP*ڠ UTTi?UUUYeiiiiiiYeUTi>> ,2,208,14,165,251,24,105? 2,133,251,144,16,230,252,76,117,207,165,251p 56,233,80,133,251,176,2,198,252,165,251,166 252,133,253,134,254,76,111,206,133,253,144,2 230,254,76,250,206,133,253,176,2,198,254,76 250,206,18,32,32,32,32,32,3 BUTTONLEVEL 01 SCORE 000000    HIGH 000000 *QeF)Ji @U????UU& *QeF)Ji @U& K78,85,69,63,32,40,89,47,817;^78,41,146,32,0,0,65,46,72,46,83,46,65505,189,169,1404 29,160,204,32,30,171,169,0,133,198,32,228,1386 255,201,78,240,4,201,89,208,245,32,210,255,2018 72,160,0,232,208,253,200,208,250,162,39,189,1973" "'hة jí)Ԡ `ర râ aL!` 8 râ aL<``eŢ` ÙнÙЭ=ĨĨ`xÍЩЩX`Ѝ0 XL1Рðč!йÍL?2,157,0,4,202,16,236,169,21,160,1370Q 204,32,30,171,165,21,166,20,32,205,189,169,1404 29,160,204,32,30,171,169,0,133,198,32,228,1386 255,201,78,240,4,201,89,208,245,32,210,255,2018 72,160,0,232,208,253,200,208,250,162,39,189,1973" " 73,1,2,240,5,166,1370D 251,76,139,227,173,0,2,201,79,208,14,169,1539z 14,160,204,32,30,171,169,117,162,203,76,108,1446 203,201,81,208,226,169,17,160,204,32,30,171,1702 169,131,162,164,141,2,3,142,3,3,76,116,1112 164,32,96,165,134,16& A0A1:"DESERT FRONT ML",8,12 49152,,.20,,,,,,,.*20,,,,,,,.5,89,85,85,85,85,85b0213,85,85,61,85,85,3,213z085,,62,85,,1,255,.0149,85,91,85,85,253,85,850"254,85,87,255,85,87,255,2490,85,255,254,85,127,255, 08)ܥ)abbiФacdcbi0acdcbaabͥ   ȠuuɮH2Ls) Т abʑabˑab ̑aLa ;b3aL ЍЩ)Ѝ(Ѝ#* }ĩ Ѝ'Ѝ ɖRC  2  )    ! ɉ 6L#©:Ь)L#î ȌL Э)  )  aLW hLW vLW  oLW a oLW h oLW a vLW h vLW` }` S` ```ə(`(8Hih8LĎ`cLĭɉ")"Kb)[)ЭJ 8ԍԍԢ ǩ ԩԩԩ'ԩ`ɀJɂ3Э)Э =)6)LЭ L   Ɍ)OɂhɾDnwɂɁg   zL9ǩ  AaȑaLȱaiaȑa#H .hL`# hhLabaAd8 aȑai'HaȑaLaȱa8aȑa#H .hL)`# hhLɊ   ` ǭ)ЩԢԩԩ9Ԏԩ`9``0LȢOJKNOP dBybbyBd IJKLMNOJKNOBybbyBd dBybKLMNOPdddBddBybbyBd IJKNOBybbbyBdIBJKNOP dBybbyBybbyBd IJKNOJKLMNOP IJKLMNOBybbyBIJKNOP IJKLMNOJKNOP dBybbyBIJOP dByBdB808xx>|>|<<|>|>`xx>|<<|>|>|`xx>|<<|>|>>`x>|>||>|>#,160,0,0,65,72,79,89,33,0,0,50093,240,23,165,161,201,212,176,4,165,160,1748u"T240,13,238,32,208,160,0,32,225,255,208,6,1617"^32,33,193,76,38,192,232,208,242,200,208,239,1893"h32,68,229,169,0,168,174,49,193,32,186,255,1555#r173,50,193,16TO FAIL IS THE SETTING FOR A BATTLE ON THE...  PRESS FIRE TO BEGIN BATTLE... ȣȡ ȣ ȣ ȣ ȣ    Ȥȡ Ȥ Ȥ Ȥ ȣ ȣ ȣ ȣ   ȶ ȵ  5% A0A1:"FLASH FLOOD ML",8,11 49152 64 UG EP ɠ 128 BUG REP 2 ORBITESERT RONTDESERT FRONT ML Ԯ=̈́cacL D Ѝ!Т͆ab =ɢ4Άab =ɭ) DH ڝ ۝H۩d!0φab =ɢ H ۝۝ ۩Ayڠyi&L Щ!Щ ЩЩxdЩЩ))L#­ɉL#©)Щ ԍ ԍԢԩ ԩM Ԏԩɖ Lbí)"" ȭ!8!# )Ȣ ǎ#LL#­) ȭ)!) L    )ȭi)LCŭ Щ Э)LCi( Щ ЩJЭ""` pŌЩ pŌ`i  ` ŌЩ Ō`8- -`-Юʎ`ЩЩ Щ8JJ zL9ǭɂ6ɇ/  L9ǭɁɇ  )6,8z Ls8zLv `)`)`)Щ Э8Э `Ъ8% LLǎ`abaH18(2L L2@`gɆab =ɭ)``ccaȪacc cac LV`GAME OVER IJKLMNOPdBybbKLMNOP IJOBybbyBd IJKN23x`xxx>|<<<<|>|>` `>|>||>|> X$ ?P~ V D@ 0 0 0 0@```$f<A HARSH,FORBIDDING DESERT, AND A MISSION THAT IS LIKELY   m9Ņ:;<< 9;@e99:i:e;;/fLOADER "TEXT IN" SEQ  "ULER'S RIMES" PRG  "LANK IN" SEQ  d53280,12:53281,11Mi" FLANKSPEED ";~n" MISTAKEPROOF ML ENTRY PROGRAM "s" CREATED BY G. F. WHEAT "x" COPR. 1987, ION INTERNATIONAL INC. "}A5427254296:A,0:/ 2)T(1)16/B$"ENDING ADDRESS IN HEX":430:ENBA470:B0150h254,T(2)T(1)16:BT(4)1T(3)16B255BB255:254,(254)1253,B: GET HEX LINE495:": ";:A08B01:250BA%(A)T(1)T(0)16:ADA1  A$(135)" ":620) A$(136)" ":635O A$"@"A$"G"T(B)(A$)55:295u A$"/"A$":"T(B)(A$)48:295 "415:250 'A$""; ,205 1A0320 6A1:B1330 ;220 @B0(20);(20);:AA1 EAA1 J(20);:"INPUT A 4 DIGIT HEX VALUE!":415F":"ENDING IS LESS THAN STARTING!":B0:415|":"ADDRESS NOT WITHIN SPECIFIED RANGE!":B0:415":"NOT ZERO PAGE OR ROM!":B0:415""?ERROR IN SAVE":415""?ERROR IN LOAD":415"::"END OF ML ARE5:$A$"/"A$":"T(A)(A$)48:$$T(A)16:8$ ADDRESS CHECKG$ADEN385Z$BSRBEN390$B256(B40960B49152)B53247395$$ ADDRESS TO HEX$ACAD:A4096:520$A256:520$A16:520$A1:520$%T(AN:A$"":"FILENAME";A$&SA$""590,&X:"TAPE OR DISK?":R&]B$:T1:B$"D"T8:A$"@0:"A$:c&bB$"T"605i&g&lB$"CONTINUE FROM ADDRESS":430:ADB&q475:B0620&v:195&{B$"BEGIN SCAN AT ADDRESS":430:ADB&475:B06357 (147)"LOADING AND CHECKING THE DATA...":J49152TB011:A:A0A25540sJB,A:XXA:B:A:AX50(:"ERROR IN DATA LINE:"(64)256(63):2X0:JJ12:J4945620<198,0:49456,0:A$"Y":B$A$:C$"D":D$"DISK":D8:(147)3FKUP"::"FILENAME";F$:F$N$(F$,14):L(F$)W49458,L:J1L:49458J,((F$,J,1)):J:"SAVING DEVICE ** "D$:"STARTING WITH ** "F$:"IS THIS CORRECT (Y/N)";B$:B$"Y"60770,131:771,164:49152: 169,79,32,210,255,162,38,160,10,2,240,5,169,1215: 79,141,2,3,76,162,164,169,0,133,2,133,1064q 251,133,252,133,254,24,101,20,69,254,230,254,1975 24,101,21,69,254,170,230,254,164,252,185,0,1724 2,133,253,201,34,208,6,165,2,73,255,133,1465!2,201,32,208,4,165,2,240,169,38,141,2,3,173,1578B"J48,193,240,23,165,161,201,212,176,4,165,160,1748u"T240,13,238,32,208,160,0,32,225,255,208,6,1617"^32,33,193,76,38,192,232,208,242,200,208,239,1893"h32,68,229,169,0,168,174,49,193,32,186,255,1555#r173,50,193,1654272,4:54273,48:54277,0:54278,249:54296,15HA680699:B:A,B:s169,251,166,253,164,254,32,216,255,96169,0,166,251,164,252,32,213,255,96B$"STARTING ADDRESS IN HEX":430:ADB:SRB480:B0150251,T(4)T(3)16:252,T(EN340 " ";-A:TAD((AD256)256):" "QA07:TTA%(A):T255TT255WoA%(8)T375:195A07:ADA,A%(A)::ADAD8:195 GET HEX INPUTA$:A$""250A$(20)305A$(133)535 A$(134)560220 !O LAST LINE'!T" ":TAD((AD256)256)M!YB0A1:TTA%(B):T255TT255S!^k!cA%(A)T375:195!hB0A1:ADB,A%(B):!m:"YOU ARE FINISHED!":535!r BELL AND ERROR MESSAGES!w:"LINE ENTERED INCORRECTLY"::415"|:A":#54276,17:54276,16:0#15,8,15:15,A,A$:15:A$:I# GET FOUR DIGIT HEXX#:B$;:T$p#(T$)4380:430#A14:A$(T$,A,1):450:T(A)16380:430#:B(T(1)4096)(T(2)256)(T(3)16)T(4):#A$"@"A$"G"T(A)(A$)5CA):T9A$(T55):530% A$(T48)+%A$;:ACACAT:B%A$"**SAVE**":585X%1,T,1,A$:680:1d%!ST0w%&400:T8420%+535%0A$"**LOAD**":585%51,T,0,A$:690:1%:ST64195%?405:T8420%D560%I" ":14)A$&&:670)'B07:AC(ADB):505:ADBENADSR:410:1956'" ";:BD':ADAD8['B$:B$(136)195p'495:": ";:650%+535%0A$"**LOAD**":585%51,T,0,A$:690:1%:ST64195%?405:T8420%D560%I" ":14)A$&"DO YOU WANT AUTOMATIC SAVES (Y/N)";A$::A$"Y"90UP"NO AUTOMATIC SAVES...":150Z49456,1:"DISK OR TAPE (D/T)";C$:C$"D"D1:D$"TAPE"d49457,D:D$D$" DRIVE"::"FILE NUMBER (0-99)";NnN$((N),2):N10N$(48)(N48)(xF$"BAC 92,204,3,3,1507?208,10,162,131,160,164,169,70,32,210,255,44,1615n169,78,32,210,255,142,2,3,140,3,3,76,111336,193,32,96,165,134,122,132,123,32,115,0,1180170,240,243,162,255,134,58,144,3,76,150,164,1799 32,107,169,32,121,165,173, ,8,138,24,101,1125@!253,69,254,170,44,198,254,230,252,164,253,208,2349t!"213,138,41,240,74,74,74,74,24,105,129,141,1327!,44,193,138,41,15,24,105,129,141,45,193,162,1230!60,189,43,193,240,12,157,0,4,173,134,2,1147 "@157,0,216,232,208,2392,51,160,193,32,189,255,169,43,1670I#|166,45,164,46,32,216,255,162,1,189,51,193,1520~#168,200,152,201,58,144,2,169,48,157,51,193,1543#201,48,208,3,202,16,234,32,33,193,76,116,1362#164,206,32,208,169,0,170,168,76,219,255,160,1827$1,1A ~HAHOY! NOVEMBER872ABOOTERLANKSPEED 64 UG EP ɠ 128 BUG REP 2 ORBITESERT RONTDESERT FRONT ML LASH LOOD INE IN -MAZE IN A-MAZE IN AZE IN MAZE IN AMCO INRAMCO INMAZEMENT INFLASH FLOOD ML APER OUTEPAPER ROUTE ML INE ENTRY-AZE-NG 64A-MAZE-ING 128AZE EMO 64MAZE DEMO 128AMAZEMENT INULER INERM INANDOM1 INANDOM2 INANDOM3 INUITAR IN RACTION IN  64RAMCO 128MAZEMENT 64AMAZEMENT 128 UELER'S RIMES ERM ARITY ANDOM RDER 1 ANDOM RDER 2  ECHNI IN SCREEN IN SPRITE IN CROLL INO INSHORT INMOOTH INOUNT IN ANDOM RDER 3 UITAR HORD RACTION UNECHNI-ITLESSCREEN CLOCKSPRITE PRINT 128CROLL-A-ATIC O OADS COUNT IN O CROLL IN APS IN OCK IN TEXT IN ULER'S RIMES LANK IN UG EP INSHORT SLEEP MOOTH OVE HE OUNT 64 THE COUNT 128 O CROLL! 64 APS-OCK 64 OCK 'N OLL 128 TEXT SPLIT BUG REP IN FLASH FLOOD B  AZE LOADERDDLOGO% DIR 1 ORBIT IN ESERT IN LASH IN APER IN 6 (147)"LOADING AND CHECKING THE DATA...":J4864SB011:A:A0A25540rJB,A:XXA:B:A:AX50(:"ERROR IN DATA LINE:"(66)256(65):2X0:JJ12:J521320<208,0:5213,0:A$"Y":B$A$:C$"D":D$"DISK":D8:(147)0F" :"FILENAME";F$:F$N$(F$,14):L(F$)P5215,L:J1L:5215J,((F$,J,1)):J:"SAVING DEVICE ** "D$:"STARTING WITH ** "F$:"IS THIS CORRECT (Y/N)";B$:B$"Y"60770,198:771,77:4864:32,58,20,169,41,162,19,236,3,3,208,4,95 169,0,166,235,164,236,133,253,133,254,142,47,1932] 20,140,48,20,24,101,22,69,254,230,254,24,1206 101,23,69,254,170,230,254,164,252,185,0,2,1704 133,251,201,34,208,6,165,253,73,255,133,253,1965 201,32,208,4,165,253,240,8,138,24,101,251 ,93,12982"J20,240,27,165,161,201,212,176,4,165,160,240,1771d"T17,32,65,20,238,32,208,238,1,214,32,225,1322"^255,208,6,32,49,20,76,198,77,232,208,242,1603"h200,208,239,32,66,193,173,95,20,162,96,160,1644"r20,32,189,255,169,0,170,32,104,28,206,1222,$1,214,169,0,170,168,76,219,255,32,79,20,1403_$169,26,141,0,214,173,0,214,16,251,96,162,1462$0,142,0,255,96,19,18,32,32,32,32,146,804$0,1,0,0,65,72,79,89,33,0,0,0,33920,162,96,160,1644"r20,32,189,255,169,0,170,32,104,2' *******************************M * 'ORBIT' *s * BY CLEVELAND M. BLAKEMORE *( * FOR THE C128 *2 * BASED LOOSELY ON THE *< * ORIGINAL MIT VERSION FOR * F * THE PDP-1000 IN .,X:B.Z:B,X,J&350:370:.,1:380D(4):M360:D(2)80:D(3)100:D(4)120:H165:V125:J.:B.:R8:I5324821:F5:E1:G15:UG:A7:C16:W17:L1:P2:N3:Q4:Z42BO(7),A$(14):X.7:BO(X)2X:.,1:4,1:1,7:2,7:3,6:3,1,.:.:.5((1)199)1:1,J,B:9 X14:X,165,125:X,D(X);M::L,Z;.m 420:J7:X10610624324:A$(J),X,65:JJ1: X10610624324:A$(J),X,86:JJ1: X16:A$(X),X::3,.&!1,1,8,.,,,1:2,1,10,1,.:3,1,3,1,.:4,1,13,1:5,.,2,.,,H,H,.,.,M,N:N:E.:UUC6"6J(L):(JC)JW100:ՋJ(.)120"@I,L:P,H,V:N,H,V:Q,H,V:P,D(P);MX:N,D(N);X:Q,D(Q);MX:I,U:J(L):J(L):J(L)"J:XPQ:(X,.)D(X)D(X)F::Ղ#TEL:P:F,.:P,MH,L,,,M,.:UUG:C(.)280)"::K$:K$"":K$)$K$"Y"ޜ:.,12:4,14:"":H$X16:A$(X),X::420:3$D(2)80:D(3)100:D(4)120:D.:U15::(P).:250$" "$" ’ "%" DO YOU WANT AUTOMATIC SAVES (Y/N)";A$::A$"Y"90RP"NO AUTOMATIC SAVES...":150Z5213,1:"DISK OR TAPE (D/T)";C$:C$"D"D1:D$"TAPE"d5214,D:D$D$" DRIVE"::"FILE NUMBER (0-99)";NnN$((N),2):N10N$(48)(N48)#xF$"BACKUP":5+169,198,162,77,141,2,3,142,3,3,224,19,1143\208,7,32,125,255,79,78,0,96,32,125,255,129279,70,70,0,96,162,0,134,251,189,0,2,1053240,19,201,48,144,9,201,58,176,5,133,251,1485232,208,238,134,252,165,251,208,3,76,198,77,2042* ,16253!69,254,170,44,198,254,230,252,164,251,208,213,2307e!"138,41,240,74,74,74,74,24,105,65,141,88,1138!,20,138,41,15,24,105,65,141,89,20,32,79,769!620,189,85,20,240,6,32,210,255,232,208,245,1742!@174,47,20,172,48,20,24,32,240,255,17355,169,0,13953#|174,94,20,168,32,186,255,169,45,174,16,18,1351f#172,17,18,32,216,255,162,1,189,96,20,168,1346#200,152,201,58,144,2,169,48,157,96,20,201,1448#48,208,3,202,16,234,32,49,20,141,0,2,955#76,183,77,58,59,32,65,20,206,32,20 b m m m m m  b"Q%" b  mnm m l m m m mnm n b"%" b  m m mmnmm mnm m mn m  b"%" b  m m mm mm m m mm m  b"%" b  nn nn nn nn n THE 1960'S *1P *******************************:Z140dBLN:(BO(B)J)A$(6),BL:P,MZ,Z,P,M,M,N:F,.:J(L):J(L):BL,.:UUBO(B)n:xX18:A$(6),X:X,H,V:X,45(XL)#L:X,L,L,L,,,.::N,MG,MP,L,Z,M,N:J.A:X811:C(H)(P,.)(N,.)(Q,.):J(H)D(P)ZD(N)ZD(Q)Z""11)"PLEASE STAND BY!":X35843967:J:X,J::X16:X,A$(X):8)"EARTH COMING INTO VIEW!":X35844095:J:X,J::X18:X,A$(6X): X.99:J((1)319)1:B,.:J(L):J(L):J(L):B(P):B(P):2,3;!X18:X,.#.:K! MAIN LOOP\!EL:X.MR!"J(P):BJG:BDD(BN)F(BA)F(DMBA)M(D.BN)M:L,H,V:L,Z;D:P,MF,A,,,,.:ՁB.C::B. ",JBEF,H,V:F,L,P:F,D#L:L,M :Ս350:360:3809#^.:(19):65520,.,16,.:(27)"@":X18:X,.::y#h8)"YOU HAVE SAVED THE PLANET!":N,30000,H,P,300,3000,P:#r.,1:X((1)50000)10000:3)"ASTEROID IMPACT KILLS ";:"#####";X;:" PEOPLE!"$|11)"ANOTHER GAME?(Y/N 213,9506255,149,95,127,149,95,127,851@86,126,85,85,126,85,85,125=1J85,85,121,85,85,117,85,85\1T117,85,87,85,85,124,85,87x1^192,85,124,,255,128,,.1h215,224,,231,208,,85,1441r0,213,208,,149,80,,0851|80,,85,96,,85,96,.185,65% A0A1:"PAPER ROUTE ML",8,11 49152PAP@ʨWYEhfjiP*ڠ UTTi?UUUYeiiiiiiYeUTi>> g  ! b ­L­ L+oୃȮiЩЩ]oЩȝuL+ĝ!``ȭȭ%iȭȍLiȭ*ȍȮ i(i`ȭ)B ,Э/ ­  ,׍LL1u u{ȩ` x1X Ԏڎڎڎ L ޢL  L( n b"5&" b n nnn n  b"f&" b b"&" ccccccccc FOR THE C128 cccccccccc"&" › [C]1987 CLEVELAND M. BLAKEMORE "&" cccccccccccccccccccccccc'0,,,,,,,.(0,,,,,,,.(0,,,,,,,.#(0,,,,,,,42<(0,1,191,,2,85,96,13](62,160,10,237,240,22,188,40}(57,26,88,21,213,244,46,161(88,26,59,148,49,102,216,14(185,144,27,86,56,6,196,80(1,109,160,1,178,128,,12(0,,,,,,78,,1,57*f0,1,70,,,220,,.*p48,,,,,,,. *z0,,,,,,,./*0,,,,,,,.>*0,,,,,,,.M*0,,,,,,,.\*0,,,,,,,.n*0,,,,48,,,48}*0,,,,,,,.*0,,,,,,,.*0,,,,,,,.*0,,,,,,,.*32,,2,16,8,,,.*8,4,8,,,,32,1*8,,64,,128,,251,,31,230,t0,30,245,,29,245,,31!,~229,,31,237,,31,217,.:,0,1,255,,62,93,3,85[,119,61,85,107,213,86,183,85{,86,253,85,90,221,85,87,235,85,87,117,101,253,94,159,255,253,223,254,253,247,255,249,119,95,189,86,95,254,89,875,253,85,215 .245,85,95,245,85,127,229,85*.126,229,85,230,213,85,223,.9.(0,,,,,,,.J.20,,,,,,,192^.<0,,96,,,120,,.t.F100,,,86,,,159,..P0,127,128,,255,192,,255.Z224,,255,224,,255,240,..d255,240,,191,240,,223,248.n0,255,2,85,85,85,85,85,85085,85,85,85,85,85,149,85'085,213,85,85,213,85,85,85D085,85,89,85,85,85,85,85b0213,85,85,61,85,85,3,213z085,,62,85,,1,255,.0149,85,91,85,85,253,85,850"254,85,87,255,85,87,255,2490,85,255,254,85,127,255,Z4,,85,128,,085,.10,86,,,84,,,88 20,,96,,,192,,.20,,,,,,,.*20,,,,,,,.5,89,85,85,85,85,85b0213,85,85,61,85,85,3,213z085,,62,85,,1,255,.0149,85,91,85,85,253,85,850"254,85,87,255,85,87,255,2490,85,255,254,85,127,255,XXڝĝ ȝ ǝ(ǝ(ǝ(ǝ(ǝ(ǝ(ǝ(ǝ( iпȩĮȽčĢș ȭ`+Lm  00     00       {| !`++{ ++`iн+]oЮ+{L9  ɗ`ɘ`!!:`0! `:L0艭`ȭȭ` ' `­­C¬ȹȨȍԹȍԬȹZȨȍԹȍԩAԩ! ȭ@Ю` ԩ ԩ`xЩЩX)`ȍȍȍȍȍȍȍȍ{u` íɎꩀâ詓ccccccccc"&'" bJOYSTICK IN PORT 2:FIRE TO BEGIN!b"U'&" "q'01,9000,10,2,300,3000,.':(2)128560:Վ'D SPRITE DATA'N0,,,,,,,.'X0,,,,,,,.'b0,,,,,,,.'l0,,,,16,,,16'v0,,,,,,,.,.(0,,,,,,,. )0,,,,,213,,1))62,128,6,237,192,14,188,32G) 9,26,96,5,213,224,14,161e)96,10,59,160,9,102,192,6) 185,128,3,86,128,,197,.)*0,108,,,,,,.)40,,,,,,,.)>0,,,,,,,.)H0,,,,,,,.)R0,,,48,,,204,.)\0,182,,1,16,72,.+4,58,,1,85,82,,239+0,85,85,128,,108,32,.4+18,8,1,5,2,,64,128M+4,4,64,,128,32,16,4b+$16,1,,8,64,4,,.t+. EARTHSHAPES+80,,,,,,,.+B0,,,,,,,.+L0,1,,,5,,,25+V0,,117,,,122,,1+`255,,1,255,,3,255,.+j7,255,,7,255-85,87,253,85,87,254,85,87 -253,85,85,255,85,85,255,.?-255,128,,231,124,,215,151d-192,159,229,252,127,213,215,159-229,85,215,229,85,167,229,85-247,213,85,215,214,85,87,151-85,149,85,87,101,85,87,117- 85,94,249,85,8 48,,191,248,,./x0,31,213,,31,213,,30/85,,29,85,,31,85,.4/14,153,,5,174,,7,213J/0,2,86,,1,223,,.`/159,,,127,,,37,.r/0,25,,,5,,,3/0,,,,,,,./0,,,,,,,./85,85,125,85,85,121,85,149/89,85,85,86,85,85,85,85/85,85 ` *** C-128 VERSION ***?bJ67007083:A:J,A:XXA:JcdX45169"ERROR IN DATA...":f169,0,141,0,255,169,11,141,17,208,32,125h255,147,17,0,169,23,133,251,32,125,255,18j32,32,32,32,32,32,32,32,32,32,32,32 l32,32,32,32,32,        uǝ/Ɲ؝٩P h٩x(Lí)ܥ)Н0y|ŭ|70|ũЍyť  ܢƝ488Ɲ8@888Ɲ8%]Ɲ%8hƝe88sƝ8 wwpjolllooo99)ocooooojjgmgj``jvv""UUjjjjjjjjjjjjjjjUjUjUߟUU   2`jolllooo99)ocooooojjgmgj``jvv""UUjjjjjjjjjjjjjjjUjUjUߟUU  232,201,128,144,6,232,201,192,144,1,232V z142,171,27,142,172,27,165,253,166,254,141,173 |27,142,174,27,160,0,173,171,27,208,26,165 ~251,24,105,2,32,153,27,165,251,24,105,1 133,251,144,2,230,252,169,32,145,251,76,124 26,201,1,208,22,1,27. 145,253,96,104,104,173,173,27,133,253,173,174^ 27,133,254,238,171,27,173,171,27,201,4,144 5,169,0,141,171,27,173,171,27,205,172,27 240,3,76,170,26,177,251,170,169,32,145,251 224,4,144,6,169,27,141,17,208,96,224,0 208,11,1D3,144,2,230,254,76419,27,133,253,176,2,198,254,76,19,27,220254,238,171,27,173,171,27,201,4,144 5,169,0,141,171,27,173,171,27,205,172,27 240,3,76,170,26,177,251,170,169,32,145,251 224,4,144,6,169,27,141,17,208,96,224,0 208,11,1* *** ROLLING BALL DEMO ... C-64 ***H53280,0:53281,0:(158)52800:A1105:X(1)1:X(2)40:X(3)1:X(4)40:A,81BAX(C):(B)32B,81:A,32:AB:CC2:C4CC4CC1:C0C436,169,27,141,17,208,96,224,0 208,11,1+ *** ROLLING BALL DEMO ... C-128 ***I53280,0:53281,0:(158)6700:A1105:X(1)1:X(2)40:X(3)1:X(4)40:A,81BAX(C):(B)32B,81:A,32:AB:CC2:C4CC4CC1:C0C436,169,27,141,17,208,96,224,0 208,11,1 + *** RAMCO 64 *** BUCK CHILDRESS ***X *** P.O. BOX 13575 SALEM, OR 97309 ***(147)"LOADING AND CHECKING DATA LINE:":J49152(B011:A2B0L(64)256(63):(19)31)L:<A0A25580FJB,A:XXA:DD1:B:A:AX9032,32,32,32,32,32,32; n32,32,32,32,32,32,32,32,32,32,32,32i p32,32,32,13,0,198,251,208,207,169,81,162 r4,133,253,134,254,141,81,4,165,253,166,254 t133,251,134,252,32,87,175,173,28,18,77,29 v18,77,30,18,77,31,18,162,0,201,64,144# x11,~Ɲ9Ɲ@9 ک88`  .*e*!@*  **e*!@*t000d00000ݐ00(( wݪVwwwݪUpwݪUVVRVVFVVUEQUUUTUUQUUEQUU(<<MV(C,0)0 : RESTORE FWD LINK$HMS(C,0)1 : SET STATUS TO AVAILABLE$RC0C : SAVE OLD CELL #$\CNXTCELL$fBKUPTRUE"%p ,X(C0),Y(C0)," "& ,X(C0),Y(C0),"*"0& MOVE CURSOR TO CELL C>& N1 2S& ,X(C),Y(C)," "g& P1 DLY : {& ,X(C),Y(C),C$& P1 DLY : & N&$ : TO MAIN&. ===============================&L MAZE DATA ST---------------------------#( MS(C,0) CELL STATUS DATA=( 1,0,0,0,1,1,1,1,1,1W( 1,1,1,1,0,0,1,0,1,0q( 1,0,0,1,1,0,1,0,1,0( 1,0,0,0,1,0,1,0,1,0( 0,1,1,1,1,0,1,0,1,0( 1,1,0,0,1,0,1,0,1,0( 1,0,0,0,0,0,1,0,1,1( 1,0,0,S(N,2)N1 : MOD%0 MS(N,2)0.*ZMS(N,3)NSQ : NNCSQ MS(N,3)0U*dMS(N,4)N1 : MOD%1 MS(N,4)0]*n Nc*x* --- GET CELL SCREEN LOCATIONS -*ROW1*COL1* C1 NC SQ* NC CSQ1*Y(N)ROW*X(N)COL : C,32,205,16325 "189,32,225,255,240,3,76,28,192,169,15,32,1456j ,195,255,76,204,255,169,15,168,162,8,32,186,1725 6255,169,0,32,189,255,32,192,255,162,15,76,1632 @201,255,173,115,193,32,210,255,173,116,193,32,1948 J210,255,169,1,76,210,25582,73,86,69,32,66,85,70,70,69,82,32,816F0,32,42,32,76,79,67,65,84,73,79,78,707q32,0,32,42,32,79,75,46,46,46,0,32,46242,32,69,82,82,79,82,46,46,46,0,0,606201,255,173,115,193,32,210,255,173,116,193,32,1948 J210,255,169,1,76,210,255 (147)"(FALSE0 : TRUE FALSE>2NC100 : # CELLSi<SQ((NC).5) : WIDTH OF SQUAREF MV(NC,1),MS(NC,4) : MOVES AND MAZE STRUCTUREP X(NC),Y(NC) : SCREEN POSITIONSZ 1320 : GET MAZE STRUCTUREd 150 PICK MOVE 400 : CHECK MOVE= 900 : UPDATE SCREENZ XIT NOSOLN 170{ ,0,21 : POSITION CURSOR NOSOLN "NO SOLUTION" :  3010 : RETRACE SOLUTION ,0,21 ================================ ASSUME NO BACKUP5! DIR4 800 : 490 : MUST BACK UP\!NXTCELLMS(C,DIR) : NEXT CELL #!CSMS(NXTCELL,0) : CELL STATUS! CS=0,2,3 INVALID MOVE! CS=1 VALID MOVE! CS=4 END OF MAZE! CS1 600,500,600,600 INVALID MOVE -#bGDMOVEFALSE<#l MS(C,0)3 MV(C,0)4 NOSOLNTRUEB#vi# ------------------------- DONE -#MV(C,0)DIR : SET FWD LINK#MV(NXTCELL,1)C : SET BACK LINK#CNXTCELL#XITTRUE##  ------------------MS(C,0)3 RESTARTTRUE : MV(C,0)4 NOSOLNTRUE(%zO% ---------------- SCREEN UPDATE -Z%C$"O"r% GDMOVE 1060% XIT C$"E" : 1000% BKUP 1000% NOSOLN RESTART C$"S"% RESTORE CELL C0 TO UNUSED% RUCTURE&V'` MS(C,N): C=CELL #, N=0-49'j N=0: CURRENT CELL STATUS_'t 0=NO ACCESS,1=AVAILABLE,2=USEDw'~ 3=START, 4=END' N=1-4: CELL #'S IN DIRECTIONS' 1-4 FROM CELL C;' 1=UP, 2=RT, 3=DOWN, 4=LEFT( ----0,0,0,1,0,0,1 )  3,1,1,1,1,1,1,0,1,1') 1,0,0,0,0,4,0,1,1,0K) READ CELL STATUS DATAj)( N1 NC : MS(N,0) : )2 CALC ADJACENT CELL #'S)< N1 NC : MOD%NSQ(NSQ.01))FMS(N,1)NSQ : NSQ1 MS(N,1)0*PMOLCOL3*" N+,ROWROW2 : COL1+6 C+@<+ ----------------- DRAW SCREEN -I+ (147)X+ N1 NCz+C$"." : MS(N,0)1 C$"*"+ MS(N,0)3 C$"S"+ MS(N,0)4 C$"E"+ ,X(N),Y(N),C$+++ ============= ,169,13,32,210,255,1855:T76,204,255,77,45,87,0,77,45,82,0,147,1095g^18,32,67,45,54,52,32,32,67,72,69,67,607h75,83,32,66,79,84,72,32,49,53,52,49,726r32,65,78,68,32,49,53,55,49,32,68,82,663|73,86,69,83,32,13,13,13,0,13,13,68,476  *** TECHNI-TITLE ***7 ********************Q"":K((53281))240iA$:A$"XX""":|L(A$):X1L#M$(A$,X,1)(V((1)16):V0V4-V10V112V9V117VKVV1:V16V1<646,VA:<F PRINTM$;" ) C-128 INDESTRUCTIBLE SCREEN CLOCKJX30723188:A:X,A:IIA:qI10127"ERROR IN DATA!!!!!!":("ENTER TIME (HHMMSS):";T$:56331,16((T$,1,1))((T$,2,1)):56330,16((T$,3,1))((T$,4,1)) 256329,16((T$,5,1))((T$,6,1 ,2200 41,240,74,74,74,7406 9,176,141,35,4,173H< 10,220,41,15,9,176`B 141,36,4,173,9,220xH 41,240,74,74,74,74N 9,176,141,38,4,173T 9,220,41,15,9,176Z 141,39,4,173,8,220` 76,101,250,169,110,141f 0,10,169,12,141,1l 10  SPRITE PRINT 1289SL4864 : STARTING ADDRESSaI036:A$:A(A$):SLI,A:BBA:(B5362"ERROR IN DATA STATEMENTS!":2 85,FA,A2,03,20,C9,FF,A2,08,A5< FA,29,01,D0,04,A9,CF,D0,02,A9F A6,48,46,FA,CA,D0,EE,A2,08,68PS2:(SL),(SPIJ):J:3,(165);(8):IKI023:3,(15);(163);:I:3:3:SLI,A:BBA:(B5362"ERROR IN DATA STATEMENTS!":2 85,FA,A2,03,20,C9,FF,A2,08,A5< FA,29,01,D0,04,A9,CF,D0,02,A9F A6,48,46,FA,CA,D0,EE,A2,08,68P(147)" LOADING DATA ";JS53000: *** CHANGE S TO RELOCATE ***vJSS167:A:J,A:XXA:(42);:J::X22661"ERROR IN DATA...": "DATA OK *** SYS"S"TO ACTIVATE..." B(S256):S1,S(B256)13:S3,B: 169,21,162,239,1695 152,162,7,160,219,133,251,133,253,134,252,132f 254,169,192,133,63,133,65,134,64,132,66,160 39,177,251,145,63,177,253,145,65,136,16,245 165,251,56,233,40,133,251,165,253,56,233,40 "133,253,176,4,198,252,198,254,165,63,56,233================, >>> NOTES FOR C-64 USERS:*, CHANGE THE 'CHAR'O, STATEMENTS IN LINES 210, 240,s, 970, 980, 1010, 1030, & 1760,4 TO THE FOLLOWING:,> 210 A=0:B=21:CH$="":GOSUB 2200,H 240 A=0:B=21:CH$="":GOSUB 2200-R ==- C-64 ONLY >>>>>>>> . 214,B1 : #. 211,A : CH$ : G. =============================k. --- RETRACE THE SOLUTION ----v. C$"-". CMV(C,1) : MS(C,0)3 1000 : 3020. C$"+". CMS(C,MV(C,0)) : MS(C,0)4 1000S4 I08:A:4159I,A:I: 82,85,78,13,0,0,0,0,0O"O OAD LOADED..."ECHNI-ITLESSCREEN CLOCKSPRITE PRINT 128CROLL-A-ATIC";V;" ";:REM * COLOR TEST///TEST: REMOVE REM IN 50 ADD IN 60BK:KPM$;WU:" ";_Z25_ THIS,IS,A,COLORFUL,TECNI-TITLE,XXZ Y d X n" ";D$" * ";D$;" = ";N$ x D: S24,32 E-MAJOR GUITAR CHORD =========)):56328,0=<3072:3171:"SCREEN CLOCK NOW IN OPERATION.":V 120,169,13,141,20,3n 169,12,141,21,3,88 96,169,186,141,34,4 141,37,4,173,11,220 41,16,74,74,74,74 9,176,141,32,4,173$ 11,220,41,15,9,176* 141,33,4,173,10,,96,32,0,12,76"r 3,64,255,255,144,128NOW IN OPERATION.":V 120,169,13,141,20,3n 169,12,141,21,3,88 96,169,186,141,34,4 141,37,4,173,11,220 41,16,74,74,74,74 9,176,141,32,4,173$ 11,220,41,15,9,176* 141,33,4,173,10 20,D2,FF,CA,D0,F9,60Z DEMOvd "HIT FOR DEMONSTRATION OR":"ANY OTHER KEY TO END"::A$:A$" "nSP3584: STARTING ADDRESS FOR SPRITE #1x"SPRITE NUMBER";A:A8120::AA1:BA64:SPSPB#3,4:I0603:3,(15);:J0z "":X$"##.#":X60)"";4(X$;XT2 .99999: USE ALL FIVE 9'S_<XX.1jFX0pPvZSCREEN CLOCKSPRITE PRINT 128CROLL-A-ATIC07,120,141,143,2,142,144,2,88I 96,173,141,2,201,1,208,40,165,212,208,36z 165,216,208,32,165,207,208,28,165,203,166,2 133,2,201,4,240,21,201,5,240,25,201,6 240,13,201,3,208,6,32,234,232,32,240,233 76,72,235,228,2,240,249,201,6,240,2& $40,133,63,165,65,56,233,40,133,65,176,4V &198,64,198,66,165,252,201,4,176,197,169,32 (160,39,153,0,4,136,16,250,76,72,235,01,4,240,21,201,5,240,25,201,6 240,13,201,3,208,6,32,234,232,32,240,233 76,72,235,228,2,240,249,201,6,240,2 970 A=X(C0):B=Y(C0):CH$=" ":GOSUB 22003-\ 980 A=X(C0):B=Y(C0):CH$="*":GOSUB 2200`-f 1010 A=X(C):B=Y(C):CH$=" ": GOSUB 2200-p 1030 A=X(C):B=Y(C):CH$=C$ : GOSUB 2200-z 1760 A=X(N):B=Y(N):CH$=C$ : GOSUB 2200- =========================== : 3040. 0):CH$=" ":GOSUB 22003-\ 980 A=X(C0):B=Y(C0):CH$="*":GOSUB 2200`-f 1010 A=X(C):B=Y(C):CH$=" ": GOSUB 2200-p 1030 A=X(C):B=Y(C):CH$=C$ : GOSUB 2200-z 1760 A=X(N):B=Y(N):CH$=C$ : GOSUB 2200- =========================== \''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''ppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppp  aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa bcefQSWX ~ ????????{3????????xxxxxxxχ????qa'$$$'  ? ``??????8xx"6*"""HIHHH1"" aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaarrr'''''''''''''''''''''rrrr'''''''''''''''''''''rr  >> ?~ >?><|x????????@|>|>><||??????xxx? IIIIIy$$$ " "000qb  $44,,DDGDyAAqA??_ 0ఘఘ`aa`aaa̘```8 ```8``|8a`????????8I#qXHHςpHHp!! H PHE8@8??HI  | !! '%  eg DD((DDDD x<|< Á><<ఘ333? ``K  Ƈ0~<<<<????????8,$$, qIIqQ$$D0$y? !!!ఘ```!! ?aaa```aa`8????????0IIx Xq00!!$$bbHHO <FEDpp C!!! 8!!C? <@@@@,$LD|cL@DĎb@???~~33 ``  Ƈ0~<<<<oRAMCO 128 TESTS FIVE BUFFERS IN YOUR 1541 OR 1571 DISK DRIVE TO MAKE CERTAIN THEY'RE IN GOOD CONDITION. - . - OYSTICK IN ORT 2. R BASEMENT. OYSTICK IN ORT 2.  222,198,200,208,205,96,160,0  185,0,192,153,0,4,185,240  195,153,0,216,185MAZEMENT 64 USES DOUBLY LINKED LISTS TO HELP THE COMPUTER FIND ITS WAY THROUGH A MAZE AS DISCUSSED IN THIS MONTH'S UPERT EPORT ON MAZING TRUCTURES. K IN ORT 2.  222,198,200,208,205,96,160,0  185,0,192,153,0,4,185,240  195,153,0,216,185AMAZEMENT 128 USES DOUBLY LINKED LISTS TO HELP THE COMPUTER FIND ITS WAY THROUGH A MAZE AS DISCUSSED IN THIS MONTH'S UPERT EPORT ON MAZING TRUCTURES. IN ORT 2.  222,198,200,208,205,96,160,0  185,0,192,153,0,4,185,240  195,153,0,21