""14)"PHONE CODE"C =================================g COMMODARES PROBLEM #46-2 :| PHONE CODE SOLUTION BY JUDY GROTH ================================= V(26):A$(1),A$(2),A$(3):V(26)995 KN(d ** 128 SMART MERGE FROM AHOY! **On *(F)ABRICATED BY SHAWN K. SMITH*vx:  15 :S$"$1400":TC24438:R$(18)"",">>> 128 SMART MERGE <<<"STORE AT";S$:S(S$):S160:S((((S$,2)))) HS  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, 14,8D,01,03,AD,90,14,8D3  02,03,AD,91,14,8D,03,03,20,B7W  FF,C9,40,D0,1E,A9,00,85,5C,85{  5D,8D,73,11,A9,0A,8D,72,11,18  6D,70,11,8D,70,11,90,03,EE,71  11,4C,68,5B,2C,A2,80,AD,8E,14  8D,00,03,AD,8F,14,8D,01,03,8A  30,13,A5p209010:LP13:CC1:V(C)KNLP:C17V(C)77:LPLP1b ::Y13:X6590:A$(Y)(X)V(X64)j (:OUNDSGSAMPLER OLOR AR 64 COLOR BAR 128HONE ODE 256:H(H)H01 DSS255:Y$:C(Y$):TTCH D,C:::TTC200i R$"?? RECHECK DATA!";T;TC: MSD:(M2)20((M)141(M)173)M2,H :S135,H:S152,H: "TO MERGE: SYS";S: A5,2D,85,FB,48,A5,2E,85,FC,48 A0HIS IS HOY!'S MACHINE LANGUAGE ENTRY PROGRAM FOR OUR ADVENTUROUS READERS WHO LIKE TO TYPE IN THESE PROGRAMS FROM OUR MAGAZINE. - TEXT IN ULER'S RIMES LANK IN UG EP IN16,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,6y,FD,8D,10,12,A5,FE,8D/  11,12,A0,02,A9,00,91,2D,88,10S  FB,A5,FB,85,2D,A5,FC,85,2E,A9k  00,85,7A,6C,00,031,02,AD,02,03 ^ 8D,90,14,AD,03,03,8D,91,14,A9 h 92,8D,02,03,A9,14,8D,03,03,4C r DC,4D,00,00,00,00,A9,CC,8D,00 | 03,A9,HOY!'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.) 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.) ,00,68,85,2E,68,85,2D,B1,2D; 48,C8,B1,2D,F0,10,48,C8,B1,2D_  8D,70,11,C8,B1,2D,8D,71,11,18  90,E0,68,AD,10,12,85,FD,AD,11  12,85,FE,AD,00,03,8D,8E,14,AD " 01,03,8D,8F,14,20,81,92,0D,46 , 49,4C,45,4E,41,4D,45,20,3D,3E 6 00,2,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,0,93,4F,86,3D,84,3E,20,807 @ 03,AA,F0,4D,8C,12,02,A0,0F,B1[ J 3D,99,02,02,88,10,F8,A9,F0,8D T 00,02,A9,22,8D,01,02,AD,02,03 ^ 8D,90,14,AD,03,03,8D,91,14,A9 h 92,8D,02,03,A9,14,8D,03,03,4C r DC,4D,00,00,00,00,A9,CC,8D,00 | 03,A9, p ~~33 ``  Ƈ0xxxxx?xxxxx ????????8,$$, qIIqQ$$D0$y? !!!ఘ```  ""|q# CbbHHO <FEDpp C!!!  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 DĎb@? >ఘ333? `` ```8``|8a`????????8I#qXHHςpHHp!! ? !qq   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 ???eg DD((DDDD K  Ƈ0xxxxx?xxxxx !! ?aaa```aa`8????????< <<yAAqAyRR228DDDD8𠐐8Xq xxx?xx 8!!C?⒒  $(0($"yAAqAyRIOJI=!!9!,$LD|cL@ 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) | ? 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 H PHE8@8??HH]ROM IPS HOY! PROGRAM THAT LETS YOU ENHANCE TITLE SCREENS BY FADING IN CHARACTERS. - - NG FOR USE IN ORIGINAL GAME PROGRAMS. - IONS. \''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''AAAAaaaAaaaAAAAAAAAAAaaAAAAAAAAAAAAAAAAAaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa ?>< NcefRSWX @|>|>><||? ??? IIIIIy$$$ aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa ?????   >> ?~ > ???????xxxxxxxχ? ? qa'$$$'  ? ``??????8xx"6*"""HIHHH1"" aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa |x???????? ~ ? ?????xxx  " "000qb  $44,,DDGDyAAqA??_ 0ఘఘ`aa`aaa̘```8 aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaarrr'''''''''''''''''''''rrrr'''''''''''''''''''''rr ??{3?RYPT OF EAR IS A 3- ADVENTURE IN WHICH YOU BATTLE A HORDE OF HIDEOUS MONSTERS INSIDE A SUBTER- RANEAN LAIR TO RESCUE A PRINCESS. OYSTICK IN ORT 2. AN,1:;:TX$(AN)yTX$(AN)""TX$(AN)"-"~110000   **** READ FILES **** -OFFEE REAK! IS A DELIGHTFUL GAME FOR THE -128 IN . ERVE YOUR CUSTOMERS CORRECTLY MADE COFFEE IN THE ALLOTTED TIME OR LOSE YOUR JOB! OYSTICK IN ORT 2. TX$(AN)yTX$(AN)""TX$(AN)"-"~110000   **** READ FILES **** - ANGER IS A HIGHLY USEFUL PRO- GRAM TO RELOCATE MACHINE LANGUAGE FOR WHICH THE ORIGINAL SOURCE CODE MAY HAVE BEEN ALTERED OR LOST. - JOB! OYSTICK IN ORT 2. TX$(AN)yTX$(AN)""TX$(AN)"-"~110000   **** READ FILES **** -128 MART ERGE ALLOWS MERGES WITH GREATER INTELLIGENCE THAN SIMPLER MERGE PROGRAMS. T UTILIZES COM- PARISONS TO PRODUCE ERROR-FREE PROGRAM UNION. IN ORT 2. TX$(AN)yTX$(AN)""TX$(AN)"-"~110000   **** READ FILES **** -CREEN IZARDRY IS AN EXCITING TUTORIAL PROGRAM THAT USES SEVERAL COLORFUL DEMOS TO ILLUSTRATE THE POWER OF OMMODORE 'S SCREEN EDITOR. OYSTICK IN ORT 2. TX$(AN)yTX$(AN)""TX$(AN)"-"~110000   **** READ FILES **** -OOKING AT OUND IS FROM THIS MONTH'S UPERT EPORT ON NVESTI- GATING UDIBLE AVE HENOMENA. T DISPLAYS SOUND GRAPHS FOR WAVES CREATED BY THE CHIP. RT 2. TX$(AN)yTX$(AN)""TX$(AN)"-"~110000   **** READ FILES **** -NVELOPE AND ILTER AMPLER LETS YOU TASTE THE CAPABILITIES OF THE ENVELOPE AND FILTER COMMANDS ON THE -128. EE THIS MONTH'S UPERT EPORT FOR DETAILS. RT 2. TX$(AN)yTX$(AN)""TX$(AN)"-"~110000   **** READ FILES **** - -64 SOLUTION TO THE CTOBER '87 OMMODARE REQUIRING THE READER TO WRITE A SIMPLE PROGRAM WHICH LETS THE USER MOVE A CURSOR ALONG A BAR TO SELECT DESIRED COLORS. $(AN)yTX$(AN)""TX$(AN)"-"~110000   **** READ FILES **** - -128 SOLUTION TO THE CTOBER 1987 CHALLENGE TO DESIGN A PROGRAM ALLOWING THE USER TO SELECT COLORS FROM A BAR WITH THE CURSOR. - EDITOR. OYSTICK IN ORT 2. TX$(AN)yTX$(AN)""TX$(AN)"-"~110000   **** READ FILES **** - -64 SOLUTION TO THE CTOBER '87 OMMODARE ASKING THE READER TO WRITE A ROUTINE TO CONVERT A THREE CHARACTER SYMBOL INTO ITS TELE- PHONE KEYPAD CODE. ORT 2. TX$(AN)yTX$(AN)""TX$(AN)"-"~110000   **** READ FILES **** -z -64 SOLUTION TO THE CTOBER '87 OMMODARE CHALLENGE TO FIND THE LOCATION IN MEMORY OF ANY SPECI- FIED PROGRAM LINE. - O ITS TELE- PHONE KEYPAD CODE. ORT 2. TX$(AN)yTX$(AN)""TX$(AN)"-"~110000   **** READ FILES **** - -128 SOLUTION TO THE CTOBER 1987 OMMODARE CHALLENGE TO DESIGN A PROGRAM THAT WOULD FIND THE LO- CATION OF ANY SPECIFIED PROGRAM LINE IN MEMORY. E. ORT 2. TX$(AN)yTX$(AN)""TX$(AN)"-"~110000   **** READ FILES **** -y -64 SOLUTION TO THE CTOBER '87 OMMODARE CHALLENGE TO MOVE THE LETTER '' AROUND THE SCREEN LIKE A BILLIARD BALL. - FIED PROGRAM LINE IN MEMORY. E. ORT 2. TX$(AN)yTX$(AN)""TX$(AN)"-"~110000   **** READ FILES **** -=-=-=-= ][ =-=-=-=-= LEVE LAKEMORE'S GRIPPING SEQUEL TO HIS EARLIER MASTERPIECE ARK ORTRESS. DOUBLE-SCREEN GAME FOR TWO PLAYERS ON THE -128. TX$(AN)yTX$(AN)""TX$(AN)"-"~110000   **** READ FILES **** -fROM IPS HOY! ROUTINE THAT LETS YOU VIEW PROGRAMMING LINES IN ALTERNATE COLORS WHEN LISTED. - - YROM IPS HOY! PROGRAM THAT RESETS YOUR 1541 OR 1571 DISK DRIVE AFTER A LOCKUP. - - LISTED. - - }ROM IPS HOY! PROGRAM THAT CREATES A COLORFUL GYROSCOPE EF- FECT WHICH CAN BE INCORPORATED IN- TO YOUR OWN PROGRAMS. - ROM IPS HOY! PROGRAM THAT TURNS FOUR OF THE -64'S FUNCTION KEYS INTO DEDICATED CURSOR CON- TROLS FOR THE FOUR SCREEN DIREC- TIONS. uROM IPS HOY! PROGRAM THAT LETS YOU RESET POINTERS AF- TER A MACHINE LANGUAGE PROGRAM HAS BEEN LOADED. - SCREEN DIREC- TIONS. cROM IPS HOY! PROGRAM THAT MAKES IT POSSIBLE TO WORD WRAP ANY STRING IN A -128 PROGRAM. - - AS BEEN LOADED. - SCREEN DIREC- TIONS. ROM IPS HOY! PROGRAM THAT CREATES A THREE-DIMENSIONAL CITY SKYLINE COMPLETE WITH SHADING FOR USE IN ORIGINAL GAME PROGRAMS. - IONS.  *** LISTER-SEEN ***A(147)"LOADING";:J5300053149\A:J,A:XXA:".";:J::X21349"ERROR IN DATA...":"DATA OK *** SYS 53000 TO ACTIVATE...":169,160,162,0,133,252,134,251,142,158,207,161 251,129,251,230,251 .S700: *** CHANGE TO 3072 FOR THE C-128OJSS43:A:J,A:XXA:J:rX6140"ERROR IN DATA...":"DATA OK * SYS"S"TO RESET DRIVE...":169,15,162,8,168,32,186,255,169,0,32,189255,32,192,255,162,15,32,201,255,169,85,32- %A55747:B55764:C55867:D55884k"";:A$" ": 39 SPACESG124:A$:G:A$""E0:F110:63014:F AA41:BB39:CC39:DD41"E0:F110:63016:F $63012: CHANGE TO RETURN IF YOU 7 "CURSOR/FUNCTION KEYS FOR C-64": BY JIM PARTINWT4915249198:DT:T,DT:T49152:49153,0:49154,224:49156,0:49157,224(49162,255:49192,255:49152260293,145:60294,17:60295,157:60292,29<1,(1)253F5 P173,0,160 &d "POINTERFIX.BDL" LOADER/SAVERJn"ENTER START ADDRESS DESIRED"xx"FOR MACHINE CODE";SA:SA$(SA):EASA22 NSA SA21: D:CSCSD: N,D: CS1883 "ERROR IN DATA STATEMENTS. RECNECK": :"LOADED OK. TO EXECUTE DO SYS  WORDWRAP 128< CLEVE BLAKEMORE A.K.A. TEX ARCANEcD39: CHANGE TO 79 FOR 80 COLUMNS(:(13)(13)(13)(14) 2A$"HIS IS A ONE-LINE WORD WRAP UTILITY FOR THE 128 THAT ASSURES NONE OF THIS OR ANY OTHER STRING WILL BREAK ITSELF IN A ,208,248,230,252,165,252,201M 192,144,240,169,76,162,74,160,207,141,209,166 142,210,166,140,211,166,162,140,160,207,141,20 167,142,21,167,140,22,167,120,169,47,162,54 133,0,134,1,88,96,173,33,208,41,15,141 159,207,174,134,2,173,15U 210,255,169,59,32,210,255,169,13,32,210,255O 32,204,255,169,15,76,195,255DARK FORTRESS ][Q ISTER-EEN ESET ORKSCREW URSOR HAD A GOSUB COME TO THIS ROUTINEF &AA41:BB39:CC39:DD41:63018f (AA41:BB39:CC39:DD41 *EE1:GA1B:G,E:G ,GBD40:G,E:G .GDC1:G,E:G 0GCA40:G,E:G:W,141,0,160,172,5,192,192,191,240,23,238,1,192,238,4,192~ Z173,4,192,240,3,76,0,192,238,2,192,238,5,192,76,0,192,172,4,192,192 d255,240,3,76,13,192,96 ESET ORKSCREW URSOR ";SA: SH(SA256):SLSA256SH:EH(EA256):ELEA256EH{ :"SAVE TO DISK OR TAPE (D/T)";K$: K$"D" K$"T" 170 K$"D" 57812 "POINTERFIX"SA$,8:200 K$"T" 57812 "POINTERFIX"SA$,1 193,SL: 194,SH: 174,EL: 175,EH N UNSIGHTLY MANNER ON THE BORDER.")<110FA$"T IS USEFUL FOR WORD PROCESSING,TEXT ADVENTURES,INSTRUCTION PAGES,OR ANY APPLICATION THAT USES LONG STRINGS OF INFORMATION..."P110:Z ONE-LINE WORD WRAPd PASS STRING IN A$ TO SUBRO 8,207,208,6,142,160B 207,238,158,207,138,205,160,207,240,6,173,160q 207,76,121,207,24,105,8,41,15,205,159,207 208,3,170,232,138,141,134,2,32,225,255,208 8,8,32,146,207,40,32,47,168,76,212,166 32,146,207,76,134,227,169,0,174,160,207 053281,.:53280,.:(147):G9234:X.7BA((1)2)11V783,.:782,X5gD((1)8)1781,G:65520:646,A:"":646,AC1D:781,GC:65520" ":646,A:781,GC:782,X5:783,.:65520:"" :: G 53280,0:53281,0:"":C$"":D$""fA$"HELLO":S24:E1:60000A$"&":S24:E3:60000A$"GOOD-BYE":S24:E5:60000(`XSE1:Y0(SX)(XS4)(S4X) j(D$,XY)20(A$)2)(C$,Y1,1)A$"":ARAUDER IS AN ARCADE ACTION GAME IN WHICH YOU PILOT A HELICOPTER THROUGH A MISSILE-INFESTED TUNNEL NETWORK. OYSTICK IN ORT 2. - A IGNORED "tAT,4AN,1:;:TX$(AN)yTX$(AN)""TX$(AN)"-"~110000   **** READ FILES **** -x: 62954 :"DONE":4 32,51,165,24,165,34,105,2U 133,45,165,35,105,0,133,46p 32,89,166,76,116,1642 NSA SA21: D:CSCSD: N,D: CS1883 "ERROR IN DATA STATEMENTS. RECNECK": :"LOADED OK. TO EXECUTE DO SYSoUTINEgnL(A$):X1::W$""::L$(A$,X,1):W$W$L$:XX1:L$" "XL:(((.)(W$)D)13);W$;:XL:3)(13)(13)(14) 2A$"HIS IS A ONE-LINE WORD WRAP UTILITY FOR THE 128 THAT ASSURES NONE OF THIS OR ANY OTHER STRING WILL BREAK ITSELF IN A",141 158,207,142,134,2,96192,144,240,169,76,162,74,160,207,141,209,166 142,210,166,140,211,166,162,140,160,207,141,20 167,142,21,167,140,22,167,120,169,47,162,54 133,0,134,1,88,96,173,33,208,41,15,141 159,207,174,134,2,173,15"":198,1R 64LINE LOCATOR 128ILLIARDSDARK FORTRESS ][Q ISTER-EEN ESET ORKSCREW URSORVY,X tC25:Y15CA y(D$,EY)20(A$)2)(C$,CY,1)A$""J ~Y,CP DARK FORTRESS ][Q ISTER-EEN ESET ORKSCREW URSOR 00,180,,,,0G 3210 : 2*G B$: "SAWTOOTH WAVE"@G K$ : CS$ : VG& 1,2000,180,,,,1hG0 3210 : 2G: B$: "SQUARE WAVE"GD K$ : CS$ : GN 1,2000,180,,,,2,2048GX 3210 : 2Gb Gl 3,4.71,.8,14.1,-.8,18.8,0Hv ) =================================L COMMODARES PROBLEM #46-1 :e COLOR BAR SOLUTION BY TBR == C-64 OR C-128 IN 40 COLUMNS == "USE CRSR KEYS TO SELECT; CHANGES KLR241 Y0K,X1X1DX1 : X3X1D21^K6 1,X0,Y0 X0,Y1 X1,Y1 X1,Y2 X2,Y2 X2,Y1 X3,Y1 X3,Y2 X4,Y2 X4,Y0xK@ 1,1,14,"PW ="(PW)KJ 1,6400,120,,,,2,PWKT 2K^KhK====== INITIALIZATION ==========KGR(1) : GR5 GR5 XX(K$"")(K$""):YY(K$"")(K$"")N ; ADJUST MOVEMENT TO LIMITED RANGE <XX(X15)(X0):YY(Y2)(Y0):K$(13)40 E CHANGE COLORS FY253280Y,X:40 K KLR,X:10 O PLACE/ERASE ARROWS P""X)A$:I0Y:::10)B DUR800 : SS.2 : 2007DB B$: "VOLUME 5 (MED. AMPLITUDE)"ADL K$RDVVL5 : 200|D` B$: "VOLUME 15 (LARGE AMPLITUDE)"Dj K$DtVL15 : 200D~D === FREQUENCY =================D : 5150 : DRAW AXISE 1,7,1,"-- FREQU 1000 : WV2 : PW2048+O CS$;"LOOK AT >> VOLUME, FREQUENCY, QUALITY,"[O " OR PULSE-WIDTH [V,F,Q,P (X TO EXIT)] :"eO R$yON("VFQPX",R$)O N 1000,2000,3000,4000,6100O 6030O ---- END ---O (27)"L": ENABLE SCROLLO" 3,9,.8,9.6,-.8,18.8,04H 5,0,.8,9.42,.8,9.42,-.8,18.8,-.8,18.8,0UH X0 : Y0 : 100 : 1,XS,YSiH N : J1 NH X,Y : 100 : XS,YSH JH H 3,1.57,.8,4.71,-.8,6.28,0H 3,3,.8,3.2,-.8,6.28,0H 5,0,.8,3.14,.8,3.14,-.8 ""14)"PHONE CODE"B =================================f COMMODARES PROBLEM #46-2 :{ PHONE CODE SOLUTION BY JUDY GROTH ================================= V(26):A$(1),A$(2),A$(3):V(26)994 KN2 K 0,1 : 2,1,23L (27)"M" : NO SCROLL;L 0,23,39,24 : PRINT WINDOWMLPI3.14159265kL --- GRAPH CONSTANTS ---LWL0 : WR6PI : WT1 : WB1 : WORLD COORDS.LVN60 : VR252 : VT180 : VB40: VIEWPORT COORDS.LA(VRVN) ""13)"LINE LOCATOR"F ==================================j COMMODARES PROBLEM #46-3 : LINE LOCATOR SOLUTION BY CRAIG EWERT ====== C-64 ONLY ================= AD2049 : "LINE SOUGHT";L : L0 ENCY = PITCH --"/E 1,7,21,"<-=-=-= 25 MSEC =-=-=->"XE B$: "FREQUENCY=40 HZ (LOW PITCH)"bE K$E FQ40 : VL8 : DUR600 : SS.3E 200E  1,11,5,"40 HZ"E* B$: "FREQUENCY=120 HZ (HIGHER PITCH)"E4 K$E>FQ120 : SS.3 : DUR=" : NORMAL WINDOWP GR,1 : ORIGINAL MODE===========================FN GR,1kNp===== KEYBOARD INPUT ==========Nz 1,1,1,">> LOOKING AT SOUND <<"N 15 : PW0 4095 250 : 1,2000,10,,,,2,PW :NVL10 : FQ1000 : DUR ,6.28,-.8,6.28,0$I === PULSE WIDTH ===============@I : 5150 : DRAW AXISjI 1,6,1,"- SQUARE WAVE PULSE WIDTH -"IVL10: DUR0 :FQ82 : SS.5 : 200I B$: "INCREASING PULSE WIDTHS"I K$I CS$ : IX0 : Y0 : 100 : X0XS  : (0)(1) KLR646-  SET UP COLOR BARR I015:1144I,160:55416I,I:m  SET UP SELECTION BAR "BORDER":"SCREEN":"CHARACTER" ' PLACE ARROWS ON SCREEN (A$"^":B$"_":80:K$:K$""40 1 MOVE ARROWS' 2A$" ":B$" ":80: (WRWL) : BVNAWLMC(VTVB)(WTWB) : DVBCWB?MX0 : Y0 : XS0 : YS0 : SS.2bMCS$(27)"@" : CLEAR TO EOSM B$CS$"PRESS ANY KEY FOR"MM -- DRAW VIEWPORT --M( 1,VN,200VT,VR,200VBM2 --- DRAW X AXIS ----M<Y0 : $:(0)(1) KLR646-  SET UP COLOR BARR I015:1144I,160:55416I,I:m  SET UP SELECTION BAR "BORDER":"SCREEN":"CHARACTER" ' PLACE ARROWS ON SCREEN (A$"^":B$"_":80:K$:K$""40 1 MOVE ARROWS' 2A$" ":B$" ":80: 800FH 200FR 1,10,14,"120 HZ"F\CF === QUALITY =================_F : 5150 : DRAW AXISF 1,7,1,"-- QUALITY = WAVEFORM --"F VL8:DUR0:FQ40:SS.5 : 200F F B$: "TRIANGLE WAVE"F K$ : CS$ : F 15 : 1,20o09010:LP13:CC1:V(C)KNLP:C17V(C)77:LPLP1a ::Y13:X6590:A$(Y)(X)V(X64)i (:CD50-5CD50-6 CD50-7OLOR AR 64 2 : Y0YS JX3PI : Y.8 : 100 : X2XS : Y1YSMJX6PI : Y.8 : 100 : X4XS2 : Y2YSsJX1X01 : DX(X4X0)16 : D2DX8|J 10J PW550 4050 500J" 0,X0,Y0 X0,Y1 X1,Y1 X1,Y2 X2,Y2 X2,Y1 X3,Y1 X3,Y2 X4,Y2 X4, 4 LP(AD)256(AD1) : LN(AD2)256(AD3)J  PRINT AD,LP,LN|  LLN LP0 "LINE"L"DOES NOT EXIST": 10 ( LLN "LINE"L"STARTS AT"AD: 10 <ADLP : 20 ORKSCREW URSOR  100 : SCALE & LIMITNF 1,VN,YS VR,YSNP;NZ===============================FN GR,1kNp===== KEYBOARD INPUT ==========Nz 1,1,1,">> LOOKING AT SOUND <<"N 15 : PW0 4095 250 : 1,2000,10,,,,2,PW :NVL10 : FQ1000 : DUR SHAPE DATA@ %,&,',(,),),",",/@ %,&,',(,),),",",/@ %,&,',(,"*+","*+","-.","01"A %,&,',(,"*+","*+","-.","2345"&A SPRITE LOCATIONSNA A0BFA0958A6BBA6BA0AAA081AC8DAC97,X0101111111110"~?R OBJECT SHAPE STRINGS?\ ""," 11010010010">4 "100000101111001111111110010100101010100101010011110"?> "01111111100101010101001010000011100110000001010011001111100"c?H "111111010010010001000011111111001111110010001000010101111111110"~?R OBJECT SHAPE STRINGS?\ ""," B7E7EFD737FFA53F78B49F715AE32139E001FFE003FFE003FFF003FF= F007E1F807C0F8FC0780000860001830303010E06019C0C00DC08007C08023EF8021d= FF8020FF8040BF80419F80638F8053C3806BFF8097FF811BFF8615FF443FBD283FDD= 101FEFFC0001E00006100C0C1807080C03980603B 0818000420001C38000E3FFDEE1F586C1FAFFBA ; F5877F750105BA8004BF00097FC000E0E001C0600380E00300C00380C00181800183W; 0001830001838003C1800301E00781F01A425C0060001C90001288002188002184C6; 418383818383A185C3A185FFD1897EA9953CC953998A22FF440CEB301F0003BB8007C7C00FEFE00D8D FF6018EE301C7C7010EE1001FF0001EF0000FE00006C0000FE0000EE0001FF0003EFJ9N 80FF38770E20FF8221F7C203FFE003F7E003FFE003F7E003FFE001F7C000FF8000F79X 8000FF8000F78000FF8001F7C001FFC003F7E003FFE007F7F00FFFF81FF7FC0400009b 479876 45EBCFFFFE7BF7DE3FBFFE6DEDB7FFFFFF04003C00007E020042020066020066023D=7 BD8267BDC277FFE243DBE25AFF777E663F7E5A1E3CFF00017E8003FFC00781E00F007 F00E00700E00700E00703E007C1E03FFC005FFA00EFF701F7EF81FFFF81FFFF83FC37 FC3F00FC3E007C3C00000000000000000000021840253CA454FF2A8DFFB197FFE19BFFD1FFFFFFDB05 FFD3D8FF13481812483C12447E22407E02203C040042000000000000000000000000{5 000000000000F80001FC0002AA0002720002020001040000880000702000704000705 40007060007830003C1C001E0E003C3C00 166,231,219,231,231,231,231,231,2312@ 167,60,90,102,118,118,118,181,1953J 168,231,195,231,195,129,126,129,195H3T 169,255,255,231,219,219,231,255,255q3^ 170,255,193,148,170,221,235,247,2553h 171,255,129,129,129,195,231,231,1293r 212,189,13,2410 S20,241:S4,33:S11,33:S19,33:30:0 SLASH1 2760:S1,25:S,5:S5,20:S4,129/1 T.75::S4,128:?1 CLEAR SID_1 PSS24:P,.::S24,15:t1 CHARACTER DATA1 159,231,231,231,231,129,195,231,2551 65,,62,10@*@===================================J@ >> LOOKING AT SOUND <<g@ RUPERT REPORT #50m@@ A BRIEF TUTORIAL ON SOUND WAVES@@ FOR C-128 ONLY@===================================@ 5000 : INITIALIZEAGRAPH/MAKE SOUND ===B VL6B 1,FQ16.4,DUR,,,,WV,PWUBX0 : K1VL15 : K2FQ122bB XWRsBYK1(XK2)B 100 : CONVERT (X,Y)B 1,XS,YS : PLOTBXXSS : INCREMENT XB"B, 0B6C === VOLUME ========="?f "°­"?p "",""@z ""+@ "Υ",""F@ "ߩ"Z@ MONSTER TYPES@ 1,1,2,2,3,3,4,5,5,5,6,6,6,6,7,8@ MONSTER00303E001F7C401FF8401FF0401= FD0201F98201F1C601C3CA01FFD601FFE901FFD881FFA861BDFC22BBFC14F7F808FC,X > BIT MASKS&> 0,4,6,7,15,48,64,128;> MONSTER COLORSQ> 0,5,2,6,15,1,7,5c> DUNGEON MAP>* "01011101010111100111010101110010010111116B787FBEF8; 77DDF8E5E3B8C2FF5CC318CEE1FF8E000FE07C0FC07C0F807C0F807C1F00381E00388< 1F007C1F00F83F00F03E01E03E01E01E01E01E03C00E03C00E478007878003878003< 87000787800AC760148A90FC7FBF7EFBC0EFFBF7EFFBF7EFFDFFEFF60C1FF7FFEFF3< FC6FF27BAFE300000000000000000000004900005D00007F00005500006300007F0000BE80015D60+:l 07A2F80FDDFC1FE3FC1DFFDC1DF7DC19FFCC38F78E387F0E307706041C0070220088v:v 216D0820C60824FE482ABAA8309218236DC807A9E00DBAE00CC2600E7DC007FA8001: BA8000ED4000C600018300018180003C3C003C3C003C3C003C3C003C3C003C3C003CFC003FFC003F8& 000000000000000000FF000000007E0000FF0000810000810200E70200E70200E702i80 737EC2FF7EE28D7EE2CF7EF285FFF2B7BDFAB5BDFAB7FFFAFDE7FAFDE7BAFC993FF88: FF1F71FF8FFF005400007C00004400007C0000FE00017D78F0003FE0001FC0000400400C7C6012BA6 9011931009FF2007BBC001C7001F7DE03F83F0F3FF7CA17A1EC0FC05C3FE03C7CF03\6 CE0383CE01C6F701EEE387FCD1E65C68676A13E0100400000C70CC1289EE31C1FF646 63F1C23264C6642A6CCCAA66DC24E37E71E33FFFE63EBAFC3C827A1800318C4189,189,189,189,189,189,1893| 40,1,1,7,11,9,3,4,124 41,128,128,224,208,144,192,32,48,4 201,255,223,207,199,195,193,225,255T4 83,255,201,193,193,227,247,255,2554 213,255,251,243,227,195,131,135,255,-14 MONSTER SPRITE DATA4 000007,85,34,20,8,.1 77,128,64,32,16,8,4,2,11 78,1,2,4,8,16,32,64,1282 113,,,,,255,15,15,15+2 114,,,,,255,240,240,240T2 163,231,129,219,195,219,129,195,129}2" 164,247,247,247,247,247,227,247,2472, 165,189,129,137,189,165,129,195,23126 6000 : KEYBOARD INPUT8Ad ==== GRAPH CONVERSIONS ====\AnXSAXB : SCALE FACTORSiAxYSCYDA XSVR XSVR : LIMITINGA XSVN XSVNA YSVT YSVTA YSVB YSVBAYS200YS : INVERT Y-AXISAB === DRAW ===========!C : 5150 : DRAW AXISHC 1,7,1,"-- VOLUME = AMPLITUDE --"bCW$"SPEAKER MOVEMENT"C YY1 (W$) : 1,4,YY2,(W$,YY,1) : C 1,6,7,"+" : 1,6,15,"-"C$ B$: "VOLUME 1 (SMALL AMPLITUDE)"C. K$D8VL1 : FQ122 :  LM(X)GAM(X)D(K)+8 CLM(X)CLM(X)GAM(X)D(F),B CLM(X)CLM(X)GAM(X)D(FK)(,L A.A2552400f,V DL(A,.)DL(A,F).DL(A,F)DL(M(X),F):DL(M(X),F).:M(X)Al,` ,j DDL(CL,F):DD70,2580,2610,2540,70,70,70,2640:2700,t V21,.:FC "31)""*" A 3D ADVENTURE GAME BY CLEVE BLAKEMORE ";R*" ---- PLEASE WAIT..OPENING DUNJONS!----";:]* LOGO*"";:X.11:"";W1$:"";W2$::PL,8:*X.13:14)(L$,13)::14)(L$,13);*  "(R"  nm bjkbbb ~\~\ "9(\"   jcckjk \~\~  "h(f"  "14)"ƒ  "(p"  "6)" "6)" "(z"  "6)"  %" "4)"  "(&" "4)"  "[&" "4)"  "& " "4)"  "&" "4)"  ":2760:1240:2430:2670$l760:V21,A:V32,LF(LF):2700:$v VICTORY!!X$"";L$;" BRAVE KNIGHT,YOU HAVE CONQUERED CRYPT!";L$$X9:1600:PL,11::23)"MY HERO!":1690$ COPY CHAR SET$56333,127:1,51$781,9:N!VS.VSF:DD.:600:! SWORD"B.B7(.)LF100.52730:2700:E"V33,5:T.100::V33,.:X.15_"F(M(X).)1780,1810"CLM(X)MH(X)MH(X)((.)((L2)F)LF6)(L18.)2"(MH(X).)1810:D.16:T.3:V39T,D:G)1480:1600:1480 @G(K)(LF):"";15)N$(XG);": ";:A$(G(XG)); J("0000"((A$,(A$)F)),H):N T MONSTER HITS ^(B7)70:D((F)3F):V33,HC(DF):LFLF(B((LH)F))D hT.99::V33,.:LF.1670 rV32,LF(LF):2730:2700:X.G:(LBO(X))PM(X),12:X.:A(.):A.:(L(BO(U)))PM(U),152198,.:JP,16,.fPM(X),.:PM(X),F:(LBO(A))PM(A),12:1500uPM(A),1120:JYJS(.):((F).9)30PL:JYGAX:XXF(X10)11JYHAX:XXF(X.)CL,F):B(F)B100RI1630 JJYK1450:27007(JUF1730,1750,70,1840,70,1870,1890H2TIIT2330<(VS.)1280:YYF:(Y.)1280:YFL:DDDDF:(DD6)1280F" YOUR LANTERN FUEL HAS EXPIRED! ":2450:1690P(DL(32:T.400::S23,.:S24,15:. COBRA/ 2760:S5,155:S6,245:S4,129:X5055:S,D@/ T3555:S1,T:T,X:S4,128:T.100::J/( IMPw/2 2760:D180:A.9:S4,33:S1,D:T.5/< :S4,32:T.40::DD.95:A:/F DEMIGORGON/.:780:ITTI1000:,~ T.3000::, SOMETHING DIED- S5,15:S23,239:S24,1532:S4,33N- A200:SW10050.5:S22,SW:AA.93:S1,A:v- S4,32:T.30::S23,.:S24,.:- CRYPT WHISPERS- 2760:S5,1611:S6,161511:S23""7)"+7)"===CRYPT OF FEAR==V8.1===/+7)"BY CLEVELAND M. BLAKEMOREW+ 7)"":n+ MONSTER MOVEMENT+ FC15:X.FC:F(M(X).)2340,2400+$ CLM(X)GAM(X)D(H)+. C"6)" "(" "/)"  "a)" "6)" ")" "6)" ")" "6)" & " "24)" "'*"  ƒ  "S'4"  mn buibbuck \~\~  "'>"  mn bbbbbji ~\~\  "'H"  nm bbbbbuk \~\~782,1:90,.:91,216:88,.:89,248:41964%1,55:56333,129:"";:2280%A:A1D%X.7:D:61440A8X,D::1980Z% OPENING MARQUEE%(8)(142):""8)" "%"ߒ"4)" "T,D#M(X).:DL(CL,F).:V21,(V21)240:2450:1820#:2730:2700:W#LFLFB:DL(CL,K)(DL(CL,K)BO(B)):600:2670:G(F)G(F)B100]#&h#0 WAND{#:(BG)1760:#D ELIXIR#NLFLF20:LLBO(U):PM(U),11:U.:#X MAP#bA(V21): | PLAYER KILLED!"":X.16:V32,X:V33,X::2450:"";!11)" S L A I N  !!"y!2490:"DO YOU WISH TO ENTER THE CRYPT AGAIN? "!198,.:198,1:A$:A$"N"ED,4:679,.:679!V21,.:(142):! LANTER11 JF(.)(LBO(X))PM(U),12:UX:PM(X),15:2660JF(.)YJYF(DL(CL,K)BO(X))L(LBO(X)):DL(CL,K)DL(CL,K)BO(X)iJYK1580"(LBO(X))X.L(L(511BO(X))):DL(CL,K)DL(CL,K)BO(X):U.,LP2670:600:14506(XCLD(CD),.).)1410:CLCLD(CD):1430+Z(DL(CLD(CD),.).)1410:CLCLD(CD):1430=dCDCDF:1400InCDCDFpxCDCD((CD5)H)((CD.)H):1430CLWL2670:2700:1290LALLDL(CL,F)71920600:1290 COMMAND BAR2670P 2760:S5,8:S6,255:S4,23:F18:F24:Z130:S1,F10Z S15,F2:F2F21.01:F1F11:Z:S6,15:!0d BEEPS0n 2760:S5,96:S6,96:S4,23:S2,85:S1,36k0x X.10::S6,15:0 SINISTER MUSIC0 2760:S5,4:S12,4:S19,4:S6,241:S ,239:S24,1532- N.5:S1,((1)10)1:SW.((1)200):S4,129". S22,SW::S4,128:T.400:T,NE. T.1500::S23,.:S24,15:P. BLOBz. S5,15:S23,239:S24,1532:S4,33. SW.1505.25:S22,SW:S1,((1)10):. S4,  53280,.:53281,.:860BHRH(.):PM(10),K:SM(10),HR:}M((F)29):SF,H(M):S,L(M):SG,H(MH):S7,L(MH)(S15,H(MHG):S14,L(MHG):2 WALLHANDLER<VLFC:FCF500,500,520,550,570F P" ͤŷ ͥ "< " g ttnmyy h"Y " "22)" " "" ̯Σ̯" ," ":" "36)"" 6" ";D$(CD);" # $ % & ) ( ' * + G  "";18)"":""17)"":0 1ST RIGHT BLOCKf""34)"Ϸ":""37)"":| 2ND RIGHT BLOCK"";28)"":""30)"": 3RD RIGHT BLOCK"";23)"":""24)"":H WALL:"";:18)"û">DX.F:18)" "::18)"̤":QN LOOK ROUTINEuXCEMTE(.):ED,CEM:L$(DD);:80bFCH:VLFC:LVCDFH(CDF):RVCDFH(CDH)lEBMCP(.):EBMFEBM256650vFCFCFCF:620EL780:CLWLCDHPL,7::18)""*PM(U),15RCSMSW(.):V24,((V24)15)CSM:h MONSTER DISPLAY{ FCVLVLVLFD54:MP(F),D:MP(K),D:MP(3),D:MP(5),D EL.:XVL.F:FCCM(X):DL(FC,F).840*FCDL(FC,F)((53270)231)z"":1950:X51520:900:9303A$:A$"X"53280,.:kA1(A$)2:D((A$,A,1))48:FC((A$,A1,1))48DD(D10)7:FCFC(FC10)7:X,D16FC:53280,A:XX1::900X.63:52608X,.: DL(255,2),BO(16),SP(7),SB$L$L$(32)::X14:D$(X)("ESWN",X,1):aJ.:F1:H4:G8:K2:I.02:R.95:M.:U.:TL388:DD6:PL214:ED648:S54272RI.92:BCV38:Y25:FL550:ALL479:WL17:CR$(13)JS(X)15((JP)15):JF(X)(((JP)16).)CP(X)FCD(CD)(CL8X.16:BO(X)2X::X17:L$(X1)("",X,1):LBHC(.)2:HC(1)8:HC(2)10:M$(.)" ":M$(1)" "lLN$(1)"GOLD":N$(2)"LIFE"VX.7:CS(X)::A$"":X14:B$:A$A$B$::X1223`DL(X15,.)((A$,X,1)):jX.8:A$:OA$(X)A$:1190DL(A,F)M(X):M(X)A:MH(X)XGF::DL(238,2)BO(7)DV21,.:V23,127:V29,63:XV:900:2670" $$$$ PRESS FIRE BUTTON TO BEGIN $$$$ ":JP,16,162260:2490:1240:2430:1270ED,TE(.):"";:V32,.:X.25516:4);#,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ү" Z" "28)""J d" y t"u n" ͤ " x" b gbhh b" " g ttmrfcdeeeeeedcfrnyy h" " t y y"!  h"/ " t y hh gg hh gg y"_ "  " " ̥ҧ " " y hh g ttnmyy g gg t" " Ƞ "10)" " " Σ ";D$(CD);" ";L$(DD); @( J 1ST LEFT BLOCKT T"":"":i ^ 2ND LEFT BLOCK h"";10)"":""9)"": r 3RD LEFT BLOCK |"";15)"":""15)"":  4TH LEFT BLOCK 4TH RIGHT BLOCK0"";21)"":""22)"":? 1ST WALLd"";:X.19:6)(L$,28)::s 2ND WALL"";:X.12:(13)12)(L$,15);:" ": 3RD WALL&"";:X.6:17);(L$,6)::0 4TCP(LV):ERCP(RV)(DL(EBM,.))680660:FCFCF:F(FC.)620,740_DL(EL,.)FCHFCF340,360,380,400DL(ER,.)FCHFCF420,440,460,480FCFCF:FCF620DL(CL,K).740X.G:PL,21::(DL(CL,K)BO(X))XH3);OA$(X)F:EL(ELSP(XH))<4MBSP(X)F:DF(SB$(X,FC)):MP(MBD),((SB$(X,FC),D,F))U>BCSP(X)D,CS(FC):fH:V21,EL:wR SET UP VIC\56578,(56578)3:56576,((56576)252)f53272,(53272)15:648,192:53272,((53272)240)12p53270,(3,7),D$(4),L$(6),OA$(8),CS(7),M(15):HC(2),MH(15),M$(1),N$(2),G$(2),H(40),L(40)yJP56320:HR83:X.:D.:FC.:CL17:CD2:VL.:EL.:ER.:VS.D(1)1:D(2)16:D(3)1:D(4)16:P.:L1:LF10:X.7:SP(X):TGL16:CSM.:CEM192:V53248:X.39D(X)):SW(X)(TGLCSM)9TE(X)(TLCEM):CM(X)XD(CD)CL:MP(X)CEM2561016X}PM(X)55296970(X2):SM(X)CEM256970(X2):H(X)294HR$LF(LF)((LF5)K(LF5LF10)7(LF10)5).CEMTE(.):(147):ED,CEM:2010:760XtX.15:A:M(X)A:X"~X3.1:D.7:A$:SB$(X,D)A$:D,XJX.18:W1$W1$"":W2$W2$"":~X.40:M2703(2((X20)12)):M65535M65535H(X)(MBO(8)):L(X)MH(X)BO(8)::X.15A((F)22316):DL(A,.).(X14A224)JY.15:M$(DL(XJY,.));:CLXJY"()";,JY::X:760:ED,CEM:V21,.:_"":760:V32,5:2700:600:X(.):ITTI1000JYJS(.):JJF(.):J.JY1360,1370,,1390,70,70,,1380,70,70 20:LFLFI:V32,LF(LF):((F).9)30BDL( " ͤ "M " ͤҤ "y " y hh g tt yy g gg t" " ԧ " " b gg hhgg h hh b" " g tt yy bb bb tt y yy Ѝ!  < ة XL7N`|䧆N3LH1fGJP3W>/f.LOADER502A 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$@ HAHOY! FEB. 1988502ABOOTERSGLANKSPEED SG64 UG EP ɠ SG128 BUG REP II SGARAUDERSGMARAUDER SGRYPT OF EAR:SGCOFFEE BREAK! WORDWRAP IN CITY IN FADE IN DDLOGO% LOADERDIR 1SMART MERGE 128LANK IN ANGERSGSMART MERGE 128SGCREEN IZARDRYSG LOOKING AT SOUNDSGSAMPLER OLOR AR 64 COLOR BAR 128HONE ODE UG EP IN BUG REP IN INE OCATOR 64LINE LOCATOR 128ILLIARDSDARK FORTRESS ][Q ISTER-EEN ESET ORKSCREW URSOR OINTERFIX WORDWRAP 128 ITY AKER ADE WAY MARAUDER IN CRYPT IN COFFEE IN RANGER IN MERGE IN WIZARD IN SOUND IN SAMPLER IN BAR64 IN BAR128 IN PHONE IN LINE64 IN LINE128 IN BILLIARDS IN FORTRESS IN LISTER IN RESET IN CORKSCREW IN CURSOR IN POINTERFIX 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# DOWNWARD VERTICAL SCROLLING3(8)(142)w53281,.:53280,.:"SCORE 0000 ALIEN HELLSPAWN SHIPS "(646,(1)16:"";(1)40);(46((.).9)163)2218,(218)128<"";(148)FA$:A$""40 P SCROLLING COLOR B "6 4)" "c 4)" " 4)" " 5)" " 16)" " 17)" " " "12)" ";8 " FUTURE'S SO BRIGHT I GOTTA WEAR SHADES "^ 11)"PRESS SPACE TO EXIT":198,. " POINT SCREEN EDITOR TO HARMLESS , RAM LOCATION (192*256=49152) 6648,192: @("",((1)5)1,1):B$ JA$:A$" "320 T648,80,(216F)783,.:59848:""'A$"X"390b5324821,1:2040,13:53248,170:53249,180:5324816,.r5324839,1"TYPE IN ANY CHARACTER :";A$:A$""A$"A"A$"Z"470A$"I'M CREATING A STRING 63 CHARACTERS LONGTO USTER,CTRL-X TO EXIT SHAPE DEMO"&580G0198,.:198,1:A$:A$""5324821,.:600P:460wD648,3:(19)(17)20);S$:648,4:N HORIZONTAL ROUGH SCROLLINGX""5)"SIMPLE HORIZONTAL SCROLLING"b6)"CURSOR KEYS LEFT <-> RIGHT" lDO 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,207)"X TO EXIT SCROLLING DEMO"Av214,21::15)"STAND BY!":X.39:"";::"";c SCROLL DATA IN FOUR STRINGS L$(39),M$(39,3),S$(3)S$(.)" "S$(1)" "ARS" ZB$"":X.39:B$B$(32):D d""11)"COLOR BAR SCROLLING"e n""14)"" x10)" " 6)" " 5)" " 4)"   "N "   :::    " "   :::     " "   :::     " "::: 4: ^ MOVE SCREEN LINES3 h""10)"MOVING SCREEN LINES"g rX.20:646,(1)151:J.4:3)""X;:J::X |6)"PRESS M TO MOVE LINE,X TO EXIT" A$:A$"M"430 A$"M"T((1)21)1:F((1)21)1 781,T:59888:172,(60656F):7 E AS A SPRITE SHAPE."9S$"":X.63:S$S$A$::"S$="(34)S$(34):j"NOW WE PRINT THIS STRING TO THE SPRITE'S";"BLOCK AT 828,SPRITE BLOCK 13":"POKE648,3:PRINTCHR$(19)CHR$(17)SPC(20);S$:POKE648,4":"PRESS KEY FOR ANOTHER CHARAC  **********************; ** COFFEE BREAK 128 **X ** BY DAN KOMAROMI **u( ** USE JOYSTICK #2 **2 ** (C) COPYRIGHT'87 **< **********************F:P MODIFIED FOR C-128 BYZ CLEVELAND M. BLAKEMOREd:n1120 ":,2,17,"CONTROL PANEL":1,14:,19,96,117,128Y!1,4:A$,27,114:1,8:A$,63,114:1,4:A$,100,114!1,14:,186,96,310,175:1,2:,23,23,"CUSTOMER REQUEST"!1,14:,122,96,175,157:1,4:,16,13,"",1:1,8:,16,14,"",1-""1,11:,16,15,"",1:1, E:"(SCR): RT5'#^,0,21,"TIME LEFT: --":CLK60x#h I13:I,0,0::I13:I,1,2::1,40,120:2,1500,32767,2,100,1000,0,100#r,24,13,"IT'S 7:00 A.M.":,24,14,"AND THE COFFEE":,24,15,"RUSH IS HERE!":SKP5:Չ390$|,24,18,"PRESS BUTTON" J3ZZ1540:ՋJ7ZZ25803%J1J5480:Ջ(1,0)300990b%J128ZZ5620:Ջ(1,0)40ZZ11,0#0p%1,2:430% 1,60000,1,0,400,500,0:1,30000,1,0,400,100,3:J5520%VV1:V1V6%I1318:1,1:,18,I,"X":%1,2:,18 125,70120,70120,5:,121,6:1,2:,16,2,"CREAM"1,5:,180,5230,5225,25220,39138,39138,70133,70133,35180,35180,5:,181,6:1,2:,23,2,"NON":,23,3,"DAIRY" 1,9:,240,5310,5305,20245,20245,51150,51150,70145,70145,46240,46240,5:S$(2)" ۳ ° "SS$(3)"۲ۮý ñ"J.3:X.39:M$(X,J)(S$(J),39X)(S$(J),X):X,JX.39:J.3:L$(X)L$(X)M$(X,J)" ":J,XX.:198,.214,18:L$(X);:J.0:"";: H CLEAR SCREEN LINES!R53281,.:53280,.E\""10)"CLEARING SCREEN LINES"gfX.20:646,(1)151:B$;:p5)"PRESS C TO CLEAR LINE,X TO EXIT"zA$:A$"C"781,((1)21)1:783,.:59903A$"X"890 CURTAIN EFFE"(14)14)"AP REATOR"77)"RESS EY O REATE AP":198,.:198,1:""\ EXPERIMENT WITH DIFFERENT SEED VALUES FOR THE RANDOM FUNCTION TO CHANGE MAP LAYOUTX(2.1)"";:A$"":214,10::20);:X.999:1100::(9) TOR"77)"RESS EY O REATE AP":198,.:198,1:""\ EXPERIMENT WITH DIFFERENT SEED VALUES FOR THE RANDOM FUNCTION TO CHANGE MAP LAYOUTX(2.1)"";:A$"":214,10::20);:X.999:1100::I35843776:D$:I,(D$)::>x%::4,12:0,15:1,1:W$(24)1,2:,8,2,"C O F F E E B R E A K !":,13,4,"BY DAN KOMAROMI":,8,10,"PLEASE WAIT":,8,12,"GRINDING THE BEANS..."1,8:,60,76,236,106:&:725 1,15:,150,150,4,3:,150,150: A,241,6:1,2:,31,1,"COFFEE"{ 1,10:,255,25305,25305,61163,61163,70158,70158,56255,56255,25:,256,26:1,2:,33,4,"DECAF" 1,12:,15,85310,85:,10,90305,90:I153105:,I,85I5,90: I1631010:,I,87:$!1,2:,3,13,"RV STP FW5:,16,16,"",1:1,9:,16,17,"",1:1,10:,16,18,"",1~",1,15:I021:,I,20," ",1::I2124:,21,I," ",1::1,2:,18,13,"_":&:V1"6CUS2:MI2"@DD1:,0,22,"DAY:"(D):,0,24,"CUSTOMERS:":RT5"J1,8:,11,24,""#T1,2:,0,23,"SCOR:,24,19,"TO START DAY"(D):e$(2)127:1,2: GENNESS1250::1,2500,1:380:1,12:I1250::1,5000,1:380:$ *** MAIN ROUTINE ***$SKP5:370$N1:880:TI$"000001"$J(2):K$" "((CLK1(TI$)),2):,10,21,(K$):(K$)1750%,12V,"_": &VV1:V6V1&500b&ZZ21,0#0:1,1500,2:1,8:A$,63,114:1,4:A$,100,114:A$,27,114:ZZ5:}&&1,90#1:1,500,3:1,8&0A$,100,114:1,4:A$,27,114:A$,63,114&:ZZ1:'DZZ11,0#0:1,1500,2:1,8:A$,63,114:1,4:A$,100,114:A$,27,114:ZZ5:'N1,270#1:1,500,3:1,8I'XA$,27,114:1,4:A$,100,114:A$,63,114T'bZZ2:f'lV2Y3:Y2'vV1V2C2:ՋV5C9'V3V4C8:ՋV6C10'Y,0,0:Y,1,C,1,0,0,0'V1X119:ՋV2X132'V3X144:ՋV50:A$:A$""750A$""XX1(X39)40:A$""XX1(X.)40J A$"X"810S730r  SCROLLING DIAGONAL LINES*53281,5:53280,13:"EVERYBODY PLAY FOOTBALL!"4"PRESS SPACE TO RUN A TOUCHDOWN!":198,.:198,1>X.50CT USING DELETE CHR$53281,.:53280,6:"";"":I.22:X.37:"";:::_"PRESS SHIFT TO OPEN CURTAIN"214,10::10)"CURTAIN OPENING":653,1I.39:"";:J.23:""(20):J,I RANDOM MAPPING53281,6:53280,.:""";:A$"":X.100:1100:!$"";:A$"":X.300:1100:C."";:A$"":X.300:1100:r8214,22::12)"AND OF DVENTURE";:1130B DRAW TERRAIN SUBROUTINELA$;("",(.5)41,1);"";V(214)22"";`j198,.:198,1$,146,147,154,153$%:4,15:0,1:1,11,4:,10,560,550,50100,50100,7095,7095,5520,5520,5010,5:,12,10:1,2:,2,2,"MILK"1,8:,70,5112,5112,70107,70107,4070,4070,5:,71,6:1,2:,9,2,"SUGAR"*1,11:,120,5170,5170,30125,304X158 (V5X170:ՋV6X183!(I100120:Y,X,I@(I105(1)3(1)5730O(U15::q(3,10000,30,1,1000,150,2:740)"X0U12V1O6Q$EV2O5QGV3O4QCO3QCV2O4QGV1O5Q$EH$EV2O4HGV3O3HCHFV2O4H$AV1O5HCV1O5HFV2O4H$AV3O3W$DV2O5W$AV1O6WFV3O3W !Щ Щ $ . = LZ¢N 2` ` ` ML RANGER BY JOHN FEDOR STARTING ADDRESS: ENDING ADDRESS +1: NEW STARTING ADDRESS: ƠH h -0G:A <L L<8(4)18YTYT1:ՋV(4)4DK(4)18YTYT1(/I15:V(I)0::DK(0)0:DK(1)0/$YT01,40,120:1,0#0:C$(6)"DO IT RIGHT!":1,2500,30,2,10,10,2:970:ZZ2:540:I16:V(I)0::430/. 860/8 I NEED,GET ME,I WANT,PLEASE GET,HURRY WITH MY,HURRY   L ­EA$D@8D@GEAHL8@DGAEHFL­CA B@`hhL@ADEYLtà< p:I123:Q$:W$(I)Q$: ,zI((1)61):C$(1)W$(I):DK(1)Ie,A((1)21):A1I((1)21)6:C$(2)W$(I)" COFFEE":DK(2)I,A2I((1)61)8:C$(2)W$(I)" COFFEE":DK(2)I,I((1)21)14:C$(3)"WITH "W$(I):DK(3)I:I((1)31),(d ** 128 SMART MERGE FROM AHOY! **On *(F)ABRICATED BY SHAWN K. SMITH*vx:  15 :S$"$1400":TC24438:R$(18)"",">>> 128 SMART MERGE <<<"STORE AT";S$:S(S$):S160:S((((S$,2))))HS $AV2O6W$DV1WFV3O3W$AV2O5H$ABO1A" );)1,20000,10,,,3:V(V)V:RT5:SCRSCR5:340J)Y,0:430)I18:I,0::4,5:I13:I,0,0::1,8000,160,2,50,70,0:0,1:I1200:0,14:0,1:)" G A M E O V E R "*"YOU RAN ,00,68,85,2E,68,85,2D,B1,2D; 48,C8,B1,2D,F0,10,48,C8,B1,2D_ 8D,70,11,C8,B1,2D,8D,71,11,18 90,E0,68,AD,10,12,85,FD,AD,11 12,85,FE,AD,00,03,8D,8E,14,AD" 01,03,8D,8F,14,20,81,92,0D,46, 49,4C,45,4E,41,4D,45,20,3D,3E6 00,2MY0B DECAF.,NO CAF.,STRONG,BLACK,FINE,FRESH,GOOD,CUP OF30L MILK,SUGAR,CREAM,NONDAIRYk0V THANK YOU,PLEASE HURRY,THANKS,GOOD LUCK!,BE QUICK0` 0,,,,,,,,,,,,,,,,,,,3E,,3,C1,E0,4,,10,77,80,F0,CF,FF,F0,87,FF,F0,CF,FF,F0,771j FF,F0,7,FF,F0,7,F14,8D,01,03,AD,90,14,8D3  02,03,AD,91,14,8D,03,03,20,B7W  FF,C9,40,D0,1E,A9,00,85,5C,85{  5D,8D,73,11,A9,0A,8D,72,11,18  6D,70,11,8D,70,11,90,03,EE,71  11,4C,68,5B,2C,A2,80,AD,8E,14  8D,00,03,AD,8F,14,8D,01,03,8A ! 30,13,A5I3950:I((1)21)16-C$(4)"AND "W$(I):DK(4)I:-I((1)51)18:C$(6)W$(I)t-1,1:IK2437:OK1319:,IK,OK,"X":::GS5GS0:-1,8:I14:,24,I12,C$(I)::,24,19,C$(6):1,2--YT0:V(6)6DK(2)8YTYT1:ՋV(6)6D0 8<<y<y<=L<`<@=AL2<B=CL@=E<D`OUT OF TIME. THE CUSTOMERS LEFT";6* "THE SHOP. "R*"YOUR FINAL STATUS:"h* "SCORE: ";SCR**"DAY: ";D:I1300:4,5:4,1::1,0#0*4"PLAY AGAIN (Y/N)?"::A$:A$"":A$:A$"N"0,12:4,14:0,1:ȱ==A 8<@0=C $<B Gàȭ<ȭ=L¢L®F8<G<=H=`<mG<=mH=`eieiC  BL¢ 0` TRANSFER COMPLETED. DON'T FORGET TO SAVE. F,F0,3F,FF,FE,7B,FF,EF,3C,3E,1E,1F,C1,FC,3,FF,E0,,,,,,,,,,,,,,,,,0P1t 0,,,,,,,,,,,,,,,,,,,,,,,,,,,,,20,,,20,,,70,,,F8,01~ 0,F8,,,70,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,01 0,,,,,,,,,,,,,80,,,10,,,A0,,,10,,,C0,,,50,,,EB,0T,HURRY WITH MY,HURRY 256:H(H)H01DSS255:Y$:C(Y$):TTCHD,C:::TTC200iR$"?? RECHECK DATA!";T;TC:MSD:(M2)20((M)141(M)173)M2,H:S135,H:S152,H:"TO MERGE: SYS";S: A5,2D,85,FB,48,A5,2E,85,FC,48 A0K(2)9YTYT1 .V(5)5DK(2)9YTYT1:ՋV(5)5DK(2)8YTYT1Y.V(1)1DK(3)15YTYT1:ՋV(1)1DK(3)15YTYT1.V(2)2DK(3)16YTYT1:ՋV(2)2DK(3)16YTYT1.V(3)3DK(4)17YTYT1:ՋV(3)3DK(4)17YTYT1/V(4)4DK 0,93,4F,86,3D,84,3E,20,807@ 03,AA,F0,4D,8C,12,02,A0,0F,B1[J 3D,99,02,02,88,10,F8,A9,F0,8DT 00,02,A9,22,8D,01,02,AD,02,03^ 8D,90,14,AD,03,03,8D,91,14,A9h 92,8D,02,03,A9,14,8D,03,03,4Cr DC,4D,00,00,00,00,A9,CC,8D,00 | 03,A9,*>120*Hb+RRET5:1,8:I1CUS:,10I,24,""::SCRSCR100:340:320:ZZ2:CLKCLK3:540:1,40,120:GS5:960:MI2:390n+\MIMI1+fMI0850:1,12:,11MI,24,"":SCRSCR50:RT5:340:1,40,120:ZZ2:1,58000,30,0,5,1000,1:540:880:430+y,FD,8D,10,12,A5,FE,8D/! 11,12,A0,02,A9,00,91,2D,88,10S! FB,A5,FB,85,2D,A5,FC,85,2E,A9k! 00,85,7A,6C,00,031,02,AD,02,03^ 8D,90,14,AD,03,03,8D,91,14,A9h 92,8D,02,03,A9,14,8D,03,03,4Cr DC,4D,00,00,00,00,A9,CC,8D,00 | 03,A9,@*@===================================N@ ENVELOPE AND FILTER SAMPLERl@ RUPERT REPORT #50r@@ C-128@===================================@  40 : 15@"ENVELOPE #"A N0 9: N;: N: "V1 O4 X0 T",1 :  "T3"N$ : OC R$;"HIGH PASS FILTER CUTOFF VALUE";R$;" "C F0 2047 200: F; :  F,0,0,1,1 :  "T3"N$ : UE";R$;" "AF F0 2047 200: F; :  F,1,0,0,1 :  "T0"N$ : 0BP R$;"HIG!Щ Щ & ȍ     s   T Т  L  Ϊ8q i7Ϊͪ`>Щ%Щ&Т' 2" A0 A1: "MARAUDER",8,1. 49152#  Ġ 8 HLMЍhЈॢ&Э)Ѝ)?6)A-' pǢ憢' ो8q 'L <Э Э (Э Э)$@MЍЭi Эi Щ& & L%ĩȱ' i(i&捫ʎLT8ԩ!ԩԩhԩԩOԩԢԩL© )jjjji0 )i0 0 0  (N)"CDEFGFED" : MA(N$"V1 X1 O0 C O1 DC O2 C O4 CDE O5 C O6 C" : R$(13)qA2 R$;R$; "ENVELOPE 0 - PIANO"A< "LOW PASS FILTER CUTOFF VALUE";R$;" "AF F0 2047 200: F; :  F,1,0,0,1 :  "T0"N$ : 0BP R$;"HIG@A=@j=@A@$载ƍԩԩ!ԩԠLƩԩ `````````t?W]QЩТ.ТЩТ?ǝ@ % ( {L$载ƍԩԩ!ԩԠLƩԩ ````````` ) =================================L COMMODARES PROBLEM #46-1 :e COLOR BAR SOLUTION BY TBR == C-64 OR C-128 IN 40 COLUMNS == "USE CRSR KEYS TO SELECT; CHANGES KLR241 : (0)(1) KLR646-  SET UP COLOR BARR I015:1144I,160:55416I,I:m  SET UP SELECTION BAR "BORDER":"SCREEN":"CHARACTER" ' PLACE ARROWS ON SCREEN (A$"^":B$"_":80:K$:K$""40 1 MOVE ARROWS' 2A$" ":B$" ":80:XX(K$"")(K$""):YY(K$"")(K$"")N ; ADJUST MOVEMENT TO LIMITED RANGE <XX(X15)(X0):YY(Y2)(Y0):K$(13)40 E CHANGE COLORS FY253280Y,X:40 K KLR,X:10 O PLACE/ERASE ARROWS P""X)A$:I0Y:::10)BH PASS FILTER CUTOFF VALUE";R$;" "mBZ F0 2047 200: F; :  F,0,0,1,1 :  "T0"N$ : Bd R$;R$;"ENVELOPE 3 - DRUMS"Bn "LOW PASS FILTER CUTOFF VALUE";R$;" " Cx F0 2047 200: F; :  F,1,0,0 'Щ-Щ.ЩxЩ>ЩȍЩЩЩЩЩЭТ?ŝ?ŝ>ŝ?<Ɲ@ Ѝ!Щ΍ {Ʃ Ʌ LɆ Lɇ LɈƩ 8ͱ pǢ  ĩi0Lí i АI@Щ Ѝ LâL @-ͮLý'Ѝ!Ѝ ЭMЍР!Ѝ ЭiАЩm !ǭ)>>MЍЩ> ΰίLȮ8 B8 ॎ8ɀ3Χ& & ΧL%ĭ `MARAUDER FUEL REMAINING CONGRATULATIONS!!YOU HAVE SAVED BASE! @INPUT SKILL LEVEL:F1-F3-F5-F7 TUNNEL >qq$:(0)(1) KLR646-  SET UP COLOR BARR I015:1144I,160:55416I,I:m  SET UP SELECTION BAR "BORDER":"SCREEN":"CHARACTER" ' PLACE ARROWS ON SCREEN (A$"^":B$"_":80:K$:K$""40 1 MOVE ARROWS' 2A$" ":B$" ":80: `1`11````ԩ1ԩ ԩԩԩԠԩэԠԩ`)轷ǍԩxԩԩԩԠL~ǩԩ` '2DK_sx 9<< ""13)"LINE LOCATOR"E ==================================i COMMODARES PROBLEM #46-3 : LINE LOCATOR SOLUTION BY JIM SPEERS ==================================L432((0)(1)):V(X)(X)256 * ==================================N COMMODARES PROBLEM #46-4 :m CHARACTER BILLIARDS SOLUTION SUGGESTED INDEPENDENTLY BY LARRY SCHAFER AND JIM LOSTETTER AND MANFRED KLOCEK  ==================== $ DARK FORTRESS ][ VERSION 2.3[.,1:4,1:6,1:X.1:(27)(88)(147)(142)(11)7)""(7)" DARK FORTRESS ][ "27)""<7)"BEYOND THE COPPER MIN ).:H(1)20:H(2)H(1):S(1)28:S(2)S(1):T(1).:T(2).:G(1)1000:G(2)G(1):P(1).:P(2).:C(1)20:C(2)C(1)xWE(1)5:WE(2)WE(1):B(1).:B(2).CR$(13):CD$(17):CU$(145):HI$"":OF$"":B$"":X.18:B$B$(32):#X151:A$(X)::X.22AME":9)" LEFT_ LOAD OLD GAME ":8 (1)127(2)127210V (1)7(2)72600:210_ 180 (154)(147)(14)(27)(88)(147)(14)(11)(31) MAINLOOP Z12 ""(7):1,7,24:OF$" LEASE WAIT LAYER #";3Z;.!(27)(88P18P(3Z)182440)"@(M(CL)(BO(9)1)):440P"JY.:X.8:M(CL)BO(X)YX1::Ղ"TIM(CL)BO(9)1:Y(THI(THT(3Z)ICL(3Z))):M(CL)M(CL)32256:A$(42Y);" KILLED!":TH.:HHY: 6:740"^I((1)(Y50)):GGI:"OU FOUND";I:"O9:850:"HE IRE RAGON BELLOWS LOUDLY AND FALLSTO THE FLOOR OF HIS DEN WITH AN EARTH SHATTERING THUD,HIS MOUTH FALLING OPEN..";:$(M(CL)BO(9))O(CL)O(CL)BO(3):$Y.$#%YY10(1).2Y10((LBO(1)).1)850:"!!TRUCK )CS:P(Z)P%Y.&&TH.:2301& ** MENU SUBROUTINE **S& RETURNS VALUE CHOSEN IN "I"o& FIRE BUTTON TO CHOOSE&0,5,16,23,1&&(19);&0IBN:1);OF$;A$(I):&:(19);:IB&D1);HI$;A$(I)&NA$""&XJ(Z): JOYSTIO A CRISPFLAKE TRYING TO PASS THROUGH THE RIVER OF FIRE!!":H.:M(D(CL,I)CLD(CL,I):740:TH0:r(850:"OU CAN'T GO THAT WAY!":( LOCATION((LBO(7)).CL5CL20(CLC(3Z)CLC(3Z)(L(3Z)BO(7).))830:"OU CAN'T SEE A THING IN $(43X)" HERE!"))** :CLC(3Z):HI$;"LAYER #";3Z;" IS HERE!"`**O(CL).(M(CL)(BO(9)1))0"OTHING....":: q*4 WINDOW ONE*>.,.,39,4,1:*H WINDOW ONE W/O CLEAR*R.,.,39,4,.:1,.,4:(27);(81);:*\ WINDOW TWO W/CLEAR(X1)"LINE NUMBER";LN(LV(L)G PRINT L,FNV(L),FNV(L+2)k V(L)0 "LINE NOT FOUND": V(L2)LN "LINE";LN"STARTS AT LOCATION";L:$ 1020 CD50-7OLOR AR 64============== "":DX1:DY1M G1024X40Y : G,87 :I115 : : G,32n YYDY: Y1 Y23 DYDY (XXDX: X1 X38 DXDX 2 20CD50-6 CD50-7OLOR AR 64ESɗ"/F7)"œ A DOUBLE SCREEN GAME "}P7)"œ FOR THE C128 ":7)"œ REQUIRES 40&80 MONITORS "Z7)"(C)1987 CLEVE BLAKEMORE":""::15:1180d A$(69),L$(30),O(30),D(30,6),BO(15),M(30),W(18)fnL(1).:L(2:L$(X)::A$:X2329:L$(X)A$::L$(30)wX.30:J16:D(X,J):J,X:X.14:BO(X)2X::X.30:O(X)::X.30:M(X):TRBO(.)BO(1)BO(5)BO(6)BO(7)BO(10)BO(12)BO(13):PSBO(9)1 (7);:Z12:(27)"X";:1,10,16:"FIRE= BEGIN NEW G)(14)(11)(31);:1,7,24:HI$" OUR URN LAYER #";Z;u!CLC(Z):LL(Z):SS(Z):GG(Z):HH(Z):TT(Z):THT(Z):CSWE(Z):HH.2~!730!I(1):B1:N18:540:PI!"I7700:320!,I6890,920,970,1040,1200,1300,1500,1640,1700,1890,2040,2420 "6LD PIECES!"h#hY7O(CL)O(CL)B(3Z):LLB(Z):850:"HE LD HIEF GIVES OUT A GROAN AND DROPS ALL HIS BOOTY.";#rY8O(CL)O(CL)BO(2):850:"UMOGORATRA GIVES OUT AN UNEARTHLY WAIL AND EXPLODES IN A CLOUD OF GREEN FIRE AND SMOKE!!";w$|YBY ";A$(42Y);"!":HHY:Y7LB(Z).B(Z)B(Z)L:L.*%%H.CL:850:"OU HAVE ...":(M(CL)(BO(9)1))" BY THE ";A$(42Y);"!"%CL.:Y.: 7:740:%C(Z)CLTH.%C(Z)CL:L(Z)L:S(Z)S:G(Z)G:H(Z)H:T(Z)T:T(Z)TH:WE(ZCK PORT'bJ128OF$;:'lJ5A$CD$$'vJ1A$CU$='A$CD$A$CU$590T'CU$;1);OF$;A$(I)o'A$CD$II1:IN570'A$CU$CU$CU$;:II1:IB570'580' MOVE)(CL9I2(LBO(9)).850:"!OU WERE BURNED T THIS DARKNESS!":4)830:HI$;L$(CL):":";:X16:D(CL,X)A$(X);",";A):".";)870:HI$;"OU CAN NOW SEE ...":X.14:(O(CL)BO(X))A$(19X)) )X.8:(M(CL)BO(X))"*** HERE IS A *** ";CR$;HI$;A$(43X)" HERE!";(B$,19(A *f 17,5,39,23,1:+p INVENTORY:+z870:"":X.14:(BO(X)L)A$(19X)R+:CR$" Ē";G:_+ ATTACK+850:(M(CL)(BO(9)1))."OTHING HERE TO ATTACK!":+(LBO(3)1)."OUR BARE FISTS ARE INEFFECTIVE...":,"LAS :A$(N)"OTHING":W(N52).:540:II52^-LW(I)850:"OU ALREADY HAVE ONE,GREEDY!"::L(LW(I)):O(CL)O(CL)W(I):890:i- DROP-L.850:"OU ARE'NT CARRYING ANYTHING TO DROP!":-B52:NB:890:X.14:(LBO(X))A$(N)A$(19X):W(N5 SURVIVED ˠ 2":1110/BCL4(O(CL)BO(12))BO(12)".......EAL SWIFT,ACE.IVE AWAY THE ROWBOAT IN THE MIDDLE OF THE OCEAN...":H.: 5:/L/V 6:X12:(27)(88)(19)(19):.,.,39,24,1/`" LAYER  ER #";3Z;" WAS APPOINTED YOUR SQUIRE!!"T1~2)"REPARE YOURSELF FOR THE SEQUEL TO YOUR ADVENTURE, ][..."~14)"OMING OON O A NEAR OU!!"1:1180::A$:A$"":244011,9000,280,.,300,90,3:1 SWIPE2850:CL$(19X):W(N52)X1:NN13:A$(N)"OTHING":W(N52).:540:850:I.3W(I52)HH(3Z)((LBO(W(I52)1)).)L(3Z)L(3Z)BO(W(I52)1):LLBO(W(I52)1):"UCCESSFULLY SWIPED!":890:3"AILED!":3  CAST SPELL3S.850:"ORRY...WIZARD ANTU,HAVE TRADED MY MOST PRECIOUS GEM,THE";A$(21);",TO UMOGORATRA IN EXCHANGE FOR MY LIFE.'":5FCL10"RITTEN ON THE WALL IN GAELIC:'HE GOLD BULLION IS BURIED UNDER THE BOULDER '":5PCL1"RITTEN ON THE WALL IN GAELIC...'";CR$;""OBODY HERE!"::C(3Z)X:"HISSH!LAYER #";3Z;"TELEPORTED.": 5:740:h7CLC(3Z):830:740:850:"HE VISION WAVERS FOR A MOMENT.";:CLC(Z): 5:830:}7CS14CSCS1:7CLC(3Z)(1).5O(CL).CL4"HE OTHER PLAYER DROPS HIS POSSESSELL IZZLED!":8 SPEAK"9850:(CL11CL20CL22)(LBO(7).)"' !!!'":154029CL222050}9CL."'!!'";CR$;"'T'S HOPELESS' SAYS ONE OF THE SPIRITS.":15409"'ELLO.'"9M(CL)BO(.)"AT LEAD,SURFACE DWELLER!"9M(CG IN A THICK GARBLED TONGUE.T SOUNDS LIKE ' '...":W;@CL.(1).05"OUR EITY HAS INTERCEDED FOR YOU....": 5:CL21:H10:740:;JCL7"HE ROOM SHIMMERS AND WAVERS STRANGELY.":CL21: 5:740:;T;^ LOCK/UNLOCK;h850 NG!":: "NLOCK WHAT?!?":< USE=L.850:"OU ARE'NT CARRYING ANYTHING TO USE!":b=B52:NB:890:X.14:(LBO(X))A$(N)A$(19X):W(N52)X1:NN1=:A$(N)"OTHING":W(N52).:540:II52:IW(I):I.>850:CL1I6"OU CLIMBEH!":(1).2H10THTH(LBO(.))H5:"OU HIT!!!",$, TAKEI,850:O(CL)."OTHING HERE!":j,I.:X.14:(LBO(X))II1,:ICS"OUR OAD IS TOO HEAVY!":,B52:NB:X.14:(O(CL)BO(X))A$(N)A$(19X):W(N52)BO(X):NN1-2)BO(X):NN1h.$:A$(N)"OTHING":W(N52).:540:II52:O(CL)W(I)850:"OU CAN'T DROP THAT HERE."::LLW(I):O(CL)(O(CL)W(I)):890q..850.8CL20(M(CL)BO(9)).(O(CL)(BO(2)BO(3)BO(4)BO(11)))BO(2)BO(3)BO(4)BO(11)"NIGHT,YOU HAVE#";Z;" INS !!! "0j" Ӡ!!!! ":" IR OMAR HAS BEEN RESCUED FROM HIS KIDNAPPERS,AND THE CROWN JEWELS HAVE BEEN RETURNED!"0t2)"OU WERE KNIGHTED IN THE NEWLY"CR$" CROWNED KING'S CHAMBERS,AND PLAYC(3Z)"HE OTHER PLAYER IS NOT AROUND.":;2L(3Z)."HE OTHER PLAYER HAS NOTHING TO STEAL.":\2I.:X.14:(LBO(X))II12:ICS"OUR OAD IS TOO HEAVY!":2"TTEMPTING TO PILFER..."2B52:NB:X.14:(BO(X)L(3Z))A$(N)AOUR AGIC IS ALL GONE.":*4B52:NB:X.8:(BO(X)S)A$(N)A$(34X):W(N52)X1:NN14(:A$(N)"O PELL":W(N52).:540:850:W(I52)SSBO(W(I52)1):W(I52)1340,1380,1390,1400,1410,1430,1440,1450,14804275<CL7"HE LOG READS ',THE  0110":6Z"HERE IS NOTHING HERE TO TRANSLATE.":*6d"EALING SPELL CAST...":HH20:\6nTHTH100:"!!AGIC ISSILE FIRED!":6xTHTH200:"!!!̠FIRED!":6X((1)221):X30X19(X3X8)14107CLC(3Z)IONS!":O(CL)L(3Z):L(3Z).: 5:740:c8CL19(M(CL)768)768O(CL)O(CL)BO(3):740:850:"HE RAGON COUGHED UP THE";A$(22);"!";:M(CL)M(CL)BO(9):{8"PELL FIZZLED!":8CL.CL21:H10:740:850:" OU HAVE BEEN ! ";:: "PL)BO(1)"!!!!":M(CL)BO(4)"UT OF MY TOWER,YOU SCUM!"@:"M(CL)BO(6)" GIMME SOME TREASURE,FOOL!":,M(CL)BO(7)"ELCOME TO MY CASTLE,KNAVE.ERHAPS YOU WILL STAY FOR A WHILE!";6M(CL)BO(8)"HE DRAGON RUMBLES SOMETHIN CL4I2(M(CL)BO(9))"OU CAUGHT A LITTLE FISH.HERE IS A GEM IN HIS GULLET!":O(CL)O(CL)BO(4):M(CL)M(CL)BO(9): 5:>CL2I2(M(CL)BO(9))"OU SNAG 3" COPPER KEY FELL OUT FROM BEHIND THE LAMINATED INSTRUCTION SHEET!":M(CL)M(CL)BO(9):O(CL)O(CL)BO(8):uGCL6(M(CL)BO(9)).I2"HE PANEL IS EMPTY INSIDE.OMEBODY GOT HERE BEFORE YOU.":GCL.:M(CL)(M(CL),BO(10I)):"LICK!UTT OUND THE HIEF'S CACHE OF $1500 GOLD COINS!":GG1500:890:a@CL3I14(M(CL)BO(9))M(CL)M(CL)BO(9):"OU DUG UP A CHEST OF $1500 GOLD COINS!":GG1500:890:@CL10I14(M(CL)BO(10))"OUR SHOVEL IS SCRAPING AGAINST THE BOULDER!":222140IA$(52)" ":A$(53)"٠":A$(54)"Ϡ":B52:N54:540:I512060,2110:4I I.:X.14:(LBO(X))II1cI:ICS850:"OUR OAD IS TOO HEAVY!":I B52:NB:X.14:(TRBO(X))A$(N)A$(19X):W(N52)BO(X):N.:540:II52:IW(I):I.B&850:"LICK-CLACK-CLICK-CLACK...":CLCLI(CLI18)4::bB0CL1I6"OU CLIMBED UP THE LADDER...":O(CL)O(CL)BO(5):LLBO(5):CL20:B:CL15I11(M(CL)BO(9))."HE CORD HAS ALREADY BEEN CUT.": 4:)CDCLH:A$(N)"OTHING":W(N52).:540:II52:W(I).5KRG(I1)100850:"OU DON'T HAVE ENOUGH GOLD.ORRY!"::S(SW(I)):GG((I1)100):890:K\(LBO(7)).CL5CL20(CLC(3Z)CLC(3Z)(L(3Z)BO(7).))850:"OO DARK TO EXAMINE ANYTHING!"::A$(N)"O IRECTION":W(N52).:540:II52:IW(I):I.WDv850:CL20I1"HE CASE SLIDES TO ONE SIDE.HERE IS A SECRET TRAPDOOR HIDDEN BENEATH IT.":D(CL,6)1:DCL3(LBO(12))I3CL4:"OU HAVE LAUNCHED YOURSELF IN THE LITTLE ROWBOAT AWAY D THE SECOND THREE GEMS HIDDEN BEYOND THE ORTRESS AND RETURN THEM TO THE TROPHY CASE DOWNSTAIRS BEFORE YOUR"M"OPPONENT.OU MUST ALSO RESCUE THE BRAVE IR OMAR,KIDNAPPED BY THE NECROMANCER UMOORATRA AND HELD CAPTIVE SOMEWHERE IN THE COPPEL)BO(9))I2"HE PANEL SPUN AROUND TO REVEAL A BAG OF GOLD COINS,$2000 WORTH.":M(CL)M(CL)BO(9):GG2000:890:FCL10(M(CL)BO(10))I4"HE BOULDER ROLLS TO ONE SIDE TO REVEAL A SHALLOW CAIRN.":M(CL)M(CL)BO(10):GCL21(M(CL)BO(9))IIN! OPERATE THE TRADING BOOTH NEXT DOOR,AND "3O"SELL DVENTURER'S SUPPLIES,AS WELL AS AN OCCASIONAL BIT OF MAGIC.ROP IN WHEN YOU GET SOME GOLD."YO10)" LEVE LAKEMORE ": 15_OfOO850:CL6"HE PANEL APPEARS TO BE HINGED."GED A POUCH OF GOLD DOUBLOONS!":GG500:M(CL)M(CL)BO(9): 5:890:q?CL3I14(M(CL)BO(9))M(CL)M(CL)BO(9):"OU DUG UP A CHEST OF $1000 IN GOLD BULLION!":GG1000:890:?CL10I14(M(CL)(BO(10)BO(9)))BO(9)M(CL)M(CL)BO(9):"OU FON TOGGLED ";:M(CL)BO(10I)"ON.":ՙ"OFF."bH(M(CL)(BO(11)BO(12)BO(13)BO(14)))(BO(12)BO(13))"HERE IS A BRILLIANT FLARE OF LIGHT AS ADOOR OPENS ABOVE YOUR HEAD!":D(CL,5)21kH:H"KAY, GAVE IT A PUSH.":H EXAMINEH850:CL.ACL8I7CL9:"OU CLIMBED DOWN THE ROPE TO THE BOTTOM OF THE RAVINE,AND PULLED IT DOWN AFTER YOU...": 5:740:ACL13CL19I15:"RAVEL IN WHICH DIRECTION?":B52:NB:X14:A$(N)A$(X):W(N52)X:NN1A:A$(N)"O IRECTION":W(N52)N1I*:A$(N)"OTHING":W(N52).:540:II52:W(I).\J4G(I1)200850:"OU DON'T HAVE ENOUGH GOLD.ORRY!"::L(LW(I)):TRTRW(I):GG((I1)200):890:TRTR(BO(.)BO(7)):J>B52:NB:X.8:(PSBO(X))A$(N)A$(34X):W(N52)BO(X):NN1J15I11(M(CL)BO(9))"LL THE COINS ($800) FELL OUT WHEN YOU CUT THE POWER!":GG800: 5:M(CL)M(CL)(BO(9)):890:NCN"O USE FOR";A$(18I);"HERE!":YCX PUSHCb850:"USH IN WHICH DIRECTION?":B52:NB:X14:A$(N)A$(X):W(N52)X:NN1ClKfCL21:.,.,39,24,1Kp8)" ˠӠ][ "vLz" ELCOME TO THE SECOND ADVENTURE IN THE ARK ORTRESS SERIES.OU MUST PREPARE TO FACE NEW CHALLENGES & BRAVE FIERCER DANGERS THAN EVER BEFORE!"M"HE OBJECT OF THIS GAME IS TO FIN FROM SHORE...":%ECL5(LBO(12))I4CL4:"OU HAVE LAUNCHED YOURSELF IN THE LITTLE ROWBOAT AWAY FROM SHORE...":ECL2(LBO(12))I3H.:"!!!!!OUR BOAT CAPSIZEDAND WAS DESTROYED ON THE ROCKS,DROWNING YOU!!":FCL6(M(C 50:DS$;:V Z12:(27)(88)(19)(19)(147)(146)(142);%W 1,13,9,"FILE SAVED.":1,8,12,"PLEASE RETURN AGAIN TO":1,8,13,"PLAY DARK FORTRESS ][!";W ::A$:A$"":OW LOAD OLD FILEiW( #1,"FORTRESS FILE"W2 Z12:1,L(Z),H(Z),S(Z),T FLOOR."`h "OU'RE UNDER THE EACH LIFFS,IN A CAVE FED BY THE OCEAN.ASSIVE LIMESTONE FORMATIONS GROW DOWN THE WALLS INTO A DARK RAVINE BELOW."`r "OU'RE IN THE AVA EDS,FAR BENEATH THE EACH LIFFS. BOILING,FIERY RIVER OF RED HOT MOLTEN :*PCL."--Π ,ŠϠҠ-- READS A SIGN ABOVE AN ARCHWAY.HERE ARE FOUR BUTTONS HERE,ONE ON EACH OF THE WALLS.":PCL1"HERE IS SOMETHING HERE WRITTEN IN THE OLD TONGUE,AELIC. CANNOT READ IT.":PCL2