IMD 1.16: 16/08/2007 17:11:05  MDOS02010201091778GREG \lxBINEX CMrLIST CMlrMDOSOV0 SY\rDIR CMrMERGE CMrSTAR SA4MDOSOV4 SYrROCKET SABIO LX8MDOS SYrBJ SALANDER SAMDOSOV6 SYrFREE CM`rROLLOUT CMrEQU SAteDUMP CM rEXBIN CMHrNAME CMrMDOSOV1 SYlrCOMPILE CMASSEMBLECMrPATCH CMrHELP SAEASM CMrBLOKEDITCMrLOAD CMrRUN CM(EDITM CMrMDOSOV3 SYrMDOSER SYeDEL CMrCOMMANDSSATEBIOM LXCHAIN CMrCREATE CFeBACKUP CMrREPAIR CMrBIO SClEMDOSOV5 SYrDOSGEN CMrEMCOPY CM8rMECOPY CMrCOPY CMrFORMAT CMXrSCRIBE CMrCALLMDOSSAMDOSOV2 SYxrMEMTEST LORJUNK SA|uu+XHYHYwvz{67xHY & M& &S66~m? ~SM @?@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 ,EDIT%NAME% ASM%NAME%;LS EXBIN%NAME% DEL%NAME%.LX LOAD%NAME%;MV (-)8* !0200 CN0DK0 LX !!!!TDK0 SA  33e? @O?;3sq2?7 7%? $|)~'b! Q?!? &2)'~'*~'7'! '?%LG!!HHG'%}0HP?HI/!h-H*&.)'`h42 '&` ![!Y-~! ' '<Z+-H &  '$'?$ .'?%& ͽ/-L½-Hý-H!V-q:& =8 '@& &) 'ս/8* 9nͽ/8&!  ._+ FEEF-~!269 '9 $$$~$E2./32%& ]+ &]+н/39-L]-H^9&~$ &]]A' B&S:@:!Vƽ-L]-H^]#'~$-e9'*$.29') U$$ҽ/U9̽/9ѽ/O23: 9V!$.2,&D-HX&ֽ-H$%Ɩ9@'Ȗ2'ҽ/ :: 9X&],'#&~#ٖ^ Ö] 6&2& 9' 9':0 ^A%Ö]A'B&+9&:: ::!V9&~$  ƣ9X&~$>~$ ' ' 932'&]+ 9.+,--L$0,',*'6-e-H$$,' +'-'/'*&}-' ~/8'9,-H ƽ-e8/,+'-'*'.0/ .10./ .10 .0/] 01!|-H*&E09'&{10t&'90$'O@'f%&~&;?%~&6?26 G&&!6$'?$ ?$ .'̽/2'ݧ _)j09oo+ & H&A~-Hoo0-8* & O'Q& ooԁ0'1&Fii B& l&ؽ/a'}%&!z |!0H&~%O'Q'B'z!9-H?%Ɨ~XI~ hihihihi94&ߡ' &&4}0 94}!9 *+,-/%&$6&$.22 &).~#K$.2н.)'Y-ƀ+('+"2!Y![C+6-#$26/2)!Y2;![2M-)*&!z??!??!U???-|%+"|))!?~!̽-L_! f^?%3-H?$,'f! f!%}_0&1'^ ̽/^-H '_& :.!df!ɽ-H '& ![d!_+EE-z^'>?-H}_'_'0 &̽/ % & -e:._+EE?&-z^&~!7?3%9--e-H,' 7$.23._+EE9?& --e-H,&?& 7$.2$$7ҽ/3:3._+EE97'-L2 ' -[- -H2&.~#K-L_N& S-HO&5-HO&D 1M&SA (L&B G&? S&S( P&C ٽ/ -H ',&-H $.2E ~!B'9)'C&!Y ;\'\' ![;~-$.2../FE~#G$.)';'.' .2!Y![- 3s[2&[p'*. Eߎstvu%~**'* &p'Gsq*#)'*Gܽ/ 7&9sbusq+ bu& ** ν/+ ޖj9qrts% ӽ/ y6 䍨uvon$p& ӽ/ y6usq,su ݽ/ sZ&s9Ys42Z&Y9Ys2Z&sY9lsw!Y![stvu% ![w&-9s)'*G +A![ //zw& ![!Y &-* ![* )'hQXJ&F*&BD&>-*?J2h-* PYh2hY--:&PC--"!~-o2~&LN2@N-O-2LN'Z QHHHHQ}A'&6LM"!%2L&@ 6@&ڗ@/2-LLNS2z'~,~,6K2@Lm&D6gPC b !22>U2END'EQU&FCB(FCC'FDB(xMON'NAM(OPT)ORG)vPAG)RMB)SPC)****ERROR TOTAL ERRORS COUN S1 --- PAGE12345  MDOS ASSEMBLER 2.0 COPYRIGHT MOTOROLA 1977 !߁?&]' ? ?!߁?LX!!?%?% ' _? ?+#O?4|~^|~&nZ& ? ?^*&=&!߁?Ň'~3}^+&=#&CN&!] LP!] 4 ^ ^S( ^׃ !U?$~3?%*& !z?%?%34lu?$ ? ~'e!?,n34? 9;46 4P 3-4=G4JL4 O3S4C,308 YT* COMPILEDBY10/30/77M6800BASICCOMPILER--VERSION1.2 ORG $4800 JSR $2000 FCB $12 :: SET 0 A$ EQU :: 112 FDB :+:: FCB 2 FDB 4 :: SET ::+4+4 L$ EQU :: 112 FDB :+:: FCB 2 FDB 60 :: SET ::+4+60 F$ EQU :: 112 FDB :+:: FCB 2 FDB 20 :: SET ::+4+20 N$ EQU :: 112 FDB :+:: FCB 2 FDB 20 :: SET ::+4+20 Z1 EQU :: :: SET ::+6 M$ EQU :: 112 FDB :+:: FCB 2 FDB 3 :: SET ::+4+3 D$ EQU :: 112 FDB :+:: FCB 2 FDB 3 :: SET ::+4+3 I$ EQU :: 112 FDB :+:: FCB 2 FDB 3 :: SET ::+4+3 LAR$ EQU :: 112 FDB :+:: FCB ::21-*-1 ::11 EQU * FDB ::21-*-4 FDB ::21-*-2 FCB $E ::21 EQU * :: SET ::+*-::11 D EQU :: 112 FDB :+:: FCB 2 FDB :+::+7+6*12 :: SET ::+8+6*12 X$ EQU :: 112 FDB :+:: FCB 2 FDB 10 :: SET ::+4+10 N1 EQU :: :: SET ::+6 A EQU :: :: SET ::+6 I EQU :: :: SET ::+6 J EQU :: :: SET ::+6 K EQU :: :: SET ::+6 M1 EQU :: :: SET ::+6 M2 EQU :: :: SET ::+6 M3 EQU :: :: SET ::+6 D1 EQU :: :: SET ::+6 D2 EQU :: :: SET ::+6 D3 EQU :: :: SET ::+6 Y1 EQU :: :: SET ::+6 Y2 EQU :: :: SET ::+6 Y3 EQU :: :: SET ::+6 I1 EQU :: :: SET ::+6 E2 EQU :: :: SET ::+6 P2 EQU :: :: SET ::+6 I2 EQU :: :: SET ::+6 X EQU :: :: SET ::+6 N EQU   :: :: SET ::+6 P EQU :: :: SET ::+6 C EQU :: :: SET ::+6 46 FDB *+2+:: : EQU * RMB :: :0040 50 FDB 0040 0+2 57 19 FCB ::12-*-1 FCC "#LP" ::12 EQU * 98 :0050 50 FDB 0050 12 FDB :+D 0+1 23 13 FDB 31 25 :0051 50 FDB 0051 12 FDB :+D 0+2  23 13 FDB 28 25 :0052 50 FDB 0052 12 FDB :+D 0+3 23 13 FDB 31 25 :0053 50 FDB 0053 12 FDB :+D 0+4 23 13 FDB 30 25 :0054 50 FDB 0054 12 FDB :+D 0+5 23 13 FDB 31 25 :0055 50 FDB 0055 12 FDB :+D 0+6 23 13 FDB 30 25 :0056 50 FDB 0056 12 FDB :+D 0+7 23 13 FDB 31 25 :0057 50 FDB 0057 12 FDB :+D 0+8 23 13 FDB 31 25 :0058 50 FDB 0058 12 FDB :+D 0+9 23 13 FDB 30 25 :0059 50 FDB 0059 12 FDB :+D 13 FDB 10 23 13 FDB 31 25 :0060 50 FDB 0060 12 FDB :+D 13 FDB 11 23 13 FDB 30 25 :0061 50 FDB 0061 12 FDB :+D 13 FDB 12 23 13 FDB 31 25 :0070 50 FDB 0070 104 FDB :8000 :0100 50 FDB 0100 10 FDB :+N1 57 53 :0101 50 FDB 0101 10 FDB :+N1 57 53 :0103 50 FDB 0103 19 FCB ::13-*-1 FCC "WANTAGRAPH" ::13 EQU * 113 54 72 18 FDB :+A$ 56 26 :0104 50 FDB 0104 18 FDB :+A$ 19 FCB ::14-*-1 FCC "STOP" ::14 EQU * 74 43 FDB ::15 51 FDB MDOS ::15 EQU * :0105 50 FDB 0105 18 FDB :+A$ 19 FCB ::16-*-1 FCC "YES" ::16 EQU * 74 43 FDB ::17 12 FDB :+N1 0+2 25 46 FDB ::27 ::17 EQU * 46 FDB :0106 ::27 EQU * 46 FDB :0110 :0106 50 FDB 0106 18  FDB :+A$ 19 FCB ::18-*-1 FCC "NO" ::18 EQU * 74 43 FDB ::19 12 FDB :+N1 0+0 25 46 FDB ::29 ::19 EQU * 46 FDB :0103 ::29 EQU * :0110 50 FDB 0110 10 FDB :+N1 57 53 :0115 50 FDB 0115 10 FDB :+N1 57 53 :0130 50 FDB 0130 46 FDB ::1A FNA EQU * FDB :+A 10 FDB :+A 10 FDB :+A 10 FDB :+Z1 32 91 10 FDB :+Z1 31 29 115 ::1A EQU * :0195 50 FDB 0195 12  FDB :+P 14 FCC '6.28319' FCB $D 25 :0200 50 FDB 0200 10 FDB :+N1 57 53 :0210 50 FDB 0210 19 FCB ::1B-*-1 FCC "WHATISYOURNAME?" ::1B EQU * 113 54 72 18 FDB :+N$ 56 26 :0230 50 FDB 0230 19 FCB ::1C-*-1 FCC "ENTERYOURBIRTHDATE(E.G.1,1,1954):" ::1C EQU * 113 54 72 12 FDB :+M2 70 25 12 FDB :+D2 70 25 12 FDB :+Y2 70 25 :0290 50 FDB 0290 10 FDB :+Y2 13 FDB 100 39 43 FDB ::1D 12 FDB :+Y2 10 FDB :+Y2 13 FDB 1900 28 25 ::1D EQU * :0300 50 FDB 0300 19  FCB ::1E-*-1 FCC "ENTERSTARTDATE:" ::1E EQU * 113 54 72 12 FDB :+M3 70 25 12 FDB :+D3 70 25 12 FDB :+Y3 70 25 :0320 50 FDB 0320 10 FDB :+Y3 13 FDB 100 39 43 FDB ::1F 12 FDB :+Y3 10 FDB :+Y3 13 FDB 1900 28 25 ::1F EQU * :0330 50 FDB 0330 19 FCB ::110-*-1 FCC "HOWMANYMONTHSWOULDYOULIKE?" ::110 EQU * 113 54 72 12 FDB :+N 70 25 :0380 50 FDB 0380 10 FDB :+Y2 10 FDB :+Y3 42 43 FDB ::111 46 FDB :0230 ::111 EQU * :0390 50 FDB 0390 10 FDB :+Y2 10 FDB :+Y3 39 43 FDB ::112 46 FDB :0460 ::112 EQU * :0400 50 FDB 0400 10 FDB :+M2 10 FDB :+M3 42 43 FDB ::113 46 FDB :0230 ::113 EQU * :0410 50 FDB 0410 10 FDB :+M2 10 FDB :+M3 39 43 FDB ::114 46 FDB :0460 ::114 EQU * :0420 50 FDB 0420 10 FDB :+D2 10 FDB :+D3 42 43 FDB ::115 46 FDB :0230 ::115 EQU * :0460 50 FDB 0460 12 FDB :+D1 10 FDB :+D3 25 :0470 50 FDB 0470 12 FDB :+M1 10 FDB :+M3 25 :0480 50 FDB 0480 12 FDB :+Y1 10 FDB :+Y3 25 :0490 50 FDB 0490 47 F  DB :9000 :0500 50 FDB 0500 12 FDB :+A 10 FDB :+I1 25 :0510 50 FDB 0510 12 FDB :+D1 10 FDB :+D2 25 :0520 50 FDB 0520 12 FDB :+M1 10 FDB :+M2 25 :0530 50 FDB 0530 12 FDB :+Y1 10 FDB :+Y2 25 :0540 50 FDB 0540 47 FDB :9000 :0550 50 FDB 0550 12 FDB :+A 10 FDB :+A 10 FDB :+I1 29 13 FDB 364 10 FDB :+Y3 10 FDB :+Y2 29 31 28 25 :0560 50 FDB 0560 10 FDB :+Y2 10 FDB :+Y3 37 43 FDB ::116 46 FDB :1090 ::116 EQU * :0570 50 FDB 0570 12 FDB :+I 17 10 FDB :+Y2 25 10 FDB :+Y3 13 FDB 1 67 :0580 50 FDB 0580 10 FDB :+I 0+4 32 10 FDB :+I 0+4 32 91 37 43 FDB ::117 12 FDB :+A 10 FDB :+A 0+1 28 25 ::117 EQU * :0590 50 FDB 0590 68 FDB :+I :0600 50 FDB 0600 10 FDB :+Y3 0+4 32 10 FDB :+Y3 0+4 32 91 37 43 FDB ::118 12 FDB :+A 10 FDB :+A 0+1 28 25 ::118 EQU * :1090 50 FDB 1090 10 FDB :+N1 57 19 FCB ::119-*-1 FCC "THISBIO-RHYTHMCHARTPREPAREDFOR" ::119 EQU * 54 18 FDB :+LAR$ 54 18 FDB :+N$ 54 53 :1095 50 FDB 1095 10 FDB :+N1 57 19 FCB ::11A-*-1 FCC "WHOWASBORNON" ::11A EQU * 54 10 FDB :+M2 52 55 19 FCB 1 FCC "/" 54 10 FDB :+D2 52 55 19 FCB 1 FCC "/" 54 10 FDB :+Y2 52 53 :1096 50 FDB 1096 10 FDB :+N1 57 19 FCB ::11B-*-1 FCC "ANDWILLBE" ::11B EQU * 54 10 FDB :+A 52 55 19 FCB ::11C-*-1 FCC "DAYSOLDATTHESTARTOFTHISCHART" ::11C EQU * 54 53 :1100 50 FDB 1100 10 FDB :+N1 57 53 :1101 50 FDB 1101 10 FDB :+N1 57 53 :1110 50 FDB 1110 10 FDB :+N1 57 19  FCB ::11D-*-1 FCC "DOWN" ::11D EQU * 54 :1111 50 FDB 1111 10 FDB :+N1 57 19 FCB ::11E-*-1 FCC "CRITICAL" ::11E EQU * 54 :1112 50 FDB 1112 10 FDB :+N1 57 19 FCB ::11F-*-1 FCC "UP" ::11F EQU * 54 53 :1115 50 FDB 1115 10 FDB :+N1 57 19 FCB ::120-*-1 FCC "" ::120 EQU * 54 :1120 50 FDB 1120 12 FDB :+I 17 0+1 25 13 FDB 60 13 FDB 1 67 :1130 50 FDB 1130 10 FDB :+N1 57 19 FCB 1 FCC "-" 54 :1140 50 FDB 1140 68 FDB :+I :1150 50 FDB 1150 10 FDB :+N1 57 53 :1160QU* 4AB34A277:74 4AB42B278:43 4AB54ABA279:FDB::15 4AB733280:51 4AB851D6281:FDBMDOS 4ABA282:::15EQU* 4ABA32283::010550 4ABB0069284:FDB0105 4ABD12285:18 4ABE4846286:FDB:+A$ 4AC013287:19 4AC103288:FCB::16-*-1 4AC2594553289:FCC"YES" 4AC5290:::16EQU* 4AC54A291:74 4AC62B292:43 4AC74AD1293:FDB::17 4AC90C294:12 4ACA493C295:FDB:+N1 4ACC02296:0+2 4ACD19297:25 4ACE2E298:46 4ACF4AD4299:FDB::27 4AD1300:::17EQU* 4AD12E301:46 4AD24AD7302:FDB:0106 4AD4303:::27EQU* 4AD42E304:46 4AD54AF0305:FDB:0110 4AD732306::010650 4AD8006A307:FDB0106 4ADA12308:18 4ADB4846309:FDB:+A$ 4ADD13310:19 4ADE02311:FCB::18-*-1 4ADF4E4F312:FCC"NO" 4AE1313:::18EQU* 4AE14A314:74 4AE22B315:43 4AE34AED316:FDB::19 4AE50C317:12 4AE6493C318:FDB:+N1 4AE800319:0+0 4AE919320:25 4AEA2E321:46 4AEB4AF0322:FDB::29 4AED323:::19EQU* 4AED2E324:46 4AEE4A77325:FDB:0103 4AF0326:::29EQU* 4AF032327::011050 4AF1006E328:FDB0110 4AF30A329:10 4AF4493C330:FDB:+N1 MAL/68001.2:4AF7 1-03-7812:01AM;Page7;Form1 4AF639331:57 4AF735332:53 4AF832333::011550 4AF90073334:FDB0115 4AFB0A335:10 4AFC493C336:  FDB:+N1 4AFE39337:57 4AFF35338:53 4B0032339::013050 4B010082340:FDB0130 4B032E341:46 4B044B19342:FDB::1A 4B06343:FNAEQU* 4B064942344:FDB:+A 4B080A345:10 4B094942346:FDB:+A 4B0B0A347:10 4B0C4942348:FDB:+A 4B0E0A349:10 4B0F48BE350:FDB:+Z1 4B1120351:32 4B125B352:91 4B130A353:10 4B1448BE354:FDB:+Z1 4B161F355:31 4B171D356:29 4B1873357:115 4B19358:::1AEQU* 4B1932359::019550 4B1A00C3360:FDB0195 4B1C0C361:12 4B1D49B4362:FDB:+P 4B1F0E363:14 4B20362E3238364:FCC'6.28319' 4B270D365:FCB$D 4B2819366:25 4B2932367::020050 4B2A00C8368:FDB0200 4B2C0A369:10 4B2D493C370:FDB:+N1 4B2F39371:57 4B3035372:53 4B3132373::021050 4B3200D2374:FDB0210 4B3413375:19 4B3513376:FCB::1B-*-1 4B3657484154377:FCC"WHATISYOURNAME?" 4B49378:::1BEQU* 4B4971379:113 4B4A36380:54 4B4B48381:72 4B4C12382:18 4B4D48A6383:FDB:+N$ 4B4F38384:56 4B501A385:26 MAL/68001.2:4B52 1-03-7812:01AM;Page8;Form1 4B5132386::023050 4B5200E6387:FDB0230 4B5413388:19 4B5526389:FCB::1C-*-1 4B56454E5445390:FCC"ENTERYOURBIRTHDATE(E.G.1,1,1954):" 4B7C391:::1CEQU* 4B7C71392:113 4B7D36393:54 4B7E48394:72 4B7F0C395:12 4B804960396:FDB:+M2 4B8246397:70 4B8319398:25 4B840C399:12 4B854972400:FDB:+D2 4B8746401:70 4B8819402:25 4B890C403:12 4B8A4984404:FDB:+Y2 4B8C46405:70 4B8D19406:25 4B8E32407::029050 4B8F0122408:FDB0290 4B910A409:10 4B924984410:FDB:+Y2 4B940D411:13 4B950064412:FDB100 4B9727413:39 4B982B414:43 4B994BA6415:FDB::1D 4B9B0C416:12 4B9C4984417:FDB:+Y2 4B9E0A418:10 4B9F4984419:FDB:+Y2 4BA10D420:13 4BA2076C421:FDB1900 4BA41C422:28 4BA519423:25 4BA6424:::1DEQU* 4BA632425::030050 4BA7012C426:FDB0300 4BA913427:19 4BAA13428:FCB::1E-*-1 4BAB454E5445429:FCC"ENTERSTARTDATE:" 4BBE430:::1EEQU* 4BBE71431:113 4BBF36432:54 4BC048433:72 4BC10C434:12 4BC24966435:FDB:+M3 4BC446436:70 4BC519437:25 4BC60C438:12 4BC74978439:FDB:+D3 4BC946440:70 MAL/68001.2:4BCB 1-03-7812:01AM;Page9;Form1 4BCA19441:25 4BCB0C442:12 4BCC498A443:FDB:+Y3 4BCE46444:70 4BCF19445:25 4BD032446::032050 4BD10140447:FDB0320 4BD30A448:10 4BD4498A449:FDB:+Y3 4BD60D450:13 4BD70064451:FDB100 4BD927452:39 4BDA2B453:43 4BDB4BE8454:FDB::1F 4BDD0C455:12 4BDE498A456:FDB:+Y3 4BE00A457:10 4BE1498A458:FDB:+Y3 4BE30D459:13 4BE4076C460:FDB1900 4BE61C461:28 4BE719462:25 4BE8463:::1FEQU* 4BE832464::033050 4BE9014A465:FDB0330 4BEB13466:19 4BEC21467:FCB::110-*-1 4BED484F5720468:FCC"HOWMANYMONTHSWOULDYOULIKE?" 4C0E469:::110EQU* 4C0E71470:113 4C0F36471:54 4C1048472:72 4C110C473:12 4C1249AE474:FDB:+N 4C1446475:70 4C1519476:25 4C1632477::038050 4C17017C478:FDB0380 4C190A479:10 4C1A4984480:FDB:+Y2 4C1C0A481:10 4C1D498A482:FDB:+Y3 4C1F2A483:42 4C202B484:43 4C214C26485:FDB::111 4C232E486:46 4C244B51487:FDB:0230 4C26488:::111EQU* 4C2632489::039050 4C270186490:FDB0390 4C290A491:10 4C2A4984492:FDB:+Y2 4C2C0A493:  (N'S11E4800BD20001270484602000470484E02003C70488E0200147048A60200A6 S11E481B147048C40200037048CB0200037048D20200037048D905000100013A S11348360E7048DE02492D70492E02000A2E49C028 S11E49C032002802391303234C50623200320C48DE01170D001F193200330CA8 S11E49DB48DE02170D001C193200340C48DE03170D001F193200350C48DE04A8 S11E49F6170D001E193200360C48DE05170D001F193200370C48DE06170D0087 S11E4A111E193200380C48DE07170D001F193200390C48DE08170D001F19321D S11E4A2C003A0C48DE09170D001E1932003B0C48DE0D000A170D001F19320057 S11E4A473C0C48DE0D000B170D001E1932003D0C48DE0D000C170D001F193227 S11E4A62004668511F3200640A493C39353200650A493C3935320067130D57E0 S11E4A7D414E54204120475241504820713648124846381A32006812484613F6 S11E4A980453544F504A2B4AA43351C032006912484613035945534A2B4ABB52 S11E4AB30C493C02192E4ABE2E4AC12E4ADA32006A12484613024E4F4A2B4ACA S11E4ACED70C493C00192E4ADA2E4A7732006E0A493C39353200730A493C39FD S11E4AE9353200822E4B0349420A49420A49420A48BE205B0A48BE1F1D733218 S11E4B0400C30C49B40E362E32383331390D193200C80A493C39353200D21319 S11E4B1F135748415420495320594F5552204E414D45203F7136481248A6383E S11E4B3A1A3200E61326454E54455220594F555220424952544844415445202D S11E4B5528452E472E20312C312C31393534293A207136480C496046190C49A9 S11E4B707246190C498446193201220A49840D0064272B4B900C49840A4984A3 S11E4B8B0D076C1C1932012C1313454E54455220535441525420444154452047 S11E4BA63A207136480C496646190C497846190C498A46193201400A498A0DC6 S11E4BC10064272B4BD20C498A0A498A0D076C1C1932014A1321484F57204D85 S11E4BDC414E59204D4F4E54485320574F554C4420594F55204C494B45203F6D S11E4BF7207136480C49AE461932017C0A49840A498A2A2B4C102E4B3B320133 S11E4C12860A49840A498A272B4C202E4C503201900A49600A49662A2B4C30C1 S11E4C2D2E4B3B32019A0A49600A4966272B4C402E4C503201A40A49720A49E4 S11E4C48782A2B4C502E4B3B3201CC0C496C0A4978193201D60C495A0A49661B S11E4C63193201E00C497E0A498A193201EA2F51313201F40C49420A499019B5 S11E4C7E3201FE0C496C0A4972193202080C495A0A4960193202120C497E0A6D S11E4C9949841932021C2F51313202260C49420A49420A49901D0D016C0A49C2 S11E4CB48A0A49841D1F1C193202300A49840A498A252B4CCC2E4D1A32023A8C S11E4CCF0C4948110A4984190A498A0D0001433202440A494804200A49480424 S11E4CEA205B252B4CF90C49420A4942011C1932024E4449483202580A498A79 S11E4D0504200A498A04205B252B4D1A0C49420A4942011C193204420A493CEF S11E4D20391323544849532042494F2D52485954484D20434841525420505276 S11E4D3B45504152454420464F5220361248D9361248A636353204470A493C6B S11E4D5639131057484F2057415320424F524E204F4E20360A49603437130153 S11E4D712F360A4972343713012F360A498434353204480A493C39130C414EE1 S11E4D8C442057494C4C20424520360A4942343713242044415953204F4C44E8 S11E4DA720415420544845205354415254204F462054484953204348415254EA S11E4DC2363532044C0A493C393532044D0A493C39353204560A493C391318E9 S11E4DDD2020202020202020202020202020202020202020444F574E36320493 S11E4DF8570A493C39131220202020202020202020435249544943414C363265 S11E4E1304580A493C39130D20202020202020202020205550363532045B0A31 S11E4E2E493C39130A20202020202020202020363204600C49481101190D00A9 S11E4E493C0D00014332046A0A493C3913012D3632047444494832047E0A4958 S11E4E643C39353204880C49BA091932048912484E133C2D2D2D2D2D2D2D2D78 S11E4E7F2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D55 S11E4E9A2D2D2D2D2D2D2D2D2D2D2D2D2D2D2  D2D2D2D2D2D2D2D2D2D2D1A3248 S11E4EB504B00A498A04200A498A04205B252B4ECF0C48DE02170D001D1932A0 S11E4ED004BA12484E0D001E150D003A1B3204EC0C48BE0D0017193204F10C17 S11E4EEB499C0A4942724AF00D0017200A49B41F570D001C1F0D001E1C1932E7 S11E4F0604F60C48BE0D001C193204FB0C49960A4942724AF00D001C200A4945 S11E4F21B41F570D001C1F0D001E1C193205000C48BE0D0021193205050C497E S11E4F3CA20A4942724AF00D0021200A49B41F570D001C1F0D001E1C193205C9 S11E4F570D12484E0A499C150D00501B32050E12484E0A4996150D00451B3280 S11E4F72050F12484E0A49A2150D00491B3205100A499C0A4996252B4FA10A80 S11E4F8D49960A49A2252B4FA112484E0A499C150D00231B3205110C49480A0B S11E4FA8498A0A498A0D0064205B0D00641F1D193205121248C40A49667A1AD4 S11E4FC33205131248CB0A49787A1A3205141248D20A49487A1A3205151448B3 S11E4FDEC4022A2B4FED1248C41248C4023D1A3205161448CB022A2B5001129A S11E4FF948CB1248CB023D1A3205171448D2022A2B50151248D21248D2023D39 S11E50141A32051D0A493C391248C43613012F361248CB3613012F361248D27A S11E502F361301203612484E363532056E12484E0A499C150D002D1B3205785A S11E504A12484E0A4996150D002D1B32058212484E0A49A2150D002D1B320555 S11E50658C12484E0D001E150D003A1B3205B40C49420A4942011C193205BE14 S11E50800C49780A4978011C193205C80A49780C48DE0A4966170B282B509E2B S11E509B2E4EDD3205D20C497801193205DC0C49660A4966011C193206400C6C S11E50B649AE0A49AE011D1932064A0A49AE00252B50CC2E4A673206540A49FF S11E50D1660D000C282B50DC2E4EDD32065E0C496601193206680C498A0A492C S11E50EC8A011C193206720C48DE02170D001C1932067C0A498A0A498A04201C S11E51075B041F1D00252B51190C48DE02170D001D193206862E4EDD321F40FE S11E51225E01262B512B2E4A67321F413351C03223283223460A495A01252B77 S11E513D51422E517F3223500C4990001932235A0C494E0A495A011D19322394 S11E5158640C49481101190A494E0D00014332236E0C49900A49900C48DE0A53 S11E51734948170B1C193223734449483223780C49900A49900A496C1C1932DD S11E518E23820C49A80A497E0A497E04205B041F1D1932238C0A49A800252BBA S11C51A951BC0A495A022A2B51BC0C49900A4990011C193223F0303F3FDA S9 4022A2B51D20C49900A4990011C193223F0303F3F68 S9 1FA481101190A494E0D0001433223690A493C3913194C494E45203930CE S11E5215363020464F5220493D3120544F204A2E2E2E360A4948343532236E82 S11E52300C49900A49900C48DE0A4948170B1C193223734449483223780C49B4 S11E524B900A49900A496C1C1932237D0A493C3913154C494E45203930383002 S 50 FDB 1160 12 FDB :+C 0+9 25 :1161 50 FDB 1161 18 FDB :+L$ 19 FCB ::121-*-1 FCC "------------------------------------------------------------" ::121 EQU * 26 :1200 50 FDB 1200 10 FDB :+Y3 0+4 32 10 FDB :+Y3 0+4 32 91 37 43 FDB ::122 12 FDB :+D 0+2 23 13 FDB 29 25 ::122 EQU * :1210 50 FDB 1210 18 FDB :+L$ 13 FDB 30 21 13 FCB 0 FCC ":" 27 :1260 50 FDB 1260 12 FDB :+Z1 13 FDB 23 25 :1265 50 FDB 1265 12 FDB :+P2 10 FDB :+A 114 FDB FNA 13 FDB 23 32 10  FDB :+P 31 87 13 FDB 28 31 13 FDB 30 28 25 :1270 50 FDB 1270 12 FDB :+Z1 13 FDB 28 25 :1275 50 FDB 1275 12 FDB :+E2 10 FDB :+A 114 FDB FNA 13 FDB 28 32 10 FDB :+P 31 87 13 FDB 28 31 13 FDB 30 28 25 :1280 50 FDB 1280 12 FDB :+Z1 13 FDB 33 25 :1285 50 FDB 1285 12 FDB :+I2 10 FDB :+A 114 FDB FNA 13 FDB 33 32 10 FDB :+P 31 87 13 FDB 28 31 13 FDB 30 28 25 :1293 50 FDB 1293 18 FDB :+L$ 10 FDB :+P2 21 13 FCB 0 FCC "P" 27 :1294 50 FDB 1294  18 FDB :+L$ 10 FDB :+E2 21 13 FCB 0 FCC "E" 27 :1295 50 FDB 1295 18 FDB :+L$ 10 FDB :+I2 21 13 FCB 0 FCC "I" 27 :1296 50 FDB 1296 10 FDB :+P2 10 FDB :+E2 37 43 FDB ::123 10 FDB :+E2 10 FDB :+I2 37 43 FDB ::124 18 FDB :+L$ 10 FDB :+P2 21 13 FCB 0 FCC "#" 27 ::124 EQU * ::123 EQU * :1297 50 FDB 1297 12 FDB :+I 10 FDB :+Y3 10 FDB :+Y3 13 FDB 100 32 91 13 FDB 100 31 29 25 :1298 50 FDB 1298 18 FDB :+M$ 10 FDB :+M3 122 26 :1299 50 FDB 1299 18 FDB :+D$ 10 FDB :+D3 122 26 :1300 50 FDB 1300 18 FDB :+I$ 10 FDB :+I 122 26 :1301 50 FDB 1301 20 FDB :+M$ 0+2 42 43 FDB ::125 18 FDB :+M$ 18 FDB :+M$ 0+2 61 26 ::125 EQU * :1302 50 FDB 1302 20 FDB :+D$ 0+2 42 43 FDB ::126 18 FDB :+D$ 18 FDB :+D$ 0+2 61 26 ::126 EQU * :1303 50 FDB 1303 20 FDB :+I$ 0+2 42 43 FDB ::127 18 FDB :+I$ 18 FDB :+I$ 0+2 61 26 ::127 EQU * :1309 50 FDB 1309 10 FDB :+N1 57 18 FDB :+M$ 54 19 FCB 1 FCC "/" 54 18 FDB :+D$ 54 19 FCB 1 FCC "/" 54 18 FDB :+I$ 54 19 FCB 1 FCC "" 54 18 FDB :+L$ 54 53 :1390 50 FDB 1390 18 FDB :+L$ 10 FDB :+P2 21 13 FCB 0 FCC "-" 27 :1400 50 FDB 1400 18 FDB :+L$ 10 FDB :+E2 21 13 FCB 0 FCC "-" 27 :1410 50 FDB 1410  18 FDB :+L$ 10 FDB :+I2 21 13 FCB 0 FCC "-" 27 :1420 50 FDB 1420 18 FDB :+L$ 13 FDB 30 21 13 FCB 0 FCC ":" 27 :1460 50 FDB 1460 12 FDB :+A 10 FDB :+A 0+1 28 25 :1470 50 FDB 1470 12 FDB :+D3 10 FDB :+D3 0+1 28 25 :1480 50  FDB 1480 10 FDB :+D3 12 FDB :+D 10 FDB :+M3 23 11 40 43 FDB ::128 46 FDB :1260 ::128 EQU * :1490 50 FDB 1490 12  FDB :+D3 0+1 25 :1500 50 FDB 1500 12 FDB :+M3 10 FDB :+M3 0+1 28 25 :1600 50 FDB 1600 12 FDB :+N 10 FDB :+N 0+1 29 25 :1610 50 FDB 1610 10 FDB :+N 0+0 37 43 FDB ::129 46 FDB :0100 ::129 EQU * :1620 50 FDB 1620 10 FDB :+M3 13 FDB 12 40 43 FDB ::12A 46 FDB :1260 ::12A EQU * :1630 50 FDB 1630 12 FDB :+M3 0+1 25 :1640 50 FDB 1640 12 FDB :+Y3 10 FDB :+Y3 0+1 28 25 :1650 50 FDB 1650 12 FDB :+D 0+2 23 13 FDB 28 25 :1660 50 FDB 1660 10 FDB :+Y3 10 FDB :+Y3 0+4 32 91 0+4 31 29 0+0 37 43 FDB ::12B 12 FDB :+D 0+2 23 13 FDB 29 25 ::12B EQU * :1670 50 FDB 1670 46  FDB :1260 :8000 50 FDB 8000 94 0+1 38 43 FDB ::12C 46 FDB :0100 ::12C EQU * :8001 50 FDB 8001 51 FDB MDOS :9000 50 FDB 9000 :9030 50 FDB 9030 10 FDB :+M1 0+1 37 43 FDB ::12D 46 FDB :9080 ::12D EQU * :9040 50 FDB 9040 12 FDB :+I1 0+0 25 :9050 50 FDB 9050 12 FDB :+J 10 FDB :+M1 0+1 29 25 :9060 50 FDB 9060 12 FDB :+I 17 0+1 25 10 FDB :+J 13  FDB 1 67 :9070 50 FDB 9070 12 FDB :+I1 10 FDB :+I1 12 FDB :+D 10 FDB :+I 23 11 28 25 :9075 50 FDB 9075 68 FDB :+I :9080 50 FDB 9080 12 FDB :+I1 10 FDB :+I1 10 FDB :+D1 28 25 :9090 50 FDB 9090 12 FDB :+X 10 FDB :+Y1 10 FDB :+Y1 0+4 32 91 0+4 31 29 25 :9100 50 FDB 9100 10 FDB :+X 0+0 37 43 FDB ::12E 10 FDB :+M1 0+2 42 43 FDB ::12F 12 FDB :+I1 10 FDB :+I1 0+1 28 25 ::12F EQU * ::12E EQU * :9200 50 FDB 9200 48 MDOSSWI FCB$3F END  &)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&06::109050 4D310442687:FDB1090 4D330A688:10 4D34493C689:FDB:+N1 4D3639690:57 4D3713691:19 4D3823692:FCB::119-*-1 4D3954484953693:FCC"THISBIO-RHYTHMCHARTPREPAREDFOR" 4D5C694:::119EQU* 4D5C36695:54 4D5D12696:18 4D5E48D9697:FDB:+LAR$ 4D6036698:54 4D6112699:18 4D6248A6700:FDB:+N$ 4D6436701:54 4D6535702:53 4D6632703::109550 4D670447704:FDB1095 4D690A705:10 4D6A493C706:FDB:+N1 4D6C39707:57 4D6D13708:19 4D6E10709:FCB::11A-*-1 4D6F57484F20710:FCC"WHOWASBORNON" 4D7F711:::11AEQU* 4D7F36712:54 4D800A713:10 4D814960714:FDB:+M2 4D8334715:52 MAL/68001.2:4D85 1-03-7812:01AM;Page14;Form1 4D8437716:55 4D8513717:19 4D8601718:FCB1 4D872F719:FCC"/" 4D8836720:54 4D890A721:10 4D8A4972722:FDB:+D2 4D8C34723:52 4D8D37724:55 4D8E13725:19 4D8F01726:FCB1 4D902F727:FCC"/" 4D9136728:54 4D920A729:10 4D934984730:FDB:+Y2 4D9534731:52 4D9635732:53 4D9732733::109650 4D980448734:FDB1096 4D9A0A735:10 4D9B493C736:FDB:+N1 4D9D39737:57 4D9E13738:19 4D9F0C739:FCB::11B-*-1 4DA0414E4420740:FCC"ANDWILLBE" 4DAC741:::11BEQU* 4DAC36742:54 4DAD0A743:10 4DAE4942744:FDB:+A 4DB034745:52 4DB137746:55 4DB213747:19 4DB324748:FCB::11C-*-1 4DB420444159749:FCC"DAYSOLDATTHESTARTOFTHISCHART" 4DD8750:::11CEQU* 4DD836751:54 4DD935752:53 4DDA32753::110050 4DDB044C754:FDB1100 4DDD0A755:10 4DDE493C756:FDB:+N1 4DE039757:57 4DE135758:53 4DE232759::110150 4DE3044D760:FDB1101 4DE50A761:10 4DE6493C762:FDB:+N1 4DE839763:57 4DE935764:53 4DEA32765::111050 4DEB0456766:FDB1110 4DED0A767:10 4DEE493C768:FDB:+N1 4DF039769:57 4DF113770:19 MAL/68001.2:4DF3 1-03-7812:01AM;Page15;Form1 4DF218771:FCB::11D-*-1 4DF320202020772:FCC"DOWN" 4E0B773:::11DEQU* 4E0B36774:54 4E0C32775::111150 4E0D0457776:FDB1111 4E0F0A777:10 4E10493C778:FDB:+N1 4E1239779:57 4E1313780:19 4E1412781:FCB::11E-*-1 4E1520202020782:FCC"CRITICAL" 4E27783:::11EEQU* 4E2736784:54 4E2832785::111250 4E290458786:FDB1112 4E2B0A787:10 4E2C493C788:FDB:+N1 4E2E39789:57 4E2F13790:19 4E300D791:FCB::11F-*-1 4E3120202020792:FCC"UP" 4E3E793:::11FEQU* 4E3E36794:54 4E3F35795:53 4E4032796::111550 4E41045B797:FDB1115 4E430A798:10 4E44493C799:FDB:+N1 4E4639800:57 4E4713801:19 4E480A802:FCB::120-*-1 4E4920202020803:FCC"" 4E53804:::120EQU* 4E5336805:54 4E5432806::112050 4E550460807:FDB1120 4E570C808:12 4E584948809:FDB:+I 4E5A11810:17 4E5B01811:0+1 4E5C19812:25 4E5D0D813:13 4E5E003C814:FDB60 4E600D815:13 4E610001816:FDB1 4E6343817:67 4E6432818::113050 4E65046A819:FDB1130 4E670A820:10 4E68493C821:FDB:+N1 4E6A39822:57 4E6B13823:19 4E6C01824:FCB1 4E6D2D825:FCC"-" MAL/68001.2:4E6F 1-03-7812:01AM;P age16;Form1 4E6E36826:54 4E6F32827::114050 4E700474828:FDB1140 4E7244829:68 4E734948830:FDB:+I 4E7532831::115050 4E76047E832:FDB1150 4E780A833:10 4E79493C834:FDB:+N1 4E7B39835:57 4E7C35836:53 4E7D32837::116050 4E7E0488838:FDB1160 4E800C839:12 4E8149BA840:FDB:+C 4E8309841:0+9 4E8419842:25 4E8532843::116150 4E86048-------------------------------------------------------" 4EC9850:::121EQU* 4EC91A851:26 4ECA32852::120050 4ECB04B0 i!" $0204 _"""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  O? ' '$;&Y$С' $& :Y 11!+!a&!s/ ? Y'?O)L1!.~$~& ? ~0!&J!9!&L !&  9 |%9|#(9|&9|"9|$9'&z'# ~-4'&|' " $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&~0 ~/~/OPTFTF[\Y*,9HZ&;o%(>l (>670 'Z&32(>l&ll&lj ,(> m&jj(>l&lj&(HO9'd ]'G((oo (HY%5HY%1%+HY%'(l&l?%_%z(&O9 z &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%9 |@x ~"!~&o$~r~s:~s~u~v,~v~s~s~t~t~se~vn~wc~wl~w~wu~w{rzqNq~9~x~r{o&pqp_~ $;""### #l######$$$M$S$[$$""#*$$% %B%q%y%#1###`%,#["###<!B!X!p!y!!!!!!!!#!!3_ RSR'. V. 6 V29 INPUT FILE = OUTPUT FILE = COMPILATION COMPLETE STRING DICTIONARY FULL EOF HIT SYNTAX ERROR IO ERROR STATEMENT TOO COMPLEX STRING LENGTH TOO LONG CODE F CODE G CODE H INPUT BUFFER OVERFLOW CODE J 33933 90116DDDD6n:@F9 ;5G&)O7F58D(@: ( 2)! 3 ('#  ' O > =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 н"3476356767657..I"&/J"~%2&P7'H.//$|..2723562334. ;."& /.$ |7+%H~" ~$%2!'&Y'!&"~""~"Խ%2~#<)3476 3~#<2334@:F9!7/~'97H.//$|..9ݽ&~# V29  )/)kJM6800 BASIC COMPILER -- 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 M6800 BASIC COMPILER -- 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 9 Hy 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.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 ~nd8 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' ''~%*b x**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+M8 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   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&9SK I.D. : . !€( 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Ȁ $0201!h DK h UNIT=0  CHANGE BUFFERFILE= . CLUSTER ALLOCATION MAP DIRECTORY  PSN=0000 LS N=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%9 ΀  0200u%%%%?&N%%%%ED %?&1"' *% ';' # $ 7"3% ]' # )? ?% & "$ %? !%[??#{' %[? ~ q#? %#$ #+%? %%% %?%#$%%? ? ~ #* %%%%%?%? !$~ %%%%%?%? ? $?"Y'~ %? %? ]'%#%Z& %% ED%%%? %? %# %]&~!% % %f?% '% %%%f%%?%%n"%Z&@%r$[%z$%|%x"'%%x)"'|)%[?'~"|%&'z%$=%?(Z'?'%L&'?O%$[%%%?$ ? %[? 9)&$|)% %&ƀ(?#%? ?%[?' % %&%[? 9%[&? 9& & ? 9##$9%%%%?& %%%% ? 9%%%&J9%? 9%[& DK "?'? 9 9O"6S'4E'ED&@ $C& B  R& A&(62&4 3M&-') ' ' 37 ' & &"3 93 9 %  &%97  '0%62$ 'A% 62%Z& 39$%I 9 ? %T' & 9 9$L$'$=?(J%%$%%%?%$ ? %[%%%%e?$%u?(% %?%%e?9     $[$%%1 0 EDCOPYING FILE: NO MORE FILES COPY ? SUFFIX? ATTRIBUTES? FILE IS NOT BINARY &?)9&/&._F$&/VFz&.&9 Ҁ 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ր  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? ؀( 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&29ۀ0 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&29x 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!"0 #0100*****L     !"DK0 SA !DK1  !! z U# "#E&9#~&4 K#&*? %( p#&%% %%? $ p&& K&'? ?""?]&#"" V" {""?"?&9X% U0& z1&9 ?%?% &_9  D'~$K'~$&~$'-'~$$'~$ o o _9$&~$'~$ L_j &&M&~$    ?(  ?  n&&&l'0ƀO?      ? & ~#  ~#        %l 'C'   ?'  ?'-  n&'  L& _     9O76 " 0?(J&~ "23M&?9? ! O" Q K?' '?  9 M Q O M K%$~&X p6&2'~&S & &'~&S&'~&S % $ $l&l 9 $ $l&l"!%'M'$&  &_&  _9 _ $9LL'& &\M'6O296 ?26_HY67HYHY67HY011111?39?&?9O6 &  + , 7 (32M'%i %l &9 /'~'&~''~'!"'O? /&l &l #$&?* /  o /n&&'3l&  &% /#$&_& /&_ /9  8 0203%'% ' '%?''~$}&&~$~!%&h';&j&h?*|&}&'&' &&-~$\&SA0 '&''&''?'' ? ?}&&~$|&~!}&'~!>&&'#'' ''~$'#&'#''$''&''' O%Y'#&&`&%&&b& %+ &\' 'N?)'N&ZX&l?''''~ '#&'~$}&&/&' O%Y&`&&?/%&%&&?/$& }&&A&'#ƀ'#'~$&l&'''&& }&'~$|& |&&&-% 'h;' % 'XW&|&% '_'% -~$\ ]' %?+&h&h'y%&j&&?/$~$?$&?/%&& }&&B}&&=}&&8'&h'V&j&h?''_''b'V? &h? &hY'ƀ?#?%'&h';&j&h ?&''H&&~#'1?'~$?'}'N&}'O'&'N'O }&''D'B'%%?|&&&,%%x%O' ?' &?&?'~$'1?& ޽$?&&&?-&h?$&&&h?&h&'N&h'P&'R'1?'~$?&6' ''F&';{$z' &2' #' ' ? $?2%x' O%Y&`&&^ ' ' ?' &]?''&'&?.' '_x' IY'B'C%%O' ?'~$'+')')')'N'N' ''&'N'R'S?/$ '1?&Ƚ%')'-'.?/$ '1?&' ?&?&|&&&,~#'1O%Y&&&&&&&&'1%Y~#? $?? ?'  '    ' ' ' $'2&'<''2'2'1$9%?''_? %?''_? 9&v'. %M%M?&u'J%N%N$|%M&x%M%N?)%911~$? $$?96&&2 &&M&?9?9'%S$ A'0'DK'%?' ? $?' ?'~$?&9}'& ''?/$'1?'~$}'C&z'Bz'C'P'?''N'9 1DK0 %&g3DK0 SA%&gXXXXXXXX.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 X $0204 DK0LO j j D !y."2"'"#E# % #D#E#!!E!=>WHAT? SYNTAX ERROR ILLEGAL OP CODE ILLEGAL OPERAND INITIALIZATION ERROR ILLEGAL ADDRESS OFFSET=  REL ADDR=EXEC ADDR= "f"g"g?]&9 &1!o?&I?&E!&- j,t%%O !l+02~%t &   "ƀ? ?#?_? ?"6&?  hc? 6'~'.)-,& .& %1 U'x- '(,&),& .&7%1 U)-W%x- - &. .'.&"Ɓ ;"Ƃ 4&E-']*,Ӂ &'()?)+02En- 20~$i6"f? ?# 0./?-~,t-$"k-/"? ~%"t-$' +. " $2 +w-$-2"o-/2+%, %7 "w"w-+ #"? ~%"ƅ~%%+,0?.EF"{-/#? ~%"-F%++%  ~%""-/#? "ƅ~%%O 5 hFOEH+2H'/,Ӂ '{"&H, GV,Ӂ"' h h, H, ,& "&"|H 2E&+%E 6, 2%9V!k ',& 25& E& LF h~%54~%"Ƃ~%%~%""ƅ -''7 ')9~%",%w #', %hE&S":8&S' EN&A"-+ .', %>FE9:7& 8&&W' &X&"-/"s-/"? ')''? $~%""ƅ~%%,%'(!! .!!&!&"-/!./?-E"-/!!!!G!+%, %JE!-+ - z.!!)&|G!!!!!!&!? ? %G&~'D~%"|6+ 02,)&~);,ӗ<,ӗ=,ӗ>)'A' B'"ƃ~%%,ӽ)&-O;& <&=' ?'.& ??'0>)&& #B&@& &  @@'~)B&,́ &8 '~),#'FA,'X')%)'R,&,ӁX&,ӽ)'"Ƅ~%%?@'A&@ @ dŀ',ӽ)%ؽ)&?& IA&ņ AA& ?' 0@@ ',)%)&2AB?.M+]& &B6&BA2+%J?(+$"ƅ~%%@EE6E2, 23%!k22Z7&14~%6 ' ')&691%.A+'-&#FFFEC,Ӎ%6CAB}E*?) ?-2A 9A,́''D$'5O'*'%'?$E 9.A, 92 Q%A?BBA% ,'UA ٽ,Ӂ %Ɂ$ŗBA, ėKA?1?$?1?1?)K?(A,?% ,Ӂ0'1& 9 9''"Ƃ~%%"ƃ~%% >!!("V?"(2& A'\>+q%ͽ+( &~+O~+eon'O+q%A(0'&\>6+2 'v.N~+e'&  # +q%ÆA?' (@'L>+('30&?ŀ&~*v6& 0 '. HS!!S9R ,X # ܆ !? ~%"-O' ?'.& 9Z&? 9> ' ,T ' j,|!o???_64O !,T%' II? J?IJ ?*$%".0 967$%?/% "#?/"  329%C"#?-?$6IYI! }!l'!m&!n',T%!m!n ,t%|!l!k 3?' 93967!l'!k' !m!n,|%!l329?& 9 ?& 9_? 9!!!?'!!o9 7IU&/`%U/;VVZ&K2KI]9S h S h hS9 '9)./?))'?)'+%)&W'X&+% '()?/" 9 92}4&  29 6-M-N-K-K.29ABAADCԉADDԋANDԄASLJHASRJGBCC $BCS %BEQ 'BGE ,BGT .BHI "BITԅBLE /BLS #BLT -BMI +BNE &BPL *BRA BSR BVC (BVS )CBACLC CLICLRJOCLV CMPԁCOMJCCPXЌDAADECJJDES4DEX EORԈINCJLINS1INXJMPHnJSRHLDAԆLDSЎLDXLSRJDNEGJ@NOPORAԊPSH6PUL2ROLJIRORJFRTI;RTS9SBASBCԂSEC SEISEV STATSTSPSTXPSUBԀSWI?TABTAPTBATPATSTJMTSX0TXS5WAI>G%H%bI*jL%^M&N&O%?)I4$I&~4}IK4D$ _5='|KIJ?)I& |L4$%P7%T7%X7)-6½4&~4N_5%\ƀ7%`7'56%l 7%p7%x7)6½4$~4*'_5A''/6%t7%x7)6%h 7" I"KMR ? OQIIKKH$*6M7O  A& 6 ?'O2RRM'zQ& O '  6)u6 &1'4'3'2&6533&~3E7%d7("#6n$'s6?3]'54%~3 "! 6n$&l6?4% D$5ֽ4$"6k$& %|ƀ?'}%&)6%! 6x?*6?*= 4 4%&' 9$ &* !&&,?',+L&-|*(& 9("? $?#6n$'s6?#,O+% 7%$7%(7,%, ?'%0%4%8%,7<%07%47%87,%<'a%>7%<7%<%<%>%>3Z&'\'@6$ % '\'K& 9?2'56?36% &o,?("#6x$ &6?|%9H=O?"ƀO?, "6k$()6?# C7%WEG?$8"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;78787297.^^\?9 78V%7%V7WWZ&:2:8]9;X ;XX;9 '97HYHY?%2|I9]'/l&l77 #0m&jj7 Z&796dfJ&296hiJ&29A% 62% 0%62%9TFTFTFVFVD6YYYO FZ,29|uu+XHYHYwvz{67xHY & M& &S66~m? ~SM ( 0200 ADDRESS MUST BE GREATER THAN $ START LOADLOAD ADDRESS:INSUFFICIENT MEMORY USER MEMORY MAP NOT CONFIGURED DOES DRIVE 1 CONTAIN A MEMORY ROLLOUT? INVALID DISKETTE IN DRIVE 1   ,00! ׆0 LO *! *r* %շ Ʀ '~"E~" Ɓ;&~"S~"3 Ʀ '~"o  ~"S '~"y~"   '~"~"y '~"~" %ؽ%޶ M'~"ֶ U'~"~#D'~"~$ '~"~#c %ؽ%~# M&~"~# V'~"~#U'~"~# D'~#~# %ؽ%%ؽ%%ؽ%޽&&B M&~#:* %%޽))Ӷ ۄ &w2% '/%޽&' #~#'~# #~#*! .! *r!}*&>*%~#c'ķ '~#~#c N'~#~#cY&~#ݽ%޽)Ӷ ۄ &w%'/%*' #~$D'~$ #~$D*! 3! *r!}*&>*%~# * ¦ ħ Ħ ¡&~$i~$  ¼)&~$~$M%)%%޶ ہ1'~$%ؽ%޽&)%)% ȁY&~$%) % !)*W&~$)%%޶ Η &w Ռ'~%~%[ † )% )% ¼ &~%[~% ) Η% Ջ)'~%~%_)) ķ Ŷ))싀 o &~%~%%%?9? 9?9?9? 9? 9脽%9m%9i%90&~&!)%ؽ%9)% M'~&0)%ض &~&=~%9*9&]&S&]S'_  0}6299!u!v!y!x!{ )% '~&%ض '~&%ض '~&)%ض M&~&ݽ% )% !m!o!y!k!x!j)%!y!x!u!{9'~';~')%)_)) ķ Ŷ))싀  o &~'~'%9$  8 &]&   9'ֽ(9'ֽ((90 DRIVE 1 SCRATCH? START ADDRESS:END ADDRESS:INVALID ADDRESS RANGEARE YOU SURE (Y, N, Q)? RLLOUT T獗Z疦.$9 9, & 9: Ձ &9 : "% $ F9[ &  9 J ]' IyFYIVx]&ƀ  xvw9'Y'N'~d &Y'~d}& }&v t u脽S0Lw脽S~d'ֽ((('N'Y'~%9'ֽ(}& }&9 ! RLLOUT y F)' 8 !} , Z ]'/l&l*I*I #0m&jj*I Z&*I96dfJ&29!!!!&!Z&9!!!!!Z&9} A*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`ncb) """"""""""""# # ""|"#"&&]&((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%NBC0I0MMOGIIKKO&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@*  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&$ xA+ A%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=yiyyyzzEzqz0 ~nd%;&8' '0208A1'A2'AL'AR'AS(2BH(BBL(mCM(CN(D1)D2)EM(EX(F1(F2(FL(wFR)8HL(rIS)SKY)LJ)hLM'LP)pLT)NE*(NL*2NP*  !PCN0 SA !PLP0 SACOURTESY OF SCRIBE TEXT PROCESSOR 00.00 ** COMMAND ERROR --!!--INVALID NUMBER OF COPIESCANNOT USE MULTIPLE COPIES AND SECOND FILE SPECIFICATION1 &+ $N $Q$8? -.%,%'% /1? $8'*2ފ"'Խ'*}E&3 zE&3~*Dwh"yj h?"o).) l:-0 Z&9 %$9% !Q9Ƅ?9 @'9S "o "'&(2"o') 9) ~+!9% &K $G 9 (%&:!$ 4#%&+"$' " %&#$ \,'9$M'\_ ~+Ɇ88 88 9'!Q.1%+&1t  '..|9!& 92 A B\,%& M' l$\O9\2&~+Ɇ 988ϔ88 9ވ? ވ)O9 8888 9 9"o "\ވ o߂\?? ?(j߄lhh ??]&ވ\KD /% )9X%? ފ"'+ 9ކ"o'"& '&߈)_9~+ɽ,% & M'K$CO9~+Ɇ͔88 9#ߊ}D& |D612J&9"ߊ "߈9"o "'&A߈'߆&]'67&]' ?&ߤ32 22_? ~+# "\,%!& G$H?(\"'"$ #% 9~+ɽ/1T09/1Y09 9?"o" ""ލ#??9!ܽ-v% &88 9~+Ɇ88 9/-' 9,%'1t$ +C#+n9~+!-v%&88 9~+ɖ3'+32' ,% &3#3'+ 9, ~+"o "'&?&9_? ~+Ɇݔ8888 9,%)&.M'+l$'6*23}3'Z'3%3' 71z33Z& 9, ~+ɽ,%&M'$ /}0 9~+ɽ,%&M'$ ?(,&09~+ɆGHO? 9,%&M'$G" H?(|G 9~+ɽ,%&G$ H?(+n9~+f'$h'$i*2*2ފ"'$U? $Uh&jh?j$*2*2 92r8'!h!jh?&88239<=&h!j2|=hh ' z='=|"/ "޽/ #/ DeEF0lSAu߂"y߄h?]&Zwjh ?"o/)"߄?]&"/ނ ');&?% 6?%2/Y62E' "' )9$m? ?$E ))+~8'C #F" !F /-!0?1!!0?'623AB1$ƄO?%CƄ?9?%?%9_? 9%' &$*(&#?$"?*!?( ?&,9H`HH`9}3&, 23&-$c1z396694 49 46'o4 9> |>2'D}:'?}>&t:'51&:?:?'j!?$'& ?.ihh  'h2h?9-,$?/"./$U' J'/8& ,&& 'ӄ,, 8&!1% &,&'& & ,&1p 1m 92}:',1}<&~0:L<*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$ 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$ 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$ 0950IFE$="G"THEN1020 0960IFE$="H"THEN870 3 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$ 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$ 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$ 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$ 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,SIMULATUNGTHEEXACTRULESAS" 3330PRINT"THOSEONHELOSVEGASSTRIP.THECARDSAREDELTFROMONE" 3340PRINT"52-CARDDECKUNTILLAHANDSTARTSWITHLESSTHAN12CARDS" 3350PRINT"REMAININGINWHICHCASEITRESHUFFLES.THEDEALERMUSTHIT" 3360PRINT"THROUGHATOTALOF16ANDSTANDONALL"; 3365PRINT"TOTALSOF17ANDABOVE" 3370PRINT"" 3371PRINT"THEINSURANCEBETISOFFEREDATHALFTHE" 3375PRINT"PLAYERSBETWHEN"; 3380PRINT"THEDEALER'SUP-CARDISANACE" 3390PRINT"YOUMAY,DOUBLE-DOWNONANYTWOCARDS,ANDRECEIVEONEMORE" 3395PRINT"CARDWHILETHEORIGINALBETISDOUBLED" 3400PRINT"YOUMAYSPLITANYHANDBUTRESPLITTINGISNOTALLOWED" 3410PRINT"ALSO4 ONECARDISDELTONEACHPAIROFACES." 3415PRINT"YOURCARDSAPPEARINTHEFARLEFTCOLUMN;THEDEALERON" 3420PRINT"THEFARRIGHT" 3430PRINT"THECOMMANDSAREASFOLLOWS:" 3440PRINT"HIT(DRAWANOTHERCARD)" 3450PRINT"GOOD(STANDONCURRENTTOTAL)" 3460PRINT"DOUBLE(DOUBLEYOURBETANDDRAWONECARD)" 3470PRINT"SPLIT(FORMTWOHANDSFROMAPAIRWITHTHEORIGINAL" 3480PRINT"BETONEACHHND" 3490PRINT"" 3491PRINT"COMMANDSMAYBETYPEDINASTHEFIRSTLETTER" 3495PRINT"GOODLUCK" 3500GOTO100 3600PRINT"YOUAREALLOWEDONLY20HANDS,",N$ 3610IFC>1500THEN3700 3620PRINT"SORRY,BUTYOUDIDNOTWINACHANCEATOURDRAWING." 3630IFC>100THEN3650 3640PRINT"MYADVICEWOULDBETOSTAYCLEAROFLASVEGAS!" 3650PRINT"PLEASELETTHENEXTPERSONPLAY." 3655PRINT"IFYOUHAVEANYQUESTIONS,PLEASESEE" 3656PRINT"THEMOTOROLAENGINEERONDUTY." 3680GOTO50 3700PRINT"CONGRATULATIONS!!!YOUHAVEJUSTWONACHANCEINOUR", 3701PRINT"DRAWING!!!" 3720FORJ=1TO20STEP2 3730PRINTTAB(J);N$;"ISAWINNER!!!!!!!!" 3731S=SIN(C)*SIN(C)*SIN(C) 3732NEXTJ 3740GOTO50 3750END UCOMMANDSISAFILETOHELPYOUUSEMDOS AFILENAMECONSISTSOF1-8CHARACTERS,FOLLOWEDBYASUFFIXAS: FILENAM1.SX THESUFFIX(SX)ISNORMALLYASSIGNEDBYTHESYSTEM.THEYARE: CF-CHAINPROCEDURALFILE(ALLOWSYOUTOCHAINMDOSCOMMANDS) CM-COMMANDPROGRAMFILE(ALLOWSADDINGCOMMANDSTOMDOS) LO-ABSOLUTE,MEMORYIMAGEFILE(REGHQUIREDTOLOADUNDERMDOS) LX-EXORCISERLOADABLEFILE(PRODUCEDBYASMANDREQUIREDIF YOUWISHTODUMPTOTAPEANDLOADUNDEREXBUG) RO-RELOCATABLEOBJECTFILE(PRODUCEDBYRASM) SY-SYSTEMFILE SA-ASCIISOURCEFILE ED-COPYOFANEDOSFILE THESUFFIXCANUSUALLYBYLEFTOFFWHENREFERENCINGAFILE---THESYSTEM WILLKNOWWHICHONEYOUHAVEINMIND. IFTHEFILEISONDRIVE1,YOUMUSTADD:1TOTHEFILENAME. EXAMPLE:FILENAM1.SA:1 FILENAM1:1 THEATTRIBUTESOFAFILEARELISTEDINTHEDIRECTORYANDARE: W-WRITEPROTECTED D-DELETEPROTECTED S-SYSTEMSFILE C-CONTIGUOUSALLOCATIONWASSPECIFIED N-NOSPACECOMPRESSION(ASCIIONLY) #-ANUMBERFROM0-7GIVINGTHEFILEFORMAT USETHEBREAKKEYTOHALTANOPERATION---NOTTHEABORTBUTTON!!!! ACONTROLWCANBEUSEDFORAPAUSEWHENOUTPUTTINGTOTHECONSOLE. THEBASICCOMMANDFORMATIS:COMMANDFILENAME[;OPTIONS] ANYTHINGINBRACKETS[]ISOPTIONAL,I.E.,NOTREQUIRED PARTIALLISTOFCOMMANDS PAGECOMMANDCOMMENT 9DIR[;OPTION]PRINTSDIRECTORY EENTIREDIRECTORY AENTIREDIRECTORYPLUSALLOCATIONINFORMATION LLINEPRINTER SSYSTEMFILESASWELLASUSERFILES EXAMPLES:DIR;ADIR;LDIR;LADIR;SL 15LISTNAME[;OPTION]LISTSSOURCEFILE HALLOWSADDINGHEADINGFROMTHECONSOLE LLINE5 PRINTER NADDSLINENUMBERS EXAMPLES:LISTDEMO1LISTDEMO1;LLISTDEMO1;LH 22EDITNAMEINVOKESEDITOR,WRITESOVEREXISTINGFILE. THEOUTPUTFILEISNAMEDSCRATCHANDISRENAMED WHENTHEORIGINALISAUTOMATICALLYDELETED. ANOUTPUTFILECANBENAMEDIFDESIRED, I.E.,EDITDEMO1,DEMO2) 21ASMNAME;LSINVOKESTHEABSOLUTEASSEMBLER.PRODUCESEXORCISER LOADABLEFILE(.LX).THELSOPTIONCAUSESTHELISTING TOBEMADEONTHELINEPRINTER(L)ANDTHESYMBOL TABLESHOWN(S).OTHEROPTIONSAREAVAILABLE. 13EXBINNAME[;STARTADDRESS]PRODUCESMDOSLOADABLEFILE(.LO) THESTARTADDRESSWILLBETHEFIRST LOCATIONUSEDINTHEPROGRAMUNLESS SPECIFIEDHEREASANOPTION. 16LOADNAME;MVLOADSPROGRAM,RESTORESEXBUGSWIVECTORANDENTERS MAID. 23RASMNAME[,NAME2,NAME3,....];LSRXINVOKESTHEMACROASSEMBLER,GIVES LISTINGONTHEPRINTERANDPRODUCESRELOCATABLECODE. MANYOTHEROPTIONSAREAVAILABLE. 24RLOADINVOKESTHELINKINGLOADERTOLOADRELOCATABLECODE. 12EMCOPYNAME[,.SUFFIX][;OPTION]CONVERTSEDOSFILETOMDOS .EDISDEFAULTSUFFIX.THEOPTIONSARE: DDELETEPROTECT ECOPYENTIREEDOSDISKETTE SCOPYSELECTEDFILESONLY EDOSDISKETTEMUSTBEONDRIVE1 18NAMEOLDFILE[,NEWFILE][;ATTRIBUTE]RENAMEAND/ORCHANGESUFFIX ORCHANGEATTRIBUTE. DDELETEPROTECT WWRITEPROTECT SSYSTEMFILE NNON-SYSTEMFILE XREMOVEDANDWPROTECTION 17MERGESFILE1[,SFILE2,SFILE3....],NEWFILEMERGES1ORMOREFILESTONEW. 4BACKUPCOPIESDISKETTEON0TOTHATON1 FORTNAME;LINVOKESFORTRANCOMPILERANDLISTSONPRINTER. BASICNAMEINVOKESTHEBASICINTERPRETER. EXBUGRETURNSTOEXBUG IFYOUWERELOOKINGATTHISONTHECRT,YOUCOULDHAVE USEDTHECONTROLWKEYTOHALTTHEOUTPUT WHILEREADINGIT.HITANYOTHERKEYTORESUME. u]uPAGE * *MDOSVERSION02.20--SYSTEMEQUATEFILE--FEB.24,1978 * SPC3 * *DEFINEMULTI-SECTOR/SINGLESECTORI/O--RESIDENTMDOSONLY * MULTSEQU0.0=>SINGLESECTOR,1=>MULTIPLESECTOR * *DEFINETYPEOFMDOS--RESIDENTMDOSONLY * MDOSF$EQU0.0=>MDOS,1=>OEMMDOS SPC3 * *SKIP2MACRO * *THEGENERATEDBYTEISA"COMPAREINDEXIMMEDIATE". *THEEXECUTIONOFTHEBYTEWILLCHANGETHECONDITIONCODESONLY. *NOREGISTERSAREAFFECTED.THUS,AONEBYTEINSTRUCTION *ISFORMEDTHATSKIPSFORWARDTWOBYTES. * SKIP2MACR FCB$8C. ENDM * *SKIP1MACRO * *THESAMECONCEPTASTHE"SKIP2"MACROISUSED,EXCEPTTHAT *A"BITTESTACCUMULATORAIMMEDIATE"OPCODEISGENERATED. * SKIP1MACR FCB$85 ENDM * *SCALLMACRO(SYSTEMFUNCTIONCALL) * SCALLMACR IFEQNARG-1 SWI FCB\0!.%01111111 ENDC * IFNENARG-1 FAIL*UNDEFINEDSWICALLARGUMENT* E6 NDC ENDM * *UCALLMACRO(USERFUNCTIONCALL) * UCALLMACR IFEQNARG-1 SWI FCB\0!+%10000000 ENDC * IFNENARG-1 SCALL ENDC ENDM * *SEQMACRO(NUMBERINGSEQUENTIALEQUATES) * SEQMACR IFNENARG \0EQU*. ENDC ORG*+1. ENDM PAGE * *SYSTEMFUNCTIONDEFINITIONS * * *SETLOCATIONCOUNTTO0FORTHEEQUATEDEFINITIONS * .$SAVSET*.SAVEOLDLOCATIONCOUNT ORG$0. * * * SEQ.RESRV.RESERVEADEVICE SEQ.RELES.RELEASEADEVICE SEQ.OPEN.OPENAFILE SEQ.CLOSE.CLOSEAFILE SEQ.GETRC.READARECORD SEQ.PUTRC.WRITEARECORD SEQ.REWND.POSITIONTOBEGINNINGOFFILE SEQ.GETLS.READLOGICALSECTOR SEQ.PUTLS.WRITELOGICALSECTOR SEQ.KEYIN.CONSOLEINPUT SEQ.DSPLY.CONSOLEOUTPUT(TERMW/CR) SEQ.DSPLX.CONSOLEOUTPUT(TERMW/EOT) SEQ.DSPLZ.CONSOLEOUTPUT(TERMW/EOT,NOCR/LFATEND) SEQ.CKBRK.CHECKCONSOLEFORBREAKKEY SEQ.DREAD.EROMDISKREAD SEQ.DWRIT.EROMDISKWRITE SEQ.MOVE.MOVEASTRING SEQ.CMPAR.COMPARESTRINGS SEQ.STCHB.STOREBLANKS SEQ.STCHR.STORECHARACTERS SEQ.ALPHA.CHECKALPHABETICCHARACTER SEQ.NUMD.CHECKDECIMALDIGIT SEQ.ADDAM.INCREMENTMEMORY(DOUBLEBYTE)BYA SEQ.SUBAM.DECREMENTMEMORY(DOUBLEBYTE)BYA SEQ.MMA.MULTIPLY(SHIFTLEFT)MEMORYBYA(COUNT) SEQ.DMA.DIVIDE(SHIFTRIGHT)MEMORYBYA(COUNT) SEQ.MDENT.ENTERMDOSWITHOUTRELOADING SEQ.LOAD.LOADAFILEFROMDISK SEQ.DIRSM.DIRECTORYSEARCHANDMODIFY SEQ.PFNAM.PROCESSFILENAME SEQ.ALUSM.ALLOCATEUSERMEMORY SEQ.CHANG.CHANGENAME/ATTRIBUTES SEQ.MDERR.MDOSERRORMESSAGEHANDLER SEQ.ALLOC.ALLOCATEDISKSPACE SEQ.DEALC.RETURNDISKSPACE SEQ.EWORD.SETERRORSTATUSWORDFORCHAIN SEQ.TXBA.TRANSFERXTOB,A SEQ.TBAX.TRANSFERB,ATOX SEQ.XBAX.EXCHANGEB,AANDX SEQ.ADBX.ADDBTOX SEQ.ADAX.ADDATOX SEQ.ADBAX.ADDB,ATOX SEQ.ADXBA.ADDXTOB,A SEQ.SUBX.SUBTRACTBFROMX SEQ.SUAX.SUBTRACTAFROMX SEQ.SUBAX.SUBTRACTB,AFROMX SEQ.SUXBA.SUBTRACTXFROMB,A SEQ.CPBAX.COMPAREB,ATOX SEQ.ASRX.SHIFTXRIGHT(ARITHMETIC) SEQ.ASLX.SHIFTXLEFT(ARITHMETIC/LOGICAL) SEQ.PSHX.PUSHXONSTACK SEQ.PULX.PULLXFROMSTACK SEQ.PRINT.PRINT-TERMINATEWITHCR SEQ.PRINX.PRINT-TERMINATEWITHEOT SEQ.GETFD.READFDR(RESIDENTMDOSONLY) SEQ.PUTFD.WRITEFDR(RESIDENTMDOSONLY) SEQ.PUTEF.WRITEEOF(RESIDENTMDOSONLY) SEQ.EREAD.DISKREADW/ERRRETN SEQ.EWRIT.DISKWRITEW/ERRRETN IFNEMULTS SEQ.MREAD.MULTIPLESECTORREAD SEQ.MWRIT.MULTIPLESECTORWRITE SEQ.MERED.MULTIPLESECTORREADW/ERRRETURN SEQ.MEWRT.MULTIPLESECTORWRITEW/ERRRETURN ENDC IFEQMULTS SEQ SEQ SEQ SEQ ENDC SEQ.BOOT.RELOADMDOS * ORG.$SAV.RESTORELOCATIONCOUNTER PAGE * *ASCIICONTROLCHARACATERS * NULLEQU0.NULL SOHEQU1.STARTOFHEADING STXEQU2.STARTOFTEXT ETXEQU3.ENDOFTEXT EOTEQU4.ENDOFTRANSMISSION ENQEQU5.ENQUIRY(WRU-WHOAREYOU) ACKEQU6.ACKNOWLEDGE BELEQU7.BELL BSEQU8.BACKSPACE HTEQU9.HORIZONTALTAB LFEQU$A.LINEFEED VTEQU$B.VERTICALTAB FFEQU$C.FORMFEED CREQU$D.CARRIAGERETURN SOEQU$E.SHIFTOUT SIEQU$F.SHIFTIN DLEEQU$10.DATALINKESCAPE DC1EQ7 U$11.DEVICECONTROL1 DC2EQU$12.DEVICECONTROL2 DC3EQU$13.DEVICECONTROL4 DC4EQU$14.DEVICECONTROL4 NAKEQU$15.NEGATIVEACKNOWLEDGE SYNEQU$16.SYNCHRONOUSIDLE ETBEQU$17.ENDOFTRANSMISSIONBLOCK CANEQU$18.CANCEL EMEQU$19.ENDOFMEDIUM SUBEQU$1A.SUBSTITUTE ESCEQU$1B.ESCAPE FSEQU$1C.FILESEPARATOR GSEQU$1D.GROUPSEPARATOR RSEQU$1E.RECORDSEPARATOR USEQU$1F.UNITSEPARATOR SPACEEQU$20.SPACE(WORDSEPARATOR) RUBOUTEQU$7F.DELETE(RUBOUT) * *SPECIALCHARACTEREQUATES * SUFDLMEQU'..SUFFIXDELIMETER OPTDLMEQU';.OPTIONSDELIMETER DRVDLMEQU':.LOGICALDRIVERDELIMETER DEVDLMEQU'#.GENERICDEVICENAMEDELIMETER FAMDLMEQU'*.FAMILYNAME/SUFFIXDELIMETER E$FATLEQU1!<7.FATALERRORBIT PAGE * *MDOSSECTOREQUATES * SC$DIDEQU0.DISKIDPHYSICALSECTORNUMBER SC$CATEQU1.CLUSTERALLOCATIONTABLEPHSYICALSECTORNUMBER SC$LOKEQU2.LOCKOUTCLUSTERTABLEPHYSICALSECTORNUMBER SC$DIREQU3.DIRECTORYSTARTPHYSICALSECTORNUMBER SC$DREEQU$16.DIRECTORYENDPHYSICALSECTORNUMBER SC$BBEQU$17.BOOTBLOCKPHYSICALSECTORNUMBER SC$DOSEQU$18.OPERATINGSYSTEMPHSYICALSECTORNUMBER(RIBADDRESS) SC$SIZEQU128.SECTORSIZEINBYTES SC$TRKEQU26.NUMBEROFSECTORS/TRACK SC$CLSEQU4.NUMBEROFSECTORS/CLUSTER SC$MAXEQU2000.MAXIMUMNO.OFUSABLESECTORS DFCLS$EQU32.DEFAULTNO.OFCLUSTERS * *DISKIDSECTOROFFSETS * DID$IDEQU0.OFFSETTODISKID(8BYTES) DID$VNEQU8.OFFSETTOVERSIONNUMBER(2BYTES) DID$RNEQU10.OFFSETTOREVISIONNUMBER(2BYTES) DID$DTEQU12.OFFSETTODATE(6BYTES) DID$NMEQU18.OFFSETTOUSERNAME(20BYTES) DID$RBEQU38.OFFSETTORIBADDRS.(20BYTES) * *DIRECTORYENTRYOFFSETS * DIR$NMEQU0.OFFSETTONAME(8BYTES) DIR$SXEQU8.OFFSETTOSUFFIX(2BYTES) DIR$RBEQU10.OFFSETTORIBADDRESS(2BYTES) DIR$ATEQU12.OFFSETOFATTRIBUTES(2BYTES) DIR$NUEQU14.OFFSETTONOTUSEDAREA(2BYTES) * *R.I.B.BINARYFILEOFFSETS * RIB$LBEQU117.NUMBEROFBYTESINLASTSECTOR RIB$SLEQU118.NUMBEROFSECTORSTOLOAD RIB$LAEQU120.MEMORYLOADADDRESS RIB$SAEQU122.STARTEXECUTIONADDRESS PAGE * *UNIFIEDI/OCONTROLBLOCK * *OFFSETS * * IOCSTAEQU0.ERRORSTATUS IOCDTTEQU1.DATATRANSFERTYPE IOCDBPEQU2.DATABUFFERPOINTER IOCDBSEQU4.DATABUFFERSTARTADDRESS IOCDBEEQU6.DATABUFFERENDADDRESS IOCGDWEQU8.GENERICDEVICETYPE/CONTROLDESCRIPTORADDRESS IOCLUNEQU10.LOGICALUNITNUMBER IOCNAMEQU11.FILENAME IOCMLSEQU11.MAXIMUMREFERENCEDLOGICALSECTORNUMBER IOCSDWEQU13.CURRENTSEGMENTDESCRIPTORWORD IOCSLSEQU15.1STLOGICALSECTOROFCURRENTSEGMENT IOCLSNEQU17.CURRENTLOGICALSECTORNUMBER IOCSUFEQU19.FILENAMESUFFIX IOCEOFEQU19.LOGICALENDOFFILE IOCRIBEQU21.PHYSICALDISKADDRESSOFR.I.B. IOCFDFEQU23.FILEDESCRIPTORFLAGS IOCDENEQU27.DIRECTORYENTRYNUMBER IOCSBPEQU29.SECTORBUFFERPOINTER/INITIALALLOCATION IOCSBSEQU31.SECTORBUFFERSTARTADDRESS IOCSBEEQU33.SECTORBUFFERENDADDRESS IOCSBIEQU35.SECTORBUFFERINTERNALPTR IOCBLNEQUIOCSBI+2-IOCSTA.IOCBLENGTH * *UNIFIEDI/OERRORSTATUSES * .$S8 AVSET*.REMEMBERTHECURRENTLOCATIONCOUNTER ORG$0.RESETITTOZEROTOUSETHESEQMACRO * SEQI$NOER.NOERRORS,NORMALRETURN SEQI$NODV.NOSUCHDEVICE SEQI$RESV.DEVICERESERVEDALREADY SEQI$NORV.DEVICENOTRESERVED SEQI$NRDY.DEVICENOTREADY SEQI$IVDV.INVALIDDEVICE SEQI$DUPE.DUPLICATEFILENAME SEQI$NONM.FILENAMENOTFOUND SEQI$CLOS.FILENAMENOTOPEN/ORFILENOTCLOSED SEQI$EOF.ENDOFFILE SEQI$FTYP.INVALIDFILETYPE SEQI$DTYP.INVALIDDATATRANSFERTYPE SEQI$EOM.ENDOFMEDIA SEQI$BUFO.BUFFEROVERFLOW SEQI$CKSM.CHECKSUMERROR SEQI$WRIT.FILEISWRITEPROTECTED SEQI$DELT.FILEISDELETEPROTECTED SEQI$RANG.LOGICALSECTORNUMBEROUTOFRANGE SEQI$FSPC.NODISKFILESPACEAVAILABLE SEQI$DSPC.NODIRECTORYSPACEAVAILABLE SEQI$SSPC.NOSEGMENTDESCRIPTORSPACEAVAILABLE SEQI$IDEN.INVALIDDIR.ENTRYNO. SEQI$RIB.INVALIDRIB SEQI$DEAL.CAN'TDEALLOCATEALLSPACE SEQI$RECL.BINARYRECORDLENGTHTOOLRGE SEQI$SECB.SECTORBUFFERSIZEERROR * ORG.$SAV.RESTORETHELOCATIONCOUNTER * PAGE * *MDOSINTERNALVARIABLE * *ANDLOCATIONEQUATES * MDOS$EQU$100.STARTOFMDOSASECT CBUFL$EQU80.COMMANDBUFFERLENGTH CBUFF$EQUMDOS$-CBUFL$-2.COMMANDBUFFERLOCATION CBUFP$EQUCBUFF$+CBUFL$.COMMANDBUFFERSCANPOINTER VERS$$EQUMDOS$.VERSION# REVS$$EQUVERS$$+2.REVISION# KYI$SVEQUREVS$$+2.SAVEAREAFORKEYIN$VECTOR ENDOS$EQUKYI$SV+2.ENDOFMDOS ENDUS$EQUENDOS$+2.ENDOFUSERPROGRAMAREA ENDSY$EQUENDUS$+2.ENDOFSYSTEM(MDOS)RAM RIBBA$EQUENDSY$+4.RIBBUFFERADDRESS ENDRV$EQURIBBA$+2.ENDOFMDOSROMVARIABLES GDBA$EQUENDRV$+2.GENERICDEVICETABLEADDRESS SYERR$EQUGDBA$+2.SYSTEMERRORSTATUSWORD SWI$SVEQUSYERR$+2.SWIVECTORSAVEAREA SWI$UVEQUSWI$SV+2.SWIUSERVECTOR IRQ$UVEQUSWI$UV+2.IRQUSERVECTOR IRQ$SVEQUIRQ$UV+2.IRQVECTORSAVEAREA CHFLG$EQUIRQ$SV+2.CHAINFUNCTIONFLAGWORD SYIOCBEQUCHFLG$+2.SYSTEMCONSOLEIOCB SYPOCBEQUSYIOCB+IOCBLN.SYSTEMPRINTERIOCB SYEOCBEQUSYPOCB+IOCBLN.ERRMSGFILE PAGE * *LOGICALUNITNUMBER--BITDEFINITION * LU$RESEQU%01000000.IOCBRESERVEDFLAG * *IOCDTT--BITDEFINITIONS * DT$OPPEQU%00000000.OPENUPDATE/INPUT DT$OPIEQU%00000001.OPENINPUTMODE DT$OPOEQU%00000010.OPENOUTPUTMODE DT$OPUEQU%00000011.OPENUPDATEMODE DT$NFFEQU%00000100.NON-FILEFORMATI/OFLAG DT$TRUEQU%00001000.TRUNCATEFLAG DT$CLSEQU%00010000.FILEOPEN/CLOSEFLAG DT$SIOEQU%00100000.SECTORI/OFLAG DT$OUTEQU%01000000.OUTPUTTRANSFERTYPE DT$INPEQU%10000000.INPUTTRANSFERTYPE * *IOCFDF--BITDEFINITIONS * FD$FMUEQU%00000000.USERDEFINEDFORMAT(SECTORI/OONLY) FD$FMDEQU%00000001.DEFAULTOBJECTREC'DFORMAT(DEVICEDEPENDENT) FD$FMLEQU%00000010.BINARYLOADFORMAT--ABSOLUTEMEMORYIMAGE FD$FMBEQU%00000011.BINARYRECORDFORMAT--RASMOUTPUT,RLOADINPUT FD$FMREQU%00000100.BINARYLOADFORMAT--RELOCATABLEMEMORYIMAGE FD$FMAEQU%00000101.ASCIIRECORDFORMAT--INCLUDESEXORCISORLOADF FD$FMCEQU%00000111.ASCI-CONVERTED-BINARYRECORDFORMAT FD$CMPEQU%00001000.SPACECOMPRESSIONFLAG FD$CONEQU%00010000.CONTIGUOUSALLOCATION9 FLAG FD$SYSEQU%00100000.SYSTEMFILEATTRIBUTE FD$DELEQU%01000000.DELETEPROTECTIONATTRIBUTE FD$WRTEQU%10000000.WRITEPROTECTIONATTRIBUTE * *UNIFIEDI/OCONTROLDESCRIPTOR * *BLOCKOFFSETS * CDBIOCEQU0.ADDRESSOFIOCB CDBSDAEQU2.SOFTWAREDRIVERADDRESS CDBHADEQU4.HARDWAREADDRESS CDBDDFEQU6.DEVICEDESCRIPTORFLAGS CDBVDTEQU7.VALIDDATATYPE CDBDDAEQU8.DEVICEDEPENDENTAREA CDBWSTEQU10.WORKINGSTORAGE * *CDBDDF--BITDEFINITIONS * DD$FMCEQU%00000001.ASCII-CONVERTED-BINARYISDEFAULTOBJECTRECORD DD$LOGEQU%00000010.LOGICALSECTORI/OFLAG DD$CNSEQU%00000100.CONSOLEFLAG DD$RWDEQU%00001000.REWINDFLAG DD$OCFEQU%00010000.OPEN/CLOSEFLAG DD$INPEQU%00100000.INPUTDEVICEFLAG DD$OUTEQU%01000000.OUTPUTDEVICEFLAG DD$RESEQU%10000000.RESERVABLEDEVICEFLAG * *CDBVDT--BITDEFINITIONS * VD$BINEQU%00000100.BINARYOBJECTFLAG VD$GDBEQU%00001000.TEMPGDBPOINTERFLAG VD$SDAEQU%00010000.TEMPSDAPOINTERFLAG VD$NFFEQU%10000000.NON-FILEFORMATFLAG * *DEVICEDRIVERENTRYOFFSETS * DV$ONEQU0.DEVICEONOFFSET DV$OFFEQU3.DEVICEOFFOFFSET DV$INTEQU6.DEVICEINTIALIZATIONOFFSET DV$TRMEQU9.DEVICETERMINATIONOFFSET DV$IOEQU12.DEVICECHARACTERINPUT/OUTPUTOFFSET PAGE * *DISKEROMEQUATES * CURDRVEQU0.CURRENTDRIVENUMBER STRSCTEQU1.STARTINGPHYSICALSECTORNUMBER NUMSCTEQU3.NUMBEROFSECTORSTOOPERATEUPON LSCTLNEQU5.NUMBEROFBYTESTOBEREADFROMLASTSECTOR CURADREQU6.MEMORYADDRESSFORDISKTRANSFER FDSTATEQU8.DISKTRANSFERSTATUS SCTCNTEQU11.SECTORCOUNTUSEDINDETERMININGERRORS PGMDRVEQU$1D.DRIVEFROMWHICHLASTPROGRAMWASLOADED-NOTUSED PGMPSNEQU$1E.PHYSICALSECTORNUMBEROFRIBOFLASTLOADPGM-NOTUSED * *EROMENTRYPOINTS * OSLOADEQU$E800.BOOTSTRAPTHEOPERATINGSYSTEM FDINITEQU$E822.INITIALIZETHEDISK'SPIAANDSSDA CHKERREQU$E853.CHECKANDPRINTERRORFROMFDSTAT PRNTEREQU$E85A.PRINTERRORFROMFDSTAT READSCEQU$E869.READSECTOR(S) READPSEQU$E86D.READPARTIALSECTOR RDCRCEQU$E86F.READANDCHECKFORCRC RWTESTEQU$E872.WRITE/READTEST RESTOREQU$E875.MOVEHEADTOTRACK0 SEEKEQU$E878.POSITIONHEADTOTRACKOF"STRSCT" WRTESTEQU$E87B.WRITETEST WRDDAMEQU$E87E.WRITEDELETEDDATAMARK WRVERFEQU$E881.WRITEANDVERIFYCRC WRITSCEQU$E884.WRITESECTOR(S) * *EROMERROREQUATES * ER$CRCEQU'1.DATACRCERROR ER$WRTEQU'2.WRITEPROTECTEDDISK ER$RDYEQU'3.DISKNOTREADY ER$MRKEQU'4.DELETEDDATAMARKENCOUNTERED ER$TIMEQU'5.TIMEOUT ER$DADEQU'6.INVALIDDISKADDRESS ER$SEKEQU'7.SEEKERROR ER$DMAEQU'8.DATAADDRESSMARKERROR ER$ACREQU'9.ADDRESSMARKCRCERROR * *MISCELLANEOUSEROMEQUATES * RETRY$EQU5.RETRYCOUNTFORDISKREAD/WRITEERRORS * *LINEPRINTEREROMEQUATES * LPINITEQU$EBC0.INITPRINTERPIA LISTEQU$EBCC.PRINTCONTENTSOF'A' LDATAEQU$EBE4.PRINTSTRING,CR/LF LDATA1EQU$EBF2.PRINTSTRING,NOCR/LF PAGE * *EXBUGEQUATESFORMDOS *(PARTIALLISTONLY) INCHNPEQU$F015.INPUTCHARACTER(NOPARITY) OUTCHEQU$F018.OUTPUTONECHARACTER PCRL: FEQU$F021.PRINTLF/CR PDATAEQU$F024.PRINTSTRING SBIT$EQU$FCFD.BIT7INDICATESIRQOCCURRED(IFCLEARED) BRKPT$EQU$FF1F.MAID'SBREAKPOINTTABLE(8FDB'S) BKPIN$EQU$FF4F.EXBUGBREAKPOINTSINMEMORY(FROMCONTINUECMD) AECHOEQU$FF53.INPUTCHARACTERECHOFLAG(0=>ECHO) IRQ$VCEQU$FFF8.IRQVECTOR SWI$VCEQU$FFFA.SWIVECTOR NMI$VCEQU$FFFC.NMIVECTOR XSTAK$EQU$FF8A.EXBUGSTACK MAID$EQU$F0F3.MAIDENTRYPOINT XREG$PEQU$FF16.MAIDP-REG. XREG$XEQU$FF18.MAIDX-REG. XREG$AEQU$FF1A.MAIDA-REG. XREG$BEQU$FF1B.MAIDB-REG. XREG$CEQU$FF1C.MAIDC-REG. XREG$SEQU$FF1D.MAIDS-REG. BRKPE$EQU$FF63.ENDOFMAIDBREAKPOINTTABLE CNACI$EQU$FCF4.CONSOLEACIA * *SPECIALMACROFORTHECENTRONIXPRINTERSTOPRINTTITLES *(NOLONGERUSED) TITLEMACR TTL\0 ENDM {HELPISAFILETOHELPYOUUSEMDOS AFILENAMECONSISTSOF1-8CHARACTERS,FOLLOWEDBYASUFFIXAS: FILENAM1.SX THESUFFIXISNORMALLYASSIGNEDBYTHESYSTEM.THEYARE: CF-CHAINPROCEDURALFILE CM-COMMANDPROGRAMFILE LO-ABSOLUTE,MEMORYIMAGEFILE(REGHQUIREDTOLOADUNDERMDOS) LX-EXORCISERLOADABLEFILE(PRODUCEDBYASMANDREQUIREDTHIF YOUWISHTODUMPTOTAPEANDLOADUNDEREXBUG) RO-RELOCATABLEOBJECTFILE(PRODUCEDBYRASM) SA-ASCIISOURCEFILE ED-COPYOFANEDOSFILE THESUFFIXCANUSUALLYBYLEFTOFFWHENREFERENCINGAFILE---THESYSTEM WILLKNOWWHICHONEYOUHAVEINMIND. IFTHEFILEISONDRIVE1,YOUMUSTADD:1TOTHEFILENAME. EXAMPLE:FILENAM1.SA:1 FILENAM1:1 THEATTRIBUTESOFAFILEARELISTEDINTHEDIRECTORYANDARE: W-WRITEPROTECTED D-DELETEPROTECTED S-SYSTEMSFILE C-CONTIGUOUSALLOCATIONWASSPECIFIED N-NOSPACECOMPRESSION(ASCIIONLY) #-ANUMBERFROM0-7GIVINGTHEFILEFORMAT USETHEBREAKKEYTOHALTANOPERATION---NOTTHEABORTBUTTON!!!! ACONTROLWCANBEUSEDFORAPAUSEWHENOUTPUTTINGTOTHECONSOLE. THEBASICCOMMANDFORMATIS:COMMANDFILENAME[;OPTIONS] PARTIALLISTOFCOMMANDS PAGECOMMANDCOMMENT 9DIR[;OPTION]PRINTSDIRECTORY EENTIREDIRECTORY AENTIREDIRECTORYPLUSALLOCATIONINFORMATION LLINEPRINTER SSYSTEMFILESASWELLASUSERFILES 15LISTNAME[;OPTION]LISTSSOURCEFILE HALLOWSADDINGHEADINGFROMTHECONSOLE LLINEPRINTER NADDSLINENUMBERS 22EDITNAMEINVOKESEDITOR,WRITESOVEREXISTINGFILE.(ASECOND FILECANBENAMEDIFDESIRED) 21ASMNAME;LSINVOKESTHEABSOLUTEASSEMBLER.PRODUCESEXORCISABLE LOADABLEFILE(.LX) 13EXBINNAME[;STARTADDRESS]PRODUCESMDOSLOADABLE FILE(.LO) 16LOADNAME;MVLOADSPROGRAM,RESTORESEXBUGSWIVECTORANDENTERS MAID. 23RASMNAME[,NAME2,NAME3,....];LSRXINVOKESTHEMACROASSEMBLER,GIVES LISTINGONTHEPRINTERANDPRODUCESRELOCATABLECODE. 24RLOADINVOKESTHELINKINGLOADER. 12EMCOPYNAME[,.SUFFIX][;OPTION]CONVERTSEDOSFILETOMDOS .EDISDEFAULTSUFFIX DDELETEPROTECT ECOPYENTIREEDOSDISKETTE SCOPYSELECTEDFILESONLY EDOSDISKETTEMUSTBEON; DRIVE1 18NAMEOLDFILE[,NEWFILE][;ATTRIBUTE]RENAMEAND/ORCHANGESUFFIX ORCHANGEATTRIBUTE. DDELETEPROTECT WWRITEPROTEXHCT SSYSTEMFILE NNON-SYSTEMFILE XREMOVEDANDWPROTECTION 17MERGESFILE1[,SFILE2,SFILE3....],NEWFILEMERGES1ORMOREFILESTONEW. ROCKT1p="LUNAR LANDING SIMULATION"="----- ------- ----------"=K"PLEASE GIVE ME YOUR NAME",B$=="DO YOU WANT INSTRUCTIONS,";B$;KA$ PA$="NO" THEN 390`=="YOU ARE LANDING ON THE MOON AND HAVE TAKEN OVER MANUAL"="CONTROL 500 FEET ABOVE THE SURFACE. YOU HAVE A DOWNWARD" ="VELOCITY OF 50 FT/SEC WITH 120 UNITS OF FUEL."0=@="YOU WILL RECEIVE A REPORT EACH SECOND. AFTER THE '?'"P="ENTER THE NUMBER OF UNITS OF FUEL YOU WISH TO BURN DURING"`="THE NEXT SECOND. MAXIMUM IS 30 UNITS PER SECOND."p=="WHEN YOU CONTACT THE LUNAR SURFACE, YOUR DESCENT ENGINE"="WILL AUTOMATICALLY CUT OFF AND YOU WILL BE GIVEN A"="REPORT OF YOUR LANDING SPEED AND REMAINING FUEL."=="BEGINNING OF LANDING PROCEDURE ........."="G O O D L U C K ,";B$;"!!!!!!!!!!" =0=@="SEC FEET SPEED FUEL PLOT OF DISTANCE"P=UT=0`H=500eV=50pF=120=T;TAB(6);H;TAB(13);V;TAB(22);F;TAB(32);"I";=TAB(30+H/12);"*";=TAB(72);"T=";KBPB<0 THEN 650 PB>30 THEN 9000PB>F THEN 920@V1=V-B+5`F=F-BpH=H-(V+V1)/2PH<=0 THEN 670PH>500 THEN 950T=T+1V=V1PF>0 THEN 490PV=0 THEN 640 ="*** OUT OF FUEL ***"@=T;TAB(6);H;TAB(13);V;TAB(22);F;TAB(32);"I";TAB(H/18+29);"*"PB=0`)540p="*** CONTACT ***"`=" TOUCHDOWN AT ";T;" SECONDS!!!!!!!!"p="LANDING VELOCITY =";V1;"FT/SEC"=F;"UNITS OF FUEL REMAINING"PABS(V1)>1 THEN 805="CONGRATULATIONS!!!! A PERFECT LANDING!!!!!!!!!!")850PABS(V1)<5 THEN 840PABS(V1)<10 THEN 842PABS(V1)<15 THEN 845PABS(V1)<20 THEN 970PABS(V1)<25 THEN 980 ="YOU REALLY BLEW IT!!!!! YOUR CRATER MUST BE 50 FEET DEEP!!!"!=B$;",WE ARE SORRY WE SENT YOU ON THIS MISSION!!""="WE WILL NOTIFY YOUR NEXT OF KIN!!!!"%)850@="NOT A BAD LANDING, BUT YOU NEED SOME PRACTICE!!!"A)850B="WELL.... YOU SURVIVED. I HOPE YOUR ASCENT ENGINE WILL"C="STILL WORK WHEN YOU PREPARE TO LEAVE. GOOD LUCK!!"D)850E="PRETTY SLOPPY!!! MISSION CONTROL HOPES YOU CAN SURVIVE"F="UNTIL A RESCUE SHIP CAN REACH YOU. TILL THEN ........."G)850P=Q=R=S=T="WOULD YOU LIKE TO TRY ANOTHER MISSION, ";B$;"?"UKA$pPA$="YES" THEN 390="CONTROL OUT.")999 B=30 )530 B=F 0)540 P="YOU ARE NOW LEAVING THE SOLAR SYSTEM!!! STAY IN CONTACT." `)850 p="WOW!!! YOU WERE SUPPOSED TO LAND, NOT CRASH!!" u)850 ="YOU MUST HAVE DUG SOME CRATER!!! HOPE YOU CAN STILL" ="READ ME. WE WILL HOLD A SERVICE < FOR YOU NEXT FRIDAY!!" )850 n 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)<25THEN980 0820PRINT"YOUREALLYBLEWIT!!!!YOURCRATERMUSTBE50FEETDEEP!!!" 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!!!!" 0975= GOTO850 0980PRINT"WOW!!!YOUMUSTHAVEDUGSOMECRATER!!!!" 0985GOTO850 0999END 560090DIMS(7,2) 0100REMINITVARIBLES 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 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"FIREREARPHASORS!!!" 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-CLOSEINFORT? HEKILL" 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"ANYSUGGESTIONSMR.SPOCK?" 5025PRINT 5030PRINT 5035RETURN 5050PRINT"GOODBYECREW!!GOODLUCK!!PLEASEDON'TCRYMR.SPOCK!!" 5055PRINT 5060PRINT 5065STOP 5070PRINT"IWOULDSUGGESTWEUSEOURRESERVEENERGYCELL!!" 5075PRINT 5080PRINT"GOODTHINKINGMR.SPOCK!!WISHIHADTHOUGHTOFTHAT!!" 5085FORJ=1TO6 5090S(J,1)=1 5095NEXTJ 5100S(5,1)=90 5105RETURN 5999END 0010DIMA$(4),L$(60),F$(20),N$(20) 0011DIMZ1 0012DIMM$(3),D$(3),I$(3) 0013DIMLAR$/:E/ 0015DIMD(12) 0025DIMX$(10) 0030DIMN1,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"WANTAGRAPH"A$ 0104IFA$="STOP"THENCALLMDOS 0105IFA$="YES"THENN1=2ELSE0106\GOTO0110 0106IFA$="NO"THENN1=0ELSE0103 0110PRINT#N1 0115PRINT#N1 0130DEFFNA(A)=A-(INT(A/Z1)*Z1) 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$;N$ 1095PRINT#N1,"WHOWASBORNON";M2;"/";D2;"/";Y2 1096PRINT#N1,"ANDWILLBE";A;"DAYSOLDATTHESTARTOFTHISCHART" 1100PRINT#N1 1101PRINT#N1 1110PRINT#N1,"DOWN"; 1111PRINT#N1,"CRITICAL"; 1112PRINT#N1,"UP" 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 150@ 0M3=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 8001CALLMDOS 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 MDOSSWI FCB$3F END  2 FDB 3 :: SET ::+4+3 L$ EQU :: 112 FDB :+:: FCB 2 FDB 60 :: SET ::+4+60 F$ EQU :: 112 FDB :+:: FCB 2 FDB 20 :: SET ::+4+20 N$ EQU :: 112 FDB :+:: FCB 2 FDB 20 :: SET ::+4+20 Z1 EQU :: :: SET ::+6 M$ EQU :: 112 FDB :+:: FCB 2 FDB 3 :: SET10 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!kA 5V5 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|5V587b,&#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&B *@ ,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+D 0+2 23 13 FDB 29 25 ::120 EQU * :1210 50 FDB 1210 18 FDB :+L$ 13 FDB 30 21 13 FCB 0 FCC "*" 27 :1260 50 FDB 1260 12 FDB :+Z1 13 FDB 23 25 :1265 50 FDB 1265 12 FDB :+P2 10 FDB :+A 114 FDB FNA 13 FDB 23 32 10 FDB :+P 31 10 4C2D498A494:FDB:+Y3 4C2F27495:39 MAL/68001.2:4C31 1-03-7812:01AM;Page10;Form1 4C302B496:43 4C314C36497:FDB::112 4C332E498:46 4C344C66499:FDB:0460 4C36500:::112EQU* 4C3632501::040050 4C370190502:FDB0400 4C390A503:10 4C3A4960504:FDB:+M2 4C3C0A505:10 4C3D4966506:FDB:+M3 4C3F2A507:42 4C402B508:43 4C414C46509:FDB::113 4C432E510:46 4C444B51511:FDB:0230 4C46512:::113EQU* 4C4632513::041050 4C47019A514:FDB0410 4C490A515:10 4C4A4960516:FDB:+M2 4C4C0A517:10 4C4D4966518:FDB:+M3 4C4F27519:39 4C502B520:43 4C514C56521:FDB::114 4C532E522:46 4C544C66523:FDB:0460 4C56524:::114EQU* 4C5632525::042050 4C5701A4526:FDB0420 4C590A527:10 4C5A4972528:FDB:+D2 4C5C0A529:10 4C5D4978530:FDB:+D3 4C5F2A531:42 4C602B532:43 4C614C66533:FDB::115 4C632E534:46 4C644B51535:FDB:0230 4C66536:::115EQU* 4C6632537::046050 4C6701CC538:FDB0460 4C690C539:12 4C6A496C540:FDB:+D1 4C6C0A541:10 4C6D4978542:FDB:+D3 4C6F19543:25 4C7032544::047050 4C7101D6545:FDB0470 4C730C546:12 4C74495A547:FDB:+M1 4C760A548:10 4C774966549:FDB:+M3 4C7919550:25 MAL/68001.2:4C7B 1-03-7812:01AM;Page11;Form1 4C7A32551::048050 4C7B01E0552:FDB0480 4C7D0C553:12 4C7E497E554:FDB:+Y1 4C800A555:10 4C81498A556:FDB:+Y3 4C8319557:25 4C8432558::049050 4C8501EA559:FDB0490 4C872F560:47 4C885147561:FDB:9000 4C8A32562::050050 4C8B01F4563:FDB0500 4C8D0C564:12 4C8E4942565:FDB:+A 4C900A566:10 4C914990567:FDB:+I1 4C9319568:25 4C9432569::051050 4C9501FE570:FDB0510 4C970C571:12 4C98496C572:FDB:+D1 4C9A0A573:10 4C9B4972574:FDB:+D2 4C9D19575:25 4C9E32576::052050 4C9F0208577:FDB0520 4CA10C578:12 4CA2495A579:FDB:+M1 4CA40A580:10 4CA54960581:FDB:+M2 4CA719582:25 4CA832583::053050 4CA90212584:FDB0530 4CAB0C585:12 4CAC497E586:FDB:+Y1 4CAE0A587:10 4CAF4984588:FDB:+Y2 4CB119589:25 4CB232590::054050 4CB3021C591:FDB0540 4CB52F592:47 4CB65147593:FDB:9000 4CB832594::055050 4CB90226595:FDB0550 4CBB0C596:12 4CBC4942597:FDB:+A 4CBE0A598:10 4CBF4942599:FDBC :+A 4CC10A600:10 4CC24990601:FDB:+I1 4CC41D602:29 4CC50D603:13 4CC6016D604:FDB365 4CC80A605:10 MAL/68001.2:4CCB 1-03-7812:01AM;Page12;Form1 4CC9498A606:FDB:+Y3 4CCB0A607:10 4CCC4984608:FDB:+Y2 4CCE1D609:29 4CCF1F610:31 4CD01C611:28 4CD119612:25 4CD232613::056050 4CD30230614:FDB0560 4CD50A615:10 4CD64984616:FDB:+Y2 4CD80A617:10 4CD9498A618:FDB:+Y3 4CDB25619:37 4CDC2B620:43 4CDD4CE2621:FDB::116 4CDF2E622:46 4CE04D30623:FDB:1090 4CE2624:::116EQU* 4CE232625::057050 4CE3023A626:FDB0570 4CE50C627:12 4CE64948628:FDB:+I 4CE811629:17 4CE90A630:10 4CEA4984631:FDB:+Y2 4CEC19632:25 4CED0A633:10 4CEE498A634:FDB:+Y3 4CF00D635:13 4CF10001636:FDB1 4CF343637:67 4CF432638::058050 4CF50244639:FDB0580 4CF70A640:10 4CF84948641:FDB:+I 4CFA04642:0+4 4CFB20643:32 4CFC0A644:10 4CFD4948645:FDB:+I 4CFF04646:0+4 4D0020647:32 4D015B648:91 4D0225649:37 4D032B650:43 4D044D0F651:FDB::117 4D060C652:12 4D074942653:FDB:+A 4D090A654:10 4D0A4942655:FDB:+A 4D0C01656:0+1 4D0D1C657:28 4D0E19658:25 4D0F659:::117EQU* 4D0F32660::059050 MAL/68001.2:4D12 1-03-7812:01AM;Page13;Form1 4D10024E661:FDB0590 4D1244662:68 4D134948663:FDB:+I 4D1532664::060050 4D160258665:FDB0600 4D180A666:10 4D19498A667:FDB:+Y3 4D1B04668:0+4 4D1C20669:32 4D1D0A670:10 4D1E498A671:FDB:+Y3 4D2004672:0+4 4D2120673:32 4D225B674:91 4D2325675:37 4D242B676:43 4D254D30677:FDB::118 4D270C678:12 4D284942679:FDB:+A 4D2A0A680:10 4D2B4942681:FDB:+A 4D2D01682:0+1 4D2E1C683:28 4D2F19684:25 4D30685:::118EQU* 4D303268}A׀x ~!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^8D ~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( 'E (^]~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 F G H I 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&0J +,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~ndK - Eb MAL/68001.2:0000 1-03-7812:01AM;Page1;Form1 1:*COMPILEDBY10/30/77M6800BASICCOMPILER--VERSION1.2 48002:ORG$4800 4800BD20003:JSR$2000 4803124:FCB$12 00005:::SET0 00006:A$EQU:: 4804707:112 480548468:FDB:+:: 4807029:FCB2 4808000410:FDB4 000811:::SET::+4+4 000812:L$EQU:: 480A7013:112 480B484E14:FDB:+:: 480D0215:FCB2 480E003C16:FDB60 004817:::SET::+4+60 004818:F$EQU:: 48107019:112 4811488E20:FDB:+:: 48130221:FCB2 4814001422:FDB20 006023:::SET::+4+20 006024:N$EQU:: 48167025:112 481748A626:FDB:+:: 48190227:FCB2 481A001428:FDB20 007829:::SET::+4+20 007830:Z1EQU:: 007E31:::SET::+6 007E32:M$EQU:: 481C7033:112 481D48C434:FDB:+:: 481F0235:FCB2 4820000336:FDB3 008537:::SET::+4+3 008538:D$EQU:: 48227039:112 482348CB40:FDB:+:: 48250241:FCB2 4826000342:FDB3 008C43:::SET::+4+3 008C44:I$EQU:: 48287045:112 482948D246:FDB:+:: 482B0247:FCB2 482C000348:FDB3 009349:::SET::+4+3 009350:LAR$EQU:: 482E7051:112 482F48D952:FDB:+:: 48310553:FCB::21-*-1 483254:::11EQU* 4832000155:FDB::21-*-4 MAL/68001.2:4836 1-03-7812:01AM;Page2;Form1 4834000156:FDB::21-*-2 48360E57:FCB$E 483758:::21EQU* 009859:::SET::+*-::11 009860:DEQU:: 48377061:112 483848DE62:FDB:+:: 483A0263:FCB2 483B492D64:FDB:+::+7+6*12 00E865:::SET::+8+6*12 00E866:X$EQU:: 483D7067:112 483E492E68:FDB:+:: 48400269:FCB2 4841000A70:FDB10 00F671:::SET::+4+10 00F672:N1EQU:: 00FC73:::SET::+6 00FC74:AEQU:: 010275:::SET::+6 010276:IEQU:: 010877:::SET::+6 010878:JEQU:: 010E79:::SET::+6 010E80:KEQU:: 011481:::SET::+6 011482:M1EQU:: 011A83:::SET::+6 011A84:M2EQU:: 012085:::SET::+6 012086:M3EQU:: 012687:::SET::+6 012688:D1EQU:: 012C89:::SET::+6 012C90:D2EQU:: 013291:::SET::+6 013292:D3EQU:: 013893:::SET::+6 013894:Y1EQU:: 013E95:::SET::+6 013E96:Y2EQU:: 014497:::SET::+6 014498:Y3EQU:: 014A99:::SET::+6 014A100:I1EQU:: 0150101:::SET::+6 0150102:E2EQU:: 0156103:::SET::+6 0156104:P2EQU:: 015C105:::SET::+6 015C106:I2EQU:: 0162107:::SET::+6 0162108:XEQU:: 0168109:::SET::+6 0168110:NEQU:: MAL/68001.2:4843 1-03-7812:01AM;Page3;Form1 016E111:::SET::+6 016E112:PEQU:: 0174113:::SET::+6 0174114:CEQU:: 017A115:::SET::+6 48432E116:46 484449C0117:FDB*+2+:: 4846118::EQU* 4846017A119:RMB:: 49C032120::004050 49C10028121:FDB0040 49C302122:0+2 49C439123:57 49C513124:19 49C603125:FCB::12-*-1 49C7234C50126:FCC"#LP" 49CA127:::12EQU* 49CA62128:98 49CB32129::005050 49CC0032130L :FDB0050 49CE0C131:12 49CF48DE132:FDB:+D 49D101133:0+1 49D217134:23 49D30D135:13 49D4001F136:FDB31 49D619137:25 49D732138::005150 49D80033139:FDB0051 49DA0C140:12 49DB48DE141:FDB:+D 49DD02142:0+2 49DE17143:23 49DF0D144:13 49E0001C145:FDB28 49E219146:25 49E332147::005250 49E40034148:FDB0052 49E60C149:12 49E748DE150:FDB:+D 49E903151:0+3 49EA17152:23 49EB0D153:13 49EC001F154:FDB31 49EE19155:25 49EF32156::005350 49F00035157:FDB0053 49F20C158:12 49F348DE159:FDB:+D 49F504160:0+4 49F617161:23 49F70D162:13 49F8001E163:FDB30 49FA19164:25 49FB32165::005450 MAL/68001.2:49FE 1-03-7812:01AM;Page4;Form1 49FC0036166:FDB0054 49FE0C167:12 49FF48DE168:FDB:+D 4A0105169:0+5 4A0217170:23 4A030D171:13 4A04001F172:FDB31 4A0619173:25 4A0732174::005550 4A080037175:FDB0055 4A0A0C176:12 4A0B48DE177:FDB:+D 4A0D06178:0+6 4A0E17179:23 4A0F0D180:13 4A10001E181:FDB30 4A1219182:25 4A1332183::005650 4A140038184:FDB0056 4A160C185:12 4A1748DE186:FDB:+D 4A1907187:0+7 4A1A17188:23 4A1B0D189:13 4A1C001F190:FDB31 4A1E19191:25 4A1F32192::005750 4A200039193:FDB0057 4A220C194:12 4A2348DE195:FDB:+D 4A2508196:0+8 4A2617197:23 4A270D198:13 4A28001F199:FDB31 4A2A19200:25 4A2B32201::005850 4A2C003A202:FDB0058 4A2E0C203:12 4A2F48DE204:FDB:+D 4A3109205:0+9 4A3217206:23 4A330D207:13 4A34001E208:FDB30 4A3619209:25 4A3732210::005950 4A38003B211:FDB0059 4A3A0C212:12 4A3B48DE213:FDB:+D 4A3D0D214:13 4A3E000A215:FDB10 4A4017216:23 4A410D217:13 4A42001F218:FDB31 4A4419219:25 4A4532220::006050  MAL/68001.2:4A48 1-03-7812:01AM;Page5;Form1 4A46003C221:FDB0060 4A480C222:12 4A4948DE223:FDB:+D 4A4B0D224:13 4A4C000B225:FDB11 4A4E17226:23 4A4F0D227:13 4A50001E228:FDB30 4A5219229:25 4A5332230::006150 4A54003D231:FDB0061 4A560C232:12 4A5748DE233:FDB:+D 4A590D234:13 4A5A000C235:FDB12 4A5C17236:23 4A5D0D237:13 4A5E001F238:FDB31 4A6019239:25 4A6132240::007050 4A620046241:FDB0070 4A6468242:104 4A655135243:FDB:8000 4A6732244::010050 4A680064245:FDB0100 4A6A0A246:10 4A6B493C247:FDB:+N1 4A6D39248:57 4A6E35249:53 4A6F32250::010150 4A700065251:FDB0101 4A720A252:10 4A73493C253:FDB:+N1 4A7539254:57 4A7635255:53 4A7732256::010350 4A780067257:FDB0103 4A7A13258:19 4A7B23259:FCB::13-*-1 4A7C444F2059260:FCC"DOYOUWANTAGRAPHONTHEPRINTER" 4A9F261:::13EQU* 4A9F71262:113 4AA036263:54 4AA148264:72 4AA212265:18 4AA34846266:FDB:+A$ 4AA538267:56 4AA61A268:26 4AA732269::010450 4AA80068270:FDB0104 4AAA12271:18 4AAB4846272:FDB:+A$ 4AAD13273:19 4AAE04274:FCB::14-*-1 4AAF53544F50275:FCC"STOP" MAL/68001.2:4AB3 1-03-7812:01AM;Page6;Form1 4AB3276:::14E