IMD 1.16: 16/08/2007 17:02:11  SUPERBIO0201010280GREG GREGORY \lxDATABASESCESUPER02 SCEMDOSOV0 SY\rDIR CM|rMERGE CMrMDOSOV4 SYrMDOS SYrMDOSOV6 SYrBIOM SCEFREE CMrDUMP CMrNAME CMrNOECHO SAxESUPER01 SCEDOC CMPRMDOSOV1 SYlrCOMPILE CMrASSEMBLECMrSUPERBIOSCEINTRO SADEDITM CMrRUN CMXrMDOSOV3 SYrMDOSER SYeDEL CMtrBACKUP CMtrREPAIR CM$rDATABASELX8MDOSOV5 SYrDOSGEN CMrCOPY CM\rCALLMDOSSAtEMDOSOV2 SYxrSUPERBIOLX|uu+.HYHYwvz{67xS66~m? ~S@?@0201 CN0 LP0 DK0MDOSER SY 0&'L/&04315X%;$*DzU062T06336;!b~nWno%(4]_fo|  b\lrAD"gggg}*26'}O&*7606 Z&nn#Z&9 &Z&900l&l90l&l9 Z&9A%6290%62%9$l9@%j96hiJ&296dfJ&29$&P+O?'& ?% ?.' 9 '? ?6 ' 29'' 9O'9**  $ && ?$~ 09 I &KE?$~09   9090~_0 h0629_?&?.062 C06 0&9  & 90gf90hi9 440J&0 6290   J&110 ކOi OI670$1'24'.8'*9'& 320$'90? ?0j'&?.Y$u Vx~9?*?/% 629~*' '  f "uS|u~DK9LPFCRSCP`CNmHRzr 1 *Q{e W T Q NS*"' "!$%3l&l && l&l"!$E011n0~Ao'  ''  9? "! '  9&' ++& +|$~) 66?240?311116L6*5i+`32P@$Z73$O_ ?(?!I% ~C~+|_?3?*67)*0l&ll&l&&11~&0 09 |?3?+?$~C?26 HYHY01674 0+??31111  +  l&l 9    }* |S6]3&l f09~~  U Rz )&}* V )H7F $9ц 1 ' G$ 9 9W )}*7 _ 011n~϶?}& W~ K~ e~ ~ ~ & }*] &9 |b}*0 b}*9OZ& 2OZ&     $0 011n&~  V$]&u0  !' m& Y ̋HHH0 0'l >0 !' ]'~ ]&& '~ } &~ ~ $_ HHHH?( &   m&~  &  0 ? 'B_9 & ?'0 && ~ 0 ?'~ D'~  '~ ?0  0?"$ ? ?  ~ !'~ &\0 '   0 @'o o ooo?!]''?'; ? ?_B   ?0* '~  9       DDD  } &? ? 9  _  %*_  Yz &VFFFF# "GY9JO' V$]'~ RJ(&J*x&'0`J@&"?$ &~ c ? ? &~ g & sTxV VWX?)XV $~ kXJ'?(Z %J' Z_?]&J'bJ&8'\ O K5 }a& ZKL76^_76~m\VZ'5 սmVW0\]0&_9 90OP 9    TRS`Q?Tz\9?$V?/$11 X?&?/%9aJ8& ' |a?-9  ?.90`RTuvV9Tv'# XX?Tu'JYY$|X911~ goc' 9J*'9S>7=#I9n p{'j?' &9&l =7 _HY?)=?#3 *57='>&ܽ03'_\'05533 }>&|>Pm'С&~o 3?m''?' |4&|3ih 5 * $! 95;799?;.;9?7;:597979566$|5:&99979:G88$|7 0 7~626 29DDDD09#90 138 "#$ % &  ' ( )*+,-.INVALID MESSAGE \3 AT \8UNIF. I/O ERROR-STATUS=\3 AT \8PROM I/O ERROR-STATUS=\3 AT XXXX ON DRIVE X-PSN XXXX0MDOSOV SYs~/ ~1 ~3 ~5g0_\$uH6@?% 20 ~V S          6666666666 ~  >>>>>  FF {966~966&~A66+~I66-~Q229 N v M'  * /| x?%( x& z? ? z? v9V S  ~~66666666PO'н$~ RR?R  RWP '; YZ9R ]]?_]$~Y?'_g _ gUOT?_'~a&.%,_e[%& % [[  ~$~cab%'P &_~xaaR'$ a&~RS?&$ P&aRPm &m ' ' gc'~c_R[__[ [&OT?P &WƀO?ZWc?1?1U UOT?Wm+ ]cg'KR[_ $[\\?,RcY?)c\Y]] gR&~=] ][ & ]] a_R?&$SaaR?,Rc?(c[aY]~eWYgh&^gXXZe?'_bʀ]OT?P &UVP _9Pghef_` ۽XXe?'eY~F 9     POWP &~ɽtmkWii?P'~P]TTT-#~UVOT?]XXXXW?''~ƀWO?P UOT?Po o mm*~]UOT?]* OT?~R_%S__RZR&]] ?0?0[W]]*~ͽRS_R[\%R?.[\]][&ǽPʀ]]Wt?)]' ]oo OT?Y~{S\\_?(Y_\]]~_`$9 W?( 9TFVFVD6YYYO FZ,29__9[ab$ [aec9b|WW\7b?%39ZXX7b?%3O?*9]WX?-bm?)Y9н$11~UOT?Wm+ \: /11~'9 66~~~W~@~u~o~r90909S0op]''d*&ց.&PƂp]' *&ʍ:& 0?p 0?090 ;' ' 0 l&l9u #'zƀ ?6Bŀ& '@'?$ @?%?0]'Z0T?%0 ?')760' ?0 ?23*& B?$?$*1906?290?ƈp~_6'-  ?-?&0 5?&?)   ?/%(?/$! 0m& _2W9 @&- $*?%$ ?%;'?/'; ~ ~~;'=;DK&~=J0 %Z=]' ?(Z ='=oo' 0=>=0  @ ? 09 0 =? $ ?(z?& ~6 @'' ?2oo?3oo  29'~ '~&~|'''~&'| &&o o  's$~?@}&~'~}*~%ml&l &}/%}& |&Ͻ 0}& }'7%"3&' &  ~$~~(~$6~&%}'  '!}, & '  $~%~}&| &P~9}. ~% ~% }.~9E}+ H}'D~$~O}+ ?.]'~ǁ$L}&| '~%B}*~~}'7TTTT3% 90:%9ʀ  ' 73]' 9X~~>>> _B@>@'~/&~1 &a$~<CI@}B&'''~8~}E>D'|D@ - Z.k$~<%_ F$~@}D'Z& 'M&ZJ@C?%k$~<&~C&(%@G@G?/'Gk% L'S& &8@}D'}F& $~<}I'~@}C'~IU@o_96'&|I]*'G zG' ~$~@}B'H' 6' E&|I D' J}B&t@&iE%K&~Q}I'&}B'&zK' %ؽ %}J&̽% &@&'m&jj~; 0] 9 U  }B&   7>@39>@9@@> @9@ %%"$1111~QXXXX% % 90%% *% 9}E+99JJ97 &a39 k% k9@?/9@}E&M&ZJ97%3b@9C39>9   >>~~X~N'~B PQ&P NNo_9P'' N '~N''&?8'~:N@' D &'8&]'/?/')N!"?/%o N ?ߤ]'~:Noo&~, &QN'~FR VDDD-#~JTUS?RXXXXV?'?N S?N ?'?"%~,0] 9   &0o_90?&\TTT-R# L ?0XXXX?'''0 ?'6 ?20?90 9  &~ 0 ' & ?$~ӽ'M    '~&& ?_9 ?%~ '   ?' ?'??  @?%!?&~e 9   ??9HHHH?(VVV9"(ss~yFr&~#@ &~'tr''~Kt&.~+Wo_9t'r?'&~~| t &~/at&~r ?'?$' ? ?r&~~3r' '~Goo oowr yv?y*~7r y:m+Z&~7r~}'~W?6'~m ' ?'wry w?&rwr ?'yw?~r r?' ' ' t@&~/ar&t& r62''& t&~Kt&~r ?'?$&~;&~?&~C ? ?r~C' ''~K}'~rrr ?'?$r?%?'?$rW?7m&~~t&~+``&a~0] 9           r9tr$11~O9$XssF~y~ :@vN FTWARE DYNAMICS TER DISK IN DRIVE 0, AND A SCRATCH DISK IN DRIVE 1 ? 9 sEND CHAINHHHHC'1~w? $0 |  ?' |? %@'C\&|0$ ']'Z 09)~w~||~9*'..'*WJ'tC'fL'_^S&~^T'%2 6~'? 2.&4? ? $~ #6?/  2~Ѷ~ |@L&W& Ҷ~ O 6?&%2M' ~&? ||xw_?9 &4'3~w+4 ?& ?&? ~y~?'||||62&~9 ? ???oo0+( # + . |7xy~Z&3Z&9&p~ !_?o_!Z?!]!0&%!] !3&!_!!a!_?' RI S ? '~ U~ H @'E @' {'3j? , ?%?%E?%?%j?%?%!*? =3O? ? _3!6!:!80CM!C!6?]&*!6!:?'''' ? ~ !S? ƀ?#~  MDOS . !f!WHAT?!f!cN  ( 0BCOMMANDSYNTAXERROR 05NAMEREQUIRED 06\0DOESNOTEXIST 08\0DUPLICATEFILENAME 1BFILENAMENOTFOUND 1ADUPLICATEFILENAME 0DOPTIONCONFLICT 30CHAINABORTED--BREAKKEY 31CHAINABORTED--SYSTEMERRORSTATUSWORD 1CFILEISDELETEPROTECTED 24DEVICENOTREADYAT\8 0EINVALIDTYPEOFOBJECTFILE 0FINVALIDLOADADDRESS 13INVALIDFILETYPE 1ECONFLICTINGFILETYPES 1F\0HASINVALIDFILETYPE 27INVALIDDATATRANSFERTYPEAT\8 22DEVICEALREADYRESERVEDAT\8 23DEVICENOTRESERVEDAT\8 25FILENOTOPENORALREADYOPENAT\8 26ENDOFFILEAT\8 29BUFFEROVERFLOWAT\8 2ACHECKSUMERRORAT\8 15LOGICALSECTORNUMBEROUTOFRANGE 07ILLEGALFILENAME 2BFILEISWRITEPROTECTEDAT\8 20\0ISWRITEPROTECTED 09NOSUCHDEVICE 04ILLEGALDRIVENUMBER 12INVALIDEXECUTIONADDRESS 0AINVALIDDEVICE 11INVALIDRIB 1DTOOMANYSOURCEFILES 16ILLEGALSTART/ENDSPECIFICATIONS 17ILLEGALPAGEFORMAT 14FILEEXHAUSTEDBEFORELINEFOUND 28ENDOFMEDIAAT\8 18ILLEGALLINENUMBERORRANGE 19LINENUMBERENTEREDBEFORESOURCEFILE 02DIRECTORYSPACEFULL 03DISKSPACEFULL 10NOTENOUGHSEGMENTDESCRIPTORSPACE 2CINVALIDDIRECTORYENTRYNO.AT\8 2DCANNOTDE-ALLOCATEALLSPACE-DIRECTORYENTRYEXISTSAT\8 2ERECORDLENGTHTOOLONGAT\8 0CINTERNALSYSTEMERRORAT\8 21INVALIDSCALL 2FCHAINOVERLAYCANNOTBEFOUNDORLOADED 32CHAINABORTED--ILLEGALOPERATOR 33CHAINABORTED--UNDEFINEDLABEL 34CHAINABORTED--PREMATUREENDOFFILE |,@Lx ~!z~;So$~r~s:~s~u~v,~v~s~s~t~t~se~vn~wc~wl~w~wu~w{rzqNq~9~x~r{o&pqpCOPYRIGHT (C) 1976 TERRILL M. MOORE ; 2--q"#'~,Z]'"}&ކ'y'9-59|"=;'"ލ(+2"L " "*!;! !2"L " ";! ! 떙'2i09!..! " " 2("9_2"L " ";! !( $9*z|99011' m&nn011-.nm&n> :62.* &@" @0116v&vw&wx%x29011'm&nm&ny&5ކ'+3(ކ ߆. ߆9"~#߆(9-~5@~5)n3T&/3c&*8#u&&#'@ 9' 9*#+#+##+b#+K#+J#+Z#)#*,Z##|&"z &y-zy.8+J& .79;].|y~#0"~,Z'z ɗyz ~$~$$&3T&,'T`T&% dAT&T&xa& b&c' #f UV.OT,!3i1)&31&.AO`'L`& TV642"&3iV0%B$&V,"O $&T-'3&S8:'642'63i2' |&z6"2'ڠנ '@ڠנ:62'@&1~54$(Z2"L+%$-%$#%;2)@]W&M'8͖^8ͽ1)~52.(]'&^+" ܽ.(] &9%P&& &'&=&TDFFUUU'%%& ]' }^,C'"OU8ͽ1^8~5h~&&' #&._99&15&:&O]^11]'" U8 &(1(н1)&ɍ&&,'ͽ. X`&~1 .W&]&11~%tT- 'OU~%~3i%.0U8͖] ŖU"'%&O T ѽ.,&"W'R'^]Ђ^'- "^~%sC&S], ABAADCADDANDASLHASRGBCC$BCS%BEQ'BGE,BGT.BHI"BITBLE/BLS#BLT-BMI+BNE&BPL*BRA BSRBVC(BVS)CBACLC CLICLROCLV CMPCOMCCPXDAADECJDES4DEX EORINCLINS1INXJMPNJSRLDALDSLDXLSRDNEG@NOPORAPSH6PUL2ROLIRORFRTI;RTS9SBASBCSEC SEISEV SK1SK2STASTSSTXSUBSWI?TABTAPTBATPATSTMTSX0TXS5WAI>'')BEQU')BSET()RMB()FCB().FDB(#)BORG(,*BNAM(6*BNAME(@+~WITH(I,ZEND(S*JPAGE(^*JTITLE(i* SPACE(r* SPC({)FCC()T LIST()PCC() PSR() PGEN() PCA()&RPT(*2DO(+K ELSE(+Z FIN(+2IF(+J ELSEIF(+b2CASE(+#2IFUND)*I TABS) ,ZMON)?OPT+]' C&^-"^8ͽ1)9]8͖^8ͽ1)91)|Z&]^9~.(C &R'7.(3W&]/ 7" 2  @  ν.=&],߆ .=&1]߁4ս9~9;.(14 .=14 )@.?9^]9 ]0&0',&H&15],"22 &]/O ] 8 2' &" 7ʀ83] ] &( >zߓ>y.(^]' "7ߓ9ޓ/ߓ>'o1)>y > #> ".=]. ^]'S#I C? h :4]&(2 '*;& 4'R'_4\4]' 24 &o9S'օ'6752J.9.=]-&^#" .=].OLy~9;]^1)&1&3&'|^ ۽" }'OJy9~"'J9.=]']-^*" ؗy91)&,'9'" +˽3& 61)&5'|Z9.(]& 254^492~"++;%MCM+;(NMCM+;%LN+;(NLN+;% LF,;(NLF, ;%@DMP,;(NDMP,;%EL,&;(NEL,.+WI,6+DE,?;%LST,I;(NLST,Q;-DO;0NDOކ-"'"R'59斅<;5 ;-9ѽ-V~!|pa757578|x'%'&&,߽8|Ox8,ս8|:7p~*, , No Errors. At Least One Error. 'ux'q*-H8|75t'aֈ78-7tt8ֈ2  " 7Z. # Error Lines: ?4' 4Z&9po&P֙S &~z7ߓ>q9 o&>`o@G&  ߋ4-6446-&?tߝ7:p9?@EB7??@GOLRΗ~:&('Z O]^W~"1)|Z'(9'1)|Z'~"3iȌW'O]^W"L9*OW6`..x...*O]^|Z~"4D_WW^]670..k.k|Z[0[#8&2[7 1)' 1)~"LQ'"AB$S&p ٖց ~.k"L0 A/1B/AQ0R0$a/I!/k$/s"/{T0(S086/5/2/3/1/4/q/r/s/t/7/8/:/9/~.kP111~.@ 8m, TFl&l- .m'HYj&j  č   09;'L 4' .. (- ", / % " # $ 0&_729O_0~/=0  _O00.L ~.[&2]3^19%k100  102' 32 O0,0.M'9.&02~",02h1i0i3i23/62.%223l11Z&90O_.2XIi3i2$-,j0.012' 92"bAZ0az00900~299:$@%'() ;,. 011X77011n$|Z&,9'~"&, '|Z 9Z' XYZ9(001?2@1222r22222OXO]^@'" .!7x^y]$"T&3^^ 'XY(96'2X' 12" 70"b091AZ1Z'3~270_39(40^]0&!06]^XI76XIXI0]^111 ؽ2&XY0''XY' 2"~12-2)4 (7~1VHOQB$@%~1U262(``40'& `'\4 2~1( '(^]~1"O (( 9( (9 ' '(  Ն 2 - _.3%( ],P 30m,2]& )&90770$l119+-&*#/!\ <>=#a6/TR!"!<:S<8=42>7/9=31<4>35$15&1)9'~3&15 "1)'&,'&9[OIZ&H6?60119֋67қ"119011ߋ9Ì8`8'#&84a664&4J&8O989`73&"4>u4>w>r>t1 ,?43[6446Z&8ދoo893' _]_]'"'"9~3O__3' R'" '<'>8&(&_&$8]'"8_]^9_&~"ށ]OWOW_"15|Z.44~"},'94z : R'Yօp&'K5g''>m&ޕ8|8& 7}|858|ލ8| '75& p9@@5tvvw$B78|B8|B75B M.'ٍ ŖR'!'t44'4z&4|&93'6ooz{|}4679Illegal Label.Syntax Error.Illegal Argument.Undefined Symbol.Double Definition.Use of Doubly-defined Symbol.Nesting Error.End of Source File Encountered.Overflow.BRA/BSR Out of Range.Illegal Value.Illegal Digit.Out of Memory.Illegal String.Phase Error.Register Field Missing. *** 739M+ '] ' .@6^2 R': '5֑ш#.S& 6֒S8 2 -|֙'6 2p' ֚'~:79zS9ш# 'ޓ_'"\m&]' %-5=>`4 5 4 86644J&o9972 ~7 MAL/6800 1.2: ; Page ; Form (S "S9p6p668ߓ7ߍR>C><75>`47/~A~"=7{z07? 7575222p9&9@A7@77011 76_ 76 090697@0&'7@Z2&972Z&9֣&6F29kށ߁ޡ%o''ߡ95ޕߡo9 62DDDD09/9ޡ  ϖ *S*9ޡ& ޡ]^ 0116ޡ'ߡ6 6nޝ?&*|9011'  n97~::R'/֙')6֟##S1L?t&LCƍ 6?toߝ29֙'S9 9\& , M' &֙ &\9:~ &6 ' ,6^2@297< 7< M'3<9011&n_ާ'\ &o9:P SOFTWARE DYNAMICS MAL/6800, Version 1.2 / 77E4 *:߉:PSource File=^' :߉:PListing File=?&F  8:߉:PBinary File=&   )߉9ލ:`ލZ999 ' ' )7:PI/O Error #3OZ&9:":":P މ*nލ s&AR&)6>:":`Z'-3'&4q45I~8|****889       rzxo0x}x?x  qoZ&o0 ' ' & xxxxx '+;'|x xx 'Z.@/qJ& xxvo xx' x_t ~vnILLEGAL SWITCH rzwo sF$'t s:~vnFROMNOVA.SA  O&)V$''''' 9 999@99wݽwx!x?x& &~x 0xooo?xo)o*o+o(o'o9wݽwx!x?x& @&~x 3 wݽx 'tu֦&?x?x9wݽx ':tux&0+,hYI+$xuxTOx )*o%o(9~x~xwݽxtl%&&.(&#t$#M'+ ''""#9(j( 9 o%9wݽxo(t&&t$9O9&9'! ' )& u% 9)xl*&l)u 9~x)&Lxx'ƀ? xO ?x' ' '~xͦ)*)x*' l*&l) &o)o* 9wݽx o%xt96x''to'29wݽxl%x & 'l''&o't9ȁ"o% '( '3)&6u2xo+l+l*&l)) u9~x'xx? 9x)& x)*)x)* ' 'l*&l)9x?xo)o*9x) *o&& + ?x' &Al&l&lƀO?x 9 9x* ")!%x+'6m&jj?x2o+o)o*9~x͆wx!x?x'"?x٦ ?x9~xwx!zyDK&/0111 wݽx!zyz&z{z&vg?]&9z{z~x?wݦ&xs:zxx*96xxx76ؽw0112rxwcM&\sS&s9'R1&xSxLxGxx&xx7zx'xo"&$x#xx |x'~x~xs:xns$HHHH6s$ 3xx911 Ɂ9#G% 90%0 9A%7 9wݽx&9wݽx%9w9w91-03-7812:01 AM yxwxx x?'xxxxx!"zxx*wچ_r9#CNx"xxxxXx?'x9~x'o%o&o'o(o)o*o+9~x&9~xxDK SA0 ?'x?xxx'M"Io'xx?x; o&o&xx?&#&ŀ&9x  9M*_x? 9$"  0116TOx~ Ox~ x&9yy=yiyyyzzEzqz ~nd ] h! $0201 _"""g"")1#  "u_""" SYNTAX ERRORSYSTEM SECTOR COPY/VERIFY ERRORDIRECTORY READ/WRITE ERRORSOURCE FILE COPY ERROROBJECT FILE CREATION COPY ERRORCANNOT DELETE DUPLICATE NAMEDRIVE 1 SCRATCH? APPEND TO DRIVE 1?DISK NAME: DATE(MMDDYY): USER NAME: NO FILES TO COPYDELETE FILE NOS.: NEW NAME: STARTING TO COPY FILESINSUFFICIENT MEMORYENTER FILE COPY SELECTION COMMANDS: SAVE (S), DELETE (D), PRINT (P), QUIT (Q), NO MORE (CR)S, D, P, Q, (CR):. NOT FOUND .SECTOR  OFFSET DR0- DR1-COPYING . - DUPLICATION: IS IT TO BE COPIED? NOT COPIEDCOPYINGMDOS SY OV0OV1OV2OV3OV4OV5OV6ER 7?(yw9 O? ' '$;&Y$С' $& :Y 11!+!a&!s. ? Y'?O)L1!.~$~& ? ~/!&J!9!&L !&  9 |%9|#(9|&9|"9|$9'&z'# ~-+'&|' " $z $:A$C$D$I$L$N$R${S$U$V$sY$Z$$&-97/QM??$HYIOPO}!*DVOPDVFNMST_?/"f!+. *,&(*,&(%>MQ|-7&(3%.Z&$'-*O,,-?-$?),Y&(Y&~/~/~/OPTFTF[\Y*,9HZ&; =IJ~#<~ )'OQ_ OO '|Q*'Q9K:@F2& B%2!'&Y'!&"2 c%H~"&Y!. !-~$Ž!@ @zF2 :%P0&02 +%P0&0 &0C %2:K"347633G''"3XOZ ./.n~'93D7%B н"34763567676 57..I"&/J"~%2&P7'H.//$|..2723562334. ;."& /.$ |7+%H~" ~$%2!'&Y'!&"~""~"Խ%2~#<)3476 3~#<2334@:F9!7/~'97H.//$|..9ݽ&~# V29  )/)kJSOFTWARE DYNAMICS BASIC VERSION 1.2-  )d )d.. )d.. )d.. )d )d )] )d&& )0 )v )l )  ) )AZ )AZ )09 ) )$$AZ )AZ )09 ) )$$09 )09 ).. )EE05 )09 ) )79 * 09 *09 *09 * * * *66 *04 *Q09 *L09 *G09 *F *K *P *55 *04 *v09 *q09 *p *u *55 *02 *09 * *33 *05 * *49 * *69 *09 * * *69 *09 *09 * * * *.. *EE *09-- + +m09 +$09 + +$.. +# +0.. +009 +m09 +4 +mEE +h++ +U-- +U +h09 +h09 +_ +l09 +zAF +09 +AF +~'' +'' + + + +'' +"" +"" + + + +""'' +'' + + +'' ,"" ,"" , , ,"" ,09 ,  ,M ,6  ,, ,MDD ,MII ,MMM09 ,P , ,f  ,\ ,RR ,~EE ,~MM ,!!09 , , ,  , ,EE ,NN ,DD ,  , , , ,  , ,EE ,LL ,SS ,EE[(])!,O -5" .[ - * COMPILED BY 10/30/77 SOFTWARE DYNAMICS BASIC VERSION 1.2PROGRAM -ORIGIN : +o .[ I$ -I$4800  JSR $2000I$12:: SET 0!,O -5" .[ -DATA -ORIGIN : +o .[ : EQU $!.< - ."!.< -GI*+2+:::II:: !.u .$,   GJ, .F0} .S,O .S5" .Z.[   .t  .p  .p  .a,$ .. .IGJ3> .6c .. .6c .. ..[ ) . .DOUBLY DEFINED LINE NUMBER . / /\ /  .  . . / .LET /3o IF /!;A GOTO //3 PRINT />7 FOR /K4 NEXT /Y4X GOSUB /h4h RETURN /x4 STOP /4 INPUT /7Q READ /:1 WRITE /: RESTORE /7/ OPEN /6 CREATE /6 CLOSE /6 DELETE 07 RENAME 07 ON 04 REM 0(! 0/5" CHAIN 0>5. CALL 0L59 POKE 0Z6F DEBUG 0i6Y ERROR 0x6^ 3o0  0, 00 0) 1 0DOUBLY DEFINED STRING VARIABLE 0 II, 1<) - / 1%I-*-1JI-*-4JI-*-22 III4+/ 1;2JI4+ 1/ 1I-*-1IIJI-*-4JI-*-22 III*-I/ ) 2 1DOUBLY DEFINED NUMERIC VARIABLE 1 I, 2d) - 2%I2I::+7+6*I8+6* 2c, 2c) - %I4I::+3+6*(+1)*(+1)J+1I4+6*(+1)*(+1) 2/ 2) 2I6J0J0J 2* 2FI:+FI''I$DG 2: 2+o I6J0J0J$ / 2 2I6 3 3, 33 3+ 3I) 3*I: 3=+o I$FORMAT 3n+ I&II-*-1IIILEN( 3F ) = > I^F 3, 3> , 3> - = GD G 3- 3= F> G# 3= 3D G Ch 3= > G) 4 GIID 4WFIF= > GTO > STEP 4C> 4RFJ1 HD 4gHI) 4zGIIPOP 4> I GGERROR 4GOTO HI0 40 4) 4I > 5!GOTO 4Ha 4GOSUB 4II II) II, 5) II 5II5* 5",D 58H) 5B) 5 5L 5nALREADY DEFINED AS A VARIABLE 5r ( 55 , 55 5}) 5 GICh 5+ 5- 5! 5XOR 5** 5* 5/ 5& 5^ 5 5FA F 5B 5 FEFs 6A, 6<> , 6&> - G 6;- 6;FB 6: 6@ >> 6X, > HmHHDEF 6)  6v 6NAME ALREADY DEFINED 6GIII( D ) I= > IBII 7B 6, D H7B 6, D H7B 7H, 7 7B H 6D 7IPD 7., D IW7B 7A, > G# 7P> GF 7_I4G 7x7B 7l, 7xI4H 7H17 77 7, 77 7 F 7, 7> , 7> - GGG 7- 7FH%G# 7GG Ch 7H%G7B 8, 89Z 883 8G I49Z 8183 81G ELSE 8F 8UB 8L9% 8T8 8F 8b8 8TAB( 8> ) ; H783 8 8E 88 8Fs 8, 8> , 8> - G8 8- 8FFA 8 9% 88 8> 89% 8G, 9 H83 9  9#; 983 9 9#G G, 9;H83 9: 9X; 9PG83 9O 9XG USING :0) 9vIII 9F 9Hy 9F 9E Hy , :(F 9B 9G 9G :'F 9G :'E 9G :'Fs :, :> , 9> - GG :- :FA :  G :G :'> :'G 9G7B :M, :N , :I:N :?F :, :> , :t> - GH  :- :FHG# :H  Ch :HG7B :, : , :: :E :HFs ;, ;> , :> - GH ;- ;FFG ;H F ;*B ;!G ;)H F ;5H> ;@G< ;  ;T  ;M ;X THEN ) ;GII, ;|; ; ;GII; , ;GIIII; II ;II FI ; 3/ <\ ;  ;  ; ; / ; <) <A <= <= <= <= ) =E <D >V Fs =W, =I> , =&> - GD >V =H- =HFFA =A= =G= =VD =V>V F =vB =h= =uD =u>V F =D  >V > == NOT( =< ) GEOF( => ) H+AND = G_<> >> Ge<= >> Gq>= >&> Gw< >5> Gk> >D> G}FJ0Ge= >dD H=<> >tD HC<= >D HO>= >D H[< >D HI> >D HU? >> + >? G) ?- >? G/ ?! >? GM ?XOR ?? Hg >?X ?? ** ? ?X GS ?S* ?1?X G; ?S/ ?B?X GA ?S& ?S?X GG ??q ?p^ ?l?X H ?^( ?> ) LEN( ?F ) FICOM( ?> ) GYATN( ?> ) HSIN( ?> ) HCOS( ?> ) HTAN( @> ) ILOG( @> ) HEXP( @4> ) HSQR( @J> ) HINT( @`> ) HABS( @v> ) HSGN( @> ) IPOS( @> ) HVAL( @D ) IPEEK( @> ) HsFIND( @F E , D ) IRND @HERR A HELN AIPI A%I) A1F) AAFJ- AP?q G5* AnFI''I$D+ AFI0IFG AFC: A+o FJ$+ A) FJ+ A? G)> - A? G/> ! A? GM> XOR B ? Hg> ** B%?X GS? > * B<?X G;? > / BS?X GA? > & Bj?X GG? > ^ B?X H? > + BF? G)> - BF? G/> ! BF? GM> XOR BF? Hg> ** BF?X GS? > * CF?X G;? > / C1F?X GA? > & CLF?X GG? > ^ CgF?X H? > ) C CwDv C CD C CFI CUNDEFINED VARIABLE ) D CDv F D CD F D CFI D D( > ) I;I DUNDEFINED VARIABLE ) Du D+ DUNO SUBSCRIPTED VARIABLES ALLOWED HERE Dt DtUNDEFINED VARIABLE FI, > - G FI, > , > - GD DD CAT DD GD GCAT DD G DGEFs DE FDATE$ EIeE TIME$ E)IlE NUM$( E@> ) IsNUMF$( E`D , > ) IzMID$( EF , > , > ) GLEFT$( EF , FJ1> ) GRIGHT$( EF , > ) GHEX$( E> ) I, F> , > - G+ FFI1I+ FFFII-*-1IIISWITCHES$ FYH F_F Fr, > - FFSWITCHES$ FHF FFI) F FUNDEFINED VARIABLE  0+ 10 11 12 13 14 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 126 128 130::: EQU * EQU ::I-I::I:: SET ::+I:+ ORG  FCB  RMB  FCC  FDB  FDB  END   rzxo0x}x?x  qoZ&o0 ' ' & xxxxx '+;'|x xx 'Z.@/qJ& xxvo xx' x_t ~vnILLEGAL SWITCH rzwo sF$'t s:~vnFROMNOVA.SA O&)V$''''' 9 999@99wݽwx!x?x& &~x 0xooo?xo)o*o+o(o'o9wݽwx!x?x& @&~x 3 wݽx 'tu֦&?x?x9wݽx ':tux&0+,hYI+$xuxTOx )*o%o(9~x~xwݽxtl%&&.(&#t$#M'+ ''""#9(j( 9 o%9wݽxo(t&&t$9O9&9'! ' )& u% 9)xl*&l)u 9~x)&Lxx'ƀ? xO ?x' ' '~xͦ)*)x*' l*&l) &o)o* 9wݽx o%xt96x''to'29wݽxl%x & 'l''&o't9ȁ"o% '( '3)&6u2xo+l+l*&l)) u9~x'xx? 9x)& x)*)x)* ' 'l*&l)9x?xo)o*9x) *o&& + ?x' &Al&l&lƀO?x 9 9x* ")!%x+'6m&jj?x2o+o)o*9~x͆wx!x?x'"?x٦ ?x9~xwx!zyDK&/0111 wݽx!zyz&z{z&vg?]&9z{z~x?wݦ&xs:zxx*96xxx76ؽw0112rxwcM&\sS&s9'R1&xSxLxGxx&xx7zx'xo"&$x#xx |x'~x~xs:xns$HHHH6s$ 3xx911 Ɂ9#G% 90%0 9A%7 9wݽx&9wݽx%9w9w91-03-7812:01 AM yxwxx x?'xxxxx!"zxx*wچ_r9#CNx"xxxxXx?'x9~x'o%o&o'o(o)o*o+9~x&9~xxDK SA0 ?'x?xxx'M"Io'xx?x; o&o&xx?&#&ŀ&9x  9M*_x? 9$"  0116TOx~ Ox~ x&9yy=yiyyyzzEzqz ~nd 0201&+)]&-&+?'&~  &~$)^DK&~$)[)D)D)&-&+?'&  ')DK'))D)D&+_ '+;' &+ ' ')H&&+ m&~%)G)D &~$' & )&)')D'~" )&)]))&)f))&)^&)&&?PS)G'~%P)G' )T)T )y)y)S?'~$?&)G@'~!)j))k))l))f)%)y)y)x?&?'})&})'&)) %)S?'U &)j&C)d))S?&?&)'/))x?&,&&+'%&-&+ ?))x?& %!?)x?'~$&)'/))x%k%)S?'L '~$)x?'d &)j'~!)d))S?&)x?&&&+'%&-&+ ?' &)x?' '~$&0&+&&-&+ƀ?&~")d &+)&-&+))? Ɓ?#~! )&0))D&~$1)^&+)&-&+ ?)S?'~$?&)j''~%)G'~% ' @&HP)&'& ')jx))G'&dž)y)y |&/)G@&M)y)y)x?'~$?&)G '%)S?' &~!}&/& )W)U'|&/)U)~)x?& CN)&~$(:)|)C)~)G&|&/%k%)S?' &)x?' &~!)? ~"}&/&)U')x?' '~#I}&/& )z'|&/)W&+)|&-&+&-&)z& &+)U' &-&+)U'&+ CN)[&~$)G('~%')D')T)T)j |&/)^)D' )&SA))&+)^&-&+ ?)S& '?'~$?&)j' ''~%)jx))D&)^&+)&-&+ ?)G@'~#%~#<? %!?     ) ? $%!?9)S%L)y&)y&)')y)y)x%L9%i?''_? %i?''_? 9)x& '?& ?&)? 9~$)?'9)ŀ'~%)j' '~% &)D& ))j&)G'9)&+)&-&+?)))))? &? &Y'ƀ?#%!?H& R&)E)F @ o9*NCWH V@'0(9DK0 SA&0&'0(9 DK &0&VERIFY IN PROGRESSXXXXXXXX.XX:X EXISTS. OVERWRITE? VERIFY FAILEDVERIFY FAILED AT LSN XXXX]'/l&l*.*. #0m&jj*. Z&*.96dfJ&29  *` *r$ 0 011n**oo<*9**4< **+ *&z*& *9*<x 0200O"%" '%;& 'Y&|" S&|% ' 40" " ?" ""? _" '\J' " '? ?"!? ? $?" !?$~!!&!&%&" &׶"'Ɓ?#"˽!"? D!&$"& "!"? ? %C"? ? %8Y&" ?$ ? ?"!"? !J&~ y" ';'~ ;?!J''ƀ?#"!"? ? ?&~!O#$ " &z# % &!9 &# |#"'&"&z$  &$ |$"'&" """ "?!9#+" """"?&$*O J'"" ""9"" ""?."""9 """ DELETE ? IS PROTECTED DELETED  DOES NOT EXIST  0200O$%&#L- $$$j0$Y$Z ?%$Y%%? _%ئ '@;& '5E&  $ A&  $$ ܁L& ԁS& ́ ' !_$Y$z' \J'~#)$Y ' %$%%?$~#)$%$%%?$r$% $Y& '~" &&" "? $~#"$Y?$~##'#&"J& !&$f &|&#!&~"#$d%$%%ν&O$j'('%$%%ν&$Y$d%%E%%?$~#)$%E'+|$?''*$%$?)$$%$%%ν&!&~"%E*&"%$% %?~"00$ $?%E)(''?'%$%%ν&)(''%$%%ν&$$%$ '$$?$'$57&)+*@Ɓ?#&$% ))+? $~#~"$$%"'~#-~ _+, $Z&z+  &+ |+$b'&$b&z,  & |,$d'&|#$Z%%%% ?~ &ƀ@?#&-$% s' ? i&'!',$%&c%%ν&$%&h%%ν&&F$%&(''%&%%ν&'%&%%ν&&j$%!'-Z'$>?$Z%$%%?.$$b$9++$Z%%%%?&,*O J'$b% $b%9%%$%%?.$f$H%$&$f9!&? 9z-&<-?49?2% Z' %?5?390 $%DDRIVE : DISK I.D. : . !WDSCN0 *NO SDW'S* NO DIRECTORY ENTRY FOUND TOTAL NUMBER OF SECTORS : /$ TOTAL DIRECTORY ENTRIE S SHOWN : /$ NO TERMINATOR FOUND IN FILE'S R.I.B. ]'/l&l&& #0m&jj& Z&&96dfJ&29]&~'l&l'''''''o%'l '670 'Z&32'l&ll&lj ,' m&jj'l&lj&'O9'd $0 Z&9( 0203(u'|''~1''|?].e_'| ';& ' 'U& T&? %'1' .O"L! & &'? $Y& '? $Y'? ? ( ? &?&? ]'$%/&'l&'n'l?(? &?&? ]'%%/&'l&'n'l?(%? &?&? ]'/'l&'n'l?&&'h%'j!'g?%'h&'j!'g?$~!ƀO&?%&~" !' r%~"1'8' ? ? &|  ?* ?.)&?( &~$~!'p(:'r'p)*(0? Ɓ?#'&~!(H? $N&~"Y&(d? &'t? ]''t)k%'w& 'v_?/# (? @ƀ?# (? &'x? ]''x)k%ٶ'{&'z?/#'v'w?/#~"D'w'v)&?('v?'z'v'w?/#(? ~"&>>&GA?'h&'j!'g?%'h&'j!'g?$~!&Oƀ?%$~!DK&&&&&&" !o?'? ~$DK&&–! "&?'? ~$|('))+<'l ?()& ?('n 'l? &?(?% ~Z&C60? 2 7%'~$O(& &  ?(&&'f&&?$ ' ? ~$&&&&'))+'l ?()&'n 'l?' &oo&'l&'n'l?&'l('n'l?&((? &?'? {&?'? U(/"'(? ?&??&???(&?' &&'%< &?'? &?'? &?&? %('~#^~#? &?'? &?'? ?&? 97 ?$ '?%Z& 397 '?%Z&39##'h&'j!'g?$9#& 9&'h&'j'g&?&'h'j'g&?&}'lu?('n 'l?'g&?9|uu+XHYHYwvz{67xHY & M& &S66~m? ~SM  (:&&' MDOS SYMDOSOV0 SYMDOSOV1 SYMDOSOV2 SYMDOSOV3 SYMDOSOV4 SYMDOSOV5 SYMDOSOV6 SYMDOSER SYIS DRIVE 1 SCRATCH? ARE YOU SURE? DISK NAME: DATE (MMDDYY): USER NAME: SECTOR 0000 LOCKED OUT LOCKOUT ADDITIONAL SECTORS? ENTER STARTING SECTOR (HHH): ENTER ENDING SECTOR (HHH): ABOVE SECTORS HAVE BEEN LOCKED OUT INVALID SECTOR NO. COPYING FILE . MDOS.SY DOES NOT START AT SECTOR 18 TFTFTFVFVD6YYYO FZ,29]'/l&l)])] #0m&jj)] Z&)]96dfJ&29]'+)oo))l &l)%)Z&)9A% 62% 0%62%96hiJ&29 $0200!h DK h UNIT=0  CHANGE BUFFERFILE= . CLUSTER ALLOCATION MAP DIRECTORY  PSN=0000 LSN=0000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  h!!"0#*7#'>"1"""l"+""=""U" h h : SYNTAX ERROR MODE ERROR BOUNDARY ERROR INVALID SECTOR ADDRESS PHYSICAL MODE WHAT? !ˆB00/,)# ? c? + %,'~'*s 'ޗ *' *&~$"#*s!B'C'D&0') ')''}/&*  '*sB& & T" ' &N&F#ƀ~%#Ɓ |+'&,*'"G') &' ,&'ǽ*' &G)#n %*'/&H"(|,M~&#aƄ #-Ƃ,!?#? ~$)t(?%)~$)t *s0-9.6*s &)t2%70~$#ƀ~%!D&'&q("k?(')%"ƀ*3"3157~$#ƀ~%!+&B''D')7'-3/'5 D&'&(" ?(')~$#ƀ~%#<ƃ *&"&$*s*s"&*s H & ƀ?7~$#ƀ~%-%)( ?('"ۖM& |M*s &~&.)%.'*mH*s &~&܁"&*s. ", *&"& *s"&*s  'Z|. -'H"""ہ,'-&J6 '*s &.^'/&& !̶!?/##2^& !ζ!?/"|-'"~&?#ƀ~%#-Ƃ /'7^& "!ζ!?-?$8"߽*I" ""۽*I#&? ~$8(~&,~$@ @(!+&BB&~'C&~'D'"( /&"m"ƀ*33"51')7&~(8~(&C&'(%U')(%L)/'" P!D&>'&2)&.' 1(*"!?')?(' )1" #ƀ~%" "*3"m')*?/$ /'֌&і0!A!()$~("*M"*M"`(? g9";"="*I9*I99 -z/.==;?L?&;M&? %'"(?&')''@&~(zA&(~(~$?1% ?1%}/' 9}@&? 9?2 '' BZ& 6#?52:B?3'?4 ?59}@' BJ'# 9K)t%Z!K"!"Ֆ0! !"?&9 &5!ڗ0ŀ&,"*3!"9 !DK!!?&?&\/7 9#S? 9~)/'!?& O/7?& 9!_? 9"ƀ*3 O/':'!1!M&? ?&!ݶ!HYHY'?)!߶!?-" 9!_? 9'"110"M&?9 ?:%9"60? 2 9 7NG_*%G*HHZ&KP2PN]96ICEIC?29 6*k*l*i*i*29K% K%%K9  '9C%6F%L'17O%.Q%&R%dS',7U%;W%]'/l&l**ݦ #0m&jj*ݍ Z&*96dfJ&296hiJ&29A% 62% 0%62%9456 !~!~"}:BEDITCREAEXITLISTSAVEDELELOADRESEMERGBUILNUMBCHANFINDPRINBLOCVERIMOVEDUPLAPPEQUITOLD NEW END L SAV DEL LD RSQ MRG BLD N C F P B V M D A Q ON OFF IN OUT I O :EDITM RELEASE 3.10 COPYRIGHT BY MOTOROLA 1978 WHAT? NOT THERE FILE? 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 ;/ o&6yzyGHGE&\_N I [37E27C2]+7A2;/0C!" *'''"\"\"\'"\"\'"\"\"\"\22"\"\"\'"\'X"9n7?2 7=2~" 7;2 792!&~" ~"7A2;/" *'''((C(Y'.1-'1((( 22//(',Q'X"9nLM<>?=P677iA#<{|}~#0&'975$''973$''97?2~"†A#<71$''' '9"7/70kl7*:{9.$i &i~#^im@# z#. 0"9#i"%\#"X$,6.-2i9"*./HYHY/.HY::_M,S::./|$k7(' ikkii~#$/!.:{7G$_M,Snmij .9#k'{:k7 '9&9'#$L~$'9;Zi ;UA#<{ ';Z!:;;9!(;C!+;:7&;W7$6;Y;Ui;;:!9;C!(;:!+;Y,;Z/ M'$~"e91:!99!(;!+/9%&$D&&;Z &&;Z ;Z;G;H;M7";O7#7"  ;Q;R;Z7&6;Y&&;Y&!927 2M'$~"s;Y' &&;Y&272M'~&!9;Y'&~"m&& ;Y&!9272~"s0#<.& P\'9&9{:8${:8$.)i-&i0#<{:8$)-., M'$/~"e9߉ߋ ߍߏ90'9I( I7272(I 76߁Y'GC&;!:;;9!(;C!+;:;M7";O7&6;Y;Y'~3z|0~"s11!:;;9!(;C!+;:~(J7e7:!P9ece&i7 :V9zy҅TU. &$7:V9UTTUT:!Z7G!^::Z8S2729e9:!P9e9:9$~&~'tecee'9:9#e9&"C$؆A#<B{߁N&B7߅=[ ޅ3X=] &=[0&~"}&"$؆C=[7߅~1&"3=I364I3~("I4&3= I%&e' (;'l~((~"e29$=[5C|0~"}/0#<.-)%&e'??ece'l~(k~(~"e?:!`7G72/~"|<~(|>/%<&2P'.\&*I( I62(I 76߁Y&~(~)i &i~(OSiN&iNe~)hi;&#i߁A& i|O~)H0#<.'/Si)i>' ) &/~"eiq&e& <&/~"RQeޅe9:ޅ99egޅk g+ޅ߇>' O)i+~*ۆ kޅgk߅eޅe9:ޅ99ޅkig+' &~+mgoimm '+)''N' o'~*ao &'~*gmmoo~*.m'' &~+)'gkkgg~*S' |RR'~*t<' އ߅(;~+miks g+sk)i+O'qiogQ~*Q o+ k,egg ' |,g~*gg '-g 'z, 'z,~+ ,-ewޅu+ Bޅgއ߅,=g߅ևceއeޅuއ w+w߇އ߅]'(;0Q' m+Q~*އ߅'lqi~)hu '6-u & |-u~+–-' ww uwwuu~+ ww9mmN'1'. '*m'7 ]' kkZ 3 kN'k Ǘ'9y% *'5/~"m9,W~"i ',=07eece&~,9:{9$~,je9:{9&eci &62i &9{:ޅ99iuޅw+cޅօcw߅9/M!:19!(9!+;$i('~.+i%:9:9i)'~.+i,&i0#<.&~.+.:7G:9A#<B{߁N&B&e' 9:9&62eceޅq3Xckqrck'$kck9:c99%62$0~"}$~"e/0#<{߁N&>=[cc'/oooo- &-' J-'--cc~.L~/.& ..:7G6:9i,&#i0#<.& ..:7G=[cc&~/&$9:9%:9&&c9:9%:9c&' -L&:c99::8S:9$ 62/~"}:9cc~.0/~"}:9:99:9:99|=/0^%i,'/~"eii:9:90#<.&~0 .:7G:9:9i,'.~0ii0#<.&~0 .:7G&gcec_ea^&~1 :9:9:9#~1 g&& gcee&/~"=&e_'a&g~19ecg ,=egec&^9:9='euޅew+w߅e_'a&~1abef_:e99]'(;=':9&~1 ec::8S~0|L/0#<.& ..:7G6:9i,&#i0#<.& ..:7G:{9~2a~::8S{: 9 § 6  &/~"6i,W~2P# '\~"s# ']~"s 6$~"s ` 2! ''  ]'Z  9 2J 66J92JE2߁ ' 'EJ9IG6GEJ9 2I4'9|[[ ,9 ,~3[9 [ '466|[~3= [9k+'5.DK;8;066;0'%! 66*'5+'5.M'$~"s+;1k;4;5;4;6;766;0'~3w*7:9A;G'262!M'$5~"s66;0 &~5M'~3zM&~4ÖB'9::68S:9$~4:9#~5 Z;40% ;49#~3z;4:9$~4;4:9#~5:;49::68S]';42;5;4k;4 k5M;4wu+w;4koow߅,=;5;4;6;7~4;1;1*66;0'~3z+66;0'~3zA&9629B'i;2i;2gi;4'g gi i~5`igM'(:;49 ;4::68S ;4ooooo9;40%9";40% ;49"9A~5QeA+'5.DK;8;066;0'~3z+;1ޅ;4;5;4;6;766;0'~3z*66;0'~3zece&D Dc;6;6&;6~6f;6;4;6 ';6~6z66;0'~3zD&~6~6I~5?96~6 I2 I: ?2: y690001!u;03<2:!0010!!m!!`=]!K32767000000000=[!!! !B ;[;U;: { Z :!:!-! ! :67:]*|:S::,@0923:Z&*@ ,9p:9:%|: 6:z::":::0::29& }:' *-:9:6706:& J8:::::2JJJ&:329770_F$VFj&119:0'090'90'09011n:::*0S: :: :: :': 91S9mS : :0 ::0 :: :Z&%:'::*S9s*S  :*S:'J :& Z' l 9::]*& :::&::8Y:' 9:919m~8::&:::::' : :: :Z&::9z::iZ& l:::9::::&:Z&9:::::Z&9CS9::Z.9'd & 9Z:::$|::9:10 5FB15F8F103:FDB:+I 5FB300104:0+0 5FB418105:24 5FB50A106:10 5FB65F23107:FDB:+DEATH 5FB819108:25 5FB90CP 02000!!z!!|!z?!0,? ?3.""!!~?"""!H%|"&|"|"&#|" ?276"""?/$"23?3""Z&z"&"""z"/"" """""z"/"" ""!""!~?"!'&|"?(z"&!'! "!z">!|!z#$"""!z"O!|!z#$"""!z"e!|!z#$""!""!~?!!z"'!|!z?"? ?!! "`"9"KDRIVE X : XXXXXXXX XXXX/$XXX SECTORS XXX/$XX FILES XXXX/$XXX LARGEST CONTIGUOUS BLOCK]&~# l&l# #"###!#"#o%#l #670 'Z&32#l&ll&lj ,# m&jj#l&lj&#"O9'd ]'/l&l#W#W #0m&jj#W Z&#W96dfJ&29P 0200%'*% '* '3%?''~$}&&~$~!%&|'O&~&|?*|&}&'&' &&-~$\&SA0 '3&'3'*&'*'*?'' ? ?}&&~$|'~!}&'~!C&&'7'' ''~$'7&'7''8''3&'*'' O%m'7&&x&&t'%)'&v' %+ &p' 'b?)'b&ZX&?''*';~ '7&'~$}&&7&' O%m&x'~ &t''?/%'%)''?/$' }'&A&'#ƀ'7'~$&' '*';&& }' '~$|' |' ' &-% 'h;' % 'XW&|' % '_'% -~$\ ]' %?+&|&|'%&~''?/$~$?$'?/%'' }'&B}' &=}'&8'+&|'j&~&|?'3's'*'v'j? &|? &|Y'ƀ?#?%'*&|'O&~&| ?' ''\&&~#('E?'~$?'}'b&}'c'&'b'c }'''X'V'*%%?|' ' &,%%%c' ?' &?&?'~$'E?& ޽$?'''?-&|?$&'&|?&|''b&|'d&'f'E?'~$?&6'' 'Z''O{$z'&2'#''? $?2%' O%m&t'&r ''?'&q?'''''?.''_x'IY'V'W%½%c' ?'~$'?'='='='b'b' ''&'b'f'g?/$ 'E?&Ƚ%'='A'B?/$ 'E?&' ?&?&|' ' &,~#'EO%m'&'&&&'&'&'E%m~##? $?? ?'*  '*    '* '* ' % 'F&'P''F'F'E% 9%'?''_? %'?''_? 9' v', %a%a?' u'J%b%b$|%a' x%a%b?)911~$? $$?96'' 2 ' 'M&?9?9'*%SA'30'*DK'(%?' ? $?' ?'~$?&9}'& ''?/$'E?'~$}'W&z'Vz'W'd'?''b'9  1DK0 %&{3DK0 SA%&{XXXXXXXX.XX:X EXISTS. OVERWRITE? ]'+'oo''l&l'%'٪Z&'9A% 62% 0%62%96hiJ&29ƀX 0200#"##?#''~"h~"n*'& "&SA"""" ?"###?]''~"r" '|#""&### 'P;'# ## '9 '#m&~ !' Z,~ !7##3## #o#&~"h'!#&~"r#'" '" & "#' & z#&"' & z#&"#"### #?"### #?? $?""#5""#'?]'#' ? ?}#&~"v?]':' ? ?##"###'?&##"###'?&|##'8# '# "#"##?# '# "##?""#'m& "" C" "#"##6"#"##?]& #' ~!X' ? ?? ?  # " 0 #6#D@WS N X0ɀ0h1 ,0200  ! # & h i  ('?)'C*'F'I'Y'_'d i t5)6) K)7J)FI)d"" &..&'I)'I)=)A)?)# ! DRIVE MUST BE SPECIFIEDID SECTOR READ ERROR WRITE TO DISK TO ATTEMPT TO CLEAR ERROR? ID SECTOR CANNOT BE CHECKEDDISK ID: VERSION: REVISION: DATE: USER: ID UNUSED AREA NOT 0. ZERO IT? LOCKOUT C.A.T. READ ERRORC.A.T. READ ERRORDISK IS NOT FIXABLELOCKOUT C.A.T. IN ERROR - RECONSTRUCT? Y(YES) OR N(NO): WHICH SECTOR RANGE IS TO BE LOCKED OUT? C.A.T. ERROR FOUND - ABORT?  .  DIRECTORY SECTOR READ ERRORDIRECTORY ENTRY IN ERROR. DELETE?POSSIBLE INCOMPLETE NAME CHANGENEW NAME: INVALID RIB SECTOR NUMBER. DELETE?HASH OR NAME DUPLICATION ERROR. DELETE?RIB READ ERRORRIB IN ERROR - DELETE FILE?FIRST SDW IN ERRORSDW BOUNDS ERRORRIB CLUSTER ALLOCATION DUPLICATIONILLEGAL SDW TERMINATORNON-CONTIGUOUS SDW ERRORNON-0 BYTES AFTER SDW TERMINATORBINARY LOAD FILE RIB ERROR GOOD FILES FILES WITH BAD RIBS GOOD FILES FILES WITH DUPLICATIONS ALLOCATION DUPLICATIONS  DELETE: NEITHER(1), BOTH(2),(3), (4):  SIZE: CONFLICTS: CLUSTERSWRITE RECONSTRUCTED TABLE TO DISK? RECONSTRUCTED ALLOCATION MAP MATCHES DISKILLEGAL ATTRIBUTE OR UNUSED BYTES. DELETE?MDOS.SY DOES NOT START AT SECTOR 18 .SY DOES NOT EXISTBOOT BLOCK SECTOR CANNOT BE CHECKEDBOOT BLOCK SECTOR READ ERRORBOOT BLOCK SECTOR HAS BEEN DESTROYEDMDOS MDOSER MDOSOV0 MDOSOV1 MDOSOV2 MDOSOV3 MDOSOV4 MDOSOV5 MDOSOV6 % ':&0'1' %6ƀ?#? "6R$* %޽6~-r%6%6X%%6-1-6% ]6 %6I-176,$A Y6 ? ]'-26M/ '?'? 2376,%|IY%%623-6$#F&#& &W6% #2ZO?|II'6X~-r7?2M..-?%Z& ?339 % h%%?] &%6 ަ6%Z& -J Y?'-r 'Y 9%&# & &#&&$#&'&1#&8&B#.j$|&6  $~.# # =O?#J#KA?.&6'F W79'-&UI6%79'ށ &U6%IJ?/"677# 6D?3U'?$ 6X%.j$'6%&6?~. o$81' 8'9'4&(6?) ?-24& ?$7# 6D &9? ?"#66R2$&&&x6%6%*6X%%# &#J&#K&#& 9 9&6?"6R$**6 K*ս6%6%6X%8%# %%J?'## ƀO?8%# %%J?*6 "6R$'|6%6$&6?6X%"&$ ƠO?4,%B&&Z&~0u'5~0u&]&Z&~0u&'>6'6'۽6'SA q % h%%?]&ށ &%@ 6#6_$~/35 , 6$' &, &'*F~/l s,%D%D 6 s?$( ~/l +&DDD)&SY |&D+%% t%%?&%l?++& ~'*r6 % ?'%m*½4%~/S+%*%%?%m&*6%%m*O674$~2Z, "I6R$#+(26%6%6X$(A5$|7~2R# 7%I'(]6 S# I7%Y7MS?'SM63% Z?'O6$(p # KI'%7QZ?'MN?/"QOP?/%( K I#' I@& S ?/%(~0, ' # I7?'KII7% K'( ISTI#&, &~2B'~2G'?$# ?.t#, ' '( #'L&H#ST?/%=O?/%6###?/%)##'#?/%##DVF?*#?/%#?/$( &|64%~0%H6%L6)6"! 6U$&x6?!ƀO?I4%D$5I=>?)I4$I&~4qIK4D$ _5='|KIJ?)I& |L4$%P6%T6%X7)664&~4B_5%\ƀ6%`6'>6%l 6%p7%x7)Ƚ64$~4'_5A''86%t7%x7)½6%h 6" I"KMR ? OQIIKKH$*6M7O  A& 6 ?'O2RRM'zQ& O '  6)~6 &1'4'3'2&6533&~397%d6("#6U$'|6?3]'54%~2"! 6U$&x6?4% D$54$"6R$& %|ƀ?')6%! 6_?*6?4 4%&' 9$ &* !&&,?',+L&-|*(& 9("? $?#6U$'|6?#,O+% 6%$6%(6,%, ?'%0%4%8%,7#%07%47%87,%<'j%>7%<7%<%<%>%>3Z&'e'I6$ % 'e'T& 9?2'>6?36% &o,?("#6_$&6?9H=O?"ƀO?, "6R$(26?# C7%WEG?$7"J??}H*! D'!4! /!3'==" ''AAEEGG&C 9?(739?(9# O # $$ !M&?9 ?:$!60? 2_1' 8' 9'Z4&] 9??$&_?/$?/9 97? 7? ? %39?#z" 9 96 c? 9Y ' N '& 9 98[]8[?9 67!7"777296.]][?9 78U%7%U7ךVVZ&:2:8]9;W ;WW;9 '97HYHY?%2|I9]'/l&l77ɦ #0m&jj7ɍ Z&796dfJ&296hiJ&29A% 62% 0%62%9TFTFTFVFVD6YYYO FZ,29|uu+.HYHYwvz{67xS66~m? ~S|@x nd~" ~,ro$~r~s:~s~u~v,~v~s~s~t~t~se~vn~wc~wl~w~wu~w{rzqNq~9~x~r{o&pqp BCC$|BB@@H%a`ncb! n@@H%a`nAA$|@@H%ӗa`nCOPYRIGHT (C) 1977 SOFTWARE DYNAMICS ALL RIGHTS RESERVED""""""""""""# # ""|"#"&&]&((k(()m))#$$##$G$S$w$k$$$%%%*S*^*e*W*+,,o++0/0/&46&&&'55645--4H/4.4g%%% %&%,%2*p$_,,& /:,929(887r#J66l#4#>44544&7D,,4#9*#%';&)&M"[4+Q+*5.5K'%%33%)'98#w+3X h0d ;5$ߋߍ=*,026!`"b O^ RZ Q@]O\&'9 2d'~,o~ j@M@@MMZ&@~ j@A%0 ='M~ @6666660 =',~ 00o~ h@OA  @0 ='~ ~,q0111111666666~ h@6O666660 ='~ h@76444O60 ='~ 0 ;JA%0 ='~ h2 , 0*~ h0'%E0+E  C  0'C 4O6~ h0'* ;~"ݦ'oo~ h23VW0&30&;3A%Vn$5 $-ݽ<(~ h6&  0 ~ Y0&# '$-ݽ@ ԍ= #$-ݽ> $ $ #$-ݽ> % ~ Y~,q0& 911n   Ӎ   Ǎ   0&cc~ h0&*7;jA%>0*FEĽ;C  !2333&]'0DfZ& (0 o o ~ hM&]'0hIZ& ~ Y0&3;~ hQ&?~ h?~ h@& :- 4/ .. (, ܍^' ֍X& ЍR- ʍL/ čF. @, 23XY0&' & '$B CC$|BBXMn#; 23XY0G0 &0EG'FHEGF8* E' 8G'"0M0IIM&M &8 8 B6_7C6B647~ h 5 0B0111111BC/O ~,q0B0ߋBCی׎~ Y@o&ߋOی׎~ ~,q@OA@@A~ @7O6A@BCA@76B@4O60 ='~ ~,q66 @ ? 66 K L76O660 ='~ h~,qUS7TR6RS @6676O660 ='~ @~# Koo M NT0'2 K"&&" 0BBTT &~ Y~,q0G'l0 &0EFEHG%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@" A~ Y~,q6BCC$|BB29z]z\__$|^^9@^ϼ O'¡&&B&+B%}B  $~ k^&~ ^666666BA%-ݽ>B;BA%B6 6 6 6 6 6;'.B* B+ B B&66O66CB;B&66O66CB222222B6 6O66CB2 2 2 2 2 2~.@( KRB MQ& H''+ Q BB '  &B T~,~,lTUSRR0 )Q'~,q/0~ k INPUT ERROR 6U( ;~ kR~ hBC23VWBCA ] lB߽A ':&[OA0-*9.0 A-F.7HHHHHyy%(Z& 'ֿ7־7444_7 ,' VW769Vn?_ _ ދ'Qߋ ދ Q  ~ h0&09'0BBQ &~ YאOٗW$&|N-& | -'>#& L #/.&|ٖ " #& L #ւڃ&6-&| C  10oo0Q &1111~ h<~,qD2Q #zD&~ h0& 0'0BQ BB &~ Y0'0BBQ # &~ Y׿߫߳'xy% h$%Z&&ִۖ9011nց766~60Xyyy~Xyyy~ ~XyyXyyXy~߀C;zA%<(~ h~,q0+& '38&0@Gp$@D8*}l l l ; zD&8*}l}r l~88&}r}f_[}l%?'l& 8*}r od@~888&}f_[}l='XB>y4D>$yw?9 5?V?33a@ffg@ffff@PAAprAql&>8tpvq$8* rp'8* r}r ޖf*8*}l ; l d~ jf* O0 ~,q@d23@A~ ~,q0+& '30@O@6666XIXI0C8&}l ;'+8 ; l ; .8g ;  ; 8Ax1q xAA%1AQA#V'5 lAUdY' 8* r.7u~80&3x;@@A%@'@xA%0 ='<(@A%> ~ k~,q8& ;Z.958& ;}f_ ;Z [ ; [ ;}lqG$ 8* ; 8*=4(y0G?hQyi&&@E@pyc' f l ! ; ~88&}f_ ;Z [ ; [ ;}l ;ZqG$ 8* ;Z8* ;Z ?RDEUvb7pA!P x@Q2aAE)3  ;  ; f l ; ~88&}f_ ; (+:C ;.:P ;  ; ;}lF&@$8(ABAAT#yCA8&$ 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=yiyyyzzEzqz( ~ndUVS11E4800BD2000120C48880E312E310D1970488E05000100011A704893020056 S11E481B0A7048A10200047048C102001E7048E302002870490F02001E704916 S11E48363702001470494F02000570495E0200037049A702003C7049E70200AB S11E4851147049FF020014704A1702000A704A49020003704A50020003704AB8 S11E486C57020003704A5E05000100010C704A63024AB2704AB302000A2E4B99 S104488733F9 S11E4B3368546D02391303234C50620C4A6301170D001F190C4A6302170D00D3 S11E4B4E1C190C4A6303170D001F190C4A6304170D001E190C4A6305170D0001 S11E4B691F190C4A6306170D001E190C4A6307170D001F190C4A6308170D00DA S11E4B841F190C4A6309170D001E190C4A630D000A170D001F190C4A630D00CB S11E4B9F0B170D001E190C4A630D000C170D001F192E4BBD499B0D01000A49E8 S11E4BBA9B1F732E4BD34AC70A4AC70A4AC70A4A43205B0A4A431F1D73320092 S11E4BD50A7112488E3613224449534B2042415345442042494F5248595448C0 S11E4BF04D2050524F4752414D202D20564552360A4888343532000F71131079 S11E4C0B454E5445522050415353574F52443A2036124893335C5E124893130F S11E4C2604475245474A2B4C322E4C630C48A90A48A9011C19711312594F55B5 S11E4C412043414E275420464F4F4C204D452136350A48A903252B4C60335CD0 S11E4C5C882E4C632E4C053200147112488E363532001571132B494E534552D4 S11E4C775420544845204441544142415345204449534B4554544520494E54EC S11E4C924F2044524956452023312E36351324484954202243415252494147B6 S11E4CAD452052455455524E22205748454E20494E20504C4143452E713648D6 S11E4CC81248A1381A1248A11304455849544A2B4CDD335C8832001E033913E0 S11E4CE30A4E414D45532E53413A31600339003E0339480C48AF46190C48B53E S11E4CFE46197112488E363532002871130C4449534B204E554D4245523A3606 S11E4D190A48AF343571131A4E554D424552204F4620454E5452494553204F4C S11E4D344E204449534B3A360A48B5343532003271357135711309434F4D4D7E S11E4D4F414E44533A36357113) 092D2D2D2D2D2D2D2D2D363571357113394545 S11E4D6A4E544552202831292C204C495354204E414D4553202832292C2050F4 S11E4D8552494E542042494F52485954484D53202833292C205155495420282E S11E4DA0342936357135131246554E4354494F4E20444553495245443A207110 S11E4DBB36480C48BB46190A48BB01272C4DCF0A48BB042A2B4DD52E4D410A22 S11E4DD648BB504DE34DE352655380548F3200641323494E50555420544F443B S11E4DF14159275320444154452028452E472E20382C32332C3738293A2071A9 S11E4E0C36480C497D46190C498946190C499546190A49950D0064272B4E3227 S11E4E270C49950A49950D076C1C193200690C48B50A48B5011C197112488EAB S11E4E4236350C497100190C496B110119080D0001430A496B744E6A4F214F1A S11E4E5D3B4F584F764F8E4FDB4FFB504144496B7112488E36352F5093713539 S11E4E7832006E13224348414E474520454E545259204E554D4245522028308D S11E4E9320544F2053544F5245293A207136480C48A946190A48A900252B4E29 S11E4EAEB22E4EDF0A48A9082A2B4EBD2E4E780A48A9744ED34F214F3B4F5850 S11E4EC94F764F8E4FDB4FFB50417112488E36352F50932E4E783200732F5134 S11E4EE4E6320074130F444F4E45202859204F52204E293F207136481248A199 S11E4EFF381A1248A11301594A2B4F0E2E4D411248A113014E4B2B4F1E2E4E90 S11E4F1AE52E4F212E4E32320079130C454E544552204E414D453A2071364875 S11E4F351248C1381A3032007A130F454E54455220414444524553533A207183 S11E4F5036481248E3381A3032007B13104349545920414E4420535441544568 S11E4F6B3A2071364812490F381A3032007C130A5A495020434F44453A20712E S11E4F8636480C493146193032007D1320454E544552204249525448444154A7 S11E4FA1452028452E472E20382C32332C3738293A207136480C497746190C4F S11E4FBC498346190C498F46190A498F0D0064272B4FDA0C498F0A498F0D07C0 S11E4FD76C1C193032007E131254454C4550484F4E45204E554D4245523A202E S11E4FF2713648124937381A3032007F131F4645452043484152474544202894 S11E500D44454641554C54203D2024352E3030293A2071364812494F381A129B S11E5028494F13004A2B50380C495805192E50400C495812494F7C19303200EA S11E50438013294E554D424552204F46204D4F4E54485320544F20504C4F54F9 S11E505E202844454641554C54203D203132293A2071364812495E381A12492E S11E50795E13004A2B508A0C49650D000C192E50920C496512495E7C193032F2 S11E50940096711309312E29204E414D453A360D0019491248C1363571130C1C S11E50AF322E2920414444524553533A360D0019491248E33635711311332EB6 S11E50CA29204349545920262053544154453A360D00194912490F3635711326 S11E50E50D342E29205A495020434F44453A360D0018490A4931343571130F68 S11E5100352E2920424952544820444154453A360D0018490A49773437130106 S11E511B2F360A4983343713012F360A498F343571130E362E292054454C45A2 S11E513650484F4E453A360D00194912493736350A49580E392E39390D2A2B10 S11E5151515D0C48A90D0019192E51640C48A90D001819711310372E292046AF S11E516C454520434841524745443A360A48A949716E51850A495834353200DD S11E5187976F062423232E2323711313382E29204D4F4E54485320504C4F54A1 S11E51A25445443A360D0018490A4965343571131644415445204E414D4520F9 S11E51BD57415320454E54455245443A360D0018490A497D343713012F360A25 S11E51D84989343713012F360A49953435303200A003390A48B5724BB33E03BB S11E51F3390A4971343503391248C1363503391248E33635033912490F363580 S11E520E03390A4931343503390A4977343503390A4983343503390A498F341C S11E5229350339124937363503390A4958343503390A4965343503390A497D3F S11E5244343503390A4989343503390A499534350339003E03390A48AF3445A4 S11E525F0A48B53435303200C80A48B500252B52732E52E80C49A11101190AE7 S11E527A48B50D0001432F53037112488E36352F509371350A497100252B5260 S11E5295A67113084E4F20434841525436352E52B871130D4348415254205083 S11E52B052494E5445443635713513214849542* 02243415252494147452052FD S11E52CB455455524E2220544F20434F4E54494E55457136481248A1381A444C S11E52E649A13200D271130E454E44204F4620454E5452494553363571352E24 S11E53014D4132010403390A49A1724BB33E0339480C49714619033948124863 S11E531CC1381A0339481248E3381A03394812490F381A0339480C49314619A3 S11E53370339480C497746190339480C498346190339480C498F4619033948A2 S11E5352124937381A0339480C495846190339480C496546190339480C497DD5 S11E536D46190339480C498946190339480C499546193032012C320131132608 S11E53885052494E542042494F52485954484D53204F4E205052494E5445524F S11E53A3202859204F52204E293F207136481248A1381A1248A1130453544F4F S11E53BE504A2B53C62E4D411248A11301594A2B53D80C4AC102192E53DD0C92 S11E53D94AC100190A48B500252B53FB71130E454D505459204449534B4554E7 S11E53F4544536352E53FE2E54012E4D413201360C49A11101190A48B50D003A S11E540F01432F53030A497100252B54222F545D2E54252E543303390A49A1BF S11E542A724BB33E03390034353201404449A171131C46494E49534845442065 S11E54455749544820414C4C2042494F52485954484D5336352E4D413201F49C S11E54602F54980A4AC139124A5E3635303203847113064552524F523A365ED4 S11E547B34371309204154204C494E453A366A34352E4C6C3203DE0339613382 S11E54965C883200640A4AC139353200C30C4B27026C1F193201CC0C4AFD0A85 S11E54B14983193201D60C4AF70A4977193201E00C4B030A498F193201E20A37 S11E54CC4B030A4995252C5AD82E54E83201E40C4AC70A4B09193201E62E5656 S11E54E7403201EA2F5B473201F40C4AC70A4B09193201FE0C4AFD0A49891944 S11E55023202080C4AF70A497D193202120C4B030A49951932021C2F5BD73294 S11E551D02260C4AC70A4AC70A4B091C193202300C4AC70A4AC70D016D0A4912 S11E5538950A498F1D011D1F1C1932023A0C4ACD110A498F011C190A499501AB S11E55531D0D0001433202440A4ACD04200A4ACD04205B252B55730C4AC70A2F S11E556E4AC7011C1932024E444ACD3202670A49950A499504205B041F252B9D S11E558955940C4AC70A4AC7011D193202BC0C4AEB0E302E360D010A497720E0 S11E55A41C5B193202C60C4ADF0A498F0A4AEB1D193202D00C4AE50A49770DBC S11E55BF000C0A4AEB1F1C193202DA0C4AF10A4ADF0D006420193202E40C4A8E S11E55DA2B0A4AF104205B193202EE0C4A310A4AF15B193202F80C4A37050A80 S11E55F54ADF1F04205B193203020C4A3D0D000D0A4AE5011C1F05205B193293 S11E5610030C0C4A250A4A3D0A4A371C0A4A311D0A4A2B1C0A49831C011D1953 S11E562B3203160C4A250A4A25070A4A2507205B1F1D011C193204420A4AC120 S11E5646391325544849532042494F2D52485954484D20434841525420505245 S11E566145504152454420464F52203A20361248C136353204440A4A2574567F S11E567C8B5A605A705A805A915AA45AB65AC63204470A4AC139131057484F31 S11E56972057415320424F524E204F4E2036124A17360A4977343713012F362E S11E56B20A4983343713012F360A498F34353204480A4AC139130C414E4420F6 S11E56CD57494C4C20424520360A4AC7343713242044415953204F4C4420411B S11E56E85420544845205354415254204F462054484953204348415254363596 S11E570332044C0A4AC1393532044D0A4AC139353204560A4AC1390D000C4940 S11E571E13124E4547415449564520504841534520282D29363204570A4AC1ED S11E5739390D002249130C435249544943414C20284329363204580A4AC13970 S11E57540D0032491312504F53495449564520504841534520282B293635324C S11E576F045B0A4AC1391309202020202020202020363204600C4ACD11011918 S11E578A0D003C0D00014332046A0A4AC13913012D36320474444ACD32047E48 S11E57A50A4AC139353204880C4B2D09193204891249A7133C2D2D2D2D2D2DE0 S11E57C02D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D0B S11E57DB2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2DF0 S11E57F61A3204B00A499504200A499504205B252B58120C4A6302170D001D6B S11E5811193204BA1249A70D001E150D002A1B3204EC0C4A430D+ 0017193204AD S11E582CF10C4B150A4AC7724BC00D0017200A4B271F570D001C1F0D001E1CA3 S11E5847193204F60C4A430D001C193204FB0C4B0F0A4AC7724BC00D001C20AA S11E58620A4B271F570D001C1F0D001E1C193205000C4A430D0021193205053A S11E587D0C4B1B0A4AC7724BC00D0021200A4B271F570D001C1F0D001E1C191A S11E589832050D1249A70A4B15150D00501B32050E1249A70A4B0F150D0045A2 S11E58B31B32050F1249A70A4B1B150D00491B3205100A4B150A4B0F252B58C0 S11E58CEE40A4B0F0A4B1B252B58E41249A70A4B15150D00231B3205110C4A0D S11E58E9CD0A49950A49950D0064205B0D00641F1D19320512124A490A497D93 S11E59047A1A320513124A500A49897A1A320514124A570A4ACD7A1A3205158B S11E591F144A49022A2B5930124A49124A49023D1A320516144A50022A2B5994 S11E593A44124A50124A50023D1A320517144A57022A2B5958124A57124A57E8 S11E5955023D1A32051D0A4AC139124A493613012F36124A503613012F361277 S11E59704A5736130120361249A7363532056E1249A70A4B15150D002D1B32BD S11E598B05781249A70A4B0F150D002D1B3205821249A70A4B1B150D002D1B1B S11E59A632058C1249A70D001E150D002A1B3205B40C4AC70A4AC7011C193200 S11E59C105BE0C49890A4989011C193205C80A49890C4A630A497D170B282B3B S11E59DC59E12E58203205D20C498901193205DC0C497D0A497D011C193206A8 S11E59F7400C49650A4965011D1932064A0A496500252B5A0D303206540A49A8 S11E5A127D0D000C282B5A1D2E582032065E0C497D01193206680C49950A4910 S11E5A2D95011C193206720C4A6302170D001C1932067C0A49950A4995042029 S11E5A485B041F1D00252B5A5A0C4A6302170D001D193206862E58203207D01E S11E5A63124A17130653554E4441591A303207DA124A1713064D4F4E44415913 S11E5A7E1A303207E4124A171307545545534441591A303207EE124A171309F6 S11E5A995745444E45534441591A303207F8124A1713085448555253444159CD S11E5AB41A30320802124A1713064652494441591A3032080C124A1713085391 S11E5ACF415455524441591A30321B580C4B090019321B6C0A4B030A4B0304C9 S11E5AEA205B041F252B5AFB0C4A6302170D001D19321B800C4ACD110A4AF7F9 S11E5B05190A497D0D000143321B940C4B090A4B090C4A630A4ACD170B1C1977 S11E5B20321BA8444ACD321BBC0C4B090A4B090C4A630A497D170B1D0A4AFD36 S11E5B3B1D0A49891C19321BD02E54D8321F900C4A6302170D001C1932232834 S11E5B560A4B030A4B0304205B041F252B5B6E0C4A6302170D001D1932233229 S11E5B710C4B0900193223370A4AF70D000C252C5BBA32233C0C4AD30A4AF741 S11E5B8C011C193223500C4ACD110A4AD3190D000C0D0001433223640C4B0928 S11E5BA70A4B090C4A630A4ACD170B1C19322378444ACD32238C0C4B090A4B92 S11E5BC2090C4A630A4AF7170B1C0A4AFD1D011C193223A0303225080C4A6398 S11E5BDD02170D001C1932251C0A4B030A4B0304205B041F252B5BFE0C4A6327 S11E5BF802170D001D193225300C4B0900193225440A4AF701252C5C46322501 S11E5C13580C4AD30A4AF7011D1932256C0C4ACD1101190A4AD30D00014332B4 S11E5C2E25800C4B090A4B090C4A630A4ACD170B1C19322594444ACD3225A87E S1145C490C4B090A4B090A4AFD1C011D193225BC30A1 S11E5C5E5FEE02FF5C5AFF5C5CB6FCF44724FAB6FCF5810D27115CFE5C5CA73B S1145C790408FF5C5CFE5C5AE10126E2E703393F1A39 S9 MDOSSWI FCB$1A END , *THISROUTINEENTERSSTRINGDATA *WITHOUTECHOINGITTOTHECRT ACIASEQU$FCF4 ACIADEQUACIAS+1 * ADDRRMB2 TEMPXRMB2 * NOECHOCLRBCHARCNTR=0 LDX2,XGETADDROFSTRING STXADDRSAVEIT STXTEMPX INPUTLDAAACIAS ASRA BCCINPUTNOCHARYET LDAAACIADGETCHAR CMPA#$D BEQEXITITWASAC.R. INCBBUMPCHARCNTR LDXTEMPX STAA4,XSTOREITINSTRING INX STXTEMPXSAVEX LDXADDRPOINTATSTRING CMPB1,X BNEINPUT EXITSTAB3,X RTS MDOSSWI FCB$1A END 50STXTEMPXSAVEX 1300LDXADDRPOINTATSTRING 1350CMPB1,X 1400BNEINPUT 1450EXITSTAB3,X 1500PULB 1550PULARESTOREA&B 1600RTS 1650MDOSSWI 1700FCB$1A 1750END 11310414444524553533A2020202020202020361243 S11E52EC48F436357113104349545920414E442053544154453A203612491898 S11E530736357113105 0010DIMA$(4),L$(60),F$(20),N$(20),DAY$(10) 0011DIMG,G1,G2,G3,G4,Z1 0012DIMM$(3),D$(3),I$(3) 0013DIMLAR$/:E/ 0015DIMD(12) 0025DIMX$(10) 0030DIMN1,A,I,J,K,L,O,K1,B 0035DIMM1,M2,M3,D1,D2,D3,Y1,Y2,Y3,I1,E2,P2,I2,X 0036DIMN,P,C 0040CREATE#2,"#LP" 0050D(1)=31 0051D(2)=28 0052D(3)=31 0053D(4)=30 0054D(5)=31 0055D(6)=30 0056D(7)=31 0057D(8)=31 0058D(9)=30 0059D(10)=31 0060D(11)=30 0061D(12)=31 0070ONERRORGOTO8000 0100PRINT#N1 0101PRINT#N1 0103INPUT"DOYOUWANTAGRAPHONTHEPRINTER"A$ 0104IFA$="STOP"THENCALLMDOS 0105IFA$<>"YES"THENN1=0ELSEN1=2 0110PRINT#N1 0115PRINT#N1 0130DEFFNA(A)=A-(INT(A/Z1)*Z1) 0195P=6.28319 0200PRINT#N1 0205!************REPLACETHEWITHTHEDISKREADROUTINE************** 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 0340!****************************************************************** 0380IFY2>Y3THENGOTO0230 0390IFY2M3THENGOTO0230 0410IFM2D3THENGOTO0230 0460D1=D2 0470M1=M2 0480Y1=Y2 0482IFY1=Y3THEN7000ELSE0490 0484A=I1 0486GOTO1090 0490GOSUB8080 0500A=I1 0510D1=D3 0520M1=M3 0530Y1=Y3 0540GOSUB9480 0550A=A+I1 0560A=A+365*((Y3-Y2)-1) 0570FORI=(Y2+1)TO(Y3-1) 0580IFI/4=INT(I/4)THENA=A+1 0590NEXTI 0615IFY3=INT(Y3/4)*4THENA=A-1 0700K1=INT(0.6+(1/M2)) 0710L=Y2-K1 0720O=M2+12*K1 0730B=L/100 0740G1=INT(B/4) 0750G2=INT(B) 0760G3=INT((5*L)/4) 0770G4=INT(13*(O+1)/5) 0780G=G4+G3-G2+G1+D2-1 0790G=G-(7*INT(G/7))+1 1090PRINT#N1,"THISBIO-RHYTHMCHARTPREPAREDFOR:";N$ 1092ONGGOSUB2000,2010,2020,2030,2040,2050,2060 1095PRINT#N1,"WHOWASBORNON";DAY$;M2;"/";D2;"/";Y2 1096PRINT#N1,"ANDWILLBE";A;"DAYSOLDATTHESTARTOFTHISCHART" 1100PRINT#N1 1101PRINT#N1 1110PRINT#N1,TAB(12);"NEGATIVEPHASE(-)"; 1111PRINT#N1,TAB(34);"CRITICAL(C)"; 1112PRINT#N1,TAB(50);"POSITIVEPHASE(+)" 1115PRINT#N1,""; 1120FORI=1TO6- 0 1130PRINT#N1,"-"; 1140NEXTI 1150PRINT#N1 1160C=9 1161L$="------------------------------------------------------------" 1200IFY3/4=INT(Y3/4)THEND(2)=29 1210L$(30)="*" 1260Z1=23 1265P2=SIN(FNA(A)/23*P)*28+30 1270Z1=28 1275E2=SIN(FNA(A)/28*P)*28+30 1280Z1=33 1285I2=SIN(FNA(A)/33*P)*28+30 1293L$(P2)="P" 1294L$(E2)="E" 1295L$(I2)="I" 1296IFP2=E2THENIFE2=I2THENL$(P2)="#" 1297I=Y3-(INT(Y3/100)*100) 1298M$=NUM$(M3) 1299D$=NUM$(D3) 1300I$=NUM$(I) 1301IFLEN(M$)>2THENM$=RIGHT$(M$,2) 1302IFLEN(D$)>2THEND$=RIGHT$(D$,2) 1303IFLEN(I$)>2THENI$=RIGHT$(I$,2) 1309PRINT#N1,M$;"/";D$;"/";I$;"";L$ 1390L$(P2)="-" 1400L$(E2)="-" 1410L$(I2)="-" 1420L$(30)="*" 1460A=A+1 1470D3=D3+1 1480IFD3<=D(M3)THENGOTO1260 1490D3=1 1500M3=M3+1 1600N=N-1 1610IFN=0THENGOTO0100 1620IFM3<=12THENGOTO1260 1630M3=1 1640Y3=Y3+1 1650D(2)=28 1660IFY3-(INT(Y3/4)*4)=0THEND(2)=29 1670GOTO1260 2000DAY$="SUNDAY"\RETURN 2010DAY$="MONDAY"\RETURN 2020DAY$="TUESDAY"\RETURN 2030DAY$="WEDNESDAY"\RETURN 2040DAY$="THURSDAY"\RETURN 2050DAY$="FRIDAY"\RETURN 2060DAY$="SATURDAY"\RETURN 7000LETI1=0 7020IFY1=INT(Y1/4)*4THEND(2)=29 7040FORI=M1TOM3 7060LETI1=I1+D(I) 7080NEXTI 7100I1=I1-D(M3)-D1+D3 7120GOTO0484 8000IFERR<>1THENGOTO0100 8001STOP 8080D(2)=28 9000IFY1=INT(Y1/4)*4THEND(2)=29 9010I1=0 9015IFM1=12THEN9100 9020LETJ=M1+1 9040FORI=JTO12 9060LETI1=I1+D(I) 9080NEXTI 9100LETI1=I1+D(M1)-D1+1 9120RETURN 9480D(2)=28 9500IFY1=INT(Y1/4)*4THEND(2)=29 9520LETI1=0 9540IFM1=1THEN9640 9560LETJ=M1-1 9580FORI=1TOJ 9600LETI1=I1+D(I) 9620NEXTI 9640LETI1=I1+D1-1 9660RETURN (!ROUTINETOGENERATEADATABASEFILEONDRIVE:1 DIMRECORDSIZE/256/,X,BELL$/:7/,CLEAR$/:1A/,N,DUMMY$(1),DISKNUMBER !2SECTORPERRECORD DEFRECORDPOSITION(X)=X*RECORDSIZE PRINTCLEAR$;BELL$ PRINT"INSERTASCRATCHDISKETTEINTODRIVE#1." PRINT'ITMUSTHAVEBEENPREPAREDWITHA"DOSGEN;U"BEFOREUSE.' INPUT'HIT"CARRIAGERETURN"WHENREADYTOCONTINUE.'DUMMY$ INPUT"INPUTTHEDISKNUMBER:"DISKNUMBER GOSUB100\!CLEARSCREENANDBEEP PRINTTAB(16);"FILEMAINTAINANCEINPROGRESS-PLEASEWAIT" CREATE#2,"NAMES.SA:1" RESTORE#2,0 PRINT#2,DISKNUMBER,0\!DISKI.D.ANDZEROENTRIES FORN=1TO890 RESTORE#2,RECORDPOSITION(N) PRINT#2,0\!DELETEMARK NEXTN GOSUB100 PRINTTAB(16);"DISKETTEINITIALIZATIONNOWCOMPLETE" CLOSE#2 CALLMDOS 100PRINTCLEAR$;BELL$ FORX=1TO9 PRINT NEXTX RETURN %*%1!DISKINPUTBIORHYTHMPROGRAM-12/29/79 DIMVERSION/1.1/ DIMCLEAR$/:1A/,PASWRD$(10),DUMMY$(4),DUMMY,DISKNUMBER,ENTRIES DIMFUNC,NAME$(30),ADDRESS$(40),CITY$(30),ZIP,PHONE$(20),FEE$(5) DIMFEE,MONTHS$(3),MONTHS,COUNT,CHART,M2,M3,D2,D3,Y2,Y3,NO,ENTRY !VARIABLESFROMGREG'SBIOM.SCLESSVARIABLESALREADYDEFINED DIML$(60),F$(20),N$(20),DAY$(10),G,G1,G2,G3,G4,Z1,M$(3),D$(3. ),I$(3) DIMFF$/:C/,D(12),X$(10),N1,A,I,J,K,L,O,K1,B,M1,D1,Y1,I1,E2,P2,I2,X DIMP,C ONERRORGOTO900 CREATE#2,"#LP" D(1)=31 D(2)=28 D(3)=31 D(4)=30 D(5)=31 D(6)=30 D(7)=31 D(8)=31 D(9)=30 D(10)=31 D(11)=30 D(12)=31 DEFRECORDPOSITION(NO)=256*NO DEFFNA(A)=A-(INT(A/Z1)*Z1) 10PRINTCLEAR$;"DISKBASEDBIORHYTHMPROGRAM-VER";VERSION 15PRINT"ENTERPASSWORD:"; CALLNOECHO(PASWRD$) IFPASWRD$="GREG"THENGOTO20 DUMMY=DUMMY+1 PRINT"YOUCAN'TFOOLME!" IFDUMMY=3THENCALLMDOSELSEGOTO15 20PRINTCLEAR$ 21PRINT"INSERTTHEDATABASEDISKETTEINTODRIVE#1." INPUT'HIT"CARRIAGERETURN"WHENINPLACE.'DUMMY$ IFDUMMY$="EXIT"THENCALLMDOS 30OPEN#3,"NAMES.SA:1" RESTORE#3,0 INPUT#3,DISKNUMBER,ENTRIES PRINTCLEAR$ 40PRINT"DISKNUMBER:";DISKNUMBER PRINT"NUMBEROFENTRIESONDISK:";ENTRIES 50PRINT\PRINT PRINT"COMMANDS:" PRINT"---------" PRINT PRINT"ENTER(1),LISTNAMES(2),PRINTBIORHYTHMS(3),QUIT(4)" PRINT INPUT"FUNCTIONDESIRED:"FUNC IFFUNC<1ORFUNC>4THENGOTO50 ONFUNCGOTO100,200,300,990 100INPUT"INPUTTODAY'SDATE(E.G.8,23,78):"M3,D3,Y3 IFY3<100THENY3=Y3+1900 105ENTRIES=ENTRIES+1\!NEXTAVAILABLELOCATION PRINTCLEAR$ CHART=0\!ALLUNCHARTED FORCOUNT=1TO8 ONCOUNTGOSUB121,122,123,124,125,126,127,128 NEXTCOUNT PRINTCLEAR$ GOSUB150 PRINT 110INPUT"CHANGEENTRYNUMBER(0TOSTORE):"DUMMY IFDUMMY=0THENGOTO115\!WRITETODISK IFDUMMY>8THENGOTO110 ONDUMMYGOSUB121,122,123,124,125,126,127,128 PRINTCLEAR$ GOSUB150 GOTO110 115GOSUB160 116INPUT"DONE(YORN)?"DUMMY$ IFDUMMY$="Y"THENGOTO50 IFDUMMY$<>"N"THENGOTO116ELSEGOTO105 121INPUT"ENTERNAME:"NAME$ RETURN 122INPUT"ENTERADDRESS:"ADDRESS$ RETURN 123INPUT"CITYANDSTATE:"CITY$ RETURN 124INPUT"ZIPCODE:"ZIP RETURN 125INPUT"ENTERBIRTHDATE(E.G.8,23,78):"M2,D2,Y2 IFY2<100THENY2=Y2+1900 RETURN 126INPUT"TELEPHONENUMBER:"PHONE$ RETURN 127INPUT"FEECHARGED(DEFAULT=$5.00):"FEE$ IFFEE$=""THENFEE=5ELSEFEE=VAL(FEE$) RETURN 128INPUT"NUMBEROFMONTHSTOPLOT(DEFAULT=12):"MONTHS$ IFMONTHS$=""THENMONTHS=12ELSEMONTHS=VAL(MONTHS$) RETURN 150PRINT"1.)NAME:";TAB(25);NAME$ PRINT"2.)ADDRESS:";TAB(25);ADDRESS$ PRINT"3.)CITY&STATE:";TAB(25);CITY$ PRINT"4.)ZIPCODE:";TAB(24);ZIP PRINT"5.)BIRTHDATE:";TAB(24);M2;"/";D2;"/";Y2 PRINT"6.)TELEPHONE:";TAB(25);PHONE$ IFFEE>9.99THENDUMMY=25ELSEDUMMY=24 PRINT"7.)FEECHARGED:";TAB(DUMMY); PRINTUSING151,FEE 151FORMAT"$##.##" PRINT"8.)MONTHSPLOTTED:";TAB(24);MONTHS PRINT"DATENAMEWASENTERED:";TAB(24);M3;"/";D3;"/";Y3 RETURN 160RESTORE#3,RECORDPOSITION(ENTRIES) PRINT#3,CHART\!0=NOCHARTYET PRINT#3,NAME$ PRINT#3,ADDRESS$ PRINT#3,CITY$ PRINT#3,ZIP PRINT#3,M2 PRINT#3,D2 PRINT#3,Y2 PRINT#3,PHONE$ PRINT#3,FEE PRINT#3,MONTHS PRINT#3,M3 PRINT#3,D3 PRINT#3,Y3 RESTORE#3,0 PRINT#3,DISKNUMBER,ENTRIES RETURN 200IFENTRIES=0THENGOTO210\!NEWDISKETTE FORENTRY=1TOENTRIES GOSUB260 PRINTCLEAR$ GOSUB150 PRINT IFCHART=0THENPRINT"NOCHART"ELSEPRINT"CHARTPRINTED" PRINT INPUT'HIT"CARRIAGERETURN"TOCONTINUE'DUMMY$ NEXTENTRY 210PRINT"ENDOFENTRIES" PRINT GOTO50 2/ 60RESTORE#3,RECORDPOSITION(ENTRY) INPUT#3,CHART\!0=NOCHARTYET INPUT#3,NAME$ INPUT#3,ADDRESS$ INPUT#3,CITY$ INPUT#3,ZIP INPUT#3,M2 INPUT#3,D2 INPUT#3,Y2 INPUT#3,PHONE$ INPUT#3,FEE INPUT#3,MONTHS INPUT#3,M3 INPUT#3,D3 INPUT#3,Y3 RETURN 300!PRINTBIORHYTHMENTRYPOINT 305INPUT"PRINTBIORHYTHMSONPRINTER(YORN)?"DUMMY$ IFDUMMY$="STOP"THENGOTO50 IFDUMMY$="Y"THENN1=2ELSEN1=0 IFENTRIES=0THENPRINT"EMPTYDISKETTE"ELSEGOTO310 GOTO50 310FORENTRY=1TOENTRIES GOSUB260\!READARECORD IFCHART=0THENGOSUB500ELSEGOTO320 RESTORE#3,RECORDPOSITION(ENTRY) !********************************************************** !WRITEA"1"TOTHEDISKATTHISPOINTTOTAGTHERECORDAS !BEINGCHARTED. PRINT#3,0\!DONOTTAGRECORDASBEINGCHARTED 320NEXTENTRY PRINT"FINISHEDWITHALLBIORHYTHMS" GOTO50 500GOSUB0100\!GOTOGREG'SPROGRAM PRINT#N1,FF$\!FORM-FEEDCHARACTER RETURN 900!ERRORHANDLER PRINT"ERROR:";ERR;"ATLINE:";ELN GOTO21 990CLOSE#3 CALLMDOS 40100PRINT#N1 0195P=2*PI 0460D1=D2 0470M1=M2 0480Y1=Y2 0482IFY1=Y3THEN7000ELSE0490 0484A=I1 0486GOTO1090 0490GOSUB8080 0500A=I1 0510D1=D3 0520M1=M3 0530Y1=Y3 0540GOSUB9480 0550A=A+I1 0560A=A+365*((Y3-Y2)-1) 0570FORI=(Y2+1)TO(Y3-1) 0580IFI/4=INT(I/4)THENA=A+1 0590NEXTI 0615IFY3=INT(Y3/4)*4THENA=A-1 0700K1=INT(0.6+(1/M2)) 0710L=Y2-K1 0720O=M2+12*K1 0730B=L/100 0740G1=INT(B/4) 0750G2=INT(B) 0760G3=INT((5*L)/4) 0770G4=INT(13*(O+1)/5) 0780G=G4+G3-G2+G1+D2-1 0790G=G-(7*INT(G/7))+1 1090PRINT#N1,"THISBIO-RHYTHMCHARTPREPAREDFOR:";NAME$ 1092ONGGOSUB2000,2010,2020,2030,2040,2050,2060 1095PRINT#N1,"WHOWASBORNON";DAY$;M2;"/";D2;"/";Y2 1096PRINT#N1,"ANDWILLBE";A;"DAYSOLDATTHESTARTOFTHISCHART" 1100PRINT#N1 1101PRINT#N1 1110PRINT#N1,TAB(12);"NEGATIVEPHASE(-)"; 1111PRINT#N1,TAB(34);"CRITICAL(C)"; 1112PRINT#N1,TAB(50);"POSITIVEPHASE(+)" 1115PRINT#N1,""; 1120FORI=1TO60 1130PRINT#N1,"-"; 1140NEXTI 1150PRINT#N1 1160C=9 1161L$="------------------------------------------------------------" 1200IFY3/4=INT(Y3/4)THEND(2)=29 1210L$(30)="*" 1260Z1=23 1265P2=SIN(FNA(A)/23*P)*28+30 1270Z1=28 1275E2=SIN(FNA(A)/28*P)*28+30 1280Z1=33 1285I2=SIN(FNA(A)/33*P)*28+30 1293L$(P2)="P" 1294L$(E2)="E" 1295L$(I2)="I" 1296IFP2=E2THENIFE2=I2THENL$(P2)="#" 1297I=Y3-(INT(Y3/100)*100) 1298M$=NUM$(M3) 1299D$=NUM$(D3) 1300I$=NUM$(I) 1301IFLEN(M$)>2THENM$=RIGHT$(M$,2) 1302IFLEN(D$)>2THEND$=RIGHT$(D$,2) 1303IFLEN(I$)>2THENI$=RIGHT$(I$,2) 1309PRINT#N1,M$;"/";D$;"/";I$;"";L$ 1390L$(P2)="-" 1400L$(E2)="-" 1410L$(I2)="-" 1420L$(30)="*" 1460A=A+1 1470D3=D3+1 1480IFD3<=D(M3)THENGOTO1260 1490D3=1 1500M3=M3+1 1600MONTHS=MONTHS-1 1610IFMONTHS=0THENRETURN 1620IFM3<=12THENGOTO1260 1630M3=1 1640Y3=Y3+1 1650D(2)=28 1660IFY3-(INT(Y30 /4)*4)=0THEND(2)=29 1670GOTO1260 2000DAY$="SUNDAY"\RETURN 2010DAY$="MONDAY"\RETURN 2020DAY$="TUESDAY"\RETURN 2030DAY$="WEDNESDAY"\RETURN 2040DAY$="THURSDAY"\RETURN 2050DAY$="FRIDAY"\RETURN 2060DAY$="SATURDAY"\RETURN 7000LETI1=0 7020IFY1=INT(Y1/4)*4THEND(2)=29 7040FORI=M1TOM3 7060LETI1=I1+D(I) 7080NEXTI 7100I1=I1-D(M3)-D1+D3 7120GOTO0484 8080D(2)=28 9000IFY1=INT(Y1/4)*4THEND(2)=29 9010I1=0 9015IFM1=12THEN9100 9020LETJ=M1+1 9040FORI=JTO12 9060LETI1=I1+D(I) 9080NEXTI 9100LETI1=I1+D(M1)-D1+1 9120RETURN 9480D(2)=28 9500IFY1=INT(Y1/4)*4THEND(2)=29 9520LETI1=0 9540IFM1=1THEN9640 9560LETJ=M1-1 9580FORI=1TOJ 9600LETI1=I1+D(I) 9620NEXTI 9640LETI1=I1+D1-1 9660RETURN 9::1!DISKINPUTBIORHYTHMPROGRAM-12/29/79 DIMVERSION/1.1/ DIMCLEAR$/:1A/,PASWRD$(10),DUMMY$(4),DUMMY,DISKNUMBER,ENTRIES DIMFUNC,NAME$(30),ADDRESS$(40),CITY$(30),ZIP,PHONE$(20),FEE$(5) DIMFEE,MONTHS$(3),MONTHS,COUNT,CHART,M2,M3,D2,D3,Y2,Y3,NO,ENTRY !VARIABLESFROMGREG'SBIOM.SCLESSVARIABLESALREADYDEFINED DIML$(60),F$(20),N$(20),DAY$(10),G,G1,G2,G3,G4,Z1,M$(3),D$(3),I$(3) DIMFF$/:C/,D(12),X$(10),N1,A,I,J,K,L,O,K1,B,M1,D1,Y1,I1,E2,P2,I2,X DIMP,C ONERRORGOTO900 CREATE#2,"#LP" D(1)=31 D(2)=28 D(3)=31 D(4)=30 D(5)=31 D(6)=30 D(7)=31 D(8)=31 D(9)=30 D(10)=31 D(11)=30 D(12)=31 DEFRECORDPOSITION(NO)=256*NO DEFFNA(A)=A-(INT(A/Z1)*Z1) 10PRINTCLEAR$;"DISKBASEDBIORHYTHMPROGRAM-VER";VERSION 15PRINT"ENTERPASSWORD:"; CALLNOECHO(PASWRD$) IFPASWRD$="GREG"THENGOTO20 DUMMY=DUMMY+1 PRINT"YOUCAN'TFOOLME!" IFDUMMY=3THENCALLMDOSELSEGOTO15 20PRINTCLEAR$ 21PRINT"INSERTTHEDATABASEDISKETTEINTODRIVE#1." INPUT'HIT"CARRIAGERETURN"WHENINPLACE.'DUMMY$ IFDUMMY$="EXIT"THENCALLMDOS 30OPEN#3,"NAMES.SA:1" RESTORE#3,0 INPUT#3,DISKNUMBER,ENTRIES PRINTCLEAR$ 40PRINT"DISKNUMBER:";DISKNUMBER PRINT"NUMBEROFENTRIESONDISK:";ENTRIES 50PRINT\PRINT PRINT"COMMANDS:" PRINT"---------" PRINT PRINT"ENTER(1),LISTNAMES(2),PRINTBIORHYTHMS(3),QUIT(4)" PRINT INPUT"FUNCTIONDESIRED:"FUNC IFFUNC<1ORFUNC>4THENGOTO50 ONFUNCGOTO100,200,300,990 100INPUT"INPUTTODAY'SDATE(E.G.8,23,78):"M3,D3,Y3 IFY3<100THENY3=Y3+1900 105ENTRIES=ENTRIES+1\!NEXTAVAILABLELOCATION PRINTCLEAR$ CHART=0\!ALLUNCHARTED FORCOUNT=1TO8 ONCOUNTGOSUB121,122,123,124,125,126,127,128 NEXTCOUNT PRINTCLEAR$ GOSUB150 PRINT 110INPUT"CHANGEENTRYNUMBER(0TOSTORE):"DUMMY IFDUMMY=0THENGOTO115\!WRITETODISK IFDUMMY>8THENGOTO110 ONDUMMYGOSUB121,122,123,124,125,126,127,128 PRINTCLEAR$ GOSUB150 GOTO110 115GOSUB160 116INPUT"DONE(YORN)?"DUMMY$ IFDUMMY$="Y"THENGOTO50 IFDUMMY$<>"N"THENGOTO116ELSEGOTO105 121INPUT"ENTERNAME:"NAME$ RETURN 122INPUT"ENTERADDRESS:"ADDRESS$ RETUR1 N 123INPUT"CITYANDSTATE:"CITY$ RETURN 124INPUT"ZIPCODE:"ZIP RETURN 125INPUT"ENTERBIRTHDATE(E.G.8,23,78):"M2,D2,Y2 IFY2<100THENY2=Y2+1900 RETURN 126INPUT"TELEPHONENUMBER:"PHONE$ RETURN 127INPUT"FEECHARGED(DEFAULT=$5.00):"FEE$ IFFEE$=""THENFEE=5ELSEFEE=VAL(FEE$) RETURN 128INPUT"NUMBEROFMONTHSTOPLOT(DEFAULT=12):"MONTHS$ IFMONTHS$=""THENMONTHS=12ELSEMONTHS=VAL(MONTHS$) RETURN 150PRINT"1.)NAME:";TAB(25);NAME$ PRINT"2.)ADDRESS:";TAB(25);ADDRESS$ PRINT"3.)CITY&STATE:";TAB(25);CITY$ PRINT"4.)ZIPCODE:";TAB(24);ZIP PRINT"5.)BIRTHDATE:";TAB(24);M2;"/";D2;"/";Y2 PRINT"6.)TELEPHONE:";TAB(25);PHONE$ IFFEE>9.99THENDUMMY=25ELSEDUMMY=24 PRINT"7.)FEECHARGED:";TAB(DUMMY); PRINTUSING151,FEE 151FORMAT"$##.##" PRINT"8.)MONTHSPLOTTED:";TAB(24);MONTHS PRINT"DATENAMEWASENTERED:";TAB(24);M3;"/";D3;"/";Y3 RETURN 160RESTORE#3,RECORDPOSITION(ENTRIES) PRINT#3,CHART\!0=NOCHARTYET PRINT#3,NAME$ PRINT#3,ADDRESS$ PRINT#3,CITY$ PRINT#3,ZIP PRINT#3,M2 PRINT#3,D2 PRINT#3,Y2 PRINT#3,PHONE$ PRINT#3,FEE PRINT#3,MONTHS PRINT#3,M3 PRINT#3,D3 PRINT#3,Y3 RESTORE#3,0 PRINT#3,DISKNUMBER,ENTRIES RETURN 200IFENTRIES=0THENGOTO210\!NEWDISKETTE FORENTRY=1TOENTRIES GOSUB260 PRINTCLEAR$ GOSUB150 PRINT IFCHART=0THENPRINT"NOCHART"ELSEPRINT"CHARTPRINTED" PRINT INPUT'HIT"CARRIAGERETURN"TOCONTINUE'DUMMY$ NEXTENTRY 210PRINT"ENDOFENTRIES" PRINT GOTO50 260RESTORE#3,RECORDPOSITION(ENTRY) INPUT#3,CHART\!0=NOCHARTYET INPUT#3,NAME$ INPUT#3,ADDRESS$ INPUT#3,CITY$ INPUT#3,ZIP INPUT#3,M2 INPUT#3,D2 INPUT#3,Y2 INPUT#3,PHONE$ INPUT#3,FEE INPUT#3,MONTHS INPUT#3,M3 INPUT#3,D3 INPUT#3,Y3 RETURN 300!PRINTBIORHYTHMENTRYPOINT 305INPUT"PRINTBIORHYTHMSONPRINTER(YORN)?"DUMMY$ IFDUMMY$="STOP"THENGOTO50 IFDUMMY$="Y"THENN1=2ELSEN1=0 IFENTRIES=0THENPRINT"EMPTYDISKETTE"ELSEGOTO310 GOTO50 310FORENTRY=1TOENTRIES GOSUB260\!READARECORD IFCHART=0THENGOSUB500ELSEGOTO320 RESTORE#3,RECORDPOSITION(ENTRY) !********************************************************** !WRITEA"1"TOTHEDISKATTHISPOINTTOTAGTHERECORDAS !BEINGCHARTED. PRINT#3,0\!DONOTTAGRECORDASBEINGCHARTED 320NEXTENTRY PRINT"FINISHEDWITHALLBIORHYTHMS" GOTO50 500GOSUB0100\!GOTOGREG'SPROGRAM PRINT#N1,FF$\!FORM-FEEDCHARACTER RETURN 900!ERRORHANDLER PRINT"ERROR:";ERR;"ATLINE:";ELN GOTO21 990CLOSE#3 CALLMDOS 0100PRINT#N1 0195P=2*PI 0460D1=D2 0470M1=M2 0480Y1=Y2 0482IFY1=Y3THEN7000ELSE0490 0484A=I1 0486GOTO1090 0490GOSUB8080 0500A=I1 0510D1=D3 0520M1=M3 0530Y1=Y3 0540GOSUB9480 0550A=A+I1 0560A=A+365*((Y3-Y2)-1) 0570FORI=(Y2+1)TO(Y3-1) 0580IFI/4=INT(I/4)THENA=A+1 0590NEXTI 0615IFY3=INT(Y3/4)*4THENA=A-1 0700K1=INT(0.6+(1/M2)) 0710L=Y2-K1 0720O=M2+12*K1 0730B=L/100 0740G1=INT(B/4) 0750G2=INT(B) 0760G3=INT((5*L)/4) 0770G4=INT(13*(O+1)/5) 0780G=G4+G3-G2+G1+D2-1 0790G=G-(7*INT(G/7))+1 1090PRINT#N1,"THISBIO-RHYTHMCHARTPREPAREDFOR:";NAME$ 1092ONGGOSUB2000,2010,2020,2030,2040,202 50,2060 1095PRINT#N1,"WHOWASBORNON";DAY$;M2;"/";D2;"/";Y2 1096PRINT#N1,"ANDWILLBE";A;"DAYSOLDATTHESTARTOFTHISCHART" 1100PRINT#N1 1101PRINT#N1 1110PRINT#N1,TAB(12);"NEGATIVEPHASE(-)"; 1111PRINT#N1,TAB(34);"CRITICAL(C)"; 1112PRINT#N1,TAB(50);"POSITIVEPHASE(+)" 1115PRINT#N1,""; 1120FORI=1TO60 1130PRINT#N1,"-"; 1140NEXTI 1150PRINT#N1 1160C=9 1161L$="------------------------------------------------------------" 1200IFY3/4=INT(Y3/4)THEND(2)=29 1210L$(30)="*" 1260Z1=23 1265P2=SIN(FNA(A)/23*P)*28+30 1270Z1=28 1275E2=SIN(FNA(A)/28*P)*28+30 1280Z1=33 1285I2=SIN(FNA(A)/33*P)*28+30 1293L$(P2)="P" 1294L$(E2)="E" 1295L$(I2)="I" 1296IFP2=E2THENIFE2=I2THENL$(P2)="#" 1297I=Y3-(INT(Y3/100)*100) 1298M$=NUM$(M3) 1299D$=NUM$(D3) 1300I$=NUM$(I) 1301IFLEN(M$)>2THENM$=RIGHT$(M$,2) 1302IFLEN(D$)>2THEND$=RIGHT$(D$,2) 1303IFLEN(I$)>2THENI$=RIGHT$(I$,2) 1309PRINT#N1,M$;"/";D$;"/";I$;"";L$ 1390L$(P2)="-" 1400L$(E2)="-" 1410L$(I2)="-" 1420L$(30)="*" 1460A=A+1 1470D3=D3+1 1480IFD3<=D(M3)THENGOTO1260 1490D3=1 1500M3=M3+1 1600MONTHS=MONTHS-1 1610IFMONTHS=0THENRETURN 1620IFM3<=12THENGOTO1260 1630M3=1 1640Y3=Y3+1 1650D(2)=28 1660IFY3-(INT(Y3/4)*4)=0THEND(2)=29 1670GOTO1260 2000DAY$="SUNDAY"\RETURN 2010DAY$="MONDAY"\RETURN 2020DAY$="TUESDAY"\RETURN 2030DAY$="WEDNESDAY"\RETURN 2040DAY$="THURSDAY"\RETURN 2050DAY$="FRIDAY"\RETURN 2060DAY$="SATURDAY"\RETURN 7000LETI1=0 7020IFY1=INT(Y1/4)*4THEND(2)=29 7040FORI=M1TOM3 7060LETI1=I1+D(I) 7080NEXTI 7100I1=I1-D(M3)-D1+D3 7120GOTO0484 8080D(2)=28 9000IFY1=INT(Y1/4)*4THEND(2)=29 9010I1=0 9015IFM1=12THEN9100 9020LETJ=M1+1 9040FORI=JTO12 9060LETI1=I1+D(I) 9080NEXTI 9100LETI1=I1+D(M1)-D1+1 9120RETURN 9480D(2)=28 9500IFY1=INT(Y1/4)*4THEND(2)=29 9520LETI1=0 9540IFM1=1THEN9640 9560LETJ=M1-1 9580FORI=1TOJ 9600LETI1=I1+D(I) 9620NEXTI 9640LETI1=I1+D1-1 9660RETURN * COMPILEDBY10/30/77SOFTWAREDYNAMICSBASICVERSION1.2 ORG $4800 JSR $2000 FCB $12 :: SET 0 RECORDSIZE EQU :: 112 FDB :+:: FCB 6 FDB 0 FDB 0 FDB 256 :: SET ::+6 X EQU :: :: SET ::+6 BELL$ EQU :: 112 FDB :+:: FCB ::21-*-1 ::11 EQU * FDB ::21-*-4 FDB ::21-*-2 FCB $7 ::21 EQU * :: SET ::+*-::11 CLEAR$ EQU :: 112 FDB :+:: FCB ::22-*-1 ::12 EQU * FDB ::22-*-4 FDB ::22-*-2 FCB $1A ::22 EQU * :: SET ::+*-::12 N EQU :: :: SET ::+6 DUMMY$ EQU :: 112 FDB :+:: FCB 2 FDB 1 :: SET ::+4+1 DISKNUMBER EQU :: :: SET ::+6 46 FDB *+2+:: : EQU * RMB :: 46 FDB ::13 RECORDPOSITION EQU * FDB :+X 10 FDB :+X 10 FDB :+RECORDSIZE 31 115 ::13 EQU * 113 18 FDB :+CLEAR$ 54 18 FDB :+BELL$ 54 53 113 19 FCB ::14-*-1 FCC "INSERTASCRATCHDISKETTEINTODRIVE#1." ::14 EQU * 54 53 113 19 FCB ::15-*-1 FCC 'ITMUSTHAVEBEENPREPAREDWITHA"DOSGEN;U"BEFOREUSE.' ::15 EQU * 54 53 19 FCB ::16-*-1 FCC 'HIT"CARRIAGERETURN"WHENREADYTOCONTINUE.' ::16 EQU * 113 54 72 18 FDB :+DUMMY$ 56 26 19 FCB ::17-*-1 FCC "INPUTTHEDISKNUMBER:" ::17 EQU * 113 54 72 12 FDB :+DISKNUMBER 70 25 47 FDB :3 100 113 13 FDB 16 73 19 FCB ::18-*-1 FCC "FILEMAINTAINANCEINPROGRESS-PLEASEWAIT" ::18 EQU * 54 53 0+2 57 19 FCB ::19-*-1 FCC "NAMES.SA:1" ::19 EQU * 98 0+2 57 0+0 62 0+2 57 10 FDB :+DISKNUMBER 52 69 0+0 52 53 12 FDB :+N  17 0+1 25 13 FDB 890 13 FDB 1 67 0+2 57 10 FDB :+N 114 FDB RECORDPOSITION 62 0+2 57 0+0 52 53 68 FDB :+N 47 FDB :100 113 13 FDB 16 73 19 FCB ::1A-*-1 FCC "DISKETTEINITIALIZATIONNOWCOMPLETE" ::1A EQU * 54 53 0+2 57 97  51 FDB MDOS :100 50 FDB 100 113 18 FDB :+CLEAR$ 54 18 FDB :+BELL$ 54 53 12 FDB :+X 17 0+1 25 0+9 13 FDB 1 67 113 53 68 FDB :+X 48 MDOSSWI FCB$1A END  NS11E4800BD2000127048290600000000010070483505000100010770483A05D0 S111481B000100011A7048450200012E4850A9 S11E48502E485D482F0A482F0A48291F737112483A3612483536357113284947 S11E486B4E5345525420412053435241544348204449534B4554544520494EE5 S11E4886544F2044524956452023312E36357113384954204D5553542048415E S11E48A15645204245454E205052455041524544205749544820412022444F1E S11E48BC5347454E3B5522204245464F5245205553452E3635132D4849542040 S11E48D72243415252494147452052455455524E22205748454E2052454144B2 S11E48F25920544F20434F4E54494E55452E713648124845381A1317494E50E7 S11E490D555420544845204449534B204E554D4245523A207136480C484A4680 S11E4928192F49D1710D001049132B46494C45204D41494E5441494E414E4396 S11E49434520494E2050524F4752455353202D20504C45415345205741495448 S11E495E36350239130A4E414D45532E53413A31620239003E02390A484A34F0 S11E4979450034350C483F1101190D037A0D00014302390A483F7248533E02BF S11E49943900343544483F2F49D1710D00104913244449534B4554544520497A S11E49AF4E495449414C495A4154494F4E204E4F5720434F4D504C4554453647 S11E49CA350239613349EF3200647112483A3612483536350C482F1101190910 S10F49E50D000143713544482F303F1A87 S9  Q +lm5+rjJanuary2,1980+nl+sl1 +cnSUPERBIOOPERATINGINSTRUCTIONS+nl+sl2+em +pp1.)Thesourceprogramsassociated with"SUPERBIO"are"DATABASE","SUPER01",and"SUPER02". DATABASEwillcreateadiskettewhichisproperly formattedtoacceptthenamesanddatesofyourBiorhythm customers.SUPER01isthefilehandlerandexec.SUPER02 isyour"BIOM"whichwasmodifiedsothatit4 maybecalled asasubroutine.+pp 2.)Compile"DATABASE.SC"thenMERGEwith"CALLMDOS.SA"inthe usualmanner.ASSEMBLEtheresultasusualtocreate "DATABASE.LX".InsertadisketteintoDrive1thathas beenpreparedwith"DOSGEN;U".Ithencopy"BACKUP.CM" toitsothatthedatabasediskmaybebackedup.+pp Runtheprogram,andbepreparedfora5minutewait. Whencomplete,thefirstsectorwillcontainthedisk numberandthenumberofentries(0).Itisready touse.+pp 3.)"SUPER01.SC"and"SUPER02.SC"arenotmergedand editedbecauseofthelinenumberconflicts. Theymustbeeditedseparately.Aftereditingenter:+nl+cn MERGESUPER01.SC,SUPER02.SC,SUPERBIO.SC+nl+em Compiletheresult,thenMERGEwithNOECHO.SA,then ASSEMBLEtheresultintoSUPERBIO.LX.+pp 4.)Torun,justenter"RUNSUPERBIO.LX"intheusual way,andfromthenontheprogramisinteractive. Thepasswordpresentlyis"GREG",butthatis easilychanged.+nl+sl3 Iftherearequestions,justcall.Seeyoulater!!+nl %T&8' 'X300A1'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 SAPRINTED BY: DOC(C) TEXT PROCESSOR 00.00 ** COMMAND ERROR --!!--INVALID NUMBER OF COPIESCANNOT USE MULTIPLE COPIES AND SECOND FILE SPECIFICATION&+ $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\,%5 & 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<* ? @ A B C D E F G H I J K L