IMD 1.16: 15/08/2007 11:30:09 basic compiler  MDOS02010201112478BASIC COMPILER \lx@zLIST CMrPAYMENTSSAEDAYS SCLISP LO\RMDOSOV0 SY\rDIR CM|rMERGE CMrCALLS SAPAYMENTSSCTEMDOSOV4 SYrBIO LX$MDOS SYrCALLS SCEMDOSOV6 SYrDAYTEST SCFACTORALSCENAMESIN SCEBIOM SCFREE CMrDUMP CMrNAME CMrDAYS LXHNOECHO SAEMDOSOV1 SYlrCOMPILE CMrLIFE SCEASSEMBLECMrDAYS SAlRUN CM0rEDITM CM rMDOSOV3 SYrMDOSER SYeDEL CMtrDAYTEST LXCREATE SANAMESIN LXBIOM LXPCREATE SCEBACKUP CMtrREPAIR CMrBIO SCEMDOSOV5 SYrDOSGEN CMrDISKNUM SA COPY CM\rCALLMDOSSAESCRATCH SCTMDOSOV2 SYxrJUNK SA|uu+.HYHYwvz{67xS66~m? ~S@?@0201 CN0 LP0 DK0MDOSER SY 0&'L/&04315X%;$*DzU062T06336;!b~nWno%(4]_fo|  b\lrAD"gggg}*26'}O&*7606 Z&nn#Z&9 &Z&900l&l90l&l9 Z&9A%6290%62%9$l9@%j96hiJ&296dfJ&29$&P+O?'& ?% ?.' 9 '? ?6 ' 29'' 9O'9**  $ && ?$~ 09 I &KE?$~09   9090~_0 h0629_?&?.062 C06 0&9  & 90gf90hi9 440J&0 6290   J&110 ކOi OI670$1'24'.8'*9'& 320$'90? ?0j'&?.Y$u Vx~9?*?/% 629~*' '  f "uS|u~DK9LPFCRSCP`CNmHRzr 1 *Q{e W T Q NS*"' "!$%3l&l && l&l"!$E011n0~Ao'  ''  9? "! '  9&' ++& +|$~) 66?240?311116L6*5i+`32P@$Z73$O_ ?(?!I% ~C~+|_?3?*67)*0l&ll&l&&11~&0 09 |?3?+?$~C?26 HYHY01674 0+??31111  +  l&l 9    }* |S6]3&l f09~~  U Rz )&}* V )H7F $9ц 1 ' G$ 9 9W )}*7 _ 011n~϶?}& W~ K~ e~ ~ ~ & }*] &9 |b}*0 b}*9OZ& 2OZ&     $0 011n&~  V$]&u0  !' m& Y ̋HHH0 0'l >0 !' ]'~ ]&& '~ } &~ ~ $_ HHHH?( &   m&~  &  0 ? 'B_9 & ?'0 && ~ 0 ?'~ D'~  '~ ?0  0?"$ ? ?  ~ !'~ &\0 '   0 @'o o ooo?!]''?'; ? ?_B   ?0* '~  9       DDD  } &? ? 9  _  %*_  Yz &VFFFF# "GY9JO' V$]'~ RJ(&J*x&'0`J@&"?$ &~ c ? ? &~ g & sTxV VWX?)XV $~ kXJ'?(Z %J' Z_?]&J'bJ&8'\ O K5 }a& ZKL76^_76~m\VZ'5 սmVW0\]0&_9 90OP 9    TRS`Q?Tz\9?$V?/$11 X?&?/%9aJ8& ' |a?-9  ?.90`RTuvV9Tv'# XX?Tu'JYY$|X911~ goc' 9J*'9S>7=#I9n p{'j?' &9&l =7 _HY?)=?#3 *57='>&ܽ03'_\'05533 }>&|>Pm'С&~o 3?m''?' |4&|3ih 5 * $! 95;799?;.;9?7;:597979566$|5:&99979:G88$|7 0 7~626 29DDDD09#90 138 "#$ % &  ' ( )*+,-.INVALID MESSAGE \3 AT \8UNIF. I/O ERROR-STATUS=\3 AT \8PROM I/O ERROR-STATUS=\3 AT XXXX ON DRIVE X-PSN XXXX0MDOSOV SYs~/ ~1 ~3 ~5g0_\$uH6@?% 20 ~V S          6666666666 ~  >>>>>  FF {966~966&~A66+~I66-~Q229 N v M'  * /| x?%( x& z? ? z? v9V S  ~~66666666PO'н$~ RR?R  RWP '; YZ9R ]]?_]$~Y?'_g _ gUOT?_'~a&.%,_e[%& % [[  ~$~cab%'P &_~xaaR'$ a&~RS?&$ P&aRPm &m ' ' gc'~c_R[__[ [&OT?P &WƀO?ZWc?1?1U UOT?Wm+ ]cg'KR[_ $[\\?,RcY?)c\Y]] gR&~=] ][ & ]] a_R?&$SaaR?,Rc?(c[aY]~eWYgh&^gXXZe?'_bʀ]OT?P &UVP _9Pghef_` ۽XXe?'eY~F 9     POWP &~ɽtmkWii?P'~P]TTT-#~UVOT?]XXXXW?''~ƀWO?P UOT?Po o mm*~]UOT?]* OT?~R_%S__RZR&]] ?0?0[W]]*~ͽRS_R[\%R?.[\]][&ǽPʀ]]Wt?)]' ]oo OT?Y~{S\\_?(Y_\]]~_`$9 W?( 9TFVFVD6YYYO FZ,29__9[ab$ [aec9b|WW\7b?%39ZXX7b?%3O?*9]WX?-bm?)Y9н$11~UOT?Wm+ \: /11~'9 66~~~W~@~u~o~r90909S0op]''d*&ց.&PƂp]' *&ʍ:& 0?p 0?090 ;' ' 0 l&l9u #'zƀ ?6Bŀ& '@'?$ @?%?0]'Z0T?%0 ?')760' ?0 ?23*& B?$?$*1906?290?ƈp~_6'-  ?-?&0 5?&?)   ?/%(?/$! 0m& _2W9 @&- $*?%$ ?%;'?/'; ~ ~~;'=;DK&~=J0 %Z=]' ?(Z ='=oo' 0=>=0  @ ? 09 0 =? $ ?(z?& ~6 @'' ?2oo?3oo  29'~ '~&~|'''~&'| &&o o  's$~?@}&~'~}*~%ml&l &}/%}& |&Ͻ 0}& }'7%"3&' &  ~$~~(~$6~&%}'  '!}, & '  $~%~}&| &P~9}. ~% ~% }.~9E}+ H}'D~$~O}+ ?.]'~ǁ$L}&| '~%B}*~~}'7TTTT3% 90:%9ʀ  ' 73]' 9X~~>>> _B@>@'~/&~1 &a$~<CI@}B&'''~8~}E>D'|D@ - Z.k$~<%_ F$~@}D'Z& 'M&ZJ@C?%k$~<&~C&(%@G@G?/'Gk% L'S& &8@}D'}F& $~<}I'~@}C'~IU@o_96'&|I]*'G zG' ~$~@}B'H' 6' E&|I D' J}B&t@&iE%K&~Q}I'&}B'&zK' %ؽ %}J&̽% &@&'m&jj~; 0] 9 U  }B&   7>@39>@9@@> @9@ %%"$1111~QXXXX% % 90%% *% 9}E+99JJ97 &a39 k% k9@?/9@}E&M&ZJ97%3b@9C39>9   >>~~X~N'~B PQ&P NNo_9P'' N '~N''&?8'~:N@' D &'8&]'/?/')N!"?/%o N ?ߤ]'~:Noo&~, &QN'~FR VDDD-#~JTUS?RXXXXV?'?N S?N ?'?"%~,0] 9   &0o_90?&\TTT-R# L ?0XXXX?'''0 ?'6 ?20?90 9  &~ 0 ' & ?$~ӽ'M    '~&& ?_9 ?%~ '   ?' ?'??  @?%!?&~e 9   ??9HHHH?(VVV9"(ss~yFr&~#@ &~'tr''~Kt&.~+Wo_9t'r?'&~~| t &~/at&~r ?'?$' ? ?r&~~3r' '~Goo oowr yv?y*~7r y:m+Z&~7r~}'~W?6'~m ' ?'wry w?&rwr ?'yw?~r r?' ' ' t@&~/ar&t& r62''& t&~Kt&~r ?'?$&~;&~?&~C ? ?r~C' ''~K}'~rrr ?'?$r?%?'?$rW?7m&~~t&~+``&a~0] 9           r9tr$11~O9$XssF~y~ :@vN FTWARE DYNAMICS TER DISK IN DRIVE 0, AND A SCRATCH DISK IN DRIVE 1 ? 9 sEND CHAINHHHHC'1~w? $0 |  ?' |? %@'C\&|0$ ']'Z 09)~w~||~9*'..'*WJ'tC'fL'_^S&~^T'%2 6~'? 2.&4? ? $~ #6?/  2~Ѷ~ |@L&W& Ҷ~ O 6?&%2M' ~&? ||xw_?9 &4'3~w+4 ?& ?&? ~y~?'||||62&~9 ? ???oo0+( # + . |7xy~Z&3Z&9&p~ !_?o_!Z?!]!0&%!] !3&!_!!a!_?' RI S ? '~ U~ H @'E @' {'3j? , ?%?%E?%?%j?%?%!*? =3O? ? _3!6!:!80CM!C!6?]&*!6!:?'''' ? ~ !S? ƀ?#~  MDOS . !f!WHAT?!f!cN  ( 0BCOMMANDSYNTAXERROR 05NAMEREQUIRED 06\0DOESNOTEXIST 08\0DUPLICATEFILENAME 1BFILENAMENOTFOUND 1ADUPLICATEFILENAME 0DOPTIONCONFLICT 30CHAINABORTED--BREAKKEY 31CHAINABORTED--SYSTEMERRORSTATUSWORD 1CFILEISDELETEPROTECTED 24DEVICENOTREADYAT\8 0EINVALIDTYPEOFOBJECTFILE 0FINVALIDLOADADDRESS 13INVALIDFILETYPE 1ECONFLICTINGFILETYPES 1F\0HASINVALIDFILETYPE 27INVALIDDATATRANSFERTYPEAT\8 22DEVICEALREADYRESERVEDAT\8 23DEVICENOTRESERVEDAT\8 25FILENOTOPENORALREADYOPENAT\8 26ENDOFFILEAT\8 29BUFFEROVERFLOWAT\8 2ACHECKSUMERRORAT\8 15LOGICALSECTORNUMBEROUTOFRANGE 07ILLEGALFILENAME 2BFILEISWRITEPROTECTEDAT\8 20\0ISWRITEPROTECTED 09NOSUCHDEVICE 04ILLEGALDRIVENUMBER 12INVALIDEXECUTIONADDRESS 0AINVALIDDEVICE 11INVALIDRIB 1DTOOMANYSOURCEFILES 16ILLEGALSTART/ENDSPECIFICATIONS 17ILLEGALPAGEFORMAT 14FILEEXHAUSTEDBEFORELINEFOUND 28ENDOFMEDIAAT\8 18ILLEGALLINENUMBERORRANGE 19LINENUMBERENTEREDBEFORESOURCEFILE 02DIRECTORYSPACEFULL 03DISKSPACEFULL 10NOTENOUGHSEGMENTDESCRIPTORSPACE 2CINVALIDDIRECTORYENTRYNO.AT\8 2DCANNOTDE-ALLOCATEALLSPACE-DIRECTORYENTRYEXISTSAT\8 2ERECORDLENGTHTOOLONGAT\8 0CINTERNALSYSTEMERRORAT\8 21INVALIDSCALL 2FCHAINOVERLAYCANNOTBEFOUNDORLOADED 32CHAINABORTED--ILLEGALOPERATOR 33CHAINABORTED--UNDEFINEDLABEL 34CHAINABORTED--PREMATUREENDOFFILE |,@Lx ~!z~;So$~r~s:~s~u~v,~v~s~s~t~t~se~vn~wc~wl~w~wu~w{rzqNq~9~x~r{o&pqpCOPYRIGHT (C) 1976 TERRILL M. MOORE ; 2--q"#'~,Z]'"}&ކ'y'9-59|"=;'"ލ(+2"L " "*!;! !2"L " ";! ! 떙'2i09!..! " " 2("9_2"L " ";! !( $9*z|99011' m&nn011-.nm&n> :62.* &@" @0116v&vw&wx%x29011'm&nm&ny&5ކ'+3(ކ ߆. ߆9"~#߆(9-~5@~5)n3T&/3c&*8#u&&#'@ 9' 9*#+#+##+b#+K#+J#+Z#)#*,Z##|&"z &y-zy.8+J& .79;].|y~#0"~,Z'z ɗyz ~$~$$&3T&,'T`T&% dAT&T&xa& b&c' #f UV.OT,!3i1)&31&.AO`'L`& TV642"&3iV0%B$&V,"O $&T-'3&S8:'642'63i2' |&z6"2'ڠנ '@ڠנ:62'@&1~54$(Z2"L+%$-%$#%;2)@]W&M'8͖^8ͽ1)~52.(]'&^+" ܽ.(] &9%P&& &'&=&TDFFUUU'%%& ]' }^,C'"OU8ͽ1^8~5h~&&' #&._99&15&:&O]^11]'" U8 &(1(н1)&ɍ&&,'ͽ. X`&~1 .W&]&11~%tT- 'OU~%~3i%.0U8͖] ŖU"'%&O T ѽ.,&"W'R'^]Ђ^'- "^~%sC&S], ABAADCADDANDASLHASRGBCC$BCS%BEQ'BGE,BGT.BHI"BITBLE/BLS#BLT-BMI+BNE&BPL*BRA BSRBVC(BVS)CBACLC CLICLROCLV CMPCOMCCPXDAADECJDES4DEX EORINCLINS1INXJMPNJSRLDALDSLDXLSRDNEG@NOPORAPSH6PUL2ROLIRORFRTI;RTS9SBASBCSEC SEISEV SK1SK2STASTSSTXSUBSWI?TABTAPTBATPATSTMTSX0TXS5WAI>'')BEQU')BSET()RMB()FCB().FDB(#)BORG(,*BNAM(6*BNAME(@+~WITH(I,ZEND(S*JPAGE(^*JTITLE(i* SPACE(r* SPC({)FCC()T LIST()PCC() PSR() PGEN() PCA()&RPT(*2DO(+K ELSE(+Z FIN(+2IF(+J ELSEIF(+b2CASE(+#2IFUND)*I TABS) ,ZMON)?OPT+]' C&^-"^8ͽ1)9]8͖^8ͽ1)91)|Z&]^9~.(C &R'7.(3W&]/ 7" 2  @  ν.=&],߆ .=&1]߁4ս9~9;.(14 .=14 )@.?9^]9 ]0&0',&H&15],"22 &]/O ] 8 2' &" 7ʀ83] ] &( >zߓ>y.(^]' "7ߓ9ޓ/ߓ>'o1)>y > #> ".=]. ^]'S#I C? h :4]&(2 '*;& 4'R'_4\4]' 24 &o9S'օ'6752J.9.=]-&^#" .=].OLy~9;]^1)&1&3&'|^ ۽" }'OJy9~"'J9.=]']-^*" ؗy91)&,'9'" +˽3& 61)&5'|Z9.(]& 254^492~"++;%MCM+;(NMCM+;%LN+;(NLN+;% LF,;(NLF, ;%@DMP,;(NDMP,;%EL,&;(NEL,.+WI,6+DE,?;%LST,I;(NLST,Q;-DO;0NDOކ-"'"R'59斅<;5 ;-9ѽ-V~!|pa757578|x'%'&&,߽8|Ox8,ս8|:7p~*, , No Errors. At Least One Error. 'ux'q*-H8|75t'aֈ78-7tt8ֈ2  " 7Z. # Error Lines: ?4' 4Z&9po&P֙S &~z7ߓ>q9 o&>`o@G&  ߋ4-6446-&?tߝ7:p9?@EB7??@GOLRΗ~:&('Z O]^W~"1)|Z'(9'1)|Z'~"3iȌW'O]^W"L9*OW6`..x...*O]^|Z~"4D_WW^]670..k.k|Z[0[#8&2[7 1)' 1)~"LQ'"AB$S&p ٖց ~.k"L0 A/1B/AQ0R0$a/I!/k$/s"/{T0(S086/5/2/3/1/4/q/r/s/t/7/8/:/9/~.kP111~.@ 8m, TFl&l- .m'HYj&j  č   09;'L 4' .. (- ", / % " # $ 0&_729O_0~/=0  _O00.L ~.[&2]3^19%k100  102' 32 O0,0.M'9.&02~",02h1i0i3i23/62.%223l11Z&90O_.2XIi3i2$-,j0.012' 92"bAZ0az00900~299:$@%'() ;,. 011X77011n$|Z&,9'~"&, '|Z 9Z' XYZ9(001?2@1222r22222OXO]^@'" .!7x^y]$"T&3^^ 'XY(96'2X' 12" 70"b091AZ1Z'3~270_39(40^]0&!06]^XI76XIXI0]^111 ؽ2&XY0''XY' 2"~12-2)4 (7~1VHOQB$@%~1U262(``40'& `'\4 2~1( '(^]~1"O (( 9( (9 ' '(  Ն 2 - _.3%( ],P 30m,2]& )&90770$l119+-&*#/!\ <>=#a6/TR!"!<:S<8=42>7/9=31<4>35$15&1)9'~3&15 "1)'&,'&9[OIZ&H6?60119֋67қ"119011ߋ9Ì8`8'#&84a664&4J&8O989`73&"4>u4>w>r>t1 ,?43[6446Z&8ދoo893' _]_]'"'"9~3O__3' R'" '<'>8&(&_&$8]'"8_]^9_&~"ށ]OWOW_"15|Z.44~"},'94z : R'Yօp&'K5g''>m&ޕ8|8& 7}|858|ލ8| '75& p9@@5tvvw$B78|B8|B75B M.'ٍ ŖR'!'t44'4z&4|&93'6ooz{|}4679Illegal Label.Syntax Error.Illegal Argument.Undefined Symbol.Double Definition.Use of Doubly-defined Symbol.Nesting Error.End of Source File Encountered.Overflow.BRA/BSR Out of Range.Illegal Value.Illegal Digit.Out of Memory.Illegal String.Phase Error.Register Field Missing. *** 739M+ '] ' .@6^2 R': '5֑ш#.S& 6֒S8 2 -|֙'6 2p' ֚'~:79zS9ш# 'ޓ_'"\m&]' %-5=>`4 5 4 86644J&o9972 ~7 MAL/6800 1.2: ; Page ; Form (S "S9p6p668ߓ7ߍR>C><75>`47/~A~"=7{z07? 7575222p9&9@A7@77011 76_ 76 090697@0&'7@Z2&972Z&9֣&6F29kށ߁ޡ%o''ߡ95ޕߡo9 62DDDD09/9ޡ  ϖ *S*9ޡ& ޡ]^ 0116ޡ'ߡ6 6nޝ?&*|9011'  n97~::R'/֙')6֟##S1L?t&LCƍ 6?toߝ29֙'S9 9\& , M' &֙ &\9:~ &6 ' ,6^2@297< 7< M'3<9011&n_ާ'\ &o9:P SOFTWARE DYNAMICS MAL/6800, Version 1.2 / 77E4 *:߉:PSource File=^' :߉:PListing File=?&F  8:߉:PBinary File=&   )߉9ލ:`ލZ999 ' ' )7:PI/O Error #3OZ&9:":":P މ*nލ s&AR&)6>:":`Z'-3'&4q45I~8|****889       rzxo0x}x?x  qoZ&o0 ' ' & xxxxx '+;'|x xx 'Z.@/qJ& xxvo xx' x_t ~vnILLEGAL SWITCH rzwo sF$'t s:~vnFROMNOVA.SA  O&)V$''''' 9 999@99wݽwx!x?x& &~x 0xooo?xo)o*o+o(o'o9wݽwx!x?x& @&~x 3 wݽx 'tu֦&?x?x9wݽx ':tux&0+,hYI+$xuxTOx )*o%o(9~x~xwݽxtl%&&.(&#t$#M'+ ''""#9(j( 9 o%9wݽxo(t&&t$9O9&9'! ' )& u% 9)xl*&l)u 9~x)&Lxx'ƀ? xO ?x' ' '~xͦ)*)x*' l*&l) &o)o* 9wݽx o%xt96x''to'29wݽxl%x & 'l''&o't9ȁ"o% '( '3)&6u2xo+l+l*&l)) u9~x'xx? 9x)& x)*)x)* ' 'l*&l)9x?xo)o*9x) *o&& + ?x' &Al&l&lƀO?x 9 9x* ")!%x+'6m&jj?x2o+o)o*9~x͆wx!x?x'"?x٦ ?x9~xwx!zyDK&/0111 wݽx!zyz&z{z&vg?]&9z{z~x?wݦ&xs:zxx*96xxx76ؽw0112rxwcM&\sS&s9'R1&xSxLxGxx&xx7zx'xo"&$x#xx |x'~x~xs:xns$HHHH6s$ 3xx911 Ɂ9#G% 90%0 9A%7 9wݽx&9wݽx%9w9w91-03-7812:01 AM yxwxx x?'xxxxx!"zxx*wچ_r9#CNx"xxxxXx?'x9~x'o%o&o'o(o)o*o+9~x&9~xxDK SA0 ?'x?xxx'M"Io'xx?x; o&o&xx?&#&ŀ&9x  9M*_x? 9$"  0116TOx~ Ox~ x&9yy=yiyyyzzEzqz ~nd ] h! $0201 _"""g"")1#  "u_""" SYNTAX ERRORSYSTEM SECTOR COPY/VERIFY ERRORDIRECTORY READ/WRITE ERRORSOURCE FILE COPY ERROROBJECT FILE CREATION COPY ERRORCANNOT DELETE DUPLICATE NAMEDRIVE 1 SCRATCH? APPEND TO DRIVE 1?DISK NAME: DATE(MMDDYY): USER NAME: NO FILES TO COPYDELETE FILE NOS.: NEW NAME: STARTING TO COPY FILESINSUFFICIENT MEMORYENTER FILE COPY SELECTION COMMANDS: SAVE (S), DELETE (D), PRINT (P), QUIT (Q), NO MORE (CR)S, D, P, Q, (CR):. NOT FOUND .SECTOR  OFFSET DR0- DR1-COPYING . - DUPLICATION: IS IT TO BE COPIED? NOT COPIEDCOPYINGMDOS SY OV0OV1OV2OV3OV4OV5OV6ER 7?(yw9 O? ' '$;&Y$С' $& :Y 11!+!a&!s. ? Y'?O)L1!.~$~& ? ~/!&J!9!&L !&  9 |%9|#(9|&9|"9|$9'&z'# ~-+'&|' " $z $:A$C$D$I$L$N$R${S$U$V$sY$Z$$&-97/QM??$HYIOPO}!*DVOPDVFNMST_?/"f!+. *,&(*,&(%>MQ|-7&(3%.Z&$'-*O,,-?-$?),Y&(Y&~/~/~/OPTFTF[\Y*,9HZ&; =IJ~#<~ )'OQ_ OO '|Q*'Q9K:@F2& B%2!'&Y'!&"2 c%H~"&Y!. !-~$Ž!@ @zF2 :%P0&02 +%P0&0 &0C %2:K"347633G''"3XOZ ./.n~'93D7%B н"34763567676 57..I"&/J"~%2&P7'H.//$|..2723562334. ;."& /.$ |7+%H~" ~$%2!'&Y'!&"~""~"Խ%2~#<)3476 3~#<2334@:F9!7/~'97H.//$|..9ݽ&~# V29  )/)kJSOFTWARE DYNAMICS BASIC VERSION 1.2-  )d )d.. )d.. )d.. )d )d )] )d&& )0 )v )l )  ) )AZ )AZ )09 ) )$$AZ )AZ )09 ) )$$09 )09 ).. )EE05 )09 ) )79 * 09 *09 *09 * * * *66 *04 *Q09 *L09 *G09 *F *K *P *55 *04 *v09 *q09 *p *u *55 *02 *09 * *33 *05 * *49 * *69 *09 * * *69 *09 *09 * * * *.. *EE *09-- + +m09 +$09 + +$.. +# +0.. +009 +m09 +4 +mEE +h++ +U-- +U +h09 +h09 +_ +l09 +zAF +09 +AF +~'' +'' + + + +'' +"" +"" + + + +""'' +'' + + +'' ,"" ,"" , , ,"" ,09 ,  ,M ,6  ,, ,MDD ,MII ,MMM09 ,P , ,f  ,\ ,RR ,~EE ,~MM ,!!09 , , ,  , ,EE ,NN ,DD ,  , , , ,  , ,EE ,LL ,SS ,EE[(])!,O -5" .[ - * COMPILED BY 10/30/77 SOFTWARE DYNAMICS BASIC VERSION 1.2PROGRAM -ORIGIN : +o .[ I$ -I$4800  JSR $2000I$12:: SET 0!,O -5" .[ -DATA -ORIGIN : +o .[ : EQU $!.< - ."!.< -GI*+2+:::II:: !.u .$,   GJ, .F0} .S,O .S5" .Z.[   .t  .p  .p  .a,$ .. .IGJ3> .6c .. .6c .. ..[ ) . .DOUBLY DEFINED LINE NUMBER . / /\ /  .  . . / .LET /3o IF /!;A GOTO //3 PRINT />7 FOR /K4 NEXT /Y4X GOSUB /h4h RETURN /x4 STOP /4 INPUT /7Q READ /:1 WRITE /: RESTORE /7/ OPEN /6 CREATE /6 CLOSE /6 DELETE 07 RENAME 07 ON 04 REM 0(! 0/5" CHAIN 0>5. CALL 0L59 POKE 0Z6F DEBUG 0i6Y ERROR 0x6^ 3o0  0, 00 0) 1 0DOUBLY DEFINED STRING VARIABLE 0 II, 1<) - / 1%I-*-1JI-*-4JI-*-22 III4+/ 1;2JI4+ 1/ 1I-*-1IIJI-*-4JI-*-22 III*-I/ ) 2 1DOUBLY DEFINED NUMERIC VARIABLE 1 I, 2d) - 2%I2I::+7+6*I8+6* 2c, 2c) - %I4I::+3+6*(+1)*(+1)J+1I4+6*(+1)*(+1) 2/ 2) 2I6J0J0J 2* 2FI:+FI''I$DG 2: 2+o I6J0J0J$ / 2 2I6 3 3, 33 3+ 3I) 3*I: 3=+o I$FORMAT 3n+ I&II-*-1IIILEN( 3F ) = > I^F 3, 3> , 3> - = GD G 3- 3= F> G# 3= 3D G Ch 3= > G) 4 GIID 4WFIF= > GTO > STEP 4C> 4RFJ1 HD 4gHI) 4zGIIPOP 4> I GGERROR 4GOTO HI0 40 4) 4I > 5!GOTO 4Ha 4GOSUB 4II II) II, 5) II 5II5* 5",D 58H) 5B) 5 5L 5nALREADY DEFINED AS A VARIABLE 5r ( 55 , 55 5}) 5 GICh 5+ 5- 5! 5XOR 5** 5* 5/ 5& 5^ 5 5FA F 5B 5 FEFs 6A, 6<> , 6&> - G 6;- 6;FB 6: 6@ >> 6X, > HmHHDEF 6)  6v 6NAME ALREADY DEFINED 6GIII( D ) I= > IBII 7B 6, D H7B 6, D H7B 7H, 7 7B H 6D 7IPD 7., D IW7B 7A, > G# 7P> GF 7_I4G 7x7B 7l, 7xI4H 7H17 77 7, 77 7 F 7, 7> , 7> - GGG 7- 7FH%G# 7GG Ch 7H%G7B 8, 89Z 883 8G I49Z 8183 81G ELSE 8F 8UB 8L9% 8T8 8F 8b8 8TAB( 8> ) ; H783 8 8E 88 8Fs 8, 8> , 8> - G8 8- 8FFA 8 9% 88 8> 89% 8G, 9 H83 9  9#; 983 9 9#G G, 9;H83 9: 9X; 9PG83 9O 9XG USING :0) 9vIII 9F 9Hy 9F 9E Hy , :(F 9B 9G 9G :'F 9G :'E 9G :'Fs :, :> , 9> - GG :- :FA :  G :G :'> :'G 9G7B :M, :N , :I:N :?F :, :> , :t> - GH  :- :FHG# :H  Ch :HG7B :, : , :: :E :HFs ;, ;> , :> - GH ;- ;FFG ;H F ;*B ;!G ;)H F ;5H> ;@G< ;  ;T  ;M ;X THEN ) ;GII, ;|; ; ;GII; , ;GIIII; II ;II FI ; 3/ <\ ;  ;  ; ; / ; <) <A <= <= <= <= ) =E <D >V Fs =W, =I> , =&> - GD >V =H- =HFFA =A= =G= =VD =V>V F =vB =h= =uD =u>V F =D  >V > == NOT( =< ) GEOF( => ) H+AND = G_<> >> Ge<= >> Gq>= >&> Gw< >5> Gk> >D> G}FJ0Ge= >dD H=<> >tD HC<= >D HO>= >D H[< >D HI> >D HU? >> + >? G) ?- >? G/ ?! >? GM ?XOR ?? Hg >?X ?? ** ? ?X GS ?S* ?1?X G; ?S/ ?B?X GA ?S& ?S?X GG ??q ?p^ ?l?X H ?^( ?> ) LEN( ?F ) FICOM( ?> ) GYATN( ?> ) HSIN( ?> ) HCOS( ?> ) HTAN( @> ) ILOG( @> ) HEXP( @4> ) HSQR( @J> ) HINT( @`> ) HABS( @v> ) HSGN( @> ) IPOS( @> ) HVAL( @D ) IPEEK( @> ) HsFIND( @F E , D ) IRND @HERR A HELN AIPI A%I) A1F) AAFJ- AP?q G5* AnFI''I$D+ AFI0IFG AFC: A+o FJ$+ A) FJ+ A? G)> - A? G/> ! A? GM> XOR B ? Hg> ** B%?X GS? > * B<?X G;? > / BS?X GA? > & Bj?X GG? > ^ B?X H? > + BF? G)> - BF? G/> ! BF? GM> XOR BF? Hg> ** BF?X GS? > * CF?X G;? > / C1F?X GA? > & CLF?X GG? > ^ CgF?X H? > ) C CwDv C CD C CFI CUNDEFINED VARIABLE ) D CDv F D CD F D CFI D D( > ) I;I DUNDEFINED VARIABLE ) Du D+ DUNO SUBSCRIPTED VARIABLES ALLOWED HERE Dt DtUNDEFINED VARIABLE FI, > - G FI, > , > - GD DD CAT DD GD GCAT DD G DGEFs DE FDATE$ EIeE TIME$ E)IlE NUM$( E@> ) IsNUMF$( E`D , > ) IzMID$( EF , > , > ) GLEFT$( EF , FJ1> ) GRIGHT$( EF , > ) GHEX$( E> ) I, F> , > - G+ FFI1I+ FFFII-*-1IIISWITCHES$ FYH F_F Fr, > - FFSWITCHES$ FHF FFI) F FUNDEFINED VARIABLE  0+ 10 11 12 13 14 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 126 128 130::: EQU * EQU ::I-I::I:: SET ::+I:+ ORG  FCB  RMB  FCC  FDB  FDB  END   rzxo0x}x?x  qoZ&o0 ' ' & xxxxx '+;'|x xx 'Z.@/qJ& xxvo xx' x_t ~vnILLEGAL SWITCH rzwo sF$'t s:~vnFROMNOVA.SA O&)V$''''' 9 999@99wݽwx!x?x& &~x 0xooo?xo)o*o+o(o'o9wݽwx!x?x& @&~x 3 wݽx 'tu֦&?x?x9wݽx ':tux&0+,hYI+$xuxTOx )*o%o(9~x~xwݽxtl%&&.(&#t$#M'+ ''""#9(j( 9 o%9wݽxo(t&&t$9O9&9'! ' )& u% 9)xl*&l)u 9~x)&Lxx'ƀ? xO ?x' ' '~xͦ)*)x*' l*&l) &o)o* 9wݽx o%xt96x''to'29wݽxl%x & 'l''&o't9ȁ"o% '( '3)&6u2xo+l+l*&l)) u9~x'xx? 9x)& x)*)x)* ' 'l*&l)9x?xo)o*9x) *o&& + ?x' &Al&l&lƀO?x 9 9x* ")!%x+'6m&jj?x2o+o)o*9~x͆wx!x?x'"?x٦ ?x9~xwx!zyDK&/0111 wݽx!zyz&z{z&vg?]&9z{z~x?wݦ&xs:zxx*96xxx76ؽw0112rxwcM&\sS&s9'R1&xSxLxGxx&xx7zx'xo"&$x#xx |x'~x~xs:xns$HHHH6s$ 3xx911 Ɂ9#G% 90%0 9A%7 9wݽx&9wݽx%9w9w91-03-7812:01 AM yxwxx x?'xxxxx!"zxx*wچ_r9#CNx"xxxxXx?'x9~x'o%o&o'o(o)o*o+9~x&9~xxDK SA0 ?'x?xxx'M"Io'xx?x; o&o&xx?&#&ŀ&9x  9M*_x? 9$"  0116TOx~ Ox~ x&9yy=yiyyyzzEzqz ~nd 0201&+)]&-&+?'&~  &~$)^DK&~$)[)D)D)&-&+?'&  ')DK'))D)D&+_ '+;' &+ ' ')H&&+ m&~%)G)D &~$' & )&)')D'~" )&)]))&)f))&)^&)&&?PS)G'~%P)G' )T)T )y)y)S?'~$?&)G@'~!)j))k))l))f)%)y)y)x?&?'})&})'&)) %)S?'U &)j&C)d))S?&?&)'/))x?&,&&+'%&-&+ ?))x?& %!?)x?'~$&)'/))x%k%)S?'L '~$)x?'d &)j'~!)d))S?&)x?&&&+'%&-&+ ?' &)x?' '~$&0&+&&-&+ƀ?&~")d &+)&-&+))? Ɓ?#~! )&0))D&~$1)^&+)&-&+ ?)S?'~$?&)j''~%)G'~% ' @&HP)&'& ')jx))G'&dž)y)y |&/)G@&M)y)y)x?'~$?&)G '%)S?' &~!}&/& )W)U'|&/)U)~)x?& CN)&~$(:)|)C)~)G&|&/%k%)S?' &)x?' &~!)? ~"}&/&)U')x?' '~#I}&/& )z'|&/)W&+)|&-&+&-&)z& &+)U' &-&+)U'&+ CN)[&~$)G('~%')D')T)T)j |&/)^)D' )&SA))&+)^&-&+ ?)S& '?'~$?&)j' ''~%)jx))D&)^&+)&-&+ ?)G@'~#%~#<? %!?     ) ? $%!?9)S%L)y&)y&)')y)y)x%L9%i?''_? %i?''_? 9)x& '?& ?&)? 9~$)?'9)ŀ'~%)j' '~% &)D& ))j&)G'9)&+)&-&+?)))))? &? &Y'ƀ?#%!?H& R&)E)F @ o9*NCWH V@'0(9DK0 SA&0&'0(9 DK &0&VERIFY IN PROGRESSXXXXXXXX.XX:X EXISTS. OVERWRITE? VERIFY FAILEDVERIFY FAILED AT LSN XXXX]'/l&l*.*. #0m&jj*. Z&*.96dfJ&29  *` *r$ 0 011n**oo<*9**4< **+ *&z*& *9*<x 0200O"%" '%;& 'Y&|" S&|% ' 40" " ?" ""? _" '\J' " '? ?"!? ? $?" !?$~!!&!&%&" &׶"'Ɓ?#"˽!"? D!&$"& "!"? ? %C"? ? %8Y&" ?$ ? ?"!"? !J&~ y" ';'~ ;?!J''ƀ?#"!"? ? ?&~!O#$ " &z# % &!9 &# |#"'&"&z$  &$ |$"'&" """ "?!9#+" """"?&$*O J'"" ""9"" ""?."""9 """ DELETE ? IS PROTECTED DELETED  DOES NOT EXIST  0200O$%&#L- $$$j0$Y$Z ?%$Y%%? _%ئ '@;& '5E&  $ A&  $$ ܁L& ԁS& ́ ' !_$Y$z' \J'~#)$Y ' %$%%?$~#)$%$%%?$r$% $Y& '~" &&" "? $~#"$Y?$~##'#&"J& !&$f &|&#!&~"#$d%$%%ν&O$j'('%$%%ν&$Y$d%%E%%?$~#)$%E'+|$?''*$%$?)$$%$%%ν&!&~"%E*&"%$% %?~"00$ $?%E)(''?'%$%%ν&)(''%$%%ν&$$%$ '$$?$'$57&)+*@Ɓ?#&$% ))+? $~#~"$$%"'~#-~ _+, $Z&z+  &+ |+$b'&$b&z,  & |,$d'&|#$Z%%%% ?~ &ƀ@?#&-$% s' ? i&'!',$%&c%%ν&$%&h%%ν&&F$%&(''%&%%ν&'%&%%ν&&j$%!'-Z'$>?$Z%$%%?.$$b$9++$Z%%%%?&,*O J'$b% $b%9%%$%%?.$f$H%$&$f9!&? 9z-&<-?49?2% Z' %?5?390 $%DDRIVE : DISK I.D. : . !WDSCN0 *NO SDW'S* NO DIRECTORY ENTRY FOUND TOTAL NUMBER OF SECTORS : /$ TOTAL DIRECTORY ENTRIE S SHOWN : /$ NO TERMINATOR FOUND IN FILE'S R.I.B. ]'/l&l&& #0m&jj& Z&&96dfJ&29]&~'l&l'''''''o%'l '670 'Z&32'l&ll&lj ,' m&jj'l&lj&'O9'd $0 Z&9( 0203(u'|''~1''|?].e_'| ';& ' 'U& T&? %'1' .O"L! & &'? $Y& '? $Y'? ? ( ? &?&? ]'$%/&'l&'n'l?(? &?&? ]'%%/&'l&'n'l?(%? &?&? ]'/'l&'n'l?&&'h%'j!'g?%'h&'j!'g?$~!ƀO&?%&~" !' r%~"1'8' ? ? &|  ?* ?.)&?( &~$~!'p(:'r'p)*(0? Ɓ?#'&~!(H? $N&~"Y&(d? &'t? ]''t)k%'w& 'v_?/# (? @ƀ?# (? &'x? ]''x)k%ٶ'{&'z?/#'v'w?/#~"D'w'v)&?('v?'z'v'w?/#(? ~"&>>&GA?'h&'j!'g?%'h&'j!'g?$~!&Oƀ?%$~!DK&&&&&&" !o?'? ~$DK&&–! "&?'? ~$|('))+<'l ?()& ?('n 'l? &?(?% ~Z&C60? 2 7%'~$O(& &  ?(&&'f&&?$ ' ? ~$&&&&'))+'l ?()&'n 'l?' &oo&'l&'n'l?&'l('n'l?&((? &?'? {&?'? U(/"'(? ?&??&???(&?' &&'%< &?'? &?'? &?&? %('~#^~#? &?'? &?'? ?&? 97 ?$ '?%Z& 397 '?%Z&39##'h&'j!'g?$9#& 9&'h&'j'g&?&'h'j'g&?&}'lu?('n 'l?'g&?9|uu+XHYHYwvz{67xHY & M& &S66~m? ~SM  (:&&' MDOS SYMDOSOV0 SYMDOSOV1 SYMDOSOV2 SYMDOSOV3 SYMDOSOV4 SYMDOSOV5 SYMDOSOV6 SYMDOSER SYIS DRIVE 1 SCRATCH? ARE YOU SURE? DISK NAME: DATE (MMDDYY): USER NAME: SECTOR 0000 LOCKED OUT LOCKOUT ADDITIONAL SECTORS? ENTER STARTING SECTOR (HHH): ENTER ENDING SECTOR (HHH): ABOVE SECTORS HAVE BEEN LOCKED OUT INVALID SECTOR NO. COPYING FILE . MDOS.SY DOES NOT START AT SECTOR 18 TFTFTFVFVD6YYYO FZ,29]'/l&l)])] #0m&jj)] Z&)]96dfJ&29]'+)oo))l &l)%)Z&)9A% 62% 0%62%96hiJ&29 $0200!h DK h UNIT=0  CHANGE BUFFERFILE= . CLUSTER ALLOCATION MAP DIRECTORY  PSN=0000 LSN=0000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  h!!"0#*7#'>"1"""l"+""=""U" h h : SYNTAX ERROR MODE ERROR BOUNDARY ERROR INVALID SECTOR ADDRESS PHYSICAL MODE WHAT? !ˆB00/,)# ? c? + %,'~'*s 'ޗ *' *&~$"#*s!B'C'D&0') ')''}/&*  '*sB& & T" ' &N&F#ƀ~%#Ɓ |+'&,*'"G') &' ,&'ǽ*' &G)#n %*'/&H"(|,M~&#aƄ #-Ƃ,!?#? ~$)t(?%)~$)t *s0-9.6*s &)t2%70~$#ƀ~%!D&'&q("k?(')%"ƀ*3"3157~$#ƀ~%!+&B''D')7'-3/'5 D&'&(" ?(')~$#ƀ~%#<ƃ *&"&$*s*s"&*s H & ƀ?7~$#ƀ~%-%)( ?('"ۖM& |M*s &~&.)%.'*mH*s &~&܁"&*s. ", *&"& *s"&*s  'Z|. -'H"""ہ,'-&J6 '*s &.^'/&& !̶!?/##2^& !ζ!?/"|-'"~&?#ƀ~%#-Ƃ /'7^& "!ζ!?-?$8"߽*I" ""۽*I#&? ~$8(~&,~$@ @(!+&BB&~'C&~'D'"( /&"m"ƀ*33"51')7&~(8~(&C&'(%U')(%L)/'" P!D&>'&2)&.' 1(*"!?')?(' )1" #ƀ~%" "*3"m')*?/$ /'֌&і0!A!()$~("*M"*M"`(? g9";"="*I9*I99 -z/.==;?L?&;M&? %'"(?&')''@&~(zA&(~(~$?1% ?1%}/' 9}@&? 9?2 '' BZ& 6#?52:B?3'?4 ?59}@' BJ'# 9K)t%Z!K"!"Ֆ0! !"?&9 &5!ڗ0ŀ&,"*3!"9 !DK!!?&?&\/7 9#S? 9~)/'!?& O/7?& 9!_? 9"ƀ*3 O/':'!1!M&? ?&!ݶ!HYHY'?)!߶!?-" 9!_? 9'"110"M&?9 ?:%9"60? 2 9 7NG_*%G*HHZ&KP2PN]96ICEIC?29 6*k*l*i*i*29K% K%%K9  '9C%6F%L'17O%.Q%&R%dS',7U%;W%]'/l&l**ݦ #0m&jj*ݍ Z&*96dfJ&296hiJ&29A% 62% 0%62%9P 02000!!z!!|!z?!0,? ?3.""!!~?"""!H%|"&|"|"&#|" ?276"""?/$"23?3""Z&z"&"""z"/"" """""z"/"" ""!""!~?"!'&|"?(z"&!'! "!z">!|!z#$"""!z"O!|!z#$"""!z"e!|!z#$""!""!~?!!z"'!|!z?"? ?!! "`"9"KDRIVE X : XXXXXXXX XXXX/$XXX SECTORS XXX/$XX FILES XXXX/$XXX LARGEST CONTIGUOUS BLOCK]&~# l&l# #"###!#"#o%#l #670 'Z&32#l&ll&lj ,# m&jj#l&lj&#"O9'd ]'/l&l#W#W #0m&jj#W Z&#W96dfJ&29 X 0300$$+$$?' '~"~"$$$?'+~"$$$?'*$#!%$#!%$'}$'$&$$$?/%$ '{;'$ $$ 'd 'H&|$ L&|$ ݁N&|$ ԁF'~""'$~"%#"$$ '.&"'%% #c"$$~ $,$%$$?%#$$?$+%&$@??$?/$~"ӄ$@?) $B$!?'~"?&'~"}$'%? %)d? ?'%}$' L$NP$O$F?'~"?&S$&$$2$^}$'$f$%$$'}$'$^?$b$%$$%$!?': &/}%'}$'}%' $%$#?S$'$'~"~" '~"L$&:%%$?/$-? %%%}$&~!L$& $$?/$~!$2 }%&3%$$$$$%% $J%$L#&1$%$^$J$#$L%#&|%%$-%~"? #?   ? ?     6 $%$_$$ '0-9.\# $$ %]'&D%)}%& 9O9'e#L'S' 9m&%%_ '\L#'. . %]'цL#'& &D)%%%%#L&' 9$L$J$K?-_$?/$ $JJ?($L$J ' #%?$$'?/$?% ? $11~!$F?9$F#$!#9$?''_? $?''_? 9%$J%$L$F7?3Z&9$^$DK0 SACNPB PAGE XXX XXXXXXXX.XX:X  %(ENTER HEADING:  ]&~&-l&l&@&B&.&=&A&B&8o%&8l &8670 'Z&32&8l&ll&lj ,&8 m&jj&8l&lj&&BO9'd ]'G&&oo &HY%5HY%1%+HY%'&l&l?%_%z&&O9 ]'+&oo&&l&l&%&Z&&9A% 62% 0%62%96hiJ&29P 0200%'*% '* '3%?''~$}&&~$~!%&|'O&~&|?*|&}&'&' &&-~$\&SA0 '3&'3'*&'*'*?'' ? ?}&&~$|'~!}&'~!C&&'7'' ''~$'7&'7''8''3&'*'' O%m'7&&x&&t'%)'&v' %+ &p' 'b?)'b&ZX&?''*';~ '7&'~$}&&7&' O%m&x'~ &t''?/%'%)''?/$' }'&A&'#ƀ'7'~$&' '*';&& }' '~$|' |' ' &-% 'h;' % 'XW&|' % '_'% -~$\ ]' %?+&|&|'%&~''?/$~$?$'?/%'' }'&B}' &=}'&8'+&|'j&~&|?'3's'*'v'j? &|? &|Y'ƀ?#?%'*&|'O&~&| ?' ''\&&~#('E?'~$?'}'b&}'c'&'b'c }'''X'V'*%%?|' ' &,%%%c' ?' &?&?'~$'E?& ޽$?'''?-&|?$&'&|?&|''b&|'d&'f'E?'~$?&6'''Z''O{$z'&2'#''? $?2%' O%m&t'&r ''?'&q?'''''?.''_x'IY'V'W%½%c' ?'~$'?'='='='b'b' ''&'b'f'g?/$ 'E?&Ƚ%'='A'B?/$ 'E?&' ?&?&|' ' &,~#'EO%m'&'&&&'&'&'E%m~##? $?? ?'*  '*    '* '* ' % 'F&'P''F'F'E% 9%'?''_? %'?''_? 9' v', %a%a?' u'J%b%b$|%a' x%a%b?)911~$? $$?96'' 2 ' 'M&?9?9'*%SA'30'*DK'(%?' ? $?' ?'~$?&9}'& ''?/$'E?'~$}'W&z'Vz'W'd'?''b'9  1DK0 %&{3DK0 SA%&{XXXXXXXX.XX:X EXISTS. OVERWRITE? ]'+'oo''l&l'%'٪Z&'9A% 62% 0%62%96hiJ&29X 0200#"##?#''~"h~"n*'& "&SA"""" ?"###?]''~"r" '|#""&###  'P;'# ## '9 '#m&~ !' Z,~ !7##3## #o#&~"h'!#&~"r#'" '" & "#' & z#&"' & z#&"#"### #?"### #?? $?""#5""#'?]'#' ? ?}#&~"v?]':' ? ?##"###'?&##"###'?&|##'8# '# "#"##?# '# "##?""#'m& "" C" "#"##6"#"##?]& #' ~!X' ? ?? ?  # " 0 #6#D@WS N X00h1 ,0200 ! # & h i  ('?)'C*'F'I'Y'_'d i t5)6) K)7J)FI)d"" &..&'I)'I)=)A)?)# ! DRIVE MUST BE SPECIFIEDID SECTOR READ ERROR WRITE TO DISK TO ATTEMPT TO CLEAR ERROR? ID SECTOR CANNOT BE CHECKEDDISK ID: VERSION: REVISION: DATE: USER: ID UNUSED AREA NOT 0. ZERO IT? LOCKOUT C.A.T. READ ERRORC.A.T. READ ERRORDISK IS NOT FIXABLELOCKOUT C.A.T. IN ERROR - RECONSTRUCT? Y(YES) OR N(NO): WHICH SECTOR RANGE IS TO BE LOCKED OUT? C.A.T. ERROR FOUND - ABORT?  .  DIRE CTORY SECTOR READ ERRORDIRECTORY ENTRY IN ERROR. DELETE?POSSIBLE INCOMPLETE NAME CHANGENEW NAME: INVALID RIB SECTOR NUMBER. DELETE?HASH OR NAME DUPLICATION ERROR. DELETE?RIB READ ERRORRIB IN ERROR - DELETE FILE?FIRST SDW IN ERRORSDW BOUNDS ERRORRIB CLUSTER ALLOCATION DUPLICATIONILLEGAL SDW TERMINATORNON-CONTIGUOUS SDW ERRORNON-0 BYTES AFTER SDW TERMINATORBINARY LOAD FILE RIB ERROR GOOD FILES FILES WITH BAD RIBS GOOD FILES FILES WITH DUPLICATIONS ALLOCATION DUPLICATIONS  DELETE: NEITHER(1), BOTH(2),(3), (4):  SIZE: CONFLICTS: CLUSTERSWRITE RECONSTRUCTED TABLE TO DISK? RECONSTRUCTED ALLOCATION MAP MATCHES DISKILLEGAL ATTRIBUTE OR UNUSED BYTES. DELETE?MDOS.SY DOES NOT START AT SECTOR 18 .SY DOES NOT EXISTBOOT BLOCK SECTOR CANNOT BE CHECKEDBOOT BLOCK SECTOR READ ERRORBOOT BLOCK SECTOR HAS BEEN DESTROYEDMDOS MDOSER MDOSOV0 MDOSOV1 MDOSOV2 MDOSOV3 MDOSOV4 MDOSOV5 MDOSOV6 % ':&0'1' %6ƀ?#? "6R$* %޽6~-r%6%6X%%6-1-6% ]6 %6I-176,$A Y6 ? ]'-26M/ '?'? 2376,%|IY%%623-6$#F&#& &W6% #2ZO?|II'6X~-r7?2M..-?%Z& ?339 % h%%?] &%6 ަ6%Z& -J Y?'-r 'Y 9%&# & &#&&$#&'&1#&8&B#.j$|&6$~.# # =O?#J#KA?.&6'F W79'-&UI6%79'ށ &U6%IJ?/"677# 6D?3U'?$ 6X%.j$'6%&6?~. o$81' 8'9'4&(6?) ?-24& ?$7# 6D &9? ?"#66R2$&&&x6%6%*6X%%# &#J&#K&#& 9 9&6?"6R$**6 K*ս6%6%6X%8%# %%J?'## ƀO?8%# %%J?*6 "6R$'|6%6$&6?6X%"&$ ƠO?4,%B&&Z&~0u'5~0u&]&Z&~0u&'>6'6'۽6'SA q % h%%?]&ށ &%@ 6#6_$~/35 , 6$' &, &'*F~/l s,%D%D 6 s?$( ~/l +&DDD)&SY |&D+%% t%%?&%l?++& ~'*r6 % ?'%m*½4%~/S+%*%%?%m&*6%%m*O674$~2Z, "I6R$#+(26%6%6X$(A5$|7~2R# 7%I'(]6 S# I7%Y7MS?'SM63% Z?'O6$(p # KI'%7QZ?'MN?/"QOP?/%( K I#' I@& S ?/%(~0, ' # I7?'KII7% K'( ISTI#&, &~2B'~2G'?$# ?.t#, ' '( #'L&H#ST?/%=O?/%6###?/%)##'#?/%##DVF?*#?/%#?/$( &|64%~0%H6%L6)6"! 6U$&x6?!ƀO?I4%D$5I=>?)I4$I&~4qIK4D$ _5='|KIJ?)I& |L4$%P6%T6%X7)664&~4B_5%\ƀ6%`6'>6%l 6%p7%x7)Ƚ64$~4'_5A''86%t7%x7)½6%h 6" I"KMR ? OQIIKKH$*6M7O  A& 6 ?'O2RRM'zQ& O '  6)~6 &1'4'3'2&6533&~397%d6("#6U$'|6?3]'54%~2"! 6U$&x6?4% D$54$"6R$&  %|ƀ?')6%! 6_?*6?4 4%&' 9$ &* !&&,?',+L&-|*(& 9("? $?#6U$'|6?#,O+% 6%$6%(6,%, ?'%0%4%8%,7#%07%47%87,%<'j%>7%<7%<%<%>%>3Z&'e'I6$ % 'e'T& 9?2'>6?36% &o,?("#6_$&6?9H=O?"ƀO?, "6R$(26?# C7%WEG?$7"J??}H*! D'!4! /!3'==" ''AAEEGG&C 9?(739?(9# O # $$ !M&?9 ?:$!60? 2_1' 8' 9'Z4&] 9??$&_?/$?/9 97? 7? ? %39?#z" 9 96 c? 9Y ' N '& 9 98[]8[?9 67!7"777296.]][?9 78U%7%U7ךVVZ&:2:8]9;W ;WW;9 '97HYHY?%2|I9]'/l&l77ɦ #0m&jj7ɍ Z&796dfJ&296hiJ&29A% 62% 0%62%9TFTFTFVFVD6YYYO FZ,29|uu+.HYHYwvz{67xS66~m? ~S|@쀿x nd~" ~,ro$~r~s:~s~u~v,~v~s~s~t~t~se~vn~wc~wl~w~wu~w{rzqNq~9~x~r{o&pqp BCC$|BB@@H%a`ncbn@@H%a`nAA$|@@H%ӗa`nCOPYRIGHT (C) 1977 SOFTWARE DYNAMICS ALL RIGHTS RESERVED""""""""""""# # ""|"#"&&]&((k(()m))#$$##$G$S$w$k$$$%%%*S*^*e*W*+,,o++0/0/&46&&&'55645--4H/4.4g%%% %&%,%2*p$_,,& /:,929(887r#J66l#4#>44544&7D,,4#9*#%';&)&M"[4+Q+*5.5K'%%33%)'98#w+3X h0d ;5$ߋߍ=*,026!`"b O^ RZ Q@]O\&'9 2d'~,o~ j@M@@MMZ&@~ j@A%0 ='M~ @6666660 =',~ 00o~ h@OA  @0 ='~ ~,q0111111666666~ h@6O666660 ='~ h@76444O60 ='~ 0 ;JA%0 ='~ h2 , 0*~ h0'%E0+E  C  0'C 4O6~ h0'* ;~"ݦ'oo~ h23VW0&30&;3A%Vn$5 $-ݽ<(~ h6&  0 ~ Y0&# '$-ݽ@ ԍ= #$-ݽ> $ $ #$-ݽ> % ~ Y~,q0& 911n   Ӎ   Ǎ   0&cc~ h0&*7;jA%>0*FEĽ;C  !2333&]'0DfZ& (0 o o ~ hM&]'0hIZ& ~ Y0&3;~ hQ&?~ h?~ h@& :- 4/ .. (, ܍^' ֍X& ЍR- ʍL/ čF. @, 23XY0&' & '$B CC$|BBXMn#; 23XY0G0 &0EG'FHEGF8* E' 8G'"0M0IIM&M &8 8 B6_7C6B647~ h 5 0B0111111BC/O ~,q0B0ߋBCی׎~ Y@o&ߋOی׎~ ~,q@OA@@A~ @7O6A@BCA@76B@4O60 ='~ ~,q66 @ ? 66 K L76O660 ='~ h~,qUS7TR6RS @6676O660 ='~ @~# Koo M NT0'2 K"&&" 0BBTT &~ Y~,q0G'l0 &0EFEHG%NBC0I0MMOGIIK  KO&O &0IJ  ~ YB B&_O0  (0  ~,q0"&"~ Y^  U$OBC0CB%>0BC~ h-  $0"&"0O~ h ~,q23VW0'&;jA%>0+C 111111Vn23%' 111123Vn  0  BC0' 0%"&"0BC~ h8(0  3XI%/CBXI%'8%!CB%0%"&"0~ h ~,q8(0  BC(0  06B"&C$26&  CB @322222]'*BE  !A%C 111111 2323&Bo~ 0 322222]'%BE  A%C ~ V2323&Bo~ Y0'~,q&~ V0I0M0G0B &0BEEFHG%GB'IJNM$MMII &~ VIJߗIJMNߗMNM MI I & Ζ?& @~ k?&~ _?&S?~ h(0 @ $  B~ k(0    @B :XI%A@%%@" &'"BC9011n@@A@Z T' Z=>~+~,q(0 'Z R'7Z &  RZ~ hZ R'=>Z@A~ ~,q@BA%;B;@A764444A%0 ='B~ j~,q;0 @;111111A%~ 0B ;5~ @66 &@'@&'& '%8&q BREAK ON LINE? 6HF} d@ &~ hO ;67=0ދ*' ~ k@*~ 670 E6&,~ k,~ kq STOP6.,q ERROR6^4 AT LINE6j45~ )0&1~"0&%&F "& " &  ~ V~,q0'#0^u O'&&6^' 6|\|]'H__%z^^22222222 2 2 2 2 2@A~ Y~,q6BCC$|BB29z]z\__$|^^9@^ϼ O'¡&&B&+B%}B  $~ k^&~ ^666666BA%-ݽ>B;BA%B6 6 6 6 6 6;'.B* B+ B B&66O66CB;B&66O66CB222222B6 6O66CB2 2 2 2 2 2~.@( KRB MQ& H''+ Q BB '  &B T~,~,lTUSRR0 )Q'~,q/0~ k INPUT ERROR 6U( ;~ kR~ hBC23VWBCA ] lB߽A ':&[OA0-*9.0 A-F.7HHHHHyy%(Z& 'ֿ7־7444_7 ,' VW769Vn?_ _ ދ'Qߋ ދ Q  ~ h0&09'0BBQ &~ YאOٗW$&|N-& | -'>#& L #/.&|ٖ " #& L #ւڃ&6-&| C  10oo0Q &1111~ h<~,qD2Q #zD&~ h0& 0'0BQ BB &~ Y0'0BBQ # &~ Y׿߫߳'xy% h$%Z&&ִۖ9011nց766~60Xyyy~Xyyy~ ~XyyXyyXy~߀C;zA%<(~ h~,q0+& '38&0@Gp$@D8*}l l l ; zD&8*}l}r l~88&}r}f_[}l%?'l& 8*}r od@~888&}f_[}l='XB>y4D>$yw?9 5?V?33a@ffg@ffff@PAAprAql&>8tpvq$8* rp'8* r}r ޖf*8*}l ; l d~ jf* O0 ~,q@d23@A~ ~,q0+& '30@O@6666XIXI0C8&}l ;'+8 ; l ; .8g ;  ; 8Ax1q xAA%1AQA#V'5 lAUdY' 8* r.7u~80&3x;@@A%@'@xA%0 ='<(@A%> ~ k~,q8& ;Z.958& ;}f_ ;Z [ ; [ ;}lqG$ 8* ; 8*=4(y0G?hQyi&&@E@pyc' f l ! ; ~88&}f_ ;Z [ ; [ ;}l ;ZqG$ 8* ;Z8* ;Z ?RDEUvb7pA!P x@Q2aAE)3  ;  ; f l ; ~88&}f_ ; (+:C ;.:P ;  ; ;}lF&@$8(ABAAT#yCA8&$ xAA%hAQTuA8&$ l f~8A  !$' $(26Ae %05@EAW3$06BHT@P!(5BIVc<ef$2@HVdrA '6ETcrAA@xS5@1b'v`0'923222222n+ 00++'& & & & & ' "Ā$|0Mn23;;;߳ߵ߷߹߻'V'Mz ʌ'1'Í%!ֿɗ ʌ&~@j')8׳$$ 9$ 9'  9פƦ֤Ʀ_$ץXXXXצDDDD֤HHHHƦ֤TTTTƖ9& 63vũy 9ֳ%ִֵֶַ &ָ~@ji'a_\ֿ͍v%3ë  ©   $͖ɗ99&ף|$9ѿ'#9TFvTFvTFvTFvʐ|$$햣HHHHJ62yIYyIYyIYyIY|$$90230'*W3׾3׿33333׫M&]'Z3׬3׭3׮3ׯ3װ ?3L&׭3׮3ׯ3װ_ *L& ׮3ׯ3װ_ L& ׯ3װ_ .L&װ_2ׯ2׮2׭2׬? l11111~A+1111~A=3׾3J&333_ (J& 33_ J&3_ J&_2222׿3׫3׬3׭3׮3ׯ3װ?+~@<߹߻߼ƙÛ›%P%B%Y 0 G_$!׳_&\&; ;'▲?.@'+ֱĀ ;:A%0n p23;;;߹߻߼''LȖo&&xyyyyxyyyyyZ&~=z23Ӧ666666naE .&&L HHHH& |*11~C9011n2 .&&L"   Ё0- 9.ۀ0923769' ֦9O Oؗٗ߳ߵ߷΁ '+'-&0&ۖ'z+~C.& ڌAC  Ar  z&鍁A &~C_ױײ܁E&>A+'-& A AA  ֲX% X% ۲%X$ ޖ&֖& *&Uֲ'*POOYGVə' 'M*/; =GV$tvvvvJ&\)@) /ڳ׳ *;* ;:2323ϽA%76 9237690F,i@. O RODDDDM  BC  8Z&0*)1111n011nHIII%xyyy%xyyy%$ %923O2222_*ƀױ xyyy%Z&;~A+xyyyZ&Ζ'ָ7ַ7ֶ7ֵ76E @'_7ָ7ַ7ֶ76D ,'_77ָ7ַ76C ' _777ָ76B _77776A6n2322DDDD00z&+*-.E +H+- 0&z z&6*@OxZ&֖0DDDD00  0&Zz&2]&On';&+&!&& @"!23769A" B" C" D" E"9230ױD"@"111111*; ;A%nE0 کשoJ&*喩';A%> # $ % rzxo0x}x?x  qoZ&o0 ' ' & xxxxx '+;'|x xx 'Z.@/qJ& xxvo xx' x_t ~vnILLEGAL SWITCH rzwo sF$'t s:~vnFROMNOVA.SAO&)V$''''' 9 999@99wݽwx!x?x& &~x 0xooo?xo)o*o+o(o'o9wݽwx!x?x& @&~x 3 wݽx 'tu֦&?x?x9wݽx ':tux&0+,hYI+$xuxTOx )*o%o(9~x~xwݽxtl%&&.(&#t$#M'+ ''""#9(j( 9 o%9wݽxo(t&&t$9O9&9'! ' )& u% 9)xl*&l)u 9~x)&Lxx'ƀ? xO ?x' ' '~xͦ)*)x*' l*&l) &o)o* 9wݽx o%xt96x''to'29wݽxl%x & 'l''&o't9ȁ"o% '( '3)&6u2xo+l+l*&l)) u9~x'xx? 9x)& x)*)x)* ' 'l*&l)9x?xo)o*& 9x) *o&& + ?x' &Al&l&lƀO?x 9 9x* ")!%x+'6m&jj?x2o+o)o*9~x͆wx!x?x'"?x٦ ?x9~xwx!zyDK&/0111 wݽx!zyz&z{z&vg?]&9z{z~x?wݦ&xs:zxx*96xxx76ؽw0112rxwcM&\sS&s9'R1&xSxLxGxx&xx7zx'xo"&$x#xx |x'~x~xs:xns$HHHH6s$ 3xx911 Ɂ9#G% 90%0 9A%7 9wݽx&9wݽx%9w9w91-03-7812:01 AM yxwxx x?'xxxxx!"zxx*wچ_r9#CNx"xxxxXx?'x9~x'o%o&o'o(o)o*o+9~x&9~xxDK SA0 ?'x?xxx'M"Io'xx?x; o&o&xx?&#&ŀ&9x  9M*_x? 9$"  0116TOx~ Ox~ x&9yy=yiyyyzzEzqz~nd0010DIMA$(4),L$(60),F$(20),N$(20) 0011DIMZ1 0012DIMM$(3),D$(3),I$(3) 0013DIMLAR$/:E/ 0015DIMD(12) 0025DIMX$(10) 0030' DIMN1,A,I,J,K 0035DIMM1,M2,M3,D1,D2,D3,Y1,Y2,Y3,I1,E2,P2,I2,X 0036DIMN,P,C 0040CREATE#2,"#LP" 0050D(1)=31 0051D(2)=28 0052D(3)=31 0053D(4)=30 0054D(5)=31 0055D(6)=30 0056D(7)=31 0057D(8)=31 0058D(9)=30 0059D(10)=31 0060D(11)=30 0061D(12)=31 0070ONERRORGOTO8000 0100PRINT#N1 0101PRINT#N1 0103INPUT"DOYOUWANTAGRAPHONTHEPRINTER"A$ 0104IFA$="STOP"THENCALLMDOS 0105IFA$<>"YES"THENN1=0ELSEN1=2 0110PRINT#N1 0115PRINT#N1 0130DEFFNA(A)=A-(INT(A/Z1)*Z1) 0195P=6.28319 0200PRINT#N1 0210INPUT"WHATISYOURNAME?"N$ 0230INPUT"ENTERYOURBIRTHDATE(E.G.1,1,1954):"M2,D2,Y2 0290IFY2<100THENY2=Y2+1900 0300INPUT"ENTERSTARTDATE:"M3,D3,Y3 0320IFY3<100THENY3=Y3+1900 0330INPUT"HOWMANYMONTHSWOULDYOULIKE?"N 0380IFY2>Y3THENGOTO0230 0390IFY2M3THENGOTO0230 0410IFM2D3THENGOTO0230 0460D1=D2 0470M1=M2 0480Y1=Y2 0482IFY1=Y3THEN7000ELSE0490 0484A=I1 0486GOTO1090 0490GOSUB8080 0500A=I1 0510D1=D3 0520M1=M3 0530Y1=Y3 0540GOSUB9480 0550A=A+I1 0560A=A+365*((Y3-Y2)-1) 0570FORI=(Y2+1)TO(Y3-1) 0580IFI/4=INT(I/4)THENA=A+1 0590NEXTI 0615IFY3=INT(Y3/4)*4THENA=A-1 1090PRINT#N1,"THISBIO-RHYTHMCHARTPREPAREDFOR:";N$ 1095PRINT#N1,"WHOWASBORNON";M2;"/";D2;"/";Y2 1096PRINT#N1,"ANDWILLBE";A;"DAYSOLDATTHESTARTOFTHISCHART" 1100PRINT#N1 1101PRINT#N1 1110PRINT#N1,"NEGATIVEPHASE"; 1111PRINT#N1,"CRITICAL"; 1112PRINT#N1,"POSITIVEPHASE" 1115PRINT#N1,""; 1120FORI=1TO60 1130PRINT#N1,"-"; 1140NEXTI 1150PRINT#N1 1160C=9 1161L$="............................................................" 1200IFY3/4=INT(Y3/4)THEND(2)=29 1210L$(30)="*" 1260Z1=23 1265P2=SIN(FNA(A)/23*P)*28+30 1270Z1=28 1275E2=SIN(FNA(A)/28*P)*28+30 1280Z1=33 1285I2=SIN(FNA(A)/33*P)*28+30 1293L$(P2)="P" 1294L$(E2)="E" 1295L$(I2)="I" 1296IFP2=E2THENIFE2=I2THENL$(P2)="#" 1297I=Y3-(INT(Y3/100)*100) 1298M$=NUM$(M3) 1299D$=NUM$(D3) 1300I$=NUM$(I) 1301IFLEN(M$)>2THENM$=RIGHT$(M$,2) 1302IFLEN(D$)>2THEND$=RIGHT$(D$,2) 1303IFLEN(I$)>2THENI$=RIGHT$(I$,2) 1309PRINT#N1,M$;"/";D$;"/";I$;"";L$ 1390L$(P2)="." 1400L$(E2)="." 1410L$(I2)="." 1420L$(30)="*" 1460A=A+1 1470D3=D3+1 1480IFD3<=D(M3)THENGOTO1260 1490D3=1 1500M3=M3+1 1600N=N-1 1610IFN=0THENGOTO0100 1620IFM3<=12THENGOTO1260 1630M3=1 1640Y3=Y3+1 1650D(2)=28 1660IFY3-(INT(Y3/4)*4)=0THEND(2)=29 1670GOTO1260 7000LETI1=0 7020IFY1=INT(Y1/4)*4THEND(2)=29 7040FORI=M1TOM3 7060LETI1=I1+D(I) 7080NEXTI 7100I1=I1-D(M3)-D1+D3 7120GOTO0484 8000IFERR<>1THENGOTO0100 8001STOP 8080D(2)=28 9000IFY1=INT(Y1/4)*4THEND(2)=29 9010I1=0 9015IFM1=12THEN9100 9020LETJ=M1+1 9040FORI=J10 1 !~!~"v~~>~~8 OLD NEW END LISTSAVEDELELOADRESEMERGBUILNUMBCHANFINDPRINBLOCVERIMOVEDUPLAPPEQUITOLD NEW END L SAV DEL LD RSQ MRG BLD N C F P B V M DUP APP Q ON OFF IN OUT I O EDITM RELEASE 2.9A COPYRIGHT BY MOTOROLA 1978 WHAT?  NOT THERE OLD/NEW? EXISTS READY SAVE IN .SA:0 SYNTAX ERROR NO ROOM CREATED END=0000 MEM=00000 0000 RECORDS DELETED (  NOT ASCII INCREMENT TOO LARGE ALL (Y/N)? RESEQUENCE NEEDED 8 o&4n&U_GD:T15T1t5R1tV+5P1t8/B!" *'{''"U"U"U'{"U"U'"U"U"U"U1`1j"U"U"U'"U'X"7n5N1t 5L1t~"5J1t 5H1t!&~"~"|5P1t8" *'{'''(%(;'{-",'0(('1`1j..('+G'X"7nEF;=><I45FbA#5pqrst#0&'95D$''95B$''95N1t~"A#55@$''' '9"5>5?de598p7-$b &b~#Wbf9# z#- 0"9#b"%\#"X$,6--2b9"*-.HYHY.-HY88_M,S88-.|$d57' bddbb~#$/!-8p5V$_M,Sgfbc -9#d'p8d5 '7&9'#$L~$'98b 8A#5p '8!*887!38Ӷ!6855853488b88!*78!38ʷ!68,8/ F'$~"^908!*78!3:!6.9%&$=&&8 &&8 88885185/885548&&8&!915-1~F'$~"l8' &&8&15+1tF'~%!98'&~"f&& 8&!915)1t~"l0#5p &IU&9&9p8|63p863-)b-&b0#5p863)--, F'$.~"^9|~ ߀߂9/'9D(D5'15%1(D 5#4Y'GB&;!*887!38Ӷ!688518߆55488'~2 |/~"l11!*887!38Ӷ!68~(,5!^58![7^\^&i58O7on{zMN. &$58O7NMMNM8!e5V!i88S6b151t9^78![7^78|7$~&~'\^\^^'787#^9& B$цA#5ApN&A5z9k z19m &9k/&~"v& $цB9k5z~0& 1D14|D1~(D'1D%&^' ('T~( ~"|^1t9$9k3B|/~"v.0#5--)%&^'>>^\^'T~(M~(s~"^>8!k5V5 1t.~"||;~(|=.%;&+I''D(D5 1(D 5#4Y&~(~"|b &b~(HLbG&bG^~)b,&!bA& b|H~)!0#5-'.Lb)b=') &~"^,~),;'~)b``)' &~)d`|,~)L```)' &~)`z,~)ibj&^& ;&.~"|KJ,,+3^78z77^`zd='H `+)b+~*b`+' &~*f`hbff ')'G' h'~**ffhh~*f'' &~*)'`dd``~)L' |KK'~*=;'(~*fbdl `+ld)b+H'jbh`J~)J h+ d,-"^dz` + d~*z{\^z^dzV'(/J' f+J~*'Tjb~)ffG'' 'fdG'd '9zn% *'3J.~"f9+M~"|b '+3/5!^^\^&~+78p7$~+`^78p7& ^\b &5 1t9p8z77zdbddbbd '~+\zz{\dz9.F!*807!38!6:$Ab('~-b%|8787b)'~-b,&b0#5-&~--8|5V|87&^' 78|7&51~^\^zj1\djk\d'$d\d78\77%51~$/~"v$~"^.0#5pN&(9k\\'oooo &\~-;~.v-& --8|5V587b,&#b0#5-& --85V9k\\&~.v&$787%|87&&\787%|87|8\77\& 886b8|7$ 51t.~"v8|7\\~-/.~"v) |878798|7879|<./W%b,'.~"^bb|87870#5-&~.-85V8|7|87b,'-~/Tbb0#5-&~.-85V&`\^\X^ZW&~/8|787|87#~/`&& `\^^&.~"|^X'Z&`~/<&^\` +3^`^\&W787<'&^fz^d f+ dz^X'Z&~0eZ[^_X8^77V'(<'87&~/^\886b~/l|E.0#5-& --8|5V587b,&#b0#5-& --85V|8p7~1.s886bp8 7 4  &.~"|4b+M~1#'U~"l#'V~"l 4$~"l &!* ' 9}D'}E&~ ~ 1}D'|TT:-B-T9T:'  B&_ \:&:T9d+'3eDK88448'%! 44*'3J+'3eF'$~"l+8d8Ķ88ċ8Ʒ8dž448'~2*@8ׄ'141~!F'$3J~"l448 &~3JM'~2 F'd8Ħ0% 8Ħ9#~2 887$~2887#~3J|887V'8Ľ1~8846b88Ād8 d388doo8z+388ċ8Ʒ8~288*448'~2 +448'~2 @&951~9A'=8b8`b8'` `b b~3b`8ooooo98Ħ0%9"8Ħ0% 8Ħ9"9@~3^@+'3eDK88448'~2 +8z8Ķ88ċ8Ʒ8dž448'~2 *448'~2 ^\^&C C\88Ʀ&8~4q888Ʀ '8~4448'~2 C&~4~4T~3J?94~4?6E'28 18% 2 8 y490001!88$!0010!!x!!k9m!V327670000000009k!!"!!M!9j888u p d 8 !E!8! ! 8678]*|8S88,@07238Z&*@ ,7p878%|8 68z88"88808827& }8' *-89867068& J6888882JJJ&8329770_F$VFj&11980'070'70'07011n888*0S8 88 88 8'87@S7|S 8 80 880 88 8Z&%8'88*S7*S  8*S8'J :& Z' l 988]*& 888&886h8' 987@7|~688&88888' 8 88 8Z&889z88iZ& l88898888&8Z&988888Z&9CS988Z.9'd & 9Z888$|889Y BLSCMNDAD STAACNDFLG CMNDADTSTSHENGYSHIELDENERGYLEFT? BPLCMND27 CLRA STAASHIELDIFNOTLOWERSHIELD STAASHENGY STAASHENGY+1 CMND27LDX#COMSTOUTPUTCOMMANDPROMPT JSRPSTRNG CLRSTCFLG CLRPHTFLG COMND3JSRINCHCKINPUTCOMMAND COMNTO12 9060LETI1=I1+D(I) 9080NEXTI 9100LETI1=I1+D(M1)-D1+1 9120RETURN 9480D(2)=28 9500IFY1=INT(Y1/4)*4THEND(2)=29 9520LETI1=0 9540IFM1=1THEN9640 9560LETJ=M1-1 9580FORI=1TOJ 9600LETI1=I1+D(I) 9620NEXTI 9640LETI1=I1+D1-1 9660RETURN 20NEXTI 9640LETI1=I1+D1-1 9660RETURN 9680END *   S1164800BD20001270481302000A7048210200032E487017 S11E4870320078124813130653554E4441591A2E00003200BE711323454E545F S11E488B4552204441592844292C204D4F4E5448284D292C20414E4420594597 S11E48A6415228592936353200C87155480C482846190C482E46190C483446B9 S11E48C1193200D20A48340D06D82A2C00003200DC71131E59454152204D5551 S11E48DC5354204E4F54204245205052494F5220544F20313735333635320062 S11E48F7E62E00003200F00C483A0E302E360D010A482E201C5B193200FA0CC6 S11E491248400A48340A483A1D193201040C48460A482E0D000C0A483A1F1C85 S11E492D1932010E0C484C0A48400D006420193201180C48580A484C04205B21 S11E4948193201220C485E0A484C5B1932012C0C4864050A48401F04205B19B9 S11E49633201360C486A0D000D0A4846011C1F05205B193201400C48520A481C S11E497E6A0A48641C0A485E1D0A48581C0A48281C011D1932014A0C48520A51 S11E49994852070A485207205B1F1D011C1932014F0A48525049BE0000000049 S11E49B40000000000000000000032015471131754484520444159204F46200E S11E49CF544845205745454B2049532036124813363532015E7135320168716F S11E49EA1329464F52204E4558542044415445205459504520494E20594553C4 S11E4A052C204946204E4F542054595045204E4F3635320172713532017C71B1 S11E4A205548124821381A32018612482113035945534A2C000032019012483F S11E4A3B2113024E4F4A2C000032019A71130F494E56414C494420434F4D4D60 S11E4A56414E4436353201A42E00003201AE71353201B82E00003201C27113E5 S11E4A711D444159204F4620544845205745454B205341595320474F4F442D53 S1094A8C425945363531A4 S9 5ɀ=0005REMSCRATCH.SCAKACALLS.SC 0010DIMVERSION/1.1/ 0020DIMCLEAR$/:1A/,BELL$/:7/,X,ENTRIES,M,D,Y,DUMMY$(5),DUMMY/0/ 0030DIMCONAME$(32),NAME$(32),ADDRESS$(32),CITY$(32),ZIP$(5) 0040DIMPHONE$(20),POSITION$(16),INTEREST$(32),RECORDSIZE/256/ 0050DIMDISTI$(10),FUNCTION,DISKNUMBER$(1),COUNT,PASWRD$(10),DISPLAY 0060DIMDELETEMARK,DEVICE/0/,LOOP,VALIDENTRIES 0070ONERRORGOTO900\!ERRORHANDLER 0080CREATE#2,"#LP"\!PRINTER 0090DEFSTARTOFRECORD(X)=X*RECORDSIZE+5 0100DEFRECORDPOSITION(X)=X*RECORDSIZE 0110PRINTCLEAR$,BELL$ 0120PRINT"SALESCALLMAINTAINANCE-VERSION";VERSION 01302PRINT"ENTERPASSWORD:"; 0140CALLNOECHO(PASWRD$) 0150IFPASWRD$="GREG"THENGOTO1 0160DUMMY=DUMMY+1 0170PRINT"YOUCAN'TFOOLME,I'MSMARTERTHANYOU!!!" 0180IFDUMMY=3THENCALLMDOS 0190GOTO2 0200PRINT 02101PRINTCLEAR$ 0220PRINT"INSERTDISKETTEINTODRIVE#1." 0230INPUT"HITCARRIAGERETURNTOCONTINUE."DUMMY$ 0240IFDUMMY$="EXIT"THENCALLMDOS 0250OPEN#3,"CONAMES.SA:1" 0260PRINT 0270INPUT"ENTERTODAY'SDATE(E.G.8,23,1978):"M,D,Y 0280IFY<100THENY=Y+1900\!JUSTINCASE 0290RESTORE#3,0 0300+ INPUT#3,DISKNUMBER$ 0310RESTORE#3,10 0320INPUT#3,ENTRIES 0330RESTORE#3,20 0340INPUT#3,VALIDENTRIES 0350PRINTCLEAR$ 03605PRINT 0370PRINT"DISKNUMBER:";DISKNUMBER$ 0380PRINT"TOTALENTRIESONDISK:";ENTRIES 0390PRINT"TOTALVALIDENTRIESONDISK:";VALIDENTRIES 0400PRINT 0410PRINT 0420PRINT"ENTER(1),DELETE(2),MODIFY(3),LIST(4),PRINT(5)"; 0430PRINT",QUIT(6),RESTORE(7)" 0440PRINT 0450INPUT"FUNCTIONDESIRED:"FUNCTION 0460ONFUNCTIONGOTO10,100,500,200,300,910,400 0470PRINT"WHAT?";BELL$ 0480GOTO5 049010ENTRIES=ENTRIES+1\!NEXTAVAILABLELOCATION 0500VALIDENTRIES=VALIDENTRIES+1 0510PRINTCLEAR$ 0520FORCOUNT=1TO9 0530ONCOUNTGOSUB51,52,53,54,55,56,57,58,59 0540NEXTCOUNT 055040GOSUB600 056030INPUT"AREENTRIESCORRECT?"DUMMY$ 0570IFDUMMY$="Y"THENGOTO60 0580IFDUMMY$<>"N"THENGOTO30 059050INPUT'CHANGEENTRYNUMBER?(ENTER"0"TOQUIT)'DUMMY 0600IFDUMMY=0THENGOTO60 0610IFDUMMY<1ORDUMMY>9THENGOTO50 0620ONDUMMYGOSUB51,52,53,54,55,56,57,58,59 0630GOTO40 064051INPUT"COMPANYNAME:"CONAME$ 0650RETURN 066052INPUT"CONTACTNAME:"NAME$ 0670RETURN 068053INPUT"POSITION:"POSITION$ 0690RETURN 070054INPUT"COMPANYADDRESS:"ADDRESS$ 0710RETURN 072055INPUT"CITY,STATE:"CITY$ 0730RETURN 074056INPUT"ZIPCODE:"ZIP$ 0750RETURN 076057INPUT"TELEPHONE:"PHONE$ 0770RETURN 078058INPUT"INTEREST:"INTEREST$ 0790RETURN 080059INPUT"DISTRIBUTOR:"DISTI$ 0810RETURN 082060DISPLAY=ENTRIES 0830GOSUB800\!WRITETODISK 0840RESTORE#3,10 0850PRINT#3,ENTRIES 0860RESTORE#3,20 0870PRINT#3,VALIDENTRIES 088065INPUT"FINISHED(YORN)?"DUMMY$ 0890IFDUMMY$="Y"THENGOTO5 0900IFDUMMY$<>"N"THENGOTO65ELSEGOTO10 0910100!THISISTHEDELETEROUTINE 0920INPUT"ENTERNUMBEROFENTRYTOBEDELETED:"DISPLAY 0930IFDISPLAY>ENTRIESORDISPLAY=0THENPRINT"NOSUCHENTRY"ELSE102 0940GOTO100 0950102GOSUB700 0960IFDELETEMARK=0THENPRINT"DELETEDALREADY"ELSEGOTO105 0970101INPUT"DELETEMOREENTRIES(YORN)?"DUMMY$ 0980IFDUMMY$="Y"THENGOTO100 0990IFDUMMY$<>"N"THENGOTO101ELSEGOTO5 1000105PRINTCLEAR$ 1010DEVICE=0\!SELECTCRT 1020GOSUB950 1030PRINT\PRINT 1040110INPUT"DELETETHISENTRY(YORN)?"DUMMY$ 1050IFDUMMY$="Y"THENGOTO120 1060IFDUMMY$<>"N"THENGOTO110ELSEGOTO100 1070120RESTORE#3,RECORDPOSITION(DISPLAY) 1080PRINT#3,0 1090VALIDENTRIES=VALIDENTRIES-1 1100RESTORE#3,20 1110PRINT#3,VALIDENTRIES 1120PRINT"ENTRYDELETED"\GOTO101 1130200!THISISTHELISTFUNCTION 1140FORDISPLAY=1TOENTRIES 1150GOSUB700 1160IFDELETEMARK=0THEN205 1170PRINTCLEAR$ 1180DEVICE=0\!SELECTCRT 1190GOSUB950 1200PRINT\INPUT"HITCARRIAGERETURNTOCONTINUE"DUMMY$ 1210PRINTCLEAR$\!CLEARSCREEN 1220205NEXTDISPLAY 1230PRINT"ENDOFENTRIES" 1240GOTO5 1250300!PRINTFUNCTION 1260DEVICE=2 1270PRINT#DEVICE,"DISKNUMBER:";DISKNUMBER$ 1280FORLOOP=1TO10 1290PRINT#DEVICE 1300NEXTLOOP 1310FORDISPLAY=1TOENTRIES 1320GOSUB700\!READTHEDISK 1330IFDELETEMARK=0THEN305 1340GOSUB950\!PRINTIT 1350FORLOOP=1TO6 1360PRINT#DEVICE 1370NEXTLOOP 1380305NEXTDISPLAY 1390GOTO5 1400400!THISISTHE"RESTOREENTRY"ROUTINE 1, 410INPUT"ENTERNUMBEROFENTRYTOBERESTORED"DISPLAY 1420IFDISPLAY>ENTRIESORDISPLAY=0THENPRINT"NOSUCHENTRY"ELSE402 1430GOTO400 1440402GOSUB700\!READTHEENTRY 1450PRINTCLEAR$ 1460IFDELETEMARK=1THENPRINT"VALIDENTRY"ELSE410 1470GOTO420 1480410RESTORE#3,RECORDPOSITION(DISPLAY) 1490PRINT#3,1\!VALIDDATAMARK 1500VALIDENTRIES=VALIDENTRIES+1 1510RESTORE#3,20 1520PRINT#3,VALIDENTRIES 1530DEVICE=0\!SELECTCRT 1540GOSUB950\!DISPLAYRESTOREDENTRY 1550420INPUT"RESTOREMOREENTRIES(YORN)"DUMMY$ 1560IFDUMMY$="Y"THEN400 1570IFDUMMY$<>"N"THEN420ELSE5 1580500!MODIFYROUTINE 1590INPUT"ENTERRECORDNUMBERTOBEMODIFIED:"DISPLAY 1600IFDISPLAY>ENTRIESORDISPLAY=0THENPRINT"NOSUCHENTRY"ELSE502 1610GOTO500 1620502GOSUB700\!READTHERECORD 1630IFDELETEMARK=0THENPRINT"DELETEDRECORD"ELSEGOTO503 1640GOTO500 1650503PRINTCLEAR$ 1660DEVICE=0\!SELECTCRT 1670GOSUB600 1680504INPUT'CHANGEENTRYNUMBER?(ENTER"0"TOQUIT)'DUMMY 1690IFDUMMY=0THENGOSUB800ELSE510 1700505INPUT"MODIFYMOREENTRIES(YORN)?"DUMMY$ 1710IFDUMMY$="Y"THEN500 1720IFDUMMY$<>"N"THEN505ELSE5 1730510IFDUMMY>9THEN504 1740ONDUMMYGOSUB51,52,53,54,55,56,57,58,59 1750GOTO504 1760600PRINTCLEAR$ 1770PRINT"1.)COMPANYNAME:";CONAME$ 1780PRINT"2.)NAME:";NAME$ 1790PRINT"3.)POSITION:";POSITION$ 1800PRINT"4.)ADDRESS:";ADDRESS$ 1810PRINT"5.)CITYANDSTATE:";CITY$ 1820PRINT"6.)ZIPCODE:";ZIP$ 1830PRINT"7.)TELEPHONE:";PHONE$ 1840PRINT"8.)INTEREST:";INTEREST$ 1850PRINT"9.)DISTRIBUTOR:";DISTI$ 1860PRINT\PRINT 1870RETURN 1880700!THISISTHEDISKREADSUBROUTINE 1890RESTORE#3,RECORDPOSITION(DISPLAY) 1900INPUT#3,DELETEMARK\!GOODRECORD? 1910RESTORE#3,STARTOFRECORD(DISPLAY) 1920INPUT#3,M 1930INPUT#3,D 1940INPUT#3,Y 1950INPUT#3,CONAME$ 1960INPUT#3,NAME$ 1970INPUT#3,POSITION$ 1980INPUT#3,ADDRESS$ 1990INPUT#3,CITY$ 2000INPUT#3,ZIP$ 2010INPUT#3,PHONE$ 2020INPUT#3,INTEREST$ 2030INPUT#3,DISTI$ 2040RETURN 2050800!WRITETODISKSUBROUTINE 2060RESTORE#3,RECORDPOSITION(DISPLAY) 2070PRINT#3,1\!VALIDENTRYMARK 2080RESTORE#3,STARTOFRECORD(DISPLAY) 2090PRINT#3,M 2100PRINT#3,D 2110PRINT#3,Y 2120PRINT#3,CONAME$ 2130PRINT#3,NAME$ 2140PRINT#3,POSITION$ 2150PRINT#3,ADDRESS$ 2160PRINT#3,CITY$ 2170PRINT#3,ZIP$ 2180PRINT#3,PHONE$ 2190PRINT#3,INTEREST$ 2200PRINT#3,DISTI$ 2210RETURN 2220900!ERRORHANDLER 2230IF- (MDOSSWI FCB$3F END RSCN8LDAA#5FIXXREG JSRFIXXRG BSROUTLINOUTPUT2NDLINE LDAA#5 JSRFIXXRGFIXX TSTBOTFLG BEQLRSCN9 BSROUTTH0 BRALRSC10 LRSCN9BSROUTLINOUTPUT3RDLINE LRSC10JMPCOMAND SPC1 *OUTPUT1LINEOFLONGRANGESCAN SPC1 OUTLINLDAA0,XE)ES11E4800BD2000120C48880E312E310D1970488E0500010001D8704893050095 S11E481B010001077048B60200057048BF060000000000007048C50200207074 S11E483648E902002070490D02002070493102002070495502000570495E02EE S11E4851001470497602001070498A0200207049AE060000000001007049B4B3 S11E486C02000A7049C80200017049D302000A7049ED060000000000002E49E2 S1044887FF2D S11E49FF6855BC02391303234C50622E4A1948980A48980A49AE1F051C732E71 S11E4A1A4A2648980A48980A49AE1F737112488E36451248933635711321538C S11E4A35414C45532043414C4C204D41494E5441494E414E4345202D20564571 S11E4A505253494F4E360A48883435320002711310454E5445522050415353A6 S11E4A6B574F52443A20361249D33357A11249D313044D4149444A2B4A882E32 S11E4A864AD00C48BF0A48BF011C1971132A594F552043414E275420464F4F81 S11E4AA14C204D452C2049274D20534D4152544552205448414E20594F552128 S11E4ABC212136350A48BF03252B4ACB3357CB2E4A5B71353200017112488E5B S11E4AD73635711323494E534552542057594C. 45204449534B45545445204992 S11E4AF24E544F2044524956452023312E363513204849542043415252494123 S11E4B0D47452052455455524E20544F20434F4E54494E55452E71364812483E S11E4B28B6381A1248B61304455849544A2B4B3B3357CB0339130C434F4E4139 S11E4B434D45532E53413A316071351325454E54455220544F4441592753204A S11E4B5E444154452028452E472E20382C32332C31393738293A207136480C7E S11E4B7948A446190C48AA46190C48B046190A48B00D0064272B4B9C0C48B062 S11E4B940A48B00D076C1C190339003E0339481249C8381A03390D000A3E0344 S11E4BAF39480C489E461903390D00143E0339480C49F946197112488E363585 S11E4BCA320005713571130C4449534B4E554D4245523A20361249C8363571DC S11E4BE5131D544F54414C20454E5452494553204F4E204449534B3A20202021 S11E4C0020202020360A489E343571131D544F54414C2056414C494420454E1E S11E4C1B5452494553204F4E204449534B3A20360A49F93435713571357113D6 S11E4C3636454E544552202831292C2044454C455445202832292C204D4F443B S11E4C51494659202833292C204C495354202834292C205052494E5420283535 S11E4C6C29367113172C2051554954202836292C20524553544F52452028370A S11E4C872936357135131246554E4354494F4E20444553495245443A20713628 S11E4CA2480C49C246190A49C2504CBC4CCD4F145262508050F75606516671FD S11E4CBD1305574841543F3612489336352E4BCA32000A0C489E0A489E011C41 S11E4CD8190C49F90A49F9011C197112488E36350C49CD110119090D00014369 S11E4CF30A49CD744D0B4DBF4DDB4DF74E0F4E2E4E494E614E7A4E924449CD1D S11E4D0E3200282F53AA32001E131541524520454E545249455320434F525220 S11E4D294543543F207136481248B6381A1248B61301594A2B4D432E4EAD1222 S11E4D4448B613014E4B2B4D502E4D1432003213294348414E474520454E5401 S11E4D5F5259204E554D4245523F2028454E5445522022302220544F2051557F S11E4D7A495429207136480C48BF46190A48BF00252B4D912E4EAD0A48BF0159 S11E4D95272C4D9E0A48BF092A2B4DA42E4D500A48BF744DBC4DBF4DDB4DF790 S11E4DB04E0F4E2E4E494E614E7A4E922E4D0E320033130E434F4D50414E59F7 S11E4DCB204E414D453A207136481248C5381A30320034130E434F4E5441435F S11E4DE654204E414D453A207136481248E9381A30320035130A504F534954F8 S11E4E01494F4E3A20713648124976381A303200361311434F4D50414E59204D S11E4E1C414444524553533A2071364812490D381A30320037130D434954597C S11E4E372C2053544154453A20713648124931381A30320038130A5A4950209E S11E4E52434F44453A20713648124955381A30320039130B54454C4550484F11 S11E4E6D4E453A2071364812495E381A3032003A130A494E5445524553543ADE S11E4E882071364812498A381A3032003B130D4449535452494255544F523A73 S11E4EA3207136481249B4381A3032003C0C49E10A489E192F554D03390D0089 S11E4EBE0A3E03390A489E343503390D00143E03390A49F934353200411313D3 S11E4ED946494E4953484544202859204F52204E293F207136481248B6381AC7 S11E4EF41248B61301594A2B4F012E4BCA1248B613014E4B2B4F112E4ED42E54 S11E4F0F4F142E4CCD3200641325454E544552204E554D424552204F4620458A S11E4F2A4E54525920544F2042452044454C455445443A207136480C49E146D5 S11E4F45190A49E10A489E2A2C4F550A49E100252B4F6D71130D4E4F205355E0 S11E4F60434820454E54525936352E4F702E4F732E4F143200662F54CF0A49DF S11E4F7BE700252B4F9871130F44454C4554454420414C524541445936352EB4 S11E4F964F9B2E4FE6320065131E44454C455445204D4F524520454E5452493F S11E4FB14553202859204F52204E293F207136481248B6381A1248B613015923 S11E4FCC4A2B4FD32E4F141248B613014E4B2B4FE32E4F9B2E4FE62E4BCA3294 S11E4FE700697112488E36350C49ED00192F560F7135713532006E131C4445EB S11E50024C455445205448495320454E545259202859204F52204E293F207192 S11E501D36481248B6381A1248B61301594A2B50312E50441248B613014E4BA2 S11E50382B50412E4FFB2E50442E4F1432007803390A49E1724/ A1C3E03390066 S11E505334350C49F90A49F9011D1903390D00143E03390A49F9343571130DE7 S11E506E454E5452592044454C4554454436352E4F9B3200C80C49E11101199C S11E50890A489E0D0001432F54CF0A49E700252C50DB7112488E36350C49EDB9 S11E50A400192F560F7135132048495420434152524941474520524554555272 S11E50BF4E20544F20434F4E54494E5545207136481248B6381A7112488E363C S11E50DA353200CD4449E171130E454E44204F4620454E545249455336352E24 S11E50F54BCA32012C0C49ED02190A49ED39130F4449534B204E554D4245521C S11E51103A202020361249C836350C49F31101190D000A0D0001430A49ED39CE S11E512B354449F30C49E11101190A489E0D0001432F54CF0A49E700252C51E0 S11E51465D2F560F0C49F3110119060D0001430A49ED39354449F332013144B9 S11E516149E12E4BCA3201901325454E544552204E554D424552204F46204546 S11E517C4E54525920544F20424520524553544F524544207136480C49E1464A S11E5197190A49E10A489E2A2C51A70A49E100252B51BF71130D4E4F205355E4 S11E51B2434820454E54525936352E51C22E51C52E51663201922F54CF711232 S11E51CD488E36350A49E701252B51EC71130B56414C494420454E54525936D3 S11E51E8352E51EF2E51F22E522132019A03390A49E1724A1C3E0339013435FA S11E52030C49F90A49F9011C1903390D00143E03390A49F934350C49ED0019D5 S11E521E2F560F3201A4131D524553544F5245204D4F524520454E5452494578 S11E523953202859204F52204E297136481248B6381A1248B61301594A2C5175 S11E5254661248B613014E4B2C52212E4BCA3201F41324454E544552205245A3 S11E526F434F5244204E554D42455220544F204245204D4F4449464945443A0A S11E528A207136480C49E146190A49E10A489E2A2C52A20A49E100252B52BA63 S11E52A571130D4E4F205355434820454E54525936352E52BD2E52C02E5262ED S11E52C03201F62F54CF0A49E700252B52E471130E44454C4554454420524554 S11E52DB434F524436352E52E72E52EA2E52623201F77112488E36350C49ED3E S11E52F600192F53AA3201F813294348414E474520454E545259204E554D4243 S11E531145523F2028454E5445522022302220544F20515549542920713648EF S11E532C0C48BF46190A48BF00252B533F2F554D2E53422E53843201F9131E07 S11E53474D4F44494659204D4F524520454E5452494553202859204F52204E22 S11E5362293F207136481248B6381A1248B61301594A2C52621248B613014E3A S11E537D4B2C53422E4BCA3201FE0A48BF092A2C52FB0A48BF7453A74DBF4DFC S11E5398DB4DF74E0F4E2E4E494E614E7A4E922E52FB3202587112488E363545 S11E53B3711316312E292020434F4D50414E59204E414D453A2020202036121F S11E53CE48C53635711316322E2920204E414D453A202020202020202020204A S11E53E92020361248E93635711316332E292020504F534954494F4E3A20202E S11E5404202020202020361249763635711316342E29202041444452455353EC S11E541F3A2020202020202020203612490D3635711316352E292020434954C5 S11E543A5920414E442053544154453A2020361249313635711316362E292078 S11E5455205A495020434F44453A2020202020202020361249553635711316C5 S11E5470372E29202054454C4550484F4E453A202020202020203612495E366C S11E548B35711316382E292020494E5445524553543A20202020202020203686 S11E54A612498A3635711316392E2920204449535452494255544F523A202058 S11E54C1202020361249B4363571357135303202BC03390A49E1724A1C3E03C7 S11E54DC39480C49E7461903390A49E1724A0D3E0339480C48A44619033948BF S11E54F70C48AA46190339480C48B046190339481248C5381A0339481248E996 S11E5512381A033948124976381A03394812490D381A033948124931381A03DE S11E552D3948124955381A03394812495E381A03394812498A381A03394812FC S11E554849B4381A3032032003390A49E1724A1C3E033901343503390A49E1D4 S11E5563724A0D3E03390A48A4343503390A48AA343503390A48B03435033903 S11E557E1248C5363503391248E9363503391249763635033912490D36350310 S11E559939124931363503391249553635033912495E3635033912498A3635800  S11E55B403391249B43635303203845E01252B55CB0339612E55CE2E55D133F5 S11E55CF57CB3203857113084552524F52203D20365E34350339616A01252BF9 S11E55EA55EF2E4AD07113124E4F57205748415420444F20574520444F3F36A1 S11E56053532038E0339613357CB3203B60A49ED391311454E545259204E55BF S11E56204D4245523A20202020360A49E134350A49ED39350A49ED3913114429 S11E563B4154453A202020202020202020202020360A48A4343713012F360AA2 S11E565648AA343713012F360A48B034350A49ED391312434F4D50414E59201F S11E56714E414D453A2020202020361248C536350A49ED3913124E414D453A66 S11E568C20202020202020202020202020361248E936350A49ED391312504F3E S11E56A7534954494F4E3A2020202020202020203612497636350A49ED3913B6 S11E56C212414444524553533A202020202020202020203612490D36350A49DB S11E56DDED3913124349545920414E442053544154453A202020361249313604 S11E56F8350A49ED3913125A495020434F44453A2020202020202020203612F0 S11E5713495536350A49ED39131254454C4550484F4E453A2020202020202012 S11E572E203612495E36350A49ED391312494E5445524553543A2020202020FC S11E5749202020203612498A36350A49ED3913124449535452494255544F5242 S11E57643A202020202020361249B43635303203E77113205448495320465599 S11E577F4E4354494F4E204E4F542059455420415641494C41424C452E3635E3 S106579A2E4BCAC5 S11E57A15FEE02FF579DFF579FB6FCF44724FAB6FCF5810D27115CFE579FA743 S11457BC0408FF579FFE579DE10126E2E703393F1A7F S9 00 ::24C EQU * :120 50 FDB 120 0+3 57 10 FDB :+DISPLAY 114 FDB RECORDPOSITION 62 0+3 57 0+0 52 53 12 FDB :+VALIDE1 2 )I-S11E4800BD20001270484602000470484E02003C70488E0200147048A60200A6 S11E481B147048C40200037048CB0200037048D20200037048D905000100013A S11348360E7048DE02492D70492E02000A2E49C028 S11E49C032002802391303234C50623200320C48DE01170D001F193200330CA8 S11E49DB48DE02170D001C193200340C48DE03170D001F193200350C48DE04A8 S11E49F6170D001E193200360C48DE05170D001F193200370C48DE06170D0087 S11E4A111E193200380C48DE07170D001F193200390C48DE08170D001F19321D S11E4A2C003A0C48DE09170D001E1932003B0C48DE0D000A170D001F19320057 S11E4A473C0C48DE0D000B170D001E1932003D0C48DE0D000C170D001F193227 S11E4A6200466851AD3200640A493C39353200650A493C39353200671323444F S11E4A7D4F20594F552057414E542041204752415048204F4E20544845205033 S11E4A9852494E54455220713648124846381A320068124846130453544F5093 S11E4AB34A2B4ABA3352D032006912484613035945534B2B4AD10C493C001999 S11E4ACE2E4AD60C493C021932006E0A493C39353200730A493C3935320082DC S11E4AE92E4AFF49420A49420A49420A48BE205B0A48BE1F1D733200C30C49EE S11E4B04B40E362E32383331390D193200C80A493C39353200D213135748413E S11E4B1F5420495320594F5552204E414D45203F7136481248A6381A3200E6FF S11E4B3A1326454E54455220594F5552204249525448444154452028452E477D S11E3 4B552E20312C312C31393534293A207136480C496046190C497246190CAE S11E4B70498446193201220A49840D0064272B4B8C0C49840A49840D076C1CE8 S11E4B8B1932012C1313454E5445522053544152542044415445203A207136E2 S11E4BA6480C496646190C497846190C498A46193201400A498A0D0064272B11 S11E4BC14BCE0C498A0A498A0D076C1C1932014A1321484F57204D414E592037 S11E4BDC4D4F4E54485320574F554C4420594F55204C494B45203F2071364866 S11E4BF70C49AE461932017C0A49840A498A2A2B4C0C2E4B373201860A4984ED S11E4C120A498A272B4C1C2E4C4C3201900A49600A49662A2B4C2C2E4B373248 S11E4C2D019A0A49600A4966272B4C3C2E4C4C3201A40A49720A49782A2B4CB9 S11E4C484C2E4B373201CC0C496C0A4972193201D60C495A0A4960193201E01C S11E4C630C497E0A4984193201E20A497E0A498A252C513E2E4C8A3201E40CA5 S11E4C7E49420A4990193201E62E4D363201EA2F51BD3201F40C49420A4990CB S11E4C99193201FE0C496C0A4978193202080C495A0A4966193202120C497E37 S11E4CB40A498A1932021C2F524D3202260C49420A49420A49901C19320230CB S11E4CCF0C49420A49420D016D0A498A0A49841D011D1F1C1932023A0C4948D1 S11E4CEA110A4984011C190A498A011D0D0001433202440A494804200A49486F S11E4D0504205B252B4D150C49420A4942011C1932024E4449483202670A49B7 S11E4D208A0A498A04205B041F252B4D360C49420A4942011D193204420A496A S11E4D3B3C391325544849532042494F2D52485954484D20434841525420506F S11E4D565245504152454420464F52203A20361248A636353204470A493C39D4 S11E4D71131057484F2057415320424F524E204F4E20360A4960343713012F42 S11E4D8C360A4972343713012F360A498434353204480A493C39130C414E44B1 S11E4DA72057494C4C20424520360A4942343713242044415953204F4C4420F1 S11E4DC2415420544845205354415254204F46205448495320434841525436B9 S11E4DDD3532044C0A493C393532044D0A493C39353204560A493C39131E20DE S11E4DF82020202020202020202020202020204E454741544956452050484170 S11E4E135345363204570A493C39130D2020202020435249544943414C3632EA S11E4E2E04580A493C39131220202020504F5349544956452050484153453662 S11E4E493532045B0A493C391309202020202020202020363204600C49481106 S11E4E6401190D003C0D00014332046A0A493C3913012D3632047444494832EB S11E4E7F047E0A493C39353204880C49BA091932048912484E133C2E2E2E2E38 S11E4E9A2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E1F S11E4EB52E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E04 S11E4ED02E2E1A3204B00A498A04200A498A04205B252B4EEE0C48DE02170D26 S11E4EEB001D193204BA12484E0D001E150D002A1B3204EC0C48BE0D001719D7 S11E4F063204F10C499C0A4942724AEC0D0017200A49B41F570D001C1F0D0021 S11E4F211E1C193204F60C48BE0D001C193204FB0C49960A4942724AEC0D0038 S11E4F3C1C200A49B41F570D001C1F0D001E1C193205000C48BE0D0021193233 S11E4F5705050C49A20A4942724AEC0D0021200A49B41F570D001C1F0D001EBF S11E4F721C1932050D12484E0A499C150D00501B32050E12484E0A4996150D8B S11E4F8D00451B32050F12484E0A49A2150D00491B3205100A499C0A499625F8 S11E4FA82B4FC00A49960A49A2252B4FC012484E0A499C150D00231B32051134 S11E4FC30C49480A498A0A498A0D0064205B0D00641F1D193205121248C40A55 S11E4FDE49667A1A3205131248CB0A49787A1A3205141248D20A49487A1A32CB S11E4FF905151448C4022A2B500C1248C41248C4023D1A3205161448CB022A77 S11E50142B50201248CB1248CB023D1A3205171448D2022A2B50341248D212AA S11E502F48D2023D1A32051D0A493C391248C43613012F361248CB3613012F68 S11E504A361248D2361301203612484E363532056E12484E0A499C150D002EA6 S11E50651B32057812484E0A4996150D002E1B32058212484E0A49A2150D00EE S11E50802E1B32058C12484E0D001E150D002A1B3205B40C49420A4942011C97 S11E509B193205BE0C49780A4978011C193205C80A49780C48DE0A4966170B43 S11E50B6282B50BD24 E4EFC3205D20C497801193205DC0C49660A4966011C1956 S11E50D13206400C49AE0A49AE011D1932064A0A49AE00252B50EB2E4A6732EE S11E50EC06540A49660D000C282B50FB2E4EFC32065E0C496601193206680C4C S11E5107498A0A498A011C193206720C48DE02170D001C1932067C0A498A0AD1 S11E5122498A04205B041F1D00252B51380C48DE02170D001D193206862E4E3B S11E513DFC321B580C49900019321B6C0A497E0A497E04205B041F252B5161B5 S11E51580C48DE02170D001D19321B800C4948110A495A190A49660D0001435F S11E5173321B940C49900A49900C48DE0A4948170B1C19321BA8444948321B39 S11E518EBC0C49900A49900C48DE0A4966170B1D0A496C1D0A49781C19321B2B S11E51A9D02E4C7A321F405E01262B51B92E4A67321F4131321F900C48DE0221 S11E51C4170D001C193223280A497E0A497E04205B041F252B51E40C48DE02F9 S11E51DF170D001D193223320C499000193223370A495A0D000C252C5230327B S11E51FA233C0C494E0A495A011C193223500C4948110A494E190D000C0D007E S11E521501433223640C49900A49900C48DE0A4948170B1C19322378444948EF S11E523032238C0C49900A49900C48DE0A495A170B1C0A496C1D011C19322332 S11E524BA0303225080C48DE02170D001C1932251C0A497E0A497E04205B04F0 S5T3S11E4800BD20001270484C02000470485402003C7048940200147048AC02008E S11E481B147048C402000A7048F60200037048FD0200037049040200037049FA S11948360B05000100010E70491002495F70496002000A2E4A0A2E S11E4A0A32002802391303234C50623200320C491001170D001F193200330C2A S11E4A25491002170D001C193200340C491003170D001F193200350C491004C4 S11E4A40170D001E193200360C491005170D001F193200370C491006170D00D6 S11E4A5B1E193200380C491007170D001F193200390C491008170D001F19326D S11E4A76003A0C491009170D001E1932003B0C49100D000A170D001F193200A7 S11E4A913C0C49100D000B170D001E1932003D0C49100D000C170D001F193277 S11E4AAC00466853353200640A496E39353200650A496E393532006713234417 S11E4AC74F20594F552057414E542041204752415048204F4E205448452050E9 S11E4AE252494E5445522071364812484C381A32006812484C130453544F503D S11E4AFD4A2B4B0433545832006912484C13035945534B2B4B1B0C496E0019F7 S11E4B182E4B200C496E021932006E0A496E39353200730A496E3935320082B0 S11E4B332E4B4949740A49740A49740A48F0205B0A48F01F1D733200C30C495E S11E4B4EFE0E362E32383331390D193200C80A496E39353200D2131357484178 S11E4B695420495320594F5552204E414D45203F7136481248AC381A3200E6AF S11E4B841326454E54455220594F5552204249525448444154452028452E4733 S11E4B9F2E20312C312C31393534293A207136480C49AA46190C49BC46190CD0 S11E4BBA49CE46193201220A49CE0D0064272B4BD60C49CE0A49CE0D076C1C2C S11E4BD51932012C1313454E5445522053544152542044415445203A20713698 S11E4BF0480C49B046190C49C246190C49D446193201400A49D40D0064272B9F S11E4C0B4C180C49D40A49D40D076C1C1932014A1321484F57204D414E59200D S11E4C264D4F4E54485320574F554C4420594F55204C494B45203F207136481B S11E4C410C49F8461932017C0A49CE0A49D42A2B4C562E4B813201860A49CEE6 S11E4C5C0A49D4272B4C662E4C963201900A49AA0A49B02A2B4C762E4B8132F8 S11E4C77019A0A49AA0A49B0272B4C862E4C963201A40A49BC0A49C22A2B4CB3 S11E4C92962E4B813201CC0C49B60A49BC193201D60C49A40A49AA193201E016 S11E4CAD0C49C80A49CE193201E20A49C80A49D4252C52C62E4CD43201E40C60 S11E4CC849740A49DA193201E62E4E2C3201EA2F53453201F40C49740A49DA08 S11E4CE3193201FE0C49B60A49C2193202080C49A40A49B0193202120C49C87B S11E4CFE0A49D41932021C2F53D53202260C49740A49740A49DA1C1932023000 S11E4D190C49740A49740D016D0A49D40A49CE1D011D1F1C1932023A0C497A5C S11E4D34110A49CE011C190A49D4011D0D00014335 202440A497A04200A497A2C S11E4D4F04205B252B4D5F0C49740A4974011C1932024E44497A3202670A498D S11E4D6AD40A49D404205B041F252B4D800C49740A4974011D193202BC0C4964 S11E4D85980E302E360D010A49AA201C5B193202C60C498C0A49CE0A49981D16 S11E4DA0193202D00C49920A49AA0D000C0A49981F1C193202DA0C499E0A4947 S11E4DBB8C0D006420193202E40C48D80A499E04205B193202EE0C48DE0A492F S11E4DD69E5B193202F80C48E4050A498C1F04205B193203020C48EA0D000D1E S11E4DF10A4992011C1F05205B1932030C0C48D20A48EA0A48E41C0A48DE1DA7 S11E4E0C0A48D81C0A49BC1C011D193203160C48D20A48D2070A48D207205B9D S11E4E271F1D011C193204420A496E391325544849532042494F2D52485954AA S11E4E42484D20434841525420505245504152454420464F52203A20361248A6 S11E4E5DAC36353204440A48D2744E77524E525E526E527F529252A452B43255 S11E4E7804470A496E39131057484F2057415320424F524E204F4E20361248FC S11E4E93C4360A49AA343713012F360A49BC343713012F360A49CE3435320472 S11E4EAE480A496E39130C414E442057494C4C20424520360A497434371324F3 S11E4EC92044415953204F4C4420415420544845205354415254204F462054ED S11E4EE4484953204348415254363532044C0A496E393532044D0A496E39356B S11E4EFF3204560A496E390D000C4913124E45474154495645205048415345A3 S11E4F1A20282D29363204570A496E390D002249130C435249544943414C201B S11E4F35284329363204580A496E390D0032491312504F53495449564520507B S11E4F504841534520282B29363532045B0A496E391309202020202020202073 S11E4F6B20363204600C497A1101190D003C0D00014332046A0A496E391301F9 S11E4F862D3632047444497A32047E0A496E39353204880C4A0409193204891C S11E4FA1124854133C2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D16 S11E4FBC2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D17 S11E4FD72D2D2D2D2D2D2D2D2D2D2D1A3204B00A49D404200A49D404205B25B6 S11E4FF22B4FFE0C491002170D001D193204BA1248540D001E150D002A1B3205 S11E500D04EC0C48F00D0017193204F10C49E60A4974724B360D0017200A4960 S11E5028FE1F570D001C1F0D001E1C193204F60C48F00D001C193204FB0C4915 S11E5043E00A4974724B360D001C200A49FE1F570D001C1F0D001E1C193205C5 S11E505E000C48F00D0021193205050C49EC0A4974724B360D0021200A49FED2 S11E50791F570D001C1F0D001E1C1932050D1248540A49E6150D00501B32050B S11E50940E1248540A49E0150D00451B32050F1248540A49EC150D00491B32A1 S11E50AF05100A49E60A49E0252B50D00A49E00A49EC252B50D01248540A490E S11E50CAE6150D00231B3205110C497A0A49D40A49D40D0064205B0D00641FA0 S11E50E51D193205121248F60A49B07A1A3205131248FD0A49C27A1A320514B1 S11E51001249040A497A7A1A3205151448F6022A2B511C1248F61248F6023D8F S11E511B1A3205161448FD022A2B51301248FD1248FD023D1A32051714490427 S11E5136022A2B5144124904124904023D1A32051D0A496E391248F63613016F S11E51512F361248FD3613012F361249043613012036124854363532056E1205 S11E516C48540A49E6150D002D1B3205781248540A49E0150D002D1B32058232 S11E51871248540A49EC150D002D1B32058C1248540D001E150D002A1B320578 S11E51A2B40C49740A4974011C193205BE0C49C20A49C2011C193205C80A49CB S11E51BDC20C49100A49B0170B282B51CD2E500C3205D20C49C201193205DC3F S11E51D80C49B00A49B0011C193206400C49F80A49F8011D1932064A0A49F866 S11E51F300252B51FB2E4AB13206540A49B00D000C282B520B2E500C32065E60 S11E520E0C49B001193206680C49D40A49D4011C193206720C491002170D0007 S11E52291C1932067C0A49D40A49D404205B041F1D00252B52480C4910021708 S11E52440D001D193206862E500C3207D01248C4130653554E4441591A303230 S11E525F07DA1248C413064D4F4E4441591A303207E41248C413075455455370 S11E527A4441591A303207EE1248C413095745444E45534441591A303207F86D S11E52951248C4130854485552534441591A303208021248C413066 465249446B S11E52B041591A3032080C1248C4130853415455524441591A30321B580C49CB S11E52CBDA0019321B6C0A49C80A49C804205B041F252B52E90C491002170D2A S11E52E6001D19321B800C497A110A49A4190A49B00D000143321B940C49DA52 S11E53010A49DA0C49100A497A170B1C19321BA844497A321BBC0C49DA0A4950 S11E531CDA0C49100A49B0170B1D0A49B61D0A49C21C19321BD02E4CC4321FD5 S11E5337405E01262B53412E4AB1321F4131321F900C491002170D001C193214 S11E535223280A49C80A49C804205B041F252B536C0C491002170D001D193217 S11E536D23320C49DA00193223370A49A40D000C252C53B832233C0C49800A1C S11E538849A4011C193223500C497A110A4980190D000C0D0001433223640C43 S11E53A349DA0A49DA0C49100A497A170B1C1932237844497A32238C0C49DA2E S11E53BE0A49DA0C49100A49A4170B1C0A49B61D011C193223A0303225080C1D S11E53D9491002170D001C1932251C0A49C80A49C804205B041F252B53FC0C0B S11E53F4491002170D001D193225300C49DA00193225440A49A401252C54449A S11E540F3225580C49800A49A4011D1932256C0C497A1101190A49800D00012E S11E542A433225800C49DA0A49DA0C49100A497A170B1C1932259444497A3240 S118544525A80C49DA0A49DA0A49B61C011D193225BC303F3F08 S9  940INPUTX 950IFX=1GOTO410 960IFX<>2GOTO920 970PRINT 980PRINT"MISSIONCONTROL-OUT!!!" 990PRINT 999END 1000REM 1010IFR=4PRINT"YOUHAVENOWEARNEDYOUR'STUDENTPILOT'LICENSE" 1100IFR=3PRINT"YOUARENOWARATED'NOVICEPILOT'" 1200IFR=2PRINT"YOUHAVENOWFINALLYEARNEDYOUR'MEDIOCRE'" 1210IFR=2PRINT"RATING.YOUMAYNOWCARRYPASSENGERSANDTRY" 125b4DIMVERSION/1.1/ DIMCLEAR$/:D8/,BELL$/:7/,X,ENTRIES,M,D,Y,DUMMY$(5),DUMMY/0/ DIMCONAME$(32),NAME$(32),ADDRESS$(32),CITY$(32),ZIP$(5) DIMPHONE$(20),POSITION$(16),INTEREST$(32),RECORDSIZE/256/ DIMDISTI$(10),FUNCTION,DISKNUMBER$(1),COUNT,PASWRD$(10),DISPLAY DIMDELETEMARK,DEVICE/0/,LOOP,VALIDENTRIES ONERRORGOTO900\!ERRORHANDLER CREATE#2,"#LP"\!PRINTER DEFSTARTOFRECORD(X)=X*RECORDSIZE+5 DEFRECORDPOSITION(X)=X*RECORDSIZE PRINTCLEAR$,BELL$ PRINT"SALESCALLMAINTAINANCE-VERSION";VERSION 2PRINT"ENTERPASSWORD:"; CALLNOECHO(PASWRD$) IFPASWRD$="MAID"THENGOTO1 DUMMY=DUMMY+1 PRINT"YOUCAN'TFOOLME,I'MSMARTERTHANYOU!!!" IFDUMMY=3THENCALLMDOS GOTO2 PRINT 1PRINTCLEAR$ PRINT"INSERTWYLEDISKETTEINTODRIVE#1." INPUT"HITCARRIAGERETURNTOCONTINUE."DUMMY$ IFDUMMY$="EXIT"THENCALLMDOS OPEN#3,"CONAMES.SA:1" PRINT INPUT"ENTERTODAY'SDATE(E.G.8,23,1978):"M,D,Y IFY<100THENY=Y+1900\!JUSTINCASE RESTORE#3,0 INPUT#3,DISKNUMBER$ RESTORE#3,10 INPUT#3,ENTRIES RESTORE#3,20 INPUT#3,VALIDENTRIES PRINTCLEAR$ 5PRINT PRINT"DISKNUMBER:";DISKNUMBER$ PRINT"TOTALENTRIESONDISK:";ENTRIES PRINT"TOTALVALIDENTRIESONDISK:";VALIDENTRIES PRINT PRINT PRINT"ENTER(1),DELETE(2),MODIFY(3),LIST(4),PRINT(5)"; PRINT",QUIT(6),RESTORE(7)" PRINT INPUT"FUNCTIONDESIRED:"FUNCTION ONFUNCTIONGOTO10,100,500,200,300,910,400 PRINT"WHAT?";BELL$ GOTO5 10ENTRIES=ENTRIES+1\!NEXTAVAILABLELOCATION VALIDENTRIES=VALIDENTRIES+1 PRINTCLEAR$ FORCOUNT=1TO9 ONCOUNTGOSUB51,52,53,54,55,56,57,58,59 NEXTCOUNT 40GOSUB600 30INPUT7 "AREENTRIESCORRECT?"DUMMY$ IFDUMMY$="Y"THENGOTO60 IFDUMMY$<>"N"THENGOTO30 50INPUT'CHANGEENTRYNUMBER?(ENTER"0"TOQUIT)'DUMMY IFDUMMY=0THENGOTO60 IFDUMMY<1ORDUMMY>9THENGOTO50 ONDUMMYGOSUB51,52,53,54,55,56,57,58,59 GOTO40 51INPUT"COMPANYNAME:"CONAME$ RETURN 52INPUT"CONTACTNAME:"NAME$ RETURN 53INPUT"POSITION:"POSITION$ RETURN 54INPUT"COMPANYADDRESS:"ADDRESS$ RETURN 55INPUT"CITY,STATE:"CITY$ RETURN 56INPUT"ZIPCODE:"ZIP$ RETURN 57INPUT"TELEPHONE:"PHONE$ RETURN 58INPUT"INTEREST:"INTEREST$ RETURN 59INPUT"DISTRIBUTOR:"DISTI$ RETURN 60DISPLAY=ENTRIES GOSUB800\!WRITETODISK RESTORE#3,10 PRINT#3,ENTRIES RESTORE#3,20 PRINT#3,VALIDENTRIES 65INPUT"FINISHED(YORN)?"DUMMY$ IFDUMMY$="Y"THENGOTO5 IFDUMMY$<>"N"THENGOTO65ELSEGOTO10 100!THISISTHEDELETEROUTINE INPUT"ENTERNUMBEROFENTRYTOBEDELETED:"DISPLAY IFDISPLAY>ENTRIESORDISPLAY=0THENPRINT"NOSUCHENTRY"ELSE102 GOTO100 102GOSUB700 IFDELETEMARK=0THENPRINT"DELETEDALREADY"ELSEGOTO105 101INPUT"DELETEMOREENTRIES(YORN)?"DUMMY$ IFDUMMY$="Y"THENGOTO100 IFDUMMY$<>"N"THENGOTO101ELSEGOTO5 105PRINTCLEAR$ DEVICE=0\!SELECTCRT GOSUB950 PRINT\PRINT 110INPUT"DELETETHISENTRY(YORN)?"DUMMY$ IFDUMMY$="Y"THENGOTO120 IFDUMMY$<>"N"THENGOTO110ELSEGOTO100 120RESTORE#3,RECORDPOSITION(DISPLAY) PRINT#3,0 VALIDENTRIES=VALIDENTRIES-1 RESTORE#3,20 PRINT#3,VALIDENTRIES PRINT"ENTRYDELETED"\GOTO101 200!THISISTHELISTFUNCTION FORDISPLAY=1TOENTRIES GOSUB700 IFDELETEMARK=0THEN205 PRINTCLEAR$ DEVICE=0\!SELECTCRT GOSUB950 PRINT\INPUT"HITCARRIAGERETURNTOCONTINUE"DUMMY$ PRINTCLEAR$\!CLEARSCREEN 205NEXTDISPLAY PRINT"ENDOFENTRIES" GOTO5 300!PRINTFUNCTION DEVICE=2 PRINT#DEVICE,"DISKNUMBER:";DISKNUMBER$ FORLOOP=1TO10 PRINT#DEVICE NEXTLOOP FORDISPLAY=1TOENTRIES GOSUB700\!READTHEDISK IFDELETEMARK=0THEN305 GOSUB950\!PRINTIT FORLOOP=1TO6 PRINT#DEVICE NEXTLOOP 305NEXTDISPLAY GOTO5 400!THISISTHE"RESTOREENTRY"ROUTINE INPUT"ENTERNUMBEROFENTRYTOBERESTORED"DISPLAY IFDISPLAY>ENTRIESORDISPLAY=0THENPRINT"NOSUCHENTRY"ELSE402 GOTO400 402GOSUB700\!READTHEENTRY PRINTCLEAR$ IFDELETEMARK=1THENPRINT"VALIDENTRY"ELSE410 GOTO420 410RESTORE#3,RECORDPOSITION(DISPLAY) PRINT#3,1\!VALIDDATAMARK VALIDENTRIES=VALIDENTRIES+1 RESTORE#3,20 PRINT#3,VALIDENTRIES DEVICE=0\!SELECTCRT GOSUB950\!DISPLAYRESTOREDENTRY 420INPUT"RESTOREMOREENTRIES(YORN)"DUMMY$ IFDUMMY$="Y"THEN400 IFDUMMY$<>"N"THEN420ELSE5 500!MODIFYROUTINE INPUT"ENTERRECORDNUMBERTOBEMODIFIED:"DISPLAY IFDISPLAY>ENTRIESORDISPLAY=0THENPRINT"NOSUCHENTRY"ELSE502 GOTO500 502GOSUB700\!READTHERECORD IFDELETEMARK=0THENPRINT"DELETEDRECORD"ELSEGOTO503 GOTO500 503PRINTCLEAR$ DEVICE=0\!SELECTCRT GOSUB600 504INPUT'CHANGEENTRYNUMBER?(ENTER"0"TOQUIT)'DUMMY IFDUMMY=0THENGOSUB800ELSE510 505INPUT"MODIFYMOREENTRIES(YORN)?"DUMMY$ IFDUMMY$="Y"THEN500 IFDUMMY$<>"N"THEN505ELSE5 510IFDUMMY>9THEN504 ONDUMMYGOSUB51,52,53,54,55,56,57,588 ,59 GOTO504 600PRINTCLEAR$ PRINT"1.)COMPANYNAME:";CONAME$ PRINT"2.)NAME:";NAME$ PRINT"3.)POSITION:";POSITION$ PRINT"4.)ADDRESS:";ADDRESS$ PRINT"5.)CITYANDSTATE:";CITY$ PRINT"6.)ZIPCODE:";ZIP$ PRINT"7.)TELEPHONE:";PHONE$ PRINT"8.)INTEREST:";INTEREST$ PRINT"9.)DISTRIBUTOR:";DISTI$ PRINT\PRINT RETURN 700!THISISTHEDISKREADSUBROUTINE RESTORE#3,RECORDPOSITION(DISPLAY) INPUT#3,DELETEMARK\!GOODRECORD? RESTORE#3,STARTOFRECORD(DISPLAY) INPUT#3,M INPUT#3,D INPUT#3,Y INPUT#3,CONAME$ INPUT#3,NAME$ INPUT#3,POSITION$ INPUT#3,ADDRESS$ INPUT#3,CITY$ INPUT#3,ZIP$ INPUT#3,PHONE$ INPUT#3,INTEREST$ INPUT#3,DISTI$ RETURN 800!WRITETODISKSUBROUTINE RESTORE#3,RECORDPOSITION(DISPLAY) PRINT#3,1\!VALIDENTRYMARK RESTORE#3,STARTOFRECORD(DISPLAY) PRINT#3,M PRINT#3,D PRINT#3,Y PRINT#3,CONAME$ PRINT#3,NAME$ PRINT#3,POSITION$ PRINT#3,ADDRESS$ PRINT#3,CITY$ PRINT#3,ZIP$ PRINT#3,PHONE$ PRINT#3,INTEREST$ PRINT#3,DISTI$ RETURN 900!ERRORHANDLER IFERR=1THENCLOSE#3ELSE901\CALLMDOS 901PRINT"ERROR=";ERR CLOSE#3 IFELN=1THENGOTO1 PRINT"NOWWHATDOWEDO?" 910CLOSE#3 CALLMDOS 950!SUBROUTINETODISPLAYTHEENTRYONTHE"DEVICE" PRINT#DEVICE,"ENTRYNUMBER:";DISPLAY PRINT#DEVICE PRINT#DEVICE,"DATE:";M;"/";D;"/";Y PRINT#DEVICE,"COMPANYNAME:";CONAME$ PRINT#DEVICE,"NAME:";NAME$ PRINT#DEVICE,"POSITION:";POSITION$ PRINT#DEVICE,"ADDRESS:";ADDRESS$ PRINT#DEVICE,"CITYANDSTATE:";CITY$ PRINT#DEVICE,"ZIPCODE:";ZIP$ PRINT#DEVICE,"TELEPHONE:";PHONE$ PRINT#DEVICE,"INTEREST:";INTEREST$ PRINT#DEVICE,"DISTRIBUTOR:";DISTI$ RETURN 999PRINT"THISFUNCTIONNOTYETAVAILABLE." GOTO5 50 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 4F357292p*THISROUTINEENTERSSTRINGDATA *WITHOUTECHOINGITTOTHECRT ACIASEQU$FCF4 ACIADEQUACIAS+1 * ADDRRMB2 TEMPXRMB2 * NOECHOCLRBCHARCNTR=0 LDX2,XGETADDROFSTRING STXADDRSAVEIT STXTEMPX INPUTLDAAACIAS ASRA BCCINPUTNOCHARYET LDAAACIADGETCHAR CMPA#$D BEQEXITITWASAC.R. INCBBUMPCHARCNTR LDXTEMPX STAA4,XSTOREITINSTRING INX STXTEMPXSAVEX LDXADDRPOINTATSTRING CMPB1,X BNEINPUT EXITSTAB3,X RTS MDOSSWI FCB$1A END FDBFNA 4F600D954:13 4F61001C955:FDB28 4F6320956:32 4F640A957:10 4F6549BA958:FDB:+P 4F671F959:31 4F6857960:87 4F690D961:13 4F6A001C962:FDB28 4F6C1F963:31 4F6D0D964:13 4F6E001E965:FDB30 4F701C966:28 4F7119967:25 4F7232968::128050 4F730500969:FDB1280 4F750C970:12 4F7648BE971:FDB:+Z1 4F780D972:13 4F790021973:FDB33 4F7r!ROUTINETOGENERATEADATABASEFILEONDRIVE:1 DIMRECORDSIZE/256/,X,BELL$/:7/,DELETEMARK/0/,VALIDENTRIES/0/ DIMN,CLEAR$/:D89 /,CONTINUE$(1),DISKNUMBER$(1),ENTRIES/0/ DEFRECORDPOSITION(X)=X*RECORDSIZE PRINTCLEAR$\!CLEARTHETERMINALSCREEN PRINT"INSERTASCRATCHDISKETTEINTODRIVE#1." PRINT'ITMUSTBEPREPAREDWITHA"DOSGEN;U"BEFOREUSE.' INPUT"TYPEACARRIAGERETURNWHENREADYTOCONTINUE."CONTINUE$ INPUT"ENTERDISKNUMBER:"DISKNUMBER$ PRINTCLEAR$ PRINT"FILEMAINTAINANCEINPROGRESS-PLEASEWAIT" CREATE#2,"CONAMES.SA:1" RESTORE#2,0 PRINT#2,DISKNUMBER$\!DISKI.D.NUMBER RESTORE#2,10 PRINT#2,ENTRIES\!NOENTRIESYET RESTORE#2,20 PRINT#2,VALIDENTRIES\!NOVALIDENTRIESYET FORN=1TO893 RESTORE#2,RECORDPOSITION(N) PRINT#2,DELETEMARK NEXTN PRINTBELL$;CLEAR$ PRINT"DISKETTEINITIALIZATIONNOWCOMPLETE" CLOSE#2 CALLMDOS  t S11E4800BD20001270484D0600000000010070485905000100010770485E0663 S11E481B000000000000704864060000000000007048700500010001D870489D S11A48367502000170487A02000170487F060000000000002E488582 S11E48852E489248530A48530A484D1F73711248703635711328494E534552C8 S11E48A05420412053435241544348204449534B4554544520494E544F2044E1 S11E48BB524956452023312E36357113314954204D5553542042452050524532 S11E48D65041524544205749544820412022444F5347454E3B552220424546F9 S11E48F14F5245205553452E3635132E545950452041204341525249414745DA S11E490C2052455455524E205748454E20524541445920544F20434F4E544945 S11E49274E55452E713648124875381A1313454E544552204449534B204E5599 S11E49424D4245523A2071364812487A381A71124870363571133720202020E0 S11E495D202020202020202046494C45204D41494E5441494E414E434520492A S11E49784E2050524F4752455353202D20504C45415345205741495436350254 S11E499339130C434F4E414D45532E53413A31620239003E023912487A363525 S11E49AE02390D000A3E02390A487F343502390D00143E02390A486434350CE5 S11E49C9486A1101190D037D0D00014302390A486A7248883E02390A485E347E S11E49E43544486A711248593612487036357113302020202020202020202006 S11E49FF20204449534B4554544520494E495449414C495A4154494F4E204E46 S1184A1A4F5720434F4D504C4554453635023961334A2D3F1A5A S9 0 37 ::152 EQU * 43 FDB ::153 113 19 FCB ::154-*-1 FCC "NOSUCHENTRY" ::154 EQU * 54 53 46 FDB ::253 ::153 EQU * 46w* COMPILEDBY10/30/77SOFTWAREDYNAMICSBASICVERSION1.2 ORG $4800 JSR $2000 FCB $12 :: SET 0 RECORDSIZE EQU :: 112 FDB :+:: FCB 6 FDB 0 FDB 0 FDB 256 :: SET ::+6 X EQU :: :: SET ::+6 BELL$ EQU :: 112 FDB :+:: FCB ::21-*-1 ::11 EQU * FDB ::21-*-4 FDB ::21-*-2 FCB $7 ::21 EQU * :: SET ::+*-::11 DELETEMARK EQU :: 112 FDB :+:: FCB 6 FDB 0 FDB 0 FDB 0 :: SET ::+6 VALIDENTRIES EQU :: 112 FDB :+:: FCB 6 FDB 0 FDB 0 FDB 0 :: SET ::+6 N EQU :: :: SET ::+6 CLEAR$ EQU :: 112 FDB :+:: FCB ::22-*-1 ::12 EQU * FDB ::22-*-4 FDB ::22-*-2 FCB $D8 ::22 EQU * :: SET ::+*-::12 CONTINUE$ EQU :: 112 FDB :+:: FCB 2 FDB 1 :: SET ::+4+1 DISKNUMBER$ EQU :: 112 FDB :+:: FCB 2 FDB 1 :: SET ::+4+1 ENTRIES EQU :: 112 FDB :+:: FCB 6 FDB 0 FDB 0 FDB 0 :: SET ::+6 46 FDB *+2+:: : EQU * RMB :: 46 FDB ::13 RECORDPOSITION EQU * FDB :+X 10 FDB :+X 10 FDB :+RECO: RDSIZE 31 115 ::13 EQU * 113 18 FDB :+CLEAR$ 54 53 113 19 FCB ::14-*-1 FCC "INSERTASCRATCHDISKETTEINTODRIVE#1." ::14 EQU * 54 53 113 19 FCB ::15-*-1 FCC 'ITMUSTBEPREPAREDWITHA"DOSGEN;U"BEFOREUSE.' ::15 EQU * 54 53 19 FCB ::16-*-1 FCC "TYPEACARRIAGERETURNWHENREADYTOCONTINUE." ::16 EQU * 113 54 72 18 FDB :+CONTINUE$ 56 26 19 FCB ::17-*-1 FCC "ENTERDISKNUMBER:" ::17 EQU * 113 54 72 18 FDB :+DISKNUMBER$ 56 26 113 18 FDB :+CLEAR$ 54 53 113 19  FCB ::18-*-1 FCC "FILEMAINTAINANCEINPROGRESS-PLEASEWAIT" ::18 EQU * 54 53 0+2 57 19 FCB ::19-*-1 FCC "CONAMES.SA:1" ::19 EQU * 98 0+2 57 0+0 62 0+2 57 18 FDB :+DISKNUMBER$ 54 53 0+2 57 13 FDB 10 62 0+2 57 10 FDB :+ENTRIES 52 53 0+2 57 13 FDB 20 62 0+2 57 10 FDB :+VALIDENTRIES 52 53 12 FDB :+N 17 0+1 25 13 FDB 893 13 FDB 1 67 0+2 57 10 FDB :+N 114 FDB RECORDPOSITION 62 0+2 57 10 FDB :+DELETEMARK 52 53 68 FDB :+N 113 18 FDB :+BELL$ 54 18 FDB :+CLEAR$ 54 53 113 19 FCB ::1A-*-1 FCC "DISKETTEINITIALIZATIONNOWCOMPLETE" ::1A EQU * 54 53 0+2 57 97 51 FDB MDOS MDOSSWI FCB$1A END Y 10 FDB :+DUMMY 0+1 28 25 113 19 FCB ::1A-*-1 FCC "YOUCAN'TFOOLME,I'MSMARTERTHANYOU!!!" ::1A EQU * 54 53 10 |0010REM*THISPROGRAMCALCULATESTHEPAYMENTOFADIRECT 0020REM*REDUCTIONLOAN,GIVENTHEPRESENTVALUE,YEARLY 0030REM*INTERESTRATE,ANDTHENUMBEROFMONTHSOFTHE 0040REM*LOAN. 0050DIGITS=2 0060INPUT"WHATISTHEAMOUNTOFTHELOAN",P 0070INPUT"WHATISTHEYEARLYINTERESTRATEINPERCENT",I 0080I=I/1200 0090INPUT"WHATISTHELOANDURATIONINMONTHS",N 0100V=(I/(1-((1+I)^(-N))))*P 0110X=V+.005 0120PRINT 0130PRINT 0140PRINT"THEPAYMENTIS$";X 0150PRINT"THETOTALDEFERREDPURCHASEPRICEIS$";.005+N*V 0160DIGITS=0 0170END ~0001DIMA,B,N,X 0010REM*PROGRAMTOFINDTHEFACTORIALOFAINTEGER 0015X=1 0020INPUT"NUMBER?"N 0022REM*A"-1"WILLTERMINATEPROGRAM 0025IFN=-1THENCALLMDOS 0030IFN<>INT(N)THEN1000 0035IFN<0THEN1030 0037IFN>69THEN1050 0040IFN=0THEN0047 0045B=N 0046GOTO0050 0047B=1 0050FORA=1TON 0060X=X*B 0065B=B-1 0070NEXTA 0080PRINT"FACTORIAL";N;"=";X 0100GOTO0015 0999REM*ERRORMESSAGES 1000PRINT"INTEGERSONLY!" 1010GOTO0020 1030PRINT"POSITIVENUMBERSONLY!" 1040GOTO0020 1050PRINT"NUMBEROUTOFRANGE!" 1060GOTO0020 ;  REM*****LIFE***** REMSIMULATES"LIFE"ASDEFINEDBYJOHNCONWAY REMCOMMANDS: REMSTOPMEANSGUESSWHAT? REM''(EMPTYLINE)SIMULATEANDDISPLAY REM22MEANSDO22GENERATIONSBEFOREADISPLAY REM9,2COMPLEMENTSTHEWORLD(9,2) REMGETSTHEPROGRAM'SATTENTION DIMWORLD(21,21),XSIZE/20/,YSIZE/20/ DIMCOPY(21,21),LIFE/1/,DEATH/0/ DIMOUT/0/,DISPLAY$/".*"/,COUNT,LINE$(80) DIMI,J 10FORI=0TOXSIZE+1 LETCOPY(I,0)=DEATH LETCOPY(I,XSIZE+1)=DEATH NEXTI 20FORJ=1TOYSIZE LETCOPY(0,J)=DEATH LETCOPY(YSIZE+1,J)=DEATH NEXTJ 30FORI=1TOXSIZE FORJ=1TOYSIZE WORLD(I,J)=DEATH NEXTJ NEXTI 99ONERRORGOTO200 100INPUT"WHATNEXT?"LINE$ 110IFLINE$="STOP"THENSTOP IFLINE$=""THEN300 IFFIND(LINE$,',')<>0 THENLETI=VAL(LINE$)\ LETJ=VAL(RIGHT$(LINE$,FIND(LINE$,',')+1))\ LETWORLD(I,J)=LIFE-WORLD(I,J) ELSEFORCOUNT=1TOVAL(LINE$)\GOSUB10000\NEXTCOUNT\ GOSUB11000 GOTO100 200IFERR=0THENERRORELSE100 300GOSUB11000 INPUT"WHATNEXT?"LINE$ IFLINE$=""THENGOSUB10000\GOTO300 ELSE110 10000REMDOSIMULATIONFORAGENERATION REMFIRST,COPYTHEWORLD 10010FORI=1TOXSIZE FORJ=1TOYSIZE COPY(I,J)=WORLD(I,J) NEXTJ NEXTI 10040FORI=1TOXSIZE FORJ=1TOYSIZE ONCOPY(I-1,J-1)+COPY(I-1,J)+COPY(I-1,J+1)+COPY(I,J-1)... &+COPY(I,J+1)+COPY(I+1,J-1)+COPY(I+1,J)+COPY(I+1,J+1)... &GOTO10100,10102,10101 10100REMDIE!!! WORLD(I,J)=DEATH NEXTJ NEXTI RETURN 10101REMLIVE!!! WORLD(I,J)=LIFE 10102NEXTJ\!2FRIENDS! NEXTI RETURN 11000REMPRINTAGENERATION PRINT#OUT,""; FORJ=1TOYSIZE PRINT#OUT,"";NUMF$("##",J); NEXTJ PRINT#OUT PRINT#OUT 11010FORI=1TOXSIZE PRINT#OUT,NUMF$("##",I);""; FORJ=1TOYSIZE PRINT#OUT,DISPLAY$(1+WORLD(I,J),1);""; NEXTJ PRINT#OUT NEXTI RETURN END < = > 11E52661F252B52740C48DE02170D001D193225300C499000193225440A49F3 S11E52815A01252C52BC3225580C494E0A495A011D1932256C0C494811011993 S11E529C0A494E0D0001433225800C49900A49900C48DE0A4948170B1C19320C S11E52B725944449483225A80C49900A49900A496C1C011D193225BC303F3FB0 S9 D193225BC3031C4 S9 DIMP,I,N,V,X,CLEAR$/:1A/ DIMDUMMY$(1),X$/:7/ REM*THISPROGRAMCALCULATESTHEPAYMENTOFADIRECT REM*REDUCTIONLOAN,GIVENTHEPRESENTVALUE,YEARLY REM*INTERESTRATE,ANDTHENUMBEROFMONTHSOFTHE REM*LOAN. 10PRINTCLEAR$ INPUT"WHATISTHEAMOUNTOFTHELOAN?"P 20INPUT"WHATISTHEYEARLYINTERESTRATEINPERCENT?"I\I=I/1200 IFI=0THEN20 INPUT"WHATISTHELOANDURATIONINMONTHS?"N V=(I/(1-((1+I)^(-N))))*P\X=V+.005 PRINT PRINT PRINTUSING"THEPAYMENTIS$########.##",X PRINTUSING"THETOTALPRICEIS$########.##",.005+N*V PRINT 30INPUT"ANOTHERCALCULATION?"DUMMY$ IFDUMMY$="Y"THEN10 IFDUMMY$<>"N"THENPRINT"WHAT?";X$ELSECALLMDOS GOTO30 LLMDOS 0210GOTO30 !"x#~0~  x&o 5 DVDVDV CƀL   ~o& 7 ' oo9ea]Y U0 'Ǧ +>  ' ghF%oo '~ [~'AO66'& +!V%F%l l & l' ' 9G$9WW$9 G$ &~~*C'' '9. *9.0Oz0& @*8o42''/'+}4']fb '' 827L H 8' ' }4&[41- 2 '2,' ' & 9|7 &77., *5*9*5*9,L ,m*96 † 729*0 +77*+*9 f~50*+33*9(' &!(&'J&'Z&59 t~Nd '92 29('.')' P ν~).')'.'ʍнǍj9)&9d2.~G~K)2.''"'{ 2d(' )' '.&1. 2'_+'-' _0-k9.g 1O_$%2''0-+9.'&$%XIXI%$XI&$% }1' 4~ ~N1. 2 '1& 2.&9 $ ." '. "& 2'&" 2? & & ƀ&9&j2"/#F$ j"ƀ j" "~l".&$j$~95n5nO66'2A&9'' . ) Ն ( F$o '+&9* - 4"1|1*671J&}"'0"32m&0 'd ڽ F% 9 & 9 82  ߜ' & & &Ƣ& '9 ԡ-." ' 9D%9 ~999'>':p'u9  F~N'&~9jju9''~&99&9' 9 ' ((&9(9 ~ 'j'9'p'9~V'/&('l'T'B8'b 'm(  2(jj !(  Z(9( (oJ&'"(' ( 9''Y&7'( '+T'4( p'  ~(~ (  '<'"~ ~ ('*('5jj((&(&~ 11  F V~'2j9'V'R' jj&&&9'''& !~9'011 l&119 & & 9 -~ ) ~ ( >6732~ 612$%&'9M*CP&L9O_ $%$FVv&v' &M&]&&+' C&'0|0|0XI*&'$%$%'&$'& y%y$t&v'z0&$%}1 2$%jjl$%9SYNTAX ERRONON ATOMIC ARG:TOO MANY ARGSILL. FUNCTION:ATOMIC ARG:ILLEGAL NUMBEILLEGAL GO:NON NUMERIC ARG:OVERFLOTOO LITTLE ARGSFOR:MEMORY FULSTACK OVERFLOILLEGAL DEVIC LISP 1.5 V3NI L 8   OB LI ST   T   LA MB DA APVAL 4-$( SU0BR8PE<@8FSHUBLRThaX\TEXdPRlyptlFE|XPRFUNARG ATOM YCAR gCDR jCONS  NULL,)  $EQ0H=4 8NU@MBDERLhYP T(GR\EA`TEdRPlyp t7RE|AD PRINT QPRIN1 TERPRI ~RPLACA  uRPLACD$ EV AL(@5, 0 AP8PL"YES"THENN1=0ELSEN1=2 0110PRINT#N1 0115PRINT#N1 0130DEFFNA(A)=A-(INT(A/Z1)*Z1) 0195P=6.28319 0200PRINT#N1 0210INPUT"WHATISYOURNAME?"N$ 0230INPUT"ENTERYOURBIRTHDATE(E.G.1,1,1954):"M2,D2,Y2 0290IFY2<100THENY2=Y2+1900 0300INPUT"ENTERSTARTDATE:"M3,D3,Y3 0320IFY3<100THENY3=Y3+1900 0330INPUT"HOWMANYMONTHSWOULDYOULIKE?"N 0380IFY2>Y3THENGOTO0230 0390IFY2M3THENGOTO0230 0410IFM2D3THENGOTO0230 0460D1=D2 0470M1=M2 0480Y1=Y2 0482IFY1=Y3THEN7000ELSE0490 0484A=I1 0486GOTO1090 0490GOSUB8080 0500A=I1 0510D1=D3 0520M1=M3 0530Y1=Y3 0540GOSUB9480 0550A=A+I1 0560A=A+365*((Y3-Y2)-1) 0570FORI=(Y2+1)TO(Y3-1) 0580IFI/4=INT(I/4)THENA=A+1 0590NEXTI 0615IFY3=INT(Y3/4)*4THENA=A-1 0700K1=INT(0.6+(1/M2)) 0710L=Y2-K1 0720O=M2+12*K1 0730B=L/100 0740G1=INT(B/4) 0750G2=INT(B) 0760G3=INT((5*L)/4) 0770G4=INT(13*(O+1)/5) 0780G=G4+G3-G2+G1+D2-1 0790G=G-(7*INT(G/7))+1 1090PRINT#N1,"THISBIO-RHYTHMCHARTPREPAREDFOR:";N$ 1092ONGGOSUB2000,2010,2020,2030,2040,2050,2060 1095PRINT#N1,"WHOWASBORNON";DAY$;M2;"/";D2;"/";Y2 1096PRINT#N1,"ANDWILLBE";A;"DAYSOLDATTHESTARTOFTHISCHART" 1100PRINT#N1 1101PRINT#N1 1110PRINT#N1,TAB(12);"NEGATIVEPHASE(-)"; 1111PRINT#N1,TABB (34);"CRITICAL(C)"; 1112PRINT#N1,TAB(50);"POSITIVEPHASE(+)" 1115PRINT#N1,""; 1120FORI=1TO60 1130PRINT#N1,"-"; 1140NEXTI 1150PRINT#N1 1160C=9 1161L$="------------------------------------------------------------" 1200IFY3/4=INT(Y3/4)THEND(2)=29 1210L$(30)="*" 1260Z1=23 1265P2=SIN(FNA(A)/23*P)*28+30 1270Z1=28 1275E2=SIN(FNA(A)/28*P)*28+30 1280Z1=33 1285I2=SIN(FNA(A)/33*P)*28+30 1293L$(P2)="P" 1294L$(E2)="E" 1295L$(I2)="I" 1296IFP2=E2THENIFE2=I2THENL$(P2)="#" 1297I=Y3-(INT(Y3/100)*100) 1298M$=NUM$(M3) 1299D$=NUM$(D3) 1300I$=NUM$(I) 1301IFLEN(M$)>2THENM$=RIGHT$(M$,2) 1302IFLEN(D$)>2THEND$=RIGHT$(D$,2) 1303IFLEN(I$)>2THENI$=RIGHT$(I$,2) 1309PRINT#N1,M$;"/";D$;"/";I$;"";L$ 1390L$(P2)="-" 1400L$(E2)="-" 1410L$(I2)="-" 1420L$(30)="*" 1460A=A+1 1470D3=D3+1 1480IFD3<=D(M3)THENGOTO1260 1490D3=1 1500M3=M3+1 1600N=N-1 1610IFN=0THENGOTO0100 1620IFM3<=12THENGOTO1260 1630M3=1 1640Y3=Y3+1 1650D(2)=28 1660IFY3-(INT(Y3/4)*4)=0THEND(2)=29 1670GOTO1260 2000DAY$="SUNDAY"\RETURN 2010DAY$="MONDAY"\RETURN 2020DAY$="TUESDAY"\RETURN 2030DAY$="WEDNESDAY"\RETURN 2040DAY$="THURSDAY"\RETURN 2050DAY$="FRIDAY"\RETURN 2060DAY$="SATURDAY"\RETURN 7000LETI1=0 7020IFY1=INT(Y1/4)*4THEND(2)=29 7040FORI=M1TOM3 7060LETI1=I1+D(I) 7080NEXTI 7100I1=I1-D(M3)-D1+D3 7120GOTO0484 8000IFERR<>1THENGOTO0100 8001STOP 8080D(2)=28 9000IFY1=INT(Y1/4)*4THEND(2)=29 9010I1=0 9015IFM1=12THEN9100 9020LETJ=M1+1 9040FORI=JTO12 1E49CF3207D0124862130653554E4441591A303207DA12486213064D4F4EFB S11E49EA4441591A303207E41248621307545545534441591A303207EE1248A9 S11E4A056213095745444E45534441591A303207F81248621308544855525388 S11E4A204441591A3032080212486213064652494441591A3032080C12486233 S1104A3B130853415455524441591A303167 S9  10 FDB :+A 0+1 28 25 ::116 EQU * :0590 50 FDB 0590 68 FDB :+I :0615 50 FDB 0615 10 FDB :+Y3 10 FDB :+Y3 0+4 32 9C D 0010910CREATE#3,"NAMES.SA" 0020INPUT"ENTERTODAY'SDATE(E.G.8,23,1978):"M3,D3,Y3 0030IFY3<100THENY3=Y3+1900\!E JUSTINCASE 0040PRINT 0050915INPUT"ENTERNAME:"NAME$ 0060INPUT"ENTERBIRTHDATE:"M2,D2,Y2 0070PRINT 0080PRINT"NAME:",NAME$ 0090PRINT"BIRTHDATE:",M2;"/";D2;"/";Y2 0100920INPUT"ISTHISOK(Y/N)?"DUMMY$ 0110IFDUMMY$="N"THENGOTO915 0120IFDUMMY$<>"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 ƀ0005DIMDAY$(10),L$(3) 0010DIMD,M,Y,K,L,O,P,Z,Z1,Z2,Z3,Z4 0100REMTHISPROGRAMCOMPUTESTHEDAYOFTHEWEEK 0110REMRESTRICTION:THEDATEMUSTBEAFTER1752 0120DAY$="SUNDAY"\GOTO340 0190PRINT"ENTERDAY(D),MONTH(M),ANDYEAR(Y)" 0200INPUTD,M,Y 0210IFY>1752THEN240 0220PRINT"YEARMUSTNOTBEPRIORTO1753" 0230GOTO190 0240LETK=INT(0.6+(1/M)) 0250LETL=Y-K 0260F LETO=M+12*K 0270LETP=L/100 0280LETZ1=INT(P/4) 0290LETZ2=INT(P) 0300LETZ3=INT((5*L)/4) 0310LETZ4=INT(13*(O+1)/5) 0320LETZ=Z4+Z3-Z2+Z1+D-1 0330LETZ=Z-(7*INT(Z/7))+1 0335ONZGOTO120,130,140,150,160,170,180 0340PRINT"THEDAYOFTHEWEEKIS";DAY$ 0350PRINT 0360PRINT"FORNEXTDATETYPEINYES,IFNOTTYPENO" 0370PRINT 0380INPUTL$ 0390IFL$="YES"THEN430 0400IFL$="NO"THEN450 0410PRINT"INVALIDCOMMAND" 0420GOTO360 0430PRINT 0440GOTO120 0450PRINT"DAYOFTHEWEEKSAYSGOOD-BYE" 0460END 0450PRINT"DAYOFTHEWEEKSAYSGOOD-BYE" 0460END 0 FDB :+A 10 FDB :+A 10 FDB :+Z1 32 91 10 FDB :+Z1 31 29 115 ::18 EQU * :0195 50 FDB 0195 12 FDB :+P 14 FCC '6.28319' FCB $D 25 :0200 50 FDB 0200 10 FDB :+N1 57 53 :0210 50 FDB 0210 19 FCB ::19-*-1 FCC "WHATISYOURNAME?" ::19ERR=1THENCLOSE#3ELSE901\CALLMDOS 2240901PRINT"ERROR=";ERR 2250CLOSE#3 2260IFELN=1THENGOTO1 2270PRINT"NOWWHATDOWEDO?" 2280910CLOSE#3 2290CALLMDOS 2300950!SUBROUTINETODISPLAYTHEENTRYONTHE"DEVICE" 2310PRINT#DEVICE,"ENTRYNUMBER:";DISPLAY 2320PRINT#DEVICE 2330PRINT#DEVICE,"DATE:";M;"/";D;"/";Y 2340PRINT#DEVICE,"COMPANYNAME:";CONAME$ 2350PRINT#DEVICE,"NAME:";NAME$ 2360PRINT#DEVICE,"POSITION:";POSITION$ 2370PRINT#DEVICE,"ADDRESS:";ADDRESS$ 2380PRINT#DEVICE,"CITYANDSTATE:";CITY$ 2390PRINT#DEVICE,"ZIPCODE:";ZIP$ 2400PRINT#DEVICE,"TELEPHONE:";PHONE$ 2410PRINT#DEVICE,"INTEREST:";INTEREST$ 2420PRINT#DEVICE,"DISTRIBUTOR:";DISTI$ 2430RETURN 2440999PRINT"THISFUNCTIONNOTYETAVAILABLE." 2450GOTO5 G H I ۀ4000REMTHISPROGRAMCOMPUTESTHEDAYOFTHEWEEK 4010REMRESTRICTION:THEDATEMUSTBEAFTER1752 4020LETJ$(1)="SUNDAY" 4030LETJ$(2)="MONDAY" 4040LETJ$(3)="TUESDAY" 4050LETJ$(4)="WEDNESDAY" 4060LETJ$(5)="THURSDAY" 4070LETJ$(6)="FRIDAY" 4080LETJ$(7)="SATURDAY" 4090LETK=INT(0.6+(1/M2)) 4100LETL=Y2-K 4110LETO=M2+12*K 4120LETP=L/100 4130LETZ1=INT(P/4) 4140LETZ2=INT(P) 4150LETZ3=INT((5*L)/4) 4160LETZ4=INT(13*(O+1)/5) 4170LETZ=Z4+Z3-Z2+Z1+D2-1 4180LETZ=Z-(7*INT(Z/7))+1 1=INT(P/4) 0200LETZ2=INT(P) 0210LETZ3=INT((5*L)/4) 0220LETZ4=INT(13*(O+1)/5) 0230LETZ=Z4+Z3-Z2+Z1+D-1 0240LETZ=Z-(7*INT(Z/7))+1 0250PRINT"THEDAYOFTHEWEEKIS";J$(Z) 0260PRINT 0270PRINT"FORNEXTDATETYPEINYES,IFNOTTYPENO" 0280PRINT 0290INPUTL$ 0300IFL$="YES"THEN340 0310IFL$="NO"THEN360 0320PRINT"INVALIDCOMMAND" 0330GOTO270 0340PRINT 0350GOJ 0700K1=INT(0.6+(1/M2)) 0710L=Y2-K1 0720O=M2+12*K1 0730P=L/100 0740G1=INT(P/4) 0750G2=INT(P) 0760G3=INT((5*L)/4) 0770G4=INT(13*(O+1)/5) 0780G=G4+G3-G2+G1+D-1 0790G=G-(7*INT(G/7))+1 1092ONGGOSUB2000,2010,2020,2030,2040,2050,2060 2000DAY$="SUNDAY"\RETURN 2010DAY$="MONDAY"\RETURN 2020DAY$="TUESDAY"\RETURN 2030DAY$="WEDNESDAY"\RETURN 2040DAY$="THURSDAY"\RETURN 2050DA S1164800BD20001270485B02000370486202000A2E48708E S11E487032012C711323454E544552204D4F4E5448284D292C204441592844CB S11E488B292C20414E44205945415228592936353201907155480C48314619AB S11E48A60C483746190C483D46193201F40C48490E302E360D010A4831201CE6 S11E48C15B193202580C48430A483D0A48491D193202BC0C484F0A48310D00BE S11E48DC0C0A48491F1C193203200C48550A48430D006420193203840C48195F S11E48F70A485504205B193203E80C481F0A48555B1932044C0C4825050A4866 S11E4912431F04205B193204B00C482B0D000D0A484F011C1F05205B19320560 S11E492D140C48130A482B0A48251C0A481F1D0A48191C0A48371C011D1932BD S11E494805780C48130A4813070A481307205B1F1D011C193205C80A481374CF S11E4963497349CF49DF49EF4A004A134A254A353205DC711317544845204479 S11E497E4159204F4620544845205745454B2049533A361248623635320640B3 S11E4999711319444F20594F552057414E5420414E4F54484552204441592009 S11E49B43F363206A471554812485B381A32070812485B13024E4F4B2C4870A7 S1Y$="FRIDAY"\RETURN 2060DAY$="SATURDAY"\RETURN 010DAY$="MONDAY"\RETURN 2020DAY$="TUESDAY"\RETURN 2030DAY$="WEDNESDAY"\RETURN 2040DAY$="THURSDAY"\RETURN 2050DAY$="FRIDAY"\RETURN 2060DAY$="SATURDAY"\RETURN 2090END A 10 FDB :+A 10 FDB :+I1 28 25 :0560 50 FDB 0560 12 FDB :+A 10 FDB :+A 13 FDB 365 10 FDB :+Y3 10 FDB :+Y2 29 9060LETI1=I1+D(I) 9080NEXTI 9100LETI1=I1+D(M1)-D1+1 9120RETURN 9480D(2)=28 9500IFY1=INT(Y1/4)*4THEND(2)=29 9520LETI1=0 9540IFM1=1THEN9640 9560LETJ=M1-1 9580FORI=1TOJ 9600LETI1=I1+D(I) 9620NEXTI 9640LETI1=I1+D1-1 9660RETURN 52 55 19 FCB 1 FCC "/" 54 10 FDB :+Y2 52 53 :1096 50 FDB 1096 10 FDB :+N1 57 19 FCB ::118-*-1 FCC "ANDWILLBE" ::118 EQU * 54 10 FDB :+A 52 55 19 FCB ::119-*-1 FCC "DAYSOLDATTHESTARTOFTHISCHART" ::119 EQU * 54 53 :1100 5K L