' +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#򍳠렠ﮠƭӶıݍӶIJӠݍٍ۫Ӎ堲報䮮宮殠۫ɠӢכֿӠ۫󠰭ŰŸưƸƠŠƠˠҠӠۿݭР΍ޭ뮮ԍùñòijIJñòĶ֍°ijƠôĠƠĴŠĭ΍¸ƠIJİƠЮðŠøİĸҠҠŠĠƠİĠꩮЮõµĠŵõµŠŵȠŠŠ ³஍ĠŠƠƠĴӮ嬠Ӯ԰Ӱ砢ϭӢ󮍍ϠijԠĴ ύ ׍ΠύӠ󮍨堲ҍ ؠԍ ɮ ɮ Ϯō ҍٍ ŮٍŮӍҍԠҮ̮ӍϠ͠ɿԠıԠIJԠÍԠōԠŮԍٲō ӱÍ ӲÍ ӳÍ ӴÍ ӵÍ ŮÍԠӍ ϮÍ؍ŮӍ ȍ 嬠렰ӶıݍӶIJݍңǬӶIJñãōύ ҮŮ묠殠ﬠ欠㽽àϠƠ٠ϠֲޭӠ렰䠭뮠ɠ宮ºúĺźƺôҮõҮöҮ÷ҮøҮùҮӠ٠٠ϠŽ˺ҮưưðҮñҮòҮóҮԠˍ󠱶묍䮍ĠΠԠΠ٠ŠˠԠǍ栱殍ӶıݍңΠĠΠĠנӠō¸䠢Ӣ報ӶıݍӶIJݍԠԠˍ䮮ӠӠᬍ򮩍Ӎ溠嬠ɧ嬠謠԰ԱӠɠӠ쬠ŠӠ렰󠲭¸Ʃ䠢Ӣ䬠Šɍ멠Ӡ嬠Ӡ뮍Ӡ써ŠɧӠ젨䠢ԱԱ󍰭렰¶Ʈɍ젢Ţ宠렰򠰠䠢԰šӶıݍӵıݍңǠ԰Ǡ԰ǠԱǠԱǠӍӠӮ嬠嬍ɍŠӍѠҠԠˠŠϠŭčޭ렰ɠ렰䨭詠ލ卍ƠƠƠĵƠƠލ卍ĹIJIJIJIJIJIJIJϠŠàϠԍҠРΠȠƠƠƠƠƍƠƠƠƠƠƠàƍƠƠƠƠƠƠƠƍƠƠƠƠƠĵčލ卍ƠŠŠƠ  ƠƳàƠƠƍ޵ĢĵƢ٠۠ӠԠ٠͠é̠ԠŬî˺ĠԺĠȺƍƠƠƠƠƠƠƠƠ׍ƠƠТӠĢ宍䠱퍢򮍍۫렰󠰭宠렰宠Ӡ󠱬􍭭렲렱Ġ ϠӠˠԠŠĠ͠ōҠŮɧӮӠ󠵍렲嬠ӬàϠ렱䠢렲䠢򢮠ᬠ㮍ɿ󬢍ᮠ嬠ݍɿ󭭭렠ɿᠱ                 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$z #?  Ϡנ͠ˠũ' Ү̮ Ӡ Ϡ͠ɿ3ıIJ ij Ĵ ϮŠҠ ٠ Ů٠ŮӠҠ ؠŮӠ Ƞ Ҡ ؠԠ ɮ ɮ Ӳà ӳàӴàӵàŮàӠϮà Ϡ ҮŮà Š ŮԠٲŠӱàould you like to" F " 1. work with the Honor Roll Fixer, or"d " 2. enter a new name?"j "Press the number of your choice: "; 1000:K$"1"K$"2"ī260 K$ K$"1"ĺ(4);"RUN FIXER":280 "  16368,0:"_";)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 "You may not edit the data on this disk." "WZ  (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"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|`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* < '## 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$@@@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     D<m mه̞͝ $@@@o{o8D8   @{o{arb ""@@@]xΆ̞HD !a!;:;̞͝``pD@@@qxp???̞ascHIIIQ AϿـ ""  Dx<2  CBG@ @Dx<||Ͽ@ F 'c#HBBHa]}}$$ 0_H G@ @q q`l.nlHH p 10d$$dxwwxDD@ D H@@loooϟ!CGg"GDx< ϟ II =5= ""> xxH  ' '  >]88  {~~ӏݝ̀brb xDDD! ""!!!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?>>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<$< *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$ Հҍҍҍ؍ԍō͍ōԍ̍΍ōōҍōčō΍ԍōЍōٍٍٍȍٍύԍҍҍ΍Ā !ى " #5NBR\)I D<$Հ89@OHKLDU "">>U 999 @@pՀD<$" "U""U:J 2zqq3;IZjJ#d$$Հ ՀD< H @U@@ GP P9JIi 3pp1JHJ9KKԀ ԀQ |D$EUDD""U``@cDddDDd@dDgcCG.,Հf$$|| s"BD8DUDx<"""U I)I@ @oBAA@@@Հ x xGHG ""߀a""ؘ& ! "# *j  pD8D>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@@Հ* ??  >>`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ޏ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 16v@@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@*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(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                                                                      >>> <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>0,>>>"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>"X>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "    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 :>>>,""<< <""<< <$"< """  "" 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,ɛо``   ` )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"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" BI1):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$"C":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),CH    !!! ! ! ! ! !!!!!!!!!""" " " " " """""""""     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$""'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 SCRAMBLE+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 ";!{