' +JJJJ ?\>m0M='+l> /+l  P˵B̵CõDĵEµµBD ĵ ⵭µ ۰ µL` 鷎귭෍ᷩ췩緈JJJJx i L8ᷭ緍췩 i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&" ʎ L/  !"#$%&'()*+,-./0123456789:;<=>?  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 ˆʎõĵL õ ĵµ aµ`` L̦µ_bJLLz L^ ۰L^  ȟ QlXJ̥KlV  ȟ QlV eօ3L׮ʊHLQ &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵLȿõ` F`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (  Ϡ@跻~!Wo*9~~ɬƬ~~~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL ꝍ ŤL{ BH [ h`Lo õ ڬL ꝍ ŤL~H hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8DH ؿ E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭  ˤLª 뷰` Lk ݵܵߵ޵ ^`8ܵ i B8` 9L%ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵BֵO G굎뵎쵬 뵎쵌`` ַ յյ`@ +õm浍õĵL õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(`# d֠ĭz#Bjii@@i i iϭiл`0 ((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP*@ $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?    `^_:ʽe^^e__l^" ަư8^_氠^LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ`XI1:T2$?A2TI40:HN$(10),HS(10),C$(7,2),CL$(7, BAR";::"."r*+16368,06r4+(16384)160ī11060Ar>+11000GrH+Mr\+ar.K$"":16368,0r.K(16384):K128ī12010r.K$(K128):K$"a"K$"z"K$((K$)32)r.rPæETONEBEEP.TB6  <  L=,0 J= <21,X2:A22,Y1:A23,Y2:A26:8,X3:9,X40q.'{q*1::(4);"OPEN SIDE":(4);" READ SIDE":S2$:(4);"CLOSE":S$S2$ıq+:2:8,50270,50270,1008,1008,50q+T2$q +9:9:"PLEASE TURN THIS DISK OVER.":9 r +9:"THEN PRESS THE ";::"SPACE110:HN$(K):HS(K)::"CLOSE":6022_p'A136096:A236608:A334048:X119:X239:Y1121:Y2191sp'X3(8):X4(9)p'A241,(A1256):A240,A1((A1256)256)192:A246,(A1256):A245,A1(A1256)256*q$'9,(A3256):8,A3((A3256)256):A2,X1:AHH$o#Z110o#ZXĞbo#8Z:8:HN$(Z);:29((HS(Z)1000))((HS(Z)100))(HS(Z)10):HS(Z)jo#:o#21:1:"PLEASE PRESS THE ";::"SPACE BAR";::"."o#16368,0o#(16384)1609176o#20:1:""&p#1::"WRITE HONOR.ROLL.DATA":K)n#Y9n#HN$(X)" ":HS(X)YS:8000gn#20:1:"YOU HAVE MADE THE HONOR ROLL!"n#SO$"Y"ĺ"OPEN SOUND4":"READ SOUND4":T110:S1$,S2$:S1(T)(S1$):S2(T)(S2$):T:"CLOSE SOUND4":T110:IR"TONE",S1(T),S2(T):To#HN$(X)29:"-----"tm^XX110:8XX:5(XX10):XX". "HN$(XX);:29((HS(XX)1000))((HS(XX)100))((HS(XX)10)):HS(XX):zmm(# HONOR ROLL m2#S$"A":11000mZ#X110md#YSHS(X)9080mn#X:9120mx#Y9X1n#HN$(Y1)HN$(Y):HS(Y1)HS(YlJK13:MS(49200)::Bl? DISPLAY THE HONOR ROLL l@:1:1,1279,1279,1471,1471,1:1,20279,20:1,36279,36lJ2:"";:3:"THE "(34)"LET'S EAT!"(34):4:5:"HONOR ROLL"lT6:8:"NAME";:29:"SCORE" mY7:8:"----";:"SOUND"T2$" ON "::8:"DURING THE GAME? (Y/N) ";qk12000:SO$K$:SO$"Y"SO$"N"SO$"y"SO$"n"7360kSO$"Y"SO$"y"SO$"Y":7380kSO$"N":"N":55k"Y"k1::"BLOAD WHO.MODULE,A32256"k55k MAKE A CLICK YOU WANT? (1 OR 2) ";>j12000:LE$K$:LE$"1"LE$"2"7330QjLE$:LE(LE$)jVE11(LE2)7:JJVEVE3LE(LE1)3:JJ:2:38):jSY(LE2)70:5:43,100SY231,100SY231,130SY43,130SY43,100SY5k5(LE1)9:8:"DO YOU WANT THE "T3$;THE CLUES ARE HARDER.":2:"- YOU WILL HAVE TO PICK "T3$"ALL"T2$" OF THE"i4:"CLUES BEFORE YOU CAN SEE THE ":4:"PICTURE CLUE.":2:"- EACH PICTURE WILL COST 15 POINTS.":2:"- CORRECT ANSWERS WILL EARN 30 POINTS."j::2:"WHICH LEVEL DO:"- THE CLUES ARE EASIER.":2:"- YOU WILL HAVE TO PICK "T3$"FOUR"T2$" CLUES"h4:"BEFORE YOU CAN SEE THE PICTURE CLUE.":2:"- EACH PICTURE WILL COST 10 POINTS.":2:"- CORRECT ANSWERS WILL EARN 20 POINTS."Li:12:"LEVEL 2 - HARD":2:"- g CALCULATE THE VALUE OF PICTURE Ag PP10(LE2)5Gg>gg GET GAME LEVEL g:6:0,0278,0278,1460,1460,0:0,20278,20:0,76278,76gAL0g2:2:"THERE ARE TWO LEVELS TO THE GAME:":Rh12:"LEVEL 1 - EASY":2N$)1):7100 f(IN$)LS70209fAH$" "IN$""7020LfAH$" "ī7090lf(AH$"A"AH$"Z")ī7020fAH$"a"AH$((AH$)32)fIN$IN$AH$fVP:HP:""IN$" ";:7020fIN$" "7000f(IN$,1)" "IN$(IN$,(IN$)1):7110f.5:"eW SIMULATE INPUT 5eXIN$"":VP:HP\el12000:AH$K$:AH$(127)AH$(8)xe(IN$)0AH$(8)7020eAH$" "(IN$)17020e(IN$)1AH$(8)IN$"":7100eAH$" "7120eAH$" "(IN$)07020 f(AH$)8IN$(IN$,(ICF(0)1)):3:"FOR A CLUE."/do6:"-- OR --"5dp?d3100dT2$:13:3:"PRESS THE <P>":3:"KEY FOR A":3:"PICTURE CLUE.":6:"-- OR --":eT2$:34,12:252,0:253,19::10(DEBUG1)245:FL110:11:20::"":FL:252,0:253,56:34,0:25PP" PT"(0(PP1)83)".)"$c2PB:Fcc SCREEN DIRECTIONS cd IF (YS < PP) AND (CC = NC( LE)) THEN FF = FF + 1: POP : GOTO 1150 ciCCNC(LE)6550dnT2$:13:3:"PRESS A":3:"NUMBER";AD$((LE1)(CC4)(b`""MS$""%bb(16384)1606290/bdV:H>bf""MS$""Hbj6215UbBL$"":ub FLASH THE

bCGCG1:CG1ıb 7200:PB110bNC(LE)4:T2$;:2:" ";T1$;:9:18)c(NC(LE)4:T2$;:2:"<P>";T1$;:9:"PICTURE ("a"";YN$; aS$"A":11000?a:1::"RUN RETITLE.BAS"Eafa7 FLASH A MESSAGE a812000:K$" "ī6200aBaD(16384)1606290aGV:HaLBL$aM(16384)1606290aNV:HaOBL$aQ(16384)1606290aVV:H `p'`uS$"A":11000:YSHS(10)90001`z8000Y`20:"YOUR FINAL SCORE IS "YS".":`22:1:"WOULD YOU LIKE TO PLAY THE GAME AGAIN FROM THE BEGINNING? (Y/N) ";`12000:YN$K$`YN$"Y"YN$"y"ĺ"";"Y":6100aYN$"N"YN$"n"6030A":11000::"RUN RETITLE.BAS")_4050N_ "LAST ROUND" MESSAGE _:21:T2$;:2:"LAST ROUND... ":2:"PLEASE PRESS THE ":2:"SPACE BAR. ";:_12000:SB$K$:SB$" "5020_6005_o END OF GAME WRAP-UP 0İ10000^1:40:T1$;""T2$;^::20:2:"WOULD YOU LIKE TO":2:"PLAY THE GAME ":2:"AGAIN FROM THE ":2:"BEGINNING? (Y/N) ";(8);:^12000:YN$K$:YN$"Y"YN$"y"Ğ:"Y"::S$"A":11000:6100_YN$"N"YN$"n"Ğ:"N"::1::S$"1,32NC(LE)8135,32NC(LE)8:E] CHECK IF SCORE IS 0 Q]YS0ı[]3100{]13:2:"YOUR SCORE IS 0."]:2:"THE CORRECT":2:"ANSWER IS:":]LE1Ė2:"<"CA$"> "CH$(1,1)""]LE2Ė2:T3$;"=% "T2$;CH$(1,2)""^CF(0)I1300:JI\ IJOYYSST:W\ 13:T2$;:35:(0((IJ10)32))IJ;::YS1000ĺ" ";s\ 1:T1$;:SO$"Y"İ7400\ IJ:255\ 13:T2$;:35:(0((YS10)32))YS;T1$:\ CLEAR LOWER LEFT BOX \ 1:T2$:I23121:I:2:18):] 5:;"> ";CH$(SC(I7),LE)"":1[Z :3:"WHO AM I?"z[p 1:T1$:V23:H5:V:H:"PRESS THE ";::"SPACE BAR";::".";:6200[ 16368,0[ 3100:LE21210[ 1170[ DECREMENT SCORE [ OYYS:YSYSPV:YS0YS0[ ST1:PV0ST1 \ JZ :"";YN$;:,Z YN$"N"YN$"n"6000HZ YN$"Y"YN$"y"2490Z CG0:CC0:FF0:II0:J09:CF(J)0:::1:::570Z REVIEW CHOICES Z LE21170Z# 3100Z2 13:2:"I AM ONE OF":2:"THESE:"[F I811:8I:2:"<";(57I)Yj Z14:CH$(Z,Y):Z,Y(Y~ "CLOSE"VY 1::(4);"BLOAD "CH$(1,LE)".SHW,A34048"vY 2:23:" "Y :21:T2$;:2:"DO YOU WANT TO ":2:"PLAY AGAIN? (Y/N) ";(8);:Z 12000:YN$K$:YN$"Y"YN$"N"YN$"y"YN$"n"ī24908((CA$)57)::6::I1(CH$(1,LE)):((CH$(1,LE)),I,1);:::255}X 14:5:20(LE2)10" POINTS.":PV20(LE2)10:3000X) 1:40:T1$;""T2$;X. ALTI5000XB 1::"READ W"W(AL1):YV Y12:NC(Y):X1NC(Y):CL$(X,Y)::X1NC(Y):C$(X,Y):X:WI1314:I:2:18):>W13:"";:2:"CORRECT"WSO$"Y"ĺ"OPEN SOUND3":"READ SOUND3":T111:S1$,S2$:S1(T)(S1$):S2(T)(S2$):T:"CLOSE SOUND3":T111:IR"TONE",S1(T),S2(T):TW CF(0)0İ10000W 1:40:T1$;""T2$;CX 50:SOUND2":"READ SOUND2":T111:S1$,S2$:S1(T)(S1$):S2(T)(S2$):T:"CLOSE SOUND2":T111:IR"TONE",S1(T),S2(T):TV3000:4000V1:T1$:V23((LE2)8):H5:V:H:"PRESS THE ";::"SPACE BAR";::".";:6200V3100:1150WLE1ĺ""CA$""Uz13:2:"INCORRECT...YOU ":2:" LOSE ";RU{LE1PV(YS3):PV0PV1:2176xU|LE2PV(YS2):PV0PV1:2176U~LE2ĺPV" POINT"(((YS2)1)83)".":2180ULE1ĺPV" POINT"(((YS3)1)83)".":2180U"1 POINT."wVSO$"Y"ĺ"OPEN :LS14:16368,0:7000.T IN$CH$(1,LE)22708T"2170vT<:2:"TYPE THE LETTER":2:"BESIDE MY NAME."T3$"% "T2$;T>12000:NG$K$:NG$"a"NG$"d"NG$((NG$)32)THNG$"A"NG$"D"2110TRNG$CA$2270Tf""NG$"":I1314:I:2:18):,OUR CHOICES:"!SI811:8I:2@SLE1:"<";(57I);"> ";\SLE2ĺT3$;" =% ";T2$;ySCH$(SC(I7),LE)"";::SLE12108S21:T1$;:3:"TYPE MY NAME AND":3:"THEN PRESS ";::"RETURN";::"."T23:3:T3$;:3:"%";T2$;:VP23:HP4 "::1150Rb100004Rq1:40:T1$;""T2$;@RvCF(0)1`R4NC(LE):T2$;:2:" ";:~RFFFF1:PVPP:3000:4000RNC(LE)4:T2$;:2:" ";T1$;:9:18)R1150R GUESS ROUTINE R3100 S13:2:"HERE ARE YOUR":2:"F16368,07Q<CF(0)1(LE1CC4)(LE2CCNC(LE))1150Q?PPYSĞ:17:22:"YOU DO NOT HAVE"::22:"ENOUGH POINTS TO"::22:"SEE THE PICTURE."QBPPYSāWA13000:WARDPPYSĞ:17:22:" "::22:" "::22:" :135,1135,1006P3YC:9::""CL$(CO(YC),LE);"";LP5:135,1135,100jP29:(12);C$(CO(YC),LE);PCF(YC)1:FFFF1PPV1:3000:4000P16368,0:3YC:T2$;:2:" ";:PT2$:20:32:CCCC1:1150P& PICTURE ROUTINE Q:(LE)1290 OCF(((YC)))12903O"23:17:(YC)?O61:T1$VOJCF(((YC)))1290qO^ EXPOSE CLUE OrYC((YC)):3YC:9::""CL$(CO(YC),LE)"";:O50((DEBUG1)200):(CL$(CO(YC),LE))9:Y119(CL$(CO(YC),LE)):".";::255P56)322N EVALUATE KEYPRESS AND BRANCH BNYC491290NN23:17NYC80ĺ"P";:16368,0:1850: PICTURENYC71ĺ"G";:16368,0:2030: GO TO 'GUESS'NYC76ĺ"L";:16367,0:2590: GO TO 'REVIEW' OYC48NC9HS,108139HS,92EM<9HS,91129HS,91129HS,1689HS,1689HS,91nMFHC(1):HC%(1)8:HC%0HC%41350MZHC%:HS((HC%2)(HC%2))Mn135HS,90277HS,90277HS,110135HS,110135HS,90Mx23:17:""(95);NYC((16384)128):YCYC(YC9OUR CHOICE "T3$"=% "T2$" ";.LSP0İ66007LSP1gL GET USER'S CHOICE AND FLASH BOX uL16368,0L23:17:" ";L HC%(1)8:HC%0HC%41290L23:17:" ";LHC%:HS((HC%2)(HC%2))M2139HS,92271HS,92271HS,10813ECTIONS K~FFNC(LE)12030GK(LE1CC4)(LE2CCNC(LE))İ6400wK IF SP = 0 THEN FOR K = 1 TO 2000: NEXT KK6500KLE1Ė3:"PRESS <L> TO SEE":3:"THE LIST.":6:"-- OR --"K3:"PRESS <G> ":3:"TO GUESS."L23:T2$;:2:"YPICTURE "@J15:T3$;:23:"$ $";:34:"$ $"T2$:IJ255JXZ1NC(LE):3XZ:"2";:2:"<"XZ">1";:9:""CL$(CO(XZ),LE)"":JJB SCORE AREA JV13:T2$;:22:"YOUR SCORE"T3$" % ";YS;:1:T1$ Kj SCREEN DIR3:20:::"":252,0:253,56:34,0:3:X134140:X,112X,191:X139,112X139,191:lIf3:135,191279,191Iz4:135,120279,120I2:"1";:3:"KEYS:"T2$;:7:"TYPE OF CLUE:"T1$I2:T2$;"";:11:"THE CLUES";T1$;J15:28::" DRAW GAMEBOARD H:KH  IF SP = 0 THEN SPEED= 10H*5:1,1277,1277,1911,1911,1:135,1135,191:H>1,21277,21:1,19277,19HH5:35,135,32NC(LE)8HJ1,32NC(LE)8135,32NC(LE)8TIRT2$:34,14:252,20:253,20::10,I:IGSO$"Y"ĺ"OPEN SOUND1":"READ SOUND1":T121:S1$,S2$:S1(T)(S1$):S2(T)(S2$):T:"CLOSE SOUND1":T121:IR"TONE",S1(T),S2(T):TG24:T1$;:12:"PLEASE PRESS THE ";::"SPACE BAR";::".";G12000:SB$K$:SB$" "750H 40,16:230,8220,16::230,127220,1373FLE2700ZF5:T2$;:10:"I AM ONE OF THESE:FI8142:I:12:IIII1:T3$"=% ";T2$;CH$(SC(II),LE)""::T2$F715F7:T2$;:10:"HERE IS YOUR NEXT"::10:"MYSTERY FOOD."G5:I154157:0,I27 SCRAMBLE THE CLUE ORDER =EPX1NC(LE):DU(X)0:MERX1NC(LE)rESCO%(1)NC(LE)1:DU(CO%)1595EUCO(X)CO%:DU(CO%)1EWEa OPENING SCREEN Eb:6:40,16220,16220,13640,13640,16%Fy50,8230,8:230,8230,128:50,8LE)".SHW,A34048"&DHS(1)0R0570,D$WD& START OF EXTREME OUTER LOOP cD:ALAL1D? SCRAMBLE THE 4 CHOICES DBX14:DU(X)0:DDX14DFR%(1)41:DU(R%)1582DHSC(X)R%:DU(R%)1DISC(X)1CA$(X64)DL#EN&CW(X)((1)TI1):DU(W(X))11308CDU(W(X))1::DC1:T2$cCJ GET INITIAL DATA zCr1:"READ W"W(1):CY12:NC(Y):X1NC(Y):CL$(X,Y)::X1NC(Y):C$(X,Y):XCZ14:CH$(Z,Y):Z,YC"CLOSE"D1::(4);"BLOAD "CH$(1,(X):HS(X)::"CLOSE"-B;HS(1)0R0İ8000B<16368,0:24:T1$;:7:"TO BEGIN THE GAME, PRESS THE ";::"SPACE BAR";::".";B>12000:SB$K$:SB$" "62BDS$"C":11000BF SCRAMBLE THE TEXTFILE ORDER BZX1TI:DU(X)0:CnX1TI2),CH$(4,2),CF(9),SC(4),AD$(1),NC(2),DU(TI),W(TI),S1(21),S2(21)lA3AD$(0)" ":AD$(1)" OR LETTER":A5(4);"OPEN NAME.TXT":(4);"READ NAME.TXT":HH$:(4);"CLOSE"A67300A7YS20(LE2)10A81::"READ HONOR.ROLL.DATA"B9X110:HN$3@IR(175)(176)256203)@322565@50000t@1::(4);"BLOAD LOOKLO,A36096":(4);"BLOAD SHOW,A36608"z@@ FILENAME: WHO AM I? @-T1$"1":T2$"2":T3$"3"@.MM32256@01:T2$?A2TI40:HN$(10),HS(10),C$(7,2),CL$(7,                          240P2084060 4020 GOTO 400@d2000: LOAD PAGE1[n3000: DISPLAY SCREENsp2000: LOAD PAGE 2s22:20:"PRESS ANY KEY":20:"TO CONTINUE.";xLL128:HL255:40003000: DISPLAY SCREEN22000: LOAD PAGE 3 LL176: DISPLAY SCREEN 5, LL160:HL160:4000I 1:"2":"RUN REHOWDY"U "2": NN1:1::"BLOAD RULES"N".PAC,A28160": 0,0:1,110:::768:: 16368,0 P(16384):PLLPHL4010 16368,0: 16368,0 P(16384):PHL185:4000+ ,3000: DISPLAY SCREEN3F 12000: LOAD PAGE 4P 64050t 3000: DISPLAY SCREEN 4 2000: LOAD PAGE 5 24:"1";:9:"TO CONTINUE, PRESS THE ";::"SPACE BAR";::"."; LL160:HL160:4000 3000:  FILENAME: RULES )"GOTO 400@d2000: LOAD PAGE1[n3000: DISPLAY SCREENsp2000: LOAD PAGE 2s22:20:"PRESS ANY KEY":20:"TO CONTINUE.";xLL128:HL255:40003000: DISPLAY SCREEN22000: LOAD PAGE 3 LL176:  ӍɍΠčύΠ,@ FILENAME: FIXER 5@ HN$(11),HS(11)k@ M$(0)"MAKE NO CHANGES,":M$(1)"SAVE CHANGES AND"@"READ HONOR.ROLL.DATA"@X110@(HN$(X):HS(X)@*READ HN$(X): READ HS(X)@2:"CLOSE"@<HN$(11)"---":HS(11)0@F16368,0A:"WRITE HONOR.ROLL.DATA"&PTX1102P^HN$(X)=PhHS(X)DPrXRP|"CLOSE"XP|POò DUMMY UP THE HONOR ROLL PPà FREDERICK BURGGRAF,2000,JIM,1900,DARLENE,1800,JANICE,1700,SUE,1600,KAREN,1500,DON,1340,CINDY,1200,KATHY,1100,FABIAN,100")NU$""NU$K$:K$;:10010EO.'NU$"1"K$"0"NU$"10":K$;:10010fO8'K$(13)NU$""NU(IN$):OB'K$(8)NU$"10"NU$"1":(8);" ";(8);:10010OL'K$(8)(NU$)1NU$"":(8);" ";(8);OV'10010O@ WRITE NEW HONOR ROLL PJ1::VP:HP:""IN$" ";:7020,NIN$" "7000XN(IN$,1)" "IN$(IN$,(IN$)1):7110^NlN(#16368,0N2#K(16384):K128ī9010N<#K$(K128):K$(127)K$(8)NA#K$"a"K$"z"K$((K$)32)NF#N'NU$""N'9000O$'(K$"1"K$"9MAH$" "7120-MAH$" "(IN$)07020UM(AH$)8IN$(IN$,(IN$)1):7100iM(IN$)LS7020M IF AH$ < LL$ OR AH$ > UL$ THEN 7020M(AH$"a"AH$"z")AH$((AH)32)M((AH$"A"AH$"Z")(AH$" "(IN$)0))IN$IN$AH$N ";:HS(X)100ĺ" ";:HS(X)10ĺ" ";1L HS(X):7L =L YLX SIMULATE INPUT lLbIN$"":VP:HP}Ll9000:AH$K$L(IN$)0AH$(8)7020LAH$"-"7020LAH$(27)ġ:100LAH$" "(IN$)17020M(IN$)1AH$(8)IN$"":7100TNAME"-K PRINT HONOR ROLE SUBROUTINE OK :2:"";:6:"HONOR ROLL"K 6:0,0278,0278,1280,1280,0:0,20278,20:0,32278,32:0,35278,35K :9:"NAME";:29:"SCORE"K ::K X110:4:X10Ė3$L X". ";HN$(X);:29:HS(X)1000ĺ"* *":10:" RESET COMPLETED ":10:"* *":J24:1:"PLEASE PRESS THE ";::"SPACE BAR";::".";J9000:SB$K$:SB$" "2210J100J:1::"RUN RETITLE.BAS"JF02360J 40000K8 1::(4);"RUN GEERO."WI:2:"DO YOU WANT TO RESET THE HONOR ROLL ":2:"AT THIS TIME? (Y/N) ";hI 9000:YN$K$IYN$"N"YN$"n"ĺ"";YN$;:100I "";YN$;:YN$"Y"YN$"y"2060IHX110IR:::HN$(X)"---"I\:::HS(X)0IfIpF1NJz:15:10:"H RESET ROUTINE !H:EH6:0,0278,0278,1600,1600,0H2:2:"THIS PROCEDURE WILL RESET THE HONOR":2:"ROLL."I:2:"RESETTING THE HONOR ROLL WILL ERASE":2:"ALL OF THE NAMES FROM THE LIST, AND":2:"WILL SET ALL SCORES TO Z" KEY. "WG23:1:"PRESS ";::"ESC";::" FOR THE HONOR ROLL FIXER MENU.";:1G22:2:">";:VP22:HP3:LS20:7000G F1GHN$(NU)IN$:500G,21:1:"MODIFICATION DISALLOWED...THERE IS NO NAME AT THAT POSITION.":G.2200G?HANGE AND PRESS ";::"RETURN";::". ";4F10000BFNU(NU$)ZFHN$(NU)"---"1580xF:6NU:7:""HN$(NU);:G18:1:"TYPE THE NEW NAME WHICH WILL APPEAR IN THE HONOR ROLL IN THE SAME POSITION. THEN, PRESS THE ";::"RETURN";::2200^E8YC3Ģ21:1:"MODIFICATION IS NOT ALLOWED...THERE IS NO NAME AT THAT POSITION.":E9YC2Ģ21:1:"DELETION IS DISALLOWED...THERE IS NO NAME AT THAT POSITION.":E:2200E3000)F18:1:"TYPE THE NUMBER OF THE NAME YOU WISH TO CH""HN$(NU);:TD22:1:"ARE YOU SURE YOU WANT TO DELETE THIS NAME? (Y/N) ";eD9000:YN$K$D YN$"N"YN$"n"ĺ"";YN$;:100D "";YN$;:YN$"Y"YN$"y"1032D F1DXNU10DHN$(X)HN$(X1)DHS(X)HS(X1)DXD$3000E.C500,1000,1500,2000,2300)C3000:2200/CRC DELETE NAME ROUTINE \C3000C18:1:"TYPE THE NUMBER OF THE NAME YOU WISH TO DELETE AND PRESS ";::"RETURN";::". ";C10000CNU(NU$)CHN$(NU)"---"1080 D:6NU:7: HONOR ROLL.":2:"3. MODIFY A NAME ON THE HONOR ROLL.":2:"4. RESET THE ENTIRE HONOR ROLL."B2:"5. "M$(F)" RETURN TO PROGRAM."B::2:"TYPE THE NUMBER OF YOUR CHOICE: ";B9000:YC$K$:YC$"1"YC$"5"150BYC$BYC(YC$)CYc MAIN MENU Ad:PAi6:0,0278,0278,1200,1200,0:0,20278,20vAn2:"";:3:"HONOR ROLL FIXER"Ax:2:"WITH THIS PROGRAM YOU CAN DO THE":2:"FOLLOWING:"A}::2:"1. SEE THE HONOR ROLL."bB2:"2. DELETE A NAME FROM THE!@ FILENAME: FIXER 5@ HN$(11),HS(11)k@ M$(0)"MAKE NO CHANGES,":M$(1)"SAVE CHANGES AND"@"READ HONOR.ROLL.DATA"@X110@(HN$(X):HS(X)@*READ HN$(X): READ HS(X)@2:"CLOSE"@<HN$(11)"---":HS(11)0@F16368,0A     '@ FILENAME: "RETITLE.BAS" 2@28160>@ù230,32`@â1:"BLOAD TITLE.PAC,A29184"~@É::0,0:1,114:768::1@ò FOR WA = 1 TO 3000: NEXT WA@â1:"RUN HOWDY" BC$""200/ "PLAY":1::"RUN WHO AM I?"H :1::"RUN FIXER" 1,1277,1277,1281,1281,1:6:4,4274,4274,1244,1244,4:1:7,7269,7269,1197,1197,7x5:3:"PRESS THE <R> KEY TO LEARN ABOUT"::3:"THE RULES OF THE GAME."W :::3:"PRESS THE <P> KEY TO PLAY THE "::3:"GAME OF ";(34);"LET'S EAT!";(34) ::::3:"YOUR CHOICE (R OR P) 3=%2 "; YC$:YC$"R"YC$"P"YC$""YC$"r"YC$"p"150 YC$"R"YC$"r"ĺ"RULES":1::"RUN RULES" YJ: GOTO 1150 FILENAME: REHOWDY >d16368,0Dsu5:1,1277,1277,1281,1281,1:6:4,4274,4274,1244,1244,4:1:7,7269,7269,1197,1197,7x5:3:"PRESS THE <R> KEY TO LEARN ABOUT"::3:"THE RULES OF THE GAME."W :  >>>,""<< <""<< <$"< """  "" 6***""""""<"< :< $""2,"""**666""< >>0,>>>"*:<">""""""""""">>><2"<"">""" "22>"6**""""&*2"""""""""*," "< ">"""""""""""**6""""""> >>> >00000>6c >>>?? ~~  >6c>> "2*&" " >>  ">> "8""> """"""<  "z # ij Ĵ Ϡ נ ŮӠҠҮ̮Ӡ Ϡ͠ɿ5 ı IJ !ɮ!ɮ" ϮŠ"Ҡ"٠"Ů ٠ Ӵà"ؠŮӠϮà Ƞ Ҡ ؠԠ   ӱà ŮàӲàӳàӴà ӵà ӠϠ ҮŮà Š ŮԠٲŠ Ҡ$$(13)ī90%BK$(13)NA$""ī90+B1BuB(4);"OPEN NAME.TXT":(4);"WRITE NAME.TXT":NA$:(4);"CLOSE"BNA$"REWRITE"ĺ(4);"RUN HOWDY2":170BB7B"You may not edit the data on this disk."BB"Would you like to"CRN. ";AZ1000&A_K$" "NA$""90LAbK$" "(NA$)0(NA$,1)" "ī90Ad((K$"A"K$"Z")K$" ")(NA$)20NA$NA$K$:K$;AnK$(8)(NA$)1NA$"":(8);" ";(8);(8);AxK$(8)(NA$)1NA$(NA$,(NA$)1):(8);" ";(8);(8); BK\ @ (3)@u@5:1,1277,1277,1281,1281,1:6:4,4274,4274,1254,1254,4:1:7,7271,7271,1227,1227,7@5:3@("HELLO!"@2::3@<"Welcome to ";(34);"LET'S EAT!";(34)@F::3AP"Please type your name and":3:"press RETUN WHO AM I?" 150# (#16368,0@ 2#K(16384):K128ī9010S <#YC$(K128): 874,4274,1254,1254,4:1:7,7271,7271,1227,1227,7x5:3:"PRESS THE <R> KEY TO LEARN ABOUT"::3:"THE RULES OF THE GAME."= :::3:"PRESS THE <P> KEY TO PLAY THE "::3:"GAME OF ";(34);"LET'S EAT!";(34)p ::::3:"YOUR CHOICE (R OR P)3 =%2 "; 9000:YC$"R"YC$"P"YC$"r"YC$"p"150 YC$"R"YC$"r"ĺ"RULES":1::"RUN RULES" YC$""200 "PLAY":1::"RUU 32256:115$ HOWDY2*su5:1,1277,1277,1281,1281,1:6:4,4274,4274,1254,1254,4:1:7,7271,7271,1227,1227,7x5:3:"PRESS THE <R> KEY TO LEARN ABOUT"::3:"THE RULES OF THE GAME."= :::3:"PRESS THE <P> KҍЍ c zz J FILENAME: "HELLO" " 4 "MAXFILES1"IF"RUN LOADFLEX"" There is no information yet":" for this clue.":3280L 4:1:" The information currently in the file":" for this clue states:"L 7:T2$;" ";U$;CL$(LE,CL);"...";L$;ST$(LE,CL);U$M 10:3:"Type the clue stem first, and press RETURN.":" Av"erase";::" while typing. You may RETURN";:"without typing to ";::"retain";::" the information currently in"K "the file for this clue segment.";:NC(LE)4ĺ" Press Ctrl D to ";::"delete"::"this clue altogether.";:19L CLNC(LE)Ģ4:1:(CL8CLNC(2)1)CL1:LE1>Jl OCCLĖ2:3OC:OL2Ģ12OCQJv OCCLĺ" ";[J 3090J :8(N$(F))2::"EDIT";::": ";N$(F);" - Level I";:LE2ĺ"I";J ", Clue ";CLJ 2:0,12279,12:0,156279,156uK 21:T2$;"Use <-- or delete to ";::I( K$(27)J90ı1I+ K$(13)ĺT1$:J91:3210OI0 K$(8)K$(11)CLCL1nI: K$(10)K$(21)CLCL1ID CL0LE1LE2:CLNC(2):NC(2)7CLNC(2)1IN CL0LE2LE1:CLNC(1):NC(1)7CLNC(1)1IX LE1(CL8CLNC(1)1)CL1:LE2Jb LE2EH J90ĺ"Press ESC to return to the ";::"Rewrite Menu";::".";qH 3:1:T2$;"Level I:":12:"Level II:";H 2:0,12279,12:0,83279,83:0,156279,156H K$(1)İ6200H 2:3CL:LE2Ģ12CLH "->";:OCCL:OLLEH& 9000:K$"*"ī3600G FAP::7000:CL1:LE1 G ZG 1:T1$;:10:" ";::"EDIT";::": ";N$(F);" "H 21:T2$;"Use the arrow keys to move the pointer to the clue you":"wish to ";::"edit or add";::", and press RETURN. Press * to ";::"stop";::" editing." 6200*F*9000:K$(27)Ģ1:T1$;:2000QF4K$(21)K$(10)FF1:FMXF1wF>K$(8)K$(11)FF1:F0FMXFHK$(8)K$(11)K$(21)K$(10)ī2030FR2090F EDIT FILEF P1:NP(MX16):NP16MXNPNP1:O$"EDIT":5000F 6000";::": ";N$(F);" "E21:T2$;"Use the arrow keys to page through ";::"other files";::".":"Press ESC to choose to see a ";::"specific file";::"."E 3:T2$;"Level I:":12:"Level II:";E2:0,12279,12:0,83279,83:0,156279,156FDIRECTORY5DP1:NP(MX16):NP16MXNPNP1:5000ED5050:5100[D9000:K$(27)ıwDK$" "PP1:PNPP1D K$" "ī1010D1020DP1:NP(MX16):NP16MXNPNP1:O$"SEE":5000D6000DFAP:D7000E1:T1$;:12::"SEE237,32237,1141C36,130273,130273,48238,48DC238,96270,96WC238,80270,80lC"238,112270,112C,9000:K$"1"K$"4"300C6K$::M$K$C@M$"4"S$"A":11000::(4);"RUN GETNAME"CEJ90CJ(M$)1000,2000,3000C100 D SEE t an individual file"BB14:2:"4. Return to beginning of game"rB16:7:"Press the number of your choice:";B5:0,50236,50:237,64270,64B2:0,32237,32B0,66238,66B0,82238,82B0,98238,98B0,114238,114C0,320,114: "4AB$:B$:T18:B$;:" ":TFA6:B$:6:B$dA3:T110114:0,T40,T:AT120130:35,T272,T:TA6:10:"Rewrite Menu"A8:2:"1. See a directory of files"A10:2:"2. See individual files"B12:2:"3. Edi" @32256@ MX40j@N$(MX):(4);"OPEN FNAMES":(4);"READ FNAMES":T1MX:N$(T):T:(4);"CLOSE"@CL$(2,7),ST$(2,7)@(U$(3):L$(12)@2T1$(20)"2":T2$(20)"1":@<S$"C":11000@d:T1$:U$@n:1:5AxB$"              K1281010=DK$(K128):(K$"a"K$"z")K$((K$)32)TDK$(127)K$(8)ZDK71,7271,1227,1227,7@5:3@("HELLO!"@2::3@<"Welcome to ";(34);"LET'S EAT!";(34)@F::3AP"Please type your name and":3:"press RETU1C" 1. work with the Honor Roll Fixer, or"OC" 2. enter a new name?"UCC"Press the number of your choice: ";C1000:K$"1"K$"2"ī260CK$CK$"1"ĺ(4);"RUN FIXER":280C"CC16368,0:"_";(8); DK(16384): ";:1Z\=TNC(1)ĺ" ";T;". ";U$;CL$(1,T);"...";L$;ST$(1,T);U$;\>TNC(1)ĺ" ";T;". ";U$;"***No clue appears here currently.";\?:T\B13::T17:1:" ";:17]GT"PP1:PNPP15[K$" "AAP:5200:" ";:6000f[K$(21)K$(10)ĭAA117AP1MXAPAP1[K$(8)K$(11)ĭAA10APAP1[OPAPAOP:5200:" ";[OPAP:6020[7 SHOW CLUES\84::T17:1:" :5205ZZAA9Ė1!ZdAA8Ė201ZnAA5ĢAA6FZxAA4AA9ĢAA7\ZAA8AA13ĢAA2mZAA12ĢAA1sZZo CHOOSE FILE Zp5050Zz5050:5100:AP(P1)161:OPAPZAAP:5200:"->";Z9000:K$(27)ġ:ZK$(13)ı[K$" ;YTYT14:T114Y#4:" ";`Y(4:T4(P1)16MXĺN$(T4(P1)16);|Y-23:" ";Y223:T12(P1)16MXĺN$(T12(P1)16);Y<T:YO CALCULATE ARROW POSITION FOR CHOOSE LISTYPAAAZUAA16AAAA161:T1$: X SHOW PAGE NUMBERJX2:15:"Page ";::P;::" of ";NP:eX SHOW DIRECTORY LISTSuXT14:T6X4:" ";X4:T(P1)16MXĺN$(T(P1)16);X23:" ";Y 23:T8(P1)16MXĺN$(T8(P1)16):20:T2$;"Use the arrow keys to point to the ";::"file";::" you want, and":"press RETURN."W"Press the space bar for the ";::"next page";::".":"Press ESC to return to the ";::"Rewrite Menu";::".";W2:0,18279,18:0,149279,149X(LE,T1)%VT:NC(LE)NC(LE)1:3030:V DIRECTORY PAGE@VVM$"1"Ė12:" Files Directory":20:T2$;"Press the space bar for the ";::"next page";::".":"Pesss ESC to return to the ";::"Rewrite Menu";::".":5030`W15::O$;::" a File""1"K$"2"3650UGK$;~ULK$"1"Ģ21:T1$;:T14:20T:1:" ";:T:K$(1):3040UV7100U`Us DELETE CLUEUtCLNC(LE)NC(LE)NC(LE)1:3030U~TCLNC(LE)1VCL$(LE,T)CL$(LE,T1):ST$(LE,T)ST$21:T2$;|T$"Check your work carefully for errors. Do you wish to":" 1. make ";::"changes/corrections";::", or"T." 2. ";::"save";::" your work and return to the Rewrite Menu?"T8"Press the number of your choice: ";UB9000:K$CL)(ST$(LE,CL),(ST$(LE,CL))1):3580oS(ST$(LE,CL),1)"."ST$(LE,CL)(ST$(LE,CL),(ST$(LE,CL))1):3585yS3030S1:T1$;:10::"CHECK": T21:T13:" ";:T:" ";:R K$(8)(ST$)1ST$(ST$,(ST$)1)LR K$(8)ĺ(8);" ";(8);:3460qR K$(13)ST$""CLNC(LE)ī3460R K$(13)ST$""ĺL$;ST$(LE,CL);U$R K$(13)ī3460R CLNC(LE)NC(LE)NC(LE)1R ST$""İ7200'S (ST$(LE,CL),1)" "ST$(LE,Q K$" "ST$""3480PQ K$" "K$(126)(ST$)27ĺK$;:ST$ST$K$:3460Q K$" "K$(126)(ST$)27Ģ16:T12::25:"0";(7);:TT1500:TTQ K$" "K$(126)(ST$)27ĝ:25:"0";:TT1500:TT:T:3460Q K$(8)(ST$)1ST$""(),(CL$(LE,CL))1):3445tPz 15:3:"Now type the clue itself, and press RETURN.":" Available characters:":ST$""P 16:25::27(ST$);::" "P 3(ST$):"_";(8);P 9000:K$(34)3480P K$(4)CLNC(LE)ī3030Q K$(4)NC(LE)4ī3700(8);" ";(8);:3290;O9 K$(13)CL$""CLNC(LE)ī3030PO> K$(13)ī3290uOH CL$""Ģ12:3:CL$(LE,CL):3440OR CL$(LE,CL)CL$Op (CL$(LE,CL),1)" "CL$(LE,CL)(CL$(LE,CL),(CL$(LE,CL))1):3440Pu (CL$(LE,CL),1)"."CL$(LE,CL)(CL$(LE,CL)19ĺK$;:CL$CL$K$:3290fN K$" "K$(126)(CL$)19Ģ11:T12::25:"0";(7);:TT1500:TTN K$" "K$(126)(CL$)19ĝ:25:"0";:TT1500:TT:T:3290N K$(8)(CL$)1CL$""N* K$(8)(CL$)1CL$(CL$,(CL$)1)O4 K$(8)ailable characters:":CL$""8 $Հ9Հ Հ"""㜀 *(Հ Հ y $$CdDd$$ c''$$F`@*Հ Հ0H@ HH@1xq*Հ Հ  *Հ Հ 66 Հ!πǀՀ Հ ￀ ÀՀ ϟՀՀ$$$ՀՀU I F@ @@GIDD U q cpc5U$$8$ $$6U AA  @IOII6Urara ""7U88PU3PՀDՀ:Հ6 Հ >>ÃՀ'ՀJ* ՀUBBB B@ IBOBLIGՀUsaAAc  " ""ՀU<0 $$$$ $$$$$#@II @h 6*  :*BBGd$ ` `$ 7*IHP*U+R? ) %$ lllՀ 鈉J""(*y y*C'G$$BG$g# $$CdD! >*Hp8 Hp8ppH#*  "666*GaF'! $'@dD$D`5*1I1HH@pIq@ F BĀĀ< '䄀ĄĀĀ$  ĄĀĀ $$ĀĀĄ>   " ަư8^_氠^LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ`XX:T2$(20)"1":@<S$"C":11000@d:T1$:U$@n:1:5AxB$" :9:"Please turn this disk over.")a+9Xa +"Then press the ";::"space bar";::"."fa*+16368,0a4+(16384)160ī11060a>+11000aH+ETONEBEEP.TB6  <  L=,0 J= <`^_:ʽe^^e__l^(LE,CL)ST$(LE,CL)(ST$,T,1)&`HT:4`(#16368,0P`2#K(16384):K1289010s`<#K$(K128):K$(127)K$(8)y`F#`*1::(4);"OPEN SIDE":(4);" READ SIDE":S2$:(4);"CLOSE":S$S2$ı`*1:T1$`+:2:8,50270,50270,1008,1008,50"a +9T:L_(4);"CLOSE":3_ INSERT CONTROL CHARSQ_ ST$(LE,CL)"":T1(ST$)_*(ST$,T,1)"A"(ST$,T,1)"Z"ST$(LE,CL)ST$(LE,CL)(19)(ST$,T,1):7240_4(ST$,T,1)"a"(ST$,T,1)"z"ST$(LE,CL)ST$(LE,CL)(((ST$,T,1))32):7240`>ST$CL$(L,T):T:T1NC(L):ST$(L,T):T:T14:NA$(L,T):T:LN^(4);"CLOSE":l^S$"C":11000:F$"W"(F)^1::(4);"OPEN ";F$:(4);"WRITE ";F$^L12_(NC(L)):T1NC(L):(34);CL$(L,T):T:T1NC(L):(34);ST$(L,T):T:T14:NA$(L,T):NC(2)ĺ" ";T;". ";U$;CL$(2,T);"...";L$;ST$(2,T);U$;z]HTNC(2)ĺ" ";T;". ";U$"***No clue appears here currently.";]I:T]L]W READ FILE]XF$"W"(F)]b1::(4);"OPEN ";F$:(4);"READ ";F$]lL12:^vC$:NC(L)(C$):T1NC(L):U ?߀U xLx ؘU @C@@  ; AM * ῀- <"< $$ *9DD H"2abrА󗗀U}} |x x >< (( 0""r  U~NN~Nqpy 8xxIq! Uwtp```-<0  Ua'G>f>!స"*"U p U D OIIU~z:zxq33RDgDgDD#$@8Uoh`|LLaaxD$$ " 8Ubb(HD@B@"`a)g!9JIU? Q* + ?H iU A+>>p U ̀ ` "",@II U@@@@D "<<@@@ U8iihhh`̰ $$CDD@"" NOCO@CO000*qqq H@N*DDL '' ```00*6wLL*`cc*‚¢```* ff*  f`*<0 g 'GOO㐐` N*<HH/!!ax @D1IAvt|@``U+H 'gffU"&2"U U ĀĀU р LLU ĄĀ 8|xc$$<<ᒒp  U(X<0@cGgDA"⒂g)!aJJ U2<U O ĄĀĀIIIOgrx<x8xx80 ĄĀĀDDDG'''G  H qxU Cc""HII #''U < `  DDd U "2  U -d  U ,U O Dd'''G  U -d  U ,U O ĄĀĀ$  ĄĀĀ $$ĀĀĄ>IGFDNU `p p @aa brcU $$$<8 8$U $ A @IIIIU $bpr q#CU '<0 $U (  U O dĀĀĄ> ""Հ: FՀABOBL OB BBBGIAU Հ AAAar`  q#CU """ՀǏ 88$$ $$$$$U ՀOI @@@@d q""D*@@"" **GH 2 "*xcc GaF8*xH08*\"܁BBB  2*a`* xH*qxq*"< c$dDpp*$& *p><$'*qqyd$*@H#''@AA*HH*@ @$*@ @""*$$$ $D**7BHHG@DaDOBBBIHG@!g!&$$OHK@HG@GHG* D< @DDDDdO$$ $H( *q1*BBBpp"* $ 1 IOHK  ĄĄH  r!Ͽ.U U IIFII><$$H<UcIA@`@ H 8U x #''8UP@U %#޿ĄĀ&"9II))2U$$U x<" @`U   U@CdCh UBOBLU p $&U yUHHDdU$$U"" Ucc<",DDU"><@@AAAAAAAAAAAAAAAAAAAAAAAUGH@H@LD#'HHL! CdDGH@` HLHU``UG""U hOUpUxi UHHh 0U     !Ā !ى " #5""D<$GHGՀ89@OHKU "">>U 999 @@pՀ< '## Ip 1HLQpp x (**<" $$8|x DdE qq*"'$Dqq* #$#Gd @NAN H0* CGg */Ϗ7€ *BBHO@@@""BBBFHH@@!!! $HL@G@HH* <"x8< @ @ U AI6II@"\$$ abq AUIAU@@@  . x xUd @UP@>> &@῿pxU H UPP""IIII2$$D x yU"<@  p @U px@ @@$$ BB ppUDdEx UGHGDDX $$# ">"UGCcU Հ77# UAAAAAA AAAAAAAAAAAA UHH@GOO4DD$@`HHHHKF`@$$HG@' 'H IHUU@H"GCcnH@asc ǟǟ2  ՀǷAAA Ͽ ǷǗ0$      Ԁ8II 8Հ Հ$Հ^DD88ϟ INBOBL@@D@IIG;;G̞Àc`saaCGg @ DDIHp!  $̃ϿΎ      @ @!!!$c"DDD#$#$'c$!d $CdDDAD]a}ppPx@pIq__   _|Ͽ@@`""$# F`@$g$wwwɏ0yqp! pHH0 !q  oo  ~ #$C$$@dC@DD$'c'' [[[8HH  0!q@IIHH@??? ՀNnn c`crR x ^3DDDd#@G BBBc$#Հ !1xq @1yq@HHAՀ釀 Հ9-={~ӏݝ̀A!bbspDDD$$ $88$$!!!π    DDIIIFRB IIIF H @@@@@@o{obrb asc@{o{88$<8 $$@@@]] I  @ @@II@@@!a!;:;̞͝cqa`ppBBacc???̞$$$$8D<m mه̞͝F@@ IBBB@DD@@I ;;;̞ asc}}Mo܃Ͽ̀͝88$$$$$ $xΆ̞@@@@c$!d DDD8рIIx y pp  @@@@@@@@@ @3!p @c@`ABb Ͽ4  Ͽـ c`X?x$  88̞ HIp! p D̎˛  98   '!!A  ||Ͽd$D$D$c" 'c#$$HBBHa]}} @IH_ϟ    `l.nl DaDC$@CGG! d$$dxwwxI! 8HIx` !!@@looo ϟ   =5= $$CdD#$@cDC$D$ {[['˛HH@@! @pIpHp8?fp`SSgcs`@@` s$DՀf..FOn &n.F/NI IOBl@`@N!N    Հ``  %Հ@@@@DՀ$$%%UՀ#   1 q 1"p 2"r2J2s q1I3IJr@qKs1J02J2cgwf%$!%$Հ! ϏՀ(<$$ ""2ՀJK"#h) )'Հ`p Հ))  ՀՀ ժ@@RRRR@FB^RRBՀժ% ՀՀ ժ J ՀА߀ ժ4H\RR\5$$$5$98@qJr2xr{R1!!s3H3i Հ ժ @` @ @` IIժ4+ժ)I` *Հր@ @` @@`@@@ @ @@@` R\ RR\LRLRB \L /)( ժ@@@@@@@@@@ժ @` `" $$ժπR""ժ%%$ժBժ PD@AЀժ !!"""""ժ` `@`p@@@ի뫀4 U4@@@ $$ՀՀ()) () U)! "@@@!!Հ URՀՀ` u``ժQyJK JBKJ*ՀFOnFIfF F=9Հ@@@@@XՀ$$%8U*Հ"   V" ""!"#JK II UJK@JJJIJKՀ4%99<9Հ2 p{aόՀ <1$``p"s"GcTgՀ2J2 2"r&..@@@G)AՀ`@N`@ @ @ @RR\LRLBRL^\ =888  i 1zr ЀАڀ ` @`RRRRRRR^ *BBRHHRR  <$ * $$  @JJI  * !!HH  *    @@ @ @`{`yc 1"qժՀ$%988$wgavժՀs19{a9IKժՀTddC+UժՀG) *UՀ րՀ ` ` @` * ` @` đđđđđđđđđ `đđđđđđđđ0``@@`ի뫀ՁI IiIFNnժ`@@`@`@``@@` @ժՀ OBl=0$%ժՀ   @ #2J2k 3ys1rrIJՁ Ϗ'cdpD#@F@@Ѐ ̼Հ N!NO"L"o",đđđđđđđđ  .ԐU8U^*$$'cc@!"!A@c`cBCc`cbb*aB@`*IH$ <0<8$Հ $$*88\\*B ՀIIIIN  Հ @FNN@*p_UHH@БՕЇUUՕՅЀ EUDDDՕЀ ЀՀŅU1yqԀрU@qp 1yqUU  UU G!FUp08 ߿U  UHICBG @`DaDC$!DU` 88UHHH ` 8I IIx`yU1xp__U$$ d$$ U \XXU@@@@ @HHH $@ U!g!&U0yqp L *UAAAA!AAAAA!A!a!A!A!a!A!A!A!U` UHIHI h @I8IIHYiHU0xqp00U  U <;?UII#'' $'$@`@$$CG DdD€  $$  $$@@  '  II4S"ILՀAAAOIA I '?@@Հ@`@`" HIAabՀ $$Հ 1sՀ I:@`@ Հaas0yq$ Հٻ Հ  $ $$<8$$$ $__BB ՀFIIF  I @HI@@@ [[Հq2Rap bb 2{y`D$$DՀ$ $88 $$$  {[Օ ԕԀ Մ $ĄŅ ԀŕĀ I Հр /ЀĄ:ŁTU$d'$p r"Ab@`@bBb`ra BA@ 8II$1 !!BGs@ y` ĄĀFNN@bB CHp8ՁхՕŅЄĄĀĀx```pHx I9 HIp H___$#$$#   [@@@ GHHGCGg @`!!!! aacI pPp09 I # 8 q @A!!aAAA!!a!!!!!!!!A!A!!!a! ` arbyI0yqpq p090yqIIIyI HpPpp     {\FId D%&D@@@#$C ""$#" ` __     A Iπqxp@@<0G#CՀIHD <0@QՀ`  `faaa`am`ՀqpBOBL@Ā IHD HII@ @h Հ`````c```f`""abpd >< !Ѐ ̼Հ <0BBBx8<đđđđđđđđ  2$ $@GH@$$H@H8D8@ @"HHKd$braQ  Հ@@ A I8|x caժժժժժժժժՎI^``3o1ժժժժժժժժՎJ@$"R`תժբĈȁժժժժժժժժՎ`@1ժժժժժժժժՎ JH$@H`U*U@KR` 2R8Ni `ժժժժժժժժՎ`B4 )`תТĈ@ "I@%՟ժժժժժժժժՎ R`@kLcO`ժժժժժժժժՎ JR !`תժբĈ@$B$ IϏ̿ת9i"$@`!`V*U*U*U*U*uתժբĈЂ@3>3333300>333>3633>03333 00003333 ?[[[[333333333>33>003063333>333 mmmm~3 3333>0? ? 8( ?3??33?33??33??333????????;3?333??33?? ??3;;3??cwkcccc337?;33?333??3??##+.?3?;3?0??? 33333?33333 ccckkwc33 33333 ?? ??8p` ? 66$6???? ??0? '<:9 *.  88888*>* ??  >>`p833333<630000?38???0>0?8<63?00??0?33??0 ?33??3>0> p88p>>>>8?3@@@``@`pppp``xx||||xx``|~~~???~~~|`???@  ( $@h`+'bH"(@ "   U*U**U*Uժժժ3fL̙L3f̙"DĈD"Ĉ"DĈ"Dɤ$I$wn];ݻ];wnݻn];wݻ;wn]@@@``@                ((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? =/I1L"QȥQ L`                         . .8eeNj ӎ L`   i H 8 ih i 8 ` @ ӎe   &LJA ) =/I1ȥ i) 8Ȱ8  i ` 0`  1`E))/%` WȹW`)0  5`)0 J.` @ ӎ  L ӎ  5 Q . h% (0  Q (LȄ (  h (Lޏe""" " >>> <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>0,>>>"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>"X>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "!!!!v@@PPPPÿ??,  , hhPQPQI X ȱȱQP2 $ ) \$$ ڢ Jȱȱб \L8Єτ ,0 \ ,0 \ \۩ Л ,T,RL \  g b j 8 F f 2 , ) +j$0pe e *`"H B(*)+hi# H B(*0 U% m()) )`$(̆`"%$$%H B Uhi# % LLޅHHL ʊ H hL̈́$ L@$@ L"` hi#:H $0 !p (*$000+i+i̥#$ $02F ~`L~"%$$%H ~$0@hi#`$%H$,  2 eB*,IL-B*+i+Ȅh $0 p! ,0*I*$0!(0 +i+$0pF!`%JJHh&&FJ LDs &J*, MDMDL`-B DE**, MEMEL-C EE*b +i+L $$!P$ $8$0 Fש$%%#% $L p$ L"$L@L$$P @$`"H *+)iL$0@ W$$P `$0 LX``" cN`@`,P@`8 & & &m)m $$20$0%DEBCp )! 2 FBI-DTCI-E$(b$0IPU$%%# B%b$ Lh$E$$0#F $ "$0!$$"%!%L" $$"%% "L@`,,(( !ׅ& e) ((8!@$8 - )*e)@ -  $$Fש($0pJ!$m$L@L"$  ^R @0%%#% $0 $P Lp$0 p LL L `@,T@,U` z$LS $ @ UL"H _h$ $0 jLB$0! $b$0F $ "$P @$ %#%L HLG Hm$ 8i(m Hih$pi}&4eh` ` !` !`)  LM  HH`1E em K@  8100$AX%0((HC%2)((HC%2)))ZA(0X%,154170X%,154170X%,1740X%,1740X%,154bA220pAd16368,0Af(4);"RUN GETNAME" YAu5:1,1277,1277,1281,1281,1:6:4,4274,4274,1244,1244,4:1:7,7269,7269,1197,1197,7CBx5:3:" @32256@: GOTO 1158@ FILENAME: HOWDY v@ TEXT : HOME : POKE 0,0: POKE 1,114: CALL 768: & : VTAB 1@ 0:Y150186:0,Y170,Y:@21:2:"PRESS ANY KEY TO BEGIN."@16368,0@HC%(1)8:HC%(HC%0)(HC%4)A(16384)12"" Ȅɀ)0;()JJ & & f)гГЏ`"iahi ȱ ~  ~i$0,ɛо``   ` i$0,ɛо``    $0'0 $ ʚhiahi ȱ ~  ~i$0,ɛо``     ! ! @$0'0 $ ʚh0 $ ʚhiahi ȱ ~  ~i$0,ɛо``           $0'0 $ ʚhiahi ȱ ~  ~--0./` --0./` ,,0./`,,0./`øz{stmmggaa[\VWQRMMHIDE@A==9:663300-.++()&&$%"# !F߁++++++++++++$0'~u ʚL v h i0 6 H iZ ihC 07Soi i L#ة8)NJ@HH$0 yAȹAil&ff` pA-ȹpA,.8/-./`" " """C