IMD 1.17: 27/12/2009 19:47:25 kaypro microsoft basic-80   0\X COPYRIGHT (C) 1979, DIGITAL RESEARCH _͌> ͒> Ò> Ò͘~#͌ì _2<2 凇!2:2a{_:ʖ:>Ľʖ:=2–!B!6#5ʖ:S:2E!~Яw>T D^6k-äPYy 5*{zBK5ڋ>*Cw~#+w#w+ɯ2E22i^ *C :~w~͔͔# #  w ~>2!E5T*C!"C"C!w# F! w͌x2͢*C ~<wʃG:!ʎ w4!Y~ʆ͌†t=ʆf ^ T 2o&)|+!<ͧÆNO SPACE^ :Ty!B*O=?_s#"^sG!~Ypsp2mÆÆf ͧÆFILE EXISTS _: É: :ʉ=2)ͽÉ T!@k!}|q=qf^!~2>`~22\!!B!~> >#0~O#Cx2͘1)ͽÂf zͧÆBAD LOO*!O*|!6ʝ6>*w#w*w#w'û*! J*""!N#F*^#V*~#foyx*{_zW+*yx#*DM*s#r*s#ryOxG*0MD!!N: EG>O: \S*C :qn& ^#V>O^"*}:*)=":O:o"*C *C!ͮ~2~2ͦ:2ͮ:O:w:w |g}o*# ):BO!yoxg*:BO}!N#F "*#*s#r^ ~!J! J*:o$*C~i6iw*Ľ!ͬʧ )!F#xʺ~0wëw!" !~6ͽ:ý(!#͘*~ ""͌#>?͌͘ =_.:;<> Oo$>!Y2*O"ʉ@G:ʐ:wÖx2p0ʹ#*©6?ëw˜0ï#6 ¹.0#*6?w0#6 #6" #~?  xDIR ERA TYPESAVEREN USER!yO#< Ty#O 321y_͸2y2ͽ:ì 4~ʶ¬:<ʶ$ʶïZͻx>2>2ͻ:!Z2:Eẅ́͊Ͳ>2>2T*CGͻ:ẅ́n>2;O ^DM;}H>"*C ::ddslO s#r:E͊:==»y==»*Ww#*"͸*:G#š"͸:!w4!iw:Z!E~=262*C!!~~#~O~G#n,-.‹! w! yG!x͢.:E<ʄ! q!pQ:E<. ʄ$.:E<ʄADCOMf^: ! Â$$$ SUB"C{2!"E9"1A22!ty)K!G_^#V*C~E ,&-AGMS!!ô!ô!Bdos Err On : $Bad Sector$Select$File R/O$:BA2!~6 O͐  :E B 2>: b# : y! 4 5~yy5 6y*{#zr+s{ozg**͕** ,w͜͸Ͳ!!N#F$**O!~#:A#~$=2Ek͌::/GyO>2!q*C"͡ʔ*JҔ^:Oyʃ?|x | s-|N-# 1͘A͌>>͌92^ :¥.!_~#fow]!v"!çREAD ERRORçNO FILE^: ! ~ 3#0 Wx x G ~ # 3x~#B!Y~ɯ2:=!ý:=!:ý^T!~  6?#ˆ:`O> K{͘A͒>:͒͢>:͒͢xK > K > ͒x  ͢ØÆ^ BRͧ9!5‚#~Y‚#"T<ÆALL (Y/N)?^ Tʧ͘!6!~ڇҐ^H@Oy H H: –ͬ  #H: !  Hù H H $O͐: 2 *CN# x: 2 p&x~+é72 H! >w_: ! 5ͤNkͱ¦ͱxʊ#Nx: ! 2 ͤ! 5™#wO~x½p Hy<< ʑ :!qMD#2E>! ^#V w#P:BO|^#V#"##"##"##"!A     ALIENS COMpCATCHUM COMe CATCHUM DATLADDER COM !"#$%&'(LADDER COM;)*+,LADDER DAT-MBASIC COM>./0123456789OBASIC COM:;<=>?@ABBIO BASCDBLKJK BAS#EFGCHASE BASHIHORSE BAS#JKLMBMENU BAScMNOPQRSROCKET BASTUSTRTRK BAS!VWXYZ[\]^_`TAXMAN BASab*K͞+88?'+FÎr ͖ 8{ Ăw#w#w^#V#*~#fo^#*~#fo^#V#*n^#*n^#V# ~#fo^#& ~#fo!+!#!+!#!+!+}|z{|}|z7||7zZZ)|/g}/o#|͉k|/g}/o#ɯ2qZZk:q|/g}/o#|/g}/o#:q<2qqDM!xxGyO҃)v|͔`i|)Öxڷz/W{/_ѯzW{_=yOxGæ2qZZ͉M|}ȯ|g}o)|/g}/o.(.$. .2.2.:4(.!s1&{˿~#O/TRADE BASdcdefghiWUMP BAS+jklCLOCK BAS1mnopqrstuvwx#z/W{/_!9~#fo! ! ! ! ! ! !9~#A"s!`*"!"!Y">2>2>22!"!"!@"!" ʞ!F#x±~#±!b2r~# "2r+}|~#G:rx"2r+w# +6#!6#2w2x*s!>r<o&F=-` r'~h6!+`W?_!~7z?` :>ª@w#G.¶ww#?*>?w#> w#.7:77i6}2ExN! ~态O>G~G!~G} *C!r#r#r ^ͥ_y#x#{s+p+q-*C ͥ!!q#p#w*:BOYG}*MD "ã:!Bw!>2*C~=2u:B2~2wE:A*Cw>"!""2B!"!rQQQâ~?ͦ~?rQ*"CQ-Q͜QüQrQ$Q*):B"*)*)Q;*"E:;:A2AQÓQÜQ*C}/_|/*W}_*"}o|g":ʑ*C6:ʑw:2E**E}DQ>2HÙ /HC>|ÀÄÈÌÐØeè  0123456789-, .x2:32:G KAYPRO IV 64k CP/M vers 2.2 >!2"!2":Ox Warm Boot 1̀̈́!",͈͐ *"2~ >(̈́!4(:.3ʬ.*ì(:.6ʬ.-ͬ!5O ~:.9ʬ.Eì.6ì.9ì:.9ʬ.?ʬ.E@ʬ.9ì:.Bʬ.<ʬ.0. ,  !a{   `OE!y6$ -7rBo&))T])))!yV5:=b#:=#:$=2#v+:<"(">6͋5:&=͋5#*&=|"M1Ϳ5#>6͋5:&=͋5>#͋5>6͋5:'=͋5#*&="<(#>͋5:&=͋5>s͋5>@2=#R1Ϳ5#(,#:==2=)(@#>s͋5#͘(Y#X1:>͋5:&=͋5c1Ϳ5#f1Ϳ52=#(—#>͋5:&=͋5>{͋5c1Ϳ5#(#:$=µ#>}͋5c1Ú#:$=;-͘(#>&͋5͋5f2Ú#:$=$v+è":76#6\1+|*7w#wM9|>*96#6͓\1|S*16#6\1|n*16#6\1|ʉ*16#6\1|ʤ*16#6\1|ʿ*16#6\1|*16#6+7 /=,!9DMM9>>.>>.>+>väM;!!bM;!!cM;!!dYM5###*;s#rM;!!eM;M9!gM;M9#!i*3w#w\37\3))*W,0,0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,09w#w\1.M5M3 ! *3w#w\3\In\3))*=w#w*3^#Vr+s9*Cw#w*Gw#w*3w#w\3B!\3 *5w#w\5P1\3k*\5)\3k*Q\5)~#fos#rz! ! *5^#Vr+sù*3^#Vr+sÏ*iw#wLevel:%2d Score: %-5d B L O O D B A T H W E C O M E I N P E A C E ! T H E A L I E N S S T R I K E B A C K !I N V I S I B=$,v+2#:$=>$$>͋5v+>͋5>@2$=2#*="<1Ϳ5:=2="<|s$}d$[2Ϳ5z$g$[3Ϳ5>G>)͋5$#͞*D)͏,Ͷ,v++4ʱ$êG0ñ!9DM*Ow#w͐ ! ~#fo##~#fon&͡|ͤ! ~#fo##~#fon&*Os#rͧ7 47!:!R!!Usage: aliens is the level of difficulty from 0 to 9 level 0 is the easiest and is the default 77Ì ÊÑ5Ø "Æ&!ʹͷͺͽ\1++++|~#foM9n\3))*W##~#fo#M;n\3))*W##~#fo###M;n\3\O\3 ?`is#r\1+|ʧ͐\M`is#r͐ڻ`i6#6*-~#fo͐s#rM;M9#!k\1!m\3))*W##~#fo\3))*W~#fo!*9w#w\3))*Ww#w*E^#Vr+sY*3^#Vr+s*3w#w\3\IRM9\3))*=~#foAM;\3))*=##~#foAM;M9!oM;M,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0rookieearthlingspace cadetyeomanlieutenantcommandercaptainadmiralmaster assassin ++17 =,à7 !! \O!Q* * \-!\* * \1>H>ʇ>T>ʒ>`>ʝ>l>ʨ>x>ʳ>„>ʾ!i ! ! ! !! !O !F! \1\/!|* * L E A L I E N W E A S E L S ! K L I N K E R T H E B L A C K H O L E ! Bases: %d ÖÓ---\1+|M5\OH*76#6M5*76#6͍|͐*aska&|g}o>z>>,>>c*>>/6>>xB> >.N> > Z>(>f>A>r>A>q~>A>Š>A>1–>G>2¢>b>3®>}>4º>ʘ>5>ʳ>6>\1+|*76#6\1+|* \1++| \E|, \G|, / = õ'!9DM`iw#w! ~#fo͐n}ʃ ! ~#fo͐n&: `i^#Vr+sK !9á v00'7 c(Ê*-w#w*Gw#w*Mw#w! *Q͏ ! *͏ !3 *͏ ! *7͏ !s *b͒ !z *q͒ ! *͒ ! *͒ ! *͒ ! *͒ ! *͒ ! *͒ ! *͒ ͕ *͘ *1w#w͛ \1| ͞ ý *-w#w*/6#6*96#60,0,0,0,0,0,0 *E67#6\O *7s#r\7\9F\9*7s#r\O*Is#r\I s*I6 #6\O*Ks#r*5w#w\5ڕ!\7\5? *3w#w\3 ڄ\3\5|g}o\5? ! \5 ?\3))*W\7\5?s#r\5 ?\3))*W##\3?s#r*3^#Vr+s*5^#Vr+sÕ*A66#6*;w#w*=w#w*?w#w*36#6*56H#6 '*56#6*7w#w*A     9#!q*9w#w*G^#Vr+s\3))*=w#wY*3^#Vr+sÊM9$M9$M9k*M;)~#fo|$M;M9\1++|!M9k*M;)w#w!sM9M;M9#!u*9w#wYMi|M9+|M;MgMi*3s#rM;\3\3!!w\3!!*iw#w*-~#foMes#rM;!!*9w#wY*9^#Vion: Alien invasion in progress! Type: <,> to move the laser base left as above, for lefties <.> to halt the laser base for lefties to move the laser base right for lefties to fire a laser beam <1> to play "Bloodbath" <2> to play "We come in peace" <3> to play "The Aliens stro+8! ;\C))*=##~#fo\C))*=~#fo8! ;\C))*=~#fok*\C))*=##~#fo)w#w\C))*=w#w*G^#Vr+si \C))*=##~#fo\C))*=~#fo+8! ;\C))*=~#fo0 *G^#Vr+s\C))*=w#wa \C))*=##~#fo\C))*=~#fo8! ;*C^#Vr+s\ Bases: %d *ç à7+17 !9DM`i6P#6Mi|/!͛ *3s#r!`,!\30!*i6#6*g6#6 !\1++| %\A*3s#r\3|]%\3))*W~#fo|E%*3~#fos#r!%\A))*W##~#foM5\Kڄ&\A))*W##~#foM5###\K҄&\A))*W~#foڄ&*3w#w\3\I҄&\3))*=~#fo|s&\3))*=\A))*W~#fos#r\3))*=##\A))*W##~#fo##s#r*G^#Vr+sÄ&*3^#Vr+s%Ø&++17 7͉&! ! ͌&\O&*&\Ok*b!['*͏&*͒&*O^#Vr+r+szVM;!!M;!!*-~#fo\O#s#rY!9||   Ú+=,M7|§*5~#foM7s#rM5*56#6*7w#w M5H *56H#6*7w#w\13M5M3͔!͗P+7 =,1/+07à7*Cw#w\C\Iz \G|w\C))*=~#fo|“i \C))*=^#Vr+s\C))*=~#foQ\C))*=##~#fo\C))*=~#fo+8!| ;ike back" <4> to play "Invisible Alien Weasels" <5> to play "Klinker" <6> to play "The Black Hole" to quit +7 *++7 !9DMw*&*͐w(ѯgsw+&*͐w)ѯgs*+C,7 !9DM\1w,͐|w,͐w,! 6#6͐>‡,>,>“,>,>Ÿ,>->«,> ->·,>->,>!->,>,->,>7->,>B-]-!_-@,]-!e-@,]-*i6#6͐*gs#r*e6Z#6!Mg!͞ \1j!Me!"*͡ *ͤ *e^#Vr+s*g~#foMis#rMg*3s#r͐!\3!MgMi!͞ ! "ͤ *iw#w!9 <=%d=> $"/+0+=,\A#*As#r!7ڗ"\E|J"*=w#w\;|ʌ"\?*?s#r*=6#6*;w#w*Aw#w\A))*W~#fo*3s#r!""%"\3"*-~#fos#r""\?|#\A))*s!o'*͏&*͒&! ! ͌&\O!'*͏&*͒&!2͕&Congratulations %s - you have won at level %dNow let's see how good you are at level %dû'7!9DM͐!͸'*3w#w\3 a(\3*\3*ns\3*n}-(\3**s\3*n}P(\3*+s*3^#Vr+s'o(++7 f(!!i(!(l(!$)l(!Z)l(!)l(!)l(!)l(!*l(!>*l(!n*l(!*l(!*l(! +l(!H+l(!t+l(!+l(Attent\C))*=w#w\C))*=##~#foM5N\C))*=##~#foM5N\1҅M5M38!>*/^#Vr+s!F!8\/!~ *A*;*-~#fos#rD\/|G!JM5!8! ;*56H#6M2**56#6\1NM5!8!>i \C))*=~#foڴ\C))*=~#foҴ\C))*=~#fok*\C))*=##~#fo)~#fo|ʴ\C))*=##~#fo\C))*=~#fW##^#Vr+s,#\A))*W##^#Vr+s\A))*W##~#fo*5s#rzʁ#\5\MK\O?ڍ#*;6#6\5\3"\=|#!!"\A))*W^#Vr+s*3s#r\5\3"\5\3|g}o\A?!"\A))*W~#fo$\A))*W~#fo$\A))*W##~#fo*5s#r*36#6\3$\5\3|$\A))*W~#fok*\A))*W##~#fo\3)w#w*3^#Vr+s{$\1+| %  !k-@,]-!q-@,]-!w-@,]-!}-@,]-!-@,]-!-@,]-\1R-]-!-@,]- OXO XOX \o/ /o\ "M" wMw xx|xx #Ù-7!͖-|ʾ-!͖-*,s!!w,&-+=,7 747!9DM\1ں.\1`is#r*16#6*3w#w\3ڪ.!\3-*5w#w\5Pҙ.\3k*\5)~#fo+|€.!-È.!/-*5^#Vr+sB.*3^#Vr+s.͐*1s#r\1ھ/\1`is#r*16#6*3w#w\37Ҧ/\3))* @PP"tz*t!9~w{_!y+##!t2*t  |g"t!H[ >'-fw# G>@2t2t t͎ z %*t£t*t"t>2t:tWz !t:tw t͎ z !tt͡ !t:tw:tW!t.tz r2t.to&G>Ow# q#(:t!tRt I>qtj ^!t? t!tw7>' #e +>'w#>'w #‚:t2t !t~PI:tI6!t~ Q+w# @ y6w{2tt!t~#!t~#!tq#s#r! ^#Vr+s! 6 (3! 6(3! 6! ~#fo! n&! ^#Vr+s~#fo! ͔1ѯgs#r4! ^#Vr+s! ^#Vr+s~#fos! ^#Vr+s4! n}¬3! 6#6! ^#Vr+s~#fo! s#r͐n}4͐|4! ^#Vr+s! ^#Vr+sns! ^#Vr+s! ^#Vr+s3͐6! ! s#r! n}h4! ^#Vr+s!h4! ^#Vr+s! n}_4!0b4! s-4͐! ^#Vr+sns{ʑ4! ^#Vr+sh4! n}4! ^#Vr+s!4! ^#Vr+s6 Û44! ^#Vr+s`ins4! ^#Vr+s`ins1͐6!9P8)CATCHUM x&'#&F'#)!"s͖* d  =""6#}|B=!"s "}00-!~G#~ }q+ph##a"p#w *t"t"t"t*t*t*t}!a6#6#q#p*t"t*t|`i"t* ,X5 }HƐ'@'_ ERROR $ AT PC $"DM6#6#!"*{w#zw!">2DM}|*ڄ"^#V{^#V{_zWڄ{zҾ*w#ww#w###s#rq#p#!5#ʄOM+F+N*}|!"~#fo{z W~#fo|ʕ/\3))*W##~#fo\3))*W~#fo-\3))*W##~#fo\3))*W~#fo|g}o\3?-*3^#Vr+s.͐*1s#r!2-!!-* --!9 /+17 !!/\-!&0*/*/%d 40+ñ!!.010!9DM! n&0ͯr0! n&9ͯ|0'1!9DM! y0`is#r!ʷ0! ^#Vr+s͐s#rÄ0!9!9DM͐`is#r! ^#Vr+s! ^#Vr+sns{00͐0!t"t~#I+Gt*t '#4?IGt*t'w# 6!t5*t# tj !t~ȯw+6+wk:t<2tOF!t 怮w F_#~ȓALw>2t`i"t2tt*t>'#>'#>'#>'#>'#>'#>'>'wڪ*t #~'w!t~w:t=42t!tèt͡ tj ^DZAy2tx2teOG>F2t!tr#pi`)!t~'w# z !t +· #?±! ? !tڽ=>q# pT]w+ ~w!ttG# 5G0!9DM`iw#w! 6#6͐ n! s{ 95! n} G5! ^#Vr+s5! n}-f5! 6#6! ^#Vr+s! ^#Vr+sn! s5|ʧ5͐ ?! nѯg`is#rf5͐͐?÷5!955!9DM͐͐ 6͐^#Vr+s͐ 6͐0 6͐7s!&a6͐ ͐͐ ͉͐5`is͐ ͐͐ )͐5`in&#&a6!9p6G0!9DM`iw#w͐~#fon&m6}ʽ6͐ ?͐^#Vr+snѯg`is#r~6͐6!967!9DM! n&6|6! n&6! n&}|~#~#~#O~G!}|*##^#V}|?s#r##q#pw#w#~w#~w7!N#F#~#foho}|p`i}W!9BKá DM!9͡ !9! 9N#F#͡ ͱÒBKz !9DMz ͒DMz !9DM! 9DMz !9DM͒ͱͪ!9DMÎ ͪÎ DMz !9DM$ !9DMz !9DMͱͰͰ $Fͱͧdͧ !9DMz ^͆ͧ! 9DMz !9DMͱd å͆DMV!9DMz !9!9!9DM  z ͪ!91Ñ1!9DM! ͐ 1-15!9DM͐~#fon}I1!È1͐~#fo*1`is#r͐~#fon}ʁ1͐^#Vr+sn},ʁ1\1͐È1!9à15G0j66!h9DM! ^#Vr+s~#fo! s#r͐! s#r! ^#Vr+sn`is{4`in}%4! ! s#r! 6#6! s! s! s͐n}-02! ^#Vr+s! 4͐n}0@2! 4͐n&͗1}]2! ͚1`2!! s#r! ^#Vr+sn`is{.¨2! ͚1! s#r! 4! ^#Vr+sn`is`in&͝1}D2U3X3O"3Ch3Sʙ34͐~#fo|3! ^#Vr+s6-͐͐~#fo!9DM! n&aͯ07! n&zͯ  |F7""|7 ! ###R7""  Wait a few seconds, and type a CR: $*>Hʮ777*|g}o"zg{o"|g #+|7'z7 777*+++:G_*DM!8o&=y5x5   Ú+=,M7|§*5~#foM7s#rM5*56#6*7w#w M5H *A     :tз$ !t!t5q!ttw+, p!t55 pt + + + + + + 'p P'> 'p o g"t`itå *t|˜ ɵ!tå ~#~#~#~#~#~#~#~#!t'w#'w#'w#'w#'w#'w#'w!9~A 6G>Mw|! DM!x, y)2 )8 )> )D )J )P )V )| | ʜ zv x)yOxGyxڎ GyO#=z ogeov v )ڱ #© OÓ [ `i!:tA*(>2u6?#`4{4_:O*O?Hw#:|uWIF>?C*ju*qu}O|Gr# xm*qu*ou#{z"ou2uj.:00:uҶ*hu!~w:u*hu!~wyH*hu!^w#Vw"}u\>*tu)uw#w>u^#f|OEk2uj.yM:00I*hu!8~I!~wyR\ME>u s#ru ^#VzFU"hu*tu)>u ^#V"vu͵*lu"zu!9"xuRnu ڻ:suRB=!RU!|IR!+DM*lu*ju{o>g+{z_yW͞!*hu s#r!nu~w"ouͲx/  GyͲx0Ͳ:t*Ͳ2t2t:t:t2t"t|O:tÐ~W#^#:txzn~#^|~:tŒ2tNS"t"t:t/ʴ!&\UIJUÖ͍U/´͍Un͂yͲ 3 :t> !s4O:t*. Y 3 ͘>2s> >  '3 :t:s/> <59 9:t,*s&:s5 >5X,X !t:s= 2t!t~5*t~Ҟ+"tâ0G>0Ͳè0:t:t:t>,*t:t> >-*t|*F>2t~:u=2uETeT"yÑG@ :u2u<x@: uN:u<2uy TG-_mxpڑGڊOxG{‘G:u@*uwɯ2uy2u+->2u)DM)) O Ҿ:uz/W{/_s#r:u=2u~#0:?^#V* }||~!tN q!t ^!s!t n&*hu"t*hu!4#B0000<CE!0;"0;:00*hu0t:00ڛ| "tWEX:00ڻZ"tWEX:00%"t<EX*hu^w#Vw* }||gDM!x  "t"s"sͺ*s*s: "t!9DMz !t"t:t 2t:tm 2tNN:t# $ U$ >$Ͳ:tp *Ÿ U* >*Ä .· U#>.„ 2t - U# .>-„ >2t2tO >2t \UIJUp 2t > 2t U# , >2t !tq.0 >2tU#0 $ !tq^C U6 !tq-T >2tU>2tt͎ :tO 2t2t!tr#s :tʁ =2t:t> IJn :tʝ Ͳ:t!t6 y@Gʷ /%Ͳ2t2t2ttz :0!e͝z*0͝z*0͝z+0:0W!e͝z+0͝z+0*}u*jus#rR*hu!.! ~#~!nu>w:su2udº!u5\è:nu2nu\v͞J"ouͅ:nuԅ*ou~ *lu|RE!ev:nu͞J"ouͅ:nuԅ*oun&!s 6,a WGy24 p#4*lu|s!"u ʌ"ʌ!u6,!u6!s"uï2u!s"u2u:u ¬ »!u *uw#"u!u~ yò"t!t454!:t#/!&$U$>$Ͳê*U*>*-U#.>-\UͲUí*t++!"to:00!{~Gwog:00> !> !>*o|qF#N#lNK# xb K " u2u:00ҘS*t#"tҀ s  >2s:u,2 u2tGW2 u^͊~" ~!"u>2uzW{_!u5@*u( |g}o"u*u|g}o"u*u*uDM*hu9J"jut*ju"jutBN|>>>)=~9 a"hu9p#z“͵ *hu "ou"qu}2suRlu*hu$ ~#$*hu lu w#͵u~#DF*hur+s"lu:su=|!nu~@w"tu)|'>(>NF|P~P#~#OG*hu:00Ҩ#> 6 #=Uxs:sw#2uʤڌ zʤ.ˆ2uʤ ™"u!u"uxOw#·pu|O*hu!~!86w!DM!0 w#ä:u :t2tGy@w:t!t>+ >+ 4!t5<2t:t!tG:tD :tOxGxn tW?< =Q zc zj !t~n ^T :tœ :t!t  :t :t >-Ͳ G:tOW*ʰ $° $ :t!t  O zͲ yͲ:tuc:tc:tuc:t > Ͳ>0ò> 2ttj ^!t~2t6Ͳ:t@2t!t 8<7w>>6!tp2t/O!t #J X y2t=/2t:t>0̲u͊Ͳ:t=!t5o:tͧ2t!t~>.ܲ:t!t/:t¿:tG:tҷGø2txͧ:t!t5͊Ͳÿ:tͧ:t>EͲ!t:t5~ /<-Gy͖^^~"2 uͥ~,&^* u:sWo&##a6#sGw#N* us#r:s#hͥ: u+~z":u À!tq~!s w !trimproper input - reenter $|##ap#q#w xs#r/x ! w#wDMâ/âDMÜ/Ü*tDM*t}|GODF#N# "tNgoHOKo&Ho&}2uo&E{2xn&}!9O͢ "u>2uy2uw# ±+2 u2u +->2u0. : uڑ/2 uyN0  s+r*u*u|V#^#*u&##a"ur#s8#w x3:uPOs#w H*u|*u"u> fs#r.Ü.â>"fs#r*lu| “!nu~ЇwWR!R*ou*ju{_zW{zw*xu*vu|DW!G:tx *lu|*zu|ER!+"zuv,͞*ju"ou:nuJͅ*hu! N#F p+q*ouw!nu>we}:tq>"<:t>"Ò6 Ò :t>,:tڪ>"<:t>"6  :tܛ*zu|++> +|> > ͛* J . . J . J/|/. . . o/|1+------/./|/./|/./-------------/./|/./|/./------+1|/. . . J . ./|/. . . J . J . . ./|/. . J . . ./|1|/./----------+------/./|/./------+----------/./|1|/. . . . . . . . . . J/|/J . . . . . . . . . ./|1+-------------------+/v/+/v/+-------------------+ #Linking to configuration program...Unable to link to &CatChum configuration program missing.CatChum not configuredYY0 Bonus! \ .oJj=/<>^v-+|\-+|Hyper'sDifficulty level: NO HYPERSP*{z"\‚#*#  overlay does not match root$!`#"~#P#!À\ʀ\\*u}ʣ#{Ozر~#foÐ#=&PY& |###a"u)&1&1&&&*u! 9SLz:$|D$&PY&y_xWP$x$$# x$&&4$6$ɯ>&$7$&$7?$z$N#Fyb$x+p&|w$~&~ws#r&ʍ$n&&AC!a)&q++*zSS&yx$PY##a"u)&BK1&&*u|&++&zSS&yO# )y0 !)y_A6x7?|~|DM~G#N#=""6#}|B=!"s "}00-!~G#~ }q+ph#1+-------------------+/^/+/^/+-------------------+1|/. . . . . J . . . . J/|/J . . . . J . . . . ./|1|/./+-----+/./+-----+/./|/./+-----+/./+-----+/./|1|/o/|/////|/./|/////|/./|/./|/////|/./|/////|/o/|1|/./+-----+/./+-----+/./|/./+-----+/./+-----+/./|1|/J . . . . J . J . . ./|/. . . J . J . . . . J/|1|/./-------/./|/./------+------/./|/./-------/./|1|/. . . . . J/|/. . . hu!.! w#w*ou+"ou!nu~w*xu*vu|EFu ^w#VwzCU!"huR͵͞RW>u w#w!Áu)~#fo3*u#"u{znu ^w#VwzDU!"huRWyM\!9"xu!j.0<FR!*hu"u!j.0< *hu *u~# y0*u"hu!*u"hu!!j>2|u.*hu 6?##6?!"u_*hu~| =_"tWEX:00| ]"tWEX:00ڝ ##FN0 `*juO yŷ ~##  ~#  *u"uë 2|u*uACE FUEL!!SHECKY, GET THE JET! C C \ Press RETURN to continue -GET SET!@PMA AYou are now in the dimension of computer games ... a dimension of0spaces and escapes; a matrix of BIOS and memory.ATo survive, move the CAT (shown as a 'C') by typing the directionAbuttons (specified in the configuration). Escape the backspacing*CHUMS which will delete you lickety-split.BYou will receive a new CAT for every 10,000 points and on each newlevel.>When times are bad, type ESCape to xG$% ##a"u)&BK1&&*u|~&DMx%zʈ%|~#+P%&!&yOxGڎ%yxk%PYa"u)&BK1&&*uSS!"uÀ%!t~2uw2s%6 *s&##axw#q#s1&:u2t !s4^w|~&&%a~%~_w# x%&! a)&BK1&++|DM~G#N#zw#s#xB&@[&7&yT&Ow# K&yOw#w#w#w# [&^#V* }||~!9 ʲ&ʭ&~#foV$##ü&ô&~#´&=Ž&`i"u^#V* }|&*uw#w}&&>&>2u!u"./|/. . . ./|/J . . . . ./|1+---------+/./+------/ /|/ /------+/./+---------+1//////////|/./|/ j j /|/./|//////////1----------+/./|/ /+-----=-----+/ /|/./+----------1< J j/|///////////|/j J >1----------+/./|/ /+-----=-----+/ /|/./+----------1//////////|/./|/j j/|/./|//////////1+---------+/./|/ /------+------/ /|/./+---------+1|/. . . . . J . J . . ./|/. . . J . J . . . . ./|1|/./------+/./-------/./|/./-------/./+------/./|1|/o . . ./|/J . J . . J )!*xu!\"hu.!hw#$!!e~ >!6O#6V#6Lj!CW!#~OQ!#~Mj!CTOQ!#~VQ!#~LQ!\:00چ!!b~w<CM*t*"«! !µ!##!N#F#x" g o! =!  GO! _ W!yx !Ù!!* {z "*|!"+~w*"u!"u*u"u͋#Z"*u"u##^#V*u"u*{z0"n"*u^#~WD"#-"!"u*͋#ʈ"#~w+Í""u##^#V*{zw":eO"]!H##°"*{z"\!"͂#*\!u!9N#F# y2u9'2u+~+ng# *us#r#"uDM:u='+~+ng# :u_ "ua"u*u"u)"u*u+F+N ##6# xw'~#fo#:u_ og"u:u'2u*u+V+^"u'*u*u"u*u+r+s"u*u+"u|°'#~#fo#)og"u:u=Ÿ'*u*us#r:u='"v"u"vů>MP*u))}(`i"u*vyx+"u}(*v))!ʀ(`i"v\Q(+ xI("v*uk(#͏(ڀ(*v*u}|a(!*v )*u )" v2 v!" v* v*u}|?* v*v~\! v(6((* v#" v* v#" v*v#}|Ҝ(* v*vF*u* v#N! v~)x?)A     pause the game. If you areBlucky, hyperspace can be achieved with a SPACE, then YAHOO you aresafe ... or are you?>Just remember, its only a game ... only a game ... only a game$Type RETURN to return to main menu: SORRY SUCKER!NICE TRY, PAL!YOU'RE OUT OF HERE, DADDY!AW, FOR CRIPE'S SAKE RICKY!FORGET IT, PAL!GET THIS GUY OUTTA HERE!WHO IS THIS GUY ANYWAY ???5.12 CATCHUM.DAT CATCONF.COM$ .o. $    AAmMCcG CCCCCC tt CCCCCC hh &*vw{ozg"tw*twËB*v"|v*v"~vp:"v*4v#+)9A~#foABRBAA*v*v)^#V*v)^#V++++++|lA*v+"~v*xw*v*v)^#V"v*v|ʥA*|v{ozœA!"|vâA!"|vëA!"~v*xw*v*v)^#V*v)^#V+++++++|A*v#"~v*xw*v*v)^#V"v*v|B*|v{oz B!"|vB!"|vB!"~v*xw*v*v)^#V*v)^#V++++++|GB!1"|vNB*v+"|v*xw*v*v)^#V*v)^#V+++++++||B!"|vÃB*v#"|v*xw*xwèD>!|w͈&*w"v*w"vp:"v*@v|W_*&v{ozg*|w{ozg"|w*v|Br{zBHDC*w*w{ozg"w*wͺ)I DON'T BELIEVE IT!  POWER THROUGH!!! THANK YOU! Cc^<-_ YOU LOSE! YOU CHEAT!!!9 YAHOO! YAHOO! YAHOO! YAHOO! YAHOO! YAHOO! YAHOO!Player , you belong in history!Enter your name: Updating high scores...*@ HOOKA ! ----'!YOU BROKE THE GAME, DOG BREATH!!!I don't know what to do now. I got it!s!)"t"t!."t!1"dv!"fv!"vv*dv*fv!!!v&!!!!v&!!!!v&!!!!v&!!!!v&!!!!v&!!!!v&!!R=>!@w͈&!e*Bw͝!"DwA=!*@w*Dw!.%}$T*Dw#"Dw**v}|"=*>wy=>!Hw͈&*Hw!*Hw}$.%FwV$*Fw'?*v. |Š=͌<*v**v!!>͇͟!͔$vV$>v!.V$*Pw!!.%!.#6>! ":v<>!":v*Pw!!.%}$*Pw!!.%<*Pw!!.%<͟n͟*v*Nw)6#6*v*Nw)!.V$?*v*Nw)*Pw!!.%D*4v@"4v*4v"rv*zwr!͹ "4v*4v"w*4v"w*~w@*4v{oz”Dr{zW_*v{ozg|ʔDHD!"w!"w*zw*zwE*v {ozD*v{oz*v{oz*v{ozDûE*v{oz!!v&!!!!v&! !!!v&*vv!!!v&!!!!v&! !!!v&!!!!v&!!!!v&!!!!v&!!!!v&!!!!v&!*dv*fv!!!v&!!!!v&!!!!v&!!!!v&! !!!v&!!!!v&!!!!v&!!!!v&*dv*fv!!!v&z:!"w*wÍ:p:}/o|/g"w*wé:>!w͈&* w*wͱn*w:>!w͈&*wm* w::i"wS|:*w;>!w͈&*w*w{z:*w"w;*w"!*Lw.%V$*Nw#"NwҐ>!3*JwÍ?>!Tw͈&*v*v)^#V*nv+*.v[ "Zw!"Vw|?!"Xwh?*Xw#"Xw*Zw}|a?*Vw#"Vw*Tw}|X?*Rwñ?>!^w͈&*jv*lv͐:9*^w9*\w?>!bw͈&*bw$7;͐?*`w?>!fw͈&*fw͐?!*?*fwʹ?*dwJ@>!jw͈&*:v{zF@!"lw9@*jw͐?!*?*jwʹ?!*?*lw#"lw*:v}|@*hwç@*v*v)*v*v)^#V#s#r*v*v)^#V!{ozg!͐:9*v9*v*v)^#Vͬ:9*nw@>!rw͈&!5!͐:9*rwͬ:9!.9*v9! *?!5!͐:9!.9*pwA>!vw͈ player gameL = Change level of difficultyC = Configure CatChumI = InstructionsE = Exit CatChum Version : Terminal: Up = Down = Left = Right = High Scores) 0 Last Play : 0Enter one of the above: Go for it!What are you waiting for???E Exiting...12CILLEVELMENSCOREHYPERPlayer 1 2Score 0 0Level ###### ######Cats>> HYPERSPACE ACTIVE << Press Any Key to Start Game! vGET SET! w*w4;>!w͈&*w*w}|*;*w"w0;*w"w*wÁ;>! w͈&"w!.V$\;*"w*"wͥ#"wV$*"w$* w{zL;*"w* wͪ$wV$*wî;>!&w͈&*&w7;*(wͥ#*&wͪ$$wV$*$w<>!,w͈&*,w![ ".w*,w|;*.w}o|g".w*,w{ozg͔$*.w͔$ͥ#*wV$**w<<>!2w͈&*2w!ͪ$}$*2w!!.%}$ "0w*0wÉ<*v. {zg<  !.Ah*v!Å<  !A.9*vA!U.Ah͝*4wÜ< !}.A?<*6w=!!!w͈&*w.ͥ#!.!(#EF+)'F~#foFbFlF}FFFFFFFFFFFF*v*w)^#V*w)*ws#r*w!"w*w!"w*v#"v*w!"w*v#"v*w!"w*v#"v*w!"w*w!"w*w!"w*w! "w*w*w5G!"v͖!"w$G!w!"wG*w*w!.%*$*v!2V$*v!2V$*v!2V$*v!2V$*v!2V$*v6#6*v6#6*v6#6*v6#6*v6#6*v6#6*v6#6*v6#6*v6 #6*v6d#6*v6#6*v6,#6*v6#6*v6#6*v6X#6*v6#6*v 6 #6*v6Z#6*v*v^#V!s#r!"nv*v6#6*v6#6*v6#6*v6#6*v6#6*v6,#6*v6#6*v6d#6*v 62#6|=F*v9!7;vV$*v9!2A*v9!3A*}|I*wDL͖!"w3L!w!"wL*v*w)^#V*w)*v*v)^#V*w)^#V*w)^#Vs#r*v*w)^#V*w)^#V! {ozʣK*v*w)^#V*w)^#V*v^#VvV$L*Xv|ʺK! ͔$vV$L*w*w!.%wV$*w.ͥ#!.!({zK*wvV$L! ͔$vV$*w*w͐:9*v9*w#"w*dv}|+K*w#"w*fv}|K*wéL!5! ͐:9!.9!"wÞL*v*w)^#V!{ozg! ͐:9*v*w)^#Vͬ:9*w#"wdL*wL!(! ͐:9!.9*nv0͔$9*wOp:"Pv*v*v)^#V!}|M*v!.ͥ#wV$:Q*v* v)*v* v)^#Vͺ1)s#r*v* v)6#6* v#" v*xv}|Q*w*Lv*Jv{oz_Q*w!" vòQ*v* v)^#Vͺ)!ͺ«Q*v* v)*v* v)^#Vͺ1))s#r* v#" v*xv}|hQ*wIR*v!5/ͥ#wV$*w͐?!"w Ri"w*w+++|/W_"v*v| R*w*w {ozQ*wʹ?*v!Q/ͥ#wV$*w͐?! *?*wʹ?*wrR*!w͈&*wc/ͥ#ͦ$!("w*w{zW_*v{ozg"v*w|R*w"w Sͦ$*w###*w$ͦ$$.w*wE*w#"w*dv}|F*w#"w*fv}|F*wG>!w͈&*v*w)*vs#r!"wñG!"wÝG*v*w)^#V*w)^#V*w)*v*w)^#V*w)^#Vs#r*w#"w*dv}|dG*w#"w*fv}|[G*w>H>!w͈&!"w-H!"wH*v*w)^#V*w)^#V*w)*v*w)^#V*w)^#Vs#r*w#"w*dv}|G*w#"w*fv}|G*w(I*v*v)^#V! "v*v*v)^#V"w*w++++++|}H!"xvÃH!"xv*v*v)*w+++|*w{z*w!͹ |gos#r*v*v)*w{zW_s#rp:"Pv*w{zW_"v*Xv"^v*w++v9!>3A*v9!3A*v9!3A*v9! 4A*v9!M4A !4A!4A!4A  !4A!4A! 5A!,5A!C5A!U5A!(! ͐:9!g59*v9!(! ͐:9!s59*v9ͬL!(! ͐:9!59*v!!.%9!59*v!ͪ$9!59*v!!.%9!59*v!!.%9!(!͐:9!59!"RvÚX!(*Rv͐:9*Rv0͔$9!59*v*Rv)^#VzړX*v*Rv)^#Vͬ:9!59*v*Rv)^#V9*Rv#"Rv4X*`v{zX!(!͐:9!59*`vͬ:9!59r  N",v*,v"v!"$vp:"v!"v*v*w?*w?*w! /?*v*v)*v*v)^#V+s#rGL*v*v͐:9! /9dNr{z`MdN!"wÉM*v*w)^#V!}|MÙM*w#"w*xv}|iMdN!"wYN!"wGN*w*w |@N*v*w)^#V*w"v*v*w)^#V*w"v*v{z*v*dv}|/*v{z*v*fv}|/@N*v*v)^#V*v)^#V! {oz@NN*w#"w!}|M*w#"w!}|Mp:"wNr  r*dv͹ #"vr  r*fv͹ #"v*v*v)^#V*v)^#V! {ozW_"w*w|mNp:"wOr!͹ "4vA*v*|v)^#V*~v)^#V! {%͎"w*wÓS*vA   !h/A!/A !/A! 0A!c0A !0A!0A !0A!1A!_1A !u1A   !19ÀSi {oz€S*x*v!1V$*v!1V$*v!1V$*v!2V$*v!32V$*v!D2V$*v!^2V$v!z2V$v!2V$! "*vv!2V$!"Fv!"Hvv!2V$!5"jv!"lv!d"Nv!"z*v!ͪ$vV$*v$|ip:"vÐj*Zv+++++|=j!"pv,j*pv#*v*v*pv)^#Vs#r*pv#*v*v*pv)^#VV$*pv"pv*Zv6j}|i*v*Zv)*v*Rv)^#Vs#r*v*Zv)*vV$xj*Zv#"Zvi*Rv#"Rv*zv+*Rv{zi*v|Ok     !7A*v**v!!>͇!"Rv(k*v*Rv)^#V$͔$*v*Rv)^#Vͱ;ͥ#*v*Rv)^#V*v* v)^#V"v*v*v{oz*v*v{oz:_+b*v*v͐:9*v*v)^#V*v)^#V*v^#V9*v* v)^#V#|_*v* v)*v* v)^#V+s#r*v* v)^#Vzʻ_*v"|v*v"~va_*v* v)uRs#r*v* v)^#Vzҙ`*v* v)*v* v)^#V+s#r*v* v)^#V!}|#`*v"|v*v"~vaÙ`*v* v)r!͹ #s#r*v* v)*v* v)^#Vͺ)s#r!"|vr{zW_*v{ozg|ʐ`!"~vaÙ`! "~va*v*v)^#V*v)^#V+++|*v*v)^#V*v)^#V++++|`ͫDa*v* v)^#V"4vA*v*|v)^#V@"v*Vv@"Vv*|v"v*~v"v*v#{ozg"v*v*|v)^#V*~v)^#V*v^#V"Tv*Tv#|›e*bv! :*v^#V"Tv*v*|v)^#V*~v)6#6*Dv"@v*Tvͪ@!7?ͣlg*Tv+++++|if!-7?!" ve*v* v)*v* v)^#Vͺ1 s#r*v* v)uRs#r* v#" v*xv}|e*bv "8v*8v"6v*Nv*bv[ "Lv*Lv*xv[ "Jv!"Tv*v*v)^#Vzif*v*v)*v*v)^#V#s#rGLͣl*Tv|wfg*v*v)*v*v)^#V+s#r*v*v)^#Vz¨fRk*v*|v)^#V*~v)^#V+++|f*v*|v)^#V*~v)6#6g*v*|v)^#V*~v)^#V++++|g*vv8G+I*v#"vҁZ!"v*v9!!͐:9}:">vp:"^vp:"Xv*v8G+I!5! ͐:9!J69!5! ͐:9!`69*v^#Vͬ:9!h69*v^#Vͬ:9!m69!5! ͐:9!p69!x6*v^#V*v^#V͘AH*v*v)^#V"bv*bv*nv+"v!5!͐:9!69!"RvU\*v*Rv)^#V!{ozg!͐:9*v*Rv)^#Vͬ:9*Rv#"Rv\GLp:"Pv*v*v)^#Vzʍ\!5!͐:9!69á\!5!͐:9!69*v|ʽ\!5!͐:9!69!@! ͐:9!69*v*v)^#V!{ozg! ͐:9!69!"Rvh]ͥ#vV$*Rv*v**v̈́;=*Rv#"Rvj!3*v**v!!>͇!3V!"RvØk*v*v͐:9!79!*?*v*v͐:9!79!*?*Rv#"Rv[k*:v{zlv!7V$*v͐?!"Rvl!@!͐:9!79!*?!@!͐:9!89!*?*Rv#"Rvk*vʹ?*v*v)*v*v)^#V#s#r!"RvÐl*v*Rv)^#V*v*Rv)^#V͐:9*v*Rv)^#V*v^#V*v*Rv)^#V^#V*v^#V9*Rv#"Rv*xv}|6lM@B[*v*v)*v*v)^#V*Tvs#r*v*v)^#V"v*v*v)^#V!{ozg! ͐:9*vͬ:9*v*~v)^#V! {ozaͫD*v|>a*v* v)*v* v)^#V@s#r*v* v)*|vs#r*v* v)*~vs#r*|v*~v͐:9*v* v)^#Vͺ)*v^#V9*v|b*v* v)^#V!}|b*v*|v{ozgͺ)*v*~v{ozgͺ)!ͺͱ"0v*0v*2v{zb*0v"2v* v""v*|v*v{oz*~v*v{oz+bc*v* v)^#V+++|Cb3g*v* v)6#6*v* v)6#6*v* v)LRs#r*v* v)* v)s#r*v* v)6 #6*v* v)^#V*v* v)^#V͐:9*v^#V9*8v"Tv*8v "8v*Tvͪ@ͣl*xv *6v *8v{ozc!*|v)^#V*~v)6#6*|v*~v͐:9*v*v)^#V9^*v*v)*v*v)^#V+s#r*v9*v*Fv)^#V*Hv)6#6v!97V$!"Rvëg*v*v͐:9*v*Rv!.%9!*?*Rv#"Rv*v$*Rv{z~g*vG*v*v)^#V!}|gr*vv͹ #*v^#V?!"RvVh*v*Rv)^#V*v*Rv)^#V͐:9*v*Rv)^#V*v^#V*v*Rv)^#V^#V*v^#V9*Rv#"Rv*xv}|g:*v#*zv͹ "tv*v*v)^#Vz´h!E7?*v|´h*v*v)^#V*v*tv)^#V ;"`v*v*tv)^#V!}|h*tv"v*v*v)^#Vz*v*tv)^#Vzh[*v|*v*Rv)*Rv s#r*v*Rv)6 #6*v*Rv)6#6*v*Rv)6#6*v*Rv)*Rv+LR s#r*Rv#"Rv*xv}|]*Dv"@v!"Lv*Xv*^v{oz/W_*>v}/o|/g{ozg|ʰ]Ió]Kp:">v!!͐:9!69*v9:! *?!!͐:9!69!"v!"v!"v!"v!"Vv*dv*fv ;"2v!" v cS|ʻ^i"\v*v|B^Vû^*\v͔$%*v!(+ͺ)"Vv*\v+++|t^Vû^*\v {ozž^*v*v)^#V*Pv{ozg"Pvû^*\v{oz»^Q*v|ʻ^V*v }|^!"(v^*(v#"(v*v*v)^#V*(v{z^*v* v)^#V"v7?* v#" v*xv}|&^OP*v|*cõc*v*v)^#V*v)^#V+++|*v*v)^#V*v)^#V++++|ocõc*v*v*v*"v)^#V*v*"v)^#V*v*v*"v)^#V+++|/W_͎B*rv"Vv*Pv|cL*Vv"4v*v"v*v"v!"TvA*v*|v)^#V*~v)^#V! {ozd*Vv"vd*v|ʒd*v@"4vp:"hvVd*4v#!͹ "4vA*v*|v)^#V*~v)^#V! {ozW_"hv*v@*4v{oz/W_*hv}/o|/g{ozg|d*4v"Vv*4v"vd*v"4vA*v*|v)^#V*~v)^#V! {ozd*v"|v*v"~v*v*v͐:9!79if*v*v͐:9!79*v|e*v  0u}|vm!*?!"Rv@mr  r!]͹ !͔$9*Rv#"Rv;m  !89*vA!'8A!*?!E8A!*?h*v*v{zm*v*v)*v*v)^#V#s#r*v*v)^#V! "vM@h͝(c)1982 Yahoo Software"@n7n2?nog*@n|n "@nm>0_:?nn{0n n>2?nm*@n]>0_vaVn{Vn w#wotnptnq{ʑnwʑn#Ow# †nÕnw}~}2r}2r}2r}G:r2r}G:r2r:on!oGUo:ronn:r_oo:r_oo:rͰo5Iqh$(9Z)!'6ZFCE(WJQ#!hs4K{%L@175Z{I&L@176i{&L@177x{I&L@178{X'L@179{&L@146y "L@147y"L@148y7"L@149y"L@150yu"L@151y"L@152z&#L@153z#L@154z"L@155.zN#L@156=zU&L@157Lz#L@158[z#L@159jz$L@160yz#L@161z#L@162z$L@163z$L@164z$L@165z($L@166z$L@167:r<2rG_!rNxyro&4FTiex8#9A7C KayPro II =  YY 2468 o:rͰo:poG!pUo:rCo:o1o:r_oIo:r_oIo:rͰoIo:rͰo:qG!qUo~Ͱo#Uo_!|uo fo>0Ox„oy0ʉoͰo!|šo Ëox¤oyʪo>0Ͱo>0ðo_@116wL@117wL@118xL@119xTL@120!xL@1210x]L@122?xL@123NxL@124]xL@125lxk L@126{xL@127xL@128x` L@129x L@130xO L@131x$ L@132x!L@133xy!L@134xw L@135ye!L@136y L@137 y L@138/yN!L@139>y L@140MyG!L@141\y"L@142ky"L@143zy!L@144y"L@145y!L@146y "L@147y"L@148y7"L@149y"L@150yu"L@151y"L@152z&#L@153z#L@154z"L@155.zN#L@156=zU&L@157Lz#L@158[z#L@159jz$L@160yz#L@161z#L@162z$L@163z$L@164z$L@165z($L@166z$L@167:r<2rG_!rNxyro&4FTiex8#9A7CA     $ $]Tx2$(#6~+%5HA$.%a."/#!9"$ v$v$+~#G#P$+GO>#ͳ&`iGí$*$ ʢ$.&""$/@$#~+$!"k+s#r#&$$/$/"%͜*s#r#"%/!]>#ͳ&q#p!w+~F%a./~GO#^#Vz>a>0ͳ&xGxʬ%^#V#O"/yk+F(6s#r#s#r#&¡%k%ü%>¾%¼%s#rw+>a/a.. V $"hm " H"ë " H H" " =========H==================================================" " H"+0 " H"ns " H H H" "================H==========H================== ========H====================="! " & H ]T}_|))).&">4W*/y=*/#~+)*x *xG>k+x8*>k+xG F*>k+x#~+>k+>Xͳ&s#r+&W!x*G^#V#~ì*3 < E N !3> ì*!<> ì*!W> ì*!`> ì*!i> ì*O?'yG !T+GF.*x2j+*(+#N+.*N+x +#~++k+ +yk+ (w!~#fo#~#w:j+,+6~+;+~ ;+6 H+~H+6ͤ/P+ɀ @ PPPPPP X#ʌ+̏+~̏++(w#w+*R#~6+´+&6#s#r>6###s#r#6@"R=#w!9"/!/"h 0W1*"!"(""h !("*2,?'"/!(~#fo_0"9##~#fo9990 111'0~YA0=f0 8: >*/ćI#r+s++0*/>ͦ0!~#fo~~Z̫9 ' ͳ& >G>G!N#F*9~#fo##^#VX!~#fo"1++~+ng##^#V~4#####~#~*9w#w#~#fo>wq#p>1>1>*d02e0&12e0~q199>1&121L1x?1:e0=e1h1q141̀22N2q142~Ҕ1¾1^#V>ʾ1>þ19ڠ1>þ1#~ʛ1ʛ1####^#VҾ1>###w~2%2.#6+>1ͳ&s#r>w+a.)a.>#V>Æ(&F(F('O&3%`& `& &%?A#"$"a.]&7#yͿ*.&X{&&>a*6#~ž&3&s#r>#+6#6#6#6@="#wɧø&7?'w##&4##p#.2b ** "|& } +++:~?'4'`':,X/~2,?'**s#r"*##s#r:/*}o|g"*>(G}|v'!"(!("**"*}|ڄ'"6# x…'* ">a:y|ʽ'z+ï'*yr, H | |"sx " H Easy Street"ö " H H" " =========H==========H========= =======================" " H"16 " H"ty " H H" "======================== ====================== =========H=============="  " :G+!<,####~#+F#N#~#fo~#fo,CH+##~>O3)6#p#6 ####yGS)+w~!_,H~͞.>a"n-:ʗ,ͤ/͔*ͤ/>Ϳ*.&v,ʪ,w-`i)9^#V!~)y~-#~#fo##A:-ͤ/x>Ŀ* ,^#V#F(ͤ/> Ϳ*,#~U,o&">2+F(ͤ/> Ϳ*"3-xGO>$ͳ&H"-s#r# (-H +V+^F(s#r# =-U,w*-w+ͤ/yOn-n-n-**}_|WҚ-\H7I Bytes Free ͞.-::g .>a~ʐ99GB2N#^#V#~#fo (B2(1F6Fx B2~B2O!~#fo(A2"J2"L2~#F!E2w#p+6! s#r`iF~ !N#F# }25! F+N+p+q 1s#r ~ ʉ2 22^#V#~#fo7(2"2!N#F#~#fo(2"2!q#p!!Åh:c'> ͳ&s#r w+.>2 (#w+>3ͳ&s#rw+ͳ&xDM"/(*(s#r#(! C(>2ͷ&@(ͳ&(&~#Z(#~+Z(~+x ͳ&s#rw+ɯ2(x_Oͷ&Ô(2(x_Oͳ&9w#w+xʭ(+r+s=¤(w>#w+&~7^#V((!~ѧ7.&.~7!~#fo~)7)#~+~w}D#wx#a.&G!)!9*?>a:c)2>2:o) L))K:)!uLҘ)͑M!)bM)*xʸ)ͳML)͇M!8L͇L)@>a:-###^#V*{z-">?W*/>?W*:b *c ;2b "c **5H +V+^"&D.J.F(N.'~=w2_.~#fo&~#!y.H~aX[&#~+>>2e .>2e &|½.!T~#.~#fo..##~#~#..Ô+.„*&""> 2q"/y2/2/O&#s#r+++++~5/ }|x]/!^#Vz<̕/z̝/͚Hĕ/DM!/55/xʌ/~U,! ܕ/=w/DM͒'+r+s:/OÕ!*s#r#"#~+*++"   H"KP " H"ã "* g H *" "==============================================================================="  45 750,8di " $"ø " & H"  " H |V  H | H H"Ó%% " H H=========----===----================ H =============="%% " H & H"#&(& " H | H"k&p& "====---==== H | H"ó&& "| | ================---===---=================== H" '' "| === | H  H"[` " Long Island | g * | * H"ó "==============================================================================="ü 35 900,5 " V V V $"mr " $$$" " g H H $$$$$ H"" "==========H===  H"\!a! " n ^ H"ô!! "* ^^^ H *" "" "===============================================================================""" 36!"&" 800,5o"t" " V V"x"}" """" " H H | H"## "=====H=====--======H========================== ===--- V| H"di "====H======================= ========================= ====================== "rw " H"À " H" " H & | . . H",1 "========================== ====== =================== ===================H== "À " H" " | H"(- " H |  H g"a'f' "| $ | H ===H======="ò'' "|* $$$ *| * * * *H *H" (( "==============================================================================="(( 35($( 750,72(7( " $"y(~( " H V"Ì(( " H"(( " HHHHHHHHHHHHH .HHHHHHHHHHHHHH H g"7)<) " &  =H==============H"uz " H H H" " H & H H"%* " ============== ==== = ====== = ==== =====H===== H"} " G ^^^ ^^^^^ ^^^^ ^^^^ ^^^ ^^^ $" " h |"" " o | H -====H==========="[#`# " H H |&& H"ã## " H H ================== H"## " H H tunnel H H"?$D$ " H =======---===----=================H= H H"Ó$$ " H | vision H H H"$$ " H =========---& -----============H H H";%@% " H H . . H"À "====H===================== ====== ================ ====================== "Î " H"ó " H |"  " H | . . H"_d "========================= ======== ============== ==================H== "ó " H"  "============== |  & |"qv " s ======================H============================== ==========="Û " t & H" " H"  " | H H H"l q " T ==================H=================H===================H======="ü " o H H" !! " w A      V H ==H=========="Å)) " H H")) " H H . H"!*&* "===H==============-----------============H==== H"o*t* " H H H"** " H =====H=============="+ + " H H  | $ ^ &"q9v9 " |^^^^^^^^^^^^^^ $ ^ ======"99 "* . & ^ H*^ ^ ^ ^^^^^^^^^^^^"!:&: "==============================================================================="*:9c -1:o&"!bͰv*"!e:*!n&͊wCrͰv*!#"!*!*z|y:}|H:h!b͉b! ͱ!ͬo#! o!!I|/g}/o|n;!ɇ!b̈́Ϳq!cgpͿq!cgpͿq!bgp!b͉b! ͱ!ͬo#!  =====H=========="d/i/ " H \/ H"ò// " H | $ H"00 " H H | H H"N0S0 " H ====H======= g |&H H H"Ü00 " H H ======================H ======"00 " H H &| H H"D1I1 " H  ===================H"k5p5 " V H ============= H====== H"þ55 " H H & H"66 " H H | | H"d6i6 " H H ^^^&&^^^ & ^ ^^^ H H | =============H"÷66 " H======H =======================H===========H===== & H" 77 " H H H | & H"I+N+ " H &..^^^.....^..^ . ^^ H==--------- H"Û++ " H ============================H & H H"++ " H === === === H ---------=================H======"E,J, " H H H"×,, " H & H & H",, " ==========-------------------------=======----------===================",, ""K-P- "^^^* o!!I|/g}/o|P;!ɇ!b̈́Ϳq!cgpͿq!cgpͿq!zbgpͿq!Sbgp͐j!ɇͿq!cgpͿq!-bgp!#b)i#!"vʹs"&#*&Tv(Ͱv!#!"vʹs"&#*&Tv+Ͱv!#!"vʹs"&#*&Tv.Ͱv!#!"vʹs"&#*&Tv1Ͱv!#!"vʹs"&#*&Tv4Ͱv!#!"vʹs"&#*&Tv7Ͱv!#!"v:Ͱv#!Tv=Ͱv#!Tvr"@#!Tvr"B#!Tvʹs"D!#!"vFͰvF!7vF!"vCrFͰv!À=* H &| H H }{ =====H===="Ö11 "===H===& H =====================H H H"11 " H H H H":2?2 " H H & H"Ì22 " ======H=== ======= H <> & H"22 " H========== ===== = ============"33 " }i{ && H"]7b7 " H H H | &&&&& H"ð77 " H H H | =============H"78 " =====------================= H | $ $"O8T8 " | H | $$$ $$$"à88 "====------=== | H | $$$$$ $$$$$"88 " | = | ============= ============"0959 "  ^^^^^^^^^^^^^^^^^^^^^^^^^* *^^^^^^^^^^*Point of No Return*^^^^"ã-- "==============================================================================="ì-- 37ø-- 700,6.. " Bug City HHHHHHHH V"1.6. " HHH HHH"p.u. " H >mmmmmmmmþ.. " H=============== ==================== H"// " H |===== \ / V  H"g3l3 "* H *"ÿ33 "==============================================================================="33 3233 0,6"4'4 " =Gang Land= V ."r4w4 " == _ == ."44 " g H | [] |_| | & . H"55 "===========H | |_| | H ===   !#!"vʹs"&*&|C=*!)s#r*!cx bv|=#bkTvr*!)s#r*!cx#*&Tvv*!#"!*!|ڐ=)?go"N*!|)>!"PC> *!!Tvtw"P!b+s"!*!|Z>?go*N|g}o"N*!||>* "RÖ>*!!Tvtw"R!a+s"!*!|ڭ>?go*N|g}o"N*!|>!"T> *!!Tvtv.cw"TͿq!7Cp!EwV*) ^#V|^M*cxQ*)^#V|go"|@M)?go*|g}o|^M!"M*#vPpMMCNCN*+"*cxQ*) ^#V|ڙM)?go"|go*|g}o|¾P*"**}o|ʾP*"^M*#"*cxQ*) ^#V|go"|go*|g}o"|+N)?go*|g}o|¾PýM*#"*cxQ*) ^#V|”N*cxQ*) s#r!@dͿq!cCp*)T^#V*"*cxQ*) ^#V|go"|go*|g}o|¾P*"þP*"*|g}o|CAͿq!7CpͿq!cgpͿq!\^gpͿq!^gpͿq!^gpͿq!cgpͿq!]gpͿq!]gpͿq!@]gpͿq!)]gpͿq!cgpͿq!\gpͿq!\gpͿq!\gpͿq!Q\gpͿq!cgpͿq!\gpͿq!cgpͿq![gpͿq!cgpͿq![gpͿq!cgpͿq![Cp! fͰv! ͊w!f͍uC>*x#"ÅA*"_*R"i!"k*T"!"m!d"o*P"q*"s!"unt!"w!yt*y|ƒD!"q*s##"s*s|wD)ڀD!"sAD*w*qzzD{zڪD*q#"q*u##"uAD*u*y}o|g"y*y"{!}t!t*svEDDEE*}cxwucw"}E*}͞w"}^#V|go"|I)?go*|g}o|RI*"!"*|II)RI!"*)^#V|mL*)h^#V"~^#V"*"*"*cxQ*) ^#V|I*)s#r*+"!@dͿq!w[CpmL*cxQ*) ^#V|LJ!nuc!Z͝sw"*#vJ;JJ*)^#V)^^#Vs#rÍJ*)s#rÍJ*cxQ*)^#V|go"|xJ)?go*|g}o|;J*)^#VvJJKK*#"*cxQ*) ^#V|go"|J)?go*|g}o|–K!n͞v!Z͝s;uͰvͿq!VCpͿq!agpͿq!VCpͿq!agpͿq!VCpͿq!^agpͿq!VCpͿq!&agpͿq!VCpͿq!`gpͿq!VCpͿq!`gpͿq!VCpͿq!`gpͿq!cgpͿq!cgpͿq!p`gpͿq!Q`gpͿq!8`gpͿq!cgpͿq!cgpͿq!(`gpͿq!`gpͿq!_gpͿq!_gpͿq!_gp!("Y! "[[!Y@dͿq!_Cp!Cp!("Y! "[[!Y@dͿq!_Cp!(Cp!("Y! "[[!Y@dͿq!_CpF!"vCp!_CpF!TvCpͿq!_CpF!TvCp!_CpF!TvCp! "[[!Y@dͿq!f_Cp!("Y!"[[!Y@dͿq!X_Cp!=A*[#"[[!Y@dͿq0*!͊wCp!S_O)O!"*)T^#V*"*#"FW*cxQ*) ^#V|dO*#"**z|]O}|dOFW*|oOW*vOOOOOO*+"ÓO*#"*cxQ*) ^#V#v?P?PO?PO?PO?P*""!"*|O)O!"þP*"*"RP*"*"*|go*|go|g}o|RP*)^^#V"*"þP*+"*|RP¾P*|/g}/o|µP*cxQ*)^#V|go"|go*|g}o|¦PõP!"*"þP*""!@dͿq*cxQ*) ^#V#!TvCp!@dͿq*#E*}wucw"}E!"}!"Ϳq!7Cp*"!7F!#-tͿq!#gp!jE*!cxQ*) s#r*#"*|zE)NE!#ͪs"!F#*!Tv+s+"*|·E*"*!"*|E!"*!cxQ*) *s#r*|F*#"*)*s#r*!s#r*#"**z|/F}|ҌE*!#"!*!*z|KF}|9E*w#"w!nF*!) s#r*!#"!*!|~F)\F*"!ïF*!cx s#rs#r*!#"!*!*z|F}|ҍF*"*"*"*"*""!"!"*"!Gcw*)s#rÊK*)^#V)T^#V*"*cxQ*) ^#V|go"|\K)?go*|g}o|–K*)^#V)^^#Vs#r*"*"!@dͿq*cxQ*) ^#V#!TvCp!@dͿq!s[Cp*)h*s#r~*s#r**}o|go**}o|go|g}o|R*|/g}/o|mL*+"ͫW*cxQ*) ^#V|mL*+"*)mLͫW*#"**z|L}|ҌHUX sw"!*+"*|ڨLL*y+"y?X*y|R*y|L)LͿq!ICp*"*"*"*|N*"*"*cxQCp*!)^#V)9A*!)}cͿq!L_Cp*!cxCp*!#"!*!|MA)@*|څAʅA*[##"[[!Y@dͿq!=_Cp!}cͿq!8_Cp!("Y! "[[!Y@dͿq!#_Cp0*͊wCp!nu&c!Z͝s;u"cw"]*"_ͧX!"[!"Y[!Y@dͿq!_Cp!aRc*a|VB*]+"]*]|BA!n2uc-Bc!^Ͱv6Bc!^Ͱv͹X*a|ʰA!"[!"Y[!Y@d*a͊wfͰvf!^nuf!^nu|g}o|ʍBͿq!^Cp͐jf!^nuf!^nu|g}o| Df!^nuf!^nu|g}o|:f!^nuf!^nu|g}o| Cf!^nuf!^nu|*!)s#r*!#"!*!*z|&G}|G!""*"*{"y!"!@dͿq![Cp!i}cͿq![Cp!k}cͿq![Cp!}cͿq!8_Cp!<"!@dͿq![Cp!y}cͿq!8_CpͧXc!{[Ͱv͹X**zzG{zzH!nw*wu!Z͝s;u*cw"*"!H*!)^#V|5H*!#"!*!*z|.H}|HzH*)^#V*!)"hs#r^#V*~s#r*#"*!)s#r*"*"!qL!Rc*͊wͰv*|RI*|¸HsYRI*|>! ͒uHF!+s"RI*|H*"RI*cxQ*)A     !TvCp*"*"*cxQ*) ^#V"*|eQ**y"W*cxQ*) s#rQ*|QR*|R*|Q!nuc!Z͝sw"*#vQQQ*)^^#V"Q*"!"*"!6R*!)^#V|2R*!)h^#V*}o|go"~^#V*}o|go*|g}o|R*!#"!*!*z|JR}|QúGͿq!ICp*y|RR*y"!ûR*y+"y*#"W?X!"!@d*!}o|g|«R~X÷Rc!j[ͰvX*!#"!*!*z|R}|rR*k#"kJDͿq!ICp!ͪs"!S!@dͿ aa aa dd dd dd dd eeeeee rr5)aLL aa aa dd dd dd dd ee ee rr rr4aaLL aaaa ddddd ddddd eeee rrrrrrr:aLL dd dd tm"aLL dd dd aPRO SCOREbPRO MEN bPRO LEVELbbY#b&bLADCONF#0bLinking to configuration program...$VbLadder configuration program missing}bUnable to link to LADCONF.COM bLADCONF.COMbLadder not configured bLADDER.DATbRb bpbdqPbdbPpo-_bgpbqp b -=$|VH*^.& bg-=!#"!*!|W)ګV!ɇ!b͉b! ͱ!ͬo#! o!ɇ>*"!ÒW*)h^#V*}o|ŽW*)~^#V*}o|ŽW*##"*"*#"**z|W}|RW**}o|ʼW**}o|W*##"*"!$"!@d!}cͿq!ICp**ozz X{zX*m#"m*mcxd"o*i#"i!"!@d!i}c!G"!@d!y}c*}"!eX*#"**z|yX}|aX*"!ÎX*#"**z|X}|ҊX!Rc*|¶XçX!"X!"4Y*"!X!aRc*a|Y~X*#"**z|Y}| will be awarded for every 10,000 points.,]bonus time runs out.]You control Lad by typing the direction buttons and jumping by^treasures and riches.>^dark corridors never before seen by human eyes and find hidden@_^You are a Lad trapped in a maze. Your mission is to explore the^l^L^i^I^c^C^p^P ^Exiting...^e^E^You eat quiche!^Come on, we don't have q*!!TvCp~X*!#"!*!*z|,S}|R!@dͿq!ICp*cxQ*) ^#V#!TvCp*"!S*!)^#V|S*!)~"h*@dͿq*!)~^#VcxQ"h^#V*) ^#V#!TvCp*!#"!*!*z|S}|rS*i+"i*i| TF*"!-V*)^#V*z|0T}|)V*N|/g}/o|QTc!H[Ͱv͹X@V*"Ϳq!7gpͿq!cgpͿq!cgpͿq!cgpͿq!cgpͿq!cgpͿq! [gpͿq!cgp*w|ڬT)ڻTͿq!ZgpPU*;|T)TͿq!ZgpPU*|T)TͿq!ZgpPU* |U)$|VH*^.& c c1.30c@PCzףp= #z͐j(c)1982 Yahoo Softwareafc{fc w#w |xc=w#w^#V"cc2cog*c|©c "cÏc>0_:cc{0c c>2cc*c]>0_ ~2HedG#^#V!Iew#c~2HfG#^#V!Ifw#d~2HgG#^#V!Igw#*d~2Hh2Ih 2Jh~G:Ih2LhG:Jh2Kh:He`d!IeGd:Hhʍdʄd{d:KhdÓd:LhdÓd:Kh;eÓd:Lh;e:HfʡdG!Ifd:Hhddʼd:Lhdd:Khdd:Lh;ed:Kh;e:HgG!Igd~;e#d_!|e dX*_|Y!"Y*"!@dͿq!cͪsEwCp*L|/g}/o|CY*_|TY!"ZY*"!"!@dͿq!cCp!ZͰv!"!@dc!YͰvͿq!cCp! fͰv!͊w!f͒u>! ͊w!f͍uY!@dͿq!cͪsEwCp͐jYType RETURN to continue: ZZUpdating high scores..."ZEnter your name: $6ZYou really don't deserve this but...]ZNot bad for a young LadwZAmazing! You rate!!ZLooks like we have a Lad-Der hereZYeah! Now you are a Lad-Wiz!ZWow! You are now a Lad-Guru!ZYou are a true Laall day! _Enter one of the above: &_Difficulty level: ;_00 @_Last Score: O_00 V_) [_High Scoresi_Jump = Space Stop = Other _ Right = _ Left = _ Down = _Up = _Terminal: _Version : _E = Exit Ladder_I = Instructions_C = Configure Ladder `L = Change level of difficulty +`P = Play game;`Los Angeles, Ca 90024T`10970 Ashton Ave. Suite 312s`(c) 1982, 1983 Yahoo Software/`LLLLLLLL aaa aa ddd dd ddd dd eeee rr/`LL aa aa dd dd dd dd ee rr/`LL UͿq!ZgpPU*|U)+UͿq!tZgpPU*|8U)GUͿq!ZZgpPUͿq!3ZgpͿq!cgpͿq!ZCpͧX!c`n!f̓nf!"vfͰv!fͪs|•U*"@V*|V*"!U*)^#V"*s#r*cx"*v*+"**zzU{zҭU*)*s#r*cxfv@V*#"*|=V)T*|/g}/o|>Ϳq!cgpͿq!cgpͿq!cgpͿq!cgpͿq!cgpͿq!Zgp!b͉b! ͱ!ͬo#! o!W*!cxͪs͊w*!)^#VsCr"*CrfͰv#!f͖r*!*d-Master!!!:[ YAHOO! YAHOO! YAHOO! YAHOO! YAHOO! YAHOO! YAHOO!K[YOU CHEATED!!! You don't rate.m[Hooka!v[oz[* ~[Get ready! [Bonus time [ Score [ Level[Lads$[Type RETURN to return to main menu: [Good luck Lad.![Type an ESCape to pause the game.:\Remember, there is more than one way to skin a cat. (Chum)/T\that are left when you have finished the level.=\statues (shown as &). You will receive the bonus time points.\Extra points are awarded for touching the gold2\A new Lad  >0Oxey0e;e!|%e ex/ey5e>0;e>0;e_*:9c -1:o&"!b͎*"!e:*!n&::*!#"!*!*z|y:}|H:!bb! !#! !!|/g}/o|n;!!b!c:!c::!b:!b̈́:b! ͐:!͖:#! ͟:!ͨ:!ͮ:|/g}/o|P;!Ϳ:!b::!c:*;!c0;3;!zb9;<;!SbB;!!;E;!cK;W;!-b];!#b#!"&#*&(_:! ;#!u;x;"&#*&͇;+͍;!͖;#!͟;͢;"&#*&j3z~#~#foL6+͐u~͠|ͬzìz>Hu>Hu>Hu>Hu>Hu>^#V#!Zã>pu>pu>pu>pu>pu>{x!+>Ôu>Ôu>Ôu>Ôu>Ôu>{xʣu~#fo## ^#V#mQíu^#óu ^#V#mRu^#u^#V#mu^#vm|­jBK\vPYm|­jBK Mv o_0vmz­jzdv jv_pvo _ W}͛zͬzDM :]ʗv2]#êj:]ʪv2]#êjmuzv~##++,{>L+V+^+v+r+sv{mͳv~#^#VÛz!v>2m|Error -!-k~<&k=&k#~#kk#!|ÊjSyntax Error in DATRETURN without GOSU Type MismatcOut of DatIllegal Function CalOverfloOut of Memor Subscript Out of Rang Division By ZerOut of String SpacString Formula Too CompleRESUME without Erro2Field Overflo3Internal Erro4Bad File Numbe5File Not Foun6Bad File Mod7File Already Ope9Disk I/O Erro:File Already Exist=Disk Ful>Input Past En?Bad Record Numbe@Bad File NamCToo Many FileUnprintable Erro!9N#F*~#~m~+pqìzq>"G: jxqʋ* j+~ q>,W* j#^ ̫qʥq+=ڥq͋z{ڽq{_ïq!j" j!"i2jq! j~6#w~!q rNqmi&øj G~#r# r++%r0:0rw|­j}ڭj!jwmڭj3zdrdrͬzͬz~#~#foLږr#N#fiͽr~#N#fiLìzFOҤrG#~#fo#~#foxLyͽrìz6 #ýr~ڭj#~#fo~#foͬzZ>rV>=s#~#foLͬzͱ;.ͷ;!;#!;;"&#*&;1;!;#!;;"&#*&<4 <!<#!< <"&#*&/<75<!><#!G<:_<#!Y<=w<#!̓<"@#!͕<͘<"B#!ͧ2h2h*^#V"h##^#V"h 2h!h!!""h!j" j6#6P>2j>2j>2j͉v|:w+})N#6w~#fo :v)w!9"i!i4 ~G#íjm hw~ʭj#~#fon&ͬzmz„w}3z~ځws#wwmíjm|­j!9>͛z^#V#mͿwmRmʹw^#Væw^#Z)2mxmx!nQʛô!mܖ1y^#V#m;xm;xmzUx|Ux|Ry^#V#x^#V#sx͞GNʧxyʧx#~#fo~#fo°x#ʦx –x yʰxy<.ںx)ʺx)ͬzͬz|xxxxgxoxx*x"x*xxxoxxPxm~#~m+^#V###l###l|(m~#fo!0m| Internal Error - No Line Number &i*~#m| at linelwmm>ͫm<ڐmͤmzmͫm<ڐm0wͤmҌm}_|W!mG~#fo>| at address|r}rm> w> w!9"i*i)Pn|*i*i7n))]n) )]n ]n ]n"i"iK!"]]7n!n~2_n#~#^#V |++ͬz͎ځj:nm*i|¢n!n͌z͛zͳv*iCyC!\C͂C!Q\͈C͋C!c͑C͔C!\͚C͝C!cͣCͦC![ͬCͯC!c͵C͸C![;CC!cCC![íj2]Ϳy*x#V#NX!"]4sx­jű?s y<2*sF~ډsډs#~#foyGO #~#foxʍs}s#lsÍs!*s4 is2*sͬzͬz**s&ڝʛ~ͬzo&~ʭj#^#V++ͬzo&I*>"s!ss>s>mÛzmͳt͉|Z>$tmͼtu~t͠|V>$tmͳt}Z>Lmͼt~,"At#"~XtXt# Dtmíj"^t#ty͛zͳv*^#V#{t!i"i"i>2intN#F#*i~=ʮt}|ҮttÙtͼt|~t:int*i;~=mðj;~,t#"iɧt*i"i+V+^"imöjm~<ʭh"i͌h"ii_m=i!&6C#6O#6M!\>!k!\> L\AL.iʇiot|i!#&\ѷ!>/ *OUT OF MEMORY* $?go*N|g}o"N*!|>!"T> *!!͋>͎>.c͑>"T!9"i** ,j!6#},j|,j6!i6#z?j*|`j> j6#s#r#=Uj>2i>2i>2i2i"i!&i"iͫh{| STOYmÐjm*i.. . ........Ͷz*i|—j:ik*i|kl*  s#r*  {w#6"i*i*i>2iC!f`B! ZB!f=C>*#"ÅA*"_*R"i!"k*T"!"m!d"o*P"q*"s!"u!"w!y*y|ƒD!"q*s##"s*s|wD)ڀD!"sAD*wm}eb! ~#fo"o! "om|­j*o}o|gw"o*o"o,{#s#r++smppQqm{pQqm͆pQqmFpQqmppnqm{pnqm͆pnqmp|qmpp!qm{p!qm͆p!qmp!qZÑpVÑp"ZÚpH~# ’px2T|:jHqqpJ͌z<͈q~p#÷pJ~p #p>2T|:jHqF#~#foxq̈qqq~#A     _!x4y5*x"x~#N#F#Oy)y Gyyx4y y+++6@#yw#xw+++6###!x~6`yuyyͿy*x#~#~ymäj!*x"x~#^#V#ڼyyGÂy|§yÂy++~_w#~Ww#Âyuy*xDM~#^#V#zyy+zz+{z##{z~#q#p_yyzxzDMy~#zyYP+++"x6@###{_zW+r+sɷhz*x|Fzmçjx^#V+"xw#s#r+++r+s##!oztz*|{z* |?Ҋz}|~# zyG3zxLuz,{v{*|* |Zzͯ{z,{v{###üz{| during G.C. &i{| & ~!) ͌V~#!*i~ʢ( ~K+~#5O ~+~W]-7>*iT]% N#F+q#p###6 u͔:hZ>>w+w!(+7?*i' 6#67~}#^#fk_݉N#~:++@}y@}} #2~. 7#2)ͬzz }}> > 7m L:! ƒ~b#N#F++ͬz OˊIˊRb*@|ˊ!"@}_ފʹ{qz "i#> Lͻ͐_{_hx[|ͪ!Y}V~ͪ Yä~͐!Y}!}Y͐̉|Ġ|ͪ}&}=ͪ }}}{ 0_G!\ͪ':f(yG:^C:\G:^/GÇӀU6+}g6-[|#60:W|W:T|܀ۄ!1|F :W|_ ʠx* { Aq͐ED0ʠ,ʠ.À+60{̀+6${+p2W|!1|6 d}*V*X2/|͇E~(:Zp#=/w1_cƤ~@zZrN vH Tʚ;@B''d #~: ʐ ʐ ʐ0?<=:T|ҷ7-++͐MOօHօ+M~H#mêjM!}0?)))صoM!)'}M0? ?? ))))صo)a{ }ͪ:]:\>}:-|2.|2-|mêjmêji| Internal Error - String Space Corrup#N#F*xyxq{*xyxq{++`i+V+^Zz##6+6+~6  >@++*x"xs#r+Ϳy*x#~_#~Wҟ{mójr+s##6"x###!x~#fo{Z³{<*x"x*x}o|g6@#s#r#6"x* |*|"x}w>#w##Z{++6+6xxr~w#=|!|~w#!|PP*"*"*PQ*) ^#V"*ͪ||*Z}/o|/g#"Z|ͭ|2||!\~wɯ2]ͪ|͂ͭ|*Zͭ|2ͪ|b>>R~~i#ò|iK|!`|>!`V2|# |!`ܖ!`ͷ}t>>|>|}66͔~*<ʀ?.Ͱ :j W:j:> ͰͰܭ~*6?# RO!!4r#4r#4y"‡ʀ><">>2i!ݏ"i:i<2i*i"B!Ռ"im"@͒*i|ӌ##nчŒ.̇*Bmm2D"Em0 #~>DG"V`i"X#~+o-F0OxGo#~-`xEdy >2/|t|\"V`i"Xt}#W}:/|ìҰ60̉}C+~0ʿ.ĉ}ͪ>"w#6+6-/</ :#p#w#6!1|#zrzۄ{}=̓'p#6!0|#:U|~ ,*,+@͐-+$0j#͐j++w`-j6%ʎ2|J+6%J}ͮ}}_xC/_yv̂x΂{_xꂒy3OGOCm}eb!' ~ʄ ʄ#~y`i`Z>O #~goPY!' ůw͔:hZʀ=z=¸ѯk<ʀ!% ^#Vr+sm}!"@} PY!`i>\!' ~ď͔ʹm}e!&+! ~+ngm}e! n&*i~_tDM'~̌4N#V pʀzw w+s#r#6#6DM:hʫ!" s#r#6! {zVw<<ʀ!! {w:O`!!+!m~}͹+6!\>%2U!i~ƚ!e~!`~_#~W#~OT!.QR}ɇ<o&ͭ|2*Z*\͂}"Z`i"\!Z^#V#N#F#!i~Rx{!^6Ɯwg>N û}:T|Gw#»}}}!`}ZͪVͪ}*Z||<ͪ*Z ~}!*}|͐| ~D}:\2\:]҇͑}:].~3~9~|/g}/oM~!:]V~͑}"Z>2T|J}ajL~ L}̈́|ͪ|r>2-|`hM~~&Ņ-ʤ~+ʤ~+͐ڋ.1eʶ~E~͐l~L~q~Q~:T|~>~~%>#O!Pd~DY͐*U|=P͗|ѯͮ}7}yvOzWOx //>|l>|p#=c!Vq}ßD}>͑}t}?/}/{_#zW#yO++ҳ2}#t}p#ڥ>>/N#F#*Z/}o|g"  m2D"Ee!)x)#y))҇ ҆#=n}_}la)ڃҞ#xƒ"! "!) "!}o|gP͎bk:P0DM**g"PY/}o|g!=~x8G@G͈(ux|W>GPejSXWWch|l{_zW}o|gX"8"6x!6~w#|uˆqJ!]qx!]F#~怩O 4Ôgo"Z"\s#r#q#p"Z`i"\*Z*\DM^#V#N#F#xy:]:\7|/G}/O!>5 47>{_zW}o|g=+|g}o]CZQP o-yOzW{_xG`Z*\DM^#V#N&))) ^#V#!Z)^#V#!V&)w#w#w#w##~ : :Ʌo$ɧGw#P{z}!*}|͐| ~D}:{}2~:~͑}:~.~3~9~|/g}/oM~!~:#~V~͑}"}>2T|J}ajL~ L}̈́|ͪ|>2-|`hM~~&-ʤ~+ʤ~+uڋ.1eʶ~E~ͥ~l~L~q~Q~:T|~>~~%>#O!Pd~DYͻ~6#h͗gʣ Oʨ!!\y# +“ ?͋ڝb͋Yn!`͗-:] :g/O!]~+>w QYu :]ҠhژΜʛƁʠ͕͹!&J\QY Ð|Yt&wz^Pc|u~r1Йq>2]!&Μog2W }}{(qnz ΜX&XΜ~#ڝ=xUW1DT :]㝐g/<͕ ͹gN!Z~_#~W#~Oҡ#4ʐ.dáG~_#~W#~O܁Dö >OWDɚu ȯGͪ"Cy2EFo͕͌!D*Z:\O]4*#"°0DM**g"PY2O*! ~#foPs#rV:Oc!c!& Ç~# xhDMЏwŏ! w!( V6 ʝzwΏwŏ! ~!! ^#V! s#rDMͽͷP}eb`i"i!"i-ͥm!>øjm|­j,'-:ie*i!i"i{3zf$%K!D*i6|}!"i>6>4>?>=>:>7>5>2>3>@>C>mo&øj!"i!n"oͤ:_nµ|?õpۑ:>\2ϐʴͰ+~Ͱ+ͰͰͭ!n2ۑOʻY:\<=+!Vʗ!ȗx!]5nq!\N#F͹+6c!\>%?2U:V͌ x/F+N+=«!`ÿ!V>q#p#=•!V"Ͷͥ͑*͗:]!fN#Fͪq!GSQx Ì!\-j0 TeB׳]h!I.k ͋ڝbh͋Y!`q!]q#~++w+qƒ DNn"~`35zr1{r1h!I͗ yO2f͗ :]n/N|Գ{>2]/))Ҵ =¬!\~7w?##wy7O*Z*\"\"ZajSX*JS\E!]/\Ͱ2yz̳7 ʡ z 4ʵz̳ʵRʵͰ> Ͱ>ܐ\>#u6ͭ!nő x<>ʅyq#Ͱ > Ͱۑʒ :_ṋwmw>^Ͱ@Ͱͭ~ ԑ> ͰͰ#ői|* j #~+<=܋ be 4+~#<:=^ ii :jG7i*:iS<2i*i"!"i ii*i654> ~=i* j!j" j" j> > > i> i*î Gǒ’~#foĒ##ђ>ޒ~+~?~+#+ G2_!f%:_2Ux!`Vs\+4Q:U?!^~++w !V4#D4n+6!`V# \ɯ# iiҌ/!UOyw#„G:\µ!UVwz# šx!Uȗx+!]w+~w# ʗ͋ڝb͋Y!`ܖ͋ڝb͋Yn!`̖y2f!\~q+q<NsY+1' W~w+F?!\C2bڝ!Vw#h y}ͮ͂ôͮ͹!YF#^#V#Náʹ}`~#œG++NyVÚ!Zڝ>ɘq!^6Ɯg>N|ԇ>ØakڝL A      KayPro II =  YY 2468 ,ion callOverflowOut of memoryUndefined line numberSubscript out of rangeDuplicate DefinitionDivision by zeroIllegal directType mismatchOut of string spaceString too longString formula too complexCan't continueUndefined user functionNo RESUMERESUME without errorUnprintable errorMissing operandLine buffer overflow??FOR Without NEXT??WHILE without WENDWEND without WHILEFIELD overflowInternal errorBad file numberFile not foundBad file modeFile already open?Disk I/O errorFile al in Ok Break!9~#b  T N#F#`izv C T  *|<ʗ :  D=96543>7@?2C: * "   *" 2 2 |< "  * Ì]z))DEc9@gQC}DE CsD +"]D  $ |D}DDD<|""XL{LL{PtM=$$YXTZZSR\SZeXY{TzTSYHIyII|(*g(678&+7y8919JHFIHH"+IFFz)) *m*zQ}QQU@VXVaQdQgQ;LM$Xq"9BLdhiUTϫNBTSLOSONԚLEAҒINSNDBV+V,V-O HRAL̶OMMOθHAIιELETŪATI͆EFSTҭEFINԮEFSNǯEFDB̰EƘLSŢNāRASŦDIԧRROҨRRX O/QO҂IELILERIOTωO TωOSUEEXready exists??Disk fullInput past endBad record numberBad file name?Direct statement in fileToo many filespP8`@` :NPUԅƋNSTNNMNKEYILPRINԞLISԟPOEԈINűOASEISԓO O0EEFTO1ERGOKI2KS3KD4IDEXԃUL̖AMEהOPEοUԝΕCTPTIOκRINԑUOKřOEEETURΎEAćUΊESTORŌE͏ESUMũSEIGHTNENUͬESEANDOMIZŻTOАWAХAVPCTEGQI TRTRINGPACEYSTEͽHEROΣROFƤABA SINSAARPTIDTȡAIԗHILŴENĵRITŷO۾yy||PF<2(z{ *z);*)&,,d-D.s)%%'i')1+%+Q+3)NEXT without FORSyntax errorRETURN without GOSUBOut of DATAIllegal funct  C{K2* " * |< " " * |! 4 4 5wY2B!{DP 2R U >(_#U * ~?o !P #GC!BʻY|<1>DA2MSB!E :* > @(K 2 Ç 2 *  C " :b ʢ >(Kڢ <=ʢ (ͬ~ ̾(" ҊSe]" ;5$ܢ"ʇ: \*v " * ͶB" t##s#r## w# y}ͯ!6"*" 7C*"* "â *bk~####~ ҷ ڷù#s#rïC *DM~#* u )4} )H>2  N#fi-++<(aZz)}/o|/g" :g q7xz)z ,{ʨ+F•{o|P {o|<«{o|2¸{/o|/}//o|//}o|g,::e 2 ͋9:g " " ͬB!9(:g * ~)C,* C,Á2N 2g !9(!9.,:g G:N Od}!N#F#~: ҆ ځ#:l `#2l f>R~#"j &o"n >2m !~##"j +fC͎*j <2m n G("j ! 0?<=:l ҫ ګ*n ¨###^#V,:m 2g *n " *p " !n (E AOGEAGx3Ø(:l  *j #*C > 2 ,$`i P "  "!>:yHG+ȸ#", ~,B>2 d: =Bd̨H+~,ʿ+N6,E* 2 QC,͋9~,c: 2 TF—Qd¢WG"ʌ: Wʉ:,+FO: y!...+ʽ,G+M: C#~# #^#V" cCC(+B͓2 " * ~" ڎ_4:g {[H !xVzʬQںzʺ! :g  N#F#N#F! N#F#N#FKG* W " Ð)͙(6Çz)uÇxdd!BdX* \FÇy2h :g g+Wx+##~#foC`i~#fo??2i 2h ;#~=!@}O|G!""y O:h ~ʂ#Y:aJg>2h 2i U%~|*O~#Ym?>HjZEڗ;;>ʸ;>HOZ#þGO TOUBZ!AO ^#V#ZOd#<y(!!!Z.!>dG>Y2i Y%=+ZOiMk֢ύ>2i W„Y>5W>Y{~.ʧ:"0":i ~O.O>Y(ͬ}Y|Y%~.ͬ:g * |>}e. P O:* * C)>" : OBO/2 OÐ9~ #~#`J x 2b b + C,u W : u 2_H 2u 2_H 2H /<z)zu 2 2 C,u Y +{>2e]!"N#F#xʇ TFQBN#F#Cچ " 1~ > @ !b !BÑ ~ͥB# b 2 e] #~ <֌W-͋9C" :g G:g x=ͬ:g  H * #^#V*Cs* C{! C{>HͣFH(µC(zʢPY" : {:_ u ~GC+K x),  <2~(z˜<* * "~ #####u   =>C,* =( |" 2 " â ~,dC+͆(~ʕ *n €€l>2á Q+!B>ee,%;d)1F6 * 4TF* ::G<:?(zOxdz o! N#F* *(" " ͩ( *!:h og~#fox(2g 6" ;)!A͙(*ʹ(" " i*͙(*g' .EJ ]<=ʓ<"FO&i:* ,C(#r PQ͉:C)|)IoBI'UTC)}* k(͋9" d(~a{_&([OʭH¬#~[Eҗ:0ÞG7))))o~ +8  )))0O í)#~ց(7>OyC,;*Y! d! ~Y#=%iʎ%à&O[H> K> Yi>: y +=2i ZY#ZEo:ҋ0o.o%~ Ҡ ʠ ʠ> :i <ʩ=m+~ ʬ ʬ ʬ#>d2 ͋9C" :g ͬ! (" !9T  +V+^##* C" B* *Cd Nz)~S ͒(q)ʹ(QZ~>r)ʹ(E(OdG+ $* "* 3àE3\B" !9" ~: #~#ʅ #^#V": >[@1>]@ցLO! =:G<:e ?=!B&Gá(* TF~\:I:G<:\V:G:e \!B\/V tz|TF›:::o<ʛ& ,C)+(* TF~:::e /<!B{= @è2go"C#ʧQHLo͋9;*0KDF>-?Redo from start #~ "4N: !!#G* Q!a ;#YHL">2>2 F~,2 ÓC;&G: ʫ>?@> @0KDů2 6,+>2 ͉:~+[(# "4([]) A     ! _!A!_.!!!/!: -!<-!> >2 { =! ! <~J!#~#X! k*l!~#>l!+!:G@ #T]~u!#y!~v!ʏ!y_¢!: >2 ÷![®!2 !: >2 !> XG{!~#_XG!!2 E0:?+͎ " o6 r6*n )1:l O " H*">&{:m ;"!;"#~ ̾(~#m":m A" ^".h"Dh"EA"A"{v"*j 5$Ҕ"T]C!E #G!* C¦"`i" "\]~"\]C,u "z)d: E()È% PX !@ #G"G)Ͳ1F1Ͳ1416+͆(F16-k(#60: W:g 22һ1ͺ5! F : _ 1x*1{1Aqʟ1Eʟ1Dʟ101,1.¢1+60{ʫ1+6${+p2 ! 6 ͙(* * 2 f2E~2:101 #~1>DG1" `i" #~+N2-%20OxGN2#~ 2`xEC2y 1>2 S2|1;21" `i" ͩ(#W\4: 2Ë22ҏ2460̾("5+~0ʞ2.ľ(2d>"w#6+26-/</ 2:#p#w#6! #zQ334z4ͺ5{(=4b1È%E(.(y2<'"7'PX!%!%'! ~#Y'Wy='O|g}oxGQ'x Gz/'CZQO͙(!-ͦ(E(ʐ0.(4g04g0+~2'+~2'+~2'AOW_2'}o|gxG>?ұ'2'7y<=':'x'> $&{_zWyO)xG:'2'y”'! 5”'%>.! N#G.x'(}! Gx&(ƀwW'(w+E(/%g0ʹ(xڀ0G͈%! 4À0: : /<! Op#6%͆(d+ ! ~w͆(og)d E(* ||O(* * ͷ(" `i" ! ^#V#N#F# (:g Gw#(! ~7w?##wy7O! ((! ( d 2 -# -~/w! Oyw#-q<-NsY+1-'- W~w+F-?-! C-~w# [-E(: %'͝.qʙ-G,Q-x ‚-y-Ñ,! --Ñ-L} : A--! (d-: -2 !t(. ! (.&, ! (>.".&,! 3.=-..! 5%! >5=.>! N#F#=(.>! p+q+=9.: ʔ0: %'44ʈ0͝.!7 qA>,?t.>,: <=,! [-!0 Y-xb.! 5b.%y2 +6 ~q+¨.(+~ڈ0w&,4È0%3*j%>2 `h)~&i-.+.+//#,#BK/#C,/#C,( z`iC[# !C^#Vzn#~#+K#͑#^#Vzʌ##s#r u# 2 *+#~##^#Vʚ#O: y$#¦#¦#3z##£#3 > %$B!$#G11+ã#Undefined line #3###N#F>!#*j +p+q+w: Ò#CBCACSCE: * * C ~0  2 <2 ~̓$#y$\Aʔ$z)ð$!$#G KD#~.~•$z)"j87Random number seed (-32768 to 32767)$*" +%%$3p#6! #: ~ 3* 3+3-+$0I3#I3++w?3 3I36%3m36C){3)1+6%)d3E(\43_x44"5452_y/3/3{_x34434y5O4GO"53* =4P2*ѯ3E(7\4y/OzWO/4)4/<2g )aj)d* ʹ(6*x(! F#&* 6*|UY(d *!" " >>)d GOW_ʹ((gf*>b&|5&N&z< dE(*t(̀*k(dҦ* )! ~: ~B*6{y%! ~*O+~+¶*!*) *yʹ((+6+q*: O! >%-,2 Ñ,! ~5.ʆ/e /E5/l#/L#/q#/Q4/:g N/>N/~%ʓ/#ʤ/!ʥ/dN/De/ͮ/2S0e/_{_//i/k(d!W')d e/ܮ/.!W'!z)e/ͮ/e/) *d.(.=d^'- ̓$> ̓$!  101(d0! 1(* |* "1C%#~#Y #^#V" y~.%$$$$$%** "͋9+%c%C,+8%": 2 2 ! 6ͷ(È%ͷ(t(x: ʩ(Ң%/<͙(ͩ((gb&|! %B&#ʈ0.͉&#&G~_#~W#~ON&hcGy&JTeox%2 |&y%O&)zWyO%x\E#&! w%%x! 5&F#~怩Oé( 4Ç0~_#~W#~O! ~/woG}_}W}Oq&CZQd& oz…&y-O{&Ë&-yOzW{_xGÅ&$cCu͍M r5E(&1r'ʹ(>2 ͙(!&ͧ7͙(ͩ(!&ͧ7i'͙(T(#*!x"+>);)+ ;=+|G+y4+|Gz)*͙(,N0|)+DM!>)ډ+)q+ ډ+=c+|+x+ʚ+*͙(*'x)*t(| ++DM!>+ +7>{_zW}o|g=+w+|G+|)Ooyg)* +|6*Y(ͨ+g{o)+! ~w! ~G+N (R,/<#Fwx+ B,F+N9(! G>w2 ! %-x,: 2 ,,4ʈ0Q-,>,! -G: º,! Vwz# Ÿ,x’,%! Y-,x,! w%: ,! ~++w! 4#,4ʈ0+60 ! ->!    6.#605#H56." #H 6,#dq5(! 6(&,*6> 5/>,K5>,p#=B5! ͦ(~5y%>B*ͩ(_6?5ʹ(/{_#zW#yO++Ғ5B&#ͩ(p#ڄ5>5e6>5N#F#* /}o|g5" p#=55w1_cƤ~@zZrN vH Tʚ;@B''d G" կʎ6))))Ÿ6y=ʟ6ʫ60:ڨ6 ʸ6ʊ6È6!t(͙(! 6ͦ(6)!r%>2 E(x+76ʗ0%yʹ(7: 7~A[?;C E, E+ EC, E*,4EyE+ʅEC,ʅEyE+ !NC҂E͗EڂE*  C҂E"v " E"zB**v {_zWME}_|W2 " ċ9" P ^#V#* C ~#~#Eͦ(: E! ͦ(|%(ͷ()/F####N#F#^#Vi`: F* F1+:g  r+s^#V#3)ͷ(AF"i`Ü" * ~, ͨE*|ͥH~#N#FͬHW^#N#F{zد< #rF?P(o6ÙFr6ÙF)1FͨHH~#* C;^#~#¸;:g ¸;~;#^^#V#˜;:f DMW']< #:¹;#ʾ;+͸<þ;:g w#_ʖ @:A 3A6A:<:-A!MA6A<2Oɯ2:> 7A> 7A2:XG{A:e ʍA=2e >îA A> @:e €A ڮA:G:e ʥA!BʮA<2e OTFAWMS: 0P:A!7C!E #G:AD/2AD:e !B6!a > @> @TF3B:?B2ɯ2e :=@FBAA2CDD͙BƒBʌBAͷF_H!D " >2g :2@ > @+B> BC~ +üB*v  >ƕo>gB9*++"  BgGBB7͍*)|" " ܻ6t(ͽ&'8;': `7hr7͙(͍*Ɓc7ͅ%!{7ͧ7J'͙(: o7%~0é(|Yt&wz^Pc|u~r1͙(+ʹ('͙(~#ͦ(='ͷ(͈%ð7RO!&ͦ(76*E(!H8>8!i8ͦ(!H8Ȇw#O ͷ(':G8<2G8!i8O |%ʹ({YOO6+F6!F84~֫58w %!i8(w+w+w85Jʙ9v" GSљ e͘w>ROhFhiuh!8|%: w: 82 t("~'͙(͍*ͅ%)8͈%͈%E(t(͈%t(: 82 !9͘7: 2 "~>*x " >2g ( C"x ~ #FͨH͹( @ +B-G* * /O #CZG" # >G*v " !* !z *x CxGH!L " * " * * CʹG~###͚<²GH_ÕG* ^#Vz* G" ##^#V#" ÕG* C7H~###͚!@1> @!b  ~#=GA"=[0A= A=_zW"=! =L=ʺ>O>>ʨ=1g= !>=#ʻ=>>= >>(9>ʵ=6>>@!B<~ͥB#¨=!>7A_>~=ͥB܁>=#~== !B<~>\ͥB~>ͥB́>=>\@~A +> +>+> +>>@ >wͥB# >6Hͨ=Aq>s> >s> ʑ>ʑ> ʑ> >>_‘>>_ʙ>ͥB+>> ~7W'#~+w#Ã>yڡ>>@>> o&DM#͹BwͥB#Þ>x+>ͥB>x+~ͥB> !BzOD22>^@@@!B* | * "u <2>2 ͋9! (* dC,͋9Gd * CD( (>2 ͋9D2 `i D * CD `i" ~,DIe&X4#]I͙(8͙(ͩ(y8g'E(6t(: N9QYi'!%!X9͘7!8 J;xn{/|t1}=Z}~L~l+C,}92f NE G2#~.9ʵ9:ү90ҵ9E9G#~:90Ҽ9EҼ9.ʼ9x' 2~&9 :%$!#y_! V+z2g : =ʒ;):~(;3;2 : 2 }:*  " c:o[::g [::&\@@_W@W~#!ʎ@#ʡ?&ʉ@g@+>H?+~#.?_}@\&???$ʚ?*??x#ڒ?~$> ž?#W?~#.?#ʡ?,?z@Wá?~#>.??# ?~##??T]^###xG#z+@x@~-@@>Wr@Cxz*1#G+7N@2 ;K@, ~#_~#foxE?m@@@?!BͫH@~#@_@Ò@>@r@;** AxxOI&G* 5@G> 5@@@z>+@TFfV:\A@:@27A  A     C(u C,C)d$Ix 'IH0Ix > {͹FGH* w#?IHIO>~XIxIx C,;*C,* C)ͥHW'ͫHG=O>x~#F#fh GN#^#VUJ LJ#7Jѯx<#4JIJC(͋9;*#^#V* CڍJ*CҍJͣF(C,u ~JͥHG!W'y~YwwͱWoY<ʻ ÅY<…Y£ cY!%w#w#w#w~ʨYCzW* ) p# ®YC T T _W<Yʣ Z!6# ͖ZW2 !͒Z!͒Zʣ O!  ~#@ygZ~ dZ>.@ QZ:e W:ڀZ> @@!BAZ~*6?# –ZO!!4¶Z#4¶Z#4y"Zʻ ><+Z* C! s#r#wZ2 N* C Oy_xW `i" * CNO##~w#͚2 : mS:2ùR2 2 * DM* " * #* " CNP `i" * *+zʠ `ià Q+PdP)1F* #^#V ªPr+s+5&G+P;ʿPC,+>,@ÇP>"@&G>"@íP*|Q~Q\}o|gQ> @+|U>  U!Ux͹FFTC$C(u ~,KU*Qʠ "QC)}͹FʅU͙BlUA~Uw# ^UF* DWڬ qU6Qʦ ʠ !' ~U U#~¸U`i}WÙU>O #~(PY!' ůwͱW:!͞Zʻ =ʝ =UѯÚ <ʻ !% ^#Vr+s9Q6V PY,V!#V`i>yV!' ~UͱW)9V6Qʦ !&QV! ~+n6Qʦ ! ~*~Ee\DM'~U4N#V pʝVzw w+s#r#6#6DM:V!" s#r#6 W! {zVWw<W<gG* * >?@> @(KͿAzK68Kp22 ͿAoK!B!=:>\2UK'K@+iK~@K+@K@!B!b 2OAK:ʐK>\@2yKCD7 ;L K ´K(KKCD(KK0K@> @>bKK>#iKK6!B!b K KxL*|>L!b ("_yq#@ K2e > @ͿA,L KzK: Bw!a >2 ;2 " $L33oL " ** áL LL" *" ##^#V#~#fo"͆(ʵLA3à* "à!9~#L L~#foC L >2 ͋9du]*Q  ! ^#V~,+ zʵ +s#r! w#w! ~#fo!CT[Ò[BK>!)g[)#h[))v[ u[#=][}_}la)ҍ[#x"o]! "q]!) "s]!}o|gCڼ[bk:u]\C[ \DM*s]*q]X\"q]PY\*o]#"o]}o|g|Ÿ[ \DM*q]*s]X\"q]PY[2*o]! ~#foCs#rG\:T\!T\!& äV~# xY\DM\ʓ\͹\! w!( V6 ʎ\zwø \ʓ\͹\! ~!ô\! ^#V! s#rDMͱ\ͫ\C" ͒#\>;S"]C ** C!X9}o|gP!B#*QѻQ  C,PY"+#x _:ڦ !N#F :Q!)^Q! >>>ͬ͹F* (H>>>ͥH<2g #~#fo(d ,»QZûQ Q͋9;*W_Wڬ Q¾Q"QG{,xQPXW1R!b Oz"yR QR RO{,yĊRW1R R{ +R,> +R+R1R1R͊RWQ"W*~ʖ\( ~hW+~#5O ~+~tWzWJW7>*T]% N#F+q#p###6 ’WͱW: ͞Z>ªW>w+w!(HW7?*' 6#67ͥH~ʲ #^#fk_XN#~:X++@bXy@bXbX #RX~.0X>X7X#X2 z bXbX> >X7X> WX7Xò W<ʣ ! w#…XCACSW:!<¾ ͥH~ʠ #N#F OXIXR  C,#u C,{ʦ _(""  B!9 +" _MC(͋9s#r#~,=M #MC)" >!=_M=_M=_M!9DM!jM* * * à2 2 ~‡M2 #+͔R!" +NC,,ʸM"" +NC,MCACLCLNOC, 2 5$`i" NT]" CNO**+#~#N#^#V"N:N2 ͉:ʢNxG͒;>2 hN~(nNþN~(͉:zNxGN::g W):zBK!N N 2 ~(nN ͖N+"N(NC)"NC,BN"* * C#ON##~w#͚< NO* "*  CVSHWw#S" : "]ͫ##" !~267C:2: 0P:ʇ àVC!CB͔R+mSMS 2Wڢ <ʠ <ʠ *( 4â *|B ͖R+ʶSC,P\CAÉ ͒#e]>hV* *CMS~#hVSV:SS=S~,~#u SůSѯ*Qʦ   ! ~#fo" !"o]| G~,r CACS͋9;*O*o] "o]* Cڸ q#s#r9T7͋9;*ͥHF~O#^#VT*CT* CTY* * CUy2!^" :^^<2^!~" ^F#~+w##D^+6" !^/x^+6"" #/x^i^^6ZS^Mʐ^F C:dʯ^z{2ô^"v +^C/}^C:d" ô^+*v +"v +:!]"2<s#r# * ##~#foʹ`i~#fo?? :YG!9^#V# 5*/ 2 2 w#w#"( */+" !0 6#M 2! og" "& * " U*( "* ", 5*+++" ##! " ͆go2 * >?> 2 2 ;~"n Dw: ~D?>D8͗ڇ!AO ^#V#͗Oʢ#  +>͌2 ͌ó ! +``>2 ~t͊%͊>͌p~.ʗ:0: ~D.D>͌}͌|͌ó ~i>: *X |>}e. ҷü͌!X !NMILEԈINűOASEPRINԞLISԟPOISԓO O0EEFTO1ERGOKI2KS3KD4IDEXԃUL̖AMEהOUԝΕPEοCTUOKřRINԑOEEEAćUΊESTORŌETURΎE͏ESUMũSEIGHTNENUͬESETOАWAХAVPCTEGQI TRTRINGPACEYSTEͽROΣROFƤABHEA SINSAARPTIDTȡAIԗO۾yy||PF<2(z{i:::=:f<_<==:z6w6789q;e;;9NEXT without FORSyntax errorRETURN without GOSUBOut of DATAIllegal function callOverflowOut of memoryUndefined line num in Ok Break!9~#N#F#i`zʳ ʹ Ý ʹ~ + *,  >>ƕo> g9*+++" $  0 *-|<  DM=^#"" {ozgB|g}o_|0_!{ozgB"v "" " *B}o|g++!_#G1!_#G!#G" !B! v] Owned by Microsoft Bytes freeBASIC-80 Rev. 5.21 [CP/M Version] Copyright 1977-1981 (C) by Microsoft Created: 28-Jul-81 T ~͌#=ó 7ʫý&DͫH> 8> ͌õ#͌:VJ\>2 2 U³ ~|wD~#͌b!@}O|G!>: y$ ~a{_w+=2 g~ ҽ ʽ ʽ> : \2)>+#~+!2)O:)J>\2)yʊ7  ʊ nÊ@#_ x<>ʕyq# 2 > oʥ 4|}~#ʫ *5|.:&) > :% :%<berSubscript out of rangeRedimensioned arrayDivision by zeroIllegal directType mismatchOut of string spaceString too longString formula too complexCan't continueUndefined user functionNo RESUMERESUME without errorUnprintable errorMissing operandLine buffer overflowFIELD overflowInternal errorBad file numberFile not foundBad file modeFile already open?Disk I/O errorFile already exists??Disk fullInput past endBad record numberBad file nameMode-mismatchDirect statement in fileT :! $ à* "-  *-" " 6 * À {K2#* " * |/_#‰ * |"|2*X4! :#*!"-:  * ? >* >  2 â *  ʹ " +ڽ ͫ<=ʽ ~ K9ͦ " ҕ4ͫ" G ʯW-(ʆ *( ͼ "( t##s#r# w# y| ͮ !6"9*5"" A *7"9*" "5ý */bk~####~ Ҷ ڶ ͬͫø #s#rî   ͺ */DM~#+G:%:,}O!Uej"&- V.& 3(  (&b&K&  M,*',Q1i05O.N.43g410q1V5U54X1g$$$ 9:8DE)Fv7D#FFF< &f #"$#$,(J$!"` :=:i::222_--.222;LMx  C\o(267NBTSUTϫLOSONԚLEAҒINSNDBV+V,V-O HRATI͆EFSTҭEFINԮEFSNǯEFDB̰EƘELETŪNāLSŢRASŦDIԧRROҨRRX O/QO҂IELILERIOTωO TωOSUEEXNPUԅƋNSTNoo many filesH8jII, A     2%Oɯ2&:%> > 2%:*±" H> : 8 \:'G: <2 O*5|ʠz/7X4:1!FA ! |":*/2*>d2 ͙  "  *-ͺʈ:҈:̀:~d&94=:A9QZ~>5́=:A98OG* 3{" !9" ~:ʋ #~# #^#V"-:R ʊ>[?>]ͫFցL%O! N#F#~: ʫ : * ì#2 ~#o&" >2 <2 !ͫ" !ͺ, >2 17҈:["ѯ~) !*" ͺ(* 1 ~)W!ͺ,ͺ,>!ͫͺ)>ͺ̀+ͫ ʶ!!Қ!p+qv!+p+qv!+p+q+p+qv! ["!YO q* *X ʹ!"u!! #~" w#q#pv!*-#| $ ͺ>2 G6QD "TD "?5"#$~#͕"N#F*"o͸#͕"! w#s#r+"P#~ K"K"<""̫#y*" >* "X >2 V9 ʹ" ~$ #5"#F9  Æ"*+* /O #ʹڳ"" #$ "* " !*+! * ʹ"0#*( ** ʹ#~###"1#_"*  |" 2 " ý ̀~,̫4ͺ+9Lͫ} }ÒͫNN<>2&o\2+ͫʆa(BB,;̀?5"*5|*X :&ʿ:%:'G: "> "o: 6!> > *5|:"=2 *5|% ~9:&+:%p3:(G: 9/t̓&ͺ)+o*5|% ~o:&l:%o: / xͫv2&go"5ͺ#21̈́:ڝ8"?REDO FROM START : !|"* Z2!#">2*6"ͺ7+ͫ)8 7)))0O %:#~ցOͫyY|ͺ,̈́:*X ͆&n͠} j=: N#fi#~#N#F#^#N#F{zد< #ʌ?8< 9Z̓:}/o|/g"X Ï: 7:zM<{;k F{o|P{o|< {o|2{/o|/}//o|//+ͫͺ,#2 F OͫJWOͫKK~%$!#xA_!0 V+z2 ͫ: =d~(1312 *( ** ʹo>&ã|wʹʹO*, ͼ ", `i"*  GZ9" !$  ҫ0?<=: F F* @###^#VC<! : 2 {9*/j `iү+". oo<Ó5" ! " !*-}<ʴ"$ * "& 2*! – á >2&2*>^@*& |$ *$ "-͆&:'G{<2">2R 1!J V9** ͺ,1ˆ:** ʹV9J V9>2 12 `i *, ʹe `i", ~,ͫM AOGͫ¯ͫAGͫx'"͉&* sW"ͫͺ(͆&ͺ,̀ͺ)C$͉&F$$O$͉&> {'"_$* w#^$$$O>~w$x͕"#F#fh DM*"o͸##W"$k$~$ &o$=O~GC#i _#~#foFr~b>pͺ)Cͫ|> %͉&;"͙ ڝ#~+6,!*. 2 -ͺ,1~,U: >?͙ ڝ#~+*5|2‚ͫWG"u:,+9"!ͫxi>b>+ͫʝ,+ͫ): k*5|!|"Æ?Extra ignored #~#$ #^#V" ͫU1" ͙  " ~#~#.39n6M9D9͓9W####N#F#^#Vi`q;: 7r+s^#V#9D9i"-i`B" * ~,Fͫͺ(+ "" *" ~ڲҲW " ͫÖzG~" _: y#!MxVz-Q;z;!X : === !N#F#N+6ʹs#s#rW_2[ go"X /! "X * W*, ʹ: ʦ#‡~#ˆ~>##^#V#j:  DM7  $ w#_q#p#O ##" q#: y q#p#E;=BKڡ ", +6ʹW* ^) ++s#r#8 GO~#^#V#ʹҡE;=DM : DM)0 )5 )5 *" *, !9W #Ϳ"*+* }o|gC<:%i : og%:͎ ͠N#F!7: #!X ͫҦ ڦ ͫ: O! ͎ ͺg&s#rʭ !!s#r~(ͫ1~)ͺ, !: "" ~#fo ~(`ͫ!ʹ bk))0_E +ͫ* }_|W *( ( ʹ "+E A \ 3E F| *->3À: * *-ʹ# ү > 2 N-`i$ ͙ " $ "-!F>:yHG+ͫȸ#"<֌W1ͺ" ̀ͧ!͈9P*X #^#V*/ʹD*+ʹL*( ʹL>#"#V9…ͫͺzs PYү" :! :#_- ͆&~Gʔͺ+K xʓ,Õ! " <2#~z€<ͫ* * "-~#####͆&$  ͺ,#F#!T N#F#N#F*!KGd* Ã=:&9D&:&xdd!*X w&y2 xʗ: ʿWxzʈ:!w N#F*X i:́9"V "T 69i:!c: O ~#fó92 ʥ"X ê=:!mð&9]:A9"Z "X ]:&9]:8ͫ$ i> &<.=Ҷʨ"6"ʱ&Gͫ:#i Xͫ* C<‡ͫͺ(#t̓&͚2w1ͺ)|%:o $$ 6 |ͺ)}̓*" 81"X {9&ͫOH#:)0)G)7))))o  ,̀̈́:ͺ,*X ̀ͺ)#7i #G=O>~x~#F#fh GN#^#Vt% k%#V%ѯx<#h%S%~ #~ #ͺ(1̈́:#^#V*+ʹڰ%"V9ͺ,͆&~ &ͺ̀#G!7y~<%yH #^#fk GN#~#foyw# %)&ͺ,͆&ͺ)͉&2$&i s&s&+ͫB&ͺ,͆&C&͆&2'V&/<2(ͫ̀:z͆&2D&2,&ͺ,Æ&ͫ̀j&+ͫ{>2& !"-N#F#xʢ *5|pN#F#ʹڡ " ?> &!&ß&~+#&&#~&4ů4ѯt2ʧ1¡1& G~,̓&ͺAͺS1̈́:Oڹ1ҹ1q#s#r 571̈́:ͺ̀#F~O#^#V5*/ʹҶ5*( ʹڶ5Y*+* ʹ5y͕"##s#r#^#V#^#Vyx5yGyO55~#55> 56x'"W"ß5ͫͺ$ͺ(͆&~,06ͫt2¡1l2ͺ)}'"b6͡]6w# C6͆W"Éz/ڭ1P6!CD9z6D99x:[ 69Ҕ6/<&969c9gA7!X 6!77#47.W77G~_#~W#~O-7hcGy6JTeox62[ )zWyO6x\E7![ w6_D+~!++ܡ++#~++&H*~>\+~D++͡+5+>\~ow+#J+6H*oʑ+ +ʓ+ ʱ+ʱ+ ʱ+ c+_±+>_ʹ+++c+ ~77#~+w#ã+y+>c+ o&DM#Ϳ w+#c+x+~++&z z7@?2C:$ 1!l6# R2ĕ/!mN2!uN2lʤ1O!  ~#y#2~ 2>. 2: W:'<2> l1~*6?# R2#t2ѻ¡1ͺ,`i"5+ͫ#̫͉̀&_:Yڧ1!9N#F ̈́2!& >>>ͧ!'"* ̈́9$>>>#<#N#fi2 {9x ,2Z2Z21̈́:W_ ' c'&<~'#~#'' ̶:!:G@ #T]~5'#9'~6'y[R'~#_!+P'&+ͫ&' QD TD* ?: O ʕ' H '>&{: ڱ'!ʱ'#~ K9~#': ڷ' '.'D'E·'÷'{'* & W- (T]ʹ! |"! *( ʹ(`i"( E(~i ̀E(ͺ,͆&::[ :Z z6́̈́:ͺ;*X {(: ʅ(2 F#N#fiï(X~#\) ¥( ”(C>\*_W*W~#!)#))+>ʲ(+~#. )\ʐ(©($(*©(x#(~$> (#x![ 7F#~怩O69 4$ ~_#~W#~O!\ ~/woG}_}W}OP7CZQC7 o-yOzW{_xGS7V"vE88![ ~5pz68!e7t6!i7WEz6͸?1r8.͐8y27"7PX!6!7!X ~#8Wy7O|g}oxGz7CZQO&9!=398 .͐844+~2B8+~2>8+~2:8AOW_2E8}o|gxG>?S82E87y<=7{_zWyO)xG:E82E8y68![ 5687>.!d N#G.xʴ8}![ Gx8ƀw7c9w+8/67A9x7Gz6![ 47:[ :Z /<![ Op#6698<ʈ > G-!#-|"??+,Undefined line ,###N#F>!-* +p+q+w: ó,̀2ʡ1!$ ~}-#N>O #~ 9PY!$ 6i/ʞ1«-ѯÛ1<ʼ1!" ^#Vr+s̓2- PY-!-`i>".!$ ~Ć-i/&-̀2ʧ1!# ~+nk ̀2ʧ1! ~i *5~ʀDM$~̃-4~O#V pG.zw w23t2¡1!" ^#V~,+ͫ {ʶ1+s#r#6#6DM! {zV.w<.<ʼ1!! {w:3.9/!! ~!& .̓-.Æ~z/ڭ1 33"%3G{,x%3PXz/s3!Oz"y^3 ʓ3 ^3O{,y3z/s3 ^3{ m3,> m3m3s3s33z/*3"~3 ¦3z/ڦ3 ~3,ʦ3 ž3z/ڦ3 ʦ3*5% 46!{ ʹ38"ͫi>ɷw#ç3ë03:Y22+ͫ3ͺ,ͺR 2Y21!6"9. :22Y*7"9"5z/<…4*/*+ ʹa4 /w#4ͪ ##"( !Y~226A :22Y:1ʢ F͆ͼ-Õ . 3+ͫz4X4 21z/<ʡ1*5% ~ʽ 4ý *5|B$ Ë3+ͫʻ4ͺ,ͺAÚ&ͳ,>.*( */ʹX4~#.4-:Y44=4~,ͫ͆WV)~#.+)#),7)z@W)~#>.©(# V)~##+)T)T]^###xG#z+v)xv)~-q)v)>W)̀Cxz?|"+ͫ7ʮ)2 ;ʫ), ͫ~#N#fi_x¯()*r(#Æ>*)̀̈́:*X An$"*X G> ʕ) *z>+2#* <0*" ү`i##N#F#&|<>!?> ! ~#`*Gok*0ڇ* ҇*_zWk*!i*’*O++*1ڨ* ! ,#+#*c+-+J++(^+*[+>1*~+#*!D+7o# .*5% ~#/+~#5O ~+~0/6/ /7>*5T]" N#F+q#p###6 N/i/=c/>w+w!% /7?*5$ 6#67̀#~ʳ1#^#fk_ڸ/N#~:ʼ/++@ʳ1y@ڳ1ҳ1l #0~.//7/#/z ʳ1ڳ1> //>  0/͕/l<ʤ1!\l w# 40ͺAͺS͕/:l!\l<¿1\̀#~ʡ1#N#F Oʓ0Iʓ0R¡1ͺ,#̫͆&ͺ,{ʧ1_̓2°1z͕/" 0{0!u~ 06B#6A#6S"5#l w# 0i/~ 1 A     :!Z ~w9og%:ʈ:8*X ||8*X *Z D9"X `i"Z !X ^#V#N#F#X Z9: Gw#Z9!Z ~7w?##wy7O!^ U9Ç9!^ V9X T x8!88y!Z yͭ9#x+y+z+{z|88}8!^ V9e 8!88O!Z y#ª9+998*X ʈ:G:!7:[ .:͍:"X >2 ͓9aj$:Z:ʈ:A9:xc9!W F7*X :|U8ʈ:Z:!"T "V >>*: $ GOW_A9c9g:>A7|7-7z< 8:9:8:ʈ::![ ~:X ~͍:6{y6![ ~:;O+~I R1(h!).eI R2(h).eI R3(h).eI:::::-J "******************** BIO-RHYTHM ********************"5J:WJ "TO GENERATE A BIO-RHYTHM:"]JJ " - TYPE IN THE SUBJECT'S BIRTHDAY AND THE CURRENT DATE"J# " (SEPARATED BY A COMMA OR )"K( " - ENTER THE NUMBER OF DAYS YOU WANT TO COVER";K- " - ENTER THE NAME OF THE SUBJECT"GK/:::xK2 0,31,59,90,120,151,181,212,243,273,304,334K3 365K< L$(2)KF Z >?Æ> #>??=:i:8J>=8=yZ:7ҥ?t$͓9?ͻ8͸?}?s:J>́98s:f<}?&98z6{ ?0_2>! |"%:p@ @{"p@?6+9 @6-8#60: W: @@y@͜C!g F : _ =@x*=@Aqͫ]@E]@D]@0=@,=@.`@+60{i@+6${+p2 !g 6 WRB@Ҕ@B60K9C+~0ʣ@.K9@>"w#6+@6-/</ @:#p#w#6!g #zVAABzB͜C{̬8=7:[ Ү8:ƀڮ8!e7n6ͮ7w69!6EfEJô7@.tpO.wnz*|P~&9;A9ʹ7&9~#39=ʹ7D9z6oE8!EE!F39!EȆw#O D9ʹ7:E<2E!FO n6A9{YOO6+F6!E4~֫Ew 6!FM9w+w+wE5Jʙ9v" GSљ e͘w>ROhFhiuh!mFn6&9I698&9:w6!qFt687YFk689!qFn69!uFWEId&X4#]I&9)F&969#F88D9:[ ڼFQY8!t6!FWE!mF J;xn{/|t1}=Z}~L~l */+6*Z~3â +;!%:yA9c9+6:;!Z >_==2S )ڡ)^; ڡ=P;|G.);)ұ; ;=£;|;x*<;]:&9]:ô7x%:]:9| "<. < <7>{_zW}o|g=<÷;|G)<|%:Ooyg%:*X .<|:8;g{o(:*6=!\ L=G:Z 2Y"ZGF#~+w##lG+p"Z!ͫG/ʟG+6""Z#/ʟGͫGGpͫMʮGF ͫͺ:Gz{2YG" +ͫGͺ/ãG* +"  +:Y!F"792Y<s#r# =H#"/Iʹ "+" {ozg ?!pH|"!|"" ! "F Owned by Microsoft Memory size Bytes free BASIC Rev. 4.51 [CP/M Version] Copyright 1977 (C) by Microsoft w6:S =!\ ~++w!T 4#=47+6 !^ <=>!^ T 2C=# B=~/w!S Oyw#V=qv=NsY+k=a= W~w+€=y=!Z }=~w# •=8͆85>q=G4=͋=x µ=¬=! qA>+=? >>+=:Z <==!T ͕=! ͓=x=![ 5=7y2d + ~q+@>́9+~7wf<476|:`h%:~&-ʆ>+ʆ>+ͫP?.?E£>ͫL>·>~% ?#?!?D>?!>ͫ-++ͫ?>_{-?=?>8!7.:,#TĆ9!C{9f<;C> B/>9=.C>9=p#=%C!T 39`Ck6<͍:69AD?BA9/{_#zW#yO++tC!7#69p#fC>âCGD>BN#F#*X /}o|gҵC"X p#=¢CBw1_cƤ~@zZrN vH Tʚ;@B''d GE(f կpD))))Dy=ʁDʍD0:ڊD ʚDlDjD!9&9!C39ñD=:8xDD 6yA9D:͓9|"Z "X ܝD9v7ʹ7&98;  )6)((Y1)6))M I M1Mh J1M IM0M I  M2M J2M\ IN J1J1D1N$ J2J2D22N L1(Y1)((Y1))LN L1 L1: WNP L1rN L2(Y2)((Y2))N L2 L2: N| L2N M1 J1J1L1ND M2 J2J2L2N D4D4J2J1Np D1(D4((D4!)!))O D2(D4((D4)))0O8 D3(D4((D4)))AO L3 2 QO I  2aO L$(I)" "iO I{O X(R1D1)Od Y(R2D2)O ZT1T1 M lM D1$M (D1$,)"G" lM (D1$,)"D" NN (D1$,)"H" N" RETYPE: ";: 'N | 8N T1 ANX1LNCCB1UNB1cN"BUST"mN wN D1$N& (D1$,)"G" lN0 (D1$,)"H" N:" RETYPE: ";: NNB1BNX | Nb T1 Nl: T1OvX1T1O"SECOND HAND"OB2B(OV$(X)1OT1X;O | KOX XOT1T1 bO lO D1$O (D1$,)"G" O (D1$,)"D;A$;S81  5S1 ": DATE OF STUDY- ";D9;"- DURATION ";J5;"DAYS ";S2  5T 2 I F:"-";: I:AT2": P=PHYSICAL E=EMOTIONAL M=MENTAL ";OT2 F)":"hT3 I F:"-";: InT3T3": LOW : HIGH :";T3" DATE :CRITICAL";TX4":"T4 I FT4"-";T4 IT4T4 U 5 JF(X)U5 I J'U5" ";/UL6 I8U6":">U7YU8 I F:"-";: I:U9": HIGH DAYS OF FULL VITALITY, EFFICIENCY, "; I :::::I C(4),V$( )I "DO YOU WANT INSTRUCTIONS"I "(Type 0 for NO)";IJ I  JCJ K ,J$ J   D3 C:"P ";PC D3 C:"P ";PH C CPR Q D1D1Q D2D2&QL D3D3;Q D1! D1PQ D2 D2eQx D3 D3sQ J2J2Q J6J6Q J5J6 l Q@" O (D1$,)"H"  O " RETYPE: ";: O  | O T1 fO X2P*CCB2 P4B2P>"BUST";+PH X1 j >PR " ";V$(H)HP\  RPf D1$lPp (D1$,)"G" Pz (D1$,)"H"  P " RETYPE: ";: fPB2BP | P T1  P:T1PBB1B2PX2T1P j P | Q T1  Q"BUST";,Q" ";V$(H)6Q  ?Q D$XQ (D$,)"G" ` qQ$ (D$,)"H" Q. " RETYPE: ";:  QB BBU9"AND HIGH ENDURANCE"; Ul9  5U9": LOW DAYS OF REDUCED EFFICIENCY, RECUPERATION, ";V9"TIRE EASILY";V4:  5[V:": CRITICAL DAYS TO AVOID SITUATIONS THAT MIGHT "; uV:"LEAD TO TROUBLE"; V:  5V.; I F:"-";: I:V`; );"PAGE ";P1V(< AVOID SITUATIONS THAT MIGHT "; uV:"LEAD TO TROUBLE"; V:  5V.; I F:"-";: IKZS1Kd"BET = ";BKx B K} B K B dK B d L B (B) dL | L  5L " ";V$(C(L))@L | JL  WLHC(L)lL C(L)  }L T  L T1  L D$L (D$,)"G" ` L (D$,)"D" B L (D$,)"H" L (D$,)"S" 6M"" RETYPE: ";M, 6M6 C(L)C(L) "HM@"FIRST HAND"QMJB1BbMT V$(C(L))oM^XC(L)xMhT1XMr | M| X M L3Qr P1P1Q 8Q:Q .Q Ql P1P1Q 8Q :Q4! KR'Rt' I   R' J4J3%R' J3>R ( J2; J3J3L2QR<( J2J3 *YR( IgR) Y2Y2R) L2(Y2)((Y2))R) L2 L2: h)R") L2Rh) J2J2mR) 'R* M2IR\+ D6J2J4R+ J2< D6D6L2S+ D5Y2'(M2d)D6S$,&S. I F0SD/"-";8S/ I>S/{S 0": COMPUTERIZED STUDY OF BIORHYTHMIC CURVES BY ELMER ";Sp0  5S0": SUBJECT, "A     QL | QV T1 Q` :T1;Qj " ";V$(H);Qt  Q~  Q " ";V$(C(L)); R T ~ R T  )R ":";T3R  CR ": BUST"MR CCBaR "YOU HAVE $";CkR R (D$,)"S"  R T1T  R T1T  R BBR  R TX1 n R TX1 2 R( CCB1R2 TX2 Z S< TX2  SF CCB2SP  (SZ CCB22Sd  =Sn CCB1GSx 2 YS T1  cS CCBvS " ";V$(H);S " BLACKJACK"S  I C H A S E V 1.0 1/16/77 GCC IIIJ BY HERMAN DEMONSTOY FEB 77 ISSUE KILOBAUD MAGJ:::::!JZ2BJ2"THIS IS THE GAME OF CHASE"rJd"YOU ARE IN A HIGH VOLTAGE MAZE WITH FIVE"Jn"SECURITY MACHINES (+) TRYING TO DESTROY YOU (X)."Jx"YOU MUST MANEUVER THE SECURITY MACHINES INTO"K"THE HIGH VOLTAGE FENCE POSTS (O), OR INTO EACH OTHER"BK"IN ORDER TO SURVIVE. GOOD LUCK.HKcK"MOVES ARE: 1 2 3"K" 8 * 4 0 IS NO MOVE"K" 7 AND ABOVE"W% "TYPE TO GO ON";W9X* :"THE INSURANCE BET IS OFFERED AT HALF THE PLAYERS BET WHEN"/X4 "THE DEALER'S UP-CARD IS AN ACE."qX> "YOU MAY DOUBLE-DOWN ON ANY TWO CARDS, AND RECIEVE ONE MORE"XC "CARD WHILE THE ORIGINAL BET IS DOUBLED"XH "YOU MAY SPLIT ANY HAND BUT RESPLITTING IS NOT ALLOWED."YR "ALSO, ONLY ONE CARD IS DELT ON EACH OF A PAIR OF ACES."^YW "YOUR CARDS APPEAR IN THE FAR LEFT COLUMN; THE DEALER ON THE"rY\ "FAR RIGHT. "Yf " THE COMMANDS ARE AS FOLLOWS:"S "BLACKJACK"S " ";S  S "BLACKJACK"S " ";V$(H);S T CC@BT  .T " INSURANCE ";I$GT (I$,)"Y" 6 UT" " ";_T, pT6 T T T@ CCBTJ " TT " 10";T^ T1  Th CCBTr  T| T1  T C(L)  T T1T1 U S1U T1T1C(L)%U V$(C(L));" ";/U LLBU T1  SU S1  `U T1T1 iU S1sU  |U T1U U U T : 7 6 5 9 GIVE UP"KK.............SET UP THE GAMEK A( ,),E(),F() LG:ML B  'L C 6L A(B,C)KL B A(B,C)aL B A(B,C)vL C A(B,C)L C A(B,C)L" CL'" . ";:..........KEEPS SCREEN GOING WHILE TABLE SET UPL, BL6 D L@B(())*MJC(()):.......................@MT A(B,C) @MM^A(B,C)bMh D A(B,C)wMr D A(B,C)M|E(D)BMF(D)CM DMYp " HIT (DRAW ANOTHER CARD)"Yz " GOOD (STAND ON CURRENT TOTAL)"Z " DOUBLE (DOUBLE YOUR BET AND DRAW ONE CARD)"`Z " SPLIT (FORM TWO HANDS FROM A PAIR WITH THE ORIGINAL"Z " BET ON EACH HAND)"Z :"COMMANDS MAY BE TYPED IN AS THE FIRST LETTER"Z "TO EXIT PROGRAM ENTER 999 AS A BET":"GOOD LUCK":[ )"Z :"COMMANDS S."^YW "YOUR CARDS APPEAR IN THE FAR LEFT COLUMN; THE DEALER ON THE"rY\ "FAR RIGHT. "Yf " THE COMMANDS ARE AS FOLLOWS:" U C(L) : U& TT U0 SU: TTC(L)UD LLUN T v UX S v Vb TT Vl SVv YV :::"THIS BLACKJACK PROGRAM ENABLES THE OPERATOR TO PLAY HEAD-"V "TO-HEAD WITH THE COMPUTER, SIMULATING THE EXACT RULES AS"V "THOSE ON THE LAS VAGES STRIP. THE CARDS ARE DEALT FROM ONE"W "52-CARD DECK UNTIL A HAND STARTS WITH LESS THAN 12 CARDS"_W "REMAINING IN WHICH CASE IT RESHUFFLES. THE DEALER MUST HIT"W "THROUGH A TOTAL OF 16 AND STAND ON ALL TOTALS OF 1  :M..........PRINT PATTERNM B  M C M A(B,C) " ";N A(B,C) "O";N A(B,C) "+";5N& A(B,C) "X";=N0 CsN5B " ";G;"SECURITY MACHINE";:Gϑ"S";N6 B " LEFT";N7 B " 1 2 3";N9 B " 8 * 4 0 IS NO MOVE";O; B " 7 6 5 9 GIVE UP";O=OD B6OW.........MAKE MOVEAOXBE()LObCF()YOlA(B,C)gOv"MOVE";YqO{MMO Y  O Y ,,,FF AND RUNNING -"M$M% M() yM&M() <M'M() ^M(M() N)M() 7N*M()  $N+M() L6N,M() @EN- O() RN.O() `N/O()  nN0O() |N1O() N2O() N3O() (N4O() <N5 N  N6 H(N)N7 NN8 K N9 GN: J O; N T()U()O< Z5S V(S)N(O= Z1()1O> Z5DO? Z5 $t^O@ (Z5N)G RyOA H(J)H(J)()M(J)OB JJOC GGOD  TO PLAY AGAIN(Y OR N)S Y$S:S (Y$,)"Y" S:"HOPE YOU DONT FEEL FENCED IN."T"TRY AGAIN SOMETIME "AT"THIS TIME YOU WON ";Z2;" GAME(S)"MTZ2Z2T"NEXT TIME YOU MAY WIN ";Z2;", OR MORE!!!!!"TAGAIN SOMETIME HAVE BEEN DESTROYED BY A LUCKY COMPUTER**"RE"AFTER ONLY ";M;" MOVES. TOO BAD."RJ4S:"YOU ARE LUCKY * * YOU DESTROYED ALL THE ENEMY * *"PS"IN ONLY ";M;" MOVES."\SZ2Z2S"SO FAR YOU HAVE WON ";Z2;" GAME(S)!!!"S::"WANTI:::"----------HORSE RACE----------":Q2J:: "ANY NUMBER OF PLAYERS CAN BET ON THE RESULTS."'J "EXAMPLE OF BET; 1,2,200,0 ."WJ"YOU BORROWED 5$ IN CASE YOU LOST ALOT.":J" SEVENTH - 1 MILE, 3 YR. OLDS POST 2:35"JJ"1 MAN O' WAR (3:1); 2 CITATION (4:1);"; J" 3 WHIRLAWAY (5:1);"K "4 ASSAULT (8:1); 5 SEABISCUIT (9:1);";6K " 6 GALLANT FOX(11:1);"gK "7 STYMIE (20:1); 8 COALTOWN (30:1);"mK K "ENTER HORSE(1-8);TO WIN,PLACE,SHOW(1,,,,,xOBBO OBBO Y , ,,,, ,,PCC P PCC9P..........CALCULATE THE RESULTSNP  A(B,C) cP* A(B,C) @pP4A(B,C){P>E()BPHF()CPR D P\ A(E(D),F(D)) PfA(E(D),F(D))Pp E(D)B E(D)E(D)Pz E(D)B E(D)E(D)Q F(D)C F(D)F(D)/Q F(D)C F(D)F(D)JQ A(E(D),F(D)) @hQ A(E(D),F(D)) GGQ A(E(D),F(D)) A(E(D),F(D))Q GJ  QOE J OF OG D H(B())OH KKOIOJ K  NOK PL PM R'PN" FINISH"6PO Z5 $t@PP OPQ Z1()XPR Z5^PSdPT|PU"$2 MUTUELS PAID:"PV" STRAIGHT PLACE SHOW"PW K PX I  PY PZ JIP[ J  _P\" ";Q] JJQ^ [ Q_ J I .Q` LIIJ@Qa J  dLQb R VQc ehQd R (J)Qe H(L)@ #z((O(B(I))R())d),2,3);AND THE WAGER(2-300)"K "AND 0 FOR NO MORE BETTING OR 1 OR MORE BETTING."K S K L S S  L"BET NO. ";S;8L T(S),U(S),V(S),Y1PL T(S)((T(S)))cL T(S) vL T(S) L U(S)((U(S)))L U(S) L U(S) L"HORSE NO. OR WIN-PLACE-SHOW BET IN ERROR"L R (J)M V(S) M V(S) (V(S))  MM"BET MUST BE >$2 AND <$300, BET AGAIN";WM lM V(S), M! Y1  M"M#" THEY'RE O Q DQ Q"TYPE Y OR N PLEASE...":Qx:"SORRY TO SEE YOU QUIT"+R}"AFTER ONLY ";M;"MOVE";: M "S";:"."6R:_R:"YOU TOUCHED THE FENCE !!!!!!!!"~R" AFTER ONLY ";M;"MOVES."R R@:"** YOU HAVE BEEN DESTROYED BY A LUCKY COMPUTER**"RE"AFTER ONLY ";M;" MOVES. TOO BAD."RJ4S:"YOU ARE LUCKY * * YOU DESTROYED ALL THE ENEMY * *"PS"IN ONLY ";M;" MOVES."\SZ2Z2S"SO FAR YOU HAVE WON ";Z2;" GAME(S)!!!"S::"WANTA     Qf H(L);Qg JQhQi IQjQk QQl J SQm "BET NO. ";JQn PRo I  Rp B(I) T(J) w3Rq U(J) I }]Rr P  #z((V(J)2)H(IIU(J)))zRs "YOU COLLECT";P;"ON ";Rt RuRv Rw IRx I T(J)Ry"TEAR UP YOUR TICKET ON ";Rz I  R{ B(I) T(J) tR| I)S}"NEXT TIME, PURCHASE A SHOW TICKET ON ";3S~ tFS Q QPV(J)NS JXS XS"YOUR TOTAL WINNINGS AMOUNT TO $";Q2S ,S"YOUR a *** THIS PROGRAM PRODUCES A MENU FOR ***,b * MBASIC, OBASIC, AND GAMES. IT ***]b * CREATES A SUBMIT FILE FOR EACH ***b( * SELECTION. EACH SUBMIT FILE ***b2 * CONTAINS 2 RECORDS (EXCEPT THE ***b< * MBASIC SUB FILE), THE FIRST ***!cF * RECORD CONTAINS AN 'MBASIC MBMENU' ***RcP * ENTRY, THE SECOND RECORD CONTAINS ***cZ * AN ENTRY REQUIRED TO EXECUTE THE ***cd * SELECTION FROM CP/M. UPON ENTER- ***cn * ING THE SYSTE K W K W K W K  W X" COMING DOWN THE STRETCH -" X 4X" AS THEY BREAK FROM THE GATE -">X _X" AT THE 1/4 MILE POLE -"iX X" NEARING THE HALFWAY MARK -"X X" MIDWAY IN THE RACE -"X X" AT 5/8 OF A MILE -"X Y " ROUNDING THE TURN -" YYLY,:"DO YOU WANT TO BET ON THE NEXT RACE (Y OR N)";W$VY1::iY6 W$"N" T|Y@ W$"Y" YJ ,YT Q2 |TOTAL LOSSES AMOUNT TO $";(Q2)S ,S Q S L1  S B(L1) S A(L1) T L1T L1  *T L2  V RV"STYMIE ";\V pV"GALLANT FOX";zV V"SEABISCUIT ";V V"ASSAULT ";V V"WHIRLAWAY ";V V"CITATION ";V W"MAN O'WAR ";W K  *W I  0W:W TW L}(DH(B(I)))\W IbWrW K W K W K W  e M$(X)e Xee e SCREENf () fZf  " << KAYPRO 4 M-BASIC, O-BASIC, AND GAMES MENU >> DESCRIPTION"f9 " Version 1.0"fRfk * DISPLAY SELECTIONS THEN DRAW BOX *f X  : ();"=";(%X);( );M$(X);f X`gL ();"=";( );( );"*******************************************************************************";oge X gj X ();"=";( X);( );"************************************************REu(D$()"BIO is a computerized "vc)D$()"study of biorythmic "8v)D$()"curves which plots your"\v+*D$()"biorythym for a number "v*D$()"of days. The resulting"v*D$()"graph indicates whether"vW+D$()"your physical, mental, "v+D$()"and emotional bio- "w,D$()"rythyms are high, low, "4w,D$( )"or critical. ">w, ǍKwK- ()UwP- _wU- zw- COMMAND$"OBASIC BIO"w. w0 BLKJK HEREw31D$()"Play casino blackjack "w1D$()"agai "k S$"1" /k S$"2" wl S$"3" g l' S$"4" (,l@ S$"5" 0?lY S$"6" g9Rlr S$"7" Eel S$"8" Nxl S$"9" Wl S$"10" `l S$"11" hl S$"12" rl S$"13" k{l: S$"14" /lS S$"G" kml S$"E"  m m EXIT;mD$()"This choice exits the "_mD$()"M-BASIC, O-BASIC, and "mD$()"GAMES MENU. "mD$()" "mD$()"Should you choose to "q3D$()" "rD$()" "7rD$()" "\r_D$( )" "rD$( )" "r' Ǎr ()r "The following games are written in O-BASIC: BIO, BLKJK, "sS "CHASE, HORSE, ROCKET, STRTRK, TAXMAN, TRADE, and WUMP."_s "If you wish to play (run) type RUN "(")"GAMENAME"(");rs " ."xss "If you wish to exit O-Basic type SYSTEM after Ok prompt."sG CO*******************************": h~ ();"=";( X);( );"*"; "[nD$()"following the A3> "nD$( )"prompt. "nD$( )" "n Ǎn ()nn/ M-BASICnD$()"M-BASIC is the CP/M "oD$()"version of the high- "t/!D$()"Alien invasion in "bt!D$()"progress! "t!D$()" "t["D$()"This game is actually "t"D$()"six games in one which "t##D$()"you can call up from "u#D$()"it's menu. ":u#D$()" "_uO$D$( )" "u$D$( )" "u% Ǎu{% ()u' COMMAND$"ALIENS"u ' u( BIO HE "i]D$()"If you wish to continue"j_D$()"press . "AjbD$( )" "fjdD$( )" "jgD$( )"If you wish to make a "jiD$( )"different selection, "jlD$()"type N . "km * USE CURSOR POSITIONING TO DISPLYAY DESCRIPTION MSGS. *Fkn X : ();"=";($X);(V);D$(X)Nkx XTkk ();"=";(4);(2);"SELECTION";k S$k (S$) ^k ();"=";(4);(2);"SELECTION  "oO D$()"the experienced "p D$()"programmer. "9p D$( )" "^p{ D$( )" "hp ǍupC ()|po p "If you wish to exit type SYSTEM after Ok prompt."p COMMAND$"MBASIC"p pw O-BASIC HEREqD$()"O-BASIC is an older ";q?D$()"version of M-BASIC. A "_qD$()"variety of games in the"qD$()"public domain are writ-"qkD$()"ten in O-BASIC. "qD$()" A     ts"y:D$()"which you eat as you go"z:D$()"along, avoiding the "9z[;D$()"monster As. Eat Ms and"]z;D$()"nab dollar signs for "z# Ǎ({{> ()]{> "In Catchum you move by using the keys on the"{C? "right keypad (4=left, 6=right, 8=up, and 2=down)."{?{ @ "The levels of difficulty change the s COMMAND$"OBASIC TRADE"s / WUMP D$()"Hunt the Wumpus in a "DD$()"cave of 20 rooms while "h[D$()"avoiding bottomless "D$()"pits and super bats! "#D$()"The Wumpus is sleeping "ԊD$()"and if you wake him, he"D$()"may eat you. Watch out"OD$()"-- I smell a Wumpus! "@D$()" "eD$( )" "{D$( )" "߉ ǍC ()H M ы COMMAND$"OBASI"gRD$( )" "R Ǎ/S ()4S 9S !S>S COMMAND$"OBASIC HORSE"I[T VW LADDERz{WD$()"LADDER--A game in which"WD$()"you have Lads that you "€CXD$()"move left, right, up, "性XD$()"or down using numbers " YD$()"4, 6, 8, and 2 on the ".oYD$()"right keypad. Jump "RYD$()"over obstacles with the"v7ZD$()"spacebar. Avoid 'o's, "ZD$()"grab '&'s, and climb up"ZD$( )"ladders 'H' to the "c[D$( )ԅn څnOo o COMMAND$"OBASIC STRTRK" p r TAXMAN>7sD$()"Play TAXMAN to beat the"bsD$()"taxman at his own game!"sD$()"You select a list of "ctD$()"whole numbers and play "ΆtD$()"taking a number from "+uD$()"the list. The taxman "uD$()"gets all of the factors":uD$()"of your number that are"^WvD$()"left. Choose remaining"vD$( )"numbers, the one with "wD$( )"the highest total wins! "w Ǎw ()ˇw peed of" |o@ "the game. If you're really hot at Catchum, try"1|@ "level 9. It'll cool you down!"8|7A >|AH|A `|cB COMMAND$"CATCHUM"k|B w|E CHASE|ED$()"CHASE--Caught in a maze"|KFD$()"of high-voltage fence "|FD$()"posts and five security"}GD$()"machines, your task is "+}wGD$()"to destroy all of the "O}GD$()"security machines "s}?HD$()"before they get you. "}HD$()" "}ID$()" "}kID$( )" C WUMP"܋ "Ǎ PRINT SELECTION DESC. DECIDE IF TO CONTINUE OR SELECT ANOTHER *T+ X : ();"=";($X);(V);D$(X)\ Xb ();"=";(4);(V);W X$ (X$) ^nj ();"=";(4);(V);" ";ڌ X$"N" 琋 (X$) K C "If you wish to exit from O-Basic or M-Basic after finishing"} "a game, type SYSTEM after the Ok prompt."wےk GAMES DESCRIPTIONōϔD$()" *** GAMES *** "3"highest level and $. "[ Ǎ+\ ()\\ COMMAND$"LADDER"#W] 0` ROCKETTw`D$()"ROCKET--this is a lunar"x`D$()"landing simulation game"?aD$()"where you start off at "aD$()"500 feet above the "bD$()"lunar surface at a "kbD$()"downward velocity of ",bD$()"50 ft/sec with 120 "P3cD$()"units of fuel. You "tcD$()"decide how much fuel "cD$( )"you need to land so "_dD$( )"keep an eye on it! "ȃd ǍՇw Kx COMMAND$"OBASIC TAXMAN"x  k{ TRADE.{D$()"TRADE--This computer- "R3|D$()"ized board game is one "v|D$()"of the hottest games "|D$()"going! The object is "_}D$()"to establish inter- "}D$()"stellar trade routes "'~D$()"and amass vast amounts "*~D$()"of money based on stock"N~D$()"purchases, mergings, "sSD$( )"and splits. Use divi- "D$( )"dends to buy more. " Ǎ ()」 Gɉ  "~ID$( )" " ~3J Ǎ~J ()$~J .~J K~J COMMAND$"OBASIC CHASE"V~_K b~N HORSE~ND$()"HORSE--Go to the track "~ND$()"and bet on horses to "~GOD$()"win, place, and show. "~OD$()"Watch Sea Biscuit, "PD$()"Gallant Fox, Citation, ":sPD$()"and the rest as they're"^PD$()"coming around the bend ";QD$()"into the home stretch. "QD$()" "RD$( )" 'e ()߃,e 1e e COMMAND$"OBASIC ROCKET"e h STRTRKCiD$()"STRTRK--From the begin-"gsiD$()"ner to the expert, this"iD$()"exciting game puts you ";jD$()"in command of a "ӄjD$()"Federation star ship, "kD$()"with warp drives, "gkD$()"phasers, and photon "?kD$()"torpedos at your "c/lD$()"disposal to combat "lD$( )"Klingons! "lD$( )" "[m Ǎąm ()ʅ#n  D$()" " D$()"You may exit all games "1D$()"by pressing Cntrl-C. "U_D$()" "yÖD$()"If the Ok prompt "'D$()"appears on your screen "D$()"type SYSTEM to"D$()"exit from O-Basic or " SD$( )"M-Basic. ".D$( )" "8 ǍB J㙑:n虅 "PRESS RETURN TO CONTINUE";P$G (P$)  OPEN, CREATE, MAKE OR APPEND TO THE SUBMIT FILE׏ "R"LL AUTOMATICALLY SHUT OFF AND YOU WILL BE GIVEN A"NJ" REPORT OF YOUR LANDING SPEED AND REMAINING FUEL"ENT"(5) IF YOU RUN OUT OF FUEL, THE'?' WILL NO LONGER APPEAR"N^" BUT YOU SECOND BY SECOND REPORT WILL CONTINUE UNTIL"Nh" YOU CONTACT LUNAR SURFACE.":Nm: "HIT TO CONTINUE...";W9O::"BEGINING LANDING PROCEEDURE.........":&O"G O O D L U C K ! ! ! ".O:dO"SEC FEET SPEED FUEL PLOT OF DISTANCE"jOOT:H:V2:FxO T;);H; );V;I R O C K E T L A N D E R I:::::I ,I PJ ....P IS THE INPUT PORT NUMBER FOR YOUR KEYBOARD......$J*JLJF "LUNER LANDING SIMULATIONS"nJP "----- ------- -----------"Jd: "DO YOU WANT INSTRUCTIONS"Jn "(Type 0 for NO)";AJx A JJ"YOU ARE LANDING ON THE MOON AND HAVE TAKEN OVER MANUAL"=K"CONTROL 500 FEET ABOVE A GOOD LANDING SPOT. YOU HAVE A"K"DOWNWARD VELOCITY OF 50 FT/SEC. 120 UNITS OF FUEL REMAIN."KK"HERE ARE TH,#,"$$$.SUB"( #, AS COUNT$, AS NEXTLINE$2RECNO< #,RECNO*F () x" NEXT OF KIN."'SC McSH:"WELL......THAT WAS OK. BUT NOT TOO SPECTACULAR..."kSM:SR "ANOTHER MISSION ANYONE"S\ "(Type G(Q1,Q2)(G(Q1,Q2))QXQb"QUADRANT (";((Q1),,);",";((Q2),,);")")Rl"SECTOR (";((S1),,);",";((S2),,);")"8RvKPIR DT x RSK3ϑAR$;"SHIELD ENERGY TOO LOW":SL:A:RA: RRD$():A:B:A$(S(A,B));:B::AR:"SHIELDS";S;);"ENERGY";E;);"PHOTONS";P;S);"STARDAYS";T9T%S :"COMMAND";ALS A A " ----> COMMAND";ASA Aϑ"WARNING - PROPER COMMANDS ONLY !! ": SA SM@A$()" . ":A$()" E ":A$()" * ":A$()" K ":A$()" B " NJF1(\:F2 #z:F333s:F4p}:K9:B9K9>NTI:J:R1():R2():R3(())yN^K3(R1F1F2R9)(R1F3F2R9)(R1F4F2R9):K9K9K3NhB3(R2F3):B9B9B3:G(I,J)dK3 B3R3:J,INr (B9K9)JN|"OBJECTIVE:DESTROY"K9"KLINGONS USING"B9"STARBASE"; OUK9:YB9OB9ϑ" ";:*O"S ";bOT9K9()K9R9 R9:PRT9K9:"IN"T9"STARDAYS."lO OS3:B3S3:K3B3:A:B:S(A,B)1 if YES)";ASf A Sp: "CONTROL OUT. ":SACULAR..."kSM:SR "ANOTHER MISSION ANYONE"S\ "(Type RENEWED.........LATER."9R( MNR* (V1) HR4:" ***** SORRY, BUT YOU BLEW IT KIDO!!!!!"R9" THIS WAS OUR ONLY CHANCE TO MAKE CONTACT WITH EXTRATRESTRIAL"S;" BEINGS. NON-APPROPRIATE CONDOLENCES MIGHT BE SENT TO YOUR"S>" NEXT OF KIN."'SC McSH:"WELL......THAT WAS OK. BUT NOT TOO SPECTACULAR..."kSM:SR "ANOTHER MISSION ANYONE"S\ "(Type D(A) SAR$;"CAPTAIN, WE DON'T HAVE ";D$(A);" ANYMORE."S DT x :  T A4,,,,,\,,x ,$,<?T:A:A;" = ";D$(A):AHT A _T*A;"= ";D$(A):T4"COURSE";C1: C1 C13 RT>"WARP FACTOR";W1THSL:KP: \TRAR$"REJECTED ! COURSE MUST BE IN RANGE OF O TO 359.99 DGRS."U\(W1)UfD()W1ACUUpAR$;"WARP ENGINES ARE DAMAGED, MAXIMUM SPEED = ";AC^Uz4}UTECTEC:C$"":K3ύUEW1USI :EXPANDED APRIL 1977 BY W.A. BURTONI:PIRATED JAN. 1978 BY ZOSOI G(,),S(,),K(,) J(()J2 TJ<XJF "WHAT IS YOUR SECURITY CLEARANCE NUMBER (1 TO 1000)";T9bJPE8T9JZ T9 T9 AR$;"INVALID!! REENTER!!": FJd A T9JnR9():R9()JxK:():" ENTER RANK (1=LOW,12=HIGH)";R9$K (R9 R9 ) :RRR9FKX4R9:R9R9nw:W1W1nwSK ()vK "COMMAND ORDER : STAND BY !"K "YOU ARE PRESENTLY BEING AS:B,AOA:B:K(A,B):B,A:S(S1,S2)OX #zG(Q1,Q2):K3(X):Y(XK3) :B3(Y)PS3G(Q1,Q2)dK3 B3CP K3ςA:B:K(A,B):B,A:jPAR$;"CONDITION RED !!!!!":AK3PR1(()):R2(()):S(R1,R2)PS(R1,R2):K(A,)R1:K(A,)R2:K(A,)S9: A:B3&PB3&!QR1(()):R2(()):S(R1,R2)0QS(R1,R2)>Q&S3NJQ0AS3Q:R1(()):R2(()):S(R1,R2):QDS(R1,R2):AQNSIGNED TO A MISSION..."K " WITH A FAILURE FACTOR OF"; (RR)K" GOOD-BYE, SIR..."LCX{:AR$" ---> "6LXA(X42):AC((X4L}))ELX4`LE XAd:P :S9L D(D)((K(I,)S1)(K(I,)S2))LQ1(()):Q2(())LS1(()):S2(())M WARP ENGINES,SHORT RANGE SENSORS,LONG RANGE SENSORSAM" PHASERS, PHOTON TORPEDOES,SHIELD CONTROL}M, DAMAGE CONTROL, COMPUTER,DAMAGE REPAIR,COMMUNICATIONSM6 A : D$(A): A   U"CAPTAIN, YOU ONLY HAVE"E"UNITS OF ENERGY. " V"REFUEL FROM YOUR SHIELD RESERVES, WHICH HAVE"S"UNITS";@VQ9$"NO": " ";Q9$: (Q9$"Y" Q9$"YES") TVA:D(A) ]VvVI :D(I)VD(I)D(I):D(I)VD()V"DAMAGE CONTROL REPORT: "D$(I)" REPAIRED."VI:()L}jV()L}jWLW()R9 ώ;W$R1(()):D(R1)ώ`W.D(R1)D(R1) ():D()ώnW8D()ώWB:"DAMAGE CONTROL REPORT: "D$(R1)" OQUADRANT"e DT x : e C$"D" K3 "STARBASE PROTECTS ENTERPRISE" :  ff f I$f K(I,)~ Of$ HK(I,)D()(())()f. SSH:H"UNIT HIT FROM ("((K(I,)),,);",";f8 ((K(I,)),,);"), LEAVING"SfB S fL fV ()R9 ~ f` R1(()):R2(())gj (S(R1,R2))` Hgt S(R1,R2):S(K(I,),K(I,)):K(I,)R1:K(I,)R2Og~ IUg {g AR$;" ENTERPRISE DEAD IN SPACE"g g CY:: g K:[nD(R1)D(R1)( ()R9):R1:[x X:S(S1,S2):S1B2(B2):S2A2(A2)\Q3(B2):Q4(A2)B\(Q1Q3Q2Q4)Q1Q3:Q2Q4:k\S(S1,S2):AS1S1:BS2S2\ABAB\S(A,B)<\B,A:\\ A(Q1) (Q1): B(Q2) (Q2)]ABABϑ" ***";:B:" "::A:']" "(G(A,B))( ));R]((G(A,B)),,(G(A,B))( ));]G(A,B)(G(A,B)):B:" "::A:]]K3]W1))Q2(A1(W1)))aS3B1(W1)(B1(W1)):S4A1(W1)(A1(W1))bA1(W1)A2B1(W1)B2-bA2A1(W1):B2B1(W1)ib"(";((S3),,);",";((S4),,);")";A$(S(S3,S4))b S(S3,S4),,,,b()(L}X4) ϑ"SHIELDS DEFLECT TORPEDO":b"KLINGON DESTROYED":S(S3,S4):G(Q1,Q2)G(Q1,Q2)dcK3K3:K9K9:K9Z 'cA[cK(A,)S3K(A,)S4K(A,):K(A,):K(A,)bcAkccAR$;"STARBASE DESTROYED":B3:B9B9:SUT."::WLR1(()):D(R1)jWVD()jX`:D(R1):"DAMAGE CONTROL REPORT: "D$(R1)" REPAIRED.":IXjW1W1:A1Q2S2:B1HQ1S1:W1W1W1 jXtEEW1:TTW1:TT9 X~A2(A1W1(C1CX))XB2(B1W1(C1CX))X(A2A2?B2B2?)YAR$;"CAPTAIN, HEED STARFLEET REGULATIONS! ( STAY IN GALAXY ) !!&YTTW1:LY A1(X)(A1X(C1CX))rY B1(X)(B1X(C1CX))YX(W1)Y(Q1(B1(X)3 g g  g g :::::AR$;g "IT IS STARDATE"T:g  g h :::::AR$;*h "ENTERPRISE DISABLED !!"::3h CYfh "THERE ARE"K9"KLINGONS REMAINING.":CY h( "YOU HAVE FAILED !!":h2 L(())h< L p , , , , hF :"DO YOU WANT TO TRY AGAIN";X$hP (X$,)"Y"  : ,iZ "THE FEDERATION IS SAVED !!"Iid "YOU ARE HEREBY PROMOTED TO ADMIRAL!!!!":Rin F [ix DTi "COMPUTER ON--COMMAND";A: A  i A AD()"]AR$;" COMPUTER FAILURE HAMPERS ACCURACY" ^""PHASERS LOCKED ON TARGET. ENERGY AVAILABLE="E*^,"NUMBER OF UNITS TO FIRE:";2^6 XW^@ EXϑ"NOT ENOUGH POWER":o^JTTL|:TT9 y^TEEX^^ C$"D" ^hD()|^rXX()^|I^K(I,)^H(XD())(())()_K(I,)K(I,)H?_H"UNIT HIT ON VESSEL AT (";((K(I,)),,);",";k_((K(I,)),,);"), LEAVING"K(I,)"}_K(I,)_"KLINGON AT (";(((S3,S4): cAR$;"YOU CAN'T DESTROY A STAR":c G(Q1,Q2)G(Q1,Q2) :c W1c  d*W1&d4S3(S1W1(C1CX))Ad>S4(S2W1(C1CX))^dHS3S4S3S4gdRmd\df"ENERGY AVAILABLE="ES" NUMBER OF UNITS TO SHIELDS";dp XdzXdESXfdEESXdSXdSLde&e"DEVICE STATE OF REPAIR"JeR1 :D$(R1);) D(R1):R1be DT x : e"SHORT RANGE SENSORS REPORT NO KLINGONS IN THIS )Q2(A1(X)))XW1:xYS3B1(X)(B1(X)):S4A1(X)(A1(X))ZS(S3,S4)x4ZS(S1,S2):S1B1(X)(B1(X))bZS2A1(X)(A1(X 1)):S(S1,S2)ZAR$;"NAVIGATIONAL ERROR :ENGINES SHUT DOWN AT (";Z ((S1),,);","((S2),,);")"ZTT(W1) [" YOU LOST "T" UNITS STARTIME RESTARTING ENGINES."[()[2 S(S3,S4) N[<"SHIELDS LOWERED FOR REFUELING"n[FS:P :C$"D":E XAdx[P [ZR1  [dD(R1)σR1K(I,)),,);",";((K(I,)),,);_") DESTROYED":K3K3:K9K9:K9Z '`G(Q1,Q2)G(Q1,Q2)d:S(K(I,),K(I,)):K(I,):K(I,)4`K(I,)<` IE`K`X`P&`AR$;"ALL PHOTON TORPEDOES EXPENDED"``&"DIRECTION";C1`0TTL|:TT9 `:PP: C$"D" aDA1Q2S2:B1HQ1S1:C1Z(C1Z)*.aN A1(W1)(A1W1(C1CX))VaX B1(W1)(B1W1(C1CX))iabW1 fffalW1S3S1:S4S2:av(Q1(B1(A      AR$;" NO SUCH COMMAND !!":  i A T , , , ,X,H ,\ ,,j "FUNCTIONS AVAILABLE FROM COMPUTER"5j " 1 = GALACTIC MEMORY MAP"Yj " 2 = GENERAL STATUS REPORT"yj " 3 = PHOTON TRAJECTORY"j " 4 = NEW MISSION"j " 5 = PRESENT POSITION"j " 6 = SELF-DESTRUCT"j " 7 = WARP-COMPASS"k " 8 = MISSION PROGRESS REPORT"+k " 9 = EXIT COMPUTER"4k x ]k :"--TEMPORARY MALFUNCTION--": nk XM @ k" AR$;"SAFETY CHECK -- DO YOU WISH TO:AXXy^:I(XX)(X4)yh"YOUR ";D$(A);" WILL BE INOPERATIVE FOR ";I "UNITS OF STARTIME"zrD(A)D(A)I:z|Vz"SECURITY CONTROL ADVISES THAT NO AUTHORIZATION HAS BEEN"z"GIVEN TO ACTIVATE SELF- DESTRUCT SYSTEM."z"PROCEED WITH ASSIGNED MISSION"::  zz"BE ADVISED, YOUR MISSION PROGRESS FACTOR IS";PRz !{TF(XXX4)L: TF TFTF e{" THE TOLERANCE FACTOR FOR THIS MISSION IS [+/-]";TF;"PERCENT"k{q{{(XM),,0{(XM)o XM((MRPR)PR)do KAϑTKT"STARDATES LEFT TO SAVE STARBASE.": p () #zR9B9ώp KA:A:BUp G(A,B)d(G(A,B)d)K1A:K2B:()A:Bp B,A:TKTQ8}((Q1K1)(Q2K2))( R9)p TKTKp AR$;"!!! STARBASE IN QUADRANT ("((K1),,)",";p ((K2),,)") IS UNDER ATTACK!!"#q "YOU HAVE"TKT"STARDATES TO SAVE IT!":1q TTK4 dq "TOO LATE!":KA:G(K1,K2)G(K1,K2) :B9B9zq (Q1K1Q2K2)ώq A:B:S(A,B)SuXX(() )uu:X4 2v"COMMAND CENTRAL ADVISES THAT YOUR RANKING-";X4;"-IS IN THE EXPERT"Tv"CATEGORY. BE ADVISED THAT IF YOU ARE NOT PROPERLY QUALIFIED"v"YOUR CHANCES OF AVOIDING FAILURE ARE NIL."vv "DO YOU WISH REASSIGNMENT TO A LESS HAZARDOUS MISSION (Y OR N)"vAN$v(AN$,)"Y"w(():2w2"YOU HAVE REQUESTED A SUICIDE MISSION":Sw<"--COMMUNICATIONS ACTIVE--"YwFbwPlwZPDXXuwdwnPEXXwxwPFXXw ABORT MISSION": AN$k, (AN$,)"Y" J : k6 l@ "YOU HAVE NOT BEEN AUTHORIZED FOR NEW MISSION !!":lJ x 8lT "QUADRANT CODE MEMORY MAP"kl^ A:B:G(A,B)(G(A,B))ϑ" ???";:| lh " "(G(A,B))( ));lr ((G(A,B)),,(G(A,B))( ));l| B:" ":A: x l " STATUS REPORT"m "NUMBER OF KLINGONS LEFT ="K9-m "NUMBER OF STARDATES LEFT ="T9TQm "NUMBER OF STARBASES LEFT ="B9^m A:lm K3m D()A:m "COORD","LOWDIR",(TF@)l{(XM)TFN{:"CAPTAIN, YOU ARE BEHIND SCHEDULE - LET'S GO !!"{ ?|:"YOU ARE EXACTLY ON COMPUTED SCHEDULE; PROCEED WITH MISSION"H|&j|0XMTF:XM(TF@)|::"YOU ARE AHEAD OF COMPUTED SCHEDULE, KEEP UP THE GOOD WORK !!"|D|N:"YOU ARE BEHIND SCHEDULE AND OUT OF TOLERANCE FACTOR !!">}X"COMMAND CONTROL PROJECTS FAILURE...YOU MAY SURRENDER TO ENEMY"R}bEQ:SD: <_}lYYACX4k}v()}AR$;"---------COMPUTER PROJECTION------(A,B)q* B,A:q4 Q1K1Q2K2ϑ"YOU ARRIVED IN TIME! STARBASE SAVED!"q> KA: rH SD | : rR r\ L'rf x Srp "YOU HAVE SCREWED UP ONCE TOO OFTEN !"}rz "OFF TO THE VULCAN TORTURE CAMPS !!"r T F : r "YOU WILL BE EXECUTED AT SUNRISE"r  r "YOU WILL BE PUT TO DEATH FOR YOUR INCOMPETENCE"s  3s "YOU WILL BE CONFINED TO YOUR QUARTERS UNTIL"as "VULCAN'S MOONS BECOME TOURIST TRAPS !!"ts TF : s "IMBECILE !! WE HOPE YOU CONSIwPGXXwPHPD PEwPJPF PGwPHPJ  wKP:PDPEPFPG:"x"SUNSPOTS BLOCK TRANSMISSION AT : ":bNx"MOVE ELSEWHERE AND TRY AGAIN":: 4nx"AUTHORIZED FREQUENCIES":x"FEDERATION COMMAND BASE = ";PHx"KLINGON COMMAND CENTRAL = ";PJxx"COMMUNICATION ON CHANNEL ";XFxXFPHyXFPJ y"y,AR$;"ALERT !!"Sy6"ATTEMPTED COMMUNICATION ON UNAUTHORIZED FREQUENCY"Yy@yJ"WHILE SECURITY CHECK IS CONDUCTED ON ENTERPRISE"yT"HIGHDIR","DIST"m A/:"-";:Am m Im (K(I,))v n W1((S1K(I,))(S2K(I,)))0n W1 ϑ"--->MALFUNCTION !":>n  wn C1I((K(I,)S2)W1(((K(I,)S2)W1)))n&  n0 C1C1(S1K(I,))CXn: C2(I)C1( ())nD C3(I)C1( ())nN C3(I) C3(I)C3(I)hoX C2(I) C2(I)C2(I)hDob "(";((K(I,)),,);",";((K(I,)),,);\ol ")",C2(I),C3(I),W1cov I{o DT x : o o MR(T9T)K9:DTDER SUICIDE!"s TF : s L(UK9) ((UK9)T)d(YB9)s ESLL t K9LL(R9d)t:6t"YOUR MISSION RATING IS: ";LDt::::Nt$ @Zt.()ct8JltBF rtLtV" O9O"t`" 135 . O45"tj" . . ."tt" . . ."u~"18O . . . . . . .OOO WARP-COMPASS"7u" . . ."Uu" . . ."wu" 225 . 315"u" 27O"uu  ----":}"PROJECTED LIKELIHOOD OF SUCCESS FOR YOUR MISSION =";YY;"PERCENT"(~"WE HAVE AUTO ACTIVATED SELF-DESTRUCT SYSTEM ON YOUR VESSEL"O~"GOODBYE, CAPTAIN.............":~"END OF MESSAGE FROM FEDERATION COMMAND"::~ @~ ~:"YOU ARE AHEAD OF SCHEDULE AND BEYOND TOLERANCE FACTOR""CALL KLINGON LEADERS AND REQUEST THEIR SURRENDER":KQ:<AAR$;"MESSAGE FROM COMMAND BASE"y:"ENEMY HAS SURRENDERED TO FEDERATION COMMAND !!":::Z   KQMARKS REPRESENT UNEXPLORED QUADRANTS. THE 3-DIGIT" "NUMBERS ENCODE INFORMATION ABOUT QUADRANTS. THE FIRST DIGIT"S& "TELLS HOW MANY KLINGONS ARE IN THE QUADRANT; THE SECOND, HOW"0 "MANY FRIENDLY BASES; THE THIRD, HOW MANY STARS."5: "HIT RETURN TO CONTINUE";Q8::: " WHEN YOU ARE IN A QUADRANT, IT WILL BE DISPLAYED AS:"D " . . . . . . . .".N " . K . . . . * ."KX " . . . . . . . ."hb " * . . * . . . ."l " . . . . . E . ."v " . . . :"DAMAGE REPAIR INACTIVE !!"V"REQUIRES";AU;"MORE RECHARGE UNIT";KF$`: /j:AR$"YOU MUST BE DOCKED AT STARBASE FOR DAMAGE REPAIR !!";t: A~O:A {D(A)ϑ  )A;)D$(A);()"DAMAGED":"IF NO DAMAGE INDICATED ABOVE, ANSWER WITH 0 (ZERO)"܄ "WHICH ONE TO REPAIR ";AAA ϑAR$;:   D(A) 5:D$(A);" NOT DAMAGED !!": V:)D$(A);"---REPAIRED":lD(A):TEC::AR$;"NOTHING DAMAGED AT PRESENT":TION TO GAME. R.SCHRADER, 1/12/83ʼn^:::h " SPACE - THE FINAL FRONTIER!":Kr " THESE ARE THE VOYAGES OF THE STARSHIP ENTERPISE. THE MISSION: "| " TO SEEK NEW LIFE AND NEW CIVILIZATIONS; TO BOLDLY GO WHERE NO"Њ " MAN HAS GONE BEFORE.":::::::::: "DO YOU NEED INSTRUCTIONS";Q9$$ (Q9$ "NO") : () 1::::s " ********** WELCOME TO STARTREK **********": " YOU ARE IN CONTROL OF THE : EQ * (XM)  ,\,  (XM)TF\*:"KLINGON COMMAND ON FREQUENCY"E4"NATURALLY, WE ARE PLEASED THAT YOU ARE CONCEDING, CAPTAIN"q>"WE ARE PRESENTLY BOARDING YOUR CRAFT"H:"HERE IS A MESSAGE FROM YOUR LEADERS-":: @R(): 2 À\ ӀfXX p:"MESSAGE FROM KLINGON COMMAND...."1z"NO FURTHER COMMUNICATIONS AT THIS TIME": l:"WE'LL TALK WITH OUR WEAPONS, EARTH-SWINE !!": v AQ((XX)) AQ pK . . . B" " . * K . . . . ."܏ " . . . * . . . *"$ "THE KLINGONS ARE REPRESENTED BY 'K', STARS BY '*', YOUR SHIP BY"[ "AN 'E', BASES BY 'B', AND EMPTY SECTORS BY '.'": "HIT RETURN TO CONTINUE";Q8::̐ " IN YOUR PURSUIT OF KLINGONS, YOU WILL HAVE A LARGE NUMBER OF" "UNITS OF ENERGY. THESE CAN BY USED TO MOVE THE SHIP, TO DEFEND"\ "THE SHIP, OR TO FIRE AT KLINGONS. IN EXECUTING ANY OF THE AFORE-" "MENTIONED FUNCTIONS, ENERGY IS EXPENDED. IF YOU EVERօ "INITIAL MISSION PROGRESS FACTOR WAS";PR"CURRENT MISSION PROGRESS FACTOR IS ";MR5 XM PW$" WORSENED ": PW$" IMPROVED ";(~2"YOUR COMBAT SITUATION HAS";PW$;"BY A FACTOR OF";XM;"PERCENT"< (XM)TF EG$" NOT ": EG$" "džF EG$" " EH$"": EH$AR$ P EH$;"YOUR PROGRESS IS";EG$;"WITHIN TOLERANCE FOR THIS MISSION"Z0d EG$" NOT " n : x Hn XM x : Xx:SD:KD"CAPTAIN, COMMAND CENTRAL PROJECTS DEFEAT BY ENEMY. YOU AR STARSHIP ENTRPRISE. YOUR MISSION" "WILL BE TO RID THE GALAXY OF KLINGONS."0 " THE KNOWN GALAXY IS MAPPED INTO 64 QUADRANTS (8 X 8). EACH"i "QUADRANT IS COMPOSED OF 64 SECTORS (ALSO 8 X 8)." " A MAP OF THE GALAXY, AS REPRESENTED BY YOUR ON-BOARD COM-"ό "PUTER, LOOKS LIKE THIS:"  Q8: " ??? ??? ??? ??? ??? ??? ??? ???": Q8E " ??? ??? ??? ??? 316 ??? ??? ???" Q8: " ??? ??? ??? ??? ??? ??? ??? ???": Q8 ʍ "THE QUESTION ,,,,GFTF@ɁXMGF فXMTF :"CAPTAIN, DESPITE YOUR SLIGHT ADVANTAGE, YOU ARE NO MATCH FOR"A"THE GLORIOUS KLINGON FLEET"u)"END OF MESSAGE FROM KLINGON COMMAND":~XXϑ" KLINGON COMMAND TO ENTERPRISE..":ǂ():"MESSAGE FROM KLINGON LEADERS..."*:"WE CONCEDE THE WAR, SIR, CONGRATULATIONS !!":B$AV(X4):DRU. TECAV Bp8 C$"D" j : ~BAUAVTEC:AUKF$"":KF$"S"LE NOW"ᇌ"AUTHORIZED TO SURRENDER OR TO ACTIVATE SELF-DESTRUCT SYSTEM"ꇖx :SD:KD@"CAPTAIN, FEDERATION COMMAND PROJECTS SUCCESS FOR YOUR MISSION."J V()` 6"SELF DESTRUCT SYSTEM ACTIVATED"::: 6"COUNTDOWN BEGUN !"::ˈ)"FIVE":: 6)"FOUR":: 6)"THREE":: 6 )"TWO":: 6))"ONE":: 6;""ZERO": 6L,():Je6 I 2:AA::@ I :AA::J T INTRODUCA      RUN OUT OF"ڑ "ENERGY, YOU WILL BE IMMOBILE AND DEFENSELESS." " A SUMMARY OF COMMANDS FOLLOWS:" S "**WARP (ACTIVATED BY ENTERING A '1' IN RESPONSE TO 'COMMAND?')" " 'WARP' MOVES THE STARSHIP. UPON ENTERING THE COMMAND, YOU"ݒ "WILL BE ASKED FOR A DIRECTION OF TRAVEL ( 0 TO 360 DEGREES,"  "0 IS RIGHT, 90 IS UP, ETC), AND THE WARP SPEED." M  "**SHORT-RANGE SCAN (ACTIVATED BY A '2')"v* " DISPLAYS THE LOCAL QUADRANT."/: "HIT RETURN TO CONTINUE";I T( )I L(2)IeIh"HI, I'M THE TAXMAN"Ij"DO YOU WANT THE REGULATIONS" Jl "(Type 0 if NO)";RJn R 4Jx ***INITIALZATION>Jz  `J| ***THE HUMAN TAKES A NUMBERjJ~ J *** COMPUTE THE HUMAN'S AND TAXMANS TOTLESJ :J *** PRINT THE NEW LISTJ XJ *** CHECK IF ANY NUMBERS STILL HAVE FACTORSK K M ~2K *** FIND THE WINNER "**LONG-RANGE SCAN ('3')" H " DISPLAYS INFORMATION ABOUT YOUR QUADRANT AND IT'S EIGHT"&R "IMMEDIATE NEIGHBORS:"c\ " 103 8 104 (NUMBERS ARE INTERPRTETED"f " 203 316 4 LIKE ON A GALACTIC MAP)"p " 106 505 207"z "THE COMPUTER UPDATES YOUR GALACTIC MAP AFTER EVERY LONG-RANGE"  "SCAN." , "**PHASERS ('4')"o " COMPUTER-CONTROLLED HIGH ENERGY BEAMS ARE FIRED AT ALL" "KLINGONS IN THE QUADRANT." E";K KK K(K)K K  K K N L K;"IS NOT IN THE LIST -- TRY AGAIN." L  L L(K) "I GET";M@ I MMB T(I);ND ZZT(I)NF INH1NJ"MY TOTAL IS";Z7NL=NTZNU *** PRINT THE NEW LIST`NVfNXxNZ"NEW LIST:";N\ MN^ I NN` L(I) fNb I;Nd MNf INhNN *** CHECK IF ANY NUMBERS STILL HAVE FACTORSO#O CHECK IF THE LIST IS EMPTY3O M FO IN  VO J IiO L(J) O I J(IJ) O MOOP3$P$M I P4$P$M IM Z1$M  ),"...NOW I WILL DECIDE WHO GOES FIRST...":: :N:N::'NI(P1(R1))1N ;N &ANpN I ,,,: - IDENTIFY PLAYERN P1$;:P5$P1$: N P2$;:P5$P2$: N P3$;:P5$P3$: N P4$;:P5$P4$: N& " IS THE FIRST PLAYER TO MOVE."O0 W : O:KODPI: b/ONKK: K0 bIOXPP: PP1 PrOb I : SELECT 5 LEGAL MOVESOlR(I)((R1))OvC(I)(S"YOU TRY TO BEAT THE TAXMAN."SS"WE START WITH A LIST OF WHOLE NUMBERS IN NUMERICAL"T"ORDER (YOU DECIDE HOW MANY)."%T_T"YOU TAKE A NUMBER FROM THE LIST -- THE TAXMAN GETS"T"ALL THE FACTORS OF YOUR NUMBER THAT ARE STILL LEFT"T"YOUR NUMBER AND ALL OF ITS FACTORS ARE THEN DELETED"T"FROM THE LIST."T4U"FOR EXAMPLE, SUPPOSE YOU WANT TEN NUMBERS TO BE IN THE LIST."hU"THEN THE LIST WOULD BE: 1 2 3 4 5 6 7 8 9 10"nUU"IF YOU TOOK 8, THE TAXMAN WOULD GETI STAR TRADERSI - MODIFIED FOR 'ALTAIR BASIC 4.0' BY - S J SINGERIJ J# CJ$ ILJ( M( , ),S(,),N$(),D1(),S1(),Q(),M$( ),C$()bJ2 C1$(),C2$()~J< 1,"'ALTAIR STARWAYS'"JF 2,"'BETELGEUSE,LTD.'"JP 3,"'CAPELLA FREIGHT CO.'"JZ 4,"'DENEBOLA SHIPPERS'"Jd 5,"'ERIDANI EXPEDITERS'" KnZ1$()()Kx Z1$&K I 7K J iKS(I,J): D1(I): S1(I)d: Q(I): B(I)ptK J~K IKL$".+*ABCDE"KM$ JO IO THE TAXMAN GETS THE REST OF THE NUMBERSOO"I GET";O I NP L(I) P I;P ZZI$P IVP"BECAUSE NO FACTORS OF ANY NUMBER ARE LEFT."kP"MY TOTAL IS";ZuP M{PPP *** FIND THE WINNERPPP ZY P"YOU";Y;" TAXMAN";Z;" YOU WIN!!!"PQ"TAXMAN";Z;" YOU";Y;" THE TAXMAN WINS."$Q+Q TO GO ON";W/V"THE TAXMAN MUST GET SOMTHING EVERY TIME SO YOU CAN"`V"ONLY PICK A NUMBER THAT HAS FACTORS LEFT,"fVV"WHEN NONE OF THE REMAINING FACTORS,"V"THE TAXMAN GETS THEM!!!"VV"YOUR SCORE IS THE SUM OF NUMBERS YOU TAKE."W"IF YOU WANT TO GIVE UP, TAKE 0."$W"GOOD LUCK !!!".W z4WV"YOUR SCORE IS THE SUM OF NUMBERS YOU TAKE."W"IF YOU WANT TO GIVE UP, TAKE 0."$W"GO"ABCDEFGHIJKL"K" ********** STAR TRADERS **********":K:L "TYPE A 3 DIGIT NUMBER ";R1"LR1(R1)2L I DL J  uL ((R1)) M(I,J) : M(I,J)L JL IL Z1$L" "HOW MANY PLAYERS (1-4) ";P1L,:L6 "DOES ANY PLAYER NEED INSTRUCTIONS "M; "(Type 0 for NO)";QM@ Q R "MJ Z1$3MT I P1EM^ "PLAYER",I,eMr " WHAT IS YOUR NAME ";P$xM| I P1$P$M I P2$P$M I  *** INITIALATIONQQ Q""HOW MANY NUMBERS DO YOU WANT IN THE LIST";Q$ NQ& N(N)R( N  #R* N2 24R+ N2 2tR,"AT THIS TIME, REGULATIONS ALLOW A MAXIMUM OF 50 NUMBERS."~R.  R2 YR4 ZR6R8"THE LIST IS:";R: I NR< I;R> L(I)R@ IRB N LRD-SF"HOW VERY GENEROUS OF YOU TO FORFEIT ALL TO THE TAXMAN."_SH"TAXMAN 1 YOU 0 THE TAXMAN WINS."iSJ oSLuSS *** INSTRUCTIONSSSA     A3 lQ> A1 A2 A3 A4 lQH A2 A1 A3 A4 lRR A3 A1 A2 A4 l?R\ A4 A1 A2 A3 lIRf ISRp  YRzaRIPkR R ", HERE ARE YOUR LEGAL MOVES FOR THIS TURN"RR I R R(I);(M$,C(I),);" ";R IR:S "WHAT IS YOUR MOVE ";R$S (R$) R$"S";S (R$,)"M" R$"" : ES  OS qS (R$,)"S" R$"" : ${S  S S$ (R$) (T1,I)((S(X,I)));a X1a I1 P1a X1X1S(X,I1)a b 5);" $";( ((S(X,I)X1)S1(X)))%b I6b I P1cb S(T1,I)S(T1,I)((S(X,I)))b B(I)B(I)( ((S(X,I)X1)S1(X)))b Ib I b J  b M(I,J)X M(I,J)T1b" Jb, Ib6 A1M(R,C) c@ A2M(R,C)cJ A3M(R,C),cT A4M(R,C)8c^ F1A3Jch F1 F1Vcr F2A2hc| F2 F2}c Q(T1)Q(T1)Q(X)c S1(T1)S1(T1)S1(X)cG COMPANY HAS BEEN FORMED !"W "IT'S NAME IS ",WW N,C$W IN W C$ XS(I,P)S(I,P)XQ(I)!X:::>X" A1 S1(I)S1(I)[X, A2 S1(I)S1(I)xX6 A3 S1(I)S1(I)X@ A4 S1(I)S1(I)XJ A1 S1(I)S1(I)d : hXTQ(I)Q(I)X^M(R,C)IXh A2 S1(I)S1(I)d :  YrQ(I)Q(I)Y|M(R,C)I@Y A3 S1(I)S1(I)d : PYQ(I)Q(I)aYM(R,C)IY A4 S1(I)S1(I)d : YQ(I)Q(I)YATES THE]F2A2: F2 F2: SURVIVOR IN THE EVENT^F3A3: F3 F3: OF A MERGER"^F4A4: F4 F4.^TQ(F1)8^T1F1[^ Q(F2)Q(F1) TQ(F2) : e^T1F2^ Q(F3)T TQ(F3) :  ^ T1F3^ Q(F4)T TQ(F4) : $ ^ T1F4^$ F1T1 A1 B ^. XF1^8  ^B F2T1 A2 ` _L XF2_V  (_` F3T1 A3 ~ 1_j XF3;_t  T_~ F4T1 A4  ]_ XF4g_  m_ w_ Z1$_ * : SUBROUTINE - PEVS. ((R$,,))@ VS8 ((R$,,))@ V : `SB (R$) V TL (R$) VBTV "I DIDN'T UNDERSTAND THAT - TRY AGAIN ": UT`R((R$,))kTjC((R$,))@|Tt I  T~ RR(I) CC(I) T IT "THAT SPACE WAS NOT INCLUDGD IN THE LIST..."T TA1M(R,C)UA2M(R,C)UA3M(R,C) UA4M(R,C)VU A1 A2 A3 A4 M(R,C) : `U U A1 A2 A2A1 : - LINE 2090 ISU S1(T1)  c F3A3c F3 F3c F4A4c F4 F4c S1(X)dd Q(X)d I P1!d S(X,I)+d I3d :Cd M(R,C)T1Id d * : SUBROUTINE - CALCULATES STOCK SPLITSd& "THE STOCK OF ",d0 d: N,C$dD T1N : dN C$,dX " HAS SPLIT 2 FOR 1 !"db S1(T1)(S1(T1))el :ev I1 P1-e S(T1,I1)S(T1,I1)8e I1>e He Z1$Ne te "STOCK";);"PRICE PER SHARE";e 2);"YOUR HOLDINGS"e M(R,C)IY S1(I) T1I : Y  YM(R,C)IY I ZB(P)B(P)(L|S(I,P)S1(I))Z I)Z I " ";R2;" "; ]HC2 ]R" ";']\Z2M(R2,C2)9]fZ2Z2Z2N]p(L$,Z2,)" ";T]Z]`]f]]F1A1: F1 F1: SUBROUTINE - CALCUL  I3 e S1(I3)d  e e N,C$e I3N  e C$,f );S1(I3);2);S(I3,P) f I3f f %f* ()Mf4 );"SPECIAL ANNOUNCEMENT !!!":Sf> YfH cfR Z1$f\ " STAR LANES IS A GAME OF INTERSTELLAR TRADING."ff "THE OBJECT OF THE GAME IS TO AMASS THE GREATEST AMOUNT"gp "OF MONEY. THIS IS ACCOMPLISHED BY ESTABLISHING VAST,"Vgz "INTERSTELLAR SHIPPING LANES, AND PURCHASING STOCK IN"g "THE COMPANIES THAT CONTROL THOSE TRADE ROUTES. DURING"gASH ON HAND (5% OF THE MARKET VALUE OF THE STOCK IN HIS"v| "POSSESSION), AND OFFERS HIM THE OPPORTUNITY TO PURCHASE"Kv "STOCK KN ANY OF THE ACTIVE COMPANIES ON THE BOARD."v "STOCK MAY NOT BE SOLD, BUT THE MARKET VALUE OF EACH"v "PLAYER'S STOCK IS TAKEN INTO ACCOUNT AT THE END OF THE" w "GAME TO DETERMINE THE WINNER. IF THE OARKET VALUE OF A GIVEN"Iw "STOCK EXCEEDS $3000 AT ANY TIME DURING THE GAME, THAT"w "STOCK SPLITS 2 FOR 1. THE PRICE IS CUT IN HALF, AND"w "THE NUMBERH STOCK TRANSACTIONS, AS LISTED BELOW.":k " 2. HE CAN ADD TO AN EXISTING LANE- IF HE SELECTS A"=l "SPACE THAT IS ADJACENT TO ONE - AND ONLY ONE EXISTING"zl "SHIPPING LANE, THE SPACE HE SELECTS WILL BE ADDED TO"l "THAT SHIPPING LANE AND WILL BE DISIGNATED WITH THE FIRST"l "LETTER OF THE COMPANY THAT OWNS THAT LANE. IF THERE ARE":m "ANY STARS OR UNATTACHED OUTPOSTS ALSO ADJACENT TO THE"{m "SELECTED SPACE, THEY, TOO, WILL BE INCORPORATED INTO THE"m "EXISTING LANE. EACH IF A PLAYER"q "SELECTS A SPACE ADJACENT TO TWO EXISTING SHIPPING"!r "LANES, A MERGER OCCURS. THE LARGER COMPANY TAKES OVER THE"`r "SMALLER COMPANY - (IF BOTH COMPANIES ARE THE SAME SIZE"r "PRIOR TO THE MERGER, THEN THE SURVIVOR IS DETERMINED BY"r "ALPHABETICAL ORDER OF THE TWO COMPANY NAMES - THE EARLIER"s "SURVIVES). THE STOCK OF THE SURVIVING COMPANY IS"Ys "INCREASED IN VALUE ACCORDING TO THE NUMBER OF SPACES"s "AND STARS ADDED TO ITS LANE. EACH PLAYERS STOCK IN"s "THE COURSE OF THE GAME, STOCK APPRECIATES IN VALUE AS"h "THE SHIPPING COMPANIES BECOME LARGER. ALSO, SMALLER"Lh "COMPANIES CAN BE MERGED INTO LARGER ONES, AND STOCK"h "IN THE SMALLER FIRM IS CONVERTED INTO STOCK IN THE"h "LARGER ONE AS DESCRIBED BELOW.":h "EACH TURN, THE COMPUTER WILL PRESENT THE PLAYER WITH"(i "FIVE PROSPECTIVE SPACES TO OCCUPY ON A 9X12 MATRIX"fi "(ROWS 1-9, COLUMNS A-L). THE PLAYER, AFTER EXAMINING"i "THE MAP OF THE GALAXY TO DECIDE WHICH SPAC OF SHARES OWNED BY GACH PLAYER IS DOUBLED."w x "NOTE: THE PLAYER MAY LOOK AT HIS PORTFOLIO AT ANY TIME"Kx "DURING THE COURSE OF HIS TURN BY RESPONDING WITH 'STOCK'"x "TO AN INPUT STATEMENT. LIKEWISE, HE CAN REVIEW THE MAP"x "OF THE GALAXY BY TYPING 'MAP' TO AN INPUT STATEMENT."x:x $x Z1$x:::::::$y& );"** GAME ENDS AFTER 48 MOVES **"0y0:::xy: "PLAYER WITH THE GREATEST NET WORTH AT THAT POINT IS THE WINNER."yD:yN W : WyXNEW SQUARE ADJACENT TO A STAR ADDS"m "$500 PER SHARE, AND EACH NEW OUTPOST ADDS $100 PER SHARE"6n "TO THE MARKET VALUE OF THE STOCK OF THAT COMPANY.">n:Hn $Rn Z1$n  " 3. HE MAY ESTABLISH A NEW SHIPPING LANE- IF THERE"n "ARE FIVE OR LESS EXISTING SHIPPING LANES ESTABLISHED,"o "THE PLAYER MAY, GIVEN THE PROPER SPACE TO PLAY, ESTABLISH"Qo( "A NEW SHIPPING LANE. HE MAY DO THIS BY OCCUPYING A SPACE"o2 "ADJACENT TO A STAR OR ANOTHER UNATTACHED OUTPOST, BUT"o< "N "THE DEFUNCT COMPANY IS EXCHANGED FOR SHARES KN THE" t "SURVIVOR ON A RATIO OF 2 FOR 1. ALSO, EACH PLAYER"Gt "IS PAID A CASH BONUS PROPORTIONAL TO THE PERCENTAGE"t" "OF OUTSTANDING STOCK HE HELD IN THE DEFUNCT COMPANY."t, "NOTE: AFTER A COMPANY BECOMES DEFUNCT THROUGH THE"t6 "MERGER PROCESS, IT CAN REAPPEAR ELSEWHERE ON THE"1u@ "BOARD WHEN, AND IF, A NEW COMPANY IS ESTABLISHED."9uJ:CuT $Mu^ Z1$uh " NEXT THE COMPUTER CDDS STOCK DIVIDENDS TO THE PLAYER'S"ur "CE HE WISHES"i "TO OCCUPY, RESPONDS WITH THE ROW AND COLUMN OF THAT"j "SPACE, I.E., 7E, 8A, ETC. THERE ARE FOUR POSSIBLE"@j "MOVES A PLAYER CAN MAKE."::FjPj $Zj Lj$ "PRESS RETURN TO CONTINUE";X2$jBjL Z1$jV " 1. HE CAN ESTABLISH AN UNATTACHED OUTPOST- IF HE" k` "SELECTS A SPACE THAT IS NOT ADJACENT TO A STAR, ANOTHER"Jkj "UNATTACHED OUTPOST, OR AN EXISTING SHIPPING LANE, THIS"kt "SPACE WILL BE DESIGNATED WITH A '+'. HE WILL THEN PROCEED"k~ "WITOT ADJACENT TO AN EXISTING SHIPPING LANE. IF HE"pF "ESTABLISHES A NEW SHIPPING LANE, HE IS AUTOMATICALLY"BpP "ISSUED 5 SHARES KN THE NEW COMPANY AS A REWARD. HE"pZ "MAY THEN PROCEED TO BUY STOCK IN ANY ACTIVE COMPANY,"pd "INCLUDKNG THE ONE JUST FORMED, AS DESCRIBED BELOW."pn "THG MARKET VALUE OF THE NEW STOCK IS ESTABLISHED BY"3qx "THE NUMBER OF STARS AND OCCUPIED SPACES AS DESCRIBED"Hq "IN #2 ABOVE."Pq:Zq $dq Z1$q " 4. HE MAY MERGE TWO EXISTING COMPANIES- A     yb Z1$yl * yv W : W: ()y W : W: ()%z  )," THE GAME IS OVER - HERE ARE THE FINAL STANDINGS"1z:::=z ()|z "PLAYER"; );"CASH VALUE OF STOCK";!);"CASH ON HAND",z 2);"NET WORTH"zz I P1z J zD1(I)D1(I)(S1(J)S(J,I))z Jz I{ I P1 { .{   );"$";D1(I);!);"$";B(I);H{ 2);"$";D1(I)B(I)R{  I^{*:::d{4 I{ I P1 { .{   );"$ABS YOU AND TAKES YOU TO SOME OTHER"Q " ROOM AT RANDOM. (WHICH MAY BE TROUBLESOME)"R "TYPE TO CONTINUE ";W9/R " WUMPUS:"mR " THE WUMPUS IS NOT BOTHERED BY HAZARDS (HE HAS SUCKER"R " FEET AND IS TOO BIG FOR A BAT TOO LIFT). USUALLY"R " HE IS ASLEEP. TWO THINGS WAKE HIM UP:YOU SHOOTING AN"S " ARROW OR YOU ENTERING HIS ROOM."KS " IF THE WUMPUS WAKES HE MOVES (P=.75) ONE ROOM"S " OR STAYS STILL (P=.25). AFTER THAT, IF HE IS WHERE YOU"S " AREM  M O ,,M *** SHOOT ***M M F M" 6M' *** MOVE ***N, N1 F 'N6 F O:N; *** LOSE ***YN@: "HA HA HA - YOU LOSE!"cNE TvNJ *** MOVE ***NO: "HEE HEE HEE - THE WUMPUS'LL GET YOU NEXT TIME!!"NT J NYL(J)M(J)N^ JNc:: "DO YOU WANT TO PLAY AGAIN"Oe "(Type 1 for YES)";F&Og F ~KOh: "DO YOU WANT THE SAME SETUP"fOj "(Type 1 for YES)";IwOm I Or Ow *** INSTRUCTIONS, HE EATS YOU UP AND YOU LOSE!"SS " YOU:"T " EACH TURN YOU MAY MOVE OR SHOOT A CROOKED ARROW"DT " MOVING: YOU CAN MOVE ONE ROOM (THRU ONE TUNNEL)"T " ARROWS: YOU HAVE 5 ARROWS. YOU LOSE WHEN YOU RUN OUTT " EACH ARROW CAN GO FROM 1 TO 5 ROOMS. YOU AIM BY TELLINU " THE COMPUTER THE ROOM#S YOU WANT THE ARROW TO GO TO."HU " IF THE ARROW CAN'T GO THAT WAY (IF NO TUNNEL) IT MOVES"oU  " AT RANDOM TO THE NEXT ROOM."U " IF THE ARROW HITS THE WUMPUSI:::::I *** HUNT THE WUMPUS ***I P()I "DO YOU WANT INSTRUCTIONS" J "(Type 0 for NO)";IJ::&J I #0J w:J# PmJP *** SET UP CAVE (DODECAHEDRAL NODE LIST) ***{JU S(,)JZ J J_ K Jd S(J,K)Ji KJn JJs 2,5,8,1,3,10,2,4,12,3,5,14,1,4,6Kx 5,7,15,6,8,17,1,7,9,8,10,18,2,9,115K} 10,12,19,3,11,13,12,14,20,4,13,15,6,14,16fK 15,17,20,7,16,18,9,17,19,11,18,20,13,16,19K A(X)(())K B(X)(() ***O| "WELCOME TO 'HUNT THE WUMPUS'"O " THE WUMPUS LIVES IN A CAVE OF 20 ROOMS. EACH ROOM"6P "HAS 3 TUNNELS LEADING TO OTHER ROOMS. (LOOK AT A"sP "DODECAHEDRON TO SEE HOW THIS WORKS-IF YOU DON'T KNOW"P "WHAT A DODECAHEDRON IS, ASK SOMEONE)"PP " HAZARDS:"P " BOTTOMLESS PITS - TWO ROOMS HAVE BOTTOMLESS PITS IN THEM;Q " IF YOU GO THERE, YOU FALL INTO THE PIT (& LOSE!)"yQ " SUPER BATS - TWO OTHER ROOMS HAVE SUPER BATS. IF YOU"Q " GO THERE, A BAT GR)K C(X)(())K *** LOCATE L ARRAY ITEMS *** L *** 1-YOU, 2-WUMPUS, 3&4-PITS, 5&6-BATS ***L L() L M().L J =LL(J)A()KLM(J)L(J)SL JL *** CHECK FOR CROSSOVERS (IE L(1)=L(2), ETC) ***L J L K L JK L L(J)L(K) L KL JL *** SET NO. OF ARROWS ***MAMLL()*M *** RUN THE GAME ***FM:: "HUNT THE WUMPUS"pM *** HAZARD WARNING AND LOCATION ***zM IM *** MOVE OR SHOOT ***  , YOU WIN."U " IF THE ARROW HITS YOU, YOU LOSE."U "TYPE TO CONTINUE ";W9 V! " WARNINGS:"NV& " WHEN YOU ARE ONE ROOM AWAY FROM A WUMPUS OR HAZARD,"nV+ " THE COMPUTER SAYS:"V0 " WUMPUS: 'I SMELL A WUMPUS'"V5 " BAT : 'BATS NEARBY'"V: " PIT : 'I FEEL A DRAFT'"V?VDWI *** PRINT LOCATION & HAZARD WARNINGS ***WN%WS J 3WX K OW] S(L(),K)L(J) oWb J g,q,q,{,{Wg "I SMELL A WUMPUS!"Wl Wq * 1140 REM *************************************************************** 1150 REM 1160 REM ** INITIALIZATION - BEGIN ** 1170 REM 1180 REM [ ARRAYS ] 1190 REM 1200 DIM HOLDVAL(6) 1210 REM 1220 REM [ STRINGS ] 1230 REM 1240 R$="" 1250 REM 1260 REM [ INTEGERS ] 1270 REM 1280 ADROW = 4: REM BANNER MESSAGE ROW (CHARACTER) 1290 ADCOL = 59: REM BANNER MESSAGE COLUMN (CHARACTER) 1300 BEGCOLM = 7: REM TIME MASK BEGIN COLUMN (CHARACTER) 1[ LL() H[: "OUCH! ARROW GOT YOU!"[ p[ *** MOVE WUMPUS ROUTINE ***\KC()\ K %\L()S(L(),K)9\ L()L a\: "TSK TSK TSK - WUMPUS GOT YOU!"j\Fp\\ *** MOVE ROUTINE ***\F\ "WHERE TO";\ L\ L \ L \ K \ *** CHECK IF LEGAL MOVE ***] S(L(),K)L ] K1] LL() I] "NOT POSSIBLE -";S]  s] *** CHECK FOR HAZARDS ***~]L()L] *** WUMPUS ***]1000 REM *************************************************************** 1010 REM * * 1020 REM * KUBDEMO.BAS KAYPRO UNIVERSAL BOARD DEMO * 1030 REM * * 1040 REM * VERSION: 2.04 * 1050 REM * * 1060 REM * DATE: 11/26/83  "I FEEL A DRAFT"Wv W{ "BATS NEARBY!"W KW JW "YOU ARE IN ROOM "L()#X "TUNNELS LEAD TO "S(L,);S(L,);S(L,))X/XKX *** CHOOSE OPTION ***dX: "SHOOT OR MOVE "X "(Type 0 for SHOOT or 1 for MOVE)";IX I XOXX I XOXX *** ARROW ROUTINE ***XF Y *** PATH OF ARROW ***)Y "NO. OF ROOMS (1-5)";2Y J9CY J9 TY J9 cY K J9sY "ROOM #";~Y P(K)Y K Y P(310 BOTROW = 62: REM BANNER BOTTOM ROW (PIXEL) 1320 BTLCOL = 32: REM BANNER BORDER TOP LEFT COLUMN (PIXEL) 1330 BTRCOL = 191: REM BANNER BORDER TOP RIGHT COLUMN (PIXEL) 1340 CLEARSCREEN = 26: REM 'CLEAR SCREEN' CONTROL CODE 1350 CURSOR = 52: REM 'CURSOR' ATTRIBUTE CODE 1360 DAYS = 6: REM 'DAY' REGISTER (REAL TIME CLOCK) 1370 DISPOFFSET = 32: REM DISPLAY OFFSET (SCREEN) 1380 DRAWLINE = 76: REM 'LINE DRAW' SEQUNCE TYPE CODE 1390 DTSPREAD  LL() B]$: "... OOPS! BUMPED A WUMPUS!"]) *** MOVE WUMPUS ***]. ^3 F B^8^= *** PIT ***+^B LL() L?^G LL() `h^L: "YYYYIIIIEEEE . . . FELL IN PIT"q^QFw^V^[ *** BATS ***^` LL() j^e LL() y^j: "ZAP--SUPER BAT SNATCH! ELSEWHEREVILLE FOR YOU!"^oLA()_t _y _~ LL()  * 1070 REM * * 1080 REM * AUTHOR: RENE J. SCHUCHTER * 1090 REM * * 1100 REM * Copyright (C) 1983 by KAYPRO Corporation * 1110 REM * * 1120 REM * All rights reserved. No warranties expressed or implied. * 1130 REM * K)P(K) Y  "ARROWS AREN'T THAT CROOKED - TRY ANOTHER ROOM"Y Y K Z *** SHOOT ARROW ***Z LL()$Z% K J93Z* K1 LZ/ S(L,K1)P(K) UZ4 K1wZ9 *** NO TUNNEL FOR ARROW ***Z>LS(L,B())ZC ZH KZM "MISSED"ZRLL()ZW *** MOVE WUMPUS ***Z\ Za *** AMMO CHECK ***ZfAA [k A u[pF[uG[z *** SEE IF ARROW IS AT L(1) OR AT L(2)R[LP(K)f[ LL() [: "AHA! YOU GOT THE WUMPUS!"[F[A      = 3: REM LINES BETWEEN DATE LINE AND TIME LINES (CHARACTER) 1400 EQUALS = 61: REM "=" 1410 ERASELINE = 68: REM 'ERASE LINE' SEQUENCE TYPE CODE 1420 ESCAPE = 27: REM "" 1430 HOME = 30: REM 'HOME CURSOR' CONTROL CODE 1440 HOURS = 4: REM 'HOUR' REGISTER (REAL TIME CLOCK) 1450 INVERSE = 48: REM 'INVERSE' VIDEO ATTRIBUTE CODE 1460 HUNDREDTHS = 1: REM 'HUNDREDTH' REGISTER (REAL TIME CLOCK) 1470 MINUTES = 3: REM 'MINUTE' REGIS SECONDS: REM INITIALIZE 'SECONDS' TO '0' 2360 OUT PORTD,0 2370 OUT PORTA, HUNDREDTHS: REM INITIALIZE 'HUNDREDTHS' TO '0' 2380 OUT PORTD,0 2390 RETURN 2400 REM 2410 REM ** RESET CLOCK - END ** 2420 REM 2430 REM ------------------------------ 2440 REM 2450 REM ** DISPLAY BANNER - BEGIN ** 2460 REM 2470 PRINT CHR$(HOME); 2480 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(TOPROW); CHR$(TPLCOL); CHR$(TOPROW); CHR$(TPRCOL) 2490 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(TOPROW); CHR$(TPRCOL) TOP ROW (PIXEL) 1640 TOPT = 80: REM TIME DISPLAY BARS FIRST LINE (PIXEL) 1650 TPLCOL = 32: REM BANNER BORDER TOP LEFT COLUMN (PIXEL) 1660 TPRCOL = 191: REM BANNER BORDER TOP RIGHT COLUMN (PIXEL) 1670 UNDERLINE = 51: REM 'UNDERLINE' ATTRIBUTE CODE 1680 REM 1690 REM [ CALCULATED VALUES ] 1700 REM 1710 BEGCOL = (DISPOFFSET-1)+33: REM 'KAYPRO' LOGO BEGIN COLUMN (PIXEL) 1720 BEGCOLT = (2*(BEGCOLM-1)) + 66: REM TIME DISPLAY BAR BEGIN COLUMN (PIXEL) 1730 BEGROWCOUNT 2020 PRINT CHR$(ESCAPE); CHR$(SETOFF); CHR$(CURSOR);: REM TURN OFF CURSOR 2030 PRINT CHR$(CLEARSCREEN); 2040 RESTORE 2050 GOSUB 2470: REM DISPLAY BANNER 2060 GOSUB 3630: REM DISPLAY DATE 2070 GOSUB 3840: REM DISPLAY TIME MASK 2080 GOSUB 4060: REM DISPLAY TIME 2090 PRINT CHR$(ESCAPE); CHR$(SETON); CHR$(CURSOR);: REM TURN ON CURSOR 2100 WEND 2110 END 2120 REM 2130 REM ** MAIN LOGIC - END ** 2140 REM 2150 REM --------------------------- 2160 REM 2170 REM ** RESET CLOCK -TER (REAL TIME CLOCK) 1480 MONTHS = 7: REM 'MONTH' REGISTER (REAL TIME CLOCK) 1490 PIOPORTA = 15: REM PIO PORT 'A' ID CODE 1500 PIXOFFSET = 12: REM LINES BETWEEN TIME DISPLAY BARS (PIXEL) 1510 PORTA = 32: REM 'A' PORT (REAL TIME CLOCK) 1520 PORTD = 36: REM 'D' PORT (REAL TIME CLOCK) 1530 PORTS = 34: REM 'S' PORT (REAL TIME CLOCK) 1540 REDUCED = 49: REM 'REDUCED INTENSITY' ATTRIBUTE CODE 1550 ROW1T = 10: REM TIME MASK FIRST ROW (; CHR$(BOTROW); CHR$(BTRCOL) 2500 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BOTROW); CHR$(BTRCOL); CHR$(BOTROW); CHR$(BTLCOL) 2510 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BOTROW); CHR$(BTLCOL); CHR$(TOPROW); CHR$(TPLCOL) 2520 PRINT CHR$(HOME); 2530 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BOTROW); CHR$(BTRCOL); CHR$(SBTROW); CHR$(SBRCOL) 2540 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(SBTROW); CHR$(SBRCOL); CHR$(SBTROW); CHR$(SBLCOL) 2550 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(SBTROW); CHR$(SBLCOL); C = (DISPOFFSET-1)+9: REM 'KAYPRO' LOGO BEGIN ROW (PIXEL) 1740 CLKCOL = BEGCOLM + 12: REM CLOCK VALUES DISPLAY COLUMN (CHARACTER) 1750 REM 1760 REM SET OUPUT PORT (PIO "A") 1770 REM 1780 OUT PORTS, PIOPORTA 1790 REM 1800 REM ** INITIALIZATION - END ** 1810 REM 1820 REM ---------------------------- 1830 REM 1840 REM ** MAIN LOGIC - BEGIN ** 1850 REM 1860 REM 1870 REM > ALLOW EXIT VIA "" 1880 REM 1885 INTVAL = 0: REM INITALIZE FOR DATE DISPLAY LOGIC 1886 PASS  BEGIN ** 2180 REM 2190 PRINT CHR$(CLEARSCREEN); 2200 PRINT "Enter new clock values:" 2210 PRINT 2211 PRINT "Year "; 2212 INPUT YEAR 2220 PRINT "Month "; 2230 TYPE = MONTHS 2240 GOSUB 4480: REM SET 'MONTH' (CLOCK) 2250 PRINT "Day "; 2260 TYPE = DAYS 2270 GOSUB 4480: REM SET 'DAY' (CLOCK) 2280 PRINT "Hour "; 2290 TYPE = HOURS 2300 GOSUB 4480: REM SET 'HOUR' (CLOCK) 2310 PRINT "Minute "; 2320 TYPE = MINUTES 2330 GOSUB 4480: REM SET 'MINUTE' (CLOCK) 2340 REM 2350 OUT PORTA,CHARACTER) 1560 ROWOFFSET = 3: REM LINES BETWEEN TIME DISPLAY ROWS (CHARACTER) 1570 SBLCOL = 32: REM SCREEN BOTTOM LEFT COLUMN (PIXEL) 1580 SBRCOL = 191: REM SCREEN BOTTOM RIGHT COLUMN (PIXEL) 1590 SBTROW = 131: REM SCREEN BOTTOM ROW (PIXEL) 1600 SECONDS = 2: REM 'SECOND' REGISTER (REAL TIME CLOCK) 1610 SETON = 66: REM ATTRIBUTE 'ON' CONTROL CODE 1620 SETOFF = 67: REM ATTRIBUTE 'OFF' CONTROL CODE 1630 TOPROW = 32: REM BANNER BORDER = 1: REM INITIALIZE FOR DATE DISPLAY LOGIC 1890 WHILE NOT (R$ = CHR$(ESCAPE)) 1900 R$="" 1910 PRINT CHR$(CLEARSCREEN); 1920 PRINT "Reset clock? Y/N "; 1930 WHILE NOT (R$ = CHR$(ESCAPE) OR R$ = "Y" OR R$ = "y" OR R$ = "N" OR R$ = "n") 1940 R$ = INKEY$ 1950 WEND 1960 IF R$ = CHR$(ESCAPE) GOTO 2100: REM > EXIT 1970 PRINT R$; 1980 IF R$ = "Y" OR R$ = "y" THEN GOSUB 2190: REM > RESET CLOCK 1990 FOR COUNT = 1 TO 6: REM INITIALIZE CLOCK VALUES 'HOLD' ARRAY 2000 HOLDVAL(COUNT) = -1 2010 NEXT   HR$(BOTROW); CHR$(BTLCOL) 2560 PRINT CHR$(HOME); 2570 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+0); CHR$(BEGCOL+0); CHR$(BEGROW+0); CHR$(BEGCOL+5) 2580 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+0); CHR$(BEGCOL+12); CHR$(BEGROW+0); CHR$(BEGCOL+17) 2590 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+0); CHR$(BEGCOL+20); CHR$(BEGROW+0); CHR$(BEGCOL+27) 2600 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+0); CHR$(BEGCOL+30); CHR$(BEGROW+0); CHR$(BEGCOL+35) 2610 PRINT CHR$(ESCAPE); CHR$(DRAWL CHR$(DRAWLINE); CHR$(BEGROW+6); CHR$(BEGCOL+71); CHR$(BEGROW+6); CHR$(BEGCOL+78) 2980 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+6); CHR$(BEGCOL+65); CHR$(BEGROW+6); CHR$(BEGCOL+67) 2990 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+6); CHR$(BEGCOL+81); CHR$(BEGROW+6); CHR$(BEGCOL+84) 3000 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+6); CHR$(BEGCOL+91); CHR$(BEGROW+6); CHR$(BEGCOL+96) 3010 PRINT CHR$(HOME); 3020 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+8); CHR$(BEGCOL+0); CHR$(BEGROWCHR$(BEGROW+2); CHR$(BEGCOL+51) 2720 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+2); CHR$(BEGCOL+55); CHR$(BEGROW+2); CHR$(BEGCOL+62) 2730 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+2); CHR$(BEGCOL+71); CHR$(BEGROW+2); CHR$(BEGCOL+78) 2740 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+2); CHR$(BEGCOL+65); CHR$(BEGROW+2); CHR$(BEGCOL+67) 2750 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+2); CHR$(BEGCOL+81); CHR$(BEGROW+2); CHR$(BEGCOL+85) 2760 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROHR$(BEGCOL+67) 2870 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+4); CHR$(BEGCOL+82); CHR$(BEGROW+4); CHR$(BEGCOL+84) 2880 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+4); CHR$(BEGCOL+91); CHR$(BEGROW+4); CHR$(BEGCOL+96) 2890 PRINT CHR$(HOME); 2900 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+6); CHR$(BEGCOL+0); CHR$(BEGROW+6); CHR$(BEGCOL+5) 2910 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+6); CHR$(BEGCOL+6); CHR$(BEGROW+6); CHR$(BEGCOL+11) 2920 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BINE); CHR$(BEGROW+0); CHR$(BEGCOL+42); CHR$(BEGROW+0); CHR$(BEGCOL+47) 2620 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+0); CHR$(BEGCOL+50); CHR$(BEGROW+0); CHR$(BEGCOL+59) 2630 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+0); CHR$(BEGCOL+63); CHR$(BEGROW+0); CHR$(BEGCOL+75) 2640 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+0); CHR$(BEGCOL+82); CHR$(BEGROW+0); CHR$(BEGCOL+93) 2650 PRINT CHR$(HOME); 2660 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+2); CHR$(BEGCOL+0); CHR$(BEGROW+2); CHR$(B+8); CHR$(BEGCOL+5) 3030 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+8); CHR$(BEGCOL+6); CHR$(BEGROW+8); CHR$(BEGCOL+11) 3040 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+8); CHR$(BEGCOL+16); CHR$(BEGROW+8); CHR$(BEGCOL+21) 3050 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+8); CHR$(BEGCOL+26); CHR$(BEGROW+8); CHR$(BEGCOL+31) 3060 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+8); CHR$(BEGCOL+35); CHR$(BEGROW+8); CHR$(BEGCOL+42) 3070 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+8); CHR$(BEW+2); CHR$(BEGCOL+90); CHR$(BEGROW+2); CHR$(BEGCOL+95) 2770 PRINT CHR$(HOME); 2780 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+4); CHR$(BEGCOL+0); CHR$(BEGROW+4); CHR$(BEGCOL+5) 2790 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+4); CHR$(BEGCOL+8); CHR$(BEGROW+4); CHR$(BEGCOL+13) 2800 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+4); CHR$(BEGCOL+18); CHR$(BEGROW+4); CHR$(BEGCOL+29) 2810 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+4); CHR$(BEGCOL+32); CHR$(BEGROW+4); CHR$(BEGCOL+37) 2820 PREGROW+6); CHR$(BEGCOL+17); CHR$(BEGROW+6); CHR$(BEGCOL+22) 2930 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+6); CHR$(BEGCOL+25); CHR$(BEGROW+6); CHR$(BEGCOL+30) 2940 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+6); CHR$(BEGCOL+33); CHR$(BEGROW+6); CHR$(BEGCOL+44) 2950 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+6); CHR$(BEGCOL+47); CHR$(BEGROW+6); CHR$(BEGCOL+51) 2960 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+6); CHR$(BEGCOL+55); CHR$(BEGROW+6); CHR$(BEGCOL+62) 2970 PRINT CHR$(ESCAPE);EGCOL+5) 2670 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+2); CHR$(BEGCOL+10); CHR$(BEGROW+2); CHR$(BEGCOL+15) 2680 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+2); CHR$(BEGCOL+19); CHR$(BEGROW+2); CHR$(BEGCOL+28) 2690 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+2); CHR$(BEGCOL+31); CHR$(BEGROW+2); CHR$(BEGCOL+36) 2700 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+2); CHR$(BEGCOL+41); CHR$(BEGROW+2); CHR$(BEGCOL+46) 2710 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+2); CHR$(BEGCOL+49); INT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+4); CHR$(BEGCOL+40); CHR$(BEGROW+4); CHR$(BEGCOL+45) 2830 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+4); CHR$(BEGCOL+48); CHR$(BEGROW+4); CHR$(BEGCOL+51) 2840 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+4); CHR$(BEGCOL+56); CHR$(BEGROW+4); CHR$(BEGCOL+63) 2850 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+4); CHR$(BEGCOL+72); CHR$(BEGROW+4); CHR$(BEGCOL+79) 2860 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+4); CHR$(BEGCOL+66); CHR$(BEGROW+4); CA     GCOL+46); CHR$(BEGROW+8); CHR$(BEGCOL+59) 3080 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+8); CHR$(BEGCOL+63); CHR$(BEGROW+8); CHR$(BEGCOL+75) 3090 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+8); CHR$(BEGCOL+79); CHR$(BEGROW+8); CHR$(BEGCOL+84) 3100 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+8); CHR$(BEGCOL+91); CHR$(BEGROW+8); CHR$(BEGCOL+96) 3110 PRINT CHR$(HOME); 3120 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+10); CHR$(BEGCOL+0); CHR$(BEGROW+10); CHR$(BEGCOL+5) 3130 PRINT CHR$(E ** 3620 REM 3630 ROW = ROW1T 3640 COL = BEGCOLM 3670 TYPE = MONTHS 3680 GOSUB 4620: REM GET 'MONTH' (CLOCK) 3685 IF INTVAL = 1 THEN FIRSTMONTH = 1 ELSE FIRSTMONTH = 0 3690 GOSUB 4750: REM DISPLAY 'MONTH' 3700 TYPE = DAYS 3710 GOSUB 4620: REM GET 'DAY' (CLOCK) 3715 IF FIRSTMONTH AND INTVAL = 1 AND PASS <> 1 THEN YEAR = YEAR + 1 3720 PRINT STR$(INTVAL); ","; YEAR;: REM DISPLAY 'DAY' AND 'YEAR' 3740 PRINT CHR$(ESCAPE); CHR$(SETOFF); CHR$(INVERSE); 3750 ROW = ROW + DTSPREAD: REM INCREMEN; CHR$(BEGROW+12); CHR$(BEGCOL+10); CHR$(BEGROW+12); CHR$(BEGCOL+15) 3240 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+12); CHR$(BEGCOL+17); CHR$(BEGROW+12); CHR$(BEGCOL+33) 3250 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+12); CHR$(BEGCOL+36); CHR$(BEGROW+12); CHR$(BEGCOL+41) 3260 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+12); CHR$(BEGCOL+46); CHR$(BEGROW+12); CHR$(BEGCOL+51) 3270 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+12); CHR$(BEGCOL+62); CHR$(BEGROW+12); CHR$(BEGCOL+67) 3280 PR$(DRAWLINE); CHR$(BEGROW+14); CHR$(BEGCOL+74); CHR$(BEGROW+14); CHR$(BEGCOL+79) 3390 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+14); CHR$(BEGCOL+82); CHR$(BEGROW+14); CHR$(BEGCOL+93) 3400 PRINT CHR$(HOME); 3410 PRINT CHR$(ESCAPE); CHR$(SETON); CHR$(INVERSE); 3460 PRINT CHR$(ESCAPE); CHR$(SETON); CHR$(REDUCED); 3465 PRINT CHR$(ESCAPE); CHR$(SETON); CHR$(UNDERLINE); 3470 PRINT CHR$(ESCAPE); CHR$(EQUALS); CHR$(DISPOFFSET+((ADROW+6)-1)); CHR$(DISPOFFSET+(ADCOL-1)); 3480 PRINT " GRAPHICS " 3SCAPE); CHR$(DRAWLINE); CHR$(BEGROW+10); CHR$(BEGCOL+8); CHR$(BEGROW+10); CHR$(BEGCOL+13) 3140 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+10); CHR$(BEGCOL+15); CHR$(BEGROW+10); CHR$(BEGCOL+32) 3150 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+10); CHR$(BEGCOL+36); CHR$(BEGROW+10); CHR$(BEGCOL+41) 3160 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+10); CHR$(BEGCOL+46); CHR$(BEGROW+10); CHR$(BEGCOL+51) 3170 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+10); CHR$(BEGCOL+62); CHR$(BEGROW+10); CHT TO FIRST 'TIME MASK' ROW 3755 PRINT CHR$(HOME) 3760 RETURN 3770 REM 3780 REM ** DISPLAY DATE - END ** 3790 REM 3800 REM --------------------------------- 3810 REM 3820 REM ** DISPLAY TIME MASK - BEGIN ** 3830 REM 3840 FOR ITEM = 1 TO 4: REM > 'HOUR', 'MINUTE', 'SECOND' & 'HUNDREDTH' MASKS 3850 READ A$, B$, C$ 3860 PRINT CHR$(ESCAPE); CHR$(EQUALS); CHR$(DISPOFFSET+(ROW-1)); CHR$(DISPOFFSET+(COL-1)); 3870 PRINT A$; CHR$(187);: REM LABEL & LEFT TIME BAR BORDER CHARACTER 3880 PRINT CHRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+12); CHR$(BEGCOL+73); CHR$(BEGROW+12); CHR$(BEGCOL+78) 3290 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+12); CHR$(BEGCOL+81); CHR$(BEGROW+12); CHR$(BEGCOL+85) 3300 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+12); CHR$(BEGCOL+90); CHR$(BEGROW+12); CHR$(BEGCOL+95) 3310 PRINT CHR$(HOME); 3320 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+14); CHR$(BEGCOL+0); CHR$(BEGROW+14); CHR$(BEGCOL+5) 3330 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+14); CH490 PRINT CHR$(ESCAPE); CHR$(SETON); CHR$(UNDERLINE); 3500 PRINT CHR$(ESCAPE); CHR$(EQUALS); CHR$(DISPOFFSET+((ADROW+7)-1)); CHR$(DISPOFFSET+(ADCOL-1)); 3510 PRINT " REAL TIME CLOCK " 3520 PRINT CHR$(ESCAPE); CHR$(SETOFF); CHR$(UNDERLINE); 3530 PRINT CHR$(ESCAPE); CHR$(SETOFF); CHR$(REDUCED); 3540 PRINT CHR$(ESCAPE); CHR$(SETOFF); CHR$(INVERSE); 3550 RETURN 3560 REM 3570 REM ** DISPLAY BANNER - END ** 3580 REM 3590 REM ---------------------------- 3600 REM 3610 REM ** DISPLAY DATE - BEGIN R$(BEGCOL+67) 3180 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+10); CHR$(BEGCOL+72); CHR$(BEGROW+10); CHR$(BEGCOL+77) 3190 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+10); CHR$(BEGCOL+80); CHR$(BEGROW+10); CHR$(BEGCOL+84) 3200 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+10); CHR$(BEGCOL+91); CHR$(BEGROW+10); CHR$(BEGCOL+96) 3210 PRINT CHR$(HOME); 3220 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+12); CHR$(BEGCOL+0); CHR$(BEGROW+12); CHR$(BEGCOL+5) 3230 PRINT CHR$(ESCAPE); CHR$(DRAWLINE)R$(BEGCOL+12); CHR$(BEGROW+14); CHR$(BEGCOL+17) 3340 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+14); CHR$(BEGCOL+28); CHR$(BEGROW+14); CHR$(BEGCOL+34) 3350 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+14); CHR$(BEGCOL+36); CHR$(BEGROW+14); CHR$(BEGCOL+41) 3360 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+14); CHR$(BEGCOL+46); CHR$(BEGROW+14); CHR$(BEGCOL+51) 3370 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(BEGROW+14); CHR$(BEGCOL+62); CHR$(BEGROW+14); CHR$(BEGCOL+67) 3380 PRINT CHR$(ESCAPE); CH  R$(ESCAPE); CHR$(SETON); CHR$(UNDERLINE); 3890 PRINT CHR$(ESCAPE); CHR$(SETON); CHR$(REDUCED); 3900 PRINT B$;: REM TIME BAR AREA (SET TO REDUCED INTENSITY VIA SPACES) 3910 PRINT CHR$(ESCAPE); CHR$(SETOFF); CHR$(REDUCED); 3920 PRINT CHR$(ESCAPE); CHR$(SETOFF); CHR$(UNDERLINE); 3930 PRINT CHR$(183): REM RIGHT TIME BAR BORDER CHARACTER 3940 PRINT CHR$(ESCAPE); CHR$(EQUALS); CHR$(DISPOFFSET+((ROW+1)-1)); CHR$(DISPOFFSET+(COL-1)); 3950 PRINT C$: REM TIME BAR SCALE 3960 ROW = ROW + ROWOFFSET: REM 3 THEN PRINT " March"; 4790 IF INTVAL = 4 THEN PRINT " April"; 4800 IF INTVAL = 5 THEN PRINT " May"; 4810 IF INTVAL = 6 THEN PRINT " June"; 4820 IF INTVAL = 7 THEN PRINT " July"; 4830 IF INTVAL = 8 THEN PRINT " August"; 4840 IF INTVAL = 9 THEN PRINT " September"; 4850 IF INTVAL = 10 THEN PRINT " October"; 4860 IF INTVAL = 11 THEN PRINT " November"; 4870 IF INTVAL = 12 THEN PRINT " December"; 4880 RETURN 4890 REM 4900 REM ** DISPLAY MONTH - END ** 4910 REM 4920 REM -------------------50 PRINT CHR$(ESCAPE); CHR$(SETON); CHR$(INVERSE); 4260 PRINT CHR$(ESCAPE); CHR$(SETON); CHR$(UNDERLINE); 4270 PRINT CHR$(ESCAPE); CHR$(EQUALS); CHR$(DISPOFFSET+(ROW-1)); CHR$(DISPOFFSET+(COL-1)); 4280 PRINT USING " ## "; INTVAL;: REM DISPLAY CLOCK VALUE 4290 REM 4300 REM DISPLAY TIME BAR (ERASE PREVIOUS BAR IF ROLLOVER) 4310 REM 4320 PRINT CHR$(HOME); 4330 PRINT CHR$(ESCAPE); CHR$(SETOFF); CHR$(UNDERLINE) 4340 PRINT CHR$(ESCAPE); CHR$(SETOFF); CHR$(INVERSE) 4350 IF INTVAL < HOLDVAL(COUNT) THEN CONVERSION) - END ** 4570 REM 4580 REM -------------------------------------------------------- 4590 REM 4600 REM ** GET CLOCK VALUE (BCD/INTEGER CONVERSION) - BEGIN ** 4610 REM 4620 OUT PORTA, TYPE 4630 CLKVAL = INP(PORTD): REM GET CLOCK VALUE (BCD) 4640 SIXTEENS = INT(CLKVAL / 16) 4650 ONES = CLKVAL - 16 * SIXTEENS 4660 INTVAL = 10 * SIXTEENS + ONES 4670 RETURN: REM RETURN CLOCK VALUE (INTEGER) 4680 REM 4690 REM ** GET CLOCK VALUE (BCD/INTEGER CONVERSION) - END ** 47NEXT 'TIME MASK' ROW 3970 NEXT ITEM 3980 RETURN 3990 REM 4000 REM ** DISPLAY TIME MASK - END ** 4010 REM 4020 REM ------------------------------- 4030 REM 4040 REM ** DISPLAY TIME - BEGIN ** 4050 REM 4060 COL = CLKCOL 4070 REM 4080 REM > ALLOW RETURN TO 'Reset clock? Y/N' VIA "" 4090 REM 4100 PASS = 2: REM SET FOR DATE DISPLAY LOGIC 4105 WHILE NOT (INKEY$ = CHR$(ESCAPE)) 4110 ROW = ROW1T + DTSPREAD 4120 COUNT = 1 4130 TYPE = HOURS 4140 GOSUB 4230: REM DISPLAY 'HOUR' (VA------------- 4930 REM 4940 REM ** DATA (TIME MASK) - BEGIN ** 4950 REM 4960 DATA "Hours: "," "," 0 12 23" 4970 DATA "Minutes: "," "," 0 10 20 30 40 50 59" 4980 DATA "Seconds: "," "," 0 10 20 30 40 50 59" 4990 DATA "Hundredths: "," "," 0 10 20 30 40  PRINT CHR$(ESCAPE); CHR$(ERASELINE); CHR$(TOPT+((COUNT-1)*PIXOFFSET)+1); CHR$(BEGCOLT+2); CHR$(TOPT+((COUNT-1)*PIXOFFSET)+1); CHR$((BEGCOLT+2)+HOLDVAL(COUNT)) 4360 PRINT CHR$(ESCAPE); CHR$(DRAWLINE); CHR$(TOPT+((COUNT-1)*PIXOFFSET)+1); CHR$(BEGCOLT+2); CHR$(TOPT+((COUNT-1)*PIXOFFSET)+1); CHR$((BEGCOLT+2)+INTVAL) 4370 HOLDVAL(COUNT) = INTVAL: REM STORE CLOCK VALUE 4380 COUNT = COUNT + 1: REM INCREMENT 'HOLD' ARRAY POINTER 4390 ROW = ROW + ROWOFFSET: REM NEXT DISPLAY ROW (CHARAC00 REM 4710 REM ------------------------------------------------------ 4720 REM 4730 REM ** DISPLAY MONTH - BEGIN ** 4740 REM 4750 PRINT CHR$(ESCAPE); CHR$(EQUALS); CHR$(DISPOFFSET+(ROW-1)); CHR$(DISPOFFSET+((COL-1)-1)); 4752 PRINT SPACE$(20); 4753 PRINT CHR$(ESCAPE); CHR$(SETON); CHR$(INVERSE); 4754 PRINT CHR$(ESCAPE); CHR$(EQUALS); CHR$(DISPOFFSET+(ROW-1)); CHR$(DISPOFFSET+((COL-1)-1)); 4760 IF INTVAL = 1 THEN PRINT " January"; 4770 IF INTVAL = 2 THEN PRINT " February"; 4780 IF INTVAL = LUE & TIME BAR) 4150 TYPE = MINUTES 4160 GOSUB 4230: REM DISPLAY 'MINUTE' (VALUE & TIME BAR) 4170 TYPE = SECONDS 4180 GOSUB 4230: REM DISPLAY 'SECOND' (VALUE & TIME BAR) 4190 TYPE = HUNDREDTHS 4200 GOSUB 4230: REM DISPLAY 'HUNDREDTH' (VALUE & TIME BAR) 4210 WEND 4220 RETURN 4230 GOSUB 4620: REM GET CLOCK VALUE 4240 IF HOLDVAL(COUNT) = INTVAL GOTO 4370: REM SKIP DISPLAY IF NO CHANGE 4245 IF TYPE = HOURS AND INTVAL = 0 THEN GOSUB 3630: INTVAL = 0: COL = CLKCOL: REM DISPLAY NEW DATE 42TER) 4400 RETURN 4410 REM 4420 REM ** DISPLAY TIME - END ** 4430 REM 4440 REM -------------------------------------------------- 4450 REM 4460 REM ** SET CLOCK (INTEGER/BCD CONVERSION) - BEGIN ** 4470 REM 4480 INPUT NEWVAL: REM ACCEPT NEW VALUE (INTEGER) 4490 TENS = INT(NEWVAL / 10) 4500 ONES = NEWVAL - 10 * TENS 4510 BCDVAL = 16 * TENS + ONES 4520 OUT PORTA, TYPE: REM SET CLOCK W/NEW VALUE (BCD) 4530 OUT PORTD, BCDVAL 4540 RETURN 4550 REM 4560 REM ** SET CLOCK (INTEGER/BCDA      50 60 70 80 90 99" 5000 REM 5010 REM ** DATA (TIME MASK) - END ** 5020 REM  0 10 20 30 40 0 12 23" 4970 DATA "Minutes: "," "," 0 10 20 30 40 50 59" 4980 DATA "Seconds: "," "," 0 10 20 30 40 50 59" 4990 DATA "Hundredths: "," "," 0 10 20 30 40   A       A       A       A       A       A       A        A     !  !A     "  "A     #  #A     $  $A     %  %A     &  &A     '  'A     (