V21,0:ZZ$IN$(B,H) 2,8,2,"@0:"ZZ$",S,R" XX15  2,TX$(XX)) :2aAT,7,1:""I813:AT,I,1:" ""AT,14,1:" [/=ANCEL * PC=UN R 240  195,153,0,216,185,250,192,153! 250,4,185,234,196,153,250,216=! 185,244,193,153,244,5,185,228c! 197,153,244,217,185,238,194,153!  238,6,185,222,198,153,238,218! 200,208,205,96!FI9601022:N:I,N::!P 0,0,0,0,0,0,0 OGRAM] ",AT,15,1:""S1AT,22,3:" ":1000y6XX15:AT,7XX,3:""TX$(XX):@AN$:AN$""4160JAN$(13)882:204TB1H3B1H4B1H5B1H7B1!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,255F" 252,0,0,112,0,0,224\" 0,1,192,0,0,0,0p" 0,0,0,0,0,0,0" 0,0,0,0,0,0,053  222,198,200,208,205,96,160,0  185,0,192,153,0,4,185, H104195 VB2H1B2H2B2H4B2H5B2H941957WB2H1B2H2B2H8B2H94195DX IF B=4U^882:V21,1u`I035:V,X1I:D135::bV21,0:230c882:1550h4160I828935:A:I,A:: 160,0,185,0,4,1 53,0,192 185,0,216,153,240,195,185,250  4,153,250,192,185,250,216,153D  234,196,185,244,5,153,244,193j  185,244,217,153,228,197,185,238  6,153,238,194,185,238,218,153  222,198,200,208,205,96,160,0  185,0,192,153,0,4,185, '********************************M * MENU PROGRAM V2.0 *s"* DESIGNED BY *$* DOUBLE L SOFTWARE *&* (C) 1987 ALL RIGHTS RESERVED *(********************************):53296,1 *AT67 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 : 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)"  ": ":IN$(1,10)"SOLUTIONS IN"0( P$(1,11)"DESIGNS C-128":IN$(1,11)"DESIGNS IN"c2 P$(1,12)"ESIGNS -64":IN$(1,12)"ESIGNS IN"7 P$(2,1)"PROBABILITY 128":IN$(2,1)"PROB IN"< P$(2,2)"IDEAL INPUT 128":IN$(2,2)"IDEAL IN"F P$(2,3)"DEAL NPUT 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 $(3,2)"WINDOW BORDER":IN$(3,2)"WINDOW IN"6 P$(3,3)".ATROL 64":IN$(3,3)"ATROL IN"f P$(3,4)"D.PATROL 128":IN$(3,4)"PATROL IN" P$(3,5)"D.PATROL 128/80":IN$(3,5)"PATROL80 IN" P$(3,6)"LIP IDE":IN$(3,6)"LIP INS" P$(3,7)" 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: R2080\X0882:4100aX22180EbB1H3B1H4B1H5B1H7B1H102155XcB1H112155dB2H1B2H2B2H4B2H5B2H92155e IFB=4 THEN2155f2159k882:1550oX1882pI035:V,X1I:D135:: - >AT,20,2:"  "d CAT,21,2:"" HAT,22,1:"" RAT,23,1:" RSR=ELECT PC=ORE /Ґ=XECUTE "\AT,24,1:" 64":IN$(2,3)"DEAL IN"&P P$(2,4)"FADE AWAY 128":IN$(2,4)"FADE IN"XZ P$(2,5)"FADE AWAY 128-2":IN$(2,5)"FADE2 IN"d P$(2,6)"ADE WAY 64":IN$(2,6)"ADE IN"n P$(2,7)"ADE WAY 64-2":IN$(2,7)"ADE2 IN" P$(2,8)"ADE WAY 64-3":IN$(2,8) D THIS "%J4)" PROGRAM SUCCESSFULLY. SE THE"QT4)" PRESCRIBED METHOD WHICH IS..."}^4)" OAD ''ROGNAME'' "h4)" [RESS ANY EY] "r4)""|AT,22,3:"  ":IN$(3,7)" "' P$(3,8)" ":IN$(3,8)" "[ P$(3,9)" ":IN$(3,9)" " P$(3,10)" ":IN$(3,10)" " P$(3,11)" ":IN$(3,11)" "" P$(3,12)" (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 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 BUG REP II":IN$(1,3)"BUG REP IN" P$(1,4)"TEXTSAVE":IN$(1,4)"TEXT IN"  P$(1,5 ":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: "ADE3 IN" P$(2,9)"SUPER BOWL 128":IN$(2,9)"SUPER IN"K P$(2,10)" ":IN$(2,10)" "w P$(2,11)" ":IN$(2,11)" " P$(2,12)" ":IN$(2,12)" " P$(3,1)"ALTERNATOR":IN$(3,1)"ALTERNATOR IN" P  ":1000(AN$:AN$""1670>882:V21,1:225_ ************************** **** WINDOW ROUTINE **** **************************828AT,4,11:""11)"EE NSTRUCTIO ":IN$(3,12)" ", P$(4,1)" ":IN$(4,1)" " K CL718:AT,CL,14:" "::vPOKE657,128:REM DISABLE SHIFT/COM KEYPOKE775,200:REM DISABLE LISTINGPOKE808,234:REM DISABLE STOP/RESTORE828: )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 )"TEXTSAVE DEMO":IN$(1,5)"TEXT DEMO IN": P$(1,6)"NFOFLOW 64":IN$(1,6)"NFO IN"i P$(1,7)"JUNGLE JAKE":IN$(1,7)"JUNGLE IN" P$(1,8)"CE ITANS":IN$(1,8)"CE IN" P$(1,9)"LONE-A-ATIC":IN$(1,9)"LONE IN" P$(1,10)"SOLUTIONS C-128 Y1Y18:Y1188Y1100+V1,Y1:I0F:LCI,0:?HH1:H12H1SPP1:P18P7sLCLC40:LC56030LC55590|204Y1Y18:Y1100Y1188V1,Y1:I0F:LCI,0:HH1:H1H12 PP1:P7P18#LCLC40:LC55 &"SUPER BOWL":"PLEASE WAIT..."O ==================================s COMMODARES PROBLEM #45-3 : SUPER BOWL SOLUTION BY JIM SPEERS ==================================dMX$(20),MN$(20),MX(20),MN(2 CKCKB= CK5133 "DATA ERROR IN LINES 4060 - 4110" : J 828: e 76,68,3,0,32,31,64,0 173,63,3,133,251,173,64,3 133,252,174,65,3,160,0,173 67,3,136,145,251,208,251,230 252,202,48,7,208,244,172,66 ===========&  > TURN ON PIXEL AT (X,Y) <<<K  ==============================] BIT7(X 7) MMBASE320(Y8)8(X8)(Y 7)  MM,SB(BIT)  : ========================== >>> RESET BIT MAP MODE <<< ==========HIS 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 INHOY!'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.) HE EXTAVE WINDOW RECOVERY PRO- GRAM FOR THE -128 STORES AND RE- CALLS UP TO FIVE 40 COLUMN TEXT SCREENS INCLUDING CHARACTER COLORS AND EDITOR VALUES. G  "ADE WAY 64-2" PRG  "ADE WAY 64-3" PRG  "SUPER BOWL 128" PRG zEXTAVE EMO DEMONSTRATES THE CA- PABILITIES OF EXTAVE BY PRINTING FIVE SCREENS WITH WINDOWS AND AS- SORTED COLORS. - RACTER COLORS AND EDITOR VALUES. G  "ADE WAY 64-2" PRG  "ADE WAY 64-3" PRG  "SUPER BOWL 128" PRG NFOFLOW 64 PROVIDES AN ICON-DRIV- EN DATABASE MANAGER ALMOST IDENTI- CAL TO THE -128 VERSION PUBLISHED IN THE PRIL '87 HOY! - LORS AND EDITOR VALUES. G  "ADE WAY 64-2" PRG  "ADE WAY 64-3" PRG  "SUPER BOWL 128" PRG )J18:T$X$(J)2303SXSXX(J):SNSNY(J):J8`J,I:T$(S$,9,2):J14:T$X1$(J)250|SXSXX1(J):SNSNY1(J)J:SXMX(NX)NX1:MX(NX)SX:MX$(NX)S$:270SXMX(NX)NXNX1:MX(NX)SX:MX$(NX)S$ SNMN(NN)NN1:MN(NN)SN: 0)6nB$"//////////":I18:X$(I),X(I),Y(I):I:A$"X"wxI14:X1$(I),X1(I),Y1(I):I:I110:MN(I)300:I:NX1:NN1XXX,30,30,XX/,29,20,X/X,20,20,X//,20,20,/XX,20,20,/X/,20,20,//X,19,10///,19,10,XX,25,20,X/,20,20,/X,20,20,//,19,10%A3,208,239,96=! MMVV17 : MM,RB(5)C RESTORE SCREEN MEMORY BASE^ MMVV24 : MM,RB(3)d j x:   CLEAR BIT MAP SCREEN   M828 82843  B : M,B ================! MMVV17 : MM,RB(5)C RESTORE SCREEN MEMORY BASE^ MMVV24 : MM,RB(3)d j x:   CLEAR BIT MAP SCREEN   M828 82843  B : M,BUNGLE AKE IS AN ARCADE-STYLE GAME FOR THE -128 SIMILAR TO ON- KEY ONG AND OTHER MULTILEVEL CON- TESTS. OYSTICK IN ORT 2. - LORS AND EDITOR VALUES. G  "ADE WAY 64-2" PRG  "ADE WAY 64-3" PRG  "SUPER BOWL 128" PRG CE ITANS ARMS YOU WITH HORIZONT- ALLY AND VERTICALLY FIRING LASER CANNONS FOR A FIGHT TO THE DEATH AGAINST ONRUSHING HORDES OF FIERCE ALIENS. OYSTICK IN ORT 2. "ADE WAY 64-2" PRG  "ADE WAY 64-3" PRG  "SUPER BOWL 128" PRG LONE-A-ATIC MAKES FAST COPIES OF ALL AND MACHINE LANGUAGE FI- LES ON THE -64. ILES UP TO 175 BLOCKS LONG CAN BE COPIED. - RCE ALIENS. OYSTICK IN ORT 2. "ADE WAY 64-2" PRG  "ADE WAY 64-3" PRG  "SUPER BOWL 128" PRG oTERATIVE OLUTIONS IS A PROGRAM PRESENTED IN SUPPORT OF ANUARY'S UPERT EPORT ON EPETITIVE ROC- ESSES. - -128DESIGNS C-128ESIGNS -64PROBABILITY 128IDEAL INPUT 128TERATIVE ESIGNS IS A PROGRAM PRESENTED IN SUPPORT OF ANUARY'S UPERT EPORT ON EPETITIVE ROC- ESSES. T DRAWS AN ITERATIVE DE- SIGN ON THE -128 SCREEN. ESIGNS -64PROBABILITY 128IDEAL INPUT 128TERATIVE ESIGNS IS A PROGRAM PRESENTED IN SUPPORT OF ANUARY'S UPERT EPORT ON EPETITIVE ROC- ESSES. T DRAWS AN ITERATIVE DE- SIGN ON THE -64 SCREEN. ESIGNS -64PROBABILITY 128IDEAL INPUT 128BMN$(NN)S$:0 SNMN(NN)NNNN1:MN(NN)SN:MN$(NN)S$6 "S$,B)A$:(S$,C)A$:(S$,D)A$:(S$,E)A$z200:E,D,C,B,A" MAXIMUM ":I1NX:MX$(I);MX(I):I" MINIMUM ":I1NN:MN$(I);MN(I):I:SX15:SN15:I18:T$(S$,I,3 16:BA17:CB18:DC19:ED110fS$B$:(S$,A)A$:(S$,B)A$:(S$,C)A$:(S$,D)A$:(S$,E)A$z200:E,D,C,B,A" MAXIMUM ":I1NX:MX$(I);MX(I):I" MINIMUM ":I1NN:MN$(I);MN(I):I:SX15:SN15:I18:T$(S$,I,3 %"ITERATIVE SOLUTIONS C-128":N ==================================m ITERATIVE SOLUTIONS RUPERT REPORT #49 C-128 VERSION ================================== A(X)XX3X00 : X1  * ==================================H ITERATIVE DESIGNSf RUPERT REPORT #49l C-128 VERSION ================================== G0(0) : G06 G05 0 : 1,1 X0 319(S1(0.005 ' ===============================F ITERATIVE DESIGNS 64a C-64 VERSION RUPERT REPORT #49 ====== FOR C-64 ONLY! ======= 1000 : INITIALIZE GRAPHICS X0 319(S1(0.005X) 2 Y0 1 )(MM) (2552N)1 VV53248 : VIC-II REGISTER 0{ : >>> PUT BIT MAP AT 8192 <<< (SET BIT 3 OF VIC REGISTER 24) MMVV24 : MM,SB(3) : >>> SELECT BIT MAP MODE <<< (SET BIT 5 OF VIC REGISTER 17) $MMVV17 : MM,SB(5 $0@<B~BZE~K>> INITIALIZE BIT MAP MODE <<<   SET & RESET BIT FUNCTIONS  SB(N)(MM) 2N  RB(N )! .BASE8192 : START BIT MAP MEMORY> 8: >>> CLEAR BIT MAP <<<I B 4000n L: > SELECT COLORS C1 AND C0 < VC11 : C00 : CC16C1 C0 `: FILL SCREEN MEMORY WITH COLOR j MM1024 2023: MM,CC: t ~:  =================== 8 8 >>$T)*T((  @J@ TH%D(%RBJ)D*(ED$ B~BZE~K@1&2/22>1@0 @1'Rx B?B~BZE~K2<%*>2< ԩԩԩ ԩ ԩ ԩ 8 ĬԘi Ԉ穀 ` ԍԍԩԩԩ!ԩ! Ԡ2dHhԎԌ ԍ ` @`Χ0LO`9E).ȍHHH `hhh ǙȽǙǹǙЈǙЮǍЮL` -4Lƹ-+82? ?ȩ8?Ȱ8?ȝLŽ8GȐ&Gȝй-5 8-ЍнI 8OȰ OȝLŽjș Ƚsș'Щ?ȍ Йǽ_șЙǬǹ Ѝ`L` `)`) MЍЩyͭLìyͭLìyͭ ΰ Lìyͭ α LLé+ ȩ' .Ǯ Ȭ8-ЍίL_ 2­ 2­`-0 AS FOLLOWS% (DELTA) 0.0001 40==================================m ITERATIVE SOLUTIONS RUPERT REPORT #49 C-128 VERSION ================================== A(X)XX3X00 : X1  +X 1,77,16,208,141,16,208,173,168,2,10,170,232,189,202+,b 207,8,152,10,170,232,40,48,15,240,23,173,220,207,24b,l 125,,208,157,,208,76,162,207,189,,208,56,237,220,v 207,157,,208,96,76,49,234,173,,220,41,15,133,253, 169,15,56,229,253,168, ICON LOCATIONS) 165,160,45,80,117,80,200,80,30* 80,45,162,130,160,205,160(* INTERRUPT ROUTINEb* 120,169,31,141,20,3,169,207,141,21,3,169,166,141,17* 3,169,207,141,18,3,88,96,173,,220,41,15,133,253*& 169,15,56,229,253,168,185,2 17,28,128,17,34,143' 18,32,128,20,32,255( 248,34,,,28,255( 0,,,,,0(( 15,128,,1,131,255=(" 2,130,1,4,130,1Q(, 8,,1,16,63,225h(6 32,32,63,64,32,32~(@ 128,,32,7,252,32(J 4,7,224,4,4,0(T 0,4,,255,132,0(^ 128,252,,128,128,0 5,192,2,,64% 2,82,64,2,82,64% 2,82,64,2,82,64& 2,82,64,2,82,64#& 2,82,64,2,82,646& 2,82,64,2,,64I&( 3,255,192,,,0V&2 0,,,,,0c&< 0,,,,,0r&F 0,,,,,255&P 0,3,,192,4,60&Z 32,8,66,16,16,153&d 8,32,189,4,16,153&n 8,8,66,16221,224,7,221# 240,7,221,240,7,227$ 240,7,255,240,7,247 $$ 240,7,247,240,7,2476$. 240,7,255,240,,0O$8 0,255,255,255,198,0i$B 3,197,255,227,197,64$L 35,197,255,227,192,0$V 3,255,255,255,,0$` 0,,128,,,64$j 0,,36,15,255,20$t 14,127,64,64,126!>107,169,169,33,32,32,32,32,0"H110,254,6,10,18,34,194,66,66D"R112,224,191,129,129,255,,32,112h"\113,64,64,127,64,64,127,64,127"f114,15,16,32,64,255,128,255,129"p115,130,2,2,2,130,130,130,130"z125,130,130,130,130,204,1:" ": Z20ZLIN$(IN$,ZL1):" "; 19508 56578,(56578)3:56576,(56576)252q 53272,(53272)15:648,192:53272,((53272)240)12 (147)(8)(14)"LEASE TAND Y...." X133:A:680X,A::56334,(56334)254  DELAY&I.5000::0 PRINT ONE RECORD.:780,.:781,1:782,.:783,.:59903_DI224:780,.:781,I:782,.:783,.:59903:kN"";X" Ġ# ";CR;" IN Š";FT$;" "bX1N:"";N$(X);": ";"";R$(CR,X)::l OUTPUT RTEF.^JP,16,.&hJF(.)IN$(CR):PLOT,32,20:"";:JP,16,.:17902rJY(.)D|JY3CRCR1VJY7CRCR1iJY1CRCR10|JY5CRCR10CR1CR1CREFCREFIN$(CR):PLOT,32,20:"";:19101640 BEL6& A0 A1:"ICE TITANS.ML",8,12 49152SGREE ' ASYSG C-128 JUSTIFYSGRANCH ALCSGIRECT OADS DDLOGO% LOADER185,221,207,168,169,,108,5,0 - 32,155,183,138,72,32,155,183,104,168,24,76,240,255,06- 0,,255,1,255,1,,1,1,,1,255,1,255,0Y- 255,255,2,,1,5,,7,8,6,,3,2,4,169,1,77,16,208,141,16,208,76+N 120,207,189,,208,56,237,220,207,157,,208,176,8,16921,207,240,8,141,168,2,160+0 0,32,60,207,76,163,207,173,168,2,10,170,189,202,207F+: 8,152,10,170,40,48,25,240,43,173,220,207,24,125,0~+D 208,157,,208,144,31,169,1,77,16,208,141,16,208,76+N 120,207,189,,208,56,237,220,207,157,,208,176,8,169(h 128,128,,128,128,0(r 255,128,,255,,0(| 0,,127,255,,64) 1,,94,1,,64") 1,,95,253,,648) 1,16,95,253,8,64O) 1,252,95,253,8,64d) 1,16,95,253,,64w) 1,,95,253,,64) 1,,95,253,,64) 1,,64,1,,127) 255,,,,,0) 0,255) ,4,60&x 32,3,,192,,255& 0,,,,,0& 0,,,,,0' 0,,,,,0' 0,255,,,8,15+' 255,20,16,3,34,32A' 5,62,64,9,34,255Y' 241,34,128,17,,143r' 17,60,128,17,34,255' 241,34,128,17,60,143' 17,34,128,17,34,128' 17,60,255,241,,128'6,3,12,32,5,124$~ 64,9,,255,241,0% 128,17,,143,17,0% 128,17,,255,241,0-% 128,17,,143,17,0C% 128,17,,128,17,0Z% 255,241,,128,17,0p% 128,17,,143,18,0% 128,20,,255,248,0% 0,,,,,0% 0,60,,,66,0% 3,255,192,4,,32% 3,25132,136,144,224,-1" SPRITE DATA"0,,,,,0#0,,,3,255,128#2,1,,2,2,0.#2,4,,2,2,0?#2,1,,2,,128U#2,96,64,2,144,32f#3,8,16,,4,8v#0,2,4,,1,2#0,,129,,,65#0,,34,,,20#0,,8,,,0#0,7,255,240,7,227# 240,7,1,(1)251:681:1,(1)4:56334,(56334)1 ! A:A1/!X.7:D:63488A8X,D::2060q!  169,,133,251,133,253,169,208,133,252,169,240,133,254,162,16!* 160,,177,251,145,253,136,208,249,230,252,230,254,202,208,240,96!491,250,12,248,6IGHT JUSTIFIED STRING v("0000"((IN$,(IN$)1)),4):# SAFE BASIC INPUTFI.39:(32);::"";:IN$""X198,.:204,.198,15:Z$:Z(Z$):Z95(Z193Z218)1950ZL(IN$):ZLA1980Z31IN$IN$Z$:Z$;:1950Z13ZLLS24,15:S5,.:S6,247:S1,50:S4,17"S,2:X.175::S4,16:A SWITCH TO COMMAND SCREENw140:PLOT,23,23:"";:RL%IN$(M((.))):19101750:IN$(CR):PLOT,32,20:"";:1910: SWITCH TO TEXTV21,.:B$:1750:!ЍЍЍЍЍЍ ( BƠ'ۈ ' ʎ z     e pǢ   eƩЍ ȭ-ȍЩԍЩ6ЩТ) Ȏ Ȣ!  Ȣ2ȩ- Щ)Ѝ* ­jș Ƚsș'н6șȈ ǝȹǝΧ⭫ i  2­Э 2­Ѝ $Ģ $  A   J e E ­ۭ-ЍЭ-ЍЭ Щ LwЍd  ! INFOFLOW 64 (C)1987 ""853280,11:53281,.~V53248:SPBASE491521016:S54272:JP56320:JF(V)(((JP)16).)(M(V)(VRL%):PLOT531802NF$" O ILE IN EMORY!":FE$"ILE URRENTLY IN EMORY!":Q$" " <BO(7):I. (V1)2 ((V16)1)1X8X60I150I1871620:220A I235220z "JP,16,.:PLOT,15,24:"";Q$"?";:1740:1740:1740 'JF(.).(.).295 (JF(.)648,4:679,.:679 )PLOT,15,24:"";Q$;:220 , SAVE/LOAD FILE 61810 @1 15,"S:]"A$:15:2,8,2,"]"A$",S,W"IJEF1:2,RL%;CR$;TL;CR$;J;CR$;N;CR$;FT$iX1N:2,N$(X);CR$;L%(X):J1EF1:I1N:2,R$(J,I):I,J2:15,8,15:15,DS,DS$:15:""DS$:1830600 LOAD FILEEFFE$:1830:1780:DI,J:EFEF1:CR1N2:15,DS,DS$.X""DS$;:15:1830@b1780:1750:Zl INITIALIZE NEW FILEv1810:EF"";FE$:1830:1780:1750:RL%.:TL.:" ILENAME:";:A10:1930:FT$IN$"UMBER OF FIELDS:";:A2:1930:N(IN$):N1NM((.)):EF2:R$(TL,N))"HIS FILE WILL PERMIT AT LEAST"CM((.));" ECORDS."a"CCEPT OR ҒEJECT?"~A$:A$"A"A$"R"760A$"R" "MPTY ILE REATED.";:CR1:EF1:1830:1780:1750  DELETE RECORD(S) *1A$"Y"A$"N"880 zA$"Y"1780:,"...."OI1N:R$(CR,I)""::X1EF1R$(X,1)""I1N:R$(X,I)R$(X1,I):R$(X1,I)"":IXEF1EFCREFEF11860:" Ġ#";CR;"."1830:10701830:1780:1750: L1110:1780:V1850.`JY(.):ACR:JF(.)SjJY3CRCR1:CREFCREF:1110vtJY7CRCR1:CR1CR1:1110~JY1"";:1180CRA11101120"";:X1N:N$(X);":";AL%(X):IN$" ":194";:A2:1930X(IN$):X1XN12602MEF1::"TAND BY...ORTING ILE!"I M(M2):M.1370\K(EF1)M:J1dIJ(LIM:R$(I,X)R$(L,X)13502R1N:A$R$(I,R):R$(I,R)R$(L,R):R$(L,R)A$:<IIM:I11320FJJ1:JK1 EARCH OMPLETED.";:CR1:1830:1780: HARDCOPY<1810:EF.NF$:1830:1780:1750:{"*** ECORD ANGE FOR ARDCOPY *** " A$"":"ROM:";:A3:1930F(IN$)F1FEF1460A$"":"O:";:A3:1930#,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,167:BO(I)2I::CR$(13) F2010V PV21,.:V16,16:I.7:SPBASEI,32I::V39,15 ZIV40V46:I,6::I5120051711:A:I,A: dIVV15:A:I,A: nI5300053223:A:I,A::53000 xB$" * NFOLOW 64 * "  LEVELAND . LAKEMORE * ";W 3)" 0000 ECORDS!":15)"";Q$;"" V16,16:V,160:V1,115:V21,255: JP,16,16 C(V30):C(V30)254:I17:BO(I)CCI C300,620,800,1080,1220,1380,1430 X(V):I5,8,15:153 JST." !":1830:1780:1750:T T198,0:"ӒAVE OR ̒OAD?"| ^198,1:A$:A$"L"A$"S"1780: hA$"L"470 r SAVE FILE TO DISK |EF.NF$:1830:1780:1750: "Ǡ ";FT$:A$FT$15,8,"ILENAME:";:A12:1930:A$IN$42:2,8,2,"]"A$",S,R"X15:15,8,15:15,A,DS$:A.600o2,RL%,TL,EF,N,FT$R$(TL,N),N$(N),L%(N)I1N:2,N$(I):2,L%(I)&J1EF0I1N:#2,A$:A$CR$R$(J,I)R$(J,I)A$:57022650N$(N),L%(N)=X1N:"AME IELD #";X;":";:A39:1930:N$(X)IN$rA$"":"ENGTH IELD #";X;":";:A3:1930:A$IN$(A$).(A$)255L%(X)((A$)):710"EFAULT (160) !":L%(X)160RL%RL%L%(X):RL%RL%3(N1)5:TL810:EF.NF$:1830:1780:1750:D4"ÒURRENT ECORD, ӒCAN ILE, LL OR ŒXIT?"q>A$:A$"E"A$"S"A$"C"A$"A"830HA$"E"1780:RA$"S"990\A$"C"910:1780:f"Š̠!Šՠ?(/)"pA$:!198,.:"- ϠXIT, - ELETE "BA$:JY(.):JY.A$""1000TJY3CRCR1fJY7CRCR1wA$""910A$""1780:CREFCREF$CR1CR1.1860:10008 VIEW RECORDSB1810:EF.NF$:0:"";:IN$" "R$(CR,X)(IN$,2)4:CREFR$(CR,1)""EFCR1:EFTLEFTL>1110R SORT RECORDSp SHELL METZNER ALGORITHM1810:EF.NF$:1830:1780:1750:X1N:X;". ";N$(X):"ORT BY WHICH IELD? (1 -";N;") :290P1310Z" Ԡ.":1830:1780:1750:<d SEARCH RECORDS, FIND STRINGen1810:EF.NF$:1830:1780:1750:x"EARCH TRING:";:A23:1930:S$IN$J1EF1:I1N:(R$(J,I),(S$))S$CRJ:1110:CRJI,J:" L(IN$)L1LEF1490"":" ";FT$+15,4,15:15_ST." !!!!":1830:1780:m4,4,7:4JFL:CRJ:1880::"4,"",46" ONE.":1780@1750:J CURRENT RECORD BAR 140:220? B$:2)"AVE"6)"EW"6)"ELETE"4)"IEW/DD"n 2)"OAD"6)"ILE"5)"ECORD"4)"ECORD" X.39:"";:::32)"۳" 2)"ORT"6)"EARCH"3)"ARDCOPY"2)"URRENT" 31)"ECORD" " * (C)1987 Y Ѝ!  < ة 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,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,1Au lAHOY! JANUARY 88492ABOOTLANKSPEED 64 UG EP ɠ 128 BUG REP II TEXTSAVETEXTSAVE DEMONFOFLOW 64&JUNGLE JAKE  CE ITANSICE TITANS.MLLONE-A-ATICSOLUTIONS C-128DESIGNS C-128ESIGNS -64PROBABILITY 128IDEAL INPUT 128 DEAL NPUT 64FADE AWAY 128FADE AWAY 128-2ADE WAY 64ADE WAY 64-2 ADE WAY 64-3 SUPER BOWL 128 LANK IN UG EP IN BUG REP IN TEXT IN TEXT DEMO IN NFO IN JUNGLE IN CE IN LONE IN SOLUTIONS IN DESIGNS IN ESIGNS INPROB INIDEAL INDEAL INFADE INFADE2 INADE INADE2 INADE3 IN SUPER IN LOADERDDLOGO% DIR 1 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,2d TEXTSAVE LOADER1nSA2816: RELOCATABLE?xCK0:15oI0252:ML$:ML(ML$):CKCKML:SAI,ML:CK35500"DATA ERROR!!!":"TEXTSAVE INSTALLED"SA"TO"SA253: 24,D7,10,01,60,85,16,86 17,A8,F0,0F,C0,05,90,03 4C8,10,F7! A9,D8,85,C4,A9,00,85,C3? A9,00,A4,16,F0,06,18,69]" 06,88,D0,FB,A2,12,20,CC{, CD,98,E8,20,CC,CD,A6,176 D0,24,B1,C3,0A,0A,0A,0A@ 85,DB,E6,C4,B1,C3,29,0FJ 05,DB,C6,C4,20,CA,CD,C8T D0,E8,A5,C4,C9,DA,F0,24^ |,A5,C4,C5  AF,D0,E5,60,20,D8,CD,91=  C3,B8,50,E5,84,17,A8,8A[  A2,12,20,CC,CD,98,E8,20p  CC,CD,B8,50,CB6,176 D0,24,B1,C3,0A,0A,0A,0A@ 85,DB,E6,C4,B1,C3,29,0FJ 05,DB,C6,C4,20,CA,CD,C8T D0,E8,A5,C4,C9,DA,F0,24^ d TEXTSAVE DEMO!nTS2816Tx15:(TS)36"TEXTSAVE NOT IN MEMORY!!!":r(27)"M";: NO SCROLLINGy0M$"SCREEN":S0:L24:T3420: FILL FIRST SCREEN TS,S,0: STORE ITUC3:UR3:LC24:LR12: UPPER AND LOWER COLUMNO KEYS REPEAT6S4 0 1P@ A$: TS,S,1: WAIT FOR KEYPRESS, RECALL SCREENSVJT2594,255:(27)"L";: ENABLE KEY REPEAT, SCROLLING^ 2:h UC,UR,LC,LR: OUTSIDE WINDOWr"";:IUC1 LC1:"";::"";|IUR1LR1:"";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,20LCUC):"";:."";:IUC1 LC1:"";::"";[ UC1,UR1,LC1,LR1,1: INSIDE WINDOWaI0 L:430:R0 T:5,C:M$;S,:::C((0)16)1:C(0)430: NEW COLORUCUC3:URUR3:LCLC3:LRLR3:: NEW WINDOW POSITIO,28,7D,A9,00,18,69,301 88,D0,FB,A8,A9,1E,A2,12O 20,CC,CD,98,E8,20,CC,CDm A0,1A,A6,17,D0,16,B9,E0 00,20,CA,CD,88,10,F7,A0 0D,B9,54,03,20,CA,CD,88 10,F7,30,14,20,D8,CD,99 E0,00,88,10,F7,A0,0D,20 D8,CD,99,54,03,8E6,C4,E6,C4,D0,DC,E6,C4/h 20,D8,CD,91,C3,4A,4A,4AMr 4A,C6,C4,91,C3,E6,C4,C8k| D0,EE,A5,C4,C9,DB,F0,04 E6,C4,D0,E2,A9,04,85,C4 A9,E8,85,AE,A9,07,85,AF A6,17,D0,18,B1,C3,20,CA CD,E6,C3,D0,02,E6,C4,A5  C3,C5,AE,D0,EBNYS REPEAT6S4 0 1P@ A$: TS,S,1: WAIT FOR KEYPRESS, RECALL SCREENSVJT2594,255:(27)"L";: ENABLE KEY REPEAT, SCROLLING^ 2:h UC,UR,LC,LR: OUTSIDE WINDOWr"";:IUC1 LC1:"";::"";|IUR1LR1:""; AND ROWL7:T1< OPEN 4 WINDOWS AND SAVE EACH SCREENGS14ZS2S4"";h360:420u TS,S,0450:""; 2430:UC1:UR8:LC38:LR14:"";:360"" PRESS A KEY TO RESTORE EACH SCREEN"; ,2594,64: N @@ JUNGLE JAKE (C)1987 CMBa@.,1:4,1:1,1:.:(11)(142)""14)"GET READY":750@11)"HOLD YOUR HORSES":1070:A3072:B3072767:XAB:A$:X,(A$):@(1340:A4864:B5105:XAB:A$:X,(A$)::4603,.:4604,.A2""7)" 7)"žߠߒߢ "QBx7)"žÞ"|B7)"ž::::::JAKE:::::::"B7)"ž"C7)"":10)"A GAME FOR THE C-128":13)""19)"BY" DD.:E4595:F127:H10:P15:I5:K25:R319:U1:T2:M3:LV.:SC.:MN4:VIC53248:HI(4603)((4604)256)D670:X.3:L(X)::X.6:C(X)::X.6:S(X)::X.6:S$(X):DR(X)(.)IT:D(X)((.)Y)GN)EJ(X)(CH)M(CH)M(CP)M ʹ"pFSK$"շ"(160)"׶ʮ"(34)(27)(27)"ʢ":S$"#####":"0":10F7,16,77:8,28,52:2046,56:2047,57:7,.,2,.,1,.,1:8,.,9,.,.,.,1:10,12F4592,48:4593,222:4594,24:4602,65:4600,:E,.:2047,58:U,37,55:DH$"":SCSC(LVU)1000:420:RS$:X.M:LT$:nH^LV6LVLVU:VIC21,127:DH$"": 2:290Hh 2:VIC21,129:.,12,.,"CONGRATULATIONS"CL$:.,9,1,"JUNGLE JAKE CHAMPION!"CL$:RS$:VC$:VC$: 4:VIC21,.:400HrL(LU)U:U,.,X::E,U:LLU:SCSC100((LVU)L)OJ5,C(LV):.,7,24,"":S$;SC:SCHIHISCjJ.,34,24,"":S$;HI:J DRAW GAME SCREENJVIC21,.:""(27)"M";:.,5,10,SK$:.,30,10,SK$:"":.,20(S$(LV))2,12,S$(LV): 1:30:J$:10,48:2047,58:1,30,221:1,1,9,.,.,.,1:8,1:D.:C.ILLV1500,510,520,530,540,550,560: 1:gLCS6:S2:610:570:580:LCS11:S2:620:570:590:LCS8:S1:610:570:580:LCS9:S3:630:640:570:600:LCS13:S2:610:570:580:.,6X6,.,V$::NX.4:2X,72X48,60::N/N LEVEL Y-COORDSDN 222,174,126,78WN LEVEL COLORSlN 6,12,6,5,4,8,3N LEVEL SHAPESN 53,55,54,52,53,55,54N LEVEL DESCRIPTIONS,O BITE IN THE ASP,FOR THE BIRDS,ZULU COUNT 169,,133,250,133,252,169,208%P  133,251,169,32,133,253,169,252FP 141,185,2,169,16,141,54,11gP  160,,169,250,162,14,32,116P* 255,162,,32,119,255,200,208P4 241,206,54,11,240,7,230,251P> 230,253,76,26,11,96PH CHARACTER DATAPR231,231,195,60,255R201,,,,224,240,248,248,248)R202,31,31,31,15,7,,,.JR203,248,248,248,240,224,,,.dR213,,,,7,15,31,31,31lR-1}R MUSIC DATA S "V1O5H$BV3O3Q$ESGV2O5S$ES$EV3O3SGIGV2O5I$EV3O2IFV1O5Q$AV3O2IFO3Q$EV2O4QGV1O5QGV1O5WFV3">A<7)"ž"\AF7)"ž "17)""AP7)"ž  ߩߒ ߩߴ "AZ7)"ž  ߠ  "Ad7)"ž     "(Bn26)"":9)"CLEVELAND M. BLAKEMORE"DC.,10,23,"PRESS FIRE TO BEGIN!"C1030:J$:"X0":15:25:G(J$):X1:I.::(J$,X,1):XX1(XG)G:(2)127:X(1)C: L(4),L,G,N,S,D,C,Y,B,F,H,P,I,K,R,U,T,M,E,X,SC,HI,MN,LV,C(6),S(6),CS,S$(6),VICb:E(X)(((U,.)KLU)((U,.)R(L.LT)))D.]ES$"#####":"0":990:LT$,D$,V1$,V2$,J$,RS$,VC$EB$"":F$B$:X.39:F$F$" ":B$B$(160)::V$"":X.11:V$V$"()"::M$" ":DH$"":CL$(27)"Q"FCP$"գ7G"RS$:15:450:V1$:V2$:D$RG,L.:VIC21,255:X.I:B(U):B(T)::4595,1:4864bG6 MAIN LOOPG@:E(.)410:ՋDU,.,D:CCU:DJ(.):U,.,L(L):(T)FDU:C.:U,E,K,.,R,R,.GJR(.),D(.)#S:B(U):BU?HT(BFT)FTnI|E,.:4592,U:U,U,8,,,,.:2040,59:1,60000,150,1,20000,4000,.:U,.#U:.,29MNT,U,"":MNMNU:M$(M$,TMN): 3:RS$ID$:VIC21,.:MN460:420:4592,48:300IRS$:HI4604,(HI256):4603,HI(HI256)256:50:Պ50!JE,.:XL(L)UK"":.,.,2,CP$:5,C(LV):.,.,6,F$:.,.,12,F$:.,.,18,F$:.,.,24,B$:.,1,24,"SCORE":.,31,24,"HI":420K.,15,24,"JUNGLEJAKE":.,31,.,"LEVEL":LV1;"":.,30,1,M$:.,38,6,(V$,19):.,1,12,(V$,19):.,38,18,(V$,19)LX16:X,.#.::2040M&CS7:S2:640:570:600:#M0CS16:S2:610:570:580:QM:X26:X,.,CS,.,.,.,1:2039X,S(LV)::fMDY2:G180:N90:zMNY360:G1:N.:MXY2:G180:N.:MbX25:X,170,L(X2)1::6,170,L(3)1:MlX26:X,170,60::MvX.4:RY,MONKEY BUSINESS,SNAKE YOUR BODY,PECKERS FROM ABOVE,HEADSHRINKER HEAVEN!GO REDEFINED CHARACTERSO770:15:SUM0:I28162869:J:SUMSUMJ:I,J::SUM7491"ERROR!"::՞2816:2604,(2604)2408OA:A1:ՁI.7:B:8192A8I,B::760P 40,48,96,48,24,140,198,236,24Q\41,12,6,12,24,49,99,55,24=Qf65,54,111,119,123,54,12,8,.aQp81,24,24,126,189,153,36,66,195Qz86,231,231,255,60,60,255,231,231Q87,66,195,60,90,126,36,219,66Q160,219,126,60,255,,,,.Q186,255,60,195, O3QFO4S$AV2O5SCSCV3O4S$AI$AV2O5ICV3O4ICICQ$AV2O5QC"bS "V1O3HGV2O2HGV3O1HGQGV2O6HFV1H$AV3O1SBIBSBO2SDV2O6WFV1WGV3O2IDSDSGIGSGDSGIGSG"S "V2O4I$EV1O5QCV3O4ICICV2I$EI$EV1O5QDV3O4ICICV2I$EI$EV1O5Q$EV3O4ICICV2I$EI$EV1O5QDV3O4ICICV2I$EI$EV1O5QCV3O4ICIC  "V3O2W$BV2O3WGV1O6HCH$EHDV2O3HFV3HDO2H$BV2O3H$BV1O6QCO5Q$BV1O6W$EV2O4HCV3O2H$BO4H$EO2H$BV2O3HD"JU$ SPRITE DATAU. 0,55,,1,55,40,,FB,,,EA,80,,EE,80,,AB,,,55,,1,55,40,5,75,58,15,55,5AU8 14,75,1A,14,55,,28,FF,,28,55,50,9,55,54,5,40,54,15,,14,94 D,50,2,56,40,2,FE,,,5A,,1,55,,1,55,,1,45,60,1BWj 45,60,1,40,20,A,80,20,,,,,,55,,1,55,40,,EF,,2,AB,,2,BB,,,EA,Wt 0,55,,1,55,40,25,5D,50,A5,55,54,A4,5D,14,,55,14,,FF,28,5,55,28,15,55,60,15,1,50W~ 14,,54,14,,16,14,,6,A8,,A,,,,,80,14,,80,55,,90,B5 A,,2,2A,66,65,A,AA,A8,2,AA,A0,,20,20,,20,AF,VY A8,1A,C0,20,FB,C0,10,FF,C0,10,3F,C0,10,,C0,10,3F,F0,1C,F,F0,3F,FF,F0,3F,FF,F0,3C,F,F0Y 10,A,AC,10,A,AC,10,A,AC,10,F,3F,10,F,3F,10,3F,F,10,3F,F,10,FC,3F,2,F0,BC,,80,Y 2,A0,,A,A8,,2A,2A,,A8,2A,AA51,55,45,55,5D,55,15,55,54,5,5D,50,5,55,50,1,5D,40,,FF,,,FF,,1,55,40,5,55,50g[ 5,55,50,5,55,50,5,55,50,,,FF,,F,FF,F0,1,55,40,1,AA,40,1,EB,40,5,AA,50,4,EB[  10,,BE,,1,55,40,5,5D,50,15,A6,94,15,AE,94,15,95,94,1,5D,40,,FF,,,FF,,1,55\ 40,5,55,508D,15,3,AD,F8,11,85,FB,A9,1,85,FC,58,60,AD,F3,11,D0,3,4C,87,13^]F AD,,DC,29,F,85,FD,A9,F,38,E5,FD,C9,4,D0,1B,A9,32,8D,F9,11,AD,D6,11,38,E9,1,8D,D6,11]P B0,8,A9,1,4D,E6,11,8D,E6,11,4C,65,13,C9,8,D0,3A,A9,30,8D,F9,11,AD,D6,11,18,69,1,8D,D6^Z 11,1,A2,7,8E,F4,11/_x AD,F4,11,A,AA,E8,BD,D6,11,38,CD,F0,11,B0,9,AD,F0,11,9D,D6,11,4C,DB,13,BD,D6,11,38,CD,F1_ 11,90,6,AD,F1,11,9D,D6,11,CE,F4,11,30,3,4C,B4,13,EE,F5,11,AD,F5,11,29,6,8D,2D,D0,4C,65,FA,D20,8D,F9,11,AD,D6,11,18,69,1,8D,D6^Z 11,0 *** CLONE-A-MATIC *** BUCK CHILDRESS ***_ *** P.O. BOX 13575, SALEM, OR 97309 ***"LOADING DATA...":J5300053182:A:J,A:XXA:J(X28499"ERROR IN DATA...":2808,234:52,32:56,32<:"INSERT SOURCE DISK";:250,R":300:ER1220> "READING...":53000:300:5:15:ER1220p (252)206"FILE TOO LONG TO COPY...":220 "INSERT BACKUP DISK";:198,0:250 290:ER1220 5,8,5,N$","T$",W":300:ER1220 "WRITING...":53043:300:5:1T$,ES$:EN$"00"6 6""EN$","EM$","ET$","ES$:5:15:ER1:h @169,0,162,32,133,251,133,253,134,252,134,254 J162,5,32,198,255,32,207,255,160,0,145,251 T165,144,208,12,230,251,208,241,230,252,165,252 ^201,207,144,233,76,204,255,169,54,133V2I$EI$EV1O4Q$AV3O4ICICV2I$E"nT "V3O4ICV2I$EV1IGI$EV2ICV3SRO2.I#FV2O4ICV1I$EI$EV2ICV3O2IGO3.ICV2O4ICV1I$EI$EV2ICV3O3.I$EV2O4ICV1I$EI$EV2ICV3O3I#F"T "V1O1CO0AO1HDO0.AQBV1O1CO0AO1HDO0.AQBO1HCFEDQV1O1CO0AO1HDO0.AQ"T "V1T0X0V2T0X0V3T1X0U15"8U,,14,90,,14,A0,,2A&VB 0,,,,,55,,1,55,40,,FB,,,EA,80,,EE,80,,AB,,,55,,1,55,,5,75uVL 40,5,55,40,5,75,A0,1,95,80,,AF,80,,A5,,,55,40,,55,40,9,51,40,9,51,40,8,1VV 40,8,2,A0,,,,,,55,,1,55,40,,EF,,2,AB,,2,BB,,,EA,,,55,,V` 55,40,1,5D,50,1,55,50,A,5,80,56,A5,80,16,A55X 0,5,54,,81,55,,81,55,40,95,55,40,15,15,40,,15,40,,15,40,,55,10,81,54,4,85,50kX 1,95,40,1,95,,1,,,44,,,10,,,,,,,,,,,,F,,,1A,40,X 2A,80,,2A,80,,A,,,2,40,,,90,,,A0,,2,90,,A,40,,2A,1,,A4,8,2X A0,20,A,40,28,2A,,A,A4,,1,A,A8,A,AA,A0,2,96,80,,EB,,,69,,,AA,,,28Z 0,,28,,,,,,,,,,,,,,,,,,,,,,,,,,,>Z 0,,,,,,,,,,,,,,,,,,,,,,,,,,,,,hZ 0,,,,,,,,,,,,,,,,,,,,,,,,28,,,99,,1Z DD,80,E,66,70,,20,FF,8,8F,FF,F2,81,55,42,A1,AA,4A,51,EB,45,55,AA,55,54,BE,15,50,BE,5[ ,5,55,50,5,55,50,5,55,50,,,7E,,,81,,,7E,,10,,8,38,7E,1C,7Cb\ DB,3E,FE,7E,7F,FF,42,FF,FE,5A,7F,F5,BD,AF,E3,C3,C7,E3,BD,C7,E3,B5,C7,E3,BD,C7,73,B5,CE,33\( 81,CC,11,7E,88,,E7,,,E7,,1,E7,80,1,C3,80,1\2 INTERRUPT DATA]< 78,A9,16,8D,14,3,A9,13,90,8,A9,1,4D,E6,11,8D,E6,11,C6,FB,10,1E,AD,F8,11,85,FB,A5,FC,18,6D,F9,11,8D,F8,7,A5s^d FC,18,69,39,8D,FF,7,C6,FC,10,4,A9,1,85,FC,AD,E6,11,29,1,D0,12,AD,D6,11,38,CD,F2,11,B0^n 18,AD,F2,11,8D,D6,11,4C,AF,13,AD,D6,11,38,CD,FA,11,90,6,AD,FA,11,8D,D6,1 F"NAME OF FILE (PRESS $ FOR"8 P"THE DIRECTORY)";N$O ZN$"$"53087:70 d(N$)1(N$)16"1 TO 16 CHARACTERS...":70 n"TYPE OF FILE - PRG/SEQ/USR (P/S/U)";T$ xT$"P"T$"S"T$"U"110 290:ER1220 5,8,5,N$","T$" 5:ER1220 "COPY COMPLETE..."C "COPY ANOTHER FILE (Y/N)";F$R F$"Y"60[ 280 ", THEN PRESS RETURN.":"PRESS Q TO QUIT." A$:A$(13) A$"Q"260 52,160:56,160::808,237: "15,8,15:15,"I" ,15,EN$,EM$,E,1,162+ h5,32,201,255,160,0,177,253,32,210,255,165] r253,197,251,208,13,165,254,197,252,208,7,169 |55,133,1,76,204,255,230,253,208,226,230,254 76,60,207: END COPY ROUTINE...BEGIN DIRECTORY 169,147,32,210,255,169,36,133,251,169,5,162 !"PROBABILITY CALCULATION"J ==================================o PROBABILITY CALCULATION FOR PROBLEM #42-2:CLIFF HANGER BY CHARLES KLUEPFEL ================================== N10:Y10:F2(10):T "IDEAL INPUT"> ==================================b COMMODARES PROBLEM #45-1 :y IDEAL INPUT SOLUTION BY JIM SPEERS ==================================dTY204: (0)(1) TY2599nU$"": TY * ==================================N COMMODARES PROBLEM #45-1 :e IDEAL INPUTz SOLUTION BY BILL STECH ====== C-64 ONLY ===============d 1,55 : SELECT ROM BASIC i"THIS TAKES OVER 40 SECONDS.. * ==================================N COMMODARES PROBLEM #45-2 :c FADE AWAYx SOLUTION BY DAVID ALAN WRIGHT ================================== 53281,0:53280,0:C$(1)"":C$(2)"":C$(3)"* ==================================N COMMODARES PROBLEM #45-2 :c FADE AWAYx SOLUTION BY TOM GRIFFIN ================================== (147):646,0:53281,0:53280,0:C(12):M55445"A$" COMMODA* ==================================N COMMODARES PROBLEM #45-2 :c FADE AWAYx SOLUTION BY DAVID ALAN WRIGHT ================================== 53281,0:53280,0:C$(1)"":C$(2)"":C$(3)"* ==================================N COMMODARES PROBLEM #45-2 :c FADE AWAYx SOLUTION BY NORMAN RICHARDS ================================== ---- FIRST PROGRAM -------------- A10011:"8,160,0,32,186,255,169,1,162,251,160,0N32,189,255,32,192,255,162,5,32,198,255,32207,255,32,207,255,32,207,255,32,207,255,32207,255,72,32,207,255,168,104,170,165,144,2408,32,204,255,169,5,76,195,255,152,32,205189,169,32,3>(W$,(W$)1): 210% W$(W$,(W$)1)- I6 ""S PROBLEM #45-2 :c FADE AWAYx SOLUTION BY NORMAN RICHARDS ================================== ---- FIRST PROGRAM -------------- A10011:"* ==================================N COMMODARES PROBLEM #45-2 :c FADE AWAYx SOLUTION BY ROBERT MARCUS ====== C-64 ONLY ===============2(142)(147)<82)"THERE WILL BE A SLIGHT DELAY BEFORE"* cF N11 17@FF(2NY2)(2NY1)(N(NY))4 : TTFF(]2 "#.######";2T15 INSERTSPROBABILITY 128 @55e,0x Z$: Z$"" 120, Z$(13) 150EU$U$Z$: Z$;: 120_ TY,1:" "::""U$5 INSERTSPROBABILITY 128 @55 IDEAL INPUT 128."! n T40960 49151: T,(T):Y x 44136,0: 44183,0: 43968,255: 44140,0: 44144,0x 1,54 : SELECT RAM BASIC U$ : CAN USE COMMAS NOW U$EAL INFADE INFADE2 INa";C$(4)"":I14:J1(C$(I)):(C$(I),J,1)"FADE"R K1500 : K,J,I[(""15 INSERTSPROBABILITY 128 @55 IDEAL INPUT 128vRES "::::A$A$A$:L012:C(L):JP150:L012:MPL,C(L):::20p 0,11,12,15,1,1,1,1,1,15,12,11,0 INSERTSPROBABILITY 128 @55 IDEAL INPUT 128a"; C$(4)"":I14:J1(C$(I)):(C$(I),J,1)"FADE"R  K1500 : K,J,I[ (""15 INSERTSPROBABILITY 128 @55 IDEAL INPUT 128FIRST":B1A::"":A> d ---- SECOND PROGRAM -----------N nW$"SECOND"{ xL(W$):C$"":D$"" I1 L: B1 5 C$" "W$" " A1 50 : D$" "W$" " A1 50 : B DD1: D2 D0:W$U2,210,255,32,225,255,240,234,32C207,255,208,243,169,13,32,210,255,184,80,2014,197,252,208,7,169 |55,133,1,76,204,255,230,253,208,226,230,254 76,60,207: END COPY ROUTINE...BEGIN DIRECTORY 169,147,32,210,255,169,36,133,251,169,5,162 A82)"THE CHARACTERS BEGIN TO FADE BEFORE"? F82)"YOUR EYES"w d254,(56):56,56:: PROTECT CHAR. MEM. FROM BASIC iN(7):N(0)3:N(1)1:N(2)6:N(3)0:N(4)5:N(5)7:N(6)4:N(7)2 n 56334,(56334)254 x 1,(1)251! I0272:I14336,(:: WIPE OUT CHAR'S BIT BY BITT "":53272,((53272)240)4: RETURN TO ROM CHAR MEM.{ 56,(254):: PUT TOP OF MEM BACKN(0)3:N(1)1:N(2)6:N(3)0:N(4)5:N(5)7:N(6)4:N(7)2 n 56334,(56334)254 x 1,(1)251! I0272:I14336,( SOLUTION TO THE UNE 1987 OMMO- DARE REQUIRING A PROGRAM TO CALCU- LATE THE PROBABILITY OF REACHING ONE END OF A LOG OR ANOTHER IN 25 SHUFFLES. 4 SCREEN. ESIGNS -64PROBABILITY 128IDEAL INPUT 128 SOLUTION TO THE EPTEMBER 1987 OMMODARE REQUESTING A ROUTINE TO ALLOW THE INPUT OF COMMAS AND OTH- ER RESTRICTED INPUT CHARACTERS ON THE -128. 4 SCREEN. ESIGNS -64PROBABILITY 128IDEAL INPUT 128 SOLUTION TO THE EPTEMBER 1987 OMMODARE REQUESTING A ROUTINE TO ALLOW THE INPUT OF COMMAS AND OTH- ER RESTRICTED INPUT CHARACTERS ON THE -64. 4 SCREEN. ESIGNS -64PROBABILITY 128IDEAL INPUT 128u SOLUTION TO THE EPTEMBER 1987 OMMODARE REQUIRING A ROUTINE TO MAKE AN ONSCREEN WORD FADE AWAY. OR THE -128. - INPUT CHARACTERS ON THE -64. 4 SCREEN. ESIGNS -64PROBABILITY 128IDEAL INPUT 128| SECOND SOLUTION TO THE EPTEMBER 1987 OMMODARE REQUIRING A PROGRAM TO MAKE AN ONSCREEN WORD FADE AWAY. OR THE -128. - 8. - TERS ON THE -64. 4 SCREEN. ESIGNS -64PROBABILITY 128IDEAL INPUT 128t SOLUTION TO THE EPTEMBER 1987 OMMODARE REQUIRING A ROUTINE TO MAKE AN ONSCREEN WORD FADE AWAY. OR THE -64. - 4. - -128. - TERS ON THE -64. 4 SCREEN. ESIGNS -64PROBABILITY 128IDEAL INPUT 128{ SECOND SOLUTION TO THE EPTEMBER 1987 OMMODARE REQUIRING A ROUTINE TO MAKE AN ONSCREEN WORD FADE AWAY. OR THE -64. - 4. - TERS ON THE -64. 4 SCREEN. ESIGNS -64PROBABILITY 128IDEAL INPUT 128z THIRD SOLUTION TO THE EPTEMBER 1987 OMMODARE REQUIRING A ROUTINE TO MAKE AN ONSCREEN WORD FADE AWAY. OR THE -64. - - . - TERS ON THE -64. 4 SCREEN. ESIGNS -64PROBABILITY 128IDEAL INPUT 128I53248):: MOVE FIRST 34 CHARACTERS/ 1,(1)4E 56334,(56334)1| 53272,((53272)240)14: NEW CHAR. MEM. LOCATION 85)"NOW WE SHALL BEGIN FADING OUT" I07:BI(I)2I:: SET BIT J07:I1434414608 I,(I)(BI(N(J))): SOLUTION TO THE EPTEMBER 1987 OMMODARE REQUIRING A ROUTINE TO FIND THE MINIMUM AND MAXIMUM BOWL- ING SCORES POSSIBLE FOR A GAME WITH FIVE SPARES AND FIVE STRIKES. GNS -64PROBABILITY 128IDEAL INPUT 128 Z198,0'dI0I1:"DDLOGO",8,14i53280,2Gn55,0:56,92:Ux53265,59d53272,120|56576,(56576)25425055,0:56,16053265,2753272,2156576,(56576)1"";:53280,6:53281,0:(14); "OADING 276,17:54283,17& " 54272,00: 54273,33> ,54279,59:54280,33_ 6 X1 25: HI(X),LO(X): Xz @ X1 25: DU(X): X J X1 64: H3(X),L3(X): X T 54296,15 ^B1: X1 25 hAN$:AN$(13)460 r 54272,LO(X): 54273,HI(X) |  28,49,33,135,28,49(  25,30,28,49,31,165B  33,135,37,162,28,49]  37,165,33,135,31,165v & 25,30,22,96,18,209 0 4,2,2,3,1,4,4,2,2,8 : 4,2,2,2,2,2,2,2,2,2,2,2,2,2,2 D 8,97,16,195,8,97,16,195,8,97,16,195 N 8,97,16,195,8,97,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 AIN ENU...."< "LOAD";(34);"DIR 1";(34);",8,1"T "RUN":""q 631,13:632,13:198,2: HI(25),LO(25),DU(25),H3(64),L3(64)  54291,134: 54277,136:54284,136  54292,136: 54278,134:54285,134  54290,17: 54 54279,LO(X)45:54280,HI(X))  N1 DU(X)G 54286,L3(B):54287,H3(B)Q BB1c  L1 145:k  Ns  X| 350 S54272:I024:SI,0::155  16,195,21,31,25,30  28,49,21,31,28,49  33,135,37,162,25,30  33,135NcefRSWX???aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa @|>|>><||? ????? IIIIIy$$$   >> ?~ > ?aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa???????xxxxxxxχ?|x????????qa'$$$'  ? ``??????8xx"6*"""HIHHH1""~ ?aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaarrr'''''''''''''''''''''rrrr'''''''''''''''''''''rr?????xxx??{3?" "000qb  $44,,DDGDyAAqA??_ 0ఘఘ`aa`aaa̘```8?><????eg DD((DDDD  8!!C?⒒  $(0($"yAAqAyRIOJI=!!9!,$LD|cL@ H PHE8@8??HH ????????8,$$, qIIqQ$$D0$y? !!!ఘ``` >ఘ333? `` xxx> ?p""|q# CbbHHO <FEDpp C!!!```8``|8a`????????8I#qXHHςpHHp!!K  Ƈ0x~~33 ``  Ƈ0xDĎb@?!qq  !! ?aaa```aa`8????????< <<yAAqAyRR228DDDD8𠐐8Xq