IMD 1.16: 16/08/2007 16:39:22 basic compiler (mdos 2.01)  MDOS02010201112478BASIC COMPILER \lxLIST CMrMDOSOV0 SY\rDIR CM|rMERGE CMrMDOSOV4 SYrUG20S LXxMDOS SYrMDOSOV6 SYrFREE CMrDUMP CMrNAME CMrMDOSOV1 SYlrCOMPILE CMrASSEMBLECMrRUN CM0rUG20S SA EMDOSOV3 SYrMDOSER SYeDEL CMtrBACKUP CMtrREPAIR CMrBIO SCEMDOSOV5 SYrDOSGEN CMrCOPY CM\rMDOSOV2 SYxr|uu+.HYHYwvz{67xS66~m? ~S@?@0201 CN0 LP0 DK0MDOSER SY 0&'L/&04315X%;$*DzU062T06336;!b~nWno%(4]_fo|  b\lrAD"gggg}*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 OI670$1'24'.8'*9'& 320$'90? ?0j'&?.Y$u Vx~9?*?/% 629~*' '  f "uS|u~DK9LPFCRSCP`CNmHRzr 1 *Q{e W T Q NS*"' "!$%3l&l && l&l"!$E011n0~Ao'  ''  9? "! '  9&' ++& +|$~) 66?240?311116L6*5i+`32P@$Z73$O_ ?(?!I% ~C~+|_?3?*67)*0l&ll&l&&11~&0 09 |?3?+?$~C?26 HYHY01674 0+??31111  +  l&l 9    }* |S6]3&l f09~~  U Rz )&}* V )H7F $9ц 1 ' G$ 9 9W )}*7 _ 011n~϶?}& W~ K~ e~ ~ ~ & }*] &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# "GY9JO' V$]'~ RJ(&J*x&'0`J@&"?$ &~ c ? ? &~ g & sTxV VWX?)XV $~ kXJ'?(Z %J' Z_?]&J'bJ&8'\ O K5 }a& ZKL76^_76~m\VZ'5 սmVW0\]0&_9 90OP 9    TRS`Q?Tz\9?$V?/$11 X?&?/%9aJ8& ' |a?-9  ?.90`RTuvV9Tv'# XX?Tu'JYY$|X911~ goc' 9J*'9S>7=#I9n p{'j?' &9&l =7 _HY?)=?#3 *57='>&ܽ03'_\'05533 }>&|>Pm'С&~o 3?m''?' |4&|3ih 5 * $! 95;799?;.;9?7;:597979566$|5:&99979:G88$|7 0 7~626 29DDDD09#90 138 "#$ % &  ' ( )*+,-.INVALID MESSAGE \3 AT \8UNIF. I/O ERROR-STATUS=\3 AT \8PROM I/O ERROR-STATUS=\3 AT XXXX ON DRIVE X-PSN XXXX0MDOSOV SYs~/ ~1 ~3 ~5g0_\$uH6@?% 20 ~V S          6666666666 ~  >>>>>  FF {966~966&~A66+~I66-~Q229 N v M'  * /| x?%( x& z? ? z? v9V S  ~~66666666PO'н$~ RR?R  RWP '; YZ9R ]]?_]$~Y?'_g _ gUOT?_'~a&.%,_e[%& % [[  ~$~cab%'P &_~xaaR'$ a&~RS?&$ P&aRPm &m ' ' gc'~c_R[__[ [&OT?P &WƀO?ZWc?1?1U UOT?Wm+ ]cg'KR[_ $[\\?,RcY?)c\Y]] gR&~=] ][ & ]] a_R?&$SaaR?,Rc?(c[aY]~eWYgh&^gXXZe?'_bʀ]OT?P &UVP _9Pghef_` ۽XXe?'eY~F 9     POWP &~ɽtmkWii?P'~P]TTT-#~UVOT?]XXXXW?''~ƀWO?P UOT?Po o mm*~]UOT?]* OT?~R_%S__RZR&]] ?0?0[W]]*~ͽRS_R[\%R?.[\]][&ǽPʀ]]Wt?)]' ]oo OT?Y~{S\\_?(Y_\]]~_`$9 W?( 9TFVFVD6YYYO FZ,29__9[ab$ [aec9b|WW\7b?%39ZXX7b?%3O?*9]WX?-bm?)Y9н$11~UOT?Wm+ \: /11~'9 66~~~W~@~u~o~r90909S0op]''d*&ց.&PƂp]' *&ʍ:& 0?p 0?090 ;' ' 0 l&l9u #'zƀ ?6Bŀ& '@'?$ @?%?0]'Z0T?%0 ?')760' ?0 ?23*& B?$?$*1906?290?ƈp~_6'-  ?-?&0 5?&?)   ?/%(?/$! 0m& _2W9 @&- $*?%$ ?%;'?/'; ~ ~~;'=;DK&~=J0 %Z=]' ?(Z ='=oo' 0=>=0  @ ? 09 0 =? $ ?(z?& ~6 @'' ?2oo?3oo  29'~ '~&~|'''~&'| &&o o  's$~?@}&~'~}*~%ml&l &}/%}& |&Ͻ 0}& }'7%"3&' &  ~$~~(~$6~&%}'  '!}, & '  $~%~}&| &P~9}. ~% ~% }.~9E}+ H}'D~$~O}+ ?.]'~ǁ$L}&| '~%B}*~~}'7TTTT3% 90:%9ʀ  ' 73]' 9X~~>>> _B@>@'~/&~1 &a$~<CI@}B&'''~8~}E>D'|D@ - Z.k$~<%_ F$~@}D'Z& 'M&ZJ@C?%k$~<&~C&(%@G@G?/'Gk% L'S& &8@}D'}F& $~<}I'~@}C'~IU@o_96'&|I]*'G zG' ~$~@}B'H' 6' E&|I D' J}B&t@&iE%K&~Q}I'&}B'&zK' %ؽ %}J&̽% &@&'m&jj~; 0] 9 U  }B&   7>@39>@9@@> @9@ %%"$1111~QXXXX% % 90%% *% 9}E+99JJ97 &a39 k% k9@?/9@}E&M&ZJ97%3b@9C39>9   >>~~X~N'~B PQ&P NNo_9P'' N '~N''&?8'~:N@' D &'8&]'/?/')N!"?/%o N ?ߤ]'~:Noo&~, &QN'~FR VDDD-#~JTUS?RXXXXV?'?N S?N ?'?"%~,0] 9   &0o_90?&\TTT-R# L ?0XXXX?'''0 ?'6 ?20?90 9  &~ 0 ' & ?$~ӽ'M    '~&& ?_9 ?%~ '   ?' ?'??  @?%!?&~e 9   ??9HHHH?(VVV9"(ss~yFr&~#@ &~'tr''~Kt&.~+Wo_9t'r?'&~~| t &~/at&~r ?'?$' ? ?r&~~3r' '~Goo oowr yv?y*~7r y:m+Z&~7r~}'~W?6'~m ' ?'wry w?&rwr ?'yw?~r r?' ' ' t@&~/ar&t& r62''& t&~Kt&~r ?'?$&~;&~?&~C ? ?r~C' ''~K}'~rrr ?'?$r?%?'?$rW?7m&~~t&~+``&a~0] 9           r9tr$11~O9$XssF~y~ :@vN FTWARE DYNAMICS TER DISK IN DRIVE 0, AND A SCRATCH DISK IN DRIVE 1 ? 9 sEND CHAINHHHHC'1~w? $0 |  ?' |? %@'C\&|0$ ']'Z 09)~w~||~9*'..'*WJ'tC'fL'_^S&~^T'%2 6~'? 2.&4? ? $~ #6?/  2~Ѷ~ |@L&W& Ҷ~ O 6?&%2M' ~&? ||xw_?9 &4'3~w+4 ?& ?&? ~y~?'||||62&~9 ? ???oo0+( # + . |7xy~Z&3Z&9&p~ !_?o_!Z?!]!0&%!] !3&!_!!a!_?' RI S ? '~ U~ H @'E @' {'3j? , ?%?%E?%?%j?%?%!*? =3O? ? _3!6!:!80CM!C!6?]&*!6!:?'''' ? ~ !S? ƀ?#~  MDOS . !f!WHAT?!f!cN  ( 0BCOMMANDSYNTAXERROR 05NAMEREQUIRED 06\0DOESNOTEXIST 08\0DUPLICATEFILENAME 1BFILENAMENOTFOUND 1ADUPLICATEFILENAME 0DOPTIONCONFLICT 30CHAINABORTED--BREAKKEY 31CHAINABORTED--SYSTEMERRORSTATUSWORD 1CFILEISDELETEPROTECTED 24DEVICENOTREADYAT\8 0EINVALIDTYPEOFOBJECTFILE 0FINVALIDLOADADDRESS 13INVALIDFILETYPE 1ECONFLICTINGFILETYPES 1F\0HASINVALIDFILETYPE 27INVALIDDATATRANSFERTYPEAT\8 22DEVICEALREADYRESERVEDAT\8 23DEVICENOTRESERVEDAT\8 25FILENOTOPENORALREADYOPENAT\8 26ENDOFFILEAT\8 29BUFFEROVERFLOWAT\8 2ACHECKSUMERRORAT\8 15LOGICALSECTORNUMBEROUTOFRANGE 07ILLEGALFILENAME 2BFILEISWRITEPROTECTEDAT\8 20\0ISWRITEPROTECTED 09NOSUCHDEVICE 04ILLEGALDRIVENUMBER 12INVALIDEXECUTIONADDRESS 0AINVALIDDEVICE 11INVALIDRIB 1DTOOMANYSOURCEFILES 16ILLEGALSTART/ENDSPECIFICATIONS 17ILLEGALPAGEFORMAT 14FILEEXHAUSTEDBEFORELINEFOUND 28ENDOFMEDIAAT\8 18ILLEGALLINENUMBERORRANGE 19LINENUMBERENTEREDBEFORESOURCEFILE 02DIRECTORYSPACEFULL 03DISKSPACEFULL 10NOTENOUGHSEGMENTDESCRIPTORSPACE 2CINVALIDDIRECTORYENTRYNO.AT\8 2DCANNOTDE-ALLOCATEALLSPACE-DIRECTORYENTRYEXISTSAT\8 2ERECORDLENGTHTOOLONGAT\8 0CINTERNALSYSTEMERRORAT\8 21INVALIDSCALL 2FCHAINOVERLAYCANNOTBEFOUNDORLOADED 32CHAINABORTED--ILLEGALOPERATOR 33CHAINABORTED--UNDEFINEDLABEL 34CHAINABORTED--PREMATUREENDOFFILE |,@Lx ~!z~;So$~r~s:~s~u~v,~v~s~s~t~t~se~vn~wc~wl~w~wu~w{rzqNq~9~x~r{o&pqpCOPYRIGHT (C) 1976 TERRILL M. MOORE ; 2--q"#'~,Z]'"}&ކ'y'9-59|"=;'"ލ(+2"L " "*!;! !2"L " ";! ! 떙'2i09!..! " " 2("9_2"L " ";! !( $9*z|99011' m&nn011-.nm&n> :62.* &@" @0116v&vw&wx%x29011'm&nm&ny&5ކ'+3(ކ ߆. ߆9"~#߆(9-~5@~5)n3T&/3c&*8#u&&#'@ 9' 9*#+#+##+b#+K#+J#+Z#)#*,Z##|&"z &y-zy.8+J& .79;].|y~#0"~,Z'z ɗyz ~$~$$&3T&,'T`T&% dAT&T&xa& b&c' #f UV.OT,!3i1)&31&.AO`'L`& TV642"&3iV0%B$&V,"O $&T-'3&S8:'642'63i2' |&z6"2'ڠנ '@ڠנ:62'@&1~54$(Z2"L+%$-%$#%;2)@]W&M'8͖^8ͽ1)~52.(]'&^+" ܽ.(] &9%P&& &'&=&TDFFUUU'%%& ]' }^,C'"OU8ͽ1^8~5h~&&' #&._99&15&:&O]^11]'" U8 &(1(н1)&ɍ&&,'ͽ. X`&~1 .W&]&11~%tT- 'OU~%~3i%.0U8͖] ŖU"'%&O T ѽ.,&"W'R'^]Ђ^'- "^~%sC&S], ABAADCADDANDASLHASRGBCC$BCS%BEQ'BGE,BGT.BHI"BITBLE/BLS#BLT-BMI+BNE&BPL*BRA BSRBVC(BVS)CBACLC CLICLROCLV CMPCOMCCPXDAADECJDES4DEX EORINCLINS1INXJMPNJSRLDALDSLDXLSRDNEG@NOPORAPSH6PUL2ROLIRORFRTI;RTS9SBASBCSEC SEISEV SK1SK2STASTSSTXSUBSWI?TABTAPTBATPATSTMTSX0TXS5WAI>'')BEQU')BSET()RMB()FCB().FDB(#)BORG(,*BNAM(6*BNAME(@+~WITH(I,ZEND(S*JPAGE(^*JTITLE(i* SPACE(r* SPC({)FCC()T LIST()PCC() PSR() PGEN() PCA()&RPT(*2DO(+K ELSE(+Z FIN(+2IF(+J ELSEIF(+b2CASE(+#2IFUND)*I TABS) ,ZMON)?OPT+]' C&^-"^8ͽ1)9]8͖^8ͽ1)91)|Z&]^9~.(C &R'7.(3W&]/ 7" 2  @  ν.=&],߆ .=&1]߁4ս9~9;.(14 .=14 )@.?9^]9 ]0&0',&H&15],"22 &]/O ] 8 2' &" 7ʀ83] ] &( >zߓ>y.(^]' "7ߓ9ޓ/ߓ>'o1)>y > #> ".=]. ^]'S#I C? h :4]&(2 '*;& 4'R'_4\4]' 24 &o9S'օ'6752J.9.=]-&^#" .=].OLy~9;]^1)&1&3&'|^ ۽" }'OJy9~"'J9.=]']-^*" ؗy91)&,'9'" +˽3& 61)&5'|Z9.(]& 254^492~"++;%MCM+;(NMCM+;%LN+;(NLN+;% LF,;(NLF, ;%@DMP,;(NDMP,;%EL,&;(NEL,.+WI,6+DE,?;%LST,I;(NLST,Q;-DO;0NDOކ-"'"R'59斅<;5 ;-9ѽ-V~!|pa757578|x'%'&&,߽8|Ox8,ս8|:7p~*, , No Errors. At Least One Error. 'ux'q*-H8|75t'aֈ78-7tt8ֈ2  " 7Z. # Error Lines: ?4' 4Z&9po&P֙S &~z7ߓ>q9 o&>`o@G&  ߋ4-6446-&?tߝ7:p9?@EB7??@GOLRΗ~:&('Z O]^W~"1)|Z'(9'1)|Z'~"3iȌW'O]^W"L9*OW6`..x...*O]^|Z~"4D_WW^]670..k.k|Z[0[#8&2[7 1)' 1)~"LQ'"AB$S&p ٖց ~.k"L0 A/1B/AQ0R0$a/I!/k$/s"/{T0(S086/5/2/3/1/4/q/r/s/t/7/8/:/9/~.kP111~.@ 8m, TFl&l- .m'HYj&j  č   09;'L 4' .. (- ", / % " # $ 0&_729O_0~/=0  _O00.L ~.[&2]3^19%k100  102' 32 O0,0.M'9.&02~",02h1i0i3i23/62.%223l11Z&90O_.2XIi3i2$-,j0.012' 92"bAZ0az00900~299:$@%'() ;,. 011X77011n$|Z&,9'~"&, '|Z 9Z' XYZ9(001?2@1222r22222OXO]^@'" .!7x^y]$"T&3^^ 'XY(96'2X' 12" 70"b091AZ1Z'3~270_39(40^]0&!06]^XI76XIXI0]^111 ؽ2&XY0''XY' 2"~12-2)4 (7~1VHOQB$@%~1U262(``40'& `'\4 2~1( '(^]~1"O (( 9( (9 ' '(  Ն 2 - _.3%( ],P 30m,2]& )&90770$l119+-&*#/!\ <>=#a6/TR!"!<:S<8=42>7/9=31<4>35$15&1)9'~3&15 "1)'&,'&9[OIZ&H6?60119֋67қ"119011ߋ9Ì8`8'#&84a664&4J&8O989`73&"4>u4>w>r>t1 ,?43[6446Z&8ދoo893' _]_]'"'"9~3O__3' R'" '<'>8&(&_&$8]'"8_]^9_&~"ށ]OWOW_"15|Z.44~"},'94z : R'Yօp&'K5g''>m&ޕ8|8& 7}|858|ލ8| '75& p9@@5tvvw$B78|B8|B75B M.'ٍ ŖR'!'t44'4z&4|&93'6ooz{|}4679Illegal Label.Syntax Error.Illegal Argument.Undefined Symbol.Double Definition.Use of Doubly-defined Symbol.Nesting Error.End of Source File Encountered.Overflow.BRA/BSR Out of Range.Illegal Value.Illegal Digit.Out of Memory.Illegal String.Phase Error.Register Field Missing. *** 739M+ '] ' .@6^2 R': '5֑ш#.S& 6֒S8 2 -|֙'6 2p' ֚'~:79zS9ш# 'ޓ_'"\m&]' %-5=>`4 5 4 86644J&o9972 ~7 MAL/6800 1.2: ; Page ; Form (S "S9p6p668ߓ7ߍR>C><75>`47/~A~"=7{z07? 7575222p9&9@A7@77011 76_ 76 090697@0&'7@Z2&972Z&9֣&6F29kށ߁ޡ%o''ߡ95ޕߡo9 62DDDD09/9ޡ  ϖ *S*9ޡ& ޡ]^ 0116ޡ'ߡ6 6nޝ?&*|9011'  n97~::R'/֙')6֟##S1L?t&LCƍ 6?toߝ29֙'S9 9\& , M' &֙ &\9:~ &6 ' ,6^2@297< 7< M'3<9011&n_ާ'\ &o9:P SOFTWARE DYNAMICS MAL/6800, Version 1.2 / 77E4 *:߉:PSource File=^' :߉:PListing File=?&F  8:߉:PBinary File=&   )߉9ލ:`ލZ999 ' ' )7:PI/O Error #3OZ&9:":":P މ*nލ s&AR&)6>:":`Z'-3'&4q45I~8|****889       rzxo0x}x?x  qoZ&o0 ' ' & xxxxx '+;'|x xx 'Z.@/qJ& xxvo xx' x_t ~vnILLEGAL SWITCH rzwo sF$'t s:~vnFROMNOVA.SA  O&)V$''''' 9 999@99wݽwx!x?x& &~x 0xooo?xo)o*o+o(o'o9wݽwx!x?x& @&~x 3 wݽx 'tu֦&?x?x9wݽx ':tux&0+,hYI+$xuxTOx )*o%o(9~x~xwݽxtl%&&.(&#t$#M'+ ''""#9(j( 9 o%9wݽxo(t&&t$9O9&9'! ' )& u% 9)xl*&l)u 9~x)&Lxx'ƀ? xO ?x' ' '~xͦ)*)x*' l*&l) &o)o* 9wݽx o%xt96x''to'29wݽxl%x & 'l''&o't9ȁ"o% '( '3)&6u2xo+l+l*&l)) u9~x'xx? 9x)& x)*)x)* ' 'l*&l)9x?xo)o*9x) *o&& + ?x' &Al&l&lƀO?x 9 9x* ")!%x+'6m&jj?x2o+o)o*9~x͆wx!x?x'"?x٦ ?x9~xwx!zyDK&/0111 wݽx!zyz&z{z&vg?]&9z{z~x?wݦ&xs:zxx*96xxx76ؽw0112rxwcM&\sS&s9'R1&xSxLxGxx&xx7zx'xo"&$x#xx |x'~x~xs:xns$HHHH6s$ 3xx911 Ɂ9#G% 90%0 9A%7 9wݽx&9wݽx%9w9w91-03-7812:01 AM yxwxx x?'xxxxx!"zxx*wچ_r9#CNx"xxxxXx?'x9~x'o%o&o'o(o)o*o+9~x&9~xxDK SA0 ?'x?xxx'M"Io'xx?x; o&o&xx?&#&ŀ&9x  9M*_x? 9$"  0116TOx~ Ox~ x&9yy=yiyyyzzEzqz ~nd ] h! $0201 _"""g"")1#  "u_""" SYNTAX ERRORSYSTEM SECTOR COPY/VERIFY ERRORDIRECTORY READ/WRITE ERRORSOURCE FILE COPY ERROROBJECT FILE CREATION COPY ERRORCANNOT DELETE DUPLICATE NAMEDRIVE 1 SCRATCH? APPEND TO DRIVE 1?DISK NAME: DATE(MMDDYY): USER NAME: NO FILES TO COPYDELETE FILE NOS.: NEW NAME: STARTING TO COPY FILESINSUFFICIENT MEMORYENTER FILE COPY SELECTION COMMANDS: SAVE (S), DELETE (D), PRINT (P), QUIT (Q), NO MORE (CR)S, D, P, Q, (CR):. NOT FOUND .SECTOR  OFFSET DR0- DR1-COPYING . - DUPLICATION: IS IT TO BE COPIED? NOT COPIEDCOPYINGMDOS SY OV0OV1OV2OV3OV4OV5OV6ER 7?(yw9 O? ' '$;&Y$С' $& :Y 11!+!a&!s. ? Y'?O)L1!.~$~& ? ~/!&J!9!&L !&  9 |%9|#(9|&9|"9|$9'&z'# ~-+'&|' " $z $:A$C$D$I$L$N$R${S$U$V$sY$Z$$&-97/QM??$HYIOPO}!*DVOPDVFNMST_?/"f!+. *,&(*,&(%>MQ|-7&(3%.Z&$'-*O,,-?-$?),Y&(Y&~/~/~/OPTFTF[\Y*,9HZ&; =IJ~#<~ )'OQ_ OO '|Q*'Q9K:@F2& B%2!'&Y'!&"2 c%H~"&Y!. !-~$Ž!@ @zF2 :%P0&02 +%P0&0 &0C %2:K"347633G''"3XOZ ./.n~'93D7%B н"34763567676 57..I"&/J"~%2&P7'H.//$|..2723562334. ;."& /.$ |7+%H~" ~$%2!'&Y'!&"~""~"Խ%2~#<)3476 3~#<2334@:F9!7/~'97H.//$|..9ݽ&~# V29  )/)kJSOFTWARE DYNAMICS BASIC VERSION 1.2-  )d )d.. )d.. )d.. )d )d )] )d&& )0 )v )l )  ) )AZ )AZ )09 ) )$$AZ )AZ )09 ) )$$09 )09 ).. )EE05 )09 ) )79 * 09 *09 *09 * * * *66 *04 *Q09 *L09 *G09 *F *K *P *55 *04 *v09 *q09 *p *u *55 *02 *09 * *33 *05 * *49 * *69 *09 * * *69 *09 *09 * * * *.. *EE *09-- + +m09 +$09 + +$.. +# +0.. +009 +m09 +4 +mEE +h++ +U-- +U +h09 +h09 +_ +l09 +zAF +09 +AF +~'' +'' + + + +'' +"" +"" + + + +""'' +'' + + +'' ,"" ,"" , , ,"" ,09 ,  ,M ,6  ,, ,MDD ,MII ,MMM09 ,P , ,f  ,\ ,RR ,~EE ,~MM ,!!09 , , ,  , ,EE ,NN ,DD ,  , , , ,  , ,EE ,LL ,SS ,EE[(])!,O -5" .[ - * COMPILED BY 10/30/77 SOFTWARE DYNAMICS BASIC VERSION 1.2PROGRAM -ORIGIN : +o .[ I$ -I$4800  JSR $2000I$12:: SET 0!,O -5" .[ -DATA -ORIGIN : +o .[ : EQU $!.< - ."!.< -GI*+2+:::II:: !.u .$,   GJ, .F0} .S,O .S5" .Z.[   .t  .p  .p  .a,$ .. .IGJ3> .6c .. .6c .. ..[ ) . .DOUBLY DEFINED LINE NUMBER . / /\ /  .  . . / .LET /3o IF /!;A GOTO //3 PRINT />7 FOR /K4 NEXT /Y4X GOSUB /h4h RETURN /x4 STOP /4 INPUT /7Q READ /:1 WRITE /: RESTORE /7/ OPEN /6 CREATE /6 CLOSE /6 DELETE 07 RENAME 07 ON 04 REM 0(! 0/5" CHAIN 0>5. CALL 0L59 POKE 0Z6F DEBUG 0i6Y ERROR 0x6^ 3o0  0, 00 0) 1 0DOUBLY DEFINED STRING VARIABLE 0 II, 1<) - / 1%I-*-1JI-*-4JI-*-22 III4+/ 1;2JI4+ 1/ 1I-*-1IIJI-*-4JI-*-22 III*-I/ ) 2 1DOUBLY DEFINED NUMERIC VARIABLE 1 I, 2d) - 2%I2I::+7+6*I8+6* 2c, 2c) - %I4I::+3+6*(+1)*(+1)J+1I4+6*(+1)*(+1) 2/ 2) 2I6J0J0J 2* 2FI:+FI''I$DG 2: 2+o I6J0J0J$ / 2 2I6 3 3, 33 3+ 3I) 3*I: 3=+o I$FORMAT 3n+ I&II-*-1IIILEN( 3F ) = > I^F 3, 3> , 3> - = GD G 3- 3= F> G# 3= 3D G Ch 3= > G) 4 GIID 4WFIF= > GTO > STEP 4C> 4RFJ1 HD 4gHI) 4zGIIPOP 4> I GGERROR 4GOTO HI0 40 4) 4I > 5!GOTO 4Ha 4GOSUB 4II II) II, 5) II 5II5* 5",D 58H) 5B) 5 5L 5nALREADY DEFINED AS A VARIABLE 5r ( 55 , 55 5}) 5 GICh 5+ 5- 5! 5XOR 5** 5* 5/ 5& 5^ 5 5FA F 5B 5 FEFs 6A, 6<> , 6&> - G 6;- 6;FB 6: 6@ >> 6X, > HmHHDEF 6)  6v 6NAME ALREADY DEFINED 6GIII( D ) I= > IBII 7B 6, D H7B 6, D H7B 7H, 7 7B H 6D 7IPD 7., D IW7B 7A, > G# 7P> GF 7_I4G 7x7B 7l, 7xI4H 7H17 77 7, 77 7 F 7, 7> , 7> - GGG 7- 7FH%G# 7GG Ch 7H%G7B 8, 89Z 883 8G I49Z 8183 81G ELSE 8F 8UB 8L9% 8T8 8F 8b8 8TAB( 8> ) ; H783 8 8E 88 8Fs 8, 8> , 8> - G8 8- 8FFA 8 9% 88 8> 89% 8G, 9 H83 9  9#; 983 9 9#G G, 9;H83 9: 9X; 9PG83 9O 9XG USING :0) 9vIII 9F 9Hy 9F 9E Hy , :(F 9B 9G 9G :'F 9G :'E 9G :'Fs :, :> , 9> - GG :- :FA :  G :G :'> :'G 9G7B :M, :N , :I:N :?F :, :> , :t> - GH  :- :FHG# :H  Ch :HG7B :, : , :: :E :HFs ;, ;> , :> - GH ;- ;FFG ;H F ;*B ;!G ;)H F ;5H> ;@G< ;  ;T  ;M ;X THEN ) ;GII, ;|; ; ;GII; , ;GIIII; II ;II FI ; 3/ <\ ;  ;  ; ; / ; <) <A <= <= <= <= ) =E <D >V Fs =W, =I> , =&> - GD >V =H- =HFFA =A= =G= =VD =V>V F =vB =h= =uD =u>V F =D  >V > == NOT( =< ) GEOF( => ) H+AND = G_<> >> Ge<= >> Gq>= >&> Gw< >5> Gk> >D> G}FJ0Ge= >dD H=<> >tD HC<= >D HO>= >D H[< >D HI> >D HU? >> + >? G) ?- >? G/ ?! >? GM ?XOR ?? Hg >?X ?? ** ? ?X GS ?S* ?1?X G; ?S/ ?B?X GA ?S& ?S?X GG ??q ?p^ ?l?X H ?^( ?> ) LEN( ?F ) FICOM( ?> ) GYATN( ?> ) HSIN( ?> ) HCOS( ?> ) HTAN( @> ) ILOG( @> ) HEXP( @4> ) HSQR( @J> ) HINT( @`> ) HABS( @v> ) HSGN( @> ) IPOS( @> ) HVAL( @D ) IPEEK( @> ) HsFIND( @F E , D ) IRND @HERR A HELN AIPI A%I) A1F) AAFJ- AP?q G5* AnFI''I$D+ AFI0IFG AFC: A+o FJ$+ A) FJ+ A? G)> - A? G/> ! A? GM> XOR B ? Hg> ** B%?X GS? > * B<?X G;? > / BS?X GA? > & Bj?X GG? > ^ B?X H? > + BF? G)> - BF? G/> ! BF? GM> XOR BF? Hg> ** BF?X GS? > * CF?X G;? > / C1F?X GA? > & CLF?X GG? > ^ CgF?X H? > ) C CwDv C CD C CFI CUNDEFINED VARIABLE ) D CDv F D CD F D CFI D D( > ) I;I DUNDEFINED VARIABLE ) Du D+ DUNO SUBSCRIPTED VARIABLES ALLOWED HERE Dt DtUNDEFINED VARIABLE FI, > - G FI, > , > - GD DD CAT DD GD GCAT DD G DGEFs DE FDATE$ EIeE TIME$ E)IlE NUM$( E@> ) IsNUMF$( E`D , > ) IzMID$( EF , > , > ) GLEFT$( EF , FJ1> ) GRIGHT$( EF , > ) GHEX$( E> ) I, F> , > - G+ FFI1I+ FFFII-*-1IIISWITCHES$ FYH F_F Fr, > - FFSWITCHES$ FHF FFI) F FUNDEFINED VARIABLE  0+ 10 11 12 13 14 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 126 128 130::: EQU * EQU ::I-I::I:: SET ::+I:+ ORG  FCB  RMB  FCC  FDB  FDB  END   rzxo0x}x?x  qoZ&o0 ' ' & xxxxx '+;'|x xx 'Z.@/qJ& xxvo xx' x_t ~vnILLEGAL SWITCH rzwo sF$'t s:~vnFROMNOVA.SA O&)V$''''' 9 999@99wݽwx!x?x& &~x 0xooo?xo)o*o+o(o'o9wݽwx!x?x& @&~x 3 wݽx 'tu֦&?x?x9wݽx ':tux&0+,hYI+$xuxTOx )*o%o(9~x~xwݽxtl%&&.(&#t$#M'+ ''""#9(j( 9 o%9wݽxo(t&&t$9O9&9'! ' )& u% 9)xl*&l)u 9~x)&Lxx'ƀ? xO ?x' ' '~xͦ)*)x*' l*&l) &o)o* 9wݽx o%xt96x''to'29wݽxl%x & 'l''&o't9ȁ"o% '( '3)&6u2xo+l+l*&l)) u9~x'xx? 9x)& x)*)x)* ' 'l*&l)9x?xo)o*9x) *o&& + ?x' &Al&l&lƀO?x 9 9x* ")!%x+'6m&jj?x2o+o)o*9~x͆wx!x?x'"?x٦ ?x9~xwx!zyDK&/0111 wݽx!zyz&z{z&vg?]&9z{z~x?wݦ&xs:zxx*96xxx76ؽw0112rxwcM&\sS&s9'R1&xSxLxGxx&xx7zx'xo"&$x#xx |x'~x~xs:xns$HHHH6s$ 3xx911 Ɂ9#G% 90%0 9A%7 9wݽx&9wݽx%9w9w91-03-7812:01 AM yxwxx x?'xxxxx!"zxx*wچ_r9#CNx"xxxxXx?'x9~x'o%o&o'o(o)o*o+9~x&9~xxDK SA0 ?'x?xxx'M"Io'xx?x; o&o&xx?&#&ŀ&9x  9M*_x? 9$"  0116TOx~ Ox~ x&9yy=yiyyyzzEzqz ~nd 0201&+)]&-&+?'&~  &~$)^DK&~$)[)D)D)&-&+?'&  ')DK'))D)D&+_ '+;' &+ ' ')H&&+ m&~%)G)D &~$' & )&)')D'~" )&)]))&)f))&)^&)&&?PS)G'~%P)G' )T)T )y)y)S?'~$?&)G@'~!)j))k))l))f)%)y)y)x?&?'})&})'&)) %)S?'U &)j&C)d))S?&?&)'/))x?&,&&+'%&-&+ ?))x?& %!?)x?'~$&)'/))x%k%)S?'L '~$)x?'d &)j'~!)d))S?&)x?&&&+'%&-&+ ?' &)x?' '~$&0&+&&-&+ƀ?&~")d &+)&-&+))? Ɓ?#~! )&0))D&~$1)^&+)&-&+ ?)S?'~$?&)j''~%)G'~% ' @&HP)&'& ')jx))G'&dž)y)y |&/)G@&M)y)y)x?'~$?&)G '%)S?' &~!}&/& )W)U'|&/)U)~)x?& CN)&~$(:)|)C)~)G&|&/%k%)S?' &)x?' &~!)? ~"}&/&)U')x?' '~#I}&/& )z'|&/)W&+)|&-&+&-&)z& &+)U' &-&+)U'&+ CN)[&~$)G('~%')D')T)T)j |&/)^)D' )&SA))&+)^&-&+ ?)S& '?'~$?&)j' ''~%)jx))D&)^&+)&-&+ ?)G@'~#%~#<? %!?     ) ? $%!?9)S%L)y&)y&)')y)y)x%L9%i?''_? %i?''_? 9)x& '?& ?&)? 9~$)?'9)ŀ'~%)j' '~% &)D& ))j&)G'9)&+)&-&+?)))))? &? &Y'ƀ?#%!?H& R&)E)F @ o9*NCWH V@'0(9DK0 SA&0&'0(9 DK &0&VERIFY IN PROGRESSXXXXXXXX.XX:X EXISTS. OVERWRITE? VERIFY FAILEDVERIFY FAILED AT LSN XXXX]'/l&l*.*. #0m&jj*. Z&*.96dfJ&29  *` *r$ 0 011n**oo<*9**4< **+ *&z*& *9*<x 0200O"%" '%;& 'Y&|" S&|% ' 40" " ?" ""? _" '\J' " '? ?"!? ? $?" !?$~!!&!&%&" &׶"'Ɓ?#"˽!"? D!&$"& "!"? ? %C"? ? %8Y&" ?$ ? ?"!"? !J&~ y" ';'~ ;?!J''ƀ?#"!"? ? ?&~!O#$ " &z# % &!9 &# |#"'&"&z$  &$ |$"'&" """ "?!9#+" """"?&$*O J'"" ""9"" ""?."""9 """ DELETE ? IS PROTECTED DELETED  DOES NOT EXIST  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 ENTRIE S 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( 0203(u'|''~1''|?].e_'| ';& ' 'U& T&? %'1' .O"L! & &'? $Y& '? $Y'? ? ( ? &?&? ]'$%/&'l&'n'l?(? &?&? ]'%%/&'l&'n'l?(%? &?&? ]'/'l&'n'l?&&'h%'j!'g?%'h&'j!'g?$~!ƀO&?%&~" !' r%~"1'8' ? ? &|  ?* ?.)&?( &~$~!'p(:'r'p)*(0? Ɓ?#'&~!(H? $N&~"Y&(d? &'t? ]''t)k%'w& 'v_?/# (? @ƀ?# (? &'x? ]''x)k%ٶ'{&'z?/#'v'w?/#~"D'w'v)&?('v?'z'v'w?/#(? ~"&>>&GA?'h&'j!'g?%'h&'j!'g?$~!&Oƀ?%$~!DK&&&&&&" !o?'? ~$DK&&–! "&?'? ~$|('))+<'l ?()& ?('n 'l? &?(?% ~Z&C60? 2 7%'~$O(& &  ?(&&'f&&?$ ' ? ~$&&&&'))+'l ?()&'n 'l?' &oo&'l&'n'l?&'l('n'l?&((? &?'? {&?'? U(/"'(? ?&??&???(&?' &&'%< &?'? &?'? &?&? %('~#^~#? &?'? &?'? ?&? 97 ?$ '?%Z& 397 '?%Z&39##'h&'j!'g?$9#& 9&'h&'j'g&?&'h'j'g&?&}'lu?('n 'l?'g&?9|uu+XHYHYwvz{67xHY & M& &S66~m? ~SM  (:&&' MDOS SYMDOSOV0 SYMDOSOV1 SYMDOSOV2 SYMDOSOV3 SYMDOSOV4 SYMDOSOV5 SYMDOSOV6 SYMDOSER SYIS DRIVE 1 SCRATCH? ARE YOU SURE? DISK NAME: DATE (MMDDYY): USER NAME: SECTOR 0000 LOCKED OUT LOCKOUT ADDITIONAL SECTORS? ENTER STARTING SECTOR (HHH): ENTER ENDING SECTOR (HHH): ABOVE SECTORS HAVE BEEN LOCKED OUT INVALID SECTOR NO. COPYING FILE . MDOS.SY DOES NOT START AT SECTOR 18 TFTFTFVFVD6YYYO FZ,29]'/l&l)])] #0m&jj)] Z&)]96dfJ&29]'+)oo))l &l)%)Z&)9A% 62% 0%62%96hiJ&29 $0200!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? !ˆB00/,)# ? c? + %,'~'*s 'ޗ *' *&~$"#*s!B'C'D&0') ')''}/&*  '*sB& & T" ' &N&F#ƀ~%#Ɓ |+'&,*'"G') &' ,&'ǽ*' &G)#n %*'/&H"(|,M~&#aƄ #-Ƃ,!?#? ~$)t(?%)~$)t *s0-9.6*s &)t2%70~$#ƀ~%!D&'&q("k?(')%"ƀ*3"3157~$#ƀ~%!+&B''D')7'-3/'5 D&'&(" ?(')~$#ƀ~%#<ƃ *&"&$*s*s"&*s H & ƀ?7~$#ƀ~%-%)( ?('"ۖM& |M*s &~&.)%.'*mH*s &~&܁"&*s. ", *&"& *s"&*s  'Z|. -'H"""ہ,'-&J6 '*s &.^'/&& !̶!?/##2^& !ζ!?/"|-'"~&?#ƀ~%#-Ƃ /'7^& "!ζ!?-?$8"߽*I" ""۽*I#&? ~$8(~&,~$@ @(!+&BB&~'C&~'D'"( /&"m"ƀ*33"51')7&~(8~(&C&'(%U')(%L)/'" P!D&>'&2)&.' 1(*"!?')?(' )1" #ƀ~%" "*3"m')*?/$ /'֌&і0!A!()$~("*M"*M"`(? g9";"="*I9*I99 -z/.==;?L?&;M&? %'"(?&')''@&~(zA&(~(~$?1% ?1%}/' 9}@&? 9?2 '' BZ& 6#?52:B?3'?4 ?59}@' BJ'# 9K)t%Z!K"!"Ֆ0! !"?&9 &5!ڗ0ŀ&,"*3!"9 !DK!!?&?&\/7 9#S? 9~)/'!?& O/7?& 9!_? 9"ƀ*3 O/':'!1!M&? ?&!ݶ!HYHY'?)!߶!?-" 9!_? 9'"110"M&?9 ?:%9"60? 2 9 7NG_*%G*HHZ&KP2PN]96ICEIC?29 6*k*l*i*i*29K% K%%K9  '9C%6F%L'17O%.Q%&R%dS',7U%;W%]'/l&l**ݦ #0m&jj*ݍ Z&*96dfJ&296hiJ&29A% 62% 0%62%9P 02000!!z!!|!z?!0,? ?3.""!!~?"""!H%|"&|"|"&#|" ?276"""?/$"23?3""Z&z"&"""z"/"" """""z"/"" ""!""!~?"!'&|"?(z"&!'! "!z">!|!z#$"""!z"O!|!z#$"""!z"e!|!z#$""!""!~?!!z"'!|!z?"? ?!! "`"9"KDRIVE X : XXXXXXXX XXXX/$XXX SECTORS XXX/$XX FILES XXXX/$XXX LARGEST CONTIGUOUS BLOCK]&~# l&l# #"###!#"#o%#l #670 'Z&32#l&ll&lj ,# m&jj#l&lj&#"O9'd ]'/l&l#W#W #0m&jj#W Z&#W96dfJ&29 X 0300$$+$$?' '~"~"$$$?'+~"$$$?'*$#!%$#!%$'}$'$&$$$?/%$ '{;'$ $$ 'd 'H&|$ L&|$ ݁N&|$ ԁF'~""'$~"%#"$$ '.&"'%% #c"$$~ $,$%$$?%#$$?$+%&$@??$?/$~"ӄ$@?) $B$!?'~"?&'~"}$'%? %)d? ?'%}$' L$NP$O$F?'~"?&S$&$$2$^}$'$f$%$$'}$'$^?$b$%$$%$!?': &/}%'}$'}%' $%$#?S$'$'~"~" '~"L$&:%%$?/$-? %%%}$&~!L$& $$?/$~!$2 }%&3%$$$$$%% $J%$L#&1$%$^$J$#$L%#&|%%$-%~"? #?   ? ?     6 $%$_$$ '0-9.\# $$ %]'&D%)}%& 9O9'e#L'S' 9m&%%_ '\L#'. . %]'цL#'& &D)%%%%#L&' 9$L$J$K?-_$?/$ $JJ?($L$J ' #%?$$'?/$?% ? $11~!$F?9$F#$!#9$?''_? $?''_? 9%$J%$L$F7?3Z&9$^$DK0 SACNPB PAGE XXX XXXXXXXX.XX:X  %(ENTER HEADING:  ]&~&-l&l&@&B&.&=&A&B&8o%&8l &8670 'Z&32&8l&ll&lj ,&8 m&jj&8l&lj&&BO9'd ]'G&&oo &HY%5HY%1%+HY%'&l&l?%_%z&&O9 ]'+&oo&&l&l&%&Z&&9A% 62% 0%62%96hiJ&29P 0200%'*% '* '3%?''~$}&&~$~!%&|'O&~&|?*|&}&'&' &&-~$\&SA0 '3&'3'*&'*'*?'' ? ?}&&~$|'~!}&'~!C&&'7'' ''~$'7&'7''8''3&'*'' O%m'7&&x&&t'%)'&v' %+ &p' 'b?)'b&ZX&?''*';~ '7&'~$}&&7&' O%m&x'~ &t''?/%'%)''?/$' }'&A&'#ƀ'7'~$&' '*';&& }' '~$|' |' ' &-% 'h;' % 'XW&|' % '_'% -~$\ ]' %?+&|&|'%&~''?/$~$?$'?/%'' }'&B}' &=}'&8'+&|'j&~&|?'3's'*'v'j? &|? &|Y'ƀ?#?%'*&|'O&~&| ?' ''\&&~#('E?'~$?'}'b&}'c'&'b'c }'''X'V'*%%?|' ' &,%%%c' ?' &?&?'~$'E?& ޽$?'''?-&|?$&'&|?&|''b&|'d&'f'E?'~$?&6'''Z''O{$z'&2'#''? $?2%' O%m&t'&r ''?'&q?'''''?.''_x'IY'V'W%½%c' ?'~$'?'='='='b'b' ''&'b'f'g?/$ 'E?&Ƚ%'='A'B?/$ 'E?&' ?&?&|' ' &,~#'EO%m'&'&&&'&'&'E%m~##? $?? ?'*  '*    '* '* ' % 'F&'P''F'F'E% 9%'?''_? %'?''_? 9' v', %a%a?' u'J%b%b$|%a' x%a%b?)911~$? $$?96'' 2 ' 'M&?9?9'*%SA'30'*DK'(%?' ? $?' ?'~$?&9}'& ''?/$'E?'~$}'W&z'Vz'W'd'?''b'9  1DK0 %&{3DK0 SA%&{XXXXXXXX.XX:X EXISTS. OVERWRITE? ]'+'oo''l&l'%'٪Z&'9A% 62% 0%62%96hiJ&29X 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 X00h1 ,0200 ! # & h i  ('?)'C*'F'I'Y'_'d i t5)6) K)7J)FI)d"" &..&'I)'I)=)A)?)# ! DRIVE MUST BE SPECIFIEDID SECTOR READ ERROR WRITE TO DISK TO ATTEMPT TO CLEAR ERROR? ID SECTOR CANNOT BE CHECKEDDISK ID: VERSION: REVISION: DATE: USER: ID UNUSED AREA NOT 0. ZERO IT? LOCKOUT C.A.T. READ ERRORC.A.T. READ ERRORDISK IS NOT FIXABLELOCKOUT C.A.T. IN ERROR - RECONSTRUCT? Y(YES) OR N(NO): WHICH SECTOR RANGE IS TO BE LOCKED OUT? C.A.T. ERROR FOUND - ABORT?  .  DIRE CTORY SECTOR READ ERRORDIRECTORY ENTRY IN ERROR. DELETE?POSSIBLE INCOMPLETE NAME CHANGENEW NAME: INVALID RIB SECTOR NUMBER. DELETE?HASH OR NAME DUPLICATION ERROR. DELETE?RIB READ ERRORRIB IN ERROR - DELETE FILE?FIRST SDW IN ERRORSDW BOUNDS ERRORRIB CLUSTER ALLOCATION DUPLICATIONILLEGAL SDW TERMINATORNON-CONTIGUOUS SDW ERRORNON-0 BYTES AFTER SDW TERMINATORBINARY LOAD FILE RIB ERROR GOOD FILES FILES WITH BAD RIBS GOOD FILES FILES WITH DUPLICATIONS ALLOCATION DUPLICATIONS  DELETE: NEITHER(1), BOTH(2),(3), (4):  SIZE: CONFLICTS: CLUSTERSWRITE RECONSTRUCTED TABLE TO DISK? RECONSTRUCTED ALLOCATION MAP MATCHES DISKILLEGAL ATTRIBUTE OR UNUSED BYTES. DELETE?MDOS.SY DOES NOT START AT SECTOR 18 .SY DOES NOT EXISTBOOT BLOCK SECTOR CANNOT BE CHECKEDBOOT BLOCK SECTOR READ ERRORBOOT BLOCK SECTOR HAS BEEN DESTROYEDMDOS MDOSER MDOSOV0 MDOSOV1 MDOSOV2 MDOSOV3 MDOSOV4 MDOSOV5 MDOSOV6 % ':&0'1' %6ƀ?#? "6R$* %޽6~-r%6%6X%%6-1-6% ]6 %6I-176,$A Y6 ? ]'-26M/ '?'? 2376,%|IY%%623-6$#F&#& &W6% #2ZO?|II'6X~-r7?2M..-?%Z& ?339 % h%%?] &%6 ަ6%Z& -J Y?'-r 'Y 9%&# & &#&&$#&'&1#&8&B#.j$|&6$~.# # =O?#J#KA?.&6'F W79'-&UI6%79'ށ &U6%IJ?/"677# 6D?3U'?$ 6X%.j$'6%&6?~. o$81' 8'9'4&(6?) ?-24& ?$7# 6D &9? ?"#66R2$&&&x6%6%*6X%%# &#J&#K&#& 9 9&6?"6R$**6 K*ս6%6%6X%8%# %%J?'## ƀO?8%# %%J?*6 "6R$'|6%6$&6?6X%"&$ ƠO?4,%B&&Z&~0u'5~0u&]&Z&~0u&'>6'6'۽6'SA q % h%%?]&ށ &%@ 6#6_$~/35 , 6$' &, &'*F~/l s,%D%D 6 s?$( ~/l +&DDD)&SY |&D+%% t%%?&%l?++& ~'*r6 % ?'%m*½4%~/S+%*%%?%m&*6%%m*O674$~2Z, "I6R$#+(26%6%6X$(A5$|7~2R# 7%I'(]6 S# I7%Y7MS?'SM63% Z?'O6$(p # KI'%7QZ?'MN?/"QOP?/%( K I#' I@& S ?/%(~0, ' # I7?'KII7% K'( ISTI#&, &~2B'~2G'?$# ?.t#, ' '( #'L&H#ST?/%=O?/%6###?/%)##'#?/%##DVF?*#?/%#?/$( &|64%~0%H6%L6)6"! 6U$&x6?!ƀO?I4%D$5I=>?)I4$I&~4qIK4D$ _5='|KIJ?)I& |L4$%P6%T6%X7)664&~4B_5%\ƀ6%`6'>6%l 6%p7%x7)Ƚ64$~4'_5A''86%t7%x7)½6%h 6" I"KMR ? OQIIKKH$*6M7O  A& 6 ?'O2RRM'zQ& O '  6)~6 &1'4'3'2&6533&~397%d6("#6U$'|6?3]'54%~2"! 6U$&x6?4% D$54$"6R$&  %|ƀ?')6%! 6_?*6?4 4%&' 9$ &* !&&,?',+L&-|*(& 9("? $?#6U$'|6?#,O+% 6%$6%(6,%, ?'%0%4%8%,7#%07%47%87,%<'j%>7%<7%<%<%>%>3Z&'e'I6$ % 'e'T& 9?2'>6?36% &o,?("#6_$&6?9H=O?"ƀO?, "6R$(26?# C7%WEG?$7"J??}H*! D'!4! /!3'==" ''AAEEGG&C 9?(739?(9# O # $$ !M&?9 ?:$!60? 2_1' 8' 9'Z4&] 9??$&_?/$?/9 97? 7? ? %39?#z" 9 96 c? 9Y ' N '& 9 98[]8[?9 67!7"777296.]][?9 78U%7%U7ךVVZ&:2:8]9;W ;WW;9 '97HYHY?%2|I9]'/l&l77ɦ #0m&jj7ɍ Z&796dfJ&296hiJ&29A% 62% 0%62%9TFTFTFVFVD6YYYO FZ,29|uu+.HYHYwvz{67xS66~m? ~S|@쀿x nd~" ~,ro$~r~s:~s~u~v,~v~s~s~t~t~se~vn~wc~wl~w~wu~w{rzqNq~9~x~r{o&pqp BCC$|BB@@H%a`ncbn@@H%a`nAA$|@@H%ӗa`nCOPYRIGHT (C) 1977 SOFTWARE DYNAMICS ALL RIGHTS RESERVED""""""""""""# # ""|"#"&&]&((k(()m))#$$##$G$S$w$k$$$%%%*S*^*e*W*+,,o++0/0/&46&&&'55645--4H/4.4g%%% %&%,%2*p$_,,& /:,929(887r#J66l#4#>44544&7D,,4#9*#%';&)&M"[4+Q+*5.5K'%%33%)'98#w+3X h0d ;5$ߋߍ=*,026!`"b O^ RZ Q@]O\&'9 2d'~,o~ j@M@@MMZ&@~ j@A%0 ='M~ @6666660 =',~ 00o~ h@OA  @0 ='~ ~,q0111111666666~ h@6O666660 ='~ h@76444O60 ='~ 0 ;JA%0 ='~ h2 , 0*~ h0'%E0+E  C  0'C 4O6~ h0'* ;~"ݦ'oo~ h23VW0&30&;3A%Vn$5 $-ݽ<(~ h6&  0 ~ Y0&# '$-ݽ@ ԍ= #$-ݽ> $ $ #$-ݽ> % ~ Y~,q0& 911n   Ӎ   Ǎ   0&cc~ h0&*7;jA%>0*FEĽ;C  !2333&]'0DfZ& (0 o o ~ hM&]'0hIZ& ~ Y0&3;~ hQ&?~ h?~ h@& :- 4/ .. (, ܍^' ֍X& ЍR- ʍL/ čF. @, 23XY0&' & '$B CC$|BBXMn#; 23XY0G0 &0EG'FHEGF8* E' 8G'"0M0IIM&M &8 8 B6_7C6B647~ h 5 0B0111111BC/O ~,q0B0ߋBCی׎~ Y@o&ߋOی׎~ ~,q@OA@@A~ @7O6A@BCA@76B@4O60 ='~ ~,q66 @ ? 66 K L76O660 ='~ h~,qUS7TR6RS @6676O660 ='~ @~# Koo M NT0'2 K"&&" 0BBTT &~ Y~,q0G'l0 &0EFEHG%NBC0I0MMOGIIK  KO&O &0IJ  ~ YB B&_O0  (0  ~,q0"&"~ Y^  U$OBC0CB%>0BC~ h-  $0"&"0O~ h ~,q23VW0'&;jA%>0+C 111111Vn23%' 111123Vn  0  BC0' 0%"&"0BC~ h8(0  3XI%/CBXI%'8%!CB%0%"&"0~ h ~,q8(0  BC(0  06B"&C$26&  CB @322222]'*BE  !A%C 111111 2323&Bo~ 0 322222]'%BE  A%C ~ V2323&Bo~ Y0'~,q&~ V0I0M0G0B &0BEEFHG%GB'IJNM$MMII &~ VIJߗIJMNߗMNM MI I & Ζ?& @~ k?&~ _?&S?~ h(0 @ $  B~ k(0    @B :XI%A@%%@" &'"BC9011n@@A@Z T' Z=>~+~,q(0 'Z R'7Z &  RZ~ hZ R'=>Z@A~ ~,q@BA%;B;@A764444A%0 ='B~ j~,q;0 @;111111A%~ 0B ;5~ @66 &@'@&'& '%8&q BREAK ON LINE? 6HF} d@ &~ hO ;67=0ދ*' ~ k@*~ 670 E6&,~ k,~ kq STOP6.,q ERROR6^4 AT LINE6j45~ )0&1~"0&%&F "& " &  ~ V~,q0'#0^u O'&&6^' 6|\|]'H__%z^^22222222 2 2 2 2 2@A~ Y~,q6BCC$|BB29z]z\__$|^^9@^ϼ O'¡&&B&+B%}B  $~ k^&~ ^666666BA%-ݽ>B;BA%B6 6 6 6 6 6;'.B* B+ B B&66O66CB;B&66O66CB222222B6 6O66CB2 2 2 2 2 2~.@( KRB MQ& H''+ Q BB '  &B T~,~,lTUSRR0 )Q'~,q/0~ k INPUT ERROR 6U( ;~ kR~ hBC23VWBCA ] lB߽A ':&[OA0-*9.0 A-F.7HHHHHyy%(Z& 'ֿ7־7444_7 ,' VW769Vn?_ _ ދ'Qߋ ދ Q  ~ h0&09'0BBQ &~ YאOٗW$&|N-& | -'>#& L #/.&|ٖ " #& L #ւڃ&6-&| C  10oo0Q &1111~ h<~,qD2Q #zD&~ h0& 0'0BQ BB &~ Y0'0BBQ # &~ Y׿߫߳'xy% h$%Z&&ִۖ9011nց766~60Xyyy~Xyyy~ ~XyyXyyXy~߀C;zA%<(~ h~,q0+& '38&0@Gp$@D8*}l l l ; zD&8*}l}r l~88&}r}f_[}l%?'l& 8*}r od@~888&}f_[}l='XB>y4D>$yw?9 5?V?33a@ffg@ffff@PAAprAql&>8tpvq$8* rp'8* r}r ޖf*8*}l ; l d~ jf* O0 ~,q@d23@A~ ~,q0+& '30@O@6666XIXI0C8&}l ;'+8 ; l ; .8g ;  ; 8Ax1q xAA%1AQA#V'5 lAUdY' 8* r.7u~80&3x;@@A%@'@xA%0 ='<(@A%> ~ k~,q8& ;Z.958& ;}f_ ;Z [ ; [ ;}lqG$ 8* ; 8*=4(y0G?hQyi&&@E@pyc' f l ! ; ~88&}f_ ;Z [ ; [ ;}l ;ZqG$ 8* ;Z8* ;Z ?RDEUvb7pA!P x@Q2aAE)3  ;  ; f l ; ~88&}f_ ; (+:C ;.:P ;  ; ;}lF&@$8(ABAAT#yCA8&$ xAA%hAQTuA8&$ l f~8A  !$' $(26Ae %05@EAW3$06BHT@P!(5BIVc<ef$2@HVdrA '6ETcrAA@xS5@1b'v`0'923222222n+ 00++'& & & & & ' "Ā$|0Mn23;;;߳ߵ߷߹߻'V'Mz ʌ'1'Í%!ֿɗ ʌ&~@j')8׳$$ 9$ 9'  9פƦ֤Ʀ_$ץXXXXצDDDD֤HHHHƦ֤TTTTƖ9& 63vũy 9ֳ%ִֵֶַ &ָ~@ji'a_\ֿ͍v%3ë  ©   $͖ɗ99&ף|$9ѿ'#9TFvTFvTFvTFvʐ|$$햣HHHHJ62yIYyIYyIYyIY|$$90230'*W3׾3׿33333׫M&]'Z3׬3׭3׮3ׯ3װ ?3L&׭3׮3ׯ3װ_ *L& ׮3ׯ3װ_ L& ׯ3װ_ .L&װ_2ׯ2׮2׭2׬? l11111~A+1111~A=3׾3J&333_ (J& 33_ J&3_ J&_2222׿3׫3׬3׭3׮3ׯ3װ?+~@<߹߻߼ƙÛ›%P%B%Y 0 G_$!׳_&\&; ;'▲?.@'+ֱĀ ;:A%0n p23;;;߹߻߼''LȖo&&xyyyyxyyyyyZ&~=z23Ӧ666666naE .&&L HHHH& |*11~C9011n2 .&&L"   Ё0- 9.ۀ0923769' ֦9O Oؗٗ߳ߵ߷΁ '+'-&0&ۖ'z+~C.& ڌAC  Ar  z&鍁A &~C_ױײ܁E&>A+'-& A AA  ֲX% X% ۲%X$ ޖ&֖& *&Uֲ'*POOYGVə' 'M*/; =GV$tvvvvJ&\)@) /ڳ׳ *;* ;:2323ϽA%76 9237690F,i@. O RODDDDM  BC  8Z&0*)1111n011nHIII%xyyy%xyyy%$ %923O2222_*ƀױ xyyy%Z&;~A+xyyyZ&Ζ'ָ7ַ7ֶ7ֵ76E @'_7ָ7ַ7ֶ76D ,'_77ָ7ַ76C ' _777ָ76B _77776A6n2322DDDD00z&+*-.E +H+- 0&z z&6*@OxZ&֖0DDDD00  0&Zz&2]&On';&+&!&& @"!23769A" B" C" D" E"9230ױD"@"111111*; ;A%nE0 کשoJ&*喩';A%> # $ % rzxo0x}x?x  qoZ&o0 ' ' & xxxxx '+;'|x xx 'Z.@/qJ& xxvo xx' x_t ~vnILLEGAL SWITCH rzwo sF$'t s:~vnFROMNOVA.SAO&)V$''''' 9 999@99wݽwx!x?x& &~x 0xooo?xo)o*o+o(o'o9wݽwx!x?x& @&~x 3 wݽx 'tu֦&?x?x9wݽx ':tux&0+,hYI+$xuxTOx )*o%o(9~x~xwݽxtl%&&.(&#t$#M'+ ''""#9(j( 9 o%9wݽxo(t&&t$9O9&9'! ' )& u% 9)xl*&l)u 9~x)&Lxx'ƀ? xO ?x' ' '~xͦ)*)x*' l*&l) &o)o* 9wݽx o%xt96x''to'29wݽxl%x & 'l''&o't9ȁ"o% '( '3)&6u2xo+l+l*&l)) u9~x'xx? 9x)& x)*)x)* ' 'l*&l)9x?xo)o*& 9x) *o&& + ?x' &Al&l&lƀO?x 9 9x* ")!%x+'6m&jj?x2o+o)o*9~x͆wx!x?x'"?x٦ ?x9~xwx!zyDK&/0111 wݽx!zyz&z{z&vg?]&9z{z~x?wݦ&xs:zxx*96xxx76ؽw0112rxwcM&\sS&s9'R1&xSxLxGxx&xx7zx'xo"&$x#xx |x'~x~xs:xns$HHHH6s$ 3xx911 Ɂ9#G% 90%0 9A%7 9wݽx&9wݽx%9w9w91-03-7812:01 AM yxwxx x?'xxxxx!"zxx*wچ_r9#CNx"xxxxXx?'x9~x'o%o&o'o(o)o*o+9~x&9~xxDK SA0 ?'x?xxx'M"Io'xx?x; o&o&xx?&#&ŀ&9x  9M*_x? 9$"  0116TOx~ Ox~ x&9yy=yiyyyzzEzqz~nd0010DIMA$(3),L$(60),F$(20),N$(20) 0011DIMZ1 0012DIMM$(3),D$(3),I$(3) 0013DIMLAR$/:E/ 0015DIMD(12) 0025DIMX$(10) 0030' DIMN1,A,I,J,K 0035DIMM1,M2,M3,D1,D2,D3,Y1,Y2,Y3,I1,E2,P2,I2,X 0036DIMN,P,C 0040CREATE#2,"#LP" 0050D(1)=31 0051D(2)=28 0052D(3)=31 0053D(4)=30 0054D(5)=31 0055D(6)=30 0056D(7)=31 0057D(8)=31 0058D(9)=30 0059D(10)=31 0060D(11)=30 0061D(12)=31 0070ONERRORGOTO8000 0100PRINT#N1 0101PRINT#N1 0103INPUT"DOYOUWANTAGRAPHONTHEPRINTER"A$ 0104IFA$="STOP"THENSTOP 0105IFA$<>"Y"THENN1=0ELSEN1=2 0110PRINT#N1 0115PRINT#N1 0130DEFFNA(A)=A-(INT(A/Z1)*Z1)+1 0195P=6.28319 0200PRINT#N1 0210INPUT"WHATISYOURNAME?"N$ 0230INPUT"ENTERYOURBIRTHDATE(E.G.1,1,1954):"M2,D2,Y2 0290IFY2<100THENY2=Y2+1900 0300INPUT"ENTERSTARTDATE:"M3,D3,Y3 0320IFY3<100THENY3=Y3+1900 0330INPUT"HOWMANYMONTHSWOULDYOULIKE?"N 0380IFY2>Y3THENGOTO0230 0390IFY2M3THENGOTO0230 0410IFM2D3THENGOTO0230 0460D1=D3 0470M1=M3 0480Y1=Y3 0490GOSUB9000 0500A=I1 0510D1=D2 0520M1=M2 0530Y1=Y2 0540GOSUB9000 0550A=A-I1+364*(Y3-Y2) 0560IFY2=Y3THENGOTO1090 0570FORI=Y2TOY3 0580IFI/4=INT(I/4)THENA=A+1 0590NEXTI 0600IFY3/4=INT(Y3/4)THENA=A+1 1090PRINT#N1,"THISBIO-RHYTHMCHARTPREPAREDFOR";LAR$ 1091PRINT#N1 1092PRINT#N1,LAR$;N$ 1093PRINT#N1 1095PRINT#N1,"WHOWASBORNON";M2;"/";D2;"/";Y2 1096PRINT#N1,"ANDWILLBE";A;"DAYSOLDATTHESTARTOFTHISCHART" 1100PRINT#N1 1101PRINT#N1 1110PRINT#N1,"MINUS"; 1111PRINT#N1,"ZERO"; 1112PRINT#N1,"PLUS" 1115PRINT#N1,""; 1120FORI=1TO60 1130PRINT#N1,"-"; 1140NEXTI 1150PRINT#N1 1160C=9 1161L$="............................................................" 1200IFY3/4=INT(Y3/4)THEND(2)=29 1210L$(30)="*" 1260Z1=23 1265P2=SIN(FNA(A)/23*P)*28+30 1270Z1=28 1275E2=SIN(FNA(A)/28*P)*28+30 1280Z1=33 1285I2=SIN(FNA(A)/33*P)*28+30 1293L$(P2)="P" 1294L$(E2)="E" 1295L$(I2)="I" 1296IFP2=E2THENIFE2=I2THENL$(P2)="#" 1297I=Y3-(INT(Y3/100)*100) 1298M$=NUM$(M3) 1299D$=NUM$(D3) 1300I$=NUM$(I) 1301IFLEN(M$)>2THENM$=RIGHT$(M$,2) 1302IFLEN(D$)>2THEND$=RIGHT$(D$,2) 1303IFLEN(I$)>2THENI$=RIGHT$(I$,2) 1309PRINT#N1,M$;"/";D$;"/";I$;"";L$ 1390L$(P2)="." 1400L$(E2)="." 1410L$(I2)="." 1420L$(30)="*" 1460A=A+1 1470D3=D3+1 1480IFD3<=D(M3)THENGOTO1260 1490D3=1 1500M3=M3+1 1600N=N-1 1610IFN=0THENGOTO0100 1620IFM3<=12THENGOTO1260 1630M3=1 1640Y3=Y3+1 1650D(2)=28 1660IFY3-(INT(Y3/4)*4)=0THEND(2)=29 1670GOTO1260 8000IFERR<>1THENGOTO0100 8001STOP 9000REMCOMPUTENO.OFDAYS 9030IFM1=1THENGOTO9080 9040I1=0 9050J=M1-1 9060FORI=1TOJ 9070I1=I1+D(I) 9075NEXTI 9080I1=I1+D1 9090X=Y1-(INT(Y1/4)*4) 9100IFX=0THENIFM1>2THENI1=I1+1 9200RETURN 9300END ih  NAM TTTGPC V1 073075  OPT NG,MEM  ORG 0 ARAY FCB $0A  FCC * 1 ! 2 ! 3*  FCB $0D,$0A  FCC *---!---!---*  FCB $0D,$0A ARAX FCC * 4 ! 5 ! 6*  FCB $0D,$0A  FCC *---!---!---*  FCB $0D,$0A ARAZ FCC * 7 ! 8 ! 9 *  FCB 4 ARA1 EQU ARAY+2 ARA2 EQU(  ARAY+6 ARA3 EQU ARAY+10 ARA4 EQU ARAX+1 ARA5 EQU ARAX+5 ARA6 EQU ARAX+9 ARA7 EQU ARAZ+1 ARA8 EQU ARAZ+5 ARA9 EQU ARAZ+9 ARTB FDB ARTB,ARA1,ARA2,ARA3,ARA4,ARA5,ARA6  FDB ARA7,ARA8,ARA9 K FCB 0 M FCB 0 SKIL FCB 10 RN FCB 0,0,0 PROT FCB 0 XWSW FCB 0 OWSW FCB 0 IWM FCC *I TAKE: * IWM1 FCB 0,4 PSKM FCC *SKILL =* SKILC FCB 10,13,10,4 TEMPS FDB 0 TX1 FDB 0 TSTI FCB 0 TRTBL FDB 0,S1,S2,S5,OW,OWF OUTCH EQU $F018 PDATA EQU $F024 PDATA1 EQU $F027 PCRLF EQU $F021 INCHNP EQU $F015 MTTYSI EQU $FCF4  ORG 256  JMP START MSG1 FCC *HELLO! I AM A MOTOROLA M6800 MICROCOMPUTER.*  FCB $0D,$0A  FCC *I AM PROGRAMMED TO PLAY TIC-TAC-TOE.*  FCB $0D,$0A  FCC *YOU ARE "O" AND YOU PLAY FIRST.*  FCB $0D,$0A  FCC *YOU PLAY BY TYPING A NUMBER FROM 1 TO 9 AS FOLLOWS:*  FCB 4 INVM FCC *INVALID REPLY! PLEASE TYPE AGAIN:*  FCB 4 OCCR FCC *THAT LOCATION IS ALREADY TAKEN; PLEASE TRY ANOTHER.*  FCB 4 YPM FCC *YOUR PLAY: *  FCB 4 OWM FCC *YOU WIN!*  FCB 4 XWM FCC *I WIN!*  FCB 4 TIEM FCC *TIE GAME.*  FCB 4 ASKM FCC *WOULD YOU LIKE TO PLAY AGAIN? *  FCB 4 SESKM FCC *TYPE NEW SKILL: 0(LOW) TO 9(HIGH) OR P(PERFECT). *  FCB 4 ENDM FCC *THANK YOU. I HOPE YOU HAVE ENJOYED THE GAME.*  FCB $0D,$0A  FCC *YOU MAY RESTART BY TYPING ANY CHARACTER.*  FCB 10,10,10,10,10,10,10,10,4 YNM FCC *PLEASE TYPE "Y" OR "N".*  FCB 4 * * ROTATE SUBROUTINE * CALL SEQ: JSR ROT * FDB ADDR TO GO IF K NOT 0 * ROT LDAB ARA1 ROTATE CORNERS  LDAA ARA7  STAA ARA1  LDAA ARA9  STAA ARA7  LDAA ARA3  STAA ARA9  STAB ARA3 *  LDAB ARA2 ROTATE SIDES  LDAA ARA4  STAA ARA2  LDAA ARA8  STAA ARA4  LDAA ARA6  STAA ARA8  STAB ARA6 *  TSX  LDX 0,X X HAS CALL ADDR  INS  INS  DEC K  BNE ROT1  LDAA #4 K WENT TO 0  STAA K MAKE IT 4  JMP 2,X RETURN TO CALL +2 * ROT1 LDX 0,X GET NZ RTN ADDR  JMP 0,X RETURN TO BR ADDR * * * TEST SUBROUTINE * CALL SEQ: JSR TEST * STRING OF TEST CHARS * TEST CHAR: BIT 7: END OF STRING *  BIT 6: 0=OR, 1=AND * BT 54: 00=V, 01=X, 10=O * B 3-0: ARAY LOC OR TRUE BR CODE * TEST TSX  STS TEMPS  LDS 0,X S POINTS TO STRING  DES  CLR TSTI RESET INDICATOR TEST1 PULA GET TEST BYTE  TSTA  BMI TESTE END OF STRING  TAB  ANDB #15 MASK LS 4 BITS  ASLB DOUBLE IT  STAB TX1+1 PUT IN X  LDX TX1  LDX ARTB,X GET ELEMENT ADDR )  LDAB 0,X GET ARAY ELEMENT  BITA #$10 TEST FOR X?  BEQ TES2 NO  CMPB #'X YES, ARAY = X?  BEQ TTRUE YES  BRA TFALS NO TES2 BITA #$20 TEST FOR O?  BEQ TES3 NO  CMPB #'O YES, ARAY = O?  BEQ TTRUE YES  BRA TFALS NO TES3 CMPB #$20 ARAY = SPACE?  BEQ TTRUE TFALS BITA #$40 AND FUNCTION?  BNE TFAL1 YES, SKIP  INC TSTI NO, INCR IND TFAL1 LSR TSTI CLEAR IND  ASL TSTI ---BIT 0 (TEMP)  BRA TEST1 CONTINUE TTRUE BITA #$40 AND FUNCTION?  BNE TEST1 YES, CONTINUE  INC TSTI NO, INCR IND  LSR TSTI SET IND LSB  SEC  ROL TSTI  BRA TEST1 CONTINUE *  * TRUE & OR: IF TEMP, SET PERM; SET TEMP * FALS & OR: IF TEMP, SET PERM; RES TEMP * FALS & AND: RESET TEMP * TESTE TSX X HAS FALSE RETURN ADDR  LDS TEMPS RESTORE S  INS  INS  TST TSTI TEST TRUE?  BNE TEST4 YES  JMP 0,X NO, RETURN TEST4 ANDA #15 MASK RETURN CODE  STAA TX1+1  LDX TX1  LDX TRTBL,X  JMP 0,X GO TO TERM ROUTINE * * * * PLAY ROUTINE * BN EQU RN+1 * PLAY LDAA RN  ANDA #15  SUBA #5  STAA BN BN NEG 30% OF THE TIME P1 LDAA M  CMPA #1 M=1?  BNE P2 NO P18 LDAA SKIL  CMPA #6 S>6?  BGT P22 YES P19 CMPA #5 S:5  BGT P21 GR  BLT P4 LESS P20 TST BN  BPL P4 70%  BRA P22 30% P21 TST BN  BMI P4 30% P22 JSR TEST O2,O5 GO S1  FCB $22,$25,$82 P23 JSR TEST O1 GO S5  FCB $21,$86 P24 JSR ROT  FDB P22  JMP * SH NOT BR HERE P2 JSR TEST D1 FUNC GO OW  FCB $21,$62,$63,$21,$65,$69,$22,$65,$68,$88 P3 JSR ROT  FDB P2 P4 INC XWSW SET XW SWITCH  JSR TEST D2A FUNC GO S1  FCB $12,$53,$41,$15,$59,$41,$14,$57,$41,$82 P5 JSR TEST D2B FUNC GO S2  FCB $11,$53,$42,$15,$58,$42,$84 P6 JSR TEST D2C FUNC GO S5  FCB $11,$59,$45,$12,$58,$45,$86 P7 JSR ROT  FDB P4  CLR XWSW RES XW SW P8 LDAA SKIL  CMPA #1 SKILL:1  BGT P10 GR  BLT P17 LESS P9 TST BN  BPL P17 70%  BRA P13 30% P10 LDAA SKIL  CMPA #2 SKILL=2?  BEQ P12 YES P11 CMPA #5 SKILL=5?  BNE P13 NO P12 TST BN  BMI P17 30% P13 JSR TEST D3A FUNC GO S1  FCB $22,$63,$41,$25,$69,$41,$24,$67,$41,$82 P14 JSR TEST D3B FUNC GO S2  FCB $21,$63,$42,$25,$68,$42,$84 P15 JSR TEST D3C FUNC GO S5  FCB $21,$69,$45,$22,$68,$45,$86 P16 JSR ROT  FDB P13 P17 LDAA M  CMPA #2 M=2?  BNE P33 NO P25 LDAA SKIL  CMPA #9 SKILL:9  BLT P27 LESS  BGT P29 GS P26 TST BN  BMI P33 30%  BRA P29 70% P27 CMPA #8 SKILL=8?  BNE P33 NO P28 TST BN  BPL P33 70% P29 J* SR TEST D4A FUNC GO S1  FCB $01,$62,$55,$67,$01,$66,$68,$49,$01,$63  FCB $65,$01,$42,$53,$67,$01,$63,$57,$68,$82 P30 JSR TEST D4B FUNC GO S2  FCB $02,$64,$55,$02,$55,$66,$02,$61,$69,$02  FCB $63,$67,$02,$64,$67,$02,$66,$69,$84 P31 JSR TEST D4C FUNC GO S5  FCB $05,$62,$64,$51,$05,$62,$67,$51,$05,$63  FCB $64,$51,$05,$61,$66,$68,$59,$86 P32 JSR ROT  FDB P29 P33 LDAB RN RANDOM NO. IN B  LDAA M M IN A  CMPA #2 M:2  BGT P36 GR  BEQ P35 EQ P34 CMPB #$20 RNC>20?  BGT P39 YES P35 CMPB #$30 RNC>30?  BGT P39 YES P36 CMPA #4 M=4?  BEQ P38 YES P37 CMPB #$40 RNC>40?  BGT P39 YES P38 CMPB #$80 RNC>80?  BGT P42 YES P38A JSR TEST 5 VACANT?  FCB $05,$86 YES, GO S5 * BRA P40 P39 CMPB #$80 RNC>80?  BGT P42 YES P40 JSR TEST 1 VACANT?  FCB $01,$82 YES,GO S1 P41 JSR ROT NO  FDB P40 P42 JSR TEST 2 VACANT?  FCB $02,$84 YES, GO S2 P43 JSR ROT NO  FDB P42  BRA P38A KEEP TRYING * * END OF PLAY ROUTINE * * * MAIN PROGRAM LOOP * * INITIALIZE START LDX #ARTB+2  LDAA #'1 INI1 STX ARTB  LDX 0,X  STAA 0,X STORE NO. IN ARAY  CMPA #'9 A=9?  BEQ INI2 YES  LDX ARTB NO, GET NEXT ADDR  INX  INX  INCA INCR A TO NEXT DIGIT  BRA INI1 CONTINUE INI2 LDX #MSG1   JSR PDATA PRINT "HELLO"  LDX #ARAY  JSR PDATA PRINT ARAY INIT LDX #ARTB+2 CLEAN OUT ARAY  LDAA #$20 A=SPACE  LDAB #9 B=COUNT INI3 STX ARTB  LDX 0,X  STAA 0,X  DECB DECR COUNT  BEQ INI4 DONE  LDX ARTB  INX  INX  BRA INI3 INI4 LDAA #4 SET K=4  STAA K  LDAA #1 SET M=1  STAA M  CLR XWSW  CLR OWSW  JSR PCRLF  LDAA SKIL SKILL <10?  CMPA #10  BGE TYPL NO  ORAA #'0 MAKE ASCII CHAR  STAA SKILC  LDX #PSKM PRINT "SKILL="  JSR PDATA TYPL LDX #YPM PRINT "YOUR PLAY"  JSR PDATA1 INCRN INC RN INCR RANDOM NOS.  BNE INCR1  INC RN+2 INCR1 LDAA MTTYSI TEST INPUT  ASRA  BCC INCRN NOT READY  JSR INCHNP GET REPLY  CMPA #'S REPLY =S?  BNE TSTRPL NO, CONTINUE  LDAA M M=1?  CMPA #1  BNE INVR NO  LDX #SESKM NEW SKILL MSG  JSR PDATA  JSR INCHNP GET REPLY   CMPA #'0  BLT SKIN1  CMPA #'9  BLE SKIN2 SKIN1 LDAA #10 NOT 0-9, MAKE 10 SKIN2 ANDA #15 MASK LS 4 BITS  STAA SKIL STORE NEW SKILL  JSR PCRLF  BRA TYPL TRY AGAIN TSTRPL CMPA #'1  BLT INVR REPLY <1  CMPA #'9  BGT INVR REPLY >9  ANDA #15 MASK LS 4 BITS  ASLA MULT BY 2  STAA TX1+1  LDX TX1  LDX ARTB,X GET ELEMENT ADDR  LDAA 0,X GET ELEMENT +  CMPA #$20 SPACE?  BNE OCCU NO  LDAA #'O YES  STAA 0,X PUT O IN ARAY  LDAA RN+2 GET RN2  ANDA #3 MASK LS 2 BITS  STAA PROT INIT PROT  INCA ADD1  STAA K INIT K PRER JSR ROT PRE-ROTATE  FDB PRER  JMP PLAY INVR LDX #INVM PRINT "INVALID"  JSR PDATA  BRA INCRN OCCU LDX #OCCR PRINT "OCCUPIED"  JSR PDATA  BRA INCRN * * PLAY ROUTINE RETURNS TO ONE OF THE FOLLOWING- * S1 LDAA #'Z PUT Z IN ARRAY  STAA ARA1  BRA CLR * S2 LDAA #'Z  STAA ARA2  BRA CLR * S5 LDAA #'Z  STAA ARA5  BRA CLR * OW INC OWSW SET OW SW CLR LDAA K  ADDA #3  SUBA PROT A= K+3-PROT  STAA K POST JSR ROT POST-ROTATE  FDB POST  TST OWSW OW SW SET?  BNE ENDO YES  LDAB #1  LDX #ARTB+2 FINDZ STX ARTB  LDX 0,X  LDAA 0,X  CMPA #'Z  BEQ FOUNDZ  LDX ARTB  INCB  INX  INX  BRA FINDZ FOUNDZ LDAA #'X REPLACE Z WITH X  STAA 0,X  ORAB #'0 MAKE B ASCII NO.  STAB IWM1 PUT IN MSG  LDX #IWM  JSR PDATA PRINT "I TAKE"  LDX #ARAY  JSR PDATA PRINT ARAY  TST XWSW XW SW SET?  BNE ENDX YES  LDAA M NO, M IN A  INC M INCREMENT M  CMPA #4 WAS M=4?  BEQ FINDS YES, CONTINUE  JMP TYPL NO, NEXT PLAY FINDS LDX #ARTB+2 FINDSP STX ARTB  LDX 0,X  LDAA 0,X  CMPA #$20 SPACE?  BEQ FOUNDS YES  LDX ARTB  INX  INX  BRA FINDSP ENDO LDX #ARAY PRINT ARAY  JSR PDATA ENDO1 LDX #OWM PRINT "YOU WIN"  JSR PDATA1  BRA ASK GO ASK ENDX LDX #XWM PRINT "I WIN"  JSR PDATA1  BRA ASK GO ASK FOUNDS LDAA #'O  STAA 0,X MAKE IT O  STX ARTB OWT JSR TEST TEST O WIN GO OWF  FCB $21,$62,$63,$21,$65,$69,$22,$65,$68,$8A  JSR ROT  FDB OWT  LDX #TIEM TYPE "TIE"  JSR PDATA1  BRA ASK GO ASK OWF LDX ARTB  LDAA #$20 SPACE IN A  STAA 0,X PUT SPACE IN ARAY  BRA ENDO1 ASK LDX #ASKM ASK1 JSR PDATA PRINT "WOULD YOU"  JSR INCHNP GET REPLY  CMPA #'Y YES?  BNE ASK2 NO, CONTINUE  JMP INIT YES, NEW GAME ASK2 CMPA #'N NO?  BNE YORN NO  LDX #ENDM YES, PRINT "THANK"  JSR PDATA  JSR INCHNP WAIT  JMP START NEW SESSION * YORN LDX #YNM  BRA ASK1 PRINT "PLEASE"  END  MON  !, }~S11E00000A203120212032202120330D0A2D2D2D212D2D2D212D2D2D0D0A203A S11E001B3420212035202120360D0A2D2D2D212D2D2D212D2D2D0D0A203720E9 S11E003621203820212039202004004000020006000A001B001F002300340071 S11E005138003C00000A000000000000492054414B453A200004534B494C4CA7 S11A006C203D0A0D0A040000000000000005B805BE05C405CA066376 S11E01007E04E648454C4C4F21204920414D2041204D4F544F524F4C41204D71 S11E011B36383030204D4943524F434F4D50555445522E0D0A4920414D205042 S11E0136524F4752414D4D454420544F20504C4159205449432D5441432D546D S11E01514F452E0D0A594F552041524520224F2220414E4420594F5520504C42 S11E016C41592046495253542E0D0A594F5520504C4159204259205459504979 S11E01874E472041204E554D4245522046524F4D203120544F203920415320E5 S11E01A2464F4C4C4F57533A04494E56414C4944205245504C592120504C4505 S11E01BD415345205459504520414741494E3A0454484154204C4F434154491D S11E01D84F4E20495320414C52454144592054414B454E3B20504C45415345E5 S11E01F32054525920414E4F544845522E04594F555220504C41593A2004590F S11E020E4F552057494E2104492057494E21045449452047414D452E04574F8A S11E0229554C4420594F55204C494B4520544F20504C415920414741494E3F97 S11E0244200454595045204E455720534B494C4C3A2030284C4F572920544FFC S11E025F2039284849474829204F5220502850455246454354292E200454483D S11E027A414E4B20594F552E204920484F504520594F55204841564520454E77 S11E02954A4F594544205448452047414D452E0D0A594F55204D415920524594 S11E02B0535441525420425920545950494E4720414E592043484152414354CD S11E02CB45522E0A0A0A0A0A0A0A0A04504C4541534520545950452022592222 S11E02E6204F5220224E222E04D60296349702963C9734960A973CD70AD6064C S11E0301961B97069638971B96239738D72330EE0031317A00542606860497F2 S11E031C546E02EE006E00309F72AE00347F0076324D2B4316C40F58D775DE32 S11E033774EE40E60085102706C158271F200E85202706C14F27152004C120AD S11E0352270F854026037C007674007678007620C9854- . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L