2IMGCdrP@@08L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RESP.TEST.1.1v v ' *ESP.SYSTEM2`! @! +RUNTIME.OBJ933!ZZZ.ESP.OBJT2v *ESP.OBJU2v #v    !"#$%&'()*+,-./012345678L 4@ 7*7*@c@0%3$  B@I _ 59035 @?B*2آX _ʚd(ebcdbecc )/ !)/md!eqdddʈ ! ! ! XQ) é_"XL! `TQH" h " hh A8" , e RUNTIME.OBJӡӠɠҠŠԠӠӠ٠٠ϠΠϠӮݠݠݠݠ͠ڠ̠ݻݻݻݠݠݠŠ鰪鰀頍ݠݠݠݠӠ栠ݠݠݠݠݠ堪骪êݠݠݠ݀݀Р㠠𠠣ݠݠݠݠݠݠ几͠ᠠݠݠ݀݀݀݀݀ÀݠݠݠݠⱠ堠堠頠àÀÀ蠠ݠݠݻƑԠƸ蠠ݠݠݠݠݻݻ저저Π堠ݠݠݠݠʠࠠԠҠݠݠݠݠݠݠ崀崹嵱頀LL3 L? L L L L L L L L L L L# L L L L L L L L L L L L, L L L1 L LF L^ L L+ L. L1 L3 L<LrLLL-L]LL L LL LLLLLLL9LLLLsL׳Lqdddʈ 3 8a 3  3 l`  Le9 `S 8`i `'(+.@BDEFGHIJLNPQRWZ      1 8` 1 db l c6 H) 0~ hJJJJ 0} s ds ȑdd`+ . : D S a o   4 L c g NoEnd of FileDisk FullFile Not FoundFile Not OpenBad File NameBad File NumberWrite OnlyRead OnlyPositionNo Device ConnectedDisk SwitchedDuplicate FilenameIncompatible File FormatAccessFile Already OpenDirectory Structure DamagedNot a ProDOS VolumeDuplicate Volume OnlineFile Structure DamagedI/ODisk Error in File #01 de`b,d i hiphiqpdpqpe<`,b,d i hphqdHeH`,b,d i hphqhehdqHpH`de`de`bc`ded`bcb``a``de`bHdbhdcHeche`db  `a # LH db   `a # L` `'d `a`debdeece` 1 d8bdece`de`deeae`d8`deae`d&e`d&eeHdHd&ed&eheddheee` 1 ecdb`ead```Hd`hdeHaeha`d 3  L `,,H L dɍ1ɈƚL| ɏɎ)h)?,2`Ś 1 暥JhL)`0) _)ߪL h) 斥 jL3 !ɍ L Ř 1 hLhLꍥ!ŝ 8埅` ` . ` < Lr ` `` Or `H67h76`d) ݥ67`ȱf 80` J&d&eL  ddL (    ddL H  H heddeeffgh`edIideIie` + 0af  ] L ae -, fȢ`w bw c  `Lo`a 0f0a0a ȩf`d `8`Iid`dHd h8d0 dd + d`0#NOO)?淚E 3 . L,H + . h`a <ɠɍNɈ0ɘeɃAa L)Ȅ ɕ 3 a©L \L` . + . aƎ`` 1  a(` \ed0,,d`dfegL 1 I@`+Ʃǩ oݽ W ٤ e8e{z  ަ `L@da  d 3 a`LaLaLaLaLaLLLLL`   hghf  L¡? 1 L   ` Ϣ Ld`y`P`   yP`dʆ`d < .Lrd`B `d&e` 1 bL 00:00:0000/00/00 3 ) =)? HJJJJ 0dh) 0d` 3 JjJJJJ =) =Jо vdwezb{cb   , `΍ύ~`vdwezb{c > Lldd  d  d$& L)  ڨd +- ȱd0.@EBD>e:d60t:pHSh R h)RRȱdL<ȱd-N+0: & & & &ȱdL I8imSSSSIS `LR` Q`T SLU):T SSİˢ)SS$TTıTS0@ST`Se S`SiSL,H     h4 i+'`hbhcbiaciHaHbdȱbe`عTdS) Rd(` i(`HJJJJhL'h)i (`  , eH Haw bw c  aaH h0 T SL_h SSISL,T`~T``RIR`ąbŅcdedb  L" ",,`a  bd `a, b LbĥcŘd`) l ) %de  1 $%de  j$$!  `b$20Id eie` HH` ifR$%%#`$ !$%%$`% "de  1 "aa#"`ade   eiecic a`Ԣ cic ` #8dae  1 #"`aade   eiecic `0!b`!db`  edd`dH)dJJddhe &e &e fde) e`?,`$$!Lɀɾ޵ɽՀΆն߀ժժժժժժժ>>< (&20 *, **> > "2*&" " >"  ">> "8""> """"""< >> " "*:"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">"""""""""""""""*6"""""""> >>> >00000>" <"<"""<< <"""<"><""< """"   $ $ 6***""""""""""<""< :< """2,"""""**6"""""< >>8  80,U*U*U*UESP.64v!8' l '%ESP21=%&%ESP23^%&%ESP22N%//&ESP.OBJ%2! &%ESP248&&/// End ///EY2$);" ......";"###";FAME(I);"%"0) esp24.systememBASIC.64K/ad File Name EGETPICKhH 500esp24/ZBASIC/ZBASIC.64K/ESP.64/NCHOR64/2 /RAM/INIT.64.OBJJJC.64K/=} B 1.0.22ABOUTHELPTESTFAMEQUIT  ESP.OBJ--- PRESS A KEY PRESS A  KEY    ESP.OBJE S P T E S TCopyright 1989by Dave TouvellAll rights reserved.Whichsymbolis onthiscard?CORRECT! WRONG! HITS##CARDS##PERCENT###CONGRATULATIONS!You made the ESP Hall of Fame!Enter your initials:___ ESP.OBJE S P T E S T E RCopyright 1989by Dave TouvellA program to testyour ExtraSensory Perception.KEYBOARD COMMANDS:--> cursor right<-- cursor leftESC activate menu (cancel test) MENU ITEMS:ABOUT program infoHELP this screenTEST take the testFAME hall of fameQUIT exit program HALL OF FAME ......###%o end the game.Press a de de a 4  d@e Qde Hde  ade de  aFde de  axde de  ade de  a܅de de bc`a ? 8d@e Q I Hde  ade de bc`a ? 8d@e Q I Hde  a de de bc`a ? 8d@e Q I Hde  ade de bc`a ? 8 d@e Q I Hde  ade de bc`a ? 8%d@e Q I Hde  a de dedȑdLEdepqdpȥepLEde`a PEde adedHȱdehd *d@e  LqE`L0FdepqdpȥepLEde`a P/F de adedHȱdehd 3d@e  LE`LsGde 8 8de 8~de W :  : T B,xLFwde Qde Qde HLvde ade de  de W Q  de Qde HdedHȱdehdpqdpȥep depqdpȥepLyde ade`a ЀydedHȱdehd 8dedHȱdehd   :  B}ydedHȱdehd؅pqdpȥepLx depqdpȥepLy؅dedHȱdehd  ade`a ЄzdedHȱdehd bc!`a ? 8dedHȱdehd C bc!`a ? Q I HdedHȱdehd  8dedHȱdehd C   : Ly؅dedHȱdehd bc!`a ? 8de Q I H؅dedHȱdehd  adedHȱdehd de 8ndAe Q`a : zdepqdpȥepLY{ de`a P{de  dedHȱdehd bc!`a ? ade }dedHȱdehd  |  bLC{de  ` ^Nde W Q   de ade vdAe   de a de dAe   de a de dAe   de a de dAe   de a de dAe   de ade ̅dAe  depqdpȥep vGdedȑd N` ^Nde W Q  de ade ؅dAe   de ade dAe   de ade dAe   de a de dBe  de a de 'dBe   de a de 5dBe   de a de AdBe   de a de UdBe   de ade hdBe   de ade }dBe   de ade dBe  depqdpȥep vGdedȑd N`de W Q   SE E ^Nde ade de W Q  dBe  depqdpȥepL de`a P_ de 8dedHȱdehdbc 1 : dedHȱdehd bc!`a ?  dBe  dBe 8dedHȱdehd    I dBe  Lde W Q   Hde H N``:;<=>?@ABCDEFGHIJKLMNOPQRSLƩL `xyL EDITOR.OBJe 3 de`d) `򭖌xyxhhyHxHlH   )_CShLhLont. or top? de`d0 6Å7`67`)L< LQd67`LQ d GLQ `d)`)dJj `d))`bc JH)h ` 2Kn,X`  %K ` d Íde`HIi h`h Í) Ƀ8``H Í) Ƀh8`h`H0 chbc`H , h ꍰ  Lh``d ꍰ``` ҍd`` Í)d  d`  3 bLQ  F ? `a ө ʩÍ  G ?  3 @L{b *LG `ab I8i`d *LG+H)h) 3 3  3 LQb 4 3  bc , b}bc}c  Lbe`bceacbc8 3  3 LQ 1 d  bbLg`bH ih`h8`d$ L L3 ,,`aL+ `de`aL3 1 bd  ,,,`aL= `de`a 3 `a`d  `a L^@ūůŲL[vw`a @  j @x@y` ShhLQѨd 4O 3 bc`edad&e&`&a8`bac`b`acad`,H eh  `,H  h8`  hL hh`  L¡a  8`)a ,a ` #)"% ), ȑdꈘd` )"ȑd b  ), `b ) ȑd ! 3 `de 3 LQaL3 4)3` 4)@%`䲰` * H)h`,,,,8`.* j`hbhcbiaciHaHbdȱbe`H hdTRdRd)@d)S`d SUS` 2` j hdhedQdiaeiHaH`RR`ȹR` 1 `i`dȱ`i`IecIebdLdq``dȥeq``e( 1 L LҔ  V &LՔ V Y H H hhehd  Yh ?L AL`حS0L)JȰT)TUı`8 R ( 1 ؠbd1d 1 bd` {  L+ ؠU U StR0 ,- USI0l M S ` M`Tbb)bUHJJJJ 0 Ub` Mh) 0 Ub ` Mh`K0 S` PSI-,+ UI8i HJJJJ 0 Uh) 0 Uй.,E,0d`d` { V ,  Ly`(PUJH) ah)eaUhL LT}TT` ` miS `a^-HHaHT}ʈa }ʰhahha`L L VLVUL 8i~S膂膃ؠT7䃰L|T8TbʽT8TbyLzT0*芄>TI ƂАLzTıLhhLU #RMRS``  Rرb Nı`` R  b }b`` j  VIL ``ULVحS8P H Vhb8bŮ`JH h3b8bRM;T}T TiTLU  VLޘİT8T`T8T`L { V { ` G ȟL) G ՟L) G L) G L) # SV)mJU``U) LU)JJJJ 0Da eHd eddheeeaL(L dmem`hh (`deR (`fRSI8jH?*SUhL Y / 5 5 Y D `f  whIS`R` jhbiahciHaHbdȱbedRLgȩ` A-L A%L AL AL A L AL 2`R`U RH &hR`RHR /@ A V j pLk 2% A & D j p ʞ Lk ~ p ʞ hR`lL@ j & 5 / ` DLj 5 ` 5 V `LD ʞ RR ʞ V A D 5  ` V ʞ Ԗ ʞ V A I ʞ V A ʞ U`R jlmjZ Y y V j Ԗ)R  ēy ԖZJ y jZ)lejlde )Llejldmime  AZJ y Y 5 Y ` wЌ` V 5 V j { e) dneo ) ` 5 & Y V y ēYno!Fofn y Ԗ Y ēy j ԖL j & D `` VL&U 5 ✭ V Y Y . V ēY 5 V Ý і Lі ڜSɿUə` 5 V ULі j & AL VRULSHSnomSUq n0 {l @ n 5nde ) Ԗ 5h8d,e ) ԖL  Y ymljZ e / jLԖ'((EE#S`(tq5&bIwW$piYTIf#XP@Eh@ThCd vbr`3pyc&yHa12cQD XFhuRi1GYS Ar2XehUC`%RT` Br`!' 4 BP``p V2@!b#R%P'Vd&e >L 1 bFefd`eEcH KLeEcH hL`  1 LcH  1 hLeed`d`de`d%bde%ce`dbdece`bcdEbdeEce`d0deb*a*d` dL  dbce L ld9    xx  de`H h   &d`L88de`Hč@hLĢȅee0 d de `hhL de `de + 1  , `©@` 1 d`ea c)cbb&cb&c&d&e  bL1 c 1 ddJH b&ch` 䤥d) (L ` K L dbb,,   dbdb`dȱded` + ˡeȑb`db` + db`bȑb`  {L¡ +   ȱdb`,a + L&  1 aL dbȱdc 1 aH )ha L)``bd8bi``bedde``d``d1bb`b#biddbe``a`bacdLԢ`d  H 1 h#`mȘH 1 hd``bdd8debbc dLԢbdd dLԢ  dfeg0a 1 f ] `b-ad'`ȱbda``a`aa` (`bdL~d ȹd`d  dde` (L$     d` 1 bȱbdȱbe` d  L듥``b8`Fi8d?aa`3d`d`Hb`h3de`h`3aL   d  d`d`aea`da{)ߝa` 1 QL Q 1 Q Q 1  L1 NdOeL jjH  hIEeededꤥd礥e`f  H   L+ 1 …dÅe…`ȱ`ie…ä``0`,`  X)Hb*a*dhdd` bdd` dFcfb*d` dc bHJJJJ ɥh) 0:iȑd` dFcfbjJJJJJ 0d` 1 d bamda` cdbdd` , L ,  ( L 1 c` 1 ccIceIcdb (` Qǧdȧei 1 ڧdHۧeH h ΰ 馥cb ed yrss h yrsih`r r ʧ ` QHI ʧa`h` d`ea `aqde 1 1   `fag f`ga   # `aЙiALLަ ݧH h ` H h `iI)AIi`di@ddI ৅deL %+28>DJPV\bgmsx~ 1 `bac bǧcȧdڧeۧ dbec  hh de  1 dѧeҧbcL bIdI` J9 I,(H)Hd JFbUb()deTh)h(`de`)H IhLh  Tde`edb qd`FbU ,T٧d`  d=;)H d=;)chci(i` W ` IJ) L:L!db qŊٍ5d %db %bd %db %bbH`` %bLbb,hbd d % b %bL` b %``d0 b( q``d~e  Ŋ؍~ ~ ī ~ ~ ī ` h}h| ~  L}` ```L a `aa ( 3 `i`Lժ ` LL abc?  a 3 0( L  L(J IdŁ`}`ccbœbŒ}œ|Œ|}|}|`~deL G `bibc`b8bc`b8bc`bibc` ʅb˅c 1 ӭ `fag   fgffg`h,idsbr` Ŋd db bd db bbH`` bH ,hbbLVhbd b bLO` b ``d0 bP ``bJdU qT` K`|)b |b}cc}|8b|}c}|} cH hc |}Iȥ|b}c bcbJ Idbcb b`~Ŕcœ hh`bŒ`Jd`  ʅdH˅eH  ӭȅbɅc  L ȅdɅe  ȅbɅc  `  ʅb˅c   L1 ~~`|}|`be`|cea}` N ;ߥd~e`~de 9 `e dŔ`` 9cœbŒ奅HH{JJ hhbP{Lz{$dLL[p 1 qpqe Fpdeeeqed&e&qpߥed*LbcIiL $iHi`d [b(JU(T` dʥe˥bȥc`d))d{ 45DETUJEQH( hJ é`  1 X`dTPFdi⯍$de de,d ed(!۠V^RV   FF FF@@ 55Mbssɳ׳׳G9U+GU((PP((P(d)J L`$e0 e `)`*U      1  L1 bȥcɥdʥe I8)JL,9  ;ߘJ IQd%Qdd` dbd T`FbUL)J LXJ U 2T 2Ld"%$LU  ʅd˅e`ʥa ȅdɅe 1 d`ea %hh~ ~HH ȅdɅe`bacL`ȥaɥd"e# 0沩 粩 沩 粩 cebd 1  沩 粥de  dͲeβbcdFejeb`ca c Ͳ`βaL `a  de dͲeβ  # L # IL # I] , ` # &KL # I)d [b(` # Id [bJU(T` c LP ` c Le c |H}H 9  ` c  L c / L c8  L c*  Lɳ L c ~L߳~de` c   L c /  L L c  L c  L+ c  L9 c   LG c /  LU`a`J`J!HJ!U T h!`dId"H [!d(hi#$%{L[ L Lpd)d dId`d)bc bIc~ bdȥcd(~~$%`)JL`%de $d!eie`)JLB#fg%H$H $%%#h$h%` c ad`bc   L`de`bc d`ea 1 de ` 1 ebbcHde f; de d #  `a d~e `a` 8`debcL { ` {LRde dԶeն`a L%bc c 1 de`a thd`ea H(  ^ ~de  d~eL {V  bc chd`ea ~~ H( F   bc` { L% de8` Lbc hbc ch H(L%de cLO8`hd`ea H(&@bdceebbc F  bc  `a F `dbecebbcbc ^ L   bc` 1  (`8`ead` (`b` { L dbbbd `  LdL/ Ȣ T Xڭ`ȹ-+\$^*_. `Ha ah# Y[a0Za)@ ba @a`ЪYL/8Z]R\ZL/-bLٸ R8]P `Zi8Sa!L/Y  yYL (Ya  y y[ 0\+R( R- C^*b C_*b Gb  CL   bc0bcbcb(bcde  (`hixhiyx h 3.4 3.4/ lx󾔒ϑ<x1 ˰ ƣy{b鐈FT[ȟB٤ih\ ˡ @{Y yä oҚ iҔwȢ.d՟⟮+ҡʽ a^t=1 Q^hV|ʤϾ٣1;gRm_beܾ6ґrȸΨvlir!P c %PAWi5Ы2S¡I)b5H`e ʚښYcƔÔE`rեֽ (ԖP?VOÝ["?ђ dd de` db dc` dHxdyehexxyL든xxy` *(hhd8eHH lx  bxȱby`dxey`x`ya >de  L 1 ` 3 -Lܽ 3 #ɓ, ɃLɚݽIݽ,Lܽhh`,ݽ` d` da HH DL Break in Bounds Error in d4`d) 988l ӍL`d`a LF 3Ldexixy`U dH dyhx`tuhhL 3 9  -,hh |lDLT(DLT$dlt$DLTdltabcDLTDLTDLTDLTDLT 105 BP(5), M$(5), MP(5), CARDS(5), FAME$(10), FAME(10) 5 &85,0VER$ = "1.0.22" BP(1) = 20 BP(2) = 70 BP(3) = 120 BP(4) = 170 BP(5) = 220 M$(1) = "ABOUT" MP(1) = 3 M$(2) = "HELP" MP(2) = 11M$(3) = "TEST" MP(3) = 18M$(4) = "FAME" MP(4) = 25M$(5) = "QUIT" MP(5) = 32 SEED = 0: CLRLEFT I = 6 17@(1,I)" " I : CLRRIGHT I = 6 17@(32,I)" "  I! ":# RESETHALL$ "O",1,"ESP.OBJ"% I = 1 10&FAME$(I) = "---"' FAME(I) = 0(#1,FAME$(I);3,FAME(I)) I*#1+ ,:- PRESSAKEY$./ 5000"@(14,PRESSY) (15);"PRESS A KEY"1Z$ = 2 Z$ = ""3 10004@(14,PRESSY) " "5Z$ = 67 Z$ <> ""8 (14);9 = Z$::; PRESSAKEY2$< (14);=> 500? @(33,13) "PRESS"@ @(33,14) " A "A @(33,15) " KEY "BZ$ = C Z$ = ""D 1000E@(33,13) " "F@(33,14) " "G@(33,15) " "HZ$ = IJ Z$ <> ""K = Z$L:M"I",1,"ESP.OBJ"N I = 1 10O#1,FAME$(I);3,FAME(I)P IQ#1R -1S 4TX = -30UY = -5V "Draw Square"WX = 160XY = -5Y "Draw Circle"ZX = -30[Y = 95\ "Draw Cross"]X = 60^Y = 97_ "Draw Waves"`X = 165aY = 100b "Draw Star"c (15)d@(13,5) "E S P T E S T"e@(13,10) "Copyright 1989"f@(13,11) "by Dave Touvell"g!@(11,12) "All rights reserved."h (14)i PRESSY = 20jZ$ = PRESSAKEY$k) Z$ = (22) @(5,5)VER$: PRESSAKEY$l Z$ = (18) RESETHALLm 0n "Main"o:p GET$qrA$ = sSEED = SEED+1t A$ <> ""uSEED = (SEED)v = A$w:x "Draw Blank"y -1z 65,45 215,145{|:} "Draw Back"~ "Draw Blank" 6 X1 = 75 205 5 X1-1,55 X1-1,135 X1,55 X1,135 X1+1,55 X1+1,135 X1 Y1 = 55 135 5 75,Y1 205,Y1 Y1:"Draw Square" 1 I = 0 1! X+35+I,Y+10+I X+113+I,Y+88+I I:"Draw Circle" 2 R = 40 39 -1 X+75,Y+50,R R: "Draw Cross" 0 I = 0 1 X+74+I,Y+10 X+74+I,Y+90 X+35,Y+49+I X+115,Y+49+I I: "Draw Waves" 6I=0 FOR I = 0 TO 1 J = 0 2 X+30,Y+42+J*30+I,32 32,64 X+75,Y-2+J*30+I,32 160,68 X+120,Y+42+J*30+I,32 32,64 J NEXT I: "Draw Star" 5Y1=Y X1 = X-1 X+1 FOR Y1 = Y-1 TO Y+1 X1+75,Y1+10 X1+85,Y1+35 X1+110,Y1+35 X1+90,Y1+53 X1+100,Y1+80 X1+75,Y1+65 X1+50,Y1+80 X1+60,Y1+53 X1+40,Y1+35 X1+65,Y1+35 X1+75,Y1+10 NEXT Y1 X1:"Draw Cursor" CLR, BP(CURSNUM)-5,CY-5 BP(CURSNUM)+45,CY+30:"Draw Buttons" BY = 160 -1 B = 1 5 BX = BP(B) BX,BY BX+40,BY+25 BX=20 1 BX+10,BY+5 BX+30,BY+20 BX=70 2 BX+20,BY+12,10 BX=120 0 BX+20,BY+5 BX+20,BY+20 BX+21,BY+5 BX+21,BY+20 BX+11,BY+12 BX+30,BY+12 BX+11,BY+13 BX+30,BY+13 BX = 170 6 I = 0 2" BX+5,BY+10+5*I BX+12,BY+5+5*I BX+20,BY+10+5*I BX+28,BY+5+5*I BX+35,BY+10+5*I I BX = 220 5 BX+20,BY+3 BX+22,BY+10 BX+30,BY+10 BX+24,BY+15 BX+27,BY+22 BX+20,BY+17 BX+12,BY+22 BX+16,BY+15 BX+10,BY+10 BX+18,BY+10 BX+20,BY+3 -1 B: "Draw Menu"MY = 6 = -1 MX = 20 220 50 MX,MY MX+40,MY+25M = (MX-20)/50 + 1@(MP(M),2) (15);M$(M);(14) MX: GETPICKOLDPICK = PICKNUM "Pick Loop" Z$ = GET$ Z$ = (21)PICKNUM = PICKNUM + 1 PICKNUM > 5 PICKNUM = 1 Z$ = (8)PICKNUM = PICKNUM - 1 PICKNUM < 1 PICKNUM = 5  Z$ = (13) "Picked"  Z$ = (27) "Do Menu"  200,50 CLR = 0 CURSNUM = OLDPICK "Draw Cursor" CLR = -1CURSNUM = PICKNUM "Draw Cursor"OLDPICK = PICKNUM "Pick Loop" "Picked" = PICKNUM: "Do Run" CARD = 1 25"Pick A Card" C = (5) CARDS(C) < 5CARDS(C) = CARDS(C) + 1 "Pick A Card"  "Draw Back"! @(32,9) "Which"" @(32,10) "symbol"# @(32,11) "is on"$ @(32,12) "this"% @(32,13) "card?"&CY = BY'PICK = GETPICK( CLRRIGHT) "Draw Blank"* C = 1 "Draw Square"+ C = 2 "Draw Circle", C = 3 "Draw Cross"- C = 4 "Draw Waves". C = 5 "Draw Star"/ PICK = C0 3000,1001HITS = HITS + 12@(32,7) "CORRECT!"34 50,5005@(32,7) " WRONG! "67@(2,6) "HITS"8@(3,7); "##"; HITS9@(2,11) "CARDS":@(3,12); "##"; CARD;PCT = (HITS*100) / CARD<@(1,16) "PERCENT"=@(2,17); "###";PCT> PRESSAKEY2$? Z$ = (27)@ "Draw Back"A "Do Menu"BC CLRRIGHTD CARDEF:G "Do Menu"H CLRLEFTI CLRRIGHTJCLR = 0KCURSNUM = PICKNUMLCY = BYM. "Draw Cursor" == erase button cursor ==NCY = MYO, "Draw Cursor" == erase menu cursor ==P PICKNUM = 1Q "Menu Loop"R CLR = -1SCURSNUM = PICKNUMTCY = MYU "Draw Cursor"VCY = MYWMENUNUM = GETPICKX+ MENUNUM = 1 "Do About" : "Do Menu"Y* MENUNUM = 2 "Do Help" : "Do Menu"Z) MENUNUM = 3 "New Game": "Do Menu"[* MENUNUM = 4 "Do Fame" : "Do Menu"\ MENUNUM = 5 "Quit"] "Menu Loop"^"Quit"_`a:b "Do Buttons"cCLR = 0dCURSNUM = MENUNUMeCY = MYf "Draw Cursor"g CLR = -1h PICKNUM = 1iCURSNUM = PICKNUMjCY = BYk "Draw Cursor"lm:n"Main"o "Draw Menu"p "Draw Buttons"qX = 65rY = 45s MENUNUM = 1t PICKNUM = 1u CURSNUM = 1v "Do Menu"w:x "New Game"y SEEDz "Do Buttons"{ HITS = 0| I = 1 5} CARDS(I) = 0~ I "Do Run" PCT > FAME(10) "Draw Blank" (15) @(11,7) "CONGRATULATIONS!" @(11,9) "You made the ESP" @(11,10) "Hall of Fame!"! @(10,12)"Enter your initials:" @(18,14)"___"X$ = "" I = 0 2 @(18,14) X$;(14);" ";(15);"key" Z$ = GET$% Z$ = (8) X$=(X$,(X$)-1):I=I-1% Z$ < (32) Z$ > (126) "key" X$ = X$+Z$ I @(18,14) X$;(14) FAME$ = X$ FAME = PCT I = 10 1 -1 FAME > FAME(I) J = I I I = 10 J+1 -1FAME$(I) =FAME$(I-1)FAME(I) = FAME(I-1) IFAME$(J) = FAME$FAME(J) = FAME "O",1,"ESP.OBJ" I = 1 10#1, FAME$(I);3, FAME(I) I #1 "Do Fame": "Do About" "Draw Blank" (15) @(11,7) "E S P T E S T E R" @(13,9) "Copyright 1989" @(13,10)"by Dave Touvell" @(12,12) "A program to test" @(12,13) "your ExtraSensory" @(12,14) "Perception." PRESSY = 17 PRESSAKEY$ "Draw Back": "Do Help" "Draw Blank" (15); @(10,6) "KEYBOARD COMMANDS:" @(10,7) "--> cursor right" @(10,8) "<-- cursor left" @(10,9)"ESC activate menu" @(17,10) "(cancel test)" @(10,11)"MENU ITEMS:" @(10,12)"ABOUT program info" @(10,13)"HELP this screen"! @(10,14)"TEST take the test" @(10,15)"FAME hall of fame" @(10,16)"QUIT exit program" PRESSY = 17 PRESSAKEY$ "Draw Back": "Do Fame" (14) CLRLEFT CLRRIGHT "Draw Blank" @(14,6) (15);"HALL OF FAME" I = 1 102 @(13,I+7) FAME$(I);" ......";"###";FAME(I);"%" I (14)Z$ = PRESSAKEY2$ "Draw Back": /// End ///