' +JJJJ ?\>m0M='+l> /+l  P˵B̵CõDĵEµµDB ĵ ⵭µ ۰ µ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ˍ`X1:T2$? 2TI40:HN$(10),HS(10),C$(7,2),CL$(7, BAR";::".":*+16368,06:4+(16384)160ī11060A:>+11000G:H+M:\+a:.K$"":16368,0:.K(16384):K128ī12010:.K$(K128):K$"a"K$"z"K$((K$)32):.:PæETONEBEEP.TB6  <  L=,0 J= <21,X2:A22,Y1:A23,Y2:A26:8,X3:9,X409.'{9*1::(4);"OPEN SIDE":(4);" READ SIDE":S2$:(4);"CLOSE":S$S2$ı9+:2:8,50270,50270,1008,1008,509+T2$9 +9:9:"PLEASE TURN THIS DISK OVER.":9 : +9:"THEN PRESS THE ";::"SPACE110:HN$(K):HS(K)::"CLOSE":6022_8'A136096:A236608:A334048:X119:X239:Y1121:Y2191s8'X3(8):X4(9)8'A241,(A1256):A240,A1((A1256)256)192:A246,(A1256):A245,A1(A1256)256*9$'9,(A3256):8,A3((A3256)256):A2,X1:AHH$7#Z1107#ZXĞb7#8Z:8:HN$(Z);:29((HS(Z)1000))((HS(Z)100))(HS(Z)10):HS(Z)j7#:7#21:1:"PLEASE PRESS THE ";::"SPACE BAR";::"."7#16368,07#(16384)16091767#20:1:""&8#1::"WRITE HONOR.ROLL.DATA":K)6#Y96#HN$(X)" ":HS(X)YS:8000g6#20:1:"YOU HAVE MADE THE HONOR ROLL!"6#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):T7#HN$(X)29:"-----"t5^XX110:8XX:5(XX10):XX". "HN$(XX);:29((HS(XX)1000))((HS(XX)100))((HS(XX)10)):HS(XX):z55(# HONOR ROLL 52#S$"A":110005Z#X1105d#YSHS(X)90805n#X:91205x#Y9X16#HN$(Y1)HN$(Y):HS(Y1)HS(Y4JK13:MS(49200)::B4? DISPLAY THE HONOR ROLL 4@:1:1,1279,1279,1471,1471,1:1,20279,20:1,36279,364J2:"";:3:"THE "(34)"LET'S EAT!"(34):4:5:"HONOR ROLL"4T6:8:"NAME";:29:"SCORE" 5Y7:8:"----";:"SOUND"T2$" ON "::8:"DURING THE GAME? (Y/N) ";q312000:SO$K$:SO$"Y"SO$"N"SO$"y"SO$"n"73603SO$"Y"SO$"y"SO$"Y":73803SO$"N":"N":553"Y"31::"BLOAD WHO.MODULE,A32256"3553 MAKE A CLICK YOU WANT? (1 OR 2) ";>212000:LE$K$:LE$"1"LE$"2"7330Q2LE$:LE(LE$)2VE11(LE2)7:JJVEVE3LE(LE1)3:JJ:2:38):2SY(LE2)70:5:43,100SY231,100SY231,130SY43,130SY43,100SY535(LE1)9:8:"DO YOU WANT THE "T3$;THE CLUES ARE HARDER.":2:"- YOU WILL HAVE TO PICK "T3$"ALL"T2$" OF THE"14:"CLUES BEFORE YOU CAN SEE THE ":4:"PICTURE CLUE.":2:"- EACH PICTURE WILL COST 15 POINTS.":2:"- CORRECT ANSWERS WILL EARN 30 POINTS."2::2:"WHICH LEVEL DO:"- THE CLUES ARE EASIER.":2:"- YOU WILL HAVE TO PICK "T3$"FOUR"T2$" CLUES"04:"BEFORE YOU CAN SEE THE PICTURE CLUE.":2:"- EACH PICTURE WILL COST 10 POINTS.":2:"- CORRECT ANSWERS WILL EARN 20 POINTS."L1:12:"LEVEL 2 - HARD":2:"- / CALCULATE THE VALUE OF PICTURE A/ PP10(LE2)5G/>g/ GET GAME LEVEL /:6:0,0278,0278,1460,1460,0:0,20278,20:0,76278,76/AL0/2:2:"THERE ARE TWO LEVELS TO THE GAME:":R012:"LEVEL 1 - EASY":2N$)1):7100 .(IN$)LS70209.AH$" "IN$""7020L.AH$" "ī7090l.(AH$"A"AH$"Z")ī7020.AH$"a"AH$((AH$)32).IN$IN$AH$.VP:HP:""IN$" ";:7020.IN$" "7000.(IN$,1)" "IN$(IN$,(IN$)1):7110..5:"-W SIMULATE INPUT 5-XIN$"":VP:HP\-l12000:AH$K$:AH$(127)AH$(8)x-(IN$)0AH$(8)7020-AH$" "(IN$)17020-(IN$)1AH$(8)IN$"":7100-AH$" "7120-AH$" "(IN$)07020 .(AH$)8IN$(IN$,(ICF(0)1)):3:"FOR A CLUE."/,o6:"-- OR --"5,p?,3100,T2$:13:3:"PRESS THE <P>":3:"KEY FOR A":3:"PICTURE CLUE.":6:"-- OR --":-T2$:34,12:252,0:253,19::10(DEBUG1)245:FL110:11:20::"":FL:252,0:253,56:34,0:25PP" PT"(0(PP1)83)".)"$+2PB:F+c SCREEN DIRECTIONS +d IF (YS < PP) AND (CC = NC( LE)) THEN FF = FF + 1: POP : GOTO 1150 +iCCNC(LE)6550,nT2$:13:3:"PRESS A":3:"NUMBER";AD$((LE1)(CC4)(*`""MS$""%*b(16384)1606290/*dV:H>*f""MS$""H*j6215U*BL$"":u* FLASH THE

*CGCG1:CG1ı* 7200:PB110*NC(LE)4:T2$;:2:" ";T1$;:9:18)+(NC(LE)4:T2$;:2:"<P>";T1$;:9:"PICTURE (")"";YN$; )S$"A":11000?):1::"RUN RETITLE.BAS"E)f)7 FLASH A MESSAGE )812000:K$" "ī6200)B)D(16384)1606290)GV:H)LBL$)M(16384)1606290)NV:H)OBL$)Q(16384)1606290)VV: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":6100)YN$"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 $ J" :"";YN$;:," YN$"N"YN$"n"6000H" YN$"Y"YN$"y"2490" CG0:CC0:FF0:II0:J09:CF(J)0:::1:::570" REVIEW CHOICES " LE21170"# 3100"2 13:2:"I AM ONE OF":2:"THESE:"#F I811:8I:2:"<";(57I)!j Z14:CH$(Z,Y):Z,Y(!~ "CLOSE"V! 1::(4);"BLOAD "CH$(1,LE)".SHW,A34048"v! 2:23:" "! :21:T2$;:2:"DO YOU WANT TO ":2:"PLAY AGAIN? (Y/N) ";(8);:" 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}  14:5:20(LE2)10" POINTS.":PV20(LE2)10:3000 ) 1:40:T1$;""T2$; . ALTI5000 B 1::"READ W"W(AL1):!V Y12:NC(Y):X1NC(Y):CL$(X,Y)::X1NC(Y):C$(X,Y):X:I1314:I:2:18):>13:"";:2:"CORRECT"SO$"Y"ĺ"OPEN SOUND3":"READ SOUND3":T111:S1$,S2$:S1(T)(S1$):S2(T)(S2$):T:"CLOSE SOUND3":T111:IR"TONE",S1(T),S2(T):T CF(0)0İ10000 1:40:T1$;""T2$;C  50:SOUND2":"READ SOUND2":T111:S1$,S2$:S1(T)(S1$):S2(T)(S2$):T:"CLOSE SOUND2":T111:IR"TONE",S1(T),S2(T):T3000:40001:T1$:V23((LE2)8):H5:V:H:"PRESS THE ";::"SPACE BAR";::".";:62003100:1150LE1ĺ""CA$""z13:2:"INCORRECT...YOU ":2:" LOSE ";R{LE1PV(YS3):PV0PV1:2176x|LE2PV(YS2):PV0PV1:2176~LE2ĺPV" POINT"(((YS2)1)83)".":2180LE1ĺPV" POINT"(((YS3)1)83)".":2180"1 POINT."wSO$"Y"ĺ"OPEN :LS14:16368,0:7000. IN$CH$(1,LE)22708"2170v<:2:"TYPE THE LETTER":2:"BESIDE MY NAME."T3$"% "T2$;>12000:NG$K$:NG$"a"NG$"d"NG$((NG$)32)HNG$"A"NG$"D"2110RNG$CA$2270f""NG$"":I1314:I:2:18):,OUR CHOICES:"!I811:8I:2@LE1:"<";(57I);"> ";\LE2ĺT3$;" =% ";T2$;yCH$(SC(I7),LE)"";::LE1210821:T1$;:3:"TYPE MY NAME AND":3:"THEN PRESS ";::"RETURN";::"."23:3:T3$;:3:"%";T2$;:VP23:HP4 "::1150b100004q1:40:T1$;""T2$;@vCF(0)1`4NC(LE):T2$;:2:" ";:~FFFF1:PVPP:3000:4000NC(LE)4:T2$;:2:" ";T1$;:9:18)1150 GUESS ROUTINE 3100 13:2:"HERE ARE YOUR":2:"F16368,07<CF(0)1(LE1CC4)(LE2CCNC(LE))1150?PPYSĞ:17:22:"YOU DO NOT HAVE"::22:"ENOUGH POINTS TO"::22:"SEE THE PICTURE."BPPYSāWA13000:WADPPYSĞ:17:22:" "::22:" "::22:" :135,1135,10063YC:9::""CL$(CO(YC),LE);"";L5:135,1135,100j29:(12);C$(CO(YC),LE);CF(YC)1:FFFF1PV1:3000:400016368,0:3YC:T2$;:2:" ";:T2$:20:32:CCCC1:1150& PICTURE ROUTINE :(LE)1290 CF(((YC)))12903"23:17:(YC)?61:T1$VJCF(((YC)))1290q^ EXPOSE CLUE rYC((YC)):3YC:9::""CL$(CO(YC),LE)"";:50((DEBUG1)200):(CL$(CO(YC),LE))9:Y119(CL$(CO(YC),LE)):".";::25556)322 EVALUATE KEYPRESS AND BRANCH BYC491290N23:17YC80ĺ"P";:16368,0:1850: PICTUREYC71ĺ"G";:16368,0:2030: GO TO 'GUESS'YC76ĺ"L";:16367,0:2590: GO TO 'REVIEW' YC48NC9HS,108139HS,92E<9HS,91129HS,91129HS,1689HS,1689HS,91nFHC(1):HC%(1)8:HC%0HC%41350ZHC%:HS((HC%2)(HC%2))n135HS,90277HS,90277HS,110135HS,110135HS,90x23:17:""(95);YC((16384)128):YCYC(YC9OUR CHOICE "T3$"=% "T2$" ";.SP0İ66007SP1g GET USER'S CHOICE AND FLASH BOX u16368,023:17:" "; HC%(1)8:HC%0HC%4129023:17:" ";HC%:HS((HC%2)(HC%2))2139HS,92271HS,92271HS,10813ECTIONS ~FFNC(LE)12030G(LE1CC4)(LE2CCNC(LE))İ6400w IF SP = 0 THEN FOR K = 1 TO 2000: NEXT K6500LE1Ė3:"PRESS <L> TO SEE":3:"THE LIST.":6:"-- OR --"3:"PRESS <G> ":3:"TO GUESS."23:T2$;:2:"YPICTURE "@15:T3$;:23:"$ $";:34:"$ $"T2$:I255XZ1NC(LE):3XZ:"2";:2:"<"XZ">1";:9:""CL$(CO(XZ),LE)"":B SCORE AREA V13:T2$;:22:"YOUR SCORE"T3$" % ";YS;:1:T1$ j SCREEN DIR3:20:::"":252,0:253,56:34,0:3:X134140:X,112X,191:X139,112X139,191:lf3:135,191279,191z4:135,120279,1202:"1";:3:"KEYS:"T2$;:7:"TYPE OF CLUE:"T1$2:T2$;"";:11:"THE CLUES";T1$;15:28::" DRAW GAMEBOARD :K  IF SP = 0 THEN SPEED= 10*5:1,1277,1277,1911,1911,1:135,1135,191:>1,21277,21:1,19277,19H5:35,135,32NC(LE)8J1,32NC(LE)8135,32NC(LE)8TRT2$:34,14:252,20:253,20::10,I:ISO$"Y"ĺ"OPEN SOUND1":"READ SOUND1":T121:S1$,S2$:S1(T)(S1$):S2(T)(S2$):T:"CLOSE SOUND1":T121:IR"TONE",S1(T),S2(T):T24:T1$;:12:"PLEASE PRESS THE ";::"SPACE BAR";::".";12000:SB$K$:SB$" "750 40,16:230,8220,16::230,127220,1373LE2700Z5:T2$;:10:"I AM ONE OF THESE:I8142:I:12:IIII1:T3$"=% ";T2$;CH$(SC(II),LE)""::T2$7157:T2$;:10:"HERE IS YOUR NEXT"::10:"MYSTERY FOOD."5:I154157:0,I27 SCRAMBLE THE CLUE ORDER = PX1NC(LE):DU(X)0:M RX1NC(LE)r SCO%(1)NC(LE)1:DU(CO%)1595 UCO(X)CO%:DU(CO%)1 W a OPENING SCREEN b:6:40,16220,16220,13640,13640,16%y50,8230,8:230,8230,128:50,8LE)".SHW,A34048"& HS(1)0R0570, $W & START OF EXTREME OUTER LOOP c :ALAL1 ? SCRAMBLE THE 4 CHOICES BX14:DU(X)0: DX14 FR%(1)41:DU(R%)1582 HSC(X)R%:DU(R%)1 ISC(X)1CA$(X64) L# N& W(X)((1)TI1):DU(W(X))11308 DU(W(X))1::D 1:T2$c J GET INITIAL DATA z r1:"READ W"W(1): Y12:NC(Y):X1NC(Y):CL$(X,Y)::X1NC(Y):C$(X,Y):X Z14:CH$(Z,Y):Z,Y "CLOSE" 1::(4);"BLOAD "CH$(1,(X):HS(X)::"CLOSE"- ;HS(1)0R0İ8000 <16368,0:24:T1$;:7:"TO BEGIN THE GAME, PRESS THE ";::"SPACE BAR";::"."; >12000:SB$K$:SB$" "62 DS$"B":11000 F SCRAMBLE THE TEXTFILE ORDER ZX1TI:DU(X)0: nX1TI2),CH$(4,2),CF(9),SC(4),AD$(1),NC(2),DU(TI),W(TI),S1(21),S2(21)l 3AD$(0)" ":AD$(1)" OR LETTER": 5(4);"OPEN NAME.TXT":(4);"READ NAME.TXT":HH$:(4);"CLOSE" 67300 7YS20(LE2)10 81::"READ HONOR.ROLL.DATA" 9X110:HN$3IR(175)(176)256203)32256550000t1::(4);"BLOAD LOOKLO,A36096":(4);"BLOAD SHOW,A36608"z FILENAME: WHO AM I? -T1$"1":T2$"2":T3$"3".MM3225601:T2$? 2TI40: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):Pz # Ĵ Ϡ נ !Ҡ"Ү̮"Ӡ Ϡ͠ɿ5 ı IJ 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"Would you like to"BB" 1. work with the Honor Roll Fixer, or"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"1:" There is no information yet":" for this clue.":3280 4:1:" The information currently in the file":" for this clue states:" 7:T2$;" ";U$;CL$(LE,CL);"...";L$;ST$(LE,CL);U$ 10:3:"Type the clue stem first, and press RETURN.":""erase";::" while typing. You may RETURN";:"without typing to ";::"retain";::" the information currently in" "the file for this clue segment.";:NC(LE)4ĺ" Press CONTROL D to "::"delete";::" this clue altogether.";:1= CLNC(LE)Ģ4:(CL8CLNC(2)1)CL1:LE1>l OCCLĖ2:3OC:OL2Ģ12OCQv OCCLĺ" ";[ 3090 :8(N$(F))2::"EDIT";::": ";N$(F);" - Level I";:LE2ĺ"I"; ", Clue ";CL 2:0,12279,12:0,156279,156u 21:T2$;"Use <-- or delete to ";::( K$(27)J90ı1+ K$(13)ĺT1$:J91:3210O0 K$(8)K$(11)CLCL1n: K$(10)K$(21)CLCL1D CL0LE1LE2:CLNC(2):NC(2)7CLNC(2)1N CL0LE2LE1:CLNC(1):NC(1)7CLNC(1)1X LE1(CL8CLNC(1)1)CL1:LE2b LE2E J90ĺ"Press ESC to return to the ";::"Rewrite Menu";::".";q 3:1:T2$;"Level I:":12:"Level II:"; 2:0,12279,12:0,83279,83:0,156279,156 K$(1)İ6200 2:3CL:LE2Ģ12CL "->";:OCCL:OLLE& 9000:K$"*"ī3600 FAP::7000:CL1:LE1  Z 1:T1$;:10:" ";::"EDIT";::": ";N$(F);" " 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**9000:K$(27)Ģ1:T1$;:2000Q4K$(21)K$(10)FF1:FMXF1w>K$(8)K$(11)FF1:F0FMXHK$(8)K$(11)K$(21)K$(10)ī2030R2090 EDIT FILE P1:NP(MX16):NP16MXNPNP1:O$"EDIT":5000 6000";::": ";N$(F);" " 21:T2$;"Use the arrow keys to page through ";::"other files";::".":"Press ESC to choose to see a ";::"specific file";::"." 3:T2$;"Level I:":12:"Level II:"; 2:0,12279,12:0,83279,83:0,156279,156DIRECTORY5 P1:NP(MX16):NP16MXNPNP1:5000E 5050:5100[ 9000:K$(27)ıw K$" "PP1:PNPP1 K$" "ī1010 1020 P1:NP(MX16):NP16MXNPNP1:O$"SEE":5000 6000 FAP: 7000 1:T1$;:12::"SEE237,32237,1141 36,130273,130273,48238,48D 238,96270,96W 238,80270,80l "238,112270,112 ,9000:K$"1"K$"4"300 6K$::M$K$ @M$"4"S$"A":11000::(4);"RUN GETNAME" EJ90 J(M$)1000,2000,3000 100  SEE t an individual file"B 14:2:"4. Return to beginning of game"r 16:7:"Press the number of your choice:"; 5:0,50236,50:237,64270,64 2:0,32237,32 0,66238,66 0,82238,82 0,98238,98 0,114238,114 0,320,114: "4 B$:B$:T18:B$;:" ":TF 6:B$:6:B$d 3:T110114:0,T40,T: T120130:35,T272,T:T 6:10:"Rewrite Menu" 8:2:"1. See a directory of files" 10:2:"2. See individual files" 12:2:"3. Edi" 32256 MX40jN$(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$"B":11000d:T1$:U$n:1:5 xB$"              (K$"a"K$"z")K$((K$)32)8DK$(127)K$(8)>DK274,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 RETU" 2. work with the Files?"#CMC"Press the number of your choice: ";mC1000:K$"1"K$"2"ī260uCK$CK$"1"ĺ(4);"RUN FIXER":280C"(4);"RUN EDITOR":290CC16368,0:"_";(8);CK(16384):K1281010!DK$(K128): ";:1^$=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:" ";:1;%$" "PP1:PNPP19#K$" "AAP:5200:" ";:6000j#K$(21)K$(10)ĭAA117AP1MXAPAP1#K$(8)K$(11)ĭAA10APAP1#OPAPAOP:5200:" ";#OPAP:6020#7 SHOW CLUES $84::T17:1:" A16:5205"ZAA9Ė1%"dAA8Ė205"nAA5ĢAA6J"xAA4AA9ĢAA7`"AA8AA13ĢAA2q"AA12ĢAA1w""o CHOOSE FILE "p5050"z5050:5100:AP(P1)161:OPAP"AAP:5200:"->";"9000:K$(27)ġ:"K$(13)ı#K16); !T!T14:T118!#4:" ";d!(4:T4(P1)16MXĺN$(T4(P1)16);!-23:" ";!223:T12(P1)16MXĺN$(T12(P1)16);!<T:!O CALCULATE ARROW POSITION FOR CHOOSE LIST!PAAA "UAA16AAA 1:T1$:$  SHOW PAGE NUMBERN 2:15:"Page ";::P;::" of ";NP:i  SHOW DIRECTORY LISTSy T14:T6 4:" "; 4:T(P1)16MXĺN$(T(P1)16); 23:" ";! 23:T8(P1)16MXĺN$(T8(P1)ile":20:T2$;"Use the arrow keys to point to the ";::"file";::" you want, and":"press RETURN.""Press the space bar for the ";::"next page";::".":"Press ESC to return to the ";::"Rewrite Menu";::".";2:0,18279,18:0,149279,149 ST$(LE,T1))T:NC(LE)NC(LE)1:3030> DIRECTORY PAGEDM$"1"Ė12:" Files Directory":20:T2$;"Press the space bar for the ";::"next page";::".":"Press ESC to return to the ";::"Rewrite Menu";::".":5030d15::O$;::" a F:K$"1"K$"2"3650GK$;LK$"1"Ģ21:T1$;:T14:20T:1:" ";:T:K$(1):3040V7100`s DELETE CLUEtCLNC(LE)NC(LE)NC(LE)1:3030~TCLNC(LE)1 CL$(LE,T)CL$(LE,T1):ST$(LE,T) ";:21:T2$;$"Check your work carefully for errors. Do you wish to":" 1. make ";::"changes/corrections";::", or"." 2. ";::"save";::" your work and return to the Rewrite Menu?"8"Press the number of your choice: ";B9000(LE,CL)(ST$(LE,CL),(ST$(LE,CL))1):3580s(ST$(LE,CL),1)"."ST$(LE,CL)(ST$(LE,CL),(ST$(LE,CL))1):3585}30301:T1$;:10::"CHECK": 21:T13:" ";:T:" "", K$(8)(ST$)1ST$(ST$,(ST$)1)P K$(8)ĺ(8);" ";(8);:3460u K$(13)ST$""CLNC(LE)ī3460 K$(13)ST$""ĺL$;ST$(LE,CL);U$ K$(13)ī3460 CLNC(LE)NC(LE)NC(LE)1 ST$""İ7200+ (ST$(LE,CL),1)" "ST$3700 K$" "ST$""3480T K$" "K$(126)(ST$)27ĺK$;:ST$ST$K$:3460 K$" "K$(126)(ST$)27Ģ16:T12::25:"0";(7);:TT1500:TT K$" "K$(126)(ST$)27ĝ:25:"0";:TT1500:TT:T:3460 K$(8)(ST$)1ST$E,CL),(CL$(LE,CL))1):3445xz 15:3:"Now type the clue itself, and press RETURN.":" Available characters:":ST$"" 16:25::27(ST$);::" " 3(ST$):"_";(8); 9000:K$(34)3480 K$(4)CLNC(LE)ī3030 K$(4)NC(LE)4ī(8)ĺ(8);" ";(8);:3290?9 K$(13)CL$""CLNC(LE)ī3030T> K$(13)ī3290yH CL$""Ģ12:3:CL$(LE,CL):3440R CL$(LE,CL)CL$p (CL$(LE,CL),1)" "CL$(LE,CL)(CL$(LE,CL),(CL$(LE,CL))1):3440u (CL$(LE,CL),1)"."CL$(LE,CL)(CL$(L(CL$)19ĺK$;:CL$CL$K$:3290j K$" "K$(126)(CL$)19Ģ11:T12::25:"0";(7);:TT1500:TT K$" "K$(126)(CL$)19ĝ:25:"0";:TT1500:TT:T:3290 K$(8)(CL$)1CL$""* K$(8)(CL$)1CL$(CL$,(CL$)1)4 K$ Available characters:":CL$""@ 11:25::19(CL$);::" "Y 3(CL$):"_";(8);r 9000:K$(34)3310 K$(4)CLNC(LE)3030 K$(4)NC(LE)4ī3700 K$" "CL$""3310 K$"a"K$"z"K$((K$)32) K$" "K$(126)  ϳǀϟ llՀ  Հట!!A!A #$D@DDC$*Հ Հ$II9HI@II@pIp p19x`*Հ Հ,*Հ Հ#"#$# CDD@GG*Հ Հ$HIp *Հ Հ(  *Հ Հ!+Հ >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ĀĀ< '䄀ĄĀĀ$  ĄĀĀ $$ĀĀĄ>   <  L=,0 J= <`^_:ʽe^^e__l^" ަư8^_氠^LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ`X +S$"A"Ė9:9:"Please turn this disk over."u)+S$"B"Ė9:9:"Insert Disk 2, Side B,":9:"Program plus Editor."|)+9) +"Then press the ";::"space bar";::".")*+16368,0)4+(16384)160ī11060)>+11000)H+ETONEBEEP.TB6  ST$(LE,CL)ST$(LE,CL)(ST$,T,1)*(HT:8((#16368,0T(2#K(16384):K1289010w(<#K$(K128):K$(127)K$(8)}(F#(*1::(4);"OPEN SIDE":(4);" READ SIDE":S2$:(4);"CLOSE":S$S2$ı(*1:T1$(+:2:8,50270,50270,1008,1008,50.)T):T:L'(4);"CLOSE":7' INSERT CONTROL CHARSU' 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!(>L):CL$(L,T):T:T1NC(L):ST$(L,T):T:T14:NA$(L,T):T:LR&(4);"CLOSE":p&S$"B":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,GTNC(2)ĺ" ";T;". ";U$;CL$(2,T);"...";L$;ST$(2,T);U$;~%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(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     D PICDRAWH,A36096". ù103,1:104,64:16384,0C â1:"RUN HOWDY" ,0_Aâ1:"RUN HOWDY" RE$ FILENAME: "TITLE.BAS" /28160gPâ1:"BLOAD GMOVER,A$300":"BLOAD LOGO.PAC,A33536"dÉ::0,0:1,131:768::1ù230,32ÁX14000:â1:"BLOAD TITLE.PAC,A33280"É::0,0:1,130:768::1ÁWA13000:WA ú"BLOA117,234:I768793:V:I,V:+ 768:510 44,131,192,44,131,192,169,76,141,67,232,169,99,141,68,232,173,207,3,141,69,232,44,130,192,96 43075,76:43076,99:43077,F B:  1:"2" "RUN TITLE.BAS"6 POKE 104,64: POKE 16) |TYPE1* (CS$(I),3)".70"TYPE3H (CS$(I),3)".56"TYPE2[ (A10)I,TYPEb Ip A10,NCS 973,76:974,D:975,C 1014,D:1015,C E(104):F(975):GF256 G102,E G129,E:G132,E:G135,E PTCH4500 GNCS (978)189PTCH4:300/ B(40193)K B140(1005)1PTCH1] B150PTCH2h ,B3072 @(4)"BLOAD FLEX TEXT,A"B EC(B256):DB(C256):965,D:966,C J768 O TAB2816 ^I1NCS r(4)"BLOAD "CS$(I)",A"A((I1)768 FILENAME:"LOADFLEX" '2:=nCS$(1)"ASCII.56"SxCS$(2)"ASCII.40"mCS$(3)"UNDERLINE.40"wNCS3::(4)"NOMONICO"(104)96(24576)0Ĺ104,96:24576,0:(4)"RUN LOADFLEX"(4)"BLOAD RELOCATOR" LNGTH113ˍԍō΍ԠҍӍӍӍύōōɍύԍŠč΍ȍ΍ҍȍōҍٍōɍӍҍ̍ӍϠӍΠӍˍǍōŠ͍ύ΍  K*L !!a!!!!!!!!A!A!!!a! ` arbyI0yqpq p090yqIIIyI HpPpp     {\FId D%&D@@@#$C ""$#" ` __**$**$$@@@ *ac*" *I 3*Հ*arb*Iq888Հ $ 8Հ**@Հ N( *@@@ ՀǷ*I <8 Հ* Հ ߟ*'$ܿ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`                                                                       >>> <"<"""<< <"""<"><$""< """"  "" 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)@ - "*:<">""""""""""">>><2"<"">""" "22>"6**""""&*2"""""""""*," "< ">"""""""""""**6""""""> >>> >00000>6c >>>?? ~~  >6c>> "2*&" " >>  ">> "8""> """"""<  "  !!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                         ANGE 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" B!C$""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,>>>HL185: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?H