IMD 1.16: 16/08/2007 16:44:14 high-leve languages (mdos 2.2)  MDOS02200220080578HIGH LEVEL LANGUAGES\lxMPLSLIB ROMPLDEMO SA`MDOSOV0 SY\FORT CM,FORT4 CMDIR CMRLOAD CMMDOSOV4 SYCOBOL CMLFMSDSK CM$rRT6800RNLOlMDOS SYMPLL CFMPL CMMDOSOV6 SYREVASM CMrRASM CM(BASIC CM2EQU SAMDOSOV1 SYlRUNTIME LORT6800LBSAhMPLCA CFEDITM CMrRUN CMMPLLAB LOdMDOSOV3 SYMDOSER SYMPLULIB ROdCHAIN CM,BACKUP CMMDOSOV5 SYCOPY CMSCRIBE CM<MDOSOV2 SYxMPLCAL CFEDITINFOSAlCHAIN SY|uu+XHYHYwvz{67xHY & M& &S66~m? ~SM @?@0220 CN0 LP0 DK0MDOSER SY }O'0&'L/&04315X%;$*IZ062Y06336;!~nWnceg !*-9bdkt  _a[]aqwFIik'llll}*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 ON670$1'24'.8'*9'& 320$'90? ?0j'&?.Y$u Vx~>?*?/% 629~/' '  k "uS~DK8LPECRRCP_CNlHRyr 1 )Qze W T  Q NS*"' "!$%3l&l && l&l"!$E011n0~Ao'  ''   9? "! '  9&' ++& +|$~( 66?240?311116L6*5i+`32P@$Z73$O_ ?(?!I% ~B~*|_?3?*67)*0l&ll&l&&11~%0 09 |?3?+?$~B?26 HYHY01674 0+??31111  +  l&l 9    }* |S6]3&l f09~~  U Rz (&}* V (H7F $9ц 1 ' G$ 9 9W (}*7 _ 011n~϶?}& W~ J~ d~ ~ ~ & }*] &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# "GY9' V$]'~ &Ġ''P& &' '0@& ?$ &~ ? ? &~ & x9?)%  $~ Š& '?(%%' _?]&' 'G &C&7vŀ& ' 7}n7676~m  '2m '%''0n00&_9 90 9    ?z9?$?/$11 ?&?/%9  &ŀ' ?-9Š&   ?.9 90uv9v'# ?u'J$|911~ oc' 9Š' h9& SS90}629ŀ'hvŠ&9S#Mٽnp{' {j?' &&l ) #_HY?)?# *'>&~0Ӧ'_\'0է }&|ަm'С&~  Ӧm''?' |&|  Ն ) $! 9?ۆ.?ۆ:9ַ$|ն&ٽ99צٷGط$| 0 ~f626 29DDDD09#90 &1f38 "#$ % &  ' ( )*+,-.5BbINVALID MESSAGE \3 AT \8UNIF. I/O ERROR-STATUS=\3 AT \8PROM I/O ERROR-STATUS=\3 AT XXXX ON DRIVE X-PSN XXXX0MDOSOV SYo6 6 6 660_\$ H/,6@?% 20 229V S          ؽؽؽؽؽؽؽؽؽ ~m       | M'  / /| ~?%( ~& ? ? ? |9V S   oo~~ؽؽؽؽؽؽؽ'н$~y ?   '; Z9 ?_$~w?'  ?'~b&.%,M%& %  \ \~M$~%' &~$'M$ &~}?&$ &m &m ' ' '~} &? &ƀO?Z?1?1 ?m+ 'K_ $?,?) &~ w &  _?&$?,?(~y&^wXXZ?'gʀ? & _9 ۽wXX?'~ 9      &~ut?'~fTTT-#~?XXXX?''~o o m*~;?* ?~;w%SZ& ?0?0*~yw%R?.&ǽʀt?)' oo ?~?(~$9 ?( 9TFVFVD6YYYO FZ,299$ 9g|WW\7g?%39ZXX7g?%3O?*9?-g?)9н$11~u?m+ \:/11~u'9  ( ooؽ~~~~~!~~90909X0o]''d*&ց.&PƂ]' *&ʍ:& 0? 0?090 ;' ' 0 l&l9u #'zƀ ?6ŀ& '@'?$ @?%?0]'Z0Y?%0 ?')760' ?0 ?23*& ?$?$*1906?290?ƈ~ 6'-  ?-?&0 5?&?)   ?/%(?/$! 0m& _2W9 @&- $*?%$ ?%'?/' ~~~'DK&~J0 %Z]' ?(Z 'oo' 00  @ ? 09 0  $ ?(z& ~q6 @'' ?2oo?3oo  29'~n '~q&~q|'''~t&'| &&o o  's$~w?@}&~ʶ'~}*~M%xl&l&' &}/%}& |&Ľ[ 0}& }'7[3%!&' &  0$~h~0$6~h&%}'  '!}, & '  $~h%~}}&| &P09 0%}. 0%09E}+ H}'D0$~hO}+ ?.]'~z$L}&| '0%C}*~~}'7TTTT3% 90:%9ʀ  ' 73]' 9`~~ _'~ۆ&~߆ &$~}&'''~~)'| - Z.$~%_ 3$~}'Z& 'M&ZJ?%$~&~&(%?/'% '& &8}'}& $~}'~}'~o_9'&|]*' z' ~B3$~}'H' ' E&| D' }&t&i~%&~}'&}'&z' ~% ~%}&̽3% &&'m&jj~ 0] 9  0 &}&   7399@ 9󆀪 3%%"$1111~XXXXi3% %i 90%% *% 9}+39>997 &39 % 9?/9}&M&ZJ97%3g9399   ~~~'~ & o_9''  '~p''&?8'~@' D &'8&]'/?/')!"?/%o  ?ߤ]'~oo&~ &Q'~ DDD-#~?XXXX?'? ? ?'?"%~0] 9   &0o_90?&\TTT-R# L ?0XXXX?'''0 ?'6 ?20?90 9  &~{0' &?$~'M  '~&& ?_9?%~'   ?'?'??@?%!?&~ 9   ??9ÄHHHH?(VVV9"(~%&~φ@ &~? ''~ &.~׽o_9 '?'&~~|?  &~۽  &~I ?'?$' ? ?&~~' '~oo oo# %"?%*~ %:m+Z&~~b}?'~b?6'~m ' ?'#% #?&# ?'%#?~b ?' ' '  @&~۽ & & 62''&  &~ &~> ?'?$&~&~&~ ? ?~' ''~}?'~b;= ?'?$?%?'?$?7;<=>m&~e~ &~׆``& ~0] 9           9 $11~9$X~%~=hS9@d"COPY DEMOTEST.SA:1,:0 NEEDED DEMO.CF PROGRAMS FROM 1 TO 0 END CHAINHHHHC'1~#? $0 K(? ?. ?' (K? %S@'C\&(0$ ']'Z 09)~#*((*9*'..'*J'tC'fL'_, S&~v. T'%2 6*'S? 2.&4:? ? $~U #6+?,-.?/  2~}+* .|+S@L&S.&+ Ҷ,-*+ O 6.?&%2M' *&S? ((,$#_?S9 &4+'3~#+4 //9.?& ?&0? ~%~s?'((((6:2&*9 ? .???oo0+( # + . (7x+y*Z&++3Z&9&~ !q?o_!l?!o!B&%!o !E&!q!!s!q?' RI S ? '~ U~ H @'E @' {'3j? , ?%?%E?%?%j?%?%!MQ|-7&(3%.Z&$'-*O,,-?-$?),Y&(Y&~0 ~/~/OPTFTF[\Y*,9HZ&;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%~%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 SA MDOS BASIC 2.01 COPYRIGHT(C)- 1977 C2C,CC.BEW&`]+YCBCCB ?EW&C]+ C?Z' |ASCCDKCCCC$AN~) ? ?CB0CSAC C?B?C0C9K &0203 MDOSOV5 SY!!!!"=DKCF">" "#2DKCHAIN SY#3# } }"HM" !! ! "" ILLEGAL NESTING OF CHAIN COMMANDSCHAIN.SY DOES NOT EXISTLABEL TABLE OVERFLOW ON LINE :SOURCE SYNTAX ERRORILLEGAL OPERATORINVALID CONDITIONAL EXPRESSIONILLEGAL NESTING OF CONDITIONALSEXECUTION OPERATOR OPERAND ERRORVALUE TOO LARGE FOR FIELDEND FILE REACHED BEFORE LAST XIF FOUNDUNDEFINED LABELS FOUNDO  UTPUT RECORD BUFFER OVERFLOW$!?'/~.!! 'O, ,? &NN!PN?]&~&~&<'B!' N&/!Ձ &("?%$!')N&?$C~-~.$e ~.O, ,?&A ' RR' R ?&( ! ! $3,! ! _!? ~. &N[ 'J;' &=N O+$0'. '/,'%&"_N-? '%'\ &N -?%& ~.!?&| ?&| "?'~.| ?&|  "? !?)$*(+;? $~-((!?' &\~+f!["]-?*&/&ѽ--K*'[AB' @'/&--K \'%'= 'T\&-? ' --? ~.$? (N$PN.$? !? ~-φ+$'ԁ%&]'Ŧ-Z& -"@'#/' "?&~'"*'( @"? "] & [-K[ [".'Á*'" ' ,' '~((7$$-3'7$?'3(') &$~(=nELSE)!IFC ) IFS ) XIF )-XIF )-ABOR)5CMD)JMP)LBL)SET* TST*(O*')]*"~'"I&0** ** ~-;;';9;+' ;Ā9$~("[-K[ [N+$ ')"C' "S'N.' ',& N& &9$~([O&N ' FF& +I~(L%~(O+$' &]'+ *l O+$'؁ &]'+ *l~)½*%-R &P+E "*~)~)Ƚ*%+%E '-R &*%ޖS*N@'T?SRN+ET+ER~) LH?'" JH.L9_",&<-?6-? ' &;-K[ [2W'S'T'M&  RNPsNsO 9 9|REFzR' HY$%'~(P&Q&?%T9-?-?+-&' +E& 9S-? ',& 9EQ'NE>"LT%GE$LE#BSBC  6H$#-J-Z&2~-;+'%A~- "',l*,l %h !??,"?'&,? """"  $'&-$;,~&~.G H"LJ_&?*$?/%$}~-͗G H&LJ }_-?,r' '\ _ 9]'6HJ'&$$-'0$ 0. G&$$-Co?$L_2M 9=2 9L?(9 '.' ,'%' 96_!?! ! ! ! ! ! !P !! ! $+,2M& ?2 ?&?3 9. 99VVVV9Y]#3' "]Y9%~-Y[ Y[[Y9 '9 7VEݽ.%E.FFZ&ɗX2XV]9VACVA?9 6----.29V=?V=?9? '"J'J'J' "?'_? "?!?!??_? ]&~.l&l.......o%.l .670 'Z&32.l&ll&lj ,. m&jj.l&lj&.O9'd ]'/l&l..ܦ #0m&jj.܍ Z&.96dfJ&296hiJ&29A% 62% 0%62%9pSpq#LZXVS9XAZ*$+-.,0B/CD@@@ ))QQ@@LL :DK0ZZZZZZZZLO  @#~F~GnDK0COBOLIB SA""PDK0XXXXXXXXSA#$D0""PDK0XXXXXXXXSA$E$0t&.+80\0^&]E' C') ~'/^~'K[^OZ&MMH_M,S00highWW&9g^K' WhW~'WYM[MZ(Y'~(YM^$L~(gWh9g[H^H_M,S00hihh^h'hh&9~(chWM[MZ(W'~(kWM^$L~(|g9Mcd^cdg& dh cdhch^MoooM[MZ(cMZ(M^$L~(g9"0 a][Z/~) ,[]]J&JZ(J&Y  J@'&Y  J?]&Y  J&0aa&Y  JLK * *'*+@+8+CKX)zZ-n^K~)aa[a#*<<.>K&KZ(K&Y  JKLK )*)**)j)KX)׽Z-naa+U]J|^aa~)|^a 'a~)j[_9[$& ]t^[[9^/+U(?g.~*h]0&~) Z&S'w&+U'[a0, a['&'u'DK'~SA''v?&?&~+8'w +U]&^[J_)JZ(`96" 3/ ]`9 'Ķ# &]9_]K[KZ(0#_`HYHY`_HY_`#_`K^$L~+9-"a~) ]_M,S_` ]9L.+/6L.b# .Z.*.|&.{].&a0%) ~+) ~'* ERROR ,&/-'.M'M,|-~,a&A"&*M&,Öz,ʖy,9,Öz-%y-%-69M,Öy,ʖz,9|'/q+U|JHHHHMLM{y'M@MM,Öy-%{y'-%Y# - &# #s+Uz-%9| +++Z(}"ͽY zWz&%XW&&XMHHHHM,Öy,9MM,Öy,ʖz,9-69MM"ͽY MYY&Y-6NEY9@"NWMXEY~-ZY# # WXYNW-69,ʖN'p+U9W76ց/ .B.2M'@'X6ց/0.O2 & HHHH BB-' TTTTZ--2'ց/W.OWXBB ց/0.O24BB39L".R~/>JX/6:, /.~=. '?%&?CB#%HY$|%%%%%%?&f%#%%%%?&S%?&@%#u%ɧv%ʧw#xzoyo{%?&%%#?%_? ?SIZE: PROGRAM DATA ERRORS IN PROGRAM 0\0\#WBCB# $~'$ٌ' @@>Q>$$$$"NJ ?:?J?Q?q???@z@@?JX?Z-ny&9"h~N9ym9|yy& +U!%"%#%-$$7%.D ?M.. &m b E ˵ (&a b#C%c dD#efA#ghB#fu"˲!!x$x%$%y>z'U2Ҟ-)w*y++> ,E&k3.L/20l1S224Dr56s878t:9)ѳ<;wv=">d?E@fAvBtCiiucፐǜb󥖗CDf˚לӥҢӝXvYHL2{2pqcccf-734(56+-78,2)9>:::::1M(Hɀ)Fˀ1M MbԀnToT9V7VV2M3M-@(Hـ)F+C-D* A/Bۀ6706& JZ2JJJ&329770_F$VFj&119& 9Z$|9 DELOPSZ&."oJ&@o&z%#J[=' '* |%"%""?']-%? ?" /Q" #ZZ?&Z? '(;&QQQZ>"%' Z& Z?# Hcւ'=[OE~'[//6[C/6.9M6800 COBOL X.04 COPYRIGHT 1978 BY MOTOROLA INC. p0 0203'*U''?'&~! &~%*VDK&~%*S*4*4*z''?'&  '*{DK'*x*4*4'_ 'W;' ' 'G '*<&3'D&=&**''7?''_~%3 ',& ' m&~%*7UDŀ'*4'*V'''*{'~%&*4'*V' '*{' &~%' & *z&*'*4'~# *z&*U*z*&*^**{&*V'*{''?PS*7'~%P*7' *L*L *q*q*K?'~%?&*7@'~"S*b**c**d**^*&d*q*q*p?&?'}*&}*'&** %*K?'U &*b&C*\**K?&?'*(**p?&,''('' ?**p?& %?*p?'~%'*(**p&E%*K?'L '~%*p?'d &*b'~"D*\**K?&*p?&''('' ?' &*p?' '~%' ''''ƀ?&~"e*\}*K& '+ ''+ *? Ɓ?#~"D*7ŀ'S*:*?*:$&~%&~%&~%~%*7'*96*8644446n *z&0*z*4&~$*V'*{'' ?*K?'~%?&*b''~%޶*7'~%օ ' @&HP*x&'& '*bx**7'&dž*q*q |'*7@&R*q*q*p&'?'~%?&*7 '%*K?' &~"D}'& *O*M'|'*M*v*p?& CN*x&~%)**t*3*v*7&|'&E%*K?' &*p?' &~"D*? ~#}'&*M'*p?' '~$}'& *r'|'*O'*t'''&*r& '*M' ''*M'' CN*S&~%*7('~%'*4'*L*L*b |'*V*4' *&SA**{'*V'' ?*K&'?'~%?&*b' ''~%*bx**4&*V'*{'' ?*7@'~$N&d~#? %? *      *z ? $%?9*K&&*q&*q&*{'*q*q*p&&9&C?''_? &C?''_? 9*p&'?& ?&*? 9~%*z?'9*ŀ'~%*b' '~%&*4& **b&*7'9*{'*''?***z**? '? 'Y'ƀ?#%?H& R&*5*6 @ o9U& D&**  +#bNCWH V@DM( ))DK0 SA' '( ))DK  ' '0 LO' 'VERIFY IN PROGRESSXXXXXXXX.XX:X EXISTS. OVERWRITE? VERIFY FAILEDVERIFY FAILED AT LSN XXXX]'/l&l+?+? #0m&jj+? Z&+?96dfJ&29  +q +$ 0 011n++oo<+9++4< ++Ǧ+ +&z+& +% & 9+Mw 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 ENTRIES 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 0|0 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$|889 91S9mS : :0 ::0 :: :Z&%:'::*S9s*S  :*S:'J :& Z' l 9::]*& :::&::8Y:' 9:919m~8::&:::::' : :: :Z&::9z::iZ& lx FATAL DISK ERROR*  " ? ? ]' Y' "? !? xoZ&  Z&"A? ? A-Z. Z&"Y? ? Z&"? ? * !"p? {0&~! 聖0' ? ? 9"?  ? "? ? "?  ? 9 DISKETTE INITIALIZATION PROGRAM IS DISK 1 SCRATCH?  ENTER DISKETTE NAME: ENTER DATE (MMDDYY):  CLEARING DISKETTE  DISKETTE INITIALIZATION COMPLETE ENTER ONE CHARACTER DISKETTE SEQUENCE #: DISKETTE ID:  DATE:  SEQ #: po(p PAGO BTO CIF DSTOP EEND FDO GCONTINUE HCALL ISUBROUTINE JFUNCTION KRETURN LREAD MPRINT NDIMENSION OCOMMON PDATA QFORMAT RNOT SAND TOR UEQ VNE WLE XGE YLT ZGT 0ENDFILE 0REWIND MWRITE @!2UNDEFINED SYMBOLS ERRORS1Gt}&] |  D V K)>;/E$AB!("#,),FS =!",#$,%P'-(/).*,+)/,,'(-)700C2(3L4)5Q:6R,78R,9R ۈ<==EL?EaMEbAc,BjJCDD,B(@FjG,HIc)B(KeJML,KN,OKd=PTQ,RS,UTU)hHWX*Y*(Zj[,\Z)Q^q(_a`)zbbr/casXdesPees,fa(igtah)ruEjkxFnkxlv.mrwIopxAqpxrwry,sa/asIvu3w%Jw3x%(y&z',{y)(O~N1(,),~-712Y4(56+-78,)9::.<-@RM(H)F=E M+C-D/B*A*I30 3$MAIN 0210 ~Q~P --- PAGE MDOS FORTRAN VERSION 2.1  COPYRIGHT BY MOTOROLA 1977 (R!s! 4k|߅m~* ***̶*ϻ*˗n*Ͷ*ʁ&!1*R*Y4k4l*~IC YY$L~+N4i*iY YI &~+ YI)iI|i~+ziO+,)poiY$L~+zj!|!s-6s4gt!?4e߀2~+՗])iOZ&\H\_M,S4d4cpqopd4kd&9oi]d' dpd~,d`&f df\)If'~,3f\i$L~,Xodp9]o&**p **p*pi]4k4lkl`'4k4l *!s' i//G\)\I**\i$L~,****!q% &!r%/G9j&~/3i )jI*h ,;hhZ/O/GhY YILY!!IC  Y@'!!IC  Y?h!!IC  Y&4|j!"IC  YGGGGLZ .../D/3ZX-ŽIn !"IC  YLZ~.)jI**Z ZIZ!$IC  YZLZ .F.J.l.J.l-.{ZX.)InO/GiO-/G|ijI)iI|jZ-~-~-jIA$Y~-yZ~.l)z9O+o-phR- )R' h9+* &ho- p@'h94kz@Z)ZI*z{HYHY{zHY$|@z{*$|@z{Zi$L~.z)i91޶*/4mj~-=[)' | 2z /O[I 'P/')'? P)GJ&2_j&Zj|!?R~+ **ERROR 1[GGGG [)IC wGG0Z)IC vYZ[]y\B\12)IC v' & GGGG@Y)IC w' & GGGG@Z)IC x' & GGGG@[BY)IC v12BZ)IC w12B[)IC x129\^_A_4a12B^129\]dJ4_/O //////4]/O4ef\@-4[fM,4Yff/Oߖ\\&4W/O).~1/P 4W/O 4Yf']'\_M,Sf9)G-C'X& #' ג&$9).н2 ˶%'~2}*'9ޅ߅ֆI*!tf)D' P$|*9~R9~R4M' 'f &C*}& ' *'L$|!tf & !t&,).&& 39&|&ƁC'&'X'|* 2ֆ~/G0-9. 9 9mnO6 P29~)A4U *  3 &~3?  4S &/G ~3 h&~3   M'~34U &~3  3ݶ '~3K/G3-6  '~3 4Q &9  &~33ݽ3 4U '~39 J_HXH 9 Z&9ZYZGGGGZ%'ZY/O߆4OPؖY 4m9`bc|[9IAfp &D*ζ*ϻ*'| } YI9&Yހ!Y@b!@ Y|!pf|Yf<=b@>>tYX}!'CScbbc9HYx{yz$gf &]+9 /GAt@'Z ZZ_M,St!IC !t!!I|!!~BY|!9>!]'/G![&! &bctt9 1cb!!bcb8|!9!@'!'9*&/G>][!IA!!!!A*'~=9~=Ȇ! &J&J]9IAzzjAz!jJ@@).'!'O_!!!!!9@A..9z@@@@@)% @ @z@ E&O@)% @HH@H }@'@@@oooo'~dfffffffJ&|@&@/ @{@z@ 'H@@k @oooo@^@^@^@^@@^@Z&&z@hiiiZ&|@&@!'@@j@!@!t9\DBk>9$ l&l&l9@ '-& E&|@ @@0-9.09 9hiii9t@v@v@v@9@@@@9@@@@9tGGGGGGZ*ζ*ϻ* @Z&*&t*Χ*ϧ@!!@9O6**O2**ʽO˶!!*ʋ*ʱ*'9m**m*6***нO˦+6o**O3<9 mm*ʋ*ʱ*&*m2'-**O *~vx' wx'D)IC v)IC w[)IC x[xB0)By~CqAto!0!!sx9Y DE%EBEmEFFxFWF{EE4YXDIn*ʋ*-A'1t$q'E$r'Q&$p&# &&$q& '&$r& -&$r& "$p&$p@ $q&$qƀ $r'MQ $r$W$Z$l$V'y#\$f#MNH$V' $s "6$u$u|$sz$f$V$V$s"$u$V$uz$f|$s .MQ~Ko|$gNy $s "$f#OMz$V& $f#ض$WM9|$a${$}$Y$~$b$$dv$`9$V$X$a'$b&$`' Ny$d$X$d$b$bz$`9$a'$a|$`$`%$z%P9|$h{$f$i$$n9$f "?$f $fƀ$mO$p$q$r$j$s$n O$u|$i$n$Y$Z$k$l9NyL|$g99~M$i'$h'$m''聀&tNH$nO$p#L$q''L$r''$p' $r'LM' O 3$w $w$n$w&$f$f'$m h$m$s$m$n$m$w$n$i96$j' $t&>$u$wO$y$tz$f|$j$y&z$f|$t$w2HYHY$yL$y&$w$y9$j'+$u$t$w$y'XXL&$y$w$u|$s$j9L̶$h' MQ$h|$f$f$%%P96$z${$_'${$|$}%$z%PR%&$|OOB$2$z %$z%P3$zO${Z&$L$~$L$|$_&dO|$$m$0$RU$N$$ $%$z%P %O$_&.4$z$|mΎAOZ&1 1H_M,S,u,tKLJK::&9JA/' :K:~#]:<1>1Br<'~#r<1A$L~#J:K91HIAHIJ& IK HIKHKA1oo1>1BrH1Br1A$L~#J9D@ ,;@@Z/&)@."h.Br."B!  .@'"B!  .?@"B!  .&.DD"B!  .L/ %#%*%&$&/X$}BwnAD>/~$DD>D!*/"h/Br/"B!  ./L/ $$$%%$m/X$ؽBwn&)|ADD~$DA$.~$5~$D 'D~$m>B9>A$~%A/A#0A/AJ-K@``aR-' @C9#0! &@J- K@'@9 1B@>@&*C1/>/Br0! /!1&BCHYHYCBHYBC BCHYHYHYHYBC%3!%,BC/A$L~%B>A9(b/,x hD~$ 0(s&S*0*`E# *dZ.**d|c~#$* ERROR 0GGGG 0!EB! [GG0/!EB! Z./02&^]Br1,Pw&Jx,r&C!EB! [ ' &Z'P 1&2&Z'P['a1 & ^91'+'&'B1'rZ'a['a\'a+^9['P\'a9*Bw'r9'a@''r96Z!EBw2:76*J&#!" % &)e/ *}"*^2M'/'G6e/0*`A2""(' TTTTBw-2'e/:*^A:;"" e/0*`A24""39[ i) i$& jP&* H&* ށC&- ԁ@&~( h&- . h  ' '!' ? h9e*9 d'|*}"*^ h6 h d*ǽ*b i26 '0- 9.*dz & iC' z/*b 2 h?'&*d iC'*b & * d9)2,b92'~(b&9) i@& ؗ12H44,&9/&^&X1''*}.4.Br*d./$L~)K?*d|c -2. j.Br4.Br'~)./$L~)r|29/_M,S5445~)'""&9? $*}~.Vb&>e'W#߈?' ';' #_? *}?zbeezb"?&?&"?' '_ ??|b'b)9! d?<<' &9}g&1 *d *d9 }f&~$ 7$? 3%9 ߖf'/|gg&7Z' ߌ**ތ3 ԁ-Ё>-B-g9f'g' }g' '捐 *ߊ jߌތߌފ 'ߊ+&9 REALTIME FORTRAN REV 4.6 ,phYjk@&$ k&&P,nQ ]!,lr,jW.3"t,l&~+hkh,h&&)jlk~+&l@&~+jlk'~+h,p&~+ hjk,j'~+&),@jlkk'~+&h h,f&9jkj&~+߽,,~+͖kJ_HXH,m,l9Bl/&9./GGGG/e-!/.. ,x1}49;=Y>/X,HBwn9!! !!B!!! . ,,,-D-h-.//d/l/1L1]1n1s.X,zBwn,BuK'&)K"#<0 &<9#0J. #Koo9'B9J/K &&) K P#Kp!4 6!!!!9M&8 89896<66!!4899! '!!ARpUNOp89UW4 &%$98$%UK4 6U&9UU64 'Bw~-9! !?'re@&D4*4*^-*d*b4*^4*3*^-*d*b( 43*^gg* *}!$!& c'?.h,4? ? ?0RT6800RNLO SIZE: PROGRAM DATA DO END STATEMENTS? 93M'3J/?K'&)KA"667U89~8'r8"6A #3ARNOKK90&A3J3@118#~9|!!UUQ'!!UUt~9|9~9|u&~/Su& ;~/vue,9~(naK',e,~0+0*}H44's/&Q80&*}g&*}|01/. 4*d *b441$L~/8*^*b0&08 4/_M,S5445~/*3466'8 68~044oo3'Bw~0.,646H&~1( 6'6 6 612 &|c*}3*6@~0g63'&~0g4524546&~02.6.Br4.Br.J&O14Z&33H_M,S338984458~0g4HS3'|c3*S@=~1,~# F'&)4 W9$%! $$F 9'BQ'r9. 111122n2t22233+333.X1Bwn,ن~;9Z&[zY9|ZZ& &),KLrr9 'BQ[Z'rQ'rr r34K;4r'Bw~292K'!&)A"#U0J&*#0J/!&)0# !K'r~2'B9J/"&)0# !K 'r9'r F99'r9#0J.#AR~UNOKK<92@&B< 22r<=!!r929|YQrQrr94!54'ν'r!'r!44r''r4'r9|44~3Q!r!94   e>0I& _0~39B0B&*0~30E& C0+*3B! 0!!~A0T&~AL'2&)CJe9!. .!C!4 ."*.!$!. 4>4G4_4m455945=6d8B6Z688.X4Bwn9!93239Qo2~2ږ@0e'(s9K&A! U !90!QnKpA8!!!9|!B B|0UB! !<<=4}t'CS9889t9HYxCyB$=< &]+9&)9Q@'/ /Q/!B! !|!~9||t96B!2'1&)!0&+p &#U89*98UQ9PJ0/&)n@'008'0@0!'0 0!'00!'00 'B0'rn'r86!6!6!6n@PH_M,S9'O~'rp@'!'9Y&1&)6B20!Ql9pA'L'L29BD D]& |tx x]9@02B!t'!!CS!!_'9D.'9A..9Bߌߊ.7%7z.7'7$E&$זO7$-ז7% HHH ֖&@..oooo'|dfffffffJ&|/&./ tz. 'G7 oooo77778 78 Z&&z/hiiiZ&|.&/t'ލ!ޏ!Q29G/-R)9$ l&l&l9DD0-9.09 9hiii9tvvv999U?8, d|8,Z' zA. U92& Y'!N [0&2Q * Q7AR3 6!' & ! N !2AR!!U2& !!NOQ t9 'r!  !9Q'rQ@''r'r'r91P&0&)|PQQQooo1&99MQ1.9J.)#QGGGGGG1W1KKQK 'Q@9zPQ Q9M_& @'&9>I%>N#M9  .w.~:_./ :&)::::Y/X9Bwn\;x. &9Pw&~:;404Q&&0wzP  Q~:|044Q'~:&~:CGww& D*& w9wBr9]Br.~:w]xxw99]Br/ ::::/X:Bwn9x x]9x[Z x~:xZ[]&~: xx&!w&x\ x!EB! \0 -Z\' [\';l!EB! Z!EB! [0\x&q0HHHH!EB! \:x]~:_9Qo33P\9!E!. ;;<5<[<<4>O>U>i>t>>>>?@a@t@{@?..X>Bwn""AF~"'r=>9C=9>Ŷ=>>'r~>H='r~>H 'r~>HC>9>'C>>HHHHC>=/='r>'r 'r >'r~>H>@=>Br' >$L~>9>A>>'r.>.Br'r.A$L~>~>H'r"#F9&)>A+HHH6HAA+?BwBw3"%G+ʦG*C>P,$ ')%C0& 8A'2- ,0 `0B&@D D,"*' #&8[Z9#$(.+137; ;BFG}{'?:)i (I983:%J@:3;%(<&=',><)(OANICBHCDD(EF,GE)H,APRJPK/LQM,NL/O,JK-L7KS)DTpU0WV3\XY.=[Z[/,X4]j(^_,`ab]b])c,]FefiS?gEhfj=kl,mn,o!qrs{s,t*uy#vw&w{"-x{7{y+z{-{7L}aMbc,,(~,c)(e,,d=T,,)hH2*--()***(j,)"-7214(56+-78,)9::.<-@RM(H)F=E M+C-D/B*A*AGO BTO CIF DSTOP EEND FDO GCONTINU HCALL ISUBROUT JFUNCTIO KRETURN LREAD MPRINT NDIMENSI OCOMMON PDATA QFORMAT RNOT SAND TOR UEQ VNE WLE XGE YLT ZGT 0ENDFILE 0REWIND MWRITE 1INTERRU 2CONNECT 2TRIGGER 3OPTIONS 4EQUIVAL*SLZCM c dOoJ& o&z=' '0 |z {0C M  ?']- {_? *}?߆ ';&M&.\ P&fFd'm*ED!e&|!|!O,|,S,'HD6>_A-\ DA6O#0#32K*&ӽAۆgf'>g*}Gj$~#REAL TIME FORTRAN REV. 4.6 ||465  >~#~#~#~#~#~#~#~!!~ ~ ~"~ ~#H~#~$~&[~#~)d~(+~)a+bz N2"& zAo&~iznl >o &z'~ # C~#+@#&@; (- 011+ 'nnn0T11TjDETD$ D'- D~iE$Tn0T11H*TJ'Z&nn#0T11m'ZT'XT@'VF'~+!k}m+W~l~!~!~!~!~"J~!~!~"~!~!S TX NX H XZTnCS9X X}m*M']mD$' 'CX$ O_"7DE2*}m&9XE*IJD*OP9mX+' 'XVӍX I 'OWVE }O+ LxPyO+&GJIIJPO$PO  yJyItOvPzG&IJ~!tIvJ$POI' xPyOO&90j\H$cb`axb$ jj\^xb$ Ijj6D2$ 'O^&ba`+\*11jn#4#j~#SUBSCRIPT ERROR AT 0V0ZX &X@''V'VVX 11Z[0Vn ##~# $~#9?9~!~$~'~~~~#0߲11޲ҁ-޲߲ ')޲>(&'޲n0߲11޲HH$ߴ&: 4$ߴ޴ߴ$m޴ߴ'ߴ뜴'~$M޲nӦLJ& DDDDֱ&~&ѐ?%&jL&% &j$%&j&j&j&j&j&&&>ְX$(n $$%%%%%%&&&>ְX$̽(n ӽ&j~$mֱІ Z&~$Ж,0L&޴%}' ,!%|$6z"/9#2m*}'7 0- & ' *- 'd _M,SЗ9޴ֱ&|' ޴~%0<~%ֱӦЧZ&~$(&A#%Ӗ~$z' ~$'$m9М>' '>>9&~#&~#M'~)F~#߷ &&''''B&22&&&>ְX&(nӜ' ӽ'~$m Ӗ,~2~'B'~$OֶXII޴ֱ&oJ߮'ޮ& J'yz. 񖱍qJ&~$u$A-D7xyJ&۸׸ Z%%׹ַHYHYٷHY_M,S׷ ,'&ϖ'ַCS׷ַ޴~%'9ֻ+&'z' '-&| 0- 9.09 9>І /~)\'*+#?>#߮#ޮ'' ' 9 >'҆\ & 9Z$|9*+`+`+` &*_*^*++`=' 'M )*F)0**J* *))?' ]-&)_? ~#)?&**+_*)?&|*_}+'L+`)*F)Ն0)*H))))?']-%) )?&*)*))?&|*^9)Ѷ))ы)))?' '~(??)+`*^(}*^&|)φ9)' ))?&990' &*^ *_' *_)?&?011nM.'96_O#$]&*L#\# 29 ''O9*^'9*_'9DK0XXXXXXXXSADK0ZZZZZZZZSA+b*`*k9p}N68E*`*`*DKSASAPRINTER NOT READY}N}n565 pppωP"P0+NP08ZHE73?ȐpǠƚdT (,+J;O ~-CLEGELTGTNEEQIEOR&IANDIOR %SHIFT NOT AND ORADDRDECLARE DCL BASED SIGNEDBYINITIAL INITMAINGOGOTOTOIFTHENELSEDOEND CALLRETURNOPTIONS DEFINED DEF PROCEDURE PROCWHILE BIT LABEL SSEXTERNALGLOBALSHORT LONGBSCTCSCTDSCTPSCTGIVINGO,|,S @-NLSM+b<.T~10~3# 2~U~5.~/Ȑ p-X-R-R-R-P-R-R-T|-U+&~.d+'~--T|-U-F&-R-V-J&-V-N&-V-L&-V+&-V-H&-V-F'-P-V +. +2 .22+~-ѽ *.m 0~.MDOS MPL COMPILER 02.00COPYRIGHT BY MOTOROLA 1978f-Z+ *-\.Ž 0~.*** COMPILED WITH MPL REV=02.00OPT REL-^ƚ-`Ɯ-bƘ-d  -h  -l&+ƗƖ&~/Ƙ '.~/ !`+Ƙ D -n+/J-d -h  ! + DƖ~/3-pƎ-r-v 3 ' @ǠƚdT (,\ *~E-Tƈ0&~0+. *00 -f+ !"/ -@ h+0+ 0 . 2 .22+~00 *0 -f+ !!/ -@ h+0 0~0***** K + ! / D/ ƒ+0 ! /ƒ D/+. *01t -@+ !"/ -@ ƒ+1 0 . 2 .22+~10 *1t -@+ !!/ -@ ƒ+1W 0~1*ERROR P @ȐpǠƚdT (,IJ C 1ƈ r+r9 'ZXV @6~ ~=  ȐpǠ C Ƙ+.  .1T ! 1T D DVV DX1X+4 !!14 TVV ! 141@14 Ƙ+2p.1@V ? .+V !!1U2Zİ İ+.+~2İĮİ2&9 2T. .2Ĭ ! 12 @T. !c12 @ İ2 .22+~3m DXX DV2V !a122~2 İ. !c1Ĭ @ Į2 .22+~3B 22Ī+4 Ī+Ī ! 1Ī !!14 P.+~3B T+3 DX2X DVĬV9 'ĨĦĤĢĠĨ. T2Ġ 2Ġ. .Ĥ. .+. .2 .+~4V-z 9Ĩ 4d4z5 ! 1ĥ D2~4 !`1ĥ D2 ! 12 DT !`12 TĢ !`12 D 22 Ğ+4 Ğ+Ğ ! 1Ğ !!14 T T+4ڽ DĨ2Ĩ 2ĠĦ PĦĤ29 @ƚdT (,5s78~< ~K~7  2 A G V d o t =@BCDEFHIIvvKLMNOPQSUWXvYvvZ[v]^_c`abcefgjjhikmnprsuwvxvz{{{y}~|ŌŎő~:#\23fig-7/.;YZh[hdbf^_`aedk4j0::99ch558%168%$ƒ5h+Ĝ+Ě+ƈƐxĜ+&5l !!5PĜĘĘĘ&~;  ! 5HĚ DĜ Ě+Ě @ddd ~].O~ES~`xO~qA~fa ȐpǠ SYS:Ě:&~< !!5PĜĜĜ~:J !!5PĜĘĘęĘĘƖ&~;w !!5XĜĜĜĝĜĜ:&~;Ĝ/~:J Ě+ĚĚ&~< !!5HĚĜ~;% !!5`Ĝ'~< ƈ'5h:̽ $ƈ;:,+ƈ !!5XĜĜĜĜ:'~:J Ě+Ě !!5HĚĜ !!5`Ĝ'~<Ě+'~;~:,+̽  :ʽ  :. .Ǝ Ǝ+.  .:ƌ  ƌ:. Ǝ.Ɗ ƌ+ƌ $<<<<<<<<ͽ:Ǝ:&~<~<:~<:~<-r~<:~<:½ $ƈ<:# $;;-z .~:# Ǝ:Ƚ-z~:#-z ~:#-z ~:#9 @ƚdT (,=9>T !$0:<>A~>Q  ~>      @H()L->/**/~EI K K~G c'~Ed3  ƒ'~@+ƒ5l .> .'~@y+~? *>?}+Ľ !!<Ľ -@ >+?` 0~? K f>f~?ѽ *>?Ľ -f+Ľ !!<Ľ -@ >+? 0~? K .> .+~@y?>hi+ h>hh'~@=&+h .+~@h0 *@Y -f+Ľ !!<Ľ -@ h+@< 0~@h P =*'+l~@>>Ɩ+h>f=&~Ax !`<h D=(Ƽ?&~A˽ !!<ƒ¼=&&~B.?.ƽ !a=ƖƖ&Ƽ?'~AxƖ=0&?ƖƖ=2&? Ɩ  ? . !d<ƒ .">&~Ag>'~Ax?~Am?Ɩ ƒ+ƒƘƔ !!=Ľ $CA !a=(Ľ $B.CAB7 ƒ+ƒ !!<ƒ.?½  .?2 2?2 2þ !!=þĽ $ B.CAC?CCB.BKBϽ-z ~?$ƒ+'~C=*Ɩ~C ƒ+ƒ @~{&O   <@ ȐpǠ  BX. !$<ƒ .">'~A˽ ƒ+ƒ~@ !a<ƒ .+~C =(. Ƙ2 .22+~B.~C ƒ+ƒ ƘBZ.+~C6B\~A-z ~?$¼>'~Cc ü+üü+&~A~C¼>'~C ü+üü B.CC ƒ+ƒ !a=<Ľ $D%CDD@?$-d úø úö.+~D&-d úø úö. !c:ø @ 2 .22+~D| ! <ƒ=.&B`Ɩ9 !!:øƖƖBb'~D\üBdƘ+Ɣ~AƖBf'9+ƚ>&Bh~@BjƖ9 !!<Ƙ+Ľ !!<½  ƔBl. =,2 .2Ɣ Ƙ+D9BnĽ !!<½ =,ô ôBp.+ ôBrô  ƔBt. .ôƔ Ƙ+D9Bv'~EX *EC 0~ER +9ò 'ð @ð>îî. Dð=&ð+î îBx.+ DòBzò9 !!=î Tòò9ì 'ê Dìì? %~E Dì+ì9 @ƚdT (,fÔ `  -.09BCD @TX:GEP~}8~Tu0dddd~`9 d d $ƌFuFF $ ƎFFFH7H@HLMMM $ ƊNNuNO;OP*P1PSVS $ƊTnSPSVèæäF$â+àÞ9àèä& !#Fà D Ò Þ'9+ÞF4  ÐF.&$ !eB|Ò !&B|Ò5l  t@$@& ÐF0'~Go !bB|Ò !#B|Ò5l  s@@ 9 !aB|Ò !"B|  F4 @@æ'~Gà+'~GÎ&5l  l Ì9 Î. Ê2 .22+9ÔÈ !aB|ÄÆ~HÂÈ !aB|Ä @ÀÆ !bB|È !#B|È5l  l@@ Æ9+à~HƔàà+&~H{ àF8.+-z  àè~~ H{HH|9ä'-z 6~+'-z z'-z 09è&~Kd àè.+~KèxF:Òv è+è !!B|v v. .F>v !`B|v !aB|v Dt  tF@. !cB|v  . .  .FBtÊ't è+èàè&vr !!B|vv æ. èæ2 .22+~Iv/~Hٽ !aB|r  @FD. !dB|r  ."p !aB|r @pnÎ.~K1 ƎFF. Ê2 æ6 266 .66+~K1 pjl àx. x2 .22+~J} !!Fx ll ! Fx Dà+'~Jؽ ! B|^+~J^~K1 !aB|^  @FH. !dB|^  .". .\ll JK1J-z 7+ƈ~K15l  m lj ! Fà !!Fà Dl \l\àæ&æƎFJ'~KYƖFL'FNF29à+'~KȽF4  FNâ+Z ! FZ D FR+Kyn\æÊ|FÐÌ+Îz|&ÊXjtVTä-d ÒÄÒ.~LF à+. !#B|Ä @ 2 .22+~Lh-z 9-hÒÄ   ! B|Ä D !`B|Ä D+ !`B|Ä Dn !`B|Ä D !`B|Ä DF*à+'~LÄ^9 ! B|Ä !aFà T9 !`B|Ä DƔ9 ä+ä äFT.+~M$-z 59 !!B|Ò @FVp-h Èp +l l+R ÈRP ÒRN ! B|P !!B|N T p+MI ! B|Ä DÈä+'9 ! Fà DÈà+& Èp2 2FX^9+V9FZXF\t !`B|Ä DF(+z9+T+z+Ɣ Ê|Ê !`B|Ä DF(ÊF^&ÊÊ' !cB|Ä !dB|Ä D"+ ~NF:ƚLLF &9LF"&~NLF$&~N-z 49F*L~N FVL !`B|Ä DL9T'~NƔX  XF`t9Ɣ| FbÊ. .|ll/~O-z 19+X  lFf. Fd.. .Ɣt9 !aB|ÄL LF. LF,2 .22 @ d~yC~T0dȐpǠƚd ƔOp6 266+-z  tƔt9FJF:Î.~Sa5l æ. T2 .22+~F-z 9FJ9 !aB|ÄL LF. LF,2 .22+~Q1 X+.+~PƔ&FJ5l pJ Ɣ~S& ƖOr. Ɣ2 .22+~RXOt'~SIlJF&~P+lJ+R l+l ! El !!ER T Ƙ+P5l  nEl ~S&  XOv. t..~R+l ƘlP ! EP DF +QR ! BƒF'~Q+l ƒlP !!BPL.OxL ..2+~Q ƘlN ! EN !!BP T +Q Ƙ ƘX.+~SIƘ޽ !aB|Äl lF. lF,2 .22+~RƖO|'~SI XƘlF,& +*~SI !`EƘ DJ X&~R+l + ! E DF +R+l + ! E !!El T +R5l  oEXXl \l\ jljFJ9-z 9ƔÌà+&~Sh-z 89ƚF.'ÎƖO~&Ð9-d Âv !!B|ÒZÒNNP NZN !aB|NNN&~T !"B|N !cB|P !dB|N.OZ@@ @".+~S !!B|v N.+~T,-z S+ƈàææ+&OÎ !aB|vn !`B|Ä DnnÀ9ƚâ9z'9+! XOtÊ|+zF(LV'F L !`B|Ä DL9ڽ ' DOڽ P+9X?'9 D+9 @T (,fdUK.U|.:- ~Uy  ~U ƎU4.+~W ƎU6ν $WV UUVU8vU:z+UvU@z+UBƐ"Ɛ+&~Y# Ɛ+d++b !0Obν !1ObƐ P.+~Vv UD+V2 Ɛ+Ɛ"~Y# d+V,~Y# ! U+'~V !QOƐ``'~Vӽ !PO Ɛ !QO Ɛ T~W !POƐU0'~V !"O` `. .UF^ @~SR~eR~R ~1   ~,d ~p3 !`O` !aO^W @@ ! OƘ DU2WU0`Ƙ !POƐ D`W !aUʽ +~V Ǝ"~WƖ""W&~Y ! U " !!U ʽ P. YBWXʼW'~YB"W'~XW Ƃ +$ ! U̽ @W . p2 .22  6 266+~YF4 Ƅ pƄp~X"W"'~Y W$'~XƄpƄƄ'~XƆƄ Ɔ+ƆW Ƅ $&~YF4 Ƃ ƆƂ Ɔ+Ɔ$ ! U* !#U̽ D "ʽ +̽ ! U̽ D"9 !!U(ν $YiYjYZ \h\]Y9 !`U̽ !!U̽ T +̽ !aU̼W&' !dU" 9 !!Uƀƀ~ +~Z_ "W(.+~Z ̼W*'~Z 5hƈƖW,'~Z Ɣ'~Z W.ʽ !aUƀ !!U~ !aU W0̽ !`U̽ @W2. !#U ʽ @ W42 .22+~[ ! U " @W6.+~[ !aU\ !QOƀ !RO\ PZ.W8Z .+2+~[ !aUz W<~\%ƀ&~\% !QOƀ`~&~[d !PO~ @`.+ !SO~ ` !QOƀX`^  `W>` W@. WB2 .22++` ƀz. ~z2 .22+~[z&~\% !QOz ^.+~\%WD`XƈWH&9 !POƐ D^ƐzWƀ~z ! U̽ Dz !aUʽ $ƈW\g~W9 @ȐpǠƚdT (,Td.SB \j̽ ! U̽ !aU̽ T~\G ! U+~\Ƅ|ƂƄ|ƂW  +~\G !aUz~Z 3 $Ǝ]]]C]O]\]]F4 \ƘƐx9F4  h+V5l  V ƒ9Ɣ\9T'9\TF4  5l  <\  9F4  t&~_ !"\lt t. .\R @sn<ȐpǠƚdT SION P]P !`\lR ^^^P]P t]NF4 N !a\lRL L\. L\2 .22+~^ֽ !b\lt !#\lt !d\lR5l  o@@ @"~^ !b\lt !#\lt5l P@@ !!\lRt~]ʽ5l .+~_ *]_@ -& 0~_iT$ COMM DSCT .T RMB T' *]_ -\ 0~_DSCTRMB .S EQU *-1 +TJ5lJ r T b'-z V&~` ].+~`0 *_ 0~_~_r&~`ƀ?# *` -r 0~`3 TOTAL ERRORS 6]9 'HHj&9Hj+ *^`i -@H 0~`wSCT9 @(,` ,BTd~ O~eZ ~ dOV~`:Y;Z=\ $ƌ`` $ Ǝaa*aTbbcddd!c $Ɗdddee8F4 Ɔ Ɔ+F5l  F 9-d DBD/-z 5l  8^Ƙ 9 !^ Ɛ @. !S^ Ɛ @ 2 " .22+~b !P^ Ɛ/~b !P^ Ɛ`'~b !P^ Ɛ`'~b !Q^ Ɛ@ Ɔ+FF4 F !b^@ !#^@ !T^ Ɛ5l  ;@@ @"5l   5l  =Ɔ Ɔ`Ɔ` ` 5l  = 5l  8 9-z 9-z 9-z 9Ƙ> >`.+`>+< ! `< !!^< T >+b` ` WD `9 '~c&5l  Ɔ !^ Ɛ @+. !S^ Ɛ @ 2 .22+~b !P^ Ɛ/~b|` nƐ !P^ Ɛ D !P^ Ɛ D`+9| !` `@Ɛ9 '~c&5l  Ɔ ~ca*~e&9F4 Ɔ Ɔ+Ɔ95l  R 9` 9 '~d-d /~d-h   ! ^   !`^    ` 9-z 9 !Q` 5l @^Ƙ 95l  n^Ƙ 9 &9~d +Ɛ  + !P^ Ɛ D` !P^ Ɛ D` `& !S^ Ɛ D ` 95l  9`> 9|` =Ɛ5l  8 9 ' @ȐpǠƚdT (,PȐp9,We@ !"ed . .e* !ced T  9 '-d@@/~f`-h@  ! ed Dt !`ed T !`ed Tt9 @ǠƚdT (,F*f ~f:=%*47Y\ @PBDGOT!~nLd~na9~n6L~n ~ dd~o+C $gg $ ƎgNghh?hVjjk @kR.+~l+> @kT@@'~hP +++ !0fd !9f@ T kX+lkZ !0fd D k\+m kV+l  Ǧk^D|Ǩ' !#fD`@ |' !cfD`@ D+& k` ƆD+' k` Ɔ&~mD+&~m|` ; ` ` ~n|`  ~n !afD5l @  fF4 Ɔ Ɔ+Ɔ>'~h?9f~h? '<kd:+kf:5l :@< 9 '86 bkx.+~n # b+b ! khb T8 ! kpb T69-z 9 'b.~n !!khb T !!kpb T b+b9-z 9 '޿ @kz. @k|2 .29 ' @ȐpǠƚdT (,BTȐp !Po< /~p !o<ٽ @+. !So<ٽ @ 2 .22+~p !Qo<ؽ !Po<ٽ @oj. of2 oh6 266 .66+-z 9-z #9 'ֿ @ǠƚdT (,pq8Ȑp A M~p +~p !apXҽ5l @ p`ҽ5l @ 9 'п @ǠƚdT (,~qC d Ȑp**q+̽ !0pܿƐ D q +q" !PpƐ D+ !PpƐ Dv !PpƐ  Dq  !PpƐ T !PpƐ Dq vv v&.+v&9 Ɛq.+~q Ɛ+Ɛ9-z  9 @ǠƚdT (, .09B:TX d $ ƎrKtzuauvvzzz{ʽq-d .~tl !qƐ D !PqƐ D !PqƐ !aqƽ T !PqƐ !aqƽ T !PqƐ !aqƽ Tr*Ľ !0qƐ D r,+r½ !`qƽ @+.+~s !PqƐ !QqƐ T !PqƐ !Qq Ɛ T !Pq Ɛ !aqƽ  Dr. + @dd@~+~_0d~{LO40¼s&~ts ! q tFt.s !!qȽ !"qȽ . .s~s !PqƐ D~tc !PqƐ !!qƽ T'~t9-z  9-z  9-d .~uZ !qƐ D+ !PqƐ D ! q/-z  !`q+'-z  !`qs'-z  !`qr&'-z  ! q&9 !qƐ D !PqƐ !!q T9-z  9 !Qq Ɛ @+ !PqƐ !QqƐ Ɣ+. !uq Ɛ  .$. D.Ľ !pq Ɛ !qqƐ T +u +9-d .~v !Qq Ɛļs&-z 9 !pqƐ D !Pq Ɛ + ! q'-z  !`q+'-z  !`qs'-z  !`qr&'-z +9-z 9-z 9Ɣ'sƖƘ+&rƜƐ&~vǽ !QqƐ  @s !QqƐ.1 h .sr'~wdƖs'~w[Ƙr(~yus~yuƖs'~ws&~yu~yƖs'~w Ƙ.+~y yyy_&~yƖs'~w . s2 .22+~y~y/~x r !RqƐ.s@ .+Ľ ! qƒr'~x/B\r ƒ+ Ŀ. 2 .22+~x !!q.Ox@ ..2+~x ! qB\@ +Ľ +~x> Ŀ.+~xнB\r +~xr$&B\r Ƙ.~yYƘ+Ľ  ! r !!r T + Ƙ+x+Ľ ! rĽ D +y:Ƙ s.+~yƘW~y-z 9-z 9ƚƔs&2sƔ  2ƜƔ~y.sƔ . . +2 .22+sȽq !qƐ Ds !PqƐ D !PqƐ D !PqƐ  s. . !PqƐ D !Pq Ɛ D !Pq Ɛ DƔ9 !Rq Ɛ '-z 9s9  ƔƔ !Qq ƐĽ !PqƐ !QqƐ !sq Ɛ  Ɣ . D.9~rT ' Ƙ+Ƙ ! rƘ T9 ' @{(0A  $  ȐpǠ~{L=TKNVAL*10+(JC-L0) +{r'{t+ ! sҿ D+~|# ! sҿ !1{d T {v+{ +  ~ ! sҿ !!sҿ  ~. .. D. ! sҿ P.+~|ս ! sҿ !!sҿ T !`s !as D+~'~|<+ ! sҿ' {x+| {z. @{|2 .22+~}N + ! sҿ D~} !!sҿ {~. }}r}r {p. .{~} {n D+ !{\ D +'~}N9 '|zx @ƚdT (,z, *~7.~~ ȐpOFS ^'5l  l}  xv $@|~~D~O~ý  @x}v^+t}rA}tr&~~ r}. ^~2 .22+~~½ ^+^ ! }^ Dr v+~XZ9+^~( !}` !}Zs`}^ 9 'pnljh @ǠƚdT (,nZ SEE @H T(x~I ~  < < 222222342222222(22222< 222< 5< 2! < 2!2( 2 < < 2 22 < < 22 2222 ( 2222!2(2(2((((((22( ( Djjj $n+f ! >f D !`>f D l+n\~ ! >X D !`>X Dpnt&9vn !!bof  fxV  Vz. f.X $VWـH @l|.+~+T ! >X Pl. !#NX P h2 .22+~T+F !`>X Pl. !cNX P h2 .22+F+f fl. F2 T6 266 .66+~ !6fD !1XfX D.+T !qXxfX D.+F f+f~ T+. F+2 .22+~ !`>X D ! >X Tl ! NX Th+f !0XfX !6f T m+p~+f !pXxfX !6f T m+ !`>X Tl !`NX ThX'~H+f+R @~M~OMȐpǠƚdMM !1NfRP.f @hP2 P+6 @h66 266 .66+ !XfR D&+& + +~~)+fXf&~+R.f !2NfR Ph2 .22+ !XfR D"+" +\ +K+R !QNRP.  @hP2 P+6 @h66 266 .66+ !NXPR D&+& ++f !Xf @+. !SXxf @ +2 .22+ !%&f D$+$ +,X' !#&X D + 9 Dj+j9Z\&~ƽ \+.Z.'~+f ! &f.~ ! >f D !`>f D +~X'~+f !Xf.Ox@.+ !Xf D !QXxf.Ox@.+ !QXxf D !Xf @. !SXxf @ 2 .22+ !%&f D$+$ + 9N 'L !1>KR Pl.+~C+J Jl.+~7 !6J !9XJKR P.+~C J+J~ DN+N9 DNN9H 'F !"bE.s@ DH.H9D 'B.?@B.@ @D9 '><:86 @T (,:, #*+,X~ABA ADCAADCBADDAADDBASL ASLAASLBASR ASRAASRBBCC BCS BEQ BGE BGT BHI BITABITBBLE BLS BLT BMI BNE BPL BRA BSR BVC BVS CBA CLC CLI CLR CLRACLRBC% LV CMPACMPBCOM COMACOMBCPX DAA DEC DECADECBDES DEX EORAEORBINC INCAINCBINS INX JMP JSR LDAALDABLDS LDX LSR LSRALSRBNEG NEGANEGBNOP ORAAORABPSHAPSHBPULAPULBROL ROLAROLBROR RORARORBRTI RTS SBA SBCASBCBSEC SEI SEV STAASTABSTS STX SUBASUBBSWI TAB TAP TBA TPA TST TSTATSTBTSX TXS WAI NAM ORG EQU RMB FDB FCC FCB END XREFXDEFCOMMANDAANDB ~ 4>'~l&9l .+q @.  ȐpǠƚdMM *w -f+2 !$2 -@" h+Y 09~* K 0> &~^&~ n+2 0+0 ! 0 !!2 T ^+ 0+0 ! 0 D 0.+~2+ 2+2 !ؾ;}@2&~&~r 0+0 ! 0 D + 0+0 ! 0 D 0.+~r>+&~>'~ؽ 0+0 ! 0 D>'~! 0+0 ! 0 D 0+0 ! 0 D>'~^s@60 0+0 ! 0 D~8 l 0+0 ! 0 D !нs@0 ~+n2  @8⽈0+ 2+2}A2&~ 0+0 ! 0 D'0 +06&~>&~>&~ 0+0 ! 0 D6* !#0 D 04s@60 >'~߽ 0+0 ! 0 D 0+0 ! 0 D4 0+0 ! 0 D !`0 D>&~X024'42 2 2~@<2@6 $X<d+( *"+2 !"2 -@ 0+p 0^`~ W 9 '~|z @T (,,, ' 6,e, @XXJX 9N [ 9~K~X++-.K2~e 3,! @BTX:.T1d ~MM~M  ~vE]Y%1~wFUZ&2~ ~$~3~b ~~ ~G ((kkkk||kkkkppppvvvvkkkk|~F6S>xxv~ƀƀt|~~rzzx&| nrp !!xl lt.+~3 !Q, ~j !P,~'vj $lFWr\l !!ܽpn9 !!ܽpn nxpx\ƀ&~+l ! l D| z+ƀ\ !!Ľnhfh&~ !!Խphd'~ !!phh'~-z T9k`hƀ9xnlf !P,ƀ @h. !S,ƀ @ ~2 .22+hfjdx.s` .b b. ^j2 .22+~ b+\.\ .+Z !,~ @. X2 .22 j6 jZ: 6:: 2::+~.s` d  .l lb\ !P, ~.\2l .2x&~x'~xj'~lx !P, ~ !R, ~ ~l-z +9-z ,9 n.+~xj&~b+'~ !annx&~Z~x'~l ^h. !$x x"2 .22+~l !!xxx& !$n"nƀl~ƀl~ ^TV.W8& V.V V+. V2 .22+~ X.+~ `. @~M'd2~M  ~Mdd~M ,  R2 .22+~ƀx&~x'^4&~˽  z.  ƀ2 .22  x6 266 j: 6:P+l !!$l P.+~½ ! ,l`@z9 +` :ƀ !x@zx9x'~+l ^h. ^j2 .22+l^l&l Th. Tj2 .22+ llTl& ll !!lNN&~x&~ !P,x'~ ^h. ^j2 .22+ !U,x D$$νƀ 5l  \p  ~  ``  XX`^XT5l  : `5l  ; X`N N'9 !Q,ƀl  l.  .. l.l5l  p l9-z (9 ! x&~ `X. R2 .22+~`'~x&x ^h. ^j2 .22 x 6 266 @   70 ddd,  x@: 6::+~ν xƀ. x2 .22+ν xB. xD2 .22+~xF'~ nH. nJ2 .22+~ !P,ƀL&~ !,~ @+. !S,~ @ 2 .22 !V, ~ @&6 266+~ xN. xP2 .22+~` =ƀ~ !P,~'~ !,z @+. !S,z @ 2 .22+~ !P,z @R. RT2 .22+~ !P, z'~ !Q, ~l.W8l.j jV.+~` =ƀ xX. xZ2 .22+~l* \xx^Px`&bP+l5l P j+xd' ` \zxf& ` *~|9xh'~ !,ƀ @+. !S,ƀ @ 2 .22 !V, ƀ @&6 266+~` =~` *ƀ|9 ^n. Tn2 .22+~ν !x@zx9 !!x x. !S,ƀ !T,~ P "2 .22+~:xj& !$n"nƀl~ƀl~ xƀ. x2 .22+ν`LXJRH `XV  `lFF`  XnDDX  RpBBR^n& `+`Tn& X+X@n& R+R.sL .>.sJ .<.sH .: Vr. ^h2 ^j6 266 .66+~ ^h. ^j2 .22+~-z '98 xt. xv2 .22+~ ^T. LJ2 .22+~ ^@. LH2 .22+~^l' F+8ƀ85l  \p  ^n'~xx&~hxz'~T4&~LJ&~ؽ !Q,ƀ @`V5l  ; V x|. x~2 .22+~z|' z85l  \p  |~' ~8 ! x@zx9 '64 P66V @4n. @4h2 .22+61V D6669 !Q,ƀ^ !Q,~T !Q,z@ !Q,ƀ` !Q,~X !Q,zR9 '2 @(xy ~Mx@~Bx/Yv{E}; .Bx`x:Sx x x:;(x)xzz/;:2xMx+ZY xOx2. :; :;  B; :; N I7P pJ;|ZJZ_ W? p];|_:|`' :x  p ;::;.t!!f.f&  ;:= .:Y!;:.:m;:z/:(x)xn:Y:Y:w;:= .:~ ;  ;  p -xxzMxaxOx4x#xex)xi:Yex!xex'xMMMMMMMMMMMM~ #$00#$0F#$20#$30T A B * ++ 0 !Q,~..h&+0.l&0 .4. .n2 .22+0},@20,&~* !Ľ,. !Q,(.'~*&9 !!ؽ*, *+*~i-z '9 ,+,}. }. }(  & !$Ľx" & !$̽x"} (    !!Ľx& +/" !ν" !V& .+~ $ ҧ Xl  . x2 .22+.1 ..1 .5l  p  5l  p 5l  p ~i F`..' FF DX..' DD BR..' BB5l  p F5l  p >5l  p D5l  p <5l  p B5l  p :~i !P,ƀ !Q,~ P.+~C~i !Q,ƀl lh. ln2 .22+~C~i !P,ƀ !Q,z P.+~C~i !P,ƀ !Q,z P.+~C~i $ **G !P,ƀ @.+~C~i !P,z @.+~C~i~l +&ƀl !P,l'~C !P, l '~C~i.d.+&~C~i 3 @ƚdT (,BT~MȐpǠMM !P"x'9 !Q"x . 2 .22+9 !P"x&~n` Yx9 Zx Y( x 9 '5l  g 5l  = 5l  = @9 '@@ 9 ' @ƚdT (,~MȐpǠMMMM !Q P޽ !ܽ !Qܼ+&~*~ !P &~޽ |.+@5l @ 9*~ !bڽ !#ڽ5l @@@ 9&~ ڰ޽5l @ @9 !Q .@.&~o !P'~]&2s 2.1 .ؽ5l @ 9 ' @ƚdT (,ȐpǠƚdMM !/~c !P+~ !Qս PԽ~ !Qҽ !Qн !! ν !b н5l  =@~ !Qн !b н !# н5l  =@@ !P &~ѽ !P ս @+. !S ս @ +2 .22+~) !Qн !b н !# н5l  ;@@ ` ~ѽ`  !Q ̽  ̱. .Խ5l   +ʽ !t ʼս5l  p @" !qʼн !b н !# н5l  n@@ +o|9 'ȼ @T (,dBddP(MMMMMMMM !+&~ !P+~m !Qǽ PĽ~Ž !&~1 !P/~ !Qǽ  @½ !Q !Q W ¼+&ƚW½ !Pǽ DW !Qǽ @Ľ5l  = @~J !Q !Q !! ƼĽ !b5l  =@~ !Q !b !#5l  =@@ !Pǽ P..&~ !Qǽ PƼĽ5l  ; Ľ` ` !P &~J !P ǽ @+. !S ǽ @ +2 .22+~ !Q !b !#5l  ;@@ ` ~J`  !Q   . .Ľ5l   + !t ǽ5l  p @" !q !b !#5l  n@@ +|9 'ƘƘ+ !  !!¼ T +& + ! ¼ !}@@ Ƙ+y9+ ! ¼ !! T +Ƙ9 '@> @@<+: :8.+~\ !!: P@.+~ :+:~&F4  5l  s< 8.+~-z W~ 8+8 ! 8 T@5l  9< >/5l  @> 9 '  P  . D.+9 T9޽ ' T޻ܻ+9 Tܻܻ9ڽ 'ػئ֤ڧ9Խ 'һ TԻһν dfL&9hiJ&9̽ 'J̧9Ƚ 'ƦoolJ&9hi~9 'Ļ»J' ħo9 'J' 9? !Q,ƀ^ !Q,~T !Q,z@ !Q,ƀ` !Q,~X !ڽ dfL&9hiJ&9ؽ 'Jا9Խ 'ҦoolJ&9hi~9 'лλ̦J' Чo9 'ʻȻƦJ' 9? !Q.ƀj !Q.~` !Q.zL !Q.ƀl !Q.~dy xy (0200)  --- PAGE00000 #TOTAL ERRORS 00000****ERROR 00000**** UNDEFINED SYMBOLS bNARG bVf~VgAO&& LLL&&%&Vgߺ߸&ߵA;߲߰Vf9ַ'?1&!?&?'~)K'aF ST0AO&&ooSQ&&.*C!//&۽R_opq'~B5~BVF ?'/!ؽSTDK!!?&?&~2~)K!?&?&~(? %G!?' &J\9&&?( !& !!?&-9!:!?&9:&|:_? ? $ -&9Z' ) ? !??!??!???)%= 2& ? %Ƚ))9G%-&9/9L95%-&9Z'<9)|99l/2'?2! ?3? 9))92&(- d'!' 9 9"І Z& !"н)9-'9z9'9F39fffg#R ##!H$ !#)H!F9R R&9ށSUŀ'ւ"׽R"U'"ܽR+U'5'e"߽Rop"Re+ 6p"߽Rs"pƁ+ 'op"߽Rs"U'oƂ+l'~+g"P}NU@'/F5P2 '5' &2 ' 'NFP FP D5'@ 'mR&XP PQ+" &+"" P5'FN42 '5&FPU '+,''7֍R5 "F#I2 '5&F P '!"н)f9"MLJS*'<' J1K, -'L" #@'oNSLzO&}N' zN ~-1'SS9.&-' J"K9'L9@'o' Lo o&9~.0&R~,&.M'"0uSJ SK 'SL @'\SL9~.Mŀ'Lq'5' / yJ&'-? &///-ޤOr/ v',ҍ'0uSM'S9SM'ߡ9&/'//-tNޤM'tt/zv&9&/&/Kr','2'=&֦& &֧& &֨& ֦&@ ֧&ƀ ֨'/ OTТN'l#Q* #C0KN' ".ޫ߫|zNN"ޫN߫z| +/~-|0u "얜#O0 zN& #ۖO0 9F 76FG<;%2' 6*R239|Sߗ$STSRߙ96&ޗS'! 2ۛכޙRߙޗߗz&SS9ۛכ$ RCޙR !$ )9|Oօ$ $ $S$ߗ$ߙ9NP'&'& M@'*'40uM@'|$o$P$JJJ9ޙPߙޗߗz9'&$ &D)9|% ߤ9"Nޤ߭߫ & "0 ƀףOޤ SQ߫|ޤSTע90u|9'x't'a&U0KޤO֦#L֧''L֨''LM' O &ޭ ߭ޤ& Vޤޭߤ96'&5ޫ߭Oz|&z|ޭ2HYHYL&߭9'%ޫޭ'XXL&߭߫|9/'/% &&D)91&4.&1'.`9$ $ H_>o:p6C2H !$ ) #90u6$ q$ o$ &$ &D)9~21&:.&7S0$ $ H_ OO#Ħ#&CH !$ )|$ 92$ #F$ STOB$&' &F$ST& &$ &D)3$ $ JRnooooo& N[FN6F2NSQ&%&P& '4N+FN76F23o|QN& ~2޸L&~2 ŀ'*F HSTLQ6H2 L'$F `HSTL6H2 $'%F8HSTLPQH0PPLMA'~124$ L% 9 FHHF9FFFHRHF9R#7R&$ &D)$ JR3RRJCSQJC9VfOl#Jm4x4'~(&|#J0-9.4  <'7:+L:4R:?(&~;3J3KNL.'DA-Z/<0-9/6$'@'%'&'''[*'aؽR~; H'6R2011_77G7F7nFH9XI%9)9IFG9   ߍIFGHH97HH39Rf0-9/ A- F.  9 9Rf0-7. 9Rf0-9. 9Rf0-ف1.Մ 9PRfA-Z/0-9/ .'_'$&V'V&ԆR όV' V' 96Q &PA'B'X& ޽R'K~>Id'-T &'PN&!QA&RR&SG&޲ '\'U~>I޸F'3P&Q&R&S& T&U'gO GFFGF +'2HO4+'666666֋7֊7766666U6 O&HF29Oۻ"& ѱ#ݽR~BQ׻9' `&ӽR 'R+'Ė&F SQ' PT'0J&HPlP޺RT HRRP F @&l TF29&A 9OJK޸P'MJ& `&| *? @ PQA'P ۖJ&HK'M' R !"н)m+')|JO4?QL %'')zJO4?QL *M' R !"н)m9 K&()'J!'5)m|KO4?ܽQL"RLMM'PFRST RzM& !"н)m9M& LM"RP76FRST 23R RzM& !"н)m94xPS&"N&"S;S&"P ŀ'3 ; `&U" .'M 'D 'R" 'S"Ц"ӽRPF"STP O K SQTNLM"RzN&O'TOTNT&';TRRRSQRzK& *N'zM&R !"н)m4x zMML' R !"н)m9H +'KֻйAQLMM& "'9+&LMDVLMXIFGXIXIGF۹A'lN޸PNRJP42"#&92"&22"&+2"&$2"&2#P4KF271zF&JHPQ"PRS'R J&L&M'~AL9 FGF' "F 9'L}mRf & _opq 77c$ Roh*50jk'!R'%!')m>~)OK>|!??~(<-& )%9Z')9}VURfN& RfO&|U VmPDQ$Z&Z+'Z'!~C"DSDC)%DSDC)%DSDC)$?],U&nC`' Dd'C&'noU&Rf7c$ ,&mV~B`*5~2ٽR ަP&$& Q&& R&  9S'J& 91&U'|1~C)' .'R '|) .+)&薄&ށ&|.&ޖ'&چ!RO! ͆P&ߵ9U-'~CVmDQ$=&ENDBEQUDFCBFFCCEFDBGwNAMHOPTB}ORGJhPAGILRMBHiSPCISETE/BSZHTTLHIFCP.IDNTIVXDEFIgXREFICOMMJASCTKfBSCTKkCSCTKqDSCTKwPSCTK}PAGEILMACRL!ENDMOIFGTOIFGEOIFLTPIFLEP IFEQPIFNEP IFNCP3ENDCPFAILQZ? !O?:3H4!/L2[[[0[[?SA[Wq]'&.\& /!&H [0[[? ~)O["' /["& ?(/[[ [?[ &~Z;'~V[= ' &[ -&= [Z' [& ~V[[?/#IIo=&l~Wn[?]''9[0[[?9=' 2!!~W!'>2[=' LP>?~X>#&[CN' LP' ~V>[ ? [[[!0[[?AL[Wq]+'*[0[[~VDK>[ & ,' ~V[!!>!DK&[[![ [? ! !"!!!?&?&~W~V|@='|1~W[='"![![ [?LX.'RO! _[![!0!! ?[?]' ~Vȶ!0!.! '|' LX.'RO![ & [ ,&DK!!!.'!$ ! !!!~W[='|- $=&Y%)_ [?/"?/%[3~W~V[=&Y%)_2[?/"x?/%[4~W~V[_ & ,'\ [[[9=&z.'&LX.'!RO!|)~WZ? ##%i>&%>#Lx }    *9 } ~ ˀz9& } ~!"oo o 9? } {H?/$ OƍZ&4%Z&L$$$$$ @CN o ==  @ &  @  y{}߁!O! $&!%%%%C%%"! }  5;Ȏ$z< 'X;' 'PC<D<E C&D&E& G<Gn w&%B~'</< ';' &; %E~' 6  6$7% H %>#3$&?#9?#~=E&?$~'U&6$~'F&&~'N&"<R&&~'&~'N&'~'F'~'v'~'_./-A&. R& /}%'%`~'X&͗-$)<=&,'~=~' &K_KD*+E7! ' @! -'~)Y%&\&[',QR%" %%$%%\[%"% %#%%' &%&% $%H~'%%%%78&ƀ%8%XI$|%]'$|%Ƿ%%%%%/&1'%ǻ%%% %TDD%$|%Ƿ%  &L# < $L$O2}/'R }-'X$%%ȅ '\&l@$&}-&C6788 %{$z7&7)87? ~'.2#' > O#L, -&3%O@Z&778}/& %%ˀ%%җ787% }H%1&~+-'~JO%ڷ%ن` }I#%ߖYZnmxwBA }CO?C%%ZY%%C I#%S`&#CO֩I%%%%%ABC K%I}%&?I@ [AHA }C%AC`I#%MC ۤ%% %%%%%%%IK AHA ?%&~J.~IޣH/#//=/I/S/D//P// I/Kޣߡߟ -'0qI_?AB;*QeSgUiWkYm$$$$O%%C ~'~H'~'v<='~'!!"!?%~'P&۽<=&޽>FA'!!"!$:& <M&<_]&,&! ';!6&z$&~'~:'~' ' ' ' ;'< ~'  {&~5>F=&Ӷ@'$7 H>F-  H$0'7~='?A@'$$ H%2~= &? A'$$A ?  &H ~'?,&-<A%*'&%&?<S&<C& <T&9F\&,}?&h>FA'`$$GHIH$$~'~ >A'<$$} '}?& FFRQH}?&i'%&$~Fا~'~~'v~'A'M&\*+E7~'N& & '%f~'#~'F&#~'T&~&uU&<G&'<%=&6>FA'$ )$ H%~'&}/&@&& }.' ?$%M&]'?/$%H~'%?/$?%%< @ ' @ @}'' ?~dT&'~.D~'vN&3A~($E&<=&>F$A&~'?$?%4~'~67/"611111077444/>/G/J'S/U/TˀXI$|& 0 $zƀm$|/&S/ 232/9D' ~'v! !<$%@A=' :&< (~'</& <O&J` #9  '%% {&%+~'$7 Hg9$8 ghא k9$8 klה  m9$8 mnז p0'H ޟG";!3'~0! ! !'! ? {&~5o'~6۽7͖?&o! !  V0''ޟ?%"ߥ֠  נ /ߧ 7ef  O'BA$ %4'CO_ef~7~70'! 7 H9! 7O ?'ֽH% &I0'Ɇ@  i '$  !'+''&" 0& '?'  g\"0&   3@ #3ܖ?'=%" ֦ O֐ ֨  ! 7 o o H9! H ~67! ! AB 9?HPO9 7%z>+z=*=! 9i%i%I K@ i% @G&(}/'|9DG&7%%֨7?I II/&9\:f! t%&(%%ֆ%ؼ%&7%L%%%%`~'3Z&9 '$&$9!@0'& '&@?' ! !'_LKH6 !}?'IAB}-&~I@#1K'LK%L _LLK;* #DEHABH^EABM_DBBAAzD+GIMM}?&IGH MCH !~<7I@M9!7!!7!!! /#!!ƀ &<>)!> \O!!!! !+!!M' 1 '~>/ 9 9 @! 9 $DK ?N! 9 =9 ~= $&&~=-'~=t}%&~= $$ %%½J:OCJ?%7u$$9:9 HOCJ: %% /'` %%Ч %%ĽJ:%O%&%?AH% 67?@J:32?%'?Z&A چ9#O?%A;* @$&$ 9+'~>/!!!!~> '" @ ,'O,! #;~'.&F9&? 9? ? & '?oo 9?9?9? ? ? ? 9? 9? 9? 9? 9? o~=6A@$$O}6&.'$] $$$$@$$J'}6&.'$'$0J}6'$ $' ս<_A%Z#90%9"\9O9&AA0$J<zJ'0%9"0K$$XILMXIXI%MLK$$ ʁ$&AO$$J<zJ+0%9"0 A%F"7K$$XIXIXIXIK$$ ?$7O @?9:9 H?$$ A=A=9RO$>@@& 9A":'C@&~'G:&>FA'$')$ '~@_$$H &N&C' DKH ?N9.&>&$ $>$ $<  9?@ G!!A }C ';0&,7 ??AHAzG& !C G!ACH ?'A!' !C?@$H^ $NO$$!$!C9A' B &~'v~'FB UAPCDSDAP$!$!CDOIC }? &C' J'~C9!AI|C ߦC' Z&&~Bp&~CL '?H I&RI$!$!C!!AEDG $ $7EHE$7EHEzG&߆ !CC AH^zD& !CD!A~BbI&5I$!$!C$!$! $ͽC!!A  C AH^A?D~BA!' !C9I&-$!$!C!!   I?7!H?OT!(H^? XW!-H^? ZY!2H^!C~Bb?7AHA?AE&PAA?9 &֬'DD>%<=z9D ?  & *&+E7? $$!$!C!!  A !/! }A ':&- !H^A !$H^A !)H^CAH !3!A|! '[\ efpo!H^A &?' QR!$H^AQR\[!)H^ yz!$H^A愦!)H^Apo!.H^!E&P!CA &9~DQSUWYGH+' G w[Copfe&}1'Lפ۠&;}1'6?@%%I%%@?%%%OI%%%%//[\yz&'/?@愗AB&'Bzy%[%"\$~Fا[\ %&'=AB\[$ *~F?@C\&['G$~Fؖ?@QRHGGxH&+'|Q '~E[GHI@HA BC C45ABxI%7OD$$KLA9K8 C?@\&['G%HGG?@QRtH&+'QS&^T$& & %H~'%K %N O?QRQRfe &֤XWפ%%ZY%% } &9< '&J<X@ A?}<'  ?BA # @&?QRBA  H ۤ [@?$ &]'~FABGJxJ$BQRA":%B$4\[?%(&@%"& ED'EA'ABC 9 & } ')&  A"%B$ ?%&@$H C 9! XIXI87XI87%%787978DDDD09#09#z8'7 9 9 9${$}742Z&19${$}9 7  H 9 } 9 & 9 79&97Z& p' 9 H XF78XF879H '`&|&9 9%}@'7F_x7IY}0'%%GH%&s% G%'R $2 $ %%½J:GHGVTTO%ι%NMH'DZ M' GHJ? Oƀ$?G%$$FEF$F%KL%$ P%LOKL KL%%?'!EZ& I7EHE9IK' GGF~I{9~>~>  !"9<:'~'~'v>F/&A'$&$'K_$%'"%۷%ڽKD201 &%PJ%%|%%8%} & `Jޡߟ9%߼ '%ۦ%%%%`I#%9%c~'  {&~5 O %%%۽H 9<R& </& K_~KDO&~J`~'2'2 &%ݦ ۢע90'D0 &=֠Т% %ݡ "% # XI$\%%%%96'~4V#'5M~4GP]ERROR TRYING TO LOAD- RUNTIME.LO 3 P? ? PP]`P_PPo ^P^P0"~\H~\؆PP'~\Z~\Ё'~\d~\Q'P^&~\w~\P P'~\ &~\~\9PPPPP%~\L~\J'~\P&~\~\&P 9P 9P 9P ^P0"~]~\^PuvP &~](P ~]=PxPxyP Pz{P P0"~]_~\9 P _%*_YzP&VFFFF# "GY9Q&PP '~]P~]P~PP33'~]iPmP~]PP^P^Q'P^LOP o o \ P &~^ \\~+.147:@C=33'~^P'~^Z)~^_)i,m/{258;PAu>"D~^),/258;A>9DP PPnRUNTIME PPQ)Q'Q'Q)&Q)Z&9Q)Q'Q'Q)Q)Z&9%O&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 SPECIFICATION4 &+ $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<*~#~#~#~#~#~#~#~!!~ ~ ~"~ ~#H~#~$~&[~#~)d~(+~)a+bz N2"& zAo&~iznl >o &z'~# C~#@#&@; (- 011+ 'nnn0T11TjDETD$ D'- D~iE$Tn0T11H*TJ'Z&nn#0T11m'ZT'XT@'VF'~+!k}m+W~l~!~!~!~!~"J~!~!~"~!~!S TX NX H XZTnCS9X X}m*M']mD$' 'CX$ O_"7DE2*}m&9XE*IJD*OP9mX+' 'XVӍX I 'OWVE }O+ LxPyO+&GJIIJPO$PO  yJyItOvPzG&IJ~!tIvJ$POI' xPyOO&90j\H$cb`axb$ jj\^xb$ Ijj6D2$ 'O^&ba`+\*11jn#4#j~#SUBSCRIPT ERROR AT 0V0ZX &X@''V'VVX 11Z[0Vn ##~# $~#9?9~!~$~'~~~~#0߲11޲ҁ-޲߲ ')޲>(&'޲n0߲11޲HH$ߴ&: 4$ߴ޴ߴ$m޴ߴ'ߴ뜴'~$M޲nӦLJ& DDDDֱ&~&ѐ?%&jL&% &j$%&j&j&j&j&j&&&>ְX$(n $$%%%%%%&&&>ְX$̽(n ӽ&j~$mֱІ Z&~$Ж,0L&޴%}' ,!%|$6z"/9#2m*}'7 0- & ' *- 'd _M,SЗ9޴ֱ&|' ޴~%0<~%ֱӦЧZ&~$(&A#%Ӗ~$z' ~$'$m9М>' '>>9&~#&~#M'~)F~#߷ &&''''B&22&&&>ְX&(nӜ' ӽ'~$m Ӗ,~2~'B'~$OֶXII޴ֱ&oJ߮'ޮ& J'yz. 񖱍qJ&~$u$A-D7xyJ&۸׸ Z%%׹ַHYHYٷHY_M,S׷ ,'&ϖ'ַCS6 ׷ַ޴~%'9ֻ+&'z' '-&| 0- 9.09 9>І /~)\'*+#?>#߮#ޮ'' ' 9 >'҆\ & 9Z$|9*+`+`+` &*_*^*++`=' 'M )*F)0**J* *))?' ]-&)_? ~#)?&**+_*)?&|*_}+'L+`)*F)Ն0)*H))))?']-%) )?&*)*))?&|*^9)Ѷ))ы)))?' '~(??)+`*^(}*^&|)φ9)' ))?&990' &*^ *_' *_)?&?011nM.'96_O#$]&*L#\# 29 ''O9*^'9*_'9DK0XXXXXXXXSADK0ZZZZZZZZSA+b*`*;DK0ZZZZZZZZCMDKSASAPRINTER NOT READY#VKIƀHlXQO NY,,|m+m~lIO&LR&JP' KQJPF (O+P'IXxOO}I*mD$' 'C fF&8]*|!ooo_'dffffJ&\ 薺XFVo/29~,~-I~,~-~/~.A~.A~-~,~,OC-cM+~-IIO IO OO~-IdfOhMS9N_HYGG׺ooG/ J&Z&}'!~!hiiii9IO\KQ^Xߺ&J .XX*  X'-\I^K 喺* -qI,K/F&~,ʖQRZOP~!-qOQR9}h*5|g&0|f&+|e&&vevfvgvh J&xdvD|d|d)yDwddOfQm&9_vJvKvL '$RfQfePevevfVvh gIOĀDHxOO) Fdd/2}D'|d~-s*6e2& &?D Ā?|E _Oefghd~-s IHOX '7'8.   tJvKvLvM9tPvQvRvS9.dލI*I/fO*O/fm&lMShLRgKQfJP('eve wevfvgvhJ&|d|d( yeV~.&e}e *dr )vdyhygyfyee&d!~-sMShLRgKQfJP% ''hY& j)j lVf9hiiiJ&9o9ccccl& l& l&l)9 9 ffffJ&ll9O&~.&tJvKvLvMJ&tPvQvRvSMXyLyKyJxhygyfyeSLRLKQKJPJ$SLRLKQKJPJ |h &xhygyfyeJ&IOĀDHxOO(*~.&~-)~.1 DDDD'|޴_HYGG׺&ȗɗʗJ×G IG. 1'dffffJ&|G z -.Ȅ# Ƚ1|G &_L]&\// zJ&G'o,J&Z& }'-־Z& }/ 0@'|,}'NJ0./A '!E+*@-_\ ,/:9ЧJ&.JЗ9ǍW?=b99Loooo1-+)E%AZ&&zGhiiiZ&9hiii9tvvv9̦ͦΦ9ϫΩ̩ͩ9Ц.'',&' DDDD_׮Gޮ''%12 .&'% 12z E&O'% HHH }'@×oooo'>dfffffffJ&|G&/ 1z ' Ƚ1|&Gֺ'޴ǧȧɧʧ~%$ l&l&l9+_ !ω ( & z&~3Ȗ#" \HY$|\]\\*> {V*+XV?*!?&Y*`*@**B*!?&F*!?&9*`u\v]w xzoyo{*!?&*!\  *!_? ~#* &4#&$4~ F@*? ~#&$+w4#*?*N&@i$%'&#""*i""4 6$&1&i*4*&'V2M'-'/'6 '`%00'Ľ&2%?"*7 2 23J. 23*3J. 4#i~ THE FORTRAN PROGRAM IS IN MEMORY AT LOCATION MOVE CODE TO COMPILE COMPLETE}f} ~SASTOP FKEY** LOMOTOROLA COBOL RUN TIME VERS 5.17 COPYRIGHT 1978 BY MOTOROLA INC. READY - 7 FILE DOES NOT EXIST6 6 6 LOAD SYSTEM DISK & REPLY N1 0 4243=15 6!PRINTER NOT READY - RETRY (Y/N) ? 6!6!INSERT DISK ******** INTO DRIVE * (Y/N) `17 ** ERROR ?? ** AT ****UNDEFINED ERRORINVALID FILE NAMEKEY OR LINK CHANGEDDISKETTE FULLFILE NOT OPENCURRENT RECORD UNDEFINEDINTERNAL FILE ERRORDISK ERRORILLEGAL REQUEST THIS FILE TYPEONLY ONE FILE CAN BE OPEN ON #0DUPLICATES NOT ALLOWED ON THIS FILERECORD LENGTHS DON'T AGREEDRIVE ONE HAS NON-DATA DISKILLEGAL I-O CALLVERSIONS DON'T MATCHj{     #=Wr[8 `  & +,M,, $Z&$/$#9 8`$!-~- ''S$ 6~<~c$ecce& eZ&~<$8`%'C0' ~$7! ~,N1!'~$7~~8`#,~$O~*O~,7w!v9~$$܅'Y197w!v ,~%S&9,$/&M&S91Y' %'Y196H2<߀ހ&9l##= #$!#&"_9]Ā0\$x7qsMkm3]&m@'$x&m sm$r]m&7k"kmx3 \ -k&m'T!}r'@k!}q'@m!}9 s'@ ~ږ\'' '~:~:w~;~c&]+ e'e&9c',&e& ]* ]c']'9e']+ &e&9\& be_'~!6^n+n3^/^]*_\'q+ q*-:9q9΍>/ύ2q*a'eb~Z&9 0]'"+Z&b9'|b\&9' Z&k2'av'v` i&!^* zkL&`0aOcegg&vv!\ghX;^zg_b^xb$q*-. - +' xb$Ae&6c&9g&h -+&vv zlk'`&0'|cƀbixb$ixb$|cxb$|exb$$k'`'z`a 0'|czk}c&xb$zlC-.Tzl/~99XA $*$$D+-.0,0 / CD!lo_k; qk& Z&k )&Z&+'-&@qZk.'Z&nk_'73]'n'Jo6]' 3~%@96@39}&ҽ,9]&}+37 Z&33/#"~9c70,3c]@&&!1,9Hn34$|34 1zn+ƀ3 F#P$]tMf&~ B-~!|#p7tDD DP'"2#A;77 .t9'Z./ŷцҽ$M)ս$M),96,~!'K}/ }' ,9!5&9)Z/!Z&91:95: "9 p6&:5& ͆5$MnR&!n+m*-8n&.0,Z&9 ! 65:/ 5!O59:%|69367(,2/,2Y'~}*,323 oo 59& Otp4~ F B]'4~7 77/ 0- +- &+ !,` $t/k $t2 $t-8t~'#.m' ' n~$7M9~90(D 1(tu 8`,,22/2Y'~t5~""""" " ""]!"n"n"r!v"r"r"}#"}"}"#""##""##"""!""##""~$776$߀ #7DDDD #6  O]*ہׁ239DDDDL`$M)]&J`#`Xހ;`' M߀9]$Mck$M^$Mc^']&9].zk&9$c$M)dc9>M$?,' >' ,W<=~7&2#S,~0 +l J+l 96DDDD29 -09  ߆ݶ܄ܶ܅&) 9߽C܊܊݅&) 9+?M&7 &) &%   .9 $L +&~% $L +?h  (00&( o911~@Ҧ' )J& 9))C)l܄ܽ)+o $L +++: *& ݶ9~&9& ܊9z9ہ &9&܊ܶ܅'~'qہ''&4&9  z޶ޱ"܊ +(9ہ''&;+ ( $L ߶܊9ہ'& ۶܅'>ہ ' ''&~''܅&+ (ۧ|޶ہ%#' &(ہ &+ (܄ܶ݊ݶ܄9ޱ&܄9'$L 9*η_+++0#9&~(с&~(?M'~( & '~(9$L &'~(E9 ++0#9+uv '   xxy z{      .9'&&''Զ' 9ԧ9Ҧ'۶݊119Ҧ'~*܅&~*'9Ҧ'~*49&~*pۄ'&ֶۧ~*'&܅&~*?9Ҧ' ݊ @' ݊  '֦݊۽&݅&~*9  _%*_Yz&VFFFF# "GY9$$$w8^~8#9|4.S&~+ӶT'~+ӽ/ U& z +.DX`& 8\~zo,V&WVX`&PWXZd&B&|d 6.DX`&+z36Y~,|Y+WZ&~ WV',3l9YX&2v~??M$|Z ~?v?M&|W9o":V&5~/?v?M&|V z_~~| 9|4.S';T&6|& z |VX[&&|[ .D, V',3l9X`&'z36~,~&|XM/|V9| ~}|8[8ZNi7N_~vzNi79|4.S'.T&)|/RX&.DX`&z36-x3l9~?v?M&H~|&:&6wv8Y8X~8W8Vz i7|B j9|+|& ~E|B9|4.S'<T&7|/RX&".D`&z36~E|B j3l9'L#|X [C& D|'I2|8\sts>C+0'|` C|D9|v|/ -|T B|'JJ>_M,S8U8Tz{ 8Rzz|'|Tz,|S9ULU&;'6>t  |&v>t  ?M%|U z 9'L" 'z#|X9|4.S'7T&2z&0 / ]2bc&04^3l9zz' $l oz'~0|&2`& 5\8P~ 8N~`'~0k_kL%~0{_'~0{|k~&~0-'~0h|_kz|E~|&5k.D8\~8#~0xL_~~~0_`&|cz9ku8NkL$&u&!|k&|u L_ Ӷu&|c +k|vMi79&z ,.DX`&z36~|B.DX`&Iz36vN_~zNi7~|~|B9kzl^8\~kl$6^&1|k~&^]k z_~~ ¶^&0 ^&/9]& z ^^b&F.DX`&3z36|-~/?v?M&|b 2 ^']'C'/ 19v~??M$|^ ~&|^9B':DCsM,sst8\s>40'|`B9|4.S')T&$/c`& 0|'4^3l9pq8\8]~zqkkq$p_~~|k 9Z'j['j; T'jb'jc'jS&jX' j`' jr' jO' jP' jQ'jR'jd'jf'je'jg'jj|9|ojXVZT[`bcrSdfegOPQR98^40'|`9|4.S&~5T'~5zoooo|'8N8O~ 2`&5\`& 8P8Q~`&DkkL$+|k~Gz&~L_~~ |&5 4^3l98^=.0'|` CB7D*'|g9C8\8]x.0'|`98\40'|`9|4D&5 2`g'~6| ?5?M& |S| o5\`&g| ?x?M&8R~,|R |o|S6 68Tz6նl&|P+ x*'|O 8Rz-|O |QS'>.T&6|z'|e #|,zK&|f zE|S3l9|JJ>_M,S8M8L8RFJi79klk$#|kz,|lJ_M,S{zz{ 9|4.T&zF2|&7ʽ3l9|h+|v|&h. |&h' o94278R,F7ʽ3l9k8Tzk$#|kzFJ_M,S{zz{ 95\8R|JJ>_M,S8M8LJi759kki$|k 9mmn "&$mm~o~ 9 I 9E  95Z&9&Z&9>k9t* ?9t*?|9ض&9 &99 0 0  Z&$>b'O'9692' ' 9ؽ99l]& 9ؽ99g>k]99l9l9g9 }*9]+P9 9O99j i:- 'jZ&9>b *P997839]979w39O0' +:K :d'8|&0' *:d :K011-&n0& Z&0_911 P0&Z& :8*?|=+P::' 0'>b*P8`}'}* ~=:9~:}0Z&08`..;o';o'9*P7P38c_*?\]9& 9Z$|9<=*=* Lz'=  z&0=~=W<=*=*0=_7=ʦ0-3\ .1 =30z&~=W>b~=>k0=Z&09*P97PO38`*?|9' 0'>b*P' 8`011]n  9# lZ&9@  0, jZ&9376M&239. Z?0'>bZ&02L~=6Z7OZ32& ]*5-l Z:- ]' l]&0 12J~=6]]296]]296706& J>2JJJ&329770_F$VFj&119?1?~> *s9>?62*?9*? *?9HYh i$j&9oo*@ *P9&Z&9Z&9CS9& 9Z$|9< IID 2.F02 OB D3300.F00 $.F02 0.F08 T$  D746 J&2' m* M*-9 D(5 D@@@ D6 D 2.F00 OB D:3$.F00 0.F07 0.F073 0.K10K T$ D46 ]*| S,@03*PZ& *}*@ * }*p %| 6z"02 & } ' *-9 Dc5 AA" @@@EJ @MP @@D@D@ @@ D6 D 2.F01 OB D33$.F01 0.F07 0.K10K T$ D4 6M*C/ J|&| J' 0' z& ' 3*p]*-&  J' 9t DS5D D@@ DV`@@z}DD@ D6 D 2.F03 OB D:3$.F03 0.F071 0.F072 0.F08 T$ D4u*SuM*0' |.z//|0' '011nZ/ 9  z/Z.911~Vi DU5 )DL@LD@:= @D@TW A^a @@D D6 D 2.F04 OB D%3Q$.F04 T$ DX46706& J=2JJJ&329770_F$VFj&119 D5@@ DD@e D6 D 2.F05 OB D%3$.F05 $.F06  D 499M D6 D 2.F08 OB D%3$.F08 T$ 7 D4 0& z& 9 D 5 @ D6 D 2.F09 OB D3$.F09 e D49 D6 D 2.F0E OB D3$.F0E Y D49 D6 D 2.F0F OB D330.F073 0.F0A1 $.F0F T$ W D4' 9r D"5D @ D6 D 2.F10 OB D,30.F0B $.F10 T$  D#4& &J&9 D5D D D6 D 2.F11 OB D33/0.F073 0.F0A1 $.F11 T$ T D640'00'0'0011nQ D5@ # D6 D 2.F12 OB D53s0.F0B1 $.F12 $.F13 T$ ) Dz4O0' +G `'&0' *` G011-&n0& Z&0_911 P0&Z& D15D+@@@@@S D6 = D 2.F15 OB D:30.F0D 0.F145 $.F15 0.F16 T$ ( D476~ D5 D   D6 D 2.F14 OB DL3S0.F0A1 0.F0C $.F14 $.F145 0.F16 A$ T$ T DZ476320*S:- l *011n D:5 D  H(+ @@@D D6 D 2.F16 OB D<30.F073 0.F0A1 $.F16 A$ T$ D400*S*C+6$| P6$|3/@$|6s'0 02+ 2+ 9 DN5 H@ H@@#@@@@_b D@D @ D6 D 2.F17 OB D3$.F17 f D49 D6 D 2.F1C OB DC30.F187 0.F18A 0.F190 $.F1C $.F9C T$ D4 72 ~V D5  D D6 D 2.F1A OB D13 0.F184 0.F187 0.F18A $.F1A D4~ D5 D6 D 2.F19 OB DW3t0.F180 0.F18A $.F19 $.F190 $.F59 $.F99 $.FD9 T$ p D{4 R Ra ~m+ Lhi+& oo $  i idfj&9*s99 D.5 @S DA D6 D 2.F18 OB DY30.F07 $.F18 $.F180 "$.F184 J$.F187 c$.F18A $.F58 T$ D4 *s9"J62*9* *9HYh i$j&9oo*@ *P9 D75 DC0@# D@0=d @ D6 D 2.F1B OB D3$.F1B [ D49 D6 D 2.F1D OB D%3$.F1D $.F1E  D 499M D6 D 2.F0C OB DL3$.F0C $.F0C0 ;$.F0C2 0.F0DA 0.F0DC 0.F0DD T$ D4*0S   'SS  0 0  Z&%'*S*S  *S'J :& Z' l 9 DE5 D@A@-1 7 @DDs @ D6 D 2.F0D OB DN30.F0C0 0.F0C2 $.F0D $.F0DA ;$.F0DC w$.F0DD }T$ 5 D4]*& & ' 9;w~&'   Z&9ziZ& l9i DF5 D D@D!$ @L9< DDD@@AD@ D6 D 2.F5A OB Da3$.F5A 0.FMD 0.FMDA 0.FMDC 0.FMDE 0.FMDL 0.FMDR A$ =M$ T$ D4>  <  Lz'  z&0.'-J L .011n Dm5  H  H" !HH LRW  A ~  H Q D6 D 2.F5C OB Dh3$.F5C 0.FMD 0.FMDA 0.FMDC 0.FMDD 0.FMDE 0.FMDL 0.FMDR A$ =M$ T$ D4 .0M'-J L . _7 0-3\ .4  30  z&011n} Dx5 H H" H8 @ F HHd u H @@@  D6 D 2.FMD OB Dt3^0.F0A $.FMD $.FMDA L$.FMDC $.FMDD 8$.FMDE h$.FMDL $.FMDR A$ =M$ T$  D40=Z&0 ///9  *S97PO39  *;*&|*&| '-7 396ZZ&0296Z7OZ3 Z&0" D_5 HH@ D&BeiDD!@@@ D Dm429OS-9  9# lZ&9@  0, jZ&9 D5@DD@D@@D@j D6 D 2.F0C OB DL3$.F0C $.F0C0 ;$.F0C2 0.F0DA 0.F0DC 0.F0DD T$ D4*0S   'SS  0 0  Z&%'*S*S  *S'J :& Z' l 9 DE5 D@A@-1 7 @DDs @ D6 D 2.F0B OB D.3$.F0B $.F0B1 T$  D"4&Z&9 D5D@ D6 D 2.F0A OB D.3$.F0A $.F0A1 T$  D 4Z&9 D5D D6 D 2.F07 OB D%3$.F07 T$ I D4CS9 D6 D 2.F071 OB D.3$.F071 $.F072 T$  D4_ Z.9 D5@ D6 D 2.F073 OB D%3 $.F073 T$ 0 D4Z.9O D5@ D6 D 2.K10K OB D3 $.K10K 4 D4'd & D6 D 2.F1F OB D.3$.F1F $.F5F T$  D4& 9Z$|9 D5 D@D[ D6 D 2MDOS OB D%3$MDOS T$ D 4?9, D6 ? D 2DSPLY OB D%3$DSPLY T$ D 4? 9< D6 D 2KEYIN OB D%3$KEYIN T$ D 4? 9= D6 D 2PRINT OB D%3$PRINT T$ D 4?49 D6 D 2PUSH2 OB D%3$PUSH2 T$ D401167n D 5  T D6 D 2PULL2 OB D%3 $PULL2 T$ D403211679* D6 ywOPERATINGINSTRUCTIONSFOR"EDITM"REVISION2.9A ENVOKINGTHEEDITOR---ENTER"EDITM"(RETURN)ONTHECONSOLE THISEDITORISKEYORIENTEDANDEXPECTSALLINPUTFILESTOHAVE FOURDIGITASCIIRECORDKEYSFOLLOWEDBYABLANKATTHESTART OFEACHRECORD.ITUSESTHEFIRSTBYTEOFTHEALLRECORDSTOCHECK FORTHEEXISTANCEOFTHEKEYS(THISBYTEISANACSII0-9INKEYED FILES)IFTHEINPUTFILEDOESNOTHAVEKEYSANADDITIONAL FIVEBYTESARERESERVEDINEACHINPUTRECORDSOTHATTHEKEYS MAYBEADDEDUSINGTHERESEQUENCECOMMAND. THEEDITCOMMANDSMAYBEEITHERUPPERORLOWERCASEBUTALL FILENAMESSHOULDBEUPPERCASEFOR"MDOS"COMPATIBILITY. ALLEDITORCOMMANDSMAYBECONTAINEDINACHAINFILEIFTHEUSER SHOULDSODESIRE. THEREARETWOLEVELSOFEDITFEATURESAVAILABLE.ABASICSET,WHICH THEUSERMAYMASTERINARELATIVELYSHORTPERIOD,ANDANADVANCEDSET. THEADVANCEDSETGIVESTHEUSERMUCHGREATERFLEXIBILITYINEDITING, ANDMAYBEMASTEREDASNEEDED. THEBASICCOMMANDSETINCLUDESTHEBUILD,LOAD,LIST,SAVEANDEND COMMANDSALONGWITHTHEELEMENTARYEDITFEATURE.ADESCRIPTIONOF THESECOMMANDSFOLLOWS. NOTE:INTHEFOLLOWINGEXAMPLESTHEINDICATESTHATTHERETURN KEYWASUSED. BUILD--TOCREATEANEWFILEINTHEFILEUSETHE"BUILD"COMMAND. SYNTAX:BUILDFFFF BUILDFFFF.SS BUILDFFFF.SS:L ALIAS:BLD,NEW WHERE:FFFFISTHEFILEBEINGCREATED(8CHARACTERMAX) SSISTHESUFFIX(DEFAULT=.SA) LISTHELOGICALDRIVENO.(DEFAULT=0) NOTE:THESYSTEMWILLPROMPTTHEUSERWITHRECORDNUMBERS AFTERWITCHDATAFORTHERECORDMAYBEENTERED. NOTE:ASHOULDBEPLACEDATTHEENDOFEACHRECORD TOINFORMTHESYSTEMTHATTHERECORDHASBEENCOMPLETED. NOTE:TOLEAVETHEBUILDMODEASHOULDBEENTERED IMMEDIATELYFOLLOWINGTHEPROMPT. EXAMPLE:?BUILDTEST TEST.SA:0CREATED 0010TEST=A+B 0020PRINT100,TEST 0030100FORMAT(I6) 0040STOP 0050END 0060 ? LOAD--TOLOADANEXISTINGFILEINTOMEMORYUSETHE"LOAD"COMMAND. SYNTAX:LOADFFFF LOADFFFF.SS LOADFFFF.SS:L LOADFFFF.SS:LNLN ALIAS:OLD,LD WHERE:FFFFISTHEFILENAME(8CHARACTERMAX) SSISTHEFILESUFFIX(DEFAULT=.SA) LISTHELOGICALDRIVENO.(DEFAULT=0) NOTE:IFNLNFOLLOWSTHEFILENAMETHENTHEFILEISASSUMED NOTTOHAVERECORDKEYS NOTE:IFSPECIFIED,THESUFFIX&LOGICALDRIVEBECOMENEW DEFAULTVALUESFORTHES@ EPARAMETERS EXAMPLE:?LOADTEST READY ? LIST--USE"LIST"TODISPLAYONEORMORERECORDSATTHECONSOLE. SYNTAX:LIST LISTNN LISTNN-MM ALIAS:L DEFAULT:ENTIREFILEORBLOCK WHERE:NNISTHEFIRSTRECORDNO. MMISTHELASTRECORDNO. NOTE:L9999WILLDISPLAYTHECURRENTFILENAME,THELAST RECORDKEYINTHEFILEANDTHEREMAININGMEMORY. EXAMPLE:?LIST10-30 0010TEST=A+B 0020PRINT100,TEST 0030100FORMAT(I6) ? SAVE----USE"SAVE"TOWRITETHECURRENTFILEBACKTOTHEDISK. SYNTAX:SAVE SAVEFFFF SAVEFFFF.SS SAVEFFFF.SS:L ALIAS:SAV WHERE:FFFFISTHEFILENAME SSISTHEFILESUFFIX LISTHELOGICALDRIVENO. NOTE:IFAFILENAME,SUFFIXORDRIVEISNOTSPECIFIED THEDATAFROMTHELAST"LOAD"OR"BUILD"COMMAND ISUSEDAGAIN NOTE:THEDISKFILEISNOTMODIFIEDUNTILTHESAVE COMMANDISEXECUTED EXAMPLE:?SAVE READY ? ELEMENTARYEDITINGHASTHREEEDITINGMODES,INSERT,MODIFYANDDELETE. INSERT--TOADDARECORDTOTHEWORKSPACE SYNTAX:NNNN-----STRING-----(RETURN) WHERE:NNNNISAFOURDIGITRECORDKEY -----STRING------ISTHECONTENTOFTHENEWRECORD (RETURN)ISTHERETURNKEYATTHEENDOFTHERECORD NOTE:ABLANKSHOULDIMMEDIATELYFOLLOWTHERECORDKEY EXAMPLE:?LIST10-30 0010TEST=A+B 0020PRINT100,TEST 0030100FORMAT(I6) ?22D=TEST-1 ?LIST10-30 0010TEST=A+B 0020PRINT100,TEST 0022D=TEST-1 0030100FORMAT(I6) ? MODIFY--TOCHANGEARECORDINTHEWORKSPACE SYNTAX:(SAMEASINSERTBUTUSESANEXISTINGRECORDKEY) EXAMPLE:?LIST10-30 0010TEST=A+B 0020PRINT100,TEST 0022D=TEST-1 0030100FORMAT(I6) ?22TEST=TEST-1 ?LIST10-30 0010TEST=A+B 0020PRINT100,TEST 0022TEST=TEST-1 0030100FORMAT(I6) ? DELETE--TOREMOVEARECORDFROMTHEWORKSPACE SYNTAX:NNNN(RETURN) WHERE:NNNNISTHERECORDKEYOFTHERECORDTOBEREMOVED EXAMPLE:?LIST10-30 0010TEST=A+B 0020PRINT100,TEST 0022D=TEST-1 0030100FORMAT(I6) ?22 DELETED ?LIST10-30 0010TEST=A+B 0020PRINT100,TEST 0030100FORMAT(I6) ? END---USE"END"TOLEAVETHEEDITOR. SYNTAX:END ALIAS:QUIT,Q NOTE:IFTHECURRENTWORKSPACEHASBEENMODIFIEDANDNOTSAVED THE"SAVE(Y/N)?"PROMPTWILLAPPEARASAREMINDEROFTHE CURRENTLYUNSAVEDSTATUS.A"Y"RESPONSEWILLCAUSETHE CURRENTWORKSPACETOBEWRITTENBACKTOTHELASTFILE SPECIFIED.A"N"RESPONSEWILLCAUSETHEFILETOBE LOST. EXAMPLE:?END = THEFOLLOWINGADVANCEDEDITINGCOMMANDSAREALSOAVAILABLETOTHEUSER, CHANGE,APPEND,FIND,PRINT,DELETE,MOVE,DUPLICATE,BLOCK,VERIFY,NUMBER, MERGEANDRESEQUENCE.ADESCRIPTIONOFEACHFOLLOWS. CHANGE--USE"CHANGE"TOCHANGEASTRINGWITHINONEORMORERECORDS. SYNTAX:CHANGE/XXX/YYY/ CHANGENN/XXX/YYY/ CHANGENN-MM/XXX/YYY/ CHANGENN-MM,KK/XXX/YYY/ ALIAS:C WHERE:"/"ISADELIMITER(MAYBEANYASCIICHARACTER) NNISTHEFIRSTRECORDTOBECHECKED MMISTHELASTRECORDTOBECHECKED KKISTHEOCCURRANCEOFTHESTRINGINEACHRECORD XXXISTHESTRINGTOBECHANGED YYYISTHESTRINGTOBESUBSTITUTED NOTE:IFNN-MMORNNISOMITTEDTHEENTIREWORKSPACE ORBLOCKISSEARCHEDANDMODIFIED NOTE:THEOCCURRANCEFEILDDEFAULTSTOTHEFIRSTOCCURRANCE OFTHESTRINGINEACHRECORD NOTE:IF"A"ISUSEDINTHEOCCURRANCEA FIELDALLOCCURRANCES OFTHEXXXSTRINGAREREPLACEDBYTHEYYYSTRING NOTE:THEUNDERLINEISUSEDASANIGNORECHARACTERAND IFPRESENTINTHEXXXSTRINGTHECHARACTERPOSITIONS CORRESPONDINGTOTHOSEWHEREAUNDERLINEISPLACEDWILL BEIGNOREDWHENSEARCHINGFORAMATCH.IFTHEUNDERLINE ISUSEDINTHEYYYSTRINGTHEOLDCHARACTERSWILL BEKEPTASPARTOFTHENEWSTRING NOTE:THEIGNORECHARACTERMAYBECHANGEDBYUSINGTHEFOLLOWING COMMANDSEQUENCE C0XY WHERE:XISTHEOLDIGNORECHARACTER YISTHENEWIGNORECHARACTER EXAMPLE:?LIST10-30 0010TEST=A+B 0020PRINT100,TEST 0022TEST=TEST-1 0030100FORMAT(I6) ?CHANGE10-30/TEST/NEW/ 0010NEW=A+B 0020PRINT100,NEW 0022NEW=TEST-1 ? APPEND--USE"APPEND"TOADDTOTHEENDOFONEORMORERECORDS. SYNTAX:APPEND/XXX/ APPENDNN/XXX/ APPENDNN-MM/XXX/ ALIAS:APP WHERE:"/"ISADELIMITER(MAYBEANYASCIICHARACTER) NNISTHEFIRSTRECORDTOBEADDEDTO MMISTHELASTRECORDTOBEADDEDTO XXXISTHESTRINGTOBEADDED NOTE:IFNNORNN-MMISOMITTEDTHEENTIREWORKSPACEOR BLOCKISSEARCHED EXAMPLE:?LIST10-30 0010TEST=A+B 0020PRINT100,TEST 0022TEST=TEST-1 0030100FORMAT(I6) ?APPEND10-20/;COMMENTS/ 0010TEST=A+B;COMMENTS 0020PRINT100,TEST;COMMENTS ? FIND--USE"FIND"TOSEARCHTHEFILEFORASTRINGOFDATA. SYNTAX:FIND/XXX/ FINDNN/XXX/ FINDNN-MM/XXX/ FINDNN-MM,KK/XXX/ ALIAS:F WHERE:"/"ISADELIMITER(MAYBEANYASCIICHARACTER) NNISTHEFIRSTRECORDTOBESEARCHED MMISTHELASTRECORDTOBESEARCHED KKISTHEOCCURRANCEOFTHESTRINGINEACHRECORD XXXISTHESTRINGTOBEFOUND NOTE:IFKKISOMITTEDALLRECORDSWHICHCONTAINTHESTRINGARE FOUNDBUTIFKKISSPECIFIEDTHENONLYTHOSERECORDS WHICHCONTAINTHEKKOCCURANCEAREFOUND NOTE:IFNNORNN-MMISSPECIFIEDANDTHEEDITORISINBLOCK MODETHENNNORNN-MMWILLREDEFINETHEBLOCKRANGE NOTE:IFNNORNN-MMISOMITTEDTHEENTIREWORKSPACEOR BLOCKISSEARCHED NOTE:THEUNDERLINEISUSEDASANIGNORECHARACTERAND IFPRESENTINTHEXXXSTRINGTHECHARACTERPOSITIONS CORRESPONDINGTOTHOSEWHEREAUNDERLINEISPLACEDWILL BEIGNOREDWHENSEARCHINGFORAMATCH. EXAMPLE:?LIST10-30 0010TEST=A+B 0020PRINT100,TEST 0022TEST=TEST-1 0030100FORMAT(I6) ?FIND/TEST/ 0010TEST=A+B 0020PRINT100,TEST 0022TEST=TEST-1 ? PRINT--USE"PRINT"TODISPLAYONEORMORERECORDSONTHEPRINTERAND ROUTEALLFURTHEROUTPUTTOTHEPRINTER. SYNTAX:PRINT PRINTNN PRINTNN-MM ALIAS:P DEFAULT:ENTIREFILEORBLOCK WHERE:NNISTHEFIRSTRECORDNO. MMISTHELASTRECORDNO. NOTE:P9999WILLDISPLAYTHECURRENTFILENAME,THELAST RECORDKEYINTHEFILEANDTHEREMAININGMEMORY. EXAMPLE:?PRINT10-30 NOTE:ALLFURTHEROUTPUTISDIRECTEDTOTHEPRINTERUNTILA LISTCOMMANDISEXECUTEDTOREDIRECTOUTPUTTOTHECONSOLE. NOTE:USE"L0"TOPAGEUPTHEPRINTERANDRETURNTOTHECONSOLE RESEQUENCE--USE"RESEQUENCE"TOUPDATETHERECORDKEYS. SYNTAX:RESEQUENCE RESEQUENCEMM RESEQUENCEMM,NN RESEQUENCENLN(THISWILLREMOVEALLRECORDKEYS) ALIAS:RSQ WHERE:MMISTHENEWSTARTINGKEY NNISTHENEWINCREMENT DEFAULT:MM=10,NN=10 NOTE:WHENRECORDKEYSAREBEINGREMOVEDTHEASSUMPTION ISMADETHATABLANKFOLLOWSTHB ERECORDKEYAND, THISBLANKISALSOREMOVED NOTE:WHENINBLOCKMODE,THEBLOCKRANGEISUPDATEDTO REFLECTTHENEWRECORDKEYS EXAMPLE:?LIST10-30 0010TEST=A+B 0020PRINT100,TEST 0022TEST=TEST-1 0030100FORMAT(I6) ?RESEQUENCE100,1 READY ?LIST 0100TEST=A+B 0101PRINT100,TEST 0102TEST=TEST-1 0103100FORMAT(I6) 0104STOP 0105END ? MOVE--USE"MOVE"TORELOCATEONEORMORERECORDSELSWHEREINTHE FILE. SYNTAX:MOVENN,MM MOVENN-MM,LL MOVENN-MM,LL,KK ALIAS:M WHERE:NNISTHEKEYOFTHEFIRSTRECORDTOBEMOVED MMISTHEKEYOFTHELASTRECORDTOBEMOVED LLISTHENEWKEYLOCATIONOFTHEFIRSTRECORD KKISTHEKEYINCREMENT(DEFAULT=1) NOTE:IFTHELLKEYALREADYEXISTSTHEMOVED RECORDWILLBEPLACEDBEFOREIT NOTE:THEMOVECOMMANDMAYBEUSEDTORESEQUENCE ABLOCKOFRECORDSBYMAKINGNNANDLLEQUAL NOTE:UNLESSLLISEQUALTONNRECORDSCANNOTBEMOVED INTOTHENN-MMRANGEORRECORDSEQUENCEERRORSWILL RESULT NOTE:DUPLICATERECORDKEYSMAYBEREMOVEDBYUSINGTHEMOVE COMMANDTORESEQUENCETHEDUPLICATEBLOCK EXAMPLE:?LIST 0010TEST=A+B 0020PRINT100,TEST 0022TEST=TEST-1 0030100FORMAT(I6) 0040STOP 0050END ?MOVE20-22,32 0032PRINT100,TEST 0033TEST=TEST-1 ?LIST 0010TEST=A+B 0030100FORMAT(I6) 0032PRINT100,TEST 0033TEST=TEST-1 0040STOP 0050END ? DELETE--USE"DELETE"TOREMOVEBLOCKSOFRECORDSFROMTHEFILE. SYNTAX:DELETENN DELETENN-MM ALIAS:DEL WHERE:NNISTHEFIRSTRECORDTOBEREMOVED MMISTHELASTRECORDTOBEREMOVED EXAMPLE:?LIST 0010TEST=A+B 0030100FORMAT(I6) 0032PRINT100,TEST 0033TEST=TEST-1 0040STOP ?DELETE30-33 0003RECORDSDELETED ?LIST 0010TEST=A+B 0040STOP ? DUPLICATE---USE"DUPLICATE"TOCOPYRECORDSORBLOCKSOFRECORDS ELSEWHEREINTHEFILE. SYNTAX:DUPLICATENN,MM DUPLICATENN-MM,LL DUPLICATENN-MM,LL,KK ALIAS:DUP WHERE:NNISTHEKEYOFTHEFIRSTRECORDTOBEDUPLICATED MMISTHEKEYOFTHELASTRECORDTOBEDUPLICATED LLISTHENEWKEYLOCATIONOFTHEFIRSTRECORD KKISTHEKEYINCREMENT(DEFAULT=1) EXAMPLE:?LIST 0010TEST=A+B 0020PRINT100,TEST 0022TEST=TEST-1 0030100FORMAT(I6) 0040STOP ?DUPLICATE20-22,32 0032PRINT100,TEST 0033TEST=TEST-1 ?LIST 0010TEST=A+B 0020PRINT100,TEST 0022TEST=TEST-1 0030100FORMAT(I6) 0032PRINT100,TEST 0033TEST=TEST-1 0040STOP ? BLOCK---USE"BLOCK"TOCHANGETHEEDITMODEFROMWHOLEFILETOA BLOCKOFRECORDSORRETURNTOTHEWHOLEFILEMODE. SYNTAX:BLOCK BLOCKOFF ALIAS:B WHERE:IN,IORNOOPERATORARETHEINEFFECTOPERATORS OFF,OUT,OARETHEOUTOFEFFECTOPERATORS NOTE:WHENINTHEBLOCKMODETHERANGEOFRECORDSBEING OPERATEDONBYTHELIST,PRINT,APPEND,FIND&CHANGECOMMANDS DEFAULTSTOTHELASTRANGESPECIFIEDBYLISTORFIND NOTE:THEBLOCKMODEISNOTAPPLICABLEWITHUNKEYEDRECORDS EXAMPLE:?LIST 0010TEST=A+B 0020PRINT100,TEST 0022TEST=TEST-1 0030100FORMAT(I6) 0032PRINT100,TEST 0033TEST=TEST-1 0040STOP ?BLOCK ?FIND20-32 ?LIST 0020PRINT100,TEST 0022TEST=TEST-1 0030100FORMAT(I6) 0032PRINT100,TEST ?  VERIFY---THE"VERIFY"COMMANDMAYBEUSEDTOTURNONOROFF THEVERIFICATIONPRINTOUTAFTERASUCCESSFUL CHANGE,APPEND,MOC VE,MERGEORDUPLICATECOMMANDEXECUTION. SYNTAX:VERIFY VERIFYOFF VERIFYIN VERIFYOUT ALIAS:V WHERE:IN,IORNOOPERATORENVOKETHEVERIFY(DEFAULT) OFF,OUT,ODISABLETHEVERIFY EXAMPLE:?VERIFYOFF ?CHANGE10-50/TEST/QRTZ/ ?VERIFY ? NUMBER--USE"NUMBER"TOBEPROMPTEDWITHRECORDKEYSFORNEWRECORDS ORTOREPLACEEXISTINGRECORDS. SYNTAX:NUMBER NUMBERMM,NN ALIAS:N WHERE:MMISTHESTARTINGKEYNUMBER NNISTHEINCREMENT DEFAULT:MM=10,NN=10 NOTE:ABLANKISAUTOMATICLYINSERTEDAFTERTHERECORDKEY. NOTE:TOEXITTHEAUTOMATICNUMBERMODEENTERAAFTER THENEXTNEWRECORDKEYISDISPLAYED. EXAMPLE:?LIST 0010TEST=A+B 0030100FORMAT(I6) 0032PRINT100,TEST 0033TEST=TEST-1 0040STOP 0050END ?NUMBER34,1 0034IF(TEST.GT.A)GOTO200 0035TEST=A 0036200A=0 0037 ?LIST 0010TEST=A+B 0030100FORMAT(I6) 0032PRINT100,TEST 0033TEST=TEST-1 0034IF(TEST.GT.A)GOTO200 0035TEST=A 0036200A=0 0040STOP 0050END ? MERGE--USE"MERGE"TOGETRECORDSFROMANOTHERFILEANDADDTHEM TOTHECURRENTFILEBEINGEDITED. SYNTAX:MERGEXXXX(NN-MM),LL MERGEXXXX.SS(NN-MM),LL MERGEXXXX.SS:L(NN-MM),LL ALIAS:MRG WHERE:XXXX--DISKFILETOBESEARCHED SS--DISKFILESUFFIX(DEFAULT=CURRENTFILESUFFIX) L--DISKDRIVE(DEFAULT=CURRENTFILEDRIVE) NN--RECORDKEYOFTHEFIRSTLINETOBECOPIED MM--RECORDKEYOFTHELASTLINETOBECOPIED (MAYBEOMITTEDIFONLYONERECORDISCOPIED) LL--RECORDKEYINTHEWORKSPACEAFTERWHICHTHE COPIEDRECORDSWILLBEINSERTED NOTE:SHOULDTHE"RESEQUENCENEEDED"MESSAGEAPPEARAFTERTHE RESEQUENCEORMOVECOMMANDSHOULDBEUSEDTOADJUSTTHE RECORDKEYSBEFOREANYFURTHEREDITINGISATTEMPTED. NOTE:THELLKEYNEEDNOTBEPRESENTINTHEWORKSPACE ANDIFNOTITWILLBECREATED. EXAMPLE:?LIST 0010TEST=A+B 0020100FORMAT(I6) 0030PRINT100,TEST 0033TEST=TEST-1 0040STOP 0050END ?MERGEOLDTST(100-140),11 0011IF(B.EQ.0)A=-1 0012B=B-25 0013PRINT50,B 001450FORMAT(I4) 0015B=0 READY ?LIST 0010TEST=A+B 0011IF(B.EQ.0)A=-1 0012B=B-25 0013PRINT50,B 001450FORMAT(I4) 0015B=0 0020100FORMAT(I6) 0030PRINT100,TEST 0033TEST=TEST-1 0040STOP 0050END ? THEFOLLOWINGKEYBOARDFUNCTIONSAREALSOAVAILABLE ASAIDSTOTHEUSER. DEL-----DISPLAYSTHECHARACTERTOBEREMOVEDANDDELETESTHE LASTCHARACTEROFTHEINPUTSTREAM CNTL+X--GIVESACARRAGERETURNATTHEPRINTERANDDELETES THECURRENTINPUTLINE CNTL+D--DISPLAYSTHECURRENTLINEOFINPUTBACKTOTHEDISPLAY FORVERIFICATION CNTL+W--STOPSTHEDISPLAYUNTILANOTHERCHARACTERISENTERED RETURN--TERMINATESINPUTANDSIGNALSTHESYSTEMTOPROCESSTHE CURRENTINPUTBUFFER BREAK---TERMINATESTHECURRENTOUTPUTANDRETURNSCONTROL TOTHEREADYLEVEL  IFTHEERRORRESULTSINARETURNTOTHECOMMANDINTERPRETEROF "MDOS"(THE"="PROMPT),THEEDITORNEEDSTOBERELOADEDAND ENTEREDASFOLLOWS: =LOADEDITM.CM *2003;G READY ? THEEDITORSHOULDNOWBEBACKINEXECUTIONANDTHEONLYDATA THATNEEDBERESPECIFIEDISTHECURRENTFILENAMEBEINGEDITED. THISDATAISSPECIFIEDBYADDINGTHEFILENAMEATTHEENDOFTHE "SAVD uuPAGE * *MDOSVERSION02.20--SYSTEMEQUATEFILE--FEB.24,1978 * SPC3 * *DEFINEMULTI-SECTOR/SINGLESECTORI/O--RESIDENTMDOSONLY * MULTSEQU0.0=>SINGLESECTOR,1=>MULTIPLESECTOR * *DEFINETYPEOFMDOS--RESIDENTMDOSONLY * MDOSF$EQU0.0=>MDOS,1=>OEMMDOS SPC3 * *SKIP2MACRO * *THEGENERATEDBYTEISA"COMPAREINDEXIMMEDIATE". *THEEXECUTIONOFTHEBYTEWILLCHANGETHECONDITIONCODESONLY. *NOREGISTERSAREAFFECTED.THUS,AONEBYTEINSTRUCTION *ISFORMEDTHATSKIPSFORWARDTWOBYTES. * SKIP2MACR FCB$8C. ENDM * *SKIP1MACRO * *THESAMECONCEPTASTHE"SKIP2"MACROISUSED,EXCEPTTHAT *A"BITTESTACCUMULATORAIMMEDIATE"OPCODEISGENERATED. * SKIP1MACR FCB$85 ENDM * *SCALLMACRO(SYSTEMFUNCTIONCALL) * SCALLMACR IFEQNARG-1 SWI FCB\0!.%01111111 ENDC * IFNENARG-1 FAIL*UNDEFINEDSWICALLARGUMENT* ENDC ENDM * *UCALLMACRO(USERFUNCTIONCALL) * UCALLMACR IFEQNARG-1 SWI FCB\0!+%10000000 ENDC * IFNENARG-1 SCALL ENDC ENDM * *SEQMACRO(NUMBERINGSEQUENTIALEQUATES) * SEQMACR IFNENARG \0EQU*. ENDC ORG*+1. ENDM PAGE * *SYSTEMFUNCTIONDEFINITIONS * * *SETLOCATIONCOUNTTO0FORTHEEQUATEDEFINITIONS * .$SAVSET*.SAVEOLDLOCATIONCOUNT ORG$0. * * * SEQ.RESRV.RESERVEADEVICE SEQ.RELES.RELEASEADEVICE SEQ.OPEN.OPENAFILE SEQ.CLOSE.CLOSEAFILE SEQ.GETRC.READARECORD SEQ.PUTRC.WRITEARECORD SEQ.REWND.POSITIONTOBEGINNINGOFFILE SEQ.GETLS.READLOGICALSECTOR SEQ.PUTLS.WRITELOGICALSECTOR SEQ.KEYIN.CONSOLEINPUT SEQ.DSPLY.CONSOLEOUTPUT(TERMW/CR) SEQ.DSPLX.CONSOLEOUTPUT(TERMW/EOT) SEQ.DSPLZ.CONSOLEOUTPUT(TERMW/EOT,NOCR/LFATEND) SEQ.CKBRK.CHECKCONSOLEFORBREAKKEY SEQ.DREAD.EROMDISKREAD SEQ.DWRIT.EROMDISKWRITE SEQ.MOVE.MOVEASTRING SEQ.CMPAR.COMPARESTRINGS SEQ.STCHB.STOREBLANKS SEQ.STCHR.STORECHARACTERS SEQ.ALPHA.CHECKALPHABETICCHARACTER SEQ.NUMD.CHECKDECIMALDIGIT SEQ.ADDAM.INCREMENTMEMORY(DOUBLEBYTE)BYA SEQ.SUBAM.DECREMENTMEMORY(DOUBLEBYTE)BYA SEQ.MMA.MULTIPLY(SHIFTLEFT)MEMORYBYA(COUNT) SEQ.DMA.DIVIDE(SHIFTRIGHT)MEMORYBYA(COUNT) SEQ.MDENT.ENTERMDOSWITHOUTRELOADING SEQ.LOAD.LOADAFILEFROMDISK SEQ.DIRSM.DIRECTORYSEARCHANDMODIFY SEQ.PFNAM.PROCESSFILENAME SEQ.ALUSM.ALLOCATEUSERMEMORY SEQ.CHANG.CHANGENAME/ATTRIBUTES SEQ.MDERR.MDOSERRORMESSAGEHANDLER SEQ.ALLOC.ALLOCATEDISKSPACE SEQ.DEALC.RETURNDISKSPACE SEQ.EWORD.SETERRORSTATUSWORDFORCHAIN SEQ.TXBA.TRANSFERXTOB,A SEQ.TBAX.TRANSFERB,ATOX SEQ.XBAX.EXCHANGEB,AANDX SEQ.ADBX.ADDBTOX SEQ.ADAX.ADDATOX SEQ.ADBAX.ADDB,ATOX SEQ.ADXBA.ADDXTOB,A SEQ.SUBX.SUBTRACTBFROMX SEQ.SUAX.SUBTRACTAFROMX SEQ.SUBAX.SUBTRACTB,AFROMX SEQ.SUXBA.SUBTRACTXFROMB,A SEQ.CPBAX.COMPAREB,ATOX SEQ.ASRX.SHIFTXRIGHT(ARITHMETIC) SEQ.ASLX.SHIFTXLEFT(ARITHMETIC/LOGICAL) SEQ.PSHX.PUSHXONSTACK SEQ.PULX.PULLXFROMSTACK SEQ.PRINT.PRINT-TERMINATEWITHCR SEQ.E PRINX.PRINT-TERMINATEWITHEOT SEQ.GETFD.READFDR(RESIDENTMDOSONLY) SEQ.PUTFD.WRITEFDR(RESIDENTMDOSONLY) SEQ.PUTEF.WRITEEOF(RESIDENTMDOSONLY) SEQ.EREAD.DISKREADW/ERRRETN SEQ.EWRIT.DISKWRITEW/ERRRETN IFNEMULTS SEQ.MREAD.MULTIPLESECTORREAD SEQ.MWRIT.MULTIPLESECTORWRITE SEQ.MERED.MULTIPLESECTORREADW/ERRRETURN SEQ.MEWRT.MULTIPLESECTORWRITEW/ERRRETURN ENDC IFEQMULTS SEQ SEQ SEQ SEQ ENDC SEQ.BOOT.RELOADMDOS * ORG.$SAV.RESTORELOCATIONCOUNTER PAGE * *ASCIICONTROLCHARACATERS * NULLEQU0.NULL SOHEQU1.STARTOFHEADING STXEQU2.STARTOFTEXT ETXEQU3.ENDOFTEXT EOTEQU4.ENDOFTRANSMISSION ENQEQU5.ENQUIRY(WRU-WHOAREYOU) ACKEQU6.ACKNOWLEDGE BELEQU7.BELL BSEQU8.BACKSPACE HTEQU9.HORIZONTALTAB LFEQU$A.LINEFEED VTEQU$B.VERTICALTAB FFEQU$C.FORMFEED CREQU$D.CARRIAGERETURN SOEQU$E.SHIFTOUT SIEQU$F.SHIFTIN DLEEQU$10.DATALINKESCAPE DC1EQU$11.DEVICECONTROL1 DC2EQU$12.DEVICECONTROL2 DC3EQU$13.DEVICECONTROL4 DC4EQU$14.DEVICECONTROL4 NAKEQU$15.NEGATIVEACKNOWLEDGE SYNEQU$16.SYNCHRONOUSIDLE ETBEQU$17.ENDOFTRANSMISSIONBLOCK CANEQU$18.CANCEL EMEQU$19.ENDOFMEDIUM SUBEQU$1A.SUBSTITUTE ESCEQU$1B.ESCAPE FSEQU$1C.FILESEPARATOR GSEQU$1D.GROUPSEPARATOR RSEQU$1E.RECORDSEPARATOR USEQU$1F.UNITSEPARATOR SPACEEQU$20.SPACE(WORDSEPARATOR) RUBOUTEQU$7F.DELETE(RUBOUT) * *SPECIALCHARACTEREQUATES * SUFDLMEQU'..SUFFIXDELIMETER OPTDLMEQU';.OPTIONSDELIMETER DRVDLMEQU':.LOGICALDRIVERDELIMETER DEVDLMEQU'#.GENERICDEVICENAMEDELIMETER FAMDLMEQU'*.FAMILYNAME/SUFFIXDELIMETER E$FATLEQU1!<7.FATALERRORBIT PAGE * *MDOSSECTOREQUATES * SC$DIDEQU0.DISKIDPHYSICALSECTORNUMBER SC$CATEQU1.CLUSTERALLOCATIONTABLEPHSYICALSECTORNUMBER SC$LOKEQU2.LOCKOUTCLUSTERTABLEPHYSICALSECTORNUMBER SC$DIREQU3.DIRECTORYSTARTPHYSICALSECTORNUMBER SC$DREEQU$16.DIRECTORYENDPHYSICALSECTORNUMBER SC$BBEQU$17.BOOTBLOCKPHYSICALSECTORNUMBER SC$DOSEQU$18.OPERATINGSYSTEMPHSYICALSECTORNUMBER(RIBADDRESS) SC$SIZEQU128.SECTORSIZEINBYTES SC$TRKEQU26.NUMBEROFSECTORS/TRACK SC$CLSEQU4.NUMBEROFSECTORS/CLUSTER SC$MAXEQU2000.MAXIMUMNO.OFUSABLESECTORS DFCLS$EQU32.DEFAULTNO.OFCLUSTERS * *DISKIDSECTOROFFSETS * DID$IDEQU0.OFFSETTODISKID(8BYTES) DID$VNEQU8.OFFSETTOVERSIONNUMBER(2BYTES) DID$RNEQU10.OFFSETTOREVISIONNUMBER(2BYTES) DID$DTEQU12.OFFSETTODATE(6BYTES) DID$NMEQU18.OFFSETTOUSERNAME(20BYTES) DID$RBEQU38.OFFSETTORIBADDRS.(20BYTES) * *DIRECTORYENTRYOFFSETS * DIR$NMEQU0.OFFSETTONAME(8BYTES) DIR$SXEQU8.OFFSETTOSUFFIX(2BYTES) DIR$RBEQU10.OFFSETTORIBADDRESS(2BYTES) DIR$ATEQU12.OFFSETOFATTRIBUTES(2BYTES) DIR$NUEQU14.OFFSETTONOTUSEDAREA(2BYTES) * *R.I.B.BINARYFILEOFFSETS * RIB$LBEQU117.NUMBEROFBYTESINLASTSECTOR RIB$SLEQU118.NUMBEROFSECTORSTOLOAD RIB$LAEQU120.MEMORYLOADADDRESS RIB$SAEQU122.STARTEXECUTIONADDRESS PAGE * *UNIFIEDI/OCONF TROLBLOCK * *OFFSETS * * IOCSTAEQU0.ERRORSTATUS IOCDTTEQU1.DATATRANSFERTYPE IOCDBPEQU2.DATABUFFERPOINTER IOCDBSEQU4.DATABUFFERSTARTADDRESS IOCDBEEQU6.DATABUFFERENDADDRESS IOCGDWEQU8.GENERICDEVICETYPE/CONTROLDESCRIPTORADDRESS IOCLUNEQU10.LOGICALUNITNUMBER IOCNAMEQU11.FILENAME IOCMLSEQU11.MAXIMUMREFERENCEDLOGICALSECTORNUMBER IOCSDWEQU13.CURRENTSEGMENTDESCRIPTORWORD IOCSLSEQU15.1STLOGICALSECTOROFCURRENTSEGMENT IOCLSNEQU17.CURRENTLOGICALSECTORNUMBER IOCSUFEQU19.FILENAMESUFFIX IOCEOFEQU19.LOGICALENDOFFILE IOCRIBEQU21.PHYSICALDISKADDRESSOFR.I.B. IOCFDFEQU23.FILEDESCRIPTORFLAGS IOCDENEQU27.DIRECTORYENTRYNUMBER IOCSBPEQU29.SECTORBUFFERPOINTER/INITIALALLOCATION IOCSBSEQU31.SECTORBUFFERSTARTADDRESS IOCSBEEQU33.SECTORBUFFERENDADDRESS IOCSBIEQU35.SECTORBUFFERINTERNALPTR IOCBLNEQUIOCSBI+2-IOCSTA.IOCBLENGTH * *UNIFIEDI/OERRORSTATUSES * .$SAVSET*.REMEMBERTHECURRENTLOCATIONCOUNTER ORG$0.RESETITTOZEROTOUSETHESEQMACRO * SEQI$NOER.NOERRORS,NORMALRETURN SEQI$NODV.NOSUCHDEVICE SEQI$RESV.DEVICERESERVEDALREADY SEQI$NORV.DEVICENOTRESERVED SEQI$NRDY.DEVICENOTREADY SEQI$IVDV.INVALIDDEVICE SEQI$DUPE.DUPLICATEFILENAME SEQI$NONM.FILENAMENOTFOUND SEQI$CLOS.FILENAMENOTOPEN/ORFILENOTCLOSED SEQI$EOF.ENDOFFILE SEQI$FTYP.INVALIDFILETYPE SEQI$DTYP.INVALIDDATATRANSFERTYPE SEQI$EOM.ENDOFMEDIA SEQI$BUFO.BUFFEROVERFLOW SEQI$CKSM.CHECKSUMERROR SEQI$WRIT.FILEISWRITEPROTECTED SEQI$DELT.FILEISDELETEPROTECTED SEQI$RANG.LOGICALSECTORNUMBEROUTOFRANGE SEQI$FSPC.NODISKFILESPACEAVAILABLE SEQI$DSPC.NODIRECTORYSPACEAVAILABLE SEQI$SSPC.NOSEGMENTDESCRIPTORSPACEAVAILABLE SEQI$IDEN.INVALIDDIR.ENTRYNO. SEQI$RIB.INVALIDRIB SEQI$DEAL.CAN'TDEALLOCATEALLSPACE SEQI$RECL.BINARYRECORDLENGTHTOOLRGE SEQI$SECB.SECTORBUFFERSIZEERROR * ORG.$SAV.RESTORETHELOCATIONCOUNTER * PAGE * *MDOSINTERNALVARIABLE * *ANDLOCATIONEQUATES * MDOS$EQU$100.STARTOFMDOSASECT CBUFL$EQU80.COMMANDBUFFERLENGTH CBUFF$EQUMDOS$-CBUFL$-2.COMMANDBUFFERLOCATION CBUFP$EQUCBUFF$+CBUFL$.COMMANDBUFFERSCANPOINTER VERS$$EQUMDOS$.VERSION# REVS$$EQUVERS$$+2.REVISION# KYI$SVEQUREVS$$+2.SAVEAREAFORKEYIN$VECTOR ENDOS$EQUKYI$SV+2.ENDOFMDOS ENDUS$EQUENDOS$+2.ENDOFUSERPROGRAMAREA ENDSY$EQUENDUS$+2.ENDOFSYSTEM(MDOS)RAM RIBBA$EQUENDSY$+4.RIBBUFFERADDRESS ENDRV$EQURIBBA$+2.ENDOFMDOSROMVARIABLES GDBA$EQUENDRV$+2.GENERICDEVICETABLEADDRESS SYERR$EQUGDBA$+2.SYSTEMERRORSTATUSWORD SWI$SVEQUSYERR$+2.SWIVECTORSAVEAREA SWI$UVEQUSWI$SV+2.SWIUSERVECTOR IRQ$UVEQUSWI$UV+2.IRQUSERVECTOR IRQ$SVEQUIRQ$UV+2.IRQVECTORSAVEAREA CHFLG$EQUIRQ$SV+2.CHAINFUNCTIONFLAGWORD SYIOCBEQUCHFLG$+2.SYSTEMCONSOLEIOCB SYPOCBEQUSYIOCB+IOCBLN.SYSTEMPRINTERIOCB SYEOCBEQUSYPOCB+IOCBLN.ERRMSGFILE PAGE * *LOGICALUNITNUMBER--BITDEFINITION * LU$RESEQU%01000000.IOCBRESERVEDFLAG * *IOCDTT--BITDEFINITIONS * DG T$OPPEQU%00000000.OPENUPDATE/INPUT DT$OPIEQU%00000001.OPENINPUTMODE DT$OPOEQU%00000010.OPENOUTPUTMODE DT$OPUEQU%00000011.OPENUPDATEMODE DT$NFFEQU%00000100.NON-FILEFORMATI/OFLAG DT$TRUEQU%00001000.TRUNCATEFLAG DT$CLSEQU%00010000.FILEOPEN/CLOSEFLAG DT$SIOEQU%00100000.SECTORI/OFLAG DT$OUTEQU%01000000.OUTPUTTRANSFERTYPE DT$INPEQU%10000000.INPUTTRANSFERTYPE * *IOCFDF--BITDEFINITIONS * FD$FMUEQU%00000000.USERDEFINEDFORMAT(SECTORI/OONLY) FD$FMDEQU%00000001.DEFAULTOBJECTREC'DFORMAT(DEVICEDEPENDENT) FD$FMLEQU%00000010.BINARYLOADFORMAT--ABSOLUTEMEMORYIMAGE FD$FMBEQU%00000011.BINARYRECORDFORMAT--RASMOUTPUT,RLOADINPUT FD$FMREQU%00000100.BINARYLOADFORMAT--RELOCATABLEMEMORYIMAGE FD$FMAEQU%00000101.ASCIIRECORDFORMAT--INCLUDESEXORCISORLOADF FD$FMCEQU%00000111.ASCI-CONVERTED-BINARYRECORDFORMAT FD$CMPEQU%00001000.SPACECOMPRESSIONFLAG FD$CONEQU%00010000.CONTIGUOUSALLOCATIONFLAG FD$SYSEQU%00100000.SYSTEMFILEATTRIBUTE FD$DELEQU%01000000.DELETEPROTECTIONATTRIBUTE FD$WRTEQU%10000000.WRITEPROTECTIONATTRIBUTE * *UNIFIEDI/OCONTROLDESCRIPTOR * *BLOCKOFFSETS * CDBIOCEQU0.ADDRESSOFIOCB CDBSDAEQU2.SOFTWAREDRIVERADDRESS CDBHADEQU4.HARDWAREADDRESS CDBDDFEQU6.DEVICEDESCRIPTORFLAGS CDBVDTEQU7.VALIDDATATYPE CDBDDAEQU8.DEVICEDEPENDENTAREA CDBWSTEQU10.WORKINGSTORAGE * *CDBDDF--BITDEFINITIONS * DD$FMCEQU%00000001.ASCII-CONVERTED-BINARYISDEFAULTOBJECTRECORD DD$LOGEQU%00000010.LOGICALSECTORI/OFLAG DD$CNSEQU%00000100.CONSOLEFLAG DD$RWDEQU%00001000.REWINDFLAG DD$OCFEQU%00010000.OPEN/CLOSEFLAG DD$INPEQU%00100000.INPUTDEVICEFLAG DD$OUTEQU%01000000.OUTPUTDEVICEFLAG DD$RESEQU%10000000.RESERVABLEDEVICEFLAG * *CDBVDT--BITDEFINITIONS * VD$BINEQU%00000100.BINARYOBJECTFLAG VD$GDBEQU%00001000.TEMPGDBPOINTERFLAG VD$SDAEQU%00010000.TEMPSDAPOINTERFLAG VD$NFFEQU%10000000.NON-FILEFORMATFLAG * *DEVICEDRIVERENTRYOFFSETS * DV$ONEQU0.DEVICEONOFFSET DV$OFFEQU3.DEVICEOFFOFFSET DV$INTEQU6.DEVICEINTIALIZATIONOFFSET DV$TRMEQU9.DEVICETERMINATIONOFFSET DV$IOEQU12.DEVICECHARACTERINPUT/OUTPUTOFFSET PAGE * *DISKEROMEQUATES * CURDRVEQU0.CURRENTDRIVENUMBER STRSCTEQU1.STARTINGPHYSICALSECTORNUMBER NUMSCTEQU3.NUMBEROFSECTORSTOOPERATEUPON LSCTLNEQU5.NUMBEROFBYTESTOBEREADFROMLASTSECTOR CURADREQU6.MEMORYADDRESSFORDISKTRANSFER FDSTATEQU8.DISKTRANSFERSTATUS SCTCNTEQU11.SECTORCOUNTUSEDINDETERMININGERRORS PGMDRVEQU$1D.DRIVEFROMWHICHLASTPROGRAMWASLOADED-NOTUSED PGMPSNEQU$1E.PHYSICALSECTORNUMBEROFRIBOFLASTLOADPGM-NOTUSED * *EROMENTRYPOINTS * OSLOADEQU$E800.BOOTSTRAPTHEOPERATINGSYSTEM FDINITEQU$E822.INITIALIZETHEDISK'SPIAANDSSDA CHKERREQU$E853.CHECKANDPRINTERRORFROMFDSTAT PRNTEREQU$E85A.PRINTERRORFROMFDSTAT READSCEQU$E869.READSECTOR(S) READPSEQU$E86D.READPARTIALSECTOR RDCRCEQU$E86F.READANDCHECKFORCRC RWTESTEQU$E872.WRITE/READTEST RESTOREQU$E875.MOVEHEADTOTRACK0H  SEEKEQU$E878.POSITIONHEADTOTRACKOF"STRSCT" WRTESTEQU$E87B.WRITETEST WRDDAMEQU$E87E.WRITEDELETEDDATAMARK WRVERFEQU$E881.WRITEANDVERIFYCRC WRITSCEQU$E884.WRITESECTOR(S) * *EROMERROREQUATES * ER$CRCEQU'1.DATACRCERROR ER$WRTEQU'2.WRITEPROTECTEDDISK ER$RDYEQU'3.DISKNOTREADY ER$MRKEQU'4.DELETEDDATAMARKENCOUNTERED ER$TIMEQU'5.TIMEOUT ER$DADEQU'6.INVALIDDISKADDRESS ER$SEKEQU'7.SEEKERROR ER$DMAEQU'8.DATAADDRESSMARKERROR ER$ACREQU'9.ADDRESSMARKCRCERROR * *MISCELLANEOUSEROMEQUATES * RETRY$EQU5.RETRYCOUNTFORDISKREAD/WRITEERRORS * *LINEPRINTEREROMEQUATES * LPINITEQU$EBC0.INITPRINTERPIA LISTEQU$EBCC.PRINTCONTENTSOF'A' LDATAEQU$EBE4.PRINTSTRING,CR/LF LDATA1EQU$EBF2.PRINTSTRING,NOCR/LF PAGE * *EXBUGEQUATESFORMDOS *(PARTIALLISTONLY) INCHNPEQU$F015.INPUTCHARACTER(NOPARITY) OUTCHEQU$F018.OUTPUTONECHARACTER PCRLFEQU$F021.PRINTLF/CR PDATAEQU$F024.PRINTSTRING SBIT$EQU$FCFD.BIT7INDICATESIRQOCCURRED(IFCLEARED) BRKPT$EQU$FF1F.MAID'SBREAKPOINTTABLE(8FDB'S) BKPIN$EQU$FF4F.EXBUGBREAKPOINTSINMEMORY(FROMCONTINUECMD) AECHOEQU$FF53.INPUTCHARACTERECHOFLAG(0=>ECHO) IRQ$VCEQU$FFF8.IRQVECTOR SWI$VCEQU$FFFA.SWIVECTOR NMI$VCEQU$FFFC.NMIVECTOR XSTAK$EQU$FF8A.EXBUGSTACK MAID$EQU$F0F3.MAIDENTRYPOINT XREG$PEQU$FF16.MAIDP-REG. XREG$XEQU$FF18.MAIDX-REG. XREG$AEQU$FF1A.MAIDA-REG. XREG$BEQU$FF1B.MAIDB-REG. XREG$CEQU$FF1C.MAIDC-REG. XREG$SEQU$FF1D.MAIDS-REG. BRKPE$EQU$FF63.ENDOFMAIDBREAKPOINTTABLE CNACI$EQU$FCF4.CONSOLEACIA * *SPECIALMACROFORTHECENTRONIXPRINTERSTOPRINTTITLES *(NOLONGERUSED) TITLEMACR TTL\0 ENDM ؀0010/*GET2-DIGITNUMBERS(ENDEDBY00)ANDSORTTHEM 0020USINGABINARYTREESORT*/ 0030SHORT 0040MN: 0050PROCOPTIONS(MAIN) 0060$NAMMN 0070DCLHEADBIN(2)GLOBALINIT(0),NBLOBAGLOBAL 0080DCLPBIN(2)GLOBAL 0090DCLNDDEC(2),CRCHAR(1) 0100 0110/*GETANDINSERTNUJMBMBERSUNTILYOUGET00*/ 0120CAKKJETUB 0130N=ND 0140DOWHILENNE0 0150CALLINSERT 0160CALLKEYIN<,2,ADDR(ND)> 0170N=ND 0180END 0190 0200/*PRINTTHETREE,SORTED*/ 0210P=HEAD 0220CALLPTREE 0230 0240CALLMDOS 0250END 5ڀ60010C-----FORTRANFUNCTIONLIBRARY4.1 0020@POWER@ 0030FUNCTIONPOWER(X,Y) 0040C-----RAISESAPOSITIVEX**Y 0050IF(X)10,20I ,30 006010!$86,1!$3F 007020POWER=0. 0080RETURN 009030XX=Y*ALOG(X) 0100POWER=EXP(XX) 0110RETURN 0120END 0130@EXP@ 0140C-----RAISESE**XFORPOSITIVEX 0150FUNCTIONEXP(X) 0160DIMENSIONA(6) 0170DATAA/1.151287586,.662843149,.253603317,.075467547, 0180C.01342094,.005654902/ 0190XX=X*.43429448 0200XX=ABS(XX) 0210Y=1. 0220IF(X)10,40,10 023010K=XX 0240XX=XX-K 0250X1=XX 0260DO31I=1,6 0270Y=Y+XX*A(I) 028031XX=XX*X1 0290Y=Y*Y 0300Y=Y*(10**K) 0310IF(X.LT.0.0)Y=1.0/Y 032040EXP=Y 033050RETURN 0340END 0350@ALOG@ 0360C-----LOGBASEE 0370FUNCTIONALOG(Z) 0380DIMENSIONA(7) 0390DATAA/.99998175,-.4994704,.32823318,-.22587329, 0400C.13463938,-.05511996,.01075744/ 0410XX=Z 0420IF(XX.GT.0.)GOTO5 0430!$86,2!$3F 04405C=1. 0450ISGN=1 0460IF(XX.GE.1.)GOTO10 0470ISGN=-1 0480XX=1./XX 049010IF(XX.LE.2.)GOTO20 0500C=2.*C 0510XX=SQRT(XX) 0520GOTO10 053020XX=XX-1. 0540X=XX 0550Y=0. 0560DO31I=1,7 0570Y=Y+A(I)*X 058031X=X*XX 0590ALOG=ISGN*C*Y 0600RETURN 0610END 0620@SIN@ 0630FUNCTIONSIN(X) 0640SIN=COSIN(X,0.) 0650RETURN 0660END 0670@COS@ 0680FUNCTIONCOS(Y) 0690COS=COSIN(Y,1.) 0700RETURN 0710END 0720@COSIN@ 0730FUNCTIONCOSIN(X,XI) 0740DIMENSIONC(4) 0750DATAC/1.570794852,-.645920978,.079487663,-.004362476/ 0760IF(X.GE.0.)GOTO5 0770!$86,3!$3F 07805XX=XI+(X/1.57079632) 079010IF(XX.LE.1.E5)GOTO20 0800XX=XX-1.E5 0810GOTO10 082020IX=XX/4. 0830XX=XX-IX*4 0840IQD=XX+1. 0850GOTO(50,40,40,30),IQD 086030XX=XX-4. 0870GOTO50 088040XX=2.0-XX 089050X2=XX*XX 0900Z=0. 0910DO60I=1,4 0920Z=Z+C(I)*XX 093060XX=XX*X2 0940COSIN=Z 0950RETURN 0960END 0970@ATAN@ 0980FUNCTIONATAN(X) 0990DIMENSIONC(4) 1000DATAC/.999215,-.3211819,.1462766,-.0389929/ 1010XX=X 1020IF(XX.LT.0.)XX=-XX 1030SGN=XX/X 1040IF(XX.GT.1.)XX=1./XX 1050X2=XX*XX 1060Y=0. 1070DO31I=1,4 1080Y=Y+C(I)*XX 109031XX=XX*X2 1100IF(ABS(X).GT.1.)Y=1.570796327-Y 1110ATAN=Y*SGN 1120RETURN 1130END 1140@SQRT@ 1150FUNCTIONSQRT(X) 1160Z=0. 1170IF(X.LE.0.)GOTO20 1180Z=1. 1190DO11I=1,25 1200ZZ=(X/Z+Z)*0.5 1210IF(ZZ.EQ.Z)GOTO20 122011Z=ZZ 123020SQRT=Z 1240RETURN 1250END 1260@MOD@ 1270FUNCTIONMOD(I,J) 1280K=I/J 1290IF(MOD=I-K*J)RETURN 1300MOD=-MOD 1310RETURN 1320END 1330@IABS@ 1340FUNCTIONIABS(IX) 1350IF(IABS=IX)RETURN 1360IABS=-IX 1370RETURN 1380END 1390@ABS@ 1400FUNCTIONABS(X) 1410IF(ABS=X)RETURN 1420ABS=-X 1430RETURN 1440END 1450@RAND@ 1460FUNCTIONRAND(IRN) 1470IRN=IRN*899 1480IF(IRN.LE.0)IRN=1-IRN 1490RAND=IRN/32767 1500RETURN 1510END 1520@SETRT@ 1530SUBROUTINESETRT 1540!$7E,@09 1550END 1560@CONNEC@ 1570SUBROUTINECONNEC 1580!$7E,@0C 1590END 1600@TRIGGE@ 1610SUBROUTINETRIGGE 1620!$7E,@0F 1630END 1640@DELAY@ 1650SUBROUTINEDELAY 1660!$7E,@12 1670END 1680@BI@ 1690SUBROUTINEBI(K1,K2) 1700!$FE,K1!$EE,0!$A6,0!$FE,K2!$A7,1!$6F,0 1710RETURN 1720END 1730@BO@ 1740SUBROUTINEBO(K1,K2) 1750!$FE,K2!$A6,1!$FE,K1!$EE,0!$A7,0 1760RETURN 1770END 1780@MPUAND@ 1790FUNCTIONMPUAND(K1,K2) 1800!$FE,K1!$A6,0!$E6,1 1810!$FE,K2!$A4,0!$E4,1 1820!$FE,MPUAND!$A7,0!$E7,1 1830RETURN 1840END 1850@MPUIOR@ 1860FUNCTIONMPUIOR(K1,K2) 1870!$FE,K1!$A6,0!$E6,1 1880!$FE,K2!$AA,0!$EA,1 1890!$FE,MPUIOR!$A7,0J !$E7,1 1900RETURN 1910END 1920@IEOR@ 1930FUNCTIONIEOR(K1,K2) 1940!$FE,K1!$A6,0!$E6,1 1950!$FE,K2!$A8,0!$E8,1 1960!$FE,IEOR!$A7,0!$E7,1 1970RETURN 1980END 1990@ISHFT@ 2000FUNCTIONISHFT(K1,K2) 2010ISHFT=K1 2020K3=K2 2030IF(K3)10,20,30 204010!$B6,K3+1!$FE,ISHFT!$64,0!$66,1!$4C!BNE*-5 205020RETURN 206030!$B6,K3+1!$FE,ISHFT!$68,1!$69,0!$4A!BNE*-5 2070RETURN 2080END 2090@WAIT@ 2100SUBROUTINEWAIT(J) 2110!$FE,J!8!$7E,@15 2120END 2121@EOF@ 2122FUNCTIONEOF(J) 2123!LDAA$E8!DECA!LDXEOF!STAA0,X 2124RETURN 2125END 2130@EOFTST@ 2140SUBROUTINEEOFTST(I) 2142CTHISSUBROUTINEBRANCHESTOAFIXEDADDRESSIN 2144CROUTINE'RTPAC'TOAJMPTABLE. 2146!JSR$203C 2148CFIXEDADDRESSIN'RTPAC' 2150!LDXI 2152!CLR0,X!STAA1,X 2160RETURN 2170END 2180@KCFOTB@ 2190FUNCTIONKCFOTB(J) 2200C***RETURNTHEVALUEOF2**(J-1) 2210!LDXJ!LDAA1,X!LDXKCFOTB!CLR0,X!CLR1,X!INC1,X 222010!DECA!BNE*+3!RTS!ASL1,X!ROL0,X 2225GOTO10 2230RETURN 2240END 2250@MPUGTC@ 2260SUBROUTINEMPUGTC(I,J,K) 2270C***I=BYTEKOFJ 2280!LDXK!LDAA1,X!LDXJ 2290!DECA!BEQ*+5!INX!BRA*-4 2300!LDAA0,X!LDXI!STAA1,X!CLR0,X 2310RETURN 2320END 2330@MPUPTC@ 2340SUBROUTINEMPUPTC(I,J,K) 2350C***BYTEKOFJ=I 2360!LDXK!LDAA1,X!LDXI!LDAB1,X 2370!LDXJ!DECA!BEQ*+5!INX!BRA*-4!STAB0,X 2380RETURN 2390END 2400@OPEN@ 2410SUBROUTINEOPEN 2420DIMENSIONIBUF(40) 2430C***OPENSAFILEFORI/O 2440PRINT998 2450998FORMAT('ENTER:"INPUTFILE(S)";"OPTIONS"O="OUTPUTFILE"') 2460READ997,IBUF 2470997FORMAT(40A2) 2480!LDXIBUF 2482!DEX 2490!LDAA#$0D 2500!STAA80,X 2510CJMPDNIT2IN'DISKIO'..MUSTAGREEWITHTHATABSOLUTEADDRESS 2520CWHICHISINAJMPTABLEIN'RTPAC'. 2522!JSR$2039 2530CNOTE........ 2540RETURN 2550END 2560@KSCAN@ 2570FUNCTIONKSCAN(KCHAR) 2580C 2590CFUNCTIONTOSCANCOMMANDLINEFORACHARACTER 2600CIFKCHAREQ0THENNEXTCHARACTERISRETURNED 2610CIFKCHAREQ-1THENSCANISRESTARTED 2620C 2630DATAKCL/$2B51/,KCL1/$2B51/ 2640C 2650IF(KSCAN.EQ.-1)KCL=KCL1 2660KOPT=0 2670KFND=0 2690C 270030!LDXKCL!LDAA0,X!STAAKOPT+1!INX!STXKCL 2710C 2720IF(KCHAR.EQ.0)GOTO35 2730IF(KOPT.EQ.KCHAR)GOTO40 2740IF(KOPT.NE.$0D)GOTO30 2741C 2750CNOMATCHONCHARACTERASKEDFOR 2760GOTO900 2770C 278035IF(KOPT.EQ.$0D)GOTO900 2790KFND=KOPT 2800GOTO900 2810C 282040KFND=1 2830900CONTINUE 2840KSCAN=KFND 2850RETURN 2860END 2870@OPENOF@ 2880SUBROUTINEOPENOF(K) 2881COPENANOUTPUTFILE 2882CK--ARRAYOF10CONTAININGTHEFILENAME2BYTESPERELEMENT 2883C$28BBLOCATIONOFOOPENROUTINEINRUNTIME 2884C$2BB2INOTFLAGINRUNTIMEMUSTBECLEARED 2885C 2890DIMENSIONK(10) 2900DIMENSIONK2(15) 2910DATAKSTRT/$203D/ 2920DO100L=1,10 2930K2(L+1)=K(L) 2940100CONTINUE 2950K2(1)=KSTRT 2960!CLR$2BB2 2970!LDXK2 2980!LDAA#$20!CMPA0,X!BEQ*+5!INX!BRA*-5 2990!LDAA#$0D!STAA0,X 3000!LDXK2!INX!JSR$2859 3010RETURN 3020END 3022@OPENIF@ 3030SUBROUTINEOPENIF(K) 3031COPENAINPUTFILE 3032CKISANARRAYCONTAININGTHEINPUTFILENAME 3033C$28BBLOCATIONOFIOPENROUTINEINTHERUNTIME 3034C$2BB2INOTFLAGINRUNTIMEMUSTBECLEARED 3035C 3040DIMENSIONK(10) 3050DIMENSIONK2(15) 3060DO100L=1K ,10 3070K2(L)=K(L) 3080100CONTINUE 3082!CLR$2BB2 3090!LDXK2 3100!LDAA#$20!CMPA0,X!BEQ*+5!INX!BRA*-5 3110!LDAA#$0D!STAA0,X 3120!LDXK2!DEX!JSR$28BB 3130RETURN 3140END @*THISTRANSFERSALLNEEDEDDEMO.CFPROGRAMSFROM1TO0 COPYDEMOTEST.SA:1,:0 COPYDEMO.CF:1,:0 COPYMESSAGE1.SA:1,:0 COPYMESSAGE2.SA:1,:0 COPYMESSAGE3.SA:1,:0 COPYMESSAGE4.SA:1,:0 COPYPRINT1.SA:1,:0 COPYPRINT2.SA:1,:0 COPYPRINT3.SA:1,:0 COPYCOPYDEMO.CF:1,:0 L