x?  8!!C? <@@@@,$LD|cL@DNOTHER SOLUTION TO NTERNAL ELETION. (EE NTERNAL EL 1.) - - - **G %i &AT,20,10:" REATING ";TL$ 02,8,2,"@0:"TL$",S,W" :A15 D2,TX$(A): N2 XAT,22,9:"NYMORE ENTRIES"; b AN$ lAN$"N" v10 } ~ **** ?JNOTHER"-128 SOLUTON TO:NTERNAL ELETION. (EE NTEW21=e2sd+36?"!lf;3f"`&:b&3`:"o7b"0:e2d>33;6&!2"r$7o"v$" '#v3OLUTION TO THE UNE '87 OMMODARE REQUIRING A PROGRAM TO GET A YPOTHETICAL LOG ROLLER TO SAFETY IN A SPECIFIED NUMBER OF STEPS. - ,S,W" :A15 D2,TX$(A): N2 XAT,22,9:"NYMORE ENTRIES"; b AN$ lAN$"N" v10 } ~ **** ~~33 ``  Ƈ0 A -64 SOLUTION TO LIFF ANGER. (EE CLIFF HANGER 128.) - - - YPOTHETICAL LOG ROLLER TO SAFETY IN A SPECIFIED NUMBER OF STEPS. - ,S,W" :A15 D2,TX$(A): N2 XAT,22,9:"NYMORE ENTRIES"; b AN$ lAN$"N" v10 } ~ **** OLUTION TO THE UNE '87 OMMODARE REQUIRING A PROGRAM TO SEARCH ? THROUGH A LIST OF WORDS TO FIND THE ONES THAT MATCH A WILDCARD SEARCH WORD. D2,TX$(A): N2 XAT,22,9:"NYMORE ENTRIES"; b AN$ lAN$"N" v10 } ~ ****uOLUTION TO THE UNE '87 OMMODARE REQUIRING A PROGRAM THAT USES TWO KEY WORDS TO ENCODE OR DECODE AN INPUT WORD. - T MATCH A WILDCARD SEARCH WORD. D2,TX$(A): N2 XAT,22,9:"NYMORE ENTRIES"; b AN$ lAN$"N" v10 } ~ **** ?ఘ333? `` DĎb@?zROM IPS HOY! MACHINE LANGUAGE ROUTINE FOR THE 128 THAT CAUSES A RIPPLING EFFECT ON THE HI-RES BIT MAPPED DISPLAY. - CH A WILDCARD SEARCH WORD. D2,TX$(A): N2 XAT,22,9:"NYMORE ENTRIES"; b AN$ lAN$"N" v10 } ~ **** ?ROM IPS HOY! ROUTINE THAT LETS THE USER CHANGE THE PROMPT TO ANYTHING HE LIKES - UP TO SIX CHARACTERS IN LENGTH. - WILDCARD SEARCH WORD. D2,TX$(A): N2 XAT,22,9:"NYMORE ENTRIES"; b AN$ lAN$"N" v10 } ~ ****ROM IPS HOY! RELOCATABLE MACHINE LANGUAGE UTILITY THAT ENABLES YOU TO PAUSE THE -128'S OPERATING SYSTEM BY HITTING THE KEY. SEARCH WORD. D2,TX$(A): N2 XAT,22,9:"NYMORE ENTRIES"; b AN$ lAN$"N" v10 } ~ ****K  Ƈ0 eg DD((DDDD fROM IPS HOY! UTILITY THAT DISPLAYS AND PRINTS A TWO-COLUMN HEX DUMP OF A GIVEN MEMORY AREA. - - G SYSTEM BY HITTING THE KEY. SEARCH WORD. D2,TX$(A): N2 XAT,22,9:"NYMORE ENTRIES"; b AN$ lAN$"N" v10 } ~ **** ????? " "000qb  $44,,DDGDyAAqA??_ 0ఘఘ`aa`aaa̘```8 ???????xxxxxxxχ?   >> ?~ >  H PHE8@8??HI |x???????? ????????8,$$, qIIqQ$$D0$y? !!!ఘ``` ?????xxx ~ ? IIIIIy$$$ 00!!$$bbHHO <FEDpp C!!! ??{3? ```8``|8a`????????8I#qXHHςpHHp!! ??? ?>< qa'$$$'  ? ``??????8xx"6*"""HIHHH1"" | !! '%   @|>|>><||? !! ?aaa```aa`8????????0IIx Xq ? @"@ *** BYTES 'R' US (128) ***H@S3072: *** CHANGE S TO RELOCATEV@(147):u@JSS28:A:J,A:XXA:J@X3513"ERROR IN DATA...":@"DATA OK. SYS"S"FOR BYTES...":@32,69,168,166,45,232,232,134,251,173,16,18A56,229,251 @@ TWO COLOR BORDER5@ I828 892: A:I,A:>@828@( CHANGE THE SECOND NUMBERS IN LINES 80 AND 90 FOR DIFFERENT COLORS@2 169,27,141,17,208,169,127,141,13,220,169@< 86,141,20,3,169,3,141,21,3,169,129 AF 141,26,208,96,169,1,141,2R@&@ 1,(27)"JCOLOR4,"(13)N@2,(27)"JDLOAD"(34)(13)  EPROM TESTER- BY DAVID S. KRAUSEMX34003450:Y:X,Y::""}("(LOAD EPROM AT OR ABOVE 3500 DECIMAL)"2"EPROM START ADDRESS";S$<"EPROM ENDING ADDRESS";E$FS(S$):E(E$):A(S256):B(S256A)256 PC(E256):D7,251,201,255,208,26T 165,252,197,254,208,12,165,251,197,253,208,6,169,7,133,2,88,96 160,0,177,251,201,255,240,6,169,33,133,2,88,96,230,251,208,208,230 252,208,204,88,96";E$FS(S$):E(E$):A(S256):B(S256A)256 PC(E256):D  Z198,0'dI0I1:"DDLOGO",8,14i53280,2Gn55,0:56,92:Ux53265,59d53272,120|56576,(56576)25425055,0:56,16053265,2753272,2156576,(56576)1"";:53280,6:53281,0:(14); "OADING  54279,LO(X)45:54280,HI(X))  N1 DU(X)G 54286,L3(B):54287,H3(B)Q BB1c  L1 145:k  Ns  X| 350 S54272:I024:SI,0::155  16,195,21,31,25,30  28,49,21,31,28,49  33,135,37,162,25,30  33,135,71,12,143( 6,71,12,143,6,71,12,143,6,71,12,143R 6,71,12,143,6,71,12,143,6,71,12,143| 6,71,12,143,6,71,12,143,6,71,12,143,1,4,4,2,2,8 : 4,2,2,2,2,2,2,2,2,2,2,2,2,2,2 D 8,97,16,195,8,97,16,195,8,97,16,195 N 8,97,16,195,8,97, \''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////R 15 C0 CC26 : 164 M65 M90 CM64J (C64); : 10DARES PROBLEM #42-4 :~ DOUBLE SUBBER SOLUTION BY BOB WILCHER =================================="ENCODE OR DECODE (E,D)";ED$ ED$9,170,172,17,18,176,1,136,152,563A 229,46,76,50,142H-ALTUO-RINTLL-AM AVERADAR 128YTES '' S 64BYTES 'R' US 1285,208,162,55AP 160,0,173,18,208,201,10,176,4,162,146bAZ 160,1,140,32,208,142,18,208,173,13,220Ad 41,1,240,3,76,49,234,76,188,254 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 (E256C)256O ZSE"(ERROR-START CANNOT BE GREATER THAN END ADDRESS)":50o d251,B:252,A:253,D:254,Cy n3400 x(2)7"SPECIFIED ADDRESSES ARE FULLY ERASED" (2)33"ERROR IN ADDRESS";:(251)256(252)  120,160,0,17   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, ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaar'''''''''''''''''''''rrrr'''''''''''''''''''''rr 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) | bcefQSWX 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  0,1: 4,1; ==================================_ COMMODARES PROBLEM #42-1 :{ INTERNAL DELETION SOLUTION BY TIM GAASTRA ========= C-64 VERSION ========== - FOR C-128, REPLACE 631, 638, 198!  53280,0: 53281,0B ==================================f COMMODARES PROBLEM #42-1 : INTERNAL DELETION SOLUTION BY CLAUDE LANDUSKY ================================== 10 20A2049 : <<<  0,1: 4,1: ==================================^ COMMODARES PROBLEM #42-1 :z INTERNAL DELETION SOLUTION BY CLAUDE LANDUSKY ================================== 10 20 A7169 : <<< USE A=7  53280,0: 53281,0B ==================================f COMMODARES PROBLEM #42-2 :} CLIFF HANGER SOLUTION BY CRAIG EWERT ==================================  RS$(20):I119:RS$(I)"FELL OFF AT PO ============================3 | - CREATE ARRAY OF 50 ODDR  INTEGERS FROM 1 TO 99\ T0TI|  : "WORKING ON ARRAY ..."  K1 NUM A(K)2K1 :   -INSERT EVEN INTEGERS N WITH  SUBSCRIPTS 2-100 BY 2'S P2 : POu(Z)P: RS$(X)3Z S "SUCCESSES OUT OF" T "TRIES"Kd K$ : K$"" 40dn K$ : K$"" 110mx 40FF HANGER SOLUTION BY CRAIG EWERT ==================================  RS$(20):I119:RS$(I)"FELL OFF AT PO  53280,0: 53281,0A =================================c COMMODARES PROBLEM #42-2z CLIFF HANGER SOLUTION BY JIM WILSON ===== C-64 ONLY ============== 2040,192:53269,1:X1228812350:X,0:6 <"î"(13)" "NF"ý":X1172:Y1123P"";16)"î ý"Z53248,X1:53249,Y1d((1)2)1X1X14:"SHUFFLE RIGHT":MM1:120nX1X14:MM1:"SH  53280,0: 53281,0B ==================================f COMMODARES PROBLEM #42-3 :~ WILDCARD WORD SOLUTION BY JIM SPEERS ==================================dNW10 : LIST,LOOK,LOST,LAZY,LUCK,LUCY,yK0 "NO MATCH FOUND"/"ANOTHER WORD? (Y/N)"^ Z$ : Z$"" (Z$"Y" Z$"N") 200q Z$"Y" 120D WORD SOLUTION BY JIM SPEERS ==================================dNW10 : LIST,LOOK,LOST,LAZY,LUCK,LUCY, INTER TO NEXT ELEMENT%  - MOVE ALL ITEMS UP>  KNUM1 P1 1R A(K)A(K1) : m  - INSERT NEW INTEGER A(P)P : PP2 : P2NUM 490  - DELETE ODD INTEGERS P1 : LASTNUM2 & - MOVE ALL ITEMS DOWN 0 KP LAST1 IN LINE 30 WITH 842, 849, 208' 0 109 20_ A842 849: B: A,B:: 208,8# 50,48,13,82,117,52,48,13:( CD46-9INSERTS1 USE A=7169 FOR C-128K (A2)10 (A3)0 A(A)256(A1) : 31S BAu! (B2)40 (B3)0 35"B(B)256(B1) : C(X)B : XX1 : 33#A,(C(X2)):A1,(C(X2)1): Y0 X2: C(Y)4,143:(169 FOR C-128C (A2)10 (A3)0 A(A)256(A1) : 31K BAm! (B2)40 (B3)0 35"B(B)256(B1) : C(X)B : XX1 : 33#A,(C(X2)):A1,(C(X2)1): Y0 X2: C(Y)4,143:(1 SITION"(I):>RS$(0)"SAFE ON LEFT":RS$(20)"SAFE ON RIGHT"oSF$(0)"SHUFFLE LEFT":SF$(1)"SHUFFLE RIGHT"(TT1:X10:I125:Y(1):XX1: Y.5 XX22Z(Y2): X0 X20 I25:SS1<"S...................S"F""X)"*": SF$  53280,0: 53281,0B ==================================f COMMODARES PROBLEM #42-4 :~ DOUBLE SUBBER SOLUTION BY BOB WILCHER =================================="ENCODE OR DECODE (E,D)";ED$ ED$:A(K)A(K1) : DLASTLAST1 : PP14N LASTNUM 560HX - PRINT ARRAYNb^l K1 NUMnv A(K); : TA(TIT0)60 :  "ARRAY TOOK " TA "SECONDS"-INSERT EVEN INTEGERS N WITH  SUBSCRIPTS 2-100 BY 2'S P2 : PO X12289 12311 3:Y:X,Y::24,24,18,124,88,20,100,0v" ";(T113:"  ";:2"  ";:2023,160:56295,12)UFFLE LEFT "x53248,X1+""17)"MOVE";MRX1136"SAFE AT LEFT ": 180yX1208"SAFE AT RIGHT": 180M25X123255:53249,X:: 180 T1 150:: 100 K$ : K$"" 180 ";:2023,160:56295,12) PAST,POST,LICK,BOON.n I1 NW : L$(I) : Cx"ENTER WORD";W$d W$: K0 : I1 NW : E0 IF LEN(L$(I))<>LEN(W$) THEN 180 J1 (W$):X$(W$,J,1): X$"*" 170 X$(L$(I),J,1) E1 J: E0 L$(I):K1 I: "D" ED$"E" 74 "MESSAGE,CODE1,CODE2";M$,A$,B$O PMPM1: PM(M$) m PAPA1: PA(A$) PA1 PBPB1: PB(B$) PB1 M((M$,PM,1)):A((A$,PA,1)):B((B$,PB,1))CMAB192: ED$"D" CMA64 C26 CC26 : 200,-150H LAND OWNERSHIP PER KINGDOMH IN FURLONGSI 75,175,400,250,125,325,800,550#I SEASONAL COLOR CHANGES1I 6,8,9,2jI4,14:.,12:5,14:"":2604,22: :(12)(142):475G4 AVERAGE PRICING RANGESG> 50,75,75,500,100 "F SEASONSF "PRING ","UMMER ","ALL ","INTER "G  SEASON ADVANTAGES#G "OSS!","O HANGE.","AIN!">G  SPECIALIZED PRODUCTStG* 7,400,6,250,4,840,0,220,1,325,5,500,3,900,2,475G4 AVERAGE PRICING RANGESG> 50,75,75,500,100 ETALS","ORSES","LAVES","OOD RODUCTS","ABRICS","AND HARES"D TRADERSiE "LERIC","ONK","MPEROR OHOLLA","ERLIN","ARLORD KUZA","OMBIE ASTER","WARVE ULER","RC ING"vE DEMANDE "O","EGLIGIBLE","LIGHT","OW","EDIOCRE","I 206BN X & Y DELTA VECTORSBX 0,-1,1,-1,1,0,1,1,0,1,-1,1,-1,0,-1,-1 Cb LOCATIONSCl "LERIC'S EMPLE:ONASTERY","ONK'S TOREHOUSE:ONASTERY","ASTLE OHOLLA","ERLIN'S EEP","ARLORD'S OLD","OMBIE OWER","OUNTAINS OF IRE"Cv "INGDOM 26@40,8,62,93,8,127,62,73,28@41,24,50,55,125,188,162,34,68A42,24,24,60,90,153,36,66,195>A43,2,255,32,255,2,255,32,255bA45,170,85,170,85,170,85,170,85A47,36,,16,68,,16,130,16A58,255,2,255,8,255,32,255,128A59,,,,,,,,25,11> 160,,169,250,162,14,32,116?" 255,162,,32,119,255,200,208"?, 241,206,54,11,240,7,230,251 ( ( ( ]&%<<>&%&%&<<> ";!;d" <> ? < > ( ( ](&%<^><_<<><^><_";\;n"< ><=>< <> > ( (&&%%+#+ <@><+#+ _";;x" <>< >< ><><>//////&&%%%+++ +++ +++ _";;"<>< -@- ><>< ><>]/]//%%%%&+#++<<<<_ "; 9 "##+#+ #####<_]  _ \:::\&%&+<+<<_";J9" [+++ [ [<< +#+ > ]%&%&++++ _";9"[ +@+ _[ << +++<<> \%&%&%+#++  ";9(" +6+< << (<+#+><<<> :::::4++++ " =========================== LINKED LIST SHOWOFFW RUPERT REPORT #46x( ==========================2NUM50 : NUMBER OF ODD INTEGERS< NFO(2NUM),LNK(2NUM),A(2NUM)F - CREATE LINKED LIST OF 50 ODD P INTEGERS FRLNK(PREV) : LNK(PREV)NXT7 NFO(NXT)N : LNK(NXT)OLDLNKO PREVPREV1 : NN2t NXTNXT1: LNK(NXT1)1 180z - DELETE ODD INTEGERS FROM LIST THEY HAVE SUBSCRIPTS 1-50 FIRSTLNK(1) : MOVE FIRST POINTER KFIRST : L,150,60,40,400GH SPRING CHANGESGR -20,-25,-25,-100,+100,+200,+25,-25,+125H\ SUMMER CHANGES2Hf +10,.,.,.,+50,+50,-20,-30,-50EHp FALL CHANGESgHz +50,+25,+25,+75,.,.,-50,.,.|H WINTER CHANGESH +100,+100,+100,-50,+300,-100,+200,+GH","ERY HIGH","XTREME","NCREDIBLE"E CHOICES+F "UY","ELL","EASONAL HANGES","NQUIRE","NVENTORY","ID AREWELL"EF BARGAINING COMMENTSF " LET THEM GO AT "," GIVE THEM AWAY AT "," TAKE OFF YOUR HANDS AT "," CONSENT TO GRANT YOUOF THE RCS"C TRADING COMMENTSoD "ET THEE HENCE,FOOL!","O BE IT.","ELL IT IS.","ELL AND GOOD.","INE,THO...","HOU ART A SHREWD ROGUE.","EA GODS!"," POX ON THEE!","URSE THOU!"D TRADE COMMERCED "RTIFACTS","EAPONS","RMOR","ARE5A60,1,2,4,8,16,32,64,128A61,17,170,68,16,132,,34,16B62,128,64,32,16,8,4,2,1,B63,36,,16,68,,16,130,16IB&94,1,2,4,8,16,32,64,128uB0102,126,000,000,249,249,000,000,126,-1B: COPY CHARACTERS TO LOWERCASEBD 233,105,223,95,105,192,38,148,88,58,29,120,152?h30,255,,,,,,,.@r31,128,128,128,128,128,128,128,1281@|35,36,255,36,36,36,36,255,36S@36,,60,126,66,124,126,66,126u@37,2,132,127,2,20,168,71,136@38,49,74,132,250,129,80,40,199@39,,,24,18,28,153,255,1=I.7:10240638I,(81926387I):T>I.7:10240378I,(8192388I):10240388I,(8192378I)::102402881,192:102402882,252:w> 169,,133,250,133,252,169,208> 133,251,169,32,133,253,169,252> 141,185,2,169,16,141,54+#+++#+ _";<"((>(-7-(<(]>((<((>]//&%&%%%+++#+++#+++ _";Y<"]](((///]](]]](/]]//%&&%%%&+#++$8$++#+<"<"]((]///////////////%&%%%%::::::::::::>";<< REDEFINED CHARACTERS=15:SUM "; :2" [ [<<( (<^+++^><<< %%&%ߛ+#++ ";C:<" << <^^+5+^^>< \%&%&% ";|:F"## ###< ( ^^^^ ^^^^ ]%&%&& ";:P" ( (]&&%%&%&%&%&%&";:Z" < OM 1 TO 99 ZT0TI6 d"WORKING ON LINKED LIST ..."F n K1 NUMh xLNK(K)K1 : NFO(K)2K1 : LNK(K1)1 : LAST LINK - INSERT EVEN INTEGERS N INTO LIST WITH SUBSCRIPTS 51-100 NXTNUM1 : PREV1 : N2 OLDLNK NK(1)1) OLDLNKLNK(K) : LNK(K)LNK(OLDLNK)< LNK(OLDLNK)1[ "KK1 : LNK(K)1 270a ,{ 6 - PRINT LINKED LIST @KFIRST J NFO(K); TKK1 : LNK(K1)1 330 ^TL(TIT0)60 : h "LINKED LIST TOOK "TL"SECONDS" r  :3 COMMERCE TYPE4BM18:NM9:"":A$" OMMERCE: ":400404 MAIN DISPLAY WINDOWD41,5,38,16,1:d4 SET CONVERSATIONAL WINDOW4$1,18,38,23,1:OF$;:4. GET VALUE FROM 1-1000 JOYSTICK48:(2).:BG.::"#####";BG;:J(2 1:S(A,8);"FURLONGS AT ";:5,A1:HI$;"$";AP(8)CH(SS,8);" APIECE."21040:MA$:J.8:5,J2:1)A$(18J)26)"$";:"####.##";(AP(J)CH(SS,J)(1));:JIM1" ":ՙ2:8)"RESS FIRE TO CONTINUE.";::(2)127:2 INVENTORY2950: NING!":F0*5,A1::"";A$(26A);S$:1,5000,20,1,10,1000,.:BGBPIC8SR8:ՋBGBPSR((BGBP)IC):SR.04(34);"YE,";A$(9SR);(34):"OLD.":S(A,IM1)S(A,IM1)NI:T(A,IM1)1:CSCS(NIBG):N(IM1)N(IM1)NI: 4:940:0> SEASONAL CHANGE .";(34):Q.BPAP(IM1)CH(SS,IM1):IC(BP8):WR.:BG.:ASKBPIC::"";A$(26A);S$:5,A1:(34);A$(52.5(1));t."#####";ASK;:" EACH.";(34).BG.::5,A1:"OUR FFER? $";:ULBPIC8:1080::BG:BGASK(IC.5):ՋBGASKIC3ASKACSNIBG5000(34);"HE ERCHANT UILD CAN ISSUE YOU NO MORE THAN 5000 DOLLARS WORTH OF DEBT NOTES.";(34):,(34);"YE,";A$(17SR);(34):"OLD.":S(A,IM1)S(A,IM1)NI:CSCS(NIBG):N(IM1)N(IM1)NI: 4:940:,, SELL8-1010:15(1));*X"#####";ASK;:" EACH.";(34)c*b"OUR FFER? $";:ULBPIC8:1080::BGASKIC.5:ՋBGASKIC4ASKBGIC*l1,22000,10,2,900,2000,1:5,A1:BGIC8SR8:SR(BGIC)*v:""A$(26A);S$:5,A1:(34);"AY,";A$(17SR);(34)1+' BUY\(&1010:1060:"";A$(26A);S$:5,A1:IM9(CS)1(34);"OU CANNOT BUY LAND ON DEBT NOTES.";(34):(0T(A,IM1)(34);"E DO NOT DEAL IN ";A$(17IM);".";(34)::ՙ(34);"OW MANY WOULD YOU LIKE TO PURCHASE.";(34)):(34);"E HAVE&J5IMIM1:IMNMIM.&&J1IMIM1:IM.IMNM1X&.,(18((A$(BMXM))2)),XM2,OF$A$(BMXM):a&410& HANDLE INDIVIDUAL LOCATIONS&AA48:4,1:5,A1:(147);B$;(14):J123:"@"39)"@"::.,1,17,(B$,38):.,39,23,B$:2023,.:56O(C),K:O(S),I7$hHTH:(H);:(2)127D(.)490:1200:.,X,Y,"*"c$r::"";(7);:950:J(N(8)2700)100$|""10)" EAR'S END ESULTS ":"OU HAVE AQQUIRED ";:"###";J;:"% OF THE MPIRE!":1150:990:2250$ MENU SUBROUTI(<^^^^<_ ( ] ] ( (((< <_< <_"&7" +++++ _( ] ( ( ( ;;_^_;_^__((";`7" ( ( +[+[+ _ (( ] ( ( < <_ < <___ ("7" ] +1+2+< ( ( (] ( (++ _ ++ < _%%";7"] ] ( ](](&)4BJ1BGBG10:BG.BG. 5LJ5BGBG10:BGULBGUL)5VJ3BGBG1:BGULBGULE5`J7BGBG1:BG.BG.]5j"";:J127:k5t FANFARE5~R$"V3O2WGV2O44W$BV1O5W$EV1O5WFV2O4W$BV3O2WFV3O2H$EV2O4H$BV1O5HGQ$EV2O4HGV3O2HCV1O5QGV1O5HFV990:"31040:IA$:" ":J.8:5,J2:1)A$(18J)26);:"#####";N(J)::"0"M38)"RESS FIRE TO CONTINUE.";:10603""13)"ASH ON AND":13)" $";:"######.##";(CS);:" ":(CS)116)"!EBT!":ՙ16)"REDIT"33:(2)127S1H1010:1060:5,IM1:A$(17IM):J14:5,C(J):HI$;A$(53J);Q1R"####";(CH(J,IM1));:OF$;2)A$(59(CH(J,IM1)))Y1\:g1f INQUIREw1p1010:10601zIM9JT(A,IM1):""A$(26A);S$:5,A1:(34);A$(35J);" DEMAND.";(34):91025,ASKIC3/ 1,22000,10,2,900,2000,1:5,A1:BGBPIC8SR8:ՋBGBPSR((BGBP)IC):SR.r/:"";A$(26A);S$:5,A1:(34);"AY,";A$(9SR);(34): 3/ WRWR1:WR10::WR11BGASKIC.5:"";A$(26A);S$:5,A1:(34);"AY!NOUGH OF THIS BARGAI060:N(IM1)."";A$(26A);S$:5,A1:(34);"OU DO NOT HAVE ANY ";A$(17IM);"!";(34):[-NI(N(IM1)(T(A,IM1).124))w-"";A$(26A);S$:5,A1-NI(34);"E WILL BUY ";:"####";NI;:" ";A$(17IM);" FROM YOU.";(34): 3:ՙ(34);"O THANKSWRWR1:WR10::WR10BGASKIC.5(34);"AY!NOUGH OF THIS BARGAINING!":+"";A$(26A);S$;:5,A1::1,5000,20,1,10,1000,.:BGIC8SR8:SR(BGIC)+IM9(CSNIBG)1(34);" DO NOT ACCEPT DEBT NOTES ON LAND,MY FRIEND.";(34):Q, ";:"####";S(A,IM1);:" ";A$(17IM);" TO SELL.";(34))D"ELECT # TEMS ";:ULS(A,IM1):1080::BGNIBG:5,A1::(34);"H,WELL...";(34):)NBPAP(IM1)CH(SS,IM1):IC(BP8):WR.:BG.:ASKBPIC8::"";A$(26A);S$:5,A1:(34);A$(50.295,A'(19);20((A$(A))2));HI$;A$(A)N'A$"EPRESENTATIVE "A$(26A):21((A$)2));A$'21((18(A$(26A)))2)15);"";(L$,(A$(26A)));""'1040:BM44:NM6:A$"ERCHANTRY":400:IM6E.:4,C(SS)::ՑIM550,710,840,880,940:530NEQ%(147)"";18((A$)2))HI$;A$::IM.NM1:5,IM2:18((A$(BMIM)))2);A$(BMIM)::IM.%XMIM:5,IM2:.,(18((A$(BMIM))2)),IM2,HI$A$(BMIM)%J(2):J.420:1,5000,1,.,,,.%J1281,15000,20,2,200,9000,.:IMIM1:XM(1):++<^^++ <%%%";8" (]; ] ] ] ( ](&&+++++++ <&%%%";V8" ] <<>( ] ] ](%&&++$3$++<%&%%%";8" <^><_] ] ] ](%%&\:::\&%%%%%&";8"] +++ _ ]  Β_ ](%\:::\&% 2O4H$BV3O2HDH$BV2O3H$BV1O4H$B"K6RE$"V1O5QGV2O4H$BV3O2H$EV1O5Q$BQFV2O4H$BV3O2QDQCV1O5Q$EV1O5HDV2O2HGV3O1H$BHGV2O2H$EV1O4H$B"x6 10:8: .,3,.,15,.,1: 1,2,3,13,6,.,16"V1T0X0V2T0X0V3T1X0":R$:RE$:RE$:6 MASTER MAP6" ( 3# A0 A1: "PLATFORMS",8,1/ 49152 PRG 1 "PLATFORMSSC" PRG  "PLATFORMS" PRG  "PLATFORMSML" PRG  BLOCKS FREE.   9ƅ:;;<9;@e99:i:e;; )piFHŭ)ř))NžũwعŝwxةWxĩ6ũ>ũH LL~NH}Dɸ HL6¹NI)Nň`G7)V]Q]8i7Ž@i?ŭ)ō(Щ\ōG)JJ ]Gm\ōG8HŰ \ũ2T`[ ()LnÍZō[ŭ) JJ`Ū [ť9uFyFť).`6y xwmbōb`ԠԢōԭ)ō `)?-T#) Tŭ[ a _ŭ `dd`c mcŨuc`dŢԹv Թwƍc` H8i:0h  : Ȍ `  LLĠ 00000 LIVES 3 HIGH 000000 100 250 500 500 250 100 PRESS ANY KEY!!!!UTPA@iU&T%DH<0 &@@`&@@&@@ `0< &=: 3: 3: 3&@@`&@@&@@ `0< && EMPIRE/BY CLEVELAND BLAKEMOREK (C)1986 FOR THE C128 COMPUTER^ VERSION 2.6(.,1:4,1:1,1:5,3:1,1:.:(11)(19)(19)(142)(147);:1402 TITLE SCREEN<5)"ɠ" F5)" ˠBLAKEMORE":17)"[C128]"B14)"PLEASE WAIT...";:1470:180l"";:X.36:"";::""(148)""X.22:" "38)""(148)::"";X.36:"";::""(148)"": INITIALIZATION DX(8),DY(8),A$(60),N(8),S(8,8),T(8,88,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)58)) D(J)(A47A58)A5 B(J)(X39X.Y24Y.((S(S))B(S(S))BR(S(S))W(S(S))P(S(S))F(S(S))UN(.).)) J18:DX(J),DY(J)::J160:A$(J):G!HI$(18):OF$(146):C$"=":L$"":B$"":X.39:C$C$"#":LFũ[ŭ) bb ĭ^^L98(5ō^ :  iĭ_ LU) FFŭFP? 5ĭbPF6ԍԢ ԩ ũԢ ԩ< 1+L[ ŽxWL Ĭ5(5LƢ g   >y  6ō>LM`I)`Zi[i Zō[Š8FH+86ŭ>Ő6ŭ>ŰT[Ōa``aŹHōFť)T) JJ?6}Ņ>}Ņ8ťŐ!ťŰ>ť6)JJō`)`86>JfFFxW]x 0`eŢ` Fřн6řЭ=mŨ>)eŨ`L, @߿??L,5mM % 22    @@  2  SCORE 0 (&PP &@@&PP ` <0&@X!@?<0 &: 3: 3: 3& 3: 3: 3:&3: 3: 3: &8:AP(J)::J14:Y.8:CH(J,Y):::J18:S(J,8)::J14:C(J):i"1,21,38,21,1:10)"PRESS FIRE TO BEGIN";""X.:Y1::8192328X,.:8192328Y,60:XX1((X7)8):YY1((Y7)8):(2)127",X.7:8192328X,.:"6 MAIN LOOP,#@  "5P5)"ɠ ɠ "_Z5)"ˠ   "d5)"      "n5)"ˠˠˠ":16)"[C] 1986"x11)"A TRADING ADVENTURE":8)"BY CLEVELAND M.  ),AP(8),CH(4,8),C(4)S1024:C55296:L40:M42:B32:X.:Y.:I32:K.:AI:V.:J.:OX.:OY.:T156:BR58:W37:P38:F94:U47:H14:SS.:SC.:CS500.00:BG.:WR.:NI.:BP.S(J)JX(YL):J(X)(2)15:O(J)JOX(OYL):N(J)(((S(S))47(S(S)X.:Y.:1200:.,X,Y,"*":1150:SS14:4,C(SS):SC.250#JJJ(.):OXX:OYY:JXXDX(J):YYDY(J):B(.).IA:KV:A(S(S)):V(S(C)):1,2000,1:XOX:YOY:J.T:#TA47M41:ՋA37A38M39:M42#^XOX YOY.,X,Y,(M):S(C),15:$L$"^":B$B$"@"::MA$" ER TEM URRENT EALM ALUE ":S$" SAYS..."!IA$" YPE OF OMMERCE # IN NVENTORY ":"0"!J(1):X18:J:T(X,J)1:RX:S(X,J)RX::J18:Y.7:T(J,Y)1T(J,Y)(((1)8)1):T(J,Y).:"::J. Ѝ!  < ة 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:B06356 (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,95169,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,254272,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"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,173 55,169,0,13953#|174,94,20,168,32,186,255,169,45,174,16,18,1351f#172,17,18,32,216,255,162,1,189,96,20,168,1346#200,152,201,58,144,2,169,48,157,96,20,201,1448#48,208,3,202,16,234,32,49,20,141,0,2,955#76,183,77,58,59,32,65,20,206,32,20A H AHOY! OCTOBER872ABOOTERLANKSPEED 128 BUG REP II 64 UG EP ɠ PRAY-AMSPRAY-CAM LATFORMSPLATFORMS  INTERNAL 2 IN CLIFF IN LIFF IN ILDCARD IN OUBLE IN PHASE IN EADY IN H-ALT INEMPIRE.OTFOOTHOTFOOT AM TTACK 64 JAM ATTACK 128 64 RIVE INKED ISTNTERNAL EL 1 UO INLL INRADAR INYTES INBYTES INWO INCOLOR IN IN INTERNAL DEL 1 NTERNAL EL 2 INTERNAL DEL 2 CLIFF HANGER 128 LIFF ANGER 64 ILDCARD ORD OUBLE UBBERPHASE-IN EADY R OTH-ALTUO-RINTLL- AVER RADAR 128YTES '' S 64 BYTES 'R' US 128 WO OLOR ORDER COLOR KEY  ESTER LOADER DDLOGO%DIR 1PRAY INLATFORMS INEMPIRE IN OTFOOT IN AM IN JAM INAMDRIVE ININKED INNTERNAL 1 ININTERNAL 1 IN NTERNAL 2 IN 7 (147)"LOADING AND CHECKING THE DATA...":J49152TB011:A:A0A25540sJB,A:XXA:B:A:AX50(:"ERROR IN DATA LINE:"(64)256(63):2X0:JJ12:J4945620<198,0:49456,0:A$"Y":B$A$:C$"D":D$"DISK":D8:(147)3F KUP"::"FILENAME";F$:F$N$(F$,14):L(F$)W49458,L:J1L:49458J,((F$,J,1)):J:"SAVING DEVICE ** "D$:"STARTING WITH ** "F$:"IS THIS CORRECT (Y/N)";B$:B$"Y"60770,131:771,164:49152: 169,79,32,210,255,162,38,160,1 0,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,16#,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,163# A0 A1: "SPRAY-CAM",8,1/ 49152  if  7L Y > QLL OOPPP`UpVWX XXUVW`p ٝٝ L  7 LR`ɜ `~ νν i} i` i{ ν iw  ioL 7`CLĭ  i Y` 7+BFЭĮTi(İLTLé ``fԩԮ~ĩ}}i}İLT~L?ĩR Y 7RR ԍԮ詝``88Gŝ8Vŝ889@9nŝ8ŝ8ŝ9ŝX9Qŝ+0ũЍť  ܢƝ4`꺮ꪪ׾ꪪUUUUUUUU?8 ,8]]"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$"BAC92,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,1uWuWeנe *]u]u]ê hg ٝi( ٝAک%-5EMU]ٝٝ΢U詗U# Pة ؝ٝ@(메  Sɝ^ɝiɝ~tɝ.Vfڝ۝~۝ڝڝ.۝V۝ иY]W_go؝؝؍؍ٍ٠`LrȭPɛPLrȩPSȭSp̩`SȩRȢ pppPpxp(pЭ 7``Sef /`` 7`TSéîTi(ðLTLé``ο`BQ 7`TS ŝ`>=>B  .*+:(00000005@ *JJ*@  */*@ 5@  ***)ܥ)Н0ŭ7/  A0 A1:"HOTFOOT",8,1+49152 PRG BLOCKS FREE.  婎  ؝ٝڝ Щ!ЭЭТԩԍԩԩۅǩcǩ0iǍkǩ7jǩݩ Щ ܩ3Нѝҝӝԝ՝֝םͩ7 ܢzƝPǝxhX ݎݩQݭLvť  ݩLf) L L L L L L L LHHH \ LQ4M8 f cǭc1 ŭ00 0 T ' ĩ L `i t c ))ۥ8(мlǙ JǙ h`H2΄ǭh`ii`8`8x`ixi`)-LЭC ǩB` ciHiݩ ݩQ`HHH ԅL`ǩ ԩ( ԩOԩPԩ Ԣ YƩ ǭ`O i(i ``HOTFOOT JOHN KRUTCH 1987f<=? YOU HAVEAGILEFEET! NOWTRY ITAGAINWITHSEVENMOREROWS.SORRYABOUTYOURBURNEDFOOT.PRESSBUTTONTO PLAYAGAIN.*ɩ) 7-S)i)ɰL*SS ,ɽ`` 7ԍR@`Rɀ`R``     ؝ٝ@(메  Sɝ^ɝiɝ~tɝ.Vf0 *** JAM ATTACK 64 *** BUCK CHILDRESS ***] *** P.O. BOX 13575 SALEM, OR 97309 ***(147)"LOADING AND CHECKING DATA LINE:":J52000(B011:A2B0L(64)256(63):(19)31)L:<A0A25580 FJB,A:XXA:DD1:B:A:A0,1,3,104,141,50,3,973= 142,51,3,169,0,141,0,2,96,173,0,2,779o 206,0,2,201,64,208,35,32,159,204,32,184,1327 204,169,13,32,210,255,32,207,255,201,13,240,1831 6,32,210,255,76,98,203,169,15,32,195,255,1546 32,204,255,76,116,164,201,17162,8,160,0,32,186,255,169,1509M 5,162,205,160,204,32,189,255,32,192,255,169,1860 234,141,40,3,162,5,32,198,255,169,35,133,1407 251,32,207,255,198,251,208,249,133,251,32,207,2274 255,133,252,169,5,32,195,255,32,184,204,169,1885" 1519840J208,227,238,27,205,208,222,169,210,160,204,32,2110eT30,171,173,27,205,166,2,32,205,189,169,229,1598^160,204,32,30,171,165,252,166,251,32,205,189,1857h169,13,32,210,255,173,0,2,201,177,208,3,1443r76,116,164,169,245,160,204,32,Hx \âȝGǝo07,,ةt۩tTi(iLȝ70_`abƝ01ЩЩЩЩЩ 'Щ(Т܎ЌТ3ގЌЩЩ| ݩ ݩcݎݩݩ `i J `l8 X `)^LV^LVé^` ؅dǩe 0â^Ǒȑȑȑi(ieǭedǭdп`HiРlǹۙJz :ı P Phhh`_}: _`8f0i `i}f: iiǍjǍkǍލ`  L^ 1Ʃ`  w LťL­)L Oԩԩԩ` ԩ ԩ ԩ<ǭ Ԣ YL8d Yƍ>070 ꠠꠠꠠꠠ ꠠꠠꠠꠠ X90 P"ERROR IN DATA LINE:"L:9 ZX0:JJ12:D50440y d"THE DATA IS OK..."::"SYS 52000 TOGGLES ON AND OFF...": n162,203,236,51,3,240,10,169,151,72,169,77,1543 x160,203,76,58,203,169,237,72,162,245,169,139,1893 160,227,141,0,3,14 8,240,12,134,251,1863E 162,203,32,39,203,166,251,76,139,227,165,45,1708y 133,2,165,46,166,43,164,44,76,172,203,160,1374 20,185,174,0,153,32,205,136,16,247,165,174,1507 133,2,165,175,166,193,164,194,32,144,204,32,1604 159,204,169,5, ,32,195,255,32,204,255,169,237,141,40,3,1578V "169,1,174,30,205,172,31,205,133,2,134,253,1509 ,132,254,169,0,162,252,141,27,205,230,253,208,2033 62,230,254,165,253,205,28,205,208,7,165,254,1976 @205,29,205,240,14,202,208,233,162,254,230,2,30,171,169,0,15368|133,198,32,228,255,201,78,240,4,201,89,208,1867n245,32,210,255,72,169,13,32,210,255,104,201,179878,208,3,76,116,164,160,20,185,32,205,153,1400174,0,136,16,247,76,237,245,141,29,205,165,1671 2,141,28,205,142,30 1 *** JAM ATTACK 128 *** BUCK CHILDRESS ***^ *** P.O. BOX 13575 SALEM, OR 97309 ***(147)"LOADING AND CHECKING DATA LINE:":J4864(B011:A2B0L(66)256(65):(19)31)L:<A0A25580 FJB,A:XXA:DD1:B:A:AX 4,141,50,3,8235 142,51,3,169,0,141,0,2,96,173,0,2,779f 206,0,2,201,64,208,30,32,239,20,169,13,1184 32,210,255,32,15,21,32,207,255,201,13,240,1513 6,32,210,255,76,66,19,32,36,21,76,55,884 77,201,178,240,12,134,251,162,19,32,7,19,133 0,169,16083 0,162,107,133,199,142,40,3,169,5,162,8,1130e 160,0,32,186,255,169,5,162,44,160,21,32,1226 189,255,32,192,255,162,5,32,198,255,169,35,1779 133,251,32,207,255,198,251,208,249,133,251,32,2200 207,255,133,252,169,5,32,195,2 ,162,254,230,250,208,2074AT227,238,50,21,208,222,32,129,146,13,80,82,1448n^79,71,82,65,77,32,76,69,78,71,84,72,856h32,61,32,0,173,50,21,166,250,32,50,142,1009r32,129,146,13,66,76,79,67,75,83,32,70,868|82,69,69,32,61,32,0,165,252,16240,4,201,89,208,245,32,210,255,72,32,129,1717P146,13,0,104,201,78,208,3,76,55,77,160,112116,185,57,21,153,183,0,136,16,247,32,224,127020,185,75,21,32,188,247,136,16,247,173,55,139521,133,198,173,51,21,174,52,21,133,174,134,1285 28,1437'165,144,16,230,104,104,162,5,76,63,77,169,1315Z&15,168,162,8,32,186,255,169,0,32,189,255,1471032,192,255,162,15,76,198,255,169,15,32,195,1596:255,76,204,255,36,58,85,61,85,65,72,83,1335,173,51,21,174,52,21,133,174,134,1285 < 64RAMDRIVE LOADER & CONFIGURATION BY ANTHONY BERTRAMB:nC1$"":C2$"":R$""("LOADING UPPER M.L."2L64536:CS0<D:D175FL,D:CSCSD:LL1:60KCS126147" DATA ERROR IN UPPER ML DATA!":' P,205,140,31,205,96,169,1394>0,133,144,169,8,32,12,237,169,240,32,185,1361s237,165,144,16,237,104,104,162,5,76,55,164,1469169,15,168,162,8,32,186,255,169,0,32,189,1385255,32,192,255,162,15,76,198,255,36,58,85,161961,85,13,80,82828:420:170G TM(55)256(56):SATM190:SH(SA256):SLSA(SH256)~ 55,SL:56,SH:VESA23:VH(VE256):VLVE(256VH) 420:SA13,VL:SA18,VH A1$" LARGER RAM STORAGE AREA 40961 TO 64512" A2$"SMALLER RAM STORAGE AREA 53248 TO 6MDRIVE ACTIVATED AT ";SA  SA> :P$"LOAD = LOAD FROM RAMDRIVE_ P$"SAVE = SAVE TO RAMDRIVE "P$"! = SCRATCH PROGRAM ,:" THE ABOVE REQUIRE A SIX CHARACTER 6" FILENAME ENCLOSED IN QUOTES. @:P$"$ = DIRECTORY":: J90 P"ERROR IN DATA LINE:"L:8 ZX0:JJ12:D56440w d"THE DATA IS OK..."::"SYS 4864 TOGGLES ON AND OFF...": n162,19,236,51,3,240,10,169,116,72,169,45,1292 x160,19,76,26,19,169,78,72,162,245,169,63,1258 160,77,141,0,3,140,1,3,102/ 166,251,76,63,77,173,16,18,133,250,173,17,1413c 18,166,45,164,46,76,149,19,160,16,185,183,1227 0,153,57,21,136,16,247,32,219,20,32,204,1137 247,153,75,21,136,16,247,165,174,133,250,165,1782 175,166,193,164,194,32,204,20,32,239,255,32,204,255,19948 "32,15,21,32,36,21,169,110,141,40,3,169,789l ,1,174,53,21,172,54,21,133,250,134,253,132,1398 6254,169,0,162,252,141,50,21,230,253,208,2,1742 @230,254,165,253,205,51,21,208,7,165,254,205,2018 J52,21,240,14,202,208,2336,251,32,1211050,142,32,129,146,13,0,173,0,2,201,177,1065_208,3,76,55,77,32,129,146,13,80,82,79,98067,69,69,68,32,87,73,84,72,32,84,72,80969,32,83,65,86,69,63,32,40,89,47,78,75341,32,0,169,0,133,208,32,228,255,201,78,1377175,76,78,245,141,52,21,165,250,141,51,21,1416S142,53,21,140,54,21,96,165,198,141,55,21,1107165,187,166,188,164,199,133,172,134,173,132,198,2011164,183,96,32,69,168,169,0,133,144,169,8,133532,62,227,36,144,48,9,169,240,32,210,2""5)"64RAMDRIVE CONFIGURATION MENU"S Z" USE CURSOR UP/DOWN KEY TO HIGHLIGHT~ d" CHOICE AND PRESS RETURN TO SELECT." nA1$"LOCATE LOWER CODE IN CASSETTE BUFFER " xA2$"LOCATE LOWER CODE IN TOP OF BASIC RAM ":C2:400 370:C1SA 4512":C2:400:370 C1210J 65387,0:65388,208:65389,0:65390,44:SS1| A1$" _ TO PRECEDE COMMANDS (NORMAL BASIC) " A2$" # TO PRECEDE COMMANDS (FAST LOAD CART)":C2:400:370 C1 P$" _":250 SA28,35:P$" #" " 64 RA,79,71,82,65,77,32,76,803369,78,71,84,72,32,61,32,0,13,66,76,654`79,67,75,83,32,70,82,69,69,32,61,32,7510,13,80,82,79,67,69,69,68,32,87,73,71984,72,32,84,72,69,32,83,65,86,69,63,81132,40,89,47,78,41,32,0,65,72,83,0,57942,30SSB$" 11,264 ":350 TB$" 23,551 "G ^B$"RAM DRIVE STORAGE BYTES FREE.":v h"SYS 58451 TO KILL. SYS"SA"TO RE-START": rA$:A$(13) |A$""400:370 370 C2R$C1$A1$:C2$A2$:C1: C1$A1$:R$C2$A2$:C2: PSASA0,192,6,208,240,160,10,32,67,255B 136,208,250,24,165,251,105,40,133,251,165,252,105,0| 133,252,24,165,249,105,40,133,249,165,250,105,0,133 250,202,208,201,169,0,141,254,3,96,177,122,201,34,240 6,169,8,141,254,3,96,32,115,0,177,122,233,240,13,201,36,240,12,108  252,3,169,1,44,169,2,44,169,38 44,169,4,141,255,3,201,4,208[  11,169,147,32,210,255,162,13* 24,32,240,255,32,115,0,169,1274 141,13,220,165,1,141,73,253,169> 0,133,1,162,7,181,248,157,62H 253,,173,27,252,133,254,173,107,255,141,115P` 255,173,108,255,141,116,255,32,74,255,173,28,252,133j 251,173,29,252,133,252,173,24,252,133,253,173,25,252t 133,254,173,117,255,141,115,255,173,118,255,141,116~ 255,32,74,255,56,173,107,255,237  10,32,67,255,136,208,250,202,208,230,96,230,253,208M 2,230,254,96,160,0,177,251,145,253,230,251,208,2,230" 252,230,253,208,2,230,254,165,251,205,115,255,208,233, 165,252,205,116,255,208,226,96,1,160,255,91,0,0,0,0,0,0,060,0,0,0,0 188:A:CKCKA:P,A: CK23041=" ERROR IN LOWER ML DATA!":U * UPPER ML DATA * 0,0,0,0,0,0,0,0,0,0,32,29,255,192,6,240,6,169,4,141 254,3,96,202,224,0,208,3,76,32,253,138,72,165,253,141 24,252,165,254,141,25,252,177,25 ,255 133,254,76,147,254,173,117,255,133,253,173,118,255W 133,254,160,0,185,119,255,145,253,200,192,6,208,246 32,67,255,136,208,250,173,107,255,145,253,32,67,255 173,108,255,145,253,32,67,255,24,173,107,255,109,112 255,145,253 01,32,144,241.  201,91,176,237,153,118,255,200,192,7,208,238,136,152g 24,101,122,133,122,165,123,105,0,133,123,160,1,177 122,201,34,208,208,32,115,0,173,255,3,201,1,208,55( 173,114,255,208,6,169,4,141,254,3,96,32,29,255,1522 240, 202,208,248,32,80,253,173R 255,3,201,1,208,14,165,123,2017\ 2,208,8,165,253,133,45,165,254]f 133,46,162,7,189,62,253,149,248p 202,208,248,173,73,253,133,1z 169,129,141,13,220,173,254,3 240,4,170,76,55,164,173,255,3 201,,32,252,141,107,255; 173,108,255,237,33,252,141,108,255,56,173,117,255,233v 10,141,117,255,173,118,255,233,0,141,118,255,206,114 255,76,252,254,177,253,141,107,255,200,177,253,141 108,255,76,9,253,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1 * LOWER ML DATA *9 173,8,3,141,252,3,173,9,3,141^ 253,3,169,83,141,8,3,169,3,141 9,3,96,160,1,177,122,201,95,240 3,108,252,3,32,115,0,177,122 201,147,240,15,201,148,240,14 201,3,141,26,252,200,177B 253,141,27,252,162,1,32,55,255,165,253,141,28,252,165| 254,141,29,252,160,6,177,253,141,30,252,200,177,253 141,31,252,56,173,30,252,237,26,252,141,32,252,173$ 31,252,237,27,252,141,33,252,104,170,160,6,56,177,25,200,173,108,255,109,113,255,145,253,32@ 67,255,32,67,255,165,253,141,117,255,165,254,141,118| 255,165,43,133,251,165,44,133,252,173,107,255,133,253 173,108,255,133,254,32,74,255,238,114,255,32,67,255 165,253,141,107,255,165,254,141244,177,253,133,251,200,177,253,133,252,200,177L< 253,141,115,255,200,177,253,141,116,255,165,43,133F 253,165,44,133,254,32,74,255,169,0,141,254,3,96,201P 2,240,3,76,34,252,56,165,45,141,115,255,229,43,141Z 112,255,165,46,141,116,255,2E1,208,6,165,123,201,2,208 3,108,252,3,32,161,225,76,174,167 44,169,4,141,255,3,201,4,208[  11,169,147,32,210,255,162,13* 24,32,240,255,32,115,0,169,1274 141,13,220,165,1,141,73,253,169> 0,133,1,162,7,181,248,157,62H 253, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,173,255,3,201,4Z 208,93,169,53,133,1,169,125,133,253,169,255,133,254 169,6,133,251,133,249,173,136,2,133,252,169,216,133 250,174,114,255,240,55,160,0,177,253,41,63,145,251 173,134,2,145,249,20 53280,0: 53281,0B ==================================f COMMODARES PROBLEM #42-1 : INTERNAL DELETION SOLUTION BY TIM GAASTRA ========= C-64 VERSION ========== - FOR C-128, REPLACE 631, 638, 193-. 237,32,252,145,253,200,177,253,237,33,252,145,253,200h8 56,177,253,237,32,252,145,253,200,177,253,237,33,252B 145,253,202,240,11,160,10,32,67,255,136,208,250,76L 127,252,173,30,252,133,251,173,31,252,133,252,173,26V 252,133,253,108,255,56,169,0,237+ 107,255,141,109,255,169,252,237,108,255,141,110,255d 16,8,169,0,141,109,255,141,110,255,169,0,141,254,3 96,169,125,133,253,169,255,133,254,174,114,255,160 0,177,253,217,119,255,208,6,200,192,6,208,244,96,16029,44,141,113,255,56,1734d 109,255,237,112,255,141,111,255,173,110,255,237,113nn 255,13,111,255,176,6,169,1,141,254,3,96,173,114,255x 240,23,201,12,144,3,76,92,254,32,29,255,192,6,208,6 169,2,141,254,3,96,76,137,254,169,125,133,253,169  PHASE-IN8S4864: START ADDR. FOR ML STORAGE]BM8192: START ADDR. OF BIT MAP{I059:A:SI,A:BBA:B9091"ERROR IN DATA STATEMENTS!":HI(BM256):S3,BMHI256:S7,HI:BMBM7999:HI(BM256)S47,BMHI256:S0F 252,201,63,144,210,202,208,199(P 96L STORAGE]BM8192: START ADDR. OF BIT MAP{I059:A:SI,A:BBA:B9091"ERROR IN DATA STATEMENTS!":HI(BM256):S3,BMHI256:S7,HI:BMBM7999:HI(BM256)S47,BMHI256:S (147)"LOADING...":GS53000: *** CHANGE S TO RELOCATE ***gJSS119:A:J,A:XXA:JX18560"ERROR IN DATA...":"THE DATA IS LOADED..."::"SYS"S"TO CHANGE THE PROMPT...": 169,160,162,0,160,224,133,252,134,251,132,2- 253,224,6,176,237,157,120,163,32,210,255,230^ 253,208,227,169,0,162,54,133,254,169,47,120 133,0,134,1,88,169,32,32,210,255,165,254 208,175,133,207,169,13,76,210,255,0,0,0 PROMPT...": 169,160,162,0,160,224,133,252,134,251,132,2  H-ALT, HIT THE ALT KEY TO PAUSEP HIT ANY OTHER KEY TO CONTINUE[ S4864zI029:A:SI,A:BBA:IB3680"ERROR IN DATA STATEMENTS!":(HI((S13)256):LOS13HI256:S2,LO:S7,HI2"SYS"S"TOENABLE":"HIT RUN/STH$"0123456789ABCDEF"? "ENTER STARTING ADDRESS ";A1`"ENTER ENDING ADDRESS ";A2nA2A110(S1A1:S2((A2A1)2)7A1(A18)8S2(S28)8S2S21:55<E1S21:E2A2F""K4,4:4PS1E130);:95 ZAS1:608(  IN LINE 30 WITH 842, 849, 208. 7 10@  20f  A631 638: B: A,B:: 198,8 # 50,48,13,82,117,52,48,13: ( CD46-9INSERTS1`H$,C1,1);:AA16C:(H$,A1,1)": ";:1 C(A16)X (H$,C1,1)(H$,(A15)1,1)" ";:2nA2A110(S1A1:S2((A2A1)2)7A1(A18)8S2(S28)8S2S21:55<E1S21:E2A2F""K4,4:4PS1E130);:95 ZAS1:60? AD828: AAD AD110: B: A,B:CKCKB::"OADED..."a CK15696"ERROR IN DATA": 032,253,174,032,087,226 169,008,133,186,169,104 133,185,032,213,243,165 186,032,177,255,165,185 032,147,255,032,253,174  5,104,072#  197,251,208,004,228,252A  240,008,230,251,208,227_  230,252,208,223,104,104}  133,001,032,174,255,032  066,246,096169,104 133,185,032,213,243,165 186,032,177,255,165,185 032,147,255,032,253,174  53,HI:"SYS"S"TO ACTIVATE"D 162,8,169,0,133,251,169,32,133i 252,160,0,177,251,72,160,7,177 251,72,136,208,250,160,0,104( 145,251,200,192,8,208,248,1652 251,24,105,8,133,251,144,2,230< 252,165,251,201,63,144,216,165  261,1:4,2:.,241,.,7:1,142,140D:1,1:0,."ENTER SPEED(1-SLOW 30-FAST):";SP:"ENTER SUB DISTANCE FROM CENTER";SD:"ENTER ANGLE (NORTH-0)";SA"ENTER RADAR SIZE";SZ1,SD;SA: SPOT SUBX(360),Y(360) : 545 161,251,129,251,230,251,208,248,230,252,200,208f 243,162,55,208,64,32,68,229,169,118,160,163 32,30,171,169,32,162,5,157,120,163,202,16 250,134,212,232,134,198,134,204,134,253,32,228 255,240,251,201,13,240,20,201,20,240,210,166 DRAW RADAR FRAME :, T0360:130,100L 0,SZ;T:X(T)(0):Y(T)(1)S1p:1,.:1,14,1,"RADAR":v: LOOP TO SPIN NEEDLE:T0360SP1,130,100X(T),Y(T) (TSPSA)(TSPSA)1,20000,10,0,20000,2,0:1,1,7:QOP AND RESTORE TO DISABLE"=< 120,169,13,141,20,3,169,19,141`F 21,3,88,96,169,8,197,211,208P 8,32,159,255,32,228,255,240,248Z 76,101,2500:I07:A(S1I):700:I- _10):S2E2110T dAS2:600:I07:A(S2I):700:IZ in nS1S18:S2S28 sS1E1S2E280 x4,"": 4: W XC(A4096):(H$,C1,1);:AA4096C ]C(A256):(H$,C1,1);:AA256C:C(A16)# b(120::1,0,740,130,100X(T),Y(T):1,X(T),Y(T)::::^ SUBROUTINE TO MAKE RADAR BLIPd:G35843647:G,0::3609,24:3612,60:3615,60:3618,24:;SA"ENTER RADAR SIZE";SZ1,SD;SA: SPOT SUBX(360),Y(360) : ! *** BYTES 'R' US (64) ***BS700: CHANGE S TO RELOCATEP(147):oJSS23:A:J,A:XXA:JX3448"ERROR IN DATA...":"DATA OK. SYS"S"FOR BYTES...":166,43,232,232,134,251,165,45,56,229,251,170 164,46,176,1, 032,138,173,032,247,1833  165,020,133,251,032,168Q  255,165,021,133,252,032o  168,255,032,253,174,032  138,173,032,247,183,165  001,072,165,020,072,166  021,120,169,000,168,133  001,177,251,160,055,132  001,032,168,25'********************************M * MENU PROGRAM V2.0 *s"* DESIGNED BY *$* DOUBLE L SOFTWARE *&* (C) 1987 ALL RIGHTS RESERVED *(********************************):53296,1 *AT67 ":1000(AN$:AN$""1670>882:V21,1:225_ ************************** **** WINDOW ROUTINE **** **************************828AT,4,11:""11)"EE NSTRUCTIO Y1Y18:Y1188Y1100+V1,Y1:I0F:LCI,0:?HH1:H12H1SPP1:P18P7sLCLC40:LC56030LC55590|204Y1Y18:Y1100Y1188V1,Y1:I0F:LCI,0:HH1:H1H12 PP1:P7P18#LCLC40:LC55 zV21,0:230882:225I116:POI,5::J P$(1,1)"LANKSPEED":IN$(1,1)"LANK IN"| P$(1,2)"64 UG EP ":IN$(1,2)"UG EP IN" P$(1,3)"128 UG EP II":IN$(1,3)"BUG REP IN" P$(1,4)"PRAY-AM":IN$(1,4)"PRAY IN"  P$(1 : 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)"  ": 2":IN$(2,3)"INTERNAL 2 IN"/P P$(2,4)"CLIFF HANGER 128":IN$(2,4)"CLIFF IN"aZ P$(2,5)"LIFF ANGER 64":IN$(2,5)"LIFF IN"d P$(2,6)"ILDCARD ORD":IN$(2,6)"ILDCARD IN"n P$(2,7)"OUBLE UBBER":IN$(2,7)"OUBLE IN" P$(2,8)"PHASE-IN":I 9:NATAT22:M:N,M:4 ,32,180,2,132,251,32,180,2W .166,251,76,240,255,32,253,174u 032,158,173,32,170,177,96 253265,(53265)239 <4000:V53248:X175:Y1100 P P$(4,12),PG$(4,12),IN$(4,12):5000:NN3:B.:5190 d53280,0:53281,1: 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)2140 136,152,56,229,44,76,205,189 CLIFF IN LIFF IN ILDCARD IN OUBLE IN PHASE IN EADY IN H-ALT IN590LC56030(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- >AT,20,2:"  "d CAT,21,2:"" HAT,22,1:"" RAT,23,1:" RSR=ELECT PC=ORE /Ґ=XECUTE "\AT,24,1:",5)"LATFORMS":IN$(1,5)"LATFORMS IN"5 P$(1,6)"EMPIRE":IN$(1,6)"EMPIRE IN"a P$(1,7)"OTFOOT":IN$(1,7)"OTFOOT IN" P$(1,8)"AM TTACK 64":IN$(1,8)"AM IN" P$(1,9)"JAM ATTACK 128":IN$(1,9)"JAM IN" P$(1,10)"64 RIVE":IN$(1,10(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$(17R2080\X0882:4100aX221804bB1H3B1H6B1H92155gcB2H1B2H3B2H4B2H8B2H102155dB3H1B3H3B3H52155e IF B=4 THEN2155f2159k882:1550oX1882pI035:V,X1I:D135::N$(2,8)"PHASE IN" P$(2,9)"EADY OR OT":IN$(2,9)"EADY IN"I P$(2,10)"H-ALT":IN$(2,10)"H-ALT IN"u P$(2,11)"UO-RINT":IN$(2,11)"UO IN" P$(2,12)"LL-AM AVER":IN$(2,12)"LL IN" P$(3,1)"RADAR 128":IN$(3,1)"RADAR IN" P$(3,2D THIS "%J4)" PROGRAM SUCCESSFULLY. SE THE"QT4)" PRESCRIBED METHOD WHICH IS..."}^4)" OAD ''ROGNAME'' "h4)" [RESS ANY EY] "r4)""|AT,22,3:" ":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:)"AMDRIVE IN""( P$(1,11)"INKED IST":IN$(1,11)"INKED IN"Z2 P$(1,12)"NTERNAL EL 1":IN$(1,12)"NTERNAL 1 IN"7 P$(2,1)"INTERNAL DEL 1":IN$(2,1)"INTERNAL 1 IN"< P$(2,2)"NTERNAL EL 2":IN$(2,2)"NTERNAL 2 IN"F P$(2,3)"INTERNAL DEL)1250 AN$(145)1300) AN$(13)2000J AN$(32)3000:Y1100:140S 204w "";:53280,0:53281,6:V21,0 "OADING...";(34);P$(B,H)(34);"" "LOAD";(34);P$(B,H);(34);",8" "RUN": ""  631,13" ":1000(6XX15:AT,7XX,3:""TX$(XX):>@AN$:AN$""4160WJAN$(13)882:204yTB1H3B1H6B1H94195VB2H1B2H3B2H4B2H8B2H104195WB3H1B3H3B3H54195X)"YTES '' S 64":IN$(3,2)"YTES IN"6 P$(3,3)"BYTES 'R' US 128":IN$(3,3)"BYTES IN"g P$(3,4)"WO OLOR ORDER":IN$(3,4)"WO IN" P$(3,5)"COLOR KEY":IN$(3,5)"COLOR IN" P$(3,6)" ESTER":IN$(3,6)" IN"  CL718:AT,,228 197,153,244,217,185,238,194,153  238,6,185,222,198,153,238,2183  200,208,205,96O FI9601022:N:I,N::c P 0,0,0,0,0,0,0w 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,255  252,PRAY-AM SIMULATES AN INDUSTRIAL SITUATION WHERE THE PLAYER MUST INSPECT AND REPAIR FOUR EXHAUST TANKS. OYSTICK IN ORT 2. - FILE MAKER1FILEMAKER 1LATFORMS CONSISTS OF SIX ASCENDING AND DESCENDING LEDGES WHICH YOUR ONSCREEN CHARACTER MUST RIDE TO REACH THE GOLD RINGS AT THE TOP OF THE SCREEN. OYSTICK IN ORT 2. AKER 1EMPIRE IS A -128 TRADING ADVENTURE SET IN MEDIEVAL TIMES - CHALLENGING YOU TO ACQUIRE 100% OF THE REGION'S WEALTH THROUGH CLEVER WHEELING AND DEALING. T WARNING ****  S54272:I024:SI,.: S24,15:S5,15:S6,12:S1,32:S,155:S4,33 IF B=4^882:V21,1 `I035:V,X1I:D135::bV21,0:230,c882:15506h4160QI828935:A:I,A::o 160,0,185,0,4,153,0,192 185,0,216,153,240,195,185,250 4,153,250,192,185,250,216,153 234,196,185,244,5,15 CL,14:" "::%POKE657,128:REM DISABLE SHIFT/COM KEYJPOKE775,200:REM DISABLE LISTINGtPOKE808,234:REM DISABLE STOP/RESTOREz828:V21,0:ZZ$IN$(B,H) 2,8,2,"@0:"ZZ$",S,R" XX15 2,TX$(XX) :2R0,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,053H 222,198,200,208,205,96,160,0h 185,0,192,153,0,4,185,240 195,153,0,216,185,250,192,153 250,4,185,234,196,153,250,216 185,244,193,153,244,5,185oOTFOOT SENDS YOU HOPPING ON ONE FOOT OVER A SERIES OF COOL - WARM - AND RED HOT TILES. OYSTICK IN ORT 2. - ALTH THROUGH CLEVER WHEELING AND DEALING. T WARNING ****  S54272:I024:SI,.: S24,15:S5,15:S6,12:S1,32:S,155:S4,33XAM TTACK 64 INFORMS YOU OF THE BLOCK LENGTH OF A PROGRAM AS YOU'RE TYPING IT IN. - - OYSTICK IN ORT 2. - ALTH THROUGH CLEVER WHEELING AND DEALING. T WARNING ****  S54272:I024:SI,.: S24,15:S5,15:S6,12:S1,32:S,155:S4,33YJAM ATTACK 128 INFORMS YOU OF THE BLOCK LENGTH OF A PROGRAM AS YOU'RE TYPING IT IN. - - OYSTICK IN ORT 2. - ALTH THROUGH CLEVER WHEELING AND DEALING. T WARNING ****  S54272:I024:SI,.: S24,15:S5,15:S6,12:S1,32:S,155:S4,333,244,193 185,244,217,153,228,197,185,238% 6,153,238,194,185,238,218,153H 222,198,200,208,205,96,160,0h 185,0,192,153,0,4,185,240 195,153,0,216,185,250,192,153 250,4,185,234,196,153,250,216 185,244,193,153,244,5,185AT,7,1:""OI813:AT,I,1:" "U"AT,14,1:" [/=ANCEL * PC=UN ROGRAM] ",AT,15,1:""1AT,22,3:z-64 RIVE SIMULATES A DISK AND LETS -64 OWNERS SAVE - LOAD - SCRATCH AND VIEW THE DIRECTORY OF THE DRIVE. - H CLEVER WHEELING AND DEALING. T WARNING ****  S54272:I024:SI,.: S24,15:S5,15:S6,12:S1,32:S,155:S4,33INKED IST - FROM THE CTOBER UPERT EPORT - EMPHASIZES THE ADVANTAGES OF LINKED LISTS. OR THE 64 AND THE 128 IN 128 MODE. - R WHEELING AND DEALING. T WARNING ****  S54272:I024:SI,.: S24,15:S5,15:S6,12:S1,32:S,155:S4,33OLUTION TO THE UNE '87 OMMODARE ASKING FOR A PROGRAM WHICH DELETES ONE OF ITS OWN LINES AFTER EXEC- UTING IT AND CONTINUES RUNNING. - G AND DEALING. T WARNING ****  S54272:I024:SI,.: S24,15:S5,15:S6,12:S1,32:S,155:S4,33D -128 SOLUTION TO NTERNAL ELETION. (EE NTERNAL EL 1.) - - - **G %i &AT,20,10:" REATING ";TL$ 02,8,2,"@0:"TL$",S,W" :A15 D2,TX$(A): N2 XAT,22,9:"NYMORE ENTRIES"; b AN$ lAN$"N" v10 } ~ ****WROM IPS HOY! LLOWS THE USER TO SAVE ANY BINARY INFORMATION IN MEMORY TO DISK. - - MORY AREA. - - G SYSTEM BY HITTING THE KEY. SEARCH WORD. D2,TX$(A): N2 XAT,22,9:"NYMORE ENTRIES"; b AN$ lAN$"N" v10 } ~ ****`ROM IPS HOY! ETS THE 128 USER SIMULATE NAVAL RADAR - FOR USE IN SUBMARINE-BASED GAMES. - - . - - G SYSTEM BY HITTING THE KEY. SEARCH WORD. D2,TX$(A): N2 XAT,22,9:"NYMORE ENTRIES"; b AN$ lAN$"N" v10 } ~ ****eROM IPS HOY! ROUTINE THAT TELLS YOU THE NUMBER OF BYTES YOUR PROGRAMS ARE TAKING UP. - - G SYSTEM BY HITTING THE KEY. SEARCH WORD. D2,TX$(A): N2 XAT,22,9:"NYMORE ENTRIES"; b AN$ lAN$"N" v10 } ~