IMD 1.16: 15/08/2007 11:32:48 mdos 0220 games  MDOS02200220082378JIM CARLSON \lxOR CM<CHASE2 CMXRLIST CMrMDOSOV0 SY\rDIR CMrBLAKJACKLO0RMDOSOV4 SYrDEPR SBESTAR SBPEMDOS SYrBIO CM RNDER SAEBJ SAEMDOSOV6 SYrBJ SBELANDER SBERASM CMHrMINTREK1LO@RBASIC CMrFREE CMrHAMURABISBELUNAR SB8EDUMP CMrEXBIN CMrNAME CM,rNIM CM8RREDBARONCMRXTREK LORSTORY SA TTTDAT SAEMDOSOV1 SYlrXTREK SAEARN SB EDITM CMrLOAD CM$rLIST CF STORY SBEMDOSOV3 SYrMDOSER SYeDEL CMrNOW SBCHAIN CMrBACKUP CMrULETTESAEMDOSOV5 SYrCOPY CMdrESCAPE CMRTICTACTOLO`RFORMAT CMrMDOSOV2 SYxrTTTDAT CMRROULETTESBEAIN SY|uu+XHYHYwvz{67xHY & M& &S66~m? ~SM @?@0220 CN0 LP0 DK0MDOSER SY }O'0&'L/&04315X%;$*IZ062Y06336;!~nWnceg !*-9bdkt  _a[]aqwFIik'llll}*26'}O&/7606 Z&nn#Z&9 &Z&900l&l90l&l9 Z&9A%6290%62%9$l9@%j96hiJ&296dfJ&29$&P+O?'& ?% ?.' 9 '? ?6 ' 29'' 9O'9**  $ && ?$~ 09 I &KE?$~09   9090~_0 h0629_?&?.062 C06 0&9  & 90gf90hi9 440J&0 6290   J&110 ކOi ON670$1'24'.8'*9'& 320$'90? ?0j'&?.Y$u Vx~>?*?/% 629~/' '  k "uS~DK8LPECRRCP_CNlHRyr 1 )Qze W T  Q NS*"' "!$%3l&l && l&l"!$E011n0~Ao'  ''   9? "! '  9&' ++& +|$~( 66?240?311116L6*5i+`32P@$Z73$O_ ?(?!I% ~B~*|_?3?*67)*0l&ll&l&&11~%0 09 |?3?+?$~B?26 HYHY01674 0+??31111  +  l&l 9    }* |S6]3&l f09~~  U Rz (&}* V (H7F $9ц 1 ' G$ 9 9W (}*7 _ 011n~϶?}& W~ J~ d~ ~ ~ & }*] &9 |b}*0 b}*9OZ& 2OZ&     $0 011n&~  V$]&u0  !' m& Y ˋHHH0 0'l >0 !' ]'~ ]&& '~ } &~ ~ #_ HHHH?( &   m&~  &  0 ? 'B_9 & ?'0 && ~ 0 ?'~ D'~  '~ ?0  0?"$ ? ?  ~ !'~ &\0 '   0 @'o o ooo?!]''?'; ? ?_B   ?0* '~  9       DDD   } &? ? 9 _  %*_  Yz &VFFFF# "GY9' V$]'~ &Ġ''P& &' '0@& ?$ &~ ? ? &~ & x9?)%  $~ Š& '?(%%' _?]&' 'G &C&7vŀ& ' 7}n7676~m  '2m '%''0n00&_9 90 9    ?z9?$?/$11 ?&?/%9  &ŀ' ?-9Š&   ?.9 90uv9v'# ?u'J$|911~ oc' 9Š' h9& SS90}629ŀ'hvŠ&9S#Mٽnp{' {j?' &&l ) #_HY?)?# *'>&~0Ӧ'_\'0է }&|ަm'С&~  Ӧm''?' |&|  Ն ) $! 9?ۆ.?ۆ:9ַ$|ն&ٽ99צٷGط$| 0 ~f626 29DDDD09#90 &1f38 "#$ % &  ' ( )*+,-.5BbINVALID MESSAGE \3 AT \8UNIF. I/O ERROR-STATUS=\3 AT \8PROM I/O ERROR-STATUS=\3 AT XXXX ON DRIVE X-PSN XXXX0MDOSOV SYo6 6 6 660_\$ H/,6@?% 20 229V S          ؽؽؽؽؽؽؽؽؽ ~m       | M'  / /| ~?%( ~& ? ? ? |9V S   oo~~ؽؽؽؽؽؽؽ'н$~y ?   '; Z9 ?_$~w?'  ?'~b&.%,M%& %  \ \~M$~%' &~$'M$ &~}?&$ &m &m ' ' '~} &? &ƀO?Z?1?1 ?m+ 'K_ $?,?) &~ w &  _?&$?,?(~y&^wXXZ?'gʀ? & _9 ۽wXX?'~ 9      &~ut?'~fTTT-#~?XXXX?''~o o m*~;?* ?~;w%SZ& ?0?0*~yw%R?.&ǽʀt?)' oo ?~?(~$9 ?( 9TFVFVD6YYYO FZ,299$ 9g|WW\7g?%39ZXX7g?%3O?*9?-g?)9н$11~u?m+ \:/11~u'9  ( ooؽ~~~~~!~~90909X0o]''d*&ց.&PƂ]' *&ʍ:& 0? 0?090 ;' ' 0 l&l9u #'zƀ ?6ŀ& '@'?$ @?%?0]'Z0Y?%0 ?')760' ?0 ?23*& ?$?$*1906?290?ƈ~ 6'-  ?-?&0 5?&?)   ?/%(?/$! 0m& _2W9 @&- $*?%$ ?%'?/' ~~~'DK&~J0 %Z]' ?(Z 'oo' 00  @ ? 09 0  $ ?(z& ~q6 @'' ?2oo?3oo  29'~n '~q&~q|'''~t&'| &&o o  's$~w?@}&~ʶ'~}*~M%xl&l&' &}/%}& |&Ľ[ 0}& }'7[3%!&' &  0$~h~0$6~h&%}'  '!}, & '  $~h%~}}&| &P09 0%}. 0%09E}+ H}'D0$~hO}+ ?.]'~z$L}&| '0%C}*~~}'7TTTT3% 90:%9ʀ  ' 73]' 9`~~ _'~ۆ&~߆ &$~}&'''~~)'| - Z.$~%_ 3$~}'Z& 'M&ZJ?%$~&~&(%?/'% '& &8}'}& $~}'~}'~o_9'&|]*' z' ~B3$~}'H' ' E&| D' }&t&i~%&~}'&}'&z' ~% ~%}&̽3% &&'m&jj~ 0] 9  0 &}&   7399@ 9󆀪 3%%"$1111~XXXXi3% %i 90%% *% 9}+39>997 &39 % 9?/9}&M&ZJ97%3g9399   ~~~'~ & o_9''  '~p''&?8'~@' D &'8&]'/?/')!"?/%o  ?ߤ]'~oo&~ &Q'~ DDD-#~?XXXX?'? ? ?'?"%~0] 9   &0o_90?&\TTT-R# L ?0XXXX?'''0 ?'6 ?20?90 9  &~{0' &?$~'M  '~&& ?_9?%~'   ?'?'??@?%!?&~ 9   ??9ÄHHHH?(VVV9"(~%&~φ@ &~? ''~ &.~׽o_9 '?'&~~|?  &~۽  &~I ?'?$' ? ?&~~' '~oo oo# %"?%*~ %:m+Z&~~b}?'~b?6'~m ' ?'#% #?&# ?'%#?~b ?' ' '  @&~۽ & & 62''&  &~ &~> ?'?$&~&~&~ ? ?~' ''~}?'~b;= ?'?$?%?'?$?7;<=>m&~e~ &~׆``& ~0] 9           9 $11~9$X~%~=eS9@"LIST ROULETTE.SB;L :0;V D MANUALLY FROM 0 TO 1 UP;A END CHAINHHHHC'1~#? $0 K(? ?. ?' (K? %S@'C\&(0$ ']'Z 09)~#*((*9*'..'*J'tC'fL'_, S&~v. T'%2 6*'S? 2.&4:? ? $~U #6+?,-.?/  2~}+* .|+S@L&S.&+ Ҷ,-*+ O 6.?&%2M' *&S? ((,$#_?S9 &4+'3~#+4 //9.?& ?&0? ~%~s?'((((6:2&*9 ? .???oo0+( # + . (7x+y*Z&++3Z&9&~ !q?o_!l?!o!B&%!o !E&!q!!s!q?' RI S ? '~ U~ H @'E @' {'3j? , ?%?%E?%?%j?%?%!MQ|-7&(3%.Z&$'-*O,,-?-$?),Y&(Y&~0 ~/~/OPTFTF[\Y*,9HZ&;l>j~).<6ueD0_*F?$ ? ?DߔO *&~,x0nANތB  'AN4(')(4($4('(O1100($ *,.,'*'AN+zAN& a'6~*[6? $~-^ HC]ޔ߈6*&~)}6'[}' "0j"["Y "Y]"Y" 4IHn4($$I~5Y ~*4%̽$]'ZU)C-$',-' U6)&e& ~*67e U4(zU+ (,& ($~*6~,xeu&~* e 0j ½"#w6)&[*>a~)"CZ"9C߈$(ވ5]2M'0"&}>_'>_ >_}>`'}C& }>_&,' 'Z& o40(>_>`96ވ' ' &2߈90n4&~*4("& &,&40V>h'>>?'~>'o>l߬ !߬42$P4ެ}&%i$,M'>h' >l"4~>0!˽"! ֽ(- "ٽ(,&߬4(,' @M&~3XI& T&D~B~*(J-' JOLMN/{]&^'($$ .&M 9 $%B0&}L& }M'zK L"&]'}N&Z HHHHsN&}M&|K" }M&.&M _E&-' +&6 1PK"]$"}J'& 9"7]oZ&K3"9$$~*0$% XXX0942$h4<.'>}' ('*"'- :<ޔ߈<&N% -| (.$ '~**'M&!& "٦,&<4(,' M&~34(#&3-9. 0~.<4~3"-ߦ'1 "9 #>h4(#&%','~24$$'-ߌ + .0>'>&(22~*>h9BߌߎHH𗑆ސ&&~*90n4(M&X ;'->h'"?2>j ?$>l>j>h~'?3 "@6~,x~* '6r"Ľ$Z@/#wZ&D &}&o 0V(,&@' #w ;&~0M' . O06}>c&}>h'AO>j>'>jAO "Y27@\ѓ# ђ$ &"_@39"T$OMm& }& "~#wm*-& .>-:M.Mm*)1z'l }M&1&j&}&R$1~2 1&1~#E1Z*-1POL *J 11~1֩$ 1&Z& }T&9"]7m&Z&  "39#% 94%~*(=' }& %M&" @&}&~&IM&޽-| -4%̽$04ז 4%̽$ % T )&~,x"4%,' )&4" 9%&4" 94#)%~*M*4c$$ _$4(,' ~3"&׆}'$$F"FG9M&~*""6Q]'Z'Q$}'$J& 2$}'$J&942%~2}&4]$QRD0QR_'&& 67&'$ ߌD&~*_4(='~2%̽"ٽ):!&4%4_"˽$_4):! & 4%4 :g_"˽$_4(&6_67_~,x42%~2(&6$_D0'f_D0'[$$&&a"a$m*O"'o"˽$a"5$a_~,xo"a"a6  ~*4&IO}'-&}&~&I4- -ߟ(5 2M'& ([ %4J$~34)Cn(=&9<&=&9>&99>'~*=&9<'9'$6OHH5 !! 2 Mn' + + & '+* 9 96l"g"96l ]/' lZ o$'2$9c'J:g$}J*&9Lm* 4((&482z$$ il";"(p$&o$'2i"9$94%&493%~%2$7$RQQ34~3@L9ӽ$RQQ9"]/{ _d\$Zd&_ \$Z &$'2$"9G)'~%24-ߦ69OL]&J69ս.$'~*$9(,'~%7494&}&~&I9%&4$\7I$ ν3G$$H%%~*\7$H$J-J* 2J(5ވ  M+3J]& o(߈׆$9%&4$H$-7L]&J36*Oވ |>`6r$ވo 4%̽$גWW~33$~&Iތ"@6@8ߌ|>c1>c2@"ߌވ o~7ވ߈94('kF&gN&`$s%X((&Q(*~3#)@$'<RQ4c4()&'(=& 'R&$$ Q&ʀ ~3"~*4((&M".*'C!')( (&(#%"(($"%&"ٽ"$%̽$"49#~*6rZ;"'$5$;"(p'9S;"'$m+ ;"'9;$N$'99 (p"9]$]&~$"˽/{$98ύ<" E8􍿽$:g<. /,/{9A7"(pA"$'3Z&"(p9/{]$ m' P $'$o96r/{]$N/a%oN$;N'* 6"'2L 6"'2J "ˍ3'9S:''9E9d ;ڽ9$(p"'$95~*]/{$9]/{J 6r9S;"'$5$9S]* &$P $7;"(p';"(p"˽:g9d h$oo  ?$>h~1>hCC&~0E4(#&>d3-9/~>>' '>'~ AO ?'>f0SA >d?]&]>d>dU' ZO'ZI&GAO 0 DK ?&?'A1 %&$>d'~=r~3( ) 0 1 _? 2 3~*AOA1 7@{&&??%?(@&39>l>@{@@>l>DK >?z>l>DK ?{?>l>DK ?@z4(#&83-29..0>h,&&?&?&>h~3~>~>'>&> >&> >&>9C'DKCC o?&?'_? ?~)&C ?.*&9A?2C ?&?3 ?3? 9AQBچ  AQAQ HIH &  AQ AO CAO9&9AO  AO C ?&m?&i'~>.C ?&Co߮+ &DC&:C ?&4?&0DKCC*CBCCB ?CC ?&?&9? ?B? ? N'Y&AUC&C>;C ???SAVE(Y/N)%9B? ~)PRINTER ERROR  7DDDD390:%9C0 SA   MDOS BASIC 2.01 COPYRIGHT(C)- 1977 C2C,CC.BEW&`]+YCBCCB ?EW&C]+ C?Z' |ASCCDKCCCC$AN~) ? ?CB0CSAC C?B?C0C9HH |N2z\= &+/121-)#  $)-01210-)$  "'*-0121/,)%   ,H* $Y'I I(0$3? 3$%3Q6S9U(x$<? &<$ (Z&)$(? ($*? *$%I'($%}$($ (%}(A@ 09&| *+'  #-'''. . . .??+A A I #A@A@ &mA@CSA@ S9#F0#!& . A@A@!!F& mA@A@!& A@A@ Ԗ34' ""'  #AA@@L 6##AA@@F&"/ AA@@%$ )#C%% @#D!%& \#E<#)I')B$ )B$$z))'%#L#"  #BB.7,g7 l~#"'F#76|" "'4,4 D4|3 ;"43|F:-|9: F&#', 7|6 $L$&O$ )#C%L%&O% @#D&L&!&O& \#E~"67GOHGGHG32967G_HGHGG329 $ $ Z.I&* *$)Ͻ$N&?Q3S6U9~ / Z 9GIG9&eW$W' .R '''    #M').W- - . . 9&W##' 9Z&9 $ $ 30$ \' ' ' /$  $ Z' 93'8C'D' E'' $ \ P$ \ ۆI$ \ ӆE$ \ ˆ.$ \ Æ$ $ $ 9K@ALM%*LP'FZ 9NO\.4xK$PvKLK% yOyNKL  yOyNZ' yMyLL% NP %P9  THE PURPOSE OF BIORHYTHM IS TO PREDICT A PHYSICAL, EMOTIONAL AND INTELLECTUAL PATTERN THAT INDICATES YOUR UP AND DOWN DAYS FOR ANY PERIOD OF TIME. BIORHYTHM CAN SHOW WHICH DAYS WERE GOOD OR BAD FOR YOU BEGINNING WITH YOUR BIRTH. IT CAN ALSO SHOW YOU WHICH FUTURE DAYS WILL BE GOOD OR BAD FOR YOU. THESE PREDICTIONS ARE BASED ON SCIENTIFIC STUDIES TO DETERMINE WHY ACCIDENTS OCCUR. IT WAS LEARNED THROUGH THESE STUDIES THAT A PHYSICAL CYCLE OCCURS EVERY 23 DAYS, AN EMOTIONAL CYCLE OCCURS EVERY 28 DAYS, AND AN INTELLECTUAL CYCLE OCCURS EVERY 33 DAYS. DO YOU WISH AN INTRODUCTION TO BIORHYTHMS? TYPE Y FOR YES, OR N FOR NO. ?  PLEASE TYPE YOUR BIRTH DATE (MM/DD/YR) ? AT WHAT DATE ARE YOU INTERESTED IN BEGINNING BIORHYTHM? (MM/DD/YR) ? HOW MANY DAYS DO YOU WISH TO HAVE PLOTTED? (01 THRU 99) ? HERE'S YOUR BIORHYTHM AS PREDICTED BY MOTOROLA: PHYSICAL CYCLE = P EMOTIONAL CYCLE = E INTELLECTUAL CYCLE = I  DATE DOWN CRITICAL  UP -------------------------------------------------------- DO YOU WISH ANOTHER CHART?  PLEASE ENTER YOUR NAME ?PRINTER? MOTOROLA MICROSYSTEMS WOULD LIKE TO PLAY A SIGNIFICANT ROLE IN YOUR FUTURE MICROPROCESSOR APPLICATIONS. NOW THAT YOU HAVE A BIORYTHM PROFILE OF WHEN YOU MAKE YOUR BEST DECISIONS, YOU'LL KNOW WHEN TO GET IN TOUCH WITH US FOR ALL YOUR MICRO-PRODUCT NEEDS; COMPONENTS, DEVELOPMENT SUPPORT TOOLS, INSTRUMENTATION, SOFTWARE, MICROMODULES AND THANK YOU AGAIN FOR   YOUR INTEREST IN MOTOROLA MICROSYSTEMS AND YOUR FUTURE. MOTOROLA MICROSYSTEMS 3102 N. 56TH STREET PHOENIX ARIZONA 85018 PH: 602-244-6815   V0 !IOPKL;,./8* *QWEASDZXC1+ 7 * +#!y!!۽!! !! . ( . &!! . ;'& !! ; 5  ; 3!! . ;&!"!!$C'Q&!?7o .  (   ; 5 " G9J& &9ؽ9' 9G$ O9!$ G#F&" G9 @ #F& @ " G'G @ 'P'R'T'V'X 'Z '\ '^ '`'f '^H'f  @"$`"$`9 ؆ ҆ ̆ Ɔ      ! -7. 9 7 -o. 9 o ,CG O T C H A !Y8 0204'*U''?'&~! &~%*VDK&~%*S*4*4*z''?'&  '*{DK'*x*4*4'_ 'W;' ' 'G '*<&3'D&=&**''7?''_~%3 ',& ' m&~%*7UDŀ'*4'*V'''*{'~%&*4'*V' '*{' &~%' & *z&*'*4'~# *z&*U*z*&*^**{&*V'*{''?PS*7'~%P*7' *L*L *q*q*K?'~%?&*7@'~"S*b**c**d**^*&d*q*q*p?&?'}*&}*'&** %*K?'U &*b&C*\**K?&?'*(**p?&,''('' ?**p?& %?*p?'~%'*(**p&E%*K?'L '~%*p?'d &*b'~"D*\**K?&*p?&''('' ?' &*p?' '~%' ''''ƀ?&~"e*\}*K& '+ ''+ *? Ɓ?#~"D*7ŀ'S*:*?*:$&~%&~%&~%~%*7'*96*8644446n *z&0*z*4&~$*V'*{ '' ?*K?'~%?&*b''~%޶*7'~%օ ' @&HP*x&'& '*bx**7'&dž*q*q |'*7@&R*q*q*p&'?'~%?&*7 '%*K?' &~"D}'& *O*M'|'*M*v*p?& CN*x&~%)**t*3*v*7&|'&E%*K?' &*p?' &~"D*? ~#}'&*M'*p?' '~$}'& *r'|'*O'*t'''&*r& '*M' ''*M'' CN*S&~%*7('~%'*4'*L*L*b |'*V*4' *&SA**{'*V'' ?*K&'?'~%?&*b' ''~%*bx**4&*V'*{'' ?*7@'~$N&d~#? %? *      *z ? $%?9*K&&*q&*q&*{'*q*q*p&&9&C?''_? &C?''_? 9*p&'?& ?&*? 9~%*z?'9*ŀ'~%*b' '~%&*4& **b&*7'9*{'*''?***z**? '? 'Y'ƀ?#%?H& R&*5*6 @ o9U& D&** +#bNCWH V@DM( ))DK0 SA' '( ))DK  ' '0 LO' 'VERIFY IN PROGRESSXXXXXXXX.XX:X EXISTS. OVERWRITE? VERIFY FAILEDVERIFY FAILED AT LSN XXXX]'/l&l+?+? #0m&jj+? Z&+?96dfJ&29  +q +$ 0 011n++oo<+9++Ǧ4< ++Φ+ +&z+& %0& +9+M`8 0203O"%&" '.;' '|&  'Y&|" S&|% ' : "?"@ ?"?""? _"? ''\J' "? ''? ?& "?&}&& "?&"?"P!j ? $?"?!?$~!C!&!&%&"L &׶"L'Ɓ?##"#? D!&$"& """? ? %C"? ? %8Y&"??$ ? ?#"#? !J&~ " ';'~ F?!J''ƀ?##4"#4? ? ?&~!1O#$ "@&z# % &!9 &# |#"H'&"H&z$  &$ |$"H'&"@""" "?!9#+"@""""?&$*O J'"H" "H"9""@""?."ܧ"H"I:"?09 "X"  DELETE  ? IS PROTECTED DELETED DOES NOT EXIST c 0200O$%&#L- $$$j0$Y$Z ?%$Y%%? _%ئ '@;& '5E&  $ A&  $$ ܁L& ԁS& ́ ' !_$Y$z' \J'~#)$Y ' %$%%?$~#)$%$%%?$r$% $Y& '~" &&" "? $~#"$Y?$~##'#&"J& !&$f &|&#!&~"#$d%$%%ν&O$j'('%$%%ν&$Y$d%%E%%?$~#)$%E'+|$?''*$%$?)$$%$%%ν&!&~"%E*&"%$% %?~"00$ $?%E)(''?'%$%%ν&)(''%$%%ν&$$%$ '$$?$'$57&)+*@Ɓ?#&$% ))+? $~#~"$$%"'~#-~ _+, $Z&z+  &+ |+$b'&$b&z,  & |,$d'&|#$Z%%%% ?~ &ƀ@?#&-$% s' ? i&'!',$%&c%%ν&$%&h%%ν&&F$%&(''%&%%ν&'%&%%ν&&j$%!'-Z'$>?$Z%$%%?.$$b$9++$Z%%%%?&,*O J'$b% $b%9%%$%%?.$f$H%$&$f9!&? 9z-&<-?49?2% Z' %?5?390 $%DDRIVE : DISK I.D. : . !WDSCN0 *NO SDW'S* NO DIRECTORY ENTRY FOUND TOTAL NUMBER OF SECTORS : /$ TOTAL DIRECTORY ENTRIES SHOWN : /$ NO TERMINATOR FOUND IN FILE'S R.I.B. ]'/l&l&& #0m&jj& Z&&96dfJ&29]&~'l&l'''''''o%'l '670 'Z&32'l&ll&lj ,' m&jj'l&lj&'O9'd $0 Z&9 h $0201!h DK h UNIT=0  CHANGE BUFFERFILE= . CLUSTER ALLOCATION MAP DIRECTORY  PSN=0000 LSN=0000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  h!!"0#*7#'>"1"""l"+""=""U" h h : SYNTAX ERROR MODE ERROR BOUNDARY ERROR INVALID SECTOR ADDRESS PHYSICAL MODE WHAT? !ˆC00/,)# ? c? + %,'~'#*y 'ޗ *' *&~$"#*y!B'C'D&0') ')''}/&*  '*yB& & T" ' &N&F#ƀ~%#Ɓ |+'&,* '"H') &' ,&'ǽ* ' &H)#n %*'/&I"(|,N~&#aƄ #-Ƃ,!?#? ~$)zA@(?%)~$)z *y0-9.6*y &)z2%70~$#ƀ~%!D&'&q("k?(')%"ƀ*9"3157~$#ƀ~%!+&B''D')7'-3/'5 D&'&(" ?(')~$#ƀ~%#<ƃ *&"&$*y*y"&*y I & ƀ?7~$#ƀ~%-%)( ?('"ۖN& |N*y &~&.)%.'*sI*y &~&"&*y. ", *&"& *y"&*y  'Z|. -'I"""ہ,'-&J6 '*y &.^'/&& !̶!?/##2^& !ζ!?/"|-'"~&C#ƀ~%#-Ƃ /'7^& "!ζ!?-?$8"߽*O" ""۽*O#&? ~$8(~&,~$@ @A(!+&BB&~'C&~'D'"(dž /&"m"ƀ*93"51')7&~(>~(,C&'(%U')(%L)/'" P!D&>'&2)&.' 1(*"!?')?(' )1" #ƀ~%" "*9"m')*?/$ /'֌&і0!B!(ǽ)$~("*S"*S"`(? g9";"="*O9*O99 -z/.==;?L?&;M&? %'"(ǖ?&')''@&~($zB&(~(~$?1% ?1%}/' 9}@&? 9?2 '' CZ& 6#?52:C?3'?4 ?59}@' CJ'# 9L)z%Z!L"!"Ֆ0! !"?&9 &5!ڗ0ŀ&,"*9!"9 !DK!!?&?&\/7 9#S? 9~)/'!?& O/7?& 9!_? 9"ƀ*9 O/':'!1!M&? ?&!ݶ!HYHY'?)!߶!?-" 9!_? 9'"110"M&?9 ?:%9"60? 2 9 7OH_*%H*IIZ&KQ2QO]96JDFJD?29 6*q*r*o*o*29L% L%%L9 '9C%:F%L'57O%2Q%&R%hS'07U%?W%]'/l&l** #0m&jj* Z&*96dfJ&296hiJ&29A% 62% 0%62%90n0 1 !~!~"v~~>~~8 OLD NEW END LISTSAVEDELELOADRESEMERGBUILNUMBCHANFINDPRINBLOCVERIMOVEDUPLAPPEQUITOLD NEW END L SAV DEL LD  RSQ MRG BLD N C F P B V M DUP APP Q ON OFF IN OUT I O EDITM RELEASE 2.9A COPYRIGHT BY MOTOROLA 1978 WHAT?  NOT THERE OLD/NEW? EXISTS READY SAVE IN .SA:0 SYNTAX ERROR NO ROOM CREATED END=0000 MEM=00000 0000 RECORDS DELETED  NOT ASCII INCREMENT TOO LARGE ALL (Y/N)? RESEQUENCE NEEDED 8 o&4n&U_GD:T15T1t5R1tV+5P1t8/B!" *'{''"U"U"U'{"U"U'"U"U"U"U1`1j"U"U"U'"U'X"7n5N1t 5L1t~"5J1t 5H1t!&~"~"|5P1t8" *'{'''(%(;'{-",'0(('1`1j..('+G'X"7nEF;=><I45FbA#5pqrst#0&'95D$''95B$''95N1t~"A#55@$''' '9"5>5?de598p7-$b &b~#Wbf9# z#- 0"9#b"%\#"X$,6--2b9"*-.HYHY.-HY88_M,S88-.|$d57' bddbb~#$/!-8p5V$_M,Sgfbc -9#d'p8d5 '7&9'#$L~$'98b 8A#5p '8!*887!38Ӷ!6855853488b88!*78!38ʷ!68,8/ F'$~"^908!*78!3:!6.9%&$=&&8 &&8 88885185/885548&&8&!915-1~F'$~"l8' &&8&15+1tF'~%!98'&~"f&& 8&!915)1t~"l0#5p &IU&9&9p8|63p863-)b-&b0#5p863)--, F'$.~"^9|~ ߀߂9/'9D(D5'15%1(D 5#4Y'GB&;!*887!38Ӷ!688518߆55488'~2 |/~"l11!*887!38Ӷ!68~(,5!^58![7^\^&i58O7on{zMN. &$58O7NMMNM8!e5V!i88S6b151t9^78![7^78|7$~&~'\^\^^'787#^9& B$цA#5ApN&A5z9k z19m &9k/&~"v& $цB9k5z~0& 1D14|D1~(D'1D%&^' ('T~( ~"|^1t9$9k3B|/~"v.0#5--)%&^'>>^\^'T~(M~(s~"^>8!k5V5 1t.~"||;~(|=.%;&+I''D(D5 1(D 5#4Y&~(~"|b &b~(HLbG&bG^~)b,&!bA& b|H~)!0#5-'.Lb)b=') &~"^,~),;'~)b``)' &~)d`|,~)L```)' &~)`z,~)ibj&^& ;&.~"|KJ,,+3^78z77^`zd='H `+)b+~*b`+' &~*f`hbff ')'G' h'~**ffhh~*f'' &~*)'`dd``~)L' |KK'~*=;'(~*fbdl `+ld)b+H'jbh`J~)J h+ d,-"^dz` + d~*z{\^z^dzV'(/J' f+J~*'Tjb~)ffG'' 'fdG'd '9zn% *'3J.~"f9+M~"|b '+3/5!^^\^&~+78p7$~+`^78p7& ^\b &5 1t9p8z77zdbddbbd '~+\zz{\dz9.F!*807!38!6:$Ab('~-b%|8787b)'~-b,&b0#5-&~--8|5V|87&^' 78|7&51~^\^zj1\djk\d'$d\d78\77%51~$/~"v$~"^.0#5pN&(9k\\'oooo &\~-;~.v-& --8|5V58 7b,&#b0#5-& --85V9k\\&~.v&$787%|87&&\787%|87|8\77\& 886b8|7$ 51t.~"v8|7\\~-/.~"v|878798|7879|<./W%b,'.~"^bb|87870#5-&~.-85V8|7|87b,'-~/Tbb0#5-&~.-85V&`\^\X^ZW&~/8|787|87#~/`&& `\^^&.~"|^X'Z&`~/<&^\` +3^`^\&W787<'&^fz^d f+ dz^X'Z&~0eZ[^_X8^77V'(<'87&~/^\886b~/l|E.0#5-& --8|5V587b,&#b0#5-& --85V|8p7~1.s886bp8 7 4  &.~"|4b+M~1#'U~"l#'V~"l 4$~"l &!* ' 9}D'}E&~ ~ 1}D'|TT:-B-T9T:'  B&_ \:&:T9d+'3eDK88448'%! 44*'3J+'3eF'$~"l+8d8Ķ88ċ8Ʒ8dž448'~2*@8ׄ'141~!F'$3J~"l448 &~3JM'~2 F'd8Ħ0% 8Ħ9#~2 887$~2887#~3J|887V'8Ľ1~8846b88Ād8 d388doo8z+388ċ8Ʒ8~288*448'~2 +448'~2 @&951~9A'=8b8`b8'` `b b~3b`8ooooo98Ħ0%9"8Ħ0% 8Ħ9"9@~3^@+'3eDK88448'~2 +8z8Ķ88ċ8Ʒ8dž448'~2 *448'~2 ^\^&C C\88Ʀ&8~4q888Ʀ '8~4448'~2 C&~4~4T~3J?94~4?6E'28 18% 2 8 y490001!88$!0010!!x!!k9m!V327670000000009k!!"!!M!9j888u p d 8 !E!8! ! 8678]*|8S88,@07238Z&*@ ,7p878%|8 68z88"88808827& }8' *-89867068& J6888882JJJ&8329770_F$VFj&11980'070'70'07011n888*0S8 88 88 8'87@S7|S 8 80 880 88 8Z&%8'88*S7*S  8*S8'J :& Z' l 988]*& 888&886h8' 987@7|~688&88888' 8 88 8Z&889z88iZ& l88898888&8Z&988888Z&9CS988Z.9'd & 9Z888$|889{X ! **** + #R!D!! !! '! / '"i~! !"!!$C'ŁQ&!?7i     "   / )  9 :9J& &9ؽ9' 9G$ O9_!$,I'MO'OP'QK'SL'U;'W,'Y.'[/']O_    ";   "R  / )  /9 φ Ɇ Æ     -7.9  7 -o.9  o 9&; 9   : :&  ' "z  |    ' "z  |  ";  "R  "  "     z 99,EP O W } X #0203!"' !DK0LX!!cDK0LO!"' !! SOURCE FILE NOT ASCIIRECORD FORMAT ERRORSTART ADDRESS OUT OF RANGECHECKSUM ERROR "("(?]&H6", ?2;') 'M!"*"(?&0 ':;' &)"( "( & ' ' & ~&c + "0 ? ?'!~&c ?&| ?&|  ' "4ƀ~&:~&b&%&% "# ?/$ ?/# '~% & ?$ ?/% ?/#"^Ƃ~&: ?--?$&6-?-5!!?&| ?'~&b| !!?&5"2" "" " !!?&64 !5!{$z4&2'$('~&c2? $~% ?'~$5&%&%: "#?.6HYI?%& '% !!?&!2?($ ~&b &% ~&L!~&>?2 ' !!?&?39~&b&&l ?'~%? $~% '& 'rS&%0'ҁ1'9&_6 ''&g%O*%%G&'&g%;)%*%) "29'1'&g%*$%%""z&&- 9 '~&b 9"JƁ~&: &) && ~%*"yƃ '&g%Ԗ*C%&2 2  29 '9 7/+ݽ&%+&,,Z&ɗ121/]9?#? 'J'J' J'!?!? ? ??_? ]'+&oo&&l&l&%&Z&&96hiJ&29A% 62% 0%62%9676&Ӷ&&?%2329( 02020!!!!!? !&,!&'!0, ? ƀ?#?3.!Ц ' ;' ' ަ ' 'L&|! "~!!?"j"n"!H%|"i&|"h|"k&#|"j ?276"h"d"e?/$"d23?3"h"iZ&z"&"ܶ"j"kz"/"k"j "j"k"ܶ"d"ez"/"e"d "d"e!"~!?"!'&|"o?(z"&!Ռ'! "j!"!!#"j""n!"!!#"n""d!"!! #"d"!"~!?!!"!!?}!&"x? ?"r?59!'"?5z! !! """ DRIVE X : XXXXXXXX XXXX/$XXX SECTORS XXX/$XX FILES XXXX/$XXX LARGEST CONTIGUOUS BLOCK]&~#il&l#|#~#j#y#}#~#to%#tl #t670 'Z&32#tl&ll&lj ,#t m&jj#tl&lj&#~O9'd ]'/l&l## #0m&jj# Z 6dfJ&290 0200#$##?' '~"~"%B##?'+~"%M##?'*%C"%%N"%%C'}%N'%N&%O%P%D?/%# '{;'# ## 'd 'H&|%> L&|%= ݁N&|%? ԁF'~""'$~"%a#"%@# '.&"'%%a #c"%A#~ $#%t##?%}##?$%#?'~"?&'~"}%>'%? %d? ?'%}%=' L$(P$)$ ?'~"?&S%C&%D$ $8}%?'$@#$$}%?'$8?$<#%[##%#?': &/}%Z'}%='}%]' %A%]##?S%C'%N'~"~" '~"L%C&:%[%\%D?/$-? %%[%[}%N&~!qL%N& %O%P?/$~!$ }%]&3%q#%X#%X#%%d$$%$&#g&1#%]$8$$#$&%Z#g&|%]%]%A-%]~!? #?   ? ?     %Q%^%F_## '0-9.\# %F%F %^]'&%)}%`& 9O9'e#fL'S' 9m&%^%b_ '\L#f'. . %^]'цL#f'& &)%%`%a%b#fL&' 9$&$$$%?-_%@?/$ $$J?($&$$ ' #%?$$?/$?% ? $11~!$ ?9$ ###9#?''_? #?''_? 9%$$%$&$ 7?3Z&9$8$DK0 SA$%<CNPB PAGE XXX XXXXXXXX.XX:X %ENTER HEADING:  ]&~&l&l&&&&&&&o%&l &670 'Z&32&l&ll&lj ,& m&jj&l&lj&&O9'd ]'G&&oo &HY%5HY%1%+HY%'&l&l?%_%z&&O9 ]'+'oo''l&l'!%'<Z&'9A% 62% 0%62%96hiJ&29 x 0203!p!x!r!p?'  ? ?X%|!o !p ' &~ !p;&!p '!p 'vM'V'*P',('4G'*U' Ɛ !m!m!n!n 0 ƀ  _\)' &~ !r Z'!p?!r !p!p~ I!m&& Š&'}!o'A!n&<ŀ''4}!o'5!x?%? $Z'ZZ&!x Z& Z& Z& ? ? &ŀ'6n'߶!l6!k644446n!20LO!"X 0200#"##?#''~"h~"n*'& "&SA"""" ?"###?]''~"r" '|#""&### 'P;'# ## '9 '#m&~ !' Z,~ !7##3## #o#&~"h'!#&~"r#'" '" & "#' & z#&"' & z#&"#"### #?"### #?? $?""#5""#'?]'#' ? ?}#&~"v?]':' ? ?##"###'?&##"###'?&|##'8# '# "#"##?# '# "##?""#'m& "" C" "#"##6"#"##?]& #' ~!X' ? ?? ?  # " 0 #6#D@WS N X   !׽! _Y&" !!#s! _Y'N'#! s&~ }' ~!>L&O'9#½!&b$ ' ,  && ' '"%m&l~!~!~ ' 'j~! & 9 9& #׽!~   0%|TTTT0%{L#$&$ J& #˽! _@ 'J& _0' **|##& J&! O ~ GA X'Z  L &9  ' 9DO YOU WANT THE RULES? TYPE "Y" FOR YES, "N" FOR NO.THE RULES ARE AS FOLLOWS: 1) YOU MAY TAKE ANY NUMBER OF X'S FROM A COLUMN 2) YOU MUST TAKE AT LEAST ONE X EACH TURN 3) YOU CAN ONLY TAKE X'S FROM ONE COLUMN AT A TIME 4) TAKE X'S BY TYPING IN THE COLUMN LETTER THEN THE NUMBER OF X'S YOU WISH TO REMOVE THE OBJECT OF THE GAME IS TO LEAVE ME WITH THE LAST X THE BOARD LOOKS LIKE THIS: DO YOU WANT ME TO GO FIRST? "Y"=YES, "N"=NO. I SAID "Y" OR "N", PIMPLE BRAIN!MY MOVE YOUR MOVE YOU WIN; YOU MUST BE LUCKY!$$#$T$$$$%%F%iYOU CAN'T DO THAT, TURKEY! HOW DO YOU EXPECT TO WIN IF YOU CANT EVEN TYPE? YOU KNOW YOUR PRETTY BRIGHT FOR A DIM BULB! YOU LOSE, TOAD! KEEP TRYING; MAYBE YOU'LL GET LUCKY! BOY! I SURE AM GLAD I'M NOT BUYING THE PAPER! WHAT YOU NEED IS A POWER FAILURE! I'VE PLAYED DUMMIES BEFORE, BUT YOU TAKE THE CAKE! MAYBE YOUR BETTER AT TIC TAC TOE! YOU HAVE NOW LOST GAMES xxy (0200 --- PAGE00000 # TOTAL ERRORS 00000****ERROR 00000**** UNDEFINED SYMBOLS bNARG bVf~VgAO&& LLL&&%&Vgߺ߸&ߵA;߲߰Vf9ַ'?1&!?&?'~)K'aF ST0AO&&ooSQ&&.*C!//&۽R_opq'~B5~BVF ?'/!ؽSTDK!!?&?&~2~)K!?&?&~(? %G!?' &J\9&&?( !& !!?&-9!:!?&9:&|:_? ? $ -&9Z' ) ? !??!??!???)%= 2& ? %Ƚ))9G%-&9/9L95%-&9Z'<9)|99l/2'?2! ?3? 9))92&(- d'!' 9 9"І Z& !"н)9-'9z9'9F39fffg#R ##!H$ !#)H!F9R R&9ށSUŀ'ւ"׽R"U'"ܽR+U'5'e"߽Rop"Re+ 6p"߽Rs"pƁ+ 'op"߽Rs"U'oƂ+l'~+g"P}NU@'/F5P2 '5' &2 ' 'NFP FP D5'@ 'mR&XP PQ+" &+"" P5'FN42 '5&FPU '+,''7֍R5 "F#I2 '5&F P '!"н)f9"MLJS*'<' J1K, -'L" #@'oNSLzO&}N' zN ~-1'SS9.&-' J"K9'L9@'o' Lo o&9~.0&R~,&.M'"0uSJ SK 'SL @'\SL9~.Mŀ'Lq'5' / yJ&'-? &///-ޤOr/ v',ҍ'0uSM'S9SM'ߡ9&/'//-tNޤM'tt/zv&9&/&/Kr','2'=&֦& &֧& &֨& ֦&@ ֧&ƀ ֨'/ OTТN'l#Q#C0KN' ".ޫ߫|zNN"ޫN߫z| +/~-|0u "얜#O0 zN& #ۖO0 9F 76FG<;%2' 6*R239|Sߗ$STSRߙ96&ޗS'! 2ۛכޙRߙޗߗz&SS9ۛכ$ RCޙR !$ )9|Oօ$ $ $S$ߗ$ߙ9NP'&'& M@'*'40uM@'|$o$P$JJJ9ޙPߙޗߗz9'&$ &D)9|% ߤ9"Nޤ߭߫ & "0 ƀףOޤ SQ߫|ޤSTע90u|9'x't'a&U0KޤO֦#L֧''L֨''LM' O &ޭ ߭ޤ& Vޤޭߤ96'&5ޫ߭Oz|&z|ޭ2HYHYL&߭9'%ޫޭ'XXL&߭߫|9/'/% &&D)91&4.&1'.`9$ $ H_>o:p6C2H !$ ) #90u6$ q$ o$ &$ &D)9~21&:.&7S0$ $ H_ OO#Ħ#&CH !$ )|$ 92$ #F$ STOB$&' &F$ST& &$ &D)3$ $ JRnooooo& N[FN6F2NSQ&%&P& '4N+FN76F23o|QN& ~2޸L&~2 ŀ'*F HSTLQ6H2 L'$F `HSTL6H2 $'%F8HSTLPQH0PPLMA'~124$ L% 9 FHHF9FFFHRHF9R#7R&$ &D)$ JR3RRJCSQJC9VfOl#Jm4x4'~(&|#J0-9.4  <'7:+L:4R:?(&~;3J3KNL.'DA-Z/<0-9/6$'@'%'&'''[*'aؽR~; H'6R2011_77G7F7nFH9XI%9)9IFG9   ߍIFGHH97HH39Rf0-9/ A- F.  9 9Rf0-7. 9Rf0-9. 9Rf0-ف1.Մ 9PRfA-Z/0-9/ .'_'$&V'V&ԆR όV' V' 96Q &PA'B'X& ޽R'K~>Id'-T &'PN&!QA&RR&SG&޲ '\'U~>I޸F'3P&Q&R&S& T&U'gO GFFGF +'2HO4+'666666֋7֊7766666U6 O&HF29Oۻ"& ѱ#ݽR~BQ׻9' `&ӽR 'R+'Ė&F SQ' PT'0J&HPlP޺RT HRRP F @&l TF29&A 9OJK޸P'MJ& `&| *? @ PQA'P ۖJ&HK'M' R !"н)m+')|JO4?QL %'')zJO4?QL *M' R !"н)m9 K&()'J!'5)m|KO4?ܽQL"RLMM'PFRST RzM& !"н)m9M& LM"RP76FRST 23R RzM& !"н)m94xPS&"N&"S;S&"P ŀ'3 ; `&U" .'M 'D 'R" 'S"Ц "ӽRPF"STP O K SQTNLM"RzN&O'TOTNT&';TRRRSQRzK& *N'zM&R !"н)m4x zMML' R !"н)m9H +'KֻйAQLMM& "'9+&LMDVLMXIFGXIXIGF۹A'lN޸PNRJP42"#&92"&22"&+2"&$2"&2#P4KF271zF&JHPQ"PRS'R J&L&M'~AL9 FGF' "F 9'L}mRf & _opq 77c$ Roh*50jk'!R'%!')m>~)OK>|!??~(<-& )%9Z')9}VURfN& RfO&|U VmPDQ$Z&Z+'Z'!~C"DSDC)%DSDC)%DSDC)$?],U&nC`' Dd'C&'noU&Rf7c$ ,&mV~B`*5~2ٽR ަP&$& Q&& R&  9S'J& 91&U'|1~C)' .'R '|) .+)&薄&ށ&|.&ޖ'&چ!RO! ͆P&ߵ9U-'~CVmDQ$=&ENDBEQUDFCBFFCCEFDBGwNAMHOPTB}ORGJhPAGILRMBHiSPCISETE/BSZHTTLHIFCP.IDNTIVXDEFIgXREFICOMMJASCTKfBSCTKkCSCTKqDSCTKwPSCTK}PAGEILMACRL!ENDMOIFGTOIFGEOIFLTPIFLEP IFEQPIFNEP IFNCP3ENDCPFAILQZ? !O?:3H4!/L2[[[0[[?SA[Wq]'&.\& /!&H [0[[? ~)O["' /["& ?(/[[ [?[ &~Z;'~V[= ' &[ -&= [Z' [& ~V[[?/#IIo=&l~Wn[?]''9[0[[?9=' 2!!~W!'>2[=' LP>?~X>#&[CN' LP' ~V>[ ? [[[!0[[?AL[Wq]+'*[0[[~VDK>[ & ,' ~V[!!>!DK&[[![ [? ! !"!!!?&?&~W~V|@='|1~W[='"![![ [?LX.'RO! _[![!0!! ?[?]' ~Vȶ!0!.! '|' LX.'RO![ & [ ,&DK!!!.'!$ ! !!!~W[='|- $=&Y%)_ [?/"?/%[3~W~V[=&Y%)_2[?/"x?/%[4~W~V[_ & ,'\ [[[9=&z.'&LX.'!RO!|)~WZ? #&~/E/S/a/z//00B1=0&//.:=$.:.:/=$/ &=0&/"/".:=$.:.:/$=$/&&=0&/(/(.:=$p/,&=/*&&=$/0*=/.**=&**=*$$~="*4"$~=q"/2/2.:=+$j*v=.A*H=1.$n="*4"$~=@"/4&4=#/6&=0&/8/8/:=#/>&=/<&$/@$x~000112dd 1=$x$$="*$$=$$&="*>$$x=$$&9$$="*>"$x=@"$&=/B0b0[=#0f&=0&0h0h0j=+$j*r=.A*>=.A*H=10ln=+$j*t=.A*>=.A*H=10n$x="*>$$x=$~$&=$~0t$p=0v$p&=$~&$=$0x$=0z$&=$&$=$p0~&=0|&&=$0*=0**=&**=*$$~="*4"$~=@"0&=0p0r15:-n~2#2122ddd =#111$p$x="*$$x=#$&="*4"#=q"112=1224=+$j*|=.A*H=1-n="*4"#=@"2&=$#&=$#&9$$=#$&=$#&=$#&9$$=#$&=+$j*=.#=.#=.#=1:.$nRj2=4~4,  `"(# T$~4[#tL475L4<$="4"$=@"4B&=4D$$=$4F$$$="4$$=$$&="4"$="4$$="42&$=T$&"=$4H4=4>4@4^4L$=#$&="4"$$=$$&=$4R4T4T="4"$$=$$&="4"$$=$$&4V$~5x7585758"6 L764L="4"$=@"$&=0&5R5T5R=$5V&=0&5X5X5Z=5\$$=$5^%%$="4$$=#$&="42"#=q"5b5d5b=$5f5h5h5j%="4"%=@"$&=0&5p5r5p=%$&~6k6y76676L77"7;7T=0&6B5p6B= 6D%%=%6F%%%="4$%=#$&=0&6J6L6J=$5f6N6N%% ="4$% =#$&="42"#=q"6R6T6R6V% ="4"% =@"$&=0&6\6^6\=% $&=0&6`6\6`=% %&=0&6b6\6b=6d% %=%6f%%%~778-L="4$%=#$&=0&7t7v7t=%6h7m=6X6Z6=%6P6ɽ=%6H6=5l5n6=$5`5ͽ=4X5P5I=4N4P4=#7x&5fn=#$&=#7z&9~9,9F9Rd %=(%% =@%999=P% %&9=@%9&=&9 %*=9 %*&=@%&%,=%,9&=&9%.=%*9&=9&&=%.9*=9**=&**=*%,*=9%..=*.% 9~:,%2   `"(%0~:[# T#tX O - W ::=%R:F&=%T:H&=%V:J&=%X:L&~:    ~::R%Z~:@;d;J;;;;;=%\:X&=%Z:&=&:&=&:%^%^%`=%`:%b%`%d=%\:%\=":<"%d=@":&=0&:::Ľ=":"%\=@"%X&:n=":<"%d=@":&=0&:::ν=":"%\=@"%V&:n=":"%\=@"%R&:n=":"%\=@"%T&=%b:;=::;=+#:N:%f=":$%f=.@$~<,<8@=::;=1=:T:V:=+#:P=19=P%&=P~PSTOP~=~=C~=~Av~=@~B ~F-~F~JS~=~J~F~=@~P0%|@'+-&'%|' %| %| 11n%|m& %|&%| 0%|_%}%|0%|D$ %|%h%n%o%|D$ %n. -%o$ %h%i0%n9%~0%|_/&L / %%@'%%|'%%|'%%'`%|&%%%%%HI%%%u%sƀ%r=%',.%%z%x %w%@C %?M'J n%'9%p]*|%p@ooo_'dffffJ&\ %pXFV9?????j?z?Z>O?&?3?9CS9%%9C_H$  %?%%~%|11n%% %% %%}%'@ ?0HYhi$j&62*?~?I6%7*?67%7*?670n?0m+ Lhi+&oo$  iidfj&~?M'%@6J.] ''C9@s@}@@@A A@W@c@k%sCAiM+ N%s%x %s%x %s%s 4BV BX%x%s%s $BR BT%s%x%s%'%s%t'@ %'%%u%v%s%t~?I%r_HYG%q%poo%q/ J&Z&}%p'?~?Ihiiii9% %s%x%u%z%&C %%+% %'BV%s%x%s %%' BV%s%x%s %s%x%u%z~@%s%u%v90%h%%%67%'F%%hD'"$ '%=%%%32%% 32%h%hz%' %~A%32%%+ *%h11nư~P0%0%@' %'%%%~B11%%0%n   _   0O666660O66666O66666660]'^'T Tm*)l&%l&!l& ffff J&hfll)'if132222 1J&011]' n s m S c__f ffj'$  ffVf  ĀoHh) Fm'l 4*"62&& ? p l Ā?l _Oo   7 MI HXj-1'@.   f fff9 ff f f 9. ] Y ֍ަ * y*q2&n    ((f gfffJ&ll(iV * * m *! )fiiii&؆, ( o q    %  6_J&'3hY&j)j lVf2 J&9hiiiJ&9o H J&ccccl& l& l&l) Z&9  ̆ ffffJ&ll ۆ )'ֆdf f f J&d fff 6Xi i ihiii    $       l2J&hiiiJ& ĀoHh (*  ) %%|%%%%%%%%%~&\P90%11P&]%&A%,~FD$ d'e' f&P&]%&A~F&A %&X&A&A%%%%&B&B&DN%N&V&A&H%n0%11%%%%@'%%'A%&Y&Z&Y%%&Y&Z&Y%&~G,G1%%%'%~GG1%n&BL%%%%J&%DGGG&_%&_%&A'~H GGIuIjGGGGIIJ %XGiOn&D&B'&B~G1%'J H2~IH~Ij%%O%%%O%&H2 %&G J%%~IH %%%'%%&~HH'%%/ z%H~H~HN%%H%-&|%~H;0-59.1%%HYHY%%HY&_&`%_M,S&`%&_%~H;%,''~H;%'%%CS%%%%%9%% & '%9N%%&~H&X'9~P ~P%_M,S%%N- &N%Ja%L&& JaIgIuJaJaJaJaJaIIJ %XIOn I_IgIuIIIIIIIJ %XI9On&D &BJa&B&B~G1%% Z&%~Ij~Ij%&_%%N%_M,S%%%%&B&B9%%~IL~I%&B%%&B&BZ&~Ij&[%%&[&V&VN&V&@~P&B&C&V~Ijz&[&[' &V&B &V &V%&[~Ij%&_%ƀN&A&9%~G1%%' '%%%'J &\N%9~P 0%11%%%P%n%%.'',&%'DDDD_%%%%%%%%%%%'L%LL .&L% LLz% %%%E&OL% %HH%H }%'@%%oooo'5dfffffffJ&|%&%/%Lz%% 'P%K|%& CLg%ooooLZLZLZLZL|LZL|Z&&z%hiiiZ&9&%%'%%%%%%9bJHqD9$ l&l&l9% '+'-&|% %& %%0-9.09 9hiii9t%v%v%v%9%%%%9%%%%9%%%DDDD%%%%'|%%_HYG%%&%%%%J%% N%%%%%. M'dffffJ&|% z% -. %#%K|%% %&_%L%%%%]&%\/%M/% z%J&%%'%oLQJ&Z& }%'-%Z%& }%/% 0M'|%,}%'%0M/- %'"E+%*@-_\ ,/:%9%%~L%%J%&.J%%9&V&A&F%h&a67&h]*|&hS&f&g,@0N23&_Z&*@ ,Np&hO&e%|&e 6&gz&g&f"&c&a&e0&a&c2O& }&h' *-&a9N&&f&a J&&cN&c' &a&_m*&a-9CS9&a&aZ.9 0- z&f& 9'd & 9Z&e&f&f$|&e&e9~T~T~T~T ~T ~T~T~T~P*** EXECUTION TIME ERROR # %?? ƀ%?%? ?'9?59? 9999&o&?$& P&sPa?P?$&&s?$&?9]'/l&lPPܦ #0m&jjP܍ Z&P96dfJ&29}&&j|&SP SDP StP(:)D<>:; :?':>:;!"::%@>@ADK <)T&0:Q&Q&H~P&OQ&sE~P~S?&?&22::;6:69&9::& ?(?>SA ?()V)T?'~S> 0 ::&>~Q0:QRx~R&Q'D~P9?&?&DK ~Q~S0:QRx> ~R0:Q&Q'F~P<'%'>_::'&~Q> ۽Sƀ%?%?'@>@A?'x &}<'u fS% %>%%&  ?$>?'A~SS&G~P?'*~S)D%')T&D~P<>9>9_? ?~P:~Pa~P^~Pd~Pe~Pf~P~Pg ̀ P i00  G$Ͻi&xB^i&xP' ҆  |&Ķ&Ti| ~*} ' Ǎ} ' 9XXXX0DDDD09O&L&9&^i.i| ~*Ľis1'~G&xBҶ" ۶' z  ^iɽi Z^i҆  "'ҽi&xP \' "9 9 9"" '1i| i| ~*' z  ɽi Vi ~*6_c%/20D_9Z&99& i11~|9 &|9 &|9  ACE TWOTHREE FOUR FIVE SIXSEVENEIGHT NINE TEN JACKQUEEN KINGSPADES HEARTS CLUBS DIAMONDS ? BUST DEALER DRAWS A  YOU WIN  DEALER WINS  B L A C K J A C K Y O U W I N ! ! B L A C K J A C K I W I N ! ! ! PUSH MY DOWN CARD WAS G$9iv$9&sDDDGGvvvv9 / 09+ ' 9' 8' 9 9 THIS IS MOTOROLA BLACKJACK...............TRY YOUR LUCK.....! DEALER MUST HIT ON 16 OR LESS AND STAND ON 17. ACES COUNT 1 OR 11 , FACE CARDS COUNT TEN. BLACKJACK WITH ACE AND A FACE CARD OR TEN TIES COUNT AS A PUSH NO WINNER. DURING PLAY TYPE 1 FOR A HIT,0 TO STAND PAT SHUFFLE NOW IN PROGRESS.............TYPE ANY KEY TO HALT AND DEAL &9 9&9 PLAYER DEALER     Ѐ0.*KB   |p ~0~~~~~~JB U O& hS'|Uq@# # # # OV}U'V# # OVTT8Z'~*!"| qԆ@&87/}U''9 *W0X<Y=Faog&9"9GH v!N"GSmZ& 0 9 192E G I~1~71E.(~T12 % |22&|1 2XXXX2~EGH IJ -~122199;"~ L}T&~ Q}g' ~ zN'HN}&'JN# f~p#~ }X*~ DX#N}<*OW<= Ƚ)pcHսnM1''11|M2}M&'2~W ӽ~<#}f&|W<12 }b'~ PN&3W LbW WN'''  a h l e rZ }O X1E@ s5 <1E}W' r   1F2E~0OQ3VJP& IO&E Vф3|OzQ'VDD 3z0&|P9~5 59&OZ&qGHV]' J&Z&V'J&} ' 9kR'6' 0&SbR8' TTT0SQR@' 0SAR*|gKL}M&KILJ&X>oo12Z&9ZV'VVJ&&SV'YYJ&z0&͖S&Z VV$#$9M5L'J&K#V'TTJ&'M})' }p&'59V' YYJ& }e'~ }F&~Z|p-zF*% c"4,}p&" c-}+& *}a& &,H-&~0}*'0IJ6}.'~ }/'~ KL}p'|)M'+}p'~&~ K]L]}p'9~Z}p' KLz0&~-KILJ# z0'~u}*&~Z}p'~--0GH}*'`KL6}.'~}/'~̖KGLH|%0z0&½N!G&"H&#$LI" \J"N~./"B">GH 0*|[zTz&|pj `s~ $`L& ~ Y`}%&~Z~W 1M&z&zT|[K`s & |\A~F|] >~Z./M*z. #|.]*z/9#|/9 ~O+.'9"/#09= ( # (1257: 59(95X1259 1122 219}c'~ BCDE G&|D&|EH&|B&|Ck}B'[ }C'D ~}D'O }E'O~ II@DD8H~0Oz0&~}d'~ }W' ' ܽX1E  K@X"&AY# ~# b@>"&JA?#D>?`&[TTs&0F%F$ Z&Fz0& F @1>/@1X~@A/# }'&xAy@Z&AA = 9'9"9|'9Sm& Z&~ Y½~;"!}h&%#|h"!G"H~W۽~ GH }&&9"0i&XUi1}W&Xi1Eq 9<~4 @ J y N'~~@k[\XXX}]' !"NO[\]9am'jZ&9Zq| TTV]Z]~a#  g&}f'W9ƽ~ν3am'!^33^Z&ug& ^33^ SPACE VOYAGE V3.2 S OR L?  UP BASE IN QDOCKED DNTUBES EMPTY DATE: KLINGONS: YEARS: QUADRANT: SECTOR:  COMMAND: SHIELDS DOWN!SHIELDS UPCOURSE: WARP FACTOR: BLOCKED AT SRAMMED KLINGON AT SGALAXY LIMITTORPEDO HIT OUT!  OF ENERGY S.DATE:  CNDTN: YELLOWREDGREEN QUDRNT:  SECTOR:  ENERGY:  KLINGONS:  SHLDS:  TORPEDO:   SCAN FOR QMUST LOWER SHIELDSENERGY AVAILABLE: ENERGY = ENERGY TOO LOWMISFIRE!ALL LOCAL KLINGONS DESTROYED!ENEMY DAMAGED ? STARBASEKLINGON PASSWORD.. KLINGONS LEFT =  UNITS HIT ENTERPRISE KLINGONS ATTACK: SHIELDS HOLDINGENTERPRISE DISINTEGRATESSEQUENCE ABORT: PASSWORDTOO EARLY!MALFUNCTION! SPACE STORM: SHIELDS DAMAGED! SHIP IS FRIED FOR 3RD ATTEMPT!ENERGY = 0TIME UP! CONGRATULATIONS! ALL KLINGONS DESTROYEDMISSION A FAILURETHE FEDERATION IS SAVED!SUPERNOVA! SUPERNOVA IN QBADLY DAMAGED DEV STATENGSRSLRSPHSTRPSHL ؀ x  1 ! 2 ! 3 ---!---!--- 4 ! 5 ! 6 ---!---!--- 7 ! 8 ! 9 `"&*;?CTX\ I TAKE: SKILL = e~HELLO! I AM A MOTOROLA M6800 MICROCOMPUTER. I AM PROGRAMMED TO PLAY TIC-TAC-TOE. YOU ARE "O" AND YOU PLAY FIRST. YOU PLAY BY TYPING A NUMBER FROM 1 TO 9 AS FOLLOWS:INVALID REPLY! PLEASE TYPE AGAIN:THAT LOCATION IS ALREADY TAKEN; PLEASE TRY ANOTHER.YOUR PLAY: YOU WIN!I WIN!TIE GAME.WOULD YOU LIKE TO PLAY AGAIN? TYPE NEW SKILL: 0(LOW) TO 9(HIGH) OR P(PERFECT). THANK YOU. I HOPE YOU HAVE ENJOYED THE GAME. YOU MAY RESTART BY TYPING ANY CHARACTER. PLEASE TYPE "Y" OR "N"."T"\T*\*&;&X;CXC011zt&tnn042M+CXוޔ`'X'  'O'  '@&|tx Ʌ@&|t y 011}&nޔnwxu&+v.. -1}x*, }x+%#"%#!~#!bc!ei"eh|{#SAYAWA#SBXB#YEXE{v. -<}x*7 v'&}x+&#"cA%iA$gA#!cB%hB#!iE"hEu&_v - .}x+R &L}x*G#bUgfhIceBSgcWh#dUUfaicgdgfi#bdQbgQcdQafhYbwu. ' .0.'@. .# . #ҽ# b1`9'`L $ $b `Z'` tu{|!v , 0$'|w&|yG$S&"u&HF$0-9/ v! Á1-(9.$Hޔ` &OyzLt~$ ͽ$ Z" Z& Z? ||tzt}|&Nb`Z'`\ X0ׅ}$ $}{&-u|u'~Ab` '` $ ' 0' (O`#!bc!ei"ehK' ` '$Y&~ N& x$~ " # 450005REMBLACKJACKGAMEWITHCHANCEFORPRIZE 0010DIMC(52),V$(10) 0020PRINTCHR$(26) 0050PRINT"WELCOMETOGREG'SHONESTBLACKJACKGAME!!!" 0060PRINT"YOUHAVE$1000ANDMAYPLAY20HANDSTOTRYFORACHANCE" 0070PRINT"INOURDRAWING.THEBETLIMITIS$500." 0071PRINT"NORMALLASVEGASRULESAPPLY." 0072PRINT"" 0080PRINT"PLEASEENTERYOURNAME.GOODLUCK!" 0090INPUTN$ 0091PRINT"DOYOUWANTINSTRUCTIONS,";N$; 0092INPUTI$ 0093PRINTCHR$(26) 0094I$=MID$(I$,1,1) 0095IFI$="Y"THEN3310 0100C=1000 0101H1=0 0110FORK=0TO3 0120FORJ=1TO10 0130C(J+10*K)=J 0140NEXTJ 0150NEXTK 0160FORJ=41TO52 0170C(J)=10 0180NEXTJ 0190V$(1)="A" 0200V$(2)="2" 0210V$(3)="3" 0220V$(4)="4" 0230V$(5)="5" 0240V$(6)="6" 0250V$(7)="7" 0260V$(8)="8" 0270V$(9)="9" 0280V$(10)="10" 0290L=40 0300IFL<40THEN420 0305PRINT"SHUFFLEINPROGRESS." 0310FORJ=1TO52 0320Z=C(J) 0330K=INT(52*RND(0)+1) 0360C(J)=C(K) 0370C(K)=Z 0380NEXTJ 0390L=1 0400PRINT"NEWDECK" 0410PRINT"" 0415PRINT"YOURCARDSDEALERCARDS" 0420T=0 0430T1=0 0440S=0 0450S1=0 0455H1=H1+1 0460IFC<=0THEN3620 0465INPUT"WHATISYOURBET",B 0480IFB>500THEN500 0485IFB<=0THEN3610 0490IFB>CTHEN530 0495GOTO550 0500PRINT"THEBETLIMITIS$500DUMMY!" 0510B=500 0515GOTO550 0530PRINT"SORRY,YOUDON'THAVETHATMUCH." 0540GOTO460 0550B1=B 0552B2=0 0555GOSUB2940 0560GOSUB3090 0570PRINT"";V$(C(L-1)) 0580GOSUB2940 0590GOSUB3090 0600H=C(L-1) 0610IFC(L-3)=1THEN2820 0620IFT=21THEN1880 0630IFT1=21THEN1960 0640INPUTD$ 0645D$=MID$(D$,1,1) 0650IFD$="G"THEN1360 0660IFD$="D"THEN1330 0670IFD$="H"THEN1410 0680IFD$="S"THEN710 0690PRINT"RETYPE" 0700GOTO640 0710IFC(L-2)<>C(L-4)THEN690 0720PRINT"FIRSTHAND" 0730B1=B 0740PRINTV$(C(L-2)); 0750X=C(L-2) 0760T1=X 0770GOSUB2940 0780IFX<>1THEN810 0790T1=T1+10 0800GOTO1020 0810INPUTE$ 0815E$=MID$(E$,1,1) 0820IFE$="G"THEN1020 0830IFE$="D"THEN990 0840IFE$="H"THEN870 0850PRINT"RETYPE" 0860GOTO810 0870GOSUB2940 0880IFT1>0THEN940 0890X1=0 0900C=C-B1 0910B1=0 0920PRINT"BUST" 0930GOTO1050 0940INPUTE$ 0945E$=MID$(E$,1,1) 0950IFE$="G"THEN1020 0960IFE$="H"THEN870 0970PRINT"RETYPE" 0980GOTO940 0990B1=2*B 1000GOSUB2940 1010IFT1=0THEN890 1020PRINT"" 1030PRINT"TOTAL=";T1 1040X1=T1 1050PRINT"SECONDHAND" 1060B2=B 1070PRIN$ TV$(X); 1080T1=X 1090GOSUB2940 1100IFX<>1THEN1130 1110T1=T1+10 1120GOTO1360 1130INPUTE$ 1135E$=MID$(E$,1,1) 1140IFE$="G"THEN1360 1150IFE$="D"THEN1340 1160IFE$="H"THEN1190 1170PRINT"RETYPE" 1180GOTO1130 1190GOSUB2940 1200IFT1>0THEN1280 1210X2=0 1220C=C-B2 1230B2=0 1240PRINT"BUST" 1250IFX1>0THEN1560 1260PRINT"";V$(H) 1270GOTO1660 1280INPUTE$ 1285E$=MID$(E$,1,1) 1290IFE$="G"THEN1360 1300IFE$="H"THEN1190 1310PRINT"RETYPE" 1320GOTO1280 1330B2=B 1340GOSUB2940 1350IFT1=0THEN1210 1360PRINT"" 1370PRINT"TOTAL=";T1 1380B=B1+B2 1390X2=T1 1400GOTO1560 1410GOSUB2940 1420IFT1>0THEN1460 1430PRINT"BUST" 1440PRINT"";V$(H) 1450GOTO1750 1460INPUTD$ 1465D$=MID$(D$,1,1) 1470IFD$="G"THEN1540 1480IFD$="H"THEN1410 1490PRINT"RETYPE" 1500GOTO1460 1510B=2*B 1520GOSUB2940 1530IFT1=0THEN1430 1540PRINT"" 1550PRINT"TOTAL=";T1 1560PRINT"";V$(H) 1570GOTO1600 1580GOSUB3090 1590PRINT"";V$(C(L-1)) 1600IFT<17THEN1580 1610IFT>21THEN1640 1620PRINT"TOTAL=";T 1630GOTO1720 1640PRINT"BUST" 1650C=C+B 1660PRINT"YOUNOWHAVE$";C 1670IFH1>20THEN3600 1680GOTO300 1720IFD$="S"THEN1770 1730IFT1>TTHEN1650 1740IFT1=TTHEN1660 1750B=-B 1760GOTO1650 1770IFT>X1THEN1860 1780IFT=X1THEN1800 1790C=C+B1 1800IFT>X2THEN1840 1810IFT=X2THEN1660 1820C=C+B2 1830GOTO1660 1840C=C-B2 1850GOTO1660 1860C=C-B1 1870GOTO1800 1880IFT1=21THEN1930 1890C=C-B 1900PRINT"";V$(H) 1910PRINT"BLACKJACK!!!" 1920GOTO1660 1930PRINT"BLACKJACK!!!" 1940PRINT"" 1950GOTO1900 1960PRINT"BLACKJACK!!!" 1970PRINT"";V$(H) 1980PRINT"" 1990C=C+1.5*B 2000GOTO1660 2820PRINT"INSURANCE?" 2830INPUTI$ 2835I$=MID$(I$,1,1) 2840IFI$="Y"THEN2870 2850PRINT 2860GOTO620 2870IFT=21THEN2900 2880C=C-B/2 2890GOTO2850 2900PRINT"10" 2910IFT1<>21THEN1910 2920C=C+B 2930GOTO1910 2940IFT1>10THEN2980 2950IFC(L)<>1THEN2980 2960T1=T1+10 2970S1=1 2980T1=T1+C(L) 2990PRINTV$(C(L)); 3000L=L+1 3010IFT1<=21THEN3080 3020IFS1=0THEN3060 3030T1=T1-10 3040S1=0 3050GOTO3080 3060T1=0 3070PRINT 3080RETURN 3090IFT>10THEN3130 3100IFC(L)<>1THEN3130 3110T=T+10 3120S=1 3130T=T+C(L) 3140L=L+1 3150IFT<=21THEN3190 3160IFS=0THEN3190 3170T=T-10 3180S=0 3190RETURN 3310PRINT"THISBLACKJACKPROGRAMENABLESTHEOPERATORTOPLAYHEAD-" 3320PRINT"TO-HEADWITHTHECOMPUTER,SIMULATINGTHEEXACTRULESAS" 3330PRINT"THOSEONTHELASVEGASSTRIP.THECARDAREDEALTFROMA" 3340PRINT"52-CARDDECKUNTILAHANDSTARTSWITHLESSTHAN12CARDS" 3350PRINT"REMAINING,INWHICHCASEITRESHUFFLES.THEDEALERMUSTHIT" 3360PRINT"THROUGHATOTALOF16ANDSTANDONALL"; 3365PRINT"TOTALSOF17ANDABOVE" 3370PRINT"" 3371PRINT"THEINSURANCEBETISOFFEREDATHALFTHE" 3375PRINT"PLAYERSBETWHEN"; 3380PRINT"THEDEALER'SUP-CARDISANACE." 3390PRINT"YOUMAY,DOUBLE-DOWNONANYTWOCARDS,ANDRECEIVEONEMORE" 3395PRINT"CARDWHILETHEORIGINALBETISDOUBLED." 3400PRINT"YOUMAYSPLITANYHANDBUTRESPLITTINGISNOTALLOWED." 3410PRINT"ALSO,ONLYONECARDISDEALTONEACHPAIROFACES." 3415PRINT"YOURCARDSAPPEARINTHEFARLEFTCOLUMN;THEDEALERON" 3420PRINT"THEFARRIGHT." 3421INPUT"TY% PETHECARRIAGERETURNFORTHELISTOFCOMMANDS",Z$ 3422PRINTCHR$(26) 3430PRINT"THECOMMANDSAREASFOLLOWS:" 3440PRINT"HIT(DRAWANOTHERCARD)" 3450PRINT"GOOD(STANDONCURRENTTOTAL)" 3460PRINT"DOUBLE(DOUBLEYOURBETANDDRAWONECARD)" 3470PRINT"SPLIT(FORMTWOHANDSFROMAPAIRWITHTHEORIGINAL" 3480PRINT"BETONEACHHAND." 3490PRINT"" 3491PRINT"COMMANDSMUSTBETYPEDINASTHEFIRSTLETTER!!!" 3495PRINT"GOODLUCK" 3500GOTO100 3600PRINT"YOUAREALLOWEDONLY20HANDS,",N$ 3610IFC>1500THEN3700 3620PRINT"I'MVERYSORRY,",N$ 3625PRINT"BUTYOUDIDNOTWINACHANCEATOURDRAWING." 3630IFC>100THEN3650 3640PRINT"MYADVICEWOULDBETOSTAYCLEAROFLASVEGAS!" 3645PRINT"YOUREALLYSTINK!!!" 3650PRINT"PLEASELETTHENEXTPERSONPLAY." 3655PRINT"IFYOUHAVEANYQUESTIONS,SEEGREG;HEKNOWSALL!!!" 3660INPUT"TYPECARRIAGERETURNTOCONTINUE",Z$ 3680GOTO20 3700PRINT"CONGRATULATIONS!!!YOUHAVEJUSTWONACHANCEINOUR"; 3701PRINT"DRAWING!!!" 3720FORJ=1TO20STEP2 3730PRINTTAB(J);N$;"ISAWINNER!!!!!!!!" 3732NEXTJ 3740GOTO20 3750END !!!" 3720FORJ=1TO20STEP2 3730PRINTTAB(J);N$;"ISAWINNER!!!!!!!!" 3732NEXTJ 3740GOTO20 3750END 0010REMROCKT1 0070PRINT"LUNARLANDINGSIMULATION" 0080PRINT"----------------------" 0085PRINT 0086PRINT"DOYOUWANTINSTRUCTIONS?", 0100INPUTA$ 0120IFA$<>"YES"THEN390 0160PRINT 0200PRINT"YOUARELANDINGONTHEMOONANDHAVETAKENOVERMANUAL" 0210PRINT"CONTROL500FEETABOVETHESURFACE.YOUHAVEADOWNWARD" 0220PRINT"VELOCITYOF50FT/SECWITH120UNITSOFFUEL." 0230PRINT 0240PRINT"YOUWILLRECEIVEAREPORTEACHSECOND.AFTERTHE'?'" 0250PRINT"ENTERTHENUMBEROFUNITSOFFUELYOUWISHTOBURNDURING" 0260PRINT"THENEXTSECOND.MAXIMUMIS30UNITSPERSECOND." 0270PRINT 0280PRINT"WHENYOUCONTACTTHELUNARSURFACE,YOURDESCENTENGINE" 0290PRINT"WILLAUTOMATICALLYCUTOFFANDYOUWILLBEGIVENA" 0300PRINT"REPORTOFYOURLANDINGSPEEDANDREMAININGFUEL." 0310PRINT 0390PRINT"BEGINNINGOFLANDINGPROCEDURE........." 0410PRINT"GOODLUCK!!!!!!" 0420PRINT 0430PRINT 0440PRINT"SECFEETSPEEDFUELPLOTOFDISTANCE" 0450PRINT 0455T=0 0460H=500 0465V=50 0470F=120 0490PRINTT;TAB(4);H;TAB(12);V;TAB(20);F;TAB(29);"I"; 0495PRINTTAB(30+H/12);"*"; 0496PRINTTAB(72);"T="; 0500INPUTB 0510IFB<0THEN650 0520IFB>30THEN900 0530IFB>FTHEN920 0540V1=V-B+5 0560F=F-B 0570H=H-(V+V1)/2 0580IFH<=0THEN670 0585IFH>500THEN950 0590T=T+1 0600V=V1 0610IFF>0THEN490 0615IFB=0THEN640 0620PRINT"***OUTOFFUEL***" 0640PRINTT;TAB(4);H;TAB(12);V;TAB(20);F;TAB(29);"I"; 0641PRINTTAB(30+H/12);"*" 0650B=0 0660GOTO540 0670PRINT"***CONTACT***" 0760PRINT"TOUCHDOWNAT";T;"SECONDS!!!!!!!!" 0770PRINT"LANDINGVELOCITY=";V1;"FT/SEC" 0780PRINTF;"UNITSOFFUELREMAINING" 0790IFABS(V1)>1THEN805 0800PRINT"CONGRATULATIONS!!APERFECTLANDING!!!!!" 0801GOTO850 0805IFABS(V1)<5THEN840 0810IFABS(V1)<10THEN842 0815IFABS(V1)<15THEN845 0816IFABS(V1)<20THEN970 0817IFABS(V1)<2& 5THEN980 0820PRINT"YOUREALLYBLEWTHATLANDING!!!" 0821PRINT"YOU'VEJUSTCREATEDANEWCRATER";100*SIN(V1/180); 0822PRINT"FEETDEEP!!!" 0825GOTO850 0840PRINT"NOTABADLANDING,BUTYOUNEEDSOMEPRACTICE!!!" 0841GOTO850 0842PRINT"WELL.....YOUSURVIVED.IHOPEYOURASCENTENGINEWILL" 0843PRINT"STILLWORKWHENYOUPREPARETOLEAVE." 0844GOTO850 0845PRINT"PRETTYSLOPPY.MISSIONCONTROLHOPESYOUCANSURVIVE" 0846PRINT"UNTILARESCUESHIPCANREACHYOU.TILLTHEN......" 0847GOTO850 0850PRINT 0851PRINT"TRYANOTHERMISSION"; 0855INPUTA$ 0870IFA$<>"NO"THEN390 0885PRINT"CONTROLOUT." 0886GOTO999 0900B=30 0910GOTO530 0920B=F 0930GOTO540 0950PRINT"YOUARENOWLEAVINGTHESOLARSYSTEM.STAYINCONTACT." 0960GOTO850 0970PRINT"YOUWERESUPPOSEDTOLAND,NOTCRASH!!!!" 0975GOTO850 0980PRINT"WOW!!!YOUMUSTHAVEDUGSOMECRATER!!!!" 0985GOTO850 0999END z0010REMTHISISAGAMEOFRUSSIANROULETTE 0012PRINTCHR$(26) 0013Q=1E6 0020PRINT"HITTHECARRIAGERETURNWHENYOU'REREADYTOTRYYOURLUCK." 0030A=INT(6*RND(0)) 0035REMWAITFORCARRIAGERETURN 0040INPUTA$ 0042PRINTCHR$(26) 0044REMTIMEDELAYONLY 0045Z(1)=SIN(X)^SIN(X)^SIN(X)^SIN(X) 0050IFA<>3THEN100 0060GOSUB1000 0070GOTO110 0100PRINTCHR$(26) 0101PRINTTAB(10),"*******CLICK*******" 0102FORN=1TO10 0103PRINT 0104NEXTN 0110PRINT"WANTTOTRYYOURLUCKAGAIN"; 0120INPUTX$ 0121PRINT 0130IFX$="Y"THEN10 0140IFX$="N"THEN200 0150PRINT"WHAT???" 0151PRINT 0160GOTO110 0200PRINTCHR$(26( 0201PRINTTAB(10),"YOUBLOODYCOWARD!!!" 0202FORN=1TO10 0203PRINT 0204NEXTN 0210END 1000REMCLEARSCREENANDSHOOT 1010PRINTCHR$(26) 1020PRINTCHR$(7) 1030PRINTTAB(10),"*******BANG,YOU'REDEAD*****0090PRINT 0100PRINT"WEAREGOINGTOWRITEASTORY.YOUWILLPROVIDEMEWITH" 0110PRINT"THEWORDSTHATIREQUEST,ANDIWILLWRITETHESTORY" 0120PRINT 0130INPUT"PLEASEENTERYOURNAME",A$ 0140PRINT 0150PRINT"ALRIGHT";A$;"LETSSTARTWITHANICEWARMCOLOR"; 0160INPUTB$ 0170INPUT"VERYGOOD;NOWENTERATYPEOFCONTAINER",C$ 0180PRINT"ANDSOMETHINGTOPUTINTHE";C$; 0190INPUTD$ 0200INPUT"NOWPLEASEENTERAPIECEOFFURNITURE",E$ 0205T=70 0210PRINT"HMMMA";E$;".NOWTHATSDIFFERENT!!!" 0215GOSUB6000 0220INPUT"NOWINEEDADARKSINISTERCOLOR",F$ 0230PRINT"NOW";A$;"PLEASEENTERAPIECEOFCLOTHING"; 0240INPUTG$ 0245INPUT"ENTERAPERSONALVERB(CHEW,LOOK).",O$ 0250INPUT"NOWENTERADISCRIPTIVESIZE(HUGE,LITTLE).",H$ 0255INPUT"ENTERANOTHERDISCRIPTIVESIZE",N$ 0260INPUT"NOWINEEDADISCRIPTIVEACTIONWORD(JUMP)",I$ 0270INPUT"NOWENTERPLURALBODYPARTS",J$ 0280PRINT"YOUKNOW";A$;".YOUWOULDBESUPPRISEDHOWMANY"; 0290PRINT"PEOPLESAY";J$ 0300PRINT"WELL";A$;"DON'TWORRYABOUTITWEWILLMOVERIGHTON" 0305GOSUB6000 0310INPUT"ENTERYOUROCCUPATIONPLEASE.",K$ 0320PRINT"N' OW";A$;"ENTERATYPEOFDWELLING"; 0330INPUTL$ 0340INPUT"SELECTATYPEOFFOOD",P$ 0350INPUT"ANDLASTENTERANOTHERPIECEOFCLOTHING",M$ 0360PRINT"ALRIGHTTHATSHOULDDOITGIVEMEAMINUTETOTHINK" 0370T=400 0380GOSUB6000 0500PRINTCHR$(27);CHR$(69) 0700PRINTTAB(26);H$;"";B$;"RIDING";G$ 0710PRINT 0720PRINT 0750PRINT"ONEDAY";H$;"";B$;"RIDING";G$;"'SMOTHERTOLDHERTO" 0760PRINT"TAKEA";C$;"OF";D$;"TOGRANDMOTHER'S";L$;".";B$ 0770PRINT"TOOKTHE";C$;"ANDSETOFFTHROUGHTHEWOODSWERESHECAME" 0780PRINT"ACROSSA";N$;"";F$;"";A$;"." 0790PRINT"WHATDOYOUHAVEINTHE";C$;"";H$;"";B$;"RIDING";G$;"." 0800PRINT"SAIDTHE";N$;"";F$;"";A$ 0810PRINT"IHAVE";D$;"'STHATIMTAKINGTOMYGRANNIES";L$;"." 0820PRINT"THE";A$;"QUICKLYTOOKTHESHORTCUTTOGRANNIES";L$ 0830PRINT"ATEGRANNIE,ANDPUTONHER";M$;"ANDCLIMBEDINTOHER";E$;"." 0840PRINT"ABOUTTHISTIME";H$;"";B$;"RIDING";G$;"WASKNOCKING" 0850PRINT"ATTHEDOOR." 0860PRINT"COMEIN.SAIDTHE";A$;"." 0870PRINTH$;"";B$;"RIDING";G$;"WENTINTOTHEROOMANDSETTHE" 0880PRINTC$;"OF";D$;"DOWNANDSAID." 0890PRINT"GRANNIEWHATBIG";J$;"'SYOUHAVE!" 0900PRINT"THEBETTERTO";O$;"YOUWITHMYDEAR.SAIDTHE";A$;"." 0910PRINTB$;"RANFROMTHEROOM,OUTOFTHE";L$;"ANDFOUNDTHE" 0920PRINT"LOCAL";K$;"WHOCHOPPEDOFFTHEHEADOFTHE";A$;"." 0930PRINT"";H$;"";B$;"RIDING";G$;"ANDTHE";K$;"WERESOONMARRIED." 0940PRINT 0960T=40 0970GOSUB6000 0980PRINT"DONTYOUJUSTLIKEASTORYWITHAHAPPYENDING"; 0990INPUTQ$ 1000PRINT 1010PRINT 1020IFQ$="Y"THEN5000 1025PRINTTAB(5); 1030PRINT"WELL";A$;".THATSJUSTTOUGHSHIT..." 1040PRINT 5000END 6000FORY=1TOT 6010REMSLEEPFOR"T" 6020NEXTY 6030RETURN   224364012342610426395213273849162242620223436303 233853082742571226385014273951152239560526436009 223854062339550726425810274359112223242126272825 222630182327311922273217232629203839403742434441 384246343943473538434833394245366101214164042444 490419346116314649132537521628405201183564133047 490117335204203661132945641632480401020316131415 130105091604081216010611130407105249505164616263 614953576452566064495459615255581834500219355103 213753052440560825415709284460123046621431476315 060708051011120906101402071115031819201730313229 212529172428322034353633464748453741453340444836 5455565358596( 0575458625055596351 2243234226392738016413520461164922432342 04-1-1 15-1-1 03-1-1 1010-1 100510 0202-1 020102 020101 020002 050510 050505 050010 050005 -1-1-1 THISPROGRAMPLAYSTHREE-DIMENSIONALTIC-TAC-TOEONA BOARDCONSISTINGOF64SQUARESARRANGEDON4LEVELS OF16(4X4)SQUARESEACH. THEPURPOSEOFTHEGAMEISTOGET4MOVESINAROW. WINNINGROWSMAYBESETUPVERTICALLY,HORIZONTALLY ORDIAGONALLYINANYDIRECTION.TOENTERYOURMOVE TYPEINA3-DIGITNUMBER.FOREXAMPLE,243WOULDBE 2NDLEVEL,4THROW,3RDCOLUMN.TOLETMEMOVEFIRST YOUCANSKIPYOURMOVEBYTYPINGINZERO(000).WHEN YOUWISHTOSTARTANEWGAME,TYPEINANEGATIVEMOVE SUCHAS-11.TOGETOFFTHECOMPUTERTYPE999. }i&NAMSTARTREKGAMEV1.4 OPTLOAD,LLEN=80,CREF,NOGEN SPC3 ****************************************************************** * *TYPEDBYR.EBY *DATE12-20-76 *CORRECTED1-6-77 * ****************************************************************** SPC3 ORG$20 SPC3 *TEMPSTORAGEAREA SPC1 STPSFLRMB1SETUPROUTINEFLAG BASEXRMB1BASEQUADRANT,X BASEYRMB1BASEQUADRANT,Y BASESXRMB1BASESECTOR,X BASESYRMB1BASESECTOR,Y GLMFLGRMB1MOVEDTONEWQUADFLAG SECKLNRMB1#KLINGONSINCUR.QUAD FLAGCRMB1 TIMDECRMB1DECREMENTTIME STCFLGRMB1SETCOURSEFLAG SQFLGRMB1QUADMOVEFLAG PNTFLGRMB1DECIMALPOINTFLAG COURSERMB1COURSE WARPRMB1WARPFACTOR FINCXRMB1OUTOFBOUNDSFLAG,X FINCYRMB1OUTOFBOUNDSFLAG,Y COUNTRMB1TEMPCOUNTSTORE TEMPRMB2BCDADD/SUBPARAM TEMP2RMB2 XTEMPRMB2TEMPXSTORE TIME0RMB2STARDATE GAMTIMRMB1LENGTHOFGAME TIMUSERMB2TIMEUSEDUP SHENGYRMB2SHIELDENERGY KLNENGRMB2LOCALKLINGONENERGY PHSENGRMB2PHASERENERGY TOPFLGRMB1LRSFLAGSTOPQUADOUTOFGALAX BOTFLGRMB1BOTTOMFLAG LSDFLGRMB1LSIDEFLAG RSDFLGRMB1RSIDEFLAG PHOTONRMB1#TORPEDOS CURQUXRMB1CURSHIPQUAD,X CURQUYRMB1CURSHIPQUAD,Y CURSCXRMB1CURSHIPSECTOR,X CURSCYRMB1CURSHIPSECTOR,Y TRIALXRMB1TRIALPOSITION,X TRIALYRMB1TRIALPOSITION,Y FLAGRMB1POSITIONOCCUPPIEDFLAG CNDFLGRMB1CONDITIONFLAG SCANXRMB1SHORTSCANCOLUMN SCANYRMB1SSROW COUNT1RMB1 SECINFRMB1DATAFORCURQUAD MASKRMB1 KLNGCTRMB1TOTAL#OFKLINGONS LENGTHRMB1PROGRAMLENGTH ASAVERMB1TEMPSTORAGE SHIELDRMB1SHIELDPOSITION ENERGYRMB2SHIPENERGY TSAVE1RMB1TEMPSTORAGE HITKLSRMB1HITKLINGON HITSTRRMB1HITSTAR HITBASRMB1HITBASE TEMP3RMB2 GALCNTRMB1GALAXYLIMITHITCOUNT DAMENGRMB1DAMAGESTATUS,ENG DAMSRSRMB1"",SRS DAMLRSRMB1"",LRS DAMPHSRMB1"",PHS DAMPHTRMB1"",PHT DAMSHLRMB1"",SHL SUPFLGRMB1SUPERNOVAFLAG TELFLGRMB1TELEPORTER ATKENGRMB2ATTACKENERGY QUDPTRRMB2CURQUADPTR PASWRDRMB3PASSWORD PHTFLGRMB1TORPEDOFLAG QUDMAPRMB64QUADRANTMAP SECMAPRMB16SECTORMAP PAGE *TABLEOFMOVEVECT) ORS SPC1 MOVTBLFCB0,$FF,1,$FF,1,0,1,1,0,1,$FF,1,$FF,0 FCB$FF,$FF SPC1 *SPECIALCHARACTERTABLE SPC1 CHRTBLFCC'.*KB' SPC1 *COMMANDJUMPTABLE SPC1 JMPTBLFDBSETCRSCOMMAND=0 FDBSRSCAN"=1 FDBLRSCAN"=2 FDBPHASER"=3 FDBPHOTOR"=4 FDBDAMRPT"=5 FDBSHLDUP"=6 FDBSHLDWN"=7 FDBTELEPT"=8 FDBSELFDE"=9 SPC1 *EXTERNALI-OJUMPS SPC1 PDATA1EQU$F027 OUTHRJSR$F00C JMP$F018 OUTHLJSR$F009 JMP$F018 OUTSEQU$F02A OUTCHEQU$F018 INCHEQU$F015 MONTOREQU$F5C2 PAGE *SETUPOFGALAXY SPC1 ORG$100 STARTEQU* SPAVOYLDS#$1100SETUPSTACK LDX#TITLE JSRPSTRNGOUTPUTTITLE LDX#STPSFL SETUPCLRACLEARALLTEMPSTORAGE STAA0,X INX CPX#MOVTBL BNESETUP LDX#SHTLNGSHORTORLONGVERSION? JSRPSTRNG JSRINCH CMPA#'S BEQSHORT INCLENGTHIFLONGSETFLAG SHORTLDX#QUDMAPPOINTTOQUADRANTMAP LDAB#64 SETUP0JSRRANDOMSETUPNUMBEROFKLINGONS CMPA#$FCINEACHQUADRANT BLSSETUP1PROBABILITYLOWFOR4 LDAA#4 BRASETUP5 SETUP1CMPA#$F7 BLSSETUP2 LDAA#3 BRASETUP5 SETUP2CMPA#$E0 BLSSETUP3 LDAA#2 BRASETUP5 SETUP3CMPA#$A0PROBABILITYMUCHHIGHER BLSSETUP4FORONEKLINGON LDAA#1 BRASETUP5 SETUP4CLRA SETUP5CLRASAVE TSTLENGTHCHECKFORLONGVERSION BEQSETUP8IFNOTJUMPAHEAD STAAASAVEELSEGENERATEADDITIONAL JSRRANDOMKLINGONSANDADDTOTHE CMPA#$F0PREVIOUSLYGENERATED BLSSETUP6 LDAA#3 BRASETUP8 SETUP6CMPA#$C0 BLSSETUP7 LDAA#2 BRASETUP8 SETUP7CLRA SETUP8ADDAASAVE STAA0,XSAVEKLINGONS ADDAKLNGCTUPDATETOTALCOUNT STAAKLNGCT STARSJSRRANDOMGENERATESOMESTARS ANDA#$38 ORAA0,X STAA0,X CONTINX DECB BEQCONT1IFNOTDONEWITHALL JMPSETUP0QUADRANTS,REPEAT CONT1JSRRANDOMGENERATESTARBASE ANDA#7 TAB JSRRANDOM ANDA#7 STAABASEXSAVEITSPOSITION STABBASEY INCSTPSFL LDX#QUDMAP JSRSTPSEX LDAA#$40PUTINQUADRANTMAP ORAA0,X STAA0,X CONT2BSRREFUELSETUPINITIALENERGY JSRRANDOMCALCULATESTARDATE ADDA#0 DAA STAATIME0+1 JSRRANDOM ANDA#$7F ORAA#$10 ADDA#0 DAA STAATIME0 BSRMAKTIMCALCULATEGAMETIME TSTLENGTHIFLONG,MORETIME BEQGATM TAB BSRMAKTIM SUBA#0 ABA DAA GATMSTAAGAMTIM BRACONT3 SPC1 *REFUELTHEENTERPRISE SPC1 REFUELCLRSHIELDLOWERSHIELD CLRTELFLG LDAA#$30 STAAENERGYSETENERGYTO3000 STAASHENGYSHIELDENERGYALSO CLRENERGY+1 CLRSHENGY+1 LDAA#15INITIALIZETORPEDOES STAAPHOTON LDX#DAMENGFIXALLDAMAGE REFUL1CLR0,X INX CPX#SUPFLG BNEREFUL1 RTS SPC1 *CALCULATEGAMETIME SPC1 MAKTIMJSRRANDOMGETRANDOMNUMBER ANDA#$0F ORAA#$22NOLESSTHAN22YEARS ADDA#0 DAA RTS SPC1 *SETUPCONTINUED SPC1 CONT3JSRRANDOMGENERATEPOSITIONOF ANDA#7ENTERPRISE STAACURQUX JSRRANDOM ANDA#7 STAACURQUY JSRSETUPS LDX#BASINFREPORTBASEPOSITION JSRPSTRNG LDAABASEX BSRFIXOUT JSROUTDSH LDAABASEY BSRFIXOUT LDX#INTRO0OUTPASSWORDPROMPT JSRPSTRNG LDX#PASWRDGETPASSWORD LDAB#3 CONT4JSRINCH STAA0,XSAVEIT INX DECB BNECONT4 LDX#INTRO1 JSRPSTRNGOUTPUTSTARDATE BSROUTDAT LDX#INTRO2 JSRPSTRNGOUT#OFKLINGONS BSROUTKLN LDX#INTRO3 JSRPSTRNGOUTYEARSTOWIN CLRTEMP LDAAGAMTIM STAATEMP+1 JSROUTBCD LDX#INTRO4 JSRPSTRNGOUTPUTQUADRANT BSROUTQUD LDX#INTRO6 JSRP* STRNGOUTPUTSECTOR BSROUTSEC JMPCOMAND SPC1 *OUTPUTANUMBER SPC1 FIXOUTADDA#$31BIASANDOUTPUT JMPOUTCH SPC1 *OUTPUTSTARDATE SPC1 OUTDATLDXTIME0LOADDATE STXTEMP JSROUTBCD LDAA#'. JSROUTCHOUTPUTDECIMALPOINT LDAATIMDEC JMPOUTHR SPC1 *OUTPUTKLINGONCOUNT SPC1 OUTKLNLDAAKLNGCTGETCOUNT OUTK0CLRTEMP OUTK1CLRTEMP+1 LDAB#10CONVERTTOBCD OUTK2SBA BCSOUTK3 INCTEMP+1TENS CMPBTEMP+1 BNEOUTK2 INCTEMPHUNDREDS BRAOUTK1 OUTK3ABA LDABTEMP+1 ASLB ASLB ASLB ASLB ABAADDUNITS STAATEMP+1 JMPOUTBCD SPC1 *OUTPUTQUADRANT SPC1 OUTQUDLDAACURQUXGETQUADRANTINFO. BSRFIXOUTOUTPUTIT BSROUTDSHOUTPUTDASH LDAACURQUY BRAFIXOUT SPC1 *OUTPUTSECTOR SPC1 OUTSECLDAACURSCXGETSECTORINFO. BSRFIXOUTOUTPUTIT BSROUTDSHOUTPUTADASH LDAACURSCY BRAFIXOUT SPC1 *OUTPUTADASH SPC1 OUTDSHLDAA#'-LOADUPADASH JMPOUTCHOUTPUTIT SPC1 *FIXTHEINDEXREGISTER SPC1 FIXXRGSTXTEMPADDVALUEINA ADDATEMP+1TOTHEINDEXREGISTER STAATEMP+1 LDXTEMP RTS SPC1 *MAINPROGRAMLOOP SPC1 COMANDLDAAGAMTIMCHECKTIME CMPATIMUSE+1 BHINOEXTCISITUP? JMPNOMTIM NOEXTCTSTKLNGCTALLKLINGONSGONE? BNENOEXT2 JMPNOMKLN NOEXT2TSTSUPFLGSUPERNOVAHERE? BEQNOEXT4 LDX#SUPDES JSRPSTRNG JMPSELFDA NOEXT4JSRCLRCQUCLEARKLINGONS&STARS LDAA#2 CMPACNDFLGAREWEDOCKED? BEQCMND27 CLRCNDFLG TSTSECKLNCONDITIONRED? BEQCMNDAC DECA STAACNDFLG CMNDACJSRRANDOM CMPA#$FCSPACESTORM? BLSCOMND2 LDX#SPSTRM JSRPSTRNG LDAA#2 STAADAMSHL JMPSHLDWN COMND2JSRRANDOM CMPA#$FCSUPERNOVA? BLSCMND25 JMPSUPNOV CMND25JSRATTACKGOGETATTACKED TSTENERGYANYENERGYLEFT? BPLCOMND0 JMPNRGOUT COMND0LDAA#3ISCONDITIONYELLOW? CMPAENERGY BLSCMNDAD STAACNDFLG CMNDADTSTSHENGYSHIELDENERGYLEFT? BPLCMND27 CLRA STAASHIELDIFNOTLOWERSHIELD STAASHENGY STAASHENGY+1 CMND27LDX#COMSTOUTPUTCOMMANDPROMPT JSRPSTRNG CLRSTCFLG CLRPHTFLG COMND3JSRINCHCKINPUTCOMMAND COMND4ASLA LDX#JMPTBL JSRFIXXRGFINDINJUMPTABLE LDX0,X JMP0,XJUMPTOIT SPC1 *OUTPUT4DIGITBCDNUMBER SPC1 OUTBCDCLRFLAGOUTPUTABCDNUMBER LDAATEMPFROMLOCATIONTEMP BEQOUTBC2ANDTEMP+1 ANDA#$F0 BEQOUTBC1 LDAATEMP JSROUTHLFIRSTDIGIT OUTBC1LDAATEMP JSROUTHRSECONDDIGIT INCFLAG OUTBC2LDAATEMP+1 TSTFLAG BNENOZERO ANDA#$F0 BEQOUTBC3 NOZEROJSROUTHLTHIRDDIGIT OUTBC3LDAATEMP+1 JMPOUTHRFOURTHDIGIT SPC1 *LOWERSHIELDS SPC1 SHLDWNCLRSHIELDSHIELDSDOWN LDX#DWNST SHLD0JSRPSTRNGREPORT SHLD1JMPCOMAND SPC1 *RAISESHIELDS SPC1 SHLDUPLDAASHENGYHAVEENOUGHENERGY? CMPA#1 BLSSHLD1 TSTDAMSHLSHIELDSDAMAGED? BNESHLDWN INCSHIELDRAISESHIELDS LDX#SHENGY LDAA#2DEDUCTENERGY STAATEMP CLRTEMP+1 JSRBCDSUB LDX#UPSTR BRASHLD0REPORT SPC1 *SHORTRANGESCAN SPC1 SRSCANTSTDAMSRSDAMAGED? BEQSSCAN1 JMPRPTDAM SSCAN1JSRPCRLFOUTPUTACR&LF CLRSCANY LDAACNDFLGAREWEDOCKED? CMPA#2 BNESSCAN2 JSRREFUELIFSO,REFUEL SSCAN2LDX#SECMAPPOINTTOSECTORMAP STXTEMP2 JSRDOSCANOUTPUTFIRSTLINE LDX#SDATEOUTPUTDATE JSRPDATA1 JSROUTDAT JSRDOSCANOUTPUTNEXTLINE2 LDX#CNDTNS JSRPDATA1OUTPUTCONDITION LDAACNDFLG BEQSRSCN1CHECKCONDITION CMPA#+ 1CNDFLGSTATUS BEQSRSCN00=GREEN CMPA#31=RED BEQOUTCN12=DOCKED LDX#DOCKED3=YELLOW BRAOUTCND OUTCN1LDX#YELLOWYELLOW OUTCNDJSRPDATA1 BRASRSCN2 SRSCN0LDX#REDCONDITIONRED BRAOUTCND SRSCN1LDX#GREENGREEN BRAOUTCND SRSCN2BSRDOSCANOUTPUTNEXTLINE3 LDX#QUADP JSRPDATA1OUTQUADRANT JSROUTQUD BSRDOSCANOUTPUTNEXTLINE4 LDX#SECP JSRPDATA1OUTSECTOR JSROUTSEC BSRDOSCANNEXTLINE5 LDX#ENGSTR JSRPDATA1OUTPUTENERGY LDXENERGY STXTEMP JSROUTBCD BSRDOSCANOUTPUTNEXTLINE6 LDX#KLSTR JSRPDATA1OUTKLINGONCOUNT JSROUTKLN BSRDOSCANOUTNEXTLINE7 LDX#SHSTR JSRPDATA1OUTPUTSHIELDS LDXSHENGY STXTEMP JSROUTBCDSHIELDENERGY TSTSHIELD BEQSRSCN4 LDX#UPSCASUP BRASRSCN5 SRSCN4LDX#DNSCASDOWN SRSCN5JSRPDATA1 BSRDOSCANOUTPUTLASTLINE LDX#TRPSTR JSRPDATA1OUTPUTTORPEDOES CLRTEMP LDAAPHOTON ADDA#0 DAA STAATEMP+1 JSROUTBCD JMPCOMANDRETURN SPC1 *OUTPUTONESHORTRANGESCANLINE SPC1 DOSCANJSRPCRLFOUTPUTACR&LF LDAA#2 STAACOUNTSETUPCOUNTER CLRSCANX DOSCNLDAA#4 STAACOUNT1SETUPENDCOUNTER LDXTEMP2 LDAA0,X DOSCN0STAAASAVE LDAACURSCY CMPASCANYISITYLOCATIONOFENTERP. BNECHK0 LDAACURSCX CMPASCANXISITXLOCATIONOFENTERP. BNECHK0 LDAA#'EIFSO,PRINT'E' JSROUTCH BRAGOAHD CHK0LDAAASAVE DOSCN1LDX#CHRTBLFINDCHARACHTER ANDA#3 JSRFIXXRG LDAA0,X JSROUTCHOUTPUTIT GOAHDJSROUTSOUTPUTASPACE LDXTEMP2 INCSCANX DECCOUNT1DECRIMENTTHECOUNTER BEQDOSCN2AREWEDONE? LDAAASAVE LSRAIFNOT,GETTONEXTSECTOR LSRAINBYTEREPEAT BRADOSCN0 DOSCN2INX STXTEMP2 LDAA0,X DECCOUNTDECRIMENTTHECOUNTER BNEDOSCNIFNOT0,REPEAT INCSCANY RTS SPC1 *PRINTSTRINGROUTINE SPC1 PSTRNGBSRPCRLF JMPPDATA1 SPC1 *PRINTCARRIAGERETURNANDLINEFEED SPC1 PCRLFSTXXTEMPSAVETHEINDEXREGISTER LDX#CRLFSTOUTPUTACR&LF JSRPDATA1 LDXXTEMPRESTOREINDEX RTS SPC1 *SETUPSECTORMAP SPC1 SETUPSCLRSECKLNCLEARLOCALKLINGS LDX#SECMAPPOINTTOSECTORMAP LDAB#16 CLRA SETPS1STAA0,XCLEAROUTMAP INX DECB BNESETPS1 LDX#QUDMAPPOINTTOQUADMAP LDAACURQUXGETCURRENTPOSITION LDABCURQUY STPSEXSTAAASAVE TSTB BEQSETPS4 SETPS2LDAA#8 SETPS3INX DECAFINDCURRENTYQUAD. BNESETPS3 DECB BNESETPS2 SETPS4LDAAASAVE BEQSETPS6 SETPS5INX DECAFINDCURRENTXQUAD. BNESETPS5 SETPS6TSTSTPSFL BEQSTPSNX CLRSTPSFLIFENTEREDEXTERNAL RTSRETURN STPSNXSTXQUDPTRSAVECURRENTQUADRANT LDAB0,X STABSECINF BEQSETP10 ANDB#7CHECKFORKLINGONS BEQSETPS7 STABCOUNT STABSECKLN LDAA#2 STAAMASK BSRPUTINMGOPUTINMAP SETPS7LDABSECINF ANDB#$38CHECKFORSTARS BEQSETPS8 LSRB LSRB LSRB STABCOUNT LDAA#1 STAAMASK BSRPUTINMPUTSTARSINMAP SETPS8LDABSECINF BITB#$40CHECKFORBASE BEQSETPS9 LDAA#1 STAACOUNT LDAA#3 STAAMASK BSRPUTINMPUTBASEINMAP SETPS9LDABSECINF BPLSETP10CHECKFORSUPERNOVA INCSUPFLGIFSO,SETFLAG SETP10JSRRANDOMGETRANDOMX ANDA#7 STAATRIALX JSRRANDOMGETRANDOMY ANDA#7 STAATRIALY JSRCHKPOSLOCATIONEMPTY? TSTFLAG BNESETP10 LDAATRIALXIFSO,THISIS STAACURSCXCURRENTLOCATION LDAATRIALYOFENTERPRISE STAACURSCY SPC1 *CALCULATELOCALKLINGONENERGY SPC1 CSCKENL, DABSECKLNGET#OFKLINGONS ASLBMULTIPLYBYTWO LDX#KLNENGPOINTTOKENERGY CSCEXTCLR0,X CLR1,X TSTB BEQCSCKN2 CSCKN1JSRRANDOMGENERATERANDOMENERGY ADDA#0FOREACHKLINGON DAA CLRTEMP STAATEMP+1 JSRBCDADDADDUPENERGY DECB BNECSCKN1 CSCKN2RTS SPC1 *PUTOBJECTSINSECTORMAP SPC1 PUTINMLDX#SECMAPPOINTTOMAP JSRRANDOM ANDA#$FGENERATERANDOMPOSITION STAATSAVE1 JSRFIXXRGFINDINMAP LDAB0,X JSRRANDOMGENERATERANDOMX ANDA#3 STAAASAVE BEQPUTIN2 PUTIN1RORBFINDXPOSITION RORB DECA BNEPUTIN1 PUTIN2BITB#3ISPOSITIONEMPTY? BNEPUTINMIFNOT,REPEAT ORABMASK LDAAASAVE BEQPUTIN4 PUTIN3ROLBPUTOBJECTINMAP ROLBMAPMASK DECA0=EMPTY BNEPUTIN31=STAR PUTIN4STAB0,X2=KLINGON DECCOUNT3=BASE BNEPUTINM LDAAMASK CMPA#3WASOBJECTABASE? BNEPUTIN6 LDABTSAVE1 CLC RORBFINDPOSITION LDAAASAVE BCCPUTIN5 ADDA#4 PUTIN5STAABASESXSAVEXPOSITION STABBASESYANDYPOSITION PUTIN6RTS SPC1 *CHECKFOREMPTYSECTOR SPC1 CHKPOSCLRFLAG STXXTEMPSAVEPOINTER LDX#SECMAPPOINTTOMAP LDAATRIALYGETYPOSITION BEQCHKPO2 CHKPO1INXFINDINMAP INX DECA BNECHKPO1 CHKPO2LDAATRIALXGETXPOSITION CMPA#3 BLSCHKPO3 INX SUBA#4 CHKPO3LDAB0,XFINDINMAP STAAASAVE BEQCHKPO5 CHKPO4LSRB LSRB DECA BNECHKPO4 CHKPO5ANDB#3ISPOSITIONEMPTY? BEQCHKPO6 STABFLAGIFNOT,SETFLAG TSTSTCFLG BEQCHKPO6 TSTPHTFLG BNECHKPO7 CMPB#2ISITAKLINGON? BEQCHKPO7 CHKPO6LDXXTEMP RTS CHKPO7LDAB#$FCSETUPMASK LDAAASAVE BEQCHKPO9 SEC CHKPO8ROLBPOSITIONMASK ROLB DECA BNECHKPO8 CHKPO9ANDB0,XCLEAROUTKLINGON STAB0,X BRACHKPO6 SPC1 *FIREPHOTONTORPEDOES SPC1 PHOTORTSTDAMPHTDAMAGED? BEQPTRNDM PTRND9JMPRPTDAM PTRNDMTSTPHOTONANYLEFT? BNEPHOTR0 JMPPTEMPTREPORTEMPTY PHOTR0INCPHTFLG JSRRANDOM ANDA#$FSETENERGY ORAA#4MIN=4 STAAWARPMAX=F DECPHOTON SPC1 *WARPENGINES SPC1 SETCRSCLRSQFLG CLRGLMFLG LDX#CRSSTRCOURSEPROMPT JSRPSTRNG JSRINCHCKINPUTCOURSE CMPA#7 BHIABC29GREATERTHAN7? STAACOURSE TSTPHTFLG BNEPHTOR1 LDX#WRPSTRWARPPROMPT JSRPSTRNG JSRINCHCKINPUTW.FACTOR STAAWARP TSTPNTFLGTESTFORDECPNT BNESTCRS2 STAASQFLGSETQUADFLAG TSTDAMENGDAMAGED? BNEPTRND9 STCRS2JSRINCHWAITFORC.R. CMPA#$D BNESTCRS2 LDAACOURSE PHTOR1LDX#MOVTBLFINDMOVEVECTOR ASLA JSRFIXXRG LDAAWARPWARP=0? BNEABC30 ABC29JMPCOMAND ABC30STAACOUNTSETCOUNTER TSTSQFLG BEQSTCRS3 LDAA#$0F STAACOUNT STCRS3LDAACURSCXGETCURPOSITION LDABCURSCY PHTOR2ADDA0,X ADDB1,X JSRTSTBNDOUTOFBOUNDS? TSTFINCX BEQABC1 JMPSTCRS5IFSO,JMPAHEAD ABC1TSTFINCY BEQABC5 JMPSTCRS5 ABC5STAATRIALXSAVETRIALPOS STABTRIALY TSTPHTFLG BEQABC4IFFIRINGTORP. JSRPCRLFOUTPUTCR&LF BSROBATSOANDSECTORLOC. ABC4INCSTCFLG JSRCHKPOSCHECKIFBLOCKED LDAAFLAG BEQSTCRS4 TSTPHTFLG BEQABC2 JMPPHTOR3 ABC2CMPA#2RAMMEDKLINGON? BNEABC3 JMPKLGRAM ABC3LDX#BLOKSTBLOCKED JSRPSTRNG OBATSOLDAATRIALXOUTPUTSECTOR JSRFIXOUT JSROUTDSH LDAATRIALY JSRFIXOUT TSTPHTFLG BEQSTCRET RTS STCRETJMPSTCRS6 STCRS4TSTPHTFLGTORPEDO? BEQSTCRSBIFNOT,JUMPAHEAD LDAATRIALXGETTRIALPOS. LDABTRIALY DECCOUNTDECCOUNTER BNE- PHTOR2IFNOTDONE,REPEAT JMPPHTOR4 STCRSBLDAATRIALX STAACURSCXUPDATECURQUADPOS LDAATRIALY STAACURSCY JSRRANDOM CMPA#$80INCTIME? BLSSTCRSC LDAA#1INCTIMEBY1 JSRFIXTIM LDAA#3INCENERGY JSRFIXENG STCRSCDECCOUNTDECCOUNTER BEQSTCRSD JMPSTCRS3 STCRSDTSTSQFLGQUADRANTMOVE? BNESTCRS5 JMPSTCRS6 STCRS5TSTPHTFLG BEQABC6 JMPPHTOR4 ABC6LDAAWARPRESTOREWARP STAACOUNT ABC7LDAACURQUXGETCURQPOS LDABCURQUY TSTSQFLG BEQSTCRS7 ADDA0,XADDINMOVEVEC. ADDB1,X STAATRIALX STABTRIALY JSRTSTBNDOUTOFBOUNDS? TSTFINCX BEQABCD0 JMPGALBNDIFSO,REPORT ABCD0TSTFINCY BEQABCD1 JMPGALBND ABCD1LDAATRIALX STAACURQUXUPDATECURPOSITION LDAATRIALY STAACURQUY INCGLMFLGSETMOVETONEWQUADFLAG LDAA#6INCTIME JSRFIXTIM LDAA#$30INCENERGY JSRFIXENG DECCOUNT BNEABC7NOTDONEYET?REPEAT STCRSAJSRSETUPSGOSETUPQUAD STCRS6CLRCNDFLG LDAABASEXCHECKIFIN CMPACURQUXSAMEQUADRANTAS BNESEXIT1STARBASE LDABBASEY CMPBCURQUY BNESEXIT1 LDAABASESX LDABBASESYDOCKED? INCA SUBACURSCX CMPA#2 BHISEXIT1 SEXIT0INCB SUBBCURSCY CMPB#2 BHISEXIT1 SDOCKLDAA#2SETCNDFLAGTO STAACNDFLGSHOWDOCKED SEXIT1JMPCOMAND STCRS7ADDAFINCXRESTORECURPOS ADDBFINCY CMPA#7OUTOFGALAXY? BHIGALBND CMPB#7 BHIGALBND STAACURQUXSAVEPOSITION STABCURQUY LDAA#7INCTIME JSRFIXTIM BRASTCRSA SPC1 *RAMMEDKLINGON SPC1 KLGRAMLDX#KRMSTRREPORTRAM JSRPSTRNG LDAA#1 STAACOUNT CLRSQFLG INCHITKLS DECKLNGCTDECKLINGCOUNT DECSECKLN INCPHTFLG JSROBATSOOUTPUTSECTOR LDX#HEVDAMHEAVYDAMAGE! JSRPSTRNG LDAB#$6A JSRMANDAMGOMAKEDAMAGE LDX#STILFTREPORTK'SLEFT JSRPSTRNG JSROUTKLN JMPSTCRSB SPC1 *REPORTGALAXYLIMIT SPC1 GALBNDLDX#GLBNDSOUTGALAXYLIMIT JSRPSTRNG LDAAGALCNT INCA CMPA#3WASIT3RDTIME? BNEGALBN2 LDX#GALDUMIFSO,REPORT JSRPSTRNG JMPENDGAMENDGAME GALBN2STAAGALCNT TSTGLMFLG BNEABC20 JMPSTCRS6 ABC20JMPSTCRSA SPC1 *TORDEDOHITOBJECT SPC1 PHTOR3LDX#PHITSTREPORT JSRPSTRNG LDAAFLAG CMPA#2WASITAKLINGON? BNEABC8 DECSECKLN DECKLNGCTDECKLINGONCOUNT INCHITKLS LDX#KLGSTRREPORTKLINGON JSRPDATA1 LDX#STILFTREPORT#LEFT JSRPSTRNG JSROUTKLN BRAABC10 ABC8CMPA#1 BNEABC11 INCHITSTRHITSTAR LDX#STARST ABC9JSRPDATA1REPORT ABC10JMPCOMAND ABC11LDX#BASESTHITBASE INCHITBASREPORT BRAABC9 SPC1 *TORPEDOOUTOFENERGY SPC1 PHTOR4LDX#PNOENG JSRPSTRNGREPORT JMPSTCRS6 SPC1 *TESTFOROUTOFBOUNDS SPC1 TSTBNDCLRFINCX CLRFINCY TSTATESTXPOS. BPLTSTBN1 DECFINCX BRATSTBN2 TSTBN1CMPA#7 BLSTSTBN2 INCFINCX TSTBN2TSTBTESTYPOS BPLTSTBN3 DECFINCY RTS TSTBN3CMPB#7 BLSTSTBN4 INCFINCY TSTBN4RTS SPC1 *TORPEDOTUBESEMPTY SPC1 PTEMPTLDX#PTEMSTREPORT JSRPSTRNG JMPCOMAND SPC1 *INPUTCHARACTERANDCHECK SPC1 INCHCKCLRA INCHK0STAAPNTFLG JSRINCHINPUTCHAR. CMPA#'.ISITAPOINT? BEQINCHK0 CMPA#$39GREATERTHAN9? BHIINCHK1 CMPA#$2FLESSTHAN0? BLSINCHK1 SUBA#$30MASKOFFASCII RTS INCHK1LDX#ERRREPORTERROR JSRPDATA1 BRAINCHCK SPC1 *FIXUPTIME SPC1 FIXTIMADDATIMDECADDINDECIMAL CMPA#9OVERFLOW? BLSFIXTM1 SUBA#10SUBTRACTTEN STAATIMDECSAVEDECIMA. L CLRTEMP LDAA#1ADDINONE STAATEMP+1 STXXTEMP LDX#TIME0ADDTOTIME JSRBCDADD LDX#TIMUSEINCTIMEUSED JSRBCDADD JSRFIXDAMGOFIXDAMAGE LDXXTEMP RTS FIXTM1STAATIMDEC RTSRETURN SPC1 *FIXUPENERGY SPC1 FIXENGSTXXTEMP LDX#ENERGYPOINTTOENERGY CLRTEMP STAATEMP+1 JSRBCDSUBGOSUBTRACT LDXXTEMP RTSRETURN SPC1 *BCDADDITION SPC1 BCDADDCLC BRABCDFIX SPC1 *BCDSUBTRACT SPC1 BCDSUBLDAA#$99FIND10'SCOMP. SUBATEMP STAATEMP LDAA#$99 SUBATEMP+1 STAATEMP+1 SEC SPC1 *BCDFIX SPC1 BCDFIXLDAA1,X ADCATEMP+1ADDL.S.BYTE DAA STAA1,XSAVEIT LDAA0,X ADCATEMP DAA STAA0,XSAVEIT RTSRETURN SPC1 *LONGRANGESCAN SPC1 LRSCANTSTDAMLRSDAMAGED? BEQLRSNDM JMPRPTDAM LRSNDMCLRTOPFLGCLEARFLAGS CLRBOTFLG CLRLSDFLG CLRRSDFLG LDX#LRSCSTOUTPUTQUADRANT JSRPSTRNGBEINGSCANNED JSROUTQUD JSRPCRLF JSRPCRLF LDAACURQUXONLEFTSIDE? BNELRSCN1 INCLSDFLG LRSCN1CMPA#7RIGHTSIDE? BNELRSCN2 INCRSDFLG LRSCN2LDAACURQUY BNELRSCN3TOPOFGALAXY? INCTOPFLG LRSCN3CMPA#7BOTTOM? BNELRSCN4 INCBOTFLG LRSCN4LDXQUDPTRPOINTTOQUAD. LRSCNCLDAA#$F7FINDUPPERLEFT JSRFIXXRG TSTTOPFLG BEQLRSCN7 BSROUTTH0 BRALRSCN8 LRSCN7BSROUTLINOUTPUT1STLINE LRSCN8LDAA#5FIXXREG JSRFIXXRG BSROUTLINOUTPUT2NDLINE LDAA#5 JSRFIXXRGFIXX TSTBOTFLG BEQLRSCN9 BSROUTTH0 BRALRSC10 LRSCN9BSROUTLINOUTPUT3RDLINE LRSC10JMPCOMAND SPC1 *OUTPUT1LINEOFLONGRANGESCAN SPC1 OUTLINLDAA0,XGETQUADINFO TSTLSDFLG BEQOUTLN1 CLRA OUTLN1BSROUTQINOUTPUTQUADINFO LDAA0,X BSROUTQINAGAIN LDAA0,X TSTRSDFLG BEQOUTLN2 CLRA OUTLN2BSROUTQINOUT3RDQUADRANT JMPPCRLFOFLINE SPC1 *OUTPUTQUADRANTINFORMATION SPC1 OUTQINTAB ANDA#$80SUPERNOVA? CLC ROLA ROLA JSROUTHRIFSO,OUTPUT TBA ANDA#$40BASE? LSRA LSRA JSROUTHLIFSOOUTPUT TBA ANDA#$38STARS? ASLA JSROUTHLOUTPUTTHEM TBA ANDA#$07KLINGONS? JSROUTHROUTPUT INX JMPOUTSOUTPUTSPACE SPC1 *OUTPUTALINEOFZEROS SPC1 OUTTH0LDAA#3SETCOUNTER STAACOUNT OUTTH1CLRA BSROUTQINOUTPUTTHEM DECCOUNT BNEOUTTH1 JMPPCRLFOUTPUTCR&LF SPC1 *FIREPHASERS SPC1 PHASERTSTDAMPHSDAMAGED? BEQPHSNDM JMPRPTDAM PHSNDMTSTSHIELDSHIELDSDOWN? BEQPHASR1 LDX#MLSHLD BRATOOMC1 PHASR1LDX#ENAVLBREPORTENERGY JSRPSTRNG LDXENERGY STXTEMP JSROUTBCD LDX#FIRENGFIREPROMPT JSRPSTRNG JSRINBCDGETENERGY LDAAPHSENG CMPAENERGY BHITOOMCHTOOMUCH? BNEPHASR2 LDAAPHSENG+1 CMPAENERGY+1 BLSPHASR2 TOOMCHLDX#TOMUCHREPORT TOOMC1JSRPSTRNG JMPCOMAND PHASR2JSRRANDOMCHECKIFMISFIRE CMPA#$F4 BLSPHASR3 LDX#PHAMISREPORTIFSO JSRPSTRNG BRAPHASR6 PHASR3LDAAPHSENGFIREENOUGH? CMPAKLNENG BHIPHASR4 BNEPHASR5 LDAAPHSENG+1 CMPAKLNENG+1 BLSPHASR5 PHASR4CLRKLNENGCLEARKENERGY CLRKLNENG+1 LDX#ALKILLREPORTALLKILLED JSRPSTRNG LDX#STILFTREPORT#LEFT JSRPSTRNG LDABSECKLN STABHITKLS LDAAKLNGCTDECKLINGCNT SBA STAAKLNGCT JSROUTKLN CLRSECKLN KILALKLDX#SECMAPREMOVEK'SFROMQ LDAA#16 STAACOUNTSETUPCOUNT KILAL1LDAB#4 LDAA0,XFINDALLKLINGONS KILAL2RORA BCSKILAL4 RORA BCCKILAL3 CLCCLEAROUT KILAL3DECB BNEKILAL2 RORA STAA0,X INX DECCOUNTIFNOTDONE/ RPT BNEKILAL1 BRAPHASR6 KILAL4RORA BRAKILAL3 PHASR5LDXPHSENG STXTEMP LDX#KLNENGSUB[ENERGY JSRBCDSUB LDX#KHTADMREPORTDAMAGED JSRPSTRNG PHASR6LDXPHSENG STXTEMP LDX#ENERGY JSRBCDSUB JMPCOMAND SPC1 *INPUTABCDNUMBER SPC1 INBCDCLRPHSENG CLRPHSENG+1 INBCD1JSRINCHINPUTNUMBER CMPA#$2F BLSEXIT BSRCHECKISITVALID? TSTFLAGC BNEINEROR LDAB#4SETCOUNTER INBCD2ASLPHSENG+1 ROLPHSENG DECB BNEINBCD2 ADDAPHSENG+1ADDINNUMBER STAAPHSENG+1 BRAINBCD1 INERORLDX#ERR JSRPDATA1REPORTERROR BRAINBCD1 EXITRTS CHECKCLRFLAGCCLEARFLAG CMPA#$39 BHISETFLG ANDA#$0FMASKOFF RTSRETURN SETFLGINCFLAGCINCFLAG RTS SPC1 *SELFDESTRUCT SPC1 SELFDELDX#INTRO0ASKFORPASSWORD JSRPSTRNG LDX#PASWRD LDAB#3 SELFD1JSRINCHINPUTWORD CMPA0,X BNESELFD2 INX DECB BNESELFD1IFNOT=,JUMPAHEAD SELFDALDX#DISINTDISINTEGRATE JSRPSTRNG JMPENDGAM SELFD2LDX#ABORTABORTSEQUENCE JSRPSTRNG JMPCOMAND SPC1 *TELEPORTER SPC1 TELEPTLDAA#$1212YEARSUSED? CMPATIMUSE+1 BHITELEP2 TSTTELFLG BNETELEP4 JSRRANDOMMAYBEDAMAGE CMPA#$B0 BLSTELEP1 INCTELFLG TELEP1JSRRANDOMMALFUNCTION? CMPA#$B0 BHITELEP5IFNOT,PUT LDAABASEXENTERPRISEIN STAACURQUXQUADRANTWITHBASE LDAABASEY STAACURQUY TELEPAJMPSTCRSA TELEP2LDX#CANTUSTOOEARLY TELEP3JSRPSTRNG JMPCOMAND TELEP4LDX#DMGDSTDAMAGED BRATELEP3 TELEP5JSRRANDOMMALFUNCTION! ANDA#7GENERATERANDOM STAACURQUXQUADRANT JSRRANDOM ANDA#7 STAACURQUY LDX#SOMWHRREPORT JSRPSTRNG BRATELEPA SPC1 *KLINGONSATTACK SPC1 ATTACKTSTSECKLNANYKLINGONS? BNEATTAC1IFNOT,RETURN RTS ATTAC1JSRRANDOMMAYBEWON'T CMPA#$B0 BHIATTAC2 LDX#ATKENGGETKATTACKENERGY LDABSECKLN ASLB JSRCSCEXTFINDTOTALENERGY LDXATKENG STXTEMP TSTSHIELDSHIELDSUP? BNEATTAC3 LDX#ENERGYIFNOT,MUST JSRBCDSUBSUBINTERNALENERGY JSRPCRLF JSRPCRLF LDXATKENG STXTEMP JSROUTBCD LDX#KATKDNREPORTATTACK JSRPDATA1 LDAB#$FAGOMAKEDAMAGE JSRMANDAM ATTAC2RTS ATTAC3LDX#SHENGYSUBATTACK JSRBCDSUBFROMSHIELDS LDX#KATKUPREPORT JMPPSTRNG SPC1 *ENDOFGAMECLEANUP SPC1 NRGOUTLDX#NMENGSOUTOFENERGY NRGOU1JSRPSTRNG BRAENDGAM NOMTIMLDX#NMTMSTOUTOFTIME BRANRGOU1 NOMKLNLDX#NMKLSTALLKLINGONSGONE! JSRPSTRNG BRAENDGM2 ENDGAMLDX#FAILSTOUTPUTFAILURE JSRPSTRNG BRAENDGM3 ENDGM2LDX#SUCCSTOUTPUTSUCCESS JSRPSTRNG ENDGM3LDX#PLAYAGPLAYAGAIN?? JSRPSTRNG JSRINCHGETRESPONSE CMPA#'N BEQENDGM4 JMPSPAVOY ENDGM4JMPMONTORRETURNTOMONITOR SPC1 *CLEAROUTCURRENTQUADRANT SPC1 CLRCQULDXQUDPTRPOINTTOQUADRANT LDAA0,X SUBAHITKLSCLEARKLINGONS LDABHITSTRCLEARSTARS ASLB ASLB ASLB SBA TSTHITBASCLEARBASE BEQCLRCQ2 ANDA#$BF LDAB#$A STABBASEX STABBASEY CLRCNDFLG CLRCQ2STAA0,X CLRACLEARALLFLAGS STAAHITKLS STAAHITSTR STAAHITBAS RTSRETURN SPC1 *FIXDAMAGES SPC1 FIXDAMLDX#DAMENGPOINTTODAMAGE LDAB#6SETCOUNTER FIXDM1TST0,X BEQFIXDM2 DEC0,X FIXDM2INXLOOPUNTILDONE DECB BNEFIXDM1 RTS SPC1 *SUPERNOVAGENERATOR SPC1 SUPNOVJSRRANDOMGETRANDOMCOORD. ANDA#7 TAB JSRRANDOM ANDA#7 STABTSAVE1SAVE LDX#QUDMAPPOINTTOMAP INCSTPSFL JSRSTPSEX LDAB0,X ANDB#7CLEARANY0 KLINGONS LDAAKLNGCT SBA STAAKLNGCT LDAA#$80CLEAROUTREST STAA0,X LDX#SUPSTR JSRPSTRNGREPORTSUPNOV LDAAASAVE JSRFIXOUTOUTPUTITSLOCATION JSROUTDSH LDAATSAVE1 JSRFIXOUT JMPCOMAND SPC1 *GENERATEMAINDAMAGE SPC1 MANDAMLDX#DAMENGPOINTTODAMAGE MANDM1JSRRANDOM CBACHECKIFDAMAGE BLSMANDM2 JSRRANDOMSETRANDOMYEARS ANDA#3 SEC ADCA0,XADDINDAMAGE STAA0,X MANDM2INX CPX#SUPFLG BNEMANDM1LOOPUNTILDONE TSTDAMSHL BEQMANDM3LOWERSHIELDS CLRSHIELDIFDAMAGED MANDM3RTS SPC1 *REPORTDAMAGE SPC1 RPTDAMLDX#DMGDSTOUTPUTDAMAGE JSRPSTRNG RPTDM8JMPCOMAND SPC1 *DAMAGEREPORT SPC1 DAMRPTLDX#DMRPSTPOINTTODAMAGE JSRPSTRNG LDX#DEVSTRPOINTTODEVICE STXTEMP2 LDX#DAMENG DMRPT2TST0,XSEEIFDAMAGED BEQBMPX4 STXTEMP3 LDXTEMP2 JSRPSTRNGIFITIS,REPORT INX STXTEMP2 LDXTEMP3 LDAB#6SETUPSPACECOUNT OUTS4JSROUTSOUTPUTSPACE DECB BNEOUTS4IFNOT6,REPEAT LDAA0,X JSROUTK0OUTPUTSTATUS DMRPT4INX CPX#SUPFLGLOOPUNTILDONE BNEDMRPT2 BRARPTDM8 BMPX4STXTEMP3SAVEINDEX LDXTEMP2 LDAB#$9BUMP9TIMES INX9DECB INX BNEINX9 STXTEMP2 LDXTEMP3RESTOREINDEX BRADMRPT4 PAGE *STRINGS SPC1 TITLEFCB$A FCC'SPACEVOYAGEV3.2' FCB4 SHTLNGFCB$A FCC'SORL?' FCB4 UPSCASFCC'UP' FCB4 BASINFFCB$A FCC'BASEINQ' FCB4 DOCKEDFCC'DOCKED' FCB4 DNSCASFCC'DN' FCB4 PTEMSTFCC'TUBESEMPTY' FCB4 INTRO1FCB$A,$A FCC'DATE:' FCB4 INTRO2FCC'KLINGONS:' FCB4 INTRO3FCC'YEARS:' FCB4 INTRO4FCC'QUADRANT:' FCB4 INTRO6FCC'SECTOR:' FCB4 COMSTFCB$A FCC'COMMAND:' FCB4 DWNSTFCC'SHIELDSDOWN!' FCB4 UPSTRFCC'SHIELDSUP' FCB4 CRSSTRFCC'COURSE:' FCB4 WRPSTRFCC'WARPFACTOR:' FCB4 BLOKSTFCC'BLOCKEDATS' FCB4 KRMSTRFCC'RAMMEDKLINGONATS' FCB4 GLBNDSFCC'GALAXYLIMIT' FCB4 PHITSTFCC'TORPEDOHIT' FCB4 PNOENGFCC'OUTOFENERGY' FCB4 SDATEFCC'S.DATE:' FCB4 CNDTNSFCC'CNDTN:' FCB4 YELLOWFCC'YELLOW' FCB4 REDFCC'RED' FCB4 GREENFCC'GREEN' FCB4 QUADPFCC'QUDRNT:' FCB4 SECPFCC'SECTOR:' FCB4 ENGSTRFCC'ENERGY:' FCB4 KLSTRFCC'KLINGONS:' FCB4 SHSTRFCC'SHLDS:' FCB4 TRPSTRFCC'TORPEDO:' FCB4 CRLFSTFCB$D,$A,0,0,0,0,4 LRSCSTFCB$A FCC'SCANFORQ' FCB4 MLSHLDFCC'MUSTLOWERSHIELDS' FCB4 ENAVLBFCC'ENERGYAVAILABLE:' FCB4 FIRENGFCC'ENERGY=' FCB4 TOMUCHFCC'ENERGYTOOLOW' FCB4 PHAMISFCC'MISFIRE!' FCB4 ALKILLFCC'ALLLOCALKLINGONSDESTROYED!' FCB4 KHTADMFCC'ENEMYDAMAGED' FCB4 ERRFCC'?' FCB4 STARSTFCC'STAR' FCB4 BASESTFCC'BASE' FCB4 KLGSTRFCC'KLINGON' FCB4 INTRO0FCB$A FCC'PASSWORD..' FCB4 STILFTFCC'KLINGONSLEFT=' FCB4 KATKDNFCC'UNITSHITENTERPRISE' FCB4 KATKUPFCB$A FCC'KLINGONSATTACK:SHIELDSHOLDING' FCB4 DISINTFCC'ENTERPRISEDISINTEGRATES' FCB4 ABORTFCC'SEQUENCEABORT:PASSWORD' FCB4 CANTUSFCC'TOOEARLY!' FCB4 SOMWHRFCC'MALFUNCTION!' FCB4 SPSTRMFCB$A,7 FCC'SPACESTORM:SHIELDSDAMAGED!' FCB4 GALDUMFCB$A,7 FCC'SHIPISFRIEDFOR3RDATTEMPT!' FCB4 NMENGSFCB7 FCC'ENERGY=0' FCB4 NMTMSTFCB7 FCC'TIMEUP!' FCB4 NMKLSTFCB$A,7 FCC'CONGRATULATIONS!' FCB$D,$A,0,0,0,0 FCC'ALLKLINGONSDESTROYED' FCB4 FAILSTFCC'MISSIONAFAILURE' FCB1 4 SUCCSTFCC'THEFEDERATIONISSAVED!' FCB4 SUPDESFCC'SUPERNOVA!' FCB4 SUPSTRFCB$A,7 FCC'SUPERNOVAINQ' FCB4 HEVDAMFCC'BADLY' DMGDSTFCC'DAMAGED' FCB4 DMRPSTFCB$A FCC'DEVICE/YEARSTOREPAIR' FCB4 DEVSTRFCC'ENGINES' FCB4 FCC'SRSCAN' FCB4 FCC'LRSCAN' FCB4 FCC'PHASERS' FCB4 FCC'TORPEDOS' FCB4 FCC'SHIELDS' FCB4 PLAYAGFCB$A FCC'PLAYAGAIN?' FCB4 PAGE *RANDOMNUMBERROUTINE SPC1 RANDOMSTABBSAVESAVETHEBACCUMULATOR LDAB#8SETCOUNTER RPTLDAARNDM+3GETM.S.BYTEOFRANDOMNUMBER ASLASHIFTLEFTTHREETIMES ASLATOGETBIT28 ASLAINLINEWITHBIT31 EORARNDM+3XORAWITHRANDOMNUMBER ASLAPUTBIT28.XOR.31IN ASLACARRYBYSHIFTINGLEFT ROLRNDMROTATEALLFOURBYTESOF ROLRNDM+1THERANDOM#,ROTATING ROLRNDM+2THECARRYINTOTHELSB ROLRNDM+3THEMSBISLOST DECBDECRIMENTTHECOUNTER BNERPTIFITSNOT0,REPEAT LDABBSAVERESTORETHEBACCUMULATOR LDAARNDMPUTRANDOM#INA RTS SPC1 *TEMPORARYSTORAGEAREA SPC1 BSAVERMB1 RNDMRMB4 END  A0010GOTO600 0020INPUT"STARTINGBOOKVALUE",B 0030INPUT"SALVAGEVALUE",S 0040INPUT"LIFE",L 0050LETD=(B-S)/L 0060PRINT 0070DIGITS=2 0080F=ABS(INT(L)-L) 0090RETURN 0100D=(B-S)/L 0110INPUT"YEARS",Y 0120IFY=0THENRETURN 0130T=Y*D 0140R=(L-Y)*D 0150Q=R+S 0160GOSUB180 0170GOTO100 0180PRINT"DEPRECIATION";D 0190PRINTTAB(4);"REMVAL";Q 0200PRINTTAB(3);"REMDEPR";R 0210PRINT 0220PRINT"TOTDEPR";T 0230RETURN 0240I=INT(L) 0250X=((I+1)*(I+2*F))/2 0260INPUT"YEARS",Y 0270IFY=0THENRETURN 0280D=((L+1-Y)/X)*(B-S) 0290T1=((I-Y+1)*(I-Y+2*F))/(2*X) 0300T=(1-T1)*(B-S) 0310R=T1*(B-S) 0320Q=R+S 0330GOSUB180 0340GOTO260 0350REM 0360REM 0370INPUT"FACTOR",N 0380INPUT"YEARS",Y 0390IFY=0THENRETURN 0400PRINTTAB(8);"CALCULATING" 0410X=N/L 0420D=B*(1-X)^(Y-1)*X 0430T=B*(1-((1-X)^Y)) 0440R=(B-S)-T 0450Q=R+S 0460GOSUB180 0470GOTO350 0600REM 0610REM 0620GOSUB1030 0630PRINTTAB(8);"************" 0640PRINT"DEPRECIATIONSCHEDULING&ANALYSIS" 0650PRINT 0660PRINT 0670PRINT"CHOOSEOPERATION" 0680PRINT 0690PRINT 0700PRINT"1.STRAIGHTLINE" 0710PRINT"2.SUMOFYRSDIGITS" 0720PRINT"3.VARRATEDECLBAL" 0730PRINT"4.CALCCROSSOVERPOINT" 0740PRINT"5.ENTERDATA" 0750INPUTC 0760GOSUB1030 0770ONCGOSUB100,240,350,800,20 0780GOSUB1030 0790GOTO630 0800REM 0810REM 0820INPUT"FACTOR",N 0830Y=0 0840Y=Y+1 0850PRINT"CALCULATING.........." 0860X=N/L 0870X1=1-X 0880G=(1-(X1^(Y-1)))/(X1-1) 0890G=(G*B*X)+B-S 0900P=G/(1+(L-Y)) 0910O=(X1^(Y-1))*B*X 0920IFP0THENGOTO230 0110LETP=INT(P/2) 0115PRINT"AHORRIBLEPLAGUESTRUCK!HALFTHEPEOPLEDIED." 0230PRINT"POPULATIONISNOW";P 0232PRINT"THECITYNOWOWNS";A;"ACRES." 0235PRINT"YOUHARVESTED";Y;"BUSHELSPERACRE." 0250PRINT"RATSATE";E;"BUSHELS." 0260PRINT"YOUNOWHAVE";S;"BUSHELSINSTORE" 0265PRINT 0270IFZ=11THENGOTO860 0310LETC=INT(RND*20) 0311LETY=C+17 0312PRINT"LANDISNOWTRADINGAT";Y;"BUSHELSPERACRE." 0320PRINT"HOWMANYACRESDOYOUWISHTOBUY"; 0321INPUTQ 0322IFQ<0THENGOTO850 0323IFQ<=INT(S/Y)THENGOTO330 0324GOSUB710 0325GOTO320 0330IFQ=0THENGOTO340 0331LETA=A+Q 0332LETS=S-Y*Q 0334GOTO354 0340PRINT"HOWMANYACRESDOYOUWISHTOSELL"; 0341INPUTQ 0342IFQ<0THENGOTO850 0343IFQ0THENGOT530 0525LETE=INT(S/C) 0530LETS=S-E+H 0531GOSUB800 0533LETI=INT((20*A+S)/P/100*C+1) 0540LETC=INT(Q/20) 0542LETQ=INT(RND*20) 0550IFPINT(P*45/100)THENGOTO560 0554LETR=INT(((Z-1)*B+D*100/P)/Z) 0555LETP=C 0556LETB=B+D 0557GOTO70 0560PRINT"YOUHAVESTARVED";D;"PEOPLEINONEYEAR!!" 0565PRINT"DUETOTHISEXTREMEMISMANAGEMENTYOUHAVENOTONLY" 0566PRINT"BEENIMPEACHEDANDTHROWNOUTOFOFFICEBUTYOUHAVE" 0567PRINT"ALSOBEENDECLARED'NATIONALFINK'!!" 0568GOTO990 0710PRINT"HAMURABI:THINKAGAIN,YOUHAVEONLY" 0711PRINT"";S;"BUSHELSOFGRAIN.NOWTHEN," 0712RETURN 0720PRINT"HAMURABI:THINKAGAIN.YOUOWNONLY";A; 0725PRINT"ACRES.NOWTHEN," 0730RETURN 0800LETC=INT(RND*10+1) 0801RETURN 0850PRINT 0851PRINT"HAMURABI:ICANNOTDOWHATYOUWISH." 0855PRINT"GETYOURSELFANOTHERSTEWARD!!!!!" 0857GOTO990 0860PRINT"INYOUR10-YEARTERMOFOFFICE,";R;"PERCENTOFTHE" 0862PRINT"POPULATIONSTARVEDPERYEARONAVERAGE,I.E.,ATOTALOF" 0865PRINT"";B;"PEOPLEDIED!!" 0867LETL=INT(A/P) 0870PRINT"YOUSTARTEDWITH10ACRES3 PERPERSONANDENDEDWITH" 0875PRINT"";L;"ACRESPERPERSON." 0877PRINT 0880IFR>33THENGOTO565 0885IFL<7THENGOTO565 0890IFR>10THENGOTO940 0892IFL<9THENGOTO940 0895IFR>3THENGOTO960 0896IFL<10THENGOTO960 0900PRINT"AFANTASTICPERFORMANCE!!!CHARLEMANGE,DISRAELI,AND" 0905PRINT"JEFFERSONCOMBINEDCOULDNOTHAVEDONEBETTER!" 0907GOTO990 0940PRINT"YOURHEAVY-HANDEDPERFORMANCESMACKSOFNERO"; 0942PRINT"ANDIVANIV." 0945PRINT"THEPEOPLE(REMAINING)FINDYOUANUNPLEASANT"; 0947PRINT"RULER,AND," 0950PRINT"FRANKLY,HATEYOURGUTS!" 0955GOTO990 0960PRINT"YOURPERFORMANCECOULDHAVEBEENSOMEWHATBETTER,BUT" 0965PRINT"REALLYWASN'TTOOBADATALL.";INT(RND*100+1)*P; 0966PRINT"PEOPLEWOULD" 0970PRINT"DEARLYLIKETOSEEYOUASSINATEDBUTWEALLHAVEOUR" 0975PRINT"TRIVIALPROBLEMS." 0990PRINT 0995PRINT"SOLONGFORNOW" 0997PRINT 0999END N3LINE=100 4DIGITS=1 5PRINT 7PRINT"LUNARLANDER" 8PRINT 400LETR=4 410PRINT"GOODLUCK" 420PRINT 425LETH=167.3+RND*650 430LETV=H/5 435LETF=(H*4)/55*(R+13) 440LETT=0 445PRINT"SECALT";TAB(14);"VEL";TAB(20);"FUEL" 450PRINTT;TAB(8);H; 451LETQ=V 452IFQ>=0GOTO456 453LETQ=Q*(-1) 454PRINTTAB(14);"-";Q;TAB(20);F; 455GOTO458 456PRINTTAB(13);V;TAB(20);F; 458PRINTTAB(26);"I";TAB(26+H/110);"+"; 459IFH<135THENPRINTTAB(27+H/3);">"; 460PRINT 465IFF>0GOTO495 470PRINT"***OUTOFFUEL***" 475LETB=0 480GOTO515 495PRINT"BURN"; 500INPUTP 502LETB=P 504IFB<0THENB=0 506IFB<=100GOTO515 508LETF=F-(B-100) 510PRINT"JETTISONING";(B-100);"KILOSFUEL!!" 512LETB=B-(B-100) 515LETV=V*10 516LETY=200 517IFH>300GOTO520 518LETH=H*10 519LETY=20 520FORI=1TO10 525LETA=(168-B*24-B*(6/((F/50)+1)))/100 530LETK=V+A 535LETH=H-(K+V)/Y 549LETV=K 550LETF=F-B/10 552IFF<0THENF=0 555IFF=0THENB=0 565LETT=T+.1 567IFH<.2GOTO602 570NEXTI 572IFY=20LETH=H/10 575LETV=V/10 590GOTO450 602LETI=10 604NEXTI 608PRINT 610PRINT"*******" 612PRINT"******CONTACT******" 614PRINT"*******" 620PRINT 630PRINT"TOUCHDOWNAT";T;"SECONDS" 640PRINT"LANDINGVELOCITY=";V/10;"MTRS/SEC" 650PRINT"UNITSOFFUELREMAINING=";F 660PRINT 675IFV>5GOTO700 680PRINT"CONGRATULATIONS!!!!APERFECTLANDING" 690PRINT 695GOSUB1000 697GOTO900 700IFV>10GOTO750 710PRINT"WELL,YOUBENTIT,BUTYOUWILLPROBABLYMAKITBACKHOME" 720GOTO900 750IFV>50GOTO800 760PRINT"YOUBROKEYOURNUMBERTHREELANDINGSTRUTANDBENT" 765PRINT"YOURROCKETNOZZLE.HOUSTONWILLHAVETOSENDARESCUE" 767PRINT"CRAFTAFTERYOU.(HOPEYOUROXYGENHOLDSOUT!!)" 770GOTO900 800PRINT"CONGRATULATIONS!!!YOUHAVEJUSTCREATEDANEWLUNAR" 805PRINT"CRATER";(13+RND*65);"METERSDEEP!!YOURNEXTOFKINHAVE" 807PRINT"BEENNOTIFIED4 THATITWILLBENAMEDAFTERYOU" 900PRINT 910PRINT 920PRINT"DOYOUWANTTOFLYANOTHERMISSION" 930PRINT"1=YES;2=NO"; 940INPUTX 950IFX=1GOTO410 960IFX<>2GOTO920 970PRINT 980PRINT"MISSIONCONTROL-OUT!!!" 990PRINT 999END 1000REM 1010IFR=4PRINT"YOUHAVENOWEARNEDYOUR'STUDENTPILOT'LICENSE" 1100IFR=3PRINT"YOUARENOWARATED'NOVICEPILOT'" 1200IFR=2PRINT"YOUHAVENOWFINALLYEARNEDYOUR'MEDIOCRE'" 1210IFR=2PRINT"RATING.YOUMAYNOWCARRYPASSENGERSANDTRY" 1220IFR=2PRINT"TOKILLTHEMALONGWITHYOURSELF!!" 1300IFR=1PRINT"WELL,IDIDN'TTHINKYOUCOULDDOIT,BUTYOUARE" 1310IFR=1PRINT"NOWA'HOTROCK'PILOT.THISQUALIFIESYOUTOFLY" 1320IFR=1PRINT"THENEXTLUNARLANDINGBYNASA." 1400IFR=0PRINT"HEY!YOU'REBETTERTHANME.LETSOMEBODYELSETRY." 1450IFR=0END 1900LETR=R-1 2000RETURN 5T60090DIMS(7,2) 0100REMINITIALIZEVARIABLES 0110FORI=1TO2 0120FORJ=1TO6 0130S(J,I)=1 0140NEXTJ 0145S(5,I)=100 0150S(7,I)=0 0160NEXTI 0165INPUT"DOYOUWANTDIRECTIONS",A$ 0166IFA$="YES"THEN4070 0170REMGENRANGEANDBRNG 0180PRINT"ENTERSTARDATE"; 0190INPUTA 0200R=20000*RND(A) 0220GOSUB3000 0222B=18*N9/10 0230I=1 0240REMODDMOVESENTERPRISE'S,EVENKLINGON 0250PRINT"KLINGONAPPROACHING" 0260PRINT 0261PRINT 0262R=INT(R) 0263B=INT(B) 0264PRINT"RANGE=";R;"KM.BEARING=";B;"DEGREES" 0265PRINT 0266PRINT 0270PRINT"COMMAND"; 0280INPUTC 0285IFC>9THENC=9 0290ONCGOSUB4000,4010,4020,4030,4040,4050,4060,5000,5020 0300I=1 0310J=2 0320H=0 0330ONCGOSUB790,920,1040,1140,1180,1250,1310,5050,5070 0340GOTO1360 0350REMKLINGONMOVESELECTION 0360I=2 0370REMCHECKKLINGONPHASORSTATUS 0380W=S(1,I)+S(2,I) 0390J=1 0400IFS(3,I)=1THEN405 0401GOTO410 0405IFR>10000THEN407 0406GOTO410 0407IFB<100THEN710 0410IFW>0THEN412 0411GOTO420 0412IFR<20000THEN540 0420IFW<>0THEN480 0430REMATTEMPTTOBREAKCONTACT 0440PRINT"KLINGONATTEMPTSTOBREAKCONTACT" 0450C=5 0460GOSUB1180 0470GOTO1920 0480PRINT"KLINGONMANEUVERINGTOATTACK" 0490C=4 0500GOSUB1140 0510B=0 0520H=0 0530GOTO1920 0540PRINT"KLINGONFIRESPHASOR" 0560IFB<90THEN640 0570IFS(2,I)=0THEN600 0580GOSUB920 0590GOTO1360 0600B=B-90 0610GOSUB790 0620B=B+90 0630GOTO1360 0640IFS(1,I)=0THEN670 0650GOSUB790 0660GOTO1360 0670B=B+90 0680GOSUB920 0690B=B-90 0700GOTO1360 0710PRINT"KLINGONFIRESPHOTONTORPEDO" 0720C=3 0730B2=B 0740GOSUB3000 0745B=N9 0750GOSUB1040 0760B=B2 0770GOTO1360 0780REMFIREFWDPHASORS 0790H=0 0800IFS(1,I)<>0THEN830 0810PRINT"FORWARDPHASORSINOPERABLE" 0820IFI=1THEN260 0830R1=100-R/200 0850IFB>90THEN900 0855IFR>20000THEN900 0860REMGENRANDOMNUMBERININTERVAL0TO1 0870GOSUB3000 0872IFR10THEN960 0930PRINT"REARPHASORSINOPERABLE" 0940REM 0950IFI=1THEN260 0960H=0 5 0970R1=100-R/200 0980REMRANGEBEARINGCHECK 0990IFR>20000THEN1030 0992IFB<90THEN1030 1000GOSUB3000 1002IFR10THEN1080 1060PRINT"PHOTONTORPEDOLAUNCHERDESTROYED" 1070IFI=1THEN260 1080IFR<10000THEN1130 1081IFR>20000THEN1130 1085IFB>90THEN1130 1090R2=(10-10*B/90)*(10-(R-10000)/1000) 1100GOSUB3000 1105IFR225000THEN1230 1200PRINT"CONTACTNOTBROKEN" 1210H=0 1220RETURN 1230PRINT"CONTACTLOST" 1240STOP 1250PRINT"SELFDESTRUCTACTIVATED" 1260FORI=10TO1STEP-1 1270PRINTI 1275R=SIN(I)*SIN(I) 1280NEXTI 1290PRINT"BOOM" 1291R=SIN(I)*SIN(I) 1292PRINT 1293PRINT 1300STOP 1310PRINT 1311X=SIN(I)*SIN(I) 1312PRINT"MESSAGEFROMKLINGON***IACCEPTYOURSURRENDER!!" 1320PRINT"PREPARETOBEBOARDED." 1325PRINT 1326X=SIN(I)*SIN(I)*SIN(I) 1330PRINT"***MESSAGEFROMSTARFLEETCOMMAND" 1340PRINT"YOUDIRTYCOWARD" 1350STOP 1360J=3-I 1370IFI=1THEN1372 1371GOTO1390 1372IFC>3THEN1920 1380REMDAMAGEASSESSMENT 1390IFH<>0THEN1440 1400PRINT"MISS" 1405PRINT 1406X=SIN(I) 1410GOTO1920 1420REMP=DESTRUCTIVEPOWEROFWEAPON.D=INCREMENTALDAMAGEDONE,LIMIT 1430REMTOAMAXVALUEOF2. 1440PRINT"HIT" 1441PRINT 1442X=SIN(I) 1450D=P*(100-S(5,J))/100 1480S(7,J)=S(7,J)+D 1490S(5,J)=S(5,J)-P 1500Z=INT(10-S(7,J)) 1501IFZ>0THEN1510 1502Z=1 1510IFJ=1THEN1580 1520PRINT 1522PRINT 1530PRINT"SCANNERREPORTONKLINGON" 1540IFZ>1THEN1610 1550PRINT"KLINGONDESTROYED!!!!!!HURRAYFORCAPTAINKIRK!!!!" 1555PRINT"YOUAREMAGNIFICENTSIR!!!!!" 1556PRINT 1557PRINT 1560STOP 1570REMDAMAGETOENTERPRIZE 1580PRINT"ENTERPRISEDAMAGEREPORT." 1590IFZ>0THEN1610 1600Z=1 1610ONZGOTO1620,1640,1850,1730,1775,1780,1780,1780,1830,1830 1620PRINT"ENTERPRISEDESTROYED!!!" 1630STOP 1640PRINT"WEAPONSYSTEMDESTROYED" 1650PRINT"WARPDRIVEDESTROYED" 1660PRINT"MAJORSTRUCTURALDAMAGE" 1670PRINT"SHIELDSBUCKLING" 1680S(1,J)=0 1690S(2,J)=0 1700S(3,J)=0 1710S(4,J)=0 1720GOTO1920 1730PRINT"PHASORSDESTROYED" 1740PRINT"MINORDAMAGEAMIDSHIPS" 1750PRINT"SHIELDSWEAKENING.ENERGYLEFT=";S(5,J) 1755S(2,J)=0 1760S(1,J)=S(2,J) 1770GOTO1920 1775PRINT"REARPHASORDESTROYED.ENERGYLEFT=";S(5,J) 1776S(2,J)=0 1777GOTO1920 1780PRINT"FOREWARDPHASORSDESTROYED" 1790PRINT"MINORDAMAGEAMIDSHIPS" 1800PRINT"SHIELDSWEAKENING.ENERGYLEFT=";S(5,J) 1810S(1,J)=0 1820GOTO1920 1830PRINT"NODAMAGE.SHIELDENERGYLEFT=";S(5,J) 1840GOTO1920 1850PRINT"WEAPONSSYSTEMSDEACTIVATED" 1860PRINT"DILITHIUMCRYSTALSOVERHEATING" 1870S(1,J)=0 1880S(2,J)=0 1890S(3,J)=0 1900GOTO1920 1910REMNEWRANGE,BEARING 1920PRINT 1925R3=(S(4,1)+S(4,2))*50+(S(6,1)+S(6,2))*5 1930GOSUB3000 1932R=R+R3*(50-N9)/2 1940R=ABS(R) 1950GOSUB3000 1952B=ABS(B+(50-N9)/2) 1960IFB>180THEN2000 1970I=J 1980J=3-I 1990ONIGOTO260,360 2000B=ABS(360-B) 2010GOTO1970 2090REMRANDOMN9=0TO100 3000N9=100*RND(0) 3010RETURN 4000PRINT"FIREFOWARDPHASORS!!!" 4001PRINT 4005RETURN 4010PRINT"FIREREARPHAS6 ORS!!!" 4011PRINT 4015RETURN 4020PRINT"FIREPHOTONTORPEDO!!!!!" 4021PRINT 4025RETURN 4030PRINT"CLOSEINFORTHEKILL!FULLWARP!!!" 4031PRINT 4035RETURN 4040PRINT"BREAKOFF!!!EMERGENCYWARP!!!" 4041PRINT 4045RETURN 4050PRINT"CAPTAINKIRK,YOUHAVEGONEMAD!!!" 4051PRINT 4055RETURN 4060PRINT"WEHAVENOCHOICE.CONTACTTHEKLINGONSHIP." 4065RETURN 4070PRINT"YOUARECOMMANDERKIRKOFTHESTARSHIPENTERPRISE" 4071PRINT 4072PRINT"YOURAVAILABLECOMMANDSAREASFOLLOWS:" 4073PRINT 4074PRINT"1-FIREFORWARDPHASORS(FORWARDHEMISPHEREONLY)" 4075PRINT"2-FIREREARPHASORS(REARHEMISHPHEREONLY)" 4076PRINT"3-FIREPHOTONTORPEDO(FORWARDHEMISPHEREONLY" 4077PRINT"ANDATRANGESBEYOND10,000KM." 4079PRINT"4-CLOSEINFORTHEKILL" 4081PRINT"5-BREAKCONTACT" 4083PRINT"6-LET'STAKE'EMWITHUS!!!" 4084PRINT"7-SURRENDER" 4085PRINT"8-I'MGETTINGOUTOFHERE" 4086PRINT"9-TRYIT" 4087PRINT 4088PRINT"GOODLUCK!!!!" 4089PRINT 4090GOTO170 5000PRINT"PREPARETHEEMERGENCYLIFESHIP!!!!!" 5005PRINT 5010PRINT 5015RETURN 5020PRINT"ANYSUGGESTIONSDR.SPOCK?" 5025PRINT 5030PRINT 5035RETURN 5050PRINT"GOODBYECREW!!GOODLUCK!!PLEASEDON'TCRYDR.SPOCK!!" 5055PRINT 5060PRINT 5065STOP 5070PRINT"IWOULDSUGGESTWEUSEOURRESERVEENERGYCELL!!" 5075PRINT 5080PRINT"GOODTHINKINGDR.SPOCK!!WISHIHADTHOUGHTOFTHAT!!" 5085FORJ=1TO6 5090S(J,1)=1 5095NEXTJ 5100S(5,1)=90 5105RETURN 5999END 5b50005REMBLACKJACKGAMEWITHCHANCEFORPRIZE 0010DIMC(52),V$(10) 0020PRINT 0050PRINT"WELCOMETOGREG'SHONESTBLACKJACKGAME." 0055PRINT"IFYOUCAN'TWINHERE,YOUCAN'TWINANYWHERE!!!" 0060PRINT"YOUHAVE$1000ANDMAYPLAY20HANDSTOTRYFORACHANCE" 0070PRINT"INOURDRAWING.THEBETLIMITIS$500." 0071PRINT"NORMALLASVEGASRULESAPPLY." 0072PRINT"" 0080PRINT"WHATISYOURNAME"; 0090INPUTN$ 0091PRINT"DOYOUWANTINSTRUCTIONS,";N$; 0092INPUTI$ 0093I$=MID$(I$,1,1) 0095IFI$="Y"THEN3310 0100C=1000 0101H1=0 0110FORK=0TO3 0120FORJ=1TO10 0130C(J+10*K)=J 0140NEXTJ 0150NEXTK 0160FORJ=41TO52 0170C(J)=10 0180NEXTJ 0190V$(1)="A" 0200V$(2)="2" 0210V$(3)="3" 0220V$(4)="4" 0230V$(5)="5" 0240V$(6)="6" 0250V$(7)="7" 0260V$(8)="8" 0270V$(9)="9" 0280V$(10)="10" 0290L=40 0300IFL<40THEN420 0305PRINT"SHUFFLEINPROGRESS." 0310FORJ=1TO52 0320Z=C(J) 0330K=INT(52*RND(0)+1) 0360C(J)=C(K) 0370C(K)=Z 0380NEXTJ 0390L=1 0400PRINT"NEWDECK" 0410PRINT"" 0415PRINT"YOURCARDSDEALERCARDS" 0420T=0 0430T1=0 0440S=0 0450S1=0 0455H1=H1+1 0460IFC<=0THEN3620 0465INPUT"WHATISYOURBET",B 0480IFB>500THEN500 0485IFB<=0THEN3610 0490IFB>CTHEN530 0495GOTO550 0500PRINT"THEBETLIMITIS$500,DUMMY;CAN'TYOUCOUNT???" 0510PRINT"PLEASETRYAGAIN,ANDDOITRIGHT." 0511GOTO465 0515GOTO550 0530PRINT"SORRY,YOUDON'THAVETHATMUCH." 0540GOTO460 0550B1=B 0552B2=0 0555GOSUB2940 0560GOSUB3090 0570PRINT"";V$(C(L-1)) 0580GOSUB2940 0590GOSUB3090 0600H=C(L-1) 0610IFC(L-3)=1THEN2820 0620IFT=21THEN1880 0630IFT1=21THEN1960 06407 INPUTD$ 0645D$=MID$(D$,1,1) 0650IFD$="G"THEN1360 0660IFD$="D"THEN1330 0670IFD$="H"THEN1410 0680IFD$="S"THEN710 0690PRINT"RETYPE" 0700GOTO640 0710IFC(L-2)<>C(L-4)THEN690 0720PRINT"FIRSTHAND" 0730B1=B 0740PRINTV$(C(L-2)); 0750X=C(L-2) 0760T1=X 0770GOSUB2940 0780IFX<>1THEN810 0790T1=T1+10 0800GOTO1020 0810INPUTE$ 0815E$=MID$(E$,1,1) 0820IFE$="G"THEN1020 0830IFE$="D"THEN990 0840IFE$="H"THEN870 0850PRINT"RETYPE" 0860GOTO810 0870GOSUB2940 0880IFT1>0THEN940 0890X1=0 0900C=C-B1 0910B1=0 0920PRINT"BUST" 0930GOTO1050 0940INPUTE$ 0945E$=MID$(E$,1,1) 0950IFE$="G"THEN1020 0960IFE$="H"THEN870 0970PRINT"RETYPE" 0980GOTO940 0990B1=2*B 1000GOSUB2940 1010IFT1=0THEN890 1020PRINT"" 1030PRINT"TOTAL=";T1 1040X1=T1 1050PRINT"SECONDHAND" 1060B2=B 1070PRINTV$(X); 1080T1=X 1090GOSUB2940 1100IFX<>1THEN1130 1110T1=T1+10 1120GOTO1360 1130INPUTE$ 1135E$=MID$(E$,1,1) 1140IFE$="G"THEN1360 1150IFE$="D"THEN1340 1160IFE$="H"THEN1190 1170PRINT"RETYPE" 1180GOTO1130 1190GOSUB2940 1200IFT1>0THEN1280 1210X2=0 1220C=C-B2 1230B2=0 1240PRINT"BUST" 1250IFX1>0THEN1560 1260PRINT"";V$(H) 1270GOTO1660 1280INPUTE$ 1285E$=MID$(E$,1,1) 1290IFE$="G"THEN1360 1300IFE$="H"THEN1190 1310PRINT"RETYPE" 1320GOTO1280 1330B2=B 1340GOSUB2940 1350IFT1=0THEN1210 1360PRINT"" 1370PRINT"TOTAL=";T1 1380B=B1+B2 1390X2=T1 1400GOTO1560 1410GOSUB2940 1420IFT1>0THEN1460 1430PRINT"BUST" 1440PRINT"";V$(H) 1450GOTO1750 1460INPUTD$ 1465D$=MID$(D$,1,1) 1470IFD$="G"THEN1540 1480IFD$="H"THEN1410 1490PRINT"RETYPE" 1500GOTO1460 1510B=2*B 1520GOSUB2940 1530IFT1=0THEN1430 1540PRINT"" 1550PRINT"TOTAL=";T1 1560PRINT"";V$(H) 1570GOTO1600 1580GOSUB3090 1590PRINT"";V$(C(L-1)) 1600IFT<17THEN1580 1610IFT>21THEN1640 1620PRINT"TOTAL=";T 1630GOTO1720 1640PRINT"BUST" 1650C=C+B 1660PRINT"YOUNOWHAVE$";C 1670IFH1>20THEN3600 1680GOTO300 1720IFD$="S"THEN1770 1730IFT1>TTHEN1650 1740IFT1=TTHEN1660 1750B=-B 1760GOTO1650 1770IFT>X1THEN1860 1780IFT=X1THEN1800 1790C=C+B1 1800IFT>X2THEN1840 1810IFT=X2THEN1660 1820C=C+B2 1830GOTO1660 1840C=C-B2 1850GOTO1660 1860C=C-B1 1870GOTO1800 1880IFT1=21THEN1930 1890C=C-B 1900PRINT"";V$(H) 1910PRINT"BLACKJACK!!!" 1920GOTO1660 1930PRINT"BLACKJACK!!!" 1940PRINT"" 1950GOTO1900 1960PRINT"BLACKJACK!!!" 1970PRINT"";V$(H) 1980PRINT"" 1990C=C+1.5*B 2000GOTO1660 2820PRINT"INSURANCE?" 2830INPUTI$ 2835I$=MID$(I$,1,1) 2840IFI$="Y"THEN2870 2850PRINT 2860GOTO620 2870IFT=21THEN2900 2880C=C-B/2 2890GOTO2850 2900PRINT"10" 2910IFT1<>21THEN1910 2920C=C+B 2930GOTO1910 2940IFT1>10THEN2980 2950IFC(L)<>1THEN2980 2960T1=T1+10 2970S1=1 2980T1=T1+C(L) 2990PRINTV$(C(L)); 3000L=L+1 3010IFT1<=21THEN3080 3020IFS1=0THEN3060 3030T1=T1-10 3040S1=0 3050GOTO3080 3060T1=0 3070PRINT 3080RETURN 3090IFT>10THEN3130 3100IFC(L)<>1THEN3130 3110T=T+10 3120S=1 3130T=T+C(L) 3140L=L+1 3150IFT<=21THEN3190 3160IFS=0THEN3190 3170T=T-10 3180S=0 3190RETURN 3310PRINT"THISBLACKJACKGAMEENABLESTHEOPERATORTOPLAYHEAD-" 3320PRINT"TO-HEADWITHTHECOMPUTER,8 SIMULATINGTHEEXACTRULESAS" 3330PRINT"THOSEONTHELASVEGASSTRIP.THECARDSAREDEALTFROMA" 3340PRINT"52-CARDDECKUNTILAHANDSTARTSWITHLESSTHAN12CARDS" 3350PRINT"REMAINING,INWHICHCASEITRESHUFFLES.THEDEALERMUSTHIT" 3360PRINT"THROUGHATOTALOF16ANDSTANDONALL"; 3365PRINT"TOTALSOF17ANDABOVE." 3370PRINT"" 3371PRINT"THEINSURANCEBETISOFFEREDATHALFTHE" 3375PRINT"PLAYERSBETWHEN"; 3380PRINT"THEDEALER'SUP-CARDISANACE." 3390PRINT"YOUMAYDOUBLE-DOWNONANYTWOCARDS,ANDRECEIVEONEMORE" 3395PRINT"CARDWHILETHEORIGINALBETISDOUBLED." 3400PRINT"YOUMAYSPLITANYHANDBUTRESPLITTINGISNOTALLOWED." 3410PRINT"ALSO,ONLYONECARDISDEALTONEACHPAIROFACES." 3415PRINT"YOURCARDSAPPEARINTHEFARLEFTCOLUMN;THEDEALERON" 3420PRINT"THEFARRIGHT." 3425PRINT 3426INPUTX$ 3430PRINT"THECOMMANDSAREASFOLLOWS:" 3440PRINT"HIT(DRAWANOTHERCARD)" 3450PRINT"GOOD(STANDONCURRENTTOTAL)" 3460PRINT"DOUBLE(DOUBLEYOURBETANDDRAWONECARD)" 3470PRINT"SPLIT(FORMTWOHANDSFROMAPAIRWITHTHEORIGINAL" 3480PRINT"BETONEACHHAND" 3490PRINT"" 3491PRINT"COMMANDSMUSTBETYPEDINASTHEFIRSTLETTER." 3495PRINT"GOODLUCK" 3500GOTO100 3600PRINT"YOUAREALLOWEDONLY20HANDS,",N$ 3610IFC>1500THEN3700 3620PRINT"I'MVERYSORRY,",N$;"," 3625PRINT"BUTYOUDIDNOTWINACHANCEATOURDRAWING." 3630IFC>100THEN3650 3640PRINT"MYADVICEWOULDBETOSTAYCLEAROFLASVEGAS!" 3650PRINT"PLEASELETTHENEXTPERSONPLAY." 3655PRINT"IFYOUHAVEANYQUESTIONS,PLEASESEE" 3656PRINT"GREG,HEHASALLOFTHEANSWERS!!!!!!!!!" 3680GOTO20 3700PRINT"CONGRATULATIONS!!!YOUHAVEJUSTWONACHANCEINOUR", 3701PRINT"DRAWING!!!" 3720FORJ=1TO20STEP2 3725X=1 3726X=SIN(X)*SIN(X)*SIN(X) 3730PRINTTAB(J);N$;"ISAWINNER!!!!!!!!" 3732NEXTJ 3740GOTO20 3750END 0FORJ=1TO20STEP2 3725X=1 3726X=SIN(X)*SIN(X)*SIN(X) 3730PRINTTAB(J);N$;"ISAWINNER!!!!!!!!" 3732NEXTJ 3740GOTO20 3750END !q .*KB&  s ~ ~ [ O& nS'|Uq@0# # # # OV}U'V0# # OVTT08Z'~*00!"| q׆@&08072}U'*9 -Wh0X<Y=Faog&90"90G0H |!N"GYmZ& 0 9 192H G ŽI~1~71H.(~T12 % |22&|1 2XXXX2~HGH IJ -~122199;"~ P}T&~ U}g' ~ ~N'HN}&'JN0# f~s0#~ }X*~ HX#N}<*OW<= ν)pgH9 nM1''11|M2}M&'2~W ٽ~<#}f&|W<12 }b'~ PN&3Z R'eZ ]'N'''  g' n r e x'Z 'O 'X1H@ 'v5 '<1H}W' x  ' '1F2H~0OQ3VJP& IO&E Vф*3|OzQ'VDD 3z0&|P9~'5 '59&OZ&qGHV]' J&Z&V'J&} ' 9kR'6' 0&SeR8' TTT0STR@' 0SDR*|g0K0L}M&KILJ&X>oo]'012Z&90Z0V'VVJ&&SV'YYJ&z0&͖S&Z VV$#$9M5L'J&K#V'TTJ&'M})' }p&'59V' YYJ& }e'~ }F&~^|p0-zF*% g"2,}p&  g-}+&*}a& &,H-&~0}*'0IJ:}.'~}/'~KL}p'|)M'+}p'~&~ K`L`}p'9~^}p' KLz0&~1KILJ0# z0'~y}*&~^}p'~1-0GH}*'`KL:}.'~}/'~KGLH|%0z0&½N!G&"H&#$LI" \J"N~./"B">GH 0*|[zTz&|pƽj fv~ *`L& ~ ]`}%&~^~[ 7M&z&zT|[Q'fv & |\G'~L|] D~^./M*z. #|.]*z/9#|/9 ~O+.'9"/#09C' ( # (1257: 59(95X1259 1122 219}c'~ BCDE ýG&|D&|EH&|B&|Ck}B'[ }C'D ~}D'O }E'O~ II@DD8H~*0Oz0&~}d'~ }W' ' X1H  O@X"&AY# ~0# b@>"&JA?#D>?f&[TTv&0F%F$ Z&Fz0& F @1>5@1X~@A/# }'&xAy@Z&AA C' 9'9"9|'9Ym& Z&~ ]Ƚ~;"!}h&%0#|h0"!G"H~[~ 0G0H }&&90"0i&XXi1}W&Xi1Hw' 9<~: F P  "N'~~k[\XXX}]' !"NO[\]9am'jZ&900Zq| TTV`Z`~a0# 0 g&}f'W9̽~Խ3am'!^33^*Z&xg& ^3 Z&3^ SPACE VOYAGE V3.2 S OR L?  UP BASE IN QDOCKED DNTUBES EMPTY DATE: KLINGONS: YEARS: QUADRANT: SECTOR:  COMMAND: SHIELDS DOWN!SHIELDS UPCOURSE: WARP FACTOR: BLOCKED AT SRAMMED KLINGON AT SGALAXY LIMITTORPEDO HIT OUT OF ENERGY S.DATE:  CNDTN: YELLOWREDGREEN QUDRNT:  SECTOR:  ENERGY:  KLINGONS:  SHLDS:  TORPEDO:   SCAN FOR QMUST LOWER SHIELDSENERGY AVAILABLE: ENERGY = ENERGY TOO LOWMISFIRE!ALL LOCAL KLINGONS DESTROYED!ENEMY DAMAGED ? STARBASEKLINGON PASSWORD.. KLINGONS LEFT =  UNITS HIT ENTERPRISE KLINGONS ATTACK: SHIELDS HOLDINGENTERPRISE DISINTEGRATESSEQUENCE ABORT: PASSWORDTOO EARLY!MALFUNCTION! SPACE STORM: SHIELDS DAMAGED! SHIP IS FRIED FOR 3RD ATTEMPT!ENERGY = 0TIME UP! CONGRATULATIONS! ALL KLINGONS DESTROYEDMISSION A FAILURETHE FEDERATION IS SAVED!SUPERNOVA! SUPERNOVA IN QBADLY DAMAGED DEVICE/YEARS TO REPAIRENGINES SR SCAN LR SCAN PHASERS TORPEDOSSHIELDS  PLAY AGAIN? VZHHHZHHy: WyXyYyZZ&VW9**" 1050FORN=1TO10 1060PRINT 1070NEXTN 1080RETURN { &0203 MDOSOV5 SY!!!!"=DKCF">" "#2DKCHAIN SY#3# } }"HM" !! ! "" ILLEGAL NESTING OF CHAIN COMMANDSCHAIN.SY DOES NOT EXISTLABEL TABLE OVERFLOW ON LINE :SOURCE SYNTAX ERRORILLEGAL OPERATORINVALID CONDITIONAL EXPRESSIONILLEGAL NESTING OF CONDITIONALSEXECUTION OPERATOR OPERAND ERRORVALUE TOO LARGE FOR FIELDEND FILE REACHED BEFORE LAST XIF FOUNDUNDEFINED LABELS FOUNDOUTPUT RECORD BUFFER OVERFLOW$!?'/~.!! 'O, ,? &NN!PN?]&~&~&<'B!' N&/!Ձ &("?%$!')N&?$C~-~.$e ~.O, ,?&A ' RR' R ?&( ! ! $3,! ! _!? ~. &N[ 'J;' &=N O+$0'. '/,'%&"_N-? '%'\ &N -?%& ~.!?&| ?&| "?'~.| ?&|  "? !?)$*(+;? $~-((!?' &\~+f!["]-?*&/&ѽ--K*'[AB' @'/&--K \'%'= 'T\&-? ' --? ~.$? (N$PN.$? !? ~-φ+$'ԁ%&]'Ŧ-Z& -"@'#/' "?&~'"*'( @"? "] & [-K[ ; [".'Á*'" ' ,' '~((7$$-3'7$?'3(') &$~(=nELSE)!IFC ) IFS ) XIF )-XIF )-ABOR)5CMD)JMP)LBL)SET* TST*(O*')]*"~'"I&0** ** ~-;;';9;+' ;Ā9$~("[-K[ [N+$ ')"C' "S'N.' ',& N& &9$~([O&N ' FF& +I~(L%~(O+$' &]'+ *l O+$'؁ &]'+ *l~)½*%-R &P+E "*~)~)Ƚ*%+%E '-R &*%ޖS*N@'T?SRN+ET+ER~) LH?'" JH.L9_",&<-?6-? ' &;-K[ [2W'S'T'M&  RNPsNsO 9 9|REFzR' HY$%'~(P&Q&?%T9-?-?+-&' +E& 9S-? ',& 9EQ'NE>"LT%GE$LE#BSBC  6H$#-J-Z&2~-;+'%A~- "',l*,l %h !??,"?'&,? """"  $'&-$;,~&~.G H"LJ_&?*$?/%$}~-͗G H&LJ }_-?,r' '\ _ 9]'6HJ'&$$-'0$ 0. G&$$-Co?$L_2M 9=2 9L?(9 '.' ,'%' 96_!?! ! ! ! ! ! !P !! ! $+,2M& ?2 ?&?3 9. 99VVVV9Y]#3' "]Y9%~-Y[ Y[[Y9 '9 7VEݽ.%E.FFZ&ɗX2XV]9VACVA?9 6----.29V=?V=?9? '"J'J'J' "?'_? "?!?!??_? ]&~.l&l.......o%.l .670 'Z&32.l&ll&lj ,. m&jj.l&lj&.O9'd ]'/l&l..ܦ #0m&jj.܍ Z&.96dfJ&296hiJ&29A% 62% 0%62%9LISTSTAR.SB;L LISTLANDER.SB;L LISTBJ.SB;L LISTHAMURABI.SB;L LISTLUNAR.SB;L LISTSTORY.SB;L LISTROULETTE.SB;L   0203'E& ? %?_C'$"? "? "Y'?L - "J'J@'3 D"/O*_Z&Lm*\K\$)T*"Ou$# ,,? %?)%$ "*!! "J*x%$DDDD"+#"/#p|Ƃ$& "O2~ '*J&*΂"a΃z΁΂''p|z"a΃~@'"_'#_''''΁ƭ#L#$~!l*||Gr$~ |"!"%~ ? 9+%"6>J9<>%+9'*J&Z&΁'*J&Z&9'"5~ DRIVE 1 SCRATCH? < 0010PRINT"INPUTBIRTHDATEM2,D2,Y2"; 0020INPUTM2,D2,Y2 0030PRINT"INPUTDSTARTDATEM3,D3,Y3"; 0040INPUTM3,D3,Y3 0460D1=D3 0470M1=M3 0480Y1=Y3 0490GOSUB9040 0500A=I1 0510D1=D2 0520M1=M2 0530Y1=Y2 0540GOSUB9040 0550A=A-I+365*(Y3-Y2) 0570FORI=Y2TOY3 0580IFI/4=INT(I/4)THENA=A+1 0590NEXTI 0593PRINT"THEVALUEOFAIS";A 0594END 9040I1=0 9050J=M1-1 9060FORI=1TOJ 9070I1=I1+D(I) 9075NEXTI 9080I1=I1+D1 9090X=Y1-(INT(Y1/4)*4) 9096IFM1>2THEN9100 9100IFX=0THENI1=I1+1 9200RETURN 0090PRINT 0100PRINT"WEAREGOINGTOWRITEASTORY.YOUWILLPROVIDEMEWITH" 0110PRINT"THEWORDSTHATIREQUEST,ANDIWILLWRITETHESTORY" 0120PRINT 0130INPUT"PLEASEENTERYOURNAME",A$ 0140PRINT 0150PRINT"ALRIGHT";A$;"LETSSTARTWITHANICEWARMCOLOR"; 0160INPUTB$ 0170INPUT"VERYGOOD;NOWENTERATYPEOFCONTAINER",C$ 0180PRINT"ANDSOMETHINGTOPUTINTHE";C$; 0190INPUTD$ 0200INPUT"NOWPLEASEENTERAPIECEOFFURNITURE",E$ 0205T=70 0210PRINT"HMMMA";E$;".NOWTHATSDIFFERENT!!!" 0215GOSUB6000 0220INPUT"NOWINEEDADARKSINISTERCOLOR",F$ 0230PRINT"NOW";A$;"PLEASEENTERAPIECEOFCLOTHING"; 0240INPUTG$ 0245INPUT"ENTERAPERSONALVERB(CHEW,LOOK).",O$ 0250INPUT"NOWENTERADISCRIPTIVESIZE(HUGE,LITTLE).",H$ 0255INPUT"ENTERANOTHERDISCRIPTIVESIZE",N$ 0260INPUT"NOWINEEDADISCRIPTIVEACTIONWORD(JUMP)",I$ 0270INPUT"NOWENTERPLURALBODYPARTS",J$ 0280PRINT"YOUKNOW";A$;".YOUWOULDBESUPPRISEDHOWMANY"; 0290PRINT"PEOPLESAY";J$ 0300PRINT"WELL";A$;"DON'TWORRYABOUTITWEWILLMOVERIGHTON" 0305GOSUB6000 0310INPUT"ENTERYOUROCCUPATIONPLEASE.",K$ 0320PRINT"NOW";A$;"ENTERATYPEOFDWELLING"; 0330INPUTL$ 0340INPUT"SELECTATYPEOFFOOD",P$ 0350INPUT"ANDLASTENTERANOTHERPIECEOFCLOTHING",M$ 0360PRINT"ALRIGHTTHATSHOULDDOITGIVEMEAMINUTETOTHINK" 0370T=400 0380GOSUB6000 0500PRINT#2;CHR$(27);CHR$(69) 0700PRINT#2;TAB(26);H$;"";B$;"RIDING";G$ 0710PRINT#2; 0720PRINT#2; 0750PRINT#2;"ONEDAY";H$;"";B$;"RIDING";G$;"'SMOTHERTOLDHERTO" 0760PRINT#2;"TAKEA";C$;"OF";D$;"TOGRANDMOTHER'S";L$;".";B$ 0770PRINT#2;"TOOKTHE";C$;"ANDSETOFFTHROUGHTHEWOODSWERESHECAME" 0780PRINT#2;"ACROSSA";N$;"";F$;"";A$;"." 0790PRINT#2;"WHATDOYOUHAVEINTHE";C$;"";H$;"";B$;"RIDING";G$;"." 0800PRINT#2;"SAIDTHE";N$;"";F$;"";A$ 0810PRINT#2;"IHAVE";D$;"'STHATIMTAKINGTOMYGRANNIES";L$;"." 0820PRINT#2;"THE";A$;"QUICKLYTOOKTHESHORTCUTTOGRANNIES";L$ 0830PRINT#2;"ATEGRANNIE,ANDPUTONHER";M$;"ANDCLIMBEDINTOHER";E$;"." 0840PRINT#2;"ABOUTTHISTIME";H$;"";B$;"RIDING";G$;"W= ASKNOCKING" 0850PRINT#2;"ATTHEDOOR." 0860PRINT#2;"COMEIN.SAIDTHE";A$;"." 0870PRINT#2;H$;"";B$;"RIDING";G$;"WENTINTOTHEROOMANDSETTHE" 0880PRINT#2;C$;"OF";D$;"DOWNANDSAID." 0890PRINT#2;"GRANNIEWHATBIG";J$;"'SYOUHAVE!" 0900PRINT#2;"THEBETTERTO";O$;"YOUWITHMYDEAR.SAIDTHE";A$;"." 0910PRINT#2;B$;"RANFROMTHEROOM,OUTOFTHE";L$;"ANDFOUNDTHE" 0920PRINT#2;"LOCAL";K$;"WHOCHOPPEDOFFTHEHEADOFTHE";A$;"." 0930PRINT#2;"";H$;"";B$;"RIDING";G$;"ANDTHE";K$;"WERESOONMARRIED." 0940PRINT 0960T=40 0970GOSUB6000 0980PRINT"DONTYOUJUSTLIKEASTORYWITHAHAPPYENDING"; 0990INPUTQ$ 1000PRINT 1010PRINT 1020IFQ$="Y"THEN5000 1025PRINTTAB(5); 1030PRINT"WELL";A$;".THATSJUSTTOUGHSHIT..." 1040PRINT 5000END 6000FORY=1TOT 6010REMSLEEPFOR"T" 6020NEXTY 6030RETURN > ? @ A B C D E F G H I J K L