KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK M DISABLE STOP/RESTORE828:V21,0:ZZ$IN$(B,H), 2,8,2,"@0:"ZZ$",S,R"8 XX15G 2,TX$(XX)P :2AT,7,1:""I813:AT,I,1:" ""AK 92,153  250,4,185,234,196,153,250,216! 185,244,193,153,244,5,185,228B! 197,153,244,217,185,238,194,153f!  238,6,185,222,198,153,238,218{! 200,208,205,96!FI9601022:N:I,N::!P 0,0,0,0,0,0,0!Z 0,0,0,0,0,0,0!d 0,0,0,KKK T,14,1:" [/=ANCEL * PC=UN ROGRAM] "?,AT,15,1:""z1AT,22,3:" ":10006XX15:AT,7XX,3:""TX$(XX):@AN$:AN$""4160JAN$(13)882:204K0,0,1,192!n 0,0,224,0,0,112,0 "x 255,252,0,255,255,0,255%" 252,0,0,112,0,0,224;" 0,1,192,0,0,0,0O" 0,0,0,0,0,0,0c" 0,0,0,0,0,0,053  222,198,200,208,205,96,160,0  185,0,192,153,0,4,185,240  195,153,0,216,185,250,1KKK TB1H34195VB2H1B2H6B2H114195WB3H14195#X IF B=44^882:V21,1T`I035:V,X1I:D135::ebV21,0:230tc882:1550~h4160I828935:A:I,A:: 160,0,185,0,4,153,0,192 185,0,216,153,240,KKKKK 195,185,250 4,153,250,192,185,250,216,153#  234,196,185,244,5,153,244,193I  185,244,217,153,228,197,185,238m  6,153,238,194,185,238,218,153  222,198,200,208,205,96,160,0  185,0,192,153,0,4,185,240  195,153,0,216,185,250,1K '********************************M * MENU PROGRAM V2.0 *s"* (C) BY DOUBLE L SOFTWARE *$* ION INTERNATIONAL INC. *&* (C) 1988 ALL RIGHTS RESERVED *(********************************):53296,1 *AT67 11)"EE NSTRUCTIONS"&11)"UN ROGRAM "E11)"ANCEL INDOW "d 11)""uPO55507:X0 I116:POI,0::1000*AN$:AN$""20904AN$(17)2200:POPO40:XX1:PO55587PO55507>X2 31,13: 632,13: 198,2:K "":AT,2,2:""~ %AT,1,3:"ENU ROGRAM (C) OUBLE OFTWARE" *AT,3,2:"  " /I419 4AT,I,2:2)" )"IME LOCK IN"+( P$(1,11)"IME LOCK 2":IN$(1,11)"IME LOCK 2 IN"b2 P$(1,12)"LOCK EGMENTS":IN$(1,12)"LOCK EG IN"7 P$(2,1)"CLOCK SEGMENTS":IN$(2,1)"CLOCK SEG IN"< P$(2,2)"ACTOR UN":IN$(2,2)"ACTOR UN IN"F P$(2,3)"ACTOR U 40:LC55590LC56030(204828:V21,0RAT,12,4:""~"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 ORD "DOWNSHIFT 128":IN$(3,1)"DOWNSHIFT IN". P$(3,2)" ":IN$(3,2)" "] P$(3,3)" ":IN$(3,3)" " P$(3,4)" ":IN$(3,4)" " P$(3,5)" ":IN$(3,5)" " P$(3,6)" " 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:NN3:B.:5190 d53280,0:53281,1: X0HAN$(13)2140 R2080\X0882:4100+aX22180=bB1H32155`cB2H1B2H6B2H112155rdB3H12155e IFB=4 THEN2155f2159k882:1550oX1882pI035:V,X1I:D135::zV21,0:2308  ":6 >AT,20,2:"  "m CAT,21,2:"" HAT,22,1:"" RAT,23,1:" RSR=ELECT PC=ORE /Ґ=XECUTE "\AT,24,1:" N 2":IN$(2,3)"ACTOR UN 2 IN"3P P$(2,4)"CREEN ACK":IN$(2,4)"CREEN ACK IN"gZ P$(2,5)"RACK RACE":IN$(2,5)"RACK RACE IN"d P$(2,6)"BAM CHECK":IN$(2,6)"BAM CHECK IN"n P$(2,7)"TARTING INE":IN$(2,7)"TARTING INE IN" P$(2,8)" ER TO LOAD THIS ".J4)" PROGRAM SUCCESSFULLY. SE THE"ZT4)" PRESCRIBED METHOD WHICH IS "^4)" ";(34);"ROGNAME";(34);". "h4)" [RESS ANY EY] "r4)" :IN$(3,6)" " P$(3,7)" ":IN$(3,7)" "N P$(3,8)" ":IN$(3,8)" " P$(3,9)" ":IN$(3,9)" " P$(3,10)" ":IN$(3,10)" " P$(3,11)" ":IN$(3,11) (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$(17 82:225I116:POI,5::2 P$(1,1)"LANKSPEED":IN$(1,1)"LANK IN"d P$(1,2)"64 UG EP ":IN$(1,2)"UG EP IN" P$(1,3)"128 BUG REP II":IN$(1,3)"BUG REP IN" P$(1,4)"OMBS WAY!":IN$(1,4)"OMBS WAY! IN" P$(1,5)"APTURE":IN "CfAT,3,10:""ipAT,4,10:" "zAT,5,10:""S54272:S23,0:S24,15S6,0:S5,12:S1,70:S3,40S4,0:S4,65:D1100: OCK P":IN$(2,8)"OCK P IN"0 P$(2,9)"LASHING CROLL":IN$(2,9)"LASHING IN"d P$(2,10)" ODULO":IN$(2,10)" ODULO IN" P$(2,11)"BASIC INPUT":IN$(2,11)"BASIC INPUT IN" P$(2,12)"OWNSHIFT 64":IN$(2,12)"OWNSHIFT IN" P$(3,1) "+|AT,22,3:" ":1000AAN$:AN$""1670W882:V21,1:225x ************************** **** WINDOW ROUTINE **** **************************828AT,4,11:"" " "" P$(3,12)" ":IN$(3,12)" ":, P$(4,1)" ":IN$(4,1)" "@ r CL718:AT,CL,14:" "::POKE657,128:REM DISABLE SHIFT/COM KEYPOKE775,200:REM DISABLE LISTINGPOKE808,234:RE )1250 AN$(145)1300) AN$(13)2000J AN$(32)3000:Y1100:140S 204w "";:53280,0:53281,0:V21,0 "OADING...";(34);P$(B,H)(34);"" "LOAD";(34);P$(B,H);(34);",8" (142)"RUN": ""  6 $(1,5)"APTURE IN"+ P$(1,6)"IDE ORDER":IN$(1,6)"IDE ORDER IN"] P$(1,7)"PRITE OTATOR":IN$(1,7)"PRITE IN" P$(1,8)"INI-COMP":IN$(1,8)"INI-OMP IN" P$(1,9)"ATER ATE":IN$(1,9)"ATER ATE IN" P$(1,10)"IME LOCK":IN$(1,10 :S4,0:Y1Y18:Y1188Y11004V1,Y1:I0F:LCI,0:HHH1:H12H1\PP1:P18P7|LCLC40:LC56030LC55590204Y1Y18:Y1100Y1188V1,Y1:I0F:LCI,0:HH1:H1H12 PP1:P7P18#LCLCHIS IS HOY!'S MACHINE LANGUAGE ENTRY PROGRAM FOR OUR ADVENTUROUS READERS WHO LIKE TO TYPE IN THESE PROGRAMS FROM OUR MAGAZINE. - HOY!'S CHECKSUM PROGRAM FOR MIS- TAKEPROOF TYPING OF -64 PROGRAMS PRINTED IN HOY!. (OR PROGRAMS PUBLISHED FROM AY 1987 ONWARD ONLY!) HOY!'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.)  *** DOWNSHIFT 64 ***0A53000:(147)OJAA67:B:J,B:XXB:JrX9903"ERROR IN DATA...":C(A256):D(A(C256))13:A1,D:A3,C"DATA OK * SYS"A"TO ACTIVATE...":169,21,162,207,120,141,20,3,142,21,3,88# 96,  *** DOWNSHIFT 128 ***0A4864:(147)OJAA71:B:J,B:XXB:JsX10304"ERROR IN DATA...":C(A256):D(A(C256))13:A1,D:A3,C"DATA OK * SYS"A"TO ACTIVATE...":169,13,162,19,120,141,20,3,142,21,3,88# 96,INI-COMP FOR THE -64 IS AN EXPAN- DED VERSION OF THE COMPILER FIRST PRESENTED IN EPTEMBER'S UP- ERT EPORT. EE DOCUMENTATION IN THE CTOBER HOY! G EP.) OMBS WAY! FOR THE -64 REQUIRES YOU TO CATCH THE EXPLOSIVES THAT A MAD ARSONIST DROPS FROM THE TOP OF A WALL. OYSTICK IN ORT 2. N IN THE CTOBER HOY! G EP.) APTURE FOR THE -64 ALLOWS ONE OR TWO PLAYERS TO RACE AROUND A SPLIT SCREEN ATTEMPTING TO PICK UP YEL- LOW SPHERES. OYSTICK IN ORT 1 IN ONE PLAYER MODE. G EP.) IDE ORDER CROLL DITOR FOR THE -64 ENABLES YOU TO SCROLL MESSAG- ES CONTAINING SPRITES ALONG THE OTHERWISE UNUSABLE BOTTOM BORDER OF THE SCREEN DISPLAY. G EP.) 165,203,160,0,201,4,208,8,232,208,253S 200,192,64,144,248,201,5,208,8,232,208,253 200,192,128,144,248,201,6,208,8,232,208,253 200,192,192,144,248,201,3,208,8,32,159,255 165,203,184,80,244,76,49,234165,212,160,0,201,4,208,8,232,208,253S 200,192,64,144,248,201,5,208,8,232,208,253 200,192,128,144,248,201,6,208,8,232,208,253 200,192,192,144,248,201,3,208,8,32,159,255 165,212,184,80,244,169,0,133,209,76,101,250|PRITE OTATOR FOR THE -64 LETS YOU TAKE A SPRITE SHAPE YOU'VE CREATED AND ANIMATE AND ROTATE IT ANY NUMBER OF DEGREES. TOM BORDER OF THE SCREEN DISPLAY. G EP.) ATER ATE IS A SOLUTION TO THE PRIL OMMODARE REQUIRING A SUB- ROUTINE THAT DETERMINES WHETHER A DATE IS EARLIER OR LATER OR THE SAME AS ANOTHER DATE. AY. G EP.) IME LOCK IS A SOLUTION TO THE PRILOMMODARE REQUIRING A PRO- GRAM THAT CONVERTS ANY NUMBER OF MINUTES TO HOURS AND QUARTER HOURS TO THE NEAREST QUARTER HOUR. .) cIME LOCK 2 IS ANOTHER SOLUTION TO THE PRIL OMMODARE. (EE IME LOCK ELSEWHERE ON DISK.) MINUTES TO HOURS AND QUARTER HOURS TO THE NEAREST QUARTER HOUR. .) LOCK EGMENTS IS A SOLUTION TO THE PRIL OMMODARE REQUIRING A PROGRAM THAT DISPLAYS THE TIME OF THE DAY WHEN HALF OF A DIGITAL CLOCK'S 42 SEGMENTS ARE TURNED ON. hLOCK EGMENTS IS A -128 SOLUTION TO THE PRIL OMMODARE. (EE LOCK EGMENTS ELSEWHERE ON DISK.) AY WHEN HALF OF A DIGITAL CLOCK'S 42 SEGMENTS ARE TURNED ON. ACTOR UN IS A SOLUTION TO THE PRILOMMODARE REQUIRING A PRO- GRAM THAT WILL DISPLAY ALL FACTORS OF AN INTEGER SPECIFIED BY THE USER. 42 SEGMENTS ARE TURNED ON. eACTOR UN 2 IS ANOTHER SOLUTION TO THE PRIL OMMODARE. (EE AC- TOR UN ELSEWHERE ON DISK.) OF AN INTEGER SPECIFIED BY THE USER. 42 SEGMENTS ARE TURNED ON. WROM IPS HOY! CREEN ACK CRE- ATES AN ORIGINAL AND IMPRESSIVE SCREEN DISPLAY. ON DISK.) OF AN INTEGER SPECIFIED BY THE USER. 42 SEGMENTS ARE TURNED ON. qROM IPS HOY! RACK RACE SHOWS YOU WHERE ANY SPECIFIED TRACK OR SECTOR LEADS TO. OR THE -64 AND -128. R SPECIFIED BY THE USER. 42 SEGMENTS ARE TURNED ON.  D2A2: D3A3 : A'S MSB= 1100: C178 EC178: EC$" = ": 10000: : '=Z 1100 : '-, NN, OR Bx 1300: VF 3400 : 'B <<< A=(-)NN >>> C171 C$"-" : '- C171 C$" "(C) : '0-9 1100 : GET DIGITS: '= 1100 : 'B 1300: VF EC65: 10000: 7 1100 : 'THENY C167 EC167: 10000: cC$"" 1100: C0 4120 : GET MMC$C$(C): 4100MM(C$)" MM0 MM999 EC1: 10000: ,A) [;] >>>" 1100: C40 EC40: 10000: : '(4" 1100: 1300: VF EC65: 10000: S" LDA A(LSB), JSR $FFD2z": N6: C(1)173: C(2)A0: C(3)A1"C(4)32: C(5)210: C(6)255" 1500" 1100: C41 EC41: 10000 : 'EOL  S4A0: S5A1 : ADDR C'S LSB( S6A2: S7A3 : C'S MSBU CLC, LDA B(LSB), ADC C(LSB),STA A(LSB)~ LDA B(MSB), ADC C(MSB), STA A(MSB) N19: C(1)24: C(2)173: C(3)S0: C(4)S1 C(5)109: C(6)S4: C(7)S5: C(8)141: C(9)D0 TER 'JMP' JMP MM N3: C(1)76: C(2)0: C(3)0  1500Pp <<< PRINT, PRINT A[;], OR PRINT CHR$(A)[;] >>>tz 1100: C199 6300 : 'CHR$ C0 PC13: 6200: : 'PRINT 1300: VF EC65: 10000:  <<< 11030 &4+ CKCS "ERROR IN DATA STATEMENTS STARTING AT 11120":&>+.&H+ 169, 32, 200, 136, 16, 2W&R+ 169, 45, 32, 210, 255, 152, 16, 12&\+ 138, 73, 255, 24, 105, 1, 170, 152&f+ 73, 255, 105, 0, 32, 205, 189, 96&p+ -1 OF NN C0 3120+ (C)"0" (C)"9" EC48: 10000: : C$C$(C)E 3070R0 NN(C$)n: NN%NN : ERROR CHECKD NN0 NNNN65536 : CONVERT (-32768,32767) TO (0,65535)N NXNN: 1400b MSBNH: LSBNLg : LDA JIJI1 : JUMP TABLE INDEX6JT(JI,0)LN : CURRENT LINE #A@JT(JI,1)MM : TARGET LINE #lJJT(JI,2)CM17 : MEM LOC AFTER 'JMPT LDA A(MSB), CMP B(MSB), BNE EXIT,Y LDA A(LSB), CMP B(LSB), BNE EXIT, JMP MM^N19: C(1)1: : ')" 1100: C0 6400#: PC13: 6200: /# C59 EC59: 10000: : ';T#  1100: C0 EC0: 10000: Z#l#X <<< END >>>y#] RTS#bN1: C(1)96: 1500#l 1100: C0 EC0: 10000: #v#@ <<< : C(10)D1) C(11)173: C(12)S2: C(13)S3: C(14)109: C(15)S6: C(16)S7K C(17)141: C(18)D2: C(19)D3V 1500\n <<< A=B >>> LDA B(LSB), STA A(LSB), LDA B(MSB), STA A(MSB)$N12: C(1)173: C(2)S0: C(3)S1: C(4)141: C(5)D0:PRINT A >>>  LDX $A(MSB), LDY $A(LSB), JSR $C0E0. : N9: C(1)174: C(2)A0: C(3)A1M C(4)172: C(5)A2: C(6)A3m C(7)32: C(8)224: C(9)192x  1500 PC32: 6200 : ADD SPACE AFTER DIGITS  1100: C0 PC13: 6200: "":53280,6:53281,0E ==================================i COMMODARES PROBLEM #52-4 : FACTOR FUN SOLUTION BY DALE ICKES ================================== "FACTOR WHAT NUMBER";A  CA  #NN(LSB), STA A(LSB), LDA #NN(MSB), STA A(MSB)Ml N10: C(1)169: C(2)LSB: C(3)141: C(4)D0: C(5)D1v C(6)169: C(7)MSB: C(8)141: C(9)D2: C(10)D3 1500 : POKE VALUES INTO OBJECT MEMORY H <<< A=B OR A=B+C >>>R S0A0: S1A73: C(2)S2: C(3)S3 hC(4)205: C(5)A2: C(6)A3=rC(7)208: C(8)11: C(9)173: C(10)S0: C(11)S1_|C(12)205: C(13)A0: C(14)A1C(15)208: C(16)3: C(17)76: C(18)0: C(19)0 1500 <<< GOTO MM >>>C$"" 1100: GEREM >>>#J 1100: C0 8010#T$':"SYNTAX ERROR IN LINE";LNB$' EC0 "EXPECTED END-OF-LINE NOT FOUND":h$$' EC1 "INVALID LINE NUMBER":$.' EC48 "NUMERIC VALUE 0-9 EXPECTED": $8' EC65 "VARIABLE A-Z EXPECTED": $B' C(6)D1".C(7)173: C(8)S2: C(9)S3: C(10)141: C(11)D2: C(12)D3-8 15003BR <<< IF A=B THEN MM >>>d 1100 : 'A 1300: VF EC65: 10000: S0A0: S1A1: S2A2: S3A3 1100: C178 EC178: 10000:  : PRINT CR! C59 EC59: 10000: : ' ;+! 1100: C0 EC0: 10000: 1!R!8 --- PRINT CHARACTER PC ---k!B LDA #PC, JSR $FFD2!L:N5: C(1)169: C(2)PC: C(3)32!VC(4)210: C(5)255: 1500!`! <<< PRINT CHR$(71 1 BAC: B(B) B;% (1 2: 10CT(I)::KK10:d"0":"";:TH3:FR4:TW21( H023:CHC(H):M059:CMTWC(M)CH:CMTH:CMFR:S059:CMC(S)"##:##:##";H,M,S;:"";:TH(H)TH(H)1)::ՙ"##:##:##";H,M,11;:1 : B'S LSB ADDR\ S2A2: S3A3 : B'S MSBf 11008p C0 3600 : A=BLz <<< A=B+C >>> C170 EC170: EC$" + ": 10000: : TEST '+ 1100: 1300: VF EC65: 10000: : 'C 1100: C0 EC0: 10000: T DIGITS OF MM C0 5060C$C$(C)  5020MM(C$)B MM0 MM999 EC1: 10000: gJIJI1 : JUMP TABLE INDEXJT(JI,0)LN : SOURCE LINE#JT(JI,1)MM : TARGET LINE#JT(JI,2)CM1 : OBJ MEM LOCATION AF EC127 "EXPECTED BASIC KEYWORD ";EC$: 0%L'"EXPECTED CHARACTER ";(EC);" WITH ASCII VALUE"EC :_%* -- PUT M.L. PRINT ROUTINE INTO MEMORY --u%+M49376 : $C0E0% +CS3319 : CHECKSUM%+ B: B0 11060% + M,B: MM1: CKCKB%*+010:X1112:90:DO30:100&::""14)"DONE"8X12000::h"PRESS +/- TO ADJUST HIGHLIGHTED SPRITE"PRESS TO SWITCH START/END"PRESS F1 TO BEGIN.650,128:53269,3:X1:A1$"":A2$" A1$"STARL LHL@@<8<e@e`@@e@Ϣ8Ϩ- 8e?Ъ` @i(i`؅ώϭJJJ d)==================================@ MINI-COMP\ RUPERT REPORT #58 A MINIMAL COMPILER FOR THE C-64================================== RUN 2000 TO COMPILE==================================F  55A$""A$"F"800A$"M"850LA$"I"IS164S16463:I,255(I)::900:655aA15(56320)15(A1)LYLY1:LY0LY20(A2)LYLY1:LY20LY0(A4)LXLX1:LX0LX23(A8)LXLX1:LX23LX0( : START OBJ MEM LOC1SNSN1 : # SOURCE STATEMENTSH --- GET BYTE ---i 1100 : FETCH NEXT BYTE 1300: VF 3000 : 2290: 'VARIABLE C139 4000: 2290: 'IF C137 5000: 2290: 'GOTO  C153   C(50) : STORES OBJECT CODE BYTES: FALSE0: TRUE FALSEX  PTR(M)(M)256(M1) VM49152 : $C000 START OF VARIABLE MEM PM49408 : $C100 START OF OBJECT MEMORY EM53247 : $CFFF END OF OBJECT MEMORY BT2049 : $0800 T:"S1:A2$"END :"S2 2040,S1:2041,S2C A$:A$"+"X1S1S11:S1255S1255jA$"+"X2S2S21:S2255S2255A$"-"X1S1S11:S1180S1180A$"-"X2S2S21:S2180S2180A$(13)X3X:B$A1$:A1$A2$:A2$B$A$uϭ)[- L؅i(iϥϮЫϩЙ`@ mmm`(X)1BB 4(X)1Y0B 5(X)1Y0B0 660 7(Y)1B2 8(Y)1B2 <D1DE180:Y1(.5A(D1B)):X LINES 1 THROUGH 999 ARE EXAMPLES OF ALL STATEMENTS ALLOWED BY MINI-COMPO A50Y B10a CAk (DABz 2 AB 60 < 70 F P A Z B; d (C) n (D);   --- COMMON ROUTINES --- LC(M): MM1: C,: C32 1100(56320)16)650 AS164LY3(LX8)CB7(LX7):((A)(2B))A,(A)(255(2B)):722UA,(A)(2B)nZLXLY4055296160A(Z)15:A11:A1AA112Z,A1650 AS164:252,A256:251,A(252)256:49152:9004650R 6000: 2290: 'PRINT/ C128 7000: 2290: 'ENDT C143 8000: 2290: 'REM "UNKNOWN COMMAND CODE";C;"IN LINE";LL(SN,1): C0 EC0: 10000: : 'EOL K$: K$"" 2130 : BACK FOR MORE K$: K$"" 2310 START OF BASIC TEXT0 % 11000 : PUT PRINT RTN IN MEM^ *MBT : NEXT SOURCE MEMORY TO PEEK 4SN1 : CURRENT SOURCE STATEMENT NUMBER >CMPM : NEXT OBJECT MEMORY TO POKE H NVM VM51: N,0: : CLR VAR'SM =====""522"PRESS +/- TO ADJUST SPEED4!"PRESS TO EXITF&53269,1:X20d+IS1S2(S2S1):2040,Iq0Q1X:5A$:A$"+"XX1:A$"-"XX1:X1X1?A$(13):555D2040,S1:650,0:X"":53269,5^RESS:+ : MMLL(J,1) TADDRJT(N,2): JADDRLL(J,2): 24904 : JJ : NO MATCH FOUNDk :EC1: LNJT(N,0): 10000: :NXJADDR : ADDR OF LINE # MM : 1400 : CONVERT LINE # : TADDR,NL : USE ADDR IN JUMP TABLE : TADDR1,: IGNORE SPACES V C0 ! `J VFTRUE: C65 C90 VFFALSE: _ AD(C65)2 VM (NXAD: 1400: A0NL: A1NH : VAR LSB 2NXAD1: 1400: A2NL: A3NH : VAR MSB < xNH(NX256) NLNX256NH   KK1 N4AS164:252,A256:251,A(252)256:49155:900f650NAS164:252,A256:251,A(252)256:49377:rI063:S264I,(S164I):::I01:PL,I21,19,14:""$J2022:PL,I21,J,6:""17)"";:.PL,I21,23,14  2130` - PASS 2 - FIX JUMP ADDRESSES<j JI0 2570 : NO JUMPSjt N1 JI : CHECK ITEMS IN JUMP TABLE~ :MMJT(N,1) : REFERENCED LINE # : J1 SN : CHECK ACTUAL LINE #S : - GET OBJ MEM TARGET ADDRESS AND JMP ADD======== MAIN ============8RPTRPTR(M): MM2 : NEXT LINE PTRd\LNPTR(M): MM2 : CURRENT LINE #f LN999 "=== END OF PASS 1 ===": 2400p " CURRENT LINE # ="; LNzLL(SN,1)LN : CURRENT LINE # LL(SN,2)CM "F1 - EXITS M - MIRROR"/_"F - FLIP I - INVERT CLR/HOME - CLEAR?b49158:900MvLY0:LX0Z{2042,14pI896959:I,0:I8969133:I,252:53289,7:53252,LX824:53253,LY882A$:A$""IS164S16463:I,0::900:6NH N : NEXT JUMP TABLE ITEM, "=== END OF PASS 2 ==="Z "TO EXECUTE THE COMPILED PROGRAM, ENTER"j " SYS"; PM# "OBJECT CODE RESIDES FROM";PM;"TO";CM1(  <<< A=(-)NN, A=B, A=B+C >>> D0A0: D1A1 : ADDR OF A'S LSB  CMEM "OUT OF MEMORY - COMPILED PRGM TOO LARGE": C  CM,C(KK)V  CM;":";C(KK)e CMCM1: k   ====== INITIALIZATION =========  LL(50,2) : LL(N,1)=LINE # OF NTH LINE : LL(N,2)=COMPILED MEM LOCATION OF THIS LINE #,160,0,0,65,72,79,89,33,0,0,50048:$$T(A)16:8$ ADDRESS CHECKG$ADEN385Z$BSRBEN390$B256(B40960B49152)B53247395$$ ADDRESS TO HEX$ACAD:A4096:520$A256:520$A16:520$A1:520$%T(A9# A0 A1 : "S.B.S.E.",8,1549152:50688P.NP:JY,P:(JS).D(P)(JS)(P(P),TSP:X(P)X(P)VX(D(P)):Y(P)Y(P)VY(D(P))2P(P)ADX(P)Y(P)C:(P(P))TT90<P(P),TFD(P): FBM,X(.)N9,Y(.)N9,.:NPBM,X(N1)N9,Y(N1) x?  ܩЩЩ܍ЩЍЩ !"ܠi0ЩЩ'i7X`i) i)   Щ܍ЩЦ) '/Ʋ L L LƩ̩  @[ @ ԩW  ɅɓL,ǩ[ @ 0… LsǑȑL}ǑLƥ``` ̎ ' 0_ɝ@ LǮ LǮ 52,45:56,45:0(2040)1802040,255K(2041)1802041,254k(49152)76"ROT.ML",8,1 53280,0:53281,0:53269,0:53248,220:53249,10053271,3:53277,353251,100:53250,30:"SPRITE ROTATOR":53264,2$ "DESIGNED  E "3. CHANGE DESTINATION SPRITE7 "4. ROTATE SPRITEQ "5. ANIMATE SPRITESh "6. SAVE SPRITES "7. TOUCH-UP SPRITE "8. COPY SOURCE TO DESTINATION S1(2040):S2(2041) 198,0 A$:A$"1"A$"8"170 A(A$):A2 "14)S1A$(13)270"650,0:+,53269,2F6"CURRENT SHAPE:"S2|;"USE +/- TO ADJUST. TO END.":650,128@A$:A$"+"S2S21:S2255S2255EA$"-"S2S21:S2180S2180J2041,S2:""14)S2OA$(13)32泥0L1 x `L``>">">">!>!>!>!>!>!>B!>A!>@!>!>!>!> > > > > > >B >A >@ > > > ` %`xЩ ܩȍЩ7X ЍԩЩ Ѝ!ЩL{K)? L ©1" ǩ7̩ ɢ@ ũ LƓ SCROLL TEXT EDITOR 1.1 <1> -- EDIT SCROLL TEXT <2> -- EDIT PREFERANCES <3> -- SAVE SCROLL <4> -- QUI BY JOHN FEDOR":53287,1:53288,1:120B A(X2Y2):X0B0:55e 2B(YX):(Y)1(X)1BB 3(Y)1(X)1BB 4(X)1Y0B 5(X)1Y0B0 660 7(Y)1B2 8(Y)1B2 <D1DE180:Y1(.5A(D1B)):X00,250,300,400,500,350,600,1000 B "WHAT IS THE FILENAME (LOAD)Y F$"":F$:F$""j 15,8,15,"I0 15,A,B$,C,D:AA;B$;C;D:15:I15000:: 5,8,5,F$",P,R 15,A,B$,C,D:AA;B$;C;D:15:I15000:: #5,A$,B$:5 C$0T650,0:)^S1S2"NOT POSSIBLE":I15000::Oa"WHAT IS THE FILENAME (SAVE)"fbF$"":F$:F$""c15,8,15,"I0":15,"S0:"F$d5,8,5,F$",P,WhA%(S164)256:B%(S164)A%256k"SAVING...."m5,(B%)(A%); rIS1`FijfiЅ`0`  * * *       -    .   !    1988 T LARGE SCROLL  OPTION --  END ABOVE THIS LINE WITH 'F1'  1234567 CRSR KEYS MOVE ARROW.... '+' AND '-' TO CHANGE COLOR SELECT SPEED (1-3):FILE NAME:)™`uH@U5023:P1(.5A(D1B)):Q ZX1X11:Y110Y:QS164Y13(X18):DO(Q)(2(7(X17))):r dX111Y110X112Y110 iX2X111:Y210Y1:QS264Y23(X28) nQ,(Q)(2(7(X27))): x"1. LOAD IN SPRITES SHAPES }"2. CHANGE SOURCE SPRIT Ѝ!Ѝɩ$  1234LƩL ǩLKƩLǩL`_  ɩ(@ g0+-ɝ<@L^Ʈ) ɮ@L^Ʈ) ɮ@L^Ʈ@) (ɩ(L^Ʈ@ (ɩ(L^L^Ʃ  1 23L (0):S1(A$C$)(B$C$)256:S1S164* 2040,S16 F$,8,1< I 53269,1d "CURRENT SHAPE:"S1 "USE +/- TO ADJUST. TO END.":650,128 A$:A$"+"S1S11:S1255S1255 A$"-"S1S11:S1180S1180 2040,S1:"64S26463:5,((I));:w5:y15,A,B$,C,D:AA;B$;C;D:I15000:Bz15H|eIS264S26463:I,0:r53269,3"WHAT IS THE ROTATION (IN DEGREES)";DE"CALCULATING..."DE"DEGREES":25)(2040)33)(2041) Y1 Ѝ!  < ة XL7N`L|䧆LN3LH1fGJP3W>/f.LOADERd53280,12:53281,11Mi" FLANKSPEED ";~n" MISTAKEPROOF ML ENTRY PROGRAM "s" CREATED BY G. F. WHEAT "x" COPR. 1987, ION INTERNATIONAL INC. "}A5427254296:A,0:/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$)5 7 (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)3F  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);:&:670)'B07:AC(ADB):505:ADBENADSR:410:1956'" ";:BD':ADAD8['B$:B$(136)195p'495:": ";:650 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, 54272,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(5:$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(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$"BAC220 !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"|:,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,160,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,2402)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:ADA1CA):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$&KUP"::"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,1"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 ARE2,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,1 ,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,239EN340 " ";-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)560N: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:B0635Au HAHOY! OCT. 1988582ABOOTSGLANKSPEED SG64 UG EP ɠ SG128 BUG REP II SGOMBS WAY!SGBOMBS AWAY.MLSGAPTURESGIDE ORDEROCK P INLASHING IN ODULO INBASIC INPUT INOWNSHIFT IN DOWNSHIFT IN LOADERDDLOGO%KS.B.S.E. SGPRITE OTATORSGROT.MLSGINI-COMPSGATER ATESGIME LOCKSGIME LOCK 2SGLOCK EGMENTS DIR 1K CLOCK SEGMENTSSG ACTOR UNSGACTOR UN 2SGCREEN ACKSGRACK RACESGBAM CHECKSGTARTING INESGOCK PKK  LASHING CROLLSG ODULOSGBASIC INPUTSG OWNSHIFT 64SG DOWNSHIFT 128SG LANK INSG UG EP INSG BUG REP INKK INI-OMP IN OMBS WAY! IN APTURE IN IDE ORDER IN PRITE IN ATER ATE IN IME LOCK IN IME LOCK 2 INKK LOCK EG IN CLOCK SEG IN ACTOR UN IN ACTOR UN 2 IN CREEN ACK IN RACK RACE INBAM CHECK INTARTING INE INKK6 (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"6H& A0 A1:"BOMBS AWAY.ML",8,12 49152LkТ ^^!Ќ Eŭ JL1L SCORE HIGH TO PLAY AGAINPRESS TRIGGER00000000L=0 )ܥ)8Ѕ  xЩЩ ܩXPę9ЩԢ.Щ Dȅȑȩ ЩЩ  ? ߅  N ߅)иLK-I `80i:08ȹ٠ C ԩ C% C ͽC)I))Јi 8 d`DUPUVfTj 55,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 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 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":  52,56:56,56::5906370:440:S5,4:S1,3\P.NP:JY,P:(JS).D(P)(JS)(P(P),TSP:X(P)X(P)VX(D(P)):Y(P)Y(P)VY(D(P))2P(P)ADX(P)Y(P)C:(P(P))TT90<P(P),TFD(P): FBM,X(.)N9,Y(.)N9,.:NPBM,X(N1)N9,Y(N1)Șe  ,  6  \ # f   \ ԩԢЩd (ЩC éЩ Јݙ)ЈލʎЎЎԩB0ř@Uj Т ܎ҍЩ Щ'Щ4ЩZfUUUiUdYUdUPUTE@(( ***** U@UTUU??}UU@UP**UUUUUUUUUUUUP@@************1111LJ灁8,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,339$A256:520$A16:520$A1:520$%T(A,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,173:"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,95N9,N1 P30> ZK(P(P)):P(P),TFD(P):BM,X(.)N9,Y(.)N9,.^ dNPBM,X(N1)N9,Y(N1)N9,1l nK29190 xS5,11:S1,6:S4,128:S4,129 I110:55665P21,0:J1100: 55665P21,1:J1100:::P(P),K:CB PS(0)S(0)100L:17Ý7ЩM[ō[ũнl8а%  \L½Mҍ8 ЩЍ ԍԩԩԩԩ慢ЩԩԭiL Єm 8 0(*B LЭi ІBƖ Ԥ L©mǏÃ33?Ã?9χ999I[ō%й]ō&L> @0 NPS(1)S(1)100L1 L(P)L(P)1:L(P)1280J 510:J11000::20n S5,4:S1,3:S4,128:S4,129 S(P)S(P)5L:OBOBN1:510:OB.220 70 JC:X8:Y4:W24:H5:C2:570 PL,11,5,2:"BONUS FOR PLAYER"P1; BR(25L),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,25+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* 25:S(P)S(P)B= PL,11,7,10:">>> "((B),2,3)" POINTS >>>":510l X10:Y11:W21:H3:C4:570:LL1:L8L1 PL,11,12,4:"PREPARE FOR LEVEL"L:960 S(0)HSHSS(0) "S(1)HSHSS(1) ,X12:Y7:W17:H7:C11:570 6I810:PL,15,I,,255,208 224,96,169,,141,70,192,169,64,141,71,192,169,31,160,,162f64,153,255,255,200,208,250,238,71,192,202,224,255,208,242,32,170 192,56,233,10,141,207,193,24,105,30,141,68,193,32,170,192,56233,10,141,208,193,169,10,133,249,169,64,1:"";:!8I023:PL,19,I,6:"";:KBPL,5,20,12:"PLAYER 1"13)"PLAYER 2"qLPL,1,21,11:"SCORE:"15)"SCORE:"VPL,12,21,11:"LIVES:"15)"LIVES:"`PL,33,24,14:"LVL: "((L),2,1);j510:20t27,255,255,2 TH " pA$:W(A$):W1W3880Cz450:PL,4,22,14:" ENTER 1 TO 4 FOR MAZE HEIGHT "`A$:H(A$):H1H4900450:PL,4,22,2:" ENTER STARTING LEVEL 1 TO 8 "A$:L(A$):L1L8920450:I01:S(I)0:L(I)3:SZWH:C L,0,I,9:P$;::(P$,39)"_";)X12:Y1:W15:H2:C2:570[PL,17,1,2:"AHOY!";:PL,15,2,2:"PRESENTS:"yX5:Y6:W30:H5:C5:570PL,5,6,7:""PL,5,7,9:"_ ɰ "PL,5,8, (S(1)):16)("0000"(A$,(A$)1),5);:PL,13,22,1:("###",L(0))" "\PL,34,22,1:("###",L(1))" "|&PL,0,24,7:(SP$,OB1)" ";0:I0H1:PL,X,YI,C:""(S$,W);:I0" "D:PL,X1,YI,C:""(S$,W): N53280,0:53281,0:"" 12:" "::440: @PL,15,9,12:" GAME OVER ":A$(HS)s JPL,14,12,12:" HIGH: "("0000"(A$,(A$)1),5)" " TS6,250:S4,17 ^I511:JI5I21:S1,J:K120:K,J,I hS4,16:I14000::700# rP(0)AD1515C:X(0)15:Y( 33,250,160,10,24,1652249,109,68,193,133,249,144,2,230,250,136,208,241,173,208,193,141w(71,193,173,207,193,168,169,32,145,249,136,16,251,24,165,249,109268,193,133,249,144,2,230,250,206,71,193,173,71,193,16,225,96<32,253,174,32,138,173,355,255,255,255,255,255~28,255,255,255,255,255,255,255,255?29,0,60,78,223,255,255,126,60g30,255,129,129,129,129,129,129,25531,196,200,49,50,76,140,19,3535,0,0,0,24,60,126,255,036,0,255,126,60,24,0,0,037,0,12,60,252,2W4020:RH2510:JC:X4:Y13:W32:H10:C6:570:PL,13,17,6:"CREATING MAZE..."a470:CJ:CM,C20,R:I1122SZLAADR(C20)10(R(R10)10)C:KR(2)J0R(10)SZ2:K1010(AJC)31AJC,30:10301020(AJ9:"_ ² "CPL,5,9,9:"_ "u PL,5,10,7:""X7:Y14:W26:H2:C8:570 PL,15,14,8:"A GAME OF";*PL,8,15,8:"SURVIVAL OF THE QUICKEST"4X12:(142)(8)"";1X15)"WORKING...":R(X)((1)X)}bCB49152:CM49205:SI49535:BM49333:PL49591:WD49476:JY49494:JS49617lAD16384:N99:TF34:TT32:TS27:S54272:N11vS1,130:S5,9:S15,3056334,0:1,51:781,9:782,0:0)15:P(1)ADC15(R5)C:X(1)C25:Y(1)R55 |D(0)4:D(1)3b (P(0))29P(0)P(0)2:X(1)X(1)2:390 (P(1))29P(1)P(1)2:X(1)X(1)2:390  P.NP IY(P)5Y(P)5:JX(P)5X(P)5:ADJIC,32:J,I,P: I023:SI,0::2,247,183,152,96,32,170,192,141,69,193=F32,170,192,141,70,193,32,170,192,72,169,,133,249,169,64,133P250,172,70,193,240,15,24,165,249,109,68,193,133,249,144,2,230Z250,136,208,241,173,69,193,24,101,249,133,249,169,,101,250,133 d250,104,1752,60,12,038,0,48,60,63,63,60,48,0,-10,-1,0,1,-1,0,1,0_169,,141,21,192,141,36,192,169,64,141,22,192,141,37,192,160,162,64,185,255,255,201,29,144,6,201,33,176,2,208,5,16932,153,255,255,200,208,235,238,22,192,238,37,192,202,224)31AJ,30:1030J99'J,I:370:420:"":OB3L3:I1OBhXY16384R(C30)10(R(R10)10)C:(XY)29(XY)301040XY,29::I01:PL,I21,19,14:""$J2022:PL,I21,J,6:""17)"";:.PL,I21,23,14Y18:W16:H2:C6:570:>PL,15,18,6:"WRITTEN BY";:PL,14,19,6:"MICHAEL HOYT"YHX4:Y22:W32:H1:C4:570R198,0:PL,6,22,4:"NUMBER OF PLAYERS 1 OR 2 ?"\A$:NP(A$)1:NP0NP1860f450:PL,4,22,12:" ENTER 1 TO 3 FOR MAZE WID90,0:91,216:88,0689,64:41964:1,55:56334,1:54272,216:53272,30fI:I0I14336I8:JII7:K:J,K::660I14:VX(I),VY(I):I4915249617:J:I,J:SP$" ":I140:P$P$"_":S$S$" ":SP$SP$"]"::SI "";:I023:PS24,15:&440:S1,R(40)100:S15,30:S5,9<S4,20:S4,21:f440:S12,13:S13,0:S5,9:S6,220S11,21:I12552:S1,I:S8,R(256):S11,0:440:S5,4A$(S(0)):PL,1,22,11:("0000"(A$,(A$)1),5);A$0,189,72,193,133,251,169,4,133,252,189,72,193,133,253Nn169,216,133,254,169,18,141,71,193,160,18,177,249,145,251,56,233x27,170,189,74,193,145,253,136,16,240,24,165,249,109,68,193,133249,169,,101,250,133,250,24,165,251,105,40,133,251,144,2,2"":53280,6:53281,0E ==================================i COMMODARES PROBLEM #52-1 : LATER DATE SOLUTION BY LESLIE WALDEN ================================== N1 3: A$,B$  50: N:"":53280,6:53281,0E ==================================i COMMODARES PROBLEM #52-2 : TIME CLOCK SOLUTION BY CLAUDE LANDUSKY ================================== "ENTER MINUTES";M: ((M7.5 "":53280,6:53281,0E ==================================i COMMODARES PROBLEM #52-2 : TIME CLOCK SOLUTION BY JIM BORDEN ================================== "MINUTES PAY";MN: HR(MN15.5)4 53280,6:53281,0:TI$"000000":CH(23):UL2:""c2,0,1,4,7,8:2,3,5,6,9:5,6,2,4,3,7I010:NM(I):::I010:P$(I):I05:SA(I): X102:C1SA(X1)X20UL:C2C1SA(X2)X303:C3C2SA(X3):C31555 X405 6Y6Y61:100 gLHY5Y5Y51:99- i:::40O I023:I,CH(I)::CD:TI$:x , ================================== 6 COMMODARES PROBLEM #52-3 : @ CLOCK SEGMENTS J SOLUTION BY T CRAIG EWERT ^ ================= 30252,24,165,253,105,40,133,253,144,2,230,254,206,71,193,16,197;96,100,,,,,21,5,6,7,8,2,,,,1,1t1,1,32,170,192,208,5,173,1,220,208,3,173,,220,41,1573,15,170,189,111,193,141,209,193,96,,1,2,,3,,,4,,,,,,,,120,169,145,141,20,3,169 -  03/08/88, 09/16/74, 01/02/03, 01/02/04F ( 08/10/80, 08/10/80l 2AV$(A$,2) (A$,2) (A$,4,2) <BV$(B$,2) (B$,2) (B$,4,2) F AV$BV$ C$"THE SAME AS " P AV$BV$ C$"EARLIER THAN " Z AV$BV$ C$"LATER THAN " d)15)4;"HOURS" 09/16/74, 01/02/03, 01/02/04F ( 08/10/80, 08/10/80l 2AV$(A$,2) (A$,2) (A$,4,2) <BV$(B$,2) (B$,2) (B$,4,2) F AV$BV$ C$"THE SAME AS " P AV$BV$ C$"EARLIER THAN " Z AV$BV$ C$"LATER THAN " dK: M(HR(HR))4E "PAYROLL TIME = "(HR);M"/4 HOURS.": MN0 10 2AV$(A$,2) (A$,2) (A$,4,2) <BV$(B$,2) (B$,2) (B$,4,2) F AV$BV$ C$"THE SAME AS " P AV$BV$ C$"EARLIER THAN " Z AV$BV$ C$"LATER THAN " d:C4C3SA(X4):C417508 X503:C5C4SA(X5):C51945[ #X605:C6C5SA(X6):C62170a (g -m 2s 7y < AUL5::200 FHNNM(X1)10:LAX2:LBX2:X20LA6:LB10 GX20X10LA6:LB7 KLCX3:LDX3:X30LC6:LD8 PLEX4:L=================ES OBJECT CODE BYTES: FALSE0: TRUE FALSEX  PTR(M)(M)256(M1) VM49152 : $C000 START OF VARIABLE MEM PM49408 : $C100 START OF OBJECT MEMORY EM53247 : $CFFF END OF OBJECT MEMORY BT2049 : $0800,193 141,21,3,169,6,141,206,193,88,96,206,206,193,240,3,76,49T 234,169,6,141,206,193,173,248,56,72,162,1,189,248,56,202,157 248,56,232,232,224,8,208,243,104,141,255,56,208,223,32,170,192 72,32,170,192,72,32,170,192,141,134,2,104,170,10$ A$; " IS "; C$; B$; "." nJ VFTRUE: C65 C90 VFFALSE: _ AD(C65)2 VM (NXAD: 1400: A0NL: A1NH : VAR LSB 2NXAD1: 1400: A2NL: A3NH : VAR MSB < xNH(NX256) NLNX256NH   KK1 N4* ==================================N COMMODARES PROBLEM #52-3 :i CLOCK SEGMENTS~ SOLUTION BY CHARLES KLUEPFEL ======= C-128 ONLY =============TTI 6,2,5,5,4,5,5,3,7,5: I0 9: CT(I): E C(59),TH(23):K0: J0 5:I0 9:C(KI)CT(J)CT(I)::KK10:d"0":"";:TH3:FR4:TW21( H023:CHC(H):M059:CMTWC(M)CH:CMTH:CMFR:S059:CMC(S)"##:##:##";H,M,S;:"";:TH(H)TH(H)1)::ՙ"##:##:##";H,M,11;:FX4:X40LE6:LF101 ULGX5:LHX5:X50LG6:LH8R ZLIX6:LJX6:X60LI6:LJ10m _Y2LALB:HCHNNM(Y2) `Y3LCLD:Y4LE LF bY5LG cY6LI d""P$(X1);P$(Y2);":";P$(Y3);P$(Y4);":";P$(Y5);P$(Y6) eCH(HC)CH(HC)1:CDCD1 fLJY^"";:TH(H)TH(H)1:-:E/"":I023:TH(I);:TTTTTH(I)::TTV2:(TIT)602LALB:HCHNNM(Y2) `Y3LCLD:Y4LE LF bY5LG cY6LI d""P$(X1);P$(Y2);":";P$(Y3);P$(Y4);":";P$(Y5);P$(Y6) eCH(HC)CH(HC)1:CDCD1 fLJY#4,168,24,32 240,255,96,,,,"":53280,6:53281,0E ==================================i COMMODARES PROBLEM #52-4 : FACTOR FUN SOLUTION BY CLAUDE LANDUSKY ==================================1 TI$"000000":"INITIALIZATION T9 "":A4915249195:B:A,B::2,.:792,.:793,192c56580,100:56581,1:56582,.:56583,.56589,130:56590,17:56591,81( 72,138,72,152,72,164,2,200,192,16,208,2,160,0,132,2,185,28,192,141,322 208,141,33,208,76,81,254 <: COLO TRACK TRACE""_"ENTER TRACK,SECTOR (0,0 TO QUIT)";T,S:AT:BS::D0:T0 "TRK:";A;"SEC:";B;:15,8,15:5,8,5,"#"("--> ";:DD1:D1(13);:D0215,"U1";5;0;T;S:#5,A$:#5,B$:A$""A0:70<A(A$) FB$""B0:  BAM CHECK% (2)80 %X L%(300):TB664:A0:C0:N0:P0:R0:F0:A$""} 15,8,15,"I0": 1,8,2, "$0,S,R"# (147):" READING TRACK 18 ... >:COUNTED FILE":( ST 1:15: 1302 P NN1 <#1,A$:A(A$(0)): C254   ** STARTING LINE **?S53100: CHANGE TO RELOCATE ML]I095:A:SI,A:BBA:(B10742"ERROR IN DATA STATEMENTS!":2HI(X)(X256):LO(X)XHI(X)256<I04:A,B:SA,LO(SB):SA1,HI(SB): FS18,LO(S48):S23  LOCK UP LOCATOR:X5319953247:A:BBA:X,A:fB6795"ERROR IN DATA. TRY AGAIN.":(" **** LOCK UP LOCATOR INSTALLED ****"2" **** SYS 53199 TO ACTIVATE, ****"<" **** PRESS '_' TO TRIGGER, AND ****" F" **** AKES OVER AN HOUR FOR N TO REACH 31627..."::"N ="J  P(3500):P(0)2:C1d N3316272:X0: N; (QP(X):QQNP(C)N:CC1:70 2NQ(NQ)70 <XX1:40 F: TI$ P"NUMBER TO FACTOR";N:TI$"000000":F0:C0:N99999999980 ZQP(RS) P 6,14,3,5,13,7,10,8,2,0,0,0,0,0,0,0Q d"":56580,101:56581,1:POK56582,2 nA90109.1:56580,A::A10990.1:56580,A:_90 PB(B$)5 ZA0"TRK:";A;"SEC:";B;:TA:SB:40J d"LAST SECTOR":Y n5:15:20109.1:56580,A::A10990.1:56580,A: CC1: 957F A128 A134 P1:">";: A132 Q1TK N21 Q L%(F)A:Q0iP N28 L%(F)AZ N29 L%(F)L%(F)256A:N0:P0:FF1_ C2 A$(128) TB1328d A32 A$(46)n A128 A160 A$(58)xA$;: 40",HI(S48)A P:"SYS"S"TO ACTIVATE OR DEACTIVATE":"'*' = ACTIVE" Z 173,95,19,208,28,173,48,3,141,94,19,173,49,3,141,95,19,169,48,141,48,3 d 169,19,141,49,3,169,42,32,210,255,96,141,49,3,173,94,19,141,48,3,169,0' n 141,95,19,96,72,165,184,72 SYS 53236 FOR A REPORT. ****"j P 120,169,207,141,21,3,169,220,141,20,3,88,96,165,197,201,57,240,3,76 Z 49,234,104,104,104,104,104,141,254,207,104,141,255,207,76,226,252,173 d 255,207,174,254,207,32,205,189,96,0,0xF):QQN120, dNQ(NQ)NNQ:C1:Q;:100: nFF1:90S xC0"PRIME";:140a N1N;p :TI$:80Y3LCLD:Y4LE LF bY5LG cY6LI d""P$(X1);P$(Y2);":";P$(Y3);P$(Y4);":";P$(Y5);P$(Y6) eCH(HC)CH(HC)1:CDCD1 fLJY  (14)C 53280,14:53281,14:(31)(147):H53270:B$(19)|A$(.)" *********** IPS HOY! ******************* "A$(1)" LASHING CROLL OUTINE. Y ICK "(A$(2)"ANKOVIC (). EFER TO HOY! MAGAZINE" 2A$(3)" CTOBER 1988 FOR INSTRUCTIONS. "5 <A.3:B140:C7.1S F53265,(53265)16:H,C: P53265,(53265)239:B$;(A$(A),B,40B);(A$(A1),1,B) ZE$:E$""53265(53265)16:H,8:(147): d::53265,(53265)16:0,0: R0 F1: L%(R),:TTL%(R)::`F" FILES",T" OCCUPIED BLOCKS",TBT" UNUSED BLOCKS":" ""IF BLOCKS FREE <> UNUSED BLOCKS, VALIDATE DISK.",165,185,72,169,5,168,166,186,32,186,255,32t x 192,255,162,5,32,198,255,32,207,255,170,32,207,255,32,205,189,169,5,32 195,255,104,133,185,104,133,184,104,76,0,0 1,95,9,94,15,95,37,94,45,95$ THIS OPERATION PRODUCES THEJ INTEGER REMAINDER OF AN INTEGERZ DIVISION.(:"A MOD B (ENTER A,B)";A,B:B(B):C(AB):DCB:EAD2:A;"MOD";B;"=";E(A$(2)"ANKOVIC (). EFER TO HOY! MAGAZINE" 2A$(3)" CTOBER 1988 @ "?";:"";: (157);.JCA$"":CF$""MT CA$: CA$(20) 40020^ CA$(17) CA$(29) CA$(145) CA$(157) CA$(19) CA$(147) 40020h CA$(13) 40150r CA$;:CF$CF$CA$|"";: (157); CA$(13): CA$]: CA$(17) CA$(29) CA$(145) CA$(157) CA$(19) CA$(147) 40080 CA$(20) (CF$)1 40080 CA$;: CA$(13) "";: (157);œ: CA$(20) (CF$)0 CF$(CF$,(CF$)1): CF$CF$CA$̜֜ ROM IPS HOY! HECK CLEANS UP YOUR LOCK VAILABILITY AP SO THAT NO TRACKS OR SECTORS IN USE BY A PROGRAM ARE OVERWRITTEN. OR THE -128. S ARE TURNED ON. ROM IPS HOY! TARTING INE TELLS YOU THE BEGINNING ADDRESS OF A MACHINE LANGUAGE PROGRAM AFTER IT IS LOADED IN. OR THE -64. OR THE -128. S ARE TURNED ON. ROMIPS HOY! OCK P OCA- TOR LETS YOU RECOVER FROM A MA- CHINE LANGUAGE CRASH AND REPORTS WHAT ADDRESS WAS BEING EXECUTED AT THE TIME. OR THE -64. ON. ROM IPS HOY! LASHING CROLL LETS YOU CREATE A SCROLLING AND FLASHING MESSAGE ON THE COMPU- TER SCREEN. OR THE -64. AT THE TIME. OR THE -64. ON. ROM IPS HOY! ODULO LETS YOU IMPLEMENT THE MODULO DIVISION FUNCTION AVAILABLE ON OTHER COMPU- TERS ON YOUR OMMODORE. OR THE 64/128/ 20/LUS 4. . ON. (RETURN TO CALLING POINT)ROMIPS HOY! NPUT AL- LOWS YOU TO GET INPUT IN YOUR PRO- GRAMS WITHOUT THE USUAL PROBLEMS ASSOCIATED WITH 'S INPUT FUNCTION. OR THE -128. . ON. ROM IPS HOY! OWNSHIFT LETS YOU SLOW DOWN YOUR PROGRAM LISTING OR PRINTING TO DIFFERENT SPEEDS BY USE OF THE FUNCTION KEYS. OR THE -64. OR THE -128. . ON. ROM IPS HOY! OWNSHIFT LETS YOU SLOW DOWN THE LISTING OR PRINTING OF YOUR PROGRAMS TO VARI- OUS SPEEDS BY USE OF THE FUNCTION KEYS. OR THE -128. 128. . ON.  Z198,0'dI0I1:"DDLOGO",8,14i53280,2Gn55,0:56,92:Ux53265,59d53272,120|56576,(56576)25425055,0:56,16053265,2753272,2156576,(56576)1"";:53280,6:53281,0:(14); "OADING 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) |  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,,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,\''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''AAAAaaaAaaaAAAAAAAAAAaaAAAAAAAAAAAAAAAAAaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 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 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 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  >> ?~ >aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa???????xxxxxxxχ? ? |x???????? 㒒OBBB? ``??????8xx"6*"""HIHHH1"" ~ ? aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaarrr'''''''''''''''''''''rrrr'''''''''''''''''''''rr?????xxx??{3?" "000qb  $44,,yAAqA??_ 0ఘఘ`aa`aaa̘```8?><NcefRSWX???qIIyQI@|>|>><||?????????8,$$, qIIqQ$$D0$y? !!!ఘ```?????x?|xxxx?|??xx?xx?xx?xx?xx?xx?p ""|q# CbbHHO <FEDpp C!!! ```8``|8a`????????8I#IIII$$G8$$8`!!K  Ƈ0x|?xx|?? ~~33 ``  Ƈ0x|?xx|?? DĎb@?!qq Dl8!! ?aaa```aa`8????????< <<yAAqAyRR228DDDD8𠐐8I1Kx?xxxx?xxxx?xxఘ333? ``????eg DD((DDDD  8!!C?AAAAIRRIINJ#$$'$$OBBBBB8lD D|cL@$H DE($8@`8??HHKKKK