KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK0,0,15,255,240,15,255,240,15,255,240,15,255,240,15,128,0,15n4 128,0,15,128,0,15,255,128,15,255,224,15,255,240,0,1,248,0,0,248,15,128> 248,15,193,248,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0 248,15,193,240,7,255,240,3,255,224,0,255,128,0,0,04$ A0 A1: "NAMEGAME.O",8,10 32768 MENU C-64NAMEGAME 1,255,192,1,255 192,0,0,0,0,0,0 * 9 *f 0,0,0,0,0,0,0,255,0,3,255,192,7,255,240,15,195,240,15,129,248,15,129 248,7,195,248,7,255,248,3,255,248,0,255,248,0,0,248,0,0,248,15,128 248,15,193,240,7,255,240,3,255,224,0,255,128,0,0,0K 5,128,0,0,0,0,0,0  * T *U 0,0,0,0,0,0,7,255,240,7,255,240,7,255,240,7,255,240,6,62,48,4,62,16 0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0 0,62,0,0,62,0,0,0,0,0,0,0 * . * 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0KKKKKKK ,0,0,0 * 8 *F  0,0,0,0,0,0,0,254,0,7,255,192,15,255,224,31,131,240,31,1,240,31,1,24015,131,224,7,255,192,3,255,128,7,255,192,15,131,224,31,1,240,31,1,240  31,131,240,15,255,224,7,255,192,1,255,0,0,0,0,0,0,0% * 5 *!* 0,0,0,0,K ,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0V 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,128,0,3,128,0,3,128,0,0,0,0,0,0,0b * 1 * 0,0,0,0,0,0,0,62,0,0,126,0,0,254,0,1,254,0,0,62,0,0,62,0,0,62,0,0,62,0 0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,1,255,192,KKKKKK  "SHOTGUN LOADER"< BY R. HAROLD DROIDI SG130gSG1:"SHOTGUN SHELL",8,1(13)"THIS PROGRAM CREATES AN AUTO-MENU"!" FOR A GIVEN DISK"(13)""SYS51200 ENABLES YOUR NEW PROGRAM:" #" SHIFT/RESTORE BREAKS TO ȩ7 `HHH7 ɰܭLnL|LL ɩsȩuȩ{ȩ9ȍEɩʍȍFɢ      Huȩsh8ʰ6 @ . 9ɠ s{ȭiȐȰ     (  PAD"",8SHOTGUN LOAD AND RUNPRESS SPACE TO RERUNCURRENT PROGRAMȍFɢ      Huȩsh8ʰ6 @ . 9ɠ s{ȭiȐȰ     (  'L$"":H53280,6:53265,(53265)239r I126:A$::X60:Y57:CL1:SC53281I1228812350:SP:I,SP:I1235212414:SP:I,SP:I1241612478:SP:I,SP:I1248012542:SP:I,SP: I1254412 15:V12,240& FV16,128:V14,5:V15,YF d"": SC,1:V21,255:TA10] n53265,(53265)16 (L$,5)" * * * D I R E C T O R Y * * * ": AA1:BB1:PR$:A9TA9 (L$,B6)TA)""A"-"PR$ B13 175 150 A2[HH hh Lu *Ž+ (Ž)©'` *Ž+ (Ž) ,Ž- .Ž/©'`Y)YJJJJXjWim,…iXm-…ji).…i/…ji)XjWii&j*eii+ejj``ik]k\'kll*kll*l*I6 e^ e\:"AUTO MENU FILENAME SHOTGUN";PG$: J8,8,8,PG$",P,W"R T8,(0);:8,(192);p ^A51200PT:8,((A));:y h8: "MENU CAPACITY EXCEEDED! TRY AGAIN...":1:85-MENU" " BY PRESSING Y OR N" " CAPACITY IS 26 FILES!"(1 '` Lij &jkelji`_k(l [eiijiWjX(eiiY)ejjZY)YJJJJXjWim,…iXm-…ji).…i/…ji)XjWii&j*eii+ejj``ik]k\'kll*kll*l*I6 e^ e\ (32) 150 #1,B$:B$""160- ST0 320= FLAG0230n FLAG0:DN$(DN)F$:"DISK NAME: "DN$(DN)(13) "INDICATE WHETHER A FILE SHOULD" " BE INCLUDED IN THE AUTO-MENU" " BY PRESSING Y OR N" " CAPACITY IS 26 FILES!"(1 B.:150 TM$(13)AN$" " 2258 AN$AN$TM$:AN$;"_";p T(V39):V39,(V40):V40,(V41):V41,(V42) V42,(V43):V43,(V44):V44,(V45) V45,(V46):V46,T:D130: 200 AN(AN$):AN1AN22" ":190 MENU"2 $" SPACE/RESTORE RERUNS WITHOUT RELOADING"T %" RUN-STOP/RESTORE DISABLES" &" COMMODORE/RESTORE DOES NON-DISABLING" '" WARM START"(13) ("INSERT A DISK CONTAINING" 2" BASIC PROGRAM FILES" <" THEN PRESS A KEY"(13) F  LnA)?8ʰ䨈EiEɐFɈLɩ  9ɠ   ɍxL  ɩL Lɩ7 Dž`  w`Ʃ 7Xlܭܭ8` ȍ`RUNLO  "::L 64 BUG REP,VIC BUG REP,FLANKSPEED,F-SPEED OVER,NAMEGAME RADIOACTIVE DEC.,MOLECULAR MOT.,CD22-1,CD22-2,CD22-3,CD22-4,CD22-5 CD22-6,CD22-7,DRAGON,GRAVINAUTS,ERROR CHECKER,1541 CLEAN,MYCROFT MEWS! SOLITAIRE, 606:SP:I,SP:, I1260812670:SP:I,SP:K I1267212734:SP:I,SP:j I1273612798:SP:I,SP: #M.:V53248:I20402047:MM1:I,191M: (I3946:CLCL1:VI,CL: 2I062:XX22:VI,X::I1132:VI,Y: <V8,195:V10,2 6 :A04 (L$,23)7)" DIST. BY DOUBLE L SOFTWARE"s (L$,24)7)" (C) ION INTERNATIONAL INC ":198,0:AN$"" (L$,21)8)"PRESS F1 OR CHOOSE NO. "; TM$:TM$(13)AN$"" 210 TM$(20)" ":190 TM$""300:TA10: SHADEYDUMP,SHADEYDUMP.ML,MAESTRO,SHOTGUN LOADER? SHOTGUN SHELL,MENU C-64KW * O *X 0,0,0,0,0,0,0,62,0,0,255,128,1,255,192,3,255,224,7,247,240,7,227,240b 15,227,248,15,193,248,15,193,248,15,193,248,15,193,248,7,227,240l 7,247,240,3, 255,224,1,255,192,0,255,128,0,62,0,0,0,0,0,0,0*q * C *pv 0,0,0,0,0,0,0,255,128,3,255,224,7,255,240,15,255,248,15,192,248 15,128,248,15,128,0,15,128,0,15,128,0,15,128,0,15,128,0,15,128,248 15,192,248,15,255,248,7,255,240,3,255,224,0,25 ' FJ&mJ&mFJ&mJ&m'жm \`\`!     ` HH HH hhhhL_ 3) 110 F$;. 198,0:198,1:A$:A$"Y"270b A$"N"211,0:" ";:211,0:110k 240q  (F$)16F$F$(160):275 A116:PT,((F$,A,1)):PTPT1: "PNPN1:PN27400 6110 @1:51768,PN:PTPT1$ B AN(AN$):: CH1 AN: PR$: CHA V21,0: "": 53280,0: 53281,0e (L$,15)10)"LOADING "PR$"" "LOAD";(34);PR$;(34);",8" "RUN": ""  631,13: 632,13: 198,2: ,LI6196(L$,LI)" 198,0:198,1/ P ******* READ DIRECTORY ********A UPN1:PT51769Q Z1,8,0,"$0"} dFLAG1: FLAG SET FOR READING DISK NAME nF$"":#1,B$,B$,B$,B$ x#1,B$: ST0 320 B$(34) 120 #1,B$: B$(34) F$F$B$:140 #1,B$: B$ $d ""(14)(8)13)"HADEYUMP"=n 12)"ERSION 2.0"dx 45)"(C) 1985 BY ICHAEL CHELL"A49152 50001: B:CCB: A,B: C86106 "ERROR IN DATA STATEMENTS": 120)"AVING MACHINE LANGUAGE PROGRAM...." 49872, 4915 94,010,010101,092,170,173,039,194.208,009,189,070,194,074K$038,109,074,038,109,189h.070,194,074,038,109,0748038,109,136,240,007,173B039,194,240,199,208,182L165,109,032,210,255,164V092,136,016,159,096,255`000,09 105,041,015,133,255,165$f088,133,106,165,087,133Ap105,162,003,006,105,038^z106,202,208,249,173,042{194,024,101,105,133,105173,043,194,101,106,133106,096,164,096,177,105133,107,165,093,208,007162,004,006,107,202, 000,001,002,000,001,002000,001,002,001,000,0028000,002,001,000,000,003U000,000,003,000,000,000r003,000,000,000,000,003000,000,001,000,002,000002,000,002,000,000,002000,002,000,002,000,001 001,000,002,001,002,0 165,095,133107,169,040,133,108,0327007,193,165,091,024,101T105,133,105,144,002,230q106,165,105,133,087,165106,133,088,173,040,194024,101,105,133,105,133089,173,041,194,101,106133,106,133,090,160,000177,0 3,174,032n138,173,032,247,183,165%x020,166,021,096,032,198B194,072,138,072,032,198_194,072,138,072,032,253|174,032,212,225,104,168104,170,104,133,021,104133,020,169,020,076,095225,032,198,194,072,138072,032 027,076,210,255,072,141- 001,221,169,016,044,013J 221,240,251,104,096,032g 185,192,169,074,032,210 &255,169,013,076,172,192 0032,175,192,032,185,192 :169,121,032,210,255,169 D032,032,210,255,169,003 N076,210,255,173,049 VERAGE,SIGNIFICANT,SUBSTANTIAL,MAXIMUM7WAS BEING BLACKMAILED7ˆHAS NO SECRETS TO HIDE8̈WILL INHERIT MILLIONS.8ֈIS NOT A LEGATEEI8IS A HOMICIDAL MANIACa8ꈃIS AS SANE AS I AMt8A BLACKMAILER8EXTREMELY WEALTHY8RECEIVING DEA ,205,166,094# T232,224,002,208,183,166@ ^093,202,016,171,166,091] h232,224,040,208,160,076z r237,192,173,049,194,240 |029,169,255,141,003,221 173,038,003,141,050,194 173,039,003,141,051,194 169,190,141,038,003,169 192,194,032,198,194,141,040"194,142,041,194,032,198/,194,141,044,194,142,045L6194,032,198,194,141,046i@194,142,047,194,169,000~J141,039,194,096,170,104,133,021,104133,020,169,020,076,095225,032,198,194,072,138072,032 2, 50002, "0:SHADEYDUMP.ML",8T ""140)140)" O RUN HADEYUMP ENTER: "j 5) "SYS 49152"p 032,104,192,162,000,134 091,162,001,134,093,032 203,192,162,000,134,094 032,216,192,173,048,194 240,003,162,024,04 2,000,096,000,128j033,208,255,000,000,0003t004,005,015,000,011,004P~010,006,014,001,009,013m005,012,007,002,008,003000,000,000,000,000,000000,000,000,000,001,000000,002,000,000,001,000000,000,000,002,000,000 208 251,160,003,132,092,173)039,194,240,015,160,004F165,107,133,108,006,108c169,000,042,170,232,208017,160,002,165,107,133108,006,108,169,000,042006,108,042,073,003,170181,251,170,189,054,194010,024,101,0 01000,002,001,002,000,001 002,000,001,002,003,000=(000,000,000,000,003,000Z2000,003,000,000,000,000w<000,003,002,001,002,001F000,000,000,000,003,003P003,003,000,000,000,000Z003,003,003,003,003,003d003,003,032,25 89,041,015,133,252 177,089,074,074,074,074<133,253,165,088,133,106Y 165,087,133,105,024,109v*044,194,133,105,165,0884109,045,194,133,106,160>000,177,105,041,015,133H251,173,046,194,133,105R173,047,194,133,106,177\ ,253,174,032,212 225,104,168,104,170,169*000,133,010,076,117,225G000,242,255,015,032,198d194,141,042,194,142,043194,032,198,194,141,040194,142,041,194,169,255141,039,194,096,032,198194,141,042,194,142,043 ,194X240,013,173,050,194,1412b038,003,173,051,194,141Ol039,003,096,032,204,255lv169,004,076,195,255,169000,133,105,133,106,162008,010,038,106,006,107144,007,024,101,108,144002,230,106,202,208,239133,105,096,5TH THREATS8I DON'T KNOW WHERE THAT OBJECT ISOUND ANOTHER ANONYMOUS LETTER IN THE'7MAIL THIS MORNING. MY LIFE IS IN DANGERT7FROM A JEALOUS LUNATIC. THE HANDWRITING7COULD BE THAT OF ANY OF THESE PEOPLE...,647`NO,OVERDRAWN,MINIMUM,A 141,039,003,208,024( 169,004,174,052,194,172E 053,194,032,186,255,169b 000,032,189,255,032,192 255,162,004,032,201,255 032,185,192,169,051,032 210,255,169,001,032,210 255,169,013,032,210,255 169,010,076,210,255,169  h[] ^ 0,_ #0,` 0 `_0`_ͦ^з][(РL1ݭ&2­'3©&'4¬5  3  LLHݩ, h` J L y L1 2&3 4,162 000,134,095,032,035,193; 173,048,194,240,003,162X 007,044,162,000,134,096u 032,178,193,173,048,194 "240,012,166,096,202,016 ,241,166,095,202,016,221 6048,014,166,096,232,224 @008,208,227,166,095,232 J224,025,208 $(MW)", BECAUSE "SX$(SX(MR),1)*JL(30)22:20800:J14E3::+ NS5,9:S6,192:S3,8:TTI-+*NTTI20010G+4NS4,64:J:J020040s+>NX,Y:S1,X:S,Y:TTJ9:S4,65:20010+HNS4,0:+N49178:"";:+NJ((56320)(56321))31:A0 (S4,65:J120:S1,1616(J1):I1250::)S4,0:V17,27:J1600::Q5200X) "NO...THAT WAS A FALSE ARREST.":"YOU'RE OUT OF THE GAME!")L(30P)0:L(50P)L(12L(50P))B:L(50P)0)J(33200):20000:L(58)L(58)1:L(58)L(57) THE THEATRE,IN CHURCH3LEDGER,WILL,DIARY4考2,15,210,2,14,24,2,12,143,2,11,218,4,9,247,4,7,233,4,10,143,0b4L4,28,49,4,37,162,4,42,62,2,47,107,4,37,162,2,42,62,2,47,107,2,37,1624V2,42,62,4,56,99,2,42,62,2,47,207,1,42,62,1,37,162,2,42,62,8,28 "H$(Q2)".":'"ACCUSE!":"WHO WAS KILLED?":MY12:Q1-'J112:S$(J)::Y1:20600:QQ(YMV)^'"ACCUSE!":"WHO KILLED "S$(Y)"?":Y1'J112:S$(J)::20600:HY:QQ(HMR)'"ACCUSE!":"WHAT WEAPON DID":S$(H)" USE?": }CANDELABRA FANCIER,LIBRARY,JAR OF SLEEPING PILLS,MORTON SCREED82}"N INSOMNIAC",BAKERY,.45 AUTOMATIC,JOSEPH CRULLER,MARKSMAN,PAWN SHOP2}KNITTING NEEDLE,NORMAN HOCK,CHAMPION KNITTER,CHURCH,BALL-PEEN HAMMER2}REV. ARTHUR TRANSEPT,TOOL COLLECTO "THE "IT$(Q2)".":% IR(57):X(L(12Q2)):X1004000% XX100:YN0XIJ% XP"YOU HAVE THE "IT$(Q2)",":"DON'T YOU?":% "I THINK THAT PLAYER #"X"HAS":"THE "IT$(Q2)".":%YN0(Q2MWQ1MR)J9:20800%XQ1"I'VE GOT THE":IT$( 40,136,177,251/Jy73,128,145,251,192,0,208,245,96"0}20,20,20,0,170,170,170,170,190,190,190,125,60,60,60,60,85\0d}LAW OFFICE,ELEPHANT GUN,PHYLLIS WRIT,BIG-GAME HUNTER0n}MENTAL HEALTH CLINIC,ANTIQUE CROSSBOW,DR. WILMA LIBIDO0x}"N ARCHERY EXPE R(3):YNIL(30) # "I HEARD THAT "SX$(X,1)" WAS":JI5:20800:&# R(4)2530,2540,2550L# 20900:A0"I OWN A NEW CAR.":j# "I OWN THE":IT$(A)".":# "I WAS "AL$(AL(Q1)):"ON THE NIGHT OF THE CRIME.":# AH(Q1):2560# 20900# "I 600-P190,0:YN1-P(18YN)"YES "(YN218)"NO ";.P20200:BT.PDXYNYN:20710>.@QJ(3500010J):T$:T$".":I.hQ20720z.QA0:X1:J112:L0(J)Q2(1)1XAJ:XX1.Q:.0u8,11,48,12,10,143,4,9,104,4,10,143,4,11,48 VE THREATENED TO TELL THE POLICE5>ALL THAT I KNOW ABOUT THEIR CRIMINAL6HACTIVITIES IF ANY OF THESE PEOPLEP6RDOESN'T PAY ME ANOTHER $9000 BY,MIDNIGHT SUNDAY...,16{6I HEREBY BEQUEATH ONE HUNDRED MILLION6DOLLARS TO EACH OF THESE LOYAL AN :(198)A$:A(A$)+NBT(J16)(A13):BT ,NDX((J8)(A135)(J4)(A134))<,ODY((J2)(A136)(J1)(A133)):DXDYG,O20200X,LO20200:BTn,VO(DXX5)3DX0,`O(DYY7)3DY0,jODX0DY020300,tOI14:XXDX4:YYDY4 )(:"ALL PLAYERS HAVE BEEN ELIMINATED!"*2"NOBODY WINS!":"":5300S*P"YES...YOU'VE CRACKED THE CASE!":"PLAYER #"P"WINS THE GAME!"b*ZJ(33100)*20000:"HERE IS THE SOLUTION:":S$(MR)" MURDERED"*S$(MV)" USING THE":IT ,49,042,25,30,2,23,181,2,31,165,2,35,134,2,47,107,2,37,162,2,35,134+52,47,107,2,37,162,2,35,134,2,31,165,2,29,223,4,31,165,0Q5ЄPOISONED,"N UNIDENTIFIED TOXIN"_5ڄSHOT,GUNy5䄃IMPALED,SHARP WEAPON5BLUDGEONED,BLUNT INSTRUMENT54I HA Y1'J112:"THE "IT$(J)::20600:QQ(YMW)-("ACCUSE!":"WHY DID "S$(H):"COMMIT MURDER?":Y1^(XSX(H):A042:JA:SX$(X,1)" ";:20800:(MY3:Y1:20600:QQ(YL(30))("THE POLICE ARE ARRESTING":S$(H)".....":S5,13:S6,0 R,PUB,VIAL OF SNAKE VENOM3}EDGAR QUAFF,HERPETOLOGIST,SHOPPING MALL,ITEM,MORGUE,MASTER KEYB3}WAREHOUSE,MAGNIFYING LENS,POLICE STATION,POLICE BADGEj3,~FEMALE,SHE,HER,HER,MALE,HE,HIM,HIS3~AT HOME ALONE,SICK IN BED,OUT OF TOWN,AT A PARTY3~AT Q2)".":%"I SAW THAT AT THE ":B$(X)".":-&"THE "IT$(Q2)" WAS ";:I(Q2MW)YN:I0Q1MR"NOT";K&:"THE MURDER WEAPON.":p&X0:J112:H(J)Q2(1).5XJ&:IL0(Q2):I12I0&(1).5XI&X0J9:20800&S$(X)" IS":"A RT",DELICATESSEN,BASEBALL BAT,HANNAH NOSH,SPORTS FAN%1}THEATRE,BOX OF RAT POISON,EDITH SCRIM,PEST EXTERMINATOR,HOTELd1}ARQUEBUS,CHERYL VALISE,GUN COLLECTOR,ART GALLERY,SCIMITAR1}DESIREE OCHRE,MASTER FENCER,BANK,BRASS CANDLESTICK,EMILIO LUCRE1  AM A "H$(A)".":# R(5)3030,3060,4030,4050%$ "I ";:(L0(Q2)Q1)(Q1MR)"DO NOT ";B$ "OWN THE":IT$(Q2)".":i$ YN0(Q2MWQ1MR)L0(Q2)123050}$ L0(Q2)Q13010$ S$(L0(Q2))" OWNS":"THE "IT$(Q2)".":$ "I'M NOT SURE WHO OWNS": ,12,13,78.:u4,14,24,12,8,97,0/y32,247,183,32,19,166,144,13,165,95,233,1-/"y133,65,165,96,233,0,133,66,96,162,17,76\/,y55,164,169,32,160,80,136,153,80,4,208,250/6y96,169,4,133,252,169,160,24,105,40,144,2/@y230,252,136,208,246,133,251,160, D6FAITHFUL FRIENDS...,326DEAR DIARY---,I FOUND ANOTHER ANONYMOUS LETTER IN THE'7MAIL THIS MORNING. MY LIFE IS IN DANGERT7FROM A JEALOUS LUNATIC. THE HANDWRITING7COULD BE THAT OF ANY OF THESE PEOPLE...,647`NO,OVERDRAWN,MINIMUM,A :20500:S1,303(1I),~OS4,17:J140::S4,0::20300,O198,0-O20200:BT020410-O@-PV,X321:V1,Y2012:V21,1:R-xP782,Y:49189c-P20200:BT-PXYDY:X1XMYX(XMY)MY(X1)-PXY20610-P782,Y:49189:YX:20 "TAKE AN ITEM? ";:20700:YN0&U2(4)0:"";:Y1:1400VL"FINGERPRINT ITEM":"WHICH ONE?":MY0VJ116:L(J12)B"THE "IT$(J):MYMY1:U1(MY)J`:IL(P50):I"THE "IT$(I):MYMY1:U1(MY)Ij20600:IU1(Y):"LAB REPORT:" "*I1000,2000,1400,1100,5000,1200,1500,1300,1600:J(0)c214,22::" *** PRESS BUTTON TO END YOUR TURN ***";:20400""12)"PLAYER #"P:12)"END OF TURN"J(33000):20000PP1:PL(57)950L(30P)0400920  \20600:H1:Y13H0:Q4Q4:2100)fQ2Y:QQ1:YN((1).75):20100:Q422200,3000GpJ1100::198,0:Q2130TzJ(0):tQ3R(12):Q3MVQ3Q12200T$S$(Q2):(1).2L(28)100P2240L(29)(L(29)1)1:L(29)"I NEVER GOSSIP.": V17,91:U1(1)1:"SEARCH"5U2(1)"INTERROGATE SUSPECT":MY2:U1(2)2dU2(2)U2(4)"TAKE ITEM":MYMY1:U1(MY)3B16(U2(2)L(50P))"FINGERPRINT ITEM":MYMY1:U1(MY)4B16"ACCUSE A SUSPECT":MYMY1:U1(MY)5B14"READ CORONE "PATIENT SEVERELY PARANOIAC, ENVIOUS AND"2"RESENTFUL OF OTHERS. MAY SHOW SUDDEN"K"HOMICIDAL FURY.":yY1:Q3:H0:Q41:U2(1)1Q1U2(5):2100"INTERROGATE A SUSPECT":"WHICH ONE?":MY0J112:L(J)BS$(J):MYMY1:U1 (J)0::S4,0:V21,0:"YOU ARE AT THE "B$(B)"."[l"YOU HAVE ";:L(50P)"THE "IT$(L(50P))".":640kv"NO ITEM."I0:"YOU SEE:":J112L(J)BS$(J):U2(1)U2(1)1:I1:U2(5)J:J116:L(J12)B"THE "IT$(J):U2(2)U2(2)1:I T$:I(T$):I0T$:1520"":J112:IG(J)" "S$(J)+::J(0):^@"EXAMINE "B$(B)" RECORDS":"ABOUT WHOM?"JJ112:S$(J)::MY12:20600T""B$(B)" REPORT":"ON "S$(Y)":":B1650,1690^J(34400):J1(G(Y)7):T$: "P"":L(57)L(58)1500@"ENTER YOUR SECRET CODE!":198,0:198,2:A$,B$\SC$(P)""SC$(P)A$B$rSC$(P)A$B$500J(33000):20000:20100:440XL(36P):YL(42P):S1,33:S5,9:S6,0198,0:20100:"MOVE TO BUILDING DESIRED": YN2):YN"ITEM HIDDEN."<I1200::198,0:8x"TAKE ITEM":"WHICH ONE?":MY0nJ116:L(J12)B"THE "IT$(J):MYMY1:U1(MY)J:U2(4)01450J1L(57):JPL(J30)BL(J50)0:1450"PLAYER #"J"'S ITEM":MYMY1:U1(MY  T$" DID IT, I'M SURE!":!T$:IR(3):J2I1:G(Q2)2(3I)JJ1$! 20800:=! 20900:(1).52370i!$ T$" OWNS":A1YN:A0"A NEW CAR.":!. "THE "IT$(A)".":!8 AH(Q2)!B T$" IS":"A "H$(A)".":!` R(3)2440,2470!j R(3)1 :"THE "IT$(I)2t"BEARS THE FINGERPRINTS OF":L(I12)B:L(P50)IL(P50)0V~I13L0(I)13S$(L0(I))".":mI13S$(MV)".":"NO SUSPECT.":"CORONER'S REPORT:":X(MV6):"SUBJECT IS "SX$(X,0)",""APPROXIMATELY"L(50)"YEA J112:L(J)R(16):L(J)MVL(J)J.:J3136:L(J)13L(L(J))L(J)E:L(MV)0:P1:930i"SEARCH":"YOU FIND:":I0J116:L(J12)B1030(1).6L(50P)15I1:"THE "IT$(J):L(J12)B:I0"NOTHING OF INTEREST":  "I DON'T HAVE TIME TO TALK NOW.": XSX(Q2):Q2Q12500 Q2MV2400I R(7)2290,2300,2300,2320,2320,2360k AL(Q1)3AL(Q1)AL(Q2)2285 "I WAS WITH "T$:"ON THE NIGHT OF THE MURDER.": "I CAN'T CONFIRM "SX$(X,3)" ALIBI.": R'S REPORT":MYMY1:U1(MY)6@L(25)100PL(25)B"READ "IT$(13):MYMY1:U1(MY)7{ L(50P)"DROP OR HIDE ITEM CARRIED":MYMY1:U1(MY)8B3B7"EXAMINE "B$(B)" RECORDS":MYMY1:U1(MY)9 20100:"CHOOSE ONE":20600:IU1(Y):Y1:""; (MY)J:20600:Q1U1(Y):Y1-4"INTERROGATE "S$(Q1):MY13:198,0:I12:Q402120U>"ABOUT WHOM?":J1I:S$(J):lC"":2130H"ABOUT WHAT ITEM?":J1I:"THE "IT$(J):M""RH0782,Y:49189:H0 1:J1L(57):JPL(J30)B690J"PLAYER #"J;:I1:U2(3)U2(3)1:L(50J)0:690n"":U2(4)U2(4)1:I0"NOTHING WORTH MENTIONING.""PRESS BUTTON FOR TURN OPTIONS":20400"TURN OPTIONS...":MY1:Y1: h8)T$" ACCOUNT":r(G(Y)40)0"SUBJECT NOT IN RECORDS.":T|G(Y)8"SUBJECT RECENTLY DREW UP A NEW WILL.":"SUBJECT CAN EXPECT TO INHERIT":"SUBSTANTIAL WEALTH IN THE NEAR""FUTURE.":(G(Y)64)0"SUBJECT NOT IN FILES": 2050020300:20100:(X1)(Y1)520?J2YX28:BL(58J):BMV600kL(26)P100(L(26))MVL(30P)MV600&"THAT BUILDING IS LOCKED. TRY ANOTHER.":520XL(30P)B:L(36P)X:L(42P)Y:S6,96:S4,33:J012:S1,33J$bU2(J)0:U1 )100J:20600:IU1(Y):I100IL(I50):L(U1(Y)50)0Q"":JL(50P):J"YOU DROP THE "IT$(J)".":L(J12)B"YOU TAKE THE "IT$(I)".":L(50P)I:L(I12)100P:"EXTRACT FROM THE "IT$(13):"OF "S$(MV)":"J(34000L(30)100) "HOW TRAGIC THAT":SX$(X,1)"'S GONE.":"t R(2)1"I THINK IT WAS SUICIDE.":S"~ "I THINK THAT "S$(Q3):"MURDERED "SX$(X,2)".":m" IR(4)1:YNIL(49)" "I HEARD THAT "SX$(X,1)" WAS KILLED":J(34000I10)" T$,T$:"BY A "T$".":" I RS OF AGE.":J(34000L(49)10)%T$:"SUBJECT APPARENTLY WAS "T$=T$:"BY A "T$".":|"DROP OR HIDE ITEM CARRIED":"DO YOU WANT TO HIDE THE"IL(50P):IT$(I)"? ";:20700:L(50P)0(:"YOU DROP THE "IT$(I)"."2L(12I)B(1 5,128,0,0,0,0,0,0  * T *U 0,0,0,0,0,0,7,255,240,7,255,240,7,255,240,7,255,240,6,62,48,4,62,16 0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0 0,62,0,0,62,0,0,0,0,0,0,0 * . * 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 SHADEYDUMP,SHADEYDUMP.ML,MAESTRO,SHOTGUN LOADER? SHOTGUN SHELL,MENU C-64KW * O *X 0,0,0,0,0,0,0,62,0,0,255,128,1,255,192,3,255,224,7,247,240,7,227,240b 15,227,248,15,193,248,15,193,248,15,193,248,15,193,248,7,227,240l 7,247,240,3, ! "MYSTERY AT MYCROFT MEWS"GS54272:J024:SJ,0::S24,15v53280,0:53281,0:53283,6:""(8)(142);(M$" ߩ    ߒ"2""8)M$"YSTERY AT":""16)M$"YCROFT" <""24 AN(AN$):: CH1 AN: PR$: CHA V21,0: "": 53280,0: 53281,0e (L$,15)10)"LOADING "PR$"" "LOAD";(34);PR$;(34);",8" "RUN": ""  631,13: 632,13: 198,2: ,LI6196(L$,LI)" A:J,A ? MXR(3):MVR(12):MWR(12):MRR(12):MVMR170y I12:L(74),U1(I),U2(I),G(I),AL(I),H(I),L0(I),SX(1,4) AL$(5),IT$(16),B$(16),S$(I),H$(I):H$(0)"STAMP COLLECTOR" J116:B$(J),IT$(J) IR(16):L(58I)0210 L(58I)#"":53280,0:53281,6:646,1@ "SHOTGUN LOADER"^ BY R. HAROLD DROIDk SG130SG1:"SHOTGUN SHELL",8,1(13)"THIS PROGRAM CREATES AN AUTO-MENU"!" FOR A GIVEN DISK"(13) ""SYS51200 ENABLES YOUR NEW PROGRAM <" THEN PRESS A KEY"(13)+ F198,0:198,1Q P ******* READ DIRECTORY ********c UPN1:PT51769s Z1,8,0,"$0" dFLAG1: FLAG SET FOR READING DISK NAME nF$"":#1,B$,B$,B$,B$ x#1,B$: ST0 320 B$(34) 120 #1,B$: B$( " CAPACITY IS 26 FILES!"(13)% 110. F$;P 198,0:198,1:A$:A$"Y"270 A$"N"211,0:" ";:211,0:110 240  (F$)16F$F$(160):275 A116:PT,((F$,A,1)):PTPT1: "PNPN1:PN27400 6,0,0,0 * 8 *F  0,0,0,0,0,0,0,254,0,7,255,192,15,255,224,31,131,240,31,1,240,31,1,24015,131,224,7,255,192,3,255,128,7,255,192,15,131,224,31,1,240,31,1,240  31,131,240,15,255,224,7,255,192,1,255,0,0,0,0,0,0,0% * 5 *!* 0,0,0,0,X:IT$(13):) L(MV)0:L(25)MV:AL(MR)R(3)1[ L0(MW)MR:L(12MW)MRL(12MW)R(15):275 G(MV)R(7)8(MX2):MX3G(MV)G(MV)6 "G(MR)G(MR)2(MX3):MX3G(MR)G(MR)251 ,8)"HOW MANY PLAYERS? (1-6)":198,0 6198,1:A$:A,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0V 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,128,0,3,128,0,3,128,0,0,0,0,0,0,0b * 1 * 0,0,0,0,0,0,0,62,0,0,126,0,0,254,0,1,254,0,0,62,0,0,62,0,0,62,0,0,62,0 0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,1,255,192,255,224,1,255,192,0,255,128,0,62,0,0,0,0,0,0,0*q * C *pv 0,0,0,0,0,0,0,255,128,3,255,224,7,255,240,15,255,248,15,192,248 15,128,248,15,128,0,15,128,0,15,128,0,15,128,0,15,128,0,15,128,248 15,192,248,15,255,248,7,255,240,3,255,224,0,25)M$"EWS":20000A d J4915249220:X:AAX:J,X::785,0:786,192b nA8919"ML DATA ERROR": xR(X)((1)X)1:Y(TI):SX(X)(X6) V53248:V28,1:V39,4:V37,15:V38,6:V27,0:2040,13 J8328943:J,0:J1,0:J2,0:J880 "::L 64 BUG REP,VIC BUG REP,FLANKSPEED,F-SPEED OVER,NAMEGAME RADIOACTIVE DEC.,MOLECULAR MOT.,CD22-1,CD22-2,CD22-3,CD22-4,CD22-5 CD22-6,CD22-7,DRAGON,GRAVINAUTS,ERROR CHECKER,1541 CLEAN,MYCROFT MEWS! SOLITAIRE, J:L(12J)16:J12250P S$(J),H$(J):L(J)J:AL(J)R(6)1:H(J)R(12):L0(J)R(15) L(J12)L0(J):G(J)R(7)16((1).5)32((1).5)64((1).5) :L(30)MX:L(49)3MW:L(50)R(40)20:J01:I03 SX$(J,I):I,J:J05:AL$(J)::J1M:"% #" SHIFT/RESTORE BREAKS TO MENU"T $" SPACE/RESTORE RERUNS WITHOUT RELOADING"v %" RUN-STOP/RESTORE DISABLES" &" COMMODORE/RESTORE DOES NON-DISABLING" '" WARM START"(13) ("INSERT A DISK CONTAINING" 2" BASIC PROGRAM FILES"34) F$F$B$:140' #1,B$: B$(32) 150> #1,B$:B$""160O ST0 320_ FLAG0230 FLAG0:DN$(DN)F$:"DISK NAME: "DN$(DN)(13) "INDICATE WHETHER A FILE SHOULD" " BE INCLUDED IN THE AUTO-MENU" " BY PRESSING Y OR N"110 @1:51768,PN:PTPT1F B:"AUTO MENU FILENAME SHOTGUN";PG$\ J8,8,8,PG$",P,W"t T8,(0);:8,(192); ^A51200PT:8,((A));: h8: "MENU CAPACITY EXCEEDED! TRY AGAIN...":1:85-MENU" " BY PRESSING Y OR N"0,0,15,255,240,15,255,240,15,255,240,15,255,240,15,128,0,15n4 128,0,15,128,0,15,255,128,15,255,224,15,255,240,0,1,248,0,0,248,15,128> 248,15,193,248,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0 248,15,193,240,7,255,240,3,255,224,0,255,128,0,0,0 (A$):A1A6310I @L(57)A:J1A:L(36J)5:L(42J)7:L(30J)17::P1:SC$(A)e V17,27:"":V21,0 Y14:" ";:X14:H(X4Y62(H12))15 " ̺͝";:646,H:"   "; :""::"PLAYER #1,255,192,1,255 192,0,0,0,0,0,0 * 9 *f 0,0,0,0,0,0,0,255,0,3,255,192,7,255,240,15,195,240,15,129,248,15,129 248,7,195,248,7,255,248,3,255,248,0,255,248,0,0,248,0,0,248,15,128 248,15,193,240,7,255,240,3,255,224,0,255,128,0,0,0 094,010,010101,092,170,173,039,194/208,009,189,070,194,074L$038,109,074,038,109,189i.070,194,074,038,109,0748038,109,136,240,007,173B039,194,240,199,208,182L165,109,032,210,255,164V092,136,016,159,096,255`000,0 000,001,002,000,001,002000,001,002,001,000,0029000,002,001,000,000,003V000,000,003,000,000,000s003,000,000,000,000,003000,000,001,000,002,000002,000,002,000,000,002000,002,000,002,000,001 001,000,002,001,002, \105,041,015,133,255,165%f088,133,106,165,087,133Bp105,162,003,006,105,038_z106,202,208,249,173,042|194,024,101,105,133,105173,043,194,101,106,133106,096,164,096,177,105133,107,165,093,208,007162,004,006,107,202 53,174,032 n138,173,032,247,183,165&x020,166,021,096,032,198C194,072,138,072,032,198`194,072,138,072,032,253}174,032,212,225,104,168104,170,104,133,021,104133,020,169,020,076,095225,032,198,194,072,138072,03,165,095,133107,169,040,133,108,0328007,193,165,091,024,101U105,133,105,144,002,230r106,165,105,133,087,165106,133,088,173,040,194024,101,105,133,105,133089,173,041,194,101,106133,106,133,090,160,000177,194,032,198,194,141,040"194,142,041,194,032,1980,194,141,044,194,142,045M6194,032,198,194,141,046j@194,142,047,194,169,000J141,039,194,096,170,104,133,021,104133,020,169,020,076,095225,032,198,194,072,138072,03 027,076,210,255,072,141. 001,221,169,016,044,013K 221,240,251,104,096,032h 185,192,169,074,032,210 &255,169,013,076,172,192 0032,175,192,032,185,192 :169,121,032,210,255,169 D032,032,210,255,169,003 N076,210,255,173,04'L$"":H53280,6:53265,(53265)239r I126:A$::X60:Y57:CL1:SC53281I1228812350:SP:I,SP:I1235212414:SP:I,SP:I1241612478:SP:I,SP:I1248012542:SP:I,SP: I12544128,205,166,094$ T232,224,002,208,183,166A ^093,202,016,171,166,091^ h232,224,040,208,160,076{ r237,192,173,049,194,240 |029,169,255,141,003,221 173,038,003,141,050,194 173,039,003,141,051,194 169,190,141,038,003,169 19215:V12,240& FV16,128:V14,5:V15,YF d"": SC,1:V21,255:TA10] n53265,(53265)16 (L$,5)" * * * D I R E C T O R Y * * * ": AA1:BB1:PR$:A9TA9 (L$,B6)TA)""A"-"PR$ B13 175 150 A292,000,096,000,128j033,208,255,000,000,0004t004,005,015,000,011,004Q~010,006,014,001,009,013n005,012,007,002,008,003000,000,000,000,000,000000,000,000,000,001,000000,002,000,000,001,000000,000,000,002,000,000001000,002,001,002,000,001!002,000,001,002,003,000>(000,000,000,000,003,000[2000,003,000,000,000,000x<000,003,002,001,002,001F000,000,000,000,003,003P003,003,000,000,000,000Z003,003,003,003,003,003d003,003,032,2,208 251,160,003,132,092,173*039,194,240,015,160,004G165,107,133,108,006,108d169,000,042,170,232,208017,160,002,165,107,133108,006,108,169,000,042006,108,042,073,003,170181,251,170,189,054,194010,024,101,2,253,174,032,212225,104,168,104,170,169+000,133,010,076,117,225H000,242,255,015,032,198e194,141,042,194,142,043194,032,198,194,141,040194,142,041,194,169,255141,039,194,096,032,198194,141,042,194,142,043089,041,015,133,252  177,089,074,074,074,074=133,253,165,088,133,106Z 165,087,133,105,024,109w*044,194,133,105,165,0884109,045,194,133,106,160>000,177,105,041,015,133H251,173,046,194,133,105R173,047,194,133,106,177B.:150 TM$(13)AN$" " 2258 AN$AN$TM$:AN$;"_";p T(V39):V39,(V40):V40,(V41):V41,(V42) V42,(V43):V43,(V44):V44,(V45) V45,(V46):V46,T:D130: 200 AN(AN$):AN1AN26" ":1909,194X240,013,173,050,194,1413b038,003,173,051,194,141Pl039,003,096,032,204,255mv169,004,076,195,255,169000,133,105,133,106,162008,010,038,106,006,107144,007,024,101,108,144002,230,106,202,208,239133,105,096 606:SP:I,SP:, I1260812670:SP:I,SP:K I1267212734:SP:I,SP:j I1273612798:SP:I,SP: #M.:V53248:I20402047:MM1:I,191M: (I3946:CLCL1:VI,CL: 2I062:XX22:VI,X::I1132:VI,Y: <V8,195:V10,2,141,039,003,208,024) 169,004,174,052,194,172F 053,194,032,186,255,169c 000,032,189,255,032,192 255,162,004,032,201,255 032,185,192,169,051,032 210,255,169,001,032,210 255,169,013,032,210,255 169,010,076,210,255,1696 :A04 (L$,23)7)" DIST. BY DOUBLE L SOFTWARE"s (L$,24)7)" (C) ION INTERNATIONAL INC ":198,0:AN$"" (L$,21)8)"PRESS F1 OR CHOOSE NO. "; TM$:TM$(13)AN$"" 210 TM$(20)" ":190 TM$""300:TA10:44,162 000,134,095,032,035,193< 173,048,194,240,003,162Y 007,044,162,000,134,096v 032,178,193,173,048,194 "240,012,166,096,202,016 ,241,166,095,202,016,221 6048,014,166,096,232,224 @008,208,227,166,095,232 J224,025,20 %d ""(14)(8)13)"HADEYUMP">n 12)"ERSION 2.0"ex 45)"(C) 1985 BY ICHAEL CHELL"A49152 50001: B:CCB: A,B: C86106 "ERROR IN DATA STATEMENTS": 120)"AVING MACHINE LANGUAGE PROGRAM...." 49872, 491  << RR22-1 >>7 -- MOLECULAR MOTION --R RUPERT REPORT #22X} MOVEMENT OF MOLECULES FROM ONE COMPARTMENT TO ANOTHER : TOTAL # AND # ON LEFT SIDE: TTL480 : NL480L1$(157):L$" "L1$L1$" "  MAIN LOOP ====. PRLNLTTL : RELATIVE # ON LEFTK ZRN(0) : RANDOM NUMBERf d NL480 KK1 270 n RNRL PLK3: PRK4: 130 xPLK4 : PRK3 X((0)20):Y((0)24)1 MEMORY LOCATIONS TO POKE MLK1XYK2 MRK1(20 (19);NL;17);"T=";KKT;L$;34);NR;L$'  80I  REVERSE THE ARROW OF TIMEp KKKK : TEMPK3 : K3K4 : K4TEMP T0 : 800 xPLK4 : PRK3 X((0)20):Y((0)24)1 MEMORY LOCATIONS TO POKE MLK1XYK2 MRK1(20 << CD22-1 >>> VARIOUS READERS' SOLUTIONS TOe PROBLEM #18-1 : CYCLING FUNCTIONk C(D)D((99X)(X1)) C(D)(X100)1055 C(D)D10(X100)10(X0) C(D)D10(X95)10(X5)  C(D)D(2D(X << CD22-2 >>< SOLUTION TO PROBLEM #18-2 :] BILLIARD BALLSu BY RUSSELL WILSON{nC$(12,2),S$(3):X$"":W$(1)"HEAVY ":W$(2)"LIGHT "xI112:J12:C$(I,J):J,I:I13:S$(I):I+ BBR,BBL,LBL,RBR,LRANCED" 6);"R=RIGHT HEAVY":G I13:S$(I):7);:R$:X$X$R$::Ij I112:J12:X$C$(I,J)200s J,I (18);I;(157);" BALL IS ";W$(J)VY ":W$(2)"LIGHT "xI112:J12:C$(I,J):J,I:I13:S$(I):I+ BBR,BBL,LBL,RBR,LR << CD22-3 >>< SOLUTION TO PROBLEM #18-2 :] BILLIARD BALLSw BY CHARLES GOLDBERG} D$"HEAVYLIGHTWHAT?":" ENTER DEFLECTION"" LEFT----N----RIGHT"30)"O"39)"N"39)"E" "1-2-4-5 7-8-10-11";A0),5) ZB0: 30< SOLUTION TO PROBLEM #18-2 :] BILLIARD BALLSw BY CHARLES GOLDBERG} D$"HEAVYLIGHTWHAT?":" ENTER DEFLECTION"" LEFT----N----RIGHT"30)"O"39)"N"39)"E" "1-2-4-5 7-8-10-11";APT)"H":X(197):TT(X44)(X47)(T1)(T38):(1)39)"^":c << CD22-4 >>i  SOLUTION TO PROBLEM #18-3 : SKI SCROLL BY SHELDON C. WOTRINGC)(T1)(TD) (1)E)F$: 752, 50002, "0:SHADEYDUMP.ML",8U ""140)140)" O RUN HADEYUMP ENTER: "k 5) "SYS 49152"q 032,104,192,162,000,134 091,162,001,134,093,032 203,192,162,000,134,094 032,216,192,173,048,194 240,003,162,024,0KK1 : K11024 : K240= K332 : K481 : BLANK & MOLECULEa #: CLEAR SCREEN AND SET COLOR:z ( 53281,0 : (147) 2 53281,1 : (144) 7: PUT 480 MOLECULES ON LEFT: < Y1 24 : X0 19 F K1XK2Y,K4 : : K: ==== X)YK2 A$ : A$"" 270< FIND LOCATION TO 'UNPOKE'R (ML)PL 210k YY1 : Y25 140 Y1 : XX1 : X20 140 X0 : 140 PLK3 NLNLKK : 230 NLNLKK NRTTLNL : TT1 ML,PL : MR,PR LP(653)1:ZZ1:"SCORE"Z:214,8:(8):A)""A$:(1424A)300,0214,23::"^"(0)35)"^^^^"38)"^":AA(P3)(P2):A$("",P,1): << CD22-5 >>  SOLUTION TO PROBLEM #18-3 : SKI SCROLL  0 X100))1  C(D)510(X95 D5)10(X5)W  C(D)D(2D((X0)(X100)))  C(D)5(D5)5(D5)10(X100)10(X0)  C(D)D((((X100)(X0))2)1) D5:X0 SX5:(S))X:XXD:DC(D):30B,RLB,LLB,RRB,RBL,LBR,LLL,RRR,RLR,LRL,RRL,LLRQ BRR,BLL,BLR,BRL,RBB,LBB,BRB,BLB 2 3 4 6 + 5 7 8 11,4 6 7 10 + 3 8 9 12,2 5 6 8 + 1 7 9 10 (147);"REMEMBER BALL# (1-12) AND IF IT IS HEAVY OR LIGHT.": "ENTER L=LEFT HEAVY":6);"B=BALBY PAUL T. DAWSON  F-SPEED OVER64 BUG REPVIC BUG REPNAMEGAME.SNAMEGAME.ORR22-2RR22-1$(0)$ ("4-5-7-11 2-3- 6-12";A$(1)F 2"6-8-9-11 5-7-10-12";A$(2) <U02:BB(((A$(U),1))78)3U:A$(U)"N"::C(B) FE.5(C10):U04:EE(C(21.585U))::D(C2(C)13) P"BALL";C;"IS ";(D$,(3.52.5(B(E)))(D0)211(DG53281,1:"":T55792:S1520:X500:I0500:(SJ40)65XX40A(1)41:A)"":K(197):JJ(K7)(K2):SJ,22:TJ,0::"SCORE="X << CD22-6 >>  SOLUTION TO PROBLEM #18-3 : SKI SCROLL  BY LARRY SNYDER  F-SPEED OVER64 BUG REPVIC BUG REPNAMEGAME.SNAMEGAME.ORR22-2RR22-1 << CD22-7 >>< SOLUTION TO PROBLEM #18-4 :[ LETTER MATHp BY DON MALONEYv X09: Y09: Z19 XX10Y100X100Y10ZZ10YX "X, Y, Z = ";X;Y;Z Z : Y : X2 53280,12:53281,11M" FLANKSPEED ";~ " MISTAKEPROOF ML ENTRY PROGRAM "" CREATED BY G. F. WHEAT "" COPR. 1984, ION INTERNATIONAL INC. "A5427254296:A,0:/ (CAN AT ADDRESS":2010:ADBa2515:B04700$b:4740ZfB07:AC(ADB):3030:ADBENADSR:1080:110gk" ";:Bup:ADAD8zB$:B$(136)1103010:": ";:4710"**LOAD**":420061,T,0,A$:690:1@ST64110J1070:T  A1:3070 % T(ACA):T9A$(T55):30904 A$(T48)I A$;:ACACAT:aA$"**SAVE**":4200w1,T,1,A$:680:1ST01060:T812004000A$"**LOAD**":420061,T,0,A$:690:1@ST64110J1070:T  4,4. 4," "S 4," "x 4," " 4," Ϸ "4," SAVE "4," " 4," ::"END OF ML AREA":"L54276,17:54276,16:B15,8,15:15,A,A$:15:A$:[ GET FOUR DIGIT HEXj:B$;:T$(T$)41020:2010A14:A$(T$,A,1):2060:T(A)161020:2010:B(T(1)4096)(T(2)256)(T(3)16)T(4):  A$ "4 4," CONTINUE "Y 4," "~ 4," " 4," " 4," " 4," SCAN " 4," (20);:140 , LAST LINE0 6" ":TAD((AD256)256)V @B0A1:TTA%(B):T255TT255\ Ju TA%(A)T1010:110 ^B0A1:ADB,A%(B): h:"YOU ARE FINISHED!":4000  BELL AND ERROR MESSAGES :"LINE ENTERED INCORRECTLY"::$$"": 53280,0:53281,6:646,1_. 5000:" BUG REPELLANT INSTALLED ": X 828 1023 : Y: X,Y:: 169, 0, 133, 63, 133, 64, 165, 43, 133, 251 165, 44, 133, 252, 160, 0, 132, 254, 32, 228  3, 234, 177, 251EN310 " ";0 A:TAD((AD256)256):" "T A07:TTA%(A):T255TT255Z s A%(8)T1010:110 A07:ADA,A%(A)::ADAD8:110 GET HEX INPUT A$:A$""210 A$(20)270 A$(133)4000 A$(134) 253, 160, 0, 170, 177, 251J  201, 32, 240, 6, 138, 113, 251, 69, 254, 170  138, 133, 253, 177, 251, 208, 226, 165, 253, 41  240, 74, 74, 74, 74, 24, 105, 65, 32, 210  255, 165, 253, 41, 15, 24, 105, 65, 32, 210  255, 169, 13, 32,54272,4:54273,48:54277,0:54278,249:54296,15H FA680699:B:A,B:s K169,251,166,253,164,254,32,216,255,96 L169,0,166,251,164,252,32,213,255,96 PB$"STARTING ADDRESS IN HEX":2010:ADB:SRB U2520:B080 V251,T(4)T(3)16:252,TX, 76, 73, 78, 694  83, 58, 32, 0, 76, 73, 78, 69, 32, 35L  32, 0, 0, 0, 0, 08, 133, 253, 177, 251, 208, 226, 165, 253, 41  240, 74, 74, 74, 74, 24, 105, 65, 32, 210  255, 165, 253, 41, 15, 24, 105, 65, 32, 210  255, 169, 13, 32,81200T4100h" ":14)A$*r:A$"":"FILENAME";A$:wA$""4210S|:"TAPE OR DISK?":yB$:T1:B$"D"T8:A$"@0:"A$:B$"T"4230B$"CONTINUE FROM ADDRESS":2010:ADB2515:B04500:110\B$"BEGIN S "1 4," "V 4," "{ 4," LOAD " 4," " 4," " 4," " 4," "@"A$"G"T(A)(A$)55:-A$"/"A$":"T(A)(A$)48:; T(A)16:N ADRESS CHECK^ ADEN1030r BSRBEN1040 B256(B40960B49152)B532471050  ADDRESS TO HEX ACAD:A4096:3070 A256:3070 A16:3070 ̤ "7 4," "\ 4," FLANKSPEED " !4," " "4," " (4 " 4," " 4," 1100#:"INPUT A 4 DIGIT HEX VALUE!":1100T:"ENDING IS LESS THAN STARTING!":B0:1100:"ADDRESS NOT WITHIN SPECIFIED RANGE!":B0:1100:"NOT ZERO PAGE OR ROM!":B0:1100$"?ERROR IN SAVE":1100."?ERROR IN LOAD":11008 1, 208, 3, 76, 208, 3, 230J  251, 208, 2, 230, 252, 169, 244, 160, 3, 32~  30, 203, 160, 0, 177, 251, 170, 230, 251, 208  2, 230, 252, 177, 251, 32, 205, 221, 169, 58  32, 210, 255, 169, 0, 133, 253, 230, 254, 32  228, 3, 234, 165,4100 A$(135)" ":45001 A$(136)" ":4700W A$"@"A$"G"T(B)(A$)55:250} A$"/"A$":"T(B)(A$)48:250 1100:210 A$""; 125 A0280 A1:B1290 140 B0(20);(20);:AA1 AA1 " 210, 255, 173, 141, 2, 41E  1, 208, 249, 230, 63, 208, 2, 230, 64, 230v  251, 208, 2, 230, 252, 76, 74, 3, 169, 236  160, 3, 32, 30, 203, 166, 63, 165, 64, 32  205, 221, 169, 13, 32, 210, 255, 96, 230, 251  208, 2, 230, 252, 96, 0(2)T(1)161 ZB$"ENDING ADDRESS IN HEX":2010:ENBC _2510:B080j `254,T(2)T(1)16:BT(4)1T(3)16 aB255BB255:254,(254)1 b253,B: d GET HEX LINE n3010:": ";:A08 xB01:210 }B A%(A)T(1)T(0)16:ADAAYlOCTOBER AHOY!852AFLANKSPEED F-SPEED OVER64 BUG REPVIC BUG REPNAMEGAME.SNAMEGAME.ORADIOACTIVE DEC.MOLECULAR MOT.KKCD22-1CD22-2CD22-3 CD22-4 CD22-5CD22-6CD22-7DRAGONKK GRAVINAUTS$ERROR CHECKER1541 CLEANMYCROFT MEWS2SOLITAIRE(SHADEYDUMP SHADEYDUMP.MLMAESTROKKSHOTGUN LOADER SHOTGUN SHELLMENU C-64NAMEGAMEKKKKKKKKR$ A0 A1: "NAMEGAME.O",8,1N"":53280,0:53281,6:646,1: 32768NAMEGAME #"":53280,0:53281,6:646,1)F * RADIOACTIVE DECAY *a RUPERT REPORT #22g MONTE CARLO SIMULATION OF A TWO-PRODUCT DECAY CHAIN TTL100 : INITIAL NUMBERSF22TTL : PLOT SCALE FACTOR ND2 :  * *thenamegame * org $8000 * eol equ $0d ;return eof equ $03 ;eofchr fillch equ $20 ;space buflen equ 40 chrin equ $ffcf chrout equ $ffd2 temptr equ $fb * jmp start * txtbuf ds 40 * title asc 'thenamegame' hex 0d hello asc 'hello,' hex 03 qu rts * print ldy #0 show lda (temptr),y cmp #eof beq done pha jsr chrout pla cmp #eol bne next jmp done next iny cpy #buflen bcc show done rts * *print'thenamegame' * start lda #eol jsr chrout lda #title sta teinputatypedline * jsr fill ldx #0 key jsr chrin sta txtbuf,x cmp #eol beq compare inx jmp key * *isthename'george'? * compare jsr chrout ;printreturn ldx #0 check lda txtbuf,x cmp name,x bne nogood cmp #eol beq dunit inx cpx #bufle chrout * *print'bringmegeorge!' * lda #<demand sta temptr lda #>demand sta temptr+1 jsr print lda #eol jsr chrout jmp ask * *yes;printgreeting * dunit lda #eol jsr chrout lda #<greet sta temptr lda #>greet sta temptr+1 jsr print r�L����������������������������������������THE NAME GAME HELLO, WHAT IS YOUR NAME? GEORGE GO AWAY, BRING ME GEORGE! HI, GEORGE! (ʝ`�H h L(` + 9 A �  L܀ �T ;�"":53281,0:646,1�=�" ONE MOMENT PLEASE...."�` �X4915251258:A:NNA:X,A:�l� 49152��169,0,141,238,7,141�239,7,32,253,195,173� 17,208,16,251,173,31�208,41,1,240,5,162�0,32,107,193,173,0� 208,141,184,2,112,169,4� `141,24,212,152,205,181�9 f2,240,5,162,254,142�Q l180,2,201,9,208,26�k r238,180,2,208,21,206� x169,2,206,174,2,206� ~236,7,208,5,162,0� 32,132,194,162,254,142� 180,2,201,5,208,26� 238,180,2,208,21,238� 169,2,206,12,76� 228,192,56,201,250,176�1 5,162,250,142,169,2�I 173,174,2,48,13,56�a 201,5,144,18,162,5�y 142,174,2,76,0,193� 56,201,250,176,5,162� 250,142,174,2,173,0� 208,24,109,169,2,56� 201,24,176,5,162,2� 142,169,2,141,0,208PLOT� � N1 TTL�. � (0) DC(NUC(N)) 220�H �KNUC(N) : NUC(N)K1�j �M(K)M(K)1 : M(K1)M(K1)1�r � N�z � T� � 214,23 : � � 211,12� "=PRESS A KEY TO CONTINUE==>";�  A$ : A$"" 270�  150� �  --- PRINT VALU NUMBER OF DAUGHTERS� (� NUC(TTL)�7 d� DECAY CONSTANTS�D n�DC(0).2�d x�DC(1).05 : FIRST DAUGHTER� �DC(2)0 : STABLE ISOTOPE� �M(0)TTL : INITIAL AMOUNT� � (147)" =-= RADIOACTIVE DECAY =-="� � T1 20�� � 400 : <<< GOSUB 500 TO ery asc 'whatisyourname?' hex 0d name asc 'george' hex 0d rebuff asc 'goaway,' hex 03 demand asc 'bringmegeorge!' hex 0d greet asc 'hi,george!' hex 0d * *cleartextbuffer * fill lda #fillch ldx #buflen dofill dex sta txtbuf,x bne dofillmptr+1 jsr print lda #eol jsr chrout * *print'hello...' * lda #<hello sta temptr lda #>hello sta temptr+1 jsr print * *print'whatisyourname?' * ask lda #<query sta temptr lda #>hello sta temptr+1 jsr print lda #eol jsr chrout * *n bcs dunit jmp check * *no;print'goaway...' * nogood lda #eol jsr chrout lda #<rebuff sta temptr lda #>rebuff sta temptr+1 jsr print * *printplayer'sname * lda #<txtbuf sta temptr lda #>txtbuf sta temptr+1 jsr print lda #eol jsr�ts bcs dunit jmp check * *no;print'goaway...' * nogood lda #eol jsr chrout lda #<rebuff sta temptr lda #>rebuff sta temptr+1 jsr print * *printplayer'sname * lda #<txtbuf sta temptr lda #>txtbuf sta temptr+1 jsr print lda #eol jsr�L(6L [  e Lǀ v `EP�������������VIC BUG REP������������NAMEGAME.S������������NAMEGAME.O���������������������������������������������������������������������������73,1� $208,141,232,7,173,0�4 *220,41,29,168,41,16�O 0240,13,162,11,142,248�i 67,169,128,141,11,212� <76,99,192,162,13,142� B248,7,173,232,7,141� H8,212,169,20,141,7� N212,169,0,141,12,212� T169,240,141,13,212,169� Z129,141,11,2 74,2,206� 236,7,208,5,162,0�5 32,132,194,162,254,142�N 180,2,201,13,208,23�h 238,180,2,208,18,206� 174,2,206,236,7,208� 5,162,0,32,132,194� 162,254,142,180,2,141� 181,2,173,169,2,48� 13,56,201,5,144,18� 162,5,142,169, � *** DRAGON ***�<� MULTI-COLOR SPRITE ANIMATION�~� ** MOVE TOP OF MEMORY TO MAKE ROOM FOR VIDEO BLOCK AT 32768�� 55,255: 56,127: 643,255: 644,127� � *** SET-UP SUBROUTINES ***� � 600: (VIDEO MEMORY)� � 1000: (SPRITE � KXK XKK�+ � HT(0),HH(HP): HR,HB(HP)�A � LT(0),ST(XK,AN)�M �: 100�S (� q ** PUT VIDEO MEMORY BACK TO FIRST BLOCK, AND SCREEN MEMORY TO 1024� r 56578,(56578)3: 56576,((56576) 252) 3� s 53272,20: 648,4� { ** REENABLE SH VIC-2 WHERE SCREEN IS WITHOUT CHANGING CHARACTER SET LOCATION�_ ZSB0: 53272,(SB16)4:SBVB1024SB� [ ** TELL BASIC WHERE SCREEN IS� \BBSB256: 648,BB� ` *** REGISTER ADDRESSES ***� a ** SPRITE SHAPE LOCATION TABLE� bLT(0)SB1016: I1 7:VT(I)VT(I1)2:�<i ** SPRITE HORIZONTAL HIGH-BIT REGISTER�IjHR53264�ik ** SPRITE ENABLE REGISTER�vlES53269�m ** VERTICAL EXPANSION REGISTER (1=DOUBLE HEIGHT)�nVE53271�o ** HORIZONTAL EXPANSION REGISTER (1=DOUBLE WIDTH)MR FOR '11' REGISTER)�Jw ** SPRITE-SPRITE COLLISION REG:SPRITE-FOREGROUND COLLISION REG�`xCS53278:CF53279�y ** SET-BIT AND CLEAR-BIT VALUES�zBS(0)1: I1 7:BS(I)2BS(I1):�{ I0 7:BC(I)255BS(I):�| ** MULTICOLOR SET-BIT VAL)�5 ** SPRITE COLORS (DEFAULTS: WHI,RED,L-GRN,PUR,GRN,BLU,YEL,M-GRAY)�\ CT(0),5: (THE SCALES ARE GREEN)�r ** SET PRIORITY� PR,0: (ALL IN FRONT)� ** SET HORIZONTAL SIZES� HE,1: (SPR 0=DOUBLE)� ** SET VERTICAL SIZES��$ 657,128: DISABLE SHIFT/COMMODORE CHARACTER SET SWITCH�\ 808,234: 792,193: DISABLE STOP AND STOP/RESTORE�b� *** SPRITE POSITIONS ***� ** POSSIBLE POSITIONS DIM'ED�VZ19:HZ102: HH(HZ),VV(VZ),HB(HZ)� ** ASSIGN HORI(0)1:K(1)1:K(2)0� ** INITIAL SPRITE POSITIONING�5HP6:VPVZ:XK1:AN0�c VT(0),VV(VP): HT(0),HH(HP): HR,HB(HP)� ** TELL VIC-2 WHERE TO FIND SPRITE SHAPE� LT(0),ST(XK,AN)� ** CLEAR SCREEN� "";�� *** SPRI J0 AS: K0 TS: SS$�" L0 2:X0:YVBST(I,J)64K3L�h ** CONVERT STRINGS TO SHAPE BYTES (USE MS(0-3,0-3) TO SET BITS)� M1 4:N((SS$,ML4,1))�(N48)(N52) XX MS(4M,N48)�: Y,X:: SS$:�Z64(TS32): K�� ".....1122.2."� ".....1122..2"� "......122..2"�0 ".......22..2"�E "......1222.2"�Z "......222.2."�{ ** 2ND SHAPE, 1ST SEQUENCE� "......2....."� "....22.2...."� "...33322...."� "....2222...."� "... SHAPES)�% � 900: (SPRITE POSITIONS)�/ � 100�N b� *** ACTION LOOP ***�] d� AN0 3�z i�KKP((653)): K2 370� n� (K1)(Q1) AN0:Q0: LT(0),ST(XK,AN): 105� s� K1 105� x�Q1:HPHPK(K): HP0 HPHP1� }� HPHZ HPHP1� IFT/COMMODORE AND RUN-STOP/RESTORE�; | 657,0: 792,71: 808,237�A �a V *** ARRANGE MEMORY ***� W USE THIRD VIDEO BLOCK (32768 TO 49151), SO ROM CHARACTER SET IS USABLE.� XVB32768: 56578,(56578)3: 56576,((56576) 252) 1�6 Y ** TELL I1 7:LT(I)LT(I1)1:�- c ** SPRITE COLOR TABLE�Y dCT(0)53287: I1 7:CT(I)CT(I1)1:� e ** SPRITE HORIZONTAL POSITION TABLE (LOW BYTES)� fHT(0)53248: I1 7:HT(I)HT(I1)2:� g ** SPRITE VERTICAL POSITION TABLE�hVT(0)53249:�pHE53277�Fq ** SPRITE PRIORITY REGISTER (1=SPRITE IS IN FRONT OF FOREGROUND)�SrPR53275�s ** MULTICOLOR ENABLE REGISTER (1=MULTI-COLOR ENABLED)�tEM53276�u ** SPRITE MULTICOLOR COLOR REGISTERS�vMR53285: ('01' REGISTER: ADD 1 TO UES�.}I03:MS(0,I)I::I13:J03:MS(I,J)MS(I1,J)4::�R~ *** INITIALIZE VALUES ***�l ** FOREGROUND COLOR� 53281,9: "";: (BROWN)� ** BACKGROUND COLOR� 53281,0 : (BLACK)� ** BORDER COLOR� 53280,9: (BROWN VE,1: (SPR 0=DOUBLT)� ** ENABLE SPRITES�9 ES,BS(0): (SPRITE 0 ONLY)�^ ** ENABLE MULTICOLOR FOR SPR 0�m EM,BS(0)� ** SET MULTI-COLORS 1 AND 3 (1=LIGHT GREY, 3=FLAME YELLOW)� MR,15: MR1,7� *** SAFETY PROCEDURES ***�ZONTAL VALUES�X8:B0: I0 HZ:HH(I)X:HB(I)B�:XX3: X255 XX256:B1�@�` ** ASSIGN VERTICAL VALUES�X53: I0 VZ:VV(I)X:XX8:� ** KEYPRESS MATRIX� KP(7),K(2)� I0 7:KP(I)2::KP(1)1:KP(2)0:KP(7)3�KTE SHAPES ***�2 ** # SPR SHAPES -1; # SHAPES/ANIMATION SEQ; # LINES/SHAPE -1�FNS1:AS3:TS11�j ** LOCATE SPRITE SHAPE MEMORY�ST(0,0)16: I1 NS:ST(I,0)ST(I1,0)AS1:� I0 NS: J1 AS:ST(I,J)ST(I,J1)1::� I0 NS: Y1 YZ: K,0:::� ** SPRITE SHAPE DATA�@ .='OFF' 1=COLOR 1 2=COLOR 2 3=COLOR 3�^ ** 1ST SHAPE, FIRST SEQ�s "......2....."� "....22.2...."� "....2222...."� "......22...."�� ".....1222..."� "....22122..." .11222..."� ".....2212..."� ".....1112..2"�# ".....1112..2"�8 "......112.2."�M ".......12.2."�b ".....111222."�w "......222..."�# ** 3RD SHAPE, 1ST SEQUENCE�$ "......2....."�% "..3.22.2...."�& ".3.3..22...."� 22.2...."�: "3.3.2222...."� ; ".3....22...."�< "3.....222..."�3= "....22222..."�H> ".....1222.2."�]? ".....1222.2."�r@ "......222..2"�A ".......22..2"�B ".......222.2"�C ".....2222.2."�_ ** 1ST SHAPE, 2ND SEQUENCE�  ** 2ND SHAPE, 3RD SEQ�t ".....2......"�u "....2.22...."�)v "....22333..."�>w "....2222...."�Sx "...22211...."�hy "...2122....."�}z "2..2111....."�{ "2..2111....."�| ".2.211......"�} ".2.21......."�~ ".222111.....  "...222......"�! ** 4TH SHAPE, 2ND SEQUENCE�! ".....2.....3"�-! "....2.22..3."�B! "....2222.3.3"�W! "....22....3."�l! "...222.....3"�! "...22222...."�! ".2.2221....."�! ".2.2221....."�! "2..222......"�! "2..2$d� GEORGE TREPAL COPYRIGHT 1985�:n� 2650 ALTURAS RD�Sx� BARTOW, FL 33830�z�:53281,0:53280,0:TR(40):""��11)"DISK ERROR CHECKER"��8)"NO KNOCK -- TRACKS 1-40"��12)"BY GEORGE TREPAL"� �"CHECK <A>LL TRACKS OR <S>ND (Y/N)?"� Y$:Y$""270�2 PF0:Y$:Y$""280�C "Y$"Y"PF1�t ," INSERT DISK TO CHECK THEN PRESS RETURN"� 6 2)"(FLASHING RED DRIVE LIGHT IS NORMAL)"� @A$:A$(13)320� J15,8,15:15,"I":15� T DEFINE # OF SECTORS ON TRACKS(T)(S)� 15,"M-W"(0)(0)(1)(128)�6 15,"M-R"(0)(0)�Y #15,A$:A(A$(0)):A99440�u A1" NO ERRORS":550� A2B$"BLOCK HEADER GONE"� A3B$"SYNC CHARACTER GONE"� A4B$"HEADER CHECKSUM BAD"� A5B$"READ CHECKS�>PRESS RETURN TO CONTINUE"�%bY$:Y$(13)610�.l130���)�Y #15,A$:A(A$(0)):A99440�u A1" NO ERRORS":550� A2B$"BLOCK HEADER GONE"� A3B$"SYNC CHARACTER GONE"� A4B$"HEADER CHECKSUM BAD"� A5B$"READ CHECKS)� 1541 DISK DRIVE CLEANING UTILITY�X� AUTHOR - JOHN DEROSA & THE AHOY! STAFF�v�"":53280,11:53281,11��"THE 1541 DISK CLEANING UTILITY"��""��" 1541 "� �"NE"� �Z16000:� �D$" ":AA0�H � " ENTER CURRENT DATE? ";�^ (� A$: A$"" 40�s 2� A$(13) 100� <� A$;:D$D$A$: 40� d� INITIALIZE SCREEN� n� 1200� x� "DO YOU WANT TO READ DATA FROM DISK?(Y/N)"� � 2500� � 1200� ' "..3.2222...."�( ".....1222..."�) "....22122..."�+* ".....1122..2"�@+ ".....1122.2."�U, "......122.2."�j- ".......22..2"�. "......122222"�/ "......222..."�7 ** 4TH SHAPE, 1ST SEQUENCE�8 "3.....2....."�9 ".3..` ".....2......"�a "....2.22...."�b "....2222...."�&c "....22......"�;d "...2221....."�Pe "...22122...."�ef ".2.2211....."�zg "2..2211....."�h "2..221......"�i "2..22......."�j "2.2221......"�k ".2.222......"�s"� "...222......"� ".....2......"�  "....2.22.3.."�%  "....22..3.3."�:  "....2222.3.."�O  "...2221....."�d  "...22122...."�y  "2..2211....."�  ".2.2211....."�  ".2.2211....."�  "2..22......."�  "222221......"��=2......."�! "2.22........"�! ".2.2222....."�"���3.."�%  "....22..3.3."�:  "....2222.3.."�O  "...2221....."�d  "...22122...."�y  "2..2211....."�  ".2.2211....."�  ".2.2211....."�  "2..22......."�  "222221......"�ELECTED TRACKS"�* �Y$:Y$"A"Y$"S"180�F �Y$"A"FT1:LT40:260�V �FT1:LT50� �" FIRST TRACK TO CHECK";FT� �FT1FT40210� �" LAST TRACK TO CHECK";LT� �LT1LT40230� �LTFT210� 5)"PRINT OUT ERRORS FOU�% ^J117:TR(J)20::J1823:TR(J)18:�Q hJ2430:TR(J)17::J3140:TR(J)16:�u rTFTLT:"";:15)"TRACK ";T� |" SECTOR ERROR EXPLANATION"� S0TR(T)� "SECTOR # ";S;:S10" ";� 15,8,15�� 15,"M-W"(6)(0)(2)UM BAD"� A6B$"BIT PATTERN ERROR"�A A9B$"HEADER CHECKSUM BAD"�d A11B$"FORMAT ID MISMATCH"�y " ";A18;" ";B$� &15� 0PF0A1590� :4,4:4:4,"TRACK ";T;" SECTOR";S;" ERROR #";A18;� D4," ";B$:4� N:�X8)"� AN$"N" 340�+ � READ DATA FROM DISK DRIVE�R � " INSERT DATA DISK"� � " PRESS ANY KEY TO READ DATA"� � AN$: AN$"" 230� �15,8,15:2,8,2,"CLEANDATA,S,R"� � 1300�  A 0 300� 2,DT$,TR,SC,NC,NM�  "�B �" "�h �" "� �"ѭ "� �""� �" BY JOHN DEROSA"�� �" FOR AHOY! MAGAZI NEW MAXIMUM ";: NM�2 " DO YOU WANT TO CHANGE DATA? (Y/N)"�= 2500�Q AN$"Y" 500�z " SAVE THIS DATA ON DISK (Y/N)"� 2500� AN$"Y" 1400�  AUTO CLEANING�% 1200: 1000�*NLNMNC�/ NLO 870�4 "  (Y/N)"�W 2500�\ AN$"Y" 500�a 955�2f 2200: 1200: 1000�`k " INSERT CLEANING DISK IN DRIVE"�p " PRESS ANY KEY TO START CLEANING"�u AN$: AN$"" 885�z 1200: 1000� " CLEANING"� "  ENDED":� SUBROUTINE-UPDATE STATUS LINE�$ MF1 1040�I 1266,143: 1267,134: 1268,134�T 1050�x 1266,143: 1267,142: 1268,32�TTR10: T1 T2144:T1TR: 1070�$T1(T):T2TR10T1�. 1277,T1176: 1278,T2176�3SSC1 1130�`E1(E):E2EA10E1�-j 1298,E0176: 1299,E1176: 1300,E2176�3t�R SUBROUTINE-SET UP SCREEN� ""4)"1541 DISK DRIVE CLEANING UTILITY"� " DRIVE HEAD AT TOTAL ELAPSED"� " MOTOR TRACK SECONDS SECO INSERT DATA DISK"�0 " PRESS ANY KEY TO SAVE AUTO DATA "�J AN$: AN$"" 1440�r 15,8,15:2,8,2,"@0:CLEANDATA,S,W"� 1300: A 0 1500�2,DT$;",";TR;",";SC;",";NC;",";NM� 1300: A 0 1500�2:15:60)� SW1 1770� Z1,25: Z,170:SW1: 1780�+ Z1,20: Z,150:SW0�? 1000: Z4,32�N MF1 �[15,8,15�r15,"M-R"(0)(28)�#15,X$:X(X$(0))�&BIX4�015,"M-W"(0)(28)(1)(BI)�:MF1: 15�D� SUBROUT AN$: AN$"" 2240�  15,8,15: 2,8,2,"#"�!15,"U1 2 0";TR;"0"�, 1300�C A0 2: 15:�b " MOVE HEAD FAILED"� " HEAD NOT ON PROPER TRACK"�` " TRY AGAIN? (Y/N)"�j 2500: 2: 15�t AN$"Y"   1300� " A 0 390�: , " DATA NOT READ FROM DISK"�[ 6 " TRY AGAIN ? (Y/N)"�f @ 2500� J AN$"Y" 2: 1200: 200� T 1200:DT$D$:TR2:SC30:NC0:NM15� ^ " DATA NOT READ FROM DISK"�� h " DEFAULT VA " CURRENT CLEANING TIME IS (SEC): ";SC�H " NUMBER OF TIMES DISK USED IS: ";NC�u " MAXIMUM CLEANINGS PER DISK IS: ";NM� " NUMBER OF CLEANINGS LEFT IS: ";NMNC;""� " DO YOU WANT TO CHANGE DATA? (Y/N)"� 2500: AN$"N" �CLEANING TIME IS ";SC�,X " ENTER NEW TIME (< 300)";: SC�Jb SC300 "": 590�fl SC1 "": 590�v " NUMBER OF TIMES DISK USED IS ";NC� " ENTER NEW NUMBER ";: NC� " MAXIMUM CLEANINGS PER DISK IS";NM� " ENTER  *****WARNING*****"�19 " CLEANING DISK IS USED UP"�`> " (";NL;" CLEANINGS LEFT ON DISK)"�C " DO YOU WANT TO CONTINUE CLEANING? (Y/N)"�H 2500�M AN$"Y" 1200: 1000: 870�R " DO YOU WANT TO CHANGE DATA? PRESS ANY KEY TO MANUALLY STOP"� ETSC 920�$ 1700�= AN$: AN$"" 905�V 2000: 1200: 1000�y " UPDATE DATA DISK? (Y/N)"� 2500� AN$"N" 955�NCNC1:TRTR2:DT$D$� TR35 TR1� 1400� " PROGRAM 00: S1 S00: 1077�4S0(S)�5SASCS0100�=8SSA10: S1 S2SA:S10: 1100�UBS1(S):S2SA10S1�L 1287,S0176: 1288,S1176: 1289,S2176�QEET100: E1 E00: 1107�RE0(E)�SEAETE0100�VEEA10: E1 E2EA:E10:NDS"� ""��B SUBROUTINE-READ ERROR CHANNEL�S15,A,B$,C,D�a( A0 �s< 1200: 1000�F " DISK ERROR * ";B$�P 15�Z�x SUBROUTINE-SAVE AUTO DATA� 1200: 1000� "� " DATA NOT SAVED!"� " TRY AGAIN? (Y/N)"�1 2500: 2: 15�C AN$"N" �N 1400�h SUBROUTINE-MOTOR ON�z MF1 1730�Z54272:TTTI: LZ Z24: L,0: L� Z5,9: Z6,0:Z24,15: Z4,33�ET((TITT)INE-MOTOR OFF�Z54272: LZ Z24: L,0: L�15,8,15�BIX�>15,"M-W"(0)(28)(1)(BI)�LMF0: 15�R �v SUBROUTINE-MOVE HEAD TO TRACK� " INSERT ANY FORMATTED DISK"� " PRESS ANY KEY TO MOVE HEAD"�� 1200: 1000: 2220�~ � SUBROUTINE - GET (Y/N) ANSWER�+ AN$: AN$"" 2510�= AN$"Y" �O AN$"N" �Z 2510���NE-MOVE HEAD TO TRACK� " INSERT ANY FORMATTED DISK"� " PRESS ANY KEY TO MOVE HEAD"�LUES USED"�4 r " PRESS ANY KEY TO CONTINUE"�M | AN$: AN$"" 380�Z  2: 15�t  DISPLAY AUTO DATA�~  ""�  " CURRENT DATE IS ";D$;""�  " LAST DATE CLEANED IS: ";DT$�  " CURRENT TRACK IS: ";TR� 800� CHANGE AUTO DATA� ""�> " LAST DATE CLEANED IS ";DT$�^ " ENTER NEW DATE";: DT$�} " CURRENT TRACK IS ";TR�& " ENTER NEW TRACK (1-35)";: TR�0 TR1 "": 540�: TR35 "": 540�N " CURRENT  � SOLITAIRE 64�8� BY ERIC W SINK�h�55,255:56,63::53269,.:53271,.:53277,.�u�X(TI)��S464:O414:T626:H939:Z11:Z22:Z33:Z44:O313��53280,0:53281,4:"";(142)""��(2)15(14)""��103� �54:101 �I152�% �CD((1)52)Z1:DK%(CD)17�5 �DK%(CD)I:�Q �"DEALING OUT CARDS..."�] �I128� �F1.:CDDK%(53I):DK%(53I).� �I7I13I18I22I25I27I28CDCDS4:F11� �PIPI1:P(PI,NP(PI)1)CD:NP(PI)NP(PI)1:F11PI0� �� �DN FIRST MOVE� #�269: SECOND MOVE�- $�BU1BU.:34�8 %�DN34�_ &�I17:P(I,1)S4S4NP(I)0:40�g '�34� (�I17:NP(I).::NHO3:NCO3:NDO3:NSO3� )�H(NH)O3:C(NC)O3:D(ND)O3:S(NS)O3� *�155:137:HI17:PNHI:111:� +�LV1374� ,�" 21,041,252,009,002�'9�141,000,221,169,002,141,024�H:�208,169,064,141,136,002,169�i;�147,032,210,255,169,127,141�<�013,220,169,051,133,001,160�=�000,169,000,133,251,133,253�>�169,208,133,252,169,072,133�?�254,177,251,145,253,200,192�@�007,012,024,024,024,024,024,024�8J�065,255,000,240,144,240,144,144,000�aK�066,255,000,240,016,240,128,240,000�L�067,255,000,240,016,240,016,240,000�M�068,255,000,144,144,240,016,016,000�N�069,255,000,240,128,240,016,240,000�O�070,255,000,144,240,024,000�$V�077,255,000,144,160,192,160,144,000�MW�078,255,000,054,127,127,062,028,008�vX�079,255,000,012,012,051,051,012,030�Y�080,255,000,008,028,062,028,008,000�Z�081,255,000,024,060,126,126,024,060�[�082,224,048,024,024,024,024,e��f�49152:�g��4h�M$" SOLITAIRE":P$"":108�pi�M$" BY ERIC W SINK":P$"":108�j�M$" PLEASE WAIT...SETTING UP":P$"":108�k��l��m�I1(M$):P$(M$,I);:�n��O4CDT6SUZ2� |�CDT6CDH9SUZ3�!}�CHCD((SU1)13)�N~�SU$(205SU):CO$"":SU1SU3CO$""�e�ZC1ZQ1CO$""��CD$CO$(192)(192CH)SU$(210)��CD$��HP);����" ":HP)"դ"��ZC.:ZQ.��I112NP(PN)U�SUZ4:CDS(NS):HP27:151��� � ACE�9�SU$(205SU):CO$"":SU1SU3CO$""�a�CD$CO$(192)(192CD)SU$(210)��HP)CD$:HP)" ":HP)"դ":�� DECK��DP176:158��180��""9);��DPDN16�H)SU$(210)��CD$��9);��" ":9)"դ"�:�""3);" "�]�""3);DP��""9);" "��""9);DNDP������""3);":72:190:216�B �: P(7,20),H(13),C(13),D(13),S(13),NP(7),DK%(52)�x �S464:O414:T626:H939:Z11:Z22:Z33:Z44:O313� �M$"HANG ON, STILL SETTING UP...":P$"":"":108� �X(TI)� �DP0:NH0:NC0:ND0:NS0:DN0� �::"SHUFFLING..."� 24:DP24:53280,0:53281,1�S �" * * * S O L I T A I R E * * * ";:16423,160�\ �368� �" * * * S O L I T A I R E * * * ";:16423,160� �LV1382� �55335,11::"";� �Q17:PNQ:111:� �155� !�187:226� "�243:"15);"YOU WON!!!"�5 -�""14);"PLAY AGAIN??"�= .�:�_ /�9)"PRESS UP TO PLAY AGAIN"�e 0�� 1�11)"PRESS DOWN TO QUIT"� 2�X(56320):UX1:VX2:U1V250� 3�U.10� 4�"";:53269,.:� 5�� 6�� 7�2,15�8�173,000,2000,208,247,230,252,230,254�/A�165,252,201,224,208,237,169�PB�055,133,001,169,129,141,013�aC�220,096,000�kD�"E"�E�C1.:I4915249231:B:C1C1B:I,B:1024,B:16384,B:�F�C111494"ERROR IN DATA LINES 10010-10065":�G��H��I�064,240,128,240,144,240,000�.P�071,255,000,240,016,016,016,016,000�WQ�072,255,000,240,144,240,144,240,000�R�073,255,000,240,144,240,016,240,000�S�074,255,000,152,164,164,164,152,000�T�075,255,000,112,032,032,160,224,000�U�076,255,000,240,144,024,024�\�085,024,024,024,024,024,024,012,007�C]�086,024,024,024,024,024,024,048,224�l^�087,024,024,024,024,024,024,024,024�_�088,000,000,000,000,000,000,000,255�`�-1�a�"E"�b�A:A1�c�16384,A�d�I07:B:18432A8I,B::98�o��p��q��r��s�HP3(PN1)5:UC.�"t�VP5:ZQ.�Cu�"";:I1VP:"";::HP);�Sv�NP(PN)120�{w�" ":I113:HP);" "::135�x�I1NP(PN):CDP(PN,I):ISXZQ1�y�CDS4UCUCZ1:130�z�CDCDS4:SUZ4:CDO4SUZ1�{�CDC:HP);" ":��"";:214,3::HP1)UC���!� ACES�,�"";�:�NH.141�W�SUZ1:CDH(NH):HP9:151�b�"";�p�NC.144��SUZ2:CDC(NC):HP15:151��"";��ND.147��SUZ3:CDD(ND):HP21:151��"";��NS.150� 1��" ":9)" ":9)" ":9)" ":171�6�CDDK%(DPZ1):SU4:CDO3SUZ1�O�CDO4CDT6SUZ2�g�CDT6CDH9SUZ3�}�CHCD((SU1)O3)��SU$(205SU):CO$"":SU1SU3CO$""��ZC1ZC.:CO$""��CD$CO$(192)(192C ":3);��" ":3)"դ"������LV1184�C�""3);"TURN":3);�_�"DECK":3)"OVER":186��""3);"E ":3);��" N ":3)" D "������""32)"CON ��176,013,173,000,208,201,025��144,021,206,000,208,024,144�9�015,206,000,208,173,000,208�Z�201,255,208,005,169,000,141�{�016,208,173,144,003,074,074��074,074,176,029,173,016,208��074,176,013,238,000,208,208��018,169,001,141,0 �C216685"ERROR IN DATA LINES 11400-11500":��49519,79:49439,243�"��(��M�252,000,000,224,000,000,240,000�r�000,152,000,000,140,000,000,012��000,000,000,000,000,000,000,000��000,000,000,000,000,000,000,000��000,000,000,00 JOYSTICK-SPRITE POSITION�!�49408:YS(53249):XS(53248)256((53264)1)�1!�XSXS24:YSYS51�K!�CX(XS8):CY(YS8)�Q!��W!��`!�JC.�w!�CY22CX33JC1�!�CX3CX7CY19CY22JC2�!�CX8CX12CY19CY22JC3�!�CX3��"PN7:CX33PN6�"CX28PN5�#CX23PN4�#CX18PN3�##CXO3PNZ2�2#CX8PN1�P#P1PN:NP(PN).306:243�z#DC.:I1NP(PN):P(PN,I)52DCDCZ1�# :D1NP(PN)DC1�# CACY5:CACAD1:CANP(PN)CANP(PN)�# SXCA�# �$CX8P21�$W2P(P2,NP(P2))� %W2W2S4:S2Z4:W2O4S2Z1�"%W2O4W2T6S2Z2�:%W2T6W2H9S2Z3�S% W2O3W2W2O3:288�a%!AM1342�q%"W1P(P1,SX)�%#W1W1S4:386�%$NP(P2).W1O3300�%%P1P2BU1:PNP1:111:�%&W2W1&0PNP2:111�&1�'2A120:54296,15:T13::54296,0:T13::�'3�'4�"'5AM1314�<'6SXNP(P1)306:269�L'7W1P(P1,SX)�^'8W1W1S4:386�v'9S1326,330,334,338�|':�';W1DK%(DP1)�'<386�'=S1318,320,322,324�'>W2H(NH):W2365:137:155:�(FW2H(NH):W21W1306:269�)GNHNH1:H(NH)W1�@)HNP(P1)NP(P1)Z1:P(P1,NP(P1))P(P1,NP(P1))S4:111:137�F)I�g)JW2C(NC):W21W1306:269�|)KNCNC1:C(NC)W1�)LNP(P1)NP(P1)Z1:P(P1,NP(P1))P(P1,NP(P1))S4:111:137�)M27:CX33P26�*XCX28P25�*YCX23P24�*ZCX18P23� +[CXO3P2Z2�+\CX8P21�-+]W2P(P2,NP(P2))�M+^W2W2S4:S2Z4:W2O4S2Z1�f+_W2O4W2T6S2Z2�~+`W2T6W2H9S2Z3�+aW2O3W2W2O3:353�+bW1DK%(DP1)�+c386�+dW�::DNDN1:�,o�,p LAS VEGAS OR REGULAR�-q"":"LAS VEGAS STYLE OR REGULAR??"�C-r"PUSH UP FOR 'VEGAS' AND DOWN FOR REGULAR"�k-sX(56320):UX1:VX2:U1V2371�-tU.LV1:CG1:�-uLV.:CG3:�-v"HAD YOU BOUGHT THE DECK FOR CEDE"��"";:����234,173,000,220,141,144,003�1�074,176,010,173,001,208,201�R�052,144,003,206,001,208,173�s�144,003,074,074,176,010,173��001,208,201,228,176,003,238��001,208,173,144,003,074,074��074,176,034,173,016,208,07416,208,024��144,010,173,000,208,201,063� �176,003,238,000,208,173,144�A�003,074,074,074,074,074,176�b�001,096,160,243,162,161,232��208,253,200,208,248,076,000��193,000,000��C2.:I4940849550:B:C2C2B:I,B:1024,B:16384,B:�0,000,000,000,000� �000,000,000,000,000,000,000,000�+ �000,000,000,000,000,000,000,000�P �000,000,000,000,000,000,000,000�o �I2252822591:B:I,B::�u �� �53269,.:53264,.:53248,170:53249,150:53287,6� �17400,96:53269,1:� � READCX36CY18CY5JC4�!�CY4JC5�!�� "� 1ST MOVE�"�AM.� "�229:235�8"�JC248,249,254,256�F"�306:243�N"�45�k"�DP.LV.DPDN3:252�y"�DP.374�"�DPDPCG�"�DP.DP.�"�155:243�"�DPDN247�"�ZC1:155:AM1:�"ZC1:111:�#  2ND MOVE�#229:235� $JC273,274,275,277,308�$306:269�#$248�,$272�L$AM1ZC.:AM.:BU1:155:�U$272�p$ DROP CARDS TO A PILE�$P27:CX33P26�$CX28P25�$CX23P24�$CX18P23�$CXO3P2Z21306:269�%'O11:S12S14O12�&(O21:S22S24O22�&)O11O22300�(&*O12O21300�6&+306:269�o&,ISXNP(P1):NP(P2)NP(P2)1:P(P2,NP(P2))P(P1,I):I�&-NP(P2)NP(P2)CQ�&.NP(P1)SX1:P(P1,NP(P1))P(P1,NP(P1))S4�&/PNP1:111�1W1306:269�'?NHNHZ1:H(NH)W1:365:137:155:�(@W2C(NC):W21W1306:269�>(ANCNCZ1:C(NC)W1:365:137:155:�_(BW2D(ND):W21W1306:269�(CNDNDZ1:D(ND)W1:365:137:155:�(DW2S(NS):W21W1306:269�(ENSNSZ1:S(NS)W1:�)NW2D(ND):W21W1306:269�)ONDND1:D(ND)W1�0*PNP(P1)NP(P1)Z1:P(P1,NP(P1))P(P1,NP(P1))S4:111:137�6*Q�W*RW2S(NS):W21W1306:269�l*SNSNS1:S(NS)W1�*TNP(P1)NP(P1)Z1:P(P1,NP(P1))P(P1,NP(P1))S4:111:137�*U�*V�*WP 1O3NP(P2).363�+eW2W11306:269�+fO11:S12S14O12�,gO21:S22S24O22�&,hO11O22363�9,iO12O21363�G,j306:269�{,kNP(P2)NP(P2)Z1:P(P2,NP(P2))DK%(DP1)S4:365�,l155:PNP2:111:�,m�,nADP1DN:DK%(A)DK%(A1) $50,"�-w"AT $5 FOR EVERY CARD YOU PUT AT THE TOP,"�.x"YOU WOULD RECEIVE $"(NHNCNDNS)5"BACK."�B.y"THIS LEAVES YOU WITH A NET ";�n.z((NHNCNDNS)5)500"PROFIT":380�z.{"LOSS"�.|"OF $"(((NHNCNDNS)5)50)�.}45�.~X$"LA �56334,(56334)254�3�X3660940959:X,Z:�K�55,4:56,109::10�y �N%(K,O) H(FO):N%(K,Z) L(FO):FOFOR:� �53280,0:53281,1:646,0:"":2000:3000��Q54272:R1.0594631:FO43.65:SK65439:DO53248:KY197�1 �SH653:F1.064068:F216. 609:O238059�$ �O339509:OV0:HV0:LV0�> �M%(400,2):R%(400,2)�U �N%(64,1):CH%(64)�l (� H(FO)(FOF1)� 2� L(FO)(FOF2)(F3(FOF1))� 7�IZ64:J,K:CH%(I)J:JZJTH9� :�� <�IQ54295:I,Z::I,15� F�Q6,SR:Q13,SR:Q20,SR� X(KY):Q,N%(X,Z):Q3,N%(X,1):U,N%(X,Z):U1,N%(X,O)�= @UUT:300�H hS365�N j�Y kS365�b l295� m"HERE'S WHAT YOU JUST PLAYED:"� tI49152UTT� uSK:(SH)T381� wQ,(I):Q3,(IO)� |JO35::� }Q6,W:� "NOTES: ";� SK:A$:A$""422�(SH)T432�5A$"A"A$"Z"422�gA$;:R%(KK,V)(A$)64:KKKKO:KKJI(V)422�p435�KKCKKKKO:" ";�422�KK(V)O:HVH1VSI:LVL1VSI:OVO1VSI�JCJI(V)� XOR%(J,V)O:HVK,N%(M%(J,I):Q4,(H2I):Q5,(H3I)�;&E1,(O1I)W1:E2,(O2I)W2:E3,(O3I)W3�J0XZE::�lXQ6,Z:Q7,Z:Q8,Z:XZF3::�`A$:A$""608�a"":53280,6:53281,1:5)"*** S E L E C T I O N S ***"�b10)"0-MUSICAL KEYBOARD"�g10)""�10)"X-QUIT PROGRAM"�)10)"YOUR CHOICE [0-X]?";�@SK:A$:A$""650�QA$"X"1350�nS(A$):S0A$"0"650�(S0)2(S1)3(S2)4(S3)5(S4)150,150,676,710,800�(S5)2(S6)3(S7)4(S8)5(S9)1150,900,1000,1 (1,2,3) ?";�SK:(SH)O�A$:A$""712�6V1(A$):V13V1Z712�OVV1O:JI(V)Z721�" NO MUSIC ASSIGNED TO VOICE";V1:XO2000::�"VOICE"V1:"NOTES: ";:JZJI(V)�(CH%(M%(J,V)));:::�" RHYTHM: ";:J NOTES CURRENTLY ARE:":" NOTES: ";�.0JZJI(V):(CH%(M%(J,V)));::�k1" IF OK TYPE <SPACE> ":" 'B' TO START FROM BEGINNING"�2" 'A' TO CONTINUE ADDING NOTES"�3SK:A$:A$""819�4A$"A"850�5A$" "TJIJI(V):826�6A$"B"81�7�7" INPUT THE NOTES AS THEY SHOULD BE."�)8:140:386:TJIJJO�:9JI(V)Z840�n::" THE RHYTHM CURRENTLY IS"::" RHYTHM: ";�;JZJI(V):(R%(J,V)64);::TJIJI(V)840�@:" IF OK TYPE <SPACE> ":" OTHERWISE 'R'"�AA$:A$"�S VEGAS"::::""�.I19:""(X$,I,1)38)(X$,I,1)�.�.�/S1Z4:W1O4S1Z1�'/W1O4W1T6S1Z2�?/W1T6W1H9S1Z3�X/W1O3W1W1O3:389�^/���2371�-tU.LV1:CG1:�-uLV.:CG3:�-v"HAD YOU BOUGHT THE DECK FOR 4015:F3256:O1:W16:JI(0)1:JI(1)1:JI(2)1:T2� �Q1Q7:Q2Q14:Q3QO:Q4Q8:Q5Q15:Q6Q4:Q7Q11:Q8Q18:E1Q6:E2Q7:E3Q8� �TH119:FH401:SI1450:C$(13):W1W:W2W:W3W:SR240� �L127909:L229359:L330809:H132259:H233709:H335159:O136 G�X09:T$(X)::608�! �OVO1VSI�a �XZK(V):OVX,Z::K(V)1:JI(V)1:JJZ:KKZ:CZ:K(3)Z:�u �A$:A$""150� �"GET READY TO PLAY ...";:XOFH::"GO!"� �Q5,AD:Q6,SR� 'Q6,WO:U49152� ,SK:(SH)O360� 1UDO363�. 6 ";� SK:(SH)O� A$:A$""390�0 (SH)T411�H X(KY):(CH%(X));�{ Q,N%(X,Z):Q3,N%(X,O):Q6,W1:IOF3::Q6,W� M%(JJ,V)X:JJJJO:JJFH390� JJCJJJJO:" ";� 390� JI(V)ZXO999::K(V)1:� :" RHYTHM: V),O):LVK,N%(M%(J,V),Z)�%OVK,O:KKO:KSI�+�?R%(J,V)O450�yHVK,N%(M%(J,V),O):LVK,N%(M%(J,V),Z):OVK,Z:KKO�:�XO999::2000�IZK(SO)� SK:(SH)O600�Q,(L1I):Q1,(L2I):Q2,(L3I)� Q3,(H11-PLAY IT AGAIN!"�l10)"2-COMPOSE A TUNE"�6q10)"3-LOOK AT MUSIC"�Pv10)"4-MUSIC EDITOR"�ox10)"5-SELECT INSTRUMENT"�{10)"6-LISTEN TO MUSIC"�10)"7-SAVE MUSIC ON DISK"�10)"8-GET MUSIC FROM DISK"�10)"9-LOOK AT DISK INDEX050,1100�608�!" HOW MANY VOICES (1,2,3) ?";�2SK:(SH)�EA$:A$""678�^B(A$):B3BZ678�pVZT:140:�VZBO:" INPUT VOICE"VO�JJZ:KKZ�386:JI(V)JJO:420:K(V)KO:SVO:920::�" WHICH VOICEZJI(V):(R%(J,V)64);:�SK:(SH)O�739�B "EDIT WHICH VOICE (1,2,3) ?";�U#SK:(SH)1�h%A$:A$""803�&V1(A$):V13V1Z805�(VV1O:JI(V)Z810�)" NO MUSIC ASSIGNED TO VOICE";V1:XO2000::823� *"THE "833�BSK:A$:A$""834�)CA$" "K(V)1:CZ:KKZ:435:K(V)KO:�aHJI(V)TJI::" INPUT THE RHYTHM AS IT SHOULD BE."�{JCZ:KKZ:K(V)1:420�MK(V)KO:�RJJJI(V)O:KKJJ:CJJ:386:JI(V)JJO�\JJKK420:K(V)KO�fSVO:920: E31(S4S3)(Q8820)820:K(3)K(Z):K(O)K(3)K(3)K(O)�1K(2)K(3)K(3)K(2)�R" INDICATE TEMPO (0-9) "�ZSK�mA$:A$""938�E(A$)10:EZA$"0"935�470:�56334,(56334)1:A$"":B$""�" INSERT FORMATTED DISK �" "A$" SAVED ON DISK"�56334,(56334)254:XZ999::�*VZT:140:�^56334,(56334)O:A$"":" NAME OF PIECE";A$�15,8,15,"I0":5,8,5,"0:"A$",S,R":5,E,JI(Z),JI(O),JI(T)�$VZT:XZJI(V):5,M%(X,V),R%(X,V)::�&5