KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK  ????????8,$$, qIIqQ$$D0$y? !!!ఘ```  00!!$$bbHHO <FEDpp C!!! ఘ333? ``K DĎb@? ```8``|8a`????????8I#qXHHςpHHp!! ?X%)+( A%X% A%"=SQR("Z$"*"Z$")";:50F- A%; : IF NOT EQUALU2B%(X%2)~< B%X% 19)B%"=SQR("Z$"^2)":70A B% : IF NOT EQUALF: | !! '%  K  Ƈ0? eg DD((DDDD  !! ?aaa```aa`8????????0IIx Xq x~>~K 8!!C? <@@@@,$LD|cL@K ? H PHE8@8??HI ~~33 ``  Ƈ0? \''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''AAAAaaaAaaaAAAAAAAAAAaaaaaAAAAAAAAAAAAAAaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa ?>< bcefQSWN @|>|>><||? ??? IIIIIy$$$ aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa ?????   >> ?~ > ???????xxxxxxxχ? ? qa'$$$'  ? ``??????8xx"6*"""HIHHH1"" aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa |x???????? ~ ? ?????xxx  " "000qb  $44,,DDGDyAAqA??_ 0ఘఘ`aa`aaa̘```8 aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaarrrrrrrrr''gggggggg''gggggggg'Rrrrrrrrrrrrrrrrrrr'ggggggggg'gggggggg''rrrrrrrrrr ??{3?  << CD43-9 >>= ==================================^ COMMODARES PROBLEM #39-4 :q ROOT POWER SOLUTION BY WALLACE LEEKER ================================== X%100X%X%1:X$(X%):Z$(X$,2)A%(X%  BIT MAP TUTORIAL, WITH COLOR; BYQ MORTON KEVELSON 56578,(56578) 3: SET CIA FOR OUTPUTA0: VIDEO BANK 3 ($C000-$FFFF) 56576,((56576) 252) A: SELECT VIDEO BANK  53265,(53265) 32: SET HI-R LAY BAR GRAPHt- ======= BARGRAPHS =============T""; : N1 33 : ""; : : s"DUTY FACTOR: "; : 2100 DF0 "0"; : 2040 N1 DF10.1 : ""; :  : "FREQUENCY : "; : 2100 N1 103(K.5)  "; : 4 N1 20 : " "; : 9> N1 20 : ""; : ?He ====== DUTY FACTOR DEMO ======= > ADD LINE 99 GOTO 3000 > RAPIDLY MOVE THE LED BACK AND FORTH. > LOOK AT THE RELATIVE WIDTHS OF LIGHT AN  << RR43-3 >>< =================================\" PTICAL SCILLATOR"y RUPERT REPORT #43 -------C64 AND C128------ > DRIVE LED FROM MOTOR OUTPUT (PIN C-3) OF CASSETTE PORT.  > READ CADMIUM SULPHIDE $192 TO KEEP MOTOR OFF1 2L1(1) 25 : LED ONS <L0(1) 25 : LED OFF~ F ((56320) 16)16 1,L1 : "ON", P ((56320) 16) 0 1,L0 : "OFF", Z 70TPUT (PIN C-3) OF CASSETTE PORT.  > READ CADMIUM SULPHIDE  << CD43-1 >>= ==================================a COMMODARES PROBLEM #39-1 :" XPONENTIAL OWER" SOLUTION BY SCOTT DUNCAN, LON OLSON, AND ELLIS HORMATS ==================================5  << CD43-2 >>= ==================================a COMMODARES PROBLEM #39-2 :~" LECTRIC OWER 1" SOLUTION BY SCOTT DUNCAN ================================== R2.79 I1 3: U(I),R(I): I#1: HN15 HN0CVHN16LN:0LNLN1: LN15 LN0; 4010]CNCN1: CN15 CN0:CV0:iCVCN:BCBC1: BC15 BC0 BG,BC: ROR1 R2FSMMRO40CO CBC1 C2" FSCB,CV, CB: RO6" (53270) 239: F1=HI-RESF  A$"" 53270,(53270) 16: F3=MULTI-COLORm  A$"" : F5=GET NEXT PATTERN  A$"" 3000: F7=QUIT  A$"" MMSM:4000:4100: HI-NYBBLE  A$"" MMSM:4020:4100: LO-NYBBLE A$"" 99: CLEAR BIT MAP BMI,0! I> R111: START SCREEN ROWY R214: END SCREEN ROW~ C118:C222: START & END COLUMN NB(C2C1)87: NUMBER OF BYTES PER ROW FILL PATTERNS 102,68,85,170,204,99 CN6:CTCN: NUMBER OF FIES1 (OS(53272): STORE ORIGINAL SCREEN LOCATIONg 2 53272,(53272) 8: SET BIT MAP OFFSET TO 8192 < 53272,(53272) 15: SET SCREEN OFFSET TO 0 FBM57344: START OF BIT MAP PSM49152: START OF SCREEN ZCM55296: START OF COLOR MEM""; : 4 N1 20 : " "; : 9> N1 20 : ""; : ?He ====== DUTY FACTOR DEMO ======= > ADD LINE 99 GOTO 3000 > RAPIDLY MOVE THE LED BACK AND FORTH. > LOOK AT THE RELATIVE WIDTHS OF LIGHT AN PHOTOCELL-  FROM BUTTON A INPUT (PIN 6) OFL JOYSTICK CONTROL PORT 2.t =================================  0,(0) 24 : SET DDR SO BIT 4 OF ADDRESS 1 IS AN OUTPUT.  1,(1) 24 : CLEAR BIT 4 OF ADDRESS 1 ( 192,1: SET"EVALUATE N TERMS OF SERIES APPROXIMATION FOR EXP(X)"K  "INPUT X,N";X,NY T1 : E1g ( Z1 N{ 2TTZX : EET < Z F "E ^";X;"IS APPROXIMATELY "E P " WITH AN ACCURACY OF" 100(1TXZ);"%"SG INARY OWER 3  600, .0928, 90, .1052, 12, .1259Y ( "INITIAL, FINAL METER READINGS";U1,U2 : UU2U1g 2 I1 3t <JUU(I) F J0 RRJR(I) : UUJ P Z R "IS DUE" 1SG INARY OWER 2SG INARY OWER 3 << CD43-3 >>= ==================================a COMMODARES PROBLEM #39-2 :~" LECTRIC OWER 2" SOLUTION BY DAVID HOFFNER ================================== A:B2.79.1259(A12)(A12).0207(A;90)(A90).0124(A600)(A600)5  (100B.5)100SGXP. OWERSG LECTRIC OWER1SGLECTRIC OWER2SG INARY OWER 1SG INARY OWER 2SG INARY OWER 3D DARK STREAKS" AS THE DUTY FACTOR CHANGES.H ===============================a P09 : P11 : 3050z P05 : P15 : 3050 P01 : P19 : 3050 3000 CT1 50 1,L0 : N1 P0 :  1,L1 : N1 P1 :  : MMCM:4040:4100: COLOR MEM8  A$"" 4060: BGROUND NYBBLEB*2000z 56576,((56576) 252) 3: RESTORE TEXT DISPLAY 53265,((53265) 223) 53270,(53270) 239 53272,OS: BG,6: I0 999: CMI,14: I HNHNLL PATTERNS% PT:CTCT1: CT0 CTCN:0  1000;  2000E  250j  ROR1 R2: FILL WITH PATTERN FIBMRO320C18: CALC FIRST ROW BYTE  J0 NB: FILL ROW  FIJ,PT  J  RO $  A$  A$"" 53270, ! dBG53281: BGROUND FOR MULTICOLORU iHN0:LN1:CN6:BC14:SCHN16LN: START COLORS n I0 999: CLEAR SCREEN AND SET COLORS x SMI,SC: SET SCREEN COLORS CMI,CN: SET COLOR MEM I BG,BC: SET BGROUND COLOR I0 79 (d* DATA CREATOR --- SHAWN K. SMITHJnS00828:(147)"OKING ATA"gxDSS190:Y:CCY:D,Y}:H(D)(D256)L(D)DH(D)256: C26315 180"?? WRONG DATA COUNT"RECHECK DATA STATEMENTS":LL(D):HH(D)- &d* DATA CREATOR 128 FROM AHOY!!Mn* (D)EVELOPED BY SHAWN K. SMITHmxS5120:INC10:ZS0:TC33306::"PLEASE WAIT...";"STORING ML-CODE"::15:DSS304:Y$C(Y$):TTC:D,C:(18);:TTC "?DATA ERROR - 20,5C,79,20,D7,77,20,155^ 88,84,C3,85,C4,20,81,14,86,FDYh 8A,F0,17,20,81,14,8A,29,0F,85}r AE,20,81,14,86,AF,A5,C3,C5,AC| A5,C4,E5,AD,B0,11,4C,85,86,A2 0F,20,86,03,F0,06,20,5C,79,20 F4,87,60,AD,02,03,8D,FE,02,AD  03,03,8D4,B0,0A,E0,0A,B0,03-! 20,D2,FF,20,D2,FF,A9,00,20,32Q! 8E,A5,AD,C5,C4,D0,06,A5,AC,C5u! C3,F0,26,20,C1,EE,C6,FE,F0,07! A9,2C,20,D2,FF,D0,BA,24,91,10! 14,20,B4,B8,A9,02,85,D0,A9,91! 8D,4A,03,A9,0D,8D,4B,03,6C,FE"& 02,AD,FE,02, << RR43-1 >>====================================Z" LED DRIVER"y RUPERT REPORT #43 USE CASSETTE PORT MOTOR OUTPUT TO LIGHT LED=================================== ====== INITIALIZATI; < 192,1 : SET $192 SO IRQ DOES NOT TURN MOTOR ON FPK(1) : L1PK 32 : L0PK 32 : ON AND OFF POKE VALUES PDF.50 : DUTY FACTOR = 50% ZK2.5 : P10K : W1DFP : W0PW1 : INITIAL PERIOD AND PULSE WIDTHS _ ""  + INCREASES FREQUENCY1  - DECREASES FREQUENCYU  1-9 = DUTY FACTOR (10 TO 90%){  0 = TOGGLE DUTY FACTOR (0/100%)  $ (A$)0 DF0.1(A$) : 1 TO 9 SELECTED . A$"0" DF1(DF0) : TOGGLE 0 OR 1 8 A$"-" K RECHECK"::,MS129:H(M256):LMH256ES180,INC:D13:Y[SY,L:SY1,H:|MS165:H(M256):LMH256S156,L:S161,H ZS S217,56: SURPRESS"TO ACTIVATE: SYS";S: 20,81,92,12,53,59,4E,54,41,58 3A,2,12791 201,44,208,59,184,80,76,196,64,144,55,208,1519d 6,228,63,144,49,240,47,232,208,7,200,208,1632 4,162,255,160,255,134,65,132,66,169,1,166,1569 254,160,0,32,186,255,165,253,166,251,164,252,2138 "32,189,255,169,63,166,65,164,66,3T13:Y:SY,L:SY1,H::D2S82:D4L(S184)P DD1:LL(D):HH(D):S070,Lo S071,H:S177,L:S178,H S73,L(D2):S78,H(D2) S105,D4:S107,H(S184) "SYS"S",STARTING LINE #, START ADDR., END ADDR., # OF VALUES PER LINE 6,229,173,176- J 003,076,072,178,173,002,003,141S T 191,192,173,003,003,141,192,192y ^ 169,082,141,002,003,169,192,141 h 003,003,165,253,133,254,166,251 r 165,252,032,205,189,024,165,251 | 105,010,133,251,144,002,230,252  169,18  119,002,169,013,141,120,002,108A  191,192,173,191,192,141,002,003g  173,192,192,141,003,003,208,222  032,068,065,084,065,032,000  064,168,171: 4 RELOCATION,205,189,024,165,251 | 105,010,133,251,144,002,230,252  169,18,FF,02,A9,A5,8D,02,031  A9,14,8D,03,03,A5,FD,85,FE,A6U  FB,A5,FC,20,32,8E,18,A5,FB,69y  0A,85,FB,90,02,E6,FC,20,81,92  20,44,41,54,41,20,00,A0,00,A9  AC,A6,AE,20,74,FF,AA,A4,AF,D0  06,20,C2,B8,18,90,18,18,B0,10 ! A9,30,E0,60,4C,49,4E,45,23,2C,42,459 47,49,4E,2C,45,4E,44,2C,42,59]" 54,45,53,2C,42,4E,4B,2C,46,4F, 52,4D,41,54,1B,40,0D,0D,00,206 93,4F,86,3D,84,3E,20,80,03,20@ D7,77,20,15,88,84,FB,85,FC,20J 5C,79,20,D7,77,20,15,88,84,ACT 85,AD,J8D,02,03,AD,FF,02"0 8D,03,03,D0,DE:": 112,104,96: DEC RELOCATE20,32,8E,18,A5,FB,69y  0A,85,FB,90,02,E6,FC,20,81,92  20,44,41,54,41,20,00,A0,00,A9  AC,A6,AE,20,74,FF,AA,A4,AF,D0  06,20,C2,B8,18,90,18,18,B0,10 ! A9,30,E0,6ON ==========D  S(B)(M) 2B : SET BIT B OF LOCATION M|  C(B)(M) 2B : CLEAR BIT B OF LOCATION M (M0 : M,S(4) : SET DDR FOR BIT 4 TO BE OUTPUT 2M1 : M,C(4) : CLEAR BIT 4 OF $1 SO $192 IS NOT CLEARED BY IRQ: 2000 : GRAPH2 d ====== MAIN LOOP ===============C n DF0 130^ x 1,L1 : N1 W1: { A$ : A$"" 1000 DF1 120 1,L0 : N1 W0 : A$ : A$"" 1000 110  ====== KEYBOARD INPUT ========= K.5 : K3.5 K3.5 : INCREASE PERIODf B A$"+" KK.5 : K.5 K.5 : DECREASE PERIOD/INCREASE FREQ LP10K : GET PERIOD VW1DFP : W0PW1 : PULSE WIDTHS ` A$ : A$"" 1060 : ANY MORE KEYS?j 2000 : DISP2,216,255,16726 ,76,116,164,162,11,44,162,14,44,162,8,76,1039j 658,164,32,121,0,240,240,201,44,208,236,32,1576 @115,0,32,138,173,32,247,183,166,20,164,21,1291 J230,2,165,2,240,130,201,1,240,143,208,155,171784,80,81,134,63,132,64,32,121,0 #  032,253,174,032,138,173,032,247I  183,132,251,133,252,032,253,174o  032,138,173,032,247,183,132,172 " 133,173,032,253,174,032,138,173 , 032,247,183,132,195,133,196,032 6 241,183,134,253,138,240,010,165 @ 195,197,172,165,19 4,160,192,032,030,171,1607  000,177,172,170,152,032,205,189]  165,173,197,196,208,006,165,172  197,195,240,038,032,219,252,198  254,240,007,169,044,032,210,255  208,221,036,145,016,020,032,215  170,169,002,133,198,169,145,141 1 ũ  % * < ǭV'WLi::;; ;`aɹL8~ ~ϝ n: ;::+ϝao < L , ,s 1 h Š ƈƩ::΍΍ uké iu+L ``#ĭ##ĩyečm!čdčĩmhč8!čgčĩ"ĩ ymdidİLzegigİLh"ĭ"Φĩ"ĩ)ymiİLiİL"ĭ"!ĭ!%!ĩ yszzs{{ ŭŮŽ͍Խ)΍ԩ`ũŭ\` ǍJiIƭ`&`'L(L)L*L+LW,LW<L=L`JƍƩƠ `lƽ΍ƽ΍Ơ'`` % ŭ!Eǭ ǮǽǍȽǍȢǝǭ ǭ `%ɝ8ɝ8ʝ9ȝ+!č"čÍÍōōVō#čōōƍTUÍǍWǍ ܍ ܍ ܩjB© ǩȝ`ȝ` ((UUQ@@P (<4<UPUuUUUQACB@<<U@UPUuU0UEA @UTUUV@RX؝؝ٝٝڝ'i(ϢΝ(Ν+ΝSΝ{+۝S۝{ޢTaۢ΍\̽΍]̩C `ṋnɒ`n̢%`&`ޢ%a&a̭Ɉթa̩̍UϮUϽhҏhhhhhhhҏ0ҏ0              C3cS / *** DATA EXPRESS *** BUCK CHILDRESS ***\ *** P.O. BOX 13575 SALEM, OR 97309 ***(147)"OADING AND HECKING ATA INE:"(S53000:JS: *** CHANGE S TO RELOCATE ***2B011:A<B0L(64)256(63):(19)31)L: FA0A1805/ 0,3,208,14,204,1,3,208,9,162,139,160,1111b 227,169,70,32,210,255,32,210,255,142,0,3,1605 140,1,3,96,173,0,2,201,83,240,3,76,1018 139,227,32,121,0,240,248,201,34,208,244,164,1858 122,200,132,251,164,123,132,252,32,115,0,201,17#,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,16::L AϝZZoL L%XXɺLbXWWɶLbWU <`ΝY ϝY؝Í,čsǍƩn~ ƈƭoL`iiiх i(iii``~Lí`L_ LoL_LoL_%Lo+L_1Lo7L_=LoCL_`6[ `"J` í``o *`ΜéԠ`éԠ` $*06/f.LOADER872A 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,239 2,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 l AHOY! JULY872ABOOTERSGLANKSPEED SG64 UG EP 2 SG128 BUG REP 2 SGNIVADERSSGLINK & LONK(SGIZARD AG ɠSGIZARD AG .MLKKATA XPRESSSGATA REATOR 64SGDATA CREATOR 128SG RIVER SG128SCROLLERSGFAST SHUFFLE SGMAP UTORIALSGPT. SCILLATORKK XP. OWERSGLECTRIC OWER1SGLECTRIC OWER2SGINARY OWER 1SGINARY OWER 2SGINARY OWER 3SGOOT OWERSG DDLOGO%KK LOADERSG ROOT POWER 128DIR 1)KKKKKKKK 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 20991PROGRAM BY ROBERT BIXBYL mԙUdi'C C &`} 8ԍ} ~ ~ !~ } ԭ~ ԩ ԩԩԩ!ԩ ` ԩ ԩ ԍԩԩ`ԍ ԍ ԍ ԩԩԩ ԩA ԩ@ `09L L ` ȩOȩPȩ ` "" PLINK AND PLONK 3.0C" BY WALTER E. MEYERSM 100nLN21:COL5: 50: PL$(PL): 49188:C((V)8)40:R((V1)64)24:#COL3((C31)5):LN5((R31)3): 50(LN10:COL292 781,LN: 782,COL: 783,0: 65520:I::H124:V150I nH2255:V2200:V53248: V2,H1: V3,V1: V4,H2: V5,V2 x V39,4: V40,13: V41,7: V42,1: V23,6: V29,7 S54272:BL30:TEMPO3: B$(17),PO(8,8),HU$(2),FF$(5),PL$(7) A: A99 180 140 SPRITE49344) 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 J1 4: ISP SP63: A: I,A::SPSP64:7 JOY49152M A: A999 230i JOY,A:JOYJOY1: 210 56334,(56334) 254: 1,(1) 251: 49152 1,(1) 4: 56334,(56334) 1 A: A999 270  I0 7: B: 61440(A8)Р @@01` .н ; P9U CU ЍL L н 3 9U U MЍL  `  Ґ ԍ%Э) `ԍԍ m %  6 ^ < D D  D _ < L  2 2 `8(`2 L  <;:@?>A=ly{u~x|vԍ  `  i(     M E `  = Ȍ Ќ!` 1L 0 9L I,B:: 250;  56576,((56576) 252): 53272,44: 648,200:""\  53281,11: 53280,11: 4000  --------------------- DRAW GRID "": J15: I15:PO(J,I)0::  I116:2) B$(I)::LN3:COL30: J12: I12  50: HU$(I)   < IS S24: I,0::R F S24,15: S5,45: S6,165: S4,33: S1,6: S,5m K T1200:: S4,32: PS15,HN(P):S1,LN(P):S4,19: T130:: S4,18: c --------------------- INITIALIZE d"ONE MOMENT.": I3 6: 52213I,  30:C1C:R1R0 PO(R1,C1)P 40: M$(2): 70: 1220q V21,0: 52216,6: V29,0: V21,1:PO(R1,C1)0:C3C1:R3R1 35: FF$(3): 40: M$(0) --------------------- TO WHEREPLP4: 20:10)PL$(7) 30:C2C:R2R( PO( FF$(P): 1210 ----------- CHECK FOR CAPTURES< PO(R21,C21)Q 2050p PO(R22,C22)P XR21:YC21: 2500: 2050 PO(R22,C22)0 2050 PO(R23,C23)P XR21:YC21: 2500:XR22:YC22: 2500: PO(R21,C2)Q 2150/R PO(R23,C23)P XR21:YC21: 2500:XR22:YC22: 25005e:Qf PO(R2,C21)Q 2200p PO(R2,C22)P XR2:YC21: 2500: 2200z PO(R2,C22)0 2200 PO(R2,C23)P XR2:YC21: 2500:YC22: 2500: PO(R2, 0 2300. PO(R23,C23)P XR21:YC21: 2500:XR22:YC22: 25004:P PO(R21,C2)Q 2350 PO(R22,C2)P XR21:YC2: 2500: 2350 PO(R22,C2)0 2350 PO(R23,C2)P XR21:YC2: 2500:XR22: 2500- :. PO( BL$:LN22: 50: BL$:LN21: 50@t "THAT'S IT--PLAYER" P "WINS!": V21,0: V,255: V1,180|~ V23,1: V29,1: V39,PC(P): P1 52216,5: 2450 52216,4 V21,1:LN22:COL0: 50: " ANOTHER GAME? HIT Q TO "; "QUIT, OR AN3): 50: FF$(Q3)  T1200:: 50: FF$(3)  PS(Q)PS(Q)1:& :K ------------------------ TITLE :"": 60:CC0: S24,15: S5,47: S6,136:P4 V21,6:LN10:COL4: 50 "" P$L$I$N$K$ " AND " P$L$O$N$K$ HI,LO,DUHI,LO,DUR:: 3030 S24,15: S5,47: S6,136: V21,0: 900? ---------------------- STRINGSP$"":L$"Ñ":O$"ˑ"N$"ӑ":K$"ѵӑ":I$"ӑ"B":HU$(1)"":HU$(2)""2M$(0) "   "tM$(1)"SOMEONE'S THERE NOW.TRY AGAIN."M$(2)"YOU DON'T HAVE ONE THERE. ""M$(3)"FORBIDDEN "":LNLN1:::PS(1)12:PS(2)12B  ----------------- PLACEMENT SEG{ PC(1)7:PC(2)13: 52216,3: J112: P12: V21,0  V39,PC(P): V,128: V1,136: V21,1:PLP  20: 30  PO(R,C)0 40: M$(1): 70: 1020 R3 CBL$:LN22:COL8: 50:"AND NOW--";FL T1500:: "THE FUN BEGINS!": T11000:aVLN22:COL0: 50: BL>g:wP3P:Q3P -------------------:FROM WHEREPLP2: 20:10) PL$(7): V21,0 52216,3: V29,1: V39,PC(P): V21,1R2,C2)0 40: M$(1): 70: 1370A2 R2R1 C2C1 40: M$(4): 70: 1370x< (R2R1)1(C2C1)1 40: M$(5): 70: 1370FPO(R2,C2)P:C3C2:R3R2: 35: FF$(P): V21,0: 80P 40: M$(0): 2000ZPO(R1,C1)P:C3C1:R3R1: 35:  2100!  PO(R22,C2)P XR21:YC2: 2500: 2100< PO(R22,C2)0 2100x  PO(R23,C2)P XR21:YC2: 2500:XR22:YC2: 2500~3:4 PO(R21,C21)Q 2150> PO(R22,C22)P XR21:YC21: 2500: 2150H PO(R22,C22)0 C21)Q 2250% PO(R2,C22)P XR2:YC21: 2500: 2250@ PO(R2,C22)0 2250w PO(R2,C23)P XR2:YC21: 2500:YC22: 2500}: PO(R21,C21)Q 2300 PO(R22,C22)P XR21:YC21: 2500: 2300 PO(R22,C22)R21,C21)Q 2400*8 PO(R22,C22)P XR21:YC21: 2500: 2400GB PO(R22,C22)0 2400L PO(R23,C23)P XR21:YC21: 2500:XR22:YC22: 2500^ :_ ----------- CHECK FOR GAME END` PS(Q)1 1190j LN21:COL3: 50:Y":7) "OTHER KEY TO PLAY AGAIN.": 198,0" AG$: AG$"" 2460V AG$"Q" AG$"" V21,0: V23,0: 900 V21,0: "": 53272,21: 648,4: 56576,(56576) 3 "": SC,6: BO,14::: PO(X,Y)0:COL3((Y1)5):LN5((X1)R:P6P: HI0 3100* A1((1)(25524)24):A2((1)(20050)50): VP,A1f VP1,A2: S4,19: S15,HI: S1,LO: T1 DURTEMPO : S4,18:RESTDUR2: T1 RESTTEMPO::CCCC1 CC27 : 3030 CC52 3030 I1 2: $(1)"":B$(2)" "_ I3 15:B$(I)B$(2):: B$(4)"" I7 13 3:B$(I)B$(4)::B$(8)"  "B$(9)B$(8):B$(16)"ZONE! TRY AGAIN.":,M$(4)"YOU BEGAN THERE. TRY AGAIN."|6M$(5)"CAN'T MOVETHAT FAR! TRY AGAIN."@FF$(1)"!#$%&'()":FF$(2)"*+,-:;<=":FF$(3)"  "JFF 3 40: M$(3): 70: 1020QPO(R,C)P:COL3((C1)5):LN5((R1)3): 80: 50: FF$(P)$ 40: M$(0):LN2((J7))P:COLBL: J6 LNLN1. COL35 COL30:BL308 50:" "::BLBL1::LN22:COL0: 50: BL$:P2BLN21:COL0: 50:  0,0,0,0,-1,-1,-99# ---------------------- SPRITES # 255,255,0,255,255,0,192,3<# 0,192,3,0,192,3,0,192V# 3,0,192,3,0,192,3,0r# 192,3,0,192,3,0,192,3# 0,192,3,0,192,3,0,192# 3,0,192,3,0,192,3,0# 192,3,0,192,3,0,255,255 0$ 0,0,0,0,0,0,0,0$:$ 0,0,0,0,255,0,7,255% 224,31,255,248,56,63,236,96A% 30,14,79,28,126,252,152,207f% 252,216,31,231,251,231,199,255% 227,195,255,195,72,0,18,118% 24,110,63,24,252,31,255,248% 7,255,224,0,255,0,0 ,0,0& 24,0,0,31,0,0,0,0'O ------ CHAR TRANSFER, JOYSTICK''P 169,0,133,251,133,253,169,208L'Q 133,252,169,240,133,254,162,16p'R 160,0,177,251,145,253,136,208'S 249,230,252,230,254,202,208,240'T 96,0,0,0,173,0,220,41'U 15,201, (] 88,144,185,233,40,141,0,208)^ 76,136,192,0,24,173,0,208#)_ 201,208,176,168,105,40,141,0@)` 208,76,136,192,0,0,0,0d)a 162,200,160,0,200,208,253,202)b 208,248,76,36,192,999) ------------------ CUSTOM FONT) 161,0,0,1,7,14,18,48,224,128,0,0* 170,0,0,1,7,15,15,31,31+ 171,31,113,204,255,1,121,225,1938+ 172,248,142,51,255,128,158,135,131^+ 173,0,0,128,224,240,240,248,248|+ 186,28,28,15,12,7,1,0,0+ 187,193,1,255,126,0,252,126,31+ 188,131,128,255,4,30,28,13,15,7,1,0,0, 205,127,240,199,128,63,255,127,31- 206,190,15,227,1,252,255,254,248?- 207,120,56,176,240,224,128,0,0]- 209,0,0,0,255,255,0,0,0|- 211,60,60,60,60,60,0,0,0- 213,0,0,0,15,31,62,60,60- 214,28,28,15,12,7,9998,13,15,7,1,0,0, 205,127,240,199,128,63,255,127,31- 206,190,15,227,1,252,255,254,248?- 207,120,56,176,240,224,128,0,0]- 209,0,0,0,255,255,0,0,0|- 211,60,60,60,60,60,0,0,0- 213,0,0,0,15,31,62,60,60- 214,28,28,15,12,7,"128SCROLLER0I0255:A:3584I,A::A$" ":B$"":D$" ":E$"":D(32)C$"PRESS [1] FOR HARD, [2] FOR EASY"(147);:I0195:K07:C$(K)(B$,$(4)"!#$%":FF$(5)"*+,-"0 TBL$" "~ hPL$(1)"PLAYER 1: PLACE A PLINK.":PL$(2)"PLAYER 2: PLACE A PLONK." rPL$(3)"PLAYER 1: PICK A PLINK, THEN " |PL$(4)"PLAYER 2: PICK A ,62,8,44,193,8,56,99,16(" 28,49,8,29,221,8,29,221,8,31,165,8,31,165,8,33,135,8,44,193,16s" 25,30,8,29,223,8,44,193,16,25,30,8,29,223,8,44,193,8,42,62,8,42,62,8" 37,162,8,37,162,8,33,135,8,33,135,8,29,223,8,28,49,8,25,29,8,22,96,16" 0,0,# 0,255,255,0,0,0,0,0#:# 0,0,0,0,255,0,7,24#$ 224,30,102,120,63,255,252,112F$ 24,14,119,153,238,254,24,127g$ 252,24,63,204,24,51,192,24$ 3,255,255,255,71,231,226,112$ 0,14,63,195,252,31,231,248$ 7,255,224,0,255,0,0,,0% 0,0,0,0,0,0,0,0% :&  255,128,0,204,223,0,204,223'&  224,204,192,248,204,192,60,0I&  120,30,112,204,14,224,204,7i&  224,204,7,224,120,7,224,6& 103,224,6,103,112,6,110,120& 3,206,60,1,128,31,0,31& 7,255,152,0,255,15914,240,20,201,13,240'V 33,201,11,240,46,201,7,240(W 59,173,0,220,41,16,208,2288(X 96,56,173,1,208,201,112,144Z(Y 219,233,24,141,1,208,76,136{(Z 192,0,24,173,1,208,201,184([ 176,202,105,24,141,1,208,76(\ 136,192,0,56,173,0,208,2012,31,31) 163,31,127,255,131,1,241,201,205* 164,248,254,255,254,224,199,140,129:* 165,0,0,128,224,240,240,248,248X* 166,30,28,12,12,7,1,0,0* 167,127,127,63,128,97,241,127,31* 168,190,254,252,1,134,143,254,248* 169,120,56,4126,0,63,126,248+ 189,56,56,240,48,224,128,0,0 , 193,0,0,0,60,60,60,60,60,, 194,60,60,60,60,60,60,60,60J, 195,0,0,0,252,252,0,0,0l, 201,0,0,0,240,248,124,60,60, 202,60,60,62,31,15,0,0,0, 203,60,60,124,248,240,0,0,0, 201,0,0- 215,193,1,255,120,243,243,120,31. 216,131,128,255,30,207,207,30,248+. 218,56,56,240,48,224,128,0,0M. 235,60,60,60,63,63,60,60,60l. 237,60,60,60,63,63,0,0,0. 240,0,0,0,63,63,60,60,60. 245,60,60,120,240,240,120,60,60,32:K((TI)32)1:L((TI)32)1:D(0)D(L):D(L)D(K):D(K)D(0):m K0:"";:I132:KK1:((D(I)),2)E$; K7K0:""; : A1$"2"A1$"2":A1$"1"MO((A1$)1)40:D$A$:A$(17)22:DOWNA$(29)24:RIGHTK1,1)::J039:C$(J7)A$;::)9:C$~ A1$"":A((0)2)5:BA14:C((0)6)5:DC14:E((0)4):N((0)4)55I1N:4864,A,B,C:4882,D,E::A1$::SP1:X36:Y60:I14:I,X,Y:I,0::1,1,3,0,0,0,0:13? I132:D(I)I::J0 PLONK, THEN " !PL$(5)"PLAYER 1: MAKE YOUR MOVE, AND ":PL$(6)"PLAYER 2:"g!PL$(7)"HIT THE FIRE BUTTON.":HN(1)67:HN(2)56:LN(1)56:LN(2)99r!~ 3000! ------------------------ MUSIC! 67,15,16,33,135,8,37,162,8,37,162,8,42,62,8,4260,0,0,24,0,0,011,255,128,63,255,128,63,255,0,31,255,0,31,254,0,15,254,0,15,254,0,0,0,0,31,254,0p"+31,255,0,31,254,0,0", 0,0,0,0,0,0,0,0,0,0,63,0,0"- 31,192,127,255,224,255,255,248,127,255,254,0,127,254,0,255,2548#. 0,127,254,0,127,255,0  << CD43-4 >>= ==================================a COMMODARES PROBLEM #39-3 :|" INARY OWER 1" SOLUTION BY DAVID ALAN WRIGHT ==================================J "NUMBER TO CONVERT";N:I701:J2  << CD43-6 >>= ==================================_ COMMODARES PROBLEM #39-3 :z" INARY OWER 2" SOLUTION BY PAUL SOBOLIK ================================== PW(7): I07: PW(I): ML5152: X0  64,128* Q =================================L R $FB HOLDS THE NUMBER TO BEt S REVERSED. ASL LEFT-SHIFTS BIT 7 T INTO CARRY. ROR RIGHT-ROTATES U CARRY INTO BIT 7. Y STORES LOOP V COUNT. Z 160,8 : ML LDY #$08 [ 1  << CD43-7 >>= ==================================_ COMMODARES PROBLEM #39-3 :{" INARY OWER 3" SOLUTION BY RUSSELL K PRATER SCREEN CHARACTER REVERSAL ===== C-64 ONLY ================ SELRECT VIC CHIP" 2 53272,(P 240)12C ; PRESS ANY KEY TO RESTORE[ < A$ : A$"" 60i F 53272,P O PRESS ANY KEY TO REVERSE P A$ : A$"" 80 Z 50 d n IML ML55: A:CKCKA: I,A:: CK7701 x"ERROR IN DAT,133,001,088,096 53272,(P 240)12C ; PRESS ANY KEY TO RESTORE[ < A$ : A$"" 60i F 53272,P O PRESS ANY KEY TO REVERSE P A$ : A$"" 80 Z 50 d n IML ML55: A:CKCKA: I,A:: CK7701 x"ERROR IN DATA$(145)26:UP)A$(157)28:LEFTAA$(32)30:MOVE[A$(42)37:ROTATEc15YY40:Y(180MO)Y6039:XX40:X316X3639:YY40:Y60Y(180MO)39:XX40:X36X31639:# SI,X,Y::!(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,252,0,7,248,0,15,255,254,63,255,255,223,254,0,191,255,0,223,252,0,191,254,0,223,252,0,223,248,0,224,0,0,255,0,0,254,0,0!)252,0,0,248,0,0,0,0,0,0W"* 0,0,0,2,0,0,7,0,0,7,0,0,7,0,0,7,0,0,7,0,0,7,224,0,,63,255,0,31,255,0,7,247,0,0,31,0,0,255,0,0,127,0,0,63,0,0,63,0,0,63,0#/ 15,254,0,15,254,0,15,255,0,0,0,0,31,24,0,63,254,0,127,255,0,255,255,128,255,255,64,255,255,96,255,254,96,25,255,192,255,255,0,63,252,0,60,0,0#060,0=0,60,0,0,60,0,0,60,0,0=PI:K(NJ):A$((K),1):B$B$A$:C$A$C$:XXK2(7I):NNJK::B$,C$,XER2SG LECTRIC OWER1SGLECTRIC OWER2SG INARY OWER 1SG INARY OWER 2SG INARY OWER 3 10: BY: MLX,BY:D N$"":"ENTER NO.";N$:N1(N$): N$"END" ( 251,N1: ML:N2(252):PN1: 60:B1$P$:PN2: 60:B2$P$ 2 : N1,B1$,B2$,N2:: 30 <P$"": I7 0 1:I$"0":(P PW(I)) I$"1" FP$P$I$:: P 1,2,4,8,16,32,65,251 : LDA $FB2 \ 42 : LOOP ASL AS ] 102,252 : ROR $FCp ^ 136 : DEY _ 208,250 : BNE LOOP ` 96 : RTS 1:I$"0":(P PW(I)) I$"1" FP$P$I$:: P 1,2,4,8,16,32,ECT ADDRESS FOR CHARACTER RAM; ADDR12288 : 252,ADDR256Y  PROTECT IT FROM BASICo  56,ADDR256 :  CODE IS RELOCATABLE; CHANGE ML ML820 : (ML)169 110 ' DOWNLOAD AND REVERSE ROM ( ML : P(53272) 1 REDIA":$ 169,15,133,255,169,000,133,251J 133,253,169,208,133,254,120,165p 001,041,251,133,001,16,000,177 253,162,007,010,102,002,202,016 250,165,002,145,251,200,208,239 230,252,230,254,198,255,016,231 165,001,009,004 << CD43-8 >>= ==================================^ COMMODARES PROBLEM #39-4 :t" OOT OWER" SOLUTION BY JIM SPEERS ==================================d I1 256 : K1 : (I2)I K3 n (II)I KyK1 x K 160,130,140,1509 I;"(I*I) ONLY" : 160V I;"(I^2) ONLY" : 160k I;"BOTH EQUAL"s ISGINARY OWER 2SGINARY OWER 3SG INARY OWER 2SG INARY OWER 3P2SP4A0:B(19(MO8)):C(X36)8:DC4L SP1SP3C0:D39:A(Y60)8:BA4Z SP1E1h !SP3E0v "SP2E2 #SP4E3 $I04:4864,A,B,C:4882,D,E:: %SP0SP1:SP,0:SPSP1:SP4SP1 &SP,1,3,0,0,0,0:!'I14: 7,254,0,15,255,0,111,255,128,63,255,128,63,255,0,31,255,0,31,254,0,15,254,0,15,254,0,0,0,0,31,254,0p"+31,255,0,31,254,0,0", 0,0,0,0,0,0,0,0,0,0,63,0,0"- 31,192,127,255,224,255,255,248,127,255,254,0,127,254,0,255,2548#. 0,127,254,0,127,255,0L` ('؅ LY0L ȱȱ    ` ȑȑ    `i(`i(`8(9) A0 A1:"IZARD AG .ML",8,15 49152 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  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,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, '********************************M * MENU PROGRAM *s"* DESIGNED BY *$* DOUBLE L SOFTWARE *&* (C) 1987 ALL RIGHTS RESERVED *(********************************253265,(53265)239 4);",8" "RUN": ""?  631,13: 632,13: 198,2:| "":(L$,2)2)"" *(L$,3)2)" " 4I116:2)" ݞ ":, > `8(``           `            ````  L`  LL 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  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,(L$,P)10)" ":I0F:LCI,14:1HH1:HGHH12EPP1:P19P8eLCLC40:LC56030LC55590n204(L$,P)10)" ":I0F:LCI,14:HH1:HG11HH12 PP1:P8P19#LCLC40:LC55590LC56030(204 <:4000& P P$(25),IN$(25,5):5000O d53280,2:53281,0:(14):2500:5900k x800:53265,(53265)16 H1:G0:L8:LC55590:P8 I819:GG1:(L$,I)14)""P$(G): F(P$(H)):I0F:LCI,7::1000 (L$,P)10)PT$ AN$:AN$"(L$,20)2)" "e C(L$,21)2)"" H(L$,22)1)"" R(L$,23)1)" RSR=ELECT PC=ORE /қ=XECUTE " \(L$,24)1)" ('؅ LY0L ȱȱ    ` ȑȑ    `i(`i(`8(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) |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,6828+(L$,13)4)""_"(L$,14)4)" HIS IS A 128 ROGRAM.T MAY ",(L$,15)4)" NOT BE LOADED IN THE 64 MODE."6(L$,16)4)" OU MUST SWITCH TO THE 128 "@(L$,17)4)" MODE IN ORDER TO LOA"206 AN$(17)1250* AN$(145)1300> AN$(13)2000^ AN$(32)G243000:140 AN$(32)3000:H13:LC55590:P8:150 204 "";:53280,0:53281,6 "OADING...";(34);P$(H)(34);"" "LOAD";(34);P$(H);(3 "C f(L$,4)10)""d p10)" " z10)""  S54272:S23,0:S24,15 S6,0:S5,12:S1,70:S3,40 S4,0:S4,65:D1100::S4,0:O40:XX1:PO55587PO55507>X2X0(HAN$(13)21402R2080F\X0882:4100TaX22160{bH3H9H10H11H22882:1550oX1882:230p882:225I116:POI,5:: P$(1)"LANKSPEED" P$(2)"64 UG EP ""TAKEPROOF TYPING OF -128 "$ "PROGRAMS PRINTED IN HOY! (OR PRO-"P "GRAMS PUBLISHED FROM AY 1987 ONLY!"z "THERWISE USE 128 UG EPELLENT.)" PROGRAM #4 "HE NIVADERS DESCEND ON YOUR" "LONELY OUTPOST IN UNENDING D THIS "/J(L$,18)4)" PROGRAM SUCCESSFULLY. SE THE"cT(L$,19)4)" PRESCRIBED METHOD WHICH IS..."^(L$,20)4)" OAD ''ROGNAME'' "h(L$,21)4)" [RESS ANY EY] "r(L$,22)4)" 250,216 185,244,193,153,244,5,185,228- 197,153,244,217,185,238,194,153Q  238,6,185,222,198,153,238,218f 200,208,205,96 --------------------------- ** MAX OF 33 CHRS IN LENGTH ** --------------------------- I12 ":PT$"=>":828JI814:(L$,I)1)" "P"(L$,15)1)" [/=ANCEL * PC=UN ROGRAM] "1(L$,23)3)" ":10006I15:(L$,8I) " "GATHER EIGHT KEYS AND TAG THE ")  "IZARD. OYSTICK IN ORT 2. ":  PROGRAM #7e  "ATA XPRESS ADDS THE -128'S "  "BINARY SAVE FEATURE TO THE -64, "  "ENABLING YOU TO SAVE MACHINE "  "LANGUAGE AND  P$(3)"128 UG EP II" P$(4)"NIVADERS"0 P$(5)"LINK & LONK"J P$(6)"IZARD AG "c P$(7)"ATA XPRESS" P$(8)"ATA REATOR 64" P$(9)"DATA CREATOR 128" P$(10)"128SCROLLER"( P$(11)"FAST SHUFFLE"2 P$(12)"MAP UTOR WAVES." "OU ARE GIVEN FOUR GUNS TO DEFEND "1 "AGAINST THEM AND THEIR CONCUSSION"] "BOMBS. OYSTICK IN ORT 2. "n PROGRAM #5 " CHECKERS-LIKE GAME FOR TWO " "PLAYERS, REQUIRING YOU TO ELIMINATE" "YOUR">|(L$,23)3)" ":1000TAN$:AN$""1670b882:225 ************************** **** WINDOW ROUTINE **** **************************828(L$,5)11)" 4:X15:IN$(I,X):::o PROGRAM #1-p "HIS IS HOY!'S ACHINE ANGUAGE "Wq "ENTRY PROGRAM FOR OUR ADVENTUROUS"r "READERS WHO LIKE TO TYPE IN THE"s "PROGRAMS FROM OUR MAGAZINE."t " "y PROGRAM #2z "HOY!'S CHECKSUM P3)""IN$(H,I):@AN$:AN$""4160JAN$(13)882:204FTH3H9H10H11H22882:1550_^AN$(32)882:230ih4160I828935:A:I,A:: 160,0,185,0,4,153,0,192 185,0,216,153,240,195,185,250 4,153,250,192,185SPRITE DATA DIRECTLY"! "FROM MEMORY. "! PROGRAM #8D! "ATA REATOR 64 IS A MACHINE "n! "LANGUAGE UTILITY THAT WILL ALLOW "! "YOU TO CONVERT ANY SECTION OF "! "FROM ANY BANK INTO DATA "! "IAL"7 P$(13)" RIVER"< P$(14)"PT. SCILLATOR"7F P$(15)"XP. OWER"TP P$(16)"LECTRIC OWER1"qZ P$(17)"LECTRIC OWER2"d P$(18)"INARY OWER 1"n P$(19)"INARY OWER 2" P$(20)"INARY OWER 3" P$(21)"OOT OWER" P$ OPPONENT'S COUNTERS. OYSTICK " "IN ORT 2. "G " "X PROGRAM #6 " SEQUEL TO IZARD AG (ARCH '87) "BIGGER THAN THE ORIGINAL, WITH " "NEW DANGERS. O WIN, YOU MUST "(L$,6)11)" EE NSTRUCTIONS "A(L$,7)11)" UN ROGRAM "g(L$,8)11)" ANCEL INDOW " (L$,9)11)" "PO55507:X0 I116:POI,1::1000*AN$:AN$""20904AN$(17)2200:POPROGRAM, FOR MIS-"{ "TAKEPROOF TYPING OF -64 "@| "PROGRAMS PRINTED IN HOY!. (OR "j} "PROGRAMS PUBLISHED FROM AY 1987 "~ "ONLY! THERWISE USE 64 UG EP.) PROGRAM #3 "HOY!'S CHECKSUM PROGRAM, FOR MIS- " ,250,216,153 234,196,185,244,5,153,244,1934 185,244,217,153,228,197,185,238X 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,192,153 250,4,185,234,196,153,STATEMENTS. "! PROGRAM #9(" "ATA REATOR 128 IS A MACHINE "S" "LANGUAGE UTILITY THAT WILL ALLOW "}" "YOU TO CONVERT ANY SECTION OF "" "FROM ANY BANK INTO DATA "" "STATEMENTS. (22)"ROOT POWER 128" P$(23)"" P$(24)"" L CL819:(L$,CL)14)" ":e (L$,P)10)" ":657,128: DISABLE SHIFT/COM KEY775,200: DISABLE LISTING808,234: DISABLE STOP/RESTOREL$" ".N" " /O" "3/P" "E/U PROGRAM #24m/V"OT SED..... "/W" : "/X" RAM #20+." THIRD SOLUTION TO THE ARCH '87 ",/"OMMODARE. (EE INARY OWER 1.)"<,0" "g,1" ",2" ",7 PROGRAM #21,8"OLUTION TO TACCORDING TO A TABLE. ") " ") PROGRAM #17A)"NOTHER SOLUTION TO THE ARCH '87 "j)"OMMODARE. (EE LECTRIC OWER 1)")" ")"  %"ING AN CONNECTED TO THE CASSETTE"&"PORT ON AND OFF AND EXPERIMENTING"B&"WITH THE FREQUENCY AND DUTY CYCLE"[&"OF ITS OPERATION."m& PROGRAM #14&"ART OF THIS MONTH'S UPERT EPORT,"&"PTICAL SCILLATOR IS USED TO SHOW" "" PROGRAM #10# "128 CROLLER IS A MACHINE LANGUAGE"=# "UTILITY THAT ALLOWS YOU TO SCROLL "g#"ANY NUMBER OF TEXT SCREEN LINES IN"#"FOUR DIRECTIONS. T CAN BE USED TO"#"SIMULATE SLOT MACHINES AND ROULETTE."# PROGKd "/Y" "0Z" " "P.F" "b.K PROGRAM #23.L"OT SED..... ".M"  HE ARCH '87 OMMODARE",9"REQ. THE USER TO WRITE A PROGRAM ""-:"THAT WILL DISPLAY ONLY THOSE NUMBERS"K-;"FOR WHICH THE FUNCTION OF THE"w-<"SQUARE OF THE NUMBER IS = TO THE NO."-A PROGRAM #22-B" -128 SOLUTION TO THE ARCH '87" ")" ") PROGRAM #18%*"OLUTION TO THE ARCH '87 OMMODARE"P*"REQUIRING THE USER TO WRITE A PROG."x*"THAT WILL DISPLAY THE BINARY "*"EQUIVALENT (BASE 2) AND THE BINARY"*"MIRROR IMAGE OF A&"A SIMPLE EXAMPLE OF A 'CLOSED LOOP'"'"CONTROL SYSTEM. "7'" "I' PROGRAM #15t'"OLUTION TO THE ARCH '87 OMMODARE"'"REQUIRING THE USER TO APPROXIMATE "'"THE EXPONENTIAL FUNCTION IRAM #11#" SIMPLE GAME FOR THE -128 DEMON- "%$"STRATING THE CAPABILITIES OF 128 "O$"SCROLLER. SE THE CURSOR KEYS AND "z$"SPACE BAR TO PUSH AND PULL ROWS AND"$"COLUMNS OF TILES INTO ORDER. "$ PROGRAM #12$"CCOMPANYINGKK-C"OMMODARE. (EE OOT OWER.) ".D" ",.E" "P.F" "b.K PROGRAM #23.L"OT SED..... ".M"  NUMBER. "*# PROGRAM #19+$"NOTHER SOLUTION TO THE ARCH '87"/+%"OMMODARE. (EE INARY OWER 1.)"Y+&" "+'" "+(" "+- PROGN A "'"PROGRAM. "(" "0( PROGRAM #16[("OLUTION TO THE ARCH '87 OMMODARE"("REQUIRING THE USER TO WRITE A "("PROGRAM TO CALCULATE ELECTICAL "( "USAGE  THIS MONTH'S IT AP "%"RAPHICS UTORIAL, THE IT AP "2%"UTORIAL PROGRAM ALLOWS YOU TO "\%"EXPERIMENT WITH THE -64'S HI-RES "%"AND MULTICOLOR DISPLAYS. "% PROGRAM #13%" RIVER PROVIDES A MEANS OF TURN-"KKKK