IMD 1.16: 16/08/2007 16:49:52  MDOS02010201112478BASIC COMPILER \lxLIST CMrBIOL SAMDOSOV0 SY\rDIR CM|rMERGE CMrMDOSOV4 SYrBIO LX$MDOS SYrMDOSOV6 SYrNAMESIN SCEBIOM SCELUMLTR1 SA`FREE CMrBASIC CMprDUMP CMrNAME CMrRESUME SAlMDOSOV1 SYlrCOMPILE CMrASSEMBLECMrRUN CM0rEDITM CM rMDOSOV3 SYrMDOSER SYeDEL CMtrNAMESIN LXBIOM LXHBACKUP CMtrREPAIR CMrBIO SCEMDOSOV5 SYrDOSGEN CMrDISKNUM SA COPY CM\rCALLMDOSSAESCRIBE CMrMDOSOV2 SYxrJUNK SAD|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~nd1000DIMA$(4),L$(60),F$(20),N$(20) 1010DIMZ1 1020DIMM$(3),D$(3),I$(3) 1030DIMLAR$/:E/ 1040DIMD(12) 1050DIMX$(10) 1060' DIMN1,A,I,J,K 1070DIMM1,M2,M3,D1,D2,D3,Y1,Y2,Y3,I1,E2,P2,I2,X 1080DIMN,P,C 1090CREATE#2,"#LP" 1100D(1)=31 1110D(2)=28 1120D(3)=31 1130D(4)=30 1140D(5)=31 1150D(6)=30 1160D(7)=31 1170D(8)=31 1180D(9)=30 1190D(10)=31 1200D(11)=30 1210D(12)=31 1220ONERRORGOTO2210 1230PRINT#N1 1240PRINT#N1 1250INPUT"DOYOUWANTAGRAPHONTHEPRINTER"A$ 1260IFA$="STOP"THENCALLMDOS 1270IFA$<>"YES"THENN1=0ELSEN1=2 1280PRINT#N1 1290PRINT#N1 1300DEFFNA(A)=A-(INT(A/Z1)*Z1) 1310P=6.28319 1320PRINT#N1 1330INPUT"WHATISYOURNAME?"N$ 1340INPUT"ENTERYOURBIRTHDATE(E.G.1,1,1954):"M2,D2,Y2 1360INPUT"ENTERSTARTDATE:"M3,D3,Y3 1380INPUT"HOWMANYMONTHSWOULDYOULIKE?"N 1390IFY2>Y3THENGOTO1340 1400IFY2M3THENGOTO1340 1420IFM2D3THENGOTO1340 1440D1=D2 1450M1=M2 1460Y1=Y2 1470IFY1=Y3THEN2140ELSE1500 1480A=I1 1490GOTO1620 1500GOSUB2230 1510A=I1 1520D1=D3 1530M1=M3 1540Y1=Y3 1550GOSUB2330 1560A=A+I1 1570A=A+365*((Y3-Y2)-1) 1580FORI=(Y2+1)TO(Y3-1) 1590IFI/4=INT(I/4)THENA=A+1 1600NEXTI 1610IFY3=INT(Y3/4)*4THENA=A-1 1620PRINT#N1,"THISBIO-RHYTHMCHARTPREPAREDFOR:";N$ 1630PRINT#N1,"WHOWASBORNON";M2;"/";D2;"/";Y2 1640PRINT#N1,"ANDWILLBE";A;"DAYSOLDATTHESTARTOFTHISCHART" 1650PRINT#N1 1660PRINT#N1 1670PRINT#N1,"NEGATIVEPHASE"; 1680PRINT#N1,"CRITICAL"; 1690PRINT#N1,"POSITIVEPHASE" 1700PRINT#N1,""; 1710FORI=1TO60 1720PRINT#N1,"-"; 1730NEXTI 1740PRINT#N1 1750C=9 1760L$="............................................................" 1770IFY3/4=INT(Y3/4)THEND(2)=29 1780L$(30)="*" 1790Z1=23 1800P2=SIN(FNA(A)/23*P)*28+30 1810Z1=28 1820E2=SIN(FNA(A)/28*P)*28+30 1830Z1=33 1840I2=SIN(FNA(A)/33*P)*28+30 1850L$(P2)="P" 1860L$(E2)="E" 1870L$(I2)="I" 1880IFP2=E2THENIFE2=I2THENL$(P2)="#" 1890I=Y3-(INT(Y3/100)*100) 1900M$=NUM$(M3) 1910D$=NUM$(D3) 1920I$=NUM$(I) 1930IFLEN(M$)>2THENM$=RIGHT$(M$,2) 1940IFLEN(D$)>2THEND$=RIGHT$(D$,2) 1950IFLEN(I$)>2THENI$=RIGHT$(I$,2) 1960PRINT#N1,M$;"/";D$;"/";I$;"";L$ 1970L$(P2)="." 1980L$(E2)="." 1990L$(I2)="." 2000L$(30)="*" 2010A=A+1 2020D3=D3+1 2030IFD3<=D(M3)THENGOTO1790 2040D3=1 2050M3=M3+1 2060N=N-1 2070IFN=0THENGOTO1230 2080IFM3<=12THENGOTO1790 2090M3=1 2100Y3=Y3+1 2110D(2)=28 2120IFY3-(INT(Y3/4)*4)=0THEND(2)=29 2130GOTO1790 2140LETI1=0 2150IFY1=INT(Y1/4)*4THEND(2)=29 2160FORI=M1TOM3 2170LETI1=I1+D(I) 2180NEXTI 2190I1=I1-D(M3)-D1+D3 2200GOTO1480 2210IFERR<>1THENGOTO1230 2220STOP 2230D(2)=28 2240IFY1=INT(Y1/4)*4THEND(2)=29 2245IFY1=1900THEND(2)=28 2250I1=0 2260IFM1=12THEN2310 2270LETJ=M1+1 2280FORI=JTO12 2290LETI1=I1+D(I) 2300N10 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 COMNEXTI 2310LETI1=I1+D(M1)-D1+1 2320RETURN 2330D(2)=28 2340IFY1=INT(Y1/4)*4THEND(2)=29 2350LETI1=0 2360IFM1=1THEN2410 2370LETJ=M1-1 2380FORI=1TOJ 2390LETI1=I1+D(I) 2400NEXTI 2410LETI1=I1+D1-1 2420RETURN I 2410LETI1=I1+D1-1 2420RETURN 20NEXTI 9640LETI1=I1+D1-1 9660RETURN 9680END * =T^* 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 Z1 EQU :: :: SET ::+6 M$ EQU :: 112 FDB :+:: FCB 2 FDB 3 :: SET--S11E4800BD20001270484602000470484E02003C70488E0200147048A60200A6 S11E481B147048C40200037048CB0200037048D20200037048D905000100013A S11348360E7048DE02492D70492E02000A2E49C028 S11E49C032044202391303234C506232044C0C48DE01170D001F193204560C45 S11E49DB48DE02170D001C193204600C48DE03170D001F1932046A0C48DE043F S11E49F6170D001E193204740C48DE05170D001F1932047E0C48DE06170D00FA S11E4A111E193204880C48DE07170D001F193204920C48DE08170D001F19326C S11E4A2C049C0C48DE09170D001E193204A60C48DE0D000A170D001F1932047E S11E4A47B00C48DE0D000B170D001E193204BA0C48DE0D000C170D001F193232 S11E4A6204C46851A83204CE0A493C39353204D80A493C39353204E21323446E S11E4A7D4F20594F552057414E542041204752415048204F4E20544845205033 S11E4A9852494E54455220713648124846381A3204EC124846130453544F500B S11E4AB34A2B4ABA3352E13204F612484613035945534B2B4AD10C493C0019F7 S11E4ACE2E4AD60C493C02193205000A493C393532050A0A493C393532051412 S11E4AE92E4AFF49420A49420A49420A48BE205B0A48BE1F1D7332051E0C498E S11E4B04B40E362E32383331390D193205280A493C3935320532131357484174 S11E4B1F5420495320594F5552204E414D45203F7136481248A6381A32053CA4 S11E4B3A1326454E54455220594F5552204249525448444154452028452E477D S11E4B552E20312C312C31393534293A207136480C496046190C497246190CAE S11E4B70498446193205501313454E5445522053544152542044415445203A89 S11E4B8B207136480C496646190C497846190C498A46193205641321484F57BB S11E4BA6204D414E59204D4F4E54485320574F554C4420594F55204C494B4595 S11E4BC1203F207136480C49AE461932056E0A49840A498A2A2B4BDC2E4B3780 S11E4BDC3205780A49840A498A272B4BEC2E4C1C3205820A49600A49662A2BBE S11E4BF74BFC2E4B3732058C0A49600A4966272B4C0C2E4C1C3205960A4972A7 S11E4C120A49782A2B4C1C2E4B373205A00C496C0A4972193205AA0C495A0A3B S11E4C2D4960193205B40C497E0A4984193205BE0A497E0A498A252C51392E4C S11E4C484C5A3205C80C49420A4990193205D22E4D063205DC2F51B83205E623 S11E4C630C49420A4990193205F00C496C0A4978193205FA0C495A0A49661921 S11E4C7E3206040C497E0A498A1932060E2F525E3206180C49420A49420A491E S11E4C99901C193206220C49420A49420D016D0A498A0A49841D011D1F1C19F3 S11E4CB432062C0C4948110A4984011C190A498A011D0D0001433206360A49B5 S11E4CCF4804200A494804205B252B4CE50C49420A4942011C19320640444958 S11E4CEA4832064A0A498A0A498A04205B041F252B4D060C49420A4942011D98 S11E4D05193206540A493C391325544849532042494F2D52485954484D20434C S11E4D204841525420505245504152454420464F52203A20361248A63635327E S11E4D3B065E0A493C39131057484F2057415320424F524E204F4E20360A495A S11E4D5660343713012F360A4972343713012F360A498434353206680A493CE2 S11E4D7139130C414E442057494C4C20424520360A494234371324204441596E S11E4D8C53204F4C4420415420544845205354415254204F4620544849532025 S11E4DA7434841525436353206720A493C393532067C0A493C39353206860AF0 S11E4DC2493C39131E202020202020202020202020202+ 020204E45474154492B S11E4DDD5645205048415345363206900A493C39130D202020202043524954D3 S11E4DF84943414C3632069A0A493C39131220202020504F534954495645207B S11E4E13504841534536353206A40A493C39130920202020202020202036325C S11E4E2E06AE0C49481101190D003C0D0001433206B80A493C3913012D3632EE S11E4E4906C24449483206CC0A493C39353206D60C49BA09193206E012484EAD S11E4E64133C2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E62 S11E4E7F2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E3A S11E4E9A2E2E2E2E2E2E2E2E1A3206EA0A498A04200A498A04205B252B4EBE94 S11E4EB50C48DE02170D001D193206F412484E0D001E150D002A1B3206FE0CA8 S11E4ED048BE0D0017193207080C499C0A4942724AEC0D0017200A49B41F5750 S11E4EEB0D001C1F0D001E1C193207120C48BE0D001C1932071C0C49960A49CE S11E4F0642724AEC0D001C200A49B41F570D001C1F0D001E1C193207260C4881 S11E4F21BE0D0021193207300C49A20A4942724AEC0D0021200A49B41F570DF7 S11E4F3C001C1F0D001E1C1932073A12484E0A499C150D00501B32074412484D S11E4F574E0A4996150D00451B32074E12484E0A49A2150D00491B3207580A3D S11E4F72499C0A4996252B4F900A49960A49A2252B4F9012484E0A499C150D5D S11E4F8D00231B3207620C49480A498A0A498A0D0064205B0D00641F1D1932F1 S11E4FA8076C1248C40A49667A1A3207761248CB0A49787A1A3207801248D2F4 S11E4FC30A49487A1A32078A1448C4022A2B4FDC1248C41248C4023D1A32076D S11E4FDE941448CB022A2B4FF01248CB1248CB023D1A32079E1448D2022A2B64 S11E4FF950041248D21248D2023D1A3207A70A499C0D001F282B50180A499CEF S11E50140D001D292B50220C499C0D001E193207A80A493C391248C436130147 S11E502F2F361248CB3613012F361248D2361301203612484E360D0046490AD9 S11E504A499C0D001E1D8034353207B212484E0A499C150D002E1B3207BC123D S11E5065484E0A4996150D002E1B3207C612484E0A49A2150D002E1B3207D032 S11E508012484E0D001E150D002A1B3207DA0C49420A4942011C193207E40C39 S11E509B49780A4978011C193207EE0A49780C48DE0A4966170B282B50B82EAC S11E50B64ECC3207F80C497801193208020C49660A4966011C1932080C0C4928 S11E50D1AE0A49AE011D193208160A49AE00252B50E62E4A673208200A496611 S11E50EC0D000C282B50F62E4ECC32082A0C496601193208340C498A0A498A48 S11E5107011C1932083E0C48DE02170D001C193208480A498A0A498A04205B93 S11E5122041F1D00252B51330C48DE02170D001D193208522E4ECC32085C0C56 S11E513D499000193208660A497E0A497E04205B041F252B515C0C48DE021735 S11E51580D001D193208700C4948110A495A190A49660D00014332087A0C49C4 S11E5173900A49900C48DE0A4948170B1C1932088444494832088E0C49900A3C S11E518E49900C48DE0A4966170B1D0A496C1D0A49781C193208982E4C4A325B S11E51A908A25E01262B51B42E4A673208AC313208B60C48DE02170D001C1915 S11E51C43208C00A497E0A497E04205B041F252B51DF0C48DE02170D001D1980 S11E51DF3208C50A497E0D076C252B51F50C48DE02170D001C193208CA0C49E5 S11E51FA9000193208D40A495A0D000C252C52413208DE0C494E0A495A011CB0 S11E5215193208E80C4948110A494E190D000C0D0001433208F20C49900A4909 S11E5230900C48DE0A4948170B1C193208FC4449483209060C49900A49900C8B S11E524B48DE0A495A170B1C0A496C1D011C193209103032091A0C48DE021706 S11E52660D001C193209240A497E0A497E04205B041F252B52850C48DE0217D2 S11E52810D001D1932092E0C499000193209380A495A01252C52CD3209420C4A S11E529C494E0A495A011D1932094C0C49481101190A494E0D000143320956A6 S11E52B70C49900A49900C48DE0A4948170B1C1932096044494832096A0C4982 S11452D2900A49900A496C1C011D19320974303F3FE5 S9 , OUTINETOREADRECORD-CHARACTERORIENTED 1870RICEQU* 1880TSTRCEMTBUFFEREMPTY? 1890BNERIR19NO-GETNEXTCHAR 1900CLRNTIMEOYES-RESETNTIMEOFLAG 1910BRARIR3READRECORD 1920SPC2 1930*SUBROUTINETOREADRECORD-RECORDORIENTED 1940RIRINCNTIMEOSETNTIMEOFLAG 1950RIR3LDX#RCBUFFILLBUFFERWITHCR'S 1960LDAA#$D 1970RIR71STAAX 1980INX 1990CPX#RCBUF+72DONE? 2000BNERIR71NO-KEEPFILLING 2010TSTPNCHYES-PUNCHON? 2020BEQRDRNO-GOTESTSPEED 2030JSRXNCHOFYES-TURNPUNCHOFF 2040SPC1 2050SPC1 2060RDRTSTSPEED 2070BPLRDR0810OR30CPS 2080RDR06LDAA#$10RDCATTENTION 2090JSROCHAR 2100LDAA#'7BLOCKFWD 2110JSROCHAR 2120BRARDR09 2130SPC1 2140RDR08LDAASBITREADERRELAYON 2150ANDA#$55 2160STAAMTTYSO 2170SPC1 2180LDAA#$11DC1READERON 2190JSROUTCH 2200SPC1 2210RDR09EQU* 2220LDX#RCBUFREADRECORDINTOBUFFER 2230RDR11SEC 2240JSRINCTINPUTCHAR 2250SPC1 2260STAAXSTORECHAR 2270BCSRDR31TIMEOUT-STOPREADING 2280CMPA#$DC/R? 2290BEQRDR31YES-STOPREADING 2300SPC1 2310CPX#RCBUF+71BUFFERFULL? 2320BEQRDR11YES-SKIPRESTOFRECORD 2330INX 2340BRARDR11GETNEXTCHAR 2350RDR31EQU* 2360SPC1 2370CLRNTIMEORESETNTIMEOFLAG 2380LDAASBITREADERRELAYOFF 2390ANDA#$35 2400STAAMTTYSO 2410LDAA#$13READEROFF 2420JSROUTCH 2430LDAAMTTYDIRESETACIAINPUTBUFFER(S) 2440LDAAMTTYDI(BOTHBUFFERS) 2450SPC1 2460INCRCEMTSETBUFFERNOTEMPTY 2470LDX#RCBUFINZGETCHARPOINTER 2480STXRCGCPT 2490SPC1 2500RIR19LDXRCGCPTGETNEXTCHAR 2510LDAAX(A)CHAR 2520INXINCGETCHARPOINTER 2530STXRCGCPTSAVEGETCHARPOINTER 2540CMPA#$1AENDOFTEXT? 2550BEQRIR33YES 2560CMPA#$DCR? 2570BNERIR31NOTC/R 2580RIR33CLRRCEMTSETBUFFEREMPTY 2590RIR31RTS 2600SPC5 2610*SUBROUTINETOTURNPUNCHON 2620PNCHONEQU* 2630TSTPNCHPUNCHALREADYON? 2640BNEP20YES-RETURN 2650PSHANO-SAVEAREG 2660INCPNCHSETPUNCHONFLAG 2670INCCASSETSETCASSETTEFLAG 2680*TURNTIPRINTEROFFAT30OR120CPS* 2690TSTSPEED 2700BEQPH35310CPS 2710LDAA#$10ATTENTIONOFRDC 2720JSROCHAR 2730LDAA#'0TURNPRINTEROFF 2740JSROCHAR 2750PH353EQU* 2760***SENDRUBOUTBEFOREPUNCHON**************** 2770LDAA#$7F 2780JSROCHAR 2790********************************************* 2800LDAA#$12TURNTTYPUNCHON 2810JSROCHAROUTPUTCHAR 2820PULARESTOREAREG 2830P20RTS 2840PAGE 2850*SUBROUTINETOTURNPUNCHOFF 2860PNCHOFEQU* 2870LDAA#$14TURNTTYPUNCHOFF 2880JSROCHAROUTPUTCHAR 2890TSTSPEEDTURNTIPRINTERON 2900BEQPUN32510CPS-SKIPPRINTERON 2910LDAA#$10RDCATTENTION 2920JSROCHAR 2930LDAA#'9TIPRINTERON 2940JSROCHAR 2950PUN325EQU* 2960CLRPNCHRESETPUNCHONFLAG 2970CLRCASSETRESETCASSETTEFLAG 2980RTS 2990SPC5 3000*SUBROUTINETOREADCHARACTER-NOPARITY 3010INCTEQU* 3020STXSAVEXSAVEXREG 3030INCT2TSTNTIMEOWANTTIMEOUTTEST? 3040BEQINCT3YES 3050JSRXCINO-USECIROUTINE 3060BRAINCT6GOCHECKCHAR 3070INCT3LDX#$FF00SETTIMEOUTCOUNTER 3080INCT5DEX 3090BEQINCT9TIMEOUT 3100LDAAMTTYSI 3110ASRA 3120BCCINCT5NOTREADY 3130LDAAMTTYDIINPUTDATA 3140ANDA#$7FREMOVEPARITY 3150INCT6LDX#NCHARIGNORECHARS 3160CCHKCMPAX 3170BEQINCT2BADCHAR 3180INX 3190CPX#ENCHAR- DONE? 3200BNECCHKNO 3210CMPA#$09TAB? 3220BNEINCT7NO 3230LDAA#$20YES-CHANGETOSPACE 3240INCT7LDXSAVEXRESTOREXREG 3250CLCCLEARCARRY-NOTIMEOUT 3260RTS 3270SPC1 3280INCT9LDAA#$1ATIMEOUT 3290LDXSAVEXRESTOREXREG 3300SECSETTIMEOUTBIT 3310RTS 3320SPC5 3330*CHARACTERSSTRIPPEDFROMINPUT: 3340*NULL,RUBOUT,LINEFEED,DC1,DC2,DC3,DC4 3350NCHARFCB0,$7F,$0A,$11,$12,$13,$14 3360ENCHAREQU* 3370SPC5 3380*PUTREADERBUFFERJUSTBEFORE$300 3390RCBUFEQU$300-73 3400SPC5 3410END 3420MON 3430 PNCHOF EQU *  LDAA #$14 TURN TTY PUNCH OFF  JSR OCHAR OUTPUT CHAR  TST SPEED TURN TI PRINTER ON  BEQ PUN325 10 CPS-SKIP PRINTER ON  LDAA #$10 RDC ATTENTION  JSR OCHAR  LDAA #'9 TI PRINTER ON  JSR OCHAR PUN325 EQU *  CLR PNCH RESET PUNCH ON FLAG  CLR CASSET RESET CASSETTE FLAG  RTS  SPC 5 * SUBROUTINE TO READ CHARACTER - NO PARITY INCT EQU *  STX SAVEX SAVE X REG INCT2 TST NTIMEO WANT TIME OUT TEST?  BEQ INCT3 YES  JSR XCI NO-USE CI ROUTINE  BRA INCT6 GO CHECK CHAR INCT3 LDX #$FF00 SET TIME OUT COUNTER INCT5 DEX  BEQ INCT9 TIME OUT  LDAA MTTYSI  ASRA  BCC INCT5 NOT READY  LDAA MTTYDI INPUT DATA  ANDA #$7F REMOVE PARITY INCT6 LDX #NCHAR IGNORE CHARS CCHK CMP A X  BEQ INCT2 BAD CHAR  INX  CPX #ENCHAR DONE?  BNE CCHK NO  CMP A #$09 TAB?  BNE INCT7 NO  LDA A #$20 YES-CHANGE TO SPACE INCT7 LDX SAVE(MDOSSWI FCB$3F END RSCN8LDAA#5FIXXREG JSRFIXXRG BSROUTLINOUTPUT2NDLINE LDAA#5 JSRFIXXRGFIXX TSTBOTFLG BEQLRSCN9 BSROUTTH0 BRALRSC10 LRSCN9BSROUTLINOUTPUT3RDLINE LRSC10JMPCOMAND SPC1 *OUTPUT1LINEOFLONGRANGESCAN SPC1 OUTLINLDAA0,X})}i)< MAL/68001.2:0000 1-03-7812:01AM;Page1;Form1 1:*COMPILEDBY10/30/77SOFTWAREDYNAMICSBASICVERSION1.2 48002:ORG$4800 4800BD20003:JSR$2000 4803124:FCB$12 00005:::SET0 00006:A$EQU:: 4804707:112 480548468:FDB:+:: 4807029:FCB2 4808000410:FDB4 000811:::SET::+4+4 000812:L$EQU:: 480A7013:112 480B484E14:FDB:+:: 480D0215:FCB2 480E003C16:FDB60 004817:::SET::+4+60 004818:F$EQU:: 48107019:112 4811488E20:FDB:+:: 48130221:FCB2 4814001422:FDB20 006023:::SET::+4+20 006024:N$EQU:: 48167025:112 481748A626:FDB:+:: 48190227:FCB2 481A001428:FDB20 007829:::SET::+4+20 007830:Z1EQU:: 007E31:::SET::+6 007E32:M$EQU:: 481C7033:112 481D48C434:FDB:+:: 481F0235:FCB2 4820000336:FDB3 008537:::SET::+4+3 008538:D$EQU:: 48227039:112 4823. 48CB40:FDB:+:: 48250241:FCB2 4826000342:FDB3 008C43:::SET::+4+3 008C44:I$EQU:: 48287045:112 482948D246:FDB:+:: 482B0247:FCB2 482C000348:FDB3 009349:::SET::+4+3 009350:LAR$EQU:: 482E7051:112 482F48D952:FDB:+:: 48310553:FCB::21-*-1 483254:::11EQU* 4832000155:FDB::21-*-4 MAL/68001.2:4836 1-03-7812:01AM;Page2;Form1 4834000156:FDB::21-*-2 48360E57:FCB$E 483758:::21EQU* 009859:::SET::+*-::11 009860:DEQU:: 48377061:112 483848DE62:FDB:+:: 483A0263:FCB2 483B493364:FDB:+::+7+6*13 00EE65:::SET::+8+6*13 00EE66:X$EQU:: 483D7067:112 483E493468:FDB:+:: 48400269:FCB2 4841000A70:FDB10 00FC71:::SET::+4+10 00FC72:N1EQU:: 010273:::SET::+6 010274:AEQU:: 010875:::SET::+6 010876:IEQU:: 010E77:::SET::+6 010E78:JEQU:: 011479:::SET::+6 011480:KEQU:: 011A81:::SET::+6 011A82:M1EQU:: 012083:::SET::+6 012084:M2EQU:: 012685:::SET::+6 012686:M3EQU:: 012C87:::SET::+6 012C88:D1EQU:: 013289:::SET::+6 013290:D2EQU:: 013891:::SET::+6 013892:D3EQU:: 013E93:::SET::+6 013E94:Y1EQU:: 014495:::SET::+6 014496:Y2EQU:: 014A97:::SET::+6 014A98:Y3EQU:: 015099:::SET::+6 0150100:I1EQU:: 0156101:::SET::+6 0156102:E2EQU:: 015C103:::SET::+6 015C104:P2EQU:: 0162105:::SET::+6 0162106:I2EQU:: 0168107:::SET::+6 0168108:XEQU:: 016E109:::SET::+6 016E110:NEQU:: MAL/68001.2:4843 1-03-7812:01AM;Page3;Form1 0174111:::SET::+6 0174112:PEQU:: 017A113:::SET::+6 017A114:CEQU:: 0180115:::SET::+6 48432E116:46 484449C6117:FDB*+2+:: 4846118::EQU* 48460180119:RMB:: 49C632120::004050 49C70028121:FDB0040 49C902122:0+2 49CA39123:57 49CB13124:19 49CC03125:FCB::12-*-1 49CD234C50126:FCC"#LP" 49D0127:::12EQU* 49D062128:98 49D132129::005050 49D20032130:FDB0050 49D40C131:12 49D548DE132:FDB:+D 49D701133:0+1 49D817134:23 49D90D135:13 49DA001F136:FDB31 49DC19137:25 49DD32138::005150 49DE0033139:FDB0051 49E00C140:12 49E148DE141:FDB:+D 49E302142:0+2 49E417143:23 49E50D144:13 49E6001C145:FDB28 49E819146:25 49E932147::005250 49EA0034148:FDB0052 49EC0C149:12 49ED48DE150:FDB:+D 49EF03151:0+3 49F017152:23 49F10D153:13 49F2001F154:FDB31 49F419155:25 49F532156::005350 49F60035157:FDB0053 49F80C158:12 49F948DE159:FDB:+D 49FB04160:0+4 49FC17161:23 49FD0D162:13 49FE001E163:FDB30 4A0019164:25 4A0132165::005450 MAL/68001.2:4A04 1-03-7812:01AM;Page4;Form1 4A020036166:FDB0054 4A040C167:12 4A0548DE168:FDB:+D 4A0705169:0+5 4A0817170:23 4A090D171:13 4A0A001F172:FDB31 4A0C19173:25 4A0D32174::005550 4A0E0037175:FDB0055 4A100C176:12 4A1148DE177:FDB:+D 4A1306178:0+6 4A1417179:23 4A150D180:13 4A16001E181:FDB30 4A1819182:25 4A1932183::005650 4A1A0038184:FDB0056 4A1C0C185:12 4A1D48DE186:FDB:+D 4A1F07187:0+7 4A2017188:23 4A210D189:13 4A22001F190:FDB31 4A2419191:25 4A2532192::005750 4A260039193:FDB0057 4A/ 280C194:12 4A2948DE195:FDB:+D 4A2B08196:0+8 4A2C17197:23 4A2D0D198:13 4A2E001F199:FDB31 4A3019200:25 4A3132201::005850 4A32003A202:FDB0058 4A340C203:12 4A3548DE204:FDB:+D 4A3709205:0+9 4A3817206:23 4A390D207:13 4A3A001E208:FDB30 4A3C19209:25 4A3D32210::005950 4A3E003B211:FDB0059 4A400C212:12 4A4148DE213:FDB:+D 4A430D214:13 4A44000A215:FDB10 4A4617216:23 4A470D217:13 4A48001F218:FDB31 4A4A19219:25 4A4B32220::006050  MAL/68001.2:4A4E 1-03-7812:01AM;Page5;Form1 4A4C003C221:FDB0060 4A4E0C222:12 4A4F48DE223:FDB:+D 4A510D224:13 4A52000B225:FDB11 4A5417226:23 4A550D227:13 4A56001E228:FDB30 4A5819229:25 4A5932230::006150 4A5A003D231:FDB0061 4A5C0C232:12 4A5D48DE233:FDB:+D 4A5F0D234:13 4A60000C235:FDB12 4A6217236:23 4A630D237:13 4A64001F238:FDB31 4A6619239:25 4A6732240::006250 4A68003E241:FDB0062 4A6A0C242:12 4A6B48DE243:FDB:+D 4A6D0D244:13 4A6E000D245:FDB13 4A7017246:23 4A710D247:13 4A72001F248:FDB31 4A7419249:25 4A7532250::007050 4A760046251:FDB0070 4A7868252:104 4A7951D3253:FDB:8000 4A7B32254::010050 4A7C0064255:FDB0100 4A7E0A256:10 4A7F4942257:FDB:+N1 4A8139258:57 4A8235259:53 4A8332260::010150 4A840065261:FDB0101 4A860A262:10 4A874942263:FDB:+N1 4A8939264:57 4A8A35265:53 4A8B32266::010350 4A8C0067267:FDB0103 4A8E13268:19 4A8F23269:FCB::13-*-1 4A90444F2059270:FCC"DOYOUWANTAGRAPHONTHEPRINTER" 4AB3271:::13EQU* 4AB371272:113 4AB436273:54 4AB548274:72 4AB612275:18 MAL/68001.2:4AB9 1-03-7812:01AM;Page6;Form1 4AB74846276:FDB:+A$ 4AB938277:56 4ABA1A278:26 4ABB32279::010450 4ABC0068280:FDB0104 4ABE12281:18 4ABF4846282:FDB:+A$ 4AC113283:19 4AC204284:FCB::14-*-1 4AC353544F50285:FCC"STOP" 4AC7286:::14EQU* 4AC74A287:74 4AC82B288:43 4AC94ACC289:FDB::15 4ACB31290:49 4ACC291:::15EQU* 4ACC32292::010550 4ACD0069293:FDB0105 4ACF12294:18 4AD04846295:FDB:+A$ 4AD213296:19 4AD301297:FCB::16-*-1 4AD459298:FCC"Y" 4AD5299:::16EQU* 4AD54B300:75 4AD62B301:43 4AD74AE1302:FDB::17 4AD90C303:12 4ADA4942304:FDB:+N1 4ADC00305:0+0 4ADD19306:25 4ADE2E307:46 4ADF4AE6308:FDB::27 4AE1309:::17EQU* 4AE10C310:12 4AE24942311:FDB:+N1 4AE402312:0+2 4AE519313:25 4AE6314:::27EQU* 4AE632315::011050 4AE7006E316:FDB0110 4AE90A317:10 4AEA4942318:FDB:+N1 4AEC39319:57 4AED35320:53 4AEE32321::011550 4AEF0073322:FDB0115 4AF10A323:10 4AF24942324:FDB:+N1 4AF439325:57 4AF535326:53 4AF632327::013050 4AF70082328:FDB0130 4AF92E329:46 4AFA4B0F330:FDB::18 MAL/68001.2:4AFC 1-03-7812:01AM;Page7;Form1 4AFC331:FNAEQU* 4AFC4948332:FDB:+A 4AFE0A333:10 4AFF4948334:FDB:+A 4B010A335:10 4B024948336:FDB:+A 4B040A337:10 4B0548BE338:FDB:+Z1 4B0720339:32 4B085B340:91 4B090A341:10 4B0A48BE342:FDB:+Z1 4B0C1F343:31 4B0D1D344:29 4B0E73345:115 4B0F346:::18EQU* 4B0F32347::019550 4B1000C3348:FDB0195 4B120C349:12 4B1349BA350:FDB:+P 4B150E351:0 14 4B16362E3238352:FCC'6.28319' 4B1D0D353:FCB$D 4B1E19354:25 4B1F32355::020050 4B2000C8356:FDB0200 4B220A357:10 4B234942358:FDB:+N1 4B2539359:57 4B2635360:53 4B2732361::021050 4B2800D2362:FDB0210 4B2A13363:19 4B2B13364:FCB::19-*-1 4B2C57484154365:FCC"WHATISYOURNAME?" 4B3F366:::19EQU* 4B3F71367:113 4B4036368:54 4B4148369:72 4B4212370:18 4B4348A6371:FDB:+N$ 4B4538372:56 4B461A373:26 4B4732374::023050 4B4800E6375:FDB0230 4B4A13376:19 4B4B26377:FCB::1A-*-1 4B4C454E5445378:FCC"ENTERYOURBIRTHDATE(E.G.1,1,1954):" 4B72379:::1AEQU* 4B7271380:113 4B7336381:54 4B7448382:72 4B750C383:12 4B764966384:FDB:+M2 4B7846385:70 MAL/68001.2:4B7A 1-03-7812:01AM;Page8;Form1 4B7919386:25 4B7A0C387:12 4B7B4978388:FDB:+D2 4B7D46389:70 4B7E19390:25 4B7F0C391:12 4B80498A392:FDB:+Y2 4B8246393:70 4B8319394:25 4B8432395::029050 4B850122396:FDB0290 4B870A397:10 4B88498A398:FDB:+Y2 4B8A0D399:13 4B8B0064400:FDB100 4B8D27401:39 4B8E2B402:43 4B8F4B9C403:FDB::1B 4B910C404:12 4B92498A405:FDB:+Y2 4B940A406:10 4B95498A407:FDB:+Y2 4B970D408:13 4B98076C409:FDB1900 4B9A1C410:28 4B9B19411:25 4B9C412:::1BEQU* 4B9C32413::030050 4B9D012C414:FDB0300 4B9F13415:19 4BA013416:FCB::1C-*-1 4BA1454E5445417:FCC"ENTERSTARTDATE:" 4BB4418:::1CEQU* 4BB471419:113 4BB536420:54 4BB648421:72 4BB70C422:12 4BB8496C423:FDB:+M3 4BBA46424:70 4BBB19425:25 4BBC0C426:12 4BBD497E427:FDB:+D3 4BBF46428:70 4BC019429:25 4BC10C430:12 4BC24990431:FDB:+Y3 4BC446432:70 4BC519433:25 4BC632434::032050 4BC70140435:FDB0320 4BC90A436:10 4BCA4990437:FDB:+Y3 4BCC0D438:13 4BCD0064439:FDB100 4BCF27440:39 MAL/68001.2:4BD1 1-03-7812:01AM;Page9;Form1 4BD02B441:43 4BD14BDE442:FDB::1D 4BD30C443:12 4BD44990444:FDB:+Y3 4BD60A445:10 4BD74990446:FDB:+Y3 4BD90D447:13 4BDA076C448:FDB1900 4BDC1C449:28 4BDD19450:25 4BDE451:::1DEQU* 4BDE32452::033050 4BDF014A453:FDB0330 4BE113454:19 4BE221455:FCB::1E-*-1 4BE3484F5720456:FCC"HOWMANYMONTHSWOULDYOULIKE?" 4C04457:::1EEQU* 4C0471458:113 4C0536459:54 4C0648460:72 4C070C461:12 4C0849B4462:FDB:+N 4C0A46463:70 4C0B19464:25 4C0C32465::038050 4C0D017C466:FDB0380 4C0F0A467:10 4C10498A468:FDB:+Y2 4C120A469:10 4C134990470:FDB:+Y3 4C152A471:42 4C162B472:43 4C174C1C473:FDB::1F 4C192E474:46 4C1A4B47475:FDB:0230 4C1C476:::1FEQU* 4C1C32477::039050 4C1D0186478:FDB0390 4C1F0A479:10 4C20498A480:FDB:+Y2 4C220A481:10 4C234990482:FDB:+Y3 4C2527483:39 4C262B484:43 4C274C2C485:FDB::110 4C292E486:46 4C2A4C5C487:FDB:0460 4C2C488:::110EQU* 4C2C32489::040050 4C2D0190490:FDB0400 4C2F0A491:10 4C304966492:FDB:+M2 4C320A493:10 4C33496C494:FDB:+M3 4C352A495:42 MAL/68001.2:4C37 1-03-7812:01AM;Page10;Form1 4C362B496:43 4C374C3C497:FDB::111 4C392E498:46 4C3A4B47499:FDB:0230 4C3C500:::111EQU* 4C3C32501::041050 4C3D019A502:FDB0410 4C3F0A503:10 4C404966501 4:FDB:+M2 4C420A505:10 4C43496C506:FDB:+M3 4C4527507:39 4C462B508:43 4C474C4C509:FDB::112 4C492E510:46 4C4A4C5C511:FDB:0460 4C4C512:::112EQU* 4C4C32513::042050 4C4D01A4514:FDB0420 4C4F0A515:10 4C504978516:FDB:+D2 4C520A517:10 4C53497E518:FDB:+D3 4C552A519:42 4C562B520:43 4C574C5C521:FDB::113 4C592E522:46 4C5A4B47523:FDB:0230 4C5C524:::113EQU* 4C5C32525::046050 4C5D01CC526:FDB0460 4C5F0C527:12 4C604972528:FDB:+D1 4C620A529:10 4C634978530:FDB:+D2 4C6519531:25 4C6632532::047050 4C6701D6533:FDB0470 4C690C534:12 4C6A4960535:FDB:+M1 4C6C0A536:10 4C6D4966537:FDB:+M2 4C6F19538:25 4C7032539::048050 4C7101E0540:FDB0480 4C730C541:12 4C744984542:FDB:+Y1 4C760A543:10 4C77498A544:FDB:+Y2 4C7919545:25 4C7A32546::048250 4C7B01E2547:FDB0482 4C7D0A548:10 4C7E4984549:FDB:+Y1 4C800A550:10 MAL/68001.2:4C83 1-03-7812:01AM;Page11;Form1 4C814990551:FDB:+Y3 4C8325552:37 4C842C553:44 4C855164554:FDB:7000 4C872E555:46 4C884C9A556:FDB:0490 4C8A32557::048450 4C8B01E4558:FDB0484 4C8D0C559:12 4C8E4948560:FDB:+A 4C900A561:10 4C914996562:FDB:+I1 4C9319563:25 4C9432564::048650 4C9501E6565:FDB0486 4C972E566:46 4C984D5E567:FDB:1090 4C9A32568::049050 4C9B01EA569:FDB0490 4C9D2F570:47 4C9E51E3571:FDB:8080 4CA032572::050050 4CA101F4573:FDB0500 4CA30C574:12 4CA44948575:FDB:+A 4CA60A576:10 4CA74996577:FDB:+I1 4CA919578:25 4CAA32579::051050 4CAB01FE580:FDB0510 4CAD0C581:12 4CAE4972582:FDB:+D1 4CB00A583:10 4CB1497E584:FDB:+D3 4CB319585:25 4CB432586::052050 4CB50208587:FDB0520 4CB70C588:12 4CB84960589:FDB:+M1 4CBA0A590:10 4CBB496C591:FDB:+M3 4CBD19592:25 4CBE32593::053050 4CBF0212594:FDB0530 4CC10C595:12 4CC24984596:FDB:+Y1 4CC40A597:10 4CC54990598:FDB:+Y3 4CC719599:25 4CC832600::054050 4CC9021C601:FDB0540 4CCB2F602:47 4CCC5266603:FDB:9480 4CCE32604::055050 4CCF0226605:FDB0550 MAL/68001.2:4CD2 1-03-7812:01AM;Page12;Form1 4CD10C606:12 4CD24948607:FDB:+A 4CD40A608:10 4CD54948609:FDB:+A 4CD70A610:10 4CD84996611:FDB:+I1 4CDA1C612:28 4CDB19613:25 4CDC32614::055550 4CDD022B615:FDB0555 4CDF0A616:10 4CE0498A617:FDB:+Y2 4CE20A618:10 4CE34990619:FDB:+Y3 4CE525620:37 4CE62C621:44 4CE74D5E622:FDB:1090 4CE932623::056050 4CEA0230624:FDB0560 4CEC0C625:12 4CED4948626:FDB:+A 4CEF0A627:10 4CF04948628:FDB:+A 4CF20D629:13 4CF3016D630:FDB365 4CF50A631:10 4CF64990632:FDB:+Y3 4CF80A633:10 4CF9498A634:FDB:+Y2 4CFB1D635:29 4CFC01636: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 S11E49C032044202391303234C506232044C0C48DE01170D001F193204560C45 S11E49DB48DE02170D001C193204600C48DE03170D001F1932046A0C48DE043F S11E49F6170D001E193204740C48DE05170D001F1932047E0C48DE06170D00FA S11E4A111E193204880C48DE07170D001F193204920C48DE08170D001F19326C S11E4A2C049C0C48DE09170D001E193204A60C48DE0D000A170D001F1932047E S11E4A47B00C48DE0D000B170D001E193204BA0C48DE0D000C170D001F193232 S11E4A6204C468517D3204CE0A493C39353204D80A493C39353204E213234499 S11E4A7D4F20594F552057414E542041204752415048204F4E20544845205033 S11E4A9852494E54455220713648124846381A3204EC124846130453544F500B S11E4AB34A2B4ABA3352B63204F612484613035945534B2B4AD10C493C001922 S11E4ACE2E4AD60C493C02193205000A493C393532050A0A493C393532051412 S11E4AE92E4AFF49420A49420A49420A48BE205B0A48BE1F1D7332051E0C498E S11E4B04B40E362E32383331390D193205280A493C3935320532131357484174 S11E4B1F5420495320594F5552204E414D45203F7136481248A6381A32053CA4 S11E4B3A1326454E54455220594F5552204249525448444154452028452E477D S11E3 4B552E20312C312C31393534293A207136480C496046190C497246190CAE S11E4B70498446193205501313454E5445522053544152542044415445203A89 S11E4B8B207136480C496646190C497846190C498A46193205641321484F57BB S11E4BA6204D414E59204D4F4E54485320574F554C4420594F55204C494B4595 S11E4BC1203F207136480C49AE461932056E0A49840A498A2A2B4BDC2E4B3780 S11E4BDC3205780A49840A498A272B4BEC2E4C1C3205820A49600A49662A2BBE S11E4BF74BFC2E4B3732058C0A49600A4966272B4C0C2E4C1C3205960A4972A7 S11E4C120A49782A2B4C1C2E4B373205A00C496C0A4972193205AA0C495A0A3B S11E4C2D4960193205B40C497E0A4984193205BE0A497E0A498A252C510E2E77 S11E4C484C5A3205C80C49420A4990193205D22E4D063205DC2F518D3205E64E S11E4C630C49420A4990193205F00C496C0A4978193205FA0C495A0A49661921 S11E4C7E3206040C497E0A498A1932060E2F52333206180C49420A49420A4949 S11E4C99901C193206220C49420A49420D016D0A498A0A49841D011D1F1C19F3 S11E4CB432062C0C4948110A4984011C190A498A011D0D0001433206360A49B5 S11E4CCF4804200A494804205B252B4CE50C49420A4942011C19320640444958 S11E4CEA4832064A0A498A0A498A04205B041F252B4D060C49420A4942011D98 S11E4D05193206540A493C391325544849532042494F2D52485954484D20434C S11E4D204841525420505245504152454420464F52203A20361248A63635327E S11E4D3B065E0A493C39131057484F2057415320424F524E204F4E20360A495A S11E4D5660343713012F360A4972343713012F360A498434353206680A493CE2 S11E4D7139130C414E442057494C4C20424520360A494234371324204441596E S11E4D8C53204F4C4420415420544845205354415254204F4620544849532025 S11E4DA7434841525436353206720A493C393532067C0A493C39353206860AF0 S11E4DC2493C39131E202020202020202020202020202020204E45474154492B S11E4DDD5645205048415345363206900A493C39130D202020202043524954D3 S11E4DF84943414C3632069A0A493C39131220202020504F534954495645207B S11E4E13504841534536353206A40A493C39130920202020202020202036325C S11E4E2E06AE0C49481101190D003C0D0001433206B80A493C3913012D3632EE S11E4E4906C24449483206CC0A493C39353206D60C49BA09193206E012484EAD S11E4E64133C2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E62 S11E4E7F2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E3A S11E4E9A2E2E2E2E2E2E2E2E1A3206EA0A498A04200A498A04205B252B4EBE94 S11E4EB50C48DE02170D001D193206F412484E0D001E150D002A1B3206FE0CA8 S11E4ED048BE0D0017193207080C499C0A4942724AEC0D0017200A49B41F5750 S11E4EEB0D001C1F0D001E1C193207120C48BE0D001C1932071C0C49960A49CE S11E4F0642724AEC0D001C200A49B41F570D001C1F0D001E1C193207260C4881 S11E4F21BE0D0021193207300C49A20A4942724AEC0D0021200A49B41F570DF7 S11E4F3C001C1F0D001E1C1932073A12484E0A499C150D00501B32074412484D S11E4F574E0A4996150D00451B32074E12484E0A49A2150D00491B3207580A3D S11E4F72499C0A4996252B4F900A49960A49A2252B4F9012484E0A499C150D5D S11E4F8D00231B3207620C49480A498A0A498A0D0064205B0D00641F1D1932F1 S11E4FA8076C1248C40A49667A1A3207761248CB0A49787A1A3207801248D2F4 S11E4FC30A49487A1A32078A1448C4022A2B4FDC1248C41248C4023D1A32076D S11E4FDE941448CB022A2B4FF01248CB1248CB023D1A32079E1448D2022A2B64 S11E4FF950041248D21248D2023D1A3207A80A493C391248C43613012F36120C S11E501448CB3613012F361248D2361301203612484E36353207B212484E0A3F S11E502F499C150D002E1B3207BC12484E0A4996150D002E1B3207C612484E7A S11E504A0A49A2150D002E1B3207D012484E0D001E150D002A1B3207DA0C493C S11E5065420A4942011C193207E40C49780A4978011C193207EE0A49780C48EE S11E5080DE0A4966170B282B508D2E4ECC3207F80C497801193208020C4966D1 S11E509B0A4966011C1932080C0C49AE0A49AE011D193208160A49AE00252BE5 S11E50B650BB2E4A64 73208200A49660D000C282B50CB2E4ECC32082A0C4966F0 S11E50D101193208340C498A0A498A011C1932083E0C48DE02170D001C19320F S11E50EC08480A498A0A498A04205B041F1D00252B51080C48DE02170D001DBE S11E5107193208522E4ECC32085C0C499000193208660A497E0A497E04205B47 S11E5122041F252B51310C48DE02170D001D193208700C4948110A495A190AC3 S11E513D49660D00014332087A0C49900A49900C48DE0A4948170B1C19320879 S11E51588444494832088E0C49900A49900C48DE0A4966170B1D0A496C1D0A3F S11E517349781C193208982E4C4A3208A25E01262B51892E4A673208AC313203 S11E518E08B60C48DE02170D001C193208C00A497E0A497E04205B041F252B29 S11E51A951B40C48DE02170D001D193208C50A497E0D076C252B51CA0C48DE67 S11E51C402170D001C193208CA0C499000193208D40A495A0D000C252C5216E2 S11E51DF3208DE0C494E0A495A011C193208E80C4948110A494E190D000C0D63 S11E51FA0001433208F20C49900A49900C48DE0A4948170B1C193208FC444977 S11E5215483209060C49900A49900C48DE0A495A170B1C0A496C1D011C1932C8 S11E523009103032091A0C48DE02170D001C193209240A497E0A497E04205BB4 S11E524B041F252B525A0C48DE02170D001D1932092E0C499000193209380AB3 S70 73 10 FDB :+P2 13 FDB 30 29 128 52 53 :1970 50 FDB 1970 18 FDB :+L$ 10 FDB :+P2 21 13 FCB 0 FCC "." 27 :1980 50 FDB 1980 18 FDB :+L$ 10 FDB :+E2 21 13 FCB 0 FCC "." 27 :1990 50 FDB 1990 18 FDB :+L$ 10 FDB :+I2 21 13 FCB 0 FCC "." 27 :2000 50 FDB 2000 18 FDB :+L$ 13 FDB 30 21 13 FCB 0 FCC "*" 27 :2010 50 FDB 2010 12 FDB :+A 10  FDB :+A 0+1 28 25 :2020 50 FDB 2020 12 FDB :+D3 10 FDB :+D3 0+1 28 25 :2030 50 FDB 2030 10 FDB :+D3 12 FDB :+D  10 FDB :+M3 23 11 40 43 FDB ::125 46 FDB :1790 ::125 EQU * :2040 50 FDB 2040 12 FDB :+D3 0+1 25 :2050 50 FDB 2050 12 FDB :+M3 10 FDB :+M3 0+1 28 25 :2060 50 FDB 2060 12 FDB :+N 10 FDB :+N 0+1 29 25 :2070 50 FDB 2070 10 FDB :+N 0+0 37 43 FDB ::126 46 FDB :1230 ::126 EQU * :2080 50 FDB 2080 10 FDB :+M3 13 FDB 12 40 43 FDB ::127 46 FDB :1790 ::127 EQU * :2090 50 FDB 2090 12 FDB :+M3 0+1 25 :2100 50 FDB 2100 12 FDB :+Y3 10 FDB :+Y3 0+1 28 25 :2110 50 FDB 2110 12 FDB :+D 0+2 23 13 FDB 28 25 :2120 50 FDB 2120 10 FDB :+Y3 10 FDB :+Y3 0+4 32 91 0+4 31 29 0+0 37 43 FDB ::128 12 FDB :+D 0+2 23 13 FDB 29 25 ::128 EQU * :2130 50 FDB 2130 46 FDB :1790 :2140 50 FDB 2140 12 FDB :+I1 0+0 25 :2150 50 FDB 2150 10 FDB :+Y1 10 FDB :+Y1 0+4 32 91 0+4 31 37 43 FDB ::129 12 FDB :+D 0+2 23 13 FDB 29 25 ::129 EQU * :2160 50 FDB 2160 12 FDB :+I 17 10 FDB :+M1 25 10 FDB :+M3 13 FDB 1 67 :2170 50 FDB 2170  12 FDB :+I1 10 FDB :+I1 12 FDB :+D 10 FDB :+I 23 11 28 25 :2180 50 FDB 2180 68 FDB :+I :2190 50 FDB 2190 12 FDB :+I1 10 FDB :+I1 12 FDB :+D 10 FDB :+M3 23 11 29 10 FDB :+D1 29 10 FDB :+D3 28 25 :2200 50 FDB 2200 46 FDB :1480 :2210 50 FDB 2210 94 0+1 38 43 FDB ::12A 46 FDB :1230 ::12A EQU * :2220 50 FDB 2220 49 :2230 50 FDB 2230 12 FDB :+D 0+2 23 13 FDB 28 25 :2240 50 FDB 2240 10 FDB :+Y1 10 FDB :+Y1 0+4 32 91 0+4 31 37 43 FDB ::12B 12 FDB :+D 0+2 23 13 FDB 29 25 ::12B EQU * :2245 50 FDB 2245 10 FDB :+Y1 13 FDB 1900 37 43 FDB ::12C 12 FDB :+D 0+2 23 13 FDB 28 25 ::12C EQU * :2250 50 FDB 2250 12 FDB :+I1 0+0 25 :2260 50 FDB 2260 10 FDB :+M1 13 FDB 12 37 44 FD5 B :2310 :2270 50 FDB 2270 12 FDB :+J 10 FDB :+M1 0+1 28 25 :2280 50 FDB 2280 12 FDB :+I 17 10 FDB :+J 25 13 FDB 12 13 FDB 1 67 :2290 50 FDB 2290 12 FDB :+I1 10 FDB :+I1 12 FDB :+D 10 FDB :+I 23 11 28 25 :2300 50 FDB 2300 68 FDB :+I :2310 50 FDB 2310 12 FDB :+I1 10 FDB :+I1 12 FDB :+D 10 FDB :+M1 23 11 28 10 FDB :+D1 29 0+1 28 25 :2320 50 FDB 2320 48 :2330 50 FDB 2330 12 FDB :+D 0+2 23 13 FDB 28 25 :2340 50 FDB 2340 10 FDB :+Y1 10 FDB :+Y1  0+4 32 91 0+4 31 37 43 FDB ::12D 12 FDB :+D 0+2 23 13 FDB 29 25 ::12D EQU * :2350 50 FDB 2350 12 FDB :+I1 0+0 25 :2360 50 FDB 2360 10 FDB :+M1 0+1 37 44 FDB :2410 :2370 50 FDB 2370 12 FDB :+J 10 FDB :+M1 0+1 29 25 :2380 50 FDB 2380 12 FDB :+I 17 0+1 25 10 FDB :+J 13 FDB 1 67 :2390 50 FDB 2390 12 FDB :+I1 10 FDB :+I1 12 FDB :+D 10 FDB :+I 23 11 28 25 :2400 50 FDB 2400 68 FDB :+I :2410 50 FDB 2410 12 FDB :+I1 10 FDB :+I1 10 FDB :+D1 28 0+1 29 25 :2420 50 FDB 2420 48 MDOSSWI FCB$3F END  [RESUMEOF: ELMOM.GREGORY 556OpalAvenue Hemet,Ca92343 Telephone:(714)658-3812 PERSONALDATA:Sex:MaleColorEyes:blueBlue Age:41ColorHair:Brown Height:6'1"MaritalStatus:Divorced Weight:205lbs.Children:One EDUCATION:Twoyearsofcollege;ElectronicsTechnologyand BusinessManagement.CertificateofAchievement awardedinElectronicsTechnologyJune1967. SixmonthsU>S>U.S.A.F.electronicsschool.MA-1 Systems--Communications,digigtalelectronics, andradartraining. ThreemonthscomputerprogrammingatControlData Institute. 640hoursofcompanysponsoredschoolingindigital circuitsandsystems. FEDERALLICENSES*:F.C.C.RadiotelephoneLiNo.PS-11-26241 F.A.A.PrivatePilotN.o.1577030 STATELICENSES:CaliforniaDriverLicenseNo.F0485607 RealEstateSalesmanLicenseI.D.No.0-472275-7 PaATENTS:SCRGateDriveCircuit,PatentNo.3,646,578 UtilityUsageMonitoringSystems,PatentNumber 4,120,031. EMPLOYMENTCHRONOLOGY:  12/75-1/78VicePresidentandDirector,ResearchandDevelop- ment,EnergyConservationStystems,iInc.Co- inventorEnergyCostMonitorSystemandTelephone CostMonitorSystem. 3/73-12/75VicdePresidentandDirectorofEngineeringAmfin Corporation.Designedandfiledpatentsonlong arcdurationignitionsystems. 1/70-3/73Self-employ0010 0020NAMM68RIO 0030*+NAM:M68RIOVER:1.2DAT:07-10-75CMP:M6800 0040* 0050*SYS:M68RES 0060* 0070*DES:THISISTHEM6800RESIDENTI/OPACKAGE 0080*FORUSEWITHTHERESIDENTEDITORAND 0090*RESIDENTASSEMBLERUTILIZINGEXBUG1.1 0100* 0110*REV:0 0120*- 0130SPC2 0140OPTOT=M68RIOT 0150OPTSYMBOLS 0160PAGE 0170**************************************** 0180*6 *************************************** 0190* 0200*THISISTHEI/ODRIVERREGION 0210*THEFOLLOWINGDRIVERROUTINESAREREQUIRED: 0220* 0230*CICONSOLEDEVICEINPUTROUTINE.RETURNSWITH 0240*INPUTCHARACTERINA-REGISTER.DOESNOT 0250*ECHOCHARACTER 0260* 0270*CIECONSOLEDEVICEINPUTROUTINE.SAMEASCI 0280*BUTECHOSCHARACTER. 0290* 0300*COCONSOLEOUTPUTROUTINE.OUTPUTSCHARACTER 0310*INA-REGISTER. 0320* 0330*POCPUNCHDEVICEOUTPUTCHARACTERROUTINE. 0340*OUTPUTSCHARACTERINA-REGISTER.TURNS 0350*PUNCHON. 0360* 0370*PORPUNCHDEVICEOUTPUTRECORDROUTINE. 0380*OUTPUTSCHARACTERSTRINGPOINTEDTOBY 0390*XREGISTERANDTERMINATEDBY$04.TURNS 0400*PUNCHONANDOFF. 0410* 0420*RICREADERDEVICEINPUTCHARACTERROUTINE. 0430*READSRECORDINTOBUFFERIFBUFFEREMPTY. 0440*RETURNSWITHNEXTCHARACTERFROMBUFFERIN 0450*A-REGISTERIFNOTIMEOUTOCCURRED,AND 0460*ALSORESETSCARRY.IFTIMEOUTOCCURRED, 0470*CARRYISSETANDA-REGISTERCONTAINS$1A. 0480*TURNSPUNCHOFFBEFOREREADING.CARRIAGE 0490*RETURNENDSRECORD. 0500* 0510*RIRREADERDEVICEINPUTRECORDROUTINE.READS 0520*RECORDINTOBUFFER.TURNSPUNCHOFF 0530*BEFOREREADING.CARRIAGERETURNENDS 0540*RECORD. 0550* 0560*********************************************** 0570*********************************************** 0580PAGE 0590*EXBUGEQUATES 0600INCHNPEQU$F015EXBUGCHARACTERINPUT 0610PDATAEQU$F024PRINTCRLFDATASTRING 0620PDATA1EQU$F027PRINTDATASTRINGNOCR/LF 0630PCRLFEQU$F021PRINTCR/LF 0640OUTCHEQU$F018OUTPUTCHAR--PADNULLS 0650*PERSPEED 0660OCHAREQU$F9CFOUTPUTCHAR--NONULLS 0670AECHOEQU$FF53INCHNPNOECHOFLAG 0680CASSETEQU$FF62EXBUGPUNCHFLAG 0690SPEEDEQU$FF02EXBUGSPEEDFLAG 0700*0=10,1=30,FF=120CPS 0710MTTYDIEQU$FCF5MAIDTTYDATAIN 0720MTTYDOEQU$FCF5MAIDTTYDATAOUT 0730MTTYSIEQU$FCF4MAIDTTYSTATUSIN 0740MTTYSOEQU$FCF4MAIDTTYSTATUSOUT 0750SBITEQU$FCFDSTOPBITCONTROLFORACIA 0760EXBUGEQU$F564EXBUGENTRYPOINT 0770SPC5 0780*ASSEMBLERANDEDTORENTRYLOCATIONS 0790SPC1 0800ASTARTEQU$8F4ASSEMBLERENTRYPOINT 0810ESTARTEQU$1641EDITORENTRYPOINT 0820SPC5 0830ORG$F0 0840*I/OFLAGANDSTORAGEAREA 0850SAVEXRMB2XREGSTORAGE 0860RCEMTRMB1READBUFFEREMPTYFLAG 0870RCGCPTRMB2READGETCHARPOINTER 0880NTIMEORMB1RIRNOTIMEOUTFLAG 0890PNCHRMB1PUNCHONFLAG 0900NECHORMB1CINOECHOFLAG 0910PAGE 0920ORG$100 0930*I/OJUMPTABLE 0940ASMJMPASTARTENTERASSEMBLER 0950EDJMPESTARTENTEREDITOR 0960XIOINTJMPINXIOINITIALIZEIO 0970XPOCJMPPOCPUNCHOUTPUT-CHAR 0980XPORJMPPORPUNCHOUTPUT-RECORD 0990XRICJMPRICREADERINPUT-CHAR 1000XRIRJMPRIRREADERINPUT-RECORD 1010XCOJMPCOCONSOLEOUTPUT 1020XCIJMPCICONSOLEINPUT-NOECHO 1030XCIEJMPCIECONSOLEINPUT-ECHO 1040XDATAJMPPDATAPRINTCRLFDATASTRING 1050XDATA1JMPPDATA1PRINTDATASTRING 1060XCRLFJMPPCRLFPRINTCRLF 1070XLEADJMPLEADPUNCHLEADER-TRAILER 1080XNCHONJMPPNCHONTURNPUNCHON 1090XNCHOFJMPPNCHOFTURNPUNCHOFF 1100XBUGJMPEXBUGENTEREXBUG 1110XHEADJMPXDATAPRINTASSEMBLYHEADING 1120XLINEJMPXDATA1PRINTASSEMBLYLINE 1130JUMP1JMP*RESERVEDJUMPLOCATION 1140JUMP2JMP7 *RESERVEDJUMPLOCATION 1150PAGE 1160*SUBROUTINETOINITIALIZEIOFLAGS 1170INXIOEQU* 1180CLRRCEMTREADBUFFEREMPTY 1190CLRPNCHPUNCHISOFF 1200CLRNTIMEOTIMEOUT 1210CLRNECHOECHO 1220RTS 1230SPC5 1240*SUBROUTINETOINPUTCHARACTERFROMCONSOLE 1250CIEQU*CONSOLEINPUT 1260INCNECHONOECHOENTRY 1270CIETSTNECHOECHOENTRY 1280BEQCI1 1290INCAECHOSETNOECHOFLAG 1300CI1JSRINCHNPEXBUGCHARACTERINPUT 1310***STRIPCHARACTERSFROMINPUT*** 1320LDX#NCHAR 1330CI2CMPAXBADCHAR? 1340BEQCIEYES-IGNORECHAR 1350INXNO-KEEPCHECKING 1360CPX#ENCHARDONE? 1370BNECI2NO 1380*********************************** 1390CLRNECHOYES-RESETNECHOFLAG 1400RTS 1410SPC5 1420*SUBROUTINETOOUTPUTCHARACTERTOCONSOLE 1430COEQU* 1440CMPA#$09TAB? 1450BNECO1NOTTAB 1460LDAA#$20CHANGETABTOSPACE 1470CO1CMPA#$DC/R? 1480BNECO2NO 1490BSRXCRLFYES-OUTPUTCRLF 1500CO2JSROUTCHOUTPUTCHAR 1510CO4RTS 1520PAGE 1530*SUBROUTINETOPUNCH5INCHESOFBLANKTAPE 1540LEADEQU* 1550LDAB#505IN=50CHARS 1560LEAD1CLRA 1570BSRXPOCPUNCHNULL 1580DECB 1590BNELEAD1NOTDONE 1600BRAXNCHOFTURNPUNCHOFF 1610SPC5 1620*SUBROUTINETOPUNCHCHARACTER 1630POCEQU* 1640BSRXNCHONTURNPUNCHON 1650CMPA#$DCR? 1660BNEXCONO-OUTPUTCHAR 1670TSTSPEEDYES-SPEED=120? 1680BPLXCONO-OUTPUTCHAR 1690STXSAVEXYES-STOREXREG 1700LDX#$5DC0DELAYFORCASSETTE 1710UPDEX 1720BNEUP 1730LDXSAVEXRESTOREXREG 1740JMPXCOOUTPUTCHAR 1750SPC5 1760*SUBROUTNETOPUNCHDATASTRING 1770POREQU* 1780BSRXNCHONTURNPUNCHON 1790POR1LDAAXGETCHAR 1800CMPA#4CHAR=4? 1810BEQXNCHOFYES-TURNPUNCHOFF 1820JSROUTCHNO-OUTPUTCHAR 1830INXCONTINUE 1840BRAPOR1 1850SPC5 1860*SUBR942761:FDB:+N1 4DC939762:57 4DCA13763:19 4DCB0C764:FCB::118-*-1 4DCC414E4420765:FCC"ANDWILLBE" 4DD8766:::118EQU* 4DD836767:54 4DD90A768:10 4DDA4948769:FDB:+A 4DDC34770:52 MAL/68001.2:4DDE 1-03-7812:01AM;Page15;Form1 4DDD37771:55 4DDE13772:19 4DDF24773:FCB::119-*-1 4DE020444159774:FCC"DAYSOLDATTHESTARTOFTHISCHART" 4E04775:::119EQU* 4E0436776:54 4E0535777:53 4E0632778::110050 4E07044C779:FDB1100 4E090A780:10 4E0A4942781:FDB:+N1 4E0C39782:57 4E0D35783:53 4E0E32784::110150 4E0F044D785:FDB1101 4E110A786:10 4E124942787:FDB:+N1 4E1439788:57 4E1535789:53 4E1632790::111050 4E170456791:FDB1110 4E190A792:10 4E1A4942793:FDB:+N1 4E1C39794:57 4E1D13795:19 4E1E1D796:FCB::11A-*-1 4E1F20202020797:FCC"NEGATIVEPHASE" 4E3C798:::11AEQU* 4E3C36799:54 4E3D32800::111150 4E3E0457801:FDB1111 4E400A802:10 4E414942803:FDB:+N1 4E4339804:57 4E4413805:19 4E450C806:FCB::11B-*-1 4E4620202020807:FCC"CRITICAL" 4E52808:::11BEQU* 4E5236809:54 4E5332810::111250 4E540458811:FDB1112 4E560A812:10 4E574942813:FDB:+N1 4E5939814:57 4E5A13815:19 4E5B12816:FCB::11C-*-1 4E5C20202020817:FCC"POSITIVEPHASE" 4E6E818:::11CEQU* 4E6E36819:54 4E6F35820:53 4E7032821::111550 4E71045B822:FDB1115 4E730A823:10 4E744942824:FDB:+N1 4E7639825:57 MAL/68001.2:4E78 1-03-7812:01AM;Page16;Form1 8 4E7713826:19 4E7809827:FCB::11D-*-1 4E7920202020828:FCC"" 4E82829:::11DEQU* 4E8236830:54 4E8332831::112050 4E840460832:FDB1120 4E860C833:12 4E87494E834:FDB:+I 4E8911835:17 4E8A01836:0+1 4E8B19837:25 4E8C0D838:13 4E8D003C839:FDB60 4E8F0D840:13 4E900001841:FDB1 4E9243842:67 4E9332843::113050 4E94046A844:FDB1130 4E960A845:10 4E974942846:FDB:+N1 4E9939847:57 4E9A13848:19 4E9B01849:FCB1 4E9C2D850:FCC"-" 4E9D36851:54 4E9E32852::114050 4E9F0474853:FDB1140 4EA144854:68 4EA2494E855:FDB:+I 4EA432856::115050 4EA5047E857:FDB1150 4EA70A858:10 4EA84942859:FDB:+N1 4EAA39860:57 4EAB35861:53 4EAC32862::116050 4EAD0488863:FDB1160 4EAF0C864:12 4EB049C0865:FDB:+C 4EB209866:0+9 4EB319867:25 4EB432868::116150 4EB50489869:FDB1161 4EB712870:18 4EB8484E871:FDB:+L$ 4EBA13872:19 4EBB3C873:FCB::11E-*-1 4EBC2E2E2E2E874:FCC"............................................................" 4EF8875:::11EEQU* 4EF81A876:26 4EF932877::120050 4EFA04B0878:FDB1200 4EFC0A879:10 4EFD4990880:FDB:+Y3 MAL/68001.2:4F00 1-03-7812:01AM;Page17;Form1 4EFF04881:0+4 4F0020882:32 4F010A883:10 4F024990884:FDB:+Y3 4F0404885:0+4 4F0520886:32 4F065B887:91 4F0725888:37 4F082B889:43 4F094F14890:FDB::11F 4F0B0C891:12 4F0C48DE892:FDB:+D 4F0E02893:0+2 4F0F17894:23 4F100D895:13 4F11001D896:FDB29 4F1319897:25 4F14898:::11FEQU* 4F1432899::121050 4F1504BA900:FDB1210 4F1712901:18 4F18484E902:FDB:+L$ 4F1A0D903:13 4F1B001E904:FDB30 4F1D15905:21 4F1E0D906:13 4F1F00907:FCB0 4F202A908:FCC"*" 4F211B909:27 4F2232910::126050 4F2304EC911:FDB1260 4F250C912:12 4F2648BE913:FDB:+Z1 4F280D914:13 4F290017915:FDB23 4F2B19916:25 4F2C32917::126550 4F2D04F1918:FDB1265 4F2F0C919:12 4F3049A2920:FDB:+P2 4F320A921:10 4F334948922:FDB:+A 4F3572923:114 4F364AFC924:FDBFNA 4F380D925:13 4F390017926:FDB23 4F3B20927:32 4F3C0A928:10 4F3D49BA929:FDB:+P 4F3F1F930:31 4F4057931:87 4F410D932:13 4F42001C933:FDB28 4F441F934:31 4F450D935:13 MAL/68001.2:4F48 1-03-7812:01AM;Page18;Form1 4F46001E936:FDB30 4F481C937:28 4F4919938:25 4F4A32939::127050 4F4B04F6940:FDB1270 4F4D0C941:12 4F4E48BE942:FDB:+Z1 4F500D943:13 4F51001C944:FDB28 4F5319945:25 4F5432946::127550 4F5504FB947:FDB1275 4F570C948:12 4F58499C949:FDB:+E2 4F5A0A950:10 4F5B4948951:FDB:+A 4F5D72952:114 4F5E4AFC953: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 4F7B19974:25 4F7C32975::128550 4F7D0505976:FDB1285 4F7F0C977:12 4F8049A8978:FDB:+I2 4F820A979:10 4F834948980:FDB:+A 4F8572981:114 4F864AFC982:FDBFNA 4F880D983:13 4F890021984:FDB33 4F8B20985:32 4F8C0A986:10 4F8D49B9 A987:FDB:+P 4F8F1F988:31 4F9057989:87 4F910D990:13 MAL/68001.2:4F94 1-03-7812:01AM;Page19;Form1 4F92001C991:FDB28 4F941F992:31 4F950D993:13 4F96001E994:FDB30 4F981C995:28 4F9919996:25 4F9A32997::129350 4F9B050D998:FDB1293 4F9D12999:18 4F9E484E1000:FDB:+L$ 4FA00A1001:10 4FA149A21002:FDB:+P2 4FA3151003:21 4FA40D1004:13 4FA5001005:FCB0 4FA6501006:FCC"P" 4FA71B1007:27 4FA8321008::129450 4FA9050E1009:FDB1294 4FAB121010:18 4FAC484E1011:FDB:+L$ 4FAE0A1012:10 4FAF499C1013:FDB:+E2 4FB1151014:21 4FB20D1015:13 4FB3001016:FCB0 4FB4451017:FCC"E" 4FB51B1018:27 4FB6321019::129550 4FB7050F1020:FDB1295 4FB9121021:18 4FBA484E1022:FDB:+L$ 4FBC0A1023:10 4FBD49A81024:FDB:+I2 4FBF151025:21 4FC00D1026:13 4FC1001027:FCB0 4FC2491028:FCC"I" 4FC31B1029:27 4FC4321030::129650 4FC505101031:FDB1296 4FC70A1032:10 4FC849A21033:FDB:+P2 4FCA0A1034:10 4FCB499C1035:FDB:+E2 4FCD251036:37 4FCE2B1037:43 4FCF4FE61038:FDB::120 4FD10A1039:10 4FD2499C1040:FDB:+E2 4FD40A1041:10 4FD549A81042:FDB:+I2 4FD7251043:37 4FD82B1044:43 4FD94FE61045:FDB::121 MAL/68001.2:4FDC 1-03-7812:01AM;Page20;Form1 4FDB121046:18 4FDC484E1047:FDB:+L$ 4FDE0A1048:10 4FDF49A21049:FDB:+P2 4FE1151050:21 4FE20D1051:13 4FE3001052:FCB0 4FE4231053:FCC"#" 4FE51B1054:27 4FE61055:::121EQU* 4FE61056:::120EQU* 4FE6321057::129750 4FE705111058:FDB1297 4FE90C1059:12 4FEA494E1060:FDB:+I 4FEC0A1061:10 4FED49901062:FDB:+Y3 4FEF0A1063:10 4FF049901064:FDB:+Y3 4FF20D1065:13 4FF300641066:FDB100 4FF5201067:32 4FF65B1068:91 4FF70D1069:13 4FF800641070:FDB100 4FFA1F1071:31 4FFB1D1072:29 4FFC191073:25 4FFD321074::129850 4FFE05121075:FDB1298 5000121076:18 500148C41077:FDB:+M$ 50030A1078:10 5004496C1079:FDB:+M3 50067A1080:122 50071A1081:26 5008321082::129950 500905131083:FDB1299 500B121084:18 500C48CB1085:FDB:+D$ 500E0A1086:10 500F497E1087:FDB:+D3 50117A1088:122 50121A1089:26 5013321090::130050 501405141091:FDB1300 5016121092:18 501748D21093:FDB:+I$ 50190A1094:10 501A494E1095:FDB:+I 501C7A1096:122 501D1A1097:26 501E321098::130150 501F05151099:FDB1301 5021141100:20 MAL/68001.2:5024 1-03-7812:01AM;Page21;Form1 502248C41101:FDB:+M$ 5024021102:0+2 50252A1103:42 50262B1104:43 502750321105:FDB::122 5029121106:18 502A48C41107:FDB:+M$ 502C121108:18 502D48C41109:FDB:+M$ 502F021110:0+2 50303D1111:61 50311A1112:26 50321113:::122EQU* 5032321114::130250 503305161115:FDB1302 5035141116:20 503648CB1117:FDB:+D$ 5038021118:0+2 50392A1119:42 503A2B1120:43 503B50461121:FDB::123 503D121122:18 503E48CB1123:FDB:+D$ 5040121124:18 504148CB1125:FDB:+D$ 5043021126:0+2 50443D1127:61 50451A1128:26 50461129:::123EQU* 5046321130::130350 504705171131:FDB1303 5049141132:20 504A48D21133:FDB:+I$ 504C021134:0+2 504D2A1135:42 504E2B1136:43 504F505A1137:FDB::124 5051121138:18 505248D21139:FDB:+I$ 5054121140:18 505548D2: 1141:FDB:+I$ 5057021142:0+2 50583D1143:61 50591A1144:26 505A1145:::124EQU* 505A321146::130950 505B051D1147:FDB1309 505D0A1148:10 505E49421149:FDB:+N1 5060391150:57 5061121151:18 506248C41152:FDB:+M$ 5064361153:54 5065131154:19 5066011155:FCB1 MAL/68001.2:5068 1-03-7812:01AM;Page22;Form1 50672F1156:FCC"/" 5068361157:54 5069121158:18 506A48CB1159:FDB:+D$ 506C361160:54 506D131161:19 506E011162:FCB1 506F2F1163:FCC"/" 5070361164:54 5071121165:18 507248D21166:FDB:+I$ 5074361167:54 5075131168:19 5076011169:FCB1 5077201170:FCC"" 5078361171:54 5079121172:18 507A484E1173:FDB:+L$ 507C361174:54 507D351175:53 507E321176::139050 507F056E1177:FDB1390 5081121178:18 5082484E1179:FDB:+L$ 50840A1180:10 508549A21181:FDB:+P2 5087151182:21 50880D1183:13 5089001184:FCB0 508A2E1185:FCC"." 508B1B1186:27 508C321187::140050 508D05781188:FDB1400 508F121189:18 5090484E1190:FDB:+L$ 50920A1191:10 5093499C1192:FDB:+E2 5095151193:21 50960D1194:13 5097001195:FCB0 50982E1196:FCC"." 50991B1197:27 509A321198::141050 509B05821199:FDB1410 509D121200:18 509E484E1201:FDB:+L$ 50A00A1202:10 50A149A81203:FDB:+I2 50A3151204:21 50A40D1205:13 50A5001206:FCB0 50A62E1207:FCC"." 50A71B1208:27 50A8321209::142050 50A9058C1210:FDB1420 MAL/68001.2:50AC 1-03-7812:01AM;Page23;Form1 50AB121211:18 50AC484E1212:FDB:+L$ 50AE0D1213:13 50AF001E1214:FDB30 50B1151215:21 50B20D1216:13 50B3001217:FCB0 50B42A1218:FCC"*" 50B51B1219:27 50B6321220::146050 50B705B41221:FDB1460 50B90C1222:12 50BA49481223:FDB:+A 50BC0A1224:10 50BD49481225:FDB:+A 50BF011226:0+1 50C01C1227:28 50C1191228:25 50C2321229::147050 50C305BE1230:FDB1470 50C50C1231:12 50C6497E1232:FDB:+D3 50C80A1233:10 50C9497E1234:FDB:+D3 50CB011235:0+1 50CC1C1236:28 50CD191237:25 50CE321238::148050 50CF05C81239:FDB1480 50D10A1240:10 50D2497E1241:FDB:+D3 50D40C1242:12 50D548DE1243:FDB:+D 50D70A1244:10 50D8496C1245:FDB:+M3 50DA171246:23 50DB0B1247:11 50DC281248:40 50DD2B1249:43 50DE50E31250:FDB::125 50E02E1251:46 50E14F221252:FDB:1260 50E31253:::125EQU* 50E3321254::149050 50E405D21255:FDB1490 50E60C1256:12 50E7497E1257:FDB:+D3 50E9011258:0+1 50EA191259:25 50EB321260::150050 50EC05DC1261:FDB1500 50EE0C1262:12 50EF496C1263:FDB:+M3 50F10A1264:10 50F2496C1265:FDB:+M3 MAL/68001.2:50F5 1-03-7812:01AM;Page24;Form1 50F4011266:0+1 50F51C1267:28 50F6191268:25 50F7321269::160050 50F806401270:FDB1600 50FA0C1271:12 50FB49B41272:FDB:+N 50FD0A1273:10 50FE49B41274:FDB:+N 5100011275:0+1 51011D1276:29 5102191277:25 5103321278::161050 5104064A1279:FDB1610 51060A1280:10 510749B41281:FDB:+N 5109001282:0+0 510A251283:37 510B2B1284:43 510C51111285:FDB::126 510E2E1286:46 510F4A7B1287:FDB:0100 51111288:::126EQU* 5111321289::162050 511206541290:FDB1620 51140A1291:10 5115496C1292:FDB:+M3 51170D1293:13 5118000C1294:FDB12 511; A281295:40 511B2B1296:43 511C51211297:FDB::127 511E2E1298:46 511F4F221299:FDB:1260 51211300:::127EQU* 5121321301::163050 5122065E1302:FDB1630 51240C1303:12 5125496C1304:FDB:+M3 5127011305:0+1 5128191306:25 5129321307::164050 512A06681308:FDB1640 512C0C1309:12 512D49901310:FDB:+Y3 512F0A1311:10 513049901312:FDB:+Y3 5132011313:0+1 51331C1314:28 5134191315:25 5135321316::165050 513606721317:FDB1650 51380C1318:12 513948DE1319:FDB:+D 513B021320:0+2 MAL/68001.2:513D 1-03-7812:01AM;Page25;Form1 513C171321:23 513D0D1322:13 513E001C1323:FDB28 5140191324:25 5141321325::166050 5142067C1326:FDB1660 51440A1327:10 514549901328:FDB:+Y3 51470A1329:10 514849901330:FDB:+Y3 514A041331:0+4 514B201332:32 514C5B1333:91 514D041334:0+4 514E1F1335:31 514F1D1336:29 5150001337:0+0 5151251338:37 51522B1339:43 5153515E1340:FDB::128 51550C1341:12 515648DE1342:FDB:+D 5158021343:0+2 5159171344:23 515A0D1345:13 515B001D1346:FDB29 515D191347:25 515E1348:::128EQU* 515E321349::167050 515F06861350:FDB1670 51612E1351:46 51624F221352:FDB:1260 5164321353::700050 51651B581354:FDB7000 51670C1355:12 516849961356:FDB:+I1 516A001357:0+0 516B191358:25 516C321359::702050 516D1B6C1360:FDB7020 516F0A1361:10 517049841362:FDB:+Y1 51720A1363:10 517349841364:FDB:+Y1 5175041365:0+4 5176201366:32 51775B1367:91 5178041368:0+4 51791F1369:31 517A251370:37 517B2B1371:43 517C51871372:FDB::129 517E0C1373:12 517F48DE1374:FDB:+D 5181021375:0+2 MAL/68001.2:5183 1-03-7812:01AM;Page26;Form1 5182171376:23 51830D1377:13 5184001D1378:FDB29 5186191379:25 51871380:::129EQU* 5187321381::704050 51881B801382:FDB7040 518A0C1383:12 518B494E1384:FDB:+I 518D111385:17 518E0A1386:10 518F49601387:FDB:+M1 5191191388:25 51920A1389:10 5193496C1390:FDB:+M3 51950D1391:13 519600011392:FDB1 5198431393:67 5199321394::706050 519A1B941395:FDB7060 519C0C1396:12 519D49961397:FDB:+I1 519F0A1398:10 51A049961399:FDB:+I1 51A20C1400:12 51A348DE1401:FDB:+D 51A50A1402:10 51A6494E1403:FDB:+I 51A8171404:23 51A90B1405:11 51AA1C1406:28 51AB191407:25 51AC321408::708050 51AD1BA81409:FDB7080 51AF441410:68 51B0494E1411:FDB:+I 51B2321412::710050 51B31BBC1413:FDB7100 51B50C1414:12 51B649961415:FDB:+I1 51B80A1416:10 51B949961417:FDB:+I1 51BB0C1418:12 51BC48DE1419:FDB:+D 51BE0A1420:10 51BF496C1421:FDB:+M3 51C1171422:23 51C20B1423:11 51C31D1424:29 51C40A1425:10 51C549721426:FDB:+D1 51C71D1427:29 51C80A1428:10 51C9497E1429:FDB:+D3 51CB1C1430:28 MAL/68001.2:51CD 1-03-7812:01AM;Page27;Form1 51CC191431:25 51CD321432::712050 51CE1BD01433:FDB7120 51D02E1434:46 51D14C8A1435:FDB:0484 51D3321436::800050 51D41F401437:FDB8000 51D65E1438:94 51D7011439:0+1 51D8261440:38 51D92B1441:43 51DA51DF1442:FDB::12A 51DC2E1443:46 51DD4A7B1444:FDB:0100 51DF1445:::12AEQU* 51DF321446::800150 51E01F411447:FDB8001 51E2311448:4< 9 51E3321449::808050 51E41F901450:FDB8080 51E60C1451:12 51E748DE1452:FDB:+D 51E9021453:0+2 51EA171454:23 51EB0D1455:13 51EC001C1456:FDB28 51EE191457:25 51EF321458::900050 51F023281459:FDB9000 51F20A1460:10 51F349841461:FDB:+Y1 51F50A1462:10 51F649841463:FDB:+Y1 51F8041464:0+4 51F9201465:32 51FA5B1466:91 51FB041467:0+4 51FC1F1468:31 51FD251469:37 51FE2B1470:43 51FF520A1471:FDB::12B 52010C1472:12 520248DE1473:FDB:+D 5204021474:0+2 5205171475:23 52060D1476:13 5207001D1477:FDB29 5209191478:25 520A1479:::12BEQU* 520A321480::901050 520B23321481:FDB9010 520D0C1482:12 520E49961483:FDB:+I1 5210001484:0+0 5211191485:25 MAL/68001.2:5213 1-03-7812:01AM;Page28;Form1 5212321486::902050 5213233C1487:FDB9020 52150C1488:12 521649541489:FDB:+J 52180A1490:10 521949601491:FDB:+M1 521B011492:0+1 521C1C1493:28 521D191494:25 521E321495::904050 521F23501496:FDB9040 52210C1497:12 5222494E1498:FDB:+I 5224111499:17 52250A1500:10 522649541501:FDB:+J 5228191502:25 52290D1503:13 522A000C1504:FDB12 522C0D1505:13 522D00011506:FDB1 522F431507:67 5230321508::906050 523123641509:FDB9060 52330C1510:12 523449961511:FDB:+I1 52360A1512:10 523749961513:FDB:+I1 52390C1514:12 523A48DE1515:FDB:+D 523C0A1516:10 523D494E1517:FDB:+I 523F171518:23 52400B1519:11 52411C1520:28 5242191521:25 5243321522::908050 524423781523:FDB9080 5246441524:68 5247494E1525:FDB:+I 5249321526::910050 524A238C1527:FDB9100 524C0C1528:12 524D49961529:FDB:+I1 524F0A1530:10 525049961531:FDB:+I1 52520C1532:12 525348DE1533:FDB:+D 52550A1534:10 525649601535:FDB:+M1 5258171536:23 52590B1537:11 525A1C1538:28 525B0A1539:10 525C49721540:FDB:+D1 MAL/68001.2:525F 1-03-7812:01AM;Page29;Form1 525E1D1541:29 525F011542:0+1 52601C1543:28 5261191544:25 5262321545::912050 526323A01546:FDB9120 5265301547:48 5266321548::948050 526725081549:FDB9480 52690C1550:12 526A48DE1551:FDB:+D 526C021552:0+2 526D171553:23 526E0D1554:13 526F001C1555:FDB28 5271191556:25 5272321557::950050 5273251C1558:FDB9500 52750A1559:10 527649841560:FDB:+Y1 52780A1561:10 527949841562:FDB:+Y1 527B041563:0+4 527C201564:32 527D5B1565:91 527E041566:0+4 527F1F1567:31 5280251568:37 52812B1569:43 5282528D1570:FDB::12C 52840C1571:12 528548DE1572:FDB:+D 5287021573:0+2 5288171574:23 52890D1575:13 528A001D1576:FDB29 528C191577:25 528D1578:::12CEQU* 528D321579::952050 528E25301580:FDB9520 52900C1581:12 529149961582:FDB:+I1 5293001583:0+0 5294191584:25 5295321585::954050 529625441586:FDB9540 52980A1587:10 529949601588:FDB:+M1 529B011589:0+1 529C251590:37 529D2C1591:44 529E52D51592:FDB:9640 52A0321593::956050 52A125581594:FDB9560 52A30C1595:12 MAL/68001.2:52A6 1-03-7812:01AM;Page30;Form1 52A449541596:FDB:+J 52A60A1597:10 52A749601598:FDB:+M1 52A9011599:0+1 52AA1D1600:29 52AB191601:25 52AC321602::958050 52AD256C1603:FDB= 9580 52AF0C1604:12 52B0494E1605:FDB:+I 52B2111606:17 52B3011607:0+1 52B4191608:25 52B50A1609:10 52B649541610:FDB:+J 52B80D1611:13 52B900011612:FDB1 52BB431613:67 52BC321614::960050 52BD25801615:FDB9600 52BF0C1616:12 52C049961617:FDB:+I1 52C20A1618:10 52C349961619:FDB:+I1 52C50C1620:12 52C648DE1621:FDB:+D 52C80A1622:10 52C9494E1623:FDB:+I 52CB171624:23 52CC0B1625:11 52CD1C1626:28 52CE191627:25 52CF321628::962050 52D025941629:FDB9620 52D2441630:68 52D3494E1631:FDB:+I 52D5321632::964050 52D625A81633:FDB9640 52D80C1634:12 52D949961635:FDB:+I1 52DB0A1636:10 52DC49961637:FDB:+I1 52DE0A1638:10 52DF49721639:FDB:+D1 52E11C1640:28 52E2011641:0+1 52E31D1642:29 52E4191643:25 52E5321644::966050 52E625BC1645:FDB9660 52E8301646:48 52E9311647:49 1648:END MAL/68001.2:52EA 1-03-7812:01AM;Page31;Form1 SymbolsSortedbyNAME: :/4846*:0040/49C6*:0050/49D1*:0051/49DD*:0052/49E9*:0053/49F5*:0054/4A01*:0055/4A0D *:0056/4A19*:0057/4A25*:0058/4A31*:0059/4A3D*:0060/4A4B*:0061/4A59*:0062/4A67*:0070/4A75 :0100/4A7B*:0101/4A83*:0103/4A8B*:0104/4ABB*:0105/4ACC*:0110/4AE6*:0115/4AEE*:0130/4AF6 *:0195/4B0F*:0200/4B1F*:0210/4B27:0230/4B47*:0290/4B84*:0300/4B9C*:0320/4BC6*:0330/4BDE *:0380/4C0C*:0390/4C1C*:0400/4C2C*:0410/4C3C*:0420/4C4C:0460/4C5C*:0470/4C66*:0480/4C70 *:0482/4C7A:0484/4C8A*:0486/4C94:0490/4C9A*:0500/4CA0*:0510/4CAA*:0520/4CB4*:0530/4CBE *:0540/4CC8*:0550/4CCE*:0555/4CDC*:0560/4CE9*:0570/4D01*:0580/4D17*:0590/4D32*:0600/4D38 *:0615/4D43:1090/4D5E*:1095/4D92*:1096/4DC3*:1100/4E06*:1101/4E0E*:1110/4E16*:1111/4E3D *:1112/4E53*:1115/4E70*:1120/4E83*:1130/4E93*:1140/4E9E*:1150/4EA4*:1160/4EAC*:1161/4EB4 *:1200/4EF9*:1210/4F14:1260/4F22*:1265/4F2C*:1270/4F4A*:1275/4F54*:1280/4F72*:1285/4F7C *:1293/4F9A*:1294/4FA8*:1295/4FB6*:1296/4FC4*:1297/4FE6*:1298/4FFD*:1299/5008*:1300/5013 *:1301/501E*:1302/5032*:1303/5046*:1309/505A*:1390/507E*:1400/508C*:1410/509A*:1420/50A8 *:1460/50B6*:1470/50C2*:1480/50CE*:1490/50E3*:1500/50EB*:1600/50F7*:1610/5103*:1620/5111 *:1630/5121*:1640/5129*:1650/5135*:1660/5141*:1670/515E:7000/5164*:7020/516C*:7040/5187 *:7060/5199*:7080/51AC*:7100/51B2*:7120/51CD:8000/51D3*:8001/51DF:8080/51E3*:9000/51EF *:9010/520A*:9020/5212*:9040/521E*:9060/5230*:9080/5243*:9100/5249*:9120/5262:9480/5266 *:9500/5272*:9520/528D*:9540/5295*:9560/52A0*:9580/52AC*:9600/52BC*:9620/52CF:9640/52D5 *:9660/52E5::/0180::11/4832::110/4C2C::111/4C3C::112/4C4C::113/4C5C::114/4D32 ::115/4D5E::116/4D8C::117/4DAB::118/4DD8::119/4E04::11A/4E3C::11B/4E52::11C/4E6E ::11D/4E82::11E/4EF8::11F/4F14::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*:011E5266495A01252C52A23209420C494E0A495A011D1932094C0C4948110106 S11E5281190A494E0D0001433209560C49900A49900C48DE0A4948170B1C1986 S11E529C32096044494832096A0C49900A49900A496C1C011D19320974303FE6 S10452B73FB3 S9 A7 S11952D232096A0C49900A49900A496C1C011D19320974303F3FE6 S9 D193225BC3031C4 S9 0010DearAllen: 0020 0030EnclosedisacopyofmyproposalsubmittedtoyouonApril2,1979 0040forthedevelopmentofaBloodPressureTesterwithdigitalread- 0050out.Alsoenclosedisaresumeofbmybackgroundintheelectronics 0060industry.Theresumeisnotcurrentbutinanattempttobringitup 0070todatethefollowinginformationisincluded.\H ed,NewportBeach,California ElectronicsConsultant: Providedengineeringservicestovariouscompanies intheOrangeandLosAngelesCountyareas.These servicesincludedcircuitdesign,componenteval- uation,purchasing,printedcircuitlayoutand productdevelopment.Alsoservedasinstuructor foronesemesteratSantaAnaCollegeasElectronics WorkExperienceCoordinator. 6/58-1/70HeldvariouspositionspositionsasLabratoryTechnician,Electoronics Technician,FieldServiceEngineer,ComponentEng- ineer,andElectronicsEngineerinvariouscompanies intheeledctronicsindustry.  6/77-6/78Co-founderandPresidentofAstronCorporation Develpopedalineofpowersuppliesfortheconsumer communicationmarket.Wassoltotalyresponsiblefor thetechnicaldesignanddevelopmentofseveral modelsnowinproduction. Mr.AllenJ.Beeber,PresidentApril27,1979 TheLumicscopeCompany,Inc. 836Broadway NewYourrk,N>.Y.10003 DearAllen: Iamenclosingabriefresumeofmybackgroundintheelectronics fieldandacoupleofbrochuresontwooftheproductsthatI wasresponsibleforcreating. ThebrochureontheEnergyCostMonitorprovidesabriefdescription ofanmicroprocessorbasedinstrumentationsystemspecifically designedtomonitorpowerusedandcomputesdtheutilitybillon areal-timebasis.Thissystemiscurrentlybeingevaluatedby SouthernCaliforniaEdisonCompanyinresidentialinstallations. Thefbrochu? reontheAstronRS-20Apowersupplyisanexampleofa seriesofpowersuppliesIdesignedanddevelopedforAstronCorp- orationwhichIwasco-founderofwhichIwasCo-founderandPresident.Astronhad salesinthesecondyearofit'sexistanceofapproximately $600,00.00,000.00whichrepresentsaround12,000powersupplies.This isnottoobadconsideringThthatthecompanystartedwithabout $20,000capital. Thelettertomefrommypatentattorneymaybeofinteresttoyou atthistimesoIamenclosingacopyforyourfiles. AcopyofmyproposaltoyouofApril2,1979isincludedinthe packageaswell. AsImentionedinourlasttelephoneconversationontheApril23,1979 Ifforanyreasontheprojectprovestobenotimpracticalfroma technicalstandpointthemasximumfinancialexposureforthe engineeringeffortswouldbe$17,500.00.Alsothe$10,000.00 fortheexclusiverighttomanufactureandselltheporoductwould berefunded. Ibeleivetheporosposaltobeafairandreasonableapproachto developingthebloodpressuretesterandaminimumonethatI canlivewith.Myconfidencelevelforasuccessfulprogramis extremelyhighandIamwillingtodevotemaximumefforttosee thatitisasuccess. Ifthereisanyadditionalinformationthatyoukneneedfromme Iwilltrytoprovideprovideitassoonaspossible. Verytryulyyours, _______________________________ ElmoM.Gregory P.O.Box1315 Hemet,California92343 (714)-658-3812 S11E0000000102030405060708000A0B0C0D0E0F101112131415161718191A8B S11E001B1B1C1D1E1F202122232425262728292A2B2C2D2E2F303132330000F7 S11E003600000000000000003E00000000000000004700000000000000000026 S10B005100000054000000004F S11000F0F00000000000000000000000000F S11E0100010000000000000000000000000000000000000000000000000000DF S11E011B0000000000000000000000000000000000012C00007F00007F00009A S11E01367F00007F000039013D00007C0000000027FE7C00000000B129CE0070 S11E015100000027FE088C000026FE007F00003901610000810926FE86200044 S11E016C0026FE8DFE0000000001750000C63200008DFE5A26FE20FE018400AB S11E0187008DFE810D26FE7D00002AFEFF0000CE5DC0000026FEFE00007E00ED S11E01A20001A300008DFE0000810427FEBD00000820FE01B500007D00002629 S11E01BDFE7F000020FE01C300000000860D0000088C004826FE7D000027FE8F S11E01D8BD000000002AFE0000BD00008637BD000020FE00008455B7000086B8 S11E01F311BD00000000CE00000000BD0000A70025FE810D27FE8C004727FE1F S11E020E0820FE00007F0000B600008435B700008613BD0000B60000B6000044 S11E02297C0000CE0000FF00000000A60008FF0000811A27FE810D26FE00004E S11E02440000024600007D000026FE367C00007C000002567D000027FE8610F4 S11E025FBD00008630BD00000000CF11867FBD0000008612BD00003200000225 S11E027A7900008614BD00007D000027FE8610BD00008639BD000000007F00A5 S11E0295007F000039029A0000FF0000000027FEBD000020FE0000000027FED2 S11E02B0B600004724FEB60000847F0000000027FE088C000026FE810926FECC S11C02CB862000000C390000FE00000D3902D802DA00@ 050/49D1 *:0051/49DD*:0052/49E9*:0053/49F5*:0054/4A01*:0055/4A0D*:0056/4A19*:0057/4A25*:0058/4A31 *:0059/4A3D*:0060/4A4B*:0061/4A59*:0062/4A67*:0070/4A75:0100/4A7B*:0101/4A83*:0103/4A8B ::13/4AB3*:0104/4ABB::14/4AC7*:0105/4ACC::15/4ACC::16/4AD5::17/4AE1*:0110/4AE6 ::27/4AE6*:0115/4AEE*:0130/4AF6FNA/4AFC*:0195/4B0F::18/4B0F*:0200/4B1F*:0210/4B27 ::19/4B3F:0230/4B47::1A/4B72*:0290/4B84*:0300/4B9C::1B/4B9C::1C/4BB4*:0320/4BC6 *:0330/4BDE::1D/4BDE::1E/4C04*:0380/4C0C*:0390/4C1C::1F/4C1C*:0400/4C2C::110/4C2C *:0410/4C3C::111/4C3C*:0420/4C4C::112/4C4C:0460/4C5C::113/4C5C*:0470/4C66*:0480/4C70 *:0482/4C7A:0484/4C8A*:0486/4C94:0490/4C9A*:0500/4CA0*:0510/4CAA*:0520/4CB4*:0530/4CBE *:0540/4CC8*:0550/4CCE*:0555/4CDC*:0560/4CE9*:0570/4D01*:0580/4D17*:0590/4D32::114/4D32 *:0600/4D38*:0615/4D43:1090/4D5E::115/4D5E::116/4D8C*:1095/4D92::117/4DAB*:1096/4DC3 ::118/4DD8::119/4E04*:1100/4E06*:1101/4E0E*:1110/4E16::11A/4E3C*:1111/4E3D::11B/4E52 *:1112/4E53::11C/4E6E*:1115/4E70::11D/4E82*:1120/4E83*:1130/4E93*:1140/4E9E*:1150/4EA4 *:1160/4EAC*:1161/4EB4::11E/4EF8*:1200/4EF9*:1210/4F14::11F/4F14:1260/4F22*:1265/4F2C *:1270/4F4A*:1275/4F54*:1280/4F72*:1285/4F7C*:1293/4F9A*:1294/4FA8*A :1295/4FB6*:1296/4FC4 *:1297/4FE6::120/4FE6::121/4FE6*:1298/4FFD*:1299/5008*:1300/5013*:1301/501E*:1302/5032 ::122/5032*:1303/5046::123/5046*:1309/505A::124/505A*:1390/507E*:1400/508C*:1410/509A *:1420/50A8*:1460/50B6*:1470/50C2*:1480/50CE*:1490/50E3::125/50E3*:1500/50EB*:1600/50F7 *:1610/5103*:1620/5111::126/5111*:1630/5121::127/5121*:1640/5129*:1650/5135*:1660/5141 *:1670/515E::128/515E:7000/5164*:7020/516C*:7040/5187::129/5187*:7060/5199*:7080/51AC *:7100/51B2*:7120/51CD:8000/51D3*:8001/51DF::12A/51DF:8080/51E3*:9000/51EF*:9010/520A ::12B/520A*:9020/5212*:9040/521E*:9060/5230*:9080/5243*:9100/5249*:9120/5262:9480/5266 *:9500/5272*:9520/528D::12C/528D*:9540/5295*:9560/52A0*:9580/52AC*:9600/52BC*:9620/52CF :9640/52D5*:9660/52E5 218Symbols. MAL/68001.2:52EA 1-03-7812:01AM;Page33;Form1 ***NoErrors. 100-200cr+sl2+tt2 3.Deletethedatabetweencolumns10and20inclusiveonline210.+nl+tt2 >DEL210:10-20cr+sl2+tt2 4.Deletelinenumber210.+nl+tt2 >DEL210cr+sl2+tt2 5.Deletethenext5lines(wheneditingafilewithoutlinenumbers).+nl+tt2 >DEL1000DIMA$(4),L$(60),F$(20),N$(20) 1010DIMZ1 1020DIMM$(3),D$(3),I$(3) 1030DIMLAR$/:E/ 1040DIMD(12) 1050DIMX$(10) 1060DIMN1,A,I,J,K 1070DIMM1,M2,M3,D1,D2,D3,Y1,Y2,Y3,I1,E2,P2,I2,X 1080DIMN,P,C 1090CREATE#2,"#LP" 1100D(1)=31 1110D(2)=28 1120D(3)=31 1130D(4)=30 1140D(5)=31 1150D(6)=30 1160D(7)=31 1170D(8)=31 1180D(9)=30 1190D(10)=31 1200D(11)=30 1210D(12)=31 1220ONERRORGOTO2210 1230PRINT#N1 1240PRINT#N1 1250INPUT"DOYOUWANTAGRAPHONTHEPRINTER"A$ 1260IFA$="STOP"THENCALLMDOS 1270IFA$<>"YES"THENN1=0ELSEN1=2 1280PRINT#N1 1290PRINT#N1 1300DEFFNA(A)=A-(INT(A/Z1)*Z1) 1310P=6.28319 1320PRINT#N1 1330INPUT"WHATISYOURNAME?"N$ 1340INPUT"ENTERYOURBIRTHDATE(E.G.1,1,1954):"M2,D2,Y2 1360INPUT"ENTERSTARTDATE:"M3,D3,Y3 1380INPUT"HOWMANYMONTHSWOULDYOULIKE?"N 1390IFY2>Y3THENGOTO1340 1400IFY2M3THENGOTO1340 1420IFM2D3THENGOTO1340 1440D1=D2 1450M1=M2 1460Y1=Y2 1470IFY1=Y3THEN2140ELSE1500 1480A=I1 1490GOTO1620 1500GOSUB2230 1510A=I1 1520D1=D3 1530M1=M3 1540Y1=Y3 1550GOSUB2330 1560A=A+I1 1570A=A+365*((Y3-Y2)-1) 1580FORI=(Y2+1)TO(Y3-1) 1590IFI/4=INT(I/4)THENA=A+1 1600NEXTI 1610IFY3=INT(Y3/4)*4THENA=A-1 1620PRINT#N1,"THISBIO-RHYTHMCHARTPREPAREDFOR:";N$ 1630PRINT#N1,"WHOWASBORNON";M2;"/";D2;"/";Y2 1640PRINT#N1,"ANDWILLBE";A;"DAYSOLDATTHESTARTOFTHISCHART" 1650PRINT#N1 1660PRINT#N1 1670PRINT#N1,"NEGATIVEPHASE"; 1680PRINT#N1,"CRITICAL"; 1690PRINT#N1,"POSITIVEPHASE" 1700PRINT#N1,""; 1710FORI=1TO60 1720PRINT#N1,"-"; 1730NEXTI 1740PRINT#N1 1750C=9 1760L$="............................................................" 1770IFY3/4=INT(Y3/4)THEND(2)=29 1780L$(30)="*" 1790Z1=23 1800P2=SIN(FNA(A)/23*P)*28+30 1810Z1=28 1820E2=SIN(FNA(A)/28*P)*28+30 1830Z1=3B 3 1840I2=SIN(FNA(A)/33*P)*28+30 1850L$(P2)="P" 1860L$(E2)="E" 1870L$(I2)="I" 1880IFP2=E2THENIFE2=I2THENL$(P2)="#" 1890I=Y3-(INT(Y3/100)*100) 1900M$=NUM$(M3) 1910D$=NUM$(D3) 1920I$=NUM$(I) 1930IFLEN(M$)>2THENM$=RIGHT$(M$,2) 1940IFLEN(D$)>2THEND$=RIGHT$(D$,2) 1950IFLEN(I$)>2THENI$=RIGHT$(I$,2) 1959IFP2<=31ANDP2>=29THENP2=30 1960PRINT#N1,M$;"/";D$;"/";I$;"";L$;TAB(70);SGN(P2-30) 1970L$(P2)="." 1980L$(E2)="." 1990L$(I2)="." 2000L$(30)="*" 2010A=A+1 2020D3=D3+1 2030IFD3<=D(M3)THENGOTO1790 2040D3=1 2050M3=M3+1 2060N=N-1 2070IFN=0THENGOTO1230 2080IFM3<=12THENGOTO1790 2090M3=1 2100Y3=Y3+1 2110D(2)=28 2120IFY3-(INT(Y3/4)*4)=0THEND(2)=29 2130GOTO1790 2140LETI1=0 2150IFY1=INT(Y1/4)*4THEND(2)=29 2160FORI=M1TOM3 2170LETI1=I1+D(I) 2180NEXTI 2190I1=I1-D(M3)-D1+D3 2200GOTO1480 2210IFERR<>1THENGOTO1230 2220STOP 2230D(2)=28 2240IFY1=INT(Y1/4)*4THEND(2)=29 2245IFY1=1900THEND(2)=28 2250I1=0 2260IFM1=12THEN2310 2270LETJ=M1+1 2280FORI=JTO12 2290LETI1=I1+D(I) 2300NEXTI 2310LETI1=I1+D(M1)-D1+1 2320RETURN 2330D(2)=28 2340IFY1=INT(Y1/4)*4THEND(2)=29 2350LETI1=0 2360IFM1=1THEN2410 2370LETJ=M1-1 2380FORI=1TOJ 2390LETI1=I1+D(I) 2400NEXTI 2410LETI1=I1+D1-1 2420RETURN %&8' '0208A1'A2'AL'AR'AS(2BH(BBL(mCM(CN(D1)D2)EM(EX(F1(F2(FL(wFR)8HL(rIS)SKY)LJ)hLM'LP)pLT)NE*(NL*2NP*  !PCN0 SA !PLP0 SACOURTESY OF SCRIBE TEXT PROCESSOR 00.00 ** COMMAND ERROR --!!--INVALID NUMBER OF COPIESCANNOT USE MULTIPLE COPIES AND SECOND FILE SPECIFICATIONC &+ $N $Q$8? -.%,%'% /1? $8'*2ފ"'Խ'*}E&3 zE&3~*Dwh"yj h?"o).) l:-0 Z&9 %$9% !Q9Ƅ?9 @'9S "o "'&(2"o') 9) ~+!9% &K $G 9 (%&:!$ 4#%&+"$' " %&#$ \,'9$M'\_ ~+Ɇ88 88 9'!Q.1%+&1t  '..|9!& 92 A B\,%& M' l$\O9\2&~+Ɇ 988ϔ88 9ވ? ވ)O9 8888 9 9"o "\ވ o߂\?? ?(j߄lhh ??]&ވ\KD /% )9X%? ފ"'+ 9ކ"o'"& '&߈)_9~+ɽ,% & M'K$CO9~+Ɇ͔88 9#ߊ}D& |D612J&9"ߊ "߈9"o "'&A߈'߆&]'67&]' ?&ߤ32 22_? ~+# "\,%!& G$H?(\"'"$ #% 9~+ɽ/1T09/1Y09 9?"o" ""ލ#??9!ܽ-v% &88 9~+Ɇ88 9/-' 9,%'1t$ +C#+n9~+!-v%&88 9~+ɖ3'+32' ,% &3#3'+ 9, ~+"o "'&?&9_? ~+Ɇݔ8888 9,%)&.M'+l$'6*23}3'Z'3%3' 71z33Z& 9, ~+ɽ,%&M'$ /}0 9~+ɽ,%&M'$ ?(,&09~+ɆGHO? 9,%&M'$G" H?(|G 9~+ɽ,%&G$ H?(+n9~+f'$h'$i*2*2ފ"'$U? $Uh&jh?j$*2*2 92r8'!h!jh?&88239<=&h!j2|=hh ' z='=|"/ "޽/ #/ DeEF0lSAu߂"y߄h?]&Zwjh ?"o/)"߄?]&"/ނ ');&?% 6?%2/Y62E' "' )9$m? ?$E ))+~8'C #F" !F /-!0?1!!0?'623AB1$ƄO?%CƄ?9?%?%9_? 9%' &$*(&#?$"?*!?( ?&,9H`HH`9}3&, 23&-$c1z396694 49 46'o4 9> |>2'D}:'?}>&t:'51&:?:?'j!?$'& ?.ihh  'h2h?9-,$?/"./$U' J'/8& ,&& 'ӄ,, 8&!1% &,&'& & ,&1p 1m 92}:',1}<&~0:L<*"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 ::+4+3 D$ EQU :: 112 FDB :+:: FCB 2 FDB 3 :: SET ::+4+3 I$ EQU :: 112 FDB :+:: FCB 2 FDB 3 :: SET ::+4+3 LAR$ EQU :: 112 FDB :+:: FCB ::21-*-1 ::11 EQU * FDB ::21-*-4 FDB ::21-*-2 FCB $E ::21 EQU * :: SET ::+*-::11 D EQU :: 112 FDB :+:: FCB 2 FDB :+::+7+6*12 :: SET ::+8+6*12 X$ EQU :: 112 FDB :+:: FCB 2 FDB 10 :: SET ::+4+10 N1 EQU :: :: SET ::+6 A EQU :: :: SET ::+6 I EQU :: :: SET ::+6 J EQU :: :: SET ::+6 K EQU :: :: SET ::+6 M1 EQU :: :: SET ::+6 M2 EQU :: :: SET ::+6 M3 EQU :: :: SET ::+6 D1 EQU :: :: SET ::+6 D2 EQU :: :: SET ::+6 D3 EQU :: :: SET ::+6 Y1 EQU :: :: SET ::+6 Y2 EQU :: :: SET ::+6 Y3 EQU :: :: SET ::+6 I1 EQU :: :: SET ::+6 E2 EQU :: :: SET ::+6 P2 EQU :: :: SET ::+6 I2 EQU :: :: SET ::+6 X EQU :: :: SET ::+6 N EQU :: :: SET ::+6 P EQU :: :: SET ::+6 C EQU :: :: SET ::+6 46 FDB *+2+:: : EQU * RMB :: :1090 50 FDB 1090 0+2 57 19 FCB ::12-*-1 FCC "#LP" ::12 EQU * 98 :1100 50 FDB 1100 12 FDB :+D 0+1 23 13 FDB 31 25 :1110 50 FDB 1110 12 FDB :+D 0+2  23 13 FDB 28 25 :1120 50 FDB 1120 12 FDB :+D 0+3 23 13 FDB 31 25 :1130 50 FDB 1130 12 FDB :+D 0+4 23 13 FDB 30 25 :1140 50 FDB 1140 12 FDB :+D 0+5 23 13 FDB 31 25 :1150 50 FDB 1150 12 FDB :+D 0+6 23 13 FDB 30 25 :1160 50 FDB 1160 12 FDB :+D 0+7 23 13 FDB 31 25 :1170 50 FDB 1170 12 FDB :+D 0+8 23 13 FDB 31 25 :1180 50 FDB 1180 12 FDB :+D 0+9 23 13 FDB 30 25 :1190 50 FDB 1190 12 FDB :+D 13 FDB 10 23 13 FDB 31 25 :1200 50 FDB 1200 12 FDB :F +D 13 FDB 11 23 13 FDB 30 25 :1210 50 FDB 1210 12 FDB :+D 13 FDB 12 23 13 FDB 31 25 :1220 50 FDB 1220 104 FDB :2210 :1230 50 FDB 1230 10 FDB :+N1 57 53 :1240 50 FDB 1240 10 FDB :+N1 57 53 :1250 50 FDB 1250 19 FCB ::13-*-1 FCC "DOYOUWANTAGRAPHONTHEPRINTER" ::13 EQU * 113 54 72 18 FDB :+A$ 56 26 :1260 50 FDB 1260 18 FDB :+A$ 19 FCB ::14-*-1 FCC "STOP" ::14 EQU * 74 43 FDB ::15 51 FDB MDOS ::15 EQU * :1270 50 FDB 1270 18 FDB :+A$ 19 FCB ::16-*-1 FCC "YES" ::16 EQU * 75 43 FDB ::17 12 FDB :+N1 0+0 25 46 FDB ::27 ::17 EQU * 12 FDB :+N1 0+2 25 ::27 EQU * :1280 50 FDB 1280 10 FDB :+N1 57 53 :1290 50 FDB 1290 10 FDB :+N1 57 53 :1300 50 FDB 1300 46 FDB ::18 FNA EQU * FDB :+A 10 FDB :+A 10 FDB :+A 10 FDB :+Z1 32 91 10 FDB :+Z1 31 29 115 ::18 EQU * :1310 50 FDB 1310 12 FDB :+P 14 FCC '6.28319' FCB $D 25 :1320 50 FDB 1320 10 FDB :+N1 57 53 :1330 50 FDB 1330 19 FCB ::19-*-1 FCC "WHATISYOURNAME?" ::19 EQU * 113 54 72 18 FDB :+N$ 56 26 :1340 50 FDB 1340 19 FCB ::1A-*-1 FCC "ENTERYOURBIRTHDATE(E.G.1,1,1954):" ::1A EQU * 113 54 72 12 FDB :+M2 70 25 12 FDB :+D2 70 25 12 FDB :+Y2 70 25 :1360 50 FDB 1360 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 :1380 50 FDB 1380 19 FCB ::1C-*-1 FCC "HOWMANYMONTHSWOULDYOULIKE?" ::1C EQU * 113 54 72 12 FDB :+N 70 25 :1390 50 FDB 1390 10 FDB :+Y2 10 FDB :+Y3 42 43 FDB ::1D 46 FDB :1340 ::1D EQU * :1400 50 FDB 1400 10 FDB :+Y2 10 FDB :+Y3 39 43 FDB ::1E 46 FDB :1440 ::1E EQU * :1410 50 FDB 1410 10 FDB :+M2 10 FDB :+M3 42 43 FDB ::1F 46 FDB :1340 ::1F EQU * :1420 50 FDB 1420 10 FDB :+M2 10 FDB :+M3 39 43 FDB ::110 46 FDB :1440 ::110 EQU * :1430 50 FDB 1430 10 FDB :+D2 10 FDB :+D3 42 43 FDB ::111 46 FDB :1340 ::111 EQU * :1440 50 FDB 1440 12 FDB :+D1 10 FDB :+D2 25 :1450 50 FDB 1450 12 FDB :+M1 10 FDB :+M2 25 :1460 50 FDB 1460 12 FDB :+Y1 10 FDB :+Y2 25 :1470 50 FDB 1470 10 FDB :+Y1 10 FDB :+Y3 37 44 FDB :2140 46 FDB :1500 :1480 50 FDB 1480 12 FDB :+A 10 FDB :+I1 25 :1490 50 FDB 1490 46 FDB :1620 :1500 50 FDB 1500 47 FDB :2230 :1510 50 FDB 1510 12 FDB :+A 10 FDB :+I1 25 :1520 50 FDB 1520 12 FDB :+D1 10 FDB :+D3 25 :1530 50 FDB 1530 12 FDB :+M1 10 FDB :+M3 25 :1540 50 FDB 1540 12 FDB :+Y1 10 FDB :+Y3 25 :1550 50 FDB 1550 47 FDB :2330 :1560 50 FDB 1560 12 FDB :+A 10 FDB :+A 10 FDB :+I1 28 25 :1570 50 FDB 1570 12 FDB :+A 10 FDB :+A 13 FDB 365 10 FDB :+Y3 10 FDB :+Y2 29 0+1 29 31 28 25 :1580 50 FDB 1580 12 FDB :+I 17 10 FDB :+Y2 0+1 28 25 10 FDB :+Y3 0+1 29 13 FDB 1 67 :1590 50 FDB 1590 10 FDB :+I 0+4 32 10 FDB :+I 0+4 32 91 37 43 FDB ::112 12 FDB :+A 10 FDB :+A 0+1 28 25 ::112 EQU * :1600 50 FDB 1600 68 FDB :+I :1610 50 FDB 1610 10 FDB :+Y3 10 FDB :+Y3 0+4 32 91  0+4 31 37 43 FDB ::113 12 FDB :+A 10 FDB :+A 0+1 29 25 ::113 EQU * :1620 50 FDB 1620 10 FDB :+N1 57 19 FCB ::114-*-1 FCC "THISBIO-RHYTHMCHARTPREPAREDFOR:" ::114 EQU * 54 18 FDB :+N$ 54 53 :1630 50 FDB 1630 10 FDB :+N1 57 G 19 FCB ::115-*-1 FCC "WHOWASBORNON" ::115 EQU * 54 10 FDB :+M2 52 55 19 FCB 1 FCC "/" 54 10 FDB :+D2 52 55 19 FCB 1 FCC "/" 54 10 FDB :+Y2 52 53 :1640 50 FDB 1640 10 FDB :+N1 57 19 FCB ::116-*-1 FCC "ANDWILLBE" ::116 EQU * 54 10 FDB :+A 52 55 19 FCB ::117-*-1 FCC "DAYSOLDATTHESTARTOFTHISCHART" ::117 EQU * 54 53 :1650 50 FDB 1650 10 FDB :+N1 57 53 :1660 50 FDB 1660 10 FDB :+N1 57 53 :1670 50 FDB 1670 10 FDB :+N1 57 19 FCB ::118-*-1 FCC "50 FDB 1690 10 FDB :+N1 57 19 FCB ::11A-*-1 FCC "POSITIVEPHASE" ::11A EQU * 54 53 :1700 50 FDB 1700 10 FDB :+N1 57 19 FCB ::11B-*-1 FCC "" ::11B EQU * 54 :1710 50 FDB 1710 12 FDB :+I 17 0+1 25 13 FDB 60 13 FDB 1 67 :1720 50 FDB 1720 10 FDB :+N1 57 19 FCB 1 FCC "-" 54 :1730 50 FDB 1730 68 FDB :+I :1740 50 FDB 1740 10 FDB :+N1 57 53 :1750 50 FDB 1750 12 FDB :+C 0+9 25 :1760 50 FDB 1760 18 FDB :+L$ 19 FCB ::11C-*-1 FCC "............................................................" ::11C EQU * 26 :1770 50 FDB 1770 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 * :1780 50 FDB 1780 18 FDB :+L$ 13 FDB 30 21 13 FCB 0 FCC "*" 27 :1790 50 FDB 1790 12 FDB :+Z1 13 FDB 23 25 :1800 50 FDB 1800 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 :1810 50 FDB 1810 12 FDB :+Z1 13 FDB 28 25 :1820 50 FDB 1820 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 :1830 50 FDB 1830 12 FDB :+Z1 13 FDB 33 25 :1840 50 FDB 1840 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 :1850 50 FDB 1850 18 FDB :+L$ 10 FDB :+P2 21 13 FCB 0 FCC "P" 27 :1860 50 FDB 1860  18 FDB :+L$ 10 FDB :+E2 21 13 FCB 0 FCC "E" 27 :1870 50 FDB 1870 18 FDB :+L$ 10 FDB :+I2 21 13 FCB 0 FCC "I" 27 :1880 50 FDB 1880 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 * :1890 50 FDB 1890 12 FDB :+I 10 FDB :+Y3 10 FDB :+Y3  13 FDB 100 32 91 13 FDB 100 31 29 25 :1900 50 FDB 1900 18 FDB :+M$ 10 FDB :+M3 122 26 :1910 50 FDB 1910 18 FDB :+D$ 10 FDB :+D3 122 26 :1920 50 FDB 1920 18 FDB :+I$ 10 FDB :+I 122 26 :1930 50 FDB 1930 20 FDB :+M$ 0+2 42 43 FDB ::120 18 FDB :+M$ 18 FDB :+M$ 0+2 61 26 ::120 EQU * :1940 50 FDB 1940 20 FDB :+D$ 0+2 42 43 FDB ::121 18  FDB :+D$ 18 FDB :+D$ 0+2 61 26 ::121 EQU * :1950 50 FDB 1950 20 FDB :+I$ 0+2 42 43 FDB ::122 18 FDB :+I$ 18 FDB :+I$ 0+2 61 26 ::122 EQU * :1959 50 FDB 1959 10 FDB :+P2 13 FDB 31 40 43 FDB ::123 10 FDB :+P2 13 FDB 29 41 ::123 EQU * 43 FDB ::124 12 FDB :+P2 13 FDB 30 25 ::124 EQU * :1960 50 FDB 1960 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 13 FDB H 00000002E000004F S9 LDX SAVEX RESTORE X REG  SEC SET TIME OUT BIT  RTS  SPC 5 * CHARACTERS STRIPPED FROM INPUT: * NULL, RUBOUT, LINE FEED, DC1, DC2, DC3, DC4 NCHAR FCB 0,$7F,$0A,$11,$12,$13,$14 ENCHAR EQU *  SPC 5 * PUT READER BUFFER JUST BEFORE $300 RCBUF EQU $300-73  SPC 5  END  MON  B :1230 ::124 EQU * :2080 50 FDB 2080 10 FDB :+M3 13 FDB 12 40 43 FDB ::125 46 FDB :1790 ::125 EQU * :2090 50 FDB 2090 12 FDB :+M3 0+1 25 :2100 50 FDB 2100 12 FDB :+Y3 10 FDB :+Y3 0+1 28 25 :2110 50 FDB 2110 12 FDB :+D 0+2 23 13 FDB 28 25 :2120 50 FDB 2120 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 * :2130 50 FDB 2130 46 FDB :1790 :2140 50 FDB 2140 12 FDB :+I1 0+0 25 :2150 50 FDB 2150  10 FDB :+Y1 10 FDB :+Y1 0+4 32 91 0+4 31 37 43 FDB ::127 12 FDB :+D 0+2 23 13 FDB 29 25 ::127 EQU * :2160 50  FDB 2160 12 FDB :+I 17 10 FDB :+M1 25 10 FDB :+M3 13 FDB 1 67 :2170 50 FDB 2170 12 FDB :+I1 10 FDB :+I1 12 FDB :+D 10 FDB :+I 23 11 28 25 :2180 50 FDB 2180 68 FDB :+I :2190 50 FDB 2190 12 FDB :+I1 10 FDB :+I1 12 FDB :+D 10 FDB :+M3 23 11 29 10 FDB :+D1 29 10 FDB :+D3 28 25 :2200 50 FDB 2200 46 FDB :1480 :2210 50 FDB 2210 94 0+1 38 43 FDB ::128 46 FDB :1230 ::128 EQU * :2220 50 FDB 2220 49 :2230 50 FDB 2230 12 FDB :+D 0+2 23 13 FDB 28 25 :2240 50 FDB 2240 10 FDB :+Y1 10 FDB :+Y1 0+4 32 91 0+4 31 37 43 FDB ::129 12 FDB :+D 0+2 23 13 FDB 29 25 ::129 EQU * :2245 50 FDB 2245 10 FDB :+Y1 13 FDB 1900 37 43 FDB ::12A 12 FDB :+D 0+2 23 13 FDB 28 25 ::12A EQU * :2250 50 FDB 2250 12 FDB :+I1 0+0 25 :2260 50 FDB 2260 10 FDB :+M1 13 FDB 12 37 44 FDB :2310 :2270 50 FDB 2270 12 FDB :+J 10 FDB :+M1 0+1 28 25 :2280 50 FDB 2280 12 FDB :+I 17 10 FDB :+J 25 13 FDB 12 13 FDB 1 67 :2290 50 FDB 2290 12 FDB :+I1 10 FDB :+I1 12 FDB :+D 10 FDB :+I 23 11 28 25 :2300 50 FDB 2300 68 FDB :+I :2310 50 FDB 2310 12  FDB :+I1 10 FDB :+I1 12 FDB :+D 10 FDB :+M1 23 11 28 10 FDB :+D1 29 0+1 28 25 :2320 50 FDB 2320 48 :2330 50 FDB 2330 12 FDB :+D 0+2 23 13 FDB 28 25 :2340 50 FDB 2340 10 FDB :+Y1 10 FDB :+Y1 0+4 32 91 0+4 31 37 43 FDB ::12B 12 FDB :+D 0+2 23 13 FDB 29 25 ::12B EQU * :2350 50 FDB 2350 12 FDB :+I1 0+0 25 :2360 50 FDB 2360 10 FDB :+M1 0+1 37 44 FDB :2410 :2370 50 FDB 2370 12 FDB :+J 10 FDB :+M1 0+1 29 25 :2380 50 FDB 2380 12 FDB :+I 17 0+1 25 10 FDB :+J 13 FDB 1 67 :2390 50 FDB 2390 12 FDB :+I1 10 FDB :+I1 12 FDB :+D 10 FDB :+I 23 11 28 25 :2400 50 FDB 2400 68 FDB :+I :2410 50 FDB 2410 12 FDB :+I1 10 FDB :+I1 10 FDB :+D1 28 0+1 29 25 :2420 50 FDB 2420 48 MDOSSWI FCB$3F END I  10 FDB :+I1 10 FDB :+D1 28 0+1 29 25 :2420 50 FDB 2420 48 MDOSSWI FCB$3F END 0010OPEN#3,INADD,O 0020PRINT"NAME:"; 0030INPUTA$ 0035IFA$="STOP"THEN8000 0040PRINT"STREETNUMBER:"; 0050INPUTB$ 0060PRINT"STREETNAME:"; 0070INPUTC$ 0080PRINT"CITY:"; 0090INPUTD$ 0100PRINT"STATE"; 0110INPUTE$ 0120PRINT"ZIPCODE:"; 0130INPUTF$ 0140PRINT#3,A$,B$,C$,D$,F$ 0150R=R+1 0155RESTORE 0160GOTO20 8000CLOSE#3 8010END I܀JK D0201LIST*tNEW)PAT*GOSUB-GOTO-$ON,THEN,PRINT0LET2INPUT-IF5READ/DATA3RESTORE0,END)POKE(6zRETURN-JDIM3)DEF8 FOR3NEXT4REM3TRACEON2TRACEOFF2LINE=7DIGITS=2STOP-^2RUN*?CONT,hLOAD+RSAVE+APPEND+UOPEN=pCLOSE@TO.STEP.RND6&TAB(13INT(5CHR$(7ABS(6SGN(6SQR(:LOG(9EXP(:SIN(9qCOS(9ATAN(; PEEK(6POS6TAN(94VAL(7ASC(6LEN(7LEFT$(7?RIGHT$(7MID$(7QSTR$(7FN8USER(5 READY DELETEDRE-ENTERERROR# IN LINE Y !½" ?c#w}'|S`M' ''' 'с '0&' &Ѧ* }& &o!~* # o߮&"976ߊތފ239ߊ7ގފ3? $ANANZ/*22~)9 "Y&9"9 8: :689289:|;|;9޽$(5: н$(5 ]2Z&22(9(5 $(4]2Z&2o($9AQB "YZ&AQ" HIH &'" @"~"6 129($s%$s%)1$41111 9 9$$$' 7(&3"*F ' & & c" 9m+6$2&$$  (967%A4cM+c]cd~32$&4 93$$ _7$&׆33 4cM* 3%_3gm' æ$&$$Fc 6A+Z/ 60+9/ 29 29]]9] 9ߪ6D% &E%~,c29M& 9"Ʀ/~*O_m+m/!XIRQXI%XI%RQ%%׽&j&۽"9(#% }&$#9.%9(&%̽()&9~* $ ɽ(^'94]$7'9$4(-&& 4]$3]&M'$ "6M*&(p:2M*'Ƚ:g$' $4 (*& (썆(p /& %?' 9(-&ѽ& +&Ž(+&' -&' M9"G}&" -߽"5%~7a(+&"}'"- ]&߈" M9$~*("&!(5ވ2"' M&~*o߈0(9(#$9}'"4$(5ވ2M'Z&o߈(49$9"$ "] "$67 Z&$  Z&"32962967WW$h iJ&Z&32967WSWdfJ&Z&WS329"$V2z$* V&&j ooe-7Z&d$3 с./{}V'&$"9&"$2z$(' l$2z$' l '- #$'2"9]7662Z&]23967]   Z&]329"/{$2z%~*`8' & _\m*Z&&$$&]&J&ڽ$|P Y' Om*&$m*&J (x$@P9"$Y$'/{ Y&]''Z ]$' J&$'ȖP$'2}J*&"92310% .*'01%&]'&*&* ,9 & M9.$~*߬$#.M'' J 01ެ 94M&69߬(! ߬( ߬4( 42 '_/''! '!'& 4(9J ( 9~.D.*FO23@T5g9↰~*?D:0j?AT'D? ATAS&B|AS!? @"G($%+ M')CnD0j"!Խ" !ܽ"[004&oo">l>j~).<6ueD0_*F?$ ? ?DߔO *&~,x0nANތB'AN4(')(4($4('(O1100($ *,.,'*'AN+zAN& a'6~*[6? $~-^ HC]ޔ߈6*&~)}6'[}' "0j"["Y "Y]"Y" 4IHn4($$I~5Y ~*4%̽$]'ZU)C-$',-' U6)&e& ~*67e U4(zU+ (,& ($~*6~,xeu&~* e 0j ½"#w6)&[*>a~)"CZ"9C߈$(ވ5]2M'0"&}>_'>_ >_}>`'}C& }>_&,' 'Z& o40(>_>`96ވ' ' &2߈90n4&~*4("& &,&40V>h'>>?'~>'o>l߬ !߬42$P4ެ}&%i$,M'>h' >l"4~>0!˽"! ֽ(- "ٽ(,&߬4(,' @M&~3XI& T&D~B~*(J-' JOLMN/{]&^'($$ .&M 9 $%B0&}L& }M'zK L"&]'}N&Z HHHHsN&}M&|K" }M&.&M _E&-' +&6 1PK"]$"}J'& 9"7]oZ&K3"9$$~*0$% XXX0942$h4<.'>}' ('*"'- :<ޔ߈<&N% -| (.$ '~**'M&!& "٦,&<4(,' M&~34(#&3-9. 0~.<4~3"-ߦ'1 "9 #>h4(#&%','~24$$'-ߌ + .0>'>&(22~*>h9BߌߎHH𗑆ސ&&~*90n4(M&X ;'->h'"?2>j ?$>l>j>h~'?3 "@6~,x~* '6r"Ľ$Z@/#wZ&D &}&o 0V(,&@' #w ;&~0M' . O06}>c&}>h'AO>j>'>jAO "Y27@\ѓ# ђ$ &"_@39"T$OMm& }& "~#wm*-& .>-:M.Mm*)1z'l }M&1&j&}&R$1~2 1&1~#E1Z*-1POL *J 11~1֩$ 1&Z& }T&9"]7m&Z&  "39#% 94%~*(=' }& %M&" @&}&~&IM&޽-| -4%̽$04ז 4%̽$ % T )&~,x"4%,' )&4" 9%&4" 94#)%~*M*4c$$ _$4(,' ~3"&׆}'$$F"FG9M&~*""6Q]'Z'Q$}'$J& 2$}'$J&942%~2}&4]$QRD0QR_'&& 67&'$ ߌD&~*_4(='~2%̽"ٽ):!&4%4_"˽$_4):! & 4%4 :g_"˽$_4(&6_67_~,x42%~2(&6$_D0'f_D0'[$$&&a"a$m*O"'o"˽$a"5$a_~,xo"a"a6  ~*4&IO}'-&}&~&I4- -ߟ(5 2M'& ([ %4J$~34)Cn(=&9<&=&9>&99>'~*=&9<'9'$6OHH5 !! 2 Mn' + + & '+* 9 96l"g"96l ]/' lZ o$'2$9c'J:g$}J*&9Lm* 4((&482z$$ il";"(p$&o$'2i"9$94%&493%~K %2$7$RQQ34~3@L9ӽ$RQQ9"]/{ _d\$Zd&_ \$Z &$'2$"9G)'~%24-ߦ69OL]&J69ս.$'~*$9(,'~%7494&}&~&I9%&4$\7I$ ν3G$$H%%~*\7$H$J-J* 2J(5ވM+3J]& o(߈׆$9%&4$H$-7L]&J36*Oވ |>`6r$ވo 4%̽$גWW~33$~&Iތ"@6@8ߌ|>c1>c2@"ߌވ o~7ވ߈94('kF&gN&`$s%X((&Q(*~3#)@$'<RQ4c4()&'(=& 'R&$$ Q&ʀ ~3"~*4((&M".*'C!')( (&(#%"(($"%&"ٽ"$%̽$"49#~*6rZ;"'$5$;"(p'9S;"'$m+ ;"'9;$N$'99 (p"9]$]&~$"˽/{$98ύ<" E8􍿽$:g<. /,/{9A7"(pA"$'3Z&"(p9/{]$ m' P $'$o96r/{]$N/a%oN$;N'* 6"'2L 6"'2J "ˍ3'9S:''9E9d ;ڽ9$(p"'$95~*]/{$9]/{J 6r9S;"'$5$9S]* &$P $7;"(p';"(p"˽:g9d h$oo  ?$>h~1>hCC&~0E4(#&>d3-9/~>>' '>'~ AO ?'>f0SA >d?]&]>d>dU' ZO'ZI&GAO 0 DK ?&?'A1 %&$>d'~=r~3( ) 0 1 _? 2 3~*AOA1 7@{&&??%?(@&39>l>@{@@>l>DK >?z>l>DK ?{?>l>DK ?@z4(#&83-29..0>h,&&?&?&>h~3~>~>'>&> >&> >&>9C'DKCC o?&?'_? ?~)&C ?.*&9A?2C ?&?3 ?3? 9AQBچ  AQAQ HIH &  AQ AO CAO9&9AO  AO C ?&m?&i'~>.C ?&Co߮+ &DC&:C ?&4?&0DKCC*CBCCB ?CC ?&?&9? ?B? ? N'Y&AUC&C>;C ???SAVE(Y/N)%9B? ~)PRINTER ERROR  7DDDD390:%9C0 SAL  MDOS BASIC 2.01 COPYRIGHT(C)- 1977 C2C,CC.BEW&`]+YCBCCB ?EW&C]+ C?Z' |ASCCDKCCCC$AN~) ? ?CB0CSAC C?B?C0C9