6642$ 165,1,41,254,133,1,79,76G 196,162,0,189,28,128,157,190j 160,232,224,3,208,245,169,55 141,28,160,169,128,141,29,160 96,0,162,5,189,0,8,240,4,232 76,58,128,232,142,1,8,169 8,141,2,8,162,7,160,1,132 253, d"": 53280,6: 53281,1<n 3)"D I R E C T O R Y"aL$""wAA1:BB1: PR$ (L$,B3)0)"";A;"- "PR$ B7 175 150 A14 :A0 (L$,17)" DISKS REPRODUCED WITH" (L$,18)" "RUN":""3  631,13: 632,13: 198,2:w  64 CHECKSUM,VIC CHECKSUM,MANSION GAME,MANSION SETUP,RUPERT #1  NUMER. VIC,NUMER. C-64,ELFRED,SLAMON RUN,HOME BUDGET  FUNCTION,AUTO LINE#,OLD ROUTINE,FLANKSPEEDITH" (L$,18)")OLĢ7`L:7LUȱ7L^ȱ7L^.Ȅ-- ͽL^MER. C-64,ELFRED,SLAMON RUN,HOME BUDGET  FUNCTION,AUTO LINE#,OLD ROUTINE,FLANKSPEEDITH" (L$,18)"  MSD SUPER DRIVES"; (L$,22)1)"(C)DOUBLE L SOFTWARE"\ (L$,20)3)"YOUR CHOICE";p AN$:AN(AN$) AN$"" B0: 100 AN$"1" AN$"14" 240 : A1 AN: PR$: A "" "LOAD";(34);PR$;(34);",8"  $h 141,32,208,173,54,3,141,33%p 208,96,70,85,78,67,84,73$%x 79,78,32,68,69,70,73,78A% 73,84,73,79,78,83,0,69_% 78,84,69,82,32,70,85,78}% 67,84,73,79,78,32,78,85% 77,66,69,82,32,84,79,32% 66,69,32,67,72,65,78,71% 69,6 149,162,9" 160,7,24,32,240,255,162,0# 189,236,150,240,7,32,210,2558# 232,76,248,149,162,10,160,6X# 24,32,240,255,162,0,189,7z# 151,240,7,32,210,255,232,76# 14,150,162,15,160,15,24,32# 240,255,162,10,169,163,32,210#( 25/ 51,54,56,54,52,13,256-`53272,21:38784,133,251,10,10,σ 24,101,251,168,162,0,185,176:,σ 207,157,119,2,200,232,224,10],σ 208,244,134,198,76,49,234,64y,σ 4,5,6,3,0,255,255,255,σ 255,255,255,255,255,255,76,73,σ 83,84,32,32,32,32, 7,157,0,5,232,208 x 247,162,0,189,0,158,157,0! 6,232,208,247,162,0,189,0A! 159,157,0,7,232,208,247,162`! 0,173,52,3,157,0,216,157! 0,217,157,0,218,157,0,219! 232,208,241,174,58,3,172,57! 3,24,32,240,255,169,128,133! 1 σ 138,174,141,2,224,1,208,3+σ 24,105,4,10,133,251,10,10,σ 24,101,251,168,162,0,185,176:,σ 207,157,119,2,200,232,224,10],σ 208,244,134,198,76,49,234,64y,σ 4,5,6,3,0,255,255,255,σ 255,255,255,255,255,255,76,73,σ 83,84,32,32,32,32, 43,169,13,162,9,157,206  207,169,0,133,212,76,70,144- 32,180,149,162,0,169,32,157R 246,207,232,224,10,208,248,162r 0,142,55,3,32,228,255,240 251,201,13,240,22,174,55,3( 32,210,255,157,246,207,238,550 3,174,55,3,224,10, 0,189,226,151,232,32,210,255) 201,13,208,245,76,116,164,80*ȗ 82,79,71,82,65,77,77,657*З 66,76,69,32,70,85,78,67U*ؗ 84,73,79,78,32,75,69,89s* 83,13,40,67,41,49,57,56*藃 52,59,32,68,69,88,32,84* 46,32,80,69,84,69,82,83* 79,7 174,55,3,224,10,240,3  76,108,148,173,55,3,201,10. 240,23,32,53,150,32,228,255Q 240,251,201,78,240,11,201,89t 208,243,169,13,162,9,157,236 207,169,0,133,212,76,70,144 32,180,149,162,0,169,32,157 206,207,232,224,10,20 ,65,82,82,73,68'8 71,69,32,82,69,84,85,82 (@ 78,32,65,68,68,69,68,63'(H 0,70,49,58,32,0,70,50C(P 58,32,0,70,51,58,32,0`(X 70,52,58,32,0,70,53,58|(` 32,0,70,54,58,32,0,70(h 55,58,32,0,70,56,58,32(p 0,0,255,0,0,0,128,0(x 0,0, <Z"": 53280,14: 53281,6:" OLD ROUTINE"Ud2,8,2,"OLD.OBJ,P,W"mi2,(0);:2,(128);n X 1 141: As2,(A);: Xx 2: 162,159,160,0,132,251,134,252 230,252,232,177,251,145,251 200,208,249,224,191, 8,58,0,91,49,45,56% 32,79,82,32,90,69,82,79& 32,40,48,41,32,84,79,32/& 69,78,68,93,0,82,69,68M&Ȗ 69,70,73,78,69,32,70,85k&Ж 78,67,84,73,79,78,32,70&ؖ 0,69,78,84,69,82,32,78& 69,87,32,67,79,77,77,65&薃 78,68,58,0,84,69,78,3 5,202,208,250,162,14,160,15$0 24,32,240,255,96,162,17,160%$8 2,24,32,240,255,162,0,189G$@ 36,151,240,7,32,210,255,232h$H 76,63,150,96,173,134,2,141$P 52,3,173,32,208,141,53,3$X 173,33,208,141,54,3,96,173$` 52,3,141,134,2,173,53,3 134,254,136,230,254,1776 253,141,55,128,240,6,200,208Z 246,76,85,128,200,177,253,205{  55,128,240,4,136,76,94,128  200,177,253,205,55,128,240,5  136,136,76,94,128,165,254,133 " 46,200,200,132,45,166,45,32 , 205,189,76,94,1 57,76,131,164,141,56,3,169" 147,32,210,255,162,5,160,10*" 24,32,240,255,162,0,189,197L"ȕ 150,240,7,32,210,255,232,76n"Е 198,149,173,56,3,32,210,255"ؕ 162,7,160,11,24,32,240,255" 162,0,189,217,150,240,7,32"蕃 210,255,232,76,226, 32,13,σ 80,207,54,53,48,44,49,50,σ 56,13,32,76,79,65,68,34-σ 32,32,20,20,83,89,83,324-σ 52,57,49,53,50,13,82,85R-σ 78,32,32,32,32,32,32,13q-σ 80,207,54,53,48,44,48,32-σ 32,13,83,65,86,69,34,64-σ 48,58,29,157,83,89,83,32-σ 240,38 76,28,149,173,55,3,201,10 @ 240,23,32,53,150,32,228,255: H 240,251,201,78,240,11,201,89] P 208,243,169,13,162,9,157,246 X 207,169,0,133,212,76,70,144 ` 32,95,150,162,0,189,0,156 h 157,0,4,232,208,247,162,0 p 189,0,15 8,13,0,0,0,0,0,256*PÏ ** IRQ EXTENSION WEDGE ***ZI53082+dÇ A: A256 60000(+n× I,A:II1: 50020K+Zσ 165,197,201,64,208,6,141,161p+bσ 207,76,158,207,205,161,207,240+jσ 51,141,161,207,162,3,221,162+rσ 207,240,5,202,16,248,48,36+z 8,248,162 0,142,55,3,32,228,255,240Ȕ 251,201,13,240,22,174,55,3BД 32,210,255,157,206,207,238,55`ؔ 3,174,55,3,224,10,240,3 76,196,148,173,55,3,201,10蔃 240,23,32,53,150,32,228,255 240,251,201,78,240,11,201,89 208,2 0,0,0,0,0,0( 120,169,207,141,21,3,169,90 ) 141,20,3,169,144,133,56,169,) 0,133,55,88,32,94,166,32L) 68,229,162,10,160,7,24,32p) 240,255,162,0,189,199,151,232) 32,210,255,201,13,208,245,162) 15,160,7,24,32,240,255,162) 208,242$ 165,1,41,254,133,1,79,76G 196,162,0,189,28,128,157,190j 160,232,224,3,208,245,169,55 141,28,160,169,128,141,29,160 96,0,162,5,189,0,8,240,4,232 76,58,128,232,142,1,8,169 8,141,2,8,162,7,160,1,132 253, 2& 40,49,48,41,32,75,69,89& 83,84,82,79,75,69,83,32' 77,65,88,73,85,77,0,40:' 73,78,67,76,85,68,73,78X' 71,32,32,67,65,82,82,73v' 68,71,69,32,82,69,84,85' 82,78,41,0,68,79,32,89'( 79,85,32,87,65,78,84,32'0 65,32,67  53280,0:53281,11: 10009d 20)" "Un 20)" F "I" "ox 20)" " 20)" F "I1" " 20)" " 20)"" (147);:53272,23: I17 2:100: " 5,202,208,250,162,18,160"0 3,24,32,240,255,162,0,189E8 135,150,240,7,32,210,255,232e@ 76,55,146,162,19,160,8,24H 32,240,255,162,0,189,172,150P 240,7,32,210,255,232,76,77X 146,32,228,255,240,251,201,48` 240,35,201,49,240,34 24,32,240 255,162,14,169,163,32,210,255= 202,208,250,162,14,160,4,24`ȑ 32,240,255,162,0,189,103,151Б 240,7,32,210,255,232,76,205ؑ 145,162,0,189,206,207,32,210 255,232,224,10,208,245,162,15葃 160,4,24,32,240,255,162,14 0,149,162,0,169,32,157! 176,207,232,224,10,208,248,162A 0,142,55,3,32,228,255,240b 251,201,13,240,22,174,55,3 32,210,255,157,176,207,238,55Ȓ 3,174,55,3,224,10,240,3В 76,180,146,173,55,3,201,10ؒ 240,23,32,53,150,32,228, @ 210,255,232,224,10,208,245,1626H 11,160,24,24,32,240,255,162ZP 14,169,163,32,210,255,202,208{X 250,162,12,160,4,24,32,240` 255,162,0,189,93,151,240,7h 32,210,255,232,76,99,145,162p 0,189,196,207,32,210,255,232x 224,10, 10,255,157,216,207,238,55 3,174,55,3,224,10,240,39( 76,12,147,173,55,3,201,10[0 240,23,32,53,150,32,228,255~8 240,251,201,78,240,11,201,89@ 208,243,169,13,162,9,157,216H 207,169,0,133,212,76,70,144P 32,180,149,162,0,169,3 210,255,232,76,196,144/ А 162,0,189,216,207,32,210,255R ؐ 232,224,10,208,245,162,9,160t 24,24,32,240,255,162,14,169 萃 163,32,210,255,202,208,250,162 10,160,4,24,32,240,255,162 0,189,83,151,240,7,32,210 255,232,76,249,144, ,201,78,240,11,201,89 208,243,169,13,162,9,157,1868 207,169,0,133,212,76,70,144Z 32,180,149,162,0,169,32,157 226,207,232,224,10,208,248,162 0,142,55,3,32,228,255,240 251,201,13,240,22,174,55,3ȓ 32,210,255,157,226,20 62,0,189,114,150+ X 240,7,32,210,255,232,76,85L ` 144,162,5,160,10,24,32,240p h 255,162,20,169,163,32,210,255 p 202,208,250,162,3,160,10,24 x 32,240,255,162,20,169,114,32 210,255,202,208,250,162,8,160 4,24,32,240,255,162,0,18 207,232,224,10,208,248,162 0,142,55,3,32,228,255,2405 251,201,13,240,22,174,55,3Y 32,210,255,157,196,207,238,55w( 3,174,55,3,224,10,240,30 76,20,148,173,55,3,201,108 240,23,32,53,150,32,228,255@ 240,251,201,78,240,11,20 "A ":"e ' ** DISPLAY & DEFINE ROUTINE *q 'I36864 $' A: A256 50000 .' I,A:II1: 10020 56,32,240,255,142,58,3,140  57,3,162,0,189,0,4,157  0,156,232,208,247,162, ,201,50h 240,33,201,51,240,32,201,523p 240,31,201,53,240,30,201,54Ux 240,29,201,55,240,28,201,56v 240,27,76,89,146,76,96,149 76,160,146,76,248,146,76,80 147,76,168,147,76,0,148,76 88,148,76,176,148,76,8,149 32,18  169,163,32,210,255,202,208,2501 162,14,160,24,24,32,240,255R 162,0,189,108,151,240,7,32s 210,255,232,76,2,146,162,0 189,246,207,32,210,255,232,224 10,208,245,162,15,160,24,24 32,240,255,162,14,169,163,32( 210,25 255  240,251,201,78,240,11,201,89-蒃 208,243,169,13,162,9,157,176O 207,169,0,133,212,76,70,144q 32,180,149,162,0,169,32,157 216,207,232,224,10,208,248,162 0,142,55,3,32,228,255,240 251,201,13,240,22,174,55,3 32,2 208,245,162,13,160,4' 24,32,240,255,162,14,169,163K 32,210,255,202,208,250,162,12l 160,24,24,32,240,255,162,0 189,98,151,240,7,32,210,255 232,76,152,145,162,0,189,236 207,32,210,255,232,224,10,208 245,162,13,160,24, 2,157 X 186,207,232,224,10,208,248,162*` 0,142,55,3,32,228,255,240Kh 251,201,13,240,22,174,55,3op 32,210,255,157,186,207,238,55x 3,174,55,3,224,10,240,3 76,100,147,173,55,3,201,10 240,23,32,53,150,32,228,255 240,251 162,0,189! 186,207,32,210,255,232,224,10B 208,245,162,11,160,4,24,32f 240,255,162,14,169,163,32,210 255,202,208,250,162,10,160,24( 24,32,240,255,162,0,189,880 151,240,7,32,210,255,232,768 46,145,162,0,189,226,207,32 7,238,55Г 3,174,55,3,224,10,240,3#ؓ 76,188,147,173,55,3,201,10E 240,23,32,53,150,32,228,255h蓃 240,251,201,78,240,11,201,89 208,243,169,13,162,9,157,226 207,169,0,133,212,76,70,144 32,180,149,162,0,169,32,157 196, 9 73,151,240,7,32,210,255,232> 76,143,144,162,0,189,176,207b 32,210,255,232,224,10,208,245 162,9,160,4,24,32,240,255 162,14,169,163,32,210,255,202 208,250,162,8,160,24,24,32 240,255,162,0,189,78,151,240 Ȑ 7,32, 1,89H 208,243,169,13,162,9,157,196!P 207,169,0,133,212,76,70,144CX 32,180,149,162,0,169,32,157h` 236,207,232,224,10,208,248,162h 0,142,55,3,32,228,255,240p 251,201,13,240,22,174,55,3x 32,210,255,157,236,207,238,55 3, 0,189!  0,5,157,0,157,232,208,247? 162,0,189,0,6,157,0,158_ ( 232,208,247,162,0,189,0,7 0 157,0,159,232,208,247,32,76 8 150,169,5,141,33,208,141,32 @ 208,169,13,141,134,2,169,147 H 32,210,255,162,4,160,10,24 P 32,240,255,1 70,170,10,170,170,42,170,168,42,170,168,42:l170,160,10,170,160,2,170,128,0,0,0,0,0,0,0,0,0,0,0,0,0{q170,170,160,170,170,164,170,170,166,170,170,166,170,170,166v171,254,166,170,170,166,175,255,166,170,170,166,170,170,166,170{170,166,170,  *********************7* *R* HOME BUDGET *m(* BY *2* BRIAN DOBBS *<* *F* TIMMINS,ONTARIO *P* *Z********************* d5328 170,128,0,0,0,0,0,0,0,0,0,0,0,0,0:D0,0,0,0,0,0,0,0,0,0,0,0,252,0,0,32,0,0,8,0,0,2,240,0,10,191yI0,42,165,240,10,255,255,2,255,255,10,0,0,8,0,0,32,0,0,252N0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0S0,128,0,0,144,0,0,132,0,0,133,0,0,133,0,0,133, ILLS":""0 10)"3-BARCHART TREND OF BILLS":""Z 10)"4-PRINTER TREND OF BILLS":"" 10)"5-SAVE DATA TO DISK":"" 10)"6-LOAD DATA FROM DISK":"" 10)"7-CREATE INITIAL FILE":"" 12)"SELECT CHOICE ?":Y0 AN$:AN 0,0,160,0,0,16060,0,160,0,0,160,2,70,160,11,234,168,10,190,168,42,170,168,170,254,168l!10,170,160,8,195,32,8,195,32,8,195,32,8,195,32,0&0,0,0,0,0,160,0,2,8,0,8,70,0,8,2,0,2,8,0,0,160,0,2,8,0,11,254,2,43,254+0,171,234,2,163,168,0,2,172, 3370 h350 r13002 |"MONTHLY TOTAL"14)QAABBE A$:A$""390N 180 "":" WHAT MONTH TO WRITE BILLS";AN$ 1020 Y2:"":15)AN$:"" A$(1,Y):YY1:Y13460 440 "":Y2 15):A$(X,Y NR1992:X2:T56264:U2BXERR(40(((A$(X,Y))(B20))))40:E,224:sbFTT(40(((A$(X,Y))(B20))))40:F,U:lRR2:XX1:TT2:UU1vU3U1X14660600R1992:T56264:R,138:T,1:R2,134:T2,1:R4,141 T ILL ";D4,"JANUARY FEBUARY MARCH APRIL MAY JUNE"M850YL2:M7b 890L8:M13:4," BILL "; 4,"JULY AUGUST SEPTEMBER OCTOBER NOVEMBER DECEMBER"*8504L8:M13>890 14,8,14,"@0:"NM$",S,W"X1:1170O" A TOTAL OF 12 BILLS WILL BE ENTERED.":X1:Y2|"NAME OF BILL";A$(X,Y):YY1:Y1310701000W112D$AN$D$XW1$:."":X28Y2BA$(X,Y)"0"LYY1: " PRESS 'F1' TO CONTINUE"A$:A$""1250.A$(133)81260 JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER  NOVEMBER,DECEMBERQ((A$(X,2)))((A$(X,3)))((A$(X,4)))((A$(X,5)))AA((A$(X,6) 170,166,170,170,166,170,170,166,170,170,166,170,170H166,170,170,166,170,170,166,170,170,166,37,85,86,10,170,170,00,168,0,2,170,0,10,102,128,10,102,128,10,170,128,2,170,0,2,1700,10,170,128,34,8,32,130,8,8,130,8,8,32,130,32,8,34,32,32,34 0,12:53281,0:A$(13,13):180% n1230E x14,8,14,"0:"NM$",S,":X1M Y2n 14, A$(X,Y):YY1:Y13160w 140 XX1:X1314:180 130 ""14)"BUDGET MENU" 10)"1-WRITE MONTHLY BILLS":"" 10)"2-VIEW MONTHLY B 64,0,133,64,0,1331X80,0,133,80,0,133,84,0,133,84,0,149,85,0,170,170,0,128,0,170,170,170u]191,255,254,47,255,248,47,255,248,11,255,224,2,170,128,0,0,0,0b0,0,0,0,0,0,0,0,0,0,0,0,2,128,0,10,160,0,59,160,0,250,160,0,10g160,162,2,130,170,2,1 $""270' X17:AN$("WVBPSLC",X,1)YXQ ":Y410,300,500,730,960,110,990:180 ,"":" ENTER MONTH TO VIEW";AN$:1020 6"":15)AN$:"":Y2 @A$(1,Y):YY1:Y13340 J320 T"":Y2 ^15)A$(X,Y):YY1:Y1 8,11,188,40,15,252,42,175,252,10,175,240,0+015,240,40,42,0,10,168,0,2,128,0,0o50,0,0,0,0,0,0,0,0,2,170,128,10,185,160,46,85,184,42,85,168,165:170,90,149,190,86,149,190,86,149,190,86,149,190,86,165,170,90,42?85,168,46,85,184,10,85,160,2, ) YY1:Y13180 4709 " ENTER NAME OF BILL";AN$E P213Z AN$A$(1,P)YP`  " WHAT IS MAXIMUM SCALE FOR "A$(1,Y):" ";B &"":20((A$(1,Y))2))A$(1,Y) 0""B:Z0 :ZZ(B20):ZB590 D(BZ):570 4,1:R6,129:T6,1:R8,141:T8,1:R10,138ZT10,1:R12,138:T12,1:R14,129:T14,1:R16,147T16,1:R18,143:T18,1:R20,142:T20,1:R22,132T22,1A$:A$""7101804,4:4,38)"BUDGET 1984":4:L2:M74," B H4::180RY113:Z20(A$(1,Y))*\4,A$(1,Y)Z);^fILM:4,(A$(I,Y))10(A$(I,Y)));:I:4,(10)jpY:4:z4,"MONTHLY TOTAL"6)XLM1300CQAABB:C$(C)4,QAABB9(C$));:X4,(10)1230 Y131120V1090`XX1:X131140j1080't1230D~14,8,14,"0:"NM$",S,W"kX1:" CREATING INITIAL FILE"sY214,A$(X,Y):YY1:Y1312001180XX1:X131220117014:180" FILENAME";NM$ r))((A$(X,7)))((A$(X,8)))((A$(X,9)))N(BB((A$(X,10)))((A$(X,11)))((A$(X,12)))((A$(X,13)))T2G INITIAL FILE"sY214,A$(X,Y):YY1:Y1312001180XX1:X131220117014:180" FILENAME";NM$ > 32,128,130,8,130,0,130,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,00,160,2,170,128,0,0,0,0,0,0,0,0,0,0,0,0,0{q170,170,160,170,170,164,170,170,166,170,170,166,170,170,166v171,254,166,170,170,166,175,255,166,170,170,166,170,170,166,170{170,166,170, 8 V53248:V32,2:V33,5:S54272:LL024:SLL,0:[""17)"ELFRED":420N063:Q:704N,Q::N0191:Q:832N,Q:V23,1:V37,1:V38,2:V28,254:V21,255" PLEASE WAIT... READING DATA...":2041,132  420:57)"PLAY AGAIN?"30)"HIT SPACE"4r(197)60V3,0:V,0:SC0:40=w370Z|T194T196T199C0:kT193C1:|T198C5:T192T195T197C7:2041,14:""98)" "32)"HOORAY!"33)" ";36)"  120,28,49:120,28,49,120,28,49,120,37,162,50,37,162,50,42,62,50,37,162,50,33,135120,31,165,120,25,30,120,25,30,120,42,62,50,42,62,50,44,193,50,42,6250,37,162,120,33,135,120,28,49,50,25,30,50,25,30,120,28,49,120,37,162120,31,165,250, 2041,13+X:Z15:G(Z)TFF1:V14,0:330:FF0:2952"ZV'V14,0:2041,14:MM1:M5305_,2301Z15:G(Z)0TG(Z):M0:2456Z;X138X170330@Z15:G(Z)TV27,128:345EZJSCSC1:""36)SC""O255,252,63,255,252,21,85,84,21,85,84,42R170,168,21,149,174,14,174,186,10,170,170,42,170,170,170,170,174,170170,174,42,170,170,10,171,170,10,174,160,15,250,176,10,170,255,254,171255,255,255,255,00,20,0,0,60,0,0,255,0,3,255,192,15,25Z6230+2047,T:380:V46,C:L1100:(197)60225]G(Z)T:2041Z,T:VX,XX:VY,55:VCC,C:410ZZ1:XX2:XXXX49:YY2:CCCC1:L1100L:TV14,0:T192((0)8)""58)"HIT SPACE"31)" TO DROP "32)"TOY IN"36 STRANGERS. IMPULSIVE. AFRAID OF UNKNOWN. "^"ASSOCIATED WITH SURGERY, PHYSICAL AND MENTAL ILLNESS. "," COMPATIBLE WITH OTHER FIRES - 1,3, OR 9"D BY SATURN. COLD,PESSIMISTIC. NO SENSEOF HUMOR."" SUCESS IN FINANCES. AS12:31)" ";:D J13:30)" ";::1537,170:1620,170| 28)" ";:1736,170:1741,170:1663,170 27)" * "29)" * "32)"* " 34)" "36)" ߑ"15);" "32)" SAY MUCH,BUT KNOWS MUCH. DRAWN TO OCCULT.LIKES FISHING"]". TAKES FROM HAVES, GIVES TO HAVE-NOTS."," COMPATIBLE WITH OTHER WATERS - 2 OR 7""RULED BY SATURN. COLD,PESSIMISTIC. NO SENSEOF HUMOR."" SUCESS IN FINANCES. ASV3,140. d".  "a i" ߒ. . HIT SPACE " n"   TO CHOOSE " s" .. . TOYS " x" . .. "- }" .#V40,10:V2,172:V3,90:N0511:Q:12288N,Q:m (198,0:"HOW MANY BAGS DO YOU WANT TO PACK? (1-5)" -A$:A$""45 2A$"1"A$"5"45 7A(A$):A"TYPE NAME AND HIT RETURN" <L1A:"BAG #"L:N$(L):N$(L)(N$(L),9):6 A"CHOO"S1,130:S15,658S24,15:S4,21:LL1500:LL:S4,20:S24,0:>pS24,15:S5,9:S6,0:D,H,L:D1S24,0:S1,H:S,L:S4,17:SS1D1.5::S4,16:425120,25,30,110,33,135,50,33,135,50,37,162,50,33,135,50,31,165,33,135,-1,-1,-1:0,0,1,0,0,7,0,0,31,0,0,127,0,1,255,0,0,31,0,0,127,0,1,255,0,7,2550,15,255,0,31,255,0,127,255,1,255,255,0,31,255,0,127,255,1,255,2553,255,255,7,255,255,31,255,255,127,255,255,255,255,255,0 0,0,5,0,63,252,3,255,252,15,18)" "32)" OOPS! "33)" "36)" "-TFF1355XYY1662503:V14,X:V15,Y::V27,0^X137X171G(Z)TV2(Z1),0:400:G(Z)0:cJ12:L1315:2041,L:LL150:LL:LhL15131:2041,L:LL150:LL:L:J:m5,240,21,85,84,21,85184,42,170,168,37,105,88,107,170,238,170,170,170,186,170s174,186,170,174,170,170,170,43,170,232,42,235,168,10,190,1602,170,128,63,170,252,255,255,255,255,255,255,080,0,0,15,252,0,15,255,192,15,255,240,15,255,252,);"BAG"42047,T:380:V46,C:X0249SP:V14,X:V15,166H(197)60270}315:G(1)0G(2)0G(3)0G(4)0G(5)0BA365G(1)0G(2)0G(3)0G(4)0G(5)0BA420:B 230X1702041,15:285X1602041,14:285 5,85,84,5,85+84,10,170,168,174,86,84,171,186,176,170,170,160,174,170,168m 174,170,170,170,170,170,170,170,168,42,186,168,10,174,160,14175,192,255,234,168,255,250,173,255,255,255,00,0,48,0,0,32,0,0,168,0,0,154,0,0,170,0,0,160,0,0,160," "32)" FOR "31)" ";H31)" "31)" ";g35(((N$(B))2)))N$(B)""29)"SPEED:"SP171)"TOTAL"35)"MISSES:"SC"";Z1:XX25:X4:Y5:CC41:V14,150:V15,166T192200:T200T192SOCIATED WITH MINING, LAW, REALESTATE,"T" CEMETERIES, PAWN SHOPS. WORKS HARDCONCERN WITH THE PAST.","COMPATABLE WITH OTHER EARTHS - 6 OR 8""RULED BY MARS. EMOTIONAL,JEALOUS, ACTIVE, TIED TO FAMILY""LOYAL. SUSPICIOUS OF  ":" "\ J1160:" ";::35)"*" 34)"    *  ߝ" J12:31)" ";: 2040,11:V21,255:V,248:V1,153:V39,5 J SE SPEED: 0 SLOW AND EASY"71)"TO"72)"9 WATCH THEM ZIP!"J FSP$:SP$""70b KSP$"0"SP$"9"70y PSP(SP$)1:B1A U53280,1:53281,3:""; ZL14:"          ";: _L140:" ";::V2,175:  << RR15-1 >>6 >>> FILENAME = W <<<^ MODIFIED WEDGE AND INITIALIZATIONy --- NORMAL WEDGE --- A0 A1:"DOS 5.1",8,1A1 12409612256 --- INITIALIZATION --- (53280,11:53281,12 : BORDE : I0 11:DM(I)CM16(I2):,xVR53272:ZQ(VR),Ï -Ï SET BASIC POINTERS-Ï>-Á I0 11:DB(I)((VB1024(I2))256):_-Á I0 11:DA(I)DB(I)256:s-BR648:YQ(BR)y-Ï-Ï GET OLD VIDEO POINTERS-Ï-WQ(56578):XQ(56 ' 36879,26:""(142)(8):R$(13)] " "R$" "w" NUMEROLOGY"" I WILL ANALYZE A NAME OR DATE FOR ITS MYSTICAL VIBRATIONS." " ACCORDING TO THE ANCIENTS, VIBRATIONS CREATE C -IS THIS RIGHT? (Y OR N)";*~ 197,64: 198,0+ A$: A$"" 1155+ A$"Y" 1130=+SP1(3(9)): SP1 SP3 170U+ 792,193: 808,239z+ I23 0 1: V$(I)39)"!";:++MÏ+NÏ SET UP DISPLAY+OÏ+PÆ DB(11),DM(11),DA "(PROPER FORM WOULD BE 12 15 1984)": N:N$(N):I2(N$)j "A$(N$,I,1):(A$)32((A$)0(A$)10)38v $64:32 &(A$)32 (ZZ((A$))::Z$(Z) *56 ,"NAME TO BE ANALYZED -- LETTERS ONLY"& ."(PROPER FORM IS NAME : I0 5: A$:PF$(I)A$PF$(I):(Q "","","","","",""/)VBL$" "K)[ I0 5: A:SH(I)A:a)\ 5,9,13,17,21,25)` I0 5:H(I)SH(I):V(I)15:PW(I)0:XH(I)H(I):XV(I)V(I):)e I0 5:XC(I)(DA(6 @"INVALID-TRY AGAIN":V0:Z0:. BQ$:Q$""664 DV FR$" HIT ANY KEY TO CONT.": HN(N$):N11(N2):""N)N$R$" VIBRATES TO "Z$R$R$ JZ(Z$):I0(Z1)5:B$::I15:B$:B$;: L70 N66 P:221 R,"RULED BY THE SUN.TUB","GARAGE"'> "BILLIARD ROOM","DEN","WORKSHOP","FURNACE ROOM","CHAUFFER'S ROOM"W'? "MAID'S ROOM","BUTLER'S ROOM","SAUNA","TAPESTRY ROOM"," "'@ "WYETH ROOM","NURSERY","PICASSO ROOM","VERMEER ROOM","DRESSING ROOM"'A "VAN GOGH ROOM","LIBRAR1\"RULED BY THE MOON. SENSITIVE, DOMESTIC, EMOTIONAL."p^"EASILY MOVEDTO TEARS. FERTILE IMAGINATION. FOND OF"`" HOME. PATRIOTIC.PREFERTO LIVE NEAR WATER. MUSICAL",b"TALENT. COMPATIBLE WITH OTHER WATER - 2,7"/d"RULED AND ECCENTRIC.AHEAD OF HIS TIME."Sn" INTEREST IN OCCULT, PSYCHIC & OUT OF THE ORDINARY. "p"INTUITIVE. SARCASTIC IF CROSSED. LIBERTY,EQUALITY." ,r" COMPATIBLE WITH OTHER AIRS - 4OR 5"t"RULED BY MERCURY. ACTIVE PHYSICALLY R AND BACKGROUND COLORS3 2 (151): GRAY1 LETTERSU < 650,128 : REPEATING KEYSt d - SET UP MX-80 PRINTER - n 222,4 x222,(27)"Q"(40): 222 : 40 CHARACTERS PER LINE 576)-Ï-Ï SET LOAD FLAG-Ï-Q9Q8.Ï GET SCREEN DISPLAY & CHAR SET .Ï%.Ó "DISPLAY DATA",8,1+.Ï_.Ï NOTE: LOADING SENDS PROGRAM BACK TO BEGINNINGe.Ïk.Ï,mÏ,nVM2:VB16384:CM14:CBVBCM1024HARACTERISTICS":70K " "R$" ":66 V0:Z0:N$"":A$"":"ANALYZE A NAME (N) , OR A DATE (D)?" 66 Q$"N"Q$"D"22 Q$"N"44 "DATE TO BE ANALYZED -- NUMBERS ONLY"9 (11): 53281,7: 53280,11: 657,128+UUQ(32766):VQ(32767)+WÏ,XÏ SET UP COLOR MEMORY,YÏ_,ZÙ "";: I0 23:"PLEASE FIND THE MURDERER IN THE MANSION"e,dÂk,kÏ,lÏ SET VIDEO MEM & CHAR MEM,mÏ,nVM2:VB16384:CM14:CBVBCM1024COMMONLY USED -FULL NAME OR NICKNAME)":N$c 0I1(N$):A$(N$,I,1):(A$)32((A$)64(A$)91)52o 264:46 4(A$)32 6ZZ((A$)64)::Z$(Z) 8V0:(Z$)272 :I1(Z$):V((Z$,I,1))V: <V10Z$(V):72 >Z$(V):5PW(I))H(I)40V(I))128:XC$(I)CH$(XC(I)):)g*h GET PLAYER NUMBER *iR*j V$(24)"HOW MANY PLAYERS? (1-6) ";: 197,64: 198,0j*o A$: A$"" 1135*t (A$)49 (A$)54 1135*yNP(A$)1: V$(24)BL$V$(24)NP1" PLAYERS- DRIVING LIFE FORCE. LEADER, AMBITIOUS, IMPATIENT"l T",AN EXPLORER,EXTROVERT,AUTOMATIC TOASSUME COMMAND, " V"VERY STRONG FEELING,DESERVEPRAISE WHICH CAN SPUR TO" X" GREATER THINGS. " Z" COMPATIBLE WITH OTHER FIRES - 1,3, OR 9"Y BALCONY","COMPUTER ROOM","TRAIN ROOM"%(B "PLAY ROOM","FREDDY'S ROOM","CECIL'S ROOM","AMY'S ROOM"h(C "GOVERNESS'S CUPBOARD","SCHOOL ROOM","STUDIO","HIGH BALCONY"|(D "SECRET ROOM"(I(J SET INITIAL VALUES(K(L I0 5:PF$(I)"@": BY JUPITER. INVESTIGATOR,SCIENTISTSEEKER,MATERIAL RATHER"tf"THAN SPIRITUAL. GOOD SENSE OF HUMOR. TRUSTSLIKES TO KNOW WHY"h" AND HOW. NOT INTERESTED INMONEY ",j"COMPATIBLE WITH OTHER FIRE - 1,3,OR 9"l"RULED BY URANUS.APPEARSTRANGE AND MENTALLY. INQUIRING, "Sv" EXPLORING. LIKES TO READ AND DO RESEARCH. LINGUISTIC. TEACHER, "x"WRITER, SECRETARY. FRIENDLY, METHODICAL, ORDERLY.",z" COMPATIBLE WITH OTHER AIRS - 4 OR 5"|"RULED BY VENUS. GENTLE,REFINED, COMELYSOCIABLE, PLEASANT. "M~"A PEACEMAKER.DIFFICULTY IN FINANCES. FRIENDLY AND AGREEABLE."s" A GOODHOST OR HOSTESS. ","COMPATIBLE WITH OTHER EARTHS - 6 OR 8""RULED BY NEPTUNE. PSYCHIC, INTROVERT, MYSTERIOUS. DOES NOT"+ )31: 900: 190-t PW(P)5 XH(P)32 PW(P)7:V(P)6:H(P)8: 900: 190au PW(P)1 PW(P)9:V(P)16:H(P)25: 900: 190v PW(P)8 PR(P)41 PW(P)3:V(P)5:H(P)7: 900: 190V(P)XV(P):H(P)XH(P): 100 PW(P)11 PR(P)52 PW( 1:VM(1)3:VM(60)2"# HORIZONTAL KEYSTROKE TABLE #<# I0 7:HM(I)0::HM(1)1:HM(2)1:HM(3)1B#]# VERTICAL PRINT TABLEc##V$(0)"": I1 24:V$(I)V$(I1)"":## WING TABLE## I0 11: K0 4: )5:V(P)2:H(P)37: 900: 190b SP 620,670,7209gV(P)XV(P):H(P)XH(P): 100xl PW(P)11 PR(P)52 PW(P)8:V(P)22:H(P)3: 900: 190m PW(P)11 PW(P)11:H(P)21: 900: 190n PW(P)9 PR(P)4 PW(P)4:V(P)8:H(P)2: 900: 190 "": 400   GET TO NEW SCREEN ! VR,DM(PW(P)): BR,DB(PW(P))$!8! GET NEW FLOOR>!!XC(P)(DA(PW(P))H(P)40V(P))128: XC(P)0 XC(P)62 930!H(P)H(P)138(H(P)37):V(P)V(P)122(V(P)21): 915!XC$(P)CH$ BR,DB(PW(P)): VR,DM(PW(P)): V$(24)BL$;F V$(24)""NM$(PR(P))V$(24)28)"PLAYER "P1"";j I0 2000:: 197,64: 653,0v 450:|UV MOVE THROUGH SECRET PASSAGESWX PW(P)3 PW(P)10:V(P)5:H(P)14: 900: 190Y PW(P)PW(P)): BR,DB(PW(P))H 450M 1904R "DO YOU WANT TO START A NEW GAME? (Y OR N)"qW I0 NP: BR,DB(PW(I)): V$(XV(I))XH(I))""XC$(I);:}\ BR,YQa I0 2000:: 198,0: 197,64fVD(197): VD64 (VD25 VD39) 87)3:H(P)23: 900: 1907w PW(P)1 PW(P)7:V(P)16:H(P)23: 900: 190k| PW(P)0 PW(P)8:V(P)20:H(P)16: 900: 190H(P)XH(P):V(P)XV(P): 100 UN-LINK SCREEN LINES I217 242: I,(I) 128:: RE-PRIN00: 190 PW(P)5 XH(P)32 PW(P)8:V(P)18:H(P)3: 900: 190N PW(P)1 PW(P)4:V(P)7:H(P)2: 900: 190 PW(P)8 PR(P)41 PW(P)11:V(P)22:H(P)21: 900: 190V(P)XV(P):H(P)XH(P): 100 ENDING ROUTINE  PW(P)8 PR(P)41 PW(P)7:V(P)2:H(P)27: 900: 1907V(P)XV(P):H(P)XH(P): 100v PW(P)11 PR(P)52 PW(P)5:V(P)9:H(P)37: 900: 190 PW(P)11 PW(P)11:H(P)21: 900: 190 PW(P)9 PR(P)4 PW(P)7:V(P)6:H(P)12: SION$2 %3 I0 31:CH$(I)(I64):: I32 63:CH$(I)(I):1%4 I0 63:CH$(I)""CH$(I)"":7%5M%6 ROOM NAME TABLES%7%8 I1 52: A$:NM$(I)A$:: I53 61:NM$(I)"DOORWAY":%9NM$(62)NM$(1):NM$(63)NM$(1)%: "STAIRWAYP)9:V(P)2:H(P)2: 900: 190* PW(P)11 PW(P)11:H(P)21: 900: 190X PW(P)9 PR(P)4 V(P)13: 900: 190 PW(P)10 PR(P)4 PW(P)5:V(P)9:H(P)37: 900: 190 PW(P)4 PW(P)10:V(P)17:H(P)12: 900: 190 PW(P)9  A:W(I,K)A::#$ 0,2,0,0,1#% 1,3,1,0,1$& 2,2,0,2,3$' 3,3,1,2,3'$( 4,4,4,4,57$) 5,5,5,4,5G$* 6,8,6,6,7W$+ 7,7,7,6,7g$, 8,8,6,8,8y$- 9,11,9,9,10$. 10,10,10,9,10$/ 11,11,9,11,11$0$1 SCREEN CODE/ASCII CONVER!o PW(P)10 PR(P)4 PW(P)1:V(P)13:H(P)28: 900: 190Tp PW(P)4 PW(P)11:V(P)8:H(P)3: 900: 190q PW(P)9 PW(P)5:V(P)9:H(P)36: 900: 190r PW(P)7 PW(P)10:V(P)6:H(P)38: 900: 190s PW(P)10 PW(P)11:V(P)6:H(P(XC(P)): 450:!! SET UP TABLES!5" W(11,6),HM(7),VM(64),MT(2,2),V$(24),CH$(63),NM$(63)w" V(5),SH(5),H(5),XH(5),XV(5),PW(5),XC(5),PR(5),PF$(5),XC$(5)}"" VERTICAL KEYSTROKE TABLE"" I0 64:VM(I)0::VM(6)1:VM(3)10 H(P)18 PW(P)3:V(P)22:H(P)29: 900: 190LZ PW(P)6 PW(P)5:V(P)10:H(P)20: 900: 190[ PW(P)5 XH(P)22 PW(P)6:V(P)3:H(P)14: 900: 190\ PW(P)5 V(P)4 PW(P)8:V(P)7:H(P)5: 900: 190] PW(P)8 XV(P)6 PW(P0k VD25 1120: 30! z 31744,UQ: 31748,VQ: 45,(31744): 46,(31748)U  792,71: 808,237: "THANKS FOR PLAYING!"::[ w  INITIALIZE NEW SCREEN}   V$(XV(P))XH(P))XC$(P);   RESET COLOR MEMORY   BR,YQ:T FIGURES ON SCREEN: I0 NP: PW(I)PW(P) V$(V(I))H(I))PF$(I);@PR(P)XC(P): ""V$(24)BL$V$(24)NM$(PR(P))V$(24)27)"PLAYER "P1""; CHANGE PLAYERST0:PP1: PNP P0 BR,YQ: "": 400 BR,YQ: "DO YOU WANT TO END THIS GAME? (Y OR N)"2% VR,ZQ: 56578,(56578) 3: 56576,XQV* I0 2000:: 198,0: 197,64r4VD(197): VD64 8209 VD25 850>WQ(56578):XQ(56576): 56578,WQ 3: 56576,XQ 272 VMC VR,DM(900: 190 PW(P)10 PR(P)4 V(P)6: 900: 190B PW(P)4 PW(P)9:V(P)2:H(P)27: 900: 190v PW(P)9 PW(P)8:V(P)10:H(P)15: 900: 190 PW(P)7 PW(P)10:V(P)2:H(P)12: 900: 190 PW(P)10 PW(P)9:V(P)17:H(P)2: 9","WATER CLOSET","CLOSET","CRAWL SPACE","PORTICO","PORCH"D&; "LAWN","BALCONY","HALLWAY","PARLOR","DINING ROOM","CONSERVATORY"&< "KITCHEN","LAUNDRY","PANTRY","FAMILY PARLOR","BALL ROOM","STUDY"&= "LIBRARY","TEA GARDEN","GREENHOUSE","DECK","HOT PW(P)0:V(P)5:H(P)16: 900: 1902 PW(P)7 PW(P)1:V(P)12:H(P)27: 900: 190f PW(P)10 PW(P)8:V(P)17:H(P)2: 900: 190 PW(P)5 XH(P)32 PW(P)11:V(P)22:H(P)27: 900: 190 PW(P)1 PW(P)7:V(P)6:H(P)12: 900: 190 % X 828 1023 : Y: X,Y::W 169, 0, 133, 63, 133, 64, 165, 43, 133, 251 165, 44, 133, 252, 160, 0, 132, 254, 32, 228 3, 234, 177, 251, 208, 3, 76, 208, 3, 230 251, 208, 2, 230, 252, 169, 244, 160, 3, 32  30, 203, 16 ( X 49152 49488 : Y: X,Y::\ 32, 161, 192, 165, 43, 133, 251, 165, 44, 133 252, 160, 0, 132, 254, 32, 37, 193, 234, 177 251, 208, 3, 76, 138, 192, 230, 251, 208, 2 230, 252, 76, 43, 192, 76, 73, 78, 69, 32!  35, 32 1, 208, 237, 165, 253, 41, 240, 74, 74T  74, 74, 24, 105, 65, 32, 210, 255, 165, 253  41, 15, 24, 105, 65, 32, 210, 255, 169, 13  32, 220, 192, 230, 63, 208, 2, 230, 64, 230  251, 208, 2, 230, 252, 76, 11, 192, 169, 153  160, 192, 255, 32, 186, 255, 169, 0, 133G  63, 133, 64, 133, 2, 32, 189, 255, 32, 192z  255, 166, 254, 32, 201, 255, 76, 73, 193, 96  32, 210, 255, 173, 141, 2, 41, 1, 208, 249  96, 32, 205, 189, 169, 13, 32, 210, 255, 32  204, 255, 169, 4, 252, 96, 170, 177, 251, 201, 34, 208, 6, 165, 2, 73_ 255, 133, 2, 165, 2, 208, 218, 177, 251, 201 32, 208, 212, 198, 254, 76, 29, 193, 0, 169 13, 76, 210, 255, 0, 0, 0, 205, 189, 169, 13, 32, 210, 255, 32  204, 255, 169, 4, ) SOLVE THE MANSION MURDER--DISPLAY/5[ RELOCATE BASIC VARIABLE STORAGEa  32766,(45): 32767,(46): 45,0: 46,128  HAS SCREEN BEEN LOADED? (31744)26 (31748)152 20  47,0: 48,128: 49,0:M((653)): HD0 VD0 100 f= g SPECIAL COMMAND HANDLERC h[ i VD2 T75: 180l j VD3 800r k l CHECK WHERE FIGURE WILL BE m nV(P)V(P)VD:H(P)H(P)HD oXC(P)(DA(PW(P))H(P)40V(P))128 p q IS IT A SECRET 250  MOVING OFF THE EDGE?% B H(P)38 H(P)1 200_ V(P)22 V(P)1 250e PUT BACK OLD FLOOR,GET NEW V$(XV(P))XH(P))XC$(P);:XC$(P)CH$(XC(P)) PUT FIGURE IN NEW SPOT  V$(V(P))H 230, 252, 76, 74, 3, 169, 236H  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, 76, 73, 78, 69  83, 58, 32, 0, 76, 73, 78, 69, 32, 35  32, 0, 0, 0, 0, 08, 133, PW(P)W(PW(P),PQ) H(P)XH(P):V(P)XV(P): 100G H(P)1 PW(P)4 V(P)6i H(P)38 PW(P)5 V(P)16 H(P)1 H(P)38: 270H(P)1: 270 VERTICAL MOVE TO NEW SCREENPQ2: V(P)1 PQ1 PW(P)W(PW(P)0, 0, 177, 251, 170, 230, 251, 208S  2, 230, 252, 177, 251, 32, 205, 221, 169, 58  32, 210, 255, 169, 0, 133, 253, 230, 254, 32  228, 3, 234, 165, 253, 160, 0, 170, 177, 251  201, 32, 240, 6, 138, 113, 251, 69, 254, 170"  138, 133,, 0, 169, 35, 160, 192, 32, 30, 171T  160, 0, 177, 251, 170, 230, 251, 208, 2, 230  252, 177, 251, 32, 205, 189, 169, 58, 32, 210  255, 169, 0, 133, 253, 230, 254, 32, 37, 193  234, 165, 253, 160, 0, 76, 13, 193, 133, 253"  177, 25 32, 30, 171, 166, 63, 165, 64, 76K  231, 192, 96, 76, 73, 78, 69, 83, 58, 32|  0, 169, 247, 160, 192, 32, 30, 171, 169, 3  133, 254, 32, 228, 255, 201, 83, 240, 6, 201  80, 208, 245, 230, 254, 32, 210, 255, 169, 4  166, 254, 160, 76, 195, 255, 147, 83, 67<  82, 69, 69, 78, 32, 79, 82, 32, 80, 82h  73, 78, 84, 69, 82, 32, 63, 32, 0, 76  44, 193, 234, 177, 251, 201, 32, 240, 6, 138  113, 251, 69, 254, 170, 138, 76, 88, 192, 0  0, 0, 0, 230, 251, 208, 2, 230, PW(P)6:V(P)7:H(P)17: 900: 190Q6 PW(P)8 XH(P)12 PW(P)0:V(P)14:H(P)16: 900: 190; PW(P)8 PW(P)2:V(P)21:H(P)9: 900: 190@ PW(P)7 PW(P)1:V(P)3:H(P)23: 900: 190J PW(P)6 PW(P)11:V(P)19:H(P)16: 900: 190  50,128: 50000  1000 A  MOVE VIDEO MEMORY TO MANSIONG  WQ(56578):XQ(56576): 56578,WQ 3: 56576,XQ 272 VM # VR,DM(0): BR,DB(0):P0:T0 ( 450 - 400:I(9) a b MOVEMENT LOOP c dVDVM((197)):HDH PASSAGE? r s XC(P)85 600$ u= v IS IT A STAIR-END?C wo x (XC(P)62 XC(P)63) PR(P)1 300u z { CAN OBJECT BE MOVED THROUGH? | } XC(P)61 XC(P)0 V(P)XV(P):H(P)XH(P):XC(P)PR(P): 100 ~ V(P)22 V(P)1 (P))PF$(P); % IF NEW ROOM, PRINT NAME+ F PR(P)XC(P) 460L i IS PLAYER'S TURN OVER?o TT1: T75 500 XH(P)H(P):XV(P)V(P): 100 HORIZONTAL MOVE TO NEW SCREEN PQ3: H(P)1 PQ4'T PW(P)5 PW(P)1:V(P)15:H(P)23: 900: 190T^ PW(P)4 PW(P)2:V(P)20:H(P)16: 900: 190h PW(P)2 XH(P)12 PW(P)4:V(P)10:H(P)15: 900: 190m PW(P)2 PW(P)8:V(P)21:H(P)7: 900: 190r PW(P)1 XV(P)9 PW(P)5:V(P,PQ) H(P)XH(P):V(P)XV(P): 1001 V(P)1 V(P)22: 270B V(P)1: 270H d  GET NEW SCREEN NUMBERj PW(P)W(PW(P),PQ) GO INITIALIZE SCREEN 900" 190)* STAIRWAY HANDLER+, PW(P)11  253, 177, 251, 208, 226, 165, 253, 41R  240, 74, 74, 74, 74, 24, 105, 65, 32, 210  255, 165, 253, 41, 15, 24, 105, 65, 32, 210  255, 169, 13, 32, 210, 255, 173, 141, 2, 41  1, 208, 249, 230, 63, 208, 2, 230, 64, 230  251, 208, 2,AlMARCH852AVIC CHECKSUM64 CHECKSUMMANSION GAME'MANSION SETUP-RUPERT #1NUMER. VICNUMER. C-64ELFREDSALMON RUN' HOME BUDGET FUNCTION'AUTO LINE# OLD ROUTINEFLANKSPEED MENU C-64 MENU-VIC OLD.OBJ  DM(11),DB(11)) 50000: 60000/P SWITCH TO MANSION ENTRANCEVqd "@0:DISPLAY SETUP",8n I0 3: 1024I,(43I):x 43,0: 44,72: 45,0: 46,128: "@0:DISPLAY DATA",8,1 43,(1024): 44,(1025): 45,(1026): 46, 24: I0 11:DM(I)CM16(I2):3 dVR53272:ZQ(VR)9 kÏZ lÏ TELL BASIC WHERE SCREEN IS` mÏ nÁ I0 11:DB(I)((VB1024(I2))256): xBR648:YQ(BR) × 53281,7: 53280,11: ""; Ï Ï SET UP DISPLAYS Ï Ï MOVE TO PROPER  Z1- [B$(A$,Z,1):T(B$): T212 T213 51060[ `Nj T96 (T52 T64) ""B$;: 51070a gǏ hǏ LOOP TO PRINT UNPACKED DATA iǏ tZZ1:B((A$,Z,1)): "";: J1 B48: B$;: J ~Nj ZY 51030 ǂ X ǂ I: ˃ "9==: "8K>>O4M76";˃ "G7P=A3O4M6"U˃ "G7P=A3O4M6"o˃ "G7P=A3O4M6"˃ "G7PA;=M7"˃ "G2F5PBM<"˃ "G2F5PBM8"˃ "G2F5;==<"˃ "G2FV"7"˃ "=R7B3QBG7"˃ "R7B3QBG7"6˃ "=<=S26Q5Q9G7"˃ "S7A1S2Q5Q2Q9G7"˃ "STB"1Z̃ "G7V=T7"E[̃ "G7V=U:T7"Y\̃ "G7V=U:T77"m]̃ "G7V=U:T7="^̃ "G7V=U:T7="_̃ "G7V=U:T78"`̃ "G7V=U:T7"ã "G7V=U:T7"b̃ "G7V=U:T7"c̃ "G79==:̃ "ZAY=7"̃ "=ZAY=7"̃ "6ZAY=7"(̃ "ZA7Y=7":̃ "ZA=Y=7"L̃ "ZA=Y=7"^̃ "ZA8Y=7"p̃ "ZAY=7"̃ "ZAY=7"̃ "ZAY=7"̃ "ZAY=7"̃ "ZAY=7"̃ "ZAY=7"̃ "="̓ "7;=>>>L=G7" (˃ "7K>>>X=7"w̃ "[>I3H43"y̓ " "̓ "3H4=&=6C1C18I>"̓ "3H4=&=>>>I2=:"5̓ "3H46&=A3I2%85C1"R̓ "3H45&=A3I2%8=C1"o̓ "3H4=&=A3I2%8C1"̓ "3H4=&=A3I2%8C1"̓ "3H46&=5I6%8C1"̓ "3H4&==I6%8=C1"̓ "3H4&=6I6% "*:5C1B8=(9H43"H΃ "*:=C1B86(9H43""I΃ "*:=C1B1W3B1(9H43"DJ΃ "*:6C1B1W3B1B15(9H43"fK΃ "*:C1B1W3B1B1=(9H43"L΃ ";=(9H43"M΃ ")166,2,84,168,1,42,84,128,1-?167,2,84,168,1,42,84,128,1"̓ "3H4B6$:B5"!̓ "3H4B7'5$:B5"<̓ "3H4B7='5=$:B5"W̓ "3H4B76'58$:B5"{̓ "3H4'5;=<$6B5"̓ "3H4C6'5=<=<"̓ "3H49=:9=:'55C1C17I>"̓ "3H45&==C186C1"̓ "3H49==:9==:9==:"̓ "3HU""̓ "3HU"/̓ "3HU":̓ "X"E̓ "X"P@΃ "X"[A΃ "X"hB΃ "HU3"uC΃ "HU3"D΃ "HU3"E΃ "=:;==<;==2)2I8(9H43"u T΃ ")23A12)2I8;=<;="(PROPER FORM WOULD BE 12 15 1984Z$(V):132 ZZ$(V) \80= ^ BREAKING A NAME INTO ITS NUMBERp `"NAME TO BE ANALYZED -- LETTERS ONLY" b"(PROPER FORM IS NAME COMMONLY USED - FULL NAME OR NICKNAME)" d N$ fI1(N$) hA$(N$,I,1)j(A$)32(A$)N(N$):N(40N)2;""N)N$R$8)"VIBRATES TO THE NUMBER "Z$R$R$[Z(Z$):I0(Z1)10:B$:rI110:B$:B$;:R$R$R$9)"HIT ANY KEY TO CONT."A$:A$""142:38 DATA STATEMENTS FOR THE OUTCOME',"RULED BY THE S " WITH LONG RANGE PROJECTS. SHOULD CHOOSE ONE THING AND STICK"[" WITH IT. COURAGE AND SELF RELIANT.""COMPATIBLE WITH OTHER FIRES- 1, 3, OR 9""RULED BY THE MOON. SENSITIVE, DOMESTIC, EMOTIONAL.""EASILY MOVED TO TEARS. FERTILEIMA 56,48:52,48:)#(16375)8700Y&"PREPARING MACHINE LANGUAGE..."(53265,27:56334,(56334)254:1,(1)251:I.79*14720I,(53632I)::1,(1)4:56334,(56334)1,I5310453151:I,1:-I.:Z..A:A048 / CTER DATA": 9I.:Z.# :A:A060B ;15936I,A:ZZA:II1:58j <Z25190"ERROR IN SPRITE DATA":s >700 d*****SET-UP PLAYFIELD***** i53265,11 n"":53280,5:53281,3:53269,.:53270,(53270)16 x53272,30:53275,.:53276,3: ,38:1252,39, 55483,1:55484,1:55523,1:55524,1b I13841387:I,I1363::I14241426:I,I1399: I14201423:I,I1392::I14611463:I,I1428: I18641882:I,40:I40,40:I80,40: I19842023:I,40: 52992,140:52993,140 ". QUICK THINKING AND INTUITIVE.":"COMPATIBLE WITH OTHER FIRE- 1,3, OR 9""RULED BY URANUS. APPEARS STRANGE AND ECCENTRIC. AHEAD OF HIS TIME."" INTEREST IN OCCULT, PSYCHIC & OUT OF THE ORDINARY""INTUITIVE.SARCASTIC IF CROSSENQUIRING,":" EXPLORING. LIKES READING AND RESEARCH. LINGUISTIC. GOOD TEACHER,"z"WRITER, SECRETARY. FRIENDLY, METHODICAL, ORDERLY.",,,,"INDEPENDENT THOUGHT AND ACTION. SPIRIT OF ADVENTURE."" SPECULATOR. LIKES THE DRAMATIESS THROUGH COMPETENCE, YOU SHOULD FULFILL WHAT YOU PROMISE."\" INTEGRITY ANDTRUST. POPULAR SOCIALLY & POLITICALLY."" COMPATIBLE WITH OTHER EARTHS - 6 OR 8""RULED BY NEPTUNE. PSYCHIC, INTROVERT, MYSTERIOUS. DOES NOT"" SAY MUCHBLE WITH OTHER WATERS - 2 OR 7":"RULED BY SATURN. COLD, PESSIMISTIC. NO SENSE OF HUMOR."" SUCCESS IN FINANCES. ASSOCIATED WITH MINING, REAL ESTATE, LAW,"" CEMETERIES,PAWN SHOPS. HARD WORKER.CONCERNED WITH THE PAST.",,,," THRS OF STRANGERS, IMPULSIVE. AFRAID OF UNKNOWN."I"ASSOCIATED WITH SURGERY, PHYSICAL AND MENTAL ILLNESS.",,,," HIGH AND HONORABLE IDEALS. AVOID DRUDGERY. NEVER RESORT"" TOPETTY TACTICS. PROUD AND ARROGANT, SELF-INTERST." COMP3,17:1025,48:1026,48:1061,48M"1062,48:55297,6:55298,6:55333,.:55334,.:53044,.d,53045,.:53265,27o50237"":53272,21:I5427254296:I,.::53281,6L(53044):R(53045):53269,.LHSHSL RHSHSR LR08)RUN"+19)"BY":15)"MIKE WACKER":"HIGH SCORE= "HSX12)"PRESS F1 TO PLAY"53248,174:53249,210:53264,.:53269,1:53287,6:X(3)25353276,1:53285,1:53286,.:A10:B.:X(.)254:X(1)253:X(2)252Z$: Z$"" 7149152I,A:ZZA:II1:46@ 0Z160018"ERROR IN CODE DATA":L 1I.:Z.[ 2A:A052z 353152I,A:ZZA:II1:50 4Z4625"ERROR IN VARIABLE DATA": 5I.:Z. 6A:A056 714336I,A:ZZA:II1:54 8Z55366"ERROR IN CHARA53282,1:53283,.:53285,13 53286,.:53287,6:53288,11n I5613656295:I,14::I5565655659:I,14:I40,14: I5569255695:I,8:I40,8: 1234,36:1235,37:1274,38:1275,39:55506,1:55507,1 55546,1:55547,1:1211,36:1212,37:1251:52994,96:52995,240:52996,.K 52997,.:Z(53278):I5307253103:I,.::53036,.a 53269,3:53037,. 53211,255:53212,255:53213,12:54296,79:54294,55 54295,129:54277,128:54278,240:54276,129:54273,25554284,128:54285,240:5428D. LIBERTY,EQUALITY." ,,,,A"SUCCESS IN SCIENCE & MECHANICALFIELDS. STEADY AND STABLE."z" STRENGTH AND PRIDE. GOOD WITH DETAILS, ACCURATE."" COMPATIBLE WITH OTHER AIRS - 4 OR 5""RULED BY MERCURY. ACTIVE PHYSICALLY AND MENTALLY. IC."" COMPATIBLE WITH OTHER AIRS - 4 OR 5"^"RULED BY VENUS. GENTLE, REFINED, COMELY,SOCIABLE, PLEASANT. "" A PEACEMAKER. DIFFICULTIES IN FINANCES. FRIENDLY AND AGREEABLE."" A GOOD HOST OR HOSTESS. ",,,," SUCC,BUT KNOWS MUCH. DRAWN TO OCCULT. LIKES FISHING"C". TAKES FROM HAVES, GIVES TO HAVE-NOTS.",,,," SUCCESSIN ART, SCIENCE, PHILOSOPHY, THROUGH PLANNING.TENDS"" TO BE INPRACTICALDREAMER, NEEDS A POSITIVE GOAL."" COMPATIIVES ON PROGRESS AND ACTIVITY. GUARD AGAINST PETTY "P"JEALOUSY. THINK BIG AIM HIGH. MATERIAL SUCCESS."~" COMPATIBLE WITH OTHEREARTHS - 6 OR 8""RULED BY MARS. EMOTIONAL, JEALOUS. TIED TO FAMILY. ACTIVE."" LOYAL. SUSPICIOU)ATABLE WITH OTHER FIRES- 1, 3, OR 9" AGAINST PETTY "P"JEALOUSY. THINK BIG AIM HIGH. MATERIAL SUCCESS."~" COMPATIBLE WITH OTHEREARTHS - 6 OR 8""RULED BY MARS. EMOTIONAL, JEALOUS. TIED TO FAMILY. ACTIVE."" LOYAL. SUSPICIOU "THE LEFT (BLUE) PLAYER WON!":535YLR08)"THE RIGHT (BLACK) PLAYER WON!":535z16)"IT'S A TIE!"15)"LEFT SCORE="L:14)"RIGHT SCORE="RI15000:53280,5:53281,3:"":15)"SALMON  4 Z$"" 100A10:BB1:B4B..2040,X(B):714E****CODE DATA****133,169,134,140,132,141,166,169,202,16,2,166,169,198,139,208,247,17318,208,133,139,138,72,166,140,164,141,104,96,254,14,207,208,3,254,17"207,189,17,20 07,208,17,173,47,207,56,253P14,207,176,2,73,255,201,24,176,36,144,31,173,46,207,208,11,173,47,20756,253,14,207,144,20,176,9,189,14,207,56,237,47,207,144,9,73,255,20124,176,3,169,1,96,169,.,96,206,49,207,208,59,206,128,207,208,54,169. ,87,207,240,16,169,.,141,87,207,141,51,207]169,7,141,50,207,141,89,207,173,89,207,240,35,206,50,207,16,7,169,.,14189,207,240,16,174,50,207,173,51,207,208,5,189,205,207,208,3,189,212,207141,7,212,141,8,212,96,173,88,207,240,250,169,.,141, 208,10,189,.,207,201,69,240,3,222,.,207,152,41,2,208,10,189j.,207,201,197,240,3,254,.,207,152,41,4,208,25,189,4,207,208,7,189,2,207201,24,240,13,222,2,207,189,2,207,201,255,208,3,222,4,207,152,41,8,20820,189,4,207,240,7,189,2,207,201,64,07,153,.1208,189,.,207,153,1,208,172,16,208,189,4,207,240,6,152,29,164,207,208}4,152,61,166,207,141,16,208,202,48,3,76,61,193,96,162,2,189,84,207,208 56,206,7,207,240,3,76,31,196,206,118,207,208,248,169,13,141,118,207,157"84,207,169,.57,29,207,157,35,207,189,35B*207,240,18,222,20,207,222,38,207,208,33,169,5,157,29,207,157,32,207,208,23,32,38,196,32,164,196,208,11,192,218,208,11,169,.,157,11,207,240,4.192,235,240,245,32,30,192,76,85,195,189,8,207,240,89,169,32,157,119,201,208,61,172,207,141,21,208,189,26,207,24,105P81,153,44,207,76,85,195,169,64,157,119,207,189,14,207,201,160,208,21,234:234,234,169,.,157,29,207,169,40,157,38,207,157,11,207,157,35,207,208<14,173,18,208,201,37,176,7,169,7,32,.,192,240,224,327,41,2,240,14,173,81,207,240,9,32,85,192,240,4,169,1,208,206,222^F122,207,208,13,169,10,157,122,207,189,125,207,73,1,157,125,207,188,125H207,189,11,207,208,5,189,8,207,240,5,185,178,207,208,13,189,26,207,208J5,185,180,207,208,3,185,182,207,6,208,202,48$!R3,76,45,194,96,254,20,207,188,20,207,96,157,91,7,169,19,141,174,7,96o!T157,91,7,169,20,208,245,32,165,192,32,43,194,32,59,193,172,44,207,240!V34,169,.,141,44,207,152,24,109,52,207,141,52,207,238,2,4,173,2,4,201,58 "X208,8,169,8,12,189,14,207,201,160,176,3,169%#`.,44,169,1,96,141,130,207,173,30,208,141,6,207,96,-1<#b****VARIABLES****#d252,253,254,253,1,2,254,253,24,64,.,1,251,247,239,4,8,16,250,251,250#f250,249,249,4,6,8,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,7,240,21,189,14,207,201,88,208,14,169,.,157,84,207,173m21,208,61,172,207,141,21,208,96,173,4,207,141,46,207,173,.,208,141,47207,173,1,208,141,48,207,208,18,173,5,207,141,46,207,173,2,208,141,47207,173,3,208,141,48,207,173,46,207,221,17,24,141,128,207,206,129,207,173,129,207,106,162,2,176,17,189,187,207,32y45,196,189,190,207,157,131,7,189,193,207,208,15,189,196,207,32,54,196189,199,207,157,131,7,189,202,207,157,171,7,202,16,216,206,130,207,2401,96,169,160,32,182,196,17388,207,169,1,208@191,162,1,222,112,207,240,3,76,36,194,189,80,207,208,11,189,82,207,208 3,169,48,44,169,88,44,169,18,157,112,207,189,80,207,240,20,189,.,207 201,197,208,7,169,.,157,80,207,240,6,254,.,207,76,246,193,188,.,220152,41,1,240,8,254,2,207,208,3,254,4,207,152O41,16,208,10,189,.,207,201,102,176,3,157,80,207,222,114,207,208,15,1698,157,114,207,222,116,207,16,5,169,3,157,116,207,188,116,207,189,80,207240,4,169,255,208,3,185,160,207,157,248,7,138,10,168,189,2,2,157,8,207,157,11,207,157,14,207,157,17,207,169,218,157,20_$207,169,5,32,.,192,157,23,207,169,1,32,.,192,157,26,207,222,119,207&208,200,234,234,234,234,234,234,189,11,207,240,75,169,64,157,119,207(189,29,207,240,13,222,32,207,208,54,169,.,17$0189,41,207,10,168,185,.,208,157,14,207,185,1,208,24,105,13,157,20,207n2188,41,207,185,4,207,157,17,207,189,14,207,217,168,207,208,44,189,174207,217,170,207,208,36,189,20,207,201,109,176,29,141,87,207,169,.,153682,207,157,84,207,173,2,30,192,189,84,2071>208,3,76,31,196,173,6,207,61,175,207,240,69,173,6,207,41,1,240,41,173{@80,207,240,36,32,65,192,240,31,169,.,157,41,207,168,189,23,207,208,5B169,1,153,82,207,169,.,157,11,207,169,1,157,8,207,141,88,207,208,21,173D6,20157,250,7,173,21,208,29,175,207,141,21B L208,189,23,207,208,3,169,.,44,169,1,157,41,208,169,208,133,252,189,184 N207,133,251,189,14,207,160,.,145,251,200,189,20,207,145,251,172,16,208 P189,17,207,240,6,152,29,175,207,208,4,152,61,172,207,141,1 48,141,2,4,238,1,4,136,208,235,172,45,207,240,34,169,.,141,45U"Z207,152,24,109,53,207,141,53,207,238,38,4,173,38,4,201,58,208,8,169,48"\141,38,4,238,37,4,136,208,235,206,219,207,208,164,206,220,207,208,159"^206,221,207,208,154,96,189,17,207,20 18,32,30$h27,23,18,12,5,6,13,19,24,28,31,33,112,142,6,-1($j****PROGRAMABLE CHARACTERS****u$l.,.,.,.,.,.,.,.,255,223,247,247,247,255,127,255,192,252,255,223,245,255$n255,255,.,.,.,.,.,64,192,192,247,253,255,253,245,247,247,253,255,247 %p2 247,253,255,255,255,253,253,223,223,127,223;&x247,255,255,255,80,244,241,192,192,192,240,240,255,127,127,221,221,223&z223,223,127,223,255,255,255,127,223,255,240,241,84,124,221,255,247,255&|20,64,64,68,17,64,1,20,16,64,1,84,.,80,5,64,63,253,25 6,247,255,255,255,251,245,215,95,250,255,255,112,212,252,252,252L(252,240,192,.,.,.,.,.,.,.,.,.,3,3,3,.,.,.,.,240,252,255,255,255,15,3,.(.,.,.,192,240,252,255,255,252,254,255,126,31,30,28,127,.,.,192,240(248,252,252,252,255,253,127,31,3,3,. ,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.K*4,127,128,6,254,96,7,254,96,7,255,224,6,255,224,4,127,128,.,.,.,.,.,.*.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.*.,.,.,.,8,124,.,12,255,128,71,.,.,192,192,.,192,192,3,51,48,.,.,.,.,.,.,.,.,.,.,.,.,.,.,40,.,.,166,.,2,42,.,.,10,.^,.,8,.,10,40,160,42,170,168,42,170,168,170,170,170,170,170,170,170,187,170,40,179,40,40,51,40,.,51,.,.,192,192,.,192,192,3,51,48,.,.,.,.,.,.,.,.,.,.,170,42,170,168,42,170,168,42.170,168,42,170,168,10,40,160,.,8,.,.,10,.7..,42,.,.,38,.,.,42,.,.,8,.,.,8,.,.,.,.,.,.,.,.,-1,170,170,170,170,170,170,170,187,170,40,179,40,40,51,40,.,51,.,.,192,192,.,192,192,3,51,48,.,.,.,.,.,.,.,.,.,.'"": 53280,14: 53281,6: 646,1D I4915249537:A:I,A:Q49152:{ 173,36,3,201,188,240,19,141,189,192 173,37,3,141,190,192,169,188,141,36 3,169,192,141,37,3,173,20,3,201 55,240,21,141,102,192,173,21,3,141 ( 103234,169,70,32,153,192,141B n 122,193,141,128,193,165,21,141,123,193k x 141,129,193,162,255,108,0,3,169,91 32,153,192,141,126,193,173,128,193,141 122,193,173,129,193,141,129,193,162,255 108,0,3,160,193,32,30,171,32,96 165,134132,253,173,123,193,174,122,193C 133,98,134,99,142,128,193,141,129,193m 162,144,56,32,73,188,32,223,189,162 0,189,0,1,240,7,157,119,2,232  76,251,192,169,32,157,119,2,232,173  125,193,208,29,134,198,173,122,193,24  109,126,13,69,78 ^ 84,69,82,32,76,73,78,69,32,73Dh 78,67,82,69,77,69,78,84,40,48er 45,50,53,53,41,58,32,0,0,0y| 0,0,10,64,0,0"":"TO CONVERT MEMORY TO ""DATA STATEMENTS ENTER":"""I53,253,255,127,255,127,192,240,240,192,64,65,116,240,223,255,127,255W%r223,247,253,253,255,223,213,127,223,223,215,247,240,240,252,252,223,247%t247,255,255,95,247,253,255,223,247,253,192,252,255,255,255,255,255,255%v.,.,.,.,64,208,192,192,247,0,255,255,253,63'~15,239,255,119,239,111,239,255,255,255,223,175,235,250,95,255,255,112j'212,252,252,252,252,240,192,.,.,.,3,15,63,255,255,15,63,255,255,255,240'192,.,.,192,192,192,.,.,.,.,63,253,250,255,255,253,63,15,247,255,238(247,24,.,190,254,252,248,224,.,.,.,255)255,255,255,255,255,255,255,-1)****SPRITE DATA****g).,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,16,127,224,25,255,248,27,255)24,31,255,24,31,255,248,27,255,248,25,255,248,16,127,224,.,.,.,.,.,.,.*.,.,254,96,7,254,96,6,255,224,2,127,224,.,3,1282+.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,40,.,.|+166,.,130,42,2,160,10,10,160,8,10,170,40,170,170,170,170,170,170,170+170,170,170,42,170,168,42,187,168,40,179,40,.,51,.,.,5,.,.,.,.,40,.,.,166,.,2,42,.,.,10,.,.,8,.,10,40,160,42,170;-168,42,170,168,42,170,168,42,170,168,170,187,170,168,179,42,168,51,42-160,51,10,128,192,194,.,192,192,3,51,48,.,128,192,194,128,51,2,128,51-2,160,51,10,168,51,42,168,179,42,170,187NCLUSIVE DECIMAL":"MEMORY LOCATIONS"::"FROM";A:"TO";C::"BYTES PER LINE";BCC256:251,(C(C))256:252,C+2,B:"";PBA256:253,(B(B))256:254,Bt :((A),2,((A))1);"DATA ";I0(2)1A$((AI))","A,192,120,169,55,141,20,3,169,192F 2 141,21,3,88,96,165,197,201,64,240r < 40,205,127,193,240,35,141,127,193,201 F 4,208,8,173,124,193,73,255,141,124 P 193,201,5,208,8,173,125,193,73,255 Z 141,125,193,201,6,240,31,201,3,240 d 3,76,49,,122,132,123,32,115,0,170,240@ 243,162,255,134,58,144,1,96,32,107h 169,169,0,133,198,165,20,96,32,87 241,8,133,251,201,13,240,4,165,251 40,96,173,124,193,240,247,169,13,32 210,255,165,214,141,130,193,206,130,193 134,252, 193,141,122,193,144,3,238,123A " 193,166,252,164,253,173,130,193,133,214i , 76,198,192,160,0,185,65,193,240,8 6 200,157,119,2,232,76,49,193,76,18 @ 193,68,65,84,65,0,13,69,78,84 J 69,82,32,76,73,78,69,32,78,85 T 77,66,69,82,58,32,0, 53280,12:53281,11M" FLANKSPEED ";~ " MISTAKEPROOF ML ENTRY PROGRAM "" CREATED BY G. F. WHEAT "" COPR. 1984, ION INTERNATIONAL INC. "A5427254296:A,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:ADA 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 " 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"@"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:307081200T4100h" ":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 SI(251)256(252)63780(A$,2,(A$)1);AI(251)256(252)63830I:63830$" ": 63870*V" ":631(198),13b`"G63850":A631634:A,145::A,13:636,13:198,6haj"":A13:" "::"";tA(253)2d"": 53280,0: 53281,4\n 3)"        "x 3)"        ̯" 3)"         " "  IONAL INC"1 (L$,20)9)"RETURN OR CHOOSE NO.";P 198,0: AN$:AN(AN$):B0c AN$"" 100 : CH1 AN: PR$: CH "": 53280,0: 53281,0 (L$,15)10)"LOADING "PR$"" "LOAD";(34);PR$;(34);",8,1" "RUN": ""(  631,13: 632,13: 198,2:l  64 CHECKSUM,VIC CHECKSUM,MANSION GAME,MANSION SETUP,RUPERT #1  NUMER. VIC,NUMER. C-64,ELFRED,SALMON RUN,HOME BUDGET  FUNCTION,AUTO LINE#,OLD ROUTINE,FLANKSPEED(L$,24)7)"(C) ION INTERNAT54272,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,T1EN310 " ";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)(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"::::"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$ 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:TCAN 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:T56(254)(2):63750~Q(43):U(44)(Q4256U)13163900Q1(Q256U):U1(Q1256U):QQ1:UU1:638801PQ256U:P,0:P1,0O""n"TYPE LIST TO SEE DATA"""I))","A "- L$"":TA12Q AA1:BB1: PR$: A9 TA11o (L$,B7)TA)""A"-"PR$ B7 175 150 A14 :A0 (L$,22)" DISKS REPRODUCED WITH MSD SUPER DRIVES " (L$,24)7)"(C) ION INTERNAT