' +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 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   d@ŵLҦL [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<ԍ L}JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\8õ浍õĵBD` L[W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& $`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?Lˆʎõĵ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ˍ`X2$: 2TI30:HN$(10),HS(10),C$(7,2),CL$(7,2),CH1008,1008,508+T2$A8 +9:9:"PLEASE TURN THIS DISK OVER."t8 +9:"THEN PRESS THE ";::"SPACE BAR";::"."8*+16368,084+(16384)160ī110608>+110008H+8\+8PæETONEBEEP.TB6  <  L=,0 J= - GET GAME LEVEL 2.:6:0,0PUT ,XIN$"":VP:HP!,lAH$=,(IN$)0AH$(8)7020X,AH$" "(IN$)17020|,(IN$)1AH$(8)IN$"":7100,AH$" "7120,AH$" "(IN$)07020,(AH$)8IN$(IN$,(IN$)1):7100,(IN$)LS7020,AH$" "7020-AH$+o6:"-- OR --"+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:255:,W SIMULATE IN$;:2:"<P>";T1$;:9:"PICTURE ("PP" PT"(0(PP1)83)".)"H*2PB:j*c SCREEN DIRECTIONS *d(YSPP)(CCNC(LE))FFFF1::1150*iCCNC(LE)6550+nT2$:13:3:"PRESS A":3:"NUMBER";AD$((LE1)(CC4)(CF(0)1)):3:"FOR A CLUE")Q(16384)1606290")VV:H1)`""MS$""I)b(16384)1606290S)dV:Hb)f""MS$""l)j6215y)BL$"":) FLASH THE

)CGCG1:CG1ı) 7200:PB110)NC(LE)4:T2$;:2:" ";T1$;:9:18)>*(NC(LE)4:T2"N"YN$"n"6030)("N":S$"A":11000H(:1::"RUN RETITLE.BAS"\(S$"A":11000:}(7 FLASH A MESSAGE (816368,0(BBS1(MS$):BL$BL$" ":(D(16384)1606290(GV:H(LBL$(M(16384)1606290(NV:H)OBL$ END OF GAME WRAP-UP "'p"N"D'uS$"A":11000:YSHS(10)9000N'z8000v'20:"YOUR FINAL SCORE IS "YS".":'22:1:"WOULD YOU LIKE TO PLAY THE GAME AGAIN FROM THE BEGINNING? (Y/N) ";'YN$'YN$"Y"YN$"y"ĺ"Y":6100(YN$YN$"N"YN$"n"ĺ"N":S$"A":11000:1:::"RUN RETITLE.BAS"K&4050p& "LAST ROUND" MESSAGE &:21:T2$;:2:"LAST ROUND... ":2:"PLEASE PRESS THE ":2:"SPACE BAR. ";:&SB$:SB$" "5020&6005'o "CA$"> "CH$(1,1)"";%LE2Ė2:T3$;"=% "T2$;CH$(1,2)""O%CF(0)0İ10000f%1:40:T1$;""T2$;%::20:2:"WOULD YOU LIKE TO":2:"PLAY THE GAME ":2:"AGAIN FROM THE ":2:"BEGINNING? (Y/N)";:%YN$:YN$"Y"YN$"y"ĺ"Y":6100A& CLEAR LOWER LEFT BOX >$ 1:T2$:I23121:I:2:18):f$ 5:1,32NC(LE)8135,32NC(LE)8:$ CHECK IF SCORE IS 0 $YS0ı$3100$13:2:"YOUR SCORE IS 0."$:2:"THE CORRECT":2:"ANSWER IS:":%LE1Ė2:"<# DECREMENT SCORE =# OYYS:YSYSPV:YS0YS0R# ST1:PV0ST1d# JI1300:JIw# IJOYYSST:# 13:T2$;:35:(0((IJ10)32))IJ;::" ";T1$;:SO$"Y"İ7400# IJ:255# 13:T2$;:35:(0((YS10)32))YS;T1$:$ W CHOICES " LE21170$"# 3100L"2 13:2:"I AM ONE OF":2:"THESE:""F I811:8I:2:"<";(57I);"> ";CH$(SC(I7),LE)"":"Z :3:"WHO AM I?""p 1:T1$:V23:H5:MS$"PRESS THE SPACEBAR":6200" 16368,0" 3100:LE21210# 1170LE)".SHW,A34048"-! 2:23:" "u! :21:T2$;:2:"DO YOU WANT TO ":2:"PLAY AGAIN? (Y/N) ";:! YN$:YN$"N"YN$"n"6000! YN$"Y"YN$"y"2490! "Y":CG0:CC0:FF0:II0:J09:CF(J)0:::1:::570 " REVIE 14:5:20(LE2)10" POINTS.":PV20(LE2)10:3000N ) 1:40:T1$;""T2$;^ . ALTI5000z B 1::"READ W"W(AL1): V Y12:NC(Y):X1NC(Y):CL$(X,Y)::X1NC(Y):C$(X,Y):X j Z14:CH$(Z,Y):Z,Y ~ "CLOSE"! 1::(4);"BLOAD "CH$(1,$"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$; 50:8((CA$)57)::6::I1(CH$(1,LE)):((CH$(1,LE)),I,1);:::2557 S1$):S2(T)(S2$):T:"CLOSE SOUND2":T111:IR"TONE",S1(T),S2(T):TV3000:40001:T1$:V23((LE2)8):H5:MS$"PRESS THE SPACEBAR":62003100:1150LE1ĺ""CA$"":I1314:I:2:18):13:"";:2:"CORRECT"SOLE1PV(YS3):PV0PV1:2176G|LE2PV(YS2):PV0PV1:2176x~LE2ĺPV" POINT"(((YS2)1)83)".":2180LE1ĺPV" POINT"(((YS3)1)83)".":2180"1 POINT."FSO$"Y"ĺ"OPEN SOUND2":"READ SOUND2":T111:S1$,S2$:S1(T)()2270"2170N<:2:"TYPE THE LETTER":2:"BESIDE MY NAME"T3$" % "T2$;{>NG$:NG$"a"NG$"d"NG$((NG$)32)HNG$"A"NG$"D"2110RNG$CA$2270f""NG$"":I1314:I:2:18):z13:2:"INCORRECT...YOU ":2:" LOSE ";!{I811:8I:2-LE1:"<";(57I);"> ";ILE2ĺT3$;" =% ";T2$;fCH$(SC(I7),LE)"";::uLE1210821:T1$;:3:"TYPE MY NAME AND":3:"THEN PRESS <RETURN>."T2$;23:2:">";:VP23:HP3:LS14:16368,0:7000 IN$CH$(1,LE b10000!q1:40:T1$;""T2$;-vCF(0)1M4NC(LE):T2$;:2:" ";:kFFFF1:PVPP:3000:4000NC(LE)4:T2$;:2:" ";T1$;:9:18)1150 GUESS ROUTINE 310013:2:"HERE ARE YOUR":2:"FOUR CHOICES:"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:" "::11505:135,1135,100?3YC:9::""CL$(CO(YC),LE);" ";W29:C$(CO(YC),LE);lCF(YC)1:FFFF1PV1:3000:400016368,0:3YC:T2$;:2:" ";:T2$:20:32:CCCC1:1150& PICTURE ROUTINE :16368,0$<CF(0)C48NC(LE)1290'CF(((YC)))1290:"23:17:(YC)F61:T1$]JCF(((YC)))1290x^ EXPOSE CLUE rYC((YC)):3YC:9::""CL$(CO(YC),LE)"";:50((DEBUG1)200):(CL$(CO(YC),LE))9:Y119(CL$(CO(YC),LE)):".";::255:""(95);3YC((16384)128):YCYC(YC96)32` EVALUATE KEYPRESS AND BRANCH pYC491290YC80Ĺ16368,0:1850: PICTUREYC71Ĺ16368,0:2030: GO TO 'GUESS'YC76Ĺ16367,0:2590: GO TO 'REVIEW'YHC%2))@2139HS,92271HS,92271HS,108139HS,108139HS,92s<9HS,91129HS,91129HS,1689HS,1689HS,91FHC(1):HC%(1)8:HC%0HC%41350ZHC%:HS((HC%2)(HC%2))n135HS,90277HS,90277HS,110135HS,110135HS,90 x23:17S <G> ":3:"TO GUESS."L23:T2$;:2:"YOUR CHOICE "T3$"=% "T2$" ";\SP0İ6600eSP1 GET USER'S CHOICE AND FLASH BOX 16368,023:17:" "; HC%(1)8:HC%0HC%4129023:17:" ";HC%:HS((HC%2)( SCORE"T3$" % ";YS;T1$8j SCREEN DIRECTIONS N~FFNC(LE)12030v(LE1CC4)(LE2CCNC(LE))İ6400 IF SP = 0 THEN FOR K = 1 TO 2000: NEXT K6500LE1Ė3:"PRESS <L> TO SEE":3:"THE LIST":6:"-- OR --"3:"PRES;:11:"THE CLUES";T1$;J15:28::" PICTURE "t15:T3$;:23:"$ $";:34:"$ $"T2$:}255XZ1NC(LE):3XZ:"2";:2:"<"XZ">1";:9:""CL$(CO(XZ),LE)"":B SCORE AREA V13:T2$;:22:"YOUR135,32NC(LE)8RT2$:34,14:252,20:253,20::13:20:::"":252,0:253,56:34,0:3:X134140:X,112X,191:X139,112X139,191:f3:135,191279,191z4:135,120279,1202:"1";:3:"KEYS:"T2$;:7:"TYPE OF CLUE:"T1$2:T2$;""R ";:(16368,0:SB$:SB$" "750F DRAW GAMEBOARD N:  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)8"WHO AM I?"95:I154157:0,I60,I:200,I270,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 ";::" SPACEBA6::230,127220,137!LE2700H5:T2$;:10:"I AM ONE OF THESE:I8142:I:12:IIII1:T3$"=% ";T2$;CH$(SC(II),LE)""::T2$7107:T2$;:10:"I AM SOME KIND OF "::10:"MAMMAL OR REPTILE"::10:"OR INSECT." 20:"";:6: THE CLUE ORDER + PX1NC(LE):DU(X)0:; RX1NC(LE)` SCO%(1)NC(LE)1:DU(CO%)1595x UCO(X)CO%:DU(CO%)1~ W a OPENING SCREEN b:6:40,16220,16220,13640,13640,16y50,8230,8:230,8230,128:50,840,16:230,8220,1 HS(1)0R0570 $E & START OF EXTREME OUTER LOOP Q :ALAL1w ? 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 SCRAMBLEI1):DU(W(X))1130& DU(W(X))1::2 1:T2$Q J GET INITIAL DATA h 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,LE)".SHW,A34048"HS(X)::"CLOSE"( ;HS(1)0R0İ8000z <16368,0:24:T1$;:7:"TO BEGIN THE GAME, PRESS THE ";::" SPACEBAR ";: >SB$:SB$" "62 DS$"B":11000 F SCRAMBLE THE TEXTFILE ORDER ZX1TI:DU(X)0: nX1TI W(X)((1)T$(4,2),CF(9),SC(4),AD$(1),NC(2),DU(TI),W(TI),S1(21),S2(21)g 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$(X):1IR(175)(176)256203)32256550000o(4);"BLOAD LOOKLO,A36096":(4);"BLOAD SHOW,A36608"u FILENAME: WHO AM I? -T1$"1":T2$"2":T3$"3".MM3225601:T2$: 2TI30:HN$(10),HS(10),C$(7,2),CL$(7,2),CHz # Ĵ Ϡ נ ! Ҡ"Ү̮"Ӡ"Ϡ͠ɿ3 ı IJ ij ɮϮŠ Ҡ ٠ Ů ٠! ŮӠ  Ϯà ؠ ŮӠȠ ҠؠԠ  ɮ  ӱà Ӡ ӲàӳàӴàӵàŮàϠ ҮŮà Š ŮԠٲŠҠ$e Honor Roll Fixer, or"8 " 2. work with the Files?"> h "Press the number of your choice: "; 1000:K$"1"K$"2"ī260 K$ K$"1"ĺ(4);"RUN FIXER":280 "(4);"RUN EDITOR":290  16368,0:"_";(8); K(16384):)1NA$(NA$,(NA$)1):(8);" ";(8);(8);@ K$(13)ī90F L (4);"OPEN NAME.TXT":(4);"WRITE NAME.TXT":NA$:(4);"CLOSE" NA$"REWRITE"ĺ(4);"RUN HOWDY2":170 7 "Would you like to"  " 1. work with thD  (3)7&("HELLO!".2:J<"Welcome to WHO AM I?"RF:P"Please type your name and press RETURN."Z1000dK$"A"K$"Z"(NA$)20NA$NA$K$:K$;nK$(8)(NA$)1NA$"":(8);" ";(8);(8);- xK$(8)(NA$YC$""2003B"PLAY":1::"RUN WHO AM I?" KEY TO LEARN ABOUT"::3:"THE RULES OF THE GAME."?A:::3:"PRESS THE <P> KEY TO PLAY THE "::3:"GAME OF ";(34);"WHO AM I?";(34)"."A::::3:"YOUR CHOICE ("(34)"R"(34)" OR "(34)"P"(34);")3 =%2 ";AYC$:YC$"R"YC$"P"YC$"r"YC$"p"YC$""150AYC$"R"YC$"r"ĺ"RULES":1::"RUN RULES"B> @32256@:115$@ HOWDY2*@s@u5:1,1277,1277,1281,1281,1:6:4,4274,4274,1244,1244,4:1:7,7269,7269,1197,1197,7@x5:3:"PRESS THE <R> KEY TO LEARN ABOUT"::3:"THE RULES OF THE GAME."?A:::3:"PRESS THE <P> K͍ō c zz J FILENAME: "HELLO" " 4 "MAXFILES1"IF"RUN LOADFLEX" 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)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 MX30jN$(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$"              K1281010< K$(K128):(K$"a"K$"z")K$((K$)32)B I?"RF:P"Please type your name and press RETURN."Z1000dK$"A"K$"Z"(NA$)20NA$NA$K$:K$;nK$(8)(NA$)1NA$"":(8);" ";(8);(8);- xK$(8)(NA$(2,T);U$;L%HTNC(2)ĺ" ";T;". ";U$"***No clue appears here currently.";U%I:T[%Lk%W READ FILE{%XF$"W"(F)%b1::(4);"OPEN ";F$:(4);"READ ";F$%lL12 &vC$:NC(L)(C$):T1NC(L):CL$(L,T):T:T1NC(L):ST$(L,T):T:T14:NA ";T;". ";U$;CL$(1,T);"...";L$;ST$(1,T);U$;p$>TNC(1)ĺ" ";T;". ";U$;"***No clue appears here currently.";y$?:T$B13::T17:1:" ";:1 %GTNC(2)ĺ" ";T;". ";U$;CL$(2,T);"...";L$;ST$;:60008#K$(21)K$(10)ĭAA117AP1MXAPAP1^#K$(8)K$(11)ĭAA10APAP1|#OPAPAOP:5200:" ";#OPAP:6020#7 SHOW CLUES#84::T17:1:" ";:1,$=TNC(1)ĺ" A16:5205"ZAA9Ė1%"dAA8Ė20/"nAA6?"AA8ĢAA2E"["o CHOOSE FILE e"p5050"z5050:5100:AP(P1)161:OPAP"AAP:5200:"->";"9000:K$(27)ġ:"K$(13)ı"K$" "PP1:PNPP1#K$" "AAP:5200:" "16); !T!T14:T108!#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$GaF*Հ Հ Odp$x`>< *Հ Հ $#CA$$$$$*Հ Հ$"<!!$ *Հ Հ-$$*Հ Հ!+Հ >8  @"2 *Հ Հ@ @L8Actx!  D<CdCBB@@ @*Հ Հ!$'$g$%` HHq*Հ ՀDn`pGH *Հ Հc$$#D~x<9II ÀՀ8DD8O'''GϟՀՀrrabbpx?ՀՀ|DՀ Հ @ Hdq~ *(Հ Հ ?"2U #'' s C>U .PՀDՀ:Հ  Հ `paB` πǀՀAII6Ogpx< Հ|0xxx88? ￀ՀU7II><  II ՀU I b p 'CՀU""I$$Sacsd !?ՀU` $$$$`  U<",G GcCr@58xՀ   Հ(DDD @ՀK0`CqՀU>><D $x82cgOxՀU@$'DDXDdDH5* C$DG+R? p`Հ  !C>OՀ<cOGCA@@ @Հ DD|xՀ 鈉 $xp|GGH *8|x`HGi $d$~D|* II``brb!! ~>dxxdp*"caq+*#$  ACDd$XCdC5*"" GaFC'Gabr0cbap~ĀĀĄS@ Db`(* ?*<",<",4 \8Actq* +11000)H+ETONEBEEP.TB6  <  L=,0 J= <`6368,0"(2#K(16384):K1289010E(<#K$(K128):K$(127)K$(8)K(F#(*1::(4);"OPEN SIDE":(4);" READ SIDE":S2$:(4);"CLOSE":S$S2$ı(*1:T1$(+:2:8,50270,50270,1008,1008,50( +S$"A"Ė9:9:"Please turn this disk over."C)CHARS#' ST$(LE,CL)"":T1(ST$)u'*(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$(LE,CL)ST$(LE,CL)(ST$,T,1)'HT:((#1$(L,T):T:L &(4);"CLOSE":>&S$"B":11000:F$"W"(F)j&1::(4);"OPEN ";F$:(4);"WRITE ";F$u&L12&(NC(L)):T1NC(L):(34);CL$(L,T):T:T1NC(L):(34);ST$(L,T):T:T14:NA$(L,T):T:L&(4);"CLOSE":' INSERT CONTROL Հ77# UAAAAAA AAAAAAAAAAAA UHH@GOO4DD$@`HHHHKF`@$$HG@' 'H IHUU@H"GCcnH@asc ǟǟ2  ՀǷAAA Ͽ ǷǗ0$@@@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     ҍҍҍ؍ԍō͍ōԍ̍΍ōōҍōčō΍ԍōЍōٍٍٍȍٍύԍҍҍ΍ DDd U "2@ @ $ U -d   U ,U O OM|p @@G$DDd$$HOccU ՀII "  FIIU @ @Հp 1H qxU Cc""HIIc$$2#''U < `d$ Հ ట 8DD8Հ@@: 0cG a ""D<U Hdrs|II &""U  f'0x0sg  pC>O ϳ||&OGCA@@` ǀϟ88|p T$x<p|`H G@ @q q`l.nlHH p 10d$$dxwwxDD@ D H@@loooϟ!CGg"GDx< ϟ II =5= ""> xxH  ' '  >< '## 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đđđđđđđđđ `đđđđđđđđ0``@@`ի뫀ՁI IiIFNnժ`@@`@`@``@@` @ժՀ OBl=0$%ժՀ   @ #2J2k 3ys1rrIJՁ Ϗ'cdpD#@F@@Ѐ ̼Հ N!NO"L"o",đđđđđđđđ       @@   GH "DDDԀ``   @@Հ i "2ՀՀ^̞À"28|x C8D8  _|Ͽb  DDacs  $̃ϿΎ QBB DD@ ~x8< A $ DAD]a}\$$ <__OH  @@ ՀNnn(( HP$g$wwwɏcqaDx< DCp 1  oo<DD@Հ釀 AI6Հ9-= "DDBBDD8|x [[[@A@DD???π H """FRB   xq1   "^3HG ' '@@!!!GHGՀ !cpc$>]88  {~~ӏݝ̀brb xDDD! ""!!!D<m mه̞͝ $@@@o{o8D8   @{o{arb ""@@@]xΆ̞HD !a!;:;̞͝``pD@@@qxp???̞ascHIIIQ AϿـ ""  Dx<2  CBG@ @Dx<||Ͽ@ F 'c#HBBHa]}}$$ 0_D HII@ @h Հ`````c```f`$ $@GH@$$H@H8D8@ @"HHKd$braQ  Հ@@ A I8|x caIHSgcs`@@` s$DՀf..FOn &n.F/NI IOBl@`@N!N    Հ``,đđđđđđđđ  Հ@@@@DՀ$$%%UՀՀ#   1 q 1"p 2"r2J2s q1I3IJr@qKs1J02J2cgwffp`S$!%$ՀՀ! Հ(<$$ ""2ՀJK"#h) )'ՀՀ`p Հ)) %ՀՀՀ ժ@@RRRR@FB^RRBՀժ% ՀՀ ժ J ՀА߀ ժ4%5$$$5$98@qJr2xr{R1!!s3H3i Հ ժ @` @ @`  ժ4+ժ)I` *Հր@ @` @@`@@@ @ @@@` R\ RR\LRLRB \LH\RR\ժ@@@@@@@@@@ժ @` `" $$ժR""ժ%%$ժBIIժ PD@AЀժ !!"""""ժ` `@`p@@@ի뫀 /)( 4@@@ $$ՀՀ()) () U)! "@@@!!Հ URՀՀ` u``ժQyJK JBKJ*FOnFIfF F=9ՀՀ@@@@@XՀ$$%8U*ՀՀ"   V" ""!"#JK II UJK@JJJIJKՀ4 U4%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Հ րՀ ` ` @` * ` @` *HHՀ ߟ*ܿ**@H$**H@@@ *acՀ>< *xw}w*sՀy'$DՀ*?* 88Հbbr CGgՀ**Hp8@ՀxDXCA  *HH Հ IHǷ*<8 Հ@B ՀbbD$'0C$D"*D|[_*HH ՀD$&DBBd&DD@bpbHGD*__*@8$'$Հ<0@@@*Hx778*HHHJHՀp qUHH1yqԀрU.ԐU8U^*$$$ccOBBBHG@G G$$GHG G*HG@x*"$  cp`#)!*Dd?_?*@UHCBG p_UHp8HH@БՕЇUUxHՕՅЀ EUDDDՕЀ ЀՀŅ@ U UH80yqp DdEU U@H GCcUU G!F HUHp8p08 O߿U  U@_[\UHO#'' R $$HIII 'd%@@@U >[X;U HHH ` c$$#HH@HHHUCA??U d$$x(  ""@@U@=707UH8@ @HHH x  II4S" L *UAAAA!AAAAAAAAAAAAA U@@@U""HIHH'$%H@'$%UDU&" DD @`@!##8HH"""ٻ8HHՀ  € 0pp$$  0xp@@ x`0xpOw870H0ILՀ qxqbrb "wx{ Հ$'!y ?0 pabՀՀ$% HH@sՀDd A18HH ՀI G$ Հx`cqa!%1! xDX_?_@@BB Հ8|xD$D H $$" " 8|x;\_GHՀ$%$B $$%Dx<bbHB [[p08D$$DՀ88@@@O  ԕԀ Մ $ĄŅ ԀŕĀ8HHI Հр /ЀĄ:ŁTU $$BBBGH@@ $H  GH@@x><$ 0 0 p!! O0H@@ x` ĄĀ0xp@bB 0H@Hp8ՁхՕŅЄĄĀĀHHHՕ $d$GHGaGHHG A?hH4DD  caCsDc|::9888(DD0#)! స$> HGH ""Հ *>DD>*/"b` `GiIN$$.MaA$$$<@@CA* * \   *a*  <9$89r0pH~ya*"qI *X@NRBNRBBLR !% Հ ՀD5Հ Հ@Հ!%1!‚¢O@@OՀ Հ>> ss>J; I  @J{J$$$#Հ ՀՀ@HL4DD q"B$$!%@p@@Հ>>G@HG  ĀĀGH р cc ĄĀĀ'as$$$qRphDAa"" 0 8@8xhH> LD gc<:9988|D|D0!%1! yyJxHHIJxHIHxDXs1$ c $$@@Dq 8 `""DDD"B ` ))$d$#!$$$C||Հ  A# # P@@H H |@e$Ձ ` '! )a)!a) '!*$$88D @RNRNBR\)I D<$Հ89@OHKLDU "">>U 999 @@pՀD<$" "U""U:J 2zqq3;IZjJ#d$$Հ ՀD< H @U@                ((((((((((((((((((((((((((((((((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ޏem m 8 m ɀ  Luɠ  :Lu CLu ~Lu iLr`` JJJJJm  i` <e  JL ` L:L?L)ȱȱLD    Lu))  ` L@  L`ȱ L0L̍Pȱ  L ȱȱ 28    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 ú"BLOA 117,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   JHh&&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@*cd 2 HFIcTId*HMc**HMd*8++NO,+i+h*h*h,H,0ɛɍ h$`ɐ$   $==$   $ L  L hHЧ3П!$&$ Å89t6 7 ,R,W @׍ <i18 ,P~L`o hjln~T R   ` L,T 󦴊HH 6789 hhhhL($ ) @($8 *)  +$0#Hp *e    @A8m @0 /@ q@8@8e@@AiAPʘ8e@@AiA@ q@8@֠Ș8e@@AiA@ q@8@`   Wq@8@`   00>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]@@@``@   C                                                                      >>> <"<"""<< <"""<"><$""< """"  "" 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!`%J!!! >>>,""<< <""<< <$"< """  "" 6***""""""<"< :< $""2,"""**666""< >>0,>>>"*:<">""""""""""">>><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" Au5: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:Y140191:0,Y140,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/-./`OM THE LIST, AND":2:"WILL SET ALL SCORES TO ZERO.":2:"DO YOU WANT TO RESET THE HONOR ROLL ":2:"AT THIS TIME? (Y/N) "; 9000:YN$K$YN$"N"YN$"n"ĺ"";YN$;:100 "";YN$;:YN$"Y"YN$"y"2060HX110R:::HN$(X)"--- NAME AT THAT POSITION.":$.2200*?0H RESET ROUTINE P:t6:0,0278,0278,1600,1600,02:2:"THIS PROCEDURE WILL RESET THE HONOR":2:"ROLL."4:2:"RESETTING THE HONOR ROLL WILL ERASE":2:"ALL OF THE NAMES FRN";::" KEY. "\23:1:"PRESS ";::"ESC";::" FOR THE HONOR ROLL FIXER MENU.";5:1,156161,156161,1721,1721,15621:2:">";:VP21:HP3:LS20:7000 F1HN$(NU)IN$:500,21:1:"MODIFICATION DISALLOWED...THERE IS NO SH TO CHANGE AND PRESS ";::"RETURN";::". ";<10000JNU(NU$)bHN$(NU)"---"1580:6NU:7:""HN$(NU);:18:1:"TYPE THE NEW NAME WHICH WILL APPEAR IN THE HONOR ROLL IN THE SAME POSITION. THEN, PRESS THE ";::"RETUR000 .2200f 8YC3Ģ21:1:"MODIFICATION IS NOT ALLOWED...THERE IS NO NAME AT THAT POSITION.": 9YC2Ģ21:1:"DELETION IS DISALLOWED...THERE IS NO NAME AT THAT POSITION.": :2200 3000118:1:"TYPE THE NUMBER OF THE NAME YOU WINU:7:""HN$(NU);:\ 22:1:"ARE YOU SURE YOU WANT TO DELETE THIS NAME? (Y/N) ";m 9000:YN$K$ YN$"N"YN$"n"ĺ"";YN$;:100 "";YN$;:YN$"Y"YN$"y"1032 F1 XNU10 HN$(X)HN$(X1) HS(X)HS(X1) X $3)! YC500,1000,1500,2000,23001 3000:22007 Z  DELETE NAME ROUTINE d 3000 18:1:"TYPE THE NUMBER OF THE NAME YOU WISH TO DELETE AND PRESS ";::"RETURN";::". "; 10000 NU(NU$) HN$(NU)"---"1080 :6E HONOR ROLL.":2:"3. MODIFY A NAME ON THE HONOR ROLL.":2:"4. RESET THE ENTIRE HONOR ROLL." 2:"5. "M$(F)" RETURN TO PROGRAM." ::2:"TYPE THE NUMBER OF YOUR CHOICE. 3=%2 "; 9000:YC$K$:YC$"1"YC$"5"150 YC$ YC(YC$c MAIN MENU  d:P i6:0,0278,0278,1200,1200,0:0,20278,20v n2:"";:2:"HONOR ROLL FIXER" x:2:"WITH THIS PROGRAM, YOU CAN DO THE":2:"FOLLOWING:" }::2:"1. SEE THE HONOR ROLL."c 2:"2. DELETE A NAME FROM TH! 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)0F16368,0 ! !!!!!!!!!""" " " " " "'@ 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! ES":1::"RUN RULES"( YC$""200M "PLAY":1::"RUN WHO AM I?"f :1::"RUN FIXER" :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."Y :::3:"PRESS THE <P> KEY TO PLAY THE "::3:"GAME OF ";(34);"WHO AM I?";(34)"." ::::3:"YOUR CHOICE ("(34)"R"(34)" OR "(34)"P"(34);")3 =%2 "; YC$:YC$"R"YC$"P"YC$""YC$"r"YC$"p"150 YC$"R"YC$"r"ĺ"RULh: 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."Y :                 P240P2084060 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:4000J 1:"2":"RUN REHOWDY"V "2": NN1:1::"BLOAD RULES"N".PAC,A28160": 0,0:1,110:::768:: 16368,0 P(16384):PLLPHL4010 16368,0: 16368,0 P(16384):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 ";::" SPACEBAR ";: 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:""""͍ڠŠԡ"0,KATHY,1100,FABIAN,100R 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)0F16368,0 W HONOR ROLL 3J1:::"WRITE HONOR.ROLL.DATA"?TX110K^HN$(X)VhHS(X)]rXk|"CLOSE"qOò DUMMY UP THE HONOR ROLL Pà FREDERICK BURGGRAF,2000,JIM,1900,DARLENE,1800,JANICE,1700,SUE,1600,KAREN,1500,DON,1340,CINDY,12090005$'(K$"1"K$"9")NU$""NU$K$:K$;:10010^.'NU$"1"K$"0"NU$"10":K$;:100108'K$(13)NU$""NU(IN$):B'K$(8)NU$"10"NU$"1":(8);" ";(8);:10010L'K$(8)(NU$)1NU$"":(8);" ";(8);V'10010@ WRITE NEIN$)0))IN$IN$AH$3VP:HP:""IN$" ";:7020EIN$" "7000q(IN$,1)" "IN$(IN$,(IN$)1):7110w(#16368,02#K(16384):K128ī9010<#K$(K128):K$(127)K$(8)A#K$"a"K$"z"K$((K$)32)F#'NU$""')1AH$(8)IN$"":7100+AH$" "7120FAH$" "(IN$)07020n(AH$)8IN$(IN$,(IN$)1):7100(IN$)LS7020 IF AH$ < LL$ OR AH$ > UL$ THEN 7020(AH$"a"AH$"z")AH$((AH)32)((AH$"A"AH$"Z")(AH$" "(:X10Ė3= X". ";HN$(X);:28:HS(X)100Ė29:HS(X)10Ė30J HS(X):P V rX SIMULATE INPUT bIN$"":VP:HPl9000:AH$K$(IN$)0AH$(8)7020AH$"-"7020AH$(27)ġ:100AH$" "(IN$)17020(IN$ F02360 4000058 1::(4);"RUN GETNAME"\ PRINT HONOR ROLE SUBROUTINE ~ :2:"";:6:"HONOR ROLL" 6:0,0278,0278,1280,1280,0:0,20278,20:0,32278,32:0,35278,35 :9:"NAME";:28:"SCORE" ::  X110:4"\:::HS(X)0fpF1}z:15:10:"* *":10:" RESET COMPLETED ":10:"* *":24:1:"PLEASE PRESS THE ";::"SPACE BAR";::".";9000:SB$K$:SB$" "2210100:1::"RUN RETITLE.BAS"