IMD 1.16: 16/08/2007 17:24:01 032479-8  MDOS02010201112478BASIC COMPILER \lxMDOSOV0 SY\rDIR CM|rMERGE CMrMDOSOV4 SYrMDOS SYrBIOR LXMDOSOV6 SYrFREE CMrDUMP CMrNAME CMrMDOSOV1 SYlrCOMPILE CMrASSEMBLECMrRUN CM rMDOSOV3 SYrMDOSER SYeDEL CMtrBACKUP CMtrREPAIR CMrCALL SA\MDOSOV5 SYrDOSGEN CMrBIOR SCECOPY CM\rCALLMDOSSAEMDOSOV2 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&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?  .  DIRECTORY SECTOR READ ERRORDIRECTORY ENTRY IN ERROR. DELETE?POSSIBLE INCOMPLETE NAME CHANGENEW NAME: INVALID RIB SECTOR NUMBER. DELETE?HASH OR NAME DUPLICATION ERROR. DELETE?RIB READ ERRORRIB IN ERROR - DELETE FILE?FIRST SDW IN ERRORSDW BOUNDS ERRORRIB CLUSTER ALLOCATION DUPLICATIONILLEGAL SDW TERMINATORNON-CONTIGUOUS SDW ERRORNON-0 BYTES AFTER SDW TERMINATORBINARY LOAD FILE RIB ERROR GOOD FILES FILES WITH BAD RIBS GOOD FILES FILES WITH DUPLICATIONS ALLOCATION DUPLICATIONS  DELETE: NEITHER(1), BOTH(2),(3), (4):  SIZE: CONFLICTS: CLUSTERSWRITE RECONSTRUCTED TABLE TO DISK? RECONSTRUCTED ALLOCATION MAP MATCHES DISKILLEGAL ATTRIBUTE OR UNUSED BYTES. DELETE?MDOS.SY DOES NOT START AT SECTOR 18 .SY DOES NOT EXISTBOOT BLOCK SECTOR CANNOT BE CHECKEDBOOT BLOCK SECTOR READ ERRORBOOT BLOCK SECTOR HAS BEEN DESTROYEDMDOS MDOSER MDOSOV0 MDOSOV1 MDOSOV2 MDOSOV3 MDOSOV4 MDOSOV5 MDOSOV6 % ':&0'1' %6ƀ?#? "6R$* %޽6~-r%6%6X%%6-1-6% ]6 %6I-176,$A Y6 ? ]'-26M/ '?'? 2376,%|IY%%623-6$#F&#& &W6% #2ZO?|II'6X~-r7?2M..-?%Z& ?339 % h%%?] &%6 ަ6%Z& -J Y?'-r 'Y 9%&# & &#&&$#&'&1#&8&B#.j$|&6$~.# # =O?#J#KA?.&6'F W79'-&UI6%79'ށ &U6%IJ?/"677# 6D?3U'?$ 6X%.j$'6%&6?~. o$81' 8'9'4&(6?) ?-24& ?$7# 6D &9? ?"#66R2$&&&x6%6%*6X%%# &#J&#K&#& 9 9&6?"6R$**6 K*ս6%6%6X%8%# %%J?'## ƀO?8%# %%J?*6 "6R$'|6%6$&6?6X%"&$ ƠO?4,%B&&Z&~0u'5~0u&]&Z &~0u&'>6'6'۽6'SA q % h%%?]&ށ &%@ 6#6_$~/35 , 6$' &, &'*F~/l s,%D%D 6 s?$( ~/l +&DDD)&SY |&D+%% t%%?&%l?++& ~'*r6 % ?'%m*½4%~/S+%*%%?%m&*6%%m*O674$~2Z, "I6R$#+(26%6%6X$(A5$|7~2R# 7%I'(]6 S# I7%Y7MS?'SM63% Z?'O6$(p # KI'%7QZ?'MN?/"QOP?/%( K I#' I@& S ?/%(~0, ' # I7?'KII7% K'( ISTI#&, &~2B'~2G'?$# ?.t#, ' '( #'L&H#ST?/%=O?/%6###?/%)##'#?/%##DVF?*#?/%#?/$( &|64%~0%H6%L6)6"! 6U$&x6?!ƀO?I4%D$5I=>?)I4$I&~4qIK4D$ _5='|KIJ?)I& |L4$%P6%T6%X7)664&~4B_5%\ƀ6%`6'>6%l 6%p7%x7)Ƚ64$~4'_5A''86%t7%x7)½6%h 6" I"KMR ? OQIIKKH$*6M7O  A& 6 ?'O2RRM'zQ& O '  6)~6 &1'4'3'2&6533&~397%d6("#6U$'|6?3]'54%~2"! 6U$&x6?4% D$54$"6R$& %|ƀ?')6%! 6_?*6?4 4%&' 9$ &* !&&,?',+L&-|*(& 9("? $?#6U$'|6?#,O+% 6%$6%(6,%, ?'%0%4%8%,7#%07%47%87,%<'j%>7%<7%<%<%>%>3Z&'e'I6$ % 'e'T& 9?2'>6?36% &o,?("#6_$&6?9H=O?"ƀO?, "6R$(26?# C7%WEG?$7"J??}H*! D'!4! /!3'==" ''AAEEGG&C 9?(739?(9# O # $$ !M&?9 ?:$!60? 2_1' 8' 9'Z4&] 9??$&_?/$?/9 97? 7? ? %39?#z" 9 96 c? 9Y ' N '& 9 98[]8[?9 67!7"777296.]][?9 78U%7%U7ךVVZ&:2:8]9;W ;WW;9 '97HYHY?%2|I9]'/l&l77ɦ #0m&jj7ɍ Z&796dfJ&296hiJ&29A% 62% 0%62%9TFTFTFVFVD6YYYO FZ,29|uu+.HYHYwvz{67xS66~m? ~S|@耿x nd~" ~,ro$~r~s:~s~u~v,~v~s~s~t~t~se~vn~wc~wl~w~wu~w{rzqNq~9~x~r{o&pqp BCC$|BB@@H%a`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%NBC0I0MMOGIIKKO&O &0IJ  ~ YB B&_O0  (0  ~,q0"&"~ Y^  U$OBC0CB%>0BC~ h-  $0"&"0O~ h ~,q23VW0'&;jA%>0+C 111111Vn23%' 111123Vn  0  BC0' 0%"&"0BC~ h8(0  3XI%/CBXI%'8%!CB%0%"&"0~ h ~,q8(0  BC(0  06B"&C$26&  CB @322222]'*BE  !A%C 111111 2323&Bo~ 0 322222]'%BE  A%C ~ V2323&Bo~ Y0'~,q&~ V0I0M0G0B &0BEEFHG%GB'IJNM$MMII &~ VIJߗIJMNߗMNM MI I & Ζ?& @~ k?&~ _?&S?~ h(0 @ $  B~ k(0    @B :XI%A@%%@" &'"BC9011n@@A@Z T' Z=>~+~,q(0 'Z R'7Z &  RZ~ hZ R'=>Z@A~ ~,q@BA%;B;@A764444A%0 ='B~ j~,q;0 @;111111A%~ 0B ;5~ @66 &@'@&'& '%8&q BREAK ON LINE? 6HF} d@ &~ hO ;67=0ދ*' ~ k@*~ 670 E6&,~ k,~ kq STOP6.,q ERROR6^4 AT LINE6j45~ )0&1~"0&%&F "& " &  ~ V~,q0'#0^u O'&&6^' 6|\|]'H__%z^^22222222 2 2 2 2 2@A~ Y~,q6BCC$|BB29z]z\__$|^^9@^ϼ O'¡&&B&+B%}B  $~ k^&~ ^666666BA%-ݽ>B;BA%B6 6 6 6 6 6;'.B* B+ B B&66O66CB;B&66O66CB222222B6 6O66CB2 2 2 2 2 2~.@( KRB MQ& H''+ Q BB '  &B T~,~,lTUSRR0 )Q'~,q/0~ k INPUT ERROR 6U( ;~ kR~ hBC23VWBCA ] lB߽A ':&[O  A0-*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.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& ~ndMDOSSWI FCB$3F END 0010DIMM2,D2,Y2 0011DIMM3,D3,Y3,MONTHS,YEARS 0012DIMNAME$(32),N1/0/,A$(4),A,Z1,P,N,I,L$(60),P2,E2 0013DIMCONTINUE$(1),I2 0014DIMD(12),M$(3) 0015DIMF$(20),D$(3),I$(3),X$(10),J,K 0020CREATE#2,"#LP" 0021D(1)=31 0022D(2)=28 0023D(3)=31 0024D(4)=30 0025D(5)=31 0026D(6)=30 0027D(7)=31 0028D(8)=31 0029D(9)=30 0030D(10)=31 0031D(11)=30 0032D(12)=31 0033ONERRORGOTO8000 0034PRINT#N1 0035PRINT#N1 0036INPUT"DOYOUWANTAGRAPHONTHEPRINTER"A$ 0037IFA$="STOP"THENCALLMDOS 0038IFA$<>"Y"THENN1=0ELSEN1=2 0039PRINT#N1 0040PRINT#N1 0050DEFFNA(A)=A-(INT(A/Z1)*Z1)+1 0060P=6.28318531 0070PRINT#N1 0080INPUT"INPUTYOURNAME:"NAME$ 0090INPUT"INPUTYOURBIRTHDATE(E.G.8,23,1947):"M2,D2,Y2 0100IFY2<100THENY2=Y2+1900 0110INPUT"ENTERSTARTDATE:"M3,D3,Y3 0120IFY3<100THENY3=Y3+1900 0130INPUT"HOWMANYMONTHSDOYOUWISHCHARTED?"N 0140IFY2>Y3THENGOTO0090 0150IFY2M3THENGOTO0090 0170IFM2D3THENGOTO0090 0185A=0\!INITIALIZEDAYCOUNT 0190GOSUB9000\!NUMBEROFDAYS 0200PRINT#N1,"THISBIORYTHMHASBEENPREPAREDFOR";NAME$;"," 0210PRINT#N1 0220PRINT#N1,"WHOWASBORNON";M2;"/";D2;"/";Y2;"." 0225PRINT#N1 0226PRINT#N1 0230PRINT#N1,NAME$;"WILLBE";A;"DAYSOLDATTHE" 0240PRINT#N1,"BEGINNINGOFTHISCHART!!!" 0250PRINT#N1 0260PRINT#N1 0270PRINT#N1 0280PRINT#N1,"MINUS"; 0290PRINT#N1,"ZERO"; 0300PRINT#N1,"PLUS" 0310PRINT#N1,""; 0320FORI=1TO60 0330PRINT#N1,"-"; 0340NEXTI 0350PRINT#N1 0360L$="..........................................................' .." 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=0THENGOTO0034 1620IFM3<=12THENGOTO1260 1630M3=1 1640Y3=Y3+1 1650D(2)=28 1660IFY3-(INT(Y3/4)*4)=0THEND(2)=29 1670GOTO1260 8000IFERR<>1THENGOTO0034 8001CALLMDOS 9000!SUBROUTINETODETERMINEAGEINDAYS 9010IFY2=Y3THEN9190\!WE'REINTHESAMEYEAR 9020IFD2=D(M2)THEN9040ELSEA=D(M2)-D2 9030A=A+1 9040FORMONTHS=M2+1TO12 9050A=A+D(MONTHS) 9055NEXTMONTHS 9060IFY2/4=INT(Y2/4)ANDM2<3THENA=A+1 9070!ANOWEQUALSDAYSFROMBIRTHDAYTOENDOFBIRTHYEAR 9080IFM3=1THENA=A+D3ELSE9090\GOTO9130 9090FORMONTHS=1TOM3 9100A=A+D(MONTHS) 9110NEXTMONTHS 9120IFY3/4=INT(Y3/4)ANDM3>3THENA=A+1 9130IFY2+1=Y3THENRETURN\!WE'REDONE 9140FORYEARS=Y2+1TOY3-1 9150A=A+365 9160IFYEARS/4=INT(YEARS/4)THENA=A+1 9170NEXTYEARS 9180RETURN 9190PRINT"ISN'TTHATABITYOUNGFORABIORYTHM?" 9195GOSUBPOP1\!CLEANUPSTACK 9200GOTO0090 UV* COMPILEDBY10/30/77SOFTWAREDYNAMICSBASICVERSION1.2 ORG $4800 JSR $2000 FCB $12 :: SET 0 M2 EQU :: :: SET ::+6 D2 EQU :: :: SET ::+6 Y2 EQU :: :: SET ::+6 M3 EQU :: :: SET ::+6 D3 EQU :: :: SET ::+6 Y3 EQU :: :: SET ::+6 MONTHS EQU :: :: SET ::+6 YEARS EQU :: :: SET ::+6 NAME$ EQU :: 112 FDB :+:: FCB 2 FDB 32 :: SET ::+4+32 N1 EQU :: 112 FDB :+:: FCB 6 FDB 0 FDB 0 FDB 0 :: SET ::+6 A$ EQU :: 112 FDB :+:: FCB 2 FDB 4 :: SET ::+4+4 A EQU :: :: SET ::+6 Z1 EQU :: :: SET ::+6 P EQU :: :: SET ::+6 N EQU :: :: SET ::+6 I EQU :: :: SET ::+6 L$ EQU :: 112 FDB :+:: FCB 2 FDB 60 :: SET ::+4+60 P2 EQU :: :: SET ::+6 E2 EQU :: :: SET ::+6 CONTINUE$ EQU :: 112 FDB :+:: FCB 2 FDB 1 :: SET ::+4+1 I2 EQU :: :: SET ::+6 D EQU :: 112 FDB :+:: FCB 2 FDB :+::+7+6*12 :: SET ::+8+6*12 M$ EQU :: 112 FDB :+:: FCB 2 FDB 3 :: SET ::+4+3 F$ EQU :: 112 FDB :+:: FCB 2 FDB 20 :: SET ::+4+20 D$ EQU :: 112 FDB :+:: FCB 2 FDB 3 :: SET ::+4+3 I$ EQU :: 112 FDB :+:: FCB 2 FDB 3 :: SET ::+4+3 X$ EQU :: 112 FDB :+:: FCB 2 FDB 10 :: SET ::+4+10 J EQU :: :: SET ::+6 K EQU :: :: SET ::+6 46 FDB *+2+:: : EQU * RMB :: :0020 50 FDB 0020 0+2 57 19 FCB ::11-*-1 FCC "#LP" ::11 EQU * 98 :0021 50 FDB 0021 12 FDB :+D 0+1 23 13 FDB 31 25 :0022 50 FDB 0022 12 FDB :+D 0+2 23 13 FDB 28 25 :0023 50 FDB 0023 12 FDB :+D 0+3 23 13 FDB 31 25 :0024 50 FD( B 0024 12 FDB :+D 0+4 23 13 FDB 30 25 :0025 50 FDB 0025 12 FDB :+D 0+5 23 13 FDB 31 25 :0026 50 FDB 0026 12 FDB :+D 0+6 23 13 FDB 30 25 :0027 50 FDB 0027 12 FDB :+D 0+7 23 13 FDB 31 25 :0028 50 FDB 0028 12 FDB :+D 0+8 23 13 FDB 31 25 :0029 50 FDB 0029 12 FDB :+D 0+9 23 13 FDB 30 25 :0030 50 FDB 0030 12 FDB :+D 13 FDB 10 23 13 FDB 31 25 :0031 50 FDB 0031 12 FDB :+D 13 FDB 11 23 13 FDB 30 25 :0032 50 FDB 0032 12 FDB :+D 13 FDB 12 23 13 FDB 31 25 :0033 50 FDB 0033 104 FDB :8000 :0034 50 FDB 0034 10 FDB :+N1 57 53 :0035 50 FDB 0035 10 FDB :+N1 57 53 :0036 50 FDB 0036 19 FCB ::12-*-1 FCC "DOYOUWANTAGRAPHONTHEPRINTER" ::12 EQU * 113 54 72 18 FDB :+A$ 56 26 :0037 50 FDB 0037 18 FDB :+A$ 19 FCB ::13-*-1 FCC "STOP" ::13 EQU * 74 43 FDB ::14 51 FDB MDOS ::14 EQU * :0038 50 FDB 0038 18 FDB :+A$ 19 FCB ::15-*-1 FCC "Y" ::15 EQU * 75 43 FDB ::16 12 FDB :+N1 0+0 25 46 FDB ::26 ::16 EQU * 12 FDB :+N1 0+2 25 ::26 EQU * :0039 50 FDB 0039 10 FDB :+N1 57 53 :0040 50 FDB 0040 10 FDB :+N1 57 53 :0050 50 FDB 0050 46 FDB ::17 FNA EQU * FDB :+A 10 FDB :+A 10 FDB :+A 10 FDB :+Z1 32 91 10 FDB :+Z1 31 29 0+1 28 115 ::17 EQU * :0060 50 FDB 0060 12 FDB :+P 14 FCC '6.28318531' FCB $D 25 :0070 50 FDB 0070 10 FDB :+N1 57 53 :0080 50 FDB 0080  19 FCB ::18-*-1 FCC "INPUTYOURNAME:" ::18 EQU * 113 54 72 18 FDB :+NAME$ 56 26 :0090 50 FDB 0090 19 FCB ::19-*-1 FCC "INPUTYOURBIRTHDATE(E.G.8,23,1947):" ::19 EQU * 113 54 72 12 FDB :+M2 70 25 12 FDB :+D2 70 25 12 FDB :+Y2 70 25 :0100 50 FDB 0100 10 FDB :+Y2 13 FDB 100 39 43 FDB ::1A 12 FDB :+Y2 10 FDB :+Y2 13 FDB 1900 28 25 ::1A EQU * :0110 50 FDB 0110 19 FCB ::1B-*-1 FCC "ENTERSTARTDATE:" ::1B EQU * 113 54 72 12 FDB :+M3 70 25 12 FDB :+D3 70 25 12 FDB :+Y3 70 25 :0120 50 FDB 0120 10 FDB :+Y3 13 FDB 100 39 43 FDB ::1C 12 FDB :+Y3 10 FDB :+Y3 13  FDB 1900 28 25 ::1C EQU * :0130 50 FDB 0130 19 FCB ::1D-*-1 FCC "HOWMANYMONTHSDOYOUWISHCHARTED?" ::1D EQU * 113 54 72 12 FDB :+N 70 25 :0140 50 FDB 0140 10 FDB :+Y2 10 FDB :+Y3 42 43 FDB ::1E 46 FDB :0090 ::1E EQU * :0150 50  FDB 0150 10 FDB :+Y2 10 FDB :+Y3 39 43 FDB ::1F 46 FDB :0190 ::1F EQU * :0160 50 FDB 0160 10 FDB :+M2 10 FDB :+M3 42 43 FDB ::110 46 FDB :0090 ::110 EQU * :0170 50 FDB 0170 10 FDB :+M2 10 FDB :+M3 39 43 FDB ::111 46 FDB :0190 ::111 EQU * :0180 50 FDB 0180 10 FDB :+D2 10 FDB :+D3 42 43 FDB ::112 46 FDB :0090 ::112 EQU * :0185 50 FDB 0185 12  FDB :+A 0+0 25 :0190 50 FDB 0190 47 FDB :9000 :0200 50 FDB 0200 10 FDB :+N1 57 19 FCB ::113-*-1 FCC "THISBIORYTHMHASBEENPREPAREDFOR" ::113 EQU * 54 18 FDB :+NAME$ 54 19 FCB 1 FCC "," 54 53 :0210 50 FDB 0210 10 FDB :+N1 57 53 :0220 50 FDB 0220 10 FDB :+N1 57 19 FCB ::114-*-1 FCC "WHOWASBORNON" ::114 EQU * 54 10 FDB :+M2 52 55 19 FCB 1 FCC "/" 54 10 FDB :+D2 52 55 19 FCB 1 FCC "/" 54 10 FDB :+Y2 52 55 19 FCB 1 FCC "." 54 53 :0225 50 FDB 0225 10 FDB :+N1 57 53 :0226 50 FDB 0226 10 FDB :+N1 57 53 :0230 50 FDB 0230 10 FDB :+N1 57 18 FDB :+NAME$ 54 19 )  FCB ::115-*-1 FCC "WILLBE" ::115 EQU * 54 10 FDB :+A 52 55 19 FCB ::116-*-1 FCC "DAYSOLDATTHE" ::116 EQU * 54 53 :0240 50 FDB 0240 10 FDB :+N1 57 19 FCB ::117-*-1 FCC "BEGINNINGOFTHISCHART!!!" ::117 EQU * 54 53 :0250 50 FDB 0250 10 FDB :+N1 57 53 :0260 50 FDB 0260 10 FDB :+N1 57 53 :0270 50 FDB 0270 10 FDB :+N1 57 53 :0280 50 FDB 0280 10 FDB :+N1 57 19 FCB ::118-*-1 FCC "MINUS" ::118 EQU * 54 :0290 50 FDB 0290 10 FDB :+N1 57 19 FCB ::119-*-1 FCC "ZERO" ::119 EQU * 54 :0300 50 FDB 0300 10 FDB :+N1 57 19 FCB ::11A-*-1 FCC "PLUS" ::11A EQU * 54 53 :0310 50 FDB 0310 10 FDB :+N1 57 19 FCB ::11B-*-1 FCC "" ::11B EQU * 54 :0320 50 FDB 0320 12 FDB :+I 17 0+1 25 13 FDB 60 13 FDB 1 67 :0330 50 FDB 0330 10 FDB :+N1 57 19 FCB 1 FCC "-" 54 :0340 50 FDB 0340 68 FDB :+I :0350 50 FDB 0350 10 FDB :+N1 57 53 :0360 50 FDB 0360 18 FDB :+L$ 19 FCB ::11C-*-1 FCC "............................................................" ::11C EQU * 26 :1200 50 FDB 1200 10 FDB :+Y3 0+4 32 10 FDB :+Y3 0+4 32 91 37 43 FDB ::11D 12 FDB :+D 0+2  23 13 FDB 29 25 ::11D 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 ::11E 10 FDB :+E2 10 FDB :+I2 37 43 FDB ::11F 18 FDB :+L$ 10 FDB :+P2 21 13 FCB 0 FCC "#" 27 ::11F EQU * ::11E 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 ::120 18 FDB :+M$ 18 FDB :+M$ 0+2 61 26 ::120 EQU * :1302 50 FDB 1302 20 FDB :+D$ 0+2 42 43 FDB ::121 18 FDB :+D$ 18 FDB :+D$ 0+2 61 26 ::121 EQU * :1303 50 FDB 1303 20 FDB :+I$ 0+2 42 43 FDB ::122 18 FDB :+I$ 18 FDB :+I$ 0+2 61 26 ::122 EQU * :1309 50 FDB 1309 10 FDB :+N1 57 18 FDB :+M$ 54 19 FCB 1 FCC "/" 54 18 FDB :+D$ 54 19 FCB 1 FCC "/" 54 18 FDB :+I$ 54 19 FCB 1 FCC "" 54 18 FDB :+L$ 54 53 :1390 50 FDB 1390 18 FDB :+L$ 10 FDB :+P2 21 13 FCB 0 FCC "." 27 :1400 50 FDB 1400 18 FDB :+L$ 10 FDB :+E2 21 13 FCB 0 FCC "." 27 :1410 50 FDB 1410 18 FDB :+L$ 10 FDB :+I2 21 13 FCB 0 FCC "." 27 :1420 50 FDB 1420 18 FDB :+L$ 13 FDB 30 21 13 FCB 0 FCC "*" 27 :1460 50 FDB 1460 1* 2 FDB :+A 10 FDB :+A 0+1 28 25 :1470 50 FDB 1470 12 FDB :+D3 10 FDB :+D3 0+1 28 25 :1480 50 FDB 1480 10 FDB :+D3 12 FDB :+D 10 FDB :+M3 23 11 40 43 FDB ::123 46 FDB :1260 ::123 EQU * :1490 50 FDB 1490 12 FDB :+D3 0+1 25 :1500 50 FDB 1500 12 FDB :+M3 10 FDB :+M3 0+1 28 25 :1600 50 FDB 1600 12 FDB :+N 10 FDB :+N 0+1 29 25 :1610 50 FDB 1610 10 FDB :+N 0+0 37 43 FDB ::124 46 FDB :0034 ::124 EQU * :1620 50 FDB 1620 10 FDB :+M3 13 FDB 12 40 43 FDB ::125 46 FDB :1260 ::125 EQU * :1630 50 FDB 1630 12 FDB :+M3 0+1 25 :1640 50 FDB 1640 12 FDB :+Y3 10 FDB :+Y3 0+1 28 25 :1650 50 FDB 1650 12 FDB :+D 0+2 23 13 FDB 28 25 :1660 50 FDB 1660 10 FDB :+Y3 10 FDB :+Y3 0+4 32 91 0+4 31 29 0+0 37 43 FDB ::126 12 FDB :+D 0+2 23 13 FDB 29 25 ::126 EQU * :1670 50 FDB 1670 46 FDB :1260 :8000 50 FDB 8000 94 0+1 38 43 FDB ::127 46 FDB :0034 ::127 EQU * :8001 50 FDB 8001 51 FDB MDOS :9000 50 FDB 9000 :9010 50 FDB 9010 10 FDB :+Y2 10 FDB :+Y3 37 44 FDB :9190 :9020 50 FDB 9020 10 FDB :+D2 12 FDB :+D 10 FDB :+M2 23 11 37 44 FDB :9040 12 FDB :+A 12 FDB :+D 10 FDB :+M2 23 11 10 FDB :+D2 29 25 :9030 50 FDB 9030 12 FDB :+A 10 FDB :+A 0+1 28 25 :9040 50 FDB 9040 12 FDB :+MONTHS 17 10 FDB :+M2 0+1 28 25 13 FDB 12 13 FDB 1 67 :9050 50 FDB 9050 12 FDB :+A 10 FDB :+A 12 FDB :+D 10 FDB :+MONTHS 23 11 28 25 :9055 50 FDB 9055 68 FDB :+MONTHS :9060 50 FDB 9060 10 FDB :+Y2 0+4 32 10 FDB :+Y2 0+4 32 91 37 43 FDB ::128 10 FDB :+M2 0+3 39 ::128 EQU * 43 FDB ::129 12 FDB :+A 10 FDB :+A 0+1 28 25 ::129 EQU * :9070 50 FDB 9070 :9080 50 FDB 9080 10 FDB :+M3 0+1 37 43 FDB ::12A 12 FDB :+A 10 FDB :+A 10 FDB :+D3 28 25 46 FDB ::22A ::12A EQU * 46 FDB :9090 ::22A EQU * 46 FDB :9130 :9090 50 FDB 9090 12 FDB :+MONTHS 17 0+1 25 10 FDB :+M3 13 FDB 1 67 :9100 50 FDB 9100 12 FDB :+A 10 FDB :+A 12 FDB :+D 10 FDB :+MONTHS 23 11 28 25 :9110 50 FDB 9110 68 FDB :+MONTHS :9120 50 FDB 9120 10 FDB :+Y3 0+4 32 10 FDB :+Y3 0+4 32 91 37 43 FDB ::12B 10 FDB :+M3 0+3 42 ::12B EQU * 43 FDB ::12C 12 FDB :+A 10 FDB :+A 0+1 28 25 ::12C EQU * :9130 50  FDB 9130 10 FDB :+Y2 0+1 28 10 FDB :+Y3 37 43 FDB ::12D 48 ::12D EQU * :9140 50 FDB 9140 12 FDB :+YEARS 17 10 FDB :+Y2 0+1 28 25 10 FDB :+Y3 0+1 29 13 FDB 1 67 :9150 50 FDB 9150 12 FDB :+A 10 FDB :+A 13 FDB 365 28 25 :9160 50 FDB 9160 10 FDB :+YEARS 0+4 32 10 FDB :+YEARS 0+4 32 91 37 43 FDB ::12E 12 FDB :+A 10 FDB :+A 0+1 28 25 ::12E EQU * :9170 50 FDB 9170 68 FDB :+YEARS :9180 50 FDB 9180 48 :9190 50 FDB 9190 113 19 FCB ::12F-*-1 FCC "ISN'TTHATABITYOUNGFORABIORYTHM?" ::12F EQU * 54 53 :9195 50 FDB 9195 0+1 107 :9200 50 FDB 9200 46 FDB :0090 MDOSSWI FCB$3F END UU* COMPILEDBY10/30/77SOFTWAREDYNAMICSBASICVERSION1.2 ORG $4800 JSR $2000 FCB $12 :: SET 0 M2 EQU :: :: SET ::+6 D2 EQU + :: :: SET ::+6 Y2 EQU :: :: SET ::+6 M3 EQU :: :: SET ::+6 D3 EQU :: :: SET ::+6 Y3 EQU :: :: SET ::+6 MONTHS EQU :: :: SET ::+6 YEARS EQU :: :: SET ::+6 NAME$ EQU :: 112 FDB :+:: FCB 2 FDB 32 :: SET ::+4+32 N1 EQU :: 112 FDB :+:: FCB 6 FDB 0 FDB 0 FDB 0 :: SET ::+6 A$ EQU :: 112 FDB :+:: FCB 2 FDB 4 :: SET ::+4+4 A EQU :: :: SET ::+6 Z1 EQU :: :: SET ::+6 P EQU :: :: SET ::+6 N EQU :: :: SET ::+6 I EQU :: :: SET ::+6 L$ EQU :: 112 FDB :+:: FCB 2 FDB 60 :: SET ::+4+60 P2 EQU :: :: SET ::+6 E2 EQU :: :: SET ::+6 CONTINUE$ EQU :: 112 FDB :+:: FCB 2 FDB 1 :: SET ::+4+1 I2 EQU :: :: SET ::+6 D EQU :: 112 FDB :+:: FCB 2 FDB :+::+7+6*12 :: SET ::+8+6*12 M$ EQU :: 112 FDB :+:: FCB 2 FDB 3 :: SET ::+4+3 F$ EQU :: 112 FDB :+:: FCB 2 FDB 20 :: SET ::+4+20 D$ EQU :: 112 FDB :+:: FCB 2 FDB 3 :: SET ::+4+3 I$ EQU :: 112 FDB :+:: FCB 2 FDB 3 :: SET ::+4+3 X$ EQU :: 112 FDB :+:: FCB 2 FDB 10 :: SET ::+4+10 J EQU :: :: SET ::+6 K EQU :: :: SET ::+6 46 FDB *+2+:: : EQU * RMB :: :0020 50 FDB 0020 0+2 57 19 FCB ::11-*-1 FCC "#LP" ::11 EQU * 98 :0021 50 FDB 0021 12 FDB :+D 0+1 23 13 FDB 31 25 :0022 50 FDB 0022 12 FDB :+D 0+2 23 13 FDB 28 25 :0023 50 FDB 0023 12 FDB :+D 0+3 23 13 FDB 31 25 :0024 50 FDB 0024 12 FDB :+D 0+4 23 13 FDB 30 25 :0025 50 FDB 0025 12 FDB :+D 0+5 23 13 FDB 31 25 :0026 50 FDB 0026 12 FDB :+D 0+6 23 13 FDB 30 25 :0027 50 FDB 0027 12 FDB :+D 0+7 23 13 FDB 31 25 :0028 50 FDB 0028 12 FDB :+D 0+8 23 13 FDB 31 25 :0029 50 FDB 0029 12 FDB :+D 0+9 23 13 FDB 30 25 :0030 50 FDB 0030 12 FDB :+D 13 FDB 10 23 13 FDB 31 25 :0031 50 FDB 0031 12 FDB :+D 13 FDB 11 23 13 FDB 30 25 :0032 50 FDB 0032 12 FDB :+D 13 FDB 12 23 13 FDB 31 25 :0033 50 FDB 0033 104 FDB :8000 :0034 50 FDB 0034 10 FDB :+N1 57 53 :0035 50 FDB 0035 10 FDB :+N1 57 53 :0036 50 FDB 0036 19 FCB ::12-*-1 FCC "DOYOUWANTAGRAPHONTHEPRINTER" ::12 EQU * 113 54 72 18 FDB :+A$ 56 26 :0037 50 FDB 0037 18 FDB :+A$ 19 FCB ::13-*-1 FCC "STOP" ::13 EQU * 74 43 FDB ::14 51 FDB MDOS ::14 EQU * :0038 50 FDB 0038 18 FDB :+A$ 19 FCB ::15-*-1 FCC "Y" ::15 EQU * 75 43 FDB ::16 12 FDB :+N1 0+0 25 46 FDB ::26 ::16 EQU * 12 FDB :+N1 0+2 25 ::26 EQU * :0039 50 FDB 0039 10 FDB :+N1 57 53 :0040 50 FDB 0040 10 FDB :+N1 57 53 :0050 50 FDB 0050 46 FDB ::17 FNA EQU * FDB :+A 10 FDB :+A 10 FDB :+A 10 FDB :+Z1 32 91 10 FDB :+Z1 31 29 0+1 28 115 ::17 EQU * :0060 50 FDB 0060 12 FDB :+P 14 FCC '6.28318531' FCB $D 25 :0070 50 FDB 0070 10 FDB :+N1 57 53 :0080 50 FDB 0080  19 FCB ::18-*-1 FCC "INPUTYOURNAME:" ::18 EQU * 113 54 72 18 FDB :+NAME$ 56 26 :0090 50 FDB 0090 19 FCB ::19-*-1 FCC "INPUTYOURBIRTHDATE(E.G.8,23,1947):" ::19 EQU * 113 54 72 12 FDB :+M2 70 25 12 FDB :+D2 70 25 12 FDB :+Y2 70 25 :0100 50 FDB 0100 10 FDB :+Y2 13 FDB 100 39 43 FDB ::1A 12 FDB :+Y2 10 FDB :+Y2 13 FDB 1900 28 25 ::1A EQU * :0110 50 FDB 0110 19 FCB ::1B-*-1 FCC "ENTERSTARTDATE:" ::1B EQU * 113 54 72 12 FDB :+M3 70 25 12 FDB :+D3 70 25 12 FDB :+Y3 70 25 :0120 50 FDB 0120 10 FDB :+Y3 13 FDB 100 39 43 FDB ::1C 12 FDB :+Y3 10 FDB :+Y3 13 ,  FDB 1900 28 25 ::1C EQU * :0130 50 FDB 0130 19 FCB ::1D-*-1 FCC "HOWMANYMONTHSDOYOUWISHCHARTED?" ::1D EQU * 113 54 72 12 FDB :+N 70 25 :0140 50 FDB 0140 10 FDB :+Y2 10 FDB :+Y3 42 43 FDB ::1E 46 FDB :0090 ::1E EQU * :0150 50  FDB 0150 10 FDB :+Y2 10 FDB :+Y3 39 43 FDB ::1F 46 FDB :0190 ::1F EQU * :0160 50 FDB 0160 10 FDB :+M2 10 FDB :+M3 42 43 FDB ::110 46 FDB :0090 ::110 EQU * :0170 50 FDB 0170 10 FDB :+M2 10 FDB :+M3 39 43 FDB ::111 46 FDB :0190 ::111 EQU * :0180 50 FDB 0180 10 FDB :+D2 10 FDB :+D3 42 43 FDB ::112 46 FDB :0090 ::112 EQU * :0185 50 FDB 0185 12  FDB :+A 0+0 25 :0190 50 FDB 0190 47 FDB :9000 :0200 50 FDB 0200 10 FDB :+N1 57 19 FCB ::113-*-1 FCC "THISBIORYTHMHASBEENPREPAREDFOR" ::113 EQU * 54 18 FDB :+NAME$ 54 19 FCB 1 FCC "," 54 53 :0210 50 FDB 0210 10 FDB :+N1 57 53 :0220 50 FDB 0220 10 FDB :+N1 57 19 FCB ::114-*-1 FCC "WHOWASBORNON" ::114 EQU * 54 10 FDB :+M2 52 55 19 FCB 1 FCC "/" 54 10 FDB :+D2 52 55 19 FCB 1 FCC "/" 54 10 FDB :+Y2 52 55 19 FCB 1 FCC "." 54 53 :0225 50 FDB 0225 10 FDB :+N1 57 53 :0226 50 FDB 0226 10 FDB :+N1 57 53 :0230 50 FDB 0230 10 FDB :+N1 57 18 FDB :+NAME$ 54 19  FCB ::115-*-1 FCC "WILLBE" ::115 EQU * 54 10 FDB :+A 52 55 19 FCB ::116-*-1 FCC "DAYSOLDATTHE" ::116 EQU * 54 53 :0240 50 FDB 0240 10 FDB :+N1 57 19 FCB ::117-*-1 FCC "BEGINNINGOFTHISCHART!!!" ::117 EQU * 54 53 :0250 50 FDB 0250 10 FDB :+N1 57 53 :0260 50 FDB 0260 10 FDB :+N1 57 53 :0270 50 FDB 0270 10 FDB :+N1 57 53 :0280 50 FDB 0280 10 FDB :+N1 57 19 FCB ::118-*-1 FCC "MINUS" ::118 EQU * 54 :0290 50 FDB 0290 10 FDB :+N1 57 19 FCB ::119-*-1 FCC "ZERO" ::119 EQU * 54 :0300 50 FDB 0300 10 FDB :+N1 57 19 FCB ::11A-*-1 FCC "PLUS" ::11A EQU * 54 53 :0310 50 FDB 0310 10 FDB :+N1 57 19 FCB ::11B-*-1 FCC "" ::11B EQU * 54 :0320 50 FDB 0320 12 FDB :+I 17 0+1 25 13 FDB 60 13 FDB 1 67 :0330 50 FDB 0330 10 FDB :+N1 57 19 FCB 1 FCC "-" 54 :0340 50 FDB 0340 68 FDB :+I :0350 50 FDB 0350 10 FDB :+N1 57 53 :0360 50 FDB 0360 18 FDB :+L$ 19 FCB ::11C-*-1 FCC "............................................................" ::11C EQU * 26 :1200 50 FDB 1200 10 FDB :+Y3 0+4 32 10 FDB :+Y3 0+4 32 91 37 43 FDB ::11D 12 FDB :+D 0+2  23 13 FDB 29 25 ::11D 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 ::11E 10 FDB :+E2 10 FDB :+I2 37 43 FDB ::11F 18 FDB :+L$ 10 FDB :+P2 21 13 FCB 0 FCC "#" 27 ::11F EQU * ::11E 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 ::120 18 FDB :+M$ 18 FDB :+M$ 0+2 61 26 ::120 EQU * :1302 50 FDB 1302 20 FDB :+D$ 0+2 42 43 FDB ::121 18 FDB :+D$ 18 FDB :+D$ 0+2 61 26 ::121 EQU * :1303 50 FDB 1303 20 FDB :+I$ 0+2 42 43 FDB ::122 18 FDB :+I$ 18 FDB :+I$ 0+2 61 26 ::122 EQU * :1309 50 FDB 1309 10 FDB :+N1 57 18 FDB :+M$ 54 19 FCB 1 FCC "/" 54 18 FDB :+D$ 54 19 FCB 1 FCC "/" 54 18 FDB :+I$ 54 19 FCB 1 FCC "" 54 18 FDB :+L$ 54 53 :1390 50 FDB 1390 18 FDB :+L$ 10 FDB :+P2 21 13 FCB 0 FCC "." 27 :1400 50 FDB 1400 18 FDB :+L$ 10 FDB :+E2 21 13 FCB 0 FCC "." 27 :1410 50 FDB 1410 18 FDB :+L$ 10 FDB :+I2 21 13 FCB 0 FCC "." 27 :1420 50 FDB 1420 18 FDB :+L$ 13 FDB 30 21 13 FCB 0 FCC "*" 27 :1460 50 FDB 1460 12 FDB :+A 10 FDB :+A 0+1 28 25 :1470 50 FDB 1470 12 FDB :+D3 10 FDB :+D3 0+1 28 25 :1480 50 FDB 1480 10 FDB :+D3 12 FDB :+D 10 FDB :+M3 23 11 40 43 FDB ::123 46 FDB :1260 ::123 EQU * :1490 50 FDB 1490 12 FDB :+D3 0+1 25 :1500 50 FDB 1500 12 FDB :+M3 10 FDB :+M3 0+1 28 25 :1600 50 FDB 1600 12 FDB :+N 10 FDB :+N 0+1 29 25 :1610 50 FDB 1610 10 FDB :+N 0+0 37 43 FDB ::124 46 FDB :0034 ::124 EQU * :1620 50 FDB 1620 10 FDB :+M3 13 FDB 12 40 43 FDB ::125 46 FDB :1260 ::125 EQU * :1630 50 FDB 1630 12 FDB :+M3 0+1 25 :1640 50 FDB 1640 12 FDB :+Y3 10 FDB :+Y3 0+1 28 25 :1650 50 FDB 1650 12 FDB :+D 0+2 23 13 FDB 28 25 :1660 50 FDB 1660 10 FDB :+Y3 10 FDB :+Y3 0+4 32 91 0+4 31 29 0+0 37 43 FDB ::126 12 FDB :+D 0+2 23 13 FDB 29 25 ::126 EQU * :1670 50 FDB 1670 46 FDB :1260 :8000 50 FDB 8000 94 0+1 38 43 FDB ::127 46 FDB :0034 ::127 EQU * :8001 50 FDB 8001 51 FDB MDOS :9000 50 FDB 9000 :9010 50 FDB 9010 10 FDB :+Y2 10 FDB :+Y3 37 44 FDB :9190 :9020 50 FDB 9020 10 FDB :+D2 12 FDB :+D 10 FDB :+M2 23 11 37 44 FDB :9040 12 FDB :+A 12 FDB :+D 10 FDB :+M2 23 11 10 FDB :+D2 29 25 :9030 50 FDB 9030 12 FDB :+A 10 FDB :+A 0+1 28 25 :9040 50 FDB 9040 12 FDB :+MONTHS 17 10 FDB :+M2 0+1 28 25 13 FDB 12 13 FDB 1 67 :9050 50 FDB 9050 12 FDB :+A 10 FDB :+A 12 FDB :+D 10 FDB :+MONTHS 23 11 28 25 :9055 50 FDB 9055 68 FDB :+MONTHS :9060 50 FDB 9060 10 FDB :+Y2 0+4 32 10 FDB :+Y2 0+4 32 91 37 43 FDB ::128 10 FDB :+M2 0+3 39 ::128 EQU * 43 FDB ::129 12 FDB :+A 10 FDB :+A 0+1 28 25 ::129 EQU * :9070 50 FDB 9070 :9080 50 FDB 9080 10 FDB :+M3 0+1 37 43 FDB ::12A 12 FDB :+A 10 FDB :+A 10 FDB :+D3 28 25 46 FDB ::22A ::12A EQU * 46 FDB :9090 ::22A EQU * 46 FDB :9130 :9090 50 FDB 9090 12 FDB :+MONTHS 17 0+1 25 10 FDB :+M3 13 FDB 1 67 :9100 50 FDB 9100 12 FDB :+A 10 FDB :+A 12 FDB :+D 10 FDB :+MO. NTHS 23 11 28 25 :9110 50 FDB 9110 68 FDB :+MONTHS :9120 50 FDB 9120 10 FDB :+Y3 0+4 32 10 FDB :+Y3 0+4 32 91 37 43 FDB ::12B 10 FDB :+M3 0+3 42 ::12B EQU * 43 FDB ::12C 12 FDB :+A 10 FDB :+A 0+1 28 25 ::12C EQU * :9130 50  FDB 9130 10 FDB :+Y2 0+1 28 10 FDB :+Y3 37 43 FDB ::12D 48 ::12D EQU * :9140 50 FDB 9140 12 FDB :+YEARS 17 10 FDB :+Y2 0+1 28 25 10 FDB :+Y3 0+1 29 13 FDB 1 67 :9150 50 FDB 9150 12 FDB :+A 10 FDB :+A 13 FDB 365 28 25 :9160 50 FDB 9160 10 FDB :+YEARS 0+4 32 10 FDB :+YEARS 0+4 32 91 37 43 FDB ::12E 12 FDB :+A 10 FDB :+A 0+1 28 25 ::12E EQU * :9170 50 FDB 9170 68 FDB :+YEARS :9180 50 FDB 9180 48 :9190 50 FDB 9190 113 19 FCB ::12F-*-1 FCC "ISN'TTHATABITYOUNGFORABIORYTHM?" ::12F EQU * 54 53 :9195 50 FDB 9195 0+1 107 :9200 50 FDB 9200 46 FDB :0090 )-*S11E4800BD20001270487D0200207048A1060000000000007048A7020004701F S11E481B48CD02003C70491902000170492402497370497402000370497B0253 S11A4836001470499302000370499A0200037049A102000A2E49BB12 S11E49BB32001402391303234C50623200150C492401170D001F193200160CB4 S11E49D6492402170D001C193200170C492403170D001F193200180C49240412 S11E49F1170D001E193200190C492405170D001F1932001A0C492406170D0038 S11E4A0C1E1932001B0C492407170D001F1932001C0C492408170D001F1932CE S11E4A27001D0C492409170D001E1932001E0C49240D000A170D001F19320008 S11E4A421F0C49240D000B170D001E193200200C49240D000C170D001F1932D8 S11E4A5D002168508E3200220A48A139353200230A48A1393532002413234498 S11E4A784F20594F552057414E542041204752415048204F4E20544845205038 S11E4A9352494E544552207136481248A7381A3200251248A7130453544F5019 S11E4AAE4A2B4AB533522E3200261248A71301594B2B4ACA0C48A100192E4AEC S11E4AC9CF0C48A102193200270A48A139353200280A48A139353200322E4A9E S11E4AE4FA48AF0A48AF0A48AF0A48B5205B0A48B51F1D011C7332003C0C48A9 S11E4AFFBB0E362E32383331383533310D193200460A48A13935320050131127 S11E4B1A494E50555420594F5552204E414D453A2071364812487D381A320098 S11E4B355A1327494E50555420594F5552204249525448444154452028452E5C S11E4B50472E20382C32332C31393437293A207136480C484D46190C48534688 S11E4B6B190C485946193200640A48590D0064272B4B890C48590A48590D07C2 S11E4B866C1C1932006E1312454E54455220535441525420444154453A207175 S11E4BA136480C485F46190C486546190C486B46193200780A486B0D00642730 S11E4BBC2B4BCA0C486B0A486B0D076C1C193200821325484F57204D414E593A S11E4BD7204D4F4E54485320444F20594F552057495348204348415254454480 S11E4BF23F207136480C48C1461932008C0A48590A486B2A2B4C0C2E4B333231 S11E4C0D00960A48590A486B272B4C1C2E4C543200A00A484D0A485F2A2B4C3F S11E4C282C2E4B333200AA0A484D0A485F272B4C3C2E4C543200B40A48530A2C S11E4C4348652A2B4C4C2E4B333200B90C48AF00193200BE2F50A03200C80AF2 S11E4C5E48A1391324544849532042494F525954484D20484153204245454EE2 S11E4C7920505245504152454420464F52203612487D3613012C36353200D290 S11E4C940A48A139353200DC0A48A139131057484F2057415320424F524E20D9 S11E4CAF4F4E20360A484D343713012F360A4853343713012F360A48593437D1 S11E4CCA13012E36353200E10A48A139353200E20A48A139353200E60A48A12A S11E4CE53912487D3613082057494C4C2042453/ 60A48AF3437130F444159535B S11E4D00204F4C442041542054484536353200F00A48A139131A424547494E94 S11E4D1B4E494E47204F46205448495320434841525421212136353200FA0AAA S11E4D3648A139353201040A48A1393532010E0A48A139353201180A48A13956 S11E4D51131B202020202020202020202020202020202020202020204D494E71 S11E4D6C5553363201220A48A139130E202020202020202020205A45524F36F2 S11E4D8732012C0A48A1391310202020202020202020202020504C5553363530 S11E4DA23201360A48A1391309202020202020202020363201400C48C711014B S11E4DBD190D003C0D00014332014A0A48A13913012D363201544448C73201F7 S11E4DD85E0A48A139353201681248CD133C2E2E2E2E2E2E2E2E2E2E2E2E2E96 S11E4DF32E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2EC7 S11E4E0E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E1A3204B00A486B30 S11E4E2904200A486B04205B252B4E3E0C492402170D001D193204BA1248CD42 S11E4E440D001E150D002A1B3204EC0C48B50D0017193204F10C490D0A48AFCB S11E4E5F724AE50D0017200A48BB1F570D001C1F0D001E1C193204F60C48B5EF S11E4E7A0D001C193204FB0C49130A48AF724AE50D001C200A48BB1F570D00C3 S11E4E951C1F0D001E1C193205000C48B50D0021193205050C491E0A48AF72BA S11E4EB04AE50D0021200A48BB1F570D001C1F0D001E1C1932050D1248CD0AC6 S11E4ECB490D150D00501B32050E1248CD0A4913150D00451B32050F1248CD24 S11E4EE60A491E150D00491B3205100A490D0A4913252B4F100A49130A491E23 S11E4F01252B4F101248CD0A490D150D00231B3205110C48C70A486B0A486B1E S11E4F1C0D0064205B0D00641F1D193205121249740A485F7A1A3205131249C2 S11E4F37930A48657A1A32051412499A0A48C77A1A320515144974022A2B4FCD S11E4F525C124974124974023D1A320516144993022A2B4F70124993124993BE S11E4F6D023D1A32051714499A022A2B4F8412499A12499A023D1A32051D0ABC S11E4F8848A1391249743613012F361249933613012F3612499A361301203638 S11E4FA31248CD363532056E1248CD0A490D150D002E1B3205781248CD0A499D S11E4FBE13150D002E1B3205821248CD0A491E150D002E1B32058C1248CD0DA3 S11E4FD9001E150D002A1B3205B40C48AF0A48AF011C193205BE0C48650A480F S11E4FF465011C193205C80A48650C49240A485F170B282B500D2E4E4C320552 S11E500FD20C486501193205DC0C485F0A485F011C193206400C48C10A48C190 S11E502A011D1932064A0A48C100252B503B2E4A623206540A485F0D000C2868 S11E50452B504B2E4E4C32065E0C485F01193206680C486B0A486B011C1932D7 S11E506006720C492402170D001C1932067C0A486B0A486B04205B041F1D00F8 S11E507B252B50880C492402170D001D193206862E4E4C321F405E01262B5002 S11E50969A2E4A62321F4133522E3223283223320A48590A486B252C51F5320D S11E50B1233C0A48530C49240A484D170B252C50DE0C48AF0C49240A484D17F1 S11E50CC0B0A48531D193223460C48AF0A48AF011C193223500C4871110A483D S11E50E74D011C190D000C0D00014332235A0C48AF0A48AF0C49240A487117B7 S11E51020B1C1932235F4448713223640A485904200A485904205B252B512228 S11E511D0A484D03272B512E0C48AF0A48AF011C1932236E3223780A485F0184 S11E5138252B514A0C48AF0A48AF0A48651C192E514D2E51502E519C322382F0 S11E51530C48711101190A485F0D00014332238C0C48AF0A48AF0C49240A489B S11E516E71170B1C193223964448713223A00A486B04200A486B04205B252B10 S11E518951900A485F032A2B519C0C48AF0A48AF011C193223AA0A4859011C2F S11E51A40A486B252B51AC303223B40C4877110A4859011C190A486B011D0D04 S11E51BF0001433223BE0C48AF0A48AF0D016D1C193223C80A487704200A486A S11E51DA7704205B252B51EB0C48AF0A48AF011C193223D24448773223DC306F S11E51F53223E671132649534E2754205448415420412042495420594F554E35 S11E52104720464F5220412042494F525954484D3F36353223EB016B3223F0A7 S108522B2E4B333F3F50 S9 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L