IMD 1.16: 16/08/2007 17:14:32  MDOS02010201112478BASIC COMPILER \lx{LIST CMrPAYMENTSSAEDAYS SCLISP LO\RMDOSOV0 SY\rDIR CM|rMERGE CMrCALLS SAPAYMENTSSCTEMDOSOV4 SYrBIO LX$MDOS SYrCALLS SCEMDOSOV6 SYrDAYTEST SCFACTORALSCENAMESIN SCEBIOM SCFREE CMrDUMP CMrNAME CMrDAYS LXHNOECHO SAEMDOSOV1 SYlrCOMPILE CMrLIFE SCEASSEMBLECMrDAYS SAlRUN CM0rEDITM CM rCALLS LXBIOMA LXMDOSOV3 SYrMDOSER SYeDEL CMtrDAYTEST LXCREATE SANAMESIN LXBIOM LXPCREATE SCEBACKUP CMtrREPAIR CMrBIO SCEMDOSOV5 SYrDOSGEN CMrDISKNUM SA COPY CM\rCALLMDOSSAESCRATCH SCTMDOSOV2 SYxrJUNK SA|uu+.HYHYwvz{67xS66~m? ~S@?@0201 CN0 LP0 DK0MDOSER SY 0&'L/&04315X%;$*DzU062T06336;!b~nWno%(4]_fo|  b\lrAD"gggg}*26'}O&*7606 Z&nn#Z&9 &Z&900l&l90l&l9 Z&9A%6290%62%9$l9@%j96hiJ&296dfJ&29$&P+O?'& ?% ?.' 9 '? ?6 ' 29'' 9O'9**  $ && ?$~ 09 I &KE?$~09   9090~_0 h0629_?&?.062 C06 0&9  & 90gf90hi9 440J&0 6290   J&110 ކOi OI670$1'24'.8'*9'& 320$'90? ?0j'&?.Y$u Vx~9?*?/% 629~*' '  f "uS|u~DK9LPFCRSCP`CNmHRzr 1 *Q{e W T Q NS*"' "!$%3l&l && l&l"!$E011n0~Ao'  ''  9? "! '  9&' ++& +|$~) 66?240?311116L6*5i+`32P@$Z73$O_ ?(?!I% ~C~+|_?3?*67)*0l&ll&l&&11~&0 09 |?3?+?$~C?26 HYHY01674 0+??31111  +  l&l 9    }* |S6]3&l f09~~  U Rz )&}* V )H7F $9ц 1 ' G$ 9 9W )}*7 _ 011n~϶?}& W~ K~ e~ ~ ~ & }*] &9 |b}*0 b}*9OZ& 2OZ&     $0 011n&~  V$]&u0  !' m& Y ̋HHH0 0'l >0 !' ]'~ ]&& '~ } &~ ~ $_ HHHH?( &   m&~  &  0 ? 'B_9 & ?'0 && ~ 0 ?'~ D'~  '~ ?0  0?"$ ? ?  ~ !'~ &\0 '   0 @'o o ooo?!]''?'; ? ?_B   ?0* '~  9       DDD  } &? ? 9  _  %*_  Yz &VFFFF# "GY9JO' V$]'~ RJ(&J*x&'0`J@&"?$ &~ c ? ? &~ g & sTxV VWX?)XV $~ kXJ'?(Z %J' Z_?]&J'bJ&8'\ O K5 }a& ZKL76^_76~m\VZ'5 սmVW0\]0&_9 90OP 9    TRS`Q?Tz\9?$V?/$11 X?&?/%9aJ8& ' |a?-9  ?.90`RTuvV9Tv'# XX?Tu'JYY$|X911~ goc' 9J*'9S>7=#I9n p{'j?' &9&l =7 _HY?)=?#3 *57='>&ܽ03'_\'05533 }>&|>Pm'С&~o 3?m''?' |4&|3ih 5 * $! 95;799?;.;9?7;:597979566$|5:&99979:G88$|7 0 7~626 29DDDD09#90 138 "#$ % &  ' ( )*+,-.INVALID MESSAGE \3 AT \8UNIF. I/O ERROR-STATUS=\3 AT \8PROM I/O ERROR-STATUS=\3 AT XXXX ON DRIVE X-PSN XXXX0MDOSOV SYs~/ ~1 ~3 ~5g0_\$uH6@?% 20 ~V S          6666666666 ~  >>>>>  FF {966~966&~A66+~I66-~Q229 N v M'  * /| x?%( x& z? ? z? v9V S  ~~66666666PO'н$~ RR?R  RWP '; YZ9R ]]?_]$~Y?'_g _ gUOT?_'~a&.%,_e[%& % [[  ~$~cab%'P &_~xaaR'$ a&~RS?&$ P&aRPm &m ' ' gc'~c_R[__[ [&OT?P &WƀO?ZWc?1?1U UOT?Wm+ ]cg'KR[_ $[\\?,RcY?)c\Y]] gR&~=] ][ & ]] a_R?&$SaaR?,Rc?(c[aY]~eWYgh&^gXXZe?'_bʀ]OT?P &UVP _9Pghef_` ۽XXe?'eY~F 9     POWP &~ɽtmkWii?P'~P]TTT-#~UVOT?]XXXXW?''~ƀWO?P UOT?Po o mm*~]UOT?]* OT?~R_%S__RZR&]] ?0?0[W]]*~ͽRS_R[\%R?.[\]][&ǽPʀ]]Wt?)]' ]oo OT?Y~{S\\_?(Y_\]]~_`$9 W?( 9TFVFVD6YYYO FZ,29__9[ab$ [aec9b|WW\7b?%39ZXX7b?%3O?*9]WX?-bm?)Y9н$11~UOT?Wm+ \: /11~'9 66~~~W~@~u~o~r90909S0op]''d*&ց.&PƂp]' *&ʍ:& 0?p 0?090 ;' ' 0 l&l9u #'zƀ ?6Bŀ& '@'?$ @?%?0]'Z0T?%0 ?')760' ?0 ?23*& B?$?$*1906?290?ƈp~_6'-  ?-?&0 5?&?)   ?/%(?/$! 0m& _2W9 @&- $*?%$ ?%;'?/'; ~ ~~;'=;DK&~=J0 %Z=]' ?(Z ='=oo' 0=>=0  @ ? 09 0 =? $ ?(z?& ~6 @'' ?2oo?3oo  29'~ '~&~|'''~&'| &&o o  's$~?@}&~'~}*~%ml&l &}/%}& |&Ͻ 0}& }'7%"3&' &  ~$~~(~$6~&%}'  '!}, & '  $~%~}&| &P~9}. ~% ~% }.~9E}+ H}'D~$~O}+ ?.]'~ǁ$L}&| '~%B}*~~}'7TTTT3% 90:%9ʀ  ' 73]' 9X~~>>> _B@>@'~/&~1 &a$~<CI@}B&'''~8~}E>D'|D@ - Z.k$~<%_ F$~@}D'Z& 'M&ZJ@C?%k$~<&~C&(%@G@G?/'Gk% L'S& &8@}D'}F& $~<}I'~@}C'~IU@o_96'&|I]*'G zG' ~$~@}B'H' 6' E&|I D' J}B&t@&iE%K&~Q}I'&}B'&zK' %ؽ %}J&̽% &@&'m&jj~; 0] 9 U  }B&   7>@39>@9@@> @9@ %%"$1111~QXXXX% % 90%% *% 9}E+99JJ97 &a39 k% k9@?/9@}E&M&ZJ97%3b@9C39>9   >>~~X~N'~B PQ&P NNo_9P'' N '~N''&?8'~:N@' D &'8&]'/?/')N!"?/%o N ?ߤ]'~:Noo&~, &QN'~FR VDDD-#~JTUS?RXXXXV?'?N S?N ?'?"%~,0] 9   &0o_90?&\TTT-R# L ?0XXXX?'''0 ?'6 ?20?90 9  &~ 0 ' & ?$~ӽ'M    '~&& ?_9 ?%~ '   ?' ?'??  @?%!?&~e 9   ??9HHHH?(VVV9"(ss~yFr&~#@ &~'tr''~Kt&.~+Wo_9t'r?'&~~| t &~/at&~r ?'?$' ? ?r&~~3r' '~Goo oowr yv?y*~7r y:m+Z&~7r~}'~W?6'~m ' ?'wry w?&rwr ?'yw?~r r?' ' ' t@&~/ar&t& r62''& t&~Kt&~r ?'?$&~;&~?&~C ? ?r~C' ''~K}'~rrr ?'?$r?%?'?$rW?7m&~~t&~+``&a~0] 9           r9tr$11~O9$XssF~y~ :@vN FTWARE DYNAMICS TER DISK IN DRIVE 0, AND A SCRATCH DISK IN DRIVE 1 ? 9 sEND CHAINHHHHC'1~w? $0 |  ?' |? %@'C\&|0$ ']'Z 09)~w~||~9*'..'*WJ'tC'fL'_^S&~^T'%2 6~'? 2.&4? ? $~ #6?/  2~Ѷ~ |@L&W& Ҷ~ O 6?&%2M' ~&? ||xw_?9 &4'3~w+4 ?& ?&? ~y~?'||||62&~9 ? ???oo0+( # + . |7xy~Z&3Z&9&p~ !_?o_!Z?!]!0&%!] !3&!_!!a!_?' RI S ? '~ U~ H @'E @' {'3j? , ?%?%E?%?%j?%?%!*? =3O? ? _3!6!:!80CM!C!6?]&*!6!:?'''' ? ~ !S? ƀ?#~  MDOS . !f!WHAT?!f!cN  ( 0BCOMMANDSYNTAXERROR 05NAMEREQUIRED 06\0DOESNOTEXIST 08\0DUPLICATEFILENAME 1BFILENAMENOTFOUND 1ADUPLICATEFILENAME 0DOPTIONCONFLICT 30CHAINABORTED--BREAKKEY 31CHAINABORTED--SYSTEMERRORSTATUSWORD 1CFILEISDELETEPROTECTED 24DEVICENOTREADYAT\8 0EINVALIDTYPEOFOBJECTFILE 0FINVALIDLOADADDRESS 13INVALIDFILETYPE 1ECONFLICTINGFILETYPES 1F\0HASINVALIDFILETYPE 27INVALIDDATATRANSFERTYPEAT\8 22DEVICEALREADYRESERVEDAT\8 23DEVICENOTRESERVEDAT\8 25FILENOTOPENORALREADYOPENAT\8 26ENDOFFILEAT\8 29BUFFEROVERFLOWAT\8 2ACHECKSUMERRORAT\8 15LOGICALSECTORNUMBEROUTOFRANGE 07ILLEGALFILENAME 2BFILEISWRITEPROTECTEDAT\8 20\0ISWRITEPROTECTED 09NOSUCHDEVICE 04ILLEGALDRIVENUMBER 12INVALIDEXECUTIONADDRESS 0AINVALIDDEVICE 11INVALIDRIB 1DTOOMANYSOURCEFILES 16ILLEGALSTART/ENDSPECIFICATIONS 17ILLEGALPAGEFORMAT 14FILEEXHAUSTEDBEFORELINEFOUND 28ENDOFMEDIAAT\8 18ILLEGALLINENUMBERORRANGE 19LINENUMBERENTEREDBEFORESOURCEFILE 02DIRECTORYSPACEFULL 03DISKSPACEFULL 10NOTENOUGHSEGMENTDESCRIPTORSPACE 2CINVALIDDIRECTORYENTRYNO.AT\8 2DCANNOTDE-ALLOCATEALLSPACE-DIRECTORYENTRYEXISTSAT\8 2ERECORDLENGTHTOOLONGAT\8 0CINTERNALSYSTEMERRORAT\8 21INVALIDSCALL 2FCHAINOVERLAYCANNOTBEFOUNDORLOADED 32CHAINABORTED--ILLEGALOPERATOR 33CHAINABORTED--UNDEFINEDLABEL 34CHAINABORTED--PREMATUREENDOFFILE |,@Lx ~!z~;So$~r~s:~s~u~v,~v~s~s~t~t~se~vn~wc~wl~w~wu~w{rzqNq~9~x~r{o&pqpCOPYRIGHT (C) 1976 TERRILL M. MOORE ; 2--q"#'~,Z]'"}&ކ'y'9-59|"=;'"ލ(+2"L " "*!;! !2"L " ";! ! 떙'2i09!..! " " 2("9_2"L " ";! !( $9*z|99011' m&nn011-.nm&n> :62.* &@" @0116v&vw&wx%x29011'm&nm&ny&5ކ'+3(ކ ߆. ߆9"~#߆(9-~5@~5)n3T&/3c&*8#u&&#'@ 9' 9*#+#+##+b#+K#+J#+Z#)#*,Z##|&"z &y-zy.8+J& .79;].|y~#0"~,Z'z ɗyz ~$~$$&3T&,'T`T&% dAT&T&xa& b&c' #f UV.OT,!3i1)&31&.AO`'L`& TV642"&3iV0%B$&V,"O $&T-'3&S8:'642'63i2' |&z6"2'ڠנ '@ڠנ:62'@&1~54$(Z2"L+%$-%$#%;2)@]W&M'8͖^8ͽ1)~52.(]'&^+" ܽ.(] &9%P&& &'&=&TDFFUUU'%%& ]' }^,C'"OU8ͽ1^8~5h~&&' #&._99&15&:&O]^11]'" U8 &(1(н1)&ɍ&&,'ͽ. X`&~1 .W&]&11~%tT- 'OU~%~3i%.0U8͖] ŖU"'%&O T ѽ.,&"W'R'^]Ђ^'- "^~%sC&S], ABAADCADDANDASLHASRGBCC$BCS%BEQ'BGE,BGT.BHI"BITBLE/BLS#BLT-BMI+BNE&BPL*BRA BSRBVC(BVS)CBACLC CLICLROCLV CMPCOMCCPXDAADECJDES4DEX EORINCLINS1INXJMPNJSRLDALDSLDXLSRDNEG@NOPORAPSH6PUL2ROLIRORFRTI;RTS9SBASBCSEC SEISEV SK1SK2STASTSSTXSUBSWI?TABTAPTBATPATSTMTSX0TXS5WAI>'')BEQU')BSET()RMB()FCB().FDB(#)BORG(,*BNAM(6*BNAME(@+~WITH(I,ZEND(S*JPAGE(^*JTITLE(i* SPACE(r* SPC({)FCC()T LIST()PCC() PSR() PGEN() PCA()&RPT(*2DO(+K ELSE(+Z FIN(+2IF(+J ELSEIF(+b2CASE(+#2IFUND)*I TABS) ,ZMON)?OPT+]' C&^-"^8ͽ1)9]8͖^8ͽ1)91)|Z&]^9~.(C &R'7.(3W&]/ 7" 2  @  ν.=&],߆ .=&1]߁4ս9~9;.(14 .=14 )@.?9^]9 ]0&0',&H&15],"22 &]/O ] 8 2' &" 7ʀ83] ] &( >zߓ>y.(^]' "7ߓ9ޓ/ߓ>'o1)>y > #> ".=]. ^]'S#I C? h :4]&(2 '*;& 4'R'_4\4]' 24 &o9S'օ'6752J.9.=]-&^#" .=].OLy~9;]^1)&1&3&'|^ ۽" }'OJy9~"'J9.=]']-^*" ؗy91)&,'9'" +˽3& 61)&5'|Z9.(]& 254^492~"++;%MCM+;(NMCM+;%LN+;(NLN+;% LF,;(NLF, ;%@DMP,;(NDMP,;%EL,&;(NEL,.+WI,6+DE,?;%LST,I;(NLST,Q;-DO;0NDOކ-"'"R'59斅<;5 ;-9ѽ-V~!|pa757578|x'%'&&,߽8|Ox8,ս8|:7p~*, , No Errors. At Least One Error. 'ux'q*-H8|75t'aֈ78-7tt8ֈ2  " 7Z. # Error Lines: ?4' 4Z&9po&P֙S &~z7ߓ>q9 o&>`o@G&  ߋ4-6446-&?tߝ7:p9?@EB7??@GOLRΗ~:&('Z O]^W~"1)|Z'(9'1)|Z'~"3iȌW'O]^W"L9*OW6`..x...*O]^|Z~"4D_WW^]670..k.k|Z[0[#8&2[7 1)' 1)~"LQ'"AB$S&p ٖց ~.k"L0 A/1B/AQ0R0$a/I!/k$/s"/{T0(S086/5/2/3/1/4/q/r/s/t/7/8/:/9/~.kP111~.@ 8m, TFl&l- .m'HYj&j  č   09;'L 4' .. (- ", / % " # $ 0&_729O_0~/=0  _O00.L ~.[&2]3^19%k100  102' 32 O0,0.M'9.&02~",02h1i0i3i23/62.%223l11Z&90O_.2XIi3i2$-,j0.012' 92"bAZ0az00900~299:$@%'() ;,. 011X77011n$|Z&,9'~"&, '|Z 9Z' XYZ9(001?2@1222r22222OXO]^@'" .!7x^y]$"T&3^^ 'XY(96'2X' 12" 70"b091AZ1Z'3~270_39(40^]0&!06]^XI76XIXI0]^111 ؽ2&XY0''XY' 2"~12-2)4 (7~1VHOQB$@%~1U262(``40'& `'\4 2~1( '(^]~1"O (( 9( (9 ' '(  Ն 2 - _.3%( ],P 30m,2]& )&90770$l119+-&*#/!\ <>=#a6/TR!"!<:S<8=42>7/9=31<4>35$15&1)9'~3&15 "1)'&,'&9[OIZ&H6?60119֋67қ"119011ߋ9Ì8`8'#&84a664&4J&8O989`73&"4>u4>w>r>t1 ,?43[6446Z&8ދoo893' _]_]'"'"9~3O__3' R'" '<'>8&(&_&$8]'"8_]^9_&~"ށ]OWOW_"15|Z.44~"},'94z : R'Yօp&'K5g''>m&ޕ8|8& 7}|858|ލ8| '75& p9@@5tvvw$B78|B8|B75B M.'ٍ ŖR'!'t44'4z&4|&93'6ooz{|}4679Illegal Label.Syntax Error.Illegal Argument.Undefined Symbol.Double Definition.Use of Doubly-defined Symbol.Nesting Error.End of Source File Encountered.Overflow.BRA/BSR Out of Range.Illegal Value.Illegal Digit.Out of Memory.Illegal String.Phase Error.Register Field Missing. *** 739M+ '] ' .@6^2 R': '5֑ш#.S& 6֒S8 2 -|֙'6 2p' ֚'~:79zS9ш# 'ޓ_'"\m&]' %-5=>`4 5 4 86644J&o9972 ~7 MAL/6800 1.2: ; Page ; Form (S "S9p6p668ߓ7ߍR>C><75>`47/~A~"=7{z07? 7575222p9&9@A7@77011 76_ 76 090697@0&'7@Z2&972Z&9֣&6F29kށ߁ޡ%o''ߡ95ޕߡo9 62DDDD09/9ޡ  ϖ *S*9ޡ& ޡ]^ 0116ޡ'ߡ6 6nޝ?&*|9011'  n97~::R'/֙')6֟##S1L?t&LCƍ 6?toߝ29֙'S9 9\& , M' &֙ &\9:~ &6 ' ,6^2@297< 7< M'3<9011&n_ާ'\ &o9:P SOFTWARE DYNAMICS MAL/6800, Version 1.2 / 77E4 *:߉:PSource File=^' :߉:PListing File=?&F  8:߉:PBinary File=&   )߉9ލ:`ލZ999 ' ' )7:PI/O Error #3OZ&9:":":P މ*nލ s&AR&)6>:":`Z'-3'&4q45I~8|****889       rzxo0x}x?x  qoZ&o0 ' ' & xxxxx '+;'|x xx 'Z.@/qJ& xxvo xx' x_t ~vnILLEGAL SWITCH rzwo sF$'t s:~vnFROMNOVA.SA  O&)V$''''' 9 999@99wݽwx!x?x& &~x 0xooo?xo)o*o+o(o'o9wݽwx!x?x& @&~x 3 wݽx 'tu֦&?x?x9wݽx ':tux&0+,hYI+$xuxTOx )*o%o(9~x~xwݽxtl%&&.(&#t$#M'+ ''""#9(j( 9 o%9wݽxo(t&&t$9O9&9'! ' )& u% 9)xl*&l)u 9~x)&Lxx'ƀ? xO ?x' ' '~xͦ)*)x*' l*&l) &o)o* 9wݽx o%xt96x''to'29wݽxl%x & 'l''&o't9ȁ"o% '( '3)&6u2xo+l+l*&l)) u9~x'xx? 9x)& x)*)x)* ' 'l*&l)9x?xo)o*9x) *o&& + ?x' &Al&l&lƀO?x 9 9x* ")!%x+'6m&jj?x2o+o)o*9~x͆wx!x?x'"?x٦ ?x9~xwx!zyDK&/0111 wݽx!zyz&z{z&vg?]&9z{z~x?wݦ&xs:zxx*96xxx76ؽw0112rxwcM&\sS&s9'R1&xSxLxGxx&xx7zx'xo"&$x#xx |x'~x~xs:xns$HHHH6s$ 3xx911 Ɂ9#G% 90%0 9A%7 9wݽx&9wݽx%9w9w91-03-7812:01 AM yxwxx x?'xxxxx!"zxx*wچ_r9#CNx"xxxxXx?'x9~x'o%o&o'o(o)o*o+9~x&9~xxDK SA0 ?'x?xxx'M"Io'xx?x; o&o&xx?&#&ŀ&9x  9M*_x? 9$"  0116TOx~ Ox~ x&9yy=yiyyyzzEzqz ~nd ] h! $0201 _"""g"")1#  "u_""" SYNTAX ERRORSYSTEM SECTOR COPY/VERIFY ERRORDIRECTORY READ/WRITE ERRORSOURCE FILE COPY ERROROBJECT FILE CREATION COPY ERRORCANNOT DELETE DUPLICATE NAMEDRIVE 1 SCRATCH? APPEND TO DRIVE 1?DISK NAME: DATE(MMDDYY): USER NAME: NO FILES TO COPYDELETE FILE NOS.: NEW NAME: STARTING TO COPY FILESINSUFFICIENT MEMORYENTER FILE COPY SELECTION COMMANDS: SAVE (S), DELETE (D), PRINT (P), QUIT (Q), NO MORE (CR)S, D, P, Q, (CR):. NOT FOUND .SECTOR  OFFSET DR0- DR1-COPYING . - DUPLICATION: IS IT TO BE COPIED? NOT COPIEDCOPYINGMDOS SY OV0OV1OV2OV3OV4OV5OV6ER 7?(yw9 O? ' '$;&Y$С' $& :Y 11!+!a&!s. ? Y'?O)L1!.~$~& ? ~/!&J!9!&L !&  9 |%9|#(9|&9|"9|$9'&z'# ~-+'&|' " $z $:A$C$D$I$L$N$R${S$U$V$sY$Z$$&-97/QM??$HYIOPO}!*DVOPDVFNMST_?/"f!+. *,&(*,&(%>MQ|-7&(3%.Z&$'-*O,,-?-$?),Y&(Y&~/~/~/OPTFTF[\Y*,9HZ&; =IJ~#<~ )'OQ_ OO '|Q*'Q9K:@F2& B%2!'&Y'!&"2 c%H~"&Y!. !-~$Ž!@ @zF2 :%P0&02 +%P0&0 &0C %2:K"347633G''"3XOZ ./.n~'93D7%B н"34763567676 57..I"&/J"~%2&P7'H.//$|..2723562334. ;."& /.$ |7+%H~" ~$%2!'&Y'!&"~""~"Խ%2~#<)3476 3~#<2334@:F9!7/~'97H.//$|..9ݽ&~# V29  )/)kJSOFTWARE DYNAMICS BASIC VERSION 1.2-  )d )d.. )d.. )d.. )d )d )] )d&& )0 )v )l )  ) )AZ )AZ )09 ) )$$AZ )AZ )09 ) )$$09 )09 ).. )EE05 )09 ) )79 * 09 *09 *09 * * * *66 *04 *Q09 *L09 *G09 *F *K *P *55 *04 *v09 *q09 *p *u *55 *02 *09 * *33 *05 * *49 * *69 *09 * * *69 *09 *09 * * * *.. *EE *09-- + +m09 +$09 + +$.. +# +0.. +009 +m09 +4 +mEE +h++ +U-- +U +h09 +h09 +_ +l09 +zAF +09 +AF +~'' +'' + + + +'' +"" +"" + + + +""'' +'' + + +'' ,"" ,"" , , ,"" ,09 ,  ,M ,6  ,, ,MDD ,MII ,MMM09 ,P , ,f  ,\ ,RR ,~EE ,~MM ,!!09 , , ,  , ,EE ,NN ,DD ,  , , , ,  , ,EE ,LL ,SS ,EE[(])!,O -5" .[ - * COMPILED BY 10/30/77 SOFTWARE DYNAMICS BASIC VERSION 1.2PROGRAM -ORIGIN : +o .[ I$ -I$4800  JSR $2000I$12:: SET 0!,O -5" .[ -DATA -ORIGIN : +o .[ : EQU $!.< - ."!.< -GI*+2+:::II:: !.u .$,   GJ, .F0} .S,O .S5" .Z.[   .t  .p  .p  .a,$ .. .IGJ3> .6c .. .6c .. ..[ ) . .DOUBLY DEFINED LINE NUMBER . / /\ /  .  . . / .LET /3o IF /!;A GOTO //3 PRINT />7 FOR /K4 NEXT /Y4X GOSUB /h4h RETURN /x4 STOP /4 INPUT /7Q READ /:1 WRITE /: RESTORE /7/ OPEN /6 CREATE /6 CLOSE /6 DELETE 07 RENAME 07 ON 04 REM 0(! 0/5" CHAIN 0>5. CALL 0L59 POKE 0Z6F DEBUG 0i6Y ERROR 0x6^ 3o0  0, 00 0) 1 0DOUBLY DEFINED STRING VARIABLE 0 II, 1<) - / 1%I-*-1JI-*-4JI-*-22 III4+/ 1;2JI4+ 1/ 1I-*-1IIJI-*-4JI-*-22 III*-I/ ) 2 1DOUBLY DEFINED NUMERIC VARIABLE 1 I, 2d) - 2%I2I::+7+6*I8+6* 2c, 2c) - %I4I::+3+6*(+1)*(+1)J+1I4+6*(+1)*(+1) 2/ 2) 2I6J0J0J 2* 2FI:+FI''I$DG 2: 2+o I6J0J0J$ / 2 2I6 3 3, 33 3+ 3I) 3*I: 3=+o I$FORMAT 3n+ I&II-*-1IIILEN( 3F ) = > I^F 3, 3> , 3> - = GD G 3- 3= F> G# 3= 3D G Ch 3= > G) 4 GIID 4WFIF= > GTO > STEP 4C> 4RFJ1 HD 4gHI) 4zGIIPOP 4> I GGERROR 4GOTO HI0 40 4) 4I > 5!GOTO 4Ha 4GOSUB 4II II) II, 5) II 5II5* 5",D 58H) 5B) 5 5L 5nALREADY DEFINED AS A VARIABLE 5r ( 55 , 55 5}) 5 GICh 5+ 5- 5! 5XOR 5** 5* 5/ 5& 5^ 5 5FA F 5B 5 FEFs 6A, 6<> , 6&> - G 6;- 6;FB 6: 6@ >> 6X, > HmHHDEF 6)  6v 6NAME ALREADY DEFINED 6GIII( D ) I= > IBII 7B 6, D H7B 6, D H7B 7H, 7 7B H 6D 7IPD 7., D IW7B 7A, > G# 7P> GF 7_I4G 7x7B 7l, 7xI4H 7H17 77 7, 77 7 F 7, 7> , 7> - GGG 7- 7FH%G# 7GG Ch 7H%G7B 8, 89Z 883 8G I49Z 8183 81G ELSE 8F 8UB 8L9% 8T8 8F 8b8 8TAB( 8> ) ; H783 8 8E 88 8Fs 8, 8> , 8> - G8 8- 8FFA 8 9% 88 8> 89% 8G, 9 H83 9  9#; 983 9 9#G G, 9;H83 9: 9X; 9PG83 9O 9XG USING :0) 9vIII 9F 9Hy 9F 9E Hy , :(F 9B 9G 9G :'F 9G :'E 9G :'Fs :, :> , 9> - GG :- :FA :  G :G :'> :'G 9G7B :M, :N , :I:N :?F :, :> , :t> - GH  :- :FHG# :H  Ch :HG7B :, : , :: :E :HFs ;, ;> , :> - GH ;- ;FFG ;H F ;*B ;!G ;)H F ;5H> ;@G< ;  ;T  ;M ;X THEN ) ;GII, ;|; ; ;GII; , ;GIIII; II ;II FI ; 3/ <\ ;  ;  ; ; / ; <) <A <= <= <= <= ) =E <D >V Fs =W, =I> , =&> - GD >V =H- =HFFA =A= =G= =VD =V>V F =vB =h= =uD =u>V F =D  >V > == NOT( =< ) GEOF( => ) H+AND = G_<> >> Ge<= >> Gq>= >&> Gw< >5> Gk> >D> G}FJ0Ge= >dD H=<> >tD HC<= >D HO>= >D H[< >D HI> >D HU? >> + >? G) ?- >? G/ ?! >? GM ?XOR ?? Hg >?X ?? ** ? ?X GS ?S* ?1?X G; ?S/ ?B?X GA ?S& ?S?X GG ??q ?p^ ?l?X H ?^( ?> ) LEN( ?F ) FICOM( ?> ) GYATN( ?> ) HSIN( ?> ) HCOS( ?> ) HTAN( @> ) ILOG( @> ) HEXP( @4> ) HSQR( @J> ) HINT( @`> ) HABS( @v> ) HSGN( @> ) IPOS( @> ) HVAL( @D ) IPEEK( @> ) HsFIND( @F E , D ) IRND @HERR A HELN AIPI A%I) A1F) AAFJ- AP?q G5* AnFI''I$D+ AFI0IFG AFC: A+o FJ$+ A) FJ+ A? G)> - A? G/> ! A? GM> XOR B ? Hg> ** B%?X GS? > * B<?X G;? > / BS?X GA? > & Bj?X GG? > ^ B?X H? > + BF? G)> - BF? G/> ! BF? GM> XOR BF? Hg> ** BF?X GS? > * CF?X G;? > / C1F?X GA? > & CLF?X GG? > ^ CgF?X H? > ) C CwDv C CD C CFI CUNDEFINED VARIABLE ) D CDv F D CD F D CFI D D( > ) I;I DUNDEFINED VARIABLE ) Du D+ DUNO SUBSCRIPTED VARIABLES ALLOWED HERE Dt DtUNDEFINED VARIABLE FI, > - G FI, > , > - GD DD CAT DD GD GCAT DD G DGEFs DE FDATE$ EIeE TIME$ E)IlE NUM$( E@> ) IsNUMF$( E`D , > ) IzMID$( EF , > , > ) GLEFT$( EF , FJ1> ) GRIGHT$( EF , > ) GHEX$( E> ) I, F> , > - G+ FFI1I+ FFFII-*-1IIISWITCHES$ FYH F_F Fr, > - FFSWITCHES$ FHF FFI) F FUNDEFINED VARIABLE  0+ 10 11 12 13 14 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 126 128 130::: EQU * EQU ::I-I::I:: SET ::+I:+ ORG  FCB  RMB  FCC  FDB  FDB  END   rzxo0x}x?x  qoZ&o0 ' ' & xxxxx '+;'|x xx 'Z.@/qJ& xxvo xx' x_t ~vnILLEGAL SWITCH rzwo sF$'t s:~vnFROMNOVA.SA O&)V$''''' 9 999@99wݽwx!x?x& &~x 0xooo?xo)o*o+o(o'o9wݽwx!x?x& @&~x 3 wݽx 'tu֦&?x?x9wݽx ':tux&0+,hYI+$xuxTOx )*o%o(9~x~xwݽxtl%&&.(&#t$#M'+ ''""#9(j( 9 o%9wݽxo(t&&t$9O9&9'! ' )& u% 9)xl*&l)u 9~x)&Lxx'ƀ? xO ?x' ' '~xͦ)*)x*' l*&l) &o)o* 9wݽx o%xt96x''to'29wݽxl%x & 'l''&o't9ȁ"o% '( '3)&6u2xo+l+l*&l)) u9~x'xx? 9x)& x)*)x)* ' 'l*&l)9x?xo)o*9x) *o&& + ?x' &Al&l&lƀO?x 9 9x* ")!%x+'6m&jj?x2o+o)o*9~x͆wx!x?x'"?x٦ ?x9~xwx!zyDK&/0111 wݽx!zyz&z{z&vg?]&9z{z~x?wݦ&xs:zxx*96xxx76ؽw0112rxwcM&\sS&s9'R1&xSxLxGxx&xx7zx'xo"&$x#xx |x'~x~xs:xns$HHHH6s$ 3xx911 Ɂ9#G% 90%0 9A%7 9wݽx&9wݽx%9w9w91-03-7812:01 AM yxwxx x?'xxxxx!"zxx*wچ_r9#CNx"xxxxXx?'x9~x'o%o&o'o(o)o*o+9~x&9~xxDK SA0 ?'x?xxx'M"Io'xx?x; o&o&xx?&#&ŀ&9x  9M*_x? 9$"  0116TOx~ Ox~ x&9yy=yiyyyzzEzqz ~nd 0201&+)]&-&+?'&~  &~$)^DK&~$)[)D)D)&-&+?'&  ')DK'))D)D&+_ '+;' &+ ' ')H&&+ m&~%)G)D &~$' & )&)')D'~" )&)]))&)f))&)^&)&&?PS)G'~%P)G' )T)T )y)y)S?'~$?&)G@'~!)j))k))l))f)%)y)y)x?&?'})&})'&)) %)S?'U &)j&C)d))S?&?&)'/))x?&,&&+'%&-&+ ?))x?& %!?)x?'~$&)'/))x%k%)S?'L '~$)x?'d &)j'~!)d))S?&)x?&&&+'%&-&+ ?' &)x?' '~$&0&+&&-&+ƀ?&~")d &+)&-&+))? Ɓ?#~! )&0))D&~$1)^&+)&-&+ ?)S?'~$?&)j''~%)G'~% ' @&HP)&'& ')jx))G'&dž)y)y |&/)G@&M)y)y)x?'~$?&)G '%)S?' &~!}&/& )W)U'|&/)U)~)x?& CN)&~$(:)|)C)~)G&|&/%k%)S?' &)x?' &~!)? ~"}&/&)U')x?' '~#I}&/& )z'|&/)W&+)|&-&+&-&)z& &+)U' &-&+)U'&+ CN)[&~$)G('~%')D')T)T)j |&/)^)D' )&SA))&+)^&-&+ ?)S& '?'~$?&)j' ''~%)jx))D&)^&+)&-&+ ?)G@'~#%~#<? %!?     ) ? $%!?9)S%L)y&)y&)')y)y)x%L9%i?''_? %i?''_? 9)x& '?& ?&)? 9~$)?'9)ŀ'~%)j' '~% &)D& ))j&)G'9)&+)&-&+?)))))? &? &Y'ƀ?#%!?H& R&)E)F @ o9*NCWH V@'0(9DK0 SA&0&'0(9 DK &0&VERIFY IN PROGRESSXXXXXXXX.XX:X EXISTS. OVERWRITE? VERIFY FAILEDVERIFY FAILED AT LSN XXXX]'/l&l*.*. #0m&jj*. Z&*.96dfJ&29  *` *r$ 0 011n**oo<*9**4< **+ *&z*& *9*<x 0200O"%" '%;& 'Y&|" S&|% ' 40" " ?" ""? _" '\J' " '? ?"!? ? $?" !?$~!!&!&%&" &׶"'Ɓ?#"˽!"? D!&$"& "!"? ? %C"? ? %8Y&" ?$ ? ?"!"? !J&~ y" ';'~ ;?!J''ƀ?#"!"? ? ?&~!O#$ " &z# % &!9 &# |#"'&"&z$  &$ |$"'&" """ "?!9#+" """"?&$*O J'"" ""9"" ""?."""9 """ DELETE ? IS PROTECTED DELETED  DOES NOT EXIST  0200O$%&#L- $$$j0$Y$Z ?%$Y%%? _%ئ '@;& '5E&  $ A&  $$ ܁L& ԁS& ́ ' !_$Y$z' \J'~#)$Y ' %$%%?$~#)$%$%%?$r$% $Y& '~" &&" "? $~#"$Y?$~##'#&"J& !&$f &|&#!&~"#$d%$%%ν&O$j'('%$%%ν&$Y$d%%E%%?$~#)$%E'+|$?''*$%$?)$$%$%%ν&!&~"%E*&"%$% %?~"00$ $?%E)(''?'%$%%ν&)(''%$%%ν&$$%$ '$$?$'$57&)+*@Ɓ?#&$% ))+? $~#~"$$%"'~#-~ _+, $Z&z+  &+ |+$b'&$b&z,  & |,$d'&|#$Z%%%% ?~ &ƀ@?#&-$% s' ? i&'!',$%&c%%ν&$%&h%%ν&&F$%&(''%&%%ν&'%&%%ν&&j$%!'-Z'$>?$Z%$%%?.$$b$9++$Z%%%%?&,*O J'$b% $b%9%%$%%?.$f$H%$&$f9!&? 9z-&<-?49?2% Z' %?5?390 $%DDRIVE : DISK I.D. : . !WDSCN0 *NO SDW'S* NO DIRECTORY ENTRY FOUND TOTAL NUMBER OF SECTORS : /$ TOTAL DIRECTORY ENTRIE S SHOWN : /$ NO TERMINATOR FOUND IN FILE'S R.I.B. ]'/l&l&& #0m&jj& Z&&96dfJ&29]&~'l&l'''''''o%'l '670 'Z&32'l&ll&lj ,' m&jj'l&lj&'O9'd $0 Z&9( 0203(u'|''~1''|?].e_'| ';& ' 'U& T&? %'1' .O"L! & &'? $Y& '? $Y'? ? ( ? &?&? ]'$%/&'l&'n'l?(? &?&? ]'%%/&'l&'n'l?(%? &?&? ]'/'l&'n'l?&&'h%'j!'g?%'h&'j!'g?$~!ƀO&?%&~" !' r%~"1'8' ? ? &|  ?* ?.)&?( &~$~!'p(:'r'p)*(0? Ɓ?#'&~!(H? $N&~"Y&(d? &'t? ]''t)k%'w& 'v_?/# (? @ƀ?# (? &'x? ]''x)k%ٶ'{&'z?/#'v'w?/#~"D'w'v)&?('v?'z'v'w?/#(? ~"&>>&GA?'h&'j!'g?%'h&'j!'g?$~!&Oƀ?%$~!DK&&&&&&" !o?'? ~$DK&&–! "&?'? ~$|('))+<'l ?()& ?('n 'l? &?(?% ~Z&C60? 2 7%'~$O(& &  ?(&&'f&&?$ ' ? ~$&&&&'))+'l ?()&'n 'l?' &oo&'l&'n'l?&'l('n'l?&((? &?'? {&?'? U(/"'(? ?&??&???(&?' &&'%< &?'? &?'? &?&? %('~#^~#? &?'? &?'? ?&? 97 ?$ '?%Z& 397 '?%Z&39##'h&'j!'g?$9#& 9&'h&'j'g&?&'h'j'g&?&}'lu?('n 'l?'g&?9|uu+XHYHYwvz{67xHY & M& &S66~m? ~SM  (:&&' MDOS SYMDOSOV0 SYMDOSOV1 SYMDOSOV2 SYMDOSOV3 SYMDOSOV4 SYMDOSOV5 SYMDOSOV6 SYMDOSER SYIS DRIVE 1 SCRATCH? ARE YOU SURE? DISK NAME: DATE (MMDDYY): USER NAME: SECTOR 0000 LOCKED OUT LOCKOUT ADDITIONAL SECTORS? ENTER STARTING SECTOR (HHH): ENTER ENDING SECTOR (HHH): ABOVE SECTORS HAVE BEEN LOCKED OUT INVALID SECTOR NO. COPYING FILE . MDOS.SY DOES NOT START AT SECTOR 18 TFTFTFVFVD6YYYO FZ,29]'/l&l)])] #0m&jj)] Z&)]96dfJ&29]'+)oo))l &l)%)Z&)9A% 62% 0%62%96hiJ&29 $0200!h DK h UNIT=0  CHANGE BUFFERFILE= . CLUSTER ALLOCATION MAP DIRECTORY  PSN=0000 LSN=0000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  h!!"0#*7#'>"1"""l"+""=""U" h h : SYNTAX ERROR MODE ERROR BOUNDARY ERROR INVALID SECTOR ADDRESS PHYSICAL MODE WHAT? !ˆB00/,)# ? c? + %,'~'*s 'ޗ *' *&~$"#*s!B'C'D&0') ')''}/&*  '*sB& & T" ' &N&F#ƀ~%#Ɓ |+'&,*'"G') &' ,&'ǽ*' &G)#n %*'/&H"(|,M~&#aƄ #-Ƃ,!?#? ~$)t(?%)~$)t *s0-9.6*s &)t2%70~$#ƀ~%!D&'&q("k?(')%"ƀ*3"3157~$#ƀ~%!+&B''D')7'-3/'5 D&'&(" ?(')~$#ƀ~%#<ƃ *&"&$*s*s"&*s H & ƀ?7~$#ƀ~%-%)( ?('"ۖM& |M*s &~&.)%.'*mH*s &~&܁"&*s. ", *&"& *s"&*s  'Z|. -'H"""ہ,'-&J6 '*s &.^'/&& !̶!?/##2^& !ζ!?/"|-'"~&?#ƀ~%#-Ƃ /'7^& "!ζ!?-?$8"߽*I" ""۽*I#&? ~$8(~&,~$@ @(!+&BB&~'C&~'D'"( /&"m"ƀ*33"51')7&~(8~(&C&'(%U')(%L)/'" P!D&>'&2)&.' 1(*"!?')?(' )1" #ƀ~%" "*3"m')*?/$ /'֌&і0!A!()$~("*M"*M"`(? g9";"="*I9*I99 -z/.==;?L?&;M&? %'"(?&')''@&~(zA&(~(~$?1% ?1%}/' 9}@&? 9?2 '' BZ& 6#?52:B?3'?4 ?59}@' BJ'# 9K)t%Z!K"!"Ֆ0! !"?&9 &5!ڗ0ŀ&,"*3!"9 !DK!!?&?&\/7 9#S? 9~)/'!?& O/7?& 9!_? 9"ƀ*3 O/':'!1!M&? ?&!ݶ!HYHY'?)!߶!?-" 9!_? 9'"110"M&?9 ?:%9"60? 2 9 7NG_*%G*HHZ&KP2PN]96ICEIC?29 6*k*l*i*i*29K% K%%K9  '9C%6F%L'17O%.Q%&R%dS',7U%;W%]'/l&l**ݦ #0m&jj*ݍ Z&*96dfJ&296hiJ&29A% 62% 0%62%9P 02000!!z!!|!z?!0,? ?3.""!!~?"""!H%|"&|"|"&#|" ?276"""?/$"23?3""Z&z"&"""z"/"" """""z"/"" ""!""!~?"!'&|"?(z"&!'! "!z">!|!z#$"""!z"O!|!z#$"""!z"e!|!z#$""!""!~?!!z"'!|!z?"? ?!! "`"9"KDRIVE X : XXXXXXXX XXXX/$XXX SECTORS XXX/$XX FILES XXXX/$XXX LARGEST CONTIGUOUS BLOCK]&~# l&l# #"###!#"#o%#l #670 'Z&32#l&ll&lj ,# m&jj#l&lj&#"O9'd ]'/l&l#W#W #0m&jj#W Z&#W96dfJ&29 X 0300$$+$$?' '~"~"$$$?'+~"$$$?'*$#!%$#!%$'}$'$&$$$?/%$ '{;'$ $$ 'd 'H&|$ L&|$ ݁N&|$ ԁF'~""'$~"%#"$$ '.&"'%% #c"$$~ $,$%$$?%#$$?$+%&$@??$?/$~"ӄ$@?) $B$!?'~"?&'~"}$'%? %)d? ?'%}$' L$NP$O$F?'~"?&S$&$$2$^}$'$f$%$$'}$'$^?$b$%$$%$!?': &/}%'}$'}%' $%$#?S$'$'~"~" '~"L$&:%%$?/$-? %%%}$&~!L$& $$?/$~!$2 }%&3%$$$$$%% $J%$L#&1$%$^$J$#$L%#&|%%$-%~"? #?   ? ?     6 $%$_$$ '0-9.\# $$ %]'&D%)}%& 9O9'e#L'S' 9m&%%_ '\L#'. . %]'цL#'& &D)%%%%#L&' 9$L$J$K?-_$?/$ $JJ?($L$J ' #%?$$'?/$?% ? $11~!$F?9$F#$!#9$?''_? $?''_? 9%$J%$L$F7?3Z&9$^$DK0 SACNPB PAGE XXX XXXXXXXX.XX:X  %(ENTER HEADING:  ]&~&-l&l&@&B&.&=&A&B&8o%&8l &8670 'Z&32&8l&ll&lj ,&8 m&jj&8l&lj&&BO9'd ]'G&&oo &HY%5HY%1%+HY%'&l&l?%_%z&&O9 ]'+&oo&&l&l&%&Z&&9A% 62% 0%62%96hiJ&29P 0200%'*% '* '3%?''~$}&&~$~!%&|'O&~&|?*|&}&'&' &&-~$\&SA0 '3&'3'*&'*'*?'' ? ?}&&~$|'~!}&'~!C&&'7'' ''~$'7&'7''8''3&'*'' O%m'7&&x&&t'%)'&v' %+ &p' 'b?)'b&ZX&?''*';~ '7&'~$}&&7&' O%m&x'~ &t''?/%'%)''?/$' }'&A&'#ƀ'7'~$&' '*';&& }' '~$|' |' ' &-% 'h;' % 'XW&|' % '_'% -~$\ ]' %?+&|&|'%&~''?/$~$?$'?/%'' }'&B}' &=}'&8'+&|'j&~&|?'3's'*'v'j? &|? &|Y'ƀ?#?%'*&|'O&~&| ?' ''\&&~#('E?'~$?'}'b&}'c'&'b'c }'''X'V'*%%?|' ' &,%%%c' ?' &?&?'~$'E?& ޽$?'''?-&|?$&'&|?&|''b&|'d&'f'E?'~$?&6'''Z''O{$z'&2'#''? $?2%' O%m&t'&r ''?'&q?'''''?.''_x'IY'V'W%½%c' ?'~$'?'='='='b'b' ''&'b'f'g?/$ 'E?&Ƚ%'='A'B?/$ 'E?&' ?&?&|' ' &,~#'EO%m'&'&&&'&'&'E%m~##? $?? ?'*  '*    '* '* ' % 'F&'P''F'F'E% 9%'?''_? %'?''_? 9' v', %a%a?' u'J%b%b$|%a' x%a%b?)911~$? $$?96'' 2 ' 'M&?9?9'*%SA'30'*DK'(%?' ? $?' ?'~$?&9}'& ''?/$'E?'~$}'W&z'Vz'W'd'?''b'9  1DK0 %&{3DK0 SA%&{XXXXXXXX.XX:X EXISTS. OVERWRITE? ]'+'oo''l&l'%'٪Z&'9A% 62% 0%62%96hiJ&29X 0200#"##?#''~"h~"n*'& "&SA"""" ?"###?]''~"r" '|#""&###  'P;'# ## '9 '#m&~ !' Z,~ !7##3## #o#&~"h'!#&~"r#'" '" & "#' & z#&"' & z#&"#"### #?"### #?? $?""#5""#'?]'#' ? ?}#&~"v?]':' ? ?##"###'?&##"###'?&|##'8# '# "#"##?# '# "##?""#'m& "" C" "#"##6"#"##?]& #' ~!X' ? ?? ?  # " 0 #6#D@WS N X00h1 ,0200 ! # & h i  ('?)'C*'F'I'Y'_'d i t5)6) K)7J)FI)d"" &..&'I)'I)=)A)?)# ! DRIVE MUST BE SPECIFIEDID SECTOR READ ERROR WRITE TO DISK TO ATTEMPT TO CLEAR ERROR? ID SECTOR CANNOT BE CHECKEDDISK ID: VERSION: REVISION: DATE: USER: ID UNUSED AREA NOT 0. ZERO IT? LOCKOUT C.A.T. READ ERRORC.A.T. READ ERRORDISK IS NOT FIXABLELOCKOUT C.A.T. IN ERROR - RECONSTRUCT? Y(YES) OR N(NO): WHICH SECTOR RANGE IS TO BE LOCKED OUT? C.A.T. ERROR FOUND - ABORT?  .  DIRE CTORY SECTOR READ ERRORDIRECTORY ENTRY IN ERROR. DELETE?POSSIBLE INCOMPLETE NAME CHANGENEW NAME: INVALID RIB SECTOR NUMBER. DELETE?HASH OR NAME DUPLICATION ERROR. DELETE?RIB READ ERRORRIB IN ERROR - DELETE FILE?FIRST SDW IN ERRORSDW BOUNDS ERRORRIB CLUSTER ALLOCATION DUPLICATIONILLEGAL SDW TERMINATORNON-CONTIGUOUS SDW ERRORNON-0 BYTES AFTER SDW TERMINATORBINARY LOAD FILE RIB ERROR GOOD FILES FILES WITH BAD RIBS GOOD FILES FILES WITH DUPLICATIONS ALLOCATION DUPLICATIONS  DELETE: NEITHER(1), BOTH(2),(3), (4):  SIZE: CONFLICTS: CLUSTERSWRITE RECONSTRUCTED TABLE TO DISK? RECONSTRUCTED ALLOCATION MAP MATCHES DISKILLEGAL ATTRIBUTE OR UNUSED BYTES. DELETE?MDOS.SY DOES NOT START AT SECTOR 18 .SY DOES NOT EXISTBOOT BLOCK SECTOR CANNOT BE CHECKEDBOOT BLOCK SECTOR READ ERRORBOOT BLOCK SECTOR HAS BEEN DESTROYEDMDOS MDOSER MDOSOV0 MDOSOV1 MDOSOV2 MDOSOV3 MDOSOV4 MDOSOV5 MDOSOV6 % ':&0'1' %6ƀ?#? "6R$* %޽6~-r%6%6X%%6-1-6% ]6 %6I-176,$A Y6 ? ]'-26M/ '?'? 2376,%|IY%%623-6$#F&#& &W6% #2ZO?|II'6X~-r7?2M..-?%Z& ?339 % h%%?] &%6 ަ6%Z& -J Y?'-r 'Y 9%&# & &#&&$#&'&1#&8&B#.j$|&6$~.# # =O?#J#KA?.&6'F W79'-&UI6%79'ށ &U6%IJ?/"677# 6D?3U'?$ 6X%.j$'6%&6?~. o$81' 8'9'4&(6?) ?-24& ?$7# 6D &9? ?"#66R2$&&&x6%6%*6X%%# &#J&#K&#& 9 9&6?"6R$**6 K*ս6%6%6X%8%# %%J?'## ƀO?8%# %%J?*6 "6R$'|6%6$&6?6X%"&$ ƠO?4,%B&&Z&~0u'5~0u&]&Z&~0u&'>6'6'۽6'SA q % h%%?]&ށ &%@ 6#6_$~/35 , 6$' &, &'*F~/l s,%D%D 6 s?$( ~/l +&DDD)&SY |&D+%% t%%?&%l?++& ~'*r6 % ?'%m*½4%~/S+%*%%?%m&*6%%m*O674$~2Z, "I6R$#+(26%6%6X$(A5$|7~2R# 7%I'(]6 S# I7%Y7MS?'SM63% Z?'O6$(p # KI'%7QZ?'MN?/"QOP?/%( K I#' I@& S ?/%(~0, ' # I7?'KII7% K'( ISTI#&, &~2B'~2G'?$# ?.t#, ' '( #'L&H#ST?/%=O?/%6###?/%)##'#?/%##DVF?*#?/%#?/$( &|64%~0%H6%L6)6"! 6U$&x6?!ƀO?I4%D$5I=>?)I4$I&~4qIK4D$ _5='|KIJ?)I& |L4$%P6%T6%X7)664&~4B_5%\ƀ6%`6'>6%l 6%p7%x7)Ƚ64$~4'_5A''86%t7%x7)½6%h 6" I"KMR ? OQIIKKH$*6M7O  A& 6 ?'O2RRM'zQ& O '  6)~6 &1'4'3'2&6533&~397%d6("#6U$'|6?3]'54%~2"! 6U$&x6?4% D$54$"6R$&  %|ƀ?')6%! 6_?*6?4 4%&' 9$ &* !&&,?',+L&-|*(& 9("? $?#6U$'|6?#,O+% 6%$6%(6,%, ?'%0%4%8%,7#%07%47%87,%<'j%>7%<7%<%<%>%>3Z&'e'I6$ % 'e'T& 9?2'>6?36% &o,?("#6_$&6?9H=O?"ƀO?, "6R$(26?# C7%WEG?$7"J??}H*! D'!4! /!3'==" ''AAEEGG&C 9?(739?(9# O # $$ !M&?9 ?:$!60? 2_1' 8' 9'Z4&] 9??$&_?/$?/9 97? 7? ? %39?#z" 9 96 c? 9Y ' N '& 9 98[]8[?9 67!7"777296.]][?9 78U%7%U7ךVVZ&:2:8]9;W ;WW;9 '97HYHY?%2|I9]'/l&l77ɦ #0m&jj7ɍ Z&796dfJ&296hiJ&29A% 62% 0%62%9TFTFTFVFVD6YYYO FZ,29|uu+.HYHYwvz{67xS66~m? ~S|@쀿x nd~" ~,ro$~r~s:~s~u~v,~v~s~s~t~t~se~vn~wc~wl~w~wu~w{rzqNq~9~x~r{o&pqp BCC$|BB@@H%a`ncbn@@H%a`nAA$|@@H%ӗa`nCOPYRIGHT (C) 1977 SOFTWARE DYNAMICS ALL RIGHTS RESERVED""""""""""""# # ""|"#"&&]&((k(()m))#$$##$G$S$w$k$$$%%%*S*^*e*W*+,,o++0/0/&46&&&'55645--4H/4.4g%%% %&%,%2*p$_,,& /:,929(887r#J66l#4#>44544&7D,,4#9*#%';&)&M"[4+Q+*5.5K'%%33%)'98#w+3X h0d ;5$ߋߍ=*,026!`"b O^ RZ Q@]O\&'9 2d'~,o~ j@M@@MMZ&@~ j@A%0 ='M~ @6666660 =',~ 00o~ h@OA  @0 ='~ ~,q0111111666666~ h@6O666660 ='~ h@76444O60 ='~ 0 ;JA%0 ='~ h2 , 0*~ h0'%E0+E  C  0'C 4O6~ h0'* ;~"ݦ'oo~ h23VW0&30&;3A%Vn$5 $-ݽ<(~ h6&  0 ~ Y0&# '$-ݽ@ ԍ= #$-ݽ> $ $ #$-ݽ> % ~ Y~,q0& 911n   Ӎ   Ǎ   0&cc~ h0&*7;jA%>0*FEĽ;C  !2333&]'0DfZ& (0 o o ~ hM&]'0hIZ& ~ Y0&3;~ hQ&?~ h?~ h@& :- 4/ .. (, ܍^' ֍X& ЍR- ʍL/ čF. @, 23XY0&' & '$B CC$|BBXMn#; 23XY0G0 &0EG'FHEGF8* E' 8G'"0M0IIM&M &8 8 B6_7C6B647~ h 5 0B0111111BC/O ~,q0B0ߋBCی׎~ Y@o&ߋOی׎~ ~,q@OA@@A~ @7O6A@BCA@76B@4O60 ='~ ~,q66 @ ? 66 K L76O660 ='~ h~,qUS7TR6RS @6676O660 ='~ @~# Koo M NT0'2 K"&&" 0BBTT &~ Y~,q0G'l0 &0EFEHG%NBC0I0MMOGIIK  KO&O &0IJ  ~ YB B&_O0  (0  ~,q0"&"~ Y^  U$OBC0CB%>0BC~ h-  $0"&"0O~ h ~,q23VW0'&;jA%>0+C 111111Vn23%' 111123Vn  0  BC0' 0%"&"0BC~ h8(0  3XI%/CBXI%'8%!CB%0%"&"0~ h ~,q8(0  BC(0  06B"&C$26&  CB @322222]'*BE  !A%C 111111 2323&Bo~ 0 322222]'%BE  A%C ~ V2323&Bo~ Y0'~,q&~ V0I0M0G0B &0BEEFHG%GB'IJNM$MMII &~ VIJߗIJMNߗMNM MI I & Ζ?& @~ k?&~ _?&S?~ h(0 @ $  B~ k(0    @B :XI%A@%%@" &'"BC9011n@@A@Z T' Z=>~+~,q(0 'Z R'7Z &  RZ~ hZ R'=>Z@A~ ~,q@BA%;B;@A764444A%0 ='B~ j~,q;0 @;111111A%~ 0B ;5~ @66 &@'@&'& '%8&q BREAK ON LINE? 6HF} d@ &~ hO ;67=0ދ*' ~ k@*~ 670 E6&,~ k,~ kq STOP6.,q ERROR6^4 AT LINE6j45~ )0&1~"0&%&F "& " &  ~ V~,q0'#0^u O'&&6^' 6|\|]'H__%z^^22222222 2 2 2 2 2@A~ Y~,q6BCC$|BB29z]z\__$|^^9@^ϼ O'¡&&B&+B%}B  $~ k^&~ ^666666BA%-ݽ>B;BA%B6 6 6 6 6 6;'.B* B+ B B&66O66CB;B&66O66CB222222B6 6O66CB2 2 2 2 2 2~.@( KRB MQ& H''+ Q BB '  &B T~,~,lTUSRR0 )Q'~,q/0~ k INPUT ERROR 6U( ;~ kR~ hBC23VWBCA ] lB߽A ':&[OA0-*9.0 A-F.7HHHHHyy%(Z& 'ֿ7־7444_7 ,' VW769Vn?_ _ ދ'Qߋ ދ Q  ~ h0&09'0BBQ &~ YאOٗW$&|N-& | -'>#& L #/.&|ٖ " #& L #ւڃ&6-&| C  10oo0Q &1111~ h<~,qD2Q #zD&~ h0& 0'0BQ BB &~ Y0'0BBQ # &~ Y׿߫߳'xy% h$%Z&&ִۖ9011nց766~60Xyyy~Xyyy~ ~XyyXyyXy~߀C;zA%<(~ h~,q0+& '38&0@Gp$@D8*}l l l ; zD&8*}l}r l~88&}r}f_[}l%?'l& 8*}r od@~888&}f_[}l='XB>y4D>$yw?9 5?V?33a@ffg@ffff@PAAprAql&>8tpvq$8* rp'8* r}r ޖf*8*}l ; l d~ jf* O0 ~,q@d23@A~ ~,q0+& '30@O@6666XIXI0C8&}l ;'+8 ; l ; .8g ;  ; 8Ax1q xAA%1AQA#V'5 lAUdY' 8* r.7u~80&3x;@@A%@'@xA%0 ='<(@A%> ~ k~,q8& ;Z.958& ;}f_ ;Z [ ; [ ;}lqG$ 8* ; 8*=4(y0G?hQyi&&@E@pyc' f l ! ; ~88&}f_ ;Z [ ; [ ;}l ;ZqG$ 8* ;Z8* ;Z ?RDEUvb7pA!P x@Q2aAE)3  ;  ; f l ; ~88&}f_ ; (+:C ;.:P ;  ; ;}lF&@$8(ABAAT#yCA8&$ xAA%hAQTuA8&$ l f~8A  !$' $(26Ae %05@EAW3$06BHT@P!(5BIVc<ef$2@HVdrA '6ETcrAA@xS5@1b'v`0'923222222n+ 00++'& & & & & ' "Ā$|0Mn23;;;߳ߵ߷߹߻'V'Mz ʌ'1'Í%!ֿɗ ʌ&~@j')8׳$$ 9$ 9'  9פƦ֤Ʀ_$ץXXXXצDDDD֤HHHHƦ֤TTTTƖ9& 63vũy 9ֳ%ִֵֶַ &ָ~@ji'a_\ֿ͍v%3ë  ©   $͖ɗ99&ף|$9ѿ'#9TFvTFvTFvTFvʐ|$$햣HHHHJ62yIYyIYyIYyIY|$$90230'*W3׾3׿33333׫M&]'Z3׬3׭3׮3ׯ3װ ?3L&׭3׮3ׯ3װ_ *L& ׮3ׯ3װ_ L& ׯ3װ_ .L&װ_2ׯ2׮2׭2׬? l11111~A+1111~A=3׾3J&333_ (J& 33_ J&3_ J&_2222׿3׫3׬3׭3׮3ׯ3װ?+~@<߹߻߼ƙÛ›%P%B%Y 0 G_$!׳_&\&; ;'▲?.@'+ֱĀ ;:A%0n p23;;;߹߻߼''LȖo&&xyyyyxyyyyyZ&~=z23Ӧ666666naE .&&L HHHH& |*11~C9011n2 .&&L"   Ё0- 9.ۀ0923769' ֦9O Oؗٗ߳ߵ߷΁ '+'-&0&ۖ'z+~C.& ڌAC  Ar  z&鍁A &~C_ױײ܁E&>A+'-& A AA  ֲX% X% ۲%X$ ޖ&֖& *&Uֲ'*POOYGVə' 'M*/; =GV$tvvvvJ&\)@) /ڳ׳ *;* ;:2323ϽA%76 9237690F,i@. O RODDDDM  BC  8Z&0*)1111n011nHIII%xyyy%xyyy%$ %923O2222_*ƀױ xyyy%Z&;~A+xyyyZ&Ζ'ָ7ַ7ֶ7ֵ76E @'_7ָ7ַ7ֶ76D ,'_77ָ7ַ76C ' _777ָ76B _77776A6n2322DDDD00z&+*-.E +H+- 0&z z&6*@OxZ&֖0DDDD00  0&Zz&2]&On';&+&!&& @"!23769A" B" C" D" E"9230ױD"@"111111*; ;A%nE0 کשoJ&*喩';A%> # $ % rzxo0x}x?x  qoZ&o0 ' ' & xxxxx '+;'|x xx 'Z.@/qJ& xxvo xx' x_t ~vnILLEGAL SWITCH rzwo sF$'t s:~vnFROMNOVA.SAO&)V$''''' 9 999@99wݽwx!x?x& &~x 0xooo?xo)o*o+o(o'o9wݽwx!x?x& @&~x 3 wݽx 'tu֦&?x?x9wݽx ':tux&0+,hYI+$xuxTOx )*o%o(9~x~xwݽxtl%&&.(&#t$#M'+ ''""#9(j( 9 o%9wݽxo(t&&t$9O9&9'! ' )& u% 9)xl*&l)u 9~x)&Lxx'ƀ? xO ?x' ' '~xͦ)*)x*' l*&l) &o)o* 9wݽx o%xt96x''to'29wݽxl%x & 'l''&o't9ȁ"o% '( '3)&6u2xo+l+l*&l)) u9~x'xx? 9x)& x)*)x)* ' 'l*&l)9x?xo)o*& 9x) *o&& + ?x' &Al&l&lƀO?x 9 9x* ")!%x+'6m&jj?x2o+o)o*9~x͆wx!x?x'"?x٦ ?x9~xwx!zyDK&/0111 wݽx!zyz&z{z&vg?]&9z{z~x?wݦ&xs:zxx*96xxx76ؽw0112rxwcM&\sS&s9'R1&xSxLxGxx&xx7zx'xo"&$x#xx |x'~x~xs:xns$HHHH6s$ 3xx911 Ɂ9#G% 90%0 9A%7 9wݽx&9wݽx%9w9w91-03-7812:01 AM yxwxx x?'xxxxx!"zxx*wچ_r9#CNx"xxxxXx?'x9~x'o%o&o'o(o)o*o+9~x&9~xxDK SA0 ?'x?xxx'M"Io'xx?x; o&o&xx?&#&ŀ&9x  9M*_x? 9$"  0116TOx~ Ox~ x&9yy=yiyyyzzEzqz~nd0010DIMA$(4),L$(60),F$(20),N$(20) 0011DIMZ1 0012DIMM$(3),D$(3),I$(3) 0013DIMLAR$/:E/ 0015DIMD(12) 0025DIMX$(10) 0030' DIMN1,A,I,J,K 0035DIMM1,M2,M3,D1,D2,D3,Y1,Y2,Y3,I1,E2,P2,I2,X 0036DIMN,P,C 0040CREATE#2,"#LP" 0050D(1)=31 0051D(2)=28 0052D(3)=31 0053D(4)=30 0054D(5)=31 0055D(6)=30 0056D(7)=31 0057D(8)=31 0058D(9)=30 0059D(10)=31 0060D(11)=30 0061D(12)=31 0070ONERRORGOTO8000 0100PRINT#N1 0101PRINT#N1 0103INPUT"DOYOUWANTAGRAPHONTHEPRINTER"A$ 0104IFA$="STOP"THENCALLMDOS 0105IFA$<>"YES"THENN1=0ELSEN1=2 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=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 1090PRINT#N1,"THISBIO-RHYTHMCHARTPREPAREDFOR:";N$ 1095PRINT#N1,"WHOWASBORNON";M2;"/";D2;"/";Y2 1096PRINT#N1,"ANDWILLBE";A;"DAYSOLDATTHESTARTOFTHISCHART" 1100PRINT#N1 1101PRINT#N1 1110PRINT#N1,"NEGATIVEPHASE"; 1111PRINT#N1,"CRITICAL"; 1112PRINT#N1,"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 1600N=N-1 1610IFN=0THENGOTO0100 1620IFM3<=12THENGOTO1260 1630M3=1 1640Y3=Y3+1 1650D(2)=28 1660IFY3-(INT(Y3/4)*4)=0THEND(2)=29 1670GOTO1260 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=J10 1 !~!~"v~~>~~8 OLD NEW END LISTSAVEDELELOADRESEMERGBUILNUMBCHANFINDPRINBLOCVERIMOVEDUPLAPPEQUITOLD NEW END L SAV DEL LD RSQ MRG BLD N C F P B V M DUP APP Q ON OFF IN OUT I O EDITM RELEASE 2.9A COPYRIGHT BY MOTOROLA 1978 WHAT?  NOT THERE OLD/NEW? EXISTS READY SAVE IN .SA:0 SYNTAX ERROR NO ROOM CREATED END=0000 MEM=00000 0000 RECORDS DELETED (  NOT ASCII INCREMENT TOO LARGE ALL (Y/N)? RESEQUENCE NEEDED 8 o&4n&U_GD:T15T1t5R1tV+5P1t8/B!" *'{''"U"U"U'{"U"U'"U"U"U"U1`1j"U"U"U'"U'X"7n5N1t 5L1t~"5J1t 5H1t!&~"~"|5P1t8" *'{'''(%(;'{-",'0(('1`1j..('+G'X"7nEF;=><I45FbA#5pqrst#0&'95D$''95B$''95N1t~"A#55@$''' '9"5>5?de598p7-$b &b~#Wbf9# z#- 0"9#b"%\#"X$,6--2b9"*-.HYHY.-HY88_M,S88-.|$d57' bddbb~#$/!-8p5V$_M,Sgfbc -9#d'p8d5 '7&9'#$L~$'98b 8A#5p '8!*887!38Ӷ!6855853488b88!*78!38ʷ!68,8/ F'$~"^908!*78!3:!6.9%&$=&&8 &&8 88885185/885548&&8&!915-1~F'$~"l8' &&8&15+1tF'~%!98'&~"f&& 8&!915)1t~"l0#5p &IU&9&9p8|63p863-)b-&b0#5p863)--, F'$.~"^9|~ ߀߂9/'9D(D5'15%1(D 5#4Y'GB&;!*887!38Ӷ!688518߆55488'~2 |/~"l11!*887!38Ӷ!68~(,5!^58![7^\^&i58O7on{zMN. &$58O7NMMNM8!e5V!i88S6b151t9^78![7^78|7$~&~'\^\^^'787#^9& B$цA#5ApN&A5z9k z19m &9k/&~"v& $цB9k5z~0& 1D14|D1~(D'1D%&^' ('T~( ~"|^1t9$9k3B|/~"v.0#5--)%&^'>>^\^'T~(M~(s~"^>8!k5V5 1t.~"||;~(|=.%;&+I''D(D5 1(D 5#4Y&~(~"|b &b~(HLbG&bG^~)b,&!bA& b|H~)!0#5-'.Lb)b=') &~"^,~),;'~)b``)' &~)d`|,~)L```)' &~)`z,~)ibj&^& ;&.~"|KJ,,+3^78z77^`zd='H `+)b+~*b`+' &~*f`hbff ')'G' h'~**ffhh~*f'' &~*)'`dd``~)L' |KK'~*=;'(~*fbdl `+ld)b+H'jbh`J~)J h+ d,-"^dz` + d~*z{\^z^dzV'(/J' f+J~*'Tjb~)ffG'' 'fdG'd '9zn% *'3J.~"f9+M~"|b '+3/5!^^\^&~+78p7$~+`^78p7& ^\b &5 1t9p8z77zdbddbbd '~+\zz{\dz9.F!*807!38!6:$Ab('~-b%|8787b)'~-b,&b0#5-&~--8|5V|87&^' 78|7&51~^\^zj1\djk\d'$d\d78\77%51~$/~"v$~"^.0#5pN&(9k\\'oooo &\~-;~.v-& --8|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&*@ ,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$|889Y BLSCMNDAD STAACNDFLG CMNDADTSTSHENGYSHIELDENERGYLEFT? BPLCMND27 CLRA STAASHIELDIFNOTLOWERSHIELD STAASHENGY STAASHENGY+1 CMND27LDX#COMSTOUTPUTCOMMANDPROMPT JSRPSTRNG CLRSTCFLG CLRPHTFLG COMND3JSRINCHCKINPUTCOMMAND COMNTO12 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 20NEXTI 9640LETI1=I1+D1-1 9660RETURN 9680END * * COMPILEDBY10/30/77SOFTWAREDYNAMICSBASICVERSION1.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 DAY$ EQU :: 112 FDB :+:: FCB 2 FDB 10 :: SET ::+4+10 G EQU :: :  S1164800BD20001270481302000A7048210200032E487017 S11E4870320078124813130653554E4441591A2E00003200BE711323454E545F S11E488B4552204441592844292C204D4F4E5448284D292C20414E4420594597 S11E48A6415228592936353200C87155480C482846190C482E46190C483446B9 S11E48C1193200D20A48340D06D82A2C00003200DC71131E59454152204D5551 S11E48DC5354204E4F54204245205052494F5220544F20313735333635320062 S11E48F7E62E00003200F00C483A0E302E360D010A482E201C5B193200FA0CC6 S11E491248400A48340A483A1D193201040C48460A482E0D000C0A483A1F1C85 S11E492D1932010E0C484C0A48400D006420193201180C48580A484C04205B21 S11E4948193201220C485E0A484C5B1932012C0C4864050A48401F04205B19B9 S11E49633201360C486A0D000D0A4846011C1F05205B193201400C48520A481C S11E497E6A0A48641C0A485E1D0A48581C0A48281C011D1932014A0C48520A51 S11E49994852070A485207205B1F1D011C1932014F0A48525049BE0000000049 S11E49B40000000000000000000032015471131754484520444159204F46200E S11E49CF544845205745454B2049532036124813363532015E7135320168716F S11E49EA1329464F52204E4558542044415445205459504520494E20594553C4 S11E4A052C204946204E4F542054595045204E4F3635320172713532017C71B1 S11E4A205548124821381A32018612482113035945534A2C000032019012483F S11E4A3B2113024E4F4A2C000032019A71130F494E56414C494420434F4D4D60 S11E4A56414E4436353201A42E00003201AE71353201B82E00003201C27113E5 S11E4A711D444159204F4620544845205745454B205341595320474F4F442D53 S1094A8C425945363531A4 S9 54DIMVERSION/1.1/ DIMCLEAR$/:1A/,BELL$/:7/,X,ENTRIES,M,D,Y,DUMMY$(5),DUMMY/0/ DIMCONAME$(32),NAME$(32),ADDRESS$(32),CITY$(32),ZIP$(5) DIMPHONE$(20),POSITION$(16),INTEREST$(32),RECORDSIZE/256/ DIMDISTI$(10),FUNCTION,DISKNUMBER$(1),COUNT,PASWRD$(10),DISPLAY DIMDELETEMARK,DEVICE/0/,LOOP,VALIDENTRIES ONERRORGOTO900\!ERRORHANDLER CREATE#2,"#LP"\!PRINTER DEFSTARTOFRECORD(X)=X*RECORDSIZE+5 DEFRECORDPOSITION(X)=X*RECORDSIZE PRINTCLEAR$,BELL$ PRINT"SALESCALLMAINTAINANCE-VERSION";VERSION 2PRINT"ENTERPASSWORD:"; CALLNOECHO(PASWRD$) IFPASWRD$="MAID"THENGOTO1 DUMMY=DUMMY+1 PRINT"YOUCAN'TFOOLME,I'MSMARTERTHANYOU!!!" IFDUMMY=3THENCALLMDOS GOTO2 PRINT 1PRINTCLEAR$ PRINT"INSERTWYLEDISKETTEINTODRIVE#1." INPUT"HITCARRIAGERETURNTOCONTINUE."DUMMY$ IFDUMMY$="EXIT"THENCALLMDOS OPEN#3,"CONAMES.SA:1" PRINT INPUT"ENTERTODAY'SDATE(E.G.8,23,1978):"M,D,Y IFY<100THENY=Y+1900\!JUSTINCASE RESTORE#3,0 INPUT#3,DISKNUMBER$ RESTORE#3,10 INPUT#3,ENTRIES RESTORE#3,20 INPUT#3,VALIDENTRIES PRINTCLEAR$ 5PRINT PRINT"DISKNUMBER:";DISKNUMBER$ P+ RINT"TOTALENTRIESONDISK:";ENTRIES PRINT"TOTALVALIDENTRIESONDISK:";VALIDENTRIES PRINT PRINT PRINT"ENTER(1),DELETE(2),MODIFY(3),LIST(4),PRINT(5)"; PRINT",QUIT(6),RESTORE(7)" PRINT INPUT"FUNCTIONDESIRED:"FUNCTION ONFUNCTIONGOTO10,100,500,200,300,910,400 PRINT"WHAT?";BELL$ GOTO5 10ENTRIES=ENTRIES+1\!NEXTAVAILABLELOCATION VALIDENTRIES=VALIDENTRIES+1 PRINTCLEAR$ FORCOUNT=1TO9 ONCOUNTGOSUB51,52,53,54,55,56,57,58,59 NEXTCOUNT 40GOSUB600 30INPUT"AREENTRIESCORRECT?"DUMMY$ IFDUMMY$="Y"THENGOTO60 IFDUMMY$<>"N"THENGOTO30 50INPUT'CHANGEENTRYNUMBER?(ENTER"0"TOQUIT)'DUMMY IFDUMMY=0THENGOTO60 IFDUMMY<1ORDUMMY>9THENGOTO50 ONDUMMYGOSUB51,52,53,54,55,56,57,58,59 GOTO40 51INPUT"COMPANYNAME:"CONAME$ RETURN 52INPUT"CONTACTNAME:"NAME$ RETURN 53INPUT"POSITION:"POSITION$ RETURN 54INPUT"COMPANYADDRESS:"ADDRESS$ RETURN 55INPUT"CITY,STATE:"CITY$ RETURN 56INPUT"ZIPCODE:"ZIP$ RETURN 57INPUT"TELEPHONE:"PHONE$ RETURN 58INPUT"INTEREST:"INTEREST$ RETURN 59INPUT"DISTRIBUTOR:"DISTI$ RETURN 60DISPLAY=ENTRIES GOSUB800\!WRITETODISK RESTORE#3,10 PRINT#3,ENTRIES RESTORE#3,20 PRINT#3,VALIDENTRIES 65INPUT"FINISHED(YORN)?"DUMMY$ IFDUMMY$="Y"THENGOTO5 IFDUMMY$<>"N"THENGOTO65ELSEGOTO10 100!THISISTHEDELETEROUTINE INPUT"ENTERNUMBEROFENTRYTOBEDELETED:"DISPLAY IFDISPLAY>ENTRIESORDISPLAY=0THENPRINT"NOSUCHENTRY"ELSE102 GOTO100 102GOSUB700 IFDELETEMARK=0THENPRINT"DELETEDALREADY"ELSEGOTO105 101INPUT"DELETEMOREENTRIES(YORN)?"DUMMY$ IFDUMMY$="Y"THENGOTO100 IFDUMMY$<>"N"THENGOTO101ELSEGOTO5 105PRINTCLEAR$ DEVICE=0\!SELECTCRT GOSUB950 PRINT\PRINT 110INPUT"DELETETHISENTRY(YORN)?"DUMMY$ IFDUMMY$="Y"THENGOTO120 IFDUMMY$<>"N"THENGOTO110ELSEGOTO100 120RESTORE#3,RECORDPOSITION(DISPLAY) PRINT#3,0 VALIDENTRIES=VALIDENTRIES-1 RESTORE#3,20 PRINT#3,VALIDENTRIES PRINT"ENTRYDELETED"\GOTO101 200!THISISTHELISTFUNCTION FORDISPLAY=1TOENTRIES GOSUB700 IFDELETEMARK=0THEN205 PRINTCLEAR$ DEVICE=0\!SELECTCRT GOSUB950 PRINT\INPUT"HITCARRIAGERETURNTOCONTINUE"DUMMY$ PRINTCLEAR$\!CLEARSCREEN 205NEXTDISPLAY PRINT"ENDOFENTRIES" GOTO5 300!PRINTFUNCTION DEVICE=2 PRINT#DEVICE,"DISKNUMBER:";DISKNUMBER$ FORLOOP=1TO10 PRINT#DEVICE NEXTLOOP FORDISPLAY=1TOENTRIES GOSUB700\!READTHEDISK IFDELETEMARK=0THEN305 GOSUB950\!PRINTIT FORLOOP=1TO6 PRINT#DEVICE NEXTLOOP 305NEXTDISPLAY GOTO5 400!THISISTHE"RESTOREENTRY"ROUTINE INPUT"ENTERNUMBEROFENTRYTOBERESTORED"DISPLAY IFDISPLAY>ENTRIESORDISPLAY=0THENPRINT"NOSUCHENTRY"ELSE402 GOTO400 402GOSUB700\!READTHEENTRY PRINTCLEAR$ IFDELETEMARK=1THENPRINT"VALIDENTRY"ELSE410 GOTO420 410RESTORE#3,RECORDPOSITION(DISPLAY) PRINT#3,1\!VALIDDATAMARK VALIDENTRIES=VALIDENTRIES+1 RESTORE#3,20 PRINT#3,VALIDENTRIES DEVICE=0\!SELECTCRT GOSUB950\!DISPLAYRESTOREDENTRY 420INPUT"RESTOREMOREENTRIES(YORN)"DUMMY$ IFDUMMY$="Y"THEN400 IFDUMMY$<>"N"THEN420ELSE5 500!MODIFYROUTINE INPUT"ENTERRECORDNUMBERTOBEMODIFIED:, "DISPLAY IFDISPLAY>ENTRIESORDISPLAY=0THENPRINT"NOSUCHENTRY"ELSE502 GOTO500 502GOSUB700\!READTHERECORD IFDELETEMARK=0THENPRINT"DELETEDRECORD"ELSEGOTO503 GOTO500 503PRINTCLEAR$ DEVICE=0\!SELECTCRT GOSUB600 504INPUT'CHANGEENTRYNUMBER?(ENTER"0"TOQUIT)'DUMMY IFDUMMY=0THENGOSUB800ELSE510 505INPUT"MODIFYMOREENTRIES(YORN)?"DUMMY$ IFDUMMY$="Y"THEN500 IFDUMMY$<>"N"THEN505ELSE5 510IFDUMMY>9THEN504 ONDUMMYGOSUB51,52,53,54,55,56,57,58,59 GOTO504 600PRINTCLEAR$ PRINT"1.)COMPANYNAME:";CONAME$ PRINT"2.)NAME:";NAME$ PRINT"3.)POSITION:";POSITION$ PRINT"4.)ADDRESS:";ADDRESS$ PRINT"5.)CITYANDSTATE:";CITY$ PRINT"6.)ZIPCODE:";ZIP$ PRINT"7.)TELEPHONE:";PHONE$ PRINT"8.)INTEREST:";INTEREST$ PRINT"9.)DISTRIBUTOR:";DISTI$ PRINT\PRINT RETURN 700!THISISTHEDISKREADSUBROUTINE RESTORE#3,RECORDPOSITION(DISPLAY) INPUT#3,DELETEMARK\!GOODRECORD? RESTORE#3,STARTOFRECORD(DISPLAY) INPUT#3,M INPUT#3,D INPUT#3,Y INPUT#3,CONAME$ INPUT#3,NAME$ INPUT#3,POSITION$ INPUT#3,ADDRESS$ INPUT#3,CITY$ INPUT#3,ZIP$ INPUT#3,PHONE$ INPUT#3,INTEREST$ INPUT#3,DISTI$ RETURN 800!WRITETODISKSUBROUTINE RESTORE#3,RECORDPOSITION(DISPLAY) PRINT#3,1\!VALIDENTRYMARK RESTORE#3,STARTOFRECORD(DISPLAY) PRINT#3,M PRINT#3,D PRINT#3,Y PRINT#3,CONAME$ PRINT#3,NAME$ PRINT#3,POSITION$ PRINT#3,ADDRESS$ PRINT#3,CITY$ PRINT#3,ZIP$ PRINT#3,PHONE$ PRINT#3,INTEREST$ PRINT#3,DISTI$ RETURN 900!ERRORHANDLER IFERR=1THENCLOSE#3ELSE901\CALLMDOS 901PRINT"ERROR=";ERR CLOSE#3 IFELN=1THENGOTO1 PRINT"NOWWHATDOWEDO?" 910CLOSE#3 CALLMDOS 950!SUBROUTINETODISPLAYTHEENTRYONTHE"DEVICE" PRINT#DEVICE,"ENTRYNUMBER:";DISPLAY PRINT#DEVICE PRINT#DEVICE,"DATE:";M;"/";D;"/";Y PRINT#DEVICE,"COMPANYNAME:";CONAME$ PRINT#DEVICE,"NAME:";NAME$ PRINT#DEVICE,"POSITION:";POSITION$ PRINT#DEVICE,"ADDRESS:";ADDRESS$ PRINT#DEVICE,"CITYANDSTATE:";CITY$ PRINT#DEVICE,"ZIPCODE:";ZIP$ PRINT#DEVICE,"TELEPHONE:";PHONE$ PRINT#DEVICE,"INTEREST:";INTEREST$ PRINT#DEVICE,"DISTRIBUTOR:";DISTI$ RETURN 999PRINT"THISFUNCTIONNOTYETAVAILABLE." GOTO5 60PRINT#3,Y 2070PRINT#3,CONAME$ 2080PRINT#3,NAME$ 2090PRINT#3,POSITION$ 2100PRINT#3,ADDRESS$ 2110PRINT#3,CITY$ 2120PRINT#3,ZIP$ 2130PRINT#3,PHONE$ 2140PRINT#3,INTEREST$ 2150PRINT#3,DISTI$ 2160RESTORE#3,10 2170PRI293:0+7 4A1420294:32 4A155B295:91 4A161F296:31 4A171D297:29 4A1801298:0+1 4A191C299:28 4A1A19300:25 4A1B32301::033550 4A1C014F302:FDB0335 4A1E0A303:10 4A1F4852304:FDB:+Z 4A2150305:80 4A224A32306:FDB::1A 4A240000307:FDB:120 ***UndefinedSymbol. 4A260000308:FDB:130 ***UndefinedSymbol. 4A280000309:FDB:140 ***UndefinedSymbol. 4A2A0000310:FDB:150 ***UndefinedSymbol. 4A2C0000311:FDB:160 ***UndefinedSymbol. 4A2E0000312:FDB:170 ***UndefinedSymbol. 4A300000313:FDB:180 ***UndefinedSymbol. 4A32314:::1AEQU* MAL/68001.2:4A33 1-03-7812:01AM;Page7;Form1 4A3232315::034050 4A330154316:FDB0340 4A3571317:113 4A3613318:19 4A3717319:FCB::1B-*-1 4- A3854484520320:FCC"THEDAYOFTHEWEEKIS" 4A4F321:::1BEQU* 4A4F36322:54 4A5012323:18 4A514813324:FDB:+DAY$ 4A5336325:54 4A5435326:53 4A5532327::035050 4A56015E328:FDB0350 4A5871329:113 4A5935330:53 4A5A32331::036050 4A5B0168332:FDB0360 4A5D71333:113 4A5E13334:19 4A5F29335:FCB::1C-*-1 4A60464F5220336:FCC"FORNEXTDATETYPEINYES,IFNOTTYPENO" 4A89337:::1CEQU* 4A8936338:54 4A8A35339:53 4A8B32340::037050 4A8C0172341:FDB0370 4A8E71342:113 4A8F35343:53 4A9032344::038050 4A91017C345:FDB0380 4A9371346:113 4A9455347:85 4A9548348:72 4A9612349:18 4A974821350:FDB:+L$ 4A9938351:56 4A9A1A352:26 4A9B32353::039050 4A9C0186354:FDB0390 4A9E12355:18 4A9F4821356:FDB:+L$ 4AA113357:19 4AA203358:FCB::1D-*-1 4AA3594553359:FCC"YES" 4AA6360:::1DEQU* 4AA64A361:74 4AA72C362:44 4AA80000363:FDB:430 ***UndefinedSymbol. 4AAA32364::040050 4AAB0190365:FDB0400 4AAD12366:18 4AAE4821367:FDB:+L$ 4AB013368:19 MAL/68001.2:4AB2 1-03-7812:01AM;Page8;Form1 4AB102369:FCB::1E-*-1 4AB24E4F370:FCC"NO" 4AB4371:::1EEQU* 4AB44A372:74 4AB52C373:44 4AB60000374:FDB:450 ***UndefinedSymbol. 4AB832375::041050 4AB9019A376:FDB0410 4ABB71377:113 4ABC13378:19 4ABD0F379:FCB::1F-*-1 4ABE494E5641380:FCC"INVALIDCOMMAND" 4ACD381:::1FEQU* 4ACD36382:54 4ACE35383:53 4ACF32384::042050 4AD001A4385:FDB0420 4AD22E386:46 4AD30000387:FDB:360 ***UndefinedSymbol. 4AD532388::043050 4AD601AE389:FDB0430 4AD871390:113 4AD935391:53 4ADA32392::044050 4ADB01B8393:FDB0440 4ADD2E394:46 4ADE0000395:FDB:120 ***UndefinedSymbol. 4AE032396:(MDOSSWI FCB$3F END RSCN8LDAA#5FIXXREG JSRFIXXRG BSROUTLINOUTPUT2NDLINE LDAA#5 JSRFIXXRGFIXX TSTBOTFLG BEQLRSCN9 BSROUTTH0 BRALRSC10 LRSCN9BSROUTLINOUTPUT3RDLINE LRSC10JMPCOMAND SPC1 *OUTPUT1LINEOFLONGRANGESCAN SPC1 OUTLINLDAA0,XE)ES11E4800BD2000120C48880E312E310D1970488E0500010001D8704893050095 S11E481B010001077048B60200057048BF060000000000007048C50200207074 S11E483648E902002070490D02002070493102002070495502000570495E02EE S11E4851001470497602001070498A0200207049AE060000000001007049B4B3 S11E486C02000A7049C80200017049D302000A7049ED060000000000002E49E2 S1044887FF2D S11E49FF6855BC02391303234C50622E4A1948980A48980A49AE1F051C732E71 S11E4A1A4A2648980A48980A49AE1F737112488E36451248933635711321538C S11E4A35414C45532043414C4C204D41494E5441494E414E4345202D20564571 S11E4A505253494F4E360A48883435320002711310454E5445522050415353A6 S11E4A6B574F52443A20361249D33357A11249D313044D4149444A2B4A882E32 S11E4A864AD00C48BF0A48BF011C1971132A594F552043414E275420464F4F81 S11E4AA14C204D452C2049274D20534D4152544552205448414E20594F552128 S11E4ABC212136350A48BF03252B4ACB3357CB2E4A5B71353200017112488E5B S11E4AD73635711323494E534552542057594C. 45204449534B45545445204992 S11E4AF24E544F2044524956452023312E363513204849542043415252494123 S11E4B0D47452052455455524E20544F20434F4E54494E55452E71364812483E S11E4B28B6381A1248B61304455849544A2B4B3B3357CB0339130C434F4E4139 S11E4B434D45532E53413A316071351325454E54455220544F4441592753204A S11E4B5E444154452028452E472E20382C32332C31393738293A207136480C7E S11E4B7948A446190C48AA46190C48B046190A48B00D0064272B4B9C0C48B062 S11E4B940A48B00D076C1C190339003E0339481249C8381A03390D000A3E0344 S11E4BAF39480C489E461903390D00143E0339480C49F946197112488E363585 S11E4BCA320005713571130C4449534B4E554D4245523A20361249C8363571DC S11E4BE5131D544F54414C20454E5452494553204F4E204449534B3A20202021 S11E4C0020202020360A489E343571131D544F54414C2056414C494420454E1E S11E4C1B5452494553204F4E204449534B3A20360A49F93435713571357113D6 S11E4C3636454E544552202831292C2044454C455445202832292C204D4F443B S11E4C51494659202833292C204C495354202834292C205052494E5420283535 S11E4C6C29367113172C2051554954202836292C20524553544F52452028370A S11E4C872936357135131246554E4354494F4E20444553495245443A20713628 S11E4CA2480C49C246190A49C2504CBC4CCD4F145262508050F75606516671FD S11E4CBD1305574841543F3612489336352E4BCA32000A0C489E0A489E011C41 S11E4CD8190C49F90A49F9011C197112488E36350C49CD110119090D00014369 S11E4CF30A49CD744D0B4DBF4DDB4DF74E0F4E2E4E494E614E7A4E924449CD1D S11E4D0E3200282F53AA32001E131541524520454E545249455320434F525220 S11E4D294543543F207136481248B6381A1248B61301594A2B4D432E4EAD1222 S11E4D4448B613014E4B2B4D502E4D1432003213294348414E474520454E5401 S11E4D5F5259204E554D4245523F2028454E5445522022302220544F2051557F S11E4D7A495429207136480C48BF46190A48BF00252B4D912E4EAD0A48BF0159 S11E4D95272C4D9E0A48BF092A2B4DA42E4D500A48BF744DBC4DBF4DDB4DF790 S11E4DB04E0F4E2E4E494E614E7A4E922E4D0E320033130E434F4D50414E59F7 S11E4DCB204E414D453A207136481248C5381A30320034130E434F4E5441435F S11E4DE654204E414D453A207136481248E9381A30320035130A504F534954F8 S11E4E01494F4E3A20713648124976381A303200361311434F4D50414E59204D S11E4E1C414444524553533A2071364812490D381A30320037130D434954597C S11E4E372C2053544154453A20713648124931381A30320038130A5A4950209E S11E4E52434F44453A20713648124955381A30320039130B54454C4550484F11 S11E4E6D4E453A2071364812495E381A3032003A130A494E5445524553543ADE S11E4E882071364812498A381A3032003B130D4449535452494255544F523A73 S11E4EA3207136481249B4381A3032003C0C49E10A489E192F554D03390D0089 S11E4EBE0A3E03390A489E343503390D00143E03390A49F934353200411313D3 S11E4ED946494E4953484544202859204F52204E293F207136481248B6381AC7 S11E4EF41248B61301594A2B4F012E4BCA1248B613014E4B2B4F112E4ED42E54 S11E4F0F4F142E4CCD3200641325454E544552204E554D424552204F4620458A S11E4F2A4E54525920544F2042452044454C455445443A207136480C49E146D5 S11E4F45190A49E10A489E2A2C4F550A49E100252B4F6D71130D4E4F205355E0 S11E4F60434820454E54525936352E4F702E4F732E4F143200662F54CF0A49DF S11E4F7BE700252B4F9871130F44454C4554454420414C524541445936352EB4 S11E4F964F9B2E4FE6320065131E44454C455445204D4F524520454E5452493F S11E4FB14553202859204F52204E293F207136481248B6381A1248B613015923 S11E4FCC4A2B4FD32E4F141248B613014E4B2B4FE32E4F9B2E4FE62E4BCA3294 S11E4FE700697112488E36350C49ED00192F560F7135713532006E131C4445EB S11E50024C455445205448495320454E545259202859204F52204E293F207192 S11E501D36481248B6381A1248B61301594A2B50312E50441248B613014E4BA2 S11E50382B50412E4FFB2E50442E4F1432007803390A49E1724/ A1C3E03390066 S11E505334350C49F90A49F9011D1903390D00143E03390A49F9343571130DE7 S11E506E454E5452592044454C4554454436352E4F9B3200C80C49E11101199C S11E50890A489E0D0001432F54CF0A49E700252C50DB7112488E36350C49EDB9 S11E50A400192F560F7135132048495420434152524941474520524554555272 S11E50BF4E20544F20434F4E54494E5545207136481248B6381A7112488E363C S11E50DA353200CD4449E171130E454E44204F4620454E545249455336352E24 S11E50F54BCA32012C0C49ED02190A49ED39130F4449534B204E554D4245521C S11E51103A202020361249C836350C49F31101190D000A0D0001430A49ED39CE S11E512B354449F30C49E11101190A489E0D0001432F54CF0A49E700252C51E0 S11E51465D2F560F0C49F3110119060D0001430A49ED39354449F332013144B9 S11E516149E12E4BCA3201901325454E544552204E554D424552204F46204546 S11E517C4E54525920544F20424520524553544F524544207136480C49E1464A S11E5197190A49E10A489E2A2C51A70A49E100252B51BF71130D4E4F205355E4 S11E51B2434820454E54525936352E51C22E51C52E51663201922F54CF711232 S11E51CD488E36350A49E701252B51EC71130B56414C494420454E54525936D3 S11E51E8352E51EF2E51F22E522132019A03390A49E1724A1C3E0339013435FA S11E52030C49F90A49F9011C1903390D00143E03390A49F934350C49ED0019D5 S11E521E2F560F3201A4131D524553544F5245204D4F524520454E5452494578 S11E523953202859204F52204E297136481248B6381A1248B61301594A2C5175 S11E5254661248B613014E4B2C52212E4BCA3201F41324454E544552205245A3 S11E526F434F5244204E554D42455220544F204245204D4F4449464945443A0A S11E528A207136480C49E146190A49E10A489E2A2C52A20A49E100252B52BA63 S11E52A571130D4E4F205355434820454E54525936352E52BD2E52C02E5262ED S11E52C03201F62F54CF0A49E700252B52E471130E44454C4554454420524554 S11E52DB434F524436352E52E72E52EA2E52623201F77112488E36350C49ED3E S11E52F600192F53AA3201F813294348414E474520454E545259204E554D4243 S11E531145523F2028454E5445522022302220544F20515549542920713648EF S11E532C0C48BF46190A48BF00252B533F2F554D2E53422E53843201F9131E07 S11E53474D4F44494659204D4F524520454E5452494553202859204F52204E22 S11E5362293F207136481248B6381A1248B61301594A2C52621248B613014E3A S11E537D4B2C53422E4BCA3201FE0A48BF092A2C52FB0A48BF7453A74DBF4DFC S11E5398DB4DF74E0F4E2E4E494E614E7A4E922E52FB3202587112488E363545 S11E53B3711316312E292020434F4D50414E59204E414D453A2020202036121F S11E53CE48C53635711316322E2920204E414D453A202020202020202020204A S11E53E92020361248E93635711316332E292020504F534954494F4E3A20202E S11E5404202020202020361249763635711316342E29202041444452455353EC S11E541F3A2020202020202020203612490D3635711316352E292020434954C5 S11E543A5920414E442053544154453A2020361249313635711316362E292078 S11E5455205A495020434F44453A2020202020202020361249553635711316C5 S11E5470372E29202054454C4550484F4E453A202020202020203612495E366C S11E548B35711316382E292020494E5445524553543A20202020202020203686 S11E54A612498A3635711316392E2920204449535452494255544F523A202058 S11E54C1202020361249B4363571357135303202BC03390A49E1724A1C3E03C7 S11E54DC39480C49E7461903390A49E1724A0D3E0339480C48A44619033948BF S11E54F70C48AA46190339480C48B046190339481248C5381A0339481248E996 S11E5512381A033948124976381A03394812490D381A033948124931381A03DE S11E552D3948124955381A03394812495E381A03394812498A381A03394812FC S11E554849B4381A3032032003390A49E1724A1C3E033901343503390A49E1D4 S11E5563724A0D3E03390A48A4343503390A48AA343503390A48B03435033903 S11E557E1248C5363503391248E9363503391249763635033912490D36350310 S11E559939124931363503391249553635033912495E3635033912498A3635800  S11E55B403391249B43635303203845E01252B55CB0339612E55CE2E55D133F5 S11E55CF57CB3203857113084552524F52203D20365E34350339616A01252BF9 S11E55EA55EF2E4AD07113124E4F57205748415420444F20574520444F3F36A1 S11E56053532038E0339613357CB3203B60A49ED391311454E545259204E55BF S11E56204D4245523A20202020360A49E134350A49ED39350A49ED3913114429 S11E563B4154453A202020202020202020202020360A48A4343713012F360AA2 S11E565648AA343713012F360A48B034350A49ED391312434F4D50414E59201F S11E56714E414D453A2020202020361248C536350A49ED3913124E414D453A66 S11E568C20202020202020202020202020361248E936350A49ED391312504F3E S11E56A7534954494F4E3A2020202020202020203612497636350A49ED3913B6 S11E56C212414444524553533A202020202020202020203612490D36350A49DB S11E56DDED3913124349545920414E442053544154453A202020361249313604 S11E56F8350A49ED3913125A495020434F44453A2020202020202020203612F0 S11E5713495536350A49ED39131254454C4550484F4E453A2020202020202012 S11E572E203612495E36350A49ED391312494E5445524553543A2020202020FC S11E5749202020203612498A36350A49ED3913124449535452494255544F5242 S11E57643A202020202020361249B43635303203E77113205448495320465599 S11E577F4E4354494F4E204E4F542059455420415641494C41424C452E3635E3 S106579A2E4BCAC5 S11E57A15FEE02FF579DFF579FB6FCF44724FAB6FCF5810D27115CFE579FA743 S11457BC0408FF579FFE579DE10126E2E703393F1A7F S9 00 ::24C EQU * :120 50 FDB 120 0+3 57 10 FDB :+DISPLAY 114 FDB RECORDPOSITION 62 0+3 57 0+0 52 53 12 FDB :+VALIDEOECHOCLRBCHARCNTR=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 12:01AM;Page9;Form1 4BD02B441:43 4BD14BDE442:FDB::1D 4BD30C443:12 4BD44990444:FDB:+Y3 4BD60A445:10 4BD7C39480C49E7461903390A49E1724A0D3E0339480C48A44619033948BF S11E54F70C48AA46190339480C48B046190339481248C5381A0339481248E996 S11E5512381A033948124976381A03394812490D381A033948124931381A03DE S11E552D3948124955381A03394812495E381A03394812498A381A03394812FC S11E554849B4381A3032032003390A49E1724A1C3E033901343503390A49E1D4 S11E5563724A0D3E03390A48A4343503390A48AA343503390A48B03435033903 S11E557E1248C5363503391248E9363503391249763635033912490D36350310 S11E559939124931363503391249553635033912495E3635033912498A363580 S11E55B403391249B43635303203845E01252B55CB0339612E55CE2E55D133F5 S11E55CF57CB3203857113084552524F52203D20365E34350339616A01252BF9 S11E55EA55EF2E4AD07113124E4F57205748415420444F20574520444F3F36A1 S11E56053532038E0339613357CB3203B60A49ED391311454E545259204E55BF S11E56204D4245523A20202020360A49E134350A49ED39350A49ED3913114429 S11E563B4154453A202020202020202020202020360A48A4343713012F360AA2 S11E565648AA343713012F360A48B034350A49ED391312434F4D50414E59201F S11E56714E414D453A2020202020361248C536350A49ED3913124E414D453A66 S11E568C20202020202020202020202020361248E936350A49ED391312504F3E S11E56A7534954494F4E3A2020202020202020203612497636350A49ED3913B6 S11E56C212414444524553533A202020202020202020203612490D36350A49DB S11E56DDED3913124349545920414E442053544154453A2020201 361249313604 S11E56F8350A49ED3913125A495020434F44453A2020202020202020203612F0 S11E5713495536350A49ED39131254454C4550484F4E453A2020202020202012 S11E572E203612495E36350A49ED391312494E5445524553543A2020202020FC S11E5749202020203612498A36350A49ED3913124449535452494255544F5242 S11E57643A202020202020361249B43635303203E77113205448495320465599 S11E577F4E4354494F4E204E4F542059455420415641494C41424C452E3635E3 S106579A2E4BCAC5 S11E57A15FEE02FF579DFF579FB6FCF44724FAB6FCF5810D27115CFE579FA743 S11457BC0408FF579FFE579DE10126E2E703393F1A7F S9 DB:+M1 4C6C0A536:10 4C6D4966537:FDB:+M2 4C6F19538:25 4C7032539::048050 4C7101E0540:FDB0480 4C730C541:12 4C4F4C4C4F57494E472A S11E539720424F4F4B5320415245205245434F4D4D454E4445442052454144E2 S11E53B2494E4720464F5220414E594F4E45203632138D0A499839130F494E08 S11E53CD544552455354454420494E200836353213920A4998391335544845F3 S11E53E820484953544F5259204F462042494F52485954484D205448454F5227 S11E54035920414E4420534F4D45204558414D504C4553204F46203632139C7F S11E541E0A499839131149542753204150504C49434154494F4E2E36353213DE S11E5439A60A499839353213B00A499839133547495454454C534F4E2C2042AD S11E545445524E4152442E202742494F2D52485954484D3A2041205045525330 S11E546F4F4E414C20534349454E43452E2736353213BA0A49983913224E452F S11E548A5720594F55520808524B3A20205741524E455220424F4F4B532C205D S11E54A5313937382E36353213C40A499839353213CE0A4998391333474954B3 S11E54C054454C534F4E2C204245524E4152442E20202742494F5248595448B0 S11E54DB4D2053504F52545320464F524543415354494E472736353213D80A4C S11E54F6499839131E4E455720594F524B3A20205741524E455220424F4F4B69 S11E5511532C20313937382E36353213DD0A49983912498036353213DE0A4968 S11E552C983912498536353213E22E4ADB321B580C4A040019321B6C0A49F2B4 S11E55470A49F204205B041F252B555C0C492B02170D001D19321B800C49A4BB S11E5562110A49CE190A49DA0D000143321B940C4A040A4A040C492B0A49A457 S11E557D170B1C19321BA84449A4321BBC0C4A040A4A040C492B0A49DA170B08 S11E55981D0A49E01D0A49EC1C19321BD02E4D57321F405E01262B55B42E4A62 S11E55B3DB321F4131321F900C492B02170D001C193223280A49F20A49F20474 S11E55CE205B041F252B55DF0C492B02170D001D193223320C4A040019322371 S11E55E9370A49CE0D000C252C562B32233C0C49AA0A49CE011C193223500CC8 S11E560449A4110A49AA190D000C0D0001433223640C4A040A4A040C492B0A14 S11E561F49A4170B1C193223784449A432238C0C4A040A4A040C492B0A49CEF6 S11E563A170B1C0A49E01D011C193223A0303225080C492B02170D001C1932FC S11E5655251C0A49F20A49F204205B041F252B566F0C492B02170D001D1932A6 S11E567025300C4A0400193225440A49CE01252C56B73225580C49AA0A49CE69 S11E568B011D1932256C0C49A41101190A49AA0D0001433225800C4A040A4A0F S11E56A6040C492B0A49A4170B1C193225944449A43225A80C4A040A4A040A3C S10F56C149E01C011D193225BC303F3F9C S9 :0+1 4CFD1D637:29 4CFE1F638:31 4CFF1C639:28 4D0019640:25 4D0132641::057050 4D02023A642:FDB0570 4D040C643:12 4D05494E644:FDB:+I 4D0711645:17 4D080A646:10 4D09498A647:FDB:+Y2 4D0B01648:0+1 4D0C1C649:28 4D0D19650:25 4D0E0A651:10 4D0F4990652:FDB:+Y3 4D1101653:0+1 4D121D654:29 4D130D655:13 4D140001656:FDB1 4D1643657:67 4D1732658::058050 4D180244659:FDB0580 4D1A0A660:10 MAL/68001.2:4D1D 1-03-7812:01AM;Page13;Form1 2 4D1B494E661:FDB:+I 4D1D04662:0+4 4D1E20663:32 4D1F0A664:10 4D20494E665:FDB:+I 4D2204666:0+4 4D2320667:32 4D245B668:91 4D2525669:37 4D262B670:43 4D274D32671:FDB::114 4D290C672:12 4D2A4948673:FDB:+A 4D2C0A674:10 4D2D4948675:FDB:+A 4D2F01676:0+1 4D301C677:28 4D3119678:25 4D32679:::114EQU* 4D3232680::059050 4D33024E681:FDB0590 4D3544682:68 4D36494E683:FDB:+I 4D3832684::060050 4D390258685:FDB0600 4D3B0A686:10 4D3C496C687:FDB:+M3 4D3E03688:0+3 4D3F27689:39 4D402C690:44 4D414D5E691:FDB:1090 4D4332692::061550 4D440267693:FDB0615 4D460A694:10 4D474990695:FDB:+Y3 4D490A696:10 4D4A4990697:FDB:+Y3 4D4C04698:0+4 4D4D20699:32 4D4E5B700:91 4D4F04701:0+4 4D501F702:31 4D5125703:37 4D522B704:43 4D534D5E705:FDB::115 4D550C706:12 4D564948707:FDB:+A 4D580A708:10 4D594948709:FDB:+A 4D5B01710:0+1 4D5C1D711:29 4D5D19712:25 4D5E713:::115EQU* 4D5E32714::109050 4D5F0442715:FDB1090 MAL/68001.2:4D62 1-03-7812:01AM;Page14;Form1 4D610A716:10 4D624942717:FDB:+N1 4D6439718:57 4D6513719:19 4D6625720:FCB::116-*-1 4D6754484953721:FCC"THISBIO-RHYTHMCHARTPREPAREDFOR:" 4D8C722:::116EQU* 4D8C36723:54 4D8D12724:18 4D8E48A6725:FDB:+N$ 4D9036726:54 4D9135727:53 4D9232728::109550 4D930447729:FDB1095 4D950A730:10 4D964942731:FDB:+N1 4D9839732:57 4D9913733:19 4D9A10734:FCB::117-*-1 4D9B57484F20735:FCC"WHOWASBORNON" 4DAB736:::117EQU* 4DAB36737:54 4DAC0A738:10 4DAD4966739:FDB:+M2 4DAF34740:52 4DB037741:55 4DB113742:19 4DB201743:FCB1 4DB32F744:FCC"/" 4DB436745:54 4DB50A746:10 4DB64978747:FDB:+D2 4DB834748:52 4DB937749:55 4DBA13750:19 4DBB01751:FCB1 4DBC2F752:FCC"/" 4DBD36753:54 4DBE0A754:10 4DBF498A755:FDB:+Y2 4DC134756:52 4DC235757:53 4DC332758::109650 4DC40448759:FDB1096 4DC60A760:10 4DC74)I-S11E4800BD20001270484602000470484E02003C70488E0200147048A60200A6 S11E481B147048C40200037048CB0200037048D20200037048D905000100013A S11348360E7048DE02492D70492E02000A2E49C028 S11E49C032002802391303234C50623200320C48DE01170D001F193200330CA8 S11E49DB48DE02170D001C193200340C48DE03170D001F193200350C48DE04A8 S11E49F6170D001E193200360C48DE05170D001F193200370C48DE06170D0087 S11E4A111E193200380C48DE07170D001F193200390C48DE08170D001F19321D S11E4A2C003A0C48DE09170D001E1932003B0C48DE0D000A170D001F19320057 S11E4A473C0C48DE0D000B170D001E1932003D0C48DE0D000C170D001F193227 S11E4A6200466851AD3200640A493C39353200650A493C39353200671323444F S11E4A7D4F20594F552057414E542041204752415048204F4E20544845205033 S11E4A9852494E54455220713648124846381A320068124846130453544F5093 S11E4AB34A2B4ABA3352D032006912484613035945534B2B4AD10C493C001999 S11E4ACE2E4AD60C493C021932006E0A493C39353200730A493C3935320082DC S11E4AE92E4AFF49420A49420A49420A48BE205B0A48BE1F1D733200C30C49EE S11E4B04B40E362E32383331390D193200C80A493C39353200D213135748413E S11E4B1F5420495320594F5552204E414D45203F7136481248A6381A3200E6FF S11E4B3A1326454E54455220594F5552204249525448444154452028452E477D S11E3 4B552E20312C312C31393534293A207136480C496046190C497246190CAE S11E4B70498446193201220A49840D0064272B4B8C0C49840A49840D076C1CE8 S11E4B8B1932012C1313454E5445522053544152542044415445203A207136E2 S11E4BA6480C496646190C497846190C498A46193201400A498A0D0064272B11 S11E4BC14BCE0C498A0A498A0D076C1C1932014A1321484F57204D414E592037 S11E4BDC4D4F4E54485320574F554C4420594F55204C494B45203F2071364866 S11E4BF70C49AE461932017C0A49840A498A2A2B4C0C2E4B373201860A4984ED S11E4C120A498A272B4C1C2E4C4C3201900A49600A49662A2B4C2C2E4B373248 S11E4C2D019A0A49600A4966272B4C3C2E4C4C3201A40A49720A49782A2B4CB9 S11E4C484C2E4B373201CC0C496C0A4972193201D60C495A0A4960193201E01C S11E4C630C497E0A4984193201E20A497E0A498A252C513E2E4C8A3201E40CA5 S11E4C7E49420A4990193201E62E4D363201EA2F51BD3201F40C49420A4990CB S11E4C99193201FE0C496C0A4978193202080C495A0A4966193202120C497E37 S11E4CB40A498A1932021C2F524D3202260C49420A49420A49901C19320230CB S11E4CCF0C49420A49420D016D0A498A0A49841D011D1F1C1932023A0C4948D1 S11E4CEA110A4984011C190A498A011D0D0001433202440A494804200A49486F S11E4D0504205B252B4D150C49420A4942011C1932024E4449483202670A49B7 S11E4D208A0A498A04205B041F252B4D360C49420A4942011D193204420A496A S11E4D3B3C391325544849532042494F2D52485954484D20434841525420506F S11E4D565245504152454420464F52203A20361248A636353204470A493C39D4 S11E4D71131057484F2057415320424F524E204F4E20360A4960343713012F42 S11E4D8C360A4972343713012F360A498434353204480A493C39130C414E44B1 S11E4DA72057494C4C20424520360A4942343713242044415953204F4C4420F1 S11E4DC2415420544845205354415254204F46205448495320434841525436B9 S11E4DDD3532044C0A493C393532044D0A493C39353204560A493C39131E20DE S11E4DF82020202020202020202020202020204E454741544956452050484170 S11E4E135345363204570A493C39130D2020202020435249544943414C3632EA S11E4E2E04580A493C39131220202020504F5349544956452050484153453662 S11E4E493532045B0A493C391309202020202020202020363204600C49481106 S11E4E6401190D003C0D00014332046A0A493C3913012D3632047444494832EB S11E4E7F047E0A493C39353204880C49BA091932048912484E133C2E2E2E2E38 S11E4E9A2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E1F S11E4EB52E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E04 S11E4ED02E2E1A3204B00A498A04200A498A04205B252B4EEE0C48DE02170D26 S11E4EEB001D193204BA12484E0D001E150D002A1B3204EC0C48BE0D001719D7 S11E4F063204F10C499C0A4942724AEC0D0017200A49B41F570D001C1F0D0021 S11E4F211E1C193204F60C48BE0D001C193204FB0C49960A4942724AEC0D0038 S11E4F3C1C200A49B41F570D001C1F0D001E1C193205000C48BE0D0021193233 S11E4F5705050C49A20A4942724AEC0D0021200A49B41F570D001C1F0D001EBF S11E4F721C1932050D12484E0A499C150D00501B32050E12484E0A4996150D8B S11E4F8D00451B32050F12484E0A49A2150D00491B3205100A499C0A499625F8 S11E4FA82B4FC00A49960A49A2252B4FC012484E0A499C150D00231B32051134 S11E4FC30C49480A498A0A498A0D0064205B0D00641F1D193205121248C40A55 S11E4FDE49667A1A3205131248CB0A49787A1A3205141248D20A49487A1A32CB S11E4FF905151448C4022A2B500C1248C41248C4023D1A3205161448CB022A77 S11E50142B50201248CB1248CB023D1A3205171448D2022A2B50341248D212AA S11E502F48D2023D1A32051D0A493C391248C43613012F361248CB3613012F68 S11E504A361248D2361301203612484E363532056E12484E0A499C150D002EA6 S11E50651B32057812484E0A4996150D002E1B32058212484E0A49A2150D00EE S11E50802E1B32058C12484E0D001E150D002A1B3205B40C49420A4942011C97 S11E509B193205BE0C49780A4978011C193205C80A49780C48DE0A4966170B43 S11E50B6282B50BD24 E4EFC3205D20C497801193205DC0C49660A4966011C1956 S11E50D13206400C49AE0A49AE011D1932064A0A49AE00252B50EB2E4A6732EE S11E50EC06540A49660D000C282B50FB2E4EFC32065E0C496601193206680C4C S11E5107498A0A498A011C193206720C48DE02170D001C1932067C0A498A0AD1 S11E5122498A04205B041F1D00252B51380C48DE02170D001D193206862E4E3B S11E513DFC321B580C49900019321B6C0A497E0A497E04205B041F252B5161B5 S11E51580C48DE02170D001D19321B800C4948110A495A190A49660D0001435F S11E5173321B940C49900A49900C48DE0A4948170B1C19321BA8444948321B39 S11E518EBC0C49900A49900C48DE0A4966170B1D0A496C1D0A49781C19321B2B S11E51A9D02E4C7A321F405E01262B51B92E4A67321F4131321F900C48DE0221 S11E51C4170D001C193223280A497E0A497E04205B041F252B51E40C48DE02F9 S11E51DF170D001D193223320C499000193223370A495A0D000C252C5230327B S11E51FA233C0C494E0A495A011C193223500C4948110A494E190D000C0D007E S11E521501433223640C49900A49900C48DE0A4948170B1C19322378444948EF S11E523032238C0C49900A49900C48DE0A495A170B1C0A496C1D011C19322332 S11E524BA0303225080C48DE02170D001C1932251C0A497E0A497E04205B04F0 S5T3S11E4800BD20001270484C02000470485402003C7048940200147048AC02008E S11E481B147048C402000A7048F60200037048FD0200037049040200037049FA S11948360B05000100010E70491002495F70496002000A2E4A0A2E S11E4A0A32002802391303234C50623200320C491001170D001F193200330C2A S11E4A25491002170D001C193200340C491003170D001F193200350C491004C4 S11E4A40170D001E193200360C491005170D001F193200370C491006170D00D6 S11E4A5B1E193200380C491007170D001F193200390C491008170D001F19326D S11E4A76003A0C491009170D001E1932003B0C49100D000A170D001F193200A7 S11E4A913C0C49100D000B170D001E1932003D0C49100D000C170D001F193277 S11E4AAC00466853353200640A496E39353200650A496E393532006713234417 S11E4AC74F20594F552057414E542041204752415048204F4E205448452050E9 S11E4AE252494E5445522071364812484C381A32006812484C130453544F503D S11E4AFD4A2B4B0433545832006912484C13035945534B2B4B1B0C496E0019F7 S11E4B182E4B200C496E021932006E0A496E39353200730A496E3935320082B0 S11E4B332E4B4949740A49740A49740A48F0205B0A48F01F1D733200C30C495E S11E4B4EFE0E362E32383331390D193200C80A496E39353200D2131357484178 S11E4B695420495320594F5552204E414D45203F7136481248AC381A3200E6AF S11E4B841326454E54455220594F5552204249525448444154452028452E4733 S11E4B9F2E20312C312C31393534293A207136480C49AA46190C49BC46190CD0 S11E4BBA49CE46193201220A49CE0D0064272B4BD60C49CE0A49CE0D076C1C2C S11E4BD51932012C1313454E5445522053544152542044415445203A20713698 S11E4BF0480C49B046190C49C246190C49D446193201400A49D40D0064272B9F S11E4C0B4C180C49D40A49D40D076C1C1932014A1321484F57204D414E59200D S11E4C264D4F4E54485320574F554C4420594F55204C494B45203F207136481B S11E4C410C49F8461932017C0A49CE0A49D42A2B4C562E4B813201860A49CEE6 S11E4C5C0A49D4272B4C662E4C963201900A49AA0A49B02A2B4C762E4B8132F8 S11E4C77019A0A49AA0A49B0272B4C862E4C963201A40A49BC0A49C22A2B4CB3 S11E4C92962E4B813201CC0C49B60A49BC193201D60C49A40A49AA193201E016 S11E4CAD0C49C80A49CE193201E20A49C80A49D4252C52C62E4CD43201E40C60 S11E4CC849740A49DA193201E62E4E2C3201EA2F53453201F40C49740A49DA08 S11E4CE3193201FE0C49B60A49C2193202080C49A40A49B0193202120C49C87B S11E4CFE0A49D41932021C2F53D53202260C49740A49740A49DA1C1932023000 S11E4D190C49740A49740D016D0A49D40A49CE1D011D1F1C1932023A0C497A5C S11E4D34110A49CE011C190A49D4011D0D00014335 202440A497A04200A497A2C S11E4D4F04205B252B4D5F0C49740A4974011C1932024E44497A3202670A498D S11E4D6AD40A49D404205B041F252B4D800C49740A4974011D193202BC0C4964 S11E4D85980E302E360D010A49AA201C5B193202C60C498C0A49CE0A49981D16 S11E4DA0193202D00C49920A49AA0D000C0A49981F1C193202DA0C499E0A4947 S11E4DBB8C0D006420193202E40C48D80A499E04205B193202EE0C48DE0A492F S11E4DD69E5B193202F80C48E4050A498C1F04205B193203020C48EA0D000D1E S11E4DF10A4992011C1F05205B1932030C0C48D20A48EA0A48E41C0A48DE1DA7 S11E4E0C0A48D81C0A49BC1C011D193203160C48D20A48D2070A48D207205B9D S11E4E271F1D011C193204420A496E391325544849532042494F2D52485954AA S11E4E42484D20434841525420505245504152454420464F52203A20361248A6 S11E4E5DAC36353204440A48D2744E77524E525E526E527F529252A452B43255 S11E4E7804470A496E39131057484F2057415320424F524E204F4E20361248FC S11E4E93C4360A49AA343713012F360A49BC343713012F360A49CE3435320472 S11E4EAE480A496E39130C414E442057494C4C20424520360A497434371324F3 S11E4EC92044415953204F4C4420415420544845205354415254204F462054ED S11E4EE4484953204348415254363532044C0A496E393532044D0A496E39356B S11E4EFF3204560A496E390D000C4913124E45474154495645205048415345A3 S11E4F1A20282D29363204570A496E390D002249130C435249544943414C201B S11E4F35284329363204580A496E390D0032491312504F53495449564520507B S11E4F504841534520282B29363532045B0A496E391309202020202020202073 S11E4F6B20363204600C497A1101190D003C0D00014332046A0A496E391301F9 S11E4F862D3632047444497A32047E0A496E39353204880C4A0409193204891C S11E4FA1124854133C2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D16 S11E4FBC2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D17 S11E4FD72D2D2D2D2D2D2D2D2D2D2D1A3204B00A49D404200A49D404205B25B6 S11E4FF22B4FFE0C491002170D001D193204BA1248540D001E150D002A1B3205 S11E500D04EC0C48F00D0017193204F10C49E60A4974724B360D0017200A4960 S11E5028FE1F570D001C1F0D001E1C193204F60C48F00D001C193204FB0C4915 S11E5043E00A4974724B360D001C200A49FE1F570D001C1F0D001E1C193205C5 S11E505E000C48F00D0021193205050C49EC0A4974724B360D0021200A49FED2 S11E50791F570D001C1F0D001E1C1932050D1248540A49E6150D00501B32050B S11E50940E1248540A49E0150D00451B32050F1248540A49EC150D00491B32A1 S11E50AF05100A49E60A49E0252B50D00A49E00A49EC252B50D01248540A490E S11E50CAE6150D00231B3205110C497A0A49D40A49D40D0064205B0D00641FA0 S11E50E51D193205121248F60A49B07A1A3205131248FD0A49C27A1A320514B1 S11E51001249040A497A7A1A3205151448F6022A2B511C1248F61248F6023D8F S11E511B1A3205161448FD022A2B51301248FD1248FD023D1A32051714490427 S11E5136022A2B5144124904124904023D1A32051D0A496E391248F63613016F S11E51512F361248FD3613012F361249043613012036124854363532056E1205 S11E516C48540A49E6150D002D1B3205781248540A49E0150D002D1B32058232 S11E51871248540A49EC150D002D1B32058C1248540D001E150D002A1B320578 S11E51A2B40C49740A4974011C193205BE0C49C20A49C2011C193205C80A49CB S11E51BDC20C49100A49B0170B282B51CD2E500C3205D20C49C201193205DC3F S11E51D80C49B00A49B0011C193206400C49F80A49F8011D1932064A0A49F866 S11E51F300252B51FB2E4AB13206540A49B00D000C282B520B2E500C32065E60 S11E520E0C49B001193206680C49D40A49D4011C193206720C491002170D0007 S11E52291C1932067C0A49D40A49D404205B041F1D00252B52480C4910021708 S11E52440D001D193206862E500C3207D01248C4130653554E4441591A303230 S11E525F07DA1248C413064D4F4E4441591A303207E41248C413075455455370 S11E527A4441591A303207EE1248C413095745444E45534441591A303207F86D S11E52951248C4130854485552534441591A303208021248C413066 465249446B S11E52B041591A3032080C1248C4130853415455524441591A30321B580C49CB S11E52CBDA0019321B6C0A49C80A49C804205B041F252B52E90C491002170D2A S11E52E6001D19321B800C497A110A49A4190A49B00D000143321B940C49DA52 S11E53010A49DA0C49100A497A170B1C19321BA844497A321BBC0C49DA0A4950 S11E531CDA0C49100A49B0170B1D0A49B61D0A49C21C19321BD02E4CC4321FD5 S11E5337405E01262B53412E4AB1321F4131321F900C491002170D001C193214 S11E535223280A49C80A49C804205B041F252B536C0C491002170D001D193217 S11E536D23320C49DA00193223370A49A40D000C252C53B832233C0C49800A1C S11E538849A4011C193223500C497A110A4980190D000C0D0001433223640C43 S11E53A349DA0A49DA0C49100A497A170B1C1932237844497A32238C0C49DA2E S11E53BE0A49DA0C49100A49A4170B1C0A49B61D011C193223A0303225080C1D S11E53D9491002170D001C1932251C0A49C80A49C804205B041F252B53FC0C0B S11E53F4491002170D001D193225300C49DA00193225440A49A401252C54449A S11E540F3225580C49800A49A4011D1932256C0C497A1101190A49800D00012E S11E542A433225800C49DA0A49DA0C49100A497A170B1C1932259444497A3240 S118544525A80C49DA0A49DA0A49B61C011D193225BC303F3F08 S9  940INPUTX 950IFX=1GOTO410 960IFX<>2GOTO920 970PRINT 980PRINT"MISSIONCONTROL-OUT!!!" 990PRINT 999END 1000REM 1010IFR=4PRINT"YOUHAVENOWEARNEDYOUR'STUDENTPILOT'LICENSE" 1100IFR=3PRINT"YOUARENOWARATED'NOVICEPILOT'" 1200IFR=2PRINT"YOUHAVENOWFINALLYEARNEDYOUR'MEDIOCRE'" 1210IFR=2PRINT"RATING.YOUMAYNOWCARRYPASSENGERSANDTRY" 125b4DIMVERSION/1.1/ DIMCLEAR$/:1A/,BELL$/:7/,X,ENTRIES,M,D,Y,DUMMY$(5),DUMMY/0/ DIMCONAME$(32),NAME$(32),ADDRESS$(32),CITY$(32),ZIP$(5) DIMPHONE$(20),POSITION$(16),INTEREST$(32),RECORDSIZE/256/ DIMDISTI$(10),FUNCTION,DISKNUMBER$(1),COUNT,PASWRD$(10),DISPLAY DIMDELETEMARK,DEVICE/0/,LOOP,VALIDENTRIES ONERRORGOTO900\!ERRORHANDLER CREATE#2,"#LP"\!PRINTER DEFSTARTOFRECORD(X)=X*RECORDSIZE+5 DEFRECORDPOSITION(X)=X*RECORDSIZE PRINTCLEAR$,BELL$ PRINT"SALESCALLMAINTAINANCE-VERSION";VERSION 2PRINT"ENTERPASSWORD:"; CALLNOECHO(PASWRD$) IFPASWRD$="MAID"THENGOTO1 DUMMY=DUMMY+1 PRINT"YOUCAN'TFOOLME,I'MSMARTERTHANYOU!!!" IFDUMMY=3THENCALLMDOS GOTO2 PRINT 1PRINTCLEAR$ PRINT"INSERTWYLEDISKETTEINTODRIVE#1." INPUT"HITCARRIAGERETURNTOCONTINUE."DUMMY$ IFDUMMY$="EXIT"THENCALLMDOS OPEN#3,"CONAMES.SA:1" PRINT INPUT"ENTERTODAY'SDATE(E.G.8,23,1978):"M,D,Y IFY<100THENY=Y+1900\!JUSTINCASE RESTORE#3,0 INPUT#3,DISKNUMBER$ RESTORE#3,10 INPUT#3,ENTRIES RESTORE#3,20 INPUT#3,VALIDENTRIES PRINTCLEAR$ 5PRINT PRINT"DISKNUMBER:";DISKNUMBER$ PRINT"TOTALENTRIESONDISK:";ENTRIES PRINT"TOTALVALIDENTRIESONDISK:";VALIDENTRIES PRINT PRINT PRINT"ENTER(1),DELETE(2),MODIFY(3),LIST(4),PRINT(5)"; PRINT",QUIT(6),RESTORE(7)" PRINT INPUT"FUNCTIONDESIRED:"FUNCTION ONFUNCTIONGOTO10,100,500,200,300,910,400 PRINT"WHAT?";BELL$ GOTO5 10ENTRIES=ENTRIES+1\!NEXTAVAILABLELOCATION VALIDENTRIES=VALIDENTRIES+1 PRINTCLEAR$ FORCOUNT=1TO9 ONCOUNTGOSUB51,52,53,54,55,56,57,58,59 NEXTCOUNT 40GOSUB600 30INPUT7 "AREENTRIESCORRECT?"DUMMY$ IFDUMMY$="Y"THENGOTO60 IFDUMMY$<>"N"THENGOTO30 50INPUT'CHANGEENTRYNUMBER?(ENTER"0"TOQUIT)'DUMMY IFDUMMY=0THENGOTO60 IFDUMMY<1ORDUMMY>9THENGOTO50 ONDUMMYGOSUB51,52,53,54,55,56,57,58,59 GOTO40 51INPUT"COMPANYNAME:"CONAME$ RETURN 52INPUT"CONTACTNAME:"NAME$ RETURN 53INPUT"POSITION:"POSITION$ RETURN 54INPUT"COMPANYADDRESS:"ADDRESS$ RETURN 55INPUT"CITY,STATE:"CITY$ RETURN 56INPUT"ZIPCODE:"ZIP$ RETURN 57INPUT"TELEPHONE:"PHONE$ RETURN 58INPUT"INTEREST:"INTEREST$ RETURN 59INPUT"DISTRIBUTOR:"DISTI$ RETURN 60DISPLAY=ENTRIES GOSUB800\!WRITETODISK RESTORE#3,10 PRINT#3,ENTRIES RESTORE#3,20 PRINT#3,VALIDENTRIES 65INPUT"FINISHED(YORN)?"DUMMY$ IFDUMMY$="Y"THENGOTO5 IFDUMMY$<>"N"THENGOTO65ELSEGOTO10 100!THISISTHEDELETEROUTINE INPUT"ENTERNUMBEROFENTRYTOBEDELETED:"DISPLAY IFDISPLAY>ENTRIESORDISPLAY=0THENPRINT"NOSUCHENTRY"ELSE102 GOTO100 102GOSUB700 IFDELETEMARK=0THENPRINT"DELETEDALREADY"ELSEGOTO105 101INPUT"DELETEMOREENTRIES(YORN)?"DUMMY$ IFDUMMY$="Y"THENGOTO100 IFDUMMY$<>"N"THENGOTO101ELSEGOTO5 105PRINTCLEAR$ DEVICE=0\!SELECTCRT GOSUB950 PRINT\PRINT 110INPUT"DELETETHISENTRY(YORN)?"DUMMY$ IFDUMMY$="Y"THENGOTO120 IFDUMMY$<>"N"THENGOTO110ELSEGOTO100 120RESTORE#3,RECORDPOSITION(DISPLAY) PRINT#3,0 VALIDENTRIES=VALIDENTRIES-1 RESTORE#3,20 PRINT#3,VALIDENTRIES PRINT"ENTRYDELETED"\GOTO101 200!THISISTHELISTFUNCTION FORDISPLAY=1TOENTRIES GOSUB700 IFDELETEMARK=0THEN205 PRINTCLEAR$ DEVICE=0\!SELECTCRT GOSUB950 PRINT\INPUT"HITCARRIAGERETURNTOCONTINUE"DUMMY$ PRINTCLEAR$\!CLEARSCREEN 205NEXTDISPLAY PRINT"ENDOFENTRIES" GOTO5 300!PRINTFUNCTION DEVICE=2 PRINT#DEVICE,"DISKNUMBER:";DISKNUMBER$ FORLOOP=1TO10 PRINT#DEVICE NEXTLOOP FORDISPLAY=1TOENTRIES GOSUB700\!READTHEDISK IFDELETEMARK=0THEN305 GOSUB950\!PRINTIT FORLOOP=1TO6 PRINT#DEVICE NEXTLOOP 305NEXTDISPLAY GOTO5 400!THISISTHE"RESTOREENTRY"ROUTINE INPUT"ENTERNUMBEROFENTRYTOBERESTORED"DISPLAY IFDISPLAY>ENTRIESORDISPLAY=0THENPRINT"NOSUCHENTRY"ELSE402 GOTO400 402GOSUB700\!READTHEENTRY PRINTCLEAR$ IFDELETEMARK=1THENPRINT"VALIDENTRY"ELSE410 GOTO420 410RESTORE#3,RECORDPOSITION(DISPLAY) PRINT#3,1\!VALIDDATAMARK VALIDENTRIES=VALIDENTRIES+1 RESTORE#3,20 PRINT#3,VALIDENTRIES DEVICE=0\!SELECTCRT GOSUB950\!DISPLAYRESTOREDENTRY 420INPUT"RESTOREMOREENTRIES(YORN)"DUMMY$ IFDUMMY$="Y"THEN400 IFDUMMY$<>"N"THEN420ELSE5 500!MODIFYROUTINE INPUT"ENTERRECORDNUMBERTOBEMODIFIED:"DISPLAY IFDISPLAY>ENTRIESORDISPLAY=0THENPRINT"NOSUCHENTRY"ELSE502 GOTO500 502GOSUB700\!READTHERECORD IFDELETEMARK=0THENPRINT"DELETEDRECORD"ELSEGOTO503 GOTO500 503PRINTCLEAR$ DEVICE=0\!SELECTCRT GOSUB600 504INPUT'CHANGEENTRYNUMBER?(ENTER"0"TOQUIT)'DUMMY IFDUMMY=0THENGOSUB800ELSE510 505INPUT"MODIFYMOREENTRIES(YORN)?"DUMMY$ IFDUMMY$="Y"THEN500 IFDUMMY$<>"N"THEN505ELSE5 510IFDUMMY>9THEN504 ONDUMMYGOSUB51,52,53,54,55,56,57,588 ,59 GOTO504 600PRINTCLEAR$ PRINT"1.)COMPANYNAME:";CONAME$ PRINT"2.)NAME:";NAME$ PRINT"3.)POSITION:";POSITION$ PRINT"4.)ADDRESS:";ADDRESS$ PRINT"5.)CITYANDSTATE:";CITY$ PRINT"6.)ZIPCODE:";ZIP$ PRINT"7.)TELEPHONE:";PHONE$ PRINT"8.)INTEREST:";INTEREST$ PRINT"9.)DISTRIBUTOR:";DISTI$ PRINT\PRINT RETURN 700!THISISTHEDISKREADSUBROUTINE RESTORE#3,RECORDPOSITION(DISPLAY) INPUT#3,DELETEMARK\!GOODRECORD? RESTORE#3,STARTOFRECORD(DISPLAY) INPUT#3,M INPUT#3,D INPUT#3,Y INPUT#3,CONAME$ INPUT#3,NAME$ INPUT#3,POSITION$ INPUT#3,ADDRESS$ INPUT#3,CITY$ INPUT#3,ZIP$ INPUT#3,PHONE$ INPUT#3,INTEREST$ INPUT#3,DISTI$ RETURN 800!WRITETODISKSUBROUTINE RESTORE#3,RECORDPOSITION(DISPLAY) PRINT#3,1\!VALIDENTRYMARK RESTORE#3,STARTOFRECORD(DISPLAY) PRINT#3,M PRINT#3,D PRINT#3,Y PRINT#3,CONAME$ PRINT#3,NAME$ PRINT#3,POSITION$ PRINT#3,ADDRESS$ PRINT#3,CITY$ PRINT#3,ZIP$ PRINT#3,PHONE$ PRINT#3,INTEREST$ PRINT#3,DISTI$ RETURN 900!ERRORHANDLER IFERR=1THENCLOSE#3ELSE901\CALLMDOS 901PRINT"ERROR=";ERR CLOSE#3 IFELN=1THENGOTO1 PRINT"NOWWHATDOWEDO?" 910CLOSE#3 CALLMDOS 950!SUBROUTINETODISPLAYTHEENTRYONTHE"DEVICE" PRINT#DEVICE,"ENTRYNUMBER:";DISPLAY PRINT#DEVICE PRINT#DEVICE,"DATE:";M;"/";D;"/";Y PRINT#DEVICE,"COMPANYNAME:";CONAME$ PRINT#DEVICE,"NAME:";NAME$ PRINT#DEVICE,"POSITION:";POSITION$ PRINT#DEVICE,"ADDRESS:";ADDRESS$ PRINT#DEVICE,"CITYANDSTATE:";CITY$ PRINT#DEVICE,"ZIPCODE:";ZIP$ PRINT#DEVICE,"TELEPHONE:";PHONE$ PRINT#DEVICE,"INTEREST:";INTEREST$ PRINT#DEVICE,"DISTRIBUTOR:";DISTI$ RETURN 999PRINT"THISFUNCTIONNOTYETAVAILABLE." GOTO5 E$ 2130PRINT#3,NAME$ 2140PRINT#3,POSITION$ 2150PRINT#3,ADDRESS$ 2160PRINT#3,CITY$ 2170PRINT#3,ZIP$ 2180PRINT#3,PHONE$ 2190PRINT#3,INTEREST$ 2200PRINT#3,DISTI$ 2210RETURN 2220900!ERRORHANDLER 2230IFERR=1THENCLOSE#3ELSE9p*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 FDBFNA 4F600D954:13 4F61001C955:FDB28 4F6320956:32 4F640A957:10 4F6549BA958:FDB:+P 4F671F959:31 4F6857960:87 4F690D961:13 4F6A001C962:FDB28 4F6C1F963:31 4F6D0D964:13 4F6E001E965:FDB30 4F701C966:28 4F7119967:25 4F7232968::128050 4F730500969:FDB1280 4F750C970:12 4F7648BE971:FDB:+Z1 4F780D972:13 4F790021973:FDB33 4F7r!ROUTINETOGENERATEADATABASEFILEONDRIVE:1 DIMRECORDSIZE/256/,X,BELL$/:7/,DELETEMARK/0/,VALIDENTRIES/0/ DIMN,CLEAR$/:D89 /,CONTINUE$(1),DISKNUMBER$(1),ENTRIES/0/ DEFRECORDPOSITION(X)=X*RECORDSIZE PRINTCLEAR$\!CLEARTHETERMINALSCREEN PRINT"INSERTASCRATCHDISKETTEINTODRIVE#1." PRINT'ITMUSTBEPREPAREDWITHA"DOSGEN;U"BEFOREUSE.' INPUT"TYPEACARRIAGERETURNWHENREADYTOCONTINUE."CONTINUE$ INPUT"ENTERDISKNUMBER:"DISKNUMBER$ PRINTCLEAR$ PRINT"FILEMAINTAINANCEINPROGRESS-PLEASEWAIT" CREATE#2,"CONAMES.SA:1" RESTORE#2,0 PRINT#2,DISKNUMBER$\!DISKI.D.NUMBER RESTORE#2,10 PRINT#2,ENTRIES\!NOENTRIESYET RESTORE#2,20 PRINT#2,VALIDENTRIES\!NOVALIDENTRIESYET FORN=1TO893 RESTORE#2,RECORDPOSITION(N) PRINT#2,DELETEMARK NEXTN PRINTBELL$;CLEAR$ PRINT"DISKETTEINITIALIZATIONNOWCOMPLETE" CLOSE#2 CALLMDOS  t S11E4800BD20001270484D0600000000010070485905000100010770485E0663 S11E481B000000000000704864060000000000007048700500010001D870489D S11A48367502000170487A02000170487F060000000000002E488582 S11E48852E489248530A48530A484D1F73711248703635711328494E534552C8 S11E48A05420412053435241544348204449534B4554544520494E544F2044E1 S11E48BB524956452023312E36357113314954204D5553542042452050524532 S11E48D65041524544205749544820412022444F5347454E3B552220424546F9 S11E48F14F5245205553452E3635132E545950452041204341525249414745DA S11E490C2052455455524E205748454E20524541445920544F20434F4E544945 S11E49274E55452E713648124875381A1313454E544552204449534B204E5599 S11E49424D4245523A2071364812487A381A71124870363571133720202020E0 S11E495D202020202020202046494C45204D41494E5441494E414E434520492A S11E49784E2050524F4752455353202D20504C45415345205741495436350254 S11E499339130C434F4E414D45532E53413A31620239003E023912487A363525 S11E49AE02390D000A3E02390A487F343502390D00143E02390A486434350CE5 S11E49C9486A1101190D037D0D00014302390A486A7248883E02390A485E347E S11E49E43544486A711248593612487036357113302020202020202020202006 S11E49FF20204449534B4554544520494E495449414C495A4154494F4E204E46 S1184A1A4F5720434F4D504C4554453635023961334A2D3F1A5A S9 0 37 ::152 EQU * 43 FDB ::153 113 19 FCB ::154-*-1 FCC "NOSUCHENTRY" ::154 EQU * 54 53 46 FDB ::253 ::153 EQU * 46 wE}* COMPILEDBY10/30/77SOFTWAREDYNAMICSBASICVERSION1.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 DAY$ EQU :: 112 FDB :+:: FCB 2 FDB 10 :: SET ::+4+10 G EQU :: :: SET ::+6 G1 EQU :: :: SET ::+6 G2 EQU :: :: SET ::+6 G3 EQU :: :: SET ::+6 G4 EQU :: :: SET ::+6 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 CLEAR$ EQU :: 112 FDB :+:: FCB ::22-*-1 ::12 EQU:  * FDB ::22-*-4 FDB ::22-*-2 FCB $1A ::22 EQU * :: SET ::+*-::12 BELL$ EQU :: 112 FDB :+:: FCB ::23-*-1 ::13 EQU * FDB ::23-*-4 FDB ::23-*-2 FCB $7 ::23 EQU * :: SET ::+*-::13 FORM$ EQU :: 112 FDB :+:: FCB ::24-*-1 ::14 EQU * FDB ::24-*-4 FDB ::24-*-2 FCB $12 ::24 EQU * :: SET ::+*-::14 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 L EQU :: :: SET ::+6 O EQU :: :: SET ::+6 K1 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 12 FDB :+N 17 0+1 25 0+5 13 FDB 1 67 :0101 50 FDB 0101 10 FDB :+N1 57 53 :0103 50 FDB 0103 1|0010REM*THISPROGRAMCALCULATESTHEPAYMENTOFADIRECT 0020REM*REDUCTIONLOAN,GIVENTHEPRESENTVALUE,YEARLY 0030REM*INTERESTRATE,ANDTHENUMBEROFMONTHSOFTHE 0040REM*LOAN. 0050DIGITS=2 0060INPUT"WHATISTHEAMOUNTOFTHELOAN",P 0070INPUT"WHATISTHEYEARLYINTERESTRATEINPERCENT",I 0080I=I/1200 0090INPUT"WHATISTHELOANDURATIONINMONTHS",N 0100V=(I/(1-((1+I)^(-N))))*P 0110X=V+.005 0120PRINT 0130PRINT 0140PRINT"THEPAYMENTIS$";X 0150PRINT"THETOTALDEFERREDPURCHASEPRICEIS$";.005+N*V 0160DIGITS=0 0170END ~0001DIMA,B,N,X 0010REM*PROGRAMTOFINDTHEFACTORIALOFAINTEGER 0015X=1 0020INPUT"NUMBER?"N 0022REM*A"-1"WILLTERMINATEPROGRAM 0025IFN=-1THENCALLMDOS 0030IFN<>INT(N)THEN1000 0035IFN<0THEN1030 0037IFN>69THEN1050 0040IFN=0THEN0047 0045B=N 0046GOTO0050 0047B=1 0050FORA=1TON 0060X=X*B 0065B=B-1 0070NEXTA 0080PRINT"FACTORIAL";N;"=";X 0100GOTO0015 0999REM*ERRORMESSAGES 1000PRINT"INTEGERSONLY!" 1010GOTO0020 1030PRINT"POSITIVENUMBERSONLY!" 1040GOTO0020 1050PRINT"NUMBEROUTOFRANGE!" 1060GOTO0020 ;  REM*****LIFE***** REMSIMULATES"LIFE"ASDEFINEDBYJOHNCONWAY REMCOMMANDS: REMSTOPMEANSGUESSWHAT? REM''(EMPTYLINE)SIMULATEANDDISPLAY REM22MEANSDO22GENERATIONSBEFOREADISPLAY REM9,2COMPLEMENTSTHEWORLD(9,2) REMGETSTHEPROGRAM'SATTENTION DIMWORLD(21,21),XSIZE/20/,YSIZE/20/ DIMCOPY(21,21),LIFE/1/,DEATH/0/ DIMOUT/0/,DISPLAY$/".*"/,COUNT,LINE$(80) DIMI,J 10FORI=0TOXSIZE+1 LETCOPY(I,0)=DEATH LETCOPY(I,XSIZE+1)=DEATH NEXTI 20FORJ=1TOYSIZE LETCOPY(0,J)=DEATH LETCOPY(YSIZE+1,J)=DEATH NEXTJ 30FORI=1TOXSIZE FORJ=1TOYSIZE WORLD(I,J)=DEATH NEXTJ NEXTI 99ONERRORGOTO200 100INPUT"WHATNEXT?"LINE$ 110IFLINE$="STOP"THENSTOP IFLINE$=""THEN300 IFFIND(LINE$,',')<>0 THENLETI=VAL(LINE$)\ LETJ=VAL(RIGHT$(LINE$,FIND(LINE$,',')+1))\ LETWORLD(I,J)=LIFE-WORLD(I,J) ELSEFORCOUNT=1TOVAL(LINE$)\GOSUB10000\NEXTCOUNT\ GOSUB11000 GOTO100 200IFERR=0THENERRORELSE100 300GOSUB11000 INPUT"WHATNEXT?"LINE$ IFLINE$=""THENGOSUB10000\GOTO300 ELSE110 10000REMDOSIMULATIONFORAGENERATION REMFIRST,COPYTHEWORLD 10010FORI=1TOXSIZE FORJ=1TOYSIZE COPY(I,J)=WORLD(I,J) NEXTJ NEXTI 10040FORI=1TOXSIZE FORJ=1TOYSIZE ONCOPY(I-1,J-1)+COPY(I-1,J)+COPY(I-1,J+1)+COPY(I,J-1)... &+COPY(I,J+1)+COPY(I+1,J-1)+COPY(I+1,J)+COPY(I+1,J+1)... &GOTO10100,10102,10101 10100REMDIE!!! WORLD(I,J)=DEATH NEXTJ NEXTI RETURN 10101REMLIVE!!! WORLD(I,J)=LIFE 10102NEXTJ\!2FRIENDS! NEXTI RETURN 11000REMPRINTAGENERATION PRINT#OUT,""; FORJ=1TOYSIZE PRINT#OUT,"";NUMF$("##",J); NEXTJ PRINT#OUT PRINT#OUT 11010FORI=1TOXSIZE PRINT#OUT,NUMF$("##",I);""; FORJ=1TOYSIZE PRINT#OUT,DISPLAY$(1+WORLD(I,J),1);""; NEXTJ PRINT#OUT NEXTI RETURN END 011D193225BC303F3F81 S9  19 FCB ::12E-*-1 FCC "WEDNESDAY" ::12E EQU * 26 48 :2040 50 FDB 2040 18 FDB :+DAY$ 19 FCB ::12F-*-1 FCC "THURSDAY" ::12F EQU * 26 48 :2050 50 FDB 2050 18 FDB :+DAY$ 19 FCB ::130-*-1 FCC "FRIDAY" ::130 EQU * 26 48 :2060 50 FDB 2060 18 FDB :+DAY$ 19 FCB ::131-*-1 FCC "SATURDAY" ::131 EQU * 26 48 :5000 50 FDB 5000 10 FDB :+N1 57 19 FCB ::132-*-1 FCC "THEFOLLOWINGBOOKSARERECOMMENDEDREADINGFORTHE" ::132 EQU * 54 53 :5010 50 FDB 5010 10 FDB :+N1 57 19 FCB ::133-*-1 FCC "HISTORYOFBIORHYTHMTHEORYDEVELOPMENTANDSOME" ::133 EQU * 54 53 :5020 50 FDB 5020 10 FDB :+N1 57 19 FCB ::134-*-1 FCC "EXAMPLESOFIT'SAPPLICATION." ::134 EQU * 54 53 :5030 50 FDB 5030 10 FDB :+N1 57 53 :5040 50 FDB 5040 10  FDB :+N1 57 19 FCB ::135-*-1 FCC "GITTELSON,BERNARD.'BIO-RHYTHM:APERSONALSCIENCE.'" ::135 EQU * 54 53 :5050 50 FDB < 5050 10 FDB :+N1 57 19 FCB ::136-*-1 FCC "NEWYOURRK:WARNERBOOKS,1978." ::136 EQU * 54 53 :5060 50 FDB 5060 10 FDB :+N1 57 53 :5070 50 FDB 5070 10 FDB :+N1 57 19 FCB ::137-*-1 FCC "GITTELSON,BERNARD.'BIORHYTHMSPORTSFORECASTING'" ::137 EQU * 54 53 :5080 50 FDB 5080 10 FDB :+N1 57 19 FCB ::138-*-1 FCC "NEWYORK:WARNERBOOKS,1978." ::138 EQU * 54 53 :5090 50 FDB 5090 46 FDB :100 :7000 50 FDB 7000 12 FDB :+I1 0+0 25 :7020 50 FDB 7020 10 FDB :+Y1 10 FDB :+Y1 0+4 32 91 0+4 31 37 43 FDB ::139 12 FDB :+D 0+2 23 13 FDB 29 25 ::139 EQU * :7040 50 FDB 7040 12 FDB :+I 17  10 FDB :+M1 25 10 FDB :+M3 13 FDB 1 67 :7060 50 FDB 7060 12 FDB :+I1 10 FDB :+I1 12 FDB :+D 10 FDB :+I 23 11  28 25 :7080 50 FDB 7080 68 FDB :+I :7100 50 FDB 7100 12 FDB :+I1 10 FDB :+I1 12 FDB :+D 10 FDB :+M3 23 11 29 10 FDB :+D1 29 10 FDB :+D3 28 25 :7120 50 FDB 7120 46 FDB :0484 :8000 50 FDB 8000 94 0+1 38 43 FDB ::13A 46 FDB :0100 ::13A EQU * :8001 50 FDB 8001 49 :8080 50 FDB 8080 12 FDB :+D 0+2 23 13 FDB 28 25 :9000 50 FDB 9000 10 FDB :+Y1 10 FDB :+Y1 0+4 32 91 0+4 31 37 43 FDB ::13B 12 FDB :+D 0+2 23 13 FDB 29 25 ::13B EQU * :9010 50 FDB 9010 12 FDB :+I1 0+0 25 :9015 50 FDB 9015 10 FDB :+M1 13 FDB 12 37 44 FDB :9100 :9020 50 FDB 9020 12 FDB :+J 10 FDB :+M1 0+1 28 25 :9040 50 FDB 9040 12 FDB :+I 17 10 FDB :+J 25 13 FDB 12 13 FDB 1 67 :9060 50 FDB 9060 12 FDB :+I1 10 FDB :+I1 12 FDB :+D 10 FDB :+I 23 11 28 25 :9080 50 FDB 9080 68 FDB :+I :9100 50 FDB 9100 12 FDB :+I1 10 FDB :+I1 12 FDB :+D 10 FDB :+M1 23 11 28 10 FDB :+D1 29 0+1 28 25 :9120 50 FDB 9120 48 :9480 50 FDB 9480 12 FDB :+D 0+2 23 13 FDB 28 25 :9500 50 FDB 9500 10 FDB :+Y1 10 FDB :+Y1 0+4 32 91 0+4 31 37 43 FDB ::13C 12 FDB :+D 0+2 23 13 FDB 29 25 ::13C EQU * :9520 50 FDB 9520 12 FDB :+I1 0+0 25 :9540 50 FDB 9540 10 FDB :+M1 0+1 37 44 FDB :9640 :9560 50 FDB 9560 12 FDB :+J 10 FDB :+M1 0+1 29 25 :9580 50 FDB 9580 12 FDB :+I 17 0+1 25 10 FDB :+J 13 FDB 1 67 :9600 50 FDB 9600 12 FDB :+I1 10 FDB :+I1 12 FDB :+D 10 FDB :+I 23 11 28 25 :9620 50 FDB 9620 68  FDB :+I :9640 50 FDB 9640 12 FDB :+I1 10 FDB :+I1 10 FDB :+D1 28 0+1 29 25 :9660 50 FDB 9660 48 MDOSSWI FCB$3F END 9620NEXTI 9640LETI1=I1+D1-1 9660RETURN  57 19 FCB ::16F-*-1 FCC "ADDRESS:" ::16F EQU * 54 18 FDB :+ADDRESS$ 54 53 10 FDB :+DEVICE 57 19 FCB ::170-*-1 FCC "CITYANDSTATE:" ::170 EQU * 54 18 FDB :+CITY$ 54 53 10 FDB :+DEVICE 57 19 FCB ::171-*-1 FCC "ZIPCODE:" ::171 EQU * 54 18 FDB :+ZIP$ 54 53 10 FDB :+DEVICE 57 19 FCB ::172-*-1 FCC "TELEPHONE:" ::172 EQU * 54 18 FDB :+PHONE$ B :+N1 57 19 FCB ::13A-*-1 FCC "IT'SAPPLICATION." ::13A EQU * 54 53 :5030 50 FDB 5030 10 FDB :+N1 57 53 :5040 50 FDB 5040 10 FDB :+N1 57 19 FCB ::13B-*-1 FCC "GITTELSON,BERNARD.'BIO-RHYTHM:APERSONALSCIENCE.'" ::13B EQU * 54 53 :50= 50 50 FDB 5050 10 FDB :+N1 57 19 FCB ::13C-*-1 FCC "NEWYOURRK:WARNERBOOKS,1978." ::13C EQU * 54 53 :5060 50 FDB 5060 10 FDB :+N1 57 53 :5070 50 FDB 5070 10 FDB :+N1 57 19 FCB ::13D-*-1 FCC "GITTELSON,BERNARD.'BIORHYTHMSPORTSFORECASTING'" ::13D EQU * 54 53 :5080 50 FDB 5080 10 FDB :+N1 57 19 FCB ::13E-*-1 FCC "NEWYORK:WARNERBOOKS,1978." ::13E EQU * 54 53 :5085 50 FDB 5085 10 FDB :+N1 57 18 FDB :+BELL$ 54 53 :5086 50 FDB 5086 10 FDB :+N1 57 18 FDB :+FORM$ 54 53 :5090 50 FDB 5090 46 FDB :0103 :7000 50 FDB 7000 12 FDB :+I1 0+0 25 :7020 50 FDB 7020 10 FDB :+Y1 10 FDB :+Y1 0+4 32 91 0+4 31 37 43 FDB ::13F 12 FDB :+D 0+2 23 13 FDB 29 25 ::13F EQU * :7040 50 FDB 7040 12 FDB :+I 17 10 FDB :+M1 25 10 FDB :+M3 13 FDB 1 67 :7060 50 FDB 7060 12 FDB :+I1 10 FDB :+I1 12 FDB :+D 10 FDB :+I  23 11 28 25 :7080 50 FDB 7080 68 FDB :+I :7100 50 FDB 7100 12 FDB :+I1 10 FDB :+I1 12 FDB :+D 10 FDB :+M3 23 11 29 10 FDB :+D1 29 10 FDB :+D3 28 25 :7120 50 FDB 7120 46 FDB :0484 :8000 50 FDB 8000 94 0+1 38 43 FDB ::140 46 FDB :0103 ::140 EQU * :8001 50 FDB 8001 49 :8080 50 FDB 8080 12 FDB :+D 0+2 23 13 FDB 28 25 :9000 50 FDB 9000 10 FDB :+Y1 10 FDB :+Y1 0+4 32 91 0+4 31 37 43 FDB ::141 12 FDB :+D 0+2 23 13 FDB 29 25 ::141 EQU * :9010 50 FDB 9010 12 FDB :+I1 0+0 25 :9015 50 FDB 9015 10 FDB :+M1 13 FDB 12 37 44 FDB :9100 :9020 50 FDB 9020 12 FDB :+J 10 FDB :+M1 0+1 28 25 :9040 50 FDB 9040 12 FDB :+I 17 10 FDB :+J 25 13 FDB 12 13 FDB 1 67 :9060 50 FDB 9060 12  FDB :+I1 10 FDB :+I1 12 FDB :+D 10 FDB :+I 23 11 28 25 :9080 50 FDB 9080 68 FDB :+I :9100 50 FDB 9100 12 FDB :+I1 10 FDB :+I1 12 FDB :+D 10 FDB :+M1 23 11 28 10 FDB :+D1 29 0+1 28 25 :9120 50 FDB 9120 48 :9480 50 FDB 9480 12 FDB :+D 0+2 23 13 FDB 28 25 :9500 50 FDB 9500 10 FDB :+Y1 10 FDB :+Y1 0+4 32 91 0+4 31 37 43 FDB ::142 12 FDB :+D 0+2 23 13 FDB 29 25 ::142 EQU * :9520 50 FDB 9520 12 FDB :+I1 0+0 25 :9540 50 FDB 9540 10 FDB :+M1 0+1 37 44 FDB :9640 :9560 50 FDB 9560 12 FDB :+J 10 FDB :+M1 0+1 29 25 :9580 50 FDB 9580 12 FDB :+I 17 0+1 25 10  FDB :+J 13 FDB 1 67 :9600 50 FDB 9600 12 FDB :+I1 10 FDB :+I1 12 FDB :+D 10 FDB :+I 23 11 28 25 :9620 50 FDB 9620 68 FDB :+I :9640 50 FDB 9640 12 FDB :+I1 10 FDB :+I1 10 FDB :+D1 28 0+1 29 25 :9660 50 FDB 9660 48 MDOSSWI FCB$3F END MDOSSWI FCB$3F END 4::12/49D0::120/4FE6::121/4FE6::122/5032::123/5046 ::124/505A::125/50E3::126/5111::127/5121::128/515E::129/5187::12A/51DF::12B/520A ::12C/528D::13/4AB3::14/4AC7::15/4ACC::16/4AD5::17/4AE1::18/4B0F::19/4B3F ::1A/4B72::1B/4B9C::1C/4BB4::1D/4BDE::1E/4C04::1F/4C1C::21/4837::27/4AE6 A/0102A$/0000C/017AD/0098D$/0085D1/012CD2/0132D3/0138 E2/0156*F$/0048FNA/4AFCI/0108I$/008CI1/0150I2/0162J/010E *K/0114L$/0008*LAR$/0093M$/007EM1/011AM2/0120M3/0126N/016E N$/0060N1> /00FCP/0174P2/015C*X/0168*X$/00EEY1/013EY2/0144 Y3/014AZ1/0078 MAL/68001.2:52EA 1-03-7812:01AM;Page32;Form1 SymbolsSortedbyValue: A$/0000L$/0008*F$/0048N$/0060Z1/0078M$/007ED$/0085I$/008C *LAR$/0093D/0098*X$/00EEN1/00FCA/0102I/0108J/010E*K/0114 M1/011AM2/0120M3/0126D1/012CD2/0132D3/0138Y1/013EY2/0144 Y3/014AI1/0150E2/0156P2/015CI2/0162*X/0168N/016EP/0174 C/017A::/0180::11/4832::21/4837:/4846*:0040/49C6::12/49D0*:011E52661F252B52740C48DE02170D001D193225300C499000193225440A49F3 S11E52815A01252C52BC3225580C494E0A495A011D1932256C0C494811011993 S11E529C0A494E0D0001433225800C49900A49900C48DE0A4948170B1C19320C S11E52B725944449483225A80C49900A49900A496C1C011D193225BC303F3FB0 S9 D193225BC3031C4 S9 DIMP,I,N,V,X,CLEAR$/:1A/ DIMDUMMY$(1),X$/:7/ REM*THISPROGRAMCALCULATESTHEPAYMENTOFADIRECT REM*REDUCTIONLOAN,GIVENTHEPRESENTVALUE,YEARLY REM*INTERESTRATE,ANDTHENUMBEROFMONTHSOFTHE REM*LOAN. 10PRINTCLEAR$ INPUT"WHATISTHEAMOUNTOFTHELOAN?"P 20INPUT"WHATISTHEYEARLYINTERESTRATEINPERCENT?"I\I=I/1200 IFI=0THEN20 INPUT"WHATISTHELOANDURATIONINMONTHS?"N V=(I/(1-((1+I)^(-N))))*P\X=V+.005 PRINT PRINT PRINTUSING"THEPAYMENTIS$########.##",X PRINTUSING"THETOTALPRICEIS$########.##",.005+N*V PRINT 30INPUT"ANOTHERCALCULATION?"DUMMY$ IFDUMMY$="Y"THEN10 IFDUMMY$<>"N"THENPRINT"WHAT?";X$ELSECALLMDOS GOTO30 LLMDOS 0210GOTO30 !"x#~0~  x&o 5 DVDVDV CƀL   ~o& 7 ' oo9ea]Y U0 'Ǧ +>  ' ghF%oo '~ [~'AO66'& +!V%F%l l & l' ' 9G$9WW$9 G$ &~~*C'' '9. *9.0Oz0& @*8o42''/'+}4']fb '' 827L H 8' ' }4&[41- 2 '2,' ' & 9|7 &77., *5*9*5*9,L ,m*96 † 729*0 +77*+*9 f~50*+33*9(' &!(&'J&'Z&59 t~Nd '92 29('.')' P ν~).')'.'ʍнǍj9)&9d2.~G~K)2.''"'{ 2d(' )' '.&1. 2'_+'-' _0-k9.g 1O_$%2''0-+9.'&$%XIXI%$XI&$% }1' 4~ ~N1. 2 '1& 2.&9 $ ." '. "& 2'&" 2? & & ƀ&9&j2"/#F$ j"ƀ j" "~l".&$j$~95n5nO66'2A&9'' . ) Ն ( F$o '+&9* - 4"1|1*671J&}"'0"32m&0 'd ڽ F% 9 & 9 82  ߜ' & & &Ƣ& '9 ԡ-." ' 9D%9 ~999'>':p'u9  F~N'&~9jju9''~&99&9' 9 ' ((&9(9 ~ 'j'9'p'9~V'/&('l'T'B8'b 'm(  2(jj !(  Z(9( (oJ&'"(' ( 9''Y&7'( '+T'4( p'  ~(~ (  '<'"~ ~ ('*('5jj((&(&~ 11  F V~'2j9'V'R' jj&&&9'''& !~9'011 l&119 & & 9 -~ ) ~ ( >6732~ 612$%&'9M*CP&L9O_ $%$FVv&v' &M&]&&+' C&'0|0|0XI*&'$%$%'&$'& y%y$t&v'z0&$%}1 2$%jjl$%9SYNTAX ERRONON ATOMIC ARG:TOO MANY ARGSILL. FUNCTION:ATOMIC ARG:ILLEGAL NUMBEILLEGAL GO:NON NUMERIC ARG:OVERFLOTOO LITTLE ARGSFOR:MEMORY FULSTACK OVERFLOILLEGAL DEVIC LISP 1.5 V3NI L 8   OB LI ST   T   LA MB DA APVAL 4-$( SU0BR8PE<@8FSHUBLRThaX\TEXdPRlyptlFE|XPRFUNARG ATOM YCAR gCDR jCONS  NULL,)  $EQ0H=4 8NU@MBDERLhYP T(GR\EA`TEdRPlyp t7RE|AD PRINT QPRIN1 TERPRI ~RPLACA  uRPLACD$ EV AL(@5, 0 AP8PL"YES"THENN1=0ELSEN1=2 0111FORN=1TO4 0112PRINT#N1 0113NEXTN 0114PRINTCLEAR$ 0115PRINT#N1,TAB(24);"THEBIORHYTHMCHARTCOMPANY" 0116PRINT#N1,TAB(27);"POSTOFFICEBOX1315" 0117PRINT#N1,TAB(26);"HEMET,CALIFORNIA92343" 0118PRINT#N1 0119PRINT#N1 0120PRINT#N1 0130DEFFNA(A)=A-(INT(A/Z1)*Z1) 0195P=6.28319 0200PRINT#N1 0210INPUT"NAME:"N$ 0230INPUT"BIRTHDATE(E.G.3,5,1938):"M2,D2,Y2 0290IFY2<100THENY2=Y2+1900 0300INPUT"ENTERSTARTDATE:"M3,D3,Y3 0320IFY3<100THENY3=Y3+1900 0330INPUT"HOWMANYMONTHS?"N 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,TAB(10);"THISBIO-RHYTHMCHARTPREPAREDFOR:";N$ 1092ONGGOSUB2000,2010,2020,2030,2040,2050,2060 1095PRINT#N1,B TAB(10);"WHOWASBORNON";DAY$;M2;"/";D2;"/";Y2 1096PRINT#N1,TAB(10);"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 1600N=N-1 1610IFN=0THENGOTO4900 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 4900FORN=1TO2 4910PRINT#N1 4920NEXTN 5000PRINT#N1,"THEFOLLOWINGFDB1111 4F2A0A949:10 4F2B496E950:FDB:+N1 4F2D39951:57 4F2E13952:19 4F2F0D953:FCB::11C-*-1 4F3020202020954:FCC"CRITICAL" 4F3D955:::11CEQU* 4F3D36956:54 4F3E32957::111250 4F3F0458958:FDB1112 4F410A959:10 4F42496E960:FDB:+N1 4F4439961:57 4F4513962:19 4F4612963:FCB::11D-*-1 4F4720202020964:FCC"POSITIVEPHASE" 4F59965:::11DEQU* 4F5936966:54 4F5A35967:53 4F5B32968::111550 4F5C045B969:FDB1115 4F5E0A970:10 4F5F496E971:FDB:+N1 4F1E49CF3207D0124862130653554E4441591A303207DA12486213064D4F4EFB S11E49EA4441591A303207E41248621307545545534441591A303207EE1248A9 S11E4A056213095745444E45534441591A303207F81248621308544855525388 S11E4A204441591A3032080212486213064652494441591A3032080C12486233 S1104A3B130853415455524441591A303167 S9  10 FDB :+A 0+1 28 25 ::116 EQU * :0590 50 FDB 0590 68 FDB :+I :0615 50 FDB 0615 10 FDB :+Y3 10 FDB :+Y3 0+4 32 95 "Y"THENGOTO920 0130PRINT 0140PRINT#3,NAME$ 0150PRINT#3,M2 0160PRINT#3,D2 0170PRINT#3,Y2 0180COUNT=COUNT+1 0190930INPUT"FINISHED(Y/N)?"DUMMY$ 0200IFDUMMY$="N"THENGOTO915 0210IFDUMMY$<>"Y"THENGOTO930 0220RESTORE#3,0 0230RETURN 0240940!PRINTOUTNAMES 0250INPUT#3,NAME$ 0260INPUT#3,M2 0270INPUT#3,D2 0280INPUT#3,Y2 0290COUNT=COUNT-1 0300IFCOUNT=0THENGOTO950 0310RETURN 0320950CLOSE#3 0330CALLMDOS €S107000000000000F8 S9 23.Insertlinenumbers 100to300inclusiveinthefilenamedSAMintotheeditedfile beginningwithlinenumber500withincrementsof2betweenlines.+nl+tt2 >MERGE100-300SAM500,2cr +pg+lm20 +tt11.6.16MOVE+SL2+TT1FUNCTION: +TT2MoveagroupofreÀ0010THISDISKNUMBERIS:032479-7 ved(linenumberedfilesonly). +nl+tt2NEW-INCREMENTisthelinenumber incrementtobeappliedtoeachsubsequentlineofthemove.+sl2+lm6+pl ThemovecommandgeneratesaDUPLICATE commandfollowedbyaDELETEcommand.Foradditionalinformation seetho: SET ::+6 G1 EQU :: :: SET ::+6 G2 EQU :: :: SET ::+6 G3 EQU :: :: SET ::+6 G4 EQU :: :: SET ::+6 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 ::+46139972:57 4F6213973:19 4F6309974:FCB::11E-*-1 4F6420202020975:FCC"" 4F6D976:::11EEQU* 4F6D36977:54 4F6E32978::112050 4F6F0460979:FDB1120 4F710C980:12 4F72497A981:FDB:+I 4F7411982:17 4F7501983:0+1 4F7619984:25 4F770D985:13 4F78003C986:FDB60 4F7A0D987:13 4F7B0001988:FDB1 MAL/68001.2:4F7E 1-03-7812:01AM;Page19;Form1 4F7D43989:67 4F7E32990::113050 4F7F046A991:FDB1130 4F810A992:10 4F82496E993:FDB:+N1 4F8439994:5 ƀ0005DIMDAY$(10),L$(3) 0010DIMD,M,Y,K,L,O,P,Z,Z1,Z2,Z3,Z4 0100REMTHISPROGRAMCOMPUTESTHEDAYOFTHEWEEK 0110REMRESTRICTION:THEDATEMUSTBEAFTER1752 0120DAY$="SUNDAY"\GOTO340 0190PRINT"ENTERDAY(D),MONTH(M),ANDYEAR(Y)" 0200INPUTD,M,Y 0210IFY>1752THEN240 0220PRINT"YEARMUSTNOTBEPRIORTO1753" 0230GOTO190 0240LETK=INT(0.6+(1/M)) 0250LETL=Y-K 0260F LETO=M+12*K 0270LETP=L/100 0280LETZ1=INT(P/4) 0290LETZ2=INT(P) 0300LETZ3=INT((5*L)/4) 0310LETZ4=INT(13*(O+1)/5) 0320LETZ=Z4+Z3-Z2+Z1+D-1 0330LETZ=Z-(7*INT(Z/7))+1 0335ONZGOTO120,130,140,150,160,170,180 0340PRINT"THEDAYOFTHEWEEKIS";DAY$ 0350PRINT 0360PRINT"FORNEXTDATETYPEINYES,IFNOTTYPENO" 0370PRINT 0380INPUTL$ 0390IFL$="YES"THEN430 0400IFL$="NO"THEN450 0410PRINT"INVALIDCOMMAND" 0420GOTO360 0430PRINT 0440GOTO120 0450PRINT"DAYOFTHEWEEKSAYSGOOD-BYE" 0460END 0450PRINT"DAYOFTHEWEEKSAYSGOOD-BYE" 0460END 0 FDB :+A 10 FDB :+A 10 FDB :+Z1 32 91 10 FDB :+Z1 31 29 115 ::18 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 ::19-*-1 FCC "WHATISYOURNAME?" ::19 :: :: SET ::+6 B 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 ::15-*-1 FCC "#LP" ::15 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 :0103 50 FDB 0103 19 FCB ::16-*-1 FCC "DOYOUWANTAGRAPHONTHEPRINTER" ::16 EQU * 113 54 72 18 FDB :+A$ 56 26 :0104 50 FDB 0104 18 FDB :+A$ 19 FCB ::17-*-1 FCC "STOP" ::17 EQU * 74 43 FDB ::18 51 FDB MDOS ::18 EQU * :0105 50 FDB 0105 18 FDB :+A$ 19 FCB ::19-*-1 FCC "YES" ::19 EQU * 75 43 FDB ::1A 12 FDB :+N1 0+0 25 46 FDB ::2A ::1A EQU * 12 FDB :+N1 0+2 25 ::2A EQU * :0111 50 FDB 0111 12 FDB :+N 17 0+1 25 0+4 13 FDB 1 67 :0112 50 FDB 0112 10 FDB :+N1 57 53 :0113 50 FDB 0113  68 FDB :+N :0114 50 FDB 0114 113 18 FDB :+CLEAR$ 54 53 :0115 50 FDB 0115 10 FDB :+N1 57 13 FDB 24 73 19 FCB ::1B-*-1 FCC "THEBIORHYTHMCHARTCOMPANY" ::1B EQU * 54 53 :0116 50 FDB 0116 10 FDB :+N1 57 13 FDB 27 73 19 FCB ::1C-*-1 FCC "POSTOFFICEBOX1315" ::1C EQU * 54 53 :0117 50 FDB 0117 10 FDB :+N1 57 13 FDB 26 73 19 FCB ::1D-*-1 FCC "HEMET,CALIFORNIA92343" ::1D EQU * 54 53 :0118 50 FDB 0118 10 FDB :+N1 57 53 :0119 50 FDB 0119 10 FDB :+N1 57 53 :01G 20 50 FDB 0120 10 FDB :+N1 57 53 :0130 50 FDB 0130 46 FDB ::1E FNA EQU * FDB :+A 10 FDB :+A 10 FDB :+A 10 FDB :+Z1 32 91 10 FDB :+Z1 31 29 115 ::1E 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 ::1F-*-1 FCC "NAME:" ::1F EQU * 113 54 72 18 FDB :+N$ 56 26 :0230 50 FDB 0230 19 FCB ::110-*-1 FCC "BIRTHDATE(E.G.3,5,1938):" ::110 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 ::111 12 FDB :+Y2 10 FDB :+Y2 13 FDB 1900 28 25 ::111 EQU * :0300 50 FDB 0300 19 FCB ::112-*-1 FCC "ENTERSTARTDATE:" ::112 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 ::113 12 FDB :+Y3 10 FDB :+Y3 13 FDB 1900 28 25 ::113 EQU * :0330 50 FDB 0330 19 FCB ::114-*-1 FCC "HOWMANYMONTHS?" ::114 EQU * 113 54 72 12 FDB :+N 70 25 :0380 50 FDB 0380 10 FDB :+Y2 10 FDB :+Y3 42 43 FDB ::115 46 FDB :0230 ::115 EQU * :0390 50 FDB 0390 10 FDB :+Y2 10 FDB :+Y3 39 43 FDB ::116 46 FDB :0460 ::116 EQU * :0400 50 FDB 0400 10 FDB :+M2 10 FDB :+M3 42 43 FDB ::117 46 FDB :0230 ::117 EQU * :0410 50 FDB 0410 10 FDB :+M2 10 FDB :+M3 39 43 FDB ::118 46  FDB :0460 ::118 EQU * :0420 50 FDB 0420 10 FDB :+D2 10 FDB :+D3 42 43 FDB ::119 46 FDB :0230 ::119 EQU * :0460 50 FDB 0460 12 FDB :+D1 10 FDB :+D2 25 :0470 50 FDB 0470 12 FDB :+M1 10 FDB :+M2 25 :0480 50 FDB 0480 12 FDB :+Y1 10 FDB :+Y2 25 :0482 50 FDB 0482 10 FDB :+Y1 10 FDB :+Y3 37 44 FDB :7000 46 FDB :0490 :0484 50 FDB 0484 12 FDB :+A 10 FDB :+I1 25 :0486 50 FDB 0486 46 FDB :1090 :0490 50 FDB 0490 47 FDB :8080 :0500 50 FDB 0500 12 FDB :+A 10 FDB :+I1 25 :0510 50 FDB 0510 12 FDB :+D1 10 FDB :+D3 25 :0520 50 FDB 0520 12 FDB :+M1 10 FDB :+M3 25 :0530 50 FDB 0530 12 FDB :+Y1 10 FDB :+Y3 25 :0540 50 FDB 0540 47 FDB :9480 :0550 50 FDB 0550 12 FDB :+A 10 FDB :+A 10 FDB :+I1 28  25 :0560 50 FDB 0560 12 FDB :+A 10 FDB :+A 13 FDB 365 10 FDB :+Y3 10 FDB :+Y2 29 0+1 29 31 28 25 :0570 50 FDB 0570 12 FDB :+I 17 10 FDB :+Y2 0+1 28 25 10 FDB :+Y3 0+1 29 13 FDB 1 67 :0580 50 FDB 0580 10 FDB :+I 0+4 32 10 FDB :+I 0+4 32 91 37 43 FDB ::11A 12 FDB :+A 10 FDB :+A 0+1 28 25 ::11A EQU * :0590 50 FDB 0590 68 FDB :+I :0615 50 FDB 0615 10 FDB :+Y3 10 FDB :+Y3 0+4 32 91 0+4 31 37 43 FDB ::11B 12 FDB :+A 10 FDB :+A 0+1 29 25 ::11B EQU * :0700 50 FDB 0700 12 FDB :+K1 14 FCC '0.6' FCB $D 0+1 10 FDB :+M2 32 28 91 25 :0710 50 FDB 0710 12 FDB :+L 10 FDB :+Y2 10 FDB :+K1 29 25 :0720 50 FDB 0720 12 FDB :+O 10 FDB :+M2 13 FDB 12 10 FDB :+K1 31 28 25 :0730 50 FDB 0730 12 FDB :+B 10 FDB :+L 13 FDB 100 32 25 :0740 50 FDB 0740 12 FDB :+G1 10 FDB :+B 0+4 32 91 25 :0750 50 FDB 0750 12 FDB :+G2 10 FDB :+B 91 25 :0760 50 FDB 0760 12 FDB :+G3 0+5 10 FDB :+L 31 0+4 32 91 25 :0770 50 FDB 0770 12 FDB :+G4 13 FDB 13 10 FDB :+O 0+1 28 31 0+5 32 91 25 :0780 50 FDB 0780 12 FDB :+G 10 FDB :H +G4 10 FDB :+G3 28 10 FDB :+G2 29 10 FDB :+G1 28 10 FDB :+D2 28 0+1 29 25 :0790 50 FDB 0790 12 FDB :+G 10 FDB :+G 0+7 10 FDB :+G 0+7 32 91 31 29 0+1 28 25 :1090 50 FDB 1090 10 FDB :+N1 57 13 FDB 10 73 19 FCB ::11C-*-1 FCC "THISBIO-RHYTHMCHARTPREPAREDFOR:" ::11C EQU * 54 18 FDB :+N$ 54 53 :1092 50 FDB 1092 10 FDB :+G 116 FDB ::11D FDB :2000 FDB :2010 FDB :2020 FDB :2030 FDB :2040 FDB :2050 FDB :2060 ::11D EQU * :1095 50 FDB 1095 10 FDB :+N1 57 13 FDB 10 73 19 FCB ::11E-*-1 FCC "WHOWASBORNON" ::11E EQU * 54 18 FDB :+DAY$ 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 13 FDB 10 73 19 FCB ::11F-*-1 FCC "ANDWILLBE" ::11F EQU * 54 10 FDB :+A 52 55 19 FCB ::120-*-1 FCC "DAYSOLDATTHESTARTOFTHISCHART" ::120 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 13 FDB 12 73 19 FCB ::121-*-1 FCC "NEGATIVEPHASE(-)" ::121 EQU * 54 :1111 50 FDB 1111 10 FDB :+N1 57 13 FDB 34 73 19 FCB ::122-*-1 FCC "CRITICAL(C)" ::122 EQU * 54 :1112 50 FDB 1112 10 FDB :+N1 57 13 FDB 50 73 19 FCB ::123-*-1 FCC "POSITIVEPHASE(+)" ::123 EQU * 54 53 :1115 50 FDB 1115 10 FDB :+N1 57 19 FCB ::124-*-1 FCC "" ::124 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 :1160 50 FDB 1160  12 FDB :+C 0+9 25 :1161 50 FDB 1161 18 FDB :+L$ 19 FCB ::125-*-1 FCC "------------------------------------------------------------" ::125 EQU * 26 :1200 50 FDB 1200 10 FDB :+Y3 0+4 32 10 FDB :+Y3 0+4 32 91 37 43 FDB ::126 12 FDB :+D 0+2 23 13 FDB 29 25 ::126 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 ::127 10 FDB :+E2 10 FDB :+I2 37 43 FDB ::128 18 FDB :+L$ 10 FDB :+P2 21 13 FCB 0 FCC "#" 27 ::128 EQU * ::127 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 ::129 I 18 FDB :+M$ 18 FDB :+M$ 0+2 61 26 ::129 EQU * :1302 50 FDB 1302 20 FDB :+D$ 0+2 42 43 FDB ::12A 18 FDB :+D$ 18 FDB :+D$ 0+2 61 26 ::12A EQU * :1303 50 FDB 1303 20 FDB :+I$ 0+2 42 43 FDB ::12B 18 FDB :+I$ 18 FDB :+I$ 0+2 61 ۀ4000REMTHISPROGRAMCOMPUTESTHEDAYOFTHEWEEK 4010REMRESTRICTION:THEDATEMUSTBEAFTER1752 4020LETJ$(1)="SUNDAY" 4030LETJ$(2)="MONDAY" 4040LETJ$(3)="TUESDAY" 4050LETJ$(4)="WEDNESDAY" 4060LETJ$(5)="THURSDAY" 4070LETJ$(6)="FRIDAY" 4080LETJ$(7)="SATURDAY" 4090LETK=INT(0.6+(1/M2)) 4100LETL=Y2-K 4110LETO=M2+12*K 4120LETP=L/100 4130LETZ1=INT(P/4) 4140LETZ2=INT(P) 4150LETZ3=INT((5*L)/4) 4160LETZ4=INT(13*(O+1)/5) 4170LETZ=Z4+Z3-Z2+Z1+D2-1 4180LETZ=Z-(7*INT(Z/7))+1 1=INT(P/4) 0200LETZ2=INT(P) 0210LETZ3=INT((5*L)/4) 0220LETZ4=INT(13*(O+1)/5) 0230LETZ=Z4+Z3-Z2+Z1+D-1 0240LETZ=Z-(7*INT(Z/7))+1 0250PRINT"THEDAYOFTHEWEEKIS";J$(Z) 0260PRINT 0270PRINT"FORNEXTDATETYPEINYES,IFNOTTYPENO" 0280PRINT 0290INPUTL$ 0300IFL$="YES"THEN340 0310IFL$="NO"THEN360 0320PRINT"INVALIDCOMMAND" 0330GOTO270 0340PRINT 0350GO+10 N1 EQU :: :: SET ::+6 A EQU :: :: SET ::+6 I EQU :: :: SET ::+6 J EQU :: :: SET ::+6 K EQU :: :: SET ::+6 L EQU :: :: SET ::+6 O EQU :: :: SET ::+6 K1 EQU :: :: SET ::+6 B 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 :: :FDB:+G 4E2007833:0+7 4E210A834:10 4E2248D2835:FDB:+G 4E2407836:0+7 4E2520837:32 4E265B838:91 4E271F839:31 4E281D840:29 4E2901841:0+1 4E2A1C842:28 4E2B19843:25 4E2C32844::109050 4E2D0442845:FDB1090 4E2F0A846:10 4E30496E847:FDB:+N1 4E3239848:57 4E3313849:19 4E3425850:FCB::116-*-1 4E3554484953851:FCC"THISBIO-RHYTHMCHARTPREPAREDFOR:" 4E5A852:::116EQU* 4E5A36853:54 4E5B12854:18 4E5C48AC855:FDB:+N$ 4E5E36856:54 4E5F35857:53 4E6032858::109250 4E610444859:FDB1092 4E630A860:10 4E6448D2861:FDB:+G 4E6674862:116 4E674E77863:FDB::117 4E69524F864:FDB:2000 4E6B525F865:FDB:2010 4E6D526F866:FDB:2020 4E6F5280867:FDB:2030 4E715293868:FDB:2040 4E7352A5869:FDB:2050 4E7552B5870:FDB:2060 4E77871:::117EQU* 4E7732872::109550 4E780447873:FDB1095 4E7A0A874:10 4E7B496E875:FDB:+N1 4E7D39876:57 4E7E13877:19 4E7F10878:FCB::118-*-1 MAL/68001.2:4E84 1-03-7812:01AM;Page17;Form1 4E8057484F20879:FCC"WHOWASBORNON" 4E90880:::118EQU* 4E9036881:54 4E9112882:18 4E9248C4883:FDB:+DAY$ 4E9436884:54 4E950A885:10 4E9649A4886:FDB:+M2 4E9834887:52 4E9937888:55 4E9A13889:19 4E9B01890:FCB1 4E9C2F891:FCC"/" 4E9D36892:54 4E9E0A893:10 4E9F49B6894:FDB:+D2 4EA134895:52 4EA237896:55 4EA313897:19 4EA401898:FCB1 4EA52F899:FCC"/" 4EA636900:54 4EA70A901:10 4EA849C8902:FDB:+Y2 4EAA34903:52 4EAB3J 0700K1=INT(0.6+(1/M2)) 0710L=Y2-K1 0720O=M2+12*K1 0730P=L/100 0740G1=INT(P/4) 0750G2=INT(P) 0760G3=INT((5*L)/4) 0770G4=INT(13*(O+1)/5) 0780G=G4+G3-G2+G1+D-1 0790G=G-(7*INT(G/7))+1 1092ONGGOSUB2000,2010,2020,2030,2040,2050,2060 2000DAY$="SUNDAY"\RETURN 2010DAY$="MONDAY"\RETURN 2020DAY$="TUESDAY"\RETURN 2030DAY$="WEDNESDAY"\RETURN 2040DAY$="THURSDAY"\RETURN 2050DA S1164800BD20001270485B02000370486202000A2E48708E S11E487032012C711323454E544552204D4F4E5448284D292C204441592844CB S11E488B292C20414E44205945415228592936353201907155480C48314619AB S11E48A60C483746190C483D46193201F40C48490E302E360D010A4831201CE6 S11E48C15B193202580C48430A483D0A48491D193202BC0C484F0A48310D00BE S11E48DC0C0A48491F1C193203200C48550A48430D006420193203840C48195F S11E48F70A485504205B193203E80C481F0A48555B1932044C0C4825050A4866 S11E4912431F04205B193204B00C482B0D000D0A484F011C1F05205B19320560 S11E492D140C48130A482B0A48251C0A481F1D0A48191C0A48371C011D1932BD S11E494805780C48130A4813070A481307205B1F1D011C193205C80A481374CF S11E4963497349CF49DF49EF4A004A134A254A353205DC711317544845204479 S11E497E4159204F4620544845205745454B2049533A361248623635320640B3 S11E4999711319444F20594F552057414E5420414E4F54484552204441592009 S11E49B43F363206A471554812485B381A32070812485B13024E4F4B2C4870A7 S1Y$="FRIDAY"\RETURN 2060DAY$="SATURDAY"\RETURN 010DAY$="MONDAY"\RETURN 2020DAY$="TUESDAY"\RETURN 2030DAY$="WEDNESDAY"\RETURN 2040DAY$="THURSDAY"\RETURN 2050DAY$="FRIDAY"\RETURN 2060DAY$="SATURDAY"\RETURN 2090END A 10 FDB :+A 10 FDB :+I1 28 25 :0560 50 FDB 0560 12 FDB :+A 10 FDB :+A 13 FDB 365 10 FDB :+Y3 10 FDB :+Y2 29 7 4F8513995:19 4F8601996:FCB1 4F872D997:FCC"-" 4F8836998:54 4F8932999::114050 4F8A04741000:FDB1140 4F8C441001:68 4F8D497A1002:FDB:+I 4F8F321003::115050 4F90047E1004:FDB1150 4F920A1005:10 4F93496E1006:FDB:+N1 4F95391007:57 4F96351008:53 4F97321009::116050 4F9804881010:FDB1160 4F9A0C1011:12 4F9B49FE1012:FDB:+C 4F9D091013:0+9 4F9E191014:25 4F9F321015::116150 4FA004891016:FDB1161 4FA2121017:18 4FA348541018:FDB:+L$ 4FA5131019BOOKSARERECOMMENDEDREADINGFORANYONE"; 5005PRINT#N1,"INTERESTEDIN" 5010PRINT#N1,"THEHISTORYOFBIORHYTHMTHEORYANDSOMEEXAMPLESOF"; 5020PRINT#N1,"IT'SAPPLICATION." 5030PRINT#N1 5040PRINT#N1,"GITTELSON,BERNARD.'BIO-RHYTHM:APERSONALSCIENCE.'" 5050PRINT#N1,"NEWYOURRK:WARNERBOOKS,1978." 5060PRINT#N1 5070PRINT#N1,"GITTELSON,BERNARD.'BIORHYTHMSPORTSFORECASTING'" 5080PRINT#N1,"NEWYORK:WARNERBOOKS,1978." 5085PRINT#N1,BELL$ 5086PRINT#N1,FORM$ 5090GOTO0103 7000LETI1=0 7020IFY1=INT(Y1/4)*4THEND(2)=29 7040FORI=M1TOM3 7060LETI1=I1+D(I) 7080NEXTI 7100I1=I1-D(M3)-D1+D3 7120GOTO0484 8000IFERR<>1THENGOTO0103 8001STOP 8080D(2)=28 9000IFY1=INT(Y1/4)*4THEND(2)=29 9010I1=0 9015IFM1=12K THEN9100 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) - @>S11E4800BD20001270486702000470486F02003C7048AF0200147048C7020022 S11E481B147048DF02000A70491102000370491802000370491F02000370498C S11E48362605000100010E70492B02497A70497B05000100011A7049800500EC S11948510100010770498505000100011270498A02000A2E4A34F2 S11E4A3432002802391303234C50623200320C492B01170D001F193200330CE5 S11E4A4F492B02170D001C193200340C492B03170D001F193200350C492B0449 S11E4A6A170D001E193200360C492B05170D001F193200370C492B06170D0076 S11E4A851E193200380C492B07170D001F193200390C492B08170D001F19320D S11E4AA0003A0C492B09170D001E1932003B0C492B0D000A170D001F19320047 S11E4ABB3C0C492B0D000B170D001E1932003D0C492B0D000C170D001F193217 S11E4AD600466855A83200671323444F20594F552057414E54204120475241E2 S11E4AF15048204F4E20544845205052494E54455220713648124867381A32B8 S11E4B0C0068124867130453544F504A2B4B1E3356CB32006912486713035907 S11E4B2745534B2B4B350C499800192E4B3A0C4998021932006F0C4A221101F5 S11E4B4219040D0001433200700A49983935320071444A223200727112497BAD S11E4B5D36353200730A4998390D001849131B5448452042494F5248595448FF S11E4B784D20434841525420434F4D50414E5936353200740A4998390D001BAB S11E4B93491314504F5354204F464649434520424F58203133313536353200F1 S11E4BAE750A4998390D001A49131748454D45542C2043414C49464F524E495F S11E4BC94120393233343336353200760A499839353200770A499839353200C7 S11E4BE4780A499839353200822E4C03499E0A499E0A499E0A490B205B0A49BB S11E4BFF0B1F1D733200C30C4A280E362E32383331390D193200C80A499839AD S11E4C1A353200D213074E414D453A20207136481248C7381A3200E6131C42A2 S11E4C3549525448444154452028452E472E20332C352C31393338293A202083 S11E4C507136480C49D446190C49E646190C49F846193201220A49F80D006477 S11E4C6B272B4C7A0C49F80A49F80D076C1C1932012C1313454E54455220534F S11E4C86544152542044415445203A207136480C49DA46190C49EC46190C49AA S11E4CA1FE46193201400A49FE0D0064272B4CBC0C49FE0A49FE0D076C1C19AF S11E4CBC32014A1310484F57204D414E59204D4F4E5448533F7136480C4A2257 S11E4CD7461932017C0A49F80A49FE2A2B4CE92E4C2F3201860A49F80A49FE8C S11E4CF2272B4CF92E4D293201900A49D40A49DA2A2B4D092E4C2F32019A0A26 S11E4D0D49D40A49DA272B4D192E4D293201A40A49E60A49EC2A2B4D292E4C4D S11E4D282F3201CC0C49E00A49E6193201D60C49CE0A49D4193201E00C49F2F1 S11E4D430A49F8193201E20A49F20A49FE252C55392E4D673201E40C499E0A6D S11E4D5E4A04193201E62E4EBF3201EA2F55B83201F40C499E0A4A0419320164 S11E4D79FE0C49E00A49EC193202080C49CE0A49DA193202120C49F20A49FE0D S11E4D941932021C2F56483202260C499E0A499E0A4A041C193202300C499EA8 S11E4DAF0A499E0D016D0A49FE0A49F81D011D1F1C1932023A0C49A4110A4983 S11E4DCAF8011C190A49FE011D0D0001433202440A49A404200A49A404205BD3 S11E4DE5252B4DF20C499E0A499E011C1932024E4449A43202670A49FE0A4914 S11E4E00FE04205B041F252B4E130C499E0A499E011D193202BC0C49C20E30E2 S11E4E1B2E360D010A49D4201C5B193202C60C49B60A49F80A49C21D19320260 S11E4E36D00C49BC0A49D40D000C0A49C21F1C193202DA0C49C80A49B60D0092 S11E4E516420193202E40C48F30A49C804205B193202EE0C48F90A49C85B1995 S11E4E6C3202F80C48FF050A49B61F04205B193203020C49050D000D0A49BC29 S11E4E87011C1F05205B1932030C0L C48ED0A49050A48FF1C0A48F91D0A48F343 S11E4EA21C0A49E61C011D193203160C48ED0A48ED070A48ED07205B1F1D0179 S11E4EBD1C193204420A4998390D000A491325544849532042494F2D5248591B S11E4ED854484D20434841525420505245504152454420464F52203A20361204 S11E4EF348C736353204440A48ED744F0E52ED52FD530D531E5331534353537D S11E4F0E3204470A4998390D000A49131057484F2057415320424F524E204FA7 S11E4F294E20361248DF360A49D4343713012F360A49E6343713012F360A49DB S11E4F44F834353204480A4998390D000A49130C414E442057494C4C204245FA S11E4F5F20360A499E343713242044415953204F4C44204154205448452053D1 S11E4F7A54415254204F462054484953204348415254363532044C0A4998392D S11E4F953532044D0A499839353204560A4998390D000C4913124E4547415446 S11E4FB049564520504841534520282D29363204570A4998390D002249130C51 S11E4FCB435249544943414C20284329363204580A4998390D003249131250E3 S11E4FE64F53495449564520504841534520282B29363532045B0A4998391329 S11E500109202020202020202020363204600C49A41101190D003C0D000143DD S11E501C32046A0A49983913012D363204744449A432047E0A4998393532041C S11E5037880C4A2E091932048912486F133C2D2D2D2D2D2D2D2D2D2D2D2D2D0C S11E50522D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D80 S11E506D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D1A3204B00A49FE4F S11E508804200A49FE04205B252B509D0C492B02170D001D193204BA12486F43 S11E50A30D001E150D002A1B3204EC0C490B0D0017193204F10C4A100A499E1F S11E50BE724BF00D0017200A4A281F570D001C1F0D001E1C193204F60C490BBC S11E50D90D001C193204FB0C4A0A0A499E724BF00D001C200A4A281F570D00FF S11E50F41C1F0D001E1C193205000C490B0D0021193205050C4A160A499E7219 S11E510F4BF00D0021200A4A281F570D001C1F0D001E1C1932050D12486F0A47 S11E512A4A10150D00501B32050E12486F0A4A0A150D00451B32050F12486F82 S11E51450A4A16150D00491B3205100A4A100A4A0A252B516F0A4A0A0A4A167A S11E5160252B516F12486F0A4A10150D00231B3205110C49A40A49FE0A49FEB0 S11E517B0D0064205B0D00641F1D193205121249110A49DA7A1A320513124948 S11E5196180A49EC7A1A32051412491F0A49A47A1A320515144911022A2B515D S11E51B1BB124911124911023D1A320516144918022A2B51CF124918124918D4 S11E51CC023D1A32051714491F022A2B51E312491F12491F023D1A32051D0A6B S11E51E74998391249113613012F361249183613012F3612491F361301203638 S11E520212486F363532056E12486F0A4A10150D002D1B32057812486F0A4A51 S11E521D0A150D002D1B32058212486F0A4A16150D002D1B32058C12486F0D0F S11E5238001E150D002A1B3205B40C499E0A499E011C193205BE0C49EC0A4944 S11E5253EC011C193205C80A49EC0C492B0A49DA170B282B526C2E50AB32059C S11E526ED20C49EC01193205DC0C49DA0A49DA011C193206400C4A220A4A22E9 S11E5289011D1932064A0A4A2200252B529A2E53653206540A49DA0D000C28BB S11E52A42B52AA2E50AB32065E0C49DA01193206680C49FE0A49FE011C193210 S11E52BF06720C492B02170D001C1932067C0A49FE0A49FE04205B041F1D0068 S11E52DA252B52E70C492B02170D001D193206862E50AB3207D01248DF13060E S11E52F553554E4441591A303207DA1248DF13064D4F4E4441591A303207E4E8 S11E53101248DF1307545545534441591A303207EE1248DF13095745444E45D3 S11E532B534441591A303207F81248DF130854485552534441591A3032080269 S11E53461248DF13064652494441591A3032080C1248DF130853415455524480 S11E536141591A303213240C4A22110119020D00014332132E0A4998393532EC S11E537C1338444A223213880A49983913375448452046