xg  ???eg DD((DDDD  p !qq  K  Ƈ0 ~~33 ``  Ƈ0 ? ? DĎb@?  8!!C?⒒  $(0($"yAAqAyRIOJI=!!9!,$LD|cL@ ఘ333? `` ???????xxxxxxxχ? ??{3? ```8``|8a`????????8I#qXHHςpHHp!! ????? " "000qb  $44,,DDGDyAAqA??_ 0ఘఘ`aa`aaa̘```8 ~ ? IIIIIy$$$ NcefQSWX ? H PHE8@8??HH ?????xxx @|>|>><||? !! ?aaa```aa`8????????< <<yAAqAyRR228DDDD8𠐐8Xq |x???????? ????????8,$$, qIIqQ$$D0$y? !!!ఘ``` ?>< qa'$$$'  ? ``??????8xx"6*"""HIHHH1""   >> ?~ >  ""|q# CbbHHO <FEDpp C!!! ???OYFUL PIRITS IS A -128 SOLUTION TO THE ECEMBER 1987 OMMODARE REQUIRING THE READER TO WRITE A BARE-BONES PROGRAM THAT MOVES A SPRITE AROUND WITH A JOYSTICK. TWO. STAZER AZEOYFUL PIRITS IS A -64 SOLUTION TO THE ECEMBER 1987 OMMODARE REQUIRING THE READER TO WRITE A PROGRAM THAT MOVED A SPRITE AROUND WITH A JOYSTICK. A JOYSTICK. TWO. STAZER AZEEIGHTY ROBLEM IS ANOTHER -64 SOLUTION TO THE ECEMBER 1987 OMMODARE REQUIRING THE READER TO SOLVE THE CLASSIC BALANCE-WEIGHT PROBLEM. JOYSTICK. A JOYSTICK. TWO. STAZER AZEUSICAL OYS IS A SOLUTION TO THE ECEMBER 1987 OMMODARE REQUIRING THE READER TO WRITE A PROGRAM THAT CONTROLLED SOUND WITH A JOYSTICK. - JOYSTICK. A JOYSTICK. TWO. STAZER AZEUSIICAL OYS 2 IS AN ALTERNATE SOLUTION TO THE ECEMBER 1987 OMMODARE THAT REQUIRED THE READER TO WRITE A ROUTINE THAT CONTROLLED SOUND WITH A JOYSTICK. TICK. TWO. STAZER AZEx-128 RCHES FROM IPS HOY! IS A FASCINATING HI-RES ROUTINE THAT ALLOWS PROGRAMMERS TO CREATE ARCH-LIKE STRUCTURES. - T CONTROLLED SOUND WITH A JOYSTICK. TICK. TWO. STAZER AZEISCOVER FROM IPS HOY! IS A FULLY RELOCATABLE ROUTINE THAT WORKS WITH BOTH THE -64 OR -128 AND A 1541 OR 1571. HE PROGRAM LETS YOU CHECK DISK NAMES AND 'S. O. STAZER AZEURTAINS FROM IPS HOY! IS A MACHINE LANGUAGE ROUTINE THAT LETS YOU CREATE A CURTAIN LOWERING OR CURTAIN RAISING ILLUSION IN YOUR OWN PROGRAMS. K NAMES AND 'S. O. STAZER AZEnLIST FROM IPS HOY! ADDS THE ԠCOMMAND TO THE -128'S 7.0. USES THE SAME FORMAT AS . - SING ILLUSION IN YOUR OWN PROGRAMS. K NAMES AND 'S. O. STAZER AZEAZER AZE IS AN ACTION FILLED ARCADE QUALITY GAME. LAYERS CAN CREATE AND EDIT THEIR OWN MAZES AND CHARACTER'S. EE THIS MONTHS IEW FROM THE RIDGE FOR DETAILS! O. STAZER AZE  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) | 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   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, 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,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, \''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''AAAAaaaAaaaAAAAAAAAAAaaAAAAAAAAAAAAAAAAAaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaarrr'''''''''''''''''''''rrrr'''''''''''''''''''''rr 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 ""12)"JOYFUL SPIRITS"G =================================i COMMODARE PROBLEM #47-3 : JOYFUL SPIRITS SOLUTION BY CASEY RILEY ================================= V53248:X100:Y150: D832 83263 : : "SELECT A NUMBER"I K$ : V(K$)PI V0 V4 (7) : 890 : BELL FOR BAD KEY~I V4 0,1 :  0,0,39,24,1 : GR : IWFV1 : WAVEFORM TYPEI: : " ";G N1 19 : ""; : G  5,6,35,24,1H "COMBI z""13)"MUSICAL JOYS"::"PLUG JOYSTICK IN PORT 2":"PUSH JOYSTICK FORWARD TO INCREASE SOUND,BACKWARD TO DECREASE." ================================ PROBLEM #47-4 : MUSICAL JOYS SOLUTION BY DARRIN BATTEN ======G 0,1 : B4 890"G 0,0,39,24,1HG N1 20 : ""; : : " ";eG N1 19 : ""; : G 1,10,2,"WAVEFORM SYNTHESIZER" : G N1 20 : ""; : : " ";G N1 19 : ""; : G  5,6,35,24,1H "COMBI ( ================================A PROBLEM #47-4 :X MUSICAL JOYSm SOLUTION BY JIM SPEERS ================================dI18:O$(I),N$(I):n O4,C,O4,D,O4,E,O4,F,O4,G,O4,A,O4,B,O5,CxI09:q0EE(E):160%TT(T): T: 1605 J0 160iX$"V1"O$(J)E$(E)N$(J): X$:I1200::160 JIM SPEERS ================================dI18:O$(I),N$(I):n O4,C,O4,D,O4,E,O4,F,O4,G,O4,A,O4,B,O5,CxI09:O I(TI):1,1:2,2:0,12:4,12:3,1:2,0,0,6,8,0,1:1,0,0,6,8:B$,0,0,6,8:C.:3,1:X((1)71.5):Y((1)91.5):XX2(X1):YY2(Y1):XX(XY)CC1:X17761.5(XI):Y19677(YI):II.01: B$,X1,Y1:C70030: 2:xI09: &S700: *** CHANGE S TO RELOCATEG(147)"LOADING";:JSS56fA:J,A:XXA:".";:J::X8392"ERROR IN DATA...":" DATA OK * SYS"S"TO ACTIVATE...":169,36,133,251,169,5,162,8,160,0,32,186 255,169,1,162,251,160,0, #" URTAINS....."-A700LBAA61:C:B,C:DDC:BpD10475"ERROR IN DATA...":173,33,208,162,0,133,251,134,252,134,253,173134,2,141,33,208,165,253,208,7,230,252,230 252,184,80,4,198,252,198,252,173,18,20 <"LOADING LLIST";PKX 3960 4095 :A:CSCSA: 15 :X,A:".";:X:wZCS 14008 (7)"DATA ERROR!":i3960x 169, 15, 141, 13, 3, 141, 15, 3, 141, 17, 3, 169, 147, 141, 12  3, 169, 177, 141, 14, 3, 169, 196, 141, 16, 3,  D,255 : +  2040,13 : V21,1: V39,1?  V,X : V1,Yd (C(56320) : JOYSTICK IN PORT 2| 2 (C 1)0 YY1 < (C 2)0 YY1 F (C 4)0 XX1 P (C 8)0 XX1 U 30 Y OPTIONAL BOUNDARIES (DELETE LINE 85) Z  169, 15, 72, 169, 210, 72, 76, 169, 75, 169o 0, 141, 0, 255, 32, 189, 255, 169, 4, 170, 160, 7, 32, 186, 255 32, 192, 255, 162, 4, 32, 201, 255, 169, 147, 32, 121, 239, 32, 134 3, 32, 226, 80, 169, 0, 141, 0, 255, 169, 4, 32, 74, 255% ================================> X2960:Y2860:Z2760Dl (2)1 XX90 : YY90 : ZZ90( (2)5 XX90 : YY90 : ZZ902 Z90 80< Z65500 80F 1,X,2.33 : 2,Y,2.33 : 3,Z,2.33PRITS NE VARIOUS FREQUENCIES"+H  "OF SINE WAVES TO SYNTHESIZE"DH* "OTHER WAVEFORMS."YH4 10,12,30,24,1rH> "1. TRIANGLE WAVE"HH "2. SAWTOOTH WAVE"HR "3. SQUARE WAVE"H\ "4. QUIT"HfB41 : DRAW MENU ONLY ONCEHp 10,18,30,19,1Iz E$(I):) T0,T1,T2,T3,T4,T5,T6,T7,T8,T9cE(X)X110(X9):T(X)X224(X24):E1:T8: T""13)" IT'S ON !! ":""14)" PLAY IT! "J(2):I150:I:J128220I150:I:TMTI60J(2):J127210TMTI18 , 96, 0):"LLIST ADDED TO BASIC 7.0. LLISTW"PERFORMS LIST TO PRINTER. USES THE SAME"FORMAT AS BASIC 7.0 'LIST' STATEMENT.:"FORMAT: LLIST [FIRST LINE] [-LAST LINE] :"SET PRINTER TO TOP OF PAGE PRIOR TO "EXECUTION. LLIST @WILL AUTOMATICALLY4 "SKIP PERFORATIONS BETWEEN PAGES.":255, 32, 189, 255, 169, 4, 170, 160, 7, 32, 186, 255 32, 192, 255, 162, 4, 32, 201, 255, 169, 147, 32, 121, 239, 32, 134 3, 32, 226, 80, 169, 0, 141, 0, 255, 169, 4, 32, 74, 25532,189,255,32,192@ 255,162,5,134,252,32,198,255,32,207,255,198p 252,16,249,32,207,255,240,5,32,210,255,208 246,32,204,255,169,5,76,195,255v8,1976 252,144,249,165,251,141,33,208,173,18,208,208p 251,165,252,208,214,230,253,165,253,201,2,144,206,96 246,32,204,255,169,5,76,195,255 96, 133, 2, 160T 171, 169, 15, 32, 226, 67, 144, 7, 105, 166, 162, 0, 24, 144, 3 56, 165, 2, 76, 33, 67, 76, 76, 73, 83, 212, 0, 224, 0, 208 12, 201, 40, 176, 8, 160, 171, 169, 15, 132, 36, 133, 37, 76, 205( 81, 201, 40, 176, 6,S Y30 Y30 d Y229 Y229. n X1 X1B x X255 X255K 30MMODARE PROBLEM #47-3 : JOYFUL SPIRITS SOLUTION BY CASEY RILEY ================================= V53248:X100:Y150: D832 83263 :  (Y),3)Z(BA1):(BA)1ZZ BABA2:Z$(" "(Z),3)LC(BA):BABA1:O$(" "(O),3):SCSC1aA$:A$"S"1360x(SC24U$V$:"";2SC47U$"":""V$" ":198,0:198,1:"";<SC47SC1F:U$O$")";X$","Y$ @*@===================================I@ WAVEFORM SYNTHESISg@ RUPERT REPORT #51m@@ C-128@===================================@ SS.05 : GRAPH STEP SIZE@ 400 : INITIALIZE A 700 ` j" DIT A PICTURE.":T1400:<t" ";n~" DIT A CURRENT PICTURE ";" ":"O YOU WANT THE ATA IST? (/) ";A$:A$""1180 (K2K2): K11K2/B: 1,25,1,"HARMONIC #"(K2)8B:N0NB: XWL WR SSB:: K21 Y(N)0 : 0,X0(N),Y0(N) : ERASE PREVIOUS GRAPHB -- DELETE THE FOLLOWING REM'S TO PLOT INDIVIDUAL HARMONICSB Y=K1*SIN(X*K2)C XS=A*X+B : ABA1:" ="X " ="Y" ="Z#" ="C5"ET #"O1vX999:"NTER ATA (,,,)";X,Y,Z,C:X999BANMO7:1070BANMO7X0BA,1:BA1,X:1000BA,.:BA1,XBABA2Y0BA,1:BA1,Y:1030I"AVING..." N54272,35:15,8,1,N$".3D,S,W" XBANM" b(BA)2551910B l15,((BA));:BABA1:1890t v15,(255)(255):15:"ILE SAVED.":54272,0 {T1500:A$:A$"" ~NM:O1:"OW, WHERE WERE WE..."(BA)255(BAPICTURE ";/" "Z"RESS: <> TO MAKE A NEW PICTURE,"" <> TO RETURN TO MENU.""HOICE:";A$:A$""760A$"R"" ETURN TO MENU.":T1400::110 A$"M"760 0BA,.:BA1,XBABA2Y0BA,1:BA1,Y:1740#BA,.:BA1,Y/BABA2MZ0BA,1:BA1,Z:1770iBA,.:BA1,Z:"";|A$"L"1560BABA2:BA,C:1370BANM:O1:"OW, WHERE WERE WE..."(BA)255(BAA:";NSE(N1)7:BANMSEX(BA1):BABA2:(BA2)1XXAY(BA1):BABA2:(BA2)1YYgZ(BA1):BABA2:(BA2)1ZZsC(BA)"ATA SET #"N"" ="X," Y="Y6" Z="Z@C0" EGINNING OF LINE (0).":16C^: X Dh:K2K2HSDr:D ====== INITIALIZATION ==========\DY0 : K10 : K20 : X0 : N0vDA0 : B0 : C0 : D0DGR(1) : GR5 GR5DPI3.14159265D 0,1 : &D ----- GRAPH CONSTANTS -----E WORLD COORDS: LEFT, RIGHT,","Z$","C;:OO1:12302P" ":198,0:198,1<Z"";[dSC0:"O YOU WISH TO:":n" 1. ONTINUE TO ENTER DATA"x" 2. ONTINUE FROM A SPECIFIED SET"" 3. DIT SINGLE DATA SET""  : MENU+A( 600 : DRAW AXISKA2 200 : DRAW GRAPHSTA< 30ZAFA ================ DRAW GRAPHS ===AHS2 : WF1 HS1 : STEP SIZE OF HARMONICSAK21 : INITIAL FREQUENCYAB: WF0 K1(1)((K21)2)A$"N""O.":T1200::1370A$"Y"11806"ES.":T1400:A$:A$""PBANM:O1:"";:U$""zX(BA1):(BA)255(BA1)2551360(BA)1XXBABA2:X$(" "(X),3)Y(BA1):(BA)1YYBABA2:Y$(" " YS=200-(C*Y+D)C DRAW 1,XS,YSKC"::YY(N)K1(XK2) : SUM HARMONICSrC,::Y(N)Y : SAVE RESULTC6::XSAXB :YS200(CYD): SCALE DATA FOR GRAPHINGC@::X0(N)XS : Y0(N)YS : 1,XS,YSCJ::NN1CT:: K$ : K$"" BA,.:BA1,YBABA2Z0BA,1:BA1,Z:1060,BA,.:BA1,ZI$BABA2:BA,C:OO1:800|.O0"O PICTURE CONSTRUCTED.":T1300::8BA,255:BA1,255B"ICTURE INISHED: "O" SETS OF DATA."LT11000:A$:A$""V DM),Y(DM)F&*FX ==== DRAW VIEWPORT & AXIS ======4Fb 1,1PFl 1,VL,200VT,VR,200VBkFv --- DRAW X AXIS ----FY0 : XSAXB : YS200(CYD)F 1,VL,YS VR,YSF1,8,24,"PRESS ANY KEY TO RETURN"FF ============ MENU ========" AKE A PICTURE!":T1400::O0 BANM(O1)7M*"AST DATA:";:O0" ONE."::950\4" ET #"Oj>X(BA1)|H(BA)1XXRBABA2\Y(BA1):(BA)1YYfBABA2pZ(BA1):(BA)1ZZzBABA2C(BA):B1)255BABA1:OO1:1800OO7:800" AVE A FILE.":T1400:P&" ";0" AVE A FILE ";:" "D "ESIRED FILENAME:";N$20J" HIS IS A LINE (1)."TC$"":"HANGE OR EAVE (/):";.^A$:A$""1630VhA$"L"" LEAVE.":T1300::1680hrA$"C"1630x|" CHANGE.""NTER NEW VALUES (,,,):";X,Y,Z,C:1560BANMSEX0BA,1:BA1,X:171 TOP, BOTTOM)EWL0 : WR2PI : WT1.6 : WB1.6WE SCREEN COORDS: LEFT, RIGHT, TOP, BOTTOM{EVL60 : VR252 : VT180 : VB40EA(VRVL)(WRWL) : BVLAWLEC(VTVB)(WTWB) : DVBCWBEDM((WRWL)SS) : # OF POINTSE X0(DM),Y0(4. UIT TO AIN ENU""OUR HOICE:";:A$:A$""1440>A$"1"" 1.":T1300::1790bA$"3"" 3.":T1300::1500A$"4"" AIN MENU.":T1300::A$"2": "WHICH SET";O:OO1:8001440"HICH SET OF DAT 1663,1684,2004,,0+  ROOM4I,* 1033,1193,1184,1192,1042,1242,1049,1249,1384,1393,1433,1993,1402,1423f,4 1442,2002,1722,1738,,0r,> ROOM5,H 1037,1197,1197,1223,1384,1397,1397,1757,1757,1764,1764,2004,1405,1423,R 1770,1783,,0,\ ROOM6  XE(300),YE(300),C%(300)8 T5427254296:T,.:Y54296,2:54277,8:54278,240g54276,3350448:U50630:Q1:W2(53280,14:53281,14:646,62" "<" 3-F" RAPHIC" K ,20,C,40,10,A,20u* 8,1,10,4,,8F,FE,,48,2,,28,2,,1F,FE,,10,2,,1F,FF,F8,10,,8,17,FF,E8,14,,28,14,,28,14,,28,14,3C,28,14,7E,28,14,7E,28,14,3C,28* 14,18,28,14,3C,28,14,7E,28,14,,28,14,,28,14,,28,14,,28,14,,28,17,FF,E8,10,,8,1F,FF,F8,,0* ROOM DA DATA:";BA:NMBA? n" ";q x" AIN ENU "; " " "HOOSE:" " 1. AKE A NEW PICTURE" " 2. DIT PICTURE IN MEMORY"78,,,78,,,78,,1,FE,,3,FF,,6,FD,80,3,79,80,,7B,,,FC,,,CC,,,CC,,1,CC{( 0,,C,,,E,,,,,,,,,,,,,,,,,,,,,,,,,78,,,78,,,78,,1,FE,,3,FF,,6,FD,80,6,7B,80( 3,78,,,FC,,,CC,,,CC,,,CE,,,C0,,1,C0,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,0) 0,,1,C0,,1,7F,C0,1,C1,40,,,""# "RESS: <> FOR ROJECTION"W " <> FOR AIN ENU.":"OUR HOICE:";j "A$:A$""290 ,A$"M"" AIN ENU.":T1300:: 6A$(13)" ROJECTION.":T1400::330 @290 J" 500&R(RX,RY,J)R1:R(RX,RY,J1)R2:JJ2:480'&::G& DRAW ROOM SCREEN IN RX,RYU&"":J.&R1R(RX,RY,J):R2R(RX,RY,J1):R1.570&S1:R2R140S40&&IR1R2S:I,160:&0JJ2:530&:RXURYMV21,128&DRXMRYMV: "NPUT IN DEGREES:";TH:THTHGPH0: "NPUT IN DEGREES:";PH:PHPH"CALING PICTURE, LEASE STAND BY.":T1700::53265,1154272,30K0.0174532925:THTHK0:PHPHK0:CY199S1(TH):C1(TH):S2(PH):C2(PH)S3C1 "",,3107148,,2175092,,,,""/ LEVEL 2&/ "",,,,2068152,,,3151130,""4/ LEVEL 3U/ "",,,3151170,,,,2151160,""c/$ LEVEL 4/. "",,,,,,2272190,,3089208/8 LEVEL 5/B "",,,,,2047194,3186067,,"",1383,1344,1353,1393,1993,1544,1552,FYOZOOOQ:(BA)W460 54272,0[OOQ:53280,0:50977:T0O:C%(T)QU,X1,Y1,XE(T),YE(T)sX1XE(T):Y1YE(T):&A$:A$""550050448:53280,14:260:49999,0:49999D" OAD A FILE.":T1400:N" )-f 1184,1223,1044,1164,1384,1404,1444,2004,1553,1564,1593,1993,1744,1753F-p 1410,1423,1450,2010,,0R-z ROOM7- 1033,1353,1042,1362,1363,1383,1409,2009,1570,1583,1704,1722,,0- ROOM8- 1044,1364,1365,1383,1344,1353,1393,1993,1544,1552," ROJECTOR"N M" Y: RIC ORTIER"z N" ON: CT 26 1987" O" IT A KEY TO START." PV$"" Z198,0:198,1 d198,0:BA16384:"OCATION FORTA* ROOM1<+ 1049,2009,1190,1200,1190,1430,1304,1310,1624,1633,1393,1993,1393,1418Y+ 1402,2002,1418,1778,,0e+ ROOM2+ 1033,1393,1044,1404,1450,1463,1638,1663,1637,1997,,0+  ROOM3+ 1039,1639,1624,1638,1424,1438,1320,1343,1652, " 3. IEW PICTURE IN MEMORY"8 " 4. OAD A PICTURE"T " 5. AVE A PICTURE"z " 6. UIT":"OUR CHOICE:"; C$:C$""210 C$"1"C$"6"210 (C$)690,1130,250,580,1820,570 110 " IEW A PICTURE.":T1400: ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,2,,40,5,,A0,A,81) 50,2,42,40,2,24,40,1,E7,80,,18,,78,,1C,84,3C,23,98,42,19,A0,BD,9,98,,79,86,,81,B1,,71,AE,,9,A0,,12,9C,,24,42,,18,3C,,,0) 0,,,,,,,,,,,,1,F0,,E,E,,9,F2,,9,12,,9,F2,,8,2,,F,FE,,C,1,,A,,80,9,FF,C0,8,80 ";. K" ROJECTION ";_ L" " SE0:"NPUT EXTENTION:";E:EE180 TF0:"NPUT EXTENTION:";F:FF180 ^TX160 hTY100 rRH180: "NPUT VALUE:";RH|TH021,DF 'N4,P((RX1)(RY1)4),P((RX1)(RY1)41)R'X5,P((RX1)(RY1)42),P((RX1)(RY1)43)'bK$(RX,RY,L)""I$K$(RX,RY,L):(((I$,1))),((I$,2,3)),((I$,5,3)):(((I$,1))),1,8:J(U)'l'v SPRITE DATA*( 0,,,,,,,,,,,,,,,, S2:S4S1S2:S5C1C2:S6S1C2"W11E20:W3W10BANM:O0JY(BAQ):(BA)YYfZ(BA3):(BA2)ZZX(BA5):(BA4)XXC%(O)(BA6):BABA7XOXS1YC1:YOXS3YS4ZC2:ZOXS5YS6RHXE(O)EXOZOTX:YE(O)TY)):C(C$(0))3BA,A:BABA1:BA,B:BABA1:BA,C:BABA1:ST0640U15:54272,0:"ILE OADED."oT1700:A$:A$""u" AKE A PICTURE.":T1400:" ";" AKE A NEW  ";9X" OAD A FILE ";ob" ":BANMl "ESIRED FILE:";N$nN$""o15,8,0,N$".3D,S,R"q"OADING..."#15,A$,B$,C$:A(A$(0)):B(B$(01564,1583,1604,2004. 1725,1743,,0. ROOM9Z. 1033,1353,1344,1352,1544,1564,1044,1544,1050,1730,1704,1743,1759,1999d. 0,0. SPRITE POINTERS & COLORS. 56,14,58,7,58,8,59,13,59,13,61,4,61,4,60,3. KEY LOCATIONS. LEVEL 1. x?čЭ)ЩЩǍǍXԩ`Ѝ) XL1ΩQǍ->}/-!I-ЍнI-I-ǍLĭ)8 ĭЍЭ8ZЩ LcŹ-  T .,1:4,12:(147)(11)(142)(27)(77)"STAND BY":J35843968:I$:J,(I$):u""17)"C-128":"  ";" ߒ   ߒ ߒ  ߩ ߩ ߒߒ ";("        ";2"ߒ      "    "n19)"BY":10)"CLEVELAND M. BLAKEMORE":12)"FOR AHOY! MAGAZINE":,16,23,"DREAMING..."x INITIALIZE VARIABLES: J,X,Y,C,U,M,T,R,D,L,K,F,P,B,Z,G,Q,V,S,I,RX,RY,R1,R2,DF,I$,J$Q R(2,2,19),K$(2,2,5@@ 0 0 0 0 0 0((( 0 0 0 0 0ԩ ԩ ԩ ԍ `ͅ! 8@ȱȌid `1111< < <0 L(J)(X12X334Y38Y238)@ I$"î":J$"ý" X15:.,1X6,19:I$;X;J$::,12,23,"CHOOSE SKILL LEVEL" L1:C.::LC.,1L6,19:""I$;L;J$:CL:X.30: (2)3LL1(L5)5 (2)7LL1(L1)5!C/ /@@@/"+0 <<<<<<<0/C < <(((   ((<<Z_2+0 < < < < < < <0G:JU,T;(JU)R:Z(Z.):P,BZH"6MM(.)M,(.)Q#D:C(M):(CU)U,X,Yx"@C(U):L(.).(CU):(L(.))U380,330"JC9C17C25,13,10,"C A P T U R E D":V21,(V21)254:1,30000,200,1,100,100,.: 5:V21,.:20N#T(C3+   Zjjj  j׿j *** ** * ***("" * * ** ** #,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 ` )H h8  Ǚ轺Ǚ` )H h)` )H hH h` ` Ǎ` ` ` ))8Ǩl H hL @U  (L Ř 0}НL&Ž8й- 轺 (LGŘ 0}НLbŽ8`Χ0LĢ 8ǰ ǝLŽ8ǐ&ǝй- 8-ЍнI ǹ-B8ǰ ǝLŽ8ǐ&ǝй- 8-Ѝн "D<"         ߒ  "F"             "P"             "Z"    ";d),P(39):740:470:J.7:I,C:2040J,I:5324839J,C::J.382:P(J)170:P(J1)140:|L15:J.2:I.2:K$(I,J,L):I,J,LP2040:B56:Z.:U1:M2:T5:G15:R45:K129:Q360:F.:V53248:DF968,192,164:7,110,164:6,150,164:V27,254U):U,PM,U,,,,3:300r$rCK,14,10,"E S C A P E D !":V21,(V21)254:1,20000,200,2,2000,8000,2: 5:V21,.:20:300$|V21,.:4,.#.:5,.#.$P((RX1)(RY1)4)(4,.):P((RX1)(RY1)41)(4,1)%P((RX1)(RY1)42)(5,.):P(L.,1C6,19:I$;C;J$:X.30:+!(2)127:""N!1,200,160:1,.,15:RX2:RY2W!520!J.10:C(U):C(U):C(M):C(M)::V21,(V21)1(RXMRYM)((LU)816):DU(LM)M!" MAIN LOOP",:X(U,.):Y(U,U):A(M):JA@U@C/pp@@@-" +%!!!!!""""+/  0@3@\>\3 C5)F.FU:V21,(V21)249:1,25000,5:K$(RX,RY,L)"":C(U):C(U):300:ՋC3C5300#^(C33C65)F1,8000,10,1,100,900,.:F.:V21,(V21)(255(C254)):DFDF(255(C254)):C(U):C(U):300$hC33C65U,X,Y:U,T,.:C(U):C(  * * "    (*########+(RX1)(RY1)43)(5,1)/%X12RXRXU(RX.)3:1,330,YU%X334RXRXU(RXM)3:1,16,Y|%Y38RYRYU(RY.)3:1,X,233%Y238RYRYU(RYM)3:1,X,43%270% READ ROOM DATA IN%RY.2:RX.2:J.%R1,R2:R1.   _WkkW_T_d_U_WU_WU_WU_WdT(T <<Z ZZ%j%&****** Zj++/k[k,/,+Zj I Χ0LpŭLƩΪ -Ǚ'Ј)'7ʽ(((  2 'Э)i"í8ǐ8ǰЩ8-Ǎ hͭL ` ` ` `  Ѝ!  < ة XL7N`|䧆N3LH1fGJP3W>/fLOADER d53280,12:53281,11Mi" FLANKSPEED ";~n" MISTAKEPROOF ML ENTRY PROGRAM "s" CREATED BY G. F. WHEAT "x" COPR. 1987, ION INTERNATIONAL INC. "}A5427254296:A,0:/ 2)T(1)16/B$"ENDING ADDRESS IN HEX":430:ENBA470:B0150h254,T(2)T(1)16:BT(4)1T(3)16B255BB255:254,(254)1253,B: GET HEX LINE495:": ";:A08B01:250BA%(A)T(1)T(0)16:ADA1  A$(135)" ":620) A$(136)" ":635O A$"@"A$"G"T(B)(A$)55:295u A$"/"A$":"T(B)(A$)48:295 "415:250 'A$""; ,205 1A0320 6A1:B1330 ;220 @B0(20);(20);:AA1 EAA1 J(20);:"INPUT A 4 DIGIT HEX VALUE!":415F":"ENDING IS LESS THAN STARTING!":B0:415|":"ADDRESS NOT WITHIN SPECIFIED RANGE!":B0:415":"NOT ZERO PAGE OR ROM!":B0:415""?ERROR IN SAVE":415""?ERROR IN LOAD":415"::"END OF ML ARE5:$A$"/"A$":"T(A)(A$)48:$$T(A)16:8$ ADDRESS CHECKG$ADEN385Z$BSRBEN390$B256(B40960B49152)B53247395$$ ADDRESS TO HEX$ACAD:A4096:520$A256:520$A16:520$A1:520$%T(AN:A$"":"FILENAME";A$&SA$""590,&X:"TAPE OR DISK?":R&]B$:T1:B$"D"T8:A$"@0:"A$:c&bB$"T"605i&g&lB$"CONTINUE FROM ADDRESS":430:ADB&q475:B0620&v:195&{B$"BEGIN SCAN AT ADDRESS":430:ADB&475:B06357 (147)"LOADING AND CHECKING THE DATA...":J49152TB011:A:A0A25540sJB,A:XXA:B:A:AX50(:"ERROR IN DATA LINE:"(64)256(63):2X0:JJ12:J4945620<198,0:49456,0:A$"Y":B$A$:C$"D":D$"DISK":D8:(147)3FKUP"::"FILENAME";F$:F$N$(F$,14):L(F$)W49458,L:J1L:49458J,((F$,J,1)):J:"SAVING DEVICE ** "D$:"STARTING WITH ** "F$:"IS THIS CORRECT (Y/N)";B$:B$"Y"60770,131:771,164:49152: 169,79,32,210,255,162,38,160,10,2,240,5,169,1215: 79,141,2,3,76,162,164,169,0,133,2,133,1064q 251,133,252,133,254,24,101,20,69,254,230,254,1975 24,101,21,69,254,170,230,254,164,252,185,0,1724 2,133,253,201,34,208,6,165,2,73,255,133,1465!2,201,32,208,4,165,2,240,169,38,141,2,3,173,1578B"J48,193,240,23,165,161,201,212,176,4,165,160,1748u"T240,13,238,32,208,160,0,32,225,255,208,6,1617"^32,33,193,76,38,192,232,208,242,200,208,239,1893"h32,68,229,169,0,168,174,49,193,32,186,255,1555#r173,50,193,1654272,4:54273,48:54277,0:54278,249:54296,15HA680699:B:A,B:s169,251,166,253,164,254,32,216,255,96169,0,166,251,164,252,32,213,255,96B$"STARTING ADDRESS IN HEX":430:ADB:SRB480:B0150251,T(4)T(3)16:252,T(EN340 " ";-A:TAD((AD256)256):" "QA07:TTA%(A):T255TT255WoA%(8)T375:195A07:ADA,A%(A)::ADAD8:195 GET HEX INPUTA$:A$""250A$(20)305A$(133)535 A$(134)560220 !O LAST LINE'!T" ":TAD((AD256)256)M!YB0A1:TTA%(B):T255TT255S!^k!cA%(A)T375:195!hB0A1:ADB,A%(B):!m:"YOU ARE FINISHED!":535!r BELL AND ERROR MESSAGES!w:"LINE ENTERED INCORRECTLY"::415"|:A":#54276,17:54276,16:0#15,8,15:15,A,A$:15:A$:I# GET FOUR DIGIT HEXX#:B$;:T$p#(T$)4380:430#A14:A$(T$,A,1):450:T(A)16380:430#:B(T(1)4096)(T(2)256)(T(3)16)T(4):#A$"@"A$"G"T(A)(A$)5CA):T9A$(T55):530% A$(T48)+%A$;:ACACAT:B%A$"**SAVE**":585X%1,T,1,A$:680:1d%!ST0w%&400:T8420%+535%0A$"**LOAD**":585%51,T,0,A$:690:1%:ST64195%?405:T8420%D560%I" ":14)A$&&:670)'B07:AC(ADB):505:ADBENADSR:410:1956'" ";:BD':ADAD8['B$:B$(136)195p'495:": ";:650%+535%0A$"**LOAD**":585%51,T,0,A$:690:1%:ST64195%?405:T8420%D560%I" ":14)A$&"DO YOU WANT AUTOMATIC SAVES (Y/N)";A$::A$"Y"90UP"NO AUTOMATIC SAVES...":150Z49456,1:"DISK OR TAPE (D/T)";C$:C$"D"D1:D$"TAPE"d49457,D:D$D$" DRIVE"::"FILE NUMBER (0-99)";NnN$((N),2):N10N$(48)(N48)(xF$"BAC 92,204,3,3,1507?208,10,162,131,160,164,169,70,32,210,255,44,1615n169,78,32,210,255,142,2,3,140,3,3,76,111336,193,32,96,165,134,122,132,123,32,115,0,1180170,240,243,162,255,134,58,144,3,76,150,164,1799 32,107,169,32,121,165,173, ,8,138,24,101,1125@!253,69,254,170,44,198,254,230,252,164,253,208,2349t!"213,138,41,240,74,74,74,74,24,105,129,141,1327!,44,193,138,41,15,24,105,129,141,45,193,162,1230!60,189,43,193,240,12,157,0,4,173,134,2,1147 "@157,0,216,232,208,2392,51,160,193,32,189,255,169,43,1670I#|166,45,164,46,32,216,255,162,1,189,51,193,1520~#168,200,152,201,58,144,2,169,48,157,51,193,1543#201,48,208,3,202,16,234,32,33,193,76,116,1362#164,206,32,208,169,0,170,168,76,219,255,160,1827$1,1A TR H AHOY! MAR'88512ABOOTLANKSPEED 64 UG EP ɠ 128 BUG REP II EE LOROSKLOROS.OBJ PHANTASY3- RAPHIC ROJ JOYFUL IN OYFUL IN WEIGHTY IN MUSICAL IN MUSICAL 2 IN ARCHES IN DISCOVER IN CURTAINS INLINES3-DCROSS.3DCUBE.3DTRIANGLE.3DSQUARE PEN.3DSTAR.3DGEO FORMS.3D LLIST IN LAZER IN LOADER DDLOGO%DIR 1 TRON.3D HE XTRACTOR WAVEFORM SYN HEAR THE BEATSOUR EIGHTSJOYFUL SPIRITS EIGHTY ROBLEM OYFUL PIRITS MUSICAL JOYS MUSICAL JOYS 2 C-128 ARCHES ISCOVER URTAINS LLISTAZER AZELANK INUG EP INBUG REP INVEE KLOROS INPHANTASY IN3-D INCROSS.3D INCUBE.3D IN TRIANGLE.3D IN SQUARE.3D IN STAR.3D IN GEO.3D INTRON.3D INEXTRACTOR INWAVEFORM INHEAR INFOUR 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  X.X1:"KLOROS.OBJ",8,1S53281,.:53280,.:(8)(142)(144)(147):190SU,Q:SF,O:CZ.U:SU,C:A.Z::(SF,OU:2B(.)90:XH(C130)U:SF,B(X):SCSC50(LSU):I$(SC)<PL,32,8:"";:180 FI.F:VBX,38I:8(TW)16:SB,X,43,7:TC,H,R:VBX,50(TU)N(TW)Uk VXWU,.:V39X,NW:VZ,(VZ)B(X):C(VC): A((U)W)E:XX(.):IY(.) MD,Q,D(UX,UI):VVX,(VAW):VVY,(VAWU) VZ,(VZ)B: ("00000"((I$,(I$)U)),Q):A22:Z21:T.:O129Y VCV30:XS50884:YS50897:TC50910:JF50923:CF50930:MD50949:SS50993:SH3 SB51012:SF51043:TF51060:PL51108:LC685:IRQ50176:IQ740:SC.:HI.:LS. F(X)((J)(NW)).:K(X)(F(.)(((VZ)F).)) B(X)(CLEX,I:X.4:T$(X),C(2X),C(2X1)EJ:X.2:I.2:D(X,I):I,X:I.7:S(I):uTX.13:B$(.)B$(.)"#%":B$(1)B$(1)"$&":^XS,24,225:YS,55,230:CF,36,39,24:SB,3,43,7:SB,4,43,7hSF,0:SF,35:TF,0rMD,0,0:MD,1,0:MD,2,1:MD,3,4:MD,:""B$(1):"":X.11:B$(.):B$(1):6B$(.)"":X.20a(13)28)" ";(148)" ";:(13)28)"ý";(148)"";""28)"î"(148)""28)"VEE KLORO"(148)" S"28)"ó"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(148)"":30)"î"?30)" ":30)"ý":31)"î"r31)"SCORE":31)"ž00000":31)"ó"31)"HIGH ":31)"00000":31)"ó"31)"SHIPS":31)"Ÿ ":31)"ó" 31)"FLAGS":A.40:::VBX,51:30 PO ZSU,K:S,O:SF,LWZ:VF,(V):VQ,(VU)Kn dVZ,(VZ)F:SF,EZU: nXE((CZUCL)U):SB,X,38,F:TF,B(X):TC,H,RB(X):V39X,U x30:VZ,B(X),B(X):SCSCVX(LSU):I$(SC):PL,32,8:"";5 180:R(.):. 1070:1120:740:731,2:785,135:786,199W B(7),D(2,2),S(7),T(4,31),T$(4),C(9)m X.7:B(X)2X: V53248:M.:C.:I.:B32:J56320:S54272:VB50168:VX10:VY11:I$"":R.:A. G500:VX10:VY11:U1:W2:E3:F4:Q5:H6:N14:K12:LCOU):L(X)(((VZ)B).)L X(X)((V)(VAW)):Y(X)((VU)(VAWU))w "C(X)((CQ).):CD(X)((C193)U) ,W(X)(CNCKCLCZU):R(X)(U)(HW)U 6X.31:A:T(.,X)A:T(1,X)A:T(2,X)A:@I34:X.31:T(I,X): 4,6:MD,6,0:MD,7,0)|SS,0,1:SS,2,5:SS,3,1:SS,4,1QV28,219:V37,15:V38,11:V41,1~IQ,.:X.31:61720X,.::IQ,1:SS,5,1PL,2,13:" PRESS FIRE BUTTON TO START MISSION "LS.:T.:I.:"";:A.4:PL,3A7,15:T$(A);::990 88,,24,24,219,255,219,219,.,-1186,102,153,170,170,157,102,234? 171,102,153,170,170,153,102,186d170,102,153,170,174,153,102,170170,102,153,174,170,153,118,170(170,42,202,242,252,252,252,2522252,252,252,252,241,197,21,.<|,11,15,CITY 2,11,9 FIRE DIRECTION ARRAY 8,1,2,7,,3,6,5,4, SPRITE POINTERSJ 32,52,33,50,36,33,34,35170,174,153,102,170170,102,153,174,170,153,118,170(170,42,202,242,252,252,252,2522252,252,252,252,241,197,21,.<l A0A1:"LINES",8,1:"L"(34)"3-D"(34)",8h"RUN":"";:198,2:631,13:632,13:REP II EE LOROSKLOROS.OBJ PHANTASY ũ;ЩЩ`ЩЩ` ™`)&&ei&&&)ei)eeee)I0 4x7X` 뷎 뷎31)" ":31)" "&31)"ó"O031)"MILES":31)" ":31)"ý"l:X.7:VBX,S(X)::950DV27,(T.)192:R8(TW)16:TC,6,R:VB4,50(TU)N(TW)UN880:M.:V27,(T.)192XVZ,1281664128:XTC,H,RU30:SHSHU:PL,32SHW,14:" "D(SH.)710:VZ,1,1:960:VB,32:VZ,219jSF,1:X.E:C(VC)::JF,U:630VZ,U,U:VZ,248:PL,9,12:" GAME OVER "920:X.5000::SHE:T.:SC.:VZ,.:740:400 TITLE SCREEN ߒ   ߴ ߒ "M" ߩ ߴ  ó" "   "*" JOYSTICK IN PORT TWO "4" ó"(T2):V35,C(T21):646,C(T21)89PL,(32T2(T2)35),17:"\":PL,32,21:" "hV42,12:V43,12:LC,12:V44,12:V45,12ySCHIHISCI$(HI):PL,32,11:"";:180: RESET POSITIONSV12,220:V14,125:V13,.:V15,130,3T7,15:""T$(T):TIPL,3I7,15:""T$(I) F(.).1000E52545:SH,242:SW,10:SE,O:Y$ COPY CHAR SETn.56333,127:1,518781,9:782,1:90,.:91,216:88,.:89,248:41964B1,55:56333,129LA:A1VX.7:D:61428,.50,126,66,4,8,16,32,126,.51,126,2,2,14,2,2,126,.552,4,12,20,36,126,4,4,.U53,126,64,64,126,2,2,126,.w54,126,64,64,126,66,66,126,.55,126,2,2,2,2,2,2,.56,126,66,66,126,66,66,126,.57,126,66,66,126,2,2,2,.170,168,161,133,21,21,21,21 F21,21,21,21,69,81,84,.*P3,3,10,46,46,186,186,170HZ170,170,170,42,42,10,3,3kd192,192,80,84,148,149,165,165n165,165,165,148,84,80,192,192x TERRAIN TYPES OCEANS,14,6,DESERT,10,9,JUNGLE,7,5,CITY 1 ̙Ι ũ2jƩǍk` ũNjƩōk`ϥϥϥe ϥiAi ϥ ie8ȥ ϰϥee8ϥ ϐϥ NŭυJυ` 4x7X A `΍Ʃ8 2ǭ `mmLi8 Li8LiƩǠʙA˙?̙ ƍƭ88L@ƭ 8΍Ʃ8 2ǭ `mmLi8 Li8LiƩǠʙA˙?̙(VC):X(VC):730,230bIRQ:JF,U l MAIN LOOPSvC(VC):PL,NWF,Z:""M:K(.)50:C(.)660mL(.)150:W(.)110MMU:(MG)630:TTU(TF)Q:LSLSU:SS,Q,LS:580CD(.)670:640JF,.:VZ,(VZ)253:SB,.,38,F:TF,U:" î"G" CLEVE BLAKEMORE PRESENTS... ""    ó""  ߩ       "  "    >" APPROACHING V-KLS,THE MYSTERY PLANET"BH" ó"SR" "36)""\" ý":f NEW TERRAINpIQ,.:X.31:61720X,T(T,X)::IQ,1:PL,31,4z""T$(T):V34,C V,125:V1,215:V2,(V):V3,(V1)900V6,75:V7,.:V8,200:V9,.:S COMPUTERESE - SELECT TERRAINS11,64: S24,15:SU,25:SQ,16:SH,240:SF,17SU,N(.):IT(.)3TT1(T4)5(.)7TT1(T.)5PL 40A8X,D::1100`56578,(56578)3:56576,(56576)252>j53272,(53272)15:648,192:(147)[t53272,((53272)240)12|~53270,(53270)16:(147):28,128,112,127,124,112,64,64,6448,126,66,66,66,66,66,126,.49,8,24,8,8,8,8,                                                X                                           --  ######## 2(  (   2  2( 2(  (  2 2(  (  (    2 2  ( 2    ( ( 2  (   2 2  2        2  22 22 2!!* * !!!* * !!*!* * *  !  *!*!!  *!*!   !!!!!!!!!!!!!!!!       !!!!!!!!(((((##((((V     .((       !!!!!!!!  2075:THE EXTRACTOR) ؙٙڙ!Э ` f ƅ̍x ή  `0ׅbHWH HH`YZ v ` dXȹ 15c2(ȹ 1: 80p R_  c4*.? ! ,dL6 d d 1L L 'c1L 2 aaL L aa(d  a8 d@` ɀ ɠT8 8 )WXX'X8X2 v  h  %L zX'ȩ @ 4 L L 4     ]^` W_ %  ())z LY @ `i i L+ D  Z L) 4 `]I] `^I^ ` f `  L % bT O D  Z L `(bX ^)L IL `   ` . ` h   2     2 22 22 2         2 2  22 22 22 22    PEN.3DSTAR.3D* *!*!*!! ! !!!! ! !!! ! ! ! !!                           !!!!!!!! @*@===================================G@ HEAR THE BEATSf@ RUPERT REPORT #51l@@ C-128 ONLY@===================================@ ""@P1$ "FREQ 1 - FREQ 2 = ### CYCLES PER SECOND" AP2$"1/(FR --PRESS ESCAPE TO EXIT--" : -Bx 0,10,39,24,13BDB 2,F2,32000oBDF(F1(F2))K1 : F1F2K1 DF1DFB P$;DF : PRINT F1;INT(F2)B K$B K$(27) 240 : ESCAPE=EXITB 4739,255 : 4742,255 : RESET V2 TIMER0C F1?V1D 54283,0 : SILENCE V23D "" : RESET WINDOW2,F2,32000oBDF(F1(F2))K1 : F1F2K1 DF1DFB P$;DF : PRINT F1;INT(F2)B K$B K$(27) 240 : ESCAPE=EXITB 4739,255 : 4742,255 : RESET V2 TIMER0C F1 ""14)"FOUR WEIGHTS"G ==================================k COMMODARES PROBLEM #47-1 : FOUR WEIGHTS SOLUTION BY JUSTIN SMALLEY ================================== MX40:BA3 NW((MX)(BA f ` 9 ` v  ` `  9  v  `  .  h    `L ( `ƭƬLn  ɘ `歠(L .  h  v LS hhL   ,)ш`'ш```YZ```ZY`ZY``i(i`8(`i(i`` '  ] ^ `8 [\`[\ `)` ITE d DELETE TO END ? DISPLAY THIS SCREENREADING/APPENDING FILE 1. READ UNCHANGED 2. STRIP EXTRA RETURNS 3. STRIP LINE RETURNS 4. STRIP EXTRA SPACES KEEP HOW MANY? >MARKING DISABLED MARKING UNMARKINGR?AOM@XWFBTED q ~  . B N(W,J);:J,W:OUR WEIGHTS"G ==================================k COMMODARES PROBLEM #47-1 : FOUR WEIGHTS SOLUTION BY JUSTIN SMALLEY ================================== MX40:BA3 NW((MX)(BA@)@ =================================K@ COMMODARE PROBLEM #47-3 :c@ JOYFUL SPIRITSw@ SOLUTION BY@ WALLACE LEEKER@ ===== C-128 ONLY ================-A 0,112,0,0,248,0,1,252,0,3,54,0,3,254,0,3,238,0,1,196,0,0,232,0,3#BZZ(A1)45Bd1,1;ZBn=======K@ COMMODARE PROBLEM #47-3 :c@ JOYFUL SPIRITSw@ SOLUTION BY@ WALLACE LEEKER@ ===== C-128 ONLY ================-A 0,112,0,0,248,0,1,252,0,3,54,0,3,254,0,3,238,0,1,196,0,0,232,0,3EQ 1-FREQ 2) = ##.# SEC PER CYCLE"6A(K116.4 : 1 HZmA2F1300K1 : F2F110K1 : START AT 300 AND 290 HZA< 5);"<><> HEAR THE BEATS <><>"AFAP 1,F1,32000AZKK1 : P$P1$ : K20Ad"EACH KEYSTROKE INCREASES FREQUENCY 2"Bn 5);"F22K1 F2F2K1 : K2K21 : F2F1K1K2 : P$P2$nC (F1)(F2)4 "PRESS ANY KEY TO EXIT" : K$ : 240tCC ---- EXIT ----C 4738,255 : 4741,255 : V1 TIMERC 4739,255 : 4742,255 : V2 TIMERC 54276,0 : SILENCE @ @""12)"WEIGHTY PROBLEM"I@ ==================================m@ COMMODARES PROBLEM #47-2 :@ WEIGHTY PROBLEM@ SOLUTION BY@ DAVID HOFFNER@ ==================================A W140:W:FW:N03:S().1)1F I1NW:W(I)(BA(I1).1):S(I)S(I1)W(I)::N(MX,NW):K1L X W1MXw #DWW(K):WS(K)KK1:35 (N(W,1)W(K):S(D):D(D) -I2NW:N(W,I)SN(D,I1):I,W 2 7W1MX:TT20:(W2)2WTT0: <TT)W"=";:J1NW: hhLU,ȩSȩ,ȥ_Ș  ` o   ` ȹ/  Lu Lx  ` `[08(`ѩҠ  `]'^  ' v ` NAME: NAME TOO LONG TEXT AREA FULL the extractor MARKING: m MARK/UNMARK o TURN m ON/OFF @ ALL TEXT x EXCHANGE t TOP TO CURSOR e CURSOR TO END CURSOR: f FORWARD ONE SCREEN b BACK ONE SCREEN home TOP OF TEXT r READ a APPEND w WR Є ` NAME: NAME TOO LONG TEXT AREA FULL the extractor MARKING: m MARK/UNMARK o TURN m ON/OFF @ ALL TEXT x EXCHANGE t TOP TO CURSOR e CURSOR TO END CURSOR: f FORWARD ONE SCREEN b BACK ONE SCREEN home TOP OF TEXT r READ a APPEND w WRHF3):T(3.1(F3S))C,AT1T2T5)3NBAC(T1):FS:N,WFORM SYN HEAR THE BEATSOUR EIGHTSJOYFUL SPIRITS ,254,8,15,255,28,63,255,140,119,255,252,119,255A240,63,255,192,63,255,192,7,255,192,7,255,192,3,255,224,0,255,248,0,31,252,0,1,254,0,0,0,0,0,0,0,0,0A(C35843648:A:C,A:A21,1A<1,1,2,0,0,0,0AF1,150,150AP:A(1):A0 A8   A254(142)"":53280,9:53281,9:646,0:\10)"L A Z E R M A Z E":w13)"BY JOHN FEDOR":7)"PLEASE FLIP DISK TO SIDE 2"11)"AND PRESS RETURN." K$:K$(13)20 10 A0 A1: "LAZER MAZE",8,1HIS IS HOY!'S MACHINE LANGUAGE ENTRY PROGRAM FOR OUR ADVENTUROUS READERS WHO LIKE TO TYPE IN THESE PROGRAMS FROM OUR MAGAZINE. - URTAINS LLISTAZER AZEHOY!'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.) ISTAZER AZEHOY!'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.) ISTAZER AZE|EE LOROS IS A SMOOTH SCROLLING ACTION PACKED ARCADE GAME SIMILAR TO THE ALL TIME FAVORITE EVIOUS. OYSTICK IN ORT 2. - AY 1987 ONLY! THERWISE USE 128 UG EP.) ISTAZER AZEHANTASY FOR THE -128 IS A MULTI- LEVEL MAZE GAME THAT COVERS NINE SCREEN AREAS. IND THE TWO KEYS AND UNLOCK THE DOORS TO YOUR BED TO ESCAPE. OYSTICK IN ORT TWO. STAZER AZE3- RAPHIC ROJECTOR PRODUCES MULTIDIMENSIONAL HI-RES GRAPHIC IMAGES ON YOUR -64 WITH EASE. EMONSTRATION FILES INCLUDED. - UR BED TO ESCAPE. OYSTICK IN ORT TWO. STAZER AZEXEMO GRAPHIC FOR 3- RAPHIC ROJECTOR. UST BE LOADED FROM THE MAIN PROGRAM MENU. - - EASE. EMONSTRATION FILES INCLUDED. - UR BED TO ESCAPE. OYSTICK IN ORT TWO. STAZER AZEXEMO GRAPHIC FOR 3- RAPHIC ROJECTOR. UST BE LOADED FROM THE MAIN PROGRAM MENU. - - EASE. EMONSTRATION FILES INCLUDED. - UR BED TO ESCAPE. OYSTICK IN ORT TWO. STAZER AZEXEMO GRAPHIC FOR 3- RAPHIC ROJECTOR. UST BE LOADED FROM THE MAIN PROGRAM MENU. - - EASE. EMONSTRATION FILES INCLUDED. - UR BED TO ESCAPE. OYSTICK IN ORT TWO. STAZER AZE 679 JOYS MUSICAL JOYS 2 C-128 ARCHES ISCOVER URTAINS LLISTXEMO GRAPHIC FOR 3- RAPHIC ROJECTOR. UST BE LOADED FROM THE MAIN PROGRAM MENU. - - EASE. EMONSTRATION FILES INCLUDED. - UR BED TO ESCAPE. OYSTICK IN ORT TWO. STAZER AZEXEMO GRAPHIC FOR 3- RAPHIC ROJECTOR. UST BE LOADED FROM THE MAIN PROGRAM MENU. - - EASE. EMONSTRATION FILES INCLUDED. - UR BED TO ESCAPE. OYSTICK IN ORT TWO. STAZER AZEXEMO GRAPHIC FOR 3- RAPHIC ROJECTOR. UST BE LOADED FROM THE MAIN PROGRAM MENU. - - EASE. EMONSTRATION FILES INCLUDED. - UR BED TO ESCAPE. OYSTICK IN ORT TWO. STAZER AZEXEMO GRAPHIC FOR 3- RAPHIC ROJECTOR. UST BE LOADED FROM THE MAIN PROGRAM MENU. - - EASE. EMONSTRATION FILES INCLUDED. - UR BED TO ESCAPE. OYSTICK IN ORT TWO. STAZER AZEHE XTRACTOR IS A SEQUENTIAL FILE HANDLING UTILITY DESIGNED FOR RE- MOVING UNWANTED PORTIONS OF CAP- TURE BUFFERS AND DOC FILES. - TO ESCAPE. OYSTICK IN ORT TWO. STAZER AZEAVEFORM YNTHESIS FROM THIS MONTHS UPERT EPORT COMBINES VARIOUS FREQUENCIES OF SINE WAVES TO SYNTHESIZE OTHER WAVEFORMS. - ES. - TO ESCAPE. OYSTICK IN ORT TWO. STAZER AZEfEAR THE EATS FROM THIS MONTHS UPERT EPORT DEMONSTRATES THE SOUND WAVE PHENOMENON CALLED BEATS. - ESIZE OTHER WAVEFORMS. - ES. - TO ESCAPE. OYSTICK IN ORT TWO. STAZER AZE}OUR EIGHTS A SOLUTION TO A ECEMBER 1987 OMMODARE THAT REQUIRED A PROGRAM TO SOLVE THE CLASSIC BALANCE-WEIGHT PROBLEM. - - ES. - TO ESCAPE. OYSTICK IN ORT TWO. STAZER AZE '********************************M * MENU PROGRAM V2.0 *s"* DESIGNED BY *$* DOUBLE L SOFTWARE *&* (C) 1987 ALL RIGHTS RESERVED *(********************************):53296,1 *AT67 (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 : 632,13: 198,2:F "":AT,2,2:""u %AT,1,5:"(C)1987 OUBLE OFTWARE V2.0" *AT,3,2:"  " /I419 4AT,I,2:2)"  ": ":fAT,3,10:""`pAT,4,10:" "zAT,5,10:""S54272:S23,0:S24,15S6,0:S5,12:S1,70:S3,40S4,0:S4,65:D1100::S4,0:590LC56030(204828:V21,0IAT,12,4:""u"4)" HIS IS A 128 ROGRAM.T MAY ",4)" NOT BE LOADED IN THE 64 MODE."64)" OU MUST SWITCH TO THE 128 "@4)" MODE IN ORDER TO LOA ":1000(AN$:AN$""1670>882:V21,1:225_ ************************** **** WINDOW ROUTINE **** **************************828AT,4,11:""11)"EE NSTRUCTIOR2080\X0882:4100aX22180EbB1H3B1H5B1H8B1H9B1H112155ocB2H2B2H3B2H4B2H72155d IFB=3ANDH=1ORB=2ANDH=2ORB=2ANDH=4ORB=2ANDH=5ORB=2ANDH=9THEN2155e IFB=4 THEN2155f2159k882:15504)"EE LOROS":IN$(1,4)"VEE KLOROS IN": P$(1,5)"PHANTASY":IN$(1,5)"PHANTASY IN"k P$(1,6)"3- RAPHIC ROJ":IN$(1,6)"3-D IN" P$(1,7)"HE XTRACTOR":IN$(1,7)"EXTRACTOR IN" P$(1,8)"WAVEFORM SYN":IN$(1,8)"WAVEFORM IN" P$(1,9)"HEAAL JOYS":IN$(2,2)"MUSICAL IN"3F P$(2,3)"MUSICAL JOYS 2":IN$(2,3)"MUSICAL 2 IN"cP P$(2,4)"C-128 ARCHES":IN$(2,4)"ARCHES IN"Z P$(2,5)"ISCOVER":IN$(2,5)"DISCOVER IN"d P$(2,6)"URTAINS":IN$(2,6)"CURTAINS IN"n P$(2,7)"LLIST":IN$(2,7)" P$(3,1)" ":IN$(3,1)" "/ 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:NN2:B.:5190 d53280,0:53281,1:)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" "RUN": ""  631,13- >AT,20,2:"  "d CAT,21,2:"" HAT,22,1:"" RAT,23,1:" RSR=ELECT PC=ORE /Ґ=XECUTE "\AT,24,1:"Y1Y18:Y1188Y1100+V1,Y1:I0F:LCI,0:?HH1:H12H1SPP1:P18P7sLCLC40:LC56030LC55590|204Y1Y18:Y1100Y1188V1,Y1:I0F:LCI,0:HH1:H1H12 PP1:P7P18#LCLC40:LC55D THIS "%J4)" PROGRAM SUCCESSFULLY. SE THE"QT4)" PRESCRIBED METHOD WHICH IS..."}^4)" OAD ''ROGNAME'' "h4)" [RESS ANY EY] "r4)""|AT,22,3:" NS" 11)"UN ROGRAM ",11)"ANCEL INDOW "K 11)""\PO55507:X0x I116:POI,0::1000*AN$:AN$""20904AN$(17)2200:POPO40:XX1:PO55587PO55507>X2X0HAN$(13)2140oX1882pI035:V,X1I:D135::"zV21,0:2300882:225HI116:POI,5::u P$(1,1)"LANKSPEED":IN$(1,1)"LANK IN" P$(1,2)"64 UG EP ":IN$(1,2)"UG EP IN" P$(1,3)"128 BUG REP II":IN$(1,3)"BUG REP IN"  P$(1,R THE BEATS":IN$(1,9)"HEAR IN"1 P$(1,10)"OUR EIGHTS":IN$(1,10)"FOUR IN"e( P$(1,11)"JOYFUL SPIRITS":IN$(1,11)"JOYFUL IN"2 P$(1,12)"EIGHTY ROBLEM":IN$(1,12)"WEIGHTY IN"7 P$(2,1)"OYFUL PIRITS":IN$(2,1)"OYFUL IN"< P$(2,2)"MUSIC LLIST IN" P$(2,8)"AZER AZE":IN$(2,8)"LAZER IN"D P$(2,9)" ":IN$(2,9)" "p P$(2,10)" ":IN$(2,10)" " P$(2,11)" ":IN$(2,11)" " P$(2,12)" ":IN$(2,12)" " ":IN$(3,6)" " P$(3,7)" ":IN$(3,7)" "O P$(3,8)" ":IN$(3,8)" " P$(3,9)" ":IN$(3,9)" " P$(3,10)" ":IN$(3,10)" " P$(3,11)" ":IN$(3,11 EM DISABLE STOP/RESTORE828:V21,0:ZZ$IN$(B,H)- 2,8,2,"@0:"ZZ$",S,R"9 XX15H 2,TX$(XX)Q :2AT,7,1:""I813:AT,I,1:" "" TB1H3B1H5B1H8B1H9B1H114195-VB2H2B2H3B2H4B2H74195hW IFB=2ANDH=1ORB=2ANDH=2ORB=2ANDH=8ORB=2ANDH=9THEN4195uX IF B=4^882:V21,1`I035:V,X1I:D135::bV21,0:230c882:1550h4160 200,208,205,96,160,0! 185,0,192,153,0,4,185,240&! 195,153,0,216,185,250,192,153J! 250,4,185,234,196,153,250,216n! 185,244,193,153,244,5,185,228! 197,153,244,217,185,238,194,153!  238,6,185,222,198,153,238,218! 200,208,205,9)" "" P$(3,12)" ":IN$(3,12)" ";, P$(4,1)" ":IN$(4,1)" "A s CL718:AT,CL,14:" "::POKE657,128:REM DISABLE SHIFT/COM KEYPOKE775,200:REM DISABLE LISTINGPOKE808,234:RAT,14,1:" [/=ANCEL * PC=UN ROGRAM] "@,AT,15,1:""{1AT,22,3:" ":10006XX15:AT,7XX,3:""TX$(XX):@AN$:AN$""4160JAN$(13)882:204I828935:A:I,A::  160,0,185,0,4,153,0,192-  185,0,216,153,240,195,185,250Q  4,153,250,192,185,250,216,153u  234,196,185,244,5,153,244,193  185,244,217,153,228,197,185,238  6,153,238,194,185,238,218,153  222,198,6!FI9601022:N:I,N::!P 0,0,0,0,0,0,0"Z 0,0,0,0,0,0,0'"d 0,0,0,0,0,1,192?"n 0,0,224,0,0,112,0]"x 255,252,0,255,255,0,255w" 252,0,0,112,0,0,224" 0,1,192,0,0,0,0" 0,0,0,0,0,0,0" 0,0,0,0,0,0,053  222,198,