\`:a2f`:a2g`:a2u`!a8<2m`x2k`!"p`!D`"s`>`2n`*> 4`![u`b`j`j`P a`TVSYS s PSYSTEM DEV10 <SYSTEM CLASS1 k"SYSTEM CLASS39 ])START COMMAND E PATCH COMMAND ͪ5SPOOLER COMMAND x$SPELL COMMAND |0*ZCLASS23 ASSEMBLEC)NASYSTEM EXEC4 '3SYSTEM CLASS2 k"HELP COMMAND (stGRUN2 COMMAND ͬy%CLASS10 ASSEMBLEr0kCLASS33 ASSEMBLE2)gCLASS5 ASSEMBLE  -EY SYSTEM ERRMSG @:lSYSTEM CLASS36 EJiSYSTEM CLASS3 k#MEMTEST COMMAND <˜FORCE COMMAND #$>COPYFILECOMMAND a4BACKUP COMMAND ~ufCLASS20 ASSEMBLE.7BKSYSTEM EXEC1 '3SYSTEM DEVNAMESBSYSTEM CLASS4 k# DUMPDISKCOMMAND ˛CLASS30 ASSEMBLE]8CLASS7 ASSEMBLE :# SYSTEM DEV9 <HBASIC OVERLAY1ek.WSYSTEM CLASS10 k"CREATE COMMAND a4LOGON COMMAND 7;CLASS40 ASSEMBLE9+PCLASS43 ASSEMBLE12jCLASS28 ASSEMBLE!d 5\+f FILELISTCOMMAND ,lBASIC OVERLAY2# |'$1MSYSTEM CLASS6 s*PASSWORDCOMMAND 2TEXTEDITCOMMAND Lͪv RUN COMMAND ͬu2CLASS15 ASSEMBLE$@?CLASS38 ASSEMBLEh 3+yu SYSTEM DEV12 BASIC OVERLAY3+ k$SYSTEM CLASS7 EXSYSTEM CLASS30 sDEBUG COMMAND 4skARCHIVE COMMAND pb#CLASS25 ASSEMBLE*D(CLASS48 ASSEMBLEFx 82} BASIC OVERLAY4~ E*oSYSTEM CLASS8 k#SYSTEM CLASS40 EOVERIFY COMMAND l#$8CLASS12 ASSEMBLE -E\CLASS35 ASSEMBLE 4CLASS9 ASSEMBLE ,1\ SYSTEM DEV32 SYSTEM CLASS15 P9SYSTEM CLASS9 k#EDIT COMMAND Ddss6RECEIVE COMMAND CRT COMMAND SEEK COMMAND hͪ ASSIGN COMMAND ˛ESYSTEM EXEC3 '3SYSTEM HELP bTOBSHOW COMMAND ͪUNLOAD COMMAND 8˜h@RENAME COMMAND 0ag!MACRO COMMAND lͪXLIST COMMAND  ͪ SPOOLER LOADFILE $vSYSTEM CLASS12 PEEK COMMAND Dͪ4MAILBOX COMMAND (ϪCLASS22 ASSEMBLEN3Y$CLASS42 ASSEMBLEw6CLASS3 ASSEMBLE 0 CLASS4 ASSEMBLE 5 CLASS6 ASSEMBLE! ,=, SYSTEM SPOOLQUE@'3SYSTEM CLASS22 Q9ERASE COMMAND ˛CHANGE COMMAND @(#LOAD COMMAND `$UMSG COMMAND ͪ{MOUNT COMMAND ECLASS32 ASSEMBLE%/#4SYSTEM NUCLEUS h9$BASIC COMMAND UVSTATE COMMAND tͪCLASS27 ASSEMBLE 9Q CLASS8 ASSEMBLE )> SYSTEM CLASS42 uRECOVER COMMAND <szCLASS52 ASSEMBLE/:k+CLASS14 ASSEMBLE.&ArCLASS37 ASSEMBLE 3K! SELECTEDEXEC B 'sh SYSTEM DEV11 <STOP COMMAND 0)$gTERMINALCOMMAND Da4INITDISKCOMMAND . sv'SPOOLER OVERLAY1 $PCLASS24 ASSEMBLE_4sCLASS11 ASSEMBLE%,wCLASS34 ASSEMBLE Bq0SYSTEM CLASS14 L9REPAIR COMMAND ͪOERRMSG COMMAND $ͪSYSGEN COMMAND H'xnACCOUNT COMMAND ͪe CLASS21 ASSEMBLE,5?CLASS44 ASSEMBLE 5:CLASS MACLIB B U SYSTEM EXEC2 '3SYSTEM CSI $/ABASIC2 LOADFILE]@ERSEND COMMAND CLASS31 ASSEMBLEA7Ϋ(!CLASS100ASSEMBLE893GSYSTEM CLASS11 -OWNERCHGCOMMAND ˜4;LINK COMMAND / X:_%LOGOFF COMMAND (ACLASS41 ASSEMBLE$-5CLASS101ASSEMBLE[H7B:cCLASS29 ASSEMBLEh ,X ATTACH COMMAND a4RESTORE COMMAND &2CLASS1 ASSEMBLE 5 CLASS39 ASSEMBLEP ," SYSTEM DEV13 ʴ!USYSTEM CLASS31 EFSHARE COMMAND \˜QCLASS103ASSEMBLEod;B;CLASS26 ASSEMBLEm>D7DEBUG OVERLAY1=$ [#w,1CLASS2 ASSEMBLE ! SYSTEM EXECLANG;BASIC LOADFILElEo^SYSTEM CLASS41 <SYSTEM CLASS101E2KILL COMMAND dsxSET COMMAND 4/CLASS13 ASSEMBLEB)UCLASS36 ASSEMBLEa/RW DK t " (Wd xF7P5.6M03v O)O O< xF xFxF: = : 2T!9*3s#r1: G:S*Q(>2x˿"!9*3s#r1_!"2 ^#V#~w"3T(^#V: 2T: = R*##U! U a< V U`͞͞͞͞ ͞͞͞͞ ͞ ͞͞͞͞͞͞͞ ͞ ͞͞͞͞͞͞͞͞͞: =(G: (@! ! ~(5=O! ~(#! # : (C*##~O! F(06: o&))^#V!a<[`z(R( 8 DMbk: $ { !a<"!} *! U: <_! ~(66! {(# T](H#: (=G!_v(˶O: _! ~(:a<} O=G_!O: <_! w} !  # ! UO! T_!##N#F((***a<>$(C62 :> ! 6*##~2 _! 6!9^#Vr+s! _^#VXX= H(4 DK+)\K0d(3bw4'5 5,-,*] +05;u;./(NS!&/435 [1v4,494X4M5+>/49q4Cs8{56^5F4X038US443QY%{%3&%%3 4 8DIl,848&-##/%)030>>b0 : = !'&8! ~ : ! *[66(ͮ[ ~~# 66*v(& F R*8~ F _ ^ {( >>_< &~ 2  >_<_&C:2y2! *:(###~(*>:gv({> (~ 8|*Į":g:2("v({ > ~ : : 2'! 2 : (=G_!˶Oͦ:Gͪͦͦͦ4>DE|(!ɷʻ̾!5(:w4:GO(:1O) (,8 (08) (4-(0(4&>!N^r 4> >,l&>,&44s7~#(?˯Q( I(M(>RO  RM(I  $!*###>QN*3&^#V Invalid call to disk I/O: addr: a,bbcc,ddee,hhll not readywrite protectednot initializeddata transfer errorinvalid disk addresschangedsector not foundtrack not foundheader error -  Disk (-3G:(2~(" 6 6 666666wn >>2CS"6*|!'": ~L>0>6]6:: ˗2:( ~:w>6]~!kT::<2:l0!~6]W(!+w(n ˷\ !45 K!kU[*7TK 6(_(g(   w z>!">= GOF(*| >>(yχ@@@(y χ"2&O! ~!! N#FC66,w> 64w>2qp"S6!kT>g.0:&>GĴ66*[ut}$|%:&~<#>":l0!~GĴ!445 6!kUFN[*~7>! Lw(o !O >@r6'O~(' '*M~2>#(.W!(#(#( 6Û K! DMn &^ '`i&|%}$^ &:&{<#>"!~G´~<<#*[|%}$:& #<#%$:&> 0!O 8(I ,$> | (+3 f  Vy  ^(> $|I|-% ~ 0h, V ^ (\ |$%( (x(  ( 0  ~( (0# }Gig y ! ~( ~( ~ (,M~( ( 0#~ ~y^O|I*3 (P(O ((ʤO 0 V( ^y ( ~((0#OOGOG    *3~ ~ =w w 0 F>0 F(7~#8~ #8 W N( ~( 8 0O?@Ѿ >.# >&# > # ># ># ># > n(20W Oy*3 F( 8^( NH ~y ( ( (( *3% 38? F G N Ny80 _!^#V 8( ~ 84 ͫ09 q q if ͫ6 64 ~ 8~ ݾ(HN HN H5 4~8~wÙ6 6ͫҡ 6 6Ù6 Ùͫҡnf  H~  !ͫҡnf H~( HHLHMHá~ʡ5Ù á áynf|(###y9 0;B^  (( (O(!! (  @>ø>ø>ø> ø> ͸3^Vz(7R ^V8666^Vz(7R ^V866x o&)))))is#r_3^#V|{#_x {x { x *D|(R>  8 x = y ( (] (2(Dq N(5 ~ w w  V(a~ Z~ SV(M 6  ͞^ ~ N V   ~ w ~  w O= q y ( ( ~~Ly ( (~ ~ w w 6 { x>Q8!D08!:8 A8G0O)8)8)8 )8 H !08:8D )8DM)8)8 8O 808 :8A8G8H)\xͯx 80ɯ!~(#O#F#>/B<0 0  <>0'd z 7|M!jR0?YWJ{!908)( 0 (7ɯ8>O?͌i&+͉ : <(7DM!7~g~|( ?nfR8B?nfB8ؿnfR8˿͌Gyx͉8 : <(?7 nfR( 00G: w&*w&e&e& => w&> !&wO~ x!&U!&O~(~6(OoWgN6#F6x( !B(B8>z(* !' >ɾ(vr+s6##^#V: w#s#r! 'B('!'B('!'B('!''B('!1'B('!;'B('!E'B('!O'B('!Y'B('!c'B('!m'B('!w'B('!'B('!'B('!'B('!'B('!'B('!'B('!'B('!'B('!'B('!'B('!'B('!'B('!'B('!(B('! (B('!(B('!!(B('!+(B('!5(B('!?(B('~#^#V8 42l< <0͂(( 0~wLsJrKwIbk#~ ("$(08:8A8[8a8{0ˮ6$bk#( ( ~$Aw!Oo|gFI˸: )_!|NLe}6~?wMne]&~Mo0$FI˸ ~)<)^JVK# C ~L 7#~(wLI~(^JVKÌ(I~(FI˸  (NB( 0 !!~Mo0$4)yI~ IOI~( FI˸ < I~ =7~L( v 6L^JVKÌ(FI˸: =(([ ^#V Z*͝ ѯ6,[(ѯ,v Oeݾ H~ 9~636 [ 36^#V#N#fi(>7,!![> ^#Vz(= R #6,wG~ [>+>+ ,> ,[(>,v e(~=66#[ #=6G=6 7x =6!c(T[>+>+( 836Fwx [G !c(U!c(U>70(  !c(T!c(U7bk: 76!r-TCs-Sw-"-z(|(!"-}6!"u-.~(Ks-[w-*->.~?<2{-#!"|-"~-, <[w-*|-R8-͡,:~-(;= [-*|-R"-*y-"-*-|M,"w-*-"y-~(A!"|-*~-#"~-"y-; # x :{-=2{- <[u-Su-[Ks- *|-#"|-*~-#"~-; 9# x 1:{-=2{-([u-Su-[Ks- [-*|-Rد~([-*|-R,: 6!r-T"~-Cs-Sw-<<"y-!"u-}6.~(>Ks-[w-*~-.>2{-*u-R( Su-[Ks- [^#VKw-C~-:{-( Br+sKs- s#r*y-}_< B8+Ks-[ B0Su-Ks-[ !R [y( { :~-8 2~-> S>(W:{- ~z/w*~-+"~-|((> # x Ks-[u-[ Su- Ks-[u-[ *y-))[w-!r-U7[0:O:g:o/0 f D V >-A>-'A>/D>/y8OO!k/ E V> JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC0!F>:#F>:#F00:0O:0G?8:0MO:0G??xO:0G  *J*L*b*d|(F0O:F= G?(0Ox('@(( > >d  >  y!~'w`8f6+~'w`8Z6+~'w$8N6:g(O :'0'>( <2 1! 1 ''(8>' 6##~'w1(1010110101*|(+"|( *|( +">*X1+"X1| ͑0*"X1H3"3O*"3:23R NA ! D!~2#^#VSz;2*3:-#*3^#V*3"3[!3:͐#;2 3!3*3|;2:33-#[3*3R :3! *3"3:323|($:33-#*3[3"3[3!3͐#:3[3!3͐#z3 S3*"3:23!"3"3 3!33*3|(:3-#*3[3"3[3R8*3[3R"3:323*3"3[3!3*3|(*3[3R"3:3[3!3͐#*3|*3: 2"23"3:3*3 !3͐#*|̒31*3*| ͒3: =(!T5c3:-#*3|(+|("3:[!3͐#:**3":32|̒3!3͐#: =11*3: *30}x?h&)))))*3ѯX4Oo&)))))!i:;0~0~0nf0ut0u(t)0u&t'!x03O ~?>7Mbk 6x6#6G '5W~(0>G ~# < [ ##] >#ů<7##:>*x( ( ?8@>S>*x*(S?3_~{>O8##F#N#~xGyO/o0~ g~ w 0 v 5 N / ;( AH^? ( ( ( &U.A~('~_5( ݖ0݆w~7~ݾ(~݆ݖ0݆_w4*3]36b64XOv644 Need System Disk "" -  [ ## # 64O4:1O4s7˯4Q(M NDisk () Changed -  0n(f)6(6)!9nfutnftu0u(t) f |( } FF( 0OF70 >(?0GM>*3nf:O W(^Vn(f)7>RXRXXRX|X>QN*39~(# x ~ ɯ Cancel EXEC (Y/N) s70 ^  O ^  s70~9(#09ɯs70~ w    s7  ~(G~?=(x(@ ws7  ~(Gs70~ w s70 >:_ *: = $*D| s7:4˯4Y(4>L Wp[ GF OK to IPL (Y/N) - ͊7~( ~(f >~<(v(>~( : ~ #(ЯG?(w# ͊7~;~;^;~< ;= ?( ( ;8G~#;O@y ; dD6͊77̈́@U@~<-=A |^V<^Vsr[F nf +ut | 1F ~w# x F^V[ ~w^VN F nf7N F ^Vn f U@>6͊77̈́@~<-=U@N(/1F )N F ^ V nf|@Bo@^Vsrnf|(ut1F(nfR(#ut!utUB^ V 1F(~(<(=^Vsr[F n f +u t | Ù< 6͊77̈́@V> <~<<A bnfo>F^V[ sr [nf +ut | ^4?F^V[>( U@<><1F +nfnfut|@BFsr[ n f n f ?F^V[ sr +| nf#ut1FnfK>K>^Vs# x ^V[F sr rF^V[ nfut|(xUB!BDMnf++ |(nfO ut[F &[!RNFq#z F^V[ sr NFpF^V[ ^(V)!R<DMn*f+NF^q#Vp#srz( x 7N(*3I^Vut#61v(61srq p utnfut~?o&#u t ^~Wsr 1F utn f N F (w# !^ V N F (G (O ( ^V&#ut!ututut^VRu.t/UB~(< .^Vz $^Vsr^Vz( srUB<^ V ~ w0 +# x ^Vsr[F ~0=w0 ӯn.f/##u.t/|(!R^V^VR0#utnf#utRAnf|¯A<7FU@NF x !1NF!<0?J{_!UlcZ^VutF )n(#nf +l&NF OF0 [F [ !BDMnfu*t+!ututu,t-^Vs"r#!#8<u$t%<u&t'^$V%nfRDWCRn$f%+]˻#s(r)<^V^,V-R(u,t-n*f+F n*f+^(V)^#VzDsrUB^ V ~ w08A )# x F^Vsr[ ~0=w0 ^&V'n$f%u$t%#^&V'n$f%Ru$t%utz( :s&r'@Cnf+|(u$t%WCsrnfu$t%WCsr6͊77̈́@U@V> SFA(SF^Vsr^V 1FD|@# x ^Vsr[F z ^# x ^Vsr[F Vs r!UB6F^V[ 1FE^Vsr!ut^V[F sr^#V#{SFnfR( srF^#V+++s#r###z [^VsrF nf|(hutUB^V# x [^VsrF z ^ V!s# x [^VF sr r[^VF nf+utSFF^Vnf ^#V#[$+r+s^V[ sr[$+6+6+V+^| lEo@^VN F nf7xFɶ? MIKE  1DK!7"!L"F!5" :2F:@2F:gx  T!T!F 6#2F:TO2T!D\.~O/wq $ :(g.z( R88"~F:O *W((:oz %8|6T]G H^V*~FR|!@(o"RUU!#"!$"!"R"!bT]6 [!b>#K*B"!a<>#K *B"KB"R[ G^#VS#*[ $$L[Z*#!b2*[ DM!b[[>#R[ F(^#V7RRL081DKR[ºM^#VS%^#V!@'*R"H [%!b2[!b>#R[ ,!FH!^#V!b2*B"!b>#R[ ,!FH!^#V!b2*B"!b>#*"+ !n˾˶F<( 6 Nx ~# LMy!{R!o&#[ 8~04^Vsr7RM8utT= M! >ax8a 0]~(R~ݶ JM!R!n&[ )~0^Vsr7RM8ut M(? T4:>(*T40T4?4*RDJ> >-> 6DJ4?T4:wQ:gOS4DJ:DJ O!DJ~ ( 084:00#x8'0 T]>:0T]>:!DJ::22"R(%O$%O~ %O"R%O`%O( "R%O`%Om:2FT4DJ:DJ Q!DJ~# *x( :G> !EJ.Q#.Q Q8~# ( QIQ'Q8+x(z cJ!bJ6 OeJ!DJPO> o&bJ!F~# O Q8+~ ( QO#xO++hJ!bJDJ~ ( IQ #PO> cJ!bJ 6 bJo&!FeJ~ O Q#8+~ QeP# CT:ATG˯ #:AT0[AT >ѯ0:?A[?bJ >/!bJ !DJ:Fg(+/"ROOOO"ROO2OO//"ROO2OO"ROOOO"ROwO!XROXRWXRB >2pR!nRY~OnDJ$:0 :w%OO:2F:w(*J|(RG!!KA87E~# ( 08:07x xȷ<>FDJ>DJ}#SYSTEM DEV SYSTEM CLASS SYSTEM ERRMSG SYSTEM STARTUP SYSTEM NUCLEUS SYSTEM CSI SYSTEM EXECLANGDJ> :g(%> $:GO8888> o&"U:GO8888> _:& 8o o--0 o"USU'++ &[U[U::&! 'TS>,> *U} 8 o+[AT'CTS> *U>,> *U:U 8#l > DJ4~ # Time (HH:MM:SS) Date (MM/DD/YY) DD-MM-OASIS singlemulti-user version K January February March April May June July August September October November December Sunday Monday Tuesday Wednesday Thursday Friday Saturday 0nf">2!!@U(:(ut"`*3RDM(8[3sr>T]i83[3R8:(0g!UR0 !UR8U(ut~WR|_*R"R!4~U!~w>h+/>i+~w>h+~["V>=G&>'' 'GzV>#$%<"x&>,'' G( *V zV'_(*V !_~w#~w!_~wV!VN#~#y*"X1Wg.1s#r>g   z<Å@ B>CxBBD@E6͊77~( >F7~(/G<( :>(~ ( @>2@= N?~(?G>8: >~w~(@(+ ('`(#>Ë<V(~ʁ>() #~ > : =( +>(G:([(7<[('~w[(V>>@Ë<>Ë<> Ë A+ +#ut>w^VE7>@~ʋ<~[ e(~(§=Fx< G˘p:8~§=Fo?[u?=6>#ut}|.eF=6 nfut66T]F^Vnf w#66^VE7>Ë<F> Ë<n <^ʡ=f¡=~w~w^Vsr~w~wE7v7@fʡ=^¡=~w~w~w~w^sVr!l&))^sVrutF[ ~w#~wE7~¡=~w~w~w~w^sVr^Vsr66E76͊77~(#~(0 A 8ڬA<( f  ʬA67!%U!%TN?V(~Af zF^Vnf T]6{( [~w~w~w~w~w~w~w~w.[F F w ^V"o ^V^V[^#V͝ ~w@n@G^  @ @x (@@ >2@= @@fgA[nSA~w~wSA͊7Nnf~ABIB utq>>^#Vz ABFnfsr utq͊7~=B~=Bf=B~76͊77N(V N?>~(ݾ(x>( nfBD7 x !1NF!<0?J{_!UlcZ^Vsr^ $N(NF +l&FN0 nfF !RDM~w~wZDnfB(*8(ut^VsrnfF NFOD6͊77>~OD~ ODx>ODnfBOD^DnfB(-8+ut^VnfF sr NF^VnfF N( V N?OD?Ã<<Å=>?t@ä@÷@ï@A! nfnf~(*3nf7%R84ͅ=V7R8^VN2E*3} !>ï@[ |~(tO(^VR(>7N*3##^#VR0 >7^VF Q7R0^V~G(ͅ=2>7=6 0u_t`x N^rVs*+R( *5R 8**N{F|>$n{f|~nwnTurtshN|y(^rVs2^{V|n_f`{(nrfsZ[ N{]N•>n{f|~nwnʕ>\nrfsurtsx(rfs>$4s^rVs[ srrs͝>5n ~wa#^V##n_f`^Vn_f`ut5a 36w~w~w~w6nfutnfͅ=0wh !J97~h!r-U!c(U!&U!%U!%U!WUZ*0:O|(@: ^VR8^VR05y hgoM 6? y( 36:-w6*+ut*.ut*3>wͅ=} } R ~(>+++ ?+\8?0 n(#+~( ###~ O} !>ï@!0 ~a8{0˯ ( 80# 8ί?808ͷ@?0sIrJuKtL+)[[@>$uMtNA[ !:>[ A ʎA A ʎA (O:w (py[ kOA ( YyA (M (E|( {(+^(OA (|>|'A^( A{(A}(nIfJx(~ ((~ ( :AO#:AA (0:OxGGAnMfN~#uMtN: =(>!Nï@!9x(80Wx C>(?44x6w6 *3~pp7C[C)C^#VS#X##C[C)C~2-nf"+nf".C[C)Cnf"5~27nf"iC[C O^#VS%[#[ ![![#!$CJ[ !Jw?LC4~ (O#VC4bC4>L SYSTEM.:S missing! New System Disk Required!!!!! Mount new system disk now -  SYSTEM NUCLEUS SYSTEM CSI SYSTEM EXECLANGSYSTEM ERRMSG *EXEC ver 5.6C Copyright by T.S.Williams2V3bk7%R0!D>aP0!9!~ ?*2VF>(+~(G~7<8>2V?2VÆw7~7 ~8 w8E"/-!E!u5t6!16 2!"!*/1>~ ( = yRg.[~7=W1> !#~w8*# --ED!2( D< >Y^V!26 #:DG 7%R0!D>a^#V+z :V(*!|^5V6!3z( > +"^5V6s5r6*> "~X22~08:0# (- #~  ~ #"~8w(9<*> ##~n5f608:0͗>>> :&Z1!~ (~ 0> !~  #(;~8(Y>!~ ('(()( ('O##~ ((#@()#~ ()( ( ~8ˇw8#* -  86͗8*~# (=’~ ’ͼ ( (O ( (\(  ( >T2*> "n5f6#u5t6X08:0  ( & &~E ~N ~D ~ # (:T(÷÷81͗} 8 1͗}2V57~ G(ˇw nf 8~7 ~8w8:V͵ > bk> ++~ (#6 ͵>S2÷~ G(˿w P~ w  :P~8w88!~&6.16&~ > !  &A[!~ ( ( #( T]6 ~ ( ( ~ (! ##~ ( (~ ( (#  &> 81~ (~ *~ 7 (,() #!26 ( #~ ( (,( (()("!> ++~ }& T]6 #~+A8[08J:0F͋ Az ={08 - <=O!1 ~% #~+ (<6 T]<!8 #:V'!@ 2#!1~ ( y8>bk6 o&<!F #ñ!K # ;y!P # ;x! ##< ð!#͗~ :& /: (!W #^#V7  ~ ݷ2!1 >&!> > : A[ !6 ڽ :&v !U͵ !Y͵!]͵!a͵2 !e͵v ͼ!6 !~ h (#(~͗}( 8>G ͗} > 8>ڽ O!#  ý #1!~ (#x!6 o&h !h 1 (- ͗ >N(>A!6 2h ͼ~ ʽ (#(~ ( ((!'6 ý !ý 1~ #(~ ʽ #2.+(-(*( /(|(#~ #~ :.| & (~ ((!'6 ~- ͗!R͗ - ͗!R͗  !6 +( -( *(*/(7CR>|(!RѪz(!R\ '(!R\ &(!R|( 6-!R bk6 Î > 2(~8w( !N~# ! &ͼ- ͗ L} ++## "}Wn5f6#u5t6*~X> "~X ͼ!3~08:0 #~ ( #~ ( ( #~ ( ( > q5p6"*ͼ:0!͗}=O> #͗}=O!i~~ #(~#(N˹ͼ˯SO( P( W(N0O ˯O ˯N(F(yyO  P  W  yO  P  W  ͍ D2*"~# (+& #~+*($ ##~++ #:~ # #~ # ~&R #~*($R #~ R +~2:<20<=O!1 "~ (% #~ (*"R 8 :${:* s:$s{ͮ1 1  G  ( (O !QE>B(c! =B([!TGB(Q! >B(I!EGB(?!=>B(7!TLB(-! :&: :$(**͍ *> "N5F6q5p6~~08:0#~ #- #~ ( 1 #~  ͍ *++> ##"N5F6 q5p6x~08:0#~ #- #~ ( # #*;#*++> ##"N5F6 q5p6ͼ (! (n5f6"!!3"q5p6^5V6s5r6*!R*( > "~08:0#~ #- #~ ~  (#"D~8w8OͼA(9T(5N(OO(=S(KE˹˱yw8  ( ( ˡ˱ˡN(˹˱ˡ˙>F2ͼ~F(L 0~I )~F "~O ~ w> ~2! *> ##>Y-S";;~ G 7ut +68w > yDO:F(7B8**7T]B8~(#**10 >!0:?EXEC not permitted Maximum EXEC procedure nesting exceeded! Error in EXEC file at statement: Symbol table full at: IPL EXEC TYPE wBEGTYPE SPACE (CONTINUEQUIT ESTACK BEGSTACKSKIP GOTO l CONTROL CIF CRT ESC  READ WAIT WHILE UNTIL 2REPEAT ;ERROR TRUE FALSE &WHILE &UNTIL &REPEATRETCODE INDEX NULL PAGE LINE TYP LEN LIT CAT SUB HCDCDLILICDLEOLEOSEUPONPOFBONBOFBFONFOFKONKOFRVONRVOFRULONULOFU +/2TY_|7@Euz 3BRnq/LV[`kqtx!&)036CFMPSZ$*16=_-2Aal#*>Uo{~ "%(+.147:=@CFILRU\_ev    # & - 0 3 7 = \ _ f l o t w { ~    ) / 6 9 {     $ 5 8 = Q W ^ d j m p y    * f     ) , / 4 9 > E H M P S V Y \ c h k n t y  $/8Ktw|).369<J\ 4>A&Niy!%Qaf_is} MTVI ROOT MTVIROOTSEG2 MTVISEG2SEG3 MTVISEG3 7'NUC COPYFILES = = A 7QSELECT1 JMTVI ROOT MTVIROOTSEG2 MTVISEG2SEG3 MTVISEG3 7'NUC COPYFILES = = A 7QSELECT1 JMTVI ROOT MTVIROOTSEG2 MTVISEG2SEG3 MTVISEG3 7'NUC COPYFILES = = A 7QSELECT1 JMTVI ROOT MTVIROOTSEG2 MTVISEG2SEG3 MTVISEG3 7'NUC COPYFILES = = A 7QSELECT1 J[1] Syntax error. [2] File name missing. [3] File type missing. [4] Drive code missing. [5] Disk not attached. [6] Disk not mounted. [7] Invalid option. [8] File not found. [9] Disk full. [10] Directory full. [11] Invalid file name. [12] Invalid drive code. [13] File "{1}.{2}" not found. [14] "{1}" is not recognizable. [15] "{1}" is an invalid numeric. [16] Expecting "{1}", found "{2}". [17] Expecting "{1}", found end-of-line. [18] Protected file. [19] Insufficient privilege. [20] Incorrect serial number. [21] Expecting end-of-line, found "{1}". [22] Required parameter missing. [23] Must be "ON" or "OFF". [24] Incorrect format, should be "{1}". [25] Cannot detach the CONSOLE. [26] Invalid record in "{1}.{2}". [27] Cannot attach to an output only device. [28] Cannot attach to an input only device. [29] Can only attach to a random storage device. [30] Cannot attach to a random storage device. [31] Cannot detach the System disk. [32] Undefined logical device. [33] Undefined physical device. [34] Must be sequential organization. [35] File already exists. [36] Organization code is missing. [37] Missing option: "{1}". [38] {1} is not attached. [39] Device is not attached. [40] File channel is not assigned. [41] No files found. [42] {1} file(s), {2} block(s). [43] Must have at least two disks attached. [44] Source and destination drives cannot be the same. [45] No files erased. [46] {1} file(s) erased, {2} block(s) recovered. [47] Source and destination do not have the same capacity. [48] Receiver disconnected. [49] Receiver timed out. [50] Must be private file. [51] Load module contains unresolved external references. [52] Cannot mix ABS with REL or COM modules. [53] Cannot have multiple ABS modules. [54] Symbol table overflow. [55] Unexpected end-of-file. [56] Program has no PABs! [57] Only private files may be shared. [58] SYSTEM.ACCOUNT file is missing. [59] System account cannot share files. [60] Incorrect password. [61] Account not found. [62] File "{1}.{2}:{3}" already exists on account "{4}". [63] Spooler is not initialized. [64] Spooler is printing file #{1}. [65] Spooler is waiting for work. [66] Spooler is printing file #{1}, printer offline! [67] Spooler is suspended. [68] Insufficient Memory. [69] Device is attached to partition {1}. [70] Invalid partition number. [71] Partition not allocated. [72] Partition is still active. [73] Partition is not active. [74] Cannot send a message to your own partition. [75] User is not logged on. [76] User is not receiving messages. [77] Must be single user mode or private disk volume. [78] Must be single user mode. [79] Spooler must be stopped. [80] No files changed. [81] File "{1}.{2}:{3}" is now owned by account "{4}". [82] Partition is too small to start. [83] Partition is too big. [84] Partition must be one larger than current top partition. [85] Can only modify top partition. [86] Next lower partition is still active. [87] Module {1} is not loaded. [88] Module {1} is already loaded. [89] Too many re-entrant modules. [90] "{1}.{2}:{3}" filed. [91] "{1}.{2}:{3}" saved. [92] ** Partition has been stopped! **| [93] That account is in use by partition {1}. [94] Cannot PEEK at yourself! [95] Cannot FORCE yourself! [96] All partitions are active. [97] You have messages waiting. To retrieve, execute MAILBOX. [98] Must be Multi-User OASIS. | | | | [103] Spooler is scheduling next job. [104] Spooler has form "{1}{2}{3}{4}" mounted. [105] Spooler is stopped. [106] Spool file is currently printing. [107] Spool file is open or non-existent. [108] Spool parameters: Queue={1}, Copies={2}, {3}. [109] Logon at {1}, on {2}. [110] Logoff at {1}, on {2} duration {3} minutes. [111] Waiting for spooler to stop. [112] Queue code and spooler form do not match. [113] User can't be forced. Logon please: | Password? | {1} {2} record number: {3} {4} {5} | Test number {1} elapsed time: {2} seconds. | | | | | | | | | | | +CSI ver 5.6C Copyright by Tim Williams) 2( 70I F(8n 8N  ^#V8v4f4 ~ ͪ( ! `4^#V!=z( ^#V+!=<=~7( !=8d+#>08:0OxGGx(~ #~ #~ ( #>2g N(I ! 6 "U  !=66  !=<P ͪH 8N($8=!>Z> 2=Z^ʘF(8~ʘ8n˜ V˜ :( o&==Pfʖ % FN~0*'0`'oy'0`'gx'0$'͆o&<'|͆o&=>.=}͆o&d'<&} =0>0= Ox Gy00 8n(87>2g F“ :H0T]6 ~( :(~<( D66 P  UWT]6! P^#V##! 9> ʘ!6 !=~ #08:ڞ 4  ʞ !6 ~# B (H,(D.(@:(<\(8((n)B;B~# (x)(t;(p,( (.( :(((>\ w#~ (N)(J;(F,( ( .(:(\ #!R}ʑ6 #!R}(>(> !R}(> w:: ):G0>2g !~+w## !~ : ʘ$( A[!( !"U W !_ !v(d!<~(]~#(W ~( (,~#  ( ##~(~(>O~˿(0` !_ 6 _ ~˿~ c#~ʌnʌ!) ~ʌW  ( #~#(~ )~#(˿(0_ ~# x(> !_ ( :g 2m 2 n !W  !W :g < :m <2m 2 m != ~<V(  !=H W !_  #6n !_  !_ m != ~<V(  !=H :g <ʞ!Pnf9 %0*08n 8!~!N#Fg. !N#F! 7%R:m G7!:g Sh !=:g *h 4> !>a!D>an !n ! >a~E#~X#~E#~C#~ 0 I!=~ (a8{0˯w#|=|#GOxy,,H#˼|(,}#-% }#-,|( O |%G# .= (,e=Ex(OE=.! 9|=G6#!";> 2 ! 9Ro&)[=>! "U  ͪ(  ! >aPnf9n5f6" ~72 i^#V" 0!  #:( 2 !> 2O~ ʬ #,( (+08:8) 4 (  Ø#! #~#foÞ * Þ  R ' & & |g}o |g}o |g}o |/g}/o !R ~ #,( * "?]Rʲ <"==><>>> =Ͳ *=+"=| *?" Ͳ Ø " DE. >  * ut##" ]* R* ++nf" >]Invalid operator Hex = , Dec = + - * / \ & | ^* ~6 #B ?O COMMAND SYNONYM SYSTEM EXEC IPL EXEC LOGON COMMAND SYSTEM ACCOUNT SYSTEM CMD IPL EXEC RC = , , ET = minutes.ACCOUNTASSIGNARCHIVEATTACHBACKUPBASICBISYNCCHANGECOPYFILECREATEDEBUGDUMPDISKEDITERASEEXECFILELISTFILT8080FORCEGETFILEINITDISKINITTAPEINTELHEXKILLLINKLISTLOADLOGOFFLOGONMACROMAILBOXMEMTESTMOUNTMSGOWNERCHGPATCHPEEKRECEIVERECOVERRELOCATERENAMEREPAIRRESTORERUNSCRIPTSECTORSENDSETSHARESHOWSORTSPOOLERSTATESTARTSTOPSYSGENTERMINALTEXTEDITUNLOADVERIFY),ahy~ 7DJRUXgjo2BIT[n{-0FKTX[`hy|,DY`jmy|29<AGt  (+037:?S!,Wty~/9Obx  ) , 4 7 : ? Y _ m r u       ( + 4 7 @ C M b g j m s z }   5 8 ; > A D G J M P S FLOPPY1 1 D 1 2 FLOPPY2 2 D 1 2 HARD1 3 D 3 4 5 6 HARD2 4 D 3 4 5 6 HARD3 5 D 3 4 5 6 HARD4 6 D 3 4 5 6 USER0 9 CSIO B19200,E1,C101 PORT1 9 CSIO B19200,E1,C101 USER1 10 CPSIO PORT2 10 CPSIO E2,C101 USER2 11 CPSIO PORT3 11 CPSIO E2,C101 USER3 12 CPSIO PORT4 12 CPSIO E2,C101 LP 13 PO TS804 14 T RS422 14 SIO pÒø::[/W(R~G 1_ 9O !W(;(y 6~ "~ >//_( >//o(7 k![5N#~(T]#8OV(4~ >.y."~ w>g/>/>/~( v>M >O>L/>/~>(>A/>/>/>/>/>/~>(>/w/!U>g//G.n ˿O`(?>0/~( yf0O:[@ ~(!;ôN(y(  wôy![4^wô͒ 4q~? #-9?pÒøz:-W(R~G 1_ 9O !W(;(y 6~ "~ >--_( >--o(7 k!5N#~(T]#8OV(4~ >,y,"<_(~ w>G > 0~ ~ w 8 ~ w=_! > g/>/>-~( v>M >O>L->-~>(>A->->->/>/>-~>(>-w-!> g--G,n ˿O`(?>0-~( yf0O:@ ~(!{N(y(  wy!4^w͒ 4q~5DKcmypÒøz:W(R~G 1_ 9O !W(;(y 6~ "~ >_( >o(7 k!5N#~(T]#8OV(4~ >y"<_(~ w>G > 0~ ~ w 8 ~ w=_! >g> >~( v>M >O>L>~>(>A>>>>>~>(>w!>gGn ˿O`(?>0~( yf0O:@ ~(!{N(y(  wy!4^w͒ 4q~5DKcmypÒøz:W(R~G 1_ 9O !W(;(y 6~ "~ >_( >o(7 k!5N#~(T]#8OV(4~ >y"<_(~ w>G>0~ ~ w 8 ~ w=_!>g> >~( v>M >O>L>~>(>A>>>>>~>(>w!>gGn ˿O`(?>0~( yf0O:@ ~(!{N(y(  wy!4^w͒ 4q~5DKcmy?WdDSKPRINT V. 1.00 810803 ( / / )COPYRIGHT (C) 1981 TAYLOR ELECTRIC CO.2!"̓!>/0 ̓̓̓2>2! ̓˯N(Y ̓2 80̓y ( ( 8\0X:<(  N>y*w#" 7O: 0+6 d%!"#< /̓>2M̓d  ( >2̓3̓>2:<>2! X̓̓:(=2 ͵ (  >2>> ͵O> > (͵> 22<2<2̓>̓>̓>G> 26 # ?(; (Q$(08:0 Ox (y ˯A8[0  @w#O @O> ( @_@@+6 :8( #FILE NAME: ________ FILE TYPE: ________ DRIVE: ________    0  Press any key to continue. Disk not mounted. Can't open file. WRITE ERROR: Intercept file is closed. Intercept file closed without error. ERROR closing intercept file.  File already exists. Write over it (Y/N)? _ Character to be used to mark end of file? _ Disk file to be used for Printer intercept: Intercept file is open. Intercept file WRITE ERROR. Closing intercept file... Ss Y\_behmpwz} $',036AFORUY\aelovy}2N(O70y:Sˇ>>d>n(˗2S>d> 'E?ATTACH ver 5.6B 31MAY83 Copyright by Timothy S. WilliamsAbk7%R0!D>aW"ͫ ~ A "*X  (~ (#( 2*~ (]"!*~b# ~=2"*"~ U(]~" UBʫPoEʡC^OIA FgLESHRW']#~F[+z]]{2hz]]{2g#~+PO(E(_U(hz]]{2f:=˷2=>2e#~ (-08:0#~ ]+~!e61(&2( &3(&4]:=2=2P~ !N>a:=2=:=2=+:=ˇ2=+:=˧2=#~ ]8 :=2=:=2=z{2c& ]2;#~F]& ]2<#~T]+08:8}o"T]~0:?**z 7ɯz]!mn#f#R(]>2d*5]2i#~YD#T]#~++P(S(]5]2k5]2j5]2l#~+A12>"#~ (08:0* }*7:_˻*G~2"0#P_)))))~ ~  6x:O1N*y x :ly~6#Pi:_*:i ~2i:j ~2j:k ~2k:i(w:j(w:k(w:l( Pw~ yn &l(4!F^#V1x7R8Pi ~ =_~# r+s#~ ݾ 8P:_)))))~ <(:~(5<(72~o&!E`:> >?~ a*_:woSP:o&)))))*:h ~2h:f ~2f:d ~2d:; ~2;:< ~2<:= ~2=:c ~2c:e ~2e:g ~(2g~(= ~ Pw>8w:h(w:f(w:=w:cw o>Ow>w:g >?w>w:f(w:h(wo:g~()7^VR ^VR86666:gw!&!!!!! ! !!!!>ayW(o&)))))nP˾˶W~#+~q~<(-D666666666w:lg gg_*~0,P_)))))~= ( < ~  RUN6s SPy!x6 x~~ #N#* ~(y~ # x!z !AOx~D =(#> G˸ ( ] ډ ҉ y2>L~o&>,>P~o&:(N(>,>On &>,>C~o&:(&V(>,>A>L>F^( >,>P>,:ʉ >L>F~~ >,>F~~ >,y f* ~O( !m N#fi>B~(>,>Pv>E >On( >,>W>8f(!F(! ~(->,>E>N>A>B>1F <N <V <!~ (#+~ (,(#6  !6?#6?#6?> 2xI ~< ~< !ø >"##!nf !nf)))~(!~( !o&~( !o&~( !o&WO ~P O ~< ~>(!> O #@R82R8R8 &d& &@}(}(@8>?>*G?o&x(@(('d' '! |7%R0!D>aT]6!x"w~ #~ ( #~ x(> #~ ( ! (0 : )DM)) O | u}(q!0mw6 #~ ( ([~ P ([#D(C(P(I(&O((S(T(&2       !>a ~ P #08l:0~08:0OxGG#xB(NC(sL(xFʣPʬOAESH=Wi~ ( (##~ ( þ U!mnfR(##> wUs:#~+F( Us:pw:pw:#~+O(#E(P( Us::::Us::U{::7 w:#~Y[DbT:#~+P(S:Us:Us:#~D:#~L:+Us:#:::#& ! >!T]6w6 | 06 7%R0!D>a#6 T]o&6** Not Mounted **",avail=K,dirsize=,WP,HDL,SYNC,SDLC,STP,STS,Public Name Device Options Waiting for device to be detached. Kn,X`  %K SYSTEM DEVNAMESSYSTEM DEV CLASS CONSOLECONRDR PUN PRT COMTAPPRT1 PRT2 PRT3PRT4COM1COM2COM3COM4TAP1TAP2TAP3TAP4CONICONO PRINTER COMMTAPESABCDEFGCONINCONOUT READER PUNCH PRINTER1 PRINTER2 PRINTER3PRINTER4COMM1COMM2COMM3COMM4TAPE1TAPE2TAPE3TAPE4B_bilorw "',16;@CJNQUY\_bfjmu !%,/7?DGJORVY\_belorux  "%-036PV^dg 8=DGLQ^j $+/4>SV_bknwz !;DJPV_dmp|#GJRU\h~v> < B G N Q Y i  0 a e s + E R U [ o w  $ {  # 1 6 i $).38VY` ),25;BIMS`gnsxAFILELIST ver 5.5A 25JUN81 Copyright by Timothy S. WilliamsA~ (~R (%((! ~ ((u~ ((f~*(F#~+ (/8)2 ?~S 2 +H0 @2 G:(! !!!>a>2 #~ ~ (( ~ T(YPOH(kN(oAʔLʣDʧFʫS(*08:E¾9 : (>2 >E0 2 E(F : (>2 A >F>2 #~O¾#~H( S¾2 2 ++#~+P(1>2 >>#~+N( T( D( O(Iey>2J 0~0~>2 #~+U 2 #~ (#+~5010>1L2 2 P~2 ͊ھ2 ʾ͊ھ2 ( ͊ھ2 0 f K xAOC : yھ: ʾҾ: ʾ2ҾѷR}o00O#8AO#xGyG~*([0A8x (:008x#~0:?!\7%R0!D>a0~2 P~2 ! : 50'%G;x.0~(6: 2 %G:  !&> a˾:  2 : 0>2 : : O! N! 6 !: 6 : 3!: J: 5%28 >02 !6  ! ! ~ (#>.~ (#>:: >*GB $% !: (!"  ! E(Fu2 : 6' I u ( (! > a!> aI !! > a: : ( : T( 582 ]!\6*Z w 0~n(f)!96 p9(2  !"D}KX (wO ( (! ( ,( (w#6 #y2*Z ~(B8 #  ~(#RDM! ! è! è !*Z ~(n&[X q  #6"V "T !9: ʑ͓Ͷ: E(F I ! 50I !: >2 : 50 %G;x2S y2R  ;y2Q : T :Q 2 : 1 2 :R 2 : : 58%: (d : 2  : 2 * #"  > ! R" -: g:8 G;x_!! K ! K I !#: ( !c #: 2 ! #!` #: 2 :& <2& 2 G( :(͓2 ͓ͶÈ *V ~- : (   ~(:(: ( ~ݾ8(#8( #~ݾ8 6ö*M |!)(T: EF;2!:6 ;*M : 50!*O  !!:I #*O C;!*`> 2 `*T 6: !: G~?_S\ ~2_ p##: _!!p! : ~?( @(#(* 2 #: G:  !ù[\ ! >2^ S\ ~k k  #*(.?(&@ ~Ak [k # ~0k :k k #  *(.?(&@ ~Ak [k # ~0k :k k #: (: : (~k : k ~(E: ~0n(f)!9w!u(t): wk  ~w: w/~_< _*X ~ ! +~( ~w{2 w: Gw: (k  ! '+k : : E(F ( # #k [T  ST bk7%R0!D>a: k *V *V w"T k : (Y:b (Q~2b ! 0o& '[Z _! ~! 2 | ~ (#> >(n&>)> >2 *M #"M ^V*O "O :#~!hi6 G_!p!h6R~(6A(6S(6D( 6I(6K(#~(6W#v(6D#n(6Rnff(|g#͊ l!nf]͊ nfb͊ ynf͊ !6 !~( 6EW 6LG 6OO 6Fnf͊ k dN~????͛ 2 O~'G~͛ 2 g~x???M͛ 2 oj~''G~ͮ ~?ͮ !:: (!\9: 58`E(F(:: =2 ̯j !7~( (! !I #>j !:+6 !:I #>6j : =2 ̯!6 I #>:  :^ =2^ 2:_ =2_ !o& &}o& 0>0* * >5-"SYSTEM ACCOUNT TPRINTERn &2 &3 &4 &5 &6 &7 &8 &9 SELECTEDEXEC EXEC FILES \\\[ 0Files owned by account: Unknown 1FILELIST mm/dd/yy hh:mm Page 0Fname--- Ftype-- Dr --Date-- Time- -Recs Blks Format- Label--- -Sect Other-- &1 MM/DD/YY HH:MM files, blocks. c h l v z } K T V X Z R U Y b f l        " + 1 4 ; a d g l z }     ( + 0 3 6 C F K Q T X [ ^ !(07<AX]int  ' < G [ a j p v y    " ' * / QUZ^dglrw|$+.8AGNQV`emru{~jmu{,48BEK\orv{ "&)18<@L[`cglosx!-58ADJPU[akntx{ !&?KQWcGL_jy  ).14=GMXafory$(+.147:?BEQX ÖL =>~,T"V~(50~ (<NFͷBDE6>#6utE>T"~nf#_!@^#V=)%%P0IeR41 .8 V`%%X0I0I M0I:%%%%%P%%bnUD%5nf6  ( (w#6  =ͥBè^V!&fnuKtLnf#~ݾGnf~(W#^#~#(^>%–"p~ (  =͢B =ͥB =6>6[^VR<+>(Ö"ͪ4^V~(G#~a8{0˯#> nf##V#^znfV#^#^VͷRDM~`@>(>8># +q+p^ͪ4~,T"(~|R##fn^Vf#n#^VR^VnfRDM!utsr6#p#qnf~> ʖ"T]#F#N#ut^VѷRDM!sr~ ( ^VRf#n#^V~` ~#(^V͙9!͙͙(! ~! ^V(uI~! ~+^+Vnf~#ng R| 4(!! ͪ4((nfQzQx( G|}xV^nf#go(!V^V^NF >9!V^~ R| V^nfV^nf#( N ̓IfnNF >9!^Vnf ~ uI~ V^nfF#N#~#(#^V fn^V~ ͪ4^VͷRtufnNF 9!fn^Vͪ4Gh x( 9!##(zQ| ( :%8}J">ͪ4^VNͪ4^VN0"0"nf$F#^VOnf#KKKCx(8y8O z(z~ ̤?~y^VV(#~+^G( >  0F ~ M(>,n(>;2xV  ;xx0 ͻ(0ͅ> #~ ʡ N#V ͻ0F 0"}( V(^(-x+0> V+ͻ ʖf(aV(x#w+ͪ4(q(Z~(0O#~ (' +~ ( #~"('(n(;,( %NͅF#>"x( ~#" >"V~(ROͅ#G|  > ͅO ͅPT]#~-(  > H ͅ> ѷR}GV̻f(8́( ʡ( +ʱâʖ+âV ͻÖ~–¢#Ö ^V˷RR> Җ"A > > #ͻV( ##p#E@^V˷R|(O+^VVf#ͪ4~O>ʖ"nfBut6# V#NFV(^#~+( >  ~ #z $ nf#V#ͪ4(9  Qnf#~#Ox GGCnf#~#Ox GCHV̻xBKWE nf#^ut #$ V(%#~+Gnf| }(~  (##ͻ6 #6 #7 i ~ ˿( ͪ4~(G#N3~2GN#o G ~ @Z>^V@T"ÿ́ ͪ ("('( 8x>( x> (5>x>ʽ  ý O 0x½ y ½ > V w;V½ ++ί~)I f >T"~``(0@(Nnf QO (b(_ ([, (V>T"nf6#"('(, ( ( (w#+~ (#O (  w#NFB} `ixf( f(9!~()IG G , G >T"n ,;7 ~yw o ^Vnf# ( (w# p>9!̈́ 6#~˿( "ͪ4~ w^V#~! 2,ͪ4~ w^VG.#~ 8OyF> ^V6;ͪ O(, 8E~  yF(~ :x   (y x> (A(I (y(Nw; (~(G~(~;  ^VL x    & $O ( %  &h $yO,~(y % >  >Ö"T>`@(8~(j#(((>)Ö"N#na>f( f (Oxy (>Ö"9!~((  8#N f ~x#6#6++(>͏>##nʖ"+++v–"ˎ##nfA#6#nf,(6++ (nfr>9!^V͞?nfT]6f(ͪ4ͅ( 8Nͅ ͅ|}f ~ #:@͏ͪ4(/8*N# @6##n>#ʖ"+++~–"##<C?nf6T]#v>#ʖ"+++~–"##)͏SnKfL^V~ >$T"#O N#na>O``y8 (̓(  1(f( f(9!~O(  (#N ~^VRuKtLf½~ýf#n#uKtL?>ʖ"~nf~(G#N+ F(##s+++s+renf^VRDM+!  nfutnfutnfut6r#s#p#q###q##T]s#rͪ4~#O^V>y(͆.( :# > y(~.( :# y(S# y( ͆:(# > >y~:(# # (y> (͆# /^V]> !!~N#~(  #~#( (151G y Oy =^V+F~w+FM~( 80~g(>`Gx >~ >v >G~ n(v(˞~( x(X(˘F(## ~a{˯#6##p+ (" &GM~ G~ x<(G:>8 >++(&(!@(( ( ( -(("xT">T"DUMMCONSOL READE PUNC PRINTECOMTAP͏2!+6+ˆˎ0"~,T"z>ʖ"z–"!Rږ"nf~(#F#N#~#ngR  F B ##`i>?Ö"Bͪ4~(F#N#=(~ ;y˯A84H00@Onf~(W#^##F#F(M~ >Ö"A >'Ö"ͪ4~(#~˯U( M(L 1p<,ͪ4(~#3 8>w2(O62u3#\0!` ###~ (PV;nT"# (N #:~N (&7+^VٷR^VѷRDMͥ^V! (`i< >T"~ ^#VnfNFϷBR> ږ"nfNFBDMnfR!RͥnfN#:nfutnWfXuWtXùA$a8{0˯I BASICUSR0"|E>T">+0~ (Q~ (3 ͪ48(~($G"#N"zQ^VOÖ"Stop0"N#F#| :(7x83+)V#^z(y-( h&)onfh&)h&)>J"f#n#ut>(Fʖ"6(V^z(z< {< nf^VR^Vnfut~Ö"~ (ͪ4((zQB}BBN#T] 6 6 =.~›~^V#(!GO #(PY#~(ͤ^VGbkO(oPY^VGbkO(PY^VGbkO(w( ݾ[PY~~#(##w(#_(#F#N#F g(V#^#F `i`NDMV#^#zʊO^VѷRDM+NFA x R^VѷRDMùA ## ;O#~(o~ #0"~#( +0"}>–"O~`@>(>8>#~(O~y +#0"|(/DMo~#}(+0"z(}^~ö>Ö"F`i #g(`Nͪ4G(( nfQzQ!G(. xwwݮB f( R(>Ö"`iF #f(`Nut~ʜ8KNF!\> x ~(#ng##>##NF qpx ݮ8nf`NDMV#^#Qnf+ut| ݮ8 nf)zQr#s#nf+ut| 1 X ý#(>Ö"_(~#(F#N#gV#^#J͌^VNF G "ͮf(F#_sr!F(,ututg(sr^Vnf|( nf|gͮNF nfG(utg(, W _ nf#utR!F(,ut g o^VsrRJ͌nfͮf #~#(^V V#nb~(#ng##>J͌nf@#~#(~ !ͮ>f(~ (#nff(###V#^nf#R0ͮͪ4~^0V1N#>  =ut7utnf^V׷RutDM^V +sr!N0F1B0 N0F1ButDMn0f1 +sr |}d!#8FNF^VnfnGfH97ndfef nfnf8NF^0V1nf!N0F1Bږ2>!N.F/ =^V(.GO #((w( ݾ[ PY<7wpqrstu ~#(!V .v(~(^(&V^͹f(V^͹ F `N DMh;nfButnfButnfButnfBut^VnfӷRDMRsr%^VnfշRDMRsr~(W#^+|}##^nfT]Butr#s#V^nfѷR0B ~(~ v(~[ ~ ^(~ ~ f( ~ ~ bk 6(8  |}Nʤ go##~ʛ O++^VѷRPYDM+srnfutnfutnfutnfutnfutPYR(F#N+|}##N Ny h;nfButnfButnfButnfBut^VnfӷRDMRsrnfBsrr#s+|}N~#(~!((8NnfѷB+++ut#p#q##0"DM~#>( +0"T]>($nf#F#N#^Vutnf̓=G "#(~`@(8x^_G>–" "(((nfQ>zQ>ͪ4(N̓IzQ>|!G~,p,G~ݶ(:(F 4p^VnfݷRutnf^V6(6,Gx(70~ (h&^V>[rA6]#6 #6# "nfNFͷBDE" at location xxxx ESC-CDivide by ZeroOverflowUnderflowIllegal NumberSQR of NegativeLOG of ZeroLOG of NegativeInsufficient MemoryLine not FoundLabel not FoundRETURN Stack EmptyWEND without WHILENEXT without FORInsufficient DataInvalid File NumberRESUME without ErrorInvalid AddressInvalid SeparatorON Range ErrorCEND without SELECTType MismatchInvalid Zero DimensionInconsistent UsageSubscript RangeInvalid UsingFile is ClosedFile is OpenInvalid File NameFile not FoundDisk FullDirectory FullProtected FileInvalid KeyWrong AccessOut of DATAOPTION BASE must preceede DIMNo USR ProgramInvalid Drive CodeProgram not FoundInvalid File FormatFNEND without DEFDEF not foundUnimplemented featureFile FullDevice not Attached.% Feature not implemented & Prior to ver 5.5, recompile &&0I'0I'(8*0I:,30I0I'%%0I-0I/%-;.%0I0I%0I0I0I%-?/0l.%0I40I-0I"'2g3+.0I20I(%0I*.(e4%((2'%4842413.0Q0000m/|//0I0I0I0I0I37(#~+^VQL>|LN>7~(#~o&>86#s+>7zQ>7Q>7F#6x(:'~ 1w#Aa8{0˯~(( #~ ##6>DDII EOEORVORVOF ULOULOF KOKOFPOPOFFOFOFBOBOFEBE8866 ; y'|y'}=y'wzy'{=y'w6y'n&>nf>7^V~(AO#~ # &~ (K( ~ # > QO >>J">!7( nfP>^VOѷR+s>7 nfQ~ /^V$P F3*F3*F)PI-uI~! N -RKdR5IfI-uI~(! N-RKdRT] fIuINuI-RKdRJI-]JT] fIuIVIuIzQut6[I( zQ} 4nfp- y >݆_R(0_unf#y#*~#*[IzQ}#*0 f #F#N#6-#V#^#6-+q+p++s+r6> 0>0o&rA>/:,~*#!6uut0 f ~Fpwu}6( 4!o-Fx~ ݆_nfut#~ķ(@_nfQ-]J5Inf~=??_nfQVI̓I>nf>!>7(~ʲ+|ʲ+nfQ#~ y+|-uI~(l-RKnf z+-]JQL̓IzQ<͈N{͆+o͆+nfCdRzQ} 0>0rA>:nfͨ+#60#60#6:^V%6>7^V~(dO6#6#6Q-]J^VQ-]J^V̓IQ^V̓I>!>7~O>^V6)I Id- I  #x80bk##6̈́,̈́, +w+w+6/|d-ud-)I Id-|d-ud-)I Id-|d-ud-0 f ~Fwp~d-~d- 0h ~ ~=0S!o-_~=0C^V0 f ~#*>-~#*>- ~#*~#*~#*6nf6>d`feFn;&>[.7~8K^Vyy(#>[.} ,7^V~8 < O>[.[.} ,U7{(~8J nf67n&>[.[.} ,{0><_ .8|(!|!7..E7^V><0ON#x( y> (~# yGx(# xF#x> (~# (O^V+Rs>8|(!|(!|.7( ~(#~|( |!(!!>7#~+( 7/̓IdR>ɀ͋/RKdR]J!uI>͋/uI~>͋/uI~>7^V Q7nf Qnf#6#T]68}>7(nfQ#~+(̓IG~(xwdR~(Dw>o0y8(G> ~(O#nf>o0y8(N#y(G> 8|(!|(!7^V0(-F#~# (~# ((^V+Rs>0(F#~ H0(N# (7^Vϯ7~ʄ1G#~ #t~+(- #(g~ I #Un ., #(?~ I #6E &A(3#(/~+(- #("~ I #y(~ #A(!!>77F#O(x(%  (#(@("?(*(" # ( (~ I ~_2  (*(%  (r2 (r28 P#( @ ~_2 @~ I 8# y„118(# ~ I(@ ~_2(y(Ý1҄1?ʝ1Ä1I a{0A*(%(#(@( ?(A7*%  8^Vϯ| |( |(.s#q nf>78| ;|(7|(.E(,nf#xGw# (Gnfq>7^VN7  Qnf ~G#>ʖ"GCѷR+s>778|(!|(!| .O(3~8(< GO # (  7^VFx>#~a8{0˯>3N!>+8͖++8|( 3^(##F++M~(#n&>0n >4h>4i8| >3CM~( G;8n4>~N >&ʖ"8NF 47^VNn4>^V6 (7 ^V8N~˿# P8O!8 ~#fo7 LN>QL>ͥ74>ͥ7ü4V#^#nf>ͥ74V#^#nf>ͥ74V#^#>ͥ74>ͥ7ü4 ~#( yDO># ü4 7}/o|/g7 7 7{ozg7 7 7{ozg7 7 7{ozg7 7 7{/oz/g7 7 7}/o|/g7>>> >>>78 =WN|(| uI~(~ G  W O !7!7OF#x(x(y(8 # 7(̓IR$NM7(uI?WN:7(]J,`N'7(RK͈N78ͦN0Iͥ747^V~O( #~ FyO0D=Gx(#~nfq>ͥ74>ͥ747zQ~(((#8^sr fn## _(>Ö"#~(~`@(8x8!(8V#^|>## V#^!(! N(8Nh;B+ +u+t+wqp7O7G( (nfQ nfQ>755L5"5[5d548555555555555666]6p688608ü4%00O!3& ^#Vu8ͥ74 8y8DMO>( 8PYDM>##~(̓=8 V#^~>(V#^##D.7N̓IzQ> ^VutDM6#w#Br#s#NFBr#s#( G~#( 8( ^#~#(##G>+–"xʖ"og^V~#(O~ #~ #~#(x>–"4[5[nfx7:nf7utO~`@(8By:^VN>F:y(:Q^V>Cy( :zQ>Dnf4[^5[nfѷR‘94[~#ʑ:nf^VͷR!9nf۷R}Mh;nfѷBut6#Onfͪ4nfDM#~#V#^# utV#^#NF Ö"5[nf#N#nf۷Bnf ut^VDM ~#V#^# utV#^#NF G:7u8nf^VϷRR> ږ"Bږ"!J w# (.( :( (!J<:( ( (*:( )I > (w#/w8>7BASICCOM E<6͏;~8.6̈́<(*~<w 6 >7nf̈́< E6gBBͤ~ F^Vnfz(%nf%%R8 ^#V+gB> Ö"+~ ^VRDMnf utϯnf~(F( !fnnf6#^VutͷRnfϷRDM^VsrnfutnKfLuKtL#(D~`@>(>8>wݶNF  ^^VѷRB8 wwݾ>–"BKf(#>?>>F `N?> >?> ~z>–"F(z>ʖ" g oR>ږ"F(+F(`N#͏~ ?#^V>##~T"+++n( ###ˮ+++~T"N## #FM~ ú N "++ί^~(6#(&( &^~#G(^H ^ ^##6#ͪ4(OC?DM^V~`@+++>#T"vT"ˎ##(¼>ʼ>dRJIpI?L8 ?uIzQN# @6#^V>#nT"+++vT"ˎ##+'hU6#nfT]6͏~# F>##~T"+++n( ###˦+++###fT"+++~T"^##~++GM~+++#>#~T"^T"ͪ46## +~ (#6^ J6N nf#NF˷B#DMnfx(_ BDMyG(_ͪ4(%C?DMhH>#T"nf) <N# @6#nf((T"-!D I( A8G0O)8)8)8 )8 H ! I $)| DM)| )| | O |(7ɷD\AExeAx 80ɯ!A~(#O#F#>/B<0 0  <>0'd nfut~(B( gntunfutnfutnfutnfutnfutnfut~()gnB0 tu |w#}wn&nfrututsrsrr#ut6 6srgB66263?64 6<?T]6nWfX+ut6+ut66[nf+utr+utr+utr+utr+utrrr:r!r#r%r'sIrJsrr(r,r;666666Fx(~!( \('(>Ö"~$|D*ʔD,VD.GD#(t9(^^ D~§D~-(9+(;>(=D ~B(C§D~R§D4#4#çD~§Df 4f(4#|CçD~§D~ y~^ r i4#`f Z4f K x(~ #47v ~ bD8 D~ DbD8 Df( v( ~w( o( W( ( ~ݖwn( ( D݆wNG>ݖw#6#6#~+(>̓I~0^VsPO- ~x @(vHVH@(n( ~ 5~Hy H~Gy(En()(%=640~~(F ~H>D(G> ~(>*V(>0v(>$~( >-V(>< ~(?y( F>02x>0(~#n(y(:F=(0 >,n(>. f( >.n(>,~(y(>0  x>0(~#5 nfF~|(Eo #@(w !g %_ )O> a Y("@>+(>->>>D>B>C>Rx~!\'$  * #9. ~#9~#~ʖG^VsPO~#- 5yݖO1GD 8 d>8>>G~H~(>-6 ~(G͆Gf( >.n(>,~(G͆GyN~>0(~5#~ݖf(=(=(G> >0f( >.n(>,~(G>0o>E5~=(}>+(}Do>-5~0}8 (d8 8&rAF>05>%nfP#H~-(> > FF66xwC~!([\(D'wC#(P~˯L(6R(6C(6E(6)O4#( ~˯(#wC4 ##N#~GV B0OF N y> (~# Fy> ~# Fx?(> = ι0A08:007A8[0A7 >,Ö" !!|L~_V |LV^ݾ ʭL{͸LwíLrʭL˺˻ M8 LLxx LLyy~і( IJGѯ̀Mbk  +J'+~IJ 4VJ̀MIJ'+ NHMMdLyw ͸LßLw\L|LݾMM~!ut$KL M }MJ}MN+J~(}M~րO~րJHKJHKƀdLwßLKKKK^Vɯ'+! L! ˾+xLG͎MdLw\L|LlLݾM~$KL!%L0 oMKoMKy/A~րO~րJ!%L8 !:L!%L8 !:L!%L8 !:L!%L8 !:L # '+~#~w+>J"M>J"M>J"M>J"íLutnf~G怰wLVˁL^ˉ|LMíLV^z {~z~ݾ{###N#~  (+oM#~ +q#8#7 o+#g# ~'w+#~(0_(w#)T]))_|MíL6#MíL6#6#MíL6#6#6#z | | Z-OZ0?Z0?|7O!RѯLNzG|LN|LN'8 | xLNx-O7OzG|LN|LNzAO&xLNz !|z(!tu6BK!85T]`N!0 V^`N5 !-(+( I&A8| @LN@7O-O|(LN>-rA>J"!7>J"!7>J"|!LN7!4PaPsr|LMGPP+(- PPn(,.(IP8"x hP PPIP8 x hPpPwEM(r~!E *PP+(- PPIP8h 7ͽM|(p(:x(!RJdL ݶwuíL| PPIP0x \LdLtLM^V0 ?nf~#ut lM~|L~6 (6-lM >0lMlM6E#6+~(ց06-D#60d84d#/ 0p#0w~րíLo&6QO sP~!շ(j >0 + ~- #G(/Q0+~# y(@cQpQ4y0pQ>0 y(pQy DO >0ѷR}Gw>.n>,go~ր8c(aG> 8DO~#Q~#ͽM QͽM~(!R(Q%|(7!(!>J"~M|(=|(!R#'WR#WRdWR# WR{oHMw=B<0 o~(->ݖ8&($ 0$G>_;#(~w#8(6#Mx)J.>A %j$+48Dgj0CJORUX]fnvy|L U  2 5 j m    :   ! % A  7 }@Kak&>Qgs*-(.4VWXc  #;TY #-jmv @'''( (((S((((())*)V)e)))))9*>***+ + +,+?+F+g+l+++ ,[,},,,,,,,,,,,,-9-D-Q-W-]----.E.I.Y.q.u.&/@/n/}//0R000011112"2%2D2P2U2Z2]2343494J4i4444444555 52555G5J5V5Y5_5b5555555555555555555586>6^6q6666666677 7 777888888 8&8(8*8,8.80828486888:8<8>8@8B8D8F8H8J8L8N8X8q8v8y8888999:5:?::_;  G!!";;;;V<]>>i>?;?@?M?U?vIIIIIIIIIIIIIJJ#J&J)J=J@JCJQJTJ[J^JeJkJJJJJJJJJJJJJJJJJK K.K>KCKIKPKSKZK`KmKuKKKKKKKKKKKKLL LbLjLrLzLLLLLMUMMMMMMM9NJNZNgNmN{NNNNNNNNNOOO$OMOSOWOkOzOOOOOOOOOOPPPPQ$Q'Q6QLQQQQ&R-R3R:RYAbAyA"""%&B`CCCCCCCCCCCDD%DDDDDDDUE\ExEEEEF!FG,GHG`G~GHAHDHQHaHHHHW]PIc+3,Hh" M  9 D u x ,6H^Q0;BS `U8 O9Zw;r3&5&9&M&&&=&&&&&?&A&E&&&U&]&&q&_&w&&Y&s&&&&&&&&&u&&&&&&&G&&&}&3&&|U H b `~o/543l3h3*33211000////.z.m.<. .--;,+*((/(3'#''&&z4f4?443p322p0/.\.'''i88~8}99:::;c;f;89O7QC:L/":@%Vo  Bh38!!." h:7<F#!8== { a>> ?bN?7@f@i@@@8d6 0)//,,U+*RX?w66/q/e/#+))P)G))(]6R/,+I+*h)6C//+Y)-) )P?5R+&7'))HM)8l666R>>6nvK6a+4&6o (F!!@%W@ 1"6"9"g( (?"_?(":87+[+)))'%<T"987;3///&,,++**(-'~ D?0K///+_)3))`OcOOOPP(P+P.P2PiPtPPPPPQQ RERRO+O+1*QEO:O0OwLoLgL_Lu(e@@4@/@????{?0?+?>y>3H* _ =d;>-> >=<;;!:u9C9>9Z7v4U3`O]\TOfxpS)u  x^&&y&o&g&a&[&Q&O&"""%;&&<<11,,c,X,;;`2<,,U, P 3I(*)G?b)*)))|)D))J?I&S&&&7&;&C&K&W&e&i&k&m&{&&&&&&&c&&&6=BASIC ver 5.6 27DEC82 Copyright by Timothy S. WilliamsPAh*`>!=N <.=F <.=V <. (!== :AG[B>b1x2A22#242E!F#!M4!TE![~$(A8 [0[T"[F*MR8*TR8*[R8!) "`! 7%R0!D>a!\ut 6ut#ut#!ut! ! 66!ut! utnf6utqpqIpJuKtL#ut66[6qp6(7+ut6+uWtX6+ut6+ut6nf+ut6+ut6+ut6+ut6+ut666!6#6%6'6-*`?6#!u0t1!u.t/6263?6;6<6=64 6V!buGtH9NT]6 ~(( ( 6!>Æ( ~ (C(!>a>!Æ!V $~w~w~w~w~w! >a!D> aBASIC OVERLAY1BASIC OVERLAY2BASIC OVERLAY3BASIC OVERLAY4-DKRYd#+_AOX} #I>~,#V~(50~ (<NFͷBDE6>#6utE>#~nf#ʪ_!@^#V=)lz'z'P=)eR41 .8 n`z'z'XV M4Gz'z'z'z'z'nAz'z'nJ\bhtUDz'5nf6  ( (w#6 IͮNè^V!›'fnuKtLnf#~ݾGnf~(W#^#~#(^>%#$p~ ( IͫNIͮNI6>6[^V[H+>(#$ͳ@^V~(G#~a8{0˯#> nf##V#^znfV#^#^VͷRDM~`@>(>8>Ͱ +q+pͳ@~,#(~|R##fn^Vf#n#^VR^VnfRDM!utsr6#p#qnf~> #$T]#F#N#ut^VѷRDM!sr~ ( ^VRf#n#^V~` ~#(^V͙"͙͙(! ~! ^V(9U~! ~+^+Vnf~#ng R| 4(!! ͳ@((nf]>]x( G|}xV^nfͰgo(!V^V^NF >"V^~ R| V^nfV^nfͰ(Y GUfnNF >"^Vnf ~ 9U~ V^nfF#N#~#(#^V fn^V~ ͳ@^VͷRtufnNF "fn^Vͳ@Gh x( "##(>]| ( :y'8}#>ͳ@^VNͳ@^VNͽ#ͽ#nf$F#^VOnf#KKKCx(8y8O z(z~ ̭K~y^VV(#~+^G( >  0F ~ M(>,n(>;2xV  ;xx0 ͻ(0ͅ> #~ ʡ N#V ͻ0F ͽ#}( V(^(-x+0> V+ͻ ʖf(V(x#w+ͳ@(q(Z~(0O#~ (' +~ ( #~"('(n(;,( %NͅF#>"x( ~#" >"V~(ROͅ#G|  > ͅZ ͠ͅ\T]#~-(  > H ͅ> ѷR}GV̻f(8( ʡ( +ʱâʖ+âV ͻÖ~–¢#Ö ^V˷RR> #$A > > #ͻV( ##p#NL^V˷R|(O+^VVf#ͳ@~O>#$nfBut6# V#NFV(^#~+( >  ~ #z $ nf#V#ͳ@(9  ]nf#~#Ox GPOnf#~#Ox GLTV̻xBKWE nf#^ut #$ V(%#~+Gnf| }(~  (##ͻ6 #6 #7 i ~ ˿( ͳ@~(G#N3~2GN#o G ~ @cJ^V@#ÿ́ ͪ ("('( 8x>( x> (5>x>ʽ  ý O 0x½ y ½ > V w;V½ ++ί~2U f >#~``(0@(ʹZnf [ (b(_ ([, (V>#nf6#"('(, ( ( (w#+~ (#O (  w#NFB} `ixf( ͩf("~(2UG G , G >#n ,;7 ~yw o ^Vnf# ( (w# p>"̈́ 6#~˿( "ͳ@~ w^V#~! 2,ͳ@~ w^VG.#~ 8OyF> ^V6;ͪ O(, 8E~  yF(~ :x   (y x> (A(I (y(Nw; (~(G~(~;  ^VL x    & $O ( %  &h $yO,~(y % >  >#$]J`@(8~(j#(((>)#$N#na>f( ͩf (Oxy (>#$"~((  8#N f ~x#6#6++(>͏>##n#$+++v#$ˎ##nfA#6#nf,(6++ (nfr>"^VͧKnfT]6f(ͨͳ@ͅ( 8Nͅ ͅ|}f ~ #CL͏ͳ@(/8*N# @6##n>##$+++~#$##<LKnf6T]#v>##$+++~#$##)͏SnKfL^V~ >$##O N#na>O``y8 (*  ;)f( ͩf("~O(  (#N ~^VRuKtLf½~ýf#n#uKtL?>#$~nf~(G#N+ F(##s+++s+renf^VRDM+!  nfutnfutnfut6r#s#p#q###q##T]s#rͳ@~#O^V>y(͆.( :# > y(~.( :# y(S# y( ͆:(# > >y~:(# # (y> (͆# /^V]> !!~N#~(  #~#( (151G y Oy =^V+F~w+FM~( 80~g(>`Gx >~ >v >G~ n(v(˞~( x(X(˘F(## ~a{˯#6##p+ (" &GM~ G~ x<(G:>8 >++(&(!@(( ( ( -(("x#>#DUMMCONSOL READE PUNC PRINTECOMTAP͏2!+6+ˆˎͽ#~,#z>#$z#$!R#$nf~(#F#N#~#ngR  F B ##`i>?#$Bͳ@~(F#N#=(~ ;y˯A84H00@Onf~(W#^##F#F(M~ >#$A >'#$ͳ@~(#~˯U( M(L 1p<,ͳ@(~#3 8>w2(O62u3#\0!` ###~ (PV;n## (N #:~N (&7+^VٷR^VѷRDMͥ^V! (`i< >#~ ^#VnfNFϷBR> #$nfNFBDMnfR!RͥnfN#:nfutnWfXuWtXM$a8{0˯$U BASICUSRͽ#|E>#>+0~ (Q~ (3 ͳ@8(~($G"#N">]^VZ#$Stop_'wFG_'wEͽ#N#F#| :(7x83+)V#^z(y-( h&)onfh&)h&)>#f#n#ut>(F#$6(V^z(z< {< nf^VR^Vnfut~#$~#t(ds({́>>(?N~(o&``> }nf˷ w6#w+>">#ͽ#|{} {G:8ͨxN~(ͽ#| M N~(ͳ@(>]DM~#t(0s(B́~ #+O@ͳ@( 8~#~>]}ͨ~ #+y~# +~# ( t(!s(H́#>TE>#1ͨtxTg.~ #o#t T~ (ͳ@((>]}N#T] 6 6I.~(~^V#(!GO #(͛PY#~(1^VGbkO(ơPY^VGbkO(ěPY^VGbkO(w( ݾ[ԛPY~~#(##w(#_(#F#N#F g(V#^#F `i$ZDMV#^#zO^VѷRDM+NFM x R^VѷRDMM #Ͱ ;O#~(o~ #ͽ#~#( +ͽ#}>#$~`@>(>8>#~(O~y +#ͽ#|(/DMo~#}(+ͽ#z(}~C>#$̓F`i #g($Zͳ@G(( nf]>]s!!G(. x̓̓wwݮ‹B f( R(>#$`iF #f($Zut~)8KNF!>s! x ~(#ng##>s!##NF qpx ݮ8nf$ZDMV#^#]nf+ut| ݮ8 nf)>]r#s#nf+ut| z1 zXz zýzͰ(>#$_(~#(F#N#gV#^#^VNF G͙#;f(FͰ‹_ʋsr!F(,ututg(sr^Vnf|( nf|g;NF nfG(utg(, W _ nf#utR!F(,ut g o^VsrRnf;f #~#(^V V#nb~(#ng##>nf#~#(~ !;>f(~ (#znff(###V#^nf#R0;ͳ@~^0V1N#> Iut7utnf^V׷RutDM^V +sr!N0F1B0 N0F1ButDMn0f1 +sr |}d!#8FNF^VnfnGfH97ndfef nfnf8NF^0V1nf!N0F1B#2>!N.F/I^V(.GO #((w( ݾ[ PY<7wpqrstu ~#(!V .v(~(^(&V^F f(V^F  F $Z DMqGnfButnfButnfButnfBut^VnfӷRDMRsr%^VnfշRDMRsr~(W#^+|}##^nfT]Butr#s#V^nfѷR0B ~(~ v(~[ ~ ^(~ ~ f( ~ ~ bk 6(8  |}N1"go##~("O++^VѷRPYDM+srnfutnfutnfutnfutnfutPYR(F#N+|}##N Ny qGnfButnfButnfButnfBut^VnfӷRDMRsrnfBsrr#s+|}N~#(~i#((8NnfѷB+++ut#p#q##ͽ#DM~#>( +ͽ#T]>($nf#F#N#^Vutnf͌IG͙#Ͱ(~`@(8x_G>#$͙#(((nf]>>]>s!ͳ@(YGU>]>|!G~,p,G~ݶ(:(F 4p^VnfݷRutnf^V6(6,Gx(70~ (h&^V>[{M6]#6 #6$ $nfNFͷBDE$ at location xxxx ESC-CDivide by ZeroOverflowUnderflowIllegal NumberSQR of NegativeLOG of ZeroLOG of NegativeInsufficient MemoryLine not FoundLabel not FoundRETURN Stack EmptyWEND without WHILENEXT without FORInsufficient DataInvalid File NumberRESUME without ErrorInvalid AddressInvalid SeparatorON Range ErrorCEND without SELECTType MismatchInvalid Zero DimensionInconsistent UsageSubscript RangeInvalid UsingFile is ClosedFile is OpenInvalid File NameFile not FoundDisk FullDirectory FullProtected FileInvalid KeyWrong AccessOut of DATAOPTION BASE must preceede DIMNo USR ProgramInvalid Drive CodeProgram not FoundInvalid File FormatFNEND without DEFDEF not foundUnimplemented featureFile FullDevice not Attached.' Feature not implemented ' Prior to ver 5.5, recompile \((>(>n)7*+W9-]9:F7(z'z'2/H91z'/0z'{;O/z'^/9/D/z'/1V4H0z'?s97/0(*66O-1=5: *z'<,)9))(z':994t633444322W2.32D32g3!7 C(#~+^VX>|Z> C~(#~o&>D6#s+> C>]> C]> CF#6x(: )~ 1w#Aa8{0˯~(( #~ ##6>DDII EOEORVORVOF ULOULOF KOKOFPOPOFFOFOFBOBOFEBEDD66 ; )|)}=)wz){=)w6)n&>nf> C^V~(AO#~ # &~ () ~ # > [ >>#>! C( nf͠\>^VZѷR+s> C nf]~ /^V$P F+F+FÅ+Ϳ?!/9U~!Y 1/W(^??)/9U~(!Y1/W(^T] ?9UY9U)/W(^?)/!VT] ?9U?9U>]ut6?( >]} 4nf. y >݆_R(0_unf#yͰ+~Ͱ+?>]}Ͱ+0 f #F#N#6-#V#^#6-+q+p++s+r6> 0>0o&{M>/-~ʃ,#!6uut0 f ~Fpwu}6( 4!.Fx~ ݆_nfut#~ķ(@_nf])/!V?nf~=??_nf]?GU>nf>!> C(~?-|?-nf]#~ y+ /9U~(l/Wnf -/!VXGU>]<LZ{-o-nfC(^>]} 0>0{M>:nf5-#60#60#6:^V%6> C^V~(dO6#6#6]/!V^V]/!V^VGU]^VGU>!> C~O>^V62UU.U  #x80bk##6.. +w+w+6/|.u.2UU.|.u.2UU.|.u.0 f ~Fwp~.~. 0h ~ ~=0S!._~=0C^V0 f ~Ͱ+>-~Ͱ+>- ~Ͱ+~Ͱ+~Ͱ+6nf6>d`feFm/%m/<m/%0m/<0DDz {0G>>7n;&>70 C~8K^Vyy(#>70} , C^V~8 < O>7070} ,U C{(~8J nf6 Cn&>7070} ,{0><_/D|(!|! C͸0͸0E C^V><0ON#x( y> (~# yGx(# xF#x> (~# (O^V+Rs>D|(!|(!|.0^V##0 nf!w1!ut!?V͗YͣVAYOw+N+ͣVAYw!F!1'+|X Y>Ɂe5qY C( ~(#~|( |!(!!> C#~+( 1GU(^>ɀ2W(^!V!9U>29U~>29U~> C^V ] Cnf ]nf#6#T]6D}> C(nf]#~+(GUG~(xw(^~(Dw>3L8G :>3U 80*O)8*)8')8$ 30820O)8 >#>> C^VN> !z3`M^V+Rs>z3%0%0 z3%0 CLK^V3y8(G> ~(O#nf>3y8(N#y(G> D|(!|(! C^VH4(-F#~# (~# ((^V+Rs>H4(F#~ HH4(N# ( C^Vϯ C~4G#~ #t~+(- #(g~U #Un ., #(?~U #6E &A(3#(/~+(- #("~U #y(~ #A(!!> C CF#O(x(%  (#(@("?(*(" # ( (~U ~ͻ5  (*(%  (5 (58 P#( @ ~ͻ5 @~U 8# y448(# ~U(@ ~ͻ5(y(44?44$U a{0A*(%(#(@( ?(A7*%  D^Vϯ| |( |(.s#q nf> CD| ;|(7|(.E(,nf#xGw# (Gnfq> C^VN C  ]nf ~G#>#$POѷR+s> C CD|(!|(!| .O(3~8(< GO # (   C^VFx>#~a8{0˯>7~# nfw> y>(A~#(( >^Vw~(( ~(yD Cut78nf} %- .ut7v8DMDEqp C^VNnf^#6 ~#(P Ay(~#(;(7 T]~#(( (+nf~w~(#nfNp ~( +ynfw>^VNFnf6x(\#~# +>  yNFAOx>('x >޾(.=+w)~#( >+ >ݾ( 8 G~# x nf~N#y(O~( #nf$w (( y^V( nf$#nf> Cut7v878j9N!>+D͖++D|( m9^(##F++M~(#n&>0n ͱ9hͱ9iD| >m9CM~( G;D9>~N >&#$DNF : C^VN9>ͣ?~>#~˾+>#~6Ϳ?? @:GU???W? @@GU@wx( :!V>ɀqW(u%8"wfhͣ?s;!V͞@%;|%;~( @8yͅ@S;d@͔@Ϳ??k;h@??9U??GU?W,:!V~ր+;ƀ(w>| 5;ͻY>͗Y>#>Ʉ1@g!)76Y(Iv3UtpRY7AR6hXceͣ?#~+<~<Y9U~(u~ր_06:!V?YGUͿ??9U?Wͅ@?v<h@??V<d@͔@?W6<9UͿ?].>##˾+#+|X>#ͻY݁0% )TdeR$)H4XdF)p5'dvq2vEBYXTX`''HD͞@8~(?@~;!VÙ:z(G|Xz(!RA@Ϳ?)8)??!V0͔@>ͨYͣ?\=!V͞@}( Y)@ͅ@=h@??|=d@͔@H=Ϳ?@??W>Ɂ'29TG5`7(@wABRvVI18g8cyfcW Q558'QFVSͣ?\=!V͞@}( Y)@ͅ@=[>h@??C>d@͔@>h@??{>d@?W>ͣ?\=!V͞@}d437`9AY0idH2Yceep$'tex)9FYtVp9r420 T1E#4)9FY4gw1% iQsͣ?#~˾+5?9U~ 5=?9U~ A@"YGUͿ?Y9U?Wͅ@?h@??m?d@͔@?W@(E?GU H( M?)@>ɀ!5b71ABV#s9c9tW2g#r"f p32p#@(804#rh(91#!He5!?>Ɂe5 C^V ]> !!!bYY9U!9!YW GU?!VGUͿ??!V??!VͿ?ͳ1?)@?>]^V6 ( C ^V8N~˿# YDO!D ~#fo C Z>X>ͮC@>ͮC@V#^#nf>ͮC@V#^#nf>ͮC@V#^#>ͮC@>ͮC@ ~#( yDO># @C}/o|/g CCC{ozg CCC{ozg CCC{ozg CCC{/oz/g CCC}/o|/g C>>> >>>C8 =Z|(| 9U~(~ G  W O ! C! COF#x(x(y(8 # C(GURYMC(9U?Z:C(!V,$Z'C(WLZC8jZ~<ͮC@C^V~O( #~ FyO0D=Gx(#~nfq>ͮC@>ͮC@ C>]~(((#8^sr fn#Ͱ _(>#$#~(~`@(8x8!(8V#^|>## V#^!(!Y(8NqGB+ +u+t+wqp CO CG( (nf] nf]>@A"AUA+AdAmAADAAAAAAAAAAABBBBfByBDDB08@%00O!' ^#V~DͮC@ DyDDMO>( DPYDM>##~(͌I8 V#^~>(V#^## 0 CYGU>]> ^VutDM6#w#Br#s#NFBr#s#( G~#( 8( ^#~#(#ͰG>+#$x#$og^V~#(O~ #~ #~#(x>#$4[r5[nfx@Fnf CutO~`@(8ByG^VN>F:y(G]^V>Cy( G>]>Dnf4[5[s!nfѷRšE4[~#ʚFnf^VͷR!9nf۷R}MqGnfѷBut6#Onfͳ@nfDM#~#V#^# utV#^#NF #$r5[nf#N#nf۷Bnf ut^VDM ~#V#^# utV#^#NF GF C~Dnf^VϷRR> #$B#$!SHnf~w#$($UNH (.(:( ($($U( U(NH> w# (.( :( (!SH:( ( (*:( 2U > (w#/w8>7BASICCOM NH6͘G~8.6͍H(*~<w 6 >7nf͍H E6pNN1~ F^Vnfz(%nf%%R8 ^#V+pN> #$+~ ^VRDMnf utϯnf~(F( !fnnf6#^VutͷRnfϷRDM^VsrnfutnKfLuKtLͰ(D~`@>(>8>wݶNF  ^VѷRB8 wwݾ>#$BKf(#$JHJ$JF $ZHJ $JHJ ~z>#$F(z>#$ g oR>#$F(+F($Z#͏~ K#^V>##~#+++n( ###ˮ+++~#N## #FM~ ú N "++ί^~(6#(&( &^~#G(^H ^ ^##6#ͳ@(OLKDM^V~`@+++>##v#ˎ##(JJ(^?@K;X8 K9U>]N# @6#^V>#n#+++v#ˎ##+'hU6#nfT]6͏~# F>##~#+++n( ###˦+++###f#+++~#^##~++GM~+++#>#~#^#ͳ@6## +~ (#6^ J6N nf#NF˷B#DMnfx(_ BDMyG(_ͳ@(%LKDMhH>##nf) <N# @6#nf((#-!DU( A8G0O)8)8)8 )8 H !U $)| DM)| )| | O |(7ɷDeMExnMx 80ɯ!M~(#O#F#>/B<0 0  <>0'd nfut~(B( gntunfutnfutnfutnfutnfutnfut~()gnB0 tu |w#}wn&nfrututsrsrr#ut6 6srpN66263?64 6<?T]6nWfX+ut6+ut66[nf+utr+utr+utr+utr+utrrr:r!r#r%r'sIrJsrr(r,r;666666Rx(~!( \('(>#$~$ʅP*ʝP,_P.PP#(t9(^^)P~°P~-(9+(;>(=D ~B(C°P~R°P4#4#ðP~°Pf 4f(4#…OðP~°P~ y~^ r i4#`f Z4f K x(~ #47v ~ kP8P~PkP8Pf( v( ~w( o( W( ( ~ݖwn( ( D݆wNS>ݖw#6#6#~+(>GU~ͤ2^V7\O- ~x @(v%TV%T@(n( ~ 5~%Ty %T~Gy(Qn()(%=640~~(F ~%T>D(G> ~(>*V(>0v(>$~( >-V(>< ~(?y(R>02x>0(~#n(y(CR=(0 >,n(>. f( >.n(>,~(y(>0  x>0(~#5 nfF~|(Eo #@(w !g %_ )O> a Y("@>+(>->>>D>B>C>Rx~!\'$  * #9. ~#9~#~ʟS^V7\O~#- 5yݖO:SD 8 d>8>>G~%T~(>-6 ~(G͏Sf( >.n(>,~(G͏SyN~>0(~5#~ݖf(=(=(G> >0f( >.n(>,~(G>0o>E5~=(}>+(}Do>-5~0}8 (d8 8&{MR>05>%nf͠\#H~-(> > RR66xʀO~!([\(D'€O#(P~˯L(6R(6C(6E(6)O4#( ~˯(#ʀO4 ##N#~GV B0OF N y> (~# Ry> ~# Rx?(> = ι0A08:007A8[0A7 @X~_V @XV^ݾ qX{|XwqXrqX˺˻X8 ͊XͨXxx ͒X͎Xyy~і( VGѯDYbk  U'+~ V 4VDY V'+ N YʑY(Xyw |XcXw X@XݾʑYʑY~!utV͒X ͗Y AYͣVAYN+ͣV~(AY~րO~րV WØV Wƀ(XwcXVVVV^Vɯ'+! ̈́X! ˾+ẍ́XGRY(Xw X@X0XݾʑY~V͊X!W0 3Y͈W3Y͈Wy/A~րO~րÊV!W8 !W!W8 !W!W8 !W!W8 !W # '+~#~w+>#õY>#ÑY>#õY>#qXutnf~G怰ẅ́XVˁ̈́X^ˉ@XXqXV^z {~z~ݾ{###N#~  (+3Y#~ +q#8#7 o+#g# ~'w+#~(0_(w#)T]))_|͗YqX6#ͨYqX6#6#ͻYqX6#6#6#z | | ZZZ0?Z0?|Z!RѯZzG|Z|Z'8 | xZxZZzG|Z|Zz[&xZz !|z(!tu6BK!85T]$Z!0 V^$Z5 !-(+(U/M8| @Z@ZZ|(Z>-{M>#!7>#!7>#|!Z7![%\sr@X͗YG\+(- \n(,.( \8"x ,\ \ \8 x ,\p[w Y(r~!E *\+(- \ \8h 7́Y|(p(:x(!RJ(X ݶwuqX| \ \0x  X(X8XÑY^V0 ?nf~#ut 0Y~@X~6 (6-0Y >00Y0Y6E#6+~(ց06-D#60d84d#/ 0p#0w~րqXo&6[ 7\~!շ(j >0 + ~- #G(\0+~# y(@']4]4y04]>0 y(4]y DO >0ѷR}Gw>.n>,go~ր8c(aG> 8DO~#ĸ]~#́Y ĸ]́Y~(!R(]%|(7!(!>#~͚Y|(=|(!R#'^#^d^# ^{o Yw=B<0 o~(->ݖ8&($ 0$G>_;#(~w#8(6#͗Yx)J.>A %j$+48Dgj0CJORUX]fnvy|L U  2 5 j m    :   ! % A  7 }@Kak&>Qgs*-7B .FPcfpu)KlKRa]ciou7%?g()))))))g*o*y*******B+q+w++++,G,,,,,,,,,.-{--- . .#.,.5.<.E.N.U.].|........:/E/P/_/////!0%050M0Q0001V11122222/3E3h3333454\415M5U5j5~5555555G77777R9U9X9[9^9{999999:@:{::::::;,;;;;;;<<<<=)=;=======>>>>>?$??n@@@@@@@@@@@@AA A&A)A;A>APASA_AbAhAkAAAAAAAAAAAAAAAAAAABABGBgBzBBBBBBBC CCCCCCDD!D#D%D'D)D/D1D3D5D7D9D;D=D?DADCDEDGDIDKDMDODQDSDUDWDaDzDDDDDDEEE F>FHFFhG3 B !!"d##GGGG_HfHuHHIIIJJJrJKDKIKVK^K:UHUZUaUhUqUyU~UUUUUUUUUUUVVVVVV"V)V/VGVJVVV^VaVeVmV|VVVVVVVVVVVVWW WWWW$W1W9WIW\W_WjWmWWWWWWWWWW&X.X6X>XXXXXXYYYYYYYYZZ+Z1Z?ZGZJZSZYZ_ZfZZZZZZZ[[[/[>[O[Z[b[e[q[x[[[[[[\\\\\\]c]x]]]]]]bMkMMR$`$x${''NiOOOOOOOOOOP$P'P.PPPPPPP^QeQQQQQ R*RS5SQSiSSTJTMTZTjTTTTW]PIc+3,Hh" M  9 D u x ,6H^Q0;BSl L)M`m ,/8 O9E'Z`flrxrDr''''(2('0(.(*("('''(((''''''(''((('(J(L(N('P(R(T(V(X(@(B(H(D(F((<(((>((Z(' (''':(8( (n9,(6( ('';;&((''(>>=<|;::>>=<;;:5:|*<;:K:P,*>==#=<;:Z:*>D=<;:I=;:{+(+N:9: +**>==&=;;;::A=<?>=.=;:>===;:>==;: ?=4=<;:$>==<:@m U H b `~o/5?:I977"7666u6+644W4I43{33|2:2 211V0I00///-P-,8**)((((](999t9k9776/663q2080r/n/s)o)(BrDDDEEFFF GlGoGAEXCIC"F/+F/tVo  Bh3k###B"V qFCH#\#DII { 3jJJKPKSKbNK@LoLrLLLDmB@k@?> <;:e:C:21--,r,RaKBB?@>>>;;;:221,+ +****]B@@t@>=<<<<; ;:~:1-~-,J,*BX@?>>L=;;:T:1,***<">= =;;*DuBB B[J JP BB,A(Bo **F # #{io@ ###) *#hK#FDC@-,~+/++(:%<T#EDD?;62S262--x-,l,D,F*( ~ MK211 -***$['[~[[[[[[[[-\8\N\U\\\\p]|]] ^k^223ZZ-+;] [ZZ;X3X+X#X'<<;;.: 3*eLL=L8LLKKKK9K4KJJ[3H* _ =dDJ6J)JIHGG#G~ELEGEcC96y'O]\TOfxpS)  x^4($((''''''!$B$}$';'&HHH6 O(Q1Q:QST3T5MMZG5r5)544{42K.2.--GG5HH./.- P @>M>W>d>O<Ñ>x>î.~< >nf-FO)0~ (NFx(5@o&'~(#V#^nf DM66R>RR>qp^V!I~ݶ(-nf?B6 #6+^V˷R>(G !- >_ u ] } > Ҽ ʸ( X .| % lu(m( '˵˭˥"(} h] xU ]M V'(G"(JDR( .*˅E( (ˍˍM( ( ˕˕ˍ˕M|є˽;|Ѽ˝ɯ%(#\(: {('(" O%( $A( $.|> O$l&&{ѷ ~ݶ|NF@ 7~ʄ_,~ݶ|NFxʇ> xʇ>@(zʇ>}>~ʌ>ut#V#^++srX-~>NF@u } ] a8{0 $ %Oyu t}"p'w\(V: {(KEUAM6 AR(; .˕ˍE ˍM ˕˽˕ˍ˅m('"˵˭˥nf~A #~ #'A #~:(.('A(A(>:>:RE^V~ݶ(bk~#A(~ 665AA }>A DM@ÄW͞nf5A͒y A( 5('({͏ (r3 85A=(a((][(Y5A ʦ!~ JN#'A(A (~  #~#(## 'A(A(x85A~#(~#fo6-^VWH>͞:AUTϾ(CHANG}#DELETO)LOCAT"LENGTȋ*LIS1LPLISLP1LISLP2LISLP3LISLP4LISXRE LPXRELP1XRELP2XRELP3XRE"LP4XRE)LOA.SAVņ-MODIFy%NAM8,NE׽?STEБ7RENUMBEҊ QUI<7TRACV7UNTRACņ7TO0BREA˿7BOTTO 1UNBREAN;RU0CONTINU5VAR3INDENu5HEL4C !G !@! 9! 2 !+ !$ !!!!! !}>\>>>>N.F/6nf6#-F(! ڑ>|ʑ>t#u#    6#p#bk~R #~E #~M(5bk~'A ~#'A(A(.(: 5A Q|#ʈbk;ʃ R E CMʃ :G 6O 0 *5AT O-  S U B,!h"͜ 86͏ ( 3 8 85A=[(6͒O<!h"~'A( .(A ~  #(~#( x8'A(A(.(q#y"O! ~#fo5A6 NF#B}|`iO<# \!EL S E 'A( A(.(<TH E N 'A( A(.(<5AO< \(!ˆ6 #5A O<5A# 6 #75AA8A8 'B?8 8|(6#t#u#ѯ<76#'A( A(. w#5AA'A75A,76 #5A:76 #! O< O<6 (kO<6 (:JO!K͗y7:JO!K͜ ~>7'A ~  #( ~#( 'A(.(A(ynf####~^V5A5AO- ( UO<BO<>,w#6 0! O<5A6 O<5A, 5A! O<IO<5AkO<5A! O<! OʅEʅ:(E! Oʖ<ʣ=ʰ!!!!!X >>*(> > >>w#X tw#X}w#` }t<("=(#>>(=(>>( <(>>>>>>h >i>j>w#X7I # 'A( A(.(ѯ<ANDORXORIMPEQVNOT6#I5A:(676 #I5A]( )(6 76#>w#I6#k5A)(7 6#D$( y`@ 5A((nf~F #~N( D6#k85A, 6 #) 6#7w#ʮʼ5A$ 5A(37! ~րO 6#v͡~8/n83͡~8f8!͡~8 ^8͡5A)( 7ɷ6#~ IZ8(Z0#I8 Z8 xw  5A$ 5A((75A,76 #5A((6#I8;5A:(9, 6 #I8$5A, 6 5A)( 7 6#5A3333CHAICLOSCSDATDEDELETDIENFOGEGOSUGOTIINPULELINPULINMOUNNEXQUIOOPEOPTIOIPRINRESUMPURANDOMIZREARESTORRETURRUSLEESTOWAIWRITFNENWHILWENSELECCASCENMACLEAREADNEXCOMMOUNLOCIFENOTHERWIS\COMMSERIAPRIKEYELOCQUOTFORMARECORDSIZFILESIZKEYSIZSEQUENTIAUPDATXOIMEQRENOANOERROSTETDEVICMEMORPORINPUOUTPUDIRECINDEXEUSINTHEELSBASCASPROMPEXTENABASATCHCOADATDADEDTEOEXEXFIFIFIHEININININLEFLELELOLRLRLRLSLSLSMIMONBOVNBPPORERIGHRNFLOARPSCSESGSISPACSQSTTATATIMVAUSERERCRCRUSPAGLINMATCFORMALPARPALTRIRTRITRIMIMAROUNHEXOOCOCTOBIBINOUPCASAAAAA3AAbAA60$ê(~#(=~~#(O!X ~#fo&qa` #5:?DNI ģ> >; (>,͘>#>:~̣͘>\˹F(>!>)4>[˹F(>(5>]˹F(>)>>><>=>>><><>^˹Fʪ>*>*ê>*ê>/ê>+ê>-ê>&ê>(ê͘>=ͣ>"F#x(~#" >"ê!͘!!͘!~# ( (> ,Ęf#n#?BFx@~#~(h>$ªp>%ʪ,Ę~#~(~'PwT]#~E(. #A>.>0êf#n#R~8>0f#n#$B>Hê AND OR NOT REMnf#F#N@ nf~o&)^V R@>N RDM| nf#F#N++qpsrNnf(8#DONy RDMo&o&| Do&o&nfϖN DO nf R@>RDM_| nf ut}>66666 66 6; M>NFnfBM>M>nf'RM>nf|M>RM>^VnfѷR<<+|@>ut@~l!#V#^nfRl!nf'Bn> rstuNF utnf+ut|@>^6^VϷRFN@^~(#V#^fnRn>nfFN x(@|(#V#^fnRn>FN@~ ^#~w#~w++ nf~"~ "(0(2(.(6(+(((2(##~80#~( ~#(#^#V#^#z(nfR(0 nfR0nf~ $fnR( 0 FN+q+p##"NFnf< DM#!~ݶnf~#V#^sr}> .NFnfBs> NFѷB(s> ~# +Bs>$s>nfѷB#utNFqpqp; M>xM>NFnfBM>@%}> [NFnfBs> NFѷB(s> ~# +Bs>NFnfBs> NF B(s> ~# +Bs>:$s>nfѷB#ut$s>nf+B#utNFqpqp; M>xM>NFnfBM>@%`iRMnfy(NF (#NF (~ (!NF ( ( #^Vnf~ 5AW͞nf^O$5A (4A(/'A(*Onf ( (w#6NF˷B}<`iO7~7#V#^++NFB(? X!~ (#^V ututɾ #~# }>NFqpqp; M>xM>NFnf `iutBM>@~NFfnB( ututXbk~ #A  &W͞nf^~# (+~#A(>8( -F G ~A #O~ O#0R& (O$'' '(E_(A (5(11(B&E&F'U&L&D#'ID'Rʗ' '|'a8{0 O$A8[0:(.n&&q& '' 81(G q&'1( q&q& q&l (O$ n&' q&(#l, 0:(OGyx$ '|('l (O$ '' q&( 0:(O y$|'}8''$%&?GE 5x@(*A(# B(C(D(E(F xa{˯a{|(Dx(d x(W;(MR x<(E x( M(.x(&y "('( \(: O y(˯}>NFnf| ! utut ut; M>xM>NF ,NF@ ^~ !'#~#ngNFBR>R>@R>nfxM>|M>qputÄ-F(-nfnf)z utsr6-5A# 6-^VW͞:}>NFqpqp; M>xM>NFnf())`iutBM>@~(GutfnutNFB(0e~DO| T]N ~O(nfut!ut'@~( #F#N++| nfqput-Fnf~ʌ>X^VnfϷR++ͳ+^VnWfXR++ͳ+^VnfշR++ͳ+^VnfR++ͳ+^VnfR++ͳ+^VnfR++ͳ+^VnfӷR+,ͳ+^WVXnfٷR+ ,ͳ+^VnfͷR+,ͳ+^VnfѷR%%++ͳ+N~ ,N#7+^VٷR',ͳ+1,nf^V$B> ^V> Source: Symbol: String: Free: GOSUB: FOR/NEXT: CASE: WHILE: Debug: Buffers: USR Name: Length: Addr:  J-D,nf~w#$('AW> (.(:( ($('A( A(W>> w# (.( :( (5A.(B(!B-6 (:( ( 'AW>> w# (+:( 5A > (w#/wW>! !B-W># ( W>#BASICOBJ~ Z- x-.x-:FO~ (O#}> D,6~ 'AW>nf~~8!6nf( ~<w ^V  !.!^V 66~w~w! ( d>i>=nf!~(-F(G_Xbk >0#Ĵ.d>^F( _Ĵ.d>=!"Z-." saved. BACKUP ʹ.57=!!!6D,~8[6/(Z~<w 6x>nfF6 6 6 nf6O6B6J/(x>E6?g@F‚0nf$66ut! x>E!nf"0^V~ #~ G#~ O#`i$B~# (. (( (  > ~#F# >  y(8^V5AA 5A (K;(G`0R `0E `0M(. ()"('( `0\(O ( a{˯^V5AA’/W͞Ò/~n(F^Vnfz(#nf%%R0?@> ^#V++~ ^VRDMnf utnfut#V#Vsr@~ʌ>Ä'@}>666qpqq; M>xM>NFnf `iutBM>@~NFfnB(E ututX!~ ( #(R ;x0ou152~ݶ(1E ;qnf#ut~ݶ2 x^V$!2nf> ^VϷRDM_ nfG6 #= n0f1^V~#( ~ 'A N ~ (#>nf> yD=?GO?D=_nf6 # > ^V55 ; (' (> F F> 1 Page  ; q5A ʐ3nf5A'AM>w# ( (,(.(A('A(+nf$( % ˶#< 35A ,M>~`(`(͡4 =^V~##T]~#(~ ~#3V^Gʛ4ge4GOW_F6666(66͡4(fn^5,fn^5)4fn#tuR(*8(66F(6fn#tuB8(GO!F(.͡4(^5)4#B8( ͡44E5 1E ;q~@O~#N˹(@ $H %^V = @ 8H ~#N#igRH>"~#N#(ig##N#~ 88>. >" ~'PwT]#~# > ^V^VR}>6; M>xM>(~wnf~>~5AV (VM> ( 5A M>VVVV!uYtZ5A (AM>R5A M>uYtZV5}>5A :<8b;Vnf^VϷR^R@>^VnWfXRDM^R!^TRnWfXMDuWtX͆B^WVXNnf#6Aʗ9O :Aʂ95A'AM>'A( A(. #w$( % 5A#=(H>(D<(@C HM>͋95AA FM>͋9A e95A M>Ru6=( >( <(  #5A~``(@(=6#RDMq#p#86##"('M>O M>w(#(p86#~͜Nw 8RM>|M>'BM> DMq#p##e9î8  5ATX8 X85AA('AM>nf~M> ~ #~( ~( ( (N #F#n`> RÂ9NX8 X8X8nWfX~&;~:";##~@O~#~(~`@%8($f(lF(<N(>V(=#~#(8'"~(G#Ny" ";^#V>;;nf~'PwH#T] 6;n(-;F((^#V;nf>;F(nf6;>;^):at on Break changed after ^VR}>5A ;<8b;nWfX~#~( ~ ^v(#  ##~ #~ O^V#RDMnWfXuWtXDM~ VÆBnf^WVX+RVDMͪ;5A, AxAu#t#^V(GO #( PY<7~ x -F(6-7!>>>?:?'??K?1?`?vr???>Invalid Statement Number Insufficient memory Unrecognized command Invalid command syntax AUTO cannot replace or merge lines Invalid Program Name Disk Full String missing or invalid Renumber Range Error Program not Found Program can only be Executed Printer not attached Protected file TOF: EOF: 708:007A8[0A7 nf~(F( !fnnf6#^VutͷRnfϷRDM^VsrnfutnfutnKfLuKtL!DA( A8G0O)8)8)8 )8 H !A $)| DM)| )| | O |(7ɷD)BEx2Bx 80ɯ!{B~(#O#F#>/B<0 0  <>0'd nfut~(B( gntunfutnfutnfutnfutnfutnfut~()gnB0 tu |w#}wn&SC ;AE1ECommands AUTO [[,]] BOTTOM BREAK [AT [AFTER ]] BREAK [ON [CHANGE] [AFTER ] CHANGE [//[/ ]] CONTINUE DELETE [] INDENT [] LENGTH LIST [] LOAD [.][:] LOCATE [/string[/]] LPnLIST LPnXREF MODIFY [] NAME [[.][:]] NEW QUIT [|] RENUMBER [ [ [ []]]] RUN [][ ] SAVE [[.][:]] STEP [] TOP TRACE [VARS] UNBREAK [AT |ON ] UNTRACE VARS [] XREF nnnn (display line) ctl-z (up line) lf-key (down line) ret-key (display line) Statements CASE CEND CHAIN CLEAR [] CLOSE #] COMMON CSI DATA DEF FN[(][=] DELETE #, DIM ELSE [|] END FNEND FOR =[| TO [ STEP ]] GET , GOSUB GOTO IF [ THEN [ ELSE ]] IFEND INPUT [,|#[,]:] [LET] [ [:] ]= LINK LINPUT [[,][USING ]|#[,]:] MAT = MAT =() MAT INPUT [#[,]:] MAT PRINT [#[,]:] MAT READ [#[,]:] MAT WRITE #[,]: MOUNT NEXT [] ON ERROR GOTO | 0 ON GOTO ON GOSUB OPEN #: ,[] OPTION [BASE 0|1]|[PROMPT ]|[USR ]|[CASE ] OTHERWISE PRINT [#[,]:][USING ,][] PUT , QUIT [] RANDOMIZE READ [#,:] READNEXT #,: REM RESTORE [] RESUME [|0] RETURN [] RUN [|] SELECT SLEEP STOP [] THEN [|] WAIT WAIT ,[,] WEND WHILE WRITE #[,]: Functions ABS(X) ASC(A$) AT$(X,Y) ATN(X) BIN(A$) BINOF$(X) CHR$(X) COS(X) CRT$(A$) DATE$(X) DAY(A$) DEL$(A$,X,Y,B$) DTE$(A$) EOF(X) ERL ERR EXP(X) EXT$(A$,X,Y) FIX(X) FLOAT(X) FORMAT$(X,A$) HEX(A$) HEXOF$(X) INP INS$(A$,X,Y,B$) INT(X) LEFT$(A$,X) LEN(A$) LINE(X) LOG(X) LPAD$(A$,X) LRL(X,Y) LRR(X,Y) LSL(X,Y) LSR(X,Y) LTRIM$(A$) MATCH(A$,B$) MAX(X,Y) MID$(A$,X,Y) MIN(X,Y) MOD(X,Y) NBR(X) OCT(A$) OCTOF$(X) OVR$(A$,X,Y,B$) PAGE(X) PI POS(X) REP$(A$,X,Y,B$) RIGHT$(A$,X) RND ROUND(X,Y) RPAD$(A$,X) RPT$(X,A$) RTRIM$(A$) SCH(X,A$,B$) SEC(A$) SGN(X) SIN(X) SPACE$(X) SQR(X) STR$(X) TAN(X) TIME$(X) TRIM$(A$) USR(X,Y) USR$(X,A$) VAL(A$) !OͬOsr*V́WG͛O+(- ͛On(,.(͔O8"x ͳO ͛O͔O8 x ͳOp^OwV(r~!E *͛O+(- ͛O͔O8h 7kW|(p(:x(!RJV ݶwu[V| ͛O͔O0x  VV"V{W^V0 ?nf~#ut W~*V~6 (6-W >0WW6E#6+~(ց06-D#60d84d#/ 0p#0w~ր[Vo&6ÜN ;O~!շ(j >0 + ~- #G(zP0+~# y(@PͻP4y0ͻP>0 y(ͻPy DO >0ѷR}Gw>.n>,go~ր8c(aG> 8DO~#?Q~#kW ?QkW~(!R(#Q%|(7!(!>~̈́W|(=|(!R#'͢Q#͢Qd͢Q# ͢Q{oVw=B<0 o~(->ݖ8&($ 0$G>_;#(~w#8(6#́Wz | | ZRZ0?Z0?| S!RѯRzG|R|R'8 | xRxR SzG|R|RzS&xRz !|z(!tu6BK!85T]2R!0 V^2R5 !-(+(AA8| @R@ SR|(R>-?B>!7>!7>|!R7*V~_V *VV^ݾ [V{fVw[Vr[V˺˻ͷV8 tV͒Vxx |VxVyy~і( SGѯ.Wbk  S'+~S 4T.WS'+ NV{WVyw fVMVw V*Vݾ{W{W~!utT|V ́W +W͍T+WN+͍T~(+W~րO~ր~TTÂTTƀVwMVܾTܾTܾTܾT^Vɯ'+! nV! ˾+xnVGßW>{W>ßW>[Vutnf~G怰wnVVˁnV^ˉ*VͱV[VV^z {~z~ݾ{###N#~  (+W#~ +q#8#7 o+#g# ~'w+#~(0_(w#)T]))_|́W[V6#͒W[V6#6#ͥW[V6#6#6#W7.^XO<VOnhYQ<6*$yshbYMGA1,z]GA;5,&tg\NHB<1)#  v h _ S D 8 +    z l e [ ; "     I r d ^ <pd9 o 9Ka lGG eVJ> 8#Y. e \ A ( X LLD  s I } = 4'}!"""v#{#S$$$8%m}<%%% &&/(M)9)))))**t++tB,P-X-d--Y...]./z0}00z.0W/Z/?ACFCOC0c!!a {vwq*)))>)9)((%%%J$8$2$l#Z#T# .)()%)|w!!2!.-+-- -,,_, .p...1.$#######!## #"/M//-)(z%~#" @CF>O*)+))%M$p#!!!!zIP11111>1D1b1e1j111113h3m3344v555563t00},G&,&%$b  W % oAi;33a2-,x,\,$e0 R 7 +  j<dc33 3q00 0,,)$$[H;$ &}G/~u[J<ra(Y2rJ-fMw u ^ - * > 4 " I 7 " qO?.C7W7Z7g7t7y777777777777:8S8Y8\8_8e8j888888888-979j9o9w9999999.:O;R;`;;;>767?.X9J :8538Qg997$ F;:j55lRS SSONP`OOQOOOO}OQNUQQP0OsOvOOOyO VVV%V}591)(%-$O# < < /+I>N>S>X>`>e>j>o>t>y>>>>>5C?$@.H/b//$0-060J0w00-m....<,?,,-S-b-i-********** + + +#+6+9+L+O+d+g+w++++g)))&o&r&w&&&&&&&&&&&&&&&&&'''''''''B'E'J']'o'x'''''''''#s###P$$!#!!"""2 w z BGLQT[^  V_o "1OXZ\^`bdfhjlnprtvxz|~*38=,HSZelw~6N_nrys}   #&X\ampt+Cioyg<   !#%')+-/13579;=?ACEG(R\_ehmuz 49?RU[loux})/2>JPi!$'DPS\_kv|'?DGk 6 O R U   . 3 H K N b k n y | &4?EQT_knqzs 1NX^gv{( 2 [ g Zl u z  B C F  %.8BLVSZ ,5:P_d &/4?JU^enuTZMRW\aeimqAc~V !>!V(!D>a!>N.F/> > u*~<+~(wV w666qpqp͘ :x:NFnf `iutB:* =~NFfnB(E(*+ utV(T^V!utbk6 ^Vfn((  ^V#F#F>:ut6V(6 !ut&n~ ( #(RF;x0ouͼ5~ݶ(~ 1E( *+G @F;qnf#ut~ݶ~  x^V$!Gnf> ^VϷRDM_ nfG6 #= n0f1^V~#( ~  N ~ (#>nf> yD=?GO?D=_nf6 # > ^V55~ G O@y  @F; (( ( > F F> ü=~ݶ~ G@* Page > ^> ^>^>^> >  > >>^V> u> nf$6#6nf~.#V#^##~ % %(E #V#^#nf$FNx(fnR(-0  66rs tu6 ! tu  ^Ýnf$~~(  ͼ~8 ͼ ͼF#N#x nfT]6 ^V~6 { +wͪF;h&R{Enfw +++|(> ^Vͼ|nf6 T]nf$6#6nf~#V#^##~ >:C~  (E > C# ~#(^V~(,#˿F˸( 0V^(~ ~(6! DM p#q##~w#(rswFN! tu  ^nf$~ʍF ~(  ͼ~8 ͼ ͼF#N#xʍ nfT]6 ^V~# ~(>:^V˷R}86 ͼnf6 T]ͪnf$6#6nf~ʢ #V#^##6 ~0(@*(!(4/(*1(&>("N(+(:(<( E( (E 6W6R6M#~+(/(>(~(;ʵLL ( (~ ( z( {(E #ì^ß^V~^#~O`O~@G@#F˿˸( 0mFN ~G怸(~ T~(yf(D(f((=(9d(5FN! tu  rs~wM-6 -#~( p#q#6##~w#(#~  N(^V#~#ng~(&~( FN V^Jzz( p#q#6##~w##~w#^V#~(+~O G FN D~~( p#q#6# ^V#~(D~W O 9G 5FN FO#x (y(8  N! DM p#q#6#N nf$~ʴ ~(  ͼ~8 ͼ ͼF#N#xʴ nfT]6 ^V~# (j(ygn}@~# ~(}``( >%>$|(>(>)^V˷R}86 ͼnf6 T]ͪ f# n# >"f# |(~# " %>"N *V+nf ~~w#~.  A >. DMN !V^z(#### nfR0*?##DM~(%(((( ( ( #  #N~#(> f#n#ͨ dͨ  ͨ }0~#>/B<0 N( 0> ( Line/Label References Variable/Constant References 08:007A8[0A7 nf^V߯Bbk8 ^V!((srgoutB( 0o&bk>7!D ( A8G0O)8)8)8 )8 H ! $)| DM)| )| | O |(7ɷD Ex x 80ɯ!3 ~(#O#F#>/B<0 0  <>0'd nf~(F( !fnnf6#^VutͷRnfϷRDM^VsrnfutnKfLuKtLnfrututsrsrr#ut6 6sr͸ 66263?64 6<?T]6nWfX+ut6+ut66[nf+utr+utr+utr+utr+utrrr:r!r#r%r'sIrJsrr(r,r;# ,  xͫ u#t#60$(~#(=~~#(O! ~#fopQ`F&-;Mosw{. > 1>; (>,>#>:~ 1>\˹F(>!1>)4>[˹F(>(5>]˹F(>)>>><>=>>><><>^˹F>*>*>*>/>+>->&>(>= 1>"F#x(~#" >"!1!!!~# ( (> ,f#n# 1Fx@~#~(h>$p>%1v1,~#~(~~wT]#~E(. #A1>.>0f#n#1~8>0f#n# >H AND OR NOT REMCHAICLOSCSDATDEDELETDIENFOGEGOSUGOTIINPULELINPULINMOUNNEXQUIOOPEOPTIOIPRINRESUMPURANDOMIZREARESTORRETURRUSLEESTOWAIWRITFNENWHILWENSELECCASCENMACLEAREADNEXCOMMOUNLOCIFENOTHERWIS\COMMSERIAPRIKEYELOCQUOTFORMARECORDSIZFILESIZKEYSIZSEQUENTIAUPDATXOIMEQRENOANOERROSTETDEVICMEMORPORINPUOUTPUDIRECINDEXEUSINTHEELSBASCASPROMPEXTENABASATCHCOADATDADEDTEOEXEXFIFIFIHEININININLEFLELELOLRLRLRLSLSLSMIMONBOVNBPPORERIGHRNFLOARPSCSESGSISPACSQSTTATATIMVAUSERERCRCRUSPAGLINMATCFORMALPARPALTRIRTRITRIMIMAROUNHEXOOCOCTOBIBINOUPCASAAAAA3AAbAA> >>  ( (6}z | | Z Z0?Z0?|*!Rѯ?zG|?|?'8 | x?x *zG|?|?z4&x?z !|z(!tu6BK!85T]S!0 V^S5 !-(+( ͫ 8| @?@* |(?>- >Y!7>Y!7>Y|!?7K~_V KV^ݾ |{͇w|r|˺˻8 ͕ͳxx ͙͝yy~і( GѯObk  '+~ 4%O'+ Nʜ3yw ͇nw+Kݾʜʜ~!ut͝ ͢ LͮLN+ͮ~(L~րO~րãƀ3wn^Vɯ'+! ͏! ˾+x͏G]3w+K;ݾʜ~͕!0 >͓>͓y/A~րO~րÕ!8 ! !8 ! !8 ! !8 !  # '+~#~w+>Y>YÜ>Y>Y|utnf~G怰w͏Vˁ͏^ˉK|V^z {~z~ݾ{###N#~  (+>#~ +q#8#7 o+#g# ~'w+#~(0_(w#)T]))_|͢|6#ͳ|6#6#|6#6#6#!srK͢G+(- n(,.(8"x   8 x pʵw(r~!E *+(- 8h 7͌|(p(:x(!RJ3 ݶwu|| 0x +3CÜ^V0 ?nf~#ut ;~K~6 (6-; >0;;6E#6+~(ց06-D#60d84d#/ 0p#0w~ր|o&6 ~!շ(j >0 + ~- #G(0+~# y(@4y0>0 y(y DO >0ѷR}Gw>.n>,go~ր8c(aG> 8DO~#Ė~#͌ Ė͌~(!R(z%|(7!(!>Y~ͥ|(=|(!R#'#d# {ow=B<0 o~(->ݖ8&($ 0$G>_;#(~w#8(6#͢  &p)Tag u b / 2 poA } #-8.6>F \ ,3:oNZI\kQxE#  -8@COVly||AVo19AI$ESels|  #*-4:RUailpx ")/<DTgjux,=MZ`nvy @  4Ddknqt| ,/;@GW_bgnq|'69<K  !,CQ^dv%-28?1#;AJ^e m v y dg$(BPUZ_!%!(>N.F/" nf" nf"  %n0f1> !~ (!#~ (~ ($~ -(ʦ~ -(ʦ/%2$ ~ -(H ~ -O T]B J =!dO~> 2 2 > > >>>2 2 >2 : (2 !F%2 >2 æ07+6" $! ]($!$]V2 2 :$< 2$!$~<w͈(:$ ]͈( ]$* ~]^#V:$G* z(7%R0!D>a $+V+^* ~n~(O S #[ R" >v* " * ~S O" ͑+~ n* #V#^'RnT]~  X[ #($( (#(fn>Ͷ~#([ ~~+~ S ~#(~ (G~ (B (=(2(.((!(((6N ~(> ѷRu>v* ~ʸ͑###~# ((9(*(((( ## ~#(N #~80##F#Nx #+* ~fnB(_~(n~%(&( >^?(,###M~( ^~(~F ++~##? ~%(~w#~w#PYfn>Ͷr#s#[ (((fn>ͶDM #(GOT]~#(RDMy(,(`~(_#RDM## ~w8~< fn>Ͷ+6#63~(O #RDMT]+4+6#p#q+L>v7+" 6 * ~͑~ T]~(O #RDM###~# (O(%(=(( ( ## N #>M~ M~ #~ #>M~ #~+N ##~ #~+(>++~ #~+(>[  (( (#(~#([ +~S `( `(* #" * #" * #" >v* ~ʝ͑###~# (( (( ( ## N[  w(( #(ѷ  N !x(G`G~(O #RDMR~wp#q#>v* ~(_#6" ~M_͑~&( FB###M~ ( BK[ RDM6b~(_###~&(F RDMfn>Ͷ+^+V+>fn>ö>v* #" 6!" * >2 ~ #! 4FʷO͑~%( * | fn" [ RDM>v* #[ RDM[ ![ !bk6* #6>2 7+6" +6" +6" :(=OO! ~(F[ R" ~w##:P(G!QV#^>Ͷ2P:(G!V#^> Ͷ2:(G!V#^>Ͷ2:(G!V#^˼>Ͷ2! 4V * #" ͑fn) (*  " r#s#[ r#s#6#6K p#q#V6#^6Vp#^qz ###? [ GOB K B" wz{Sbʜ ]w!B_^#V~# ( (+ #V#^#) (* +++++s+r" ##### ##V#^z(q+pr#s#++^+V~#w#(((~#w#F~#w#(#~#w#(8~ y ####fn>Ͷy ~y ~ y ##8y ~  8~ ( #8#~ y #8y +* ####~# K q+p ~ y #66#K * V#^z(* q+p ~ ~ #(~ 8y 6 #y #8#8y 8#M ͌ y ~  8~ #8# ~ 8~ #~yM 860M~ #8~ #8#~ʧ #8~ 6h#6## ~  8~ ( #8y 6 ~M 88#8#8 ~  8~ ( #8>Wy ~#(,/6Y :6Zʼ E6\=~ 6[o6L +M#~6X 6V # y ##8#y ~o(C8 ~ ( ###~ #p#~ 6#6#͌ ~ y #6U###~#(++͌ y #6#6#y #8#8~# (f(Mu(Yv(Yg(Yw(Ax(A_(A`(M(Mb(Ma(Mc(d(e(+p#q#y 8þ +~|(!~(.}(.("](7^(Q\((~ y ####~#[ 6_6`6a 86!  ##~w####~w#~w### ##~w##~ ' 8~ #8~ #~  6 #~y  8#~ (! ({( ((  8 6 #y ~ ( ({( 8~ #6 #y ~ ( ( {(8y 6 #y ~ (6T #8~ ( #8# #8# ~  8~ #8# # ~(![ z +y ! 6#r#s++͌ y ͌ y ~ #~##( +++͌ y w#w#y >~(y 6 ͌ y ~ ( ({ 6 #y ~ ( ({#6 #y #8~ ( #8#&V^:P >Ͷ+8y <2POO!K r#s#[ r#s#6.8p#q##y 6-:P fn>Ͷ+y =2P!SOO ~w##~#w#V#^K Br#sy : ~ ( ( fn>Ͷy <2__! ~w#~w#[ r#s### #8~q(1* K 6S~ #86 #K Br#sy #8~p(6#6#6##8: fn>Ͷ~My !__V#^#BKr#s#V#^r#s#* ~###S(~`(c4dr6# ~ # #(* #[ r#s:=2y V^: > Ͷ8y <2o&))) r#s#+p#q#6#6#6#6~ ( ( 8y :=o&)))6#6y 6.: >fnͶ8y =O! ~##>(V#^z(46-#Vpr##^qs#++6.K BN+F#z{#8N+F+^+Vz  ##~K x p#q#8* ˾6#V##~(G(!(! (((( ~w## ~w##F~w##~(w#r#s##y : >fnͶy =O! ~##>(V#^z y 6-#Vpr##^qs#++K BN+Fz{+6+6y +: fn>Ͷy =2O! ~##V#^#(z( K p#q+z fn> Ͷy |( V#^K q+py ~6.8g * $ 80+͌ V^. : > ˼Ͷy <2!OO r#s###p#q#6#6~zy +~(-( y y {y ? +6-:? OO! 6#6? +~ +6-: fn> Ͷ~ y y {y ? !OO F#Nx (< +++~(Ffn>Ͷ+6#6#~#+ < +6+66-#r#s##[ R|}~-p #͌ :OO! >w#  w+++y +: fn>Ͷy Fy :=2!OO V#^z (<(K Br#s#V#^z(>  F s y M y     >   s GG B  #y cs G&=y S>& 4 M F (>v* " : ʊ: Š $!$* "$$: ($ 6* " * |(;R0!" * " C$_(!$: 3 A,$!$* Š* Ê: : ʺ: º ! !.!* (H!* (b!* (* ,R8* d&* K B* [ Rd'[ &|! >%>  !* (!* (!* (!* (Pf(z %  ѷR0<  R0<<'  R0'* &<'!  ": d: ([* : w !$* ut$*  .^#V* z( $+V+^ut[ > : > >  ~(((( ( ((w" * $Gw %8@8P8 8P > $ ~ < =0gHmmqʝ (2 (.hijڦ Ҧx>æx>xʦS o~>!=oS #ÏS ~o#=~#= Ï S >K xy Ï> > S K >xyN Ï~~ ~N 0S ~o#~#(~(yʏS oÏ +y1(>A#(v({(w  >(j j >a i > X h > O (J (E (@ 887 (2(.(* (%(! ( (  >Qx GÏx yO~8 #~oS # #~ 8  ((N˹~#(  !>a!>a!>a! >a! >a!>a!>a!>a! >a$! > a!D>a$>$fn$>@TYPPRINTEPRPRINPRINTERPRINTPRTPRINTERPRINTPRTPRINTERPRINTPRTPRINTERPRINTPRTLISNOLISNOTYPNOXRENOOBXRETRAC%Pass # BASICOBJ Oasis BASIC compiler ver () statistics. Input source lines: Input source size: Output object size: Source reduction: Compiler errors: String variables: Float variables: Integer variables: Compile rate: lines per minute. Line too long. reference to undefined line "". reference to undefined label "". WEND without WHILE. WHILE's nested too deep. CASE without SELECT. CEND without SELECT. OTHERWISE without SELECT. CASEless SELECT. SELECT nested too deep. FOR without NEXT. IF nested too deep. ELSE without IF. IFEND without IF. FNEND missing. FNEND without DEF. WHILE without WEND. NEXT without FOR. Label "" is multi defined. Illegal DEF nesting. RUN, LINK, or CHAIN has line number. SELECT without CEND. FOR nested too deep. CASE follows OTHERWISE. More than one OTHERWISE. IF without IFEND. More than one ELSE. BASICOBJBASICCOMObject file is corrupted! Compiler error at line ^ox $-6>EM !'+2FIOXgrx}o!&+2x!$'*-036AFL^d~+3Z]f "),/BEJOYafknqvy~%*/28<GQ_mty~&+:>ADGMQmr}(.59<FPTW[d1FI$*8<@I]quamqy  $2;?GMQZemrv(7CGPTa     2 6 9 < A E M P   @ e q !$4EUXY ^ c h l   . 2 8 ; A H K N V Y a g n t w }       ( 4 7 : F O ^ k o KPSW_chsy  "+18BIT`cju ' + E K O T  &6>ep Za .6I~U(2!*-AObgjuz (+=@CMSX\_bhksx~ÝÌ)"@~w>!N.F/~T~ -F*FNqpqpututx( -N6- ~ #~(~Vf( ~'~̊/6, b #%~'¯^VRuE>n1nfVn(nYfZ|c/+uYtZ~#z{!O!u ^#VV~!/~,n1'~(6'~{ʔ# T%~,n1~ (ÔRuqpsr~(R:~:( ~'w'~ݖ:( w6: ~'w'~'(~ݾ 0 6'w~'vBQr.e9l'N -{ʽGʫH*ʱ4IʷJRK(~  {(Pz(@(3((((((### N #~ #~ 8,'F(ý4:4'N( ~ ݾ 6''F(~ ݾ 6'5~w4!4#4%'F( ~ ݾ[#~ʯ~:ʯ5:5ï'^( ~"ݾ! 6'5!'V( ~$ݾ# 6'5#'n~&ݾ%(6'n 'f(~&ݾ%(5%nf^F%6'%6',nf^T% (bQWG=$* ,!<0  #, "- ~8 ! ."V $"A$z nf6 ͜e (̀e( ( ( ,(w#6 ͜e, ͜èe! n]2Y_^V sKrLI%zNFx()ͣe $~ݾ8ut^~ 8 0 I,NIFJxnKfL#V#^##~% BȯwMzͣe~( !( ({(2Y_fn2Y_&2Y6>6[^VoX(>(1x nf.ͣe.N^V~(G#~a8{0˯#> !~ fnnf~~& 7##NFBDM~`@>(>8>* +q+p[*^4~. 4:N~,n1(~|(~  ,6'~(:~w ~00,~:( ~ ,6'~w ,6'~(=w͉51%͉51NF^VR}^VnfRDM!utsrxy~~6~ 6 ~:6:%nf~> 1~T]#F#N#~w#~w#~w #~w:#ut^VѷRDM!sr~(( 51=04!N(~(h|(bnf^VѷRDMutsr~~~nfutnfutnfut~!w"6'nf~> ~T]#F#N#ut^VѷRDM!srnfutnfutnfut5 ~G=> 14%6' ~%w&~ ( (Ny(8N ^Vr#s+qpnf^VѷRDM^VRutsrNFp#q#w#( ^VnfRutnfRutnf~(+6'~%w&,##~# V#nbGNG~,n1x()(zOx(t(?(nf}n>m>8(0 3(=G# )2e~()y(~(|( j|( 6' ~%w&nf>1nf~nf˾~#+>1T]5%F#N+ ut^VѷRDMշRsrnfutnfut^V(BK# (ͧ o&^V#N~#(y`@8(#  ut^V6-x B^VsrG~ G #  ut |} sr~p( x!( !j# ut |}nf^Vx(NF (e~(~(8~(j|(|($ ~~xNFBG}6#6$6' 6',^V˷R}Mnf^VѷRDMRsrsrnfnfRutO^VѷRDMnfutnfutnfutN((nf}nmx^V~ (( ($>1BK# (#o&>1BK (#* ~#ng  UG_Prͣj6-G_P~ j|(ͧ F#N#~5 ~ = =1!wf6-^V!nf~  e~ F#N#ut~5 ~ ( ( > å qpsr#ut R}nfwx6-NF^Vnf6'=~(#/~(: #~( ( ## ~(#J1#J1##NG -x(6-(m| ( :g58}d1>^VN^V B`i> NF#^VOnf$#KCx(9y8P z(z(((( ### N#~(~ [~y^VV(#~+^G( >  0F ~ M(>,n(>;2xV  ;xx0 ͯ(0{> #~ ʗ ʗ{ʗ R##V ͯ0F J1#}( V(^(-x0> Vͯ vf(G(V(x#w+N(q(Z~(0O#~ (' +~ ( #~"('(n(;,( %N{F#>"x( ~#" >"V~(RO{#G|  > {͞k {[mT]#~-(  > H {> ѷR}GV̯f(@g((' ʗ (`{(\( +ʑÂv+ÂV ͯv~v‚#v ^V˷RR> 1A > > ͯV( ##p#Í\^V˷R|(O+^VVf#N~O>1nfBut6# V#NFV(^#~+( > ~ #z nf#V#N(9  }nnf#~#Ox Gͺ_nf#~#Ox GͶdV̯xBKW6nf#^ut #V(%#~+Gnf| }(~  (#ͯ6 #6 #&T~  N#~(G#N3~2GN#Z2~ @͐Z^V@n1yo͕ ("('( 8x>( x> (5>x>ʨ èO 0x¨y ¨> V w;V¨++ί~͜e f >n1~``(0@(oknf k (b(_ ([(V>n1nf6#"('(( ( (w#+~ (#O (  w#NFB} `ixf( &f(6-~ #͜e2 22>n1n ,;&~ybZ^Vnf# ( (w# p>6-o6#~ "N~w^V#~! 2,N~w^VG.#~ 8OyF#> ^V6;͕O(, 8E~  yF(~ :x  (y x> (A(I (y(Nw; (~(G~(~;  ^V7x & $O ( %  &h $yO,~(y % > >1~ ¶͊Z`@(8~(l#(((>)1N#na>f( &f (Oxy (>16-~((  8#N f ~ #x#6#6++(> ##>##n1+++v1ˎ##nfA#6#nf,(6++ (nfr>6-^V[nfT]6f((N{( 8N{ {|}f ~ ‚\# #N(/8*N# @6##n>#1+++~1###1+++~1##) SNIFJxb~MbnKfL_~#O N#na>O``y8 (58  7f( &f(6-~O(  (#N ~ #^KVLRuMnIfJ#uItJ6Mf¶~ #öͣe~_>$n1#F#N##~++++%(qIpJuKtL~! #f#n#uItJ6M#>1~anf~(G#N+ F(##s+++s+rrnf^VRDM+!  nfutnfutnfutnfut6r#s#p#q###q##T]s#rN~j#O^V>y(.( :ʅ# > y(~.( :ʅ# y(S# y( :(# > >y^~:(# ^# (y> (# /څ^V]> !!~…N#~(  #~#( (1څ5҅1G …y څOy =^V+F#~u6(6@v(6 +FM~ʅ( 80#~f(w@(x (`#x >~ >v >G~ ~ D#~#(a(b(`(Nx(X(˘^(˞~a{˯#6##p+ (" &GM~ G~ x<(G:>8 >++(&(!@(( ( ( -(("xn1>n1DUMMCONSOL READE PUNC PRINTECOMTAP !+6+ˆˎ#J1~,n1z>1z1!R1nf~(#F#N#~#ngR  F B ##`i>1N~(F#N#=(~ ;y˯A84H00@Onf~(W#^##F#F(M~ >1A >'1~#~(l}(GB];^3\,###~ݾGnf~(W#^#~#(^>%1pN~(#~˯U( M(L 1p<,N(~#3 8>w2(O62u3~ #~### ^V!N~O(#~s ~ (s( ̀e(>n1# (N #~N (&7+^VٷR^VѷRDMS^V! (`i< >n1~ ^#VnfNFϷBR> 1nfNFBDMnfR!RSnfN#nfutnWfXuWtX^$a8{0˯Îe BASICUSRJ1|E>n1>+0~ ( ~ (; (7{(3 N8(~($G"#N"m^V͞k~ #1Stop_'wFG_'wE~oʶ J1N#| n(k~ (d (`{(\-(# p  ~ ##~( (,y-0͉51͏ B~( (###p ͏ >d1##~(#F#N# ͉51#F#Nqp>(F16(~0(N)F*~+51=~0N)F*qp~+w~1~#t(es(|ͅ!>>(?Q!~ (o&``> }nf˷ w6#w+>6->n1J1|!} !G:8ͬ!xQ!~ (J1| M! Q!~ (N(mDM~#t(.s(<ͅ!~ !O@#N( 8~#~m}ͬ!~ !y!~ !~ 8${( #t(s(@ͅ!>P"E>n11ͬ!p"xP"!g.~ !o!p" P"~ ( ({(N((m"}""N#T] 6 62Y.~(# ~ #^V#(!GO #(͛#PY#~(1#I^VGbkO(ơ#PY^VGbkO(ě#PY^VGbkO(w( ݾ[ԛ#PY~$~#(##w(#_(#F#N#F g(V#^#F `ijDMV#^#z$O^VѷRDM+NF*^ x R^VѷRDM^ #* ;O#~(o~ #J1~ #J1#}>1$~`@>(>8>#~(O~y +#J1|(1DMo~ } #J1z(}#[*~ #C$>1~#/ʃ&:ʉ&>ʏ&Eʕ&ͤ&#~q%F`i #g(jNG(( nf}nm+!G(. x#ͤ&wwݮ¬&B f( R(>1`iF #f(jut~P&8KNF!&>+ x ~(#ng##>+##NF qpx ݮ8nfjDMV#^#}nnf+ut| ݮ8 nf)mr#s#nf+ut| ͛& ͛&8͛&͛&*(>1_(~#(F#N#gV#^#0'r'Vv(2@.(nf/NF g( ,nf/)^VNF Gw.͔'f(F*¬&_ʬ&sr!F(,ututg(sr^Vnf|( nf|g͔'NF nfG(utg(, W _ nf#utR!F(,ut g o^VsrR0'r'nf͔'f #~#(^V V#nb~(#ng##>0'r'nf&(#~#(~ ( ({ )͔'>f(~ ( ( {(#͛&nff(###V#^nf#R0͔'N~^0V1N#> 2Yut7utnf^V׷RutDM^V +sr!N0F1B0 N0F1ButDMn0f1 +sr |}d!*#8FNF^VnfnGfH97ndfef nfnf8NF^0V1nf!N0F1Bڌ)2>!N.F/2YVfİ0^V(.GO #((w( ݾ[ PY<7wpqrstu ~#(!V .v(~(^(&V^Ͷ*f(V^Ͷ* F j DMͅWnfButnfButnfButnfBut^VnfӷRDMRsr%^VnfշRDMRsr~(W#^+|}##^nfT]Butr#s#V^nfѷR0B ~(~ v(~[ ~ ^(~ ~ f( ~ ~ bk 6(8  |}Nʡ,go##~ʘ,O++^VѷRPYDM+srnfutnfutnfutnfutnfutPYR(F#N+|}##N Ny ͅWnfButnfButnfButnfBut^VnfӷRDMRsrnfBsrr#s+|}NVf/Vv@.~#(~.((8NnfѷB+++ut#p#q##J1DM~#>( J1T]>#Vv(#`i(/g(,/)($nf#F#N#^Vutnf͹YGw.*(~`@(8x[*_G>1w.( <@O `(` $%((nf}n>m>Vv(o = G 0O /H"Fx(#~O 88.y" "!7inf~[mw#N>+͞knf| 6^V0~ (><ͺ]~( o&>,ͺ]>>V0~ (/1Break on nWfX~ ~#~('#^#VnfR #Fg/###^#Vz(r+s^nWfX~ʝ0#~0( #  N #o0~#~#(%8G W^#{ Uz <7H # ^#V#PY(mj|(|7 !`i( }nyi(8O G W(G(^#Vz(r+s>d1sYrZnWfX~(?#~+p@ 0## &00#N#Fx( p+qsYrZ>d1 N 0~ (//nYfZ~@F~O~#(x`@(%8$~ #1N(jfm>|!G~,p,G(Tx(P(L~ݶ(D(F >pnfutNFͣeF !6(~w+^Vs)r*6,%Gx(@(<00~ (h&^V>[ͺ]6]#6 #62 ~ v2nf^Vͺ]> ^V6,x~ (^VRu6nf^ut#V#^sr at line ESC-CDivide by ZeroOverflowUnderflowIllegal NumberSQR of NegativeLOG of ZeroLOG of NegativeInsufficient MemoryLine not FoundLabel not FoundRETURN Stack EmptyWEND without WHILENEXT without FORInsufficient DataInvalid File NumberRESUME without ErrorInvalid AddressInvalid SeparatorON Range ErrorCEND without SELECTType MismatchInvalid Zero DimensionInconsistent UsageSubscript RangeInvalid UsingFile is ClosedFile is OpenInvalid File NameFile not FoundDisk FullDirectory FullProtected FileInvalid KeyWrong AccessOut of DATAOPTION BASE must preceede DIMNo USR ProgramInvalid Drive CodeProgram not FoundInvalid File FormatFNEND without DEFDEF not foundUnimplemented featureFile FullDevice not Attached.p5 Feature not implemented ~#(F#N#ͣe> nfͯ("#### # (^<7> ͣe _~&Ɂ66L6h5It=h5=^=i=h5=?{Bm>h5MGE=>6ODDt;?K$DBH28h5K:7G776h5+HGG CDAABBYB B&@5@|@SA@iAAAFER(#~+^Vh>|j>R~(#~o&>ͫT6#s+>Rm>R}n>RF#6x(:17~ 1w#Aa8{0˯~(( #~ ##6>DDII EOEORVORVOF ULOULOF KOKOFPOPOFFOFOFBOBOFEBEͫTͫT66 ; +7|+7}=+7wz+7{=+7w6+7n&>nf>R^V~(AO#~ # &~ (7 ~ # > k >>d1>!R( nf[m>^V͞kѷR+s>R nf}n~ /^V$P F9F9Fê9MF=e~!j V=gnMNN=e~(!jV=gnT] NejeN=gnMN=fT] NeNemut6N( m} 4nf"= y >݆_R(0_unf#y9~9Nm}90 f #F#N#6-#V#^#6-+q+p++s+r6> 0>0o&ͺ]>/;~ʨ:#!6uut0 f ~Fpwu}6( 4!!=Fx~ ݆_nfut#~ķ(@_nf}nN=fMnf~=??_nf}nNf>nf>!>R(~d;|d;nf}n#~ y+.=e~(l6=gnf ,;6=fhfm<k{8;o8;nfCnm} 0>0ͺ]>:nfZ;#60#60#6:^V%6>R^V~(dO6#6#6}n6=f^V}n>=f^Vf}n^Vf>!>R~O>^V6͜èe=̀e  #x80bk##66<6< +w+w+6/|=u=͜èe=|=u=͜èe=|=u=0 f ~Fwp~=~= 0h ~ ~=0S!!=_~=0C^V0 f ~9>-~9>- ~9~9~96nf6>d`feF͒=%͒=<͒=%0͒=<0ͫTͫTz {0G>>7n;&>\>R~8K^Vyy(#>\>} ,R^V~8 < O>\>\>} ,UR{(~8J nf6Rn&>\>\>} ,{0><_ >ͫT|(!|!R>>ER^V><0ON#x( y> (~# yGx(# xF#x> (~# (O^V+Rs>ͫT|(!|(!|.!?^V##!? nf!?!ut!?ͣgRj^giOw+N+^giw!F!?'+7ii>Ɂe5qYR( ~(#~|( |!(!!>R#~+( ?fn>ɀD@gnf!e>D@e~>D@e~>R^V }nRnf }nnf#6#T]6ͫT}>R(nf}n#~+(fG~(xwn~(Dw>:A>]8G :>:Àe 80*O)8*)8')8$ :A0820O)8 >d1>>R^VN> !͟A͟]^V+Rs>͟A%0%0 ͟A%0Ry[^VAy8(G> ~(O#nf>Ay8(N#y(G> ͫT|(!|(!R^VmB(-F#~# (~# ((^V+Rs>mB(F#~ HmB(N# (R^VϯR~CG#~ #t~+(- #(g~̀e #Un ., #(?~̀e #6E &A(3#(/~+(- #("~̀e #y(~ #A(!!>RRF#O(x(%  (#(@("?(*(" # ( (~̀e ~C  (*(%  (C (C8 P#( @ ~C @~̀e 8# yCC8(# ~̀e(@ ~C(y(CC?CC͎e a{0A*(%(#(@( ?(A7*%  ͫT^Vϯ| |( |(.s#q nf>RͫT| ;|(7|(.E(,nf#xGw# (Gnfq>R^VNR  }nnf ~G#>1ͺ_ѷR+s>RRͫT|(!|(!| .O(3~8(< GO # (  R^VFx>#~a8{0˯>E~# nfw> y>(A~#(( >^Vw~(( ~(yDRutE%Fnf} %- .utFÛFͫTMͫTEqpR^VNnf^#6 ~#(P Ay(~#(;(7 T]~#(( (+nf~w~(#nfNp ~( +ynfw>^VNFnf6x(\#~# +>  yNFAOx>('x >޾(.=+w)~#( >+ >ݾ( 8 G~# x nf~N#y(O~( #nf$w (( y^V( nf$#nf>RutEÛFE%F͏GN!>+ͫT'++ͫT|( ͒G^(##F++M~(#n&>0n GhGiͫT| >͒GCM~( G;ͫTH>~N >&1ͫTNF &HR^VNH>M~>#~˾+>d1~6MN.NHfMNNgM.N)Nf@wx( Hf>ɀqW(u%8"wfhMIfNJI|JI~(.N8yͪNxI͉N͹NM$NI͍NMNeM$NfNg,Hf~րPIƀ(w>| ZIvj>Rj>d1>Ʉ1@g!)76Y(Iv3UtpRY7AR6hXceM#~+6J~BJje~(u~ր_06HfMjfM$NeNgͪN$NJ͍NM$N{J͉N͹NNg[JeM}nSJfNf>>d1#˾+#+7i>d1vj݁0% )TdeR$)H4XdF)p5'dvq2vEBYXTX`''HDN8~(M)NͣIfþHz(G7iz(!RfNM)8)MNf0͹N>cjMKfN}( jNNͪNK͍NM$NK͉N͹NmKM)NNNg>Ɂ'29TG5`7(@wABRvVI18g8cyfcW Q558'QFVSMKfN}( jNNͪNLL͍NM$NhL͉N͹NL͍NM$NL͉NNg>MKfN}d437`9AY0idH2Yceep$'tex)9FYtVp9r420 T1E#4)9FY4gw1% iQsM#~˾+ZMe~ 5bMe~ fN"jfMjeNgͪNM͍NM$NM͉N͹NNg@(jMf H( rMNN>ɀ!5b71ABV#s9c9tW2g#r"f p32p#@(804#rh(91#!He5!M>Ɂe5R^V }n> !!!jie!9!jg fNffMNfMNfM?NNNNm^VnfѯGw~ < =0fORO({({(w(s(v(yO (2 (.hOiOjOچP ҆POx>OÆPx>xʆPO~>!O=#N~#= N> >>~~ ~N 0~#(~( yNN +y1(>A#(v({(w  >(j j >a i > X h > O (J (E (@ 887 (2(.(* (%(! ( (  >Qx GNx yO~8#~# #~ 8h>rSP>rS÷PV#^#>rSP>rS÷P ~#( yDO÷PR}/o|/gRRR{ozgRRR{ozgRRR{ozgRRR{/oz/gRRR}/o|/gR>>> >>>ͮS8 =j|(| e~(~ G  W O !R!ROF#x(x(y(8 # ͮS(fRͣjMͮS(e?j:ͮS(f,j'ͮS(gkͮS8%kͣJrSPͮS^V~O( #~ FyO0D=Gx(#~nfq>rSP>rSPRm~(((#8^sr fn#* _(>1#~(~`@(8x8!(8V#^|>## V#^!(!j(8NͅWB+ +u+t+wqpRORG( (nf}n nf}n>QQ.Q7QP~QQQRQ^QnQQQQQQQ|RPRcR*R=RR(÷P00րO!5 ^#V>TrSP@TP0XͫTDMO>( ͫTPYDM>##~(nf͹YnfѷR8 V#^~>(V#^##E>Rjfm> ^VutDM6#w#Br#s#Br#s#( G~#( 8( ^#~#(#*G>+1x1og^V~#(O~ ##~#(~ (#x>14[r#5[nfxVnfRutO~`@(8ByV^VN>F:y(V}n^V>Cy( Vm>Dnf4[[*5[+nfѷRtU4[~#}V~fn:nfnf!9nf۷R}MͅWnfѷBut6#Onf%NnfDM#~#V#^# utV#^# T~#(88~#(^#>1r#5[nf#N#nf۷Bsrsrrs:w^VDM ~#V#^# utV#^# GijVR>T~( ((##~(6'@nf^%nf^VϷRR> 1B1!gXnf~w#$(͎ebX (.(:( ($(͎e( ̀e(bX> w# (.( :( (!gX:( ( (*:( ͜e > (w#/w8>7BASICOBJ bX6ͬW~8.6͡X(*~<w 6 >7nf͡X E6^Y_1#~ n(F^Vnfz(%nf%%R8 ^#V+^> 1+~ ^VRDMnf utϯnf~(F( !fnnf6#^VutͷRnfϷRDM^VsrnfutnfutnKfLuKtL*(D~`@>(>8>wݶNF  [*^VѷRB8 wwݾ>1BKf(#QZuZQZF juZ QZuZ ~z>1F(z>1 g oR>1F(+F(j ~# =[^V>##~n1+++n( ###ˮ+++~n1N## #FM~ åN "++ί^~(6#(&( &^~#G(^H ^ ^##6#N#(Oy[DM^V~`@+++>#n1vn1ˎ##(ZZnM)N[yi8 [emN# @6#^V>#nn1+++vn1ˎ##+'hU6nfT]6 ~# (T ( ({ +>##~n1+++n( ###˦+++###fn1+++~n1^##~++GM~++#>#~n1^n1N~ #6## +~ (#6^ J6N nf#UNF˷B#DMnfx(_ BDMyG(_N(%y[DMhH>#n1nf) <N# @6#nf((n1-!D̀e( A8G0O)8)8)8 )8 H !̀e $)| DM)| )| | O |(7ɷDͤ]Exͭ]x 80ɯ!]~(#O#F#>/B<0 0  <>0'd nfut~(B( gntunfutnfutnfutnfutnfutnfut~()gnB0 tu |w#}wn&2Y6 6N 7+ut+6uWtX_6Vnfrututsrsrr#ut6 6sr^66263?64 6<?T]6nWfX+ut6+ut66[nf+utr+utr+utr+utr+utrrr:r!r#r%r'sIrJsrr(r,r;666666;cx(~!( \('(>1~$`*a,`.ʺ`#(t9(^^ʓ`~a~-(9+(;>(=D ~B(Ca~Ra4#4#a~af 4f(4#_a~a~ y~^ r i4#`f Z4f K x(~ #47v ~ `8~`~~``8~`f( v( ~w( o( W( ( ~ݖwn( ( D݆wNxc>ݖw#6#6#~+(>f~@^VlO- ~x @(vdVd@(n( ~ 5~ڏdy ڏd~Gy(bn()(%=640~~(F ~d>D(G> ~(>*V(>0v(>$~( >-V(>< ~(?y(~b>02x>0(~#n(y(b=(0 >,n(>. f( >.n(>,~(y(>0  x>0(~#5 nfF~|(Eo #@(w !g %_ )O> a Y("@>+(>->>>D>B>C>Rx~!\'$  * #9. ~#9~#~ d^VlO~#- 5yݖOcD 8 d>8>>G~ڏd~(>-6 ~(Gcf( >.n(>,~(GcyN~>0(~5#~ݖf(=(=(G> >0f( >.n(>,~(G>0o>E5~=(}>+(}Do>-5~0}8 (d8 8&ͺ]7c>05>%nf[m#H~-(> > 7c;c66x_~!([\(D'_#(P~˯L(6R(6C(6E(6)O4#( ~˯(#_4 ##N#~GV B0OF N y> (~# 7cy> ~# 7cx?(> = ι0A08:007A8[0A7 nf^V߯Bbk8 ^V!((srgoutB( 0o&bk>7h~_V hV^ݾ ,i{7iw,ir,i˺˻͈i8 Eicixx MiIiyy~і( fGѯibk  f'+~f 4fif'+ NiLjhyw 7iiwhhݾLjLj~!utͣgMi Rj i^giN+^g~(i~րO~րOggSggƀhwi܏g܏g܏g܏g^Vɯ'+! ?i! ˾+x?iG jhwhhhݾLj~ͣgEi!ͤh0 iChiChy/A~րO~րEg!ͤh8 !͹h!ͤh8 !͹h!ͤh8 !͹h!ͤh8 !͹h # '+~#~w+>d1pj>d1Lj>d1pj>d1,iutnf~G怰w?iVˁ?i^ˉh͂i,iV^z {~z~ݾ{###N#~  (+i#~ +q#8#7 o+#g# ~'w+#~(0_(w#)T]))_|Rj,i6#cj,i6#6#vj,i6#6#6#z | | ZìkZ0?Z0?|ök!RѯjzG|j|j'8 | xjxʬkökzG|j|jzk&xjz !|z(!tu6BK!85T]j!0 V^j5 !-(+(̀en]8| @j@¶kìk|(j>-ú]>d1!7>d1!7>d1|!j7!llsrhRjGl+(- ln(,.(l8"x l ll8 x lpʒlwi(r~!E *l+(- ll8h 70ii6E#6+~(ց06-D#60d84d#/ 0p#0w~ր,io&6k l~!շ(j >0 + ~- #G(m0+~# y(@mm4y0m>0 y(my DO >0ѷR}Gw>.n>,go~ր8c(aG> 8DO~#sn~#d1~Uj|(=|(!R#'n#ndn# n{oiw=B<0 o~(->ݖ8&($ 0$G>_;#(~w#8(6#Rj*'*;Zcp&@RY`ps}(,;Aqx  ; u z  K l + ; ? Y [`vy~J~"&2UX1@EHKNS\dlory=F!$UX%|  ,|nszrS`n>CMS!(*1J_k5Q3 Z :!E!!!!!!!!! """("D"L"_"b"l"q"~""""""""#)#K#l####$$$$%% %%y%%%%&&&&&&!':'?''( ((P(S(\(((()*67777778888888899g9999996:l:::::::;;S;;; >F>J>Z>r>v>> ?%?{???'@6@@@ATAjAAAABCBZBBVCrCzCCCCCCCCClEEEEEwGzG}GGGGGGGH H=HeHHHHHHH;IQIIIIJJ%JJJK=KNK`KKKKLL!L@LLLM$M=MIMMNNNNNNNNNNO O-O2O7ORQRdR}RRRRRRRRRSSSSSSSSSSSSSTTTT T T TTTTTT#T:T?TBTPT\TTwUUUUV"VVHW**, ,B-R--- .6..v//// 11WWWXsXzXXX"Z&Z+Z;ZDZHZZK[q[v[[[efff#f,f4f9ft.:h s  E R u 8$/`cm#-|[yHySw%+  !!O!!!!"%"I"\"i"" ",#/#$( ='l%&+&N&&&&&&{(1)))*?*555576W65U6S6O6G6555=6M666666636#66)656?6 6%6o6q6s66u6w6y6{6}6e6g6m6i6k6'6a6C696c6;66 616555_6]6/6GQ6[6E656+IIK6A655-6L=LKKIHCHLcKJJIHZH8JIIpHu:8MLKHKJIIH9MiK+JI IJvH:792M)LnKJI9M9sH^H.988!MLLKKJIIIHfKJHHHaHLMK4KLJ)M&LLSK JHMLKBKIIMK:KIH/MLYKKJHILK%KJHN(0%"!!R-gNw1SNC (M,HnGFEGEDDDDPDC C|BnBBA;A@_@E@??{>n>=> >==;u;:]838766666HGGGGEEDTD'DA@>]>==776R2TTGT`UU{VVVVLWOWsWWUS7'&I$W U$V%%V%x!FZ p Q '&'&.'./,*TVS;-*X*(".yTYYfAZZ@[}[[BA[w\\\\\T1RNN@ML.JIIHhH@?;;;: [DRQdNLLLJII I9@*@@::9199888 9 WRNNNCLKKKJ(JI1IHH @;;:o:9mR}N5MM,LqKJI"IyH?: 988.JGJ?[o0 Q;6>N?A?e?L?i?P?;N[ID?KOJTInS88zNLLK1KII8 T9R I0LRQ W Z7Z*_R"&%*%#xR;P6RZ/O8--$$y$i$!!6  K1P1S18k.A8Y1[C0.UTRN5; ;9T9@96a&L%""!   k0.USSM"JD@x@[@;;;::i:k864&F%o  z[@@?1;988kk9ldlllllllll mmmLm+n7nnn&o@WAkkW/F/B;9;$q$lnkkkhhhh00LJ:J`ISH1A'8 8]]t\o\?\7\\[[f[a[ZZW"!wmJ1 qZcZVZZYH1}/WW1.VXU#UU'SHD&%$$*!!  |n%qiC H $ x @4Y6I6+6!666 66611G1%2:2S2t2n5 YXX^^D_aaacddt]E]~kWCCNCBBB@p~v 0@(7˯N7ɥ K @Y@} O@| O@ g}uqy!Command Description $ACCOUNT Maintain the user account names file. Function: SYSTEM.ACCOUNT file maintenance program. %99 <5 Syntax: ACCOUNT [(option)] Options: TYPE display account file on console PRINTERn display account file on printer n CLEAR cleaUr the SYSTEM.HISTORY file KILL delete accounting feature COPY=dr copy SYSTEM.ACCOUNT to another drive HISTORY list current history file If no option is given, interactive mode is assumed. In this mode, the user may add, change, or delete accounts. $ARCHVIVE Backup hard disks onto floppies or tapes. Function: To backup large capacity disk to multiple floppies or tape. Syntax: ARCHIVE [fn.ft:]fd,dest [(options)] Where: fn.ft is file description for account dump - wildcards permitted. fd is the source Wdrive code dest is the destination drive code (e.g. A or B or TAPE1 etc.) Options: date1 select files dated on or after (mm/dd/yy) date2 select files dated on or prior (mm/dd/yy) ACCOUNT dump only current account files VOLUME dump files on all accountsX TYPE display file names (default) NOTYPE do not display file names VERIFY read back check destination (default for disk) NOVERIFY do not read back check QUERY ask ok on each file NOQUERY do not ask ok (default) $ASSIGN Assign a file to an I/O channel. FYunction: To assign an access path to an I/O channel, or to list current assignments. Syntax: ASSIGN [chan dev] |[fn.ft:fd] |[CLEAR] Where: chan 1 to 16 dev DUMMY, CONSOLE, PRINTERn READER, PUNCH, COMMn or TAPEn fn.ft:fd only for disk fZiles $ATTACH Logically connect a device for future access. Function: To map a logical device to a physical device, or to unattach a logical device, or list current attachments. Syntax: ATTACH log [phy [(options)]] Where: log CONSOLE,PRINTERn,READER [PUNCH,COMMn,TAPEn, drive phy Are then names defined in SYSTEM.DEVNAMES:S Options: Lnnn line width for con,prt Pnnn page depth " " " Bnnn baud rate for SIO Cnn Class for console or printer LFnnn Line Feed delay for SIO FFnnn Form Feed del\ay for SIO PE & PO Parity Even or Odd for SIO ENABn Handshake (1=DTR,2=DC1/DC3,3=ETX/ACK,4=CTS) PP maintain Page Parity for PRT Onnn size of Overflow margin for PRT W8 word length 8 for serial device SYNC synchronous mode for serial d]evice SDLC bit protocol mode for serial device ALF Auto Line Feed for PRT Hnnn Head load delay (msec) Rnnn Disk retry count STPnnn Track step time (msec) STSnnn Step settle time (msec) $BACKUP Copy full disk to disk or tape. Function: Copies a f^ull disk to another disk or disk to tape, or tape to disk. Syntax: BACKUP [source,dest] (Default is S to A). $BASIC Interactive BASIC interpreter. Function: To Edit, Test, List, Execute, and Compile BASIC Language programs. Syntax: BASIC [progname[_.type][:drv]] [(option)] Where: progname.type:drv is the name of the file to compile (If no name is given, the BASIC interpreter is entered). Options: LIST display the listing on the console PRINTn display the listing on printer n (default 1) XREF g`enerate a cross reference listing NOOBJ do not compile (list only) NOLIST do not list (xref or compile only) NOXREF do not xref (default) NOTYPE suppress all console output OBJ=drv put object on drive [drv] COMMA Exchange meaning of decimal point and comama for numeric items (European format). $BISYNC Emulate IBM 2780 or 3780 synchronous terminals. Function: Emulates IBM 2780/3780 terminals using Bisync protocol. Can send in EBCDIC or ASCII, transparent or non-transparent. Syntax: BISYNC [ctl.file] b[(options)] Where: ctl.file is the name of the control file. Options: COMMn communication port to use (default COMM1) MOD modify the control file prior to execution $CHANGE Modify privilege level of command. Function: To change the privilege level of ac COMMAND. Syntax: CHANGE fn.ft:fd (PRIV nn) Where: nn is the new privilege level $COPYFILE Move files from device to device. Function: Copy file or group of files from one disk or device to another. Syntax: COPYFILE filei,fileo [(options)] Where: fidlei is the input file (fn.ft:fd | device) fileo is the output file (fn.ft:fd | device) Options: TYPE display result of each copy (default) NOTYPE do not " " " NEWDATE use today's date on output file OLDDATE use input date on output file (default) FROM nenn start copying at record nnn FRLABEL xxx start copying at literal FOR nnn copy only nnn records TOLABEL xxx copy down to literal TRUNC remove trailing spaces NOTRUNC do not " " " (default) PACK compress spaces and mult occurrences. UNPACK do not " " " fLOWCASE convert all upper case to lower UPCASE convert all lower case to upper NEWFILE output file cannot exist prior (default) REPLACE output file can exist prior APPEND copy input to end of output MOUNT allow disks to be changed prior VERIFY read-back gcheck of output (default) NOVERIFY do not " " " QUERY prompt prior to copy (default if wildcards) NOQUERY do not " " " % <5 PUBLIC copy public files too TRANS perform user translation SPECS specify record format FILL nn define fill character $CREATE Allohcate disk space for Direct or Indexed file. Function: Allocate disk space for a Direct Indexed, or Keyed file. Syntax: CREATE fn.ft:fd (options) Options: CLEAR to remove all records from existing file DIRECT allocate direct file INDEXED allocate indexied file KEYED allocate keyed file FILESIZE nn number of records KEYLEN nn key size (INDEXED) RECLEN nn record size $CRT Performs display test of console class code. Function: Perform test of console class code display capabilities. Syntax: CRT [] Where: test-num Number of the test pattern to start with. Tests: 1 Video attributes 2 Cursor addressing and screen alignment 3 Cursor addressing 4 Relative cursor addressing 5 Scroll up using delete line 6 Scroll down using inskert line $DEBUG Debugger for machine language programs. Function: Allows dynamic interactive testing and debugging of programs written in Z80 machine language. Syntax: DEBUG Features: - Assembler, Dis-assembler - Register display and modification - Tlracing and Single step execution - Dump, search, and fill memory - Read and Write to disk files - Input and Output byte/block to port - Multiple break points - Compare two blocks of memory - Move block of memory - Saving and loading programs - Compute hemx/dec (*,/,+,-,<,>,&,|,^,~,\) - Multiple Memory Regions (BASE) Note: Contains internal HELP subcommand. $DUMPDISK Dump contents of file or disk in hex and ASCII. Function: To dump files or logical sectors in hex and ASCII. Syntax: DUMPDISK fn.ft[:fd] n[(options)] Options: PRINTn output is to printer n $EDIT System file editor, both line and context. Function: To create and maintain sequential data files for system utilities like the assembler, SCRIPT, BASIC, EXEC, etc. Syntax: EDIT fn.ft[:fd] [(opotion)] Options: NOBACKUP to not create backup file. BACKUP Do create backup file (default). Note: Contains internal HELP subcommand. $ERASE Remove a file from the disk. Function: Erase a single file or a group of files. Syntax: ERASE fn.ft[:fd] [(optipon)] Option: TYPE to display files erased NOTYPE do not display file names QUERY to question each file prior to erase NOQUERY do not question $ERRMSG Maintain the SYSTEM.ERRMSG file. Function: To maintain the SYSTEM.ERRMSG file. %99 <5 Syntax: ERRMSG [qnum] Where: num is the message number to display Note: Interactive maintenance is assumed if no num is supplied. $FILELIST List contents of file directory. Function: To list directory entries for selected or all files. Syntax: FILELIST [fn.ft][:fd] [r(options)] Options: PRINTERn Display list on printer n EXEC Create SELECTED.EXEC:S file FILE Create SELECTED.FILES:S APPEND Append to SELECTED.EXEC or .FILES FN Only list File Names FT Only list FN and File Type FD List up thru File Drive DATE List up tshru date & time ALLOC List up thru allocation FORMAT List up thru format LABEL List up thru disk label (default) SORT Sort the list (default) NOSORT Do not sort the list OWNER List selected files from all accounts HEAD Display page heading (default) NOHEtAD Do not output heading PUBLIC List public as well as private files mm/dd/yy Only include if date >= to requested * Include all information $FILT8080 Translate from Intel to Zilog assembly mnemonics. Function: To filter from Intel 8080 assembly source cuode into OASIS (Zilog) Z80 source. Syntax: FILT8080 fn[.ft[:fd]] Note: fn-etc is the name of the source and destination file, the original source will be renamed fn.BACKUP default ft is ASSEMBLE, fd is * $GETFILE Move files from other systems to OvASIS. Function: To copy files from foreign OS onto OASIS. Syntax: GETFILE filename.ext:drive (options) Where: filename is the file name ext is the extension. drive is the OASIS drive code Options: CPM the source OS is CP/M* (* CP/M is a trademark of wDigital Research) IBM the source OS is IBM System/3 etc. DRIVE=n the drive number containing the file DIR list the directory TEXT the file contains sequential delimited (CR/LF) text data. $HELP Display function, syntax and options of command. Function: xTo display a summary of all OASIS commands, or more specific information about any single command. Syntax: HELP [cmmd] Where: cmmd is the command to get help from. Note: If no cmmd is given, a summary of all commands is displayed $INITDISK Format ay new disk. Function: To erase all files, change the label, or format a disk. Syntax: INITDISK drive (option) Where: drive is the disk code (S allowed only when changing id) Options: LABEL To change id CLEAR To erase all files SIZE nn Determines # fizles WP/NOWP To change disk write protect FORMAT To write addr headers on new disk INCR nn Increment between adjacent sectors SKEW nn Increment between sectors of adjacent tracks HEAD n Number of surfaces per cylinder TRACK nnn Number of tracks per surfac{e SECTOR nn Number of sectors per track BUILD To write OASIS info on already formatted disk SPARE To add sector sparing information BOOT=d To copy boot strap loader from drive d $INITTAPE Format or tension a tape. Function: To label magnetic tape volumes| or to tension the tape. Syntax: INITTAPE [TAPEn] [(option)] Where: TAPEn is the tape number (n=1 to 4, default 1) Options: TENSION means to tension the tape (rather than label it) $INTELHEX Convert object files from Intel standard to OASIS. Function}: To translate Intel hex object files to OASIS object files. Syntax: INTELHEX pgmname Where: pgmname is the filename to be converted. Assumed filetype is .HEX Will create a file named: pgmname.OBJECT $KILL Erase a file without de-allocating the spac~e. Function: To remove file directory entries of collided files with out unallocating the disk space. Syntax: KILL fn.ft:fd $LINK Resolve external references, link object programs. Function: To create an executable load module by combin- ing object programs from several assemblies. Syntax: LINK [fn[.ft[:fd]]] [(options)] Options: FILE fn.ft is a command file (default ft=LINK) SYSTEM Create SYSTEM.fn USR Create fn.BASICUSR DRIVE=x Put output on drive x (default=S) BOOT Write output on sector 0 TYPE Display info on console (default) NOTYPE Do not display on console PRINTERn Display info on printer n NOPRINT Do not Display on printer (default) DISK[=x] Create fn.LINKMAP:x XREF Produce cross reference listing NOXREF Do not produce cross reference (default) MAP Create load map (default) NOMAP Do not produce map WORK=x SYSTEM.WORK drive (default=S) Note: Contains internal HELP subcommand. $LIST List a file to console or printer. Function: List a file to the console or printer. Syntax: LIST fn.ft[:fd] [(options)] Options: PRINTn output to printer rec1 starting rec number recn ending rec number HEAD/NOHEAD page headings FORMAT contains printer format chars INDENT nn left margin TRUNC nn line width PAGE nn first page to list TITLE xxxx page title $LOGOFF Sign off current account. Function: Logs the current user off. Writes an accounting record to SYSTEM.HISTORY, and enters the logon program. Syntax: LOGOFF $LOGON Sign on to new account. Function: To logon to another account without first logging off. Syntax: LOGON acctname $MACRO Z80 Macro assembler. Function: Translate Z80 source into machine code, produce listing, cross ref. etc. Syntax: MACRO fn[.ft[:fd]] [(options)] Options: TYPE List on console PRINTn List on printer # n DISK[=drv] List to disk fn.LISTING[:drv] OBJ[=drv] Produce fn.OBJECT[:drv] WORK=drv Work drive for xref (default =S) SYM List symbol table XREF List cross references IF List all conditionals MACRO List expanded Macros COPY List included COPY files DATA List multi-line code NOTYPE suppress all console output EXTRN Undefined symbols become externals Note: TYPE,OBJ,SYM,XREF,IF,MACRO,COPY,DATA,EXTRN may be turned off by preceding with "NO". For example: NOOBJ. $MEMTEST Quick memory tester. Function: Tests portions of memory. Syntax: MEMTEST [start,end] Where: start is starting memory addr end is ending memory addr (If no address is given, as much memory as possible will be tested.) $MOUNT Inform operating system to change disks. Function: Indicate that a new disk is mounted, and OASIS should update system tables, and read new label. Syntax: MOUNT drive | * Where: drive is the code of the disk to be mounted. Cannot be 'S' $OWNERCHG Change ownership of private files. Function: Changes the owner of a private file. Syntax: OWNERCHG fn.ft[:fd] (owner [option]) Where: owner is the new owner id Options: TYPE Display filenames NOTYPE Do not display filenames QUERY Ask prior to change NOQUERY Do not ask $PASSWORD Change password to account currently logged on to. Function: Allows user to change password on the account currently logged on to. Syntax: PASSWORD $PATCH Update a command with mfg. supplied fixes. Function: To apply an update to a command file. Syntax: PATCH fn[.ft[:fd]] Where: fn is the program name ft is the program type (default COMMAND) fd is the drive code (default S) Note: Contains internal HELP subcommand. $RECEIVE Read a file from the communications port. Function: To receive files from another OASIS computer. Includes error recovery. Syntax: RECEIVE [fn.ft]:fd (option) Where: fn.ft are the file name and type fd is the drive code Options: COMMn use COMMn device (default COMM1). Note: If fn.ft are omitted, will receive multiple files until EOT $RECOVER Restore lost or erased file to directory. Function: To restore crashed directories (ASCII files only). Syntax: RECOVER fn.ft:fd [(option)] Where: fn is the filename ft is the filetype fd is the drive code Options: nnn start looking for file at sector nnn. $RELOCATE Create object file from two command files. Function: To create a relocatable command from an absolute command. Syntax: RELOCATE abs1,abs2,newrel Where: abs1 is the name of the absolute command abs2 is the name of the same absolute command origined at an address different from abs1 newrel is the name of the relocatable command to be created. If missing, abs1 will be over- written. $RENAME Change the name or status of a file. Function: To rename a single file or a group of files. Syntax: RENAME old,new [(option)] Where: old is the old file name - all parts of fn.ft:fd must be specified. new is the new file name Options: TYPE to display old/new NOTYPE do not display WRITE/NOWRITE changes write protection DELETE/NODEL changes delete protection READ read protect QUERY to ask if ok NOQUERY do not ask if ok $REPAIR Fix crashed disk or test integrity of disk. Function: To check the format of a disk and to display any file errors (like mis-allocated, duplicates). Syntax: REPAIR fd [(option)] Where: fd is the drive code Options: FIX means to try to fix the disk $RESTORE Restores archived volumes, files, or accounts. Function: To restore an archived file, account, or volume. Syntax: RESTORE [fn.ft:]from,to [(options)] Where: fn.ft is the file descr to restore (wildcards ok) from is the disk drive code or TAPEn if from tape to is the destination drive Options: ACCOUNT restore current account NEWACC xxx restore from account xxx to current account REPLACE erase existing file prior to restore NEWFILE only restore files which do not exist OLDFILE only restore files which do exist QUERY ask prior to each file restore NOQUERY do not ask prior to each file restore TYPE display as restore progresses NOTYPE do not display VERIFY read back check output NOVERIFY do not read back check output VOLUME restore entire volume (default if no fn.ft) $RUN Runtime BASIC compiler routines. Function: To Execute BASIC language programs. Syntax: RUN progname[.type][:drv] [(option)] Where: progname is the name of the program to execute type is the filetype, (must be BASICCOM if specified) drv is the drive to look for the program Options: TRACE display statement location during execution. COMMA Exchange meaning of decimal point and comma for numeric items (European format). $RUN2 Subset version of RUN. Function: To execute compiled BASIC programs using the subset runtime package. Syntax: RUN2 progname[.type][:drv] [(option)] Where: progname is the name of the program to execute type is the filetype, (must be BASICCOM if specified) drv is the drive to look for the program Option: TRACE display statement location during execution. COMMA Exchange meaning of decimal point and comma for numeric items (European format). $SCRIPT Word processor, document writer. Function: To format a text file to the console or the printer with titles, left and right justification, etc. Syntax: SCRIPT fn[.ft[:fd]] [(option)] Options: PRINTn output to printer # n TYPE output to the console (default) FILE output to file # 2 UPPER global upper case shift WAIT pause after each page to printer CPI nn set characters per inch nn nn from - to page numbers REPEAT nn produce output nn times (default 1) WORK=fd drive code for work files (default S) $SECTOR Display allocated sectors of a file. Function: To display the allocated sectors of any file. Syntax: SECTOR fn.ft:fd $SEEK Random disk seek and read. Function: Randomly reads a sector from the specified drive and loops. Syntax: SEEK drive $SEND Write a file to the communications port. Function: Transfer file from disk to the COMM port. Use hand-shaking, VRC, and LRC. Syntax: SEND fn.ft[:fd] [(options)] Options: NOEOT means do not disconnect line at end QUERY ask prior to send for wildcard filename NOQUERY no ask prior to send (default) PUBLIC send public files too COMMn send over communication port n (default COMM1) TALK send interactive text to receiver's screen after file is sent. $SET Set or modify various system options. Function: To set system switches and options. Syntax: SET options Options: DATE mm/dd/yy ABBREV ON or OFF RDYMSG ON or OFF IMPEXEC ON or OFF VERSION ON or OFF ERRNUM ON or OFF ERRTEXT ON or OFF % <5 HISTORY ON or OFF TODAVAIL ON or OFF RTCAVAIL ON or OFF IPLASK ON or OFF QET ON or OFF DEUTSCH ON or OFF DATEFORM 1|2|3 SYNONYM [fn] [(CLEAR/STD/NOSTD)] ESCAPE nn UP nn DOWN nn LEFT nn RIGHT nn RUBOUT nn CANCEL nn $SHARE Designate which accounts have shared access to file. Function: Designates which accounts are to share a file. Syntax: SHARE fn.ft[:fd] [(TYPE)] Where: fn.ft:fd is the file to be shared. TYPE means display user on console $SHOW Display status of various system options. Function: Display system parameters. Syntax: SHOW option Options: TIME current time & date CLKFRQ time of day frequency CLOCK continuous TIME RDYMSG status (ON/OFF) ABBREV status (ON/OFF) IMPEX status (ON/OFF) ERRNUM status of error display ERRTEXT " " " " HISTORY status (ON/OFF) TODAVAIL status (ON/OFF) RTCAVAIL status (ON/OFF) IPLASK status (ON/OFF) QET status (ON/OFF) DEUTSCH status (ON/OFF) DATEFORM status SYNONYM list of synonyms DISK status of disks VERSION current version no. SERIAL OASIS serial number ESCAPE system leadin key UP keyboard up arrow DOWN keyboard down arrow LEFT keyboard left arrow RIGHT keyboard right arrow RUBOUT character delete key CANCEL line delete key $SPELLVUE Check file for spelling errors. Function: To check spelling and allow corrections to be made to a text file. Syntax: SPELLVUE or SPELLVUE fn.ft[:fd] [(option)] or SPELLVUE (option) Options: ADD All suspect words are to be automatically added to main dictionary. BAD fn Bad words dictionary contained in fn.LEXICON. CAPS Words in all capital letters are checked. D fn Primary dictionary contained in fn.LEXICON. D1 fn First alternate dictionary contained in fn.LEXICON. D2 fn Second alternate dictionary contained in fn.LEXICON. FILE File specified contains a list of text file names to be checked. HYPHEN  Hyphens/dashes are treated as word separators. LETTERS Single letter words are checked for spelling. MAGIC Text file contains Magic Wand text formatting commands. MARK All suspect words are to be automatically marked. MENU Display configuration menu. NOBAD No bad words dictionary is to be used. NOCAPS Words in all capital letters are not checked. NOHYPHEN Hyphens/dashes are not treated as word separators. NOLETTER Single letter words are not checked for spelling. NOMENU Do not display configuration menu. SCRIPT Text file contains OASIS Script text formatting commands. SPELLBIN Text file contains Spellbinder text formatting commands. WORDSTAR Text file contains Word Star text formatting commands. All options not specified are controlled by your Spellvue configuration file. $SPOOLER System printer spooler. Function: To start the printer spooler or to request status, or to change spooler switches. Syntax: SPOOLER option Options: INIT to initialize the spooler QUIT to uninitialize the spooler STATUS to get status from the spooler START to begin printing from current queue STOP to stop printing after current file SUSPEND to stop spooling and allow direct printing RESUME to continue spooling LIST to list queue summary KILL nn kill spool file CHANGE nn [queue] [copies] [HOLD|NOHOLD] change report information ABORT to cancel the current print file BACKUP n backspace 1-8 pages FORM xxx specify queue(s) to be printed PRINT nn begin printing file nn, then stop ALIGN nn do forms align, then print file nn RESTART nn pp begin printing file nn at page pp, then stop QUEUE x output report to queue x (A-Z) COPIES n assign copy count (1-8) to output reports HOLD assign hold status NOHOLD clear hold status NAME xxxxx gives name to next report Note: To activate the spooler, issue the following commands: >ATTACH PRINTER xxxx (xxx,xxx) - as normal >SPOOLER INIT $STATE Determine existence of file. Function: Determines if a file or group of files exist. Syntax: STATE [fn.ft[:fd]] [(option)] Options: TYPE to display counts (default) NOTYPE no display PUBLIC Treats public like private. $SYSGEN Permanently change SYSTEM.NUCLEUS attaches, etc. Function: To update the SYSTEM.NUCLEUS with the current state of the machine, ATTACHes, SETs, etc. Syntax: SYSGEN $TERMINAL Interactive terminal emulator. Function: Emulate an interactive time-sharing terminal. Syntax: TERMINAL [(options)] Options: COMMn communication port number (default COMM1) AUTOLF echo LF on receipt of CR HALFDUP echo all keyboard input RUB nn translate nn into RUB (7FH) ESC nn translate nn into ESC (1BH) CTL translate CTL codes to graphic NULL ignore NULLs RDRON nn Send file 1 on receipt of nn RDROFF nn Stop sending file 1 on receipt of nn PCHON nn Receive file 2 on receipt of nn PCHOFF nn Stop receiving file 2 on receipt of nn BEEHIVE emulate BEEHIVE B100 ADDS emulate ADDS 580 ADM3A emulate ADM 3A SOROC emulate SOROC IQ VDM emulate standard VDM HAZEL emulate HAZELTINE 1500 $TEXTEDIT Small system file editor. Function: Line editor to build or modify text files. Syntax: TEXTEDIT fn.ft[:fd] $VERIFY Test readability of a disk. Function: Full disk read to check for disk errors. Syntax: VERIFY drive Where: drive is the drive to be verified. 9 8@ʴ!t_^#Vz7(O<@~(L > > >~v 0@(7˯N7@=@} O@| O@* )(TY*(($ (*(0(6(< 2h> :h2h0:h˗2h&:h2h:h˟2h:h2h:hˏ2h04 @G@:h0O@"v|~xz  %*/49>CH]6 8@ʟ!__^#Vz7(O<@~(L~v 0@(7˯N7ɵ@F@} O@| O@HXEJKDCAWX][Elmawokcegi{}u6 8@ʟ!__^#Vz7(O<@~(L~v 0@(7˯N7@| 0 O@ @} O@0 awokcegi{}u6 8@ʟ!__^#Vz7(O<@~(L~v 0@(7˯N7ɵ@=@} O@| O@ awokcegi{}u6 8@ʱ!q_^#Vz7(O<@~(L > > >~v 0@(7˯N7@=@} O@| O@*YT +)(&'s}y{uw6 8@ʟ!__^#Vz7(O<@~(L~v 0@(7˯N7ɷ~@@|0`O@}O@~~~~~ ~~~~~~~awokgiceu{}9 8@ʴ!t_^#Vz7(O<@~(L > > >~v 0@(7˯N7@=@} O@| O@* )(&'QWERTY(($ (*(0(6(< 2> :20:ˇ2&:2:ˏ2:2:˗204 :@/0j@k@@@/0l@m@@@/0^@q@!v|~xz#(-27<AFKP\6 8@!v_^#Vz7(O<@~(L~v &0@( nn 77˯N7ɶHHJJKCAHJ@Y@} O@| O@!(###~˿N7PQRAB CDRx~z|6 8@ʟ!__^#Vz7(O<@~(L~v 0@(7˯N7ɽ@X@} O@@Y@| O@HKJIDCAawokcegi{}u6 8@ʟ!__^#Vz7(O<@~(L~v 0@(7˯N7ɽ@X@} O@@Y@| O@HKIDCAawokcegi{}u6 8@ʢ!b_^#Vz7(O<@~(L~v 0@(7˯N7b}yfto@[@}ͼ;@|ͼH@< 8 / 0 @0O@~vn f [[( O77!5˯(##>ON#~STUVWPPQQRCA >B > C >D >7 dzrn~fhjlx9 8@ʴ!t_^#Vz7(O<@~(L > > >~v 0@(7˯N7@=@} O@| O@*YT +)(&'EQRW(( (%(+(1(7 (L:r2r0:r˗2r&:r2r:r˟2r:r2r:rˏ2r@G@:rO@:rˏ˗˟2r7> 0#v|~xz"',16;@EJOZcl9 8@!h_^#Vz7(O<@~(L >~v 0@(7˯N7ɨ kK@Y@} O@| O@(*(0 (6(<(B(H(N(T 2>@> :2F:˧2^:22:˯2J:2:ˏ26:2 :ˇ2"04 @0@:@O@@:(@-jxtln~pr !&+05:?DINSX]by6 8@ʟ!__^#Vz7(O<@~(L~v 0@(7˯N7ɵ@f@| O@} O@H JKDCALM@P43baHJawokgi{}W 8@F9!_^#Vz7(O<@~(L@=@} O@| O@ > > > >~v &0@( n­n 77˯N7  * )(&'QWERty("(( (.(4(:(@ 2> :20:˗2&:2:˟2:2:ˏ2~(@ 04 @G@:0O@*(!(###~ @O@7ERQWYT$?EJOTY^chmrw|W 8@F9,!_^#Vz7(O<@~(L@=@} O@| O@f( 07 > > > >~v &0@( n¾n 77˯N7  # '*0 &'QWERty*2(*(0 (6(<(B(H(N(T 2> :2D:˗2::20:˟2&:˧2:2:2:ˏ2@G@: O@ *(!(###~7 @O@7ERQWYT'dU[`ejoty~W 8@F9,!_^#Vz7(O<@~(L@=@} O@| O@f( 07 > > > >~v &0@( nn 77˯N7  # '*0 &'QWERty*2(,(2 (8(>(D(R(`(f 2> :2T:˗2J:2@:˟26@)@:˧2$@(@:2:2:ˏ2@G@: O@*(!(###~7 @O@7ERQWYT'dW]bglqv{6 8@!_^#Vz7(O<@~(L > >  > > > ~ >~v 0@(7˯N7@| O@} O@6 8@ʟ!__^#Vz7(O<@~(L~v 0@(7˯{@Y@} O@| O@HLJIDCAHA >B > C >D >E >CN7M[acegikouw{}I@HGFEGME76 JIEHFE676JE5E66[6IHH"HFFFEE=H^EEZE8E#JH HIGJHH*HFEIHHHFEIHHFEJH0HGFE IHG~GEK'# S $ 1iH?wFd+ "JE[DBB4BAAAA>A??u?g?>9>=d=R=<<;;^;.;;:J98 865544{4]4B4DDDD}DBBABAA>>=;~;::K5G5l4_OQQ$Q=R`R?SESuSSST*TQOl%$"? R.#R+$#B X q 9 S%%:%"% ,,-*(ScP5++((')!&+VQrVV:JWWW%%j2XXY Y(YQOKgKJIGFEaE?E=<>9%9a89 8@ʴ!t_^#Vz7(O<@~(L > > >~v 0@(7˯N7@=@} O@| O@*yt :ERQW)(&'(($ (*(0(6(< 2s> :s2s2:s˗2s(:s2s:s˟2s:s2s :sˏ2s@G@:sO:tO@0$v|~xz %*/49>CHMRWei=ERASE ver 5.5 23DEC80 Copyright by Timothy S. WilliamsAbk7%R0!D>a~ ʗ(ʗ_~ ʜ(ʜ_~ (d(()#~+ ( /0 Ò~Gڍ2~ (<(†~ (.T(QN¡#~O¡#~++T( Q¡>N220~2:ʞ:(P$>2:G:(P:(<282*| !-> a: *!.>a!:G~?_S ~2 : !#:G![  >2 S ~#?(*@( #(~$(A[ ~0:#~ +:(:N(6Q.Q::GOY( N :(^#V*"*#",: : =2 ©: =2 !::Q"!~:(^#V*"*#",#Q.Q:GO:!Q.Q::GO~ (O#~*(?(@(# 2#2>?#!>a!!!!! Protected , OK to erase (Y/N)? erased q '0CHMVYcosvz} $-25<CLs|@Y_dgjpux #17<?DQUY^rz} <SHOW ver 5.6 27DEC82 Copyright by Timothy S. WilliamsAbk7%R0!D>aP~>2"~*ʄ!d!>a: a ;y29:(A0:N#IP~ o&#> 0͹   :(3      ; B0 nv ̅ ͓ͩ ͱ ͹     Q͘ 0v( ~#O ( (n NOSTD):(0~Eͺ0~_:9=291 ;y290Ny (#XPf(*0F>:#F>:#F> 0F>/#F>/#F> zPf %$> P~GO8888> o&"`~GO8888> _~& 8o o--0 o"dSb'++ &[`[b::&! 'V>,> *d+ 'fV> *`>,> *b:d 8#l > ~ #+͘ Pn;&>-(n !4͘ 0!~ g ,_ ,> ?͘ 0~o&> z2O%+( :Q͘ Pn&>,> nf> xZ0~ x0~0!> a`͘ Pn &> x.PN X^#VxhN@!6 x >*2x:F#>:F>  ƒx0~0!> a*~2N*  <[2gP|ʲ͇ò!P6 DE>H{+{#B͈> g~( (nf ͇ PF !~ ^VR8͇:N* 0~ 2O~2PP :N* :OO:PO߯<=O! ^#V#h< 8o&=2Z >*~(0~o& 8nf{nf+{nf+{!:Z !9nf :Zh*{{nfNFB͈nf @=h~ ## ##~ ( 88>. N ~ ( 88>.# (>> g:N* >#U!x0~0!> aP~T! )w .0o(  ~!4~: 60+61nfDEnf+ DE^VnfR9!: !k 2T*~ (*(G0!>a2F͛:Tɯ2F:F<2FG(:ě2F͛:T:FG 2U:FG:12W! a U!N#":(5ca :lS(9D(2}T(+t($A(R(a(r(F³ !N#:????I :'G:I :x???MI ':''G:I :?I Pf (!&6,#6 a :?<2G>2H9!~????_~gn'^':w(: D_:o(&"I5 Dn~g5 -~????o3 -n3 Na o& 0>0!!~8z(R0 #:G=(2G:H<2H_!:FG f "MSK5 c*IR8&dR8 d&*K &*K ' *Kd'&5 ma *M5 a !"O:o:???o&:G:? 2T.a :FGnf[KRsr:FG! *K"! &R8>bk>, >6>:S=2S1 ;y2S͘ ON͘ OFF O˹ = 0~ 0^P~Pv0VP^ Pf P~ P~@@ 0,> E>Hy( 0"'!$( !OO N#>@J >AJ >BJ >CJ >D J >EJ >FJ  ;y2;0~(n v>ÈP+^V! [~#^nf!2_~ #v <!6 ~ ~#> ^˻!6 ͡#+*!( +! `> ^#V!z( ^#V+!~7( !8d7+#7>-08:0OxGGx(~ #~ #-~ ( #!~!6 ~˿~#(~ ~#> ~( ^˻!6 ͡#:=2 '1 ;y2;:( :=2!6"*2~ ( *(G82 ;y2\8> 2>2:G~2~?o&" :=2ʻ>2*#"!:G ":=2(* "~((0~O~( ~(:w! ~(#> bk]X^V!:G !~ ###~ #N##! "X#N# "~# ~˯VX#~˯EX#~˯RX#~ X#~ (#~ (*~o&#~#~#~> !8 # *BDM*7%R0!D>a "! X(K\89 *> !:! "o&>-͡! AL̄WHTIMeDATeSERIA_DATEFOR͓PRIVLEֺCLOCCLKFRMS3SLICEUSERtMEMORBAN˙DISLERRNU ERRTEX RDYMS ABBREֹ IMPEXE HISTOR RTCAVAI TODAVAI IPLAS QE; DEUTSC/ ESCAPũ Uб DOWι LEF RIGH RUBOU CANCE SYNONY VERSIONAME = VERSIOPORT = SYNONY Logon March April May June July August September October November December January February Sunday Monday Tuesday Wednesday Thursday Friday Saturday 0000Port Username Log-Date Log-Time Port Bank MEMLO MEMMX MEMHI SP--- PC--- Size Routine Username FIRMWARE NUCLEUS Bank #0/nnK common selected. NUCLEUS xxxxH xxxxH ddddd Region Low High Size X(N) Label: ", Backup to disk "Backup to tape "Archived to disk "Archived to tape "Backup from disk "Backup from tape "Restored from disk "Restored from tape "Archived from disk "" on MM/DD/YY HH:SS, WPCapacity: K bytes (), Available: K bytes (%), Largest area: files in use (out of K bytes mis-allocatedK bytes, NULSOHSTXETXEOTENQACKBELBS HT LF VT FF CR SO SI DLEDC1DC2DC3DC4NAKSYNETBCANEM SUBESCFS GS RS US DEL, filenameSYNONYM System User Shortest Command Synonym Form -------- -------- -------- 0000COMMAND Module Version Date Priv Serial FIRMWARE f -39?EKQW]f.OYbe wMs) G [ l  1 ; C    w   - 9 H 8;%,k` )5BE!(`}10<FNW47]FYeuxm7F_ )4:xzv )1;DG}Qpv{~     $ 9 o  >    ? E M h l u y    ( ? T \ b f r  &*\ ccC  # 6 E 6<BHNTZL " ,  "/48@CGNTY]bi:FTZo6T/`y]NKtqc[Xya^VS4 u ] . + # \ Q 8 4 % ! d | r _ S K < 0 E.j[qniLnf-xm{ti ^E7k?<STOP ver 5.5 18FEB81 Copyright by Timothy S. WilliamsAP~02:2*|B}B= 9!9Y2T_^#V"eU:Th:UOK*eU:ThU!](*e_!:TiVO!\`:(~<( D66 P  UWT]6P^#V##!>aZ!G> aZ!F> aZ!H> aDIRW^h|>DEBUG ver 5.5A 03JUN81 Copyright by Timothy S. WilliamsAx20~9 $P~ >N(>2n8n( > F( nf 8[( ! > a07^VR R8!D>a!> L~ (1RDEBUG OVERLAY1Can't load DEBUG from CSI command OASIS Z80 Debugger version To exit DEBUG, use ESC-Q; to re-enter, use ESC-D. Type "HELP" to list command syntax. Bkx>UNLOAD ver 5.5 23DEC80 Copyright by Timothy S. WilliamsAP~ (!N> a2~($ +~ $!9Y~( (!2 # Z!W2> anf ":~ ( ^#V"<[:R">T] ~( ( *>|[:s3r4*<[:s#rbk##s#rZ!>a!>aQZ_g?MEMTEST ver 5.5 23DEC80 Copyright by Timothy S. WilliamsA!?."!}(.$"7.~ ʱ*|("!*|]!>aO|͚}͚>Ḧ́ͣ 80̈́7P*RI[*R[7.!R~S͊-+͊B 8 >B 8 ~O/wFq #z  ͊x1*͊-+͊ѯGo*#" *}w#| *}Ĵ#| _ ͊{~>(̈́O>00>1̈́>)̈́>,̈́Ï? Part I - Non Destructive Test of System Regions a. NUCLEUS: b. MEMTEST: c. Protected (Drivers etc.): (Note: may get error when end of memory reached) Part II - Destructive Test of User Regions 9CHKUam{#JNRX^dgq~>CHANGE ver 5.5 16FEB81 Copyright by Timothy S. WilliamsAbk7%R0!D>a0~(( !>a~((8 (-~((* (G0!>a2~((!>a!>a~ ( 08:0!>a!> aS{(w~ *!~~~V^!:G !~ ###~ #^!  @#^#~ 5#~A /~w:w^V:G! !> a!> a!> a COMMAND Al "(<_blpATERMINAL ver 5.6B 26MAY83 Copyright by Timothy S. WilliamsAbk7%R0!D>a2> 2I~ ](_ ~ ]!cdX u~18 50 2R#T]*}2BT]*}2D>2CT]*}2ET]*}2I>2HT]*}2JT]*}2A!6!6!6!6>>> >>>27>24>25:RG:f "\S f "a^! 9:C(M6 :H(TM6 (C( (( (@(!(! ! ! !> a:R12NJ!&> a7%"Q : >:4:702!6v>F(>H2n>N(>Y2f>N(>Y2^>N(>Y2:5>N(>Y2!6 !0:C(s:Do&<(:Eo&<(M~(J( < o&)))Z+#~ (#>.~ (#>:~G!6 !0:H(s:Io&<(:Jo&<(M~(J( < o&)))Z+#~ (#>.~ (#>:~GK1870O 1ʽ23 4ʙ56:H( 2H ͚ 8ʅ ¹>2H:I<…>2HÅ:C( !2C ͚ 8ʅ! V(7 >2C:D<…>2CÅ (@(  (+ ʅ˯F(H(F:6˷26 H:626 () ʅ˯Y(N N:6˯26 Y:626  () ʅ˯Y(N N:6˧26 Y:626( () ʅ˯Y(N N:6˟26 Y:6262 ( ʅ˯Y( N O25O>; ʅ ʅ0870O27Å@28Q : 280~@29  p { O:5(͆ :6o( y  ͆  :_ :6g· :7ʷ j<ʷ÷ ::( (y· >2: 2:yHʷ Aʷ  Bʷ Cʷ Dʷ  Eʷ F(IJʷ Kʷ Wʷ Xʷ ]ʷ [ʷ lʷ mʷ bʷ cʷ >2: y 2=>2: y 2>2:m :>Om :=Om [;::ʾy (3(+(3(: (I(< (K (( 8A(=6>>2: z(#O zP8 {( {8S;÷ ypG> WyWy_2:S;m Jm Km ::1ʉʗyʷ  ʷ  ʷ ) ʷ O÷ >2: 2:y&ʷ 'ʷ )ʷ (ʷ +ʷ  *ʷ Tʷ Yʷ "ʷ #ʷ = >2: >2:y 2= 2:y 2>m :>Om :=Om ::((y· >2: y 2=>2: y 2>2:m :=Om :>Om ::( ʂ ʗ y~ · ÷ >2: 2:yʷ  ʷ (; ʷ ʷ ʷ ʷ ʷ ʷ ʷ ʷ >2: y``y 2=>2: y2>2:m :=Om :>Om :Hw :J >2Hw yw w w  >2H:Jw w :J Q*q#"y w 6[Rw ͆ *"~(#( !2Hù> ͆  w ů!+q#wy w !#(!ù2:H :I >2H:C(:D >2C :E >2Cy 8 y :6_ :6g(^m m :7ʺ y 0m m y :6o  m :(*~#"O¬ 2:: E( ͑ (:C B*F| !"F"(2C!>Oì N#y 6 #6+ !"F"Fì :8( :9O ˯N ͑ O:B :A ͆ :6w· y  :C(! I:H:J<3 *+~ (#6 #6*"~(#(!ù> !2H!~(!+6 !#2!!>a!>a^#V+*\:RGS*\:RGV*\:RGY*a^II: >bk6 !~ (I.(# !d7}2! # ~: #F2>2~$(I (7~$( I (U #~$( I (U #~ .:7A[8Aɿ0:80("*y K:<2#"~#">22!~ȹ #"~ #">2+">2ɯ# # *# # >2[":G #"_ ͚ h>2 h!!^ =~ 8#F^:O 6#!^ ~ #F^:O 6#!^6#6#6 #"">2E!OE yw#96#x>26 #""u͚ >2 !9!~(!6_!! 9! G# !6#x=w+_:G_:AFK #',/3;BIPW^elsz     # & * 2 9 D K R Y ` g n u x }      " 1 4 D I Q ^ b e p t x       $ ' . 5 8 ; C F N e j m p y |  0 4 ? G J P S r u y }    " 1 6 d k o s z   )<I[^cfkns- /7jpv} #(1<LOAD ver 5.5 28JAN81 Copyright by Timothy S. WilliamsAbk7%R0!D>aP~ (!N> ar~(\ c~ (((\~ ((\/j2q~ \:q( q!Uq!( :q< U 7:?U*7%R0!D>a!r!] !zP!9Y~(/ (+ #Z!X>a  Z!Y>a7%%!0 !q[^Vutu3t4 + +0 nf0 }|Z^VutRDMP6~(0 ^VR8 |( DMbk>i~<wȯ!> a!>a!>a!>afilenameLOADFILESYSTEM "?hqv?Qs<EDIT ver 5.6 27DEC82 Copyright by Timothy S. WilliamsA00 25{5:5(o0{5!9:5 D:;6U( L I:Q6–(* ;x=25!:6 EO:5y > w 8(1O#:5(06 Z (V( (<(>(*^NöÜx+~  xʜx x  :9!96 !:9~ #"6~?(08:0 :>6".~w( ˯-8w~ #"6:9 ~ '.!"6,!~,.O9# (  ^#V*6 >8;([6ZUP 1 DOWN 1 AGAIN TABSET 8%HELP A NEXT ,UP &BOTTOM TYPE FILE  SAVE LOCATE ZONE (UNNUMBERHTAB X (Y (Z (VERIFY v'WRAPMODE'FIND RENUMBER PAGE TOP %QUIT g ? V INPUT REPLACE f#DELETE MODIFY CASE 'COLUMN COMBINE CSI %TRUNCATE%NAME LINEMODE_PROMPT CHANGE }DUP zLIST DOWN ,GET PUTD =NUMBER PUT 7ERROR SKIP #SPLIT P$*6~ 1.O:! >> 0*6~ 1.͂+!?>+"6d&*6~ ͂+:5(O:;6OZ25~˯M(U(L(A(B(C( (O.2;625#͂+Z*6~ ( ? ?ZO!?!"E6"G6"I6*6~͎+w.O '.?O*66#~ @.(#7#~ ( (##~ ( #"6 (%+6."E6*6~ (+"G6*6~ (+"I6!6~($# +6 #~!7~(# ~'.+6!7~(#'.:6 *G6R6.*I6R6.*6~ 1.͂+29*6"6?R]*G6"K6*I6"M6*6~ :9̾(*6"6Z:9ˇ29::5(381~ ] ( ( 8*5~((0#6 (( #~ ( 4[M6SM6z SM6>29!7~(*K6+"K6| :9G(~ ͚,Ͷ**6"6*E6+"E6|ʪEZ*6> "6Ö ;x 8P   {z W0 ;{*66 >C26 0 0O~ 1.:>6c.*6?R S6*6~<(> ~<( +6 ͂+Ͷ*Z;(-~ @.P͂+7B*5!?>5RDM7R+xy!##F7!+++ÞEDIT COMMAND 07# N#F#5[58!9{5Z*6~ (W)6.z :56.d ͂+*6?B C6z(* *66"5Z\**6~-Ͷ*Z*6~ ( 0ڈ:҈+0!*6~ 1.͂+*6"6~ ;(-z( > Ͷ*Z:>6c.*6~ !( +6.|6."K6*6?~ |0;(ZR 0;(Z͂+:*6;-!K65 Ͷ*Z:Q6Z*6+0!} <26*6~# ʚ( (2Q61.0 - Z:5( 525- 2866!6*6~ ( 0T.:6(56!6] 0z. 6!66(0z.6!6 (6!66!96 -!?~(6#-> 6!-͂+:6G266!66 *6~0 f( !Z!ZF(![6`*6~ ʘ ?ʦ +~ ;.͂+P^>!:*6~ !?"6!:~ (# "6*6~(> [6~ ;(0Z:>6(  "6Ͷ*Z#(> :!^>P ^> Z>25Ϳ :>6(c.5!56 >25*6~-ڤ 5!6*65~$( 08':8-8#~.(:(g ͌ >.w T.!556 5#~$(-8~$( 08:8-8#~ ͌ >:w.( :(( #~-G25( #~ ( +$(-0:5 :5h.5!5:525>255!"5!"5*6~-8#~ ( #~ ("6~ ʓ 08:0h+|6."5~ (v &#:R >"5S5O#~ (R #~08:0h+|6."5~ (1 1.#*#(+OS5:R >"5#~ ( #͂+5> m.*5|(5!:"r.*5+"5|(15!:"r.[5O~ (( ( ##;-*5|(+"5|( 5!:"(5!Ͷ*Z[5O!:~ (( ( ## X  ;AZ1AGAIN BOTTOM CASE U|L|M|A|B CHANGE /str1/str2[/linecnt [occurcnt [start]]] COLUMN COMBINE CSI command DELETE [/str/|count] DOWN [count|/str/] DUP count ERROR [count] {macro only} FILE [fn[.ft[:fd]]] FIND statement GET [file] [[/frstr/|frct] [/tostr/|toct]] HELP HTAB [char [ON|OFF]] INPUT statement LINEMODE [ON|OFF] LIST [count] LOCATE [/str/] MODIFY [count] NAME [fn[.ft[:fd]]] NEXT [count] NUMBER [start [incr]] PAGE PROMPT [number] PUT [file] count|/tostr/ PUTD [file] count|/tostr/ QUIT [number|command] RENUMBER [start [incr]] REPLACE statement SAVE [fn[.ft[:fd]]] SKIP [[-]nn] {macro only} SPLIT /str/ TABSET [number [...]] TOP TRUNCATE [number] TYPE [count] UNNUMBER UP [count|/str/] VERIFY [[number] [ON|OFF]] WRAPMODE [ON|OFF] X [?|statement|count] Y [?|statement|count] Z [?|statement|count] ZONE [number] ? *6~ B͂+::5 8>":5>"o&6 #6O#:5(6N6F#6F#6 :Z08.:0*+6.}6.6.25*6~ Z͂*825͂+Z25#~ (,("6گ25*6~ (## "6:>6c.͂+:*6;-Z͂+25I:76(I:5(u0:5&I25> !5yD :++G=Ow#= :>6(}*6~ ++> ##"6L+:5¦"A6*6> !(L+"C6*A6K<6 "6R8[A6R<| .;(A"6*6'R0*6ͼ+25:5A(>25I! ::>6(0((O:5y > EA  O :53AC M:5 Fy (*(/(-(.>L25*> L>L>25 q#>L:5&.(\:5Bª:5(((R(y˯M >25˩by˯E >25y\('""ab{b˩b>25by\(by 3 3˯R¦O>:5(l(,(0y'("(;( a8S{0O˩K>25D>>y' 7y"yA8*[8a8"{0:;6M(˩:;6M( U( F q:5 #:5 ;x :+~ ( (R(+~6 #w#6 5+~ ( ( > 25w:76^~@Oq :R+~ ʡ ~ 0  :5B L:5(<((($ 6~M>25~E>(>~R>(>x(~\>x>25:5(('((~'( ">25>25:5A~;25~"~'6 [5! ::>6(~ (# (  ((0xQG B :Rw#[5:5 + :5 q#06 I: ::>6 :! ::5( A:5( ͚,25;-*6~ ͂+O:>6(NFZ͂*J.2>6 !"5͂+Z25:50>25!?~( (E (AL+8'B0 R8( > "6.;(2>6S5Ͷ*Z2>6Z*6~ (W)6.z :5d 6.*6~T ͂+:5>25*6?B 0*6~ ;(|0Ͷ*z(E *6> "625Z*6~ ʙ?ʱ͎+w.G#"6~ ((#T] ( (1.6 *6~# (  ~ '.͂+P>*6+*6~ !?"6*6~( > ~ d 0Z:5Ox(,~ (##  ( 8[5(ܸ(0#[6 "6Ͷ*Z(~  ( (#> # (( ~ ([6"6Ͷ*Z!>~ E.[6P*6Ö>Z![6 (+6."6͂+*6~ ;(A?RʗI2O6:;6L ˩I:*6~ !:T>2P6:5hx2P6:5hh~ ʿ 8 ## 5(Ĺ(0ͣ+E ʳ ""˯BF8QʿI_DREU,LE~ h# 0ͻͻ:P6h+~ 0:P6h+~ 0h~ h#~+w# ͐Th~ h# 0ͻͻhͣ+EW~ h# 0~hͣ+EO h +:P6(+~#~+w# 0͐T~q#O w>2:6T͚,Ͷ*×Ͷ*×Ͷ*A(͐I:O6GI~ _ͣ+EO h :P6(+~ 0~ ܐq>2:6T~a"{"ˮN"~A"["::6(2:6~ (#O w^x= *6+"6|Z> *6"6*6~ 2͂+!6.!6::6GOZ~ O#6!6T.͂+6!6Z6*6`~:( . #6`~.(/: #~ -G#~ ( (+/26~ #(7~ .:* #~ .: (-bk6 ~$( (.(:(-0 ( 0:?w~ .: +(7[6L+Y."6|Y.'BY.͂+ >L+! :P:!:60 *6B8*6dB8 *6B8*6!?"6~(*L+K6B( 0> : : ̶*Ě,Z++> ##"6: : (;-Z0;(A?*6Rʻ-Ͷ*Z*<6"5"5*6~ (4+6."5|6.'R6.*6~ (+"56.|6.'R6.!?~( > bk))[5[5R8 0;(A͂+!?"6*6~ !?"6Z:!:60*5 B8 dB8 B8 > *6~ ͚,> *6"6*5K5 "5͂+!?"6*6~ !?"62>6Z08':0#:~08:0#~ ( #~ ͚,> *6"6*6~ 1.͂+ ;i&[6> *6~ ͂+*<6:> :Z+6.R6.|6."<6͂+Z25>25Ϳ !5~ 6*6~-8~ ( (##~ ("6*6?B  #"6*6~ |0;(Z*6~ ( W)6.{6.S5S5͂+*6"5!955> *6~(D5#( ! ( ! (! `5!5Z> *6"6~( *5+"5| 5!0 !A9:5G *6++> ##"6*5"6*5\**6~ 1. >Z:5(5*6~ +8}6*<6"5"5*6~ (4+"56.|6.'R6.*6~ (+"56.|6.'R6.:>6".!?[5~(K5 'BY. > ͂+:96O!?Zbk60*5 B8 dB8 B8 > *5K5 "5!?K6B( > S6!?"62:*6~ !?[6"6z> :~ ( ( ͠! ~ ::(͚,*6> "6s!!(G #Rʭ"Tʈ"E("('(O~ (y ͠!L ͠!S ͠!E ͠!08:Ұ!>2:L+"9*5":?("L+K9B*:(K5 ":> *:͠!, ͠!͠!H°!͠!E°!͠!N ͠!*"͠!E°!͠!Mʷ!S(+T°!͠!U*"͠!R*"͠!N*"͠!*"͠!T*"͠!O*"͠!R*"͠!E*"͠!*"͠!O°!͠!T(!S*"͠!U*"͠!B*"͠!*"͠!O*"͠!*"*6~ |0;(Z?R 0;(Z*6~ (## :>6c."6͂+:*6͚,Z>25:Q6Z26*6~ ($- O#"6+} &R ST6Z~&+ +#"T6+Z~ '.͎+w.O#6~ ( (##:6'.~# ( 1.:>6c.͂+*6?R( ~< ;(-;(û-::5(381~ /% ( ( 8*5~((0#~ (C6 ( #> ~ (#~# (++6 ͚,Ͷ**6> "6Ͷ*Zd ;(Z*6~ (_Y6!X66+6.|6.6.M!X6>_q*6~ (1.!X6~#( 6.6.O[5!X6͂+Z͂+:K5 (o&> > :Z*6~ 1.͂+!?"6û-*6~ ͂+:*5> :Z+6.|6.|( 6. ;h&"5͂+Z*6~ Q?O*6~ (? Q?Z08S:0O+0!*6~ 1.͂+*6?B ;(0Z++> ##"6z ?R(Ͷ*Z͎+w.OQ?*6G#"6~ ((#~6 # ( 1.*6~ ( # ~ '.͂+*6?Rn&*6++> ##"6?Rn&:5Ox0*~# (  ( 8[5(ڸ(0[6 Ͷ*Z( ~ ( ~ &## ھ( ~ (*6~ .͂+:>O:5(>N>F> *?6> :Z͂*825*6~ (+6.|(!|6.R6."?6͂+Z*6~ O:5F(NZ͂*O:>6c.y25Z ; < =26*6~ (0,.:8? ZZST6SR6 ^.>2Q6SV6~ (+"V6E·(:*T6~&( w"T60"T6#(> 026*T6~#"T6 *R6"T6*V6+"V6| 2Q6Z:Q6( :6 2Q67G26*T6~ (#~# (& #+"T6*6~ ͂+:*5> :Z+6.|6.|( !:>6(!bkB6. B0:>6c.S5͂+Z25[6*( (08:0+͎+w.O#"6~ ((#T] ( #~ ( 1.6 "K6*6~ ( # ~ '.*6~!*> ~!*~ F:5Ox0*~# (k  ( 8[5(ڸ(0[6 *K6"6>25( ~ (~ (## Ѿ( ~ (#)*6~( > z [6~ S5*6~˯O (#~˯N(F #~˯F #~ ( ("6y7:5I*6:>6( ~0  #~#O ( ( (:?68y 8:?68 [5(Ÿ(0[6 7!*  0:?L+,( S6!508 :0w#6 5h+!0?:)DM)) O P >*60?:A?[a?{((O:5y > >"6:!:6 6 #6 *6B8 dB8 B8*6:!: :~ 60#*5M:!:25~ (# 8Lx=8>25:5d0:5:>6(!:~0 6 #::>6!:> 60#  x0*5~( (0# ,> !:!B*6> !BR(0 "[6!:DM*6T] ~ S5*5[5R0 R800;(A"5!R`i>+!BDM ,> !:!B*5[5R8 0;(AR80"5*6~ !:>> "6~(>+x/Gy/O[6!:0Z|0Z$A[?˯A[?! (! (,`6!6Z!>a!!! !!!".S.N.I.D.?/://5J/0l/+~/&/!//// 0!0E0W0Renumber Lines Out of Sequence: Not while LINEMODE is OFFInvalid command syntaxUnrecognized commandToo many parametersInvalid numericSpace required following commandRequired parameter missingNo prior string command in effectMust be ON or OFFMust be U, L or MInvalid filenameLine number not in range 1-9999 No prior macro in effectNot while LINEMODE is ONNo local PUT or PUTD in effectFile not foundEnd of file before requested recordInvalid delimiter: NEW FILE: Truncated: EDIT: INPUT: EOF: TOF: Not Found BACKUP file is protectedCan't save a BACKUP fileAvailable Memory Now Full: No Room: End of Memory Reached: @bk7%R0!D>ax2~-.6~-.6 (-0 0.:.~ (\((-G#~+ x*(./ .26 ~ (0(- ~ ("B( T]O B 26!>aRo&#5!"5> 2 ;2 <2 =2 >2>2?2Q?2?2?!`>w+6 +6F7%"50"56(!7 TV.n(`!> a6<(G:(!7 V.n(8֯!7 V.n($>6G: >26Z0!?6"5266 ?!6!@K5B 8+> ##6"5++##"6&^#V+{( :6G !?>+6"50Ͷ*6!!?"64!6]d44]34]\44]ʲ3 5])45]945]94!5]94)5] 45]315]395]3A5]3I5]34!6] >U2;625!5Ã4>M2;6!Q5Ã4 ;h&"5!b5>27625>A25Ã4>276>U2;6:?03:32>6!"53>276>C252>6!H"5>25!f5Z>276!H"5!v5J>27625>M2;6>P25 ;xo&"5!5Ã4>2763>296>B252762>6!"5!"5!Q5[5:76(*25:5P 25>U2;6;( ( (>L2;6:>6A>25ÝBASIC ASSEMBLESYNONYM LINK SYSTEM DEVNAMESACCOUNT ASMSEGFORTRAN PASCAL C CINCLUDECOBOL COPY MACRO MACLIB EXEC  $).38=BGLQ    $(,048<@  !%)-15 !)19AIQSYSTEM WORKA 8 M  $).38=BGLQ    $(,048<@  !%)-15BACKUP 67&6o (    i r {  ? B $K 1<C_inzxW] -06ouz  &.26?G[fm(05CINp'!!!!!! """("1"{"""""""""""""""""""""""""## #######(#-#6#;#@#E#J#O#R#W#\#a#d#$&'W'o(q)t)))Z*8+d+,<-#.(.-.2.7.<.A.F.K.P.U.Z._.d.i.n.s.x.}.q22223 333!3$3.313;3>3H3K3U3X3b3h3o3r3|3333333333333333 4%454W4Z4b44566'$D{|/:E,*xH= m  P tX|Gf2#<7S T[E  c`{*iq5C( E T e  !w#####$"$7$N$-%0%6%%%P%&%@&w&&E'''((o&3%$$#t# [e a =(E((((^)U)R";";dDQ B'&*%%YQf u'o)g('K&%Q%#  c?('R R))''&^&&%%%%$# 22h ! R5x0&W$`9ixZ %#!i]Pl%$$d$#T9 Y G  m--c-f--- `)&v$T$YG0()&Z&%w%$#] e N~;)))''' &&%%%^%Z%U% ,&&pkfW  ul )j* K S(K) ($#  w)&Z$~ e =,V-o#^-r&#K~h { b p--^- --.?111+1.1@1G1L1i1r111 252I2d22244Q+++H++****)})])(&(''w':'&&&T&/&&%%m%9%#####!k! s W kP?) E `sv ] J = H-ux~(32222i2110&&&e&%$z#J"!n!S!! q$.B7 F22--y-,,,*s*^*)&&&&b&%'%%$g#!!!x!q!W!K B 4  ~{nvq_'n1N}sS?Q@- M : / YVr44l4I443urH322n2v-Q--,,*(((X(# (((#(#h %  / 1\M4dI$*Y)a+M+8,3,,21V-,`Y%t&*)UQS$ n W 5 1n  4o4_4<4,4433g4 D"K!C!! y:b"G! }fc6}dH5#TJG~4T42443 ,&%fF > 1 .       8  N  v Z H  0  - @9 v2a28 1N s k T 44D4333PEm<mg}kN- - 2{2+#) L1 ' 1~zgo!;0+2$r$_$^$@2,22FO9t"f"\"V"G">"6"!u!^@A741&;&&&--D-,,h,\,O,,,+++++))r(''%%%%$#! 30qS63& S  z & = * >,4r444a,G,*G)))($# o*' q {\+s*?43Ax4"44)O))'$) /o43(';tB,*''<6P11(1(1(41, +**'%%$Z0A3%z%b%G%D%371"12 2T221v11+`  , (((((((u(I(H$4$$#(M('$+*''((j(_(>START ver 5.6A 11APR83 Copyright by Timothy S. WilliamsAbk7%R0!D>a!~$A8[\0> !a ##! ˾˶! 6 o M !7%R0!D>aT]6T]6 o ! "~ ( #~ ( ( #~ #(~ (*}=8 0w~ #(~ ʧ ʧ#C 6 ~#I(O( ( (  ~  (, #L(AP(pF(1B(%E(HC(W~ (,( (w#s Dw w#~+F(s w{80 > ݶw>> ç6P!9Y~$[Z A0Z :Z *|x }x = n 2 _^#VS  : h! Nʂ ![  : h! ~‚ #~O‚ #~‚ #~‚ : o,&w ~ !s ,! 2 2 É(Z ~ ʉ,(!s ,! 2 2 ~ ʉ, 2 ~ ʉLʷFC(>P(OW(fE(fBZ D2 ! ~Z #n#f#R {2 >?2 >2 #~+O( E>>G: 2 > { > <2 #~+F({2 {2 2 2 #!R8'!dR8! R8{ &}@d&} &}#~A8[8*!~ < ?#~o& '~5   ~(#~(2 ~: ! : ! W~2 ! P>_~< >W(w#* }! : i*  : h: ~6{ !6 w| d 6 O *  !O  : iPi: _)))))!  : <2 : 2 ! ˾: O: (:666*m " [ R" " i_))))) ! : * "* !i: V͌ 1P06 6 ~w @w<6~w6668696@6A6B 6C6D6E6F6G6H!J9T]6 6?MW~#fo8M ^#V8=~ (MW ~#fo8 =M_T]6~DݶE(+ >( Wq 07%8u=t> P~ O^#V#S #x2 ! h ! ]( +  ~# ( (>  RDM* ! : iW * }T]: !  ie* ! w: i*  : h* \! w: io&# * ! : io&#  ! (! 2 ~2 nf" * ! : iP*  : i i0@ * : i* ! : i7 !6 6* !6  : iV͌ 1P0nf86 6 @~˷w ~@w<6~w68696G6H!J9~DݶE(, >( Wq 07%8u=t>6O͌ !>a͌ !`> ao& > ͌  !E> a͌  ! >a͌ !>a͌ ! > a͌ !G> a͌ !F> a͌ !H> aZKn,X`   % K OSYSTEM DEVNAMES6 PORT SYSTEM DEV SYSTEM CLASS SYSTEM EXEC BG# A\bk).]%*/49BGNQeiov} !&;>AELSkow|.]gy &03:BHNV\ublr ,:@DGLTY]orv} 8@HKV^gju}  ' C K T \ _ i l s { " , 9 A D N Q [ e o y q =PATCH ver 5.6 27DEC82 Copyright by Timothy S. WilliamsAUbk7%R0!D>a~ !>a(($~ (6( !>a~ (!( !>a/2#0!>a!> a#!(!> a~¤~( 0:µ[:O:#G!U|g7%R0!D>a!U2\<!~ (;( #VEJFJQHʖDR[:#G!U:O3.#! !:#G! ͞͡*:G [RU4G #>2͞͡*:G [RU4O͞[S!~ (;(# (,(+"!*DE>::G [RU> F# > >'~ 88>.#>'> *"*!R?*" (& ("+(%-(0*(=/(K@(X>27s?K* æ?K*Bæ?[*'æ?[*&æs:G KBU N#F`iæ>2>2 (D ( 08<:0  (0 ("::G KB8:GB0>274~ (];(Y ^#~ ( (K;(G'((($|} ;#~'( (,##{#w#zw~) #x(24>27Following subcommands are available for PATCH: DUMP addr1 ; display memory from Addr1 END ; update file and return HELP ; get this list REP addr data-list ; replace bytes or words VER addr data-list ; verify bytes or words QUIT ; return with out updating file Where addr is a simple address expression involving: + - * / and @ (indirect address) and numeric constants. Invalid Statement Invalid Address Invalid Data Mismatch COMMAND t@i #(-27<ADLOSV\adnsx"/:@{ !&.4=BIlot @PASSWORD ver 5.6 06JAN83 Copyright by Timothy S. WilliamsA]0U(E0:w*;U>~ h ^ͤ=!=!#z  #W^ !~ (@I! (.(( 8w#*x x(+ T]6 !L9P ";T0~20:w*;U>06%7 !(.! bk7%R0!D>a0~wK7!"K~# ( (+u~# ( (+#T]6 ~ ( ,( ( T]6 ~ (#~ ( ʤ~# ( ʤ+ubk7%R0!D>aä67!!~(! #%! ˾˶ˮ!:%G %>287 !~(Po&> #~# (~ (>,~ (#> n&> 7!# ! >a7!0:w*;USYSTEM ACCOUNT Account not found Invalid password Account has no password Old password? New password? SYSTEM BCOW\ciuz}1?IOU^glrz}!IPWf{~  9;MSG ver 5.6 27DEC82 Copyright by Timothy S. WilliamsA"~0o:o* |P}=2  w*([$( A[P><2 0W_^#V$hN !6] : :2#~ 0~q: 8!K`!$*4_^#V$hN(!K`*~08:8>6 ~(1!L`:8#("d:d˯ ( N( Y2 T0:(k~2!x96 :w 7!$" -~# ( (08:8~ #T ( # !!=>a!{!\~ ( w##>:> ~ D> ~ (# ~ Â> xI?bk7%R0!D>a(> > : :u:XP _^#V$hN uX<!F> a!I>a!J> a!K>a!L>a!>ad$%u!u >#~ 6 bk6 0~2!x96  />2!T _  ~(#>! a>:( !0:wEnter message text, terminate input by empty line. Do you wish to deposit into the mailbox? SYSTEM ACCOUNT SYSTEM MAILBOX $$ From J>DISX_ekz%4FMTYhy#BF -7:CLORioy"?RESTORE ver 5.6 12FEB83 Copyright by Timothy S. WilliamsA&bk7%R0!D>a0W~ (((($~ (((~ (2((.~ (((!>a!>a!>a2=!!#~?(@(#( * 2>6?#2>#~T 9#~ ( 1850>112FG: :F12KG!&>a "S( AڡHҡ2\G2^ڨ#~ ¡+~S( AڡHҡ2]G2[ڨ#~ ¡:F :^O:[ !,>a~ ((!>a~ !d~!>a2=߯2Pٯ2Rӯ2S2B2A2= ~ ʵW2C2Q2D2OP~ =():F :^G~<(:[G~< !M> a:\22:]21:[G:123:R(@:F(12 :^G:122 ( Y(N >:F(S!!I >2E>r2T:^G ! >R2TdI!d.:[G ! KW? !7%R|o&:F(RSk:O &"q:F "k!"m:qW:O("o"_0~2T2U:F(\!E~6 > !I P!͒  !] EP!͒ P!͒ !""!"gͭ *_!>:^}G !( Önf))"inf"c:^G! ] := Q!:F !"gͭ /!<!I!Pf(ER˯Nʖn :=!Wt:= #:[G!  !I:[G! >0:Tw:F(>  :^G! :[G! *?> *?| _c!9n E({A := B0:w2V2U:P(>!~ (O#:Vo&>)> W] :2Vn F(9A :=>A(:VO:(*?|–>:> *?|>–n R(F( O:= y: := := 0:2Vw :O:V !?(*@( #((ì~$(Aڬ[Ҭ ~0ڬ:Ҭ#:[!! :U(~ >2:C(:Q :D( :X 2B:( :BQ :S($/!% ?Y( Nʬ ʬ: :[G  X äʮ:(:[X ::[G["X :=(:U2:[G (:[G[* X *"s*))"u[qR0"w"y*m"{n Rž [{S{*y+"y| P [w*s"s*uR| *?#"?ì:(:[X :2:[G![c""YSUX :=(:U2!" (:[G[U* X [U*R"*Y"s"W*U))"u[q{_R0"w"y*m"{*|(!6>R!n Rž *| "U*| *W"*|(n*W#} b*Y"Y*U+"U|*Y J:[G![c((!"[{!P :[! `>SU"Y*R"*Y"[{!S{*"W*y+"y|OP *U|":[!¤[s#r+! ä:[G:wO[s*m3:O:[G:wO[s*o2:wG[m*o # x GF:wg.Rl&[sE N(YP P II:P(&:S := : !% ~ (O#.~ (O#::[GO:Q¬!"% ì*aKe~B? Vʨ E< AD FI RN ZN >:<2o&02:8*":^G ! o.!N#G :^G }! nf))"inf"c:^G! Q] !"gͭ n n #>QÕ > Õ >!Õ +͂ ͂  ͂ (=GDG~ͭ Ke*a+͂ = Ce"a!~#:F(Se*_"aj *c[g"c*iR"i[kR0[i"ge."eL:^G[c*_"a2:^#V!"xW>͊$PF5FF>͊ >͊(> P!͒ !"!͒ *#"P͒  ](J<6[R(8JP͒  ##~++P͒ F(7> >͊ >͊d?I >͊ j > J[S[SSP͒   ](J*r*r](hJP͒ \](P͒  > 2>͊  *:=2( >͊> I> 2  !\!*#"'r*#"+r!BwP! P!\>͊g(;!}>͊>͊ d>͊>͊I >͊ *#" \B*wP! P!\!"!}>͊>͊(  >͊>͊ >͊ >͊>͊ !_^#V!6 #6d?˯I(Q(>ROQ0n(f)|(`>͊>?B TAPE1 - not readywrite protectedtape markcrc errorend of tapebegin of tapedata lateHDREOVEOFMount next tape volume - ** unexpected record ** ** Computed block count disagrees with label ** ** Sequence or section number disagree with computed ** ** File name mis-match ** HDR1ARCHIVE .TAPEFILE 00000000000000YYMMDD 000000OASIS HDR2F0409604096 000000ACCOUNԽNEWACREPLACNEWFILOLDFILQUERNOQUERTYPNOTYPASNOASVERIFNOVERIFVOLUMżTAPEn  No files restored. Searching for account "" Mount Archive volume 1 Compare Error, Sector , Byte H, sb: H, is: H, retry (Y/N)? Source on drive S(n) Source on TAPE1 Destination on drive A(n) Mount volumes now - Source disk is labeled "" Destination is labeled "" tapeInvalid record in archive file Restoring "" " not restored because file exists. file does not exist. disk is full. directory is full. file is protected. OK to restore "" (Y/N)? ARCHIVE VOLUME01SYSTEM Account: File: Syn: (123) BOASIS ARCHIVE version 5.4E mm/dd/yy hh:mm:ss from disk vvvvvvvv volume 01dddrArchive is from disk "" on at Ok to start restore (Y/N)? Mount next volume on X(9) labeled: ????????????????Be '38;ADKZ_bhkry"7:=@CFNQWadksvy~'2;?EHKNU[_gjms| #(14:=DGNQVchwz} (069<BIW]isz}!&.3:=BJMXgjnswz  #&)169>ADGJMRVadgjmry  #&),15DGJMPZ]fkpsz}       ! $ ) , / 3 8 A I N Q U Z ] b g k p s x        H R V Z a d l o r v ~     ' 1 4 7 : B G L R [ c    * A E L S [ ^ d g k q u        " & + 2 8 ; B I N S V Y \ n s z  #&)07:?DLQZadlorv{!).W^}&1:@OWNERCHG ver 5.5 23DEC80 Copyright by Timothy S. WilliamsA;bk7%R0!D>a~ ʨ(ʨ2~ ʹ(ʹ~ ʨ((*#~+ ( /0 ô~Gگ2~ ʨ(¨: 2 ~$(A8[0~ (GT(0Q("N( R()>!a#~O #~++T(Q 2ȯ20~820~2!96%7 pœ7!;"•~# ( (+08:0{2~# ( (+ ( #~ ʣ,ʣ!=> a!:> a7!:4:($>2:G:(:(<2820:w:(!P> a;!;:G~?_S!~2#0:G!;[! >2$S!~#?(*@( #(~$(A[ ~0:# :#~+":;#:w;!;:w B~ : 2:(#;:w:w[!!;:G ( :͐:G[!!; :$=2$C:#=2#): <QQ0:(:w!;:#~!;:w %~ : :((:͐:w!;:":G!;~*(?(@(# 22#22>?#x2:(]N(2*N#y (.Ny (#::GOG2#!>`!>a!!!:0w> OK to change owner (Y/N)? T* ????????????????SYSTEM ACCOUNT ; "(27=@HKV^9uz   $'*.15<DGLOTZ`cmvy|C\bgknqw|'+6;DGJOjz!*.29AJOVi>REPAIR ver 5.6 27DEC82 Copyright by Timothy S. WilliamsAO%bk7%R0!D>a~ !>a/812~ (+( ~ (F 2t!>a!>a!>aP~ (:G!O ~< !M> a:G !O ^ f n v(+'^ 'v(  F &"u)DM P!O6~?<2w<݆2=OQ!O6~?o&":N [*RY!O:G S>=2N_>_!O~(((~( :t(6~($( ((((:t(6O#88N[!O:G ~(7$A[8Aɿ0:80~# (( ~# *r#"r+ #~ (O.#~ (O~(\n&Vnf^Vͬ z O<O~#+('>2x~#fo+> Krq#p!"^V{ ͬ:G*#"!O *M|(ܷnfR( >2x*&^VRO>2xO:G:wO!O2oKu!O>2y:yG> G8I~#+OR)z:t(&&o {>( wF~#+ @OR)z:t(&&o {>( /w## x(:y=2yx>2yx:t(8*u<o:u( G/w#6#:wO:G!O3Sector is used but not allocated is allocated but not used ***** Collision with file at sector File ***** Invalid EOF pointer ***** Computed block count does not match directory eAl&-9<MPWZ_bems$59=Dx +25JORWZ^ejnqvy#&,/28CG`dk?RECEIVE ver 5.6 11JAN83 Copyright by Timothy S. WilliamsAbk7%R0!D>a0~2~(ʞ ʞ~(| |~(ʥ ʥ/ڬ2~ (—~ (-C( V 2#~ (185012!>a:ʳ08,:0(*" —* —>2[R#"*  —*— —EEm— ʗ m( 0ڗ:җ$A[0A/ڬ2!Þ!>a!>a!>a!>a! >a:!2  !&> a"^#VS!9:W:G: ˾˶ :W:G:ʺ 2"^#V (j%>2(z( :(K%OO (!0> a! 0( p:2O : :€%>: :2!:* !  !! 6:(~(&v(!> a! > a: W:G[( (S( ( ! > a"* : W("3  "*( ))":21 22 :G !":( !_%!.-!:-:GO-!9 ~# O-! 0,( (:2m!0> aCGW x y *#" -%: : W J*|(=+"[:( z < :G! , !,[! :GS* |(i*3 #} `:G [( S( J!" >2 > 2 ! [3 :G !!  !:G ! > a" ! [3 :G * |ʉ"3 É :!@J! 2 !J:>2 -5%:( mÛ - -: W!!  !:G :*(!9>2,: W #! 6 #6 !" ! [3 :G m>:20O"!"((V(R  w# w#(6 w#w# *&.Ͳ (((7Ͳ2*Ͳw#ͲGy€*:|(%zO(WO(((( (( Úò˻ò>O O >g%z*~#":4:End of File Received End of Transmission Receiving Waiting for Sending Station Segment: File Conflict * * *:G*:G *:G!COMMn B`fkny~ $'-47:=@CGJQZaf~ "'*/25:ALRUXaq{~(-27@GJTW^cfknqux| #'.369?FNRUcgorx{~  &+/:CJMPSY\_ehkpux~ "7BQ\j !&.;CRT ver 5.6 05NOV82 Copyright by Timothy S. WilliamsA !! +"s! 1+"u!(!9##͝ ͘ͼ !(####͝ >*d(!"y!(͋!(ͦ !(> !(!!(ͦ!(ͥ! !!9!9ͼ ! !!9!9Dn&ͼ |ʕ!9*sͼ !9*uͼ !͈!9ͼ |(4 !9!!!!!!( !!9ͻ ( !9!!9͝ ++ͼ !9ͻ (4 !9! !!!!!9!9+ͼ |(4 !9!!!!!!9͝ ++ͼ !!!9ͼ |(4 !9!!!!!!9?å*s( *uL!9!9ͻ (4 !9! !!!! !!9͝ ##ͼ !9ͻ ( !9! !!9!9ͼ |(4 !9!!! !!!!9͝ ##ͼ !9ͼ |(4 !9!!! !!!!9*uͼ |(4 !9! !! !!!$j*y| !9! !!*u͈!9 ͻ !9ͻ !dʝ !9D!9ͼ !*s(3 !9D!9D! ( !9 ͻ !^ (! !'!!͈!!!*u͈!9 ( !9 ͻ j!9! !!^ (!!Ã!9 ͻ !9ͻ !dʃ !9D!9ͼ !*s(3 !9D!9D! ( !9 ͻ !!!!!9 ( !9 ͻ j! !! !( !9D!!!͈!!!!͈!!!!!!!!͈!!!!!!!!͈!!!!!!!!!!!!͈!!!!!!!!͈!!!!!!!!!!!! ͈! !!!!!!! ͈!!! !!!!!!!!! ͈! !!!!!!!!!!! ͈!!! !!!! !!!!!!!!! ͈!!!!!$!!!!!!! ͈!!!!!!!3!!!!!!!!!͈!!! !!H!!!!!!!͈!!!!! !![!!!!!!!!!͈!!! !!!!t!!!!!!!!!͈!!!!! !!!!!!!!!!!!!j! !!"**s*u:  *#"!"}*"{*}*7 *}#"}*{+"{*{*u( *}*s(*}*{͈!*! j!;! !!9!9!ͯ !|(!*! }!9*u*sJͼ !9?|(.͊*s͊*u͈!9n&!j*y|S 3!9"{I0>w#6R> ( 0BB (  ut## (w#6! 90!{N#F! "!9R0!"!v !͈ !͈ * ||{~#fo~#fo}|9~#fon&|}|}o|g}o|g}o|gR(8!ɯR(,68&68(|(z(z | } !{(<={()= RB#}|/g}/oDM!y0xGyOȯ{_zW 'DMzzx>)͹(}o{_zW=(ͩͩz/W{/_x/Gy/O{_zW{z&k~#fo!9~#fo!!! ! !T]~#fo#s#rT]~#fo##s#rT]~#fo+s#rT]~#fo++s#r%## ++#+n&}4#4T]~#fo s#rɾ!(-ɵɾ! -,<)Kn&[|ʴ!9RÚ!n&!+ }n&!- |!9!9+n&!+ !!ͼ !9!ͼ n&H|R,!9!9! Jn&!06ͼ "J!9! @ͼ !9!͝ ͼ !9n&! ʫòͼ !9͝ ͼ )͝ !9!9^V! RҤ~ʠʠ_ʠGM ~8^ʤʚGN 8:06#n(ˮ6y ( ( ( (46  @~ C @= @4~ -~nfw ( #~Mx1:P\BMRy*k.o s ) a       >puc ~I:( U vXhPE5~Gr=.f 2 j 8}7(X+[k/  ep_ WSX l=ehKx *!. ` o # ( X T PL}c[y '69=IMVYCqy O 0 v \ O B 5     r e K > $  n a G : -   j]C)fY?% cV2pT#rC6)dWJu@3& i 1 { w6s2K"W29AHX[ ; nu ~ "'.47=lI\>ERRMSG ver 5.6 27DEC82 Copyright by Timothy S. WilliamsAbk7%R0!D>a~ *(`T] 0ڴ:Ҵ* 8 2P~2Hw!9ͮ:HwP:Hw>I`!>a! 3a#~ ~ 2! ^#VP~2H!9! ;AͮR(#1:Hwe(0~0 > xI2D (!> aD!( )  (c|( "KD!((% (?!> (T]6!KD)D!Can only be run from SYSTEM account. Message number: Old: New: Invalid key. SYSTEM ERRMSG YP1 P2 P3 P4 P5 P6 P7 P8 P9 P10 P11 P12 P13 P14 P15 P16 )A]ns.<CTWbinF<HELP ver 5.6 27DEC82 Copyright by Timothy S. WilliamsAG7%R0!D>a06 6~ ʣ=~ O~1!" 8~$ (!'6 '!~ ( ( ('!=](81!=6!>a ;y2;1!"(!~$(% r>2<#~ (}2<~# (M(&S(,>(3<(<1!"~$!<5P~>(P~>~#G\~#G\!;51 ;q6! > a5!G( !54~ t51 ~:G! 1!K" ;A L1!" ~$ #1!1!0  HELP Command Description GSYSTEM HELP 4?fivy|#&*?LY^adhru3?RENAME ver 5.5A 03JUN81 Copyright by Timothy S. WilliamsA!bk7%R0!D>a"͆͆~(ʙ ~(ʙ ~ (~ +( ~T$W(ZD(^Q(bR #~+ E ##~++ A~ +N#~O#~++W(D(R(*Q(T2$>N2$>N2$>N2$~ 0~<>N2Ù*~(ʓ*G(S(AH#~+ ( / 2~(("2!!~ (( 6=: : : ::0~2!ͮ!ͮ!~@(#(?(#:QS2:%:!> a>2:<( 2G:(%2%!!:G~?_S~2: !!S#:G!![ >2 S~44#?(&@( #((4~A4[4 ~04:4#~ +:(4:N([~ (O#.~ (O#::GO;: : :(QY( N4 4:(N(:%: :(T(5V(/N %N(D(::::G!![ #q B!~=( !~=(! :w(/ ! f! !f!f": : =2 †:=2lɯ2:= != !"!!wͪ"& 4-: : :(c!! X~ O: G:W N :D N :(V(N !! >>2:!f: G: A: ;r! :2 f~ (O#X.X: FOv ~ n(~ *(#6?#~= #~ P#~ 08:8$A8[*!>a!>a!>a!>a!>a!>a!>a!> a!#> a!> a, OK to rename (Y/N)?, OK to change protection (Y/N)? has been renamed protection: NODELETE, NOWRITE, READ exists. protected. not found.   %(+25?CFIMPUX]`hpx%(-039?EJMPSgn!&*.3GORX[cjmqu|#)/>CH\ag@B[adgjqv} "),/:HM\cfuz}@RECOVER ver 5.6A 11APR83 Copyright by Timothy S. WilliamsAbk7%R0!D>a~ (y((u~ (m((i~ (R((NG8=2~ (L( ~H( (:08:023*"426!!>a!!!!:! ~(!#> aP~ (:G~< !M> a:G~?_n&"~ _f n '^ '"0!hII:3( *4}o" ?*74:G[! ! (5 > #*"[RڌEnd of disk *! 6 # "U*"> Ea@I:NY #ʣ ( ( 8 8>.+6^#@!25 1#!> !B[R8"*#".0~*[&"! ~(!#> a:G>2 K]*_~# xC]"_*[#"[[!S:G  ;y22 Sector: Sector number: Is this the correct file (Y/N)?  Enter match string (LF = end of line, continue): ASSEMBLEPChy 8P`kp}  ,16=@CHns{~ *_<PEEK ver 5.6 27DEC82 Copyright by Timothy S. WilliamsA~0n:n* |P}=2!  $( A[P><2! _^#V4:!hN !F]:!ÁP:! _^#V 4h~ #~O #~ #~~ :!_^#V!H,h:,(=2!~ <2,+!,:!i!90 a!I> a!^> a!K> a!>a0BGQV]ciluz"9AIRZ]bp>SYSGEN ver 5.5 15FEB81 Copyright by Timothy S. WilliamsAP~ =(!N>an bk7%R0!D>a~ (!>a!n( ! > a^#VS!n2P0~w~ aG ~$( ~$( ~ (( / 2F  ~ > 2 2 2v >2 F ( !v (a>!v (F :F (N<V n ^#V:F G! $7%R0!D>a% ^#V+z ! >+6 0>w#6xI7 I*v  8 > x > O (_(%(x y (9(:y^@O͟x(͟x ܪ != A !A v > !v C T]J2s ! (IO~ w #8~#(+x0 ###~#(~ ( Cnf v B~ #:s <2s (  6! "q  B 6! >+"q Ø͘ 0~ 6*q  B ^++> ##"q z  R^( B͘ 0~ 62s *q "q ~  Bz( > ( B͘ 0~ 6*q ~z(͌( B 6Ev :v =E=v bk~ (( #0 U( L( M( 6`(@ ` 6IB0 6 B͘ Bu#6B 6 ;A[q Sq <8 B͘ >0}  6 6O!v w ((#ͽ 6 6*q ~> ~  Bv  ( > #~# Sq ( ͘ 0!"t  6E*q ~ "q gIB͌v 8 ͸͌I[q ( x(͚x +~ 8~  0 # 8O^@Ot  ;AB1 (L.(:(1!G (ͽ .( :( (,!O (ͽ :( (G(2F ͽ ( _ !F _ !v  0~d _  aF !v  0~d #~> DF !_ F p .! ~<(p # > p !:F G2W G !Za .(. (,&`B6 # ($ ($( ( w#$( (  (ͽ 7 B*q ~<(> "q > !v !B*q >+7%R8!BDM[q !v 7 =*q ~( > z >!BDM[q > !v !B*q !BR BK[q !v ͌A!v ~ (  6 #A[8 a{0˯A0:8[q 8 B! R    ((; ( 8 O^@O0 ~(ĸ(0#ͽ *(  !7!ͽ ,  .... .> ."> >&aTOF: EOF: No Room: Invalid Filename: Not Found: NEW FILE: Unrecognized command: EDIT: DOWNUP 1 BACKUP v BOTTOM CASE U|L|M DELETE [count] DOWN [count] FILE [fn][.ft][:fd] HELP INPUT LOCATE [/string/] MODIFY [count] PAGE QUIT TOP UP [count] BOTTOlUІDELETDOWINPU&CAS`TABSEԌTOXPAGŵMODIFTLOCATFILQUIHEL C\gjtw>L&+7<AKOSV\_bejps~  !$*16;@C\bq&+/ORU]chmp|).AMdhnu!;CGJMQXbempsvy~  $'*-?BEJPSX[nux ").1?DLVy|* 0 3 6 : C H r   " * 1 : @ G P Y ` g n q =SHARE ver 5.5 23DEC80 Copyright by Timothy S. WilliamsA7%R0!D>a~ ( P~ (~(ʟ ʸ/2O ~(ʟ ø~T2 ~ (!>aO( !%>!( O%<0~ !;> a2(!9> a!96!:w(!:> a^#V!7%R0!D>a ^#V+z !~ʏ# (}> ~# (~# (, ~# >:OG~?o&"|~2~:ʫ!P~ (#>.!X~ (#>::OG> >  ;y2h& &}2:OG[|! !~ʆ<ʆ:ݾ†!O#†!~ʆݾ( !5 :w!5 :w!~ 16#N   *|#"|!~5:0w,ͭ (8 Y2`S ~(0:`wb!P2}:2~:OGa <ͭ :0w(82`S :ݾ 6:OG[! *|":~2:OG[! !~(<(:`ݾ !O#   *#"!5 >(!~ ( #(bk6 !~!~(O# y 0:w>!>a!>a!>a!> a!> aAdd user name? Delete user name? Following accounts have shared access to SYSTEM ACCOUNT ** User already has a shared file by that name ** User already has a private file by that name ** That account cannot be found ** Shared files cannot be public! r %*149EJMTWZ]`ehn|@X]ckp{ +NQW   #)/8=CRX^dhs<KILL ver 5.5 23DEC80 Copyright by Timothy S. WilliamsAbk7%R0!D>a~ (M~ (E~ (@G2! 6Y ! > !a!!!>aDo you want to kill the file? ?]wz}<SEEK ver 5.6 27DEC82 Copyright by Timothy S. WilliamsA bk7%R0!D>a~ G 2G!  0 , 2!>a!>a?[adk>VERIFY ver 5.5 06FEB81 Copyright by Timothy S. WilliamsA!87%R0!D>a~(( (G2D0!>a!>a!9:DG !8 ~ 2>n f "Bn &"8"@:>_'[B'v(~ D_ C@ F "4!":"<"6!J:DG2{:12}O :>(**:bHbb*<Sb*:b[> 2G2F*:|:DG:8 :@O[6!8g7%R0!D>a!82:GO*:|[6*8 *@"6!<4:> 6*:#":[6*4R:7>27>27:F P v_!^#Vb>,l&>,&b!F~ ~(5(Cylinder: Head: Track: Disk S(1) - Unrecoverable!)not ready write protected not initialized data transfer error invalid disk address changed sector not found track not found header error JBdw|"%,18;BILOTX]be|=STATE ver 5.6 27DEC82 Copyright by Timothy S. WilliamsA7%R0!D>a~ (ʬ2̓~ ʻ(ʻ̓~ (](()#~+ ( /0 ö~Gڱ2~ (5(ª~ ('T(P(Nª#~Oª#~++Tª220~2:G:(S$>2:G:(S:(<282*|( : *!*>a: !)> a> !:G~?_S~2:G![ >2S~33#?(*@( #(3~$(A3[3 ~03:3# :(~ : 3#~( #:!3##^#V*"*#" !5—!5}: <dd!^#V*"*#"~*(?(@(# 2#2>?#!>a!!! *????????????????W@U[`dgjpux#).16CTX\au{~ &*-19=@DHOWZ_behuy|?SPOOLER ver 5.6 09FEB83 Copyright by Timothy S. WilliamsAbk7%R0!D>a~ ʁT] !d!>a\> !a!6 > ! ~2)#~9!o(!%~121!l)`og#~(!h`!@A(D(W(P( Q(X(###>a!g!i> !?aPnDfE|u> u :ʂPnDfE|(  ~ l(%17"E R! "J !D ^ F l( > !WaPuDtE1 ^#V+ ^#V+" z P: =7"E R! "J !D >32\ k F1 CP~ = !uDtE> ^#V+!  ~#fo" !9YF X~(+nfx=h*[R[ R8x=2 %Z*    >!uDtE" nf" : h6 6 : o&#! 6&6'6(6)686<P  nfut}T]6:w :w :%G:H w[ !: i ~Dw 6#66i&# * : ! i ^#V+nfRs#r+ * ! : i* %! : i* ##˾VZ7%80u=t>PnDfE O~(>> Q O0Fʁ*"&"[+":%G[! !~60~~<<6*C!p7!:% L^#V+!:%G  N#F+x(*{( bk#B y PY!":%G! 7w a! > au> X( W(!O>aPnDfE ~#^#V+!V6D6EF P~ _^#V+!!C i0^=V>7R $8P~ (7"+ R "0 1!*  F% %u &ŒKCu!y((u!:y(:( *!!y:????͐O:'G:͐g:x???M͐oj:''G:ͣ>::?ͣ:2* !:O<02y( @((!!!y12!: (!> !5  ;y=w#F6 1ATo& &}o& 0>0NT]#y U1890~ !"> >!au> 7u> 7u (19O > 7"> *~ ?NT]#~ ny (A8[0 +">>!a>!au~ (T] ( A8,[0(AO! wbk~(#>7> u>2"s ~(v ~ ( K !k>a*"~ (I#~+ (!d :2~18 98A8[8K [U1O!~#w2:@2Y K >7us ~(@ 6Y K *C!90~67:%wun :%27C*7>2H ;y27 4M:7wwG6^Vsr6!ut K 8Ì͢ ͂ ! 9M!" ^~ (E (U()08:0>9A8[0>Xa8{0>XO> ##~ w > 5 # >  > !5  > M!QY *+>7 > M!K > N V(6un *+>7͂ *|ʺ +" ~2 nf" * |(GM!" S~ (# ( #[ S z R: 2 (02 ^VS M![ : G*+>7M!>~ (( 6!">"> > X(!o`O> X "*s ~@(~ ( K !k>a*:O~(( #K !p>a:w@2Y P~DE(2!D 9> > P(A og[: R !j>a:%G[! *!:~K K >P~DE> [!:%G[! ~ U0:*| KB "+}_<K "!"% ^ʌnf@'"nf"ɯ!<8Ì BG# SPOOLER SET MEM 2 !84 6UNLOAD SPOOLER !86SPOOLER MUINIT2 LOAD SPOOLER SET MEMORY 2 * START SPOOLER INIT SPOOLER OVERLAY1SYSTEM DEV Background spooler requires bytes minimum partition. 0M ~#fo8MPRINTER1SYSTEM SPOOLQUESYSTEM SP$ Another alignment page (Y/N)? POpenClosedPrinting on PRTnPrinted, hold NoholdHold File# Name Date Time Que Pages Copies Status SPOOLER OVERLAY1HOL NOHOLINI=ABOR2LIS<FOR\QUEU*COPIEӱCOPٱSTATUӁHOLNOHOL&STOSTARQUIԓMUINITMUINITCHANGũKILA BACKUBACKSPAPRINԴ ALIG NAMU RESTAR READٚ RDٚ B^h -38>EZ]dix{>isw~Uglo->DGOSX[`chp"%5EIMVY^ahkotx{~'+27=@CJORV[^ahpv|  7?GQW\fn !2GL]   * / 4 7 : ? B E H V Y \ _ s v  6 G U \ _ i l q |     ! * 4 7 = @ D J M f l o t y     ! ) , 1 4 ? E W ^ a f k n w } 0 Ow !*19@JT]dmx<LINK ver 5.6 27DEC82 Copyright by Timothy S. WilliamsPA>bk7%R0!D>a7"a$6+"]$"_$2RDM!26M!Ra~ 0((!>a!>a~ 0FpUyByXjTMPDʌNWS #~+Y ##~++SyM >S2X$2T$2!2U$#~+A >T#~+I(/ͤ 2Z$>2Y$#~=(7#~G0!>aͤ82-!>D2W$ͤ2!#~+O ##~++M(T(2!~ (#+~1858>12!%G: !!&> a! 90~2!:W$(NT(JD(%2>!G;x2!y<2!% ;0 ;x2!y<2!:! ( .!!!-!!   ;x2!y2!!> !~ :! (,:!?_!!!!~ (#>? !!!:!2!:W$T(#:!<2!!!͖6 *j"|( ͖!!͖:!=2!5:W$T((!:!(>0w2!~ #~+ >2!#> w#:! N:T$€#I ;P!% (o(d(@(\ 8 Oxy C _(@'(a8{0˯Ow#'(z(P +~'{_zPw:W$( T(!%͖!%~# (";('(a8{0+ˮ#~# (' !%~ ; ##~ (; +~ (#6 '(( ##~ ( #^#Vx8~ (  (#:! %:W$T͖:T$(]!*]$%-6"]$"_$#"!! ( !! `> Ì !!%6 #" !%:W$T( Ė:!(Á2T$!n$!!:!2m$U( n$! `> Ì ͞:l$>2l$H2l$!=~(5~(^ ^ V v(! !A(@ : !3`> Ì : â!=~v(L^ hN(b>2m$n$U(V(?9#!n$:W$( T( !w#͖:!(x#͞H N#F#! LNAMW HELLISB INCLUDQUIԊ ORIGI ENTR~DEFIN:IGNORdREPLAC SEԧ EN< ͧ i 'ͧ ='#ͧ  % x2$S$i $!!>2 2 :!ͧ ~:8 i ~ ͮ (>2!!!! % >2!x2!S!DEFINE symbol=expr END ENTRY expr IGNORE symbol INCLUDE module LIST NAME fn[.ft][:fd] ORIGIN expr QUIT REPLACE symbol=symbol SET expr=data ͧ i ',( ( 'ͮ :$!!!"$|2$<2 2 ~ #!!> ͧ i '~,( ( 'ͮ f F n$!!>2m$U ͞~ # #!!~ (#K#!##:W$(T!#Ėͧ '!!!:(/.( '2U$# 'D$!!~ :'# ':! '~ ':!G'2Z$>23$i 23$ͧ  % S!>2!ͧ i 'ͧ ='#ͧ !!!i ' '!!!O~q#!!! #'!=~(Hv(-! #'! #'^ V !ͮ '!!ͧ 9  % ͧ =#'ͧ x͖!F( ^VRu t !_%~ (; (, #'(0':'*u##~'( ( w##(_%RDM͎9  !=`%!_%6  ;!_%~ 6 _%R_%v(V(-x G80+~ (#6 _% ;!_%^ V !:2 !8> a:! !!!ͮ ~ 2!n f "!:! !! :W$( T >2!â>#*S#*)#*>2 2 A$A[8Aɿ0:80ɿH !!!6 ~H !~c #:3$G~#c (@ .(:(+~ #!=~($!!8 #v!ү<v(^ V !~W ( H ʮ >*~ (!=(+( -(*(/ # (ɯ+( -()*(>My(((OxG>y(y(DMRy 'y 'i ͮ >~ ͖~F ^ V O :!  :m$G[].!e* $++ $++ $++ !e*:!8$K~$*$~ = C~$"$!$~+$*!~(O"!!$~+2!m$ #m$<8!e*(:m$ >2m$>@!e* ^#VS]. "$C~$: / ʚ ~#!n$~ (# !##:W$T!#Ė*$| #"$!2$ #U~(!$bk 6:l$w *[$ut6666:$w *$ut:$ݾ :$_!e2s#r:$(38[[$!Ru t ^ V *$Rʞڞ9*$u t Þn f [$Ru t *$9n f u t Þ[$nfR8(9n f *$K$ R(89n f u t ^V!Ru t Þ|(RF DM E[[$#"[$~( nfutn f DMx(o&'2:$_!e2^#V2R&}2$ͧ^ V *$"$!=~ʦ!$(څæ#Fžvžn  !$Vʞ $ !$c*[$R( DM!n f +u t | Þv(^ V !!$>!$Þ*[$RDM[[$!2~(nfut *[$"[$*c$"c$*i$"i$ͧ[$!$:$O͎Þͧ:$=2$O==?!$^ V {(Bnf!*!"!^V!!͎nfut##= !$Þͧ^ V *$"$!=~?!$(?#v( $n~~~F $!$cÞ@v(^ V !î!$6^ V s r !!$Þͧ:$_!e2^#V2R&}2$^ V *$"$!$$~ ~ !$c:$2$ʞO$!$:!:$ͧ^ V *$"!:$2!>2!:?!—?!!e.:! ~ +:!( >!a?! f.!e.6!e.6!@!~..:!2.:?!G "z.e. (*z.! >a?!! >a͓!"!~ݶ (*!|(j*z."!>6*!ut x:?!G^V!e/ S![e/z nf&}NF ut&Do}j*!"e/:?!G[!"!!e/ >*c/"c0+f.!e.6*!#"c/#"c0#"c1!e.[!:?!G3:?!G‹[!!e. "c/"! :?! n f ^Vn f /*!>2!B8K!K!*! BDM:?! ^ V ^V^ V /*!B8K!K!*! BDM"!*!R $*![!R8*!+[!R0 *e."!"!nf"!!"!*![!R!R"!!g.:!ȯ2!d2!^2*!#"c/#"c0#"c1:?!G[!!e.3͓:?!G[!!e.2S!c/!e/####*!"!"!:Q!< :!Q!! N!F_N:Q!<6!^~=G#^+ !(. (-`>Ì :c!< :!c!! N!_N:c!<( !^~<(6>!e2q #!2F %!ut~(^ V 6 6 :!3F(*! nf[!"!:c!<ʛ$!$6c!!>2! !$͉›~3###~3N#F#^#V!*! ^V^VR"!!!͎!$6# !$$:U$Bx S(U(%$!!D$#$!!!!!4$ $!!L$!!~08:86 #e*!!~# (>.~# (>::Z$Ge*RDM:!o&B=!!e*:Z$!!e* (~ R:!(~(:!ݾ >v 8! $!!!$.:!!2~!:2(!5`> Ì !`> Ì *!|( [2"!2!>2$*2:!([!*c$+r+s+6*2+++"&$*2:!(###|2$2$A :Z$G:$O[$*c$:!(+++3BÇ n f [&$"&$F( !4`> Ì ~ *!|("!2!*&$"&$:Q!<(!!$6_!>2! *&$|2$*[$:!("666:!(*![!*[$+r+s!$6~j:! ~(*$#"$*$&"$:!>*&$(>*!"&$2$A :$(WOl&[$*[$:Z$G3i&>(8O*[$N3:?!< ):Z$G*&$L*c$:!( [!+r+s+6[$3H!2*$"($:!:$2*$ *&$|2*$N:!(*[$[!6#s#r#!"-$S/$~4!"+$n f "1$*1$|(d*-$R0[-$*-$R"-$*1$R"1$BK[/$*+$ "+$S/$*-$| :*$0O:Z$G[($*[$3i&"($:*$2*$Në:*$(O[($*[$:Z$G3BÇ *[$"/$T]C-$ 6G~o&'2^V##n#f#!*!:!(###:!(K! "!!!͎:! A:!(###~<8 :$<2$>w=O s#rŒúT]6!e2_~Ö:W$:k$( !"6S#6e#6g>2!|":U$B!! >0~ (#>.~ (#>::Z$G> !l"͖!!͖!""j"͖!2!:!(*!`%!_%6 ~ x!!͖"*!:! :2G :!(K! DE!"j"!"͖!!͖ѷR"DEB8>,!#K #!"͖!!͖`%F(nf:!(+++k%DE^ V 2R :!(###+q%DEw%DE}%!#~G !$W !$:!(!#:k$(~ o&d0 0> 2%!=~(v( ###2R&}2#nf:!(+++F nf"#!= ~(rv(###^ F(:#ݾ "#n f "# ~(Jv(###^ F(:#ݾ ^ V *#R(8"#S#:% `!_%͖X> 2%*#%*#K#n f :!(###:!(K! DE> !_%͖`%!_%6 P!!e*0 ! `> Ì :Z$G[$( ! `> Ì "$$:Z$G *c$:Z$G B>:?!(?!:Q!( !!Q!:c!( !!c!:u!( !!u!:W$( T(!!NONAME The following symbols remain unresolved: PRINTERn LINK NONAME LINKMAP SYSTEM WORKA SYSTEM WORKB SYSTEM WORKC SYSTEM WORKD e.e'e(e)e& K8@1LINK version V.M Memory map for PAB-name Low High Length Type Entry Addr Entry Address: Total Length: ( decimal) ** Invalid command ** Relocation error ** Undefined symbol ** Invalid character in expression ** Including ** File ".OBJECT" not found.  ** Invalid record in ".OBJECT". ABSRELCOMSYSTEM NUCLEUS COMMAND BASICUSRT==== OBJECT File is write protected, ok to erase (Y/N) May Need to Re-IPL -"',16;@EJOWafnw}+03yLjAFIL][ @ d z   6 &o=2t_*4|+0<5f(26 ? S i !!!!![$c$e$i$CK|$kx% S ^ x {  -   7 Y l 2  : 7m u W= hb? X eOF; | S+ 1 7 ?    7u +-0 F|Ix*7 ` P# F(Z~@IL1=a>~ JQ& yrC < A2C t,$jB i;tWft  e r|N |l>-$ v :kb"hX: { f7 md yQ@2#e8n\*'}DtL  y_L X~[Ob+; mjN v7L;[ soc    9lOY  s xt`VrhdZ  VVK ~ q n N )   h - ka ,   H<Q.[P^NG>z0N(4 ( . P C * ; B> o qw [ l ma yDc_-)=p5%!z_U Oqa z C H =rf>'>k r V C @8 R@2[XO>c\e$jU^oZfh_y L  %  M9H8zr`V  }t-0q73"K93t%lW aC"[_htO2|/ , # wW p h ] R O * E ?3k  Y[XTPEB85-vse]NDA6{$|j skR I ; J?=FORCE ver 5.5 06FEB81 Copyright by Timothy S. WilliamsA~0o:o* &|P}=2-  $( A&[&P><2- _^#V>:-hN !P]:-ÂP:- _^#V". >h~ #~O #~ #~*.4:-h*.6:-h6!0](B*.6:-h:6O!55*.!:-iVO>L>~ (~# (> >RDM*."!>:-i*.!:-iV60>QN!F> a!I> a!_> a:4!K> a!q> a!>aCSI 5CHRW^djmv{!',39ADKRX^cfjmv|ACOPYFILE ver 5.6B 31MAY83 Copyright by Timothy S. WilliamsA bk7%R0!D>a~ (((x( ((!d2 ! d2 ! d5 ͈! d2 52 ͈=h*h?h@h#h5͈~ (( >R2͈*h?h@h#h~ B((!d ~ B!%d !!>a! !> a!>2E2E>>2 ~ \s#rE>2>2 ~ \E>2>2E~2E~2E~2E>2E>2E>2E>Q2E>N>2E *"E>2E0~2:dSM!>w#)@I!  o ( + (*  BG ( ( *Ex BxM! w:(1:*(Ga:=( *(Ga  : • :* ':N(>Q2>2:(<2G:(YGa2Y:( :m!~*($?( @(#(#:Q(!D!6 :2>A22!!>2Q:G! ~2:G! ~?2Q:=2!>2 R: := :Ga2!͐#!͐(CE~#=( *E~# ( >C2X:N >!~(>PG :O~ѹ(( >E2XL:RW¥: ! #!G >R2X:(>C2X~(>P2XL(>P2XL r!Rs!!R^VSGV(:G( >W>F2XL!rut"Knf"I!:w#6r:G O[I:G*M2!"I:rWʩ*IDM*My(^#V| *p B %B !^#VSI{ z *p B [K*M ~# !rsrO+s#r#:G(0 >W>F2XL*M$+6+6[K*M:G > *Ms#r[K*M:G3!:T[K*M$$$$:G2[M*M$$$$(bY!R]l&[KEwFFp? 8˯ON© > # x :rW( *M^#VSK*G+"G|: .! !r!:G >sw: : :A(9: 3: -: ': !: : : : : :  :RoH : P !G :2X2! %#:A(:#2>=2#(>P2XL>22:A >22:  :G[g*M "7!"51 (F( P(Dy2XL*"*": +:ʴ -!7 &! # -!7 &*+"| ! 9: (G::G~8m! g:2(`~ U^VS9^VS;nf"Cnf"=*M$:G  + (~( #>OC?"A>> > :  r>!!""""."::Gr 8!:G( (ut"C! !"9"=*M6#6!";!"?*M$"A6[M:  AK5*7~(c C5"7>:G*M$+V+^*M G(?( (((w# hI~;E : z ~# (*=B0C=*9#"9K?[A~ C?SA*M[Cs#r} :G Cr+s*;#";*M$[C:G *M^#VSC6+6T]6[M*M6#6 (> G(N@~#  @!!~Gwͥ&>-!7 &:(! & #&:((O!~ (A(a8{0˯w#A8[0w:(2> !+> +(#6 :( ( O! ~: U !~ !((#~ G# >>  #N#~ Gy# !~ ((Py (6x8+= 6#q#x wNy(( (> > x8+= 6#x w## !!1ʹ (:ʴ *+"|´ FÓ : ¶:G[C*M$ !!k: .*9ut*;ut*=ut*Cut!:G :([M!2#[M!: G 8 0@@O #~~ >0>~::XC( R(!!#9.9:FO~ (O#>D2X:XE(?W(,P(F( s(~ (~ (~ (#~+ ~ /tG!d!d!d!'d  $#G:x!( R!&> a#(TYPyNOTYPŁNEWDATńOLDDATŋFRO͏FOүFRLABE̹TOLABETRUNNOTRUNNEWFILREPLACAPPENPACUNPACUPCASLOWCASMOUNVERIFNOVERIF TRANQUERNOQUERPUBLI#FIL+SPEC:CONSOLE CONIN CONOUT CON READER RDR PUNCH PUN PRINTER1 PRINTER PRT PRT1 PRINTER2 PRT2 PRINTER3PRT3 PRINTER4PRT4 COMM1 COM COMM COM1 COMM2 COM2 COMM3 COM3 COMM4 COM4 TAPE1 TAPE TAP TAP1 TAPE2 TAP2 TAPE3 TAP3 TAPE4 TAP4 Enter Translation List: Enter Specification List: Change Disks now - copied to replaces appended to not copied to because output exists disk full links are corrupted directory full file is protected disk is write protected Compare error, Sector , Byte H, sb: H, is: H, retry (Y/N)?, OK to copy (Y/N)?TO N == = == = Dsx!&+09CMR| &)48=@HKORW[^nz}  !$-5=@CFPT\s}#&+.AHRY]fi| "%(+/27:>BEHPV[_biqtwz}  #&+29AJMPY\bempv %+28<?Pfx{~ "'BU\gjnsv|      " % 0 7 : ? B K N S V _ b h m p u { ~     # 8 B K U X \ v y     " & , 8 @ C N W Z f k t   " & ) . 1 8 C Z a x   * 0 ; D H M P S \ _  $'+.36<?MV^gpyN !(JMPUX]`gnu~*3=GNT^hpz/3MO>LOGOFF ver 5.5 17FEB81 Copyright by Timothy S. WilliamsAbk7%R0!D>a~ (!>a%%$>P~ .}Mo& '&} 0>0> Ox Gy0Pf(2!%!!@~# (+!n`P~0ˇw66 6 !J9~w ~ w<6~ =(@!86P^()I[ (![#([!06P~ =`YW>w~(U W#T]6P W~ >( W~2~ 2 1:(2: (*: ("~<(D6#6+U6 # ~Dw6666:G:(! ~Dw6666P0696nfPV(W< %8~DݶE(+ >( Wq 07%8u=t>: _͒utsr~nfutnfut($~o&~> p͒srut =ZPnDfE|( "A>͏1> ͏> ͏>!_͏! "7^VշR686666U 6666U06#6O#6#6P^#V##Zhh:mm:ss mm/dd/yy 3 SYSTEM HISTORY SYSTEM DEV SYSTEM CLASS  SYSTEM.HISTORY:S file missing! SYSTEM.HISTORY:S full, run ACCOUNT (CLEAR) 9Afkp)iltw !2 AILmt{]?BACKUP ver 5.5A 29JUL81 Copyright by Timothy S. WilliamsAfUbk7%R0!D>aW"W~ (T #~ ( 18501S(A8\H0XG2k8F2]~ (D((@T #~ ( 185012^(S(A8H0G22^0!!+!>a~( ~V>( ~N(!2V:]:^*W~( #y:]O:^ !,!b9:]_*W~12m:^_*W~12ZNA8[02kG82] A8[02G82^G:] /P~ ( :]G~<( :^G~< !M> a:]G :^G :]G!f :^G!f :]G:^G~ ݶ 2}2}~ &~ ~ ~ ~@G~@(y.y!y>S2|>D2|q!fq!f:2*":(f$!fK!f N:]G !f f] :^G !f f](!"[:~o:}g"c:}2e!"a2_ :}(*a4:_02 *a4:O:w( *a|  y!8 ͡ O ͡ [[!f:]G2z f!f !f[[:^G3:V!f5[[:^G2f!f5 {# *["[:_<2_o:e92_*a#"a[cR9:]G!f !:^G!f  Y:]G :^G  :ő_*[~~N9 YN 80O:]GP~ =(~<(!M>a !f y.>T2|: ( ?:^12:k2q:mf?!9!f q!!f?˯ON(Y( N  !ff%!f##!9i !;83:]G**R0 [RM[!f2!fͶ D :]G!f  q!q:]G!f D >*|7+"*#"}<>(>(*))))"S*#"` Y4I4:^GP~ =(~<(!M>a !f y.>t2|:}_:}g:~o':_':@(R:}g R g "&":]Gv ͋ :]12:2%:2'?!9!f Xq!X!fP!f !f](  t!!?Pf(!?˯ON(Y( N  P!f P!f !"9"7>2;!f f!f:}_:}g:~o':_':@(R:}g R g [R(  >f!f}!};83!f :^G**R0 [RM[!f3 :^G!f  q!q:^G!f :x12 !&>a:^#V!" xW> A$PFFF> ͗ > (>͗ P!G !"9!K *E#"EP ž ](+ <6[ER(  P ž ##~++P F(7 >  >   ? > ͦ >  [9S9[7S7SEP ž ](+ *7 *9 ](  P ](P ʞ > 2 >   *: =2 ( > >͗ I> 2 ͗ ! ! *7#"7 *9#"9 ! P!P P!P y > g(;!  > >    > > > i *E#"EP y *E P!P P!P y y !"E!  > > (  > > ͗ >  > > ͗ !& _^#V! 6 #6 $  ?˯I(Q(>ROQ0n(f)|( > >?AB TAPE1 - 6 @ P Z d p ~ not readywrite protectedtape markcrc errorend of tapebegin of tapedata lateHDREOVEOFMount next tape volume - ** unexpected record ** ** Computed block count disagrees with label ** ** Sequence or section number disagree with computed ** ** File name mis-match ** HDR1BACKUP .TAPEFILE 00000000000000YYMMDD 000000OASIS HDR2F0409604096 000000, Sector: Block: Source on S(1) Destination on TAPE1 Mount volumes now - Source disk is labeled "" Destination tape is labeled "" Ok to start backup (Y/N)? Source on TAPE1 Destination on S(1) Mount volumes now - Source tape is labeled " " Backup from disk " " on mm/dd/yy at hh:mm:ss Destination disk is labeled " " Ok to start backup (Y/N)? This is not a BACKUP tape volume! TAPEn Tape is write protected - Disk Error -Write Protected -Disk not Ready - Source on drive S(1) Destination on drive A(2) Mount Disks NowInvalid Response, should beCompare Error, Sector , Byte H, sb: H, is: H, retry (Y/N)? End of Copy, again Source Disk is Labeled "" Destination Disk is Labeled "" OK to start copyOutput Disk is Write Protected! Disk changed! Input and output must have same number of sectors. Cylinder: Track: Head: 0Enter new source drive code: Enter new destination drive code: Source and Destination are same drive     # ) , 2 5 8 ; A E H M U g l s |  ( * , . 0 2 4    ' 8 < F R \ c m p w z         & . 8 @ C J O V ^ a f m     # 6 > C K N Z b g s v { QW]en$47FKknvy"*->CFKPV^hps{~ 6;BE !%+.5=@ELUZ_djz!&-0:?KQW_hz !$-37]@ILSX]`ehotxB_cin$':=ALQW^aeloty~ -0afinq{>MOUNT ver 5.6A 11APR83 Copyright by Timothy S. WilliamsA~ ʉ(ʉ~*(S(JG#~ 588G ! >(>@8 ! !>a!>a!>aDIf=MACRO ver 5.6 27DEC82 Copyright by Timothy S. WilliamsAcbk7%R0!D>aP%R<Xo& ;x2{Q\U$PPF>/F>/FeU!P ~ >N(>22f eU!kU 7+6"X"|Q`i~ !>a$(A8[0zV!zVfX!zVVO!zV1O!zVP!zV2VG2eXV![ V2VeX!] eX2dX:V< ~ o(ʭ(QV!(Q~(ʭ o/ڭJ2xV ~ oDʏMICLʈTPXSWcS[OaENŸJ#~OŸJ#~LzEDOoXKS9CIMDTvŸJ:oQˇ2oQî2Pî:oQˏ>:oQ>:oQ>ڮ2Xî2Qî2lQ:kQ2kQ2mQî:kQ#~A :(;8x2{Qy2zQ2yQڸ2V>O:kQ2kQ2mQî2sQî2qQî2rQî2tQî ;x2{Qy2zQ2yQ>ú2Pî#~  =#~GڭJ7~ (#+~1850%> 2QG%2V: V!&> a;x2{Qy2zQ2yQ>új2dX>p:xV2yVV!(Q( yV!_(æJ2yVyV!_<( :yV æJ:yV2xV:V :xV2V:dX :xV2eX:kQ VX ( JJ:Q(A@b!b6:oQO(UXX!^J!^6#!Xbk6J}|.0~^ ͿC:oQ(O > >> 2pQ:kQ(:lQ(EQ:OM(M> 2DQV!(QyV:xV{X ¦Jx2yV:kQ( :lQ(zV4vU!zV~ (#>.!V~ (#>::yVG!ZB (> > !vUyDo&"U-:{Qo"U!"-O"Q"M2P2hQ2P2Q2Q2Q2Q2Q2P2P2P!"Q"Q:O<2Ò@ Q!Q6 > 2Q!J9:Q(2(˿2Q'*Q+"Q|2Q2Q(>2Q2Q*Q+"Q!DQ4×:Pa:P(a=_!X!NSv H:OS; (~ ( —~# ʗ ( (+@QO~˯—#~ ( ( ;( —@JÉ:P(X!NSvʗ2P!:P(X!NSvʗ2P!{X!NSvʗaGM~2tV~2uV#~2vV#~2wV":P A!DQ5 -6 :kQ(":lQ(0 N KQ*Q#KQ4 *Q#"Q*M#"M!NS~08(:0$:P "Q~NS ( (%#~ !MS6#~ +~ ( (#6 > 2MS2Q2Q!9S> w#͆:Oʧ :kQO:mQ2kQ*QHS%{X!:P( X!2P:P( X!2PzV!fX:O^:Q(NC!Z6 :kQ( 2kQ2mQ<*QZ| >N>o!M:Q :Q #!Z<͉4:oQO(XJ:kQʌ  X!J:kQʇ :lQʇ !> M~ >(~ (>)M NN*M͗ 1N*M͗ gN*Q͗ N*M͗ N*M͗ N!1O!2P~(bOS!NS<6 hS~ !M( !M(!MvSnf}SFF>H> NSLN*Q͗ M%PMѷR0<PMR0<<'PMR0'*M&<'Pf(NNSNS O:~Q:QG@NS> NS:Ph:P(:"):9S ‰:R :hQ( _!Q~ ‰:xR s É:P( O!Q:hQ_~ ‰y}  !     :  ʵ  ʕ @_ CFCLu-/L,ʉ&k)É''É!Q:hQ_:P (\(-(6:hQʉ=2hQÉ:hQ(~ʉ 6+ʉ+ʉ#6:hQ<2hQ+~#-ʉʉ!R͎7z6 ‰6-É~ʉ-(6-É6 ÉÉÉÉÉ!R~ ʬ :O :P >2(O2:O͎7:(OO:uP(͵KÉ( :O ")O[-O"-O>2Os :Q(<2QQ!QSQ*)OK-OB8C)O*+OR҉S+OÉ:Q(#=2Q*Q"-O>2OQ!Q*-Os É͙KÉs !R͎7*-O"-O>2OÉ:xR ʉ*-O!R͎7:uP É"-O:(O:uP2(O:'O:P2'Os 2'O2(O"-OÉ:(OGʉ!R͎7*-O+͏&͌&"-Os És >2P*-O"/OÉ:xR !xR͒248*/RN~(:(OG O y[-O!xR0Ë3sr~wyO:'Ow:oQ~O *Qut :xR ʉ!R͎7!xR͒2401:(O:'O:uP2(O:P2'O*-OS-O͖ "-O2'O2(OÉ*/Rn(A~`O:PO:uPG(O qsr:oQʉ~_*Qut ÉÉs :R ʉ͎7*-O##"-O>2O(s !R~ ʉ(5ͨ>(N!Rͅ!I !R͎7*-O##"-O>2O *-O#"-O>2O(#~ #~+ *-O"-O>2O*-O"-O>2OF!R6 #R*1S~ ;#}IÉ:PƒKzV! QzV!R~ (4:(0.(#~:(" (.(##!VV6 V{X!yV>{X x2yV:kQ:lQTQzV>2PWK!R~ $(A8-[0)͒240>*Q!"Q!R͋3"Q*/R>>7>2Pʉ8(!R~ 2PÉʉ8(s !R~ ʉ͎7|ʉ>2Q"QÉ:P@JÉ:xR ʉR(!xR~#O (!RF6 #? R<R!R~ (;(# ( (+}:9S > 29S͆RÉÉ>2PV!0Q>2V!RV~ (4.(:(,#~ (":(.(##V!V6 VVX ȯ2PWK:PƒK:PbK>2PV!Q>2V!RV~ (4.(:(,#~ (":(.(##V!V6 VVX (2PWKx2V:kQ:lQ]QV (O. (O:GO.:O [-O*+OR0S+O:'O_!1O!O:R (KQ!Q:OO:'O2Q2Q:Q< 02Q!1OR #O LK:Q bK=2Q:QQ!Q_!1OO:P :xR xR!fX>2P:xR mK:ObKO!1O(xR #xK !xR:O<2Oybk6!R~ (͎7s#r###s#rR!xR:OG:PFC:P* 2PÉ) >:P> :R ʉ*X~(R #, *XT] "|Q!RSX!tV>:P‰h:PX:P2P:9S :R :hQ( _!Q~ :xR :P(O!Q:hQ_~ ( yF2PyX2mʭ.&cʞʙ H@ʍCAF,L2 ,/ʇ,&ʶ)r:P(>+2MS!9S~ S:kQ(&#:GS> 2GS:Q4>>2Q2GS:9SK4>!9S:kQ2kQ#:GS :rQ > 2GS:Q <2GS:9SK<2kQ> 2GS2Qw:P(:qQ(k:Q :GS :rQ(X:P( (n>2P:sQ :P(< (8(4 (0:hQ(_!Q~ !9S(+(- +:P $#<> 2GS2Q:P:PF‰>2nQÉ:sQ(:tQ *M#"M''wmT!lT6 wT!T6 lT!R~ 5x#~(-'&wT!T6 T!Rx~ #~(M:P(:tQʉ>2nQÉ:R (H:Q< 8=2Q:kQ(:qQ(:rQ(:tQ(:sQ(xQ!Q2QT:Q bK=2Q:QQ!QG:mQx(2mQp(<2qQh(<2rQ`(<2tQX(<2sQÉ!R~ ʉO $#~N :mQ2mQ^F :mQ2mQP͎KN $#~O #~M 2qQ4I(*C()D د2rQ"M(D(I(C(2sQ 2tQ(!Q:hQ_:P (\(-(6:hQ=2hQ:hQ(~ 6++#6:hQ<2hQ+~#-!R͎7z6 6-~-(6-6 !R~ (A͎7:(OO:uP(͵K[-O:Q(<2QQ!Q"Q"-O:Q(=2Q*QQ!QbK!R͎7*-O"-O:xR mK!R͎7:uP ͵K*-O"-O"-O:xR mK!R͎7!:Sz${$!xR͒248Q*/Rn(A~`O:PO:uPG(O qsr:oQ~O *Qut xK:(OG ͵K!R͎7*-O+͏&͌&"-O!R~ (͎7"wP>2yP:P2tP>2P[/O*-ORxK> 2xR*wP:yP"-O*-O!:Sz${$:xR !xR͒24xK*-OzxK{xK*-OA:FS ((2P2P> 2GS!9S6 #[-O!:Sz${$!?S~ (#$!R~ Y͎7[-O"zP:zP*-O#"-O:{P*-O#"-O"zP:uP(  *zP͗B*zPPA(!R~ (;ͨ>(W!Rͅ!I Y͎7:uP(͵K|(<ĤK}*-O#"-O(#~ #~ !R #~(*-O#"-O> ęK!P~*-O#"-O#!R~ ~$(A8'[0#͒2~ 4(*/R~GKBLK͙Km:oQO(*/R~ _͆D(:xR !R~ (͎7"Q}( >2Q:9S ̙K:P(@J̓KK!R~ $(A8"[0͒2~ 4 */Rv(xK͙Km:xR mK͙K!xR͒248I2PX!:P(̓KR>2P:PF,*(2P2P:P >2PK:Pʀ!NS~ P| #+ T]# #& T]#~ xR~| $(08:8A8 [0#>2P>2P~([#2P2P~#,[#2P[~$(:.(6+(2-(.*(*/(&[("](@(08:8A8[8 a8 {0ˮ#~6 ͎7w{> SPR"P:P=_!P^#V~((xR ( #~= xR#~  yӯ2xR:PG:P !BDM8*P[P*P[P+!RKP[P!xRx : >|Ð!NS~# (''("(; +6 +~ ( O#~ ( #ӯ2P> !xR!w#!R w#FR!Rw#!NS~ p; p:P(~ p p; :p#~| xR $(S.W@WAAK[AK=~| ʟ ʟ,ʟ;ʟ ʟ:ʞ$(_(0AK:8 AAK[AKB#bkO#~+| $( AAK[AKy#~ ( (,(T]:;ʟ ( ( (,(#:P I:xR 7.(@AKQ!xR> 7xR!yR> !xR+6^#!QI:xR (B.(@ :xR!yR> !xR+6@#:P=O!P ~#fo> ~| (,( #R~ ( (,(;( (| #"2P"/SR:P~# ( (,(+"/S"1S"3S~| ; ,(? (; (7#_('(" ~ ʎK# #(+y" :P #~,( ( (R"3S~| ; #,(S (O (K_('(" *Q<,R > ~# ʎKH #(+A "3S~#,( ( (a{_!!~($#O~G#( ~ yh&~# ~(( ͎7:uPG>N#~I(+ͅ!͎7:uPG#~#N++X(Y Fy)(+(-( D!xx#6(͎7:uPGRBRCRDRERHRLM(HL)AAPBCPDEHHLTSPGAFXIXYIYEIERO(C)S(SP)B(BC)B(DE)MMQBCDEHL~#(( [(>N  ~ >I~# ((([()(](޷ # #~KGR#( ~ >Ch&~#(POPEPMSNSVNVNZZNCC!"QR  (o)o"^#V!R((( ##~ og"Q }ɯɯ""""""""#8#[#x#########$$$$$8$K$^$z$$$$$$PUS+SLj0IN2Oh.RLö/OUTR2RLC/RL0TITLņRER=0END*RRc0LDD҈,DA[/IM/SR0ENDI USINDDIM/RR0EXIT&AD8-IM/RRC60RR0ORMACLILCPDҬ,ADĵ,HALԆ/ELS ER,SU–-REH1RE1LDIv,EQALIGEJECԃDE/CCr/SE1NOЀ/Dɍ/IND02CPIҚ,Eɔ/LINFPO,IL)SR̶0EXTRINI2BЊ2ENTRMACR)Cж.ANA.LD,RET1EXf,DJNڱ1SÂ2Iv2ABDCPģ,I1EN@SB-OU92ELSEILDm,XOҏ.RET1RS1OTDm2Ju1IN.NEi/D IN'2COPCREP/Jҟ1CAL̹1CPɑ,SCy/OUT[2LISԀE<,VALUEX5,R/OTId2ENTESUBԅCPb/RL 0BI0COG> 2P')%)%d)% )%}0/}o|g0 z0(>02Pz:PDM~ (#+(-(.()(](*( /( (#+~!B(JH&O(mQ(P 08:0)8*T])8%)8"8_8D( | } ͎K7ͤK7 0820)8o 0880)8)8)8o 80% o{ D ; 08:8 A8G0)8)8)8)8o!V&(####N#F+&-&*&/&M&&&^&X&L&R&=&#&>'< 'B&S 'ɷR'&SP&}o|g}o|g}o|gͽ&|g}o z {0!ͽ&}o|g |/g}/o&#ɷR(!!ɷR(z8 {8z8 {8(۷R8(ҷR8*Q|D"P:O s *3S~ (;ĎK!"Q"Q! "Q2Q2Q[P!1R(F!u1R(C!1R(;!1R(3!R~ (Pͅ x2Q2Q"Q!R~ (9ͅ 2Qx2Q"Q*!"!!:R 1*PR :R (!*P~A):Q #:Q#(~#(~ ###2QG#~.)#W >_yK OxGz ~#o( :Q*Q:Q*Q2uPz8((K(U(y (Z(|)0(%*Qv2R(#\| }0(P,MͤKH| }ĤK}o7*-O{ozg++}|(<ĤK:uPG :9SUĵK |(<ĤKl7 Ox(:O([-O!?S:FS (!"-O:Q2Qy~ (##y$yA(*-O:Q_"-O>2OG)ÙK:O *-O"-O>2O?S*-O>0A#"-O>2O:O(:uP((M*-O?S:FS (####  (#y$yA:uP PA͗B(AARAARMAAMMRRMRRSANMNRN€SAB BATAI:IA2hXADRDSAFRFSDADRPFAFRPDN6PFN6PAEEAQHNTNPN€RHI*TIPIR IH"hXITIPhXTHXNYNQ!XIYIQ*IXIY"hXTXTYPPHPPHHHRRPMR#R+MP#+HM~#foMH|u#w-PDHDRRPFHFRRDPDHPxFPFHPxPXPYHXHYRXPYPXHYHQH G P RX Y QH G P RX Y Q PHHPGGQQSHSXSY         A M R SAAAMARN `ANƠF PAFD PADHHHTHP XX)YY)XPXTYTYPA R A M CAAARAMN `ANΠF PAFD PADHHHPHT R A M CAAARAMN `AN֠F PAFD PADR A M CAAARAMN `ANޠF PAFD PADHHHPHTR A M CN `D PF PR A M CN `D PF PR A M CN `D PF PR A M CN `D PF PR A M CD 4PF 4PP H T BX Y A#R A M CD 5PF 5PP H T B X Y A+ ' / D ? 7  v   F V ^A R M ŀCD PF P R A M CD PF P A R M CD PF P R A M CD PF P A R M CD P&F P&A R M CD P.F P.A R M CD P>F P> o gNANRNMCNDːCNFːCNANRNMCNDːCNFːCNANRNMCNDːCNFːCN hXCNCM D F N HCNBN HN hXCNC C C M EN sAI۠AOROCN `    N IA`OAOR    N {N ` Q ~$(^(3@((08C[0?:8A87̽2#Q!Q:P(~#~$(08 :8A8[8> Q ! R"+R!")R~^ >&$ >@ >08P:0 A8D[0@@#_y(!@(!(͌&*)R")R *+Rr#s#"+Rx 8AKy [)R*+Rr#s͒240t*M#"M*-R}|"/R:pQ_"-R*|QRژJ!w*/R###6#6#O:'OwKpQG R#w:oQ([Q#s#rO(#6#6*/Rw#s#rj4|7"/RN#^#V#S1R"5R^#V#S3R#y27R <O R # :7R[5R*1R[5R*3Rx<O! R# _!8R^#V+:oQ:{Qo&&}2X!kQ~w:oQO ,U!U6 U:{Q8 ! V+6 +6  2U! VwT!T6 :oQO !OV!`VT>2nQ> 2_!b͏50 :_ !_<"P~KpQO ͏58:*P~G~O V^fn####R8 ((*Pͷ566[-RR 7~~~KpQO OS!NS6 ~Vo +Mg %~oX U~(A Ew Cg Ry2^S!`S~ 8$!XS~$~$cS~O nf| YS!XS6*hS%> !OS~"X< f#n#@͏&6*P(͏&6*P6= :oQO7!_> +yDO:{Q0 !_.>@2NSÔ6*X!hS"X:X2X~_^ V z !NS %> SX:X=2XsuQ2wQ!"|P2~P2uP2P2P:'O2P~# .8(ʂ;[ʂ;-D8+(. $~#F#N#V#N xO yT z.>\D8+~ʐ8.T8$9.L9@P90!8:A9A!8[9͎K!"|P2uP{uQ*|P:wQ:9S ͙K2P~(ʱ7[ʱ7#~N 0#~U *#~L $#~. #>2vP~ ( #~ o:o:~7>2vP#T]~# ~. Q#~E( N E#~E ? #~Q 6#~. 0#~ +# ~(  #A A ~# o:#~ #o:z(ͤK$8S^#(*~08 [0:8A0[-O:(O(>2vP:'O2Po:+9J%>2vPo:>^:P~ 8*-RT]#~$( A8[8AK~$(08:8A8 [0#"zP@(!Q:P=O!P ~#fo> > ͒2͒2"zP40,>͋3*/R:oQ(~_66 !*/R:O :oQO(*/R~_ ͆D>n("5S:'O2P~(~2P>~ <2vP*zP LK*zP:P(:vP:;:P- &&2P:~P :vP2uP:P2Pe*|PO:uPG:vP(@x(((Iy-:;X:;:vP_:;:PG:P:;>2uP$:vP(y+:;>2uP:uP( y+(-:;yB&"|P~# .8)ʡ;]ʡ;+(.-(**(&/(".($͙K.8͵K!"|P>2uP:'O2P.82~Pñ7;ʙK2~P.( # #ñ7. [|P:P:~P:uP:P:wQ<2wQÖ7:wQ ͙K.8=2wQ:uP2vP:P2P2P2uP2~P2P[|PC|Po:&AND.^OR.XXOR.LSHL.RSHR.=EQ.>GT.4>~ (/ (5+~6 #~ ( 6 ͤ ͤ +> +(#6 w#~ 2jQ :jQ(602jQS~ #y Ny ( x8>yx8 >x yNy !SX#J>_y D= D= (:{QX={  :QG@>2Q>*= j=x8( '8(38ɯ2nQ:kQ!\U> > ##*P#"P> !\UyDW:{QOz!S6 #!lTO>  !\U!S>!S6 #KU!T> KU!vU!S0>!U0>>2yQ:kQ :P :P(1:kQ :xQ(2xQ#-<~# (& ( d> (O(=(=a=O(= (= (=~# (& ( ͞> (O\=\=a=O\= \= \=!R~+(-( .( 08:0#~#~ (E( 08 :0GNS>>~#N#F#qp##yx^#V###But##}|(!NS)@:P ':O !R!fX> !R͒240!KB:P(.!b[-RR(~ O:pQO ֯2O:PG:'OC:LWG:'OA!JWN s#ry2JW:V(A:LWG:V 7*V:VO R &:VO=2V!V ~:JW2JWAA!V~( ()@!V6!JW~()@!JW6#6#:'Ow:V((O:VG:'O [V R(!V~()@!V6#6#:'Ow"V!V4~O!V w"SXx2RX>2QX> 2PXVX!UX6 UX!R~ (y YX!ZX\X!PX)@> PX> *5S:'O"SXVX6 ~2'O2P!V~A2V!JW~PA!W~C!V6#6#:tPw*wP"V!V:yP 6)@`@J:Xo&)X~#V_3DS_>2X:X<2Xo&)X s#r:X(2X[X!^ SX^!^6[XS_!^ S_ S_ !"_!^ [XS_:X(2X[X!^ SX!^ ˻j&)X {O#F*XB(PY3DyO_!^^#Vz %[Xr+s{88< ͖C:X=W_SXVD!~#(V+^++~+ ##x #>2XÍD>2X[Qs#rsPX!R:P"J GX>M:P_!X"P*X~(JX 9#6Fp#~w#^#Vsr!a >O ut:P<2Pj [P ƒK:P<2P[P!`"J~ (;( ( J#~ (;( ( (XJ#~;( ( # ( (J[P!`"J~ (;(# ( ~# (;( ( (+X (J#~ ( ( (;J:` ( :xR (:O s :O :xR> 2xR2xR:` ( *-R*-R>2P!`xRͪG!`~# ( ~# ( (~# zI;zI ( >2P[/S ( (,( ( (S/S ( (,( ʆG;ʆG=(3,( ( ( (;( '( "(O ( (| w#= '(-"(),( ( ( (;( | w#6#FO J(w# [/S~ zI;zI#,( ( (+ͪG@J"3S"1S~#&(J~| $(A8[0~| $(08:8A8 [0w##6=#,( ;( ¦H~: :P½G#~(nH#~'(" O#~ ʽGw# #(+6&~ ʽG;ʽG,ʽG ʽG ʽG)(w##~)½G#~ (;(# (,( (+,  (;( ( 6#'(&"(" (8=>I;(/ (+ (',(#w#Ow# J (+6~: :P½G#~(nH'(*"(&#~ ʽG;ʽG ʽG ʽG)(~#)½GnHO#~ ʽG #(*3S*1S"(!'( H;H H H,HO (H*Q#"QQ>0B0 dB0  B0 !P!~( (# >*-R!BDM*|QB!"|Q:P=_!Ps#r#q#p*-R:P!P_:hQw{PÎK@JKɯ2XX!`( X< ÃKbK:P=2P!P_~2hQ:P_!P^#V#N#F*|Q "|Qbk 9:PGM^V!aF >62Q6!>a!> a!>a>72Q>2Q>2Q > 2Q> 2Q{X!:P(X!:P(X!:kQ :Q( :QG@  X!:Q(`@:oQO(X:Q(o&6(7> >a>K>L29S>K>U29S>K>F29S>K>N29S>K>T29S>K>P29S>K>O29S>K>E29S>K>S29S>K:9S >V29S>K>R29S>K>M29S>K>X29Sg:O(:~Q0|2~Q:9S *Q#"Q!ELV!VLL!jLU!LR!LF!LN!MT!%MP!IMO!eME!MS!LM!L*** Overflow *** *** Label Error *** *** Undefined Symbol *** *** Relocation Error *** *** Segment not Found *** *** Macro Definition Error *** *** Programmer Defined Error *** *** Nested too Deep *** *** Label Required *** *** Duplicate Label/Phase Error *** *** Undefined Operation *** *** Invalid Expression *** *** Statement Syntax Error *** assembly errors. One Two ABSRELCOM Oasis macro assembler ver statistics. Source lines input: Object records output: Assembly errors: Macro calls: Machine instructions: Symbols defined: Pab summary: Name Type Length Origin Assembly rate: lines per minute.  DATE=mm/dd/yyTIME=hh:mm:ssPROG=prognameINDEX=0000 COPY ASSEMBLE MACLIB ENDMPass Link to Copy from 9BH Qb MM/DD/YY HH:SS Page nnnnn Filename.Filetype:Diskname Addr Obj-Code Line *** Source Statement *** Symbol--- Value Type Line *** References *** Symbol Table ListCross Reference ListASSEMBLECOPY MACLIB PRINTERnLISTING  OBJECT ]_Z[\12345678MACRO  a a a a aaaaSYSTEM WORKA @Zbory  (+36<@CFMQVY`diuz}  %*/47:?BFILQTY\adgjmqtx{ 9?FSWZ_behmpsy| $;V\_sv(,18;>BEHKNQTWZ]`filpu{~ ,/25;>ADHMSVY\`ehknqt~)-03>AFIOSVY\_bgmsv| !$(+4QV[^adgjmpsvy|    # ) C I ` r w ~       # ( - 2 7 < A F K P U Z _ d i n s x { ~         " ( + 1 9 < ? B H P S Y _ c g l o r z }           # & ) - 1 5 8 ; @ C F K P T W Z ] ` e h k n q t z }     ! $ ' * / 2 6 : > A E T Y q u $+36ADGJNTW^a  ).69<?HMPVY^cfilpsv{~-08?FMPSWZ^cflsvy"%-0:?HRUZ^aehpsv#(;CVY^cfinqy|!$*.1@CFKPUZ_dinsx}  %-06:=@CGLOTZ`fms.69@CTY_chknu~ $)27<?Se| !$),/7:@HKPT\bekorux$<@NW^adknqty~ #,/37:FILRUZ^behkorux| "*-3CKS\afinu "%*-037:?BHKNSVY^fimps{~Scilu37:NQ )27;\ej 9Kclosvy  2 5 M S k ! !!!""1";"e"o"q"s"u"w"y"{"}""""""""""""""""""""""""""""""""""""## #)#.#;#@#F#K#_#d#j#{################# $$$$!$($,$0$?$C$N$S$a$f$l$q$w$|$$$$$$$$$$$$$$$$ %%%%!%>%D%%%%D&W&Z&]&`&c&f&i&l&o&r&u&x&{&~&&&&&&&('-'0'3':'?'B'L'R'U'['_'b'f'i'q'y'''''''''''''''''''''''((3(<(?(D(G(J(Q(f(o(r((((((((((((((() )))")'),)/)2)9)>)B)E)H)O)V)[)a)d)n)t)y)})))))))))))))222222223O3T3X3a3h3r333333333333333333344&40434;4@4K4W4[4^4c4f4r4444444444444444445 55555!5'5*5.565>5G5}555555566666"6C6F6M6R6Y6`6y6|6666666666666666777 77&7)7-787G7M7P7V7Y7`7c7f7i7s7z7777777777777777777788 88888"8(8,8083868;8A8E8K8P8q88888889 9&9)9295989;9?9B9G9J9Q9V9[9t999999999999 : :::.:;:@:C:Q:]:a:g:m:r:x:}:::::::::::::::::::::::::; ; ;;;;5;8;;;A;F;I;L;P;S;V;Y;^;a;w;;;;;;;;;;;;;;;;;;;;;;;;<<< <$<'<+<.<3<8<]=B=N=V=_=f======================> >>>>&>->1>G>R>W>Z>`>g>l>>>>>>>>>>>>>>>>???!?$?0?7?:?=?B?M?Z?]?h????????????*@0@5@9@=@B@I@N@V@[@^@a@h@k@s@y@}@@@@@@@@@@@AA AAAA&AAAMAQAUAYA\A`AdAhAuA{AAAAAAAAAAAAAAAAAAAABB BB"B%B.B3B7B@BLBPBUBZB`BcBmBpBBBBBBBBBBBBBBBBBBBBCCCC&C-C4C=C@CICQCTCWC\C`CcChCkCpCsC|CCCCCCCCCCCCCCCCCCCCCCCCDDDD!D$D*D/D5DJAJEJHJPJSJ[JfJjJ}JJQJJJJJJJJJJJJJKKKKK#K(KDKIKOKTKZK_KeKjKpKuK{KKKKKKKKKKKKKKKKKKKKKKKKLL LLLL$L*L0L6La~ (&(("~(((~ (5((1~ (((!>a!>a!>a22/~S(A8H02?G2.8#~ ~T G#~A0 ( 1ڍ5ҍ12G12: !&>a^#V!"3S( AڍHҍ2@G2ڔ#~ :.O: !,>a~ :((!>a~ :08:8/!fd~!>a2ׯ2ѯ2˯2ů22"2 ("2"2"2"2:>2(2!GOg0 f yLgx|y_0{:{|{}{P~ =():.G~<(: :G~< !M> a:(V:?2R:@2l:.G:12TA:( :2q:G:12nW ( Y(N >:.2G ! !:%?2M: 22O:( ͌!h:G ! :(Y( ke20<6!6:.!(2 ( !>!"~ ( #08:0| }(2~ ( #~ ( ( ,(#bk6 ! :8~(#ѷRDM + !É!0:waB}O[MR))) *s#r#6#6!.!"R>!2a~?(@(#( * 26?#2#/#?(#@(#(~A8[0  ~08:8<:(k~p2~O#~p2~Mp2!d8!d8 #< 0 Gy:#ͺ.ͺ::?OY N~ (O#:(*M"T:P [T!:.G ST~(<(:(: :(Q(I *P#"P} !O5 *~<(nfut##!ut*R#"R~ >w*Put*]8 ~(#շRDM+7%R0!D>a*R| !)> a:(D*R#)[Sz"V" 7%R86.|g:( |8%> :(<|82 [ ":& !D>a!_2.!!:! >A>a2$%:(͚& >2>12Q!| c : :.G! >Zͦ *z^#V#"z{qq:(6: 0!T]6E##6F2*[ Rl&[(> *6E͉ :( !a: #:.G!  !:.G! :*M!:.G {_Y !y:u A w!~(i!y \[V>A#~*V  >:(4#~ (O (n&)  !:yw6 6 o&ñ!!X : $:Y 9!Z . :Y(K: E,!Z~  #y(G *[ Rl&[(͸  ~ (O#:Y*n"T *l"P[T{ *P|+"P*V:.G2{STW*Vͤ [Tz*V:.G2[T{(~#fo"T|()R $~#fo"T|(}(6#6+!"T>2P!P>W*Vͤ $+~+!P5 >Ry ~   # ѷRDM ~ y($(  >y  *B [z /: )*6V͉ c 0!R#\*R8*B0 `iKB[x(͉ & S[S:ž:G:O[* 3::G:O[*2:G[ * # x GF:g.Rl&[EyN(Yʉ ʉ :_*"* "*: _:( R0*}2e."S:G! : :G:122:( >Ey :G ! o:%?O: _! G|] :V! :F!!'!&6:%?O< x2 _*R"SS"<<":%?2^$PFFF>2ʹ>2(>ʹP!d:!"V!h: *b#"bP:»](H<6[bR(P:»##~++P:F(7>2 >2 ?>2>[VSV[TSTSbP:»](H*T*V](P:](P:ʻ> 25>2  *:5=25( >2>ʹI> 25ʹ!!*T#"T*V#"V!P!mP!mÖ>2g(;!%>2>2  >2>2>2͆*b#"bm͖*bP!mP!m͖͖!"b!%>2>2(  >2>2ʹ>2 >2>2ʹ!C_^#V!;6 #66A ?˯I(Q(>ROQ0n(f)|(>2>?^B TAPE1 - S]mwnot readywrite protectedtape markcrc errorend of tapebegin of tapedata lateHDREOVEOFMount next tape volume - ** unexpected record ** ** Computed block count disagrees with label ** ** Sequence or section number disagree with computed ** ** File name mis-match ** HDR1ARCHIVE .TAPEFILE 00000000000000YYMMDD 000000OASIS-ARCHIVE HDR2F0409604096 000000TYPʼnNOTYPňVERIFٛNOVERIFٚACCOUNԃQUERٕNOQUERٔASˏNOASˎVOLUMł TAPE1 $UNK$nnnSelecting and sorting files. Attempt to overwrite previous ARCHIVE volume! files selected. Next volume is labeled " " OK to continue (Y/N)? Mount next volume on a(n) - Compare Error, Sector , Byte H, sb: H, is: H, retry (Y/N)? Ok to dump "" (Y/N)? at sector * * Source on drive S(n) Destination on drive A(n) Destination on TAPE1 Mount volumes now - Source disk is labeled "" Destination is labeled " " " OK to start archive (Y/N)? BOV: BOV: 01 Account: File: Syn: FBOASIS ARCHIVE version from disk volume 00ARCHIVE VOLUME01SYSTEM ACCOUNT #*27:=@FIORUX^bejr%EGIKMOQkt}")47=DUYcoy   "36>BKQWZ^ajmv '*1;@S[`hkwO V \ ` d k p t w      ! $ ' . 6 ; A F K T _ k s y } L b x    " * / 2 H R ] f p s |    " ' - 1 4 7 : = A cj{  & ) 7 ? G J M Q T W ^ c f m p w      " ' * - <  -:>BEIUXbempx{ "*/47=@CFLS[^gjx#&47BEJMPWZ]  $,2adhw g!&+1@GTY\`hmry$.<AJMPSVY]`dC!&)/29=AQgt &+27CQWlrux{~;RUN ver 5.6 27DEC82 Copyright by Timothy S. WilliamsA1p*I>! p(!B:?G[@>b1x2?l("l›"\T!!:?!2(:?!2(:?!!2^VSD~2Fnf"G!"I7 R!\ut ut#ut#!ut! ! 66!ut! utnf6utqpqIpJuKtL#ut66[6qp6(7+ut6+uWtX6+ut6+ut6nf+ut6+ut6+ut6+ut6+ut666!6#6%6'6-*I?6#!u0t1!Tu.t/6263?6;6<6=64 6V!KuGtH9NT]6 ~( ^V~ (#~((- ()>.~ (#~(( (>:~ (#> ~( $~ (T( C( !>aVnf6!>T!>a!D> a>! a[\RUN OVERLAY1BASIC LOADFILEBASIC2 LOADFILE+BMV_bgqvy5UZ?CREATE ver 5.6B 31MAY83 Copyright by Timothy S. WilliamsAbk7%R0!D>a>2~ !>a((~ !>a((~((7 !>a*($G#~+ (/0!>a0!>a2 ~((!>a ~ i͇(7r͇(6{͇(5͇(;͇(@͇(E͇(G!>a>D2b>I2b:b >K2beSceSeeSg>C2a ~0:*8z!>aO #> >دA[8 ɿ~ͣ ~ (ͣ( 08:8$ #: :a ! >a:a£!ͯͯ!Z ~L+0~L:b'*c|.R.*g|B:bDl*e|8R8:b!K(![c[eDMKc[g!02!*g"!"*c":bDN9*g}o"g<"!"*##"*R*g&z *g:e*c+g":bK>(>2!"*g"} | O<|O:bKN*JSS".0~:G[S":G !6:G[!3*+"| :<(!(!> !a>!( <( !~(~(> !a~(!".! ! ! u! > a!$>a!>a!>a!%>a!#> a! > a! > aDIRECT INDEXED KEYED RECLEN KEYLEN FILESIZECLEAR RECLEN 512 KEYLEN 64 B]p  ',47:=ADGJNQTX[`cmr $,/47<?BGOR`enr} "8=@FILO]bgjmqv{/9C?ACCOUNT ver 5.6 27DEC82 Copyright by Timothy S. WilliamsA0~d bk7%R0!D>a0e( = > ~ H((!>a~TPH 2c :Z > 2Z   #í  # ~C !#~ ( (= #~A8 I0 G2W :Z ( :c He1!>aY(%N ̀6Xe{e6eeeee:Y wd*U!d  ˾˶!d G !9P "T0~2Y 0:Y w*U>̀6j6{!d  ˾˶ 6!d :{G 6{!j:Y w*U> 2Z ~T(.> 2Z #~08 50%2Z :Z G: :Z %2b [ !&> aÂ:Z G;y2 B0:Y w!d ~ :Z G (@~ ~ ͠F#~+(#8 Pe !d 6 ! 5 Y:Z ! ~6(1: 2  :Z G 0!Y9! ~6  ( (O@ @ @ @ @d #n ~02x ~o&~ > d 6:Z G O@  @:Z G@>̀6{ -:Z G;y2 Pf (d % !d  $!d " ~! 5 S: w*E | :Z  :Z 1 G @#"E  >     ! 5555d :Z GO (@@ @!0:Y w*Ù6X !d (.d !G bk7%R0!D>a0~w>!d ">~# ( (+u~# ( (+#T]6 ~ ( ,( ( T]6 ~ (#~ ( ʉ~# ( ʉ+u:ݾ0~2bk7%R0!D>aÉ6!B] 2A(C( D(E }  (^K!d $(A8[0~ ($(08 :8A8[8 #:A()( K:CR!K K!d bk6 6  (9^K(  ~w67%R0!D>aR:<2w6  ʦ^K# :e !d e 6 !d ~ 80, , # !d   (^K | 0~8uK!d ~(!d  #d ?d !d ~# ( (bk6 !d ~X!d  ˾˶ˮ!d :XG X>2 ®!d ~(Pd o&> #~# (~ (>,~ (#> n&> !d # ͸͸! >a!0:Y w*UB:W2X CLEAR KILL Are you sure you wish to remove accounting feature (Y/N)? Will you ever require this feature again (Y/N)? SYSTEM ACCOUNT ACCOUNT HISTORY SYSTEM HISTORY LOGON COMMAND ACCOUNT COMMAND LOGOFF COMMAND SHARE COMMAND OWNERCHGCOMMAND d d Account already exists Account not found Invalid account name Invalid password Must be run from SYSTEM account Mode (Add/Change/Delete/End)? Account name? Synonym name? Password? Privilege?  Account Password Priv Id SYSTEM.HISTORY:S Page Time---- Date---- T Username Id Port E.T. SYSTEM PRINTERnGiu #*-03:=@CFILORUX^gr!$/29<AHU{~ (19@Zfoty|  .5;CWLQW_b<CILORchktyBEISV[`gnq}!$14:CFKOY>ASSIGN ver 5.5 23DEC80 Copyright by Timothy S. WilliamsA~ G* -  (~ (!>a!>a210!>a:0*}021   ~B &(&~ !>a3~ !>a>22~ G>(4#~ ( +/0!>a0!>a22> #2C:1G2%! ~( ! >aM~>  81 0O ~(!(  #~ (N#.~ (N#:FON# PCLEAR CONSOLE READER PUNCH PRINTER1 PRINTER2 PRINTER3PRINTER4COMM1 COMM2 COMM3 COMM4 TAPE1 TAPE2 TAPE3 TAPE4 DUMMY CON RDR PUN PRT1 PRT2 PRT3 PRT4 COM1 COM2 COM3 COM4 TAP1 TAP2 TAP3 TAP4 PRT COM TAP PRINTER COMM TAPE GORdq *1U@DUMPDISK ver 5.5 23DEC80 Copyright by Timothy S. WilliamsAbk7%R0!D>a0~ ʫ(ʫb:b08 :02a~08:8j!b~ ʰ(ʰj~ f((-#~+ ( /0 õ~Gڡ2af((!>ÝfT 2P¦#~ (#+~1858>122%2G: !&> a:b0:?~:j0:?!b͌S]!j͌*]R"_>D2(0oa >G:(!(;a<8!()!> a>a!!!!!!n(!> a~(~ں!b~ (#>.!j~ (#>::aG! $Pf !%!:50 xt !9: ;nf"]V ,~( nf))"_F nf"nf"_:[=2[':(!"*]> >(:aG*]v(& F R8~ F _ ^ &S<~ _&S8":!C~ ( !I*:>,> ~ (!>*8>,> !R*<>)> :58t#:aG[]! S]:[=2[':͡:͡*">:ʹ> ʹ~͡x= > ʹ#>'ʹ~ 88>.ʹ#>'ʹ> ʹ> ʹ ‘V“*_R"_™:50t!*Y#"Y6 :\ :581 2\:58 ;yt#t!#:1 G;y2[**"]|Ùͪ 80O:58"y*rw#"r t!6 #"r+# ~ TPRINTERn Sector Head=Track=Cylinder=Sector=  1 MM/DD/YY HH:MM Page tyrv',CHX]ily~  +/2:@PSXlqCaflq})8;EHLORV]bgl~ '*19<AHOTYe}<RUN2 ver 5.6 27DEC82 Copyright by Timothy S. WilliamsA1q*J>! q(!C:@G[A>b1x2@l(lœ"]U!!:@!%(:@!%^VSE~2Gnf"H!"J7 R!\ut ut#ut#!ut! ! 66!ut! utnf6utqpqIpJuKtL#ut66[6qp6(7+ut6+uWtX6+ut6+ut6nf+ut6+ut6+ut6+ut6+ut666!6#6%6'6-*J?6#!u0t1!Uu.t/6263?6;6<6=64 6V!LuGtH9NT]6 ~( ^V~ (#~((- ()>.~ (#~(( (>:~ (#> ~( $~ (T( C( !>aVnf6!>U!>a!D> a>! a[]RUN OVERLAY2BASIC LOADFILEBASIC2 LOADFILE(CNW`chrwz (HM@INITDISK ver 5.6 31DEC82 Copyright by Timothy S. WilliamsA~ (( !>a*(2&G82$~ o(( !!>a~ ʄ!d~B}2$#~=(&O #~=(O #~=(T #~=( }{#F2$0!>a>B2$>C2$>L2$>F2$2S}%{2Sw%{~ R{%{2Ss%{>S2${~08 :0 *~ !>a~2${~2${2Sy%{2Su%{2S{%{!>aW:$_~2$12&P~ =(:$G~< !M> a!:$y :$ :$!:$·!:$ :$c͏!LABECLEASIZ WQNOWXFORMAINCiSKEHEA_TRACsCYLINDEsSECTOBUILSPAR*DEVTYP: (!N>a06:$0  >:$Gnf :$G !( anf:$_~D_>!(  >f n "{%~ 2}%2%~ 2y%: 2u%>2$!($"0"$$$$".6T]͓f n #"2^ '^ '"4F1 2ʎ3 ʹ4 5 ͓6(7  % | :#!* B =2#*0###"0~j!(F 6##fn"~2:(#G!ͼ8~???2^###ͣ###?:#(ͼ8ͣ?###=*.8$< nf͗*.8$< :#¥: D_>! N( Y ʹ<͓~???2666~(:ݾ :ݾ :G~ 7M(!':#(*0͚0i :(!͚0H :*t!#:-  M4[$!'S$*0~(###'5Mʎ!':#(*0͚8z 6#6#6!*4 | 1 2 > 3% 2"t <E :"L[  -[2R8 g"} 8 T2} 8 C2Æi  -[4R8 ^ &{2^ &{2"<  '] 7###= : ! :#) (!*) (*0̓~s!] 6 #!a 6 !c 6 #6 !g 6 #nf] ~OGo&a 999i&c ^ 'X^ 'Yg >)>[ !&5 1̓###=1 ;y2& !+T]6#6!:O:G(~ 44### A~ 4###:2-! " :o& !+n& n& n& n  !,-./01234567 Sector sparing selection option: (1) Create an entry for sector sparing. (2) Delete an entry which was created. (3) Display the list of spared sectors. (4) Display the list of sectors to be spared. (5) Display the status of sector sparing. (6) Spare sectors and exit. (7) Abort sector sparing. Enter the option number - Sector sparing assignment format option: (1) Cylinder number, Head number, Sector number (CCC,H,SS). (2) Logical sector number (LLLLL). (3) Return to the main menu. Enter sector number (CCC,H,SS) : (LLLLL) : Hit RETURN key for the current menu. Display the list of spared sector (Y/N)? No sector left to spare. Hit any key to proceed. Disk read error - boot and sparing table. Invalid selection, try it again. Specified sector already spared. Duplicate entry. Can not locate the specified entry. cylinderheadsectorInvalid number. No sector sparing on the floppy diskette. Sector sparing aborted. No sectors have been spared. No entries were made. No sectors were spared. ( The status of sector sparing. Maximum number of sectors : Number of spared sectoes : Number of unusable sectors : Number of available sectors : Cylinder Head Sector Logical Sector -------- ---- ------ -------------- !>a$&͸$Y(N > 1"!''!'6:$_! ^#V ||||*}%[u%{ {8]Su%[w%{8]Sw%[y%*{%'[}%':$(:}%_:y%R= &R( 8 R(0 *s%| [y%! :$ *}%'}oB)))>o&)))R0& }oB)))"s%%*s%%*u%%*w%%*y%&*{%'&*}%:$($($8 %%( %F&͸$Y(N > H%> H%:y%*{%2'}2':}%2':$(>@2':$o&)))))iP"$!'!'~~#66:'w2$2$<2$:$B :$_!^#V WWWW2$2$<2$ :u% >2u%:y%( (>2y%!P"{%!"}%"%>2$!nf:$66~>L>pW(!(NT!(C$w<nf"y!(ut6|6666 n&F $~!kT:l0*y>p!kU N( F 4 !6 4>Pݾ(%>Xp~L!(N~ Sq#w*y66>p6q#OG : (!N>a%!yd( !2$:$Gnf :$_:w2 nf_:w2 2U#w:}%_:y%o&'!u t :}%ww:_'}2nf a2 :G*$͗̀8:&o[{%R86!($" $" ! T]NFq#p+##}#>2(4:0 >1*'6#6#6XQ8:_R:w2 aN(Y ͙6<:D_>!*#":<2 د2:(2͗!(F 6##:<2 د2*#":ݶ&*[ }$|%~ ":#>P''(_( !(͇-!-~!6#͛#OF !(C$6#w#<DG6#:G:w#[s#r:G*$:&o> >*>)> >nf:$>'͇:G:O[>' G>31 >2 >2R>#:2(: >Q: E(8[{%R8:=* g"xx* [* ]!51!:&o<2'45 :2MINI10 TANDON SEAGATERODIME DISK1 DISK2 b 1 @1  1 mlmfm6mlٶmfͶm6 Writing the hard disk boot program. Do you wish to perform surface analysis (Y/N)? (1) Perform short analysis (Approx. 1 hour for 10 Mbytes). (2) Perform intensive analysis (Approx. 7 hours for 10 Mbytes). (3) Do not perform this test. Enter the selection number - (Enter ECS-C to cancel surface analysis) Running intensive surface analysis on the reserved area. Sector: (Logical Sector: Bad sector was found on the boot sectors or the sparing entry table sectors. Above sector is found as a bad sector and it is marked to ignore for sparing. Sector sparing table overflow. and it is spared. Surface analysis completed. Surface analysis canceled. Error while formating hard disk. >> 41p!p!`">,'' 'Gb_(n f u t54 ~  6 4 ~  6 nf#utaSYSTEM NUCLEUS *0DISK READ ERROR ON OASIS BOOT. BOOT PROCCESS TERMINATED.*0SYSTEM.NUCLEUS NOT FOUND ON BOOT DRIVE.6!pu t8`~ww_~w!= u t ~?w46!qu t8`45(!q ~(<(#` # ~ ^#Vsrsr6`!u t8` '_ ~  2`nf[cRut>#b(.Wb!`b(bb#b(b#b(  c nf[cut! ^ V R8y$x%^R8&&}<#>,'cn f ä`b #<#%$&&> '' '_(!`!;a/W(~(#.v$:$ %*$:$, nfw nf6&͸$Y(N >:$1":$G!' :$( '!''. !''6!'~O~W#^#n&'':'w(:' O:'g !B"$&&R>( 8 o&)))R0*$<<R0!&:'?_&)):'?_R}2'̈́":$(:$G!' :$G :$G !' :$G!' ˾:$!'˾W !' 1":$G!' '!':$G!' :$ PX!'&'!'~ ( (u"(08:0#>8:'u" T]6 $A[8 ɿ'!'6*$&:'?(`'!'6:'?S$(!(6(=(/(!(6!([$:$G S$'B8 }(8=x:'?( :$G[$!( :'O:'???G_R"'!'70w>#w(!(6:$G!' :'?_:'0O!(3!!''6:$:}%(:% :}%(G!'~(#:$:}%(:% :}%(=0o{,_:$w*u%:$:}%(:% :}%(=0o,{_ :$:}%(:% :}%(O!' !'G!YT:w%(= :$:}%(:% :}%(_R0X'~ :y% H%A%X%!l%h&N%4H%:H%:$l&> Single Density Double Density Single Density, Double Side Double Density, Double Side Track: Cylinder: Head: Number of directory entries = Increment between adjacent sectors = Offset between adjacent tracks = Number of surfaces = Number of tracks per surface = Number of sectors per track = Is above information correct (Y/N)? Can't Initialize the System Disk! Enter disk Label: INITDISK will erase all files on drive A(2) Do you wish to continue (Y/N)? Initializing disk "i!(0V]`gjqt{ #*2=FNV` #)/5;AGMSY_ek{~3Rd 9OZ]dhnqw "'29>NRVY]ehor%)/5AIL\nuy}  "*-37;\_u|!0:KNX]dmv .17TZko #&+;@GKNQW^cforu1BJM`h +;Xdiq}" - !L"f"$$KaLC@FT'S#<Q_ru28 %6GRXv X !,kE  "N! j#&#"" "!!!![ bF z W$$####  s!z!!ZS-}g T v k' +#""" <$$$$$$$ 7%# nM$ $@ d~  xf$[$.$#$ $$####0L  `$($$##2"@ } Zc"@"9"(""s w$>$9$#####v#q#c#`#O#K#7#3#.###"">"""""""""""!!!!!!!!}!i!6!#!!! x p b lLE$ cu;q>LOGON ver 5.6C 14MAR84 Copyright by Timothy S. WilliamsAbk7%R0!D>a0N *~ ʓ(ʓ~ “~26!9!9! "0<6 !(6!a<^#V! 7%R0!D>a ^#V+z N :w! *~ "T]6 6!~ ( #08:0u~ ~ ( #~$(A8[0~ (Y ,($(08:8 A[#~  (+,#  ~  (#~ ( (##~ (u6N ! w#Nʚ>2!r`I!0!P~ 2( !a (N(J_(F(,ݾ(X!8 wOC(*z 8~#, z( +z( +~, =G $W>( !C!D2 w:> w: ! !~ &!0Pn6::/=2/ ~,( ( #~,( (~,Pn ~ (l!s`!6,#I(9(5_(1(w (22> 2! #!wP~wP~>( 0 !a`P~ 0>w(<! 9!( !4~  V(60<>L(=(>2/Ë10FN<<6U pq<U! ^ ): >(  ](U! ^ ̯U!!>a:w!=> a0:w>SYSTEM EXEC IPL EXEC EXEC IPL SYSTEM ACCOUNT SYSTEM HISTORY  1 SYSTEM MAILBOX SYSTEM LOGON  IPL tAehrx~ (q'/8?pN[s*9ERpgpw}+.1IX[bu~ W[_<LIST ver 5.6 27DEC82 Copyright by Timothy S. WilliamsAcbk7%R0!D>a ;y2 2 x2 ~ ʊ (ʊ  ~ ʏ (ʏ  i ! !i > # ! ~ N((&#~+ ( /0 { Gڀ 2 W N(… W NTINʼHʴFU 2 L 2 P h#~+A "W t ~0t :t _ zt S ~ (#+~1858>12 2 %G;y2 2 x2 : !&> a0t :t _ S W N* S 0t :_ S >2 ##~++H>(t W t 0t :t _ {2 #~R 2 +W t 0t :t _ {2 +Y >T2 2 2 2 0j !i 6 i  ~ N~ (#> ~6 (6-= >0==6E#6+~(ց06-D#60d84d#/ 0p#0w~ր U~!(g >0 + ~- #G(0)~# y(=7>.2y0 >.>0 y(>.y DO >0  o+* | (}(: 50+" : !i > d+6.+6: $ % ! : G: 2 : ( /C2 >! 4(F:((h(C6(XC ! >>V ?~>`(>@^ 0f>"((> ~?2 2 O: G 0  > 2   x2 ( >&o> a: (7:   ! ] >2 >2 : ( (( >2 ! 9: >:!i : GBPf !  !0 ͥ (%! ͥ (!( ͥ ( !" ͪ (! ͥ ! " >2 \!` ͥ ! " >2 G!H ͥ (!X ͥ (!P ͥ ! " >2 "!@ ͥ >2 !8 ͥ ! " >2 : W: e:  ! 6 ͰG  Ͱ OP(&T( R(E( X( F( C(Zy2 ͰG ͰG ͰG >  y !" ! " #6x > 2 ! ?(@(O ʀ (Ͱ>  > ͰGͰ G> ͰG xͰG> = x(ͰGͰG= > xͰG= > ͰGͰG* ~#" * +" | * ^#V! " : G !" : 2 !c^ 2~(%#(( ^ F#x(^ H  !c)  ! " կ2 * #" * R * RʁځS!6 !co VK C ( *  'B0% > B0 dB0  B0* >:> >2 ,  ! 6 d !~(>:*  :c(r(n!c~((( ~ (F(C~#( ((,/~#(O>,F#N#x`i( >-!BͶ+~,(#6 ! ÁS: (X~( #~#5+++w#5++6 ~ 6 #w+:h 61  ~1#ʫ +(0( -(     L : : ̲ ~( #N#~ (5++ ## ~ (5++ywO# (w ʫ {= : ( G   : 8 : +    : : ̲ : : ( G  :   : S    SͲ :h (: 58* | 1>2h : 58  : (8     : : * #"  6 #6 : ( G  : G!i ~ #+(O #! ~ ( #: ! ` 8G.! >6#= yO! : 8G y O! : G  ~( (N #        C  [ ((8XC >: (: (     : 50%G@ !: ( ya8{0 O* |(y +" 58|(>2 : 58%G@ ~ !)(, ((08:8"!>a!!!!!)DM)) O  #TPRINTERnOB< (4   $).38=BGLQ[`ejoty~ !)19AIQYaiqyASSEMBLEOBJECT MACRO ASMSEGMACLIB COPY BASIC EXEC PASCAL C CINCLUDELISTING Page  Output line size too small ?]`djou} %).26QT^aeknz !$+.5@qxO^fio +07=KRY\hmr "',/6;>CFKPV[^bilsx| *03<@Kai~$'*047=CFJNSV]`clovyjdvy # - 7 : A F R W Z ` d i n q {    " ( , : A O R W a p s x  % 2 C F <SEND ver 5.6 11JAN83 Copyright by Timothy S. WilliamsAbk7%R0!D>a~ (08:~( ~ H(((#~+ (// 2 ~ H(~ H!d>2x<<<22|֯2}2z22!"*"~08:0*#[R"! 6  **[+ Ã: !x!x:yʵe2{: A2>27~*(@(#( ?(  6?#+2y#:M:M<2:G:8! :?o&":o&)))#"*+"|(} [!:G S:_!~(<(#?( @( #( #~$(A8[0~0:B  !{: ( :|:}! (q~! ͧ.ͧ::GOY! (EN~ (O#:( ! 2! <( :   * "* ": W * ))"  " ^#VS:W:G: 2"^#V (!9!a~ B6*!:  +|(((+!:  +|((0 >2wc!0> a!1> a!9>!  - % (a˿((G(>(5˿0(1(:w( 2w:w(>>>7>:y(N!"u:} B: <! ͩ.! ͩ::GO~ O#>O!  ͝: W B:G[! 2>2!"! >W͝$[Sz0:=2 :G[z0! * "! >W͝>C! ͝  :y:z(#O (! N~# :x ->W  k*u#"ub ~/W&>>xʒ~ٺ $ÉفOG|(WR|0z( >>%8 ~g>~->>  > >>&xW总(_>{ >>x > >># x>>y> R"[! N#z 8ñ:4:!0!+:!2!&> a!> a! !!!>aEnd of File End of Transmission Waiting for Receiving Station Segment: Ok to send "" (Y/N)? Enter TALK messages, terminated by an empty line. Sending "" :G*:G*:G*!COMMn NOEOCOMCOMMCOMCOMMCOMCOMMCOMCOMMQUERTALNOQUERPUBLI ?X^clw|"'/27;@FIMPSVY\`ehot@EPX[beilpuz} $*/6>CHOVY`eknz+38?Gdmpv| !$,69>ADGKNT[chlw)16>IN]fmw!(07?FNU]elv?MAILBOX ver 5.6 31DEC82 Copyright by Timothy S. WilliamsA0~2 ;y<2!\96z zc *"""[zʵ! *"!]X>2!~ (#!!>;> ͣͣͣͣ!"[!S:(([z(! *"*6 #6ʒͣ*"} *#": *"Ò[! ![! *"Ò!5 1 ;q:V!6!"*"*"z!! ! [!!"!  ^#V+z({ sr!ut##[! !nf|( ##lq>:w!0:wSYSTEM MAILBOX  , on , at From ]GQ_bmrw| !-4;>CKQTY\dhkqtw{47=W]dmt&SPELL VER 5.12 12MAR82 LEXISOFTA+.+"^"^"^*f^`a!=ͭ2^ͣq!^~#_{:`=2_*> ,"^*2^2^2^2^:^C©S>?͈f m͗H>AüH>"2^*^>?͈ͼHS>?͈>2^ͼ:`&͘:_2^ͼ:` GO N:_2y2 2_/> O:^G:ͳ>͈Ty.́yʐR ʰ - ; ʼ6ڼʼ: _y  ʳʻ y   =^ =B =ʵ =ʰ =2=ʴ=!4H!H:^788~78+~?8 8+~?8#6 *^ͳ:^Fq͓:^<2^G:^G:_jÝ:^:^<2^چ{y2:`G:^͏ ï͏:^ڮz2^úJ*^6 *^ :^o$6T]?y2^2^#:`0y*7:`y+~#7#~+7G>ͬ :ͨ .ͨͣO CʛRʐI Sʰ : _yT ENPʳHʔUʥFʬBʠʆ>2^ïÒ:`=Ò:`?Oû:`:`=O*^*^<~#+ A"^ï:`?O:`=O*^*^~ !!:_<%2_:^^ >=2^^ y.V2^2\:^G+G:^<2^=rG}~qO+rɯ2^͓:J`O:^G>2^\2^vT]0:^:^~T]0 ͓#~+w#̈́z2^v+~ͩxK+4#*^, ͗H>ü:^v=H=x=ʢ=ʴ H͠H xxͨx ͠âv~^ô~ ~  ͍ɷ~.?!~ ~+4~#,v͠ ̈́z2^: _@2y2*^  ͩ=xT: _T2^: _@>`>2^:^Ax2^yʍ~҂~͸#,+4~Ҙ#,+4~+4~ ʨè~ :^y怮wxT*^>2^>͈T2^ô:^2^:`G:^O:^:_2^*^:^m>2^2^ͼ?G:^2^?,"^͗ ,T]?,"^y2^*^,:^o҆$G: _2 _>@G: _2 _võv>Am"^ï4~#++~^,~#,~^: _@͏*^ z2^ͼ*^+4#*^:^2^:`:`/2`?:`G:`2`:`G:`2`!dGͣY REALLY? (Y/N) A?[a?{0?:tÄͩͮ÷ ÷: _ č *^$ͼ v͇"^x`i"^*^*^w+ y}"^*^y*^%"^> ͕*^: _  ! 7*^DM*^$"^v͇"^*^}*^T]/A _G *^#~ }M "^x2 v>A*^͸ *^*^?! >͈*^"^! GͣỲ 7CLEAR HOLD?(Y/N)ͳ! 7 NO ROOM HOLD EMPTY *^+~+͏2^k :^y *6͏*^+~: +N:_G͖ k W:`_zk k wG^ *^ͣO͖ G*^]T6#p#6#"^x2^*^ ÷+"^ͣ2^*^ >B2^*^͓:^>v >v ͏*^2^:^ *^G~͒ *^+} X "^>H2^*^͒  2^#&͘>͓ͬ= G͓:^~O:^> v ͏*^J 2^ #2^͗:^f :^=2^s:^͏*^ ͓ :^=2^ò:_G:`=:_:`G:_ڮ ͈: _ډ 72 _:^>v >v ͏z2^>B2^*^Nwʅ y#y >͈*^#"^Ͳ*^ z2^e 6#¬ *^| !"^ !"^ 2^2^ G>͕͏*^,"^ͣ2^*^͓ z2^ >"2^*^͓ :^G:^2^:^>: :^O̓ G:^xH y2^O:^O:^Gy2^:^O:^O͖ W:^~҅ ͓> FwO:^<2^j#v :_G!_~ҳ ʳ #ڠ 77?  2^2^ͣ2^ b:^O>2^ ~ ~ 6#q#6#+~++ #~#~2^##:^O:_2^~ګʽ  ʞ,H6 #:^#+T]~ ʎ+~-}} V 6 #:^<2^ # 6 #:^<2^ +~#6 ʚ6# 6 2^# +~ڽ ʻ# 6!#~*^## +:^=2^###++A:^==2^#:^G,x$~    #7#,,M+~I G# 6# #:^~X>2^+#,~| y#i#~2^: _@x<ʥ*6 yڭ*^~ʐ*x<ʥ å:^~7w*T]w #AWQzy<*^*^"^*^o.-66606 6ͥ *^~j*Ϳ"^y|ڝ‚}ڝ~# x‚y‚y‚û + +~+ x£y£y£~ ##*^ "^oT]#T]###T]T]*^#"^*^͍"^: _@>dIx`2^*^+"^*^X66> #6=p"^*P`͋"^"^l+6 #>6#=‘6#> > o:^o:^ұ=g:_ o$*^|}#~++~#]FG+~*^#p>?!'ͥ>ͬ  {OzG,~#,~###~+++GG#,+~Q+++~G G~f Y#,~ k:^GG{#,+4#,ͣ2^*^͍"^+~ʸ ʵҤ+~:^O:^G:_2^:^2^G:`Oxɯ2^ý:_<2^ý*P`_*_͜:_O ~#~#q#6#,*P`͋QEͳ7l ͸ ,~#Q +> w#*^,͜,zŠ{ʐ`i"^>L2>*^DM>Y>>C2>>:^O:^O>Y:`O:_>>/2:^>12<2OOf|/g}/o#z{ůgoWYx/ 9)*CA}o|gG DM>W`i_'͉͉d͉ ͉}02C}ʔz}`iʄ{z> 2>02=ʹì:`G )+|**^O:^Gf>.22^:^2^:^O:^_*^ |^:`g}^%^2^:^g:^2^d:^d:^^:^ :^ʼv2^:^n2^: _*^wͣ2^:`=G͠2^2^: _:`:`Gf͕`:^G*^:`G:^:^=Xͣ2^:`Oɷ͝=x:`=2^͒>͗ :^k:x=͠:`G:^N:^O:^ڱO hhZڃu>-2hÓ > Œ><2ʓ ʟҤ>2^2^/ 2>>2h:`o:^g:_<O:`Gf>.2s̓: _2 _fOvʈ Mv hhͥ :_XyO>@ q#y2 6 ky 6x > 2͓+ x ͓+È f7?fa{_ͣYa͊&s=.:^g2^g+|: _3:^f: _2 _f: _2 _f: _ U:^GfYfxY>: _2 _>:2^͆2^:_/2_f>^O!`xʡ~x#Òy~y!`·f!>`##=~y y: _ȯX`:^U`͌:^<2^!^o$w:^ 5!^~:^G=2^#~+w#(U`5͌5: _2 _> 2: _2 _> 2>2>2> 2>2>2>2>2s͝s> 2>2~һyH# ñͭOa͋:`?:`OOfOOf:^Gf:^G:^OfOfPO:^yB`2!@`a#~##Y:`‚`axzy͂=͋z={Â>`ɯ2^:`02^Af>`>`:_>2_͹!"ͭ:_!=í: _!ĭ*INSERT**CHAR**WORD**SENT**PARA**MARK*EDIT MEMORY FULL OFF END SPELLBINDER WORD PROCESSING SYSTEM V 5.12 SERIAL #9I-42503 COPYRIGHT (C) 1978,1982 LEXISOFT, INC. ![HIT A KEY]!`]?ÛoY>2^2^͠>2**^|+*^,"^: _G2 _x?>2^?aͼ͘a!=ͭͨ>2ͯ:^ʈf2_!\͗O>2y\2^>2^:`:^1?Oͨ2^"^"^#}+}#"^|͕!S"^*^  _OP& "^"^yP2^O!f ^#V2^_A[?>:^<'8Vc:6@A@2^fï*^+"^|*^"^>͈>2_͠>2 |7}?}:^:^:^R#!2ͭJW͝2FREE:^v͠ J͹ M>A^ >Ak^v͇]T͠ ʱͫ ͇:^<—xڗK~©+~ ʩ#>A~|#|^>O:`G:^:^:^2_͜*><:_O ':^ʺʺ^:^#̀ v ͇ͮÛ^ ^d*^*^:_ o\$J 'Kw͜l͜>A^͜>A͢>A^>2^f>2^:^#!S"^>2^f:^ ĕ`U2͒fk:`G:`G6  > 2nB {ͼ3͗ìE9?_Qz4 {$ &#T  ?2$ A yͣ0Oy7$ c $ #c _ HIT RETURN TO CONTINUE, ESC TO EXIT :^O:^Gx~ ë G~ xº #,v͠ ë )!!#DM - + 7 !>!>!!x!+!-!! :!/>!*^}[!?ʏ!!ʙ!$ʭ!! ʌ! ʌ!/ʌ!0! !)DM)) O |_!7vn&!v >A!͵!!/G&:_o:_o:^o*^m"^*^##  /7 !SET TAB STOPS ^f͹͕`":`Oa==͋='"!!ͭy<̓:k:`W%#> K">X2 A"̀":`Wx"> f">*2 \"̀"̓É"y y":`k ʴ"""#ʬ" ‰">2^:`=":`=ʉ" {É"yʉ":`" sÉ"/#> ">X̓2s͋f̈́Ҍ"0#> G!_w#6" " #>2_"!_~#(#%#F#yNw#6#!_6#~+w#F#7*^ͳ':^u#u# u#u#^9:&G:^ʼ#*^~ D&&*^͋%"^&*^~ ¶#xG͡%"^vx2&#~##$>A"^x>#$A:^$$*^+"^+|$xʼ#}BqBü#&7,̀8~9$:^ ~B$#$$xN$+$#~^$, ͔$ʁ$~(Dʂ$ ʂ$$ʊ$ڴ$#R$x7$~ž$ x§$1G~1G~xʆ$$#R$Æ$=$=$=$~̈́?t?~Ä77## R$&x̖&q%&&%̀%yG*^H*^&8%w#,%xD%R%R%2^A:^>o%&~>o%~#_%>ɯ*^>~# Â%~*–%xG#~!¡%xG#~\ &ү%>/+<¶%> -&#/¡%>~%#%6%% &G&*^+#7&%~%~p##y*^~# &#~ڡ%#á%4&x?G ͨ͹!&ͭ*͒&*͋%͹!&ͭ*&*~͡%͗͹ ¼#xGü#>2^*^A͹!&ͭͳ͹7!^`**SEARCH FOR: REPLACE WITH: REPLACE? (Y/N) ! W!=ͭ:^'2_'j+j+ H'<+Y': _ č 'Y'': _ č : _'*^$ͳ'͢*^y *^"^>0+|g"^"^*^0 +~³'>  x©'*^l*^>A2 _͢0~#'~'l>A*^"^"^>2 _: _: _>,̽0:^(2_>͕0:_J+=2_!"^"^#"^͕"(:)}(*^#"^:_>(>2^fʬ>(!\͉(\Ϳ(;—(> w# %‰(+aҷ,A+Oy)(É(\z({y7((|(>-y= <=(O|y(0)%›)a>-A&,!=A)8)V(`í)V(}( o)])  DMq)+T)-T) q)͌)~#fo͌)s#r00_O7*_E*Nq/*A)x)))))V(*^"^)>(xx /Gy/Où *+*-*> *^#ѯq/~_G_G#1**ú)I}*_N!͘*! ^*̓;ʬV(%Ga*-Aҕ.*V(x́)V(P'._R!}(͘*V("͒ͬ*͗>2ͫH"Ϳ*ì*222!\ʬ\  A)`i"^V(!^+ͭ*^MDW!"^"^: _*^|M+"^DM0 xī 2_2^2^>(: _  'M+f!"^"^>2^ ERROR LINE: _ č !S"^>2^O2'v͢>A!459~+*^~#µ+0Y'>A'ͼ3'+w#++É(A,G>d0!o+$+2^o ,$+|>0>0y)}+!=!!F,}(h,V(!W, Ovj,>AV("r,O:^=G͐,ڈ,ʈ,w#w,6 #, عGyx ,7?a0ͥ,,É(,.6-#,.:^G:^G,-,x,,O0w#- -6,#-:^6.#O0w# -ͥ,\!\o-V(ͥ,!=!!^-}(o-V(vo->AV(!+ʂ--‰-x/G!t->:^O:^O.ʱ-,ʕ-̈́ұ- -:^-Ö́>0- ¹-̈́-!!:^Oo-$-0+w -y-+6 -x.:^O . .+~/  $. w F«._L{.AI.I.\.V(!%ͥ,!:^O + u.  f.A)yA)2^y2^V(+\!\ r,V(S'/_Sʯ0Gʴ/P/Gq/xL/E.FA):^Gy ~.6 # .+6 V(~V(w#.!%!#/́)V(Cˆ/>2^_PE/M>2^:`=G:^V(>2^V(!%!!%7?A?+7M0_CA)*^,+#~ڬ/ />AV(!%+!%/n&́)T]#:^=OoV(!%+T]:^O o6 !A)ywV(R<0_K!%&ó)V(EA)`i"^*_Ea0>2^C!"^>06# xx0G>d06#0Gx2^>2^>2^}(!>+o0V(0=o0 *^#%%o$*^#!0͢"^w#0+lH'RO/INSTALL.WPM :ON $0 / /+1 / R/AL :IN "#0/#6/NEED INSTALL.WPM" {H91:^J1*^+~/22 ͨa`iͭ!/6ͭ* »1~ /1:_ʻ1W:^O:^G͈Uzʻ1O1{89q#pypy2_!=7~/#~#̈́0G>1G1a{_:_g:_g:_2!6ͭ:_g:_$2!$6ͭ:_$2!H6.2!O6ͭ**^~#!:2+> "^v1)6X2$6:^_01E9͌Sq2P9E9?_Qzʍ2P9!o67!;6>:_ʢ26:^_01:_ʹS2͜S22^:__Tz 23:_?_Qz2>ɯ2_z!6 ʞ4Û432_3!6z !o6@!c6!S:_Wʹ3_͈U:__W!S͈U:__T>2^2ͼ3K3:_1?@_Qzo32_!6zʞ4Û4:^ʬ3:_W_!S͈U:__T:__ʹ3WwV:_W_!S͈U:_Wʹ3_wV2_:_@E91?@_QP9Û4>2^:^3?3U2^͢>AE9U23:^G!4x*^"^*^#v]T "^"^ͳ*^q4xq4 2^:^E3ʙ2^:_̙25v͇:^G.5 ':^2^~x<@55Vo5:__^5?_Qz6# 4G5G545:_ʈ5z҈5  :_͘5z ̣5z"ʡ5'x#~+ ~ ʸ5 #y¯5 +:_+~ 52^#~5#~2^##:^O :_?_Qz6 5:_?@_Q2_›4!6Þ4WRITEREADMACRO FILENAME>  FILE FOUND :OPEN :CLSD  END OF FILE DISK ERROR NO SUCH FILEDELETE PROTECTED NO DIR SPACE DISK FULL>2^> 2^:^ʬ7H8^E9U26:_̙26:^G<ʆ7E9!v͢A!4A 7x6 '͜+07?78?77,#~7 07#~6͜:_.5w͜vq7͜y7`i`i>Am͢A7BK 'E9ͻ8E94:_̙2ڬ7!:_1E977͢A!4ý77DM '͢+~ 8#6 #l7K3*P`*^*^ :Q`g:^.PD8g@gKwE9c8?@_QP9:_?@_Q:__T2_~:^>2^E9ʮ8>A7ͻ8ͬ=v:_7å8v͢>A,84E98͢+~ 8#>A!4x8><͸ >A:^*^|>2^E9U29> 2^:_̙2'9:^!_po$:^89~59w:_<*^~_Y#:^u9#~ }9/*^RC:^ʠ9RCf_!=ò9f ͨ_!> H:͢:>2^~9k#>!ͼ:͕`> 2>ͼ::ڽ92^>2^͌:}9̓Y: ½9 :> : :͊k̓ +~+~̃+~8:#2^7Ã͢:Y:N:~d:k#ͭOon:$#>ͼ:x̓:͊kOW* 7a:`O:`>k=´:={ü:Q;:;&;U*6.#6Y#!_~B;#::6 #6*^"^͏*^>A*6.#6Y#6T#!_ :*6.#6H#4_w# 2;+:&o> (͚?> Lw#4=~#c;6 #m;~w#v;f!4_dl;_!_c;#4_cc;> ~ #²;+7v!_;*`%;~##;;yy <<;w# ;O;!;  K:_<2_!__v;:^2m^2^y͞<> Ly/͞<2^!__v;ɷv=Y9ڟ=:_:_:_:_:_:_:`=G:`=:`GfCOMMAND: INVALID ENTRY LETTERSNEXT PAGE? (Y OR N) PRINTER TYPE DESTINATIONPRINT ROUTINEPRINT LENGTHFORM LENGTHPAGE EJECTLEFT INDENTSPACINGJUSTIFICATIONLINE WIDTHLINE FEED SIZECHARACTER SIZESPECIAL CHAR PROPORTIONAL MAXIMUM SPACEMINIMUM SPACETOP TITLE TOP SPACINGBOTTOM TITLEBOTTOM SPACINGODD PAGE FORMATEVEN PAGE FORMATPAGE NUMBERODD PAGE MARGINEVEN PAGE MARGINTOP MARGIN:_G>ͅ`ͽS:p^_?>2p^?2l^2m^2^=2q^2w^>2^>2^:p^2p^_?>2p^?>ͬ̓?ɯ2^*_*u^"_?"_"u^:p^x?>2^L*^~ @/#?"^+@"^~6 :^2^sD2^wD<ͩB:_nB<:^̬=͙2B@r?!a@"`*_"_2_W:_?_Qz͎@>2p^6r?*`|͎@E3!"`:_*_"_2_ͼ?:^x?f9@>2^@:^ʼ;x?B@@@>2^@͚?]J9:^3@ @ ?:^AvAÒ8~A9@B'A AAx 4AA2n^2m^̀8~A9@BaAsDdA>AxA͕ABAa!Aͭͣ͹ASAEBA>2^BATYPE: S(STOP) E(STOP PAGE END) OR TO CONTINUE:_AD<\B:^f:^fC:^ AD<͌BͩB:^BBA:^?BOfm͘HBA\BA:_}BqB:^͹nBͬ=}B̓;!z ͭ:^ͬ=k<>-2›BkҼB:_ K> L:_> LC K+~# B~.7?#~_YRCRʖCHʋ;SBA+##T)CB?CCJCEC7?++x7> K C2CBC)Cy7> L 2C~ 7B>2m^B#~_S̃C!_ToC!_ yCw#oC7!_$_v;#~+7# 7#ÖC]JY9:_DOCCy:_W:__zC{G:_W:__C!4_~ #\C~\C#:_O:_G:_GyG:?`O  <:^O<}G:F`xI͒*͎EͽIPD͊KK:^>2͗ڑD:^> L1D1D:_ćD ȷ=yD> K>¿D͹!D LINE SIZE WRONGHYPHENATE: LI+~!D#,*~#(DD#D+ !D+a͹!DͭAʙD*~2#EA:F`w2sfʬ WE?E ExE#~+w2# ExE+~#w2ss+ ExʆEʆE *~# oE͹ͬ=LI4D>2^wEJ2^FF®E> *F ʡE-E(DFW*Hz*FE`GE͍GE> |G> áE*H>-*F>-ÝE>-́G*H:F`*F:F`>-O/- yF:^WyObFbF„F͘GlF> &Jx2~^y2}^2z^ ´F:_:_¬F͎I:_͎I+#~ ʾFʾF~#~##2^H~#G:H`xF:l^/2l^FͫHG>!F^F @G~̈́#F++~# 0G̓HF(DG:J`xUGLG#:F`|G-F>2^2n^> ~ ?++~## ?7> ͮGOOҋG>͘GÅG^H:^:_=:^:^ G:D`¼G:B`G:l^xG xG*y?> SHH:^G:_H:_H:^HuHO:>`G O:^G SH=H͊I|}+~͊I:^O<}:_ VH :_:_:_ lHy{ozg_,:_WʦH~#ҏH++~#¦H7çH{#7?g/H>2n^|7>#8J~#~#:n^2n^HHH!70YI1I:^.I:^G:_G~ .IF# I:^2^:^2^]JG"x^:l^2^:^2^:^2l^+~?G:J`xYI+~چIʀIpI+~ÇIx7*x^ ʣI“I ÓIy2^*}^͘GG "{^:^O*{^͊I|7>Jy J:z^ 7?J<,:^2^J:^>J:^?>7?:_2s^:!_2r^:s^2_]J:r^2!_Ha?Ї!0`oQJ$~2^#~2!_Y9J:_2^zJ:_2^FJ:"_O:^G> ͫJ2^:#_O> ͫJ2^:_2^2^J O<J,}:_2^:_2^:"_2^:#_2^!:`oJ$~2^GJ:^^H=>QQQG> L> LKɷGPK> L(K!PKPK:m^*}^͊IxkK!`izKxgyo:^O<Mѯ2m^:^ʙK^HʽK:_ͤLKG:>`O :^O<:^!KKHjQ:^HK:^jQ:^O<}!K:^:_͌=G:_:^MMXM^H OXMH!L@OL`-LJULPf BJL AJLHJLM02 _aڤLL ҂L*`o G~L#po*`oҐL$͖L~J#˜LG:q^x2_FJ:^:_2q^o*`ToL$^H̖LG:w^x2_J:^:_2w^LGM:^xM^H=xePQQ {2 9M >M HMs> 2>2>ì>2L MM̘N> N2t^:_ͤL3Ky!K#NLG xڑMM |M MMM#N:t^=ʯM:_L> L2_͊K>2t^iML|M!KO|MfHCH!KGN:t^Mx1NLx> LxqNL: _:^:^/2^>LLG:^xG: _xqNOx^H_N*`~fN>2t^xyL>LxG: _O>_ >/ >- x7  G G7^H"^>NyNCHONN*^N#~ N*^N~<Nw N#~+7?No$gHO| NO3KKG*}^:^G:^O *{^͊IxBOBO"g^*b^*i^uHuH?2f^*{^*g^|7O:^O„O2f^ÍO<eh$"`^fHO:n^O:f^ʶO*g^*b^"b^O2d^7P2d^"b^ɯ2f^O:_H*b^:^HG >P:!_:^Px!_F oP$:^P>O:d^GyO2d^OxxL:f^IPUPeP7P*`^+"`^l&jQ7P ڇPҾPvPQ"P2e^o&jQʪQʿQʲP Q9QZQ P -Qj`:e^o&tQ j`G: _xPeP!jQxQtQPgqNx|vPxQQ:^o&p`ɯ2b^2c^2d^2e^2f^fHȯ2i^2j^> J:^o&p`:f^aQLQp`:^o&:f^@QLQp`:f^~QËQ:f^ʋQ~Q*b^"b^~Q*i^*b^"i^m`bHGs` Q!"i^bHGv`!͔Qj`O[`a`{:`7SSQy`)STTvT TQ|`)STTµTÁT3S{?_{7{@1> 2^}6:^_01PSʹS}S͜S}S:__Tz2:__T>2^2_BʹS͜S_7UzͽS7:_͌S@!62_7,UͽS7!SDEVICE NOT READY.BACKUP .WORK0 .WPM .WPF .HEP =U~T,Tbk#o%T$<^T_U=U6#6#@T^T=U6_UFUUsT2^*^!VF*^!\8\W!:W*^8Y͹BI!9VW:WG~2Wp W:WG~2Wp ~#fo0}@o$<1fr?VR`ËV:^LWXWNO SPELL COMMAND oYoZV!E"E>>2F͛Y> 2^Qx2^2ͳY2_2_2_2^!_Y:W!P`Y:WYR02S2l^2m^>2p^7~ #(³Y#~ ʽYY5WY5W~2^SPELL DATA SPELL IOS )0369=@CFIMPUZ]ehkorx{~  !&+369=@CFKOUX^chmrw| &+3;>ADGLOSX]dhknrux{ $),/38;AFKPUX]chmrw| "&),/4:>BEMQTWZ]afjot{~  #&).159=AEIMQUY]`cfjnrvy} "'*-039>CFKORU\adgjnqty #(,036>FJMPSVY^cfilpx{~   $)-148<@DHMPSVY_       # ' * - 0 3 7 > D H K V Y ^ a f i l o s v { ~      # ( / 3 8 ; > B E I Q \ ` c f i m p s v y |         # * 1 4 7 ; ? C F J M P S W Z ^ a d g k n q t w z ~       " ( + / 2 5 ; > C G L O R W \ _ c h k n q t ~         ! % ) / 5 8 < @ E I M R X \ _ c h k q t x ~  '+05:?DKOZafjntx{ ).15<AEKOTY]`gmrw $'+.38TX^cgkx{',/27:=DJNX]`ejux|&)=@DLUZ`dhptx|   (,148=@CFIMRYpsw} ,17?Olrx~ %*-047;>CFKNTY\_beilotz} #).48<@CGKOSW\bflqv{~  !',16;@EHKNR\bfky~  $(-04:>BFJMRZ_iloru} !&/6:?DHMRUZ_diow"*.59>CINW[dglosw}   #&),28=@CFILORUX[`chknsy}  #(,037:=DMU_dfhjlnprtvxz|~ !$'*-09<?BEHKPSVY^afilotwz} !$'*-0369<?BEHKORY]ehloruy|       " % + 0 7 ? L O R Z d l o t x !!!!!!'!*!0!7!?!C!I!O!T!Y!c!i!n!s!x!!!!!!!!!!!!!!!!!! " """"" "#"(","/"2"7":">"B"G"L"Q"T"W"]"b"g"l"p"s"v"~""""""""""""""""""""""""""""""""# #### ###&#-#0#3#=#@#N#S#V#Y#\#a#f#k#p#s#v#y#############################$$ $ $$$$$$%$($1$4$;$@$F$J$V$Y$a$d$h$k$p$u$z$$$$$$$$$$$$$$$$$$$$$$%% %%%%%"%%%)%0%6%>%A%E%H%K%N%T%Z%]%d%k%u%x%%%%%%%%%%%%%%%%%%%&&%&+&/&E&J&M&P&S&V&Y&\&_&c&f&i&l&o&r&u&x&|&&&&&&&&&&&&&&&&&&&&''' ''''''"'%','1'6';'@'C'F'I'N'Q'T'W'Z'_'b'e'j'm'q't'w'{'~'''''''''''''''''''''''''''(((((( (#('(+(/(5(8(<(?(B(H(N(Q(T(Y(](a(d(h(m(p(s(x({((((((((((((((((((((() ))) )%),)/)2)6)<)?)B)I)L)O)R)U)X)[)a)g)l)w)z))))))))))))))))))))))))))** *****/*5*:*C*G*J*M*S*V*Y*\*a*i*n*q*t*x*{*******************************++ ++++++!+&+,+1+4+7+:+=+B+E+H+K+Q+T+Y+\+k+p+s+v+y+~+++++++++++++++++++++++++++,,,,!,',+,1,5,;,>,A,D,M,R,Y,],c,f,n,s,y,|,,,,,,,,,,,,,,,,,,,,- ---'-+-.-2-5-9-<-?-C-I-M-S-V-Y-\-`-d-j-m-p-x-}--------------------------.....*.3.8.<.@.D.G.J.P.V.Y.].p.x.}............................/ ///"/%/*/0/9/>/C/F/I/N/R/W/Z/]/`/f/m/r////////////////////////0 0 000 0$0*00070:0?0F0K0O0W0\0_0d0j0m0s000000000000000000000000215191>1A1H1N1R1U1Y1^1a1d1g1k1o1r1{11111111111111111111222 2 222222!2%2)2,2/23282A2I2M2P2S2V2Y2]2b2e2h2l2o2r2z2222222222222222222222222222222233333333#3&3+3.31353:3=3@3C3F3I3L3P3X3]3a3d3j3m3s3w3z33333333333333333333333333333333344 44444!4%4)4,42464:4D4G4J4O4S4Y4\4a4d4g4j4m4r4v4y4|4444444444444444444444555 5 555555!5&5)5,5/525=5E5I5L5Q5W5\5a5d5i5m5p5x5~555555555555555556 666666666666666666666666666777777!7$7'7*7.717=7I7L7P7W7[7_7c7f7i7l7o7u7|77777777777777777777777777777788 8888!8(8-81898I8L8O8R8U8]8a8d8h8p8s8w8{8~88888888888888888888888888899 9999 9%9(9,9/96999F9J9S9Z9a9i9m9r9y9~99999999999999999999999999999999:: :::: :#:&:/:6:=:B:F:L:O:S:^:a:e:k:s:y:|::::::::::::::::::::::::;;; ;;;;$;';0;9;=;@;M;R;W;Z;a;i;r;;;;;;;;;;;;;;;;;;;;;;;;;< < <<<<<"<%<)<,<7<:<>FLFXF[FgFjFsFwF|FFFFFFFFFFFFFFFFFFFFFFFFFGGGGG'G*G.G4G:G@GEGIGMGSGXG[G}GGGGGGGGGGGGGGGGGGGGGGGGHH H HHHH"H&H,H0H3HFHIHMHTHYH_HcHgHpHHHHHHHHHHHHHHHHHII IIII$I'I,I/I2I5I8I;I>IAIDIGIMIPISIVIeIkIuIzI~IIIIIIIIIIIIIIIIIIIIIIIIIIJJJJ"J(J+J.J1J4J9JIJNJSJXJ^JaJeJjJmJpJsJxJ{JJJJJJJJJJJJJJJJJJJJJJJJJJJJKK KKKK&K+K/K>KCKFKTKXK\KaKqK{KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKLLL LLLLL$L(L+L0L8L?LFLKLRLZLaLfLpL{LLLLLLLLLLLLLLLLLLLLLLLMM MMMMMM"M'M,M1M6MQBQEQHQMQ[Q_QcQfQkQoQrQuQyQ|QQQQQQQQQQQQQQQQQQQQQQQS S SSSSSSS!S$S'S*S?SBSGSJSMSQSTSWSZS]S`ScSfSjSoSrSvS{SSSSSSSSSSSSSSSS TTT"T0T3T7TETUTXT]TbTiTmTwTzTTTTTTTTTTTTTTTTTTTTTT/U:UCUGUMUSUWUaUjUrUxU~UUUUUUUUUUUUUUUUUUUWVVVV$V)V,VKVPVUV]VeVsVzV~VVVVVVVVVVVVVVVVVVVVVVVVVVVVW$W'W*W-W0W3W8W>WGWNWXX[YqYtYwY{Y~YYYYYYYYYYYYYYYYYYYYYYYY YYY<SET ver 5.6C 20DEC83 Copyright by Timothy S. WilliamsAx2/bk7%R0!D>a! " ~ ͆( ^ V !>a* O #> >* 0~0!> a~ |i}$i2Mi|i}`i2M(|i}`i2P !F#F#F !~m[ ! > (  08:0 *  !>a0~0!> a~ }2,M"}2-P~2.M(}2.0 f *,|eo",:,77:-727:.y7:, :. >)2?:,8_!=:-(0,P!,n50 f  !>a!>a1(10101101010* ~O &#~N( F # <#~ ~ !>a!>aJ J( PPJ( PP0* ~ ʖ(()0~ ʖ((!>a~ ʖN(S(C(!>a00J ÖÖJ  Ö Ö* *0}0 ~8uJ ÖÖ* !^ d(0:* |0͡u@͡uA͡uB͡uC͡uD͡uE͡uF0~0!> aJ PPޯ~ *}(*0&0~ w }( 0 Ö Ö Ö>!a0~0!> aJ PP0~0!> aJ PP0~0!> aJ PPJ <( /](!/^ ̯!SYSTEM MAILBOX SET COMMAND /0~0!> a* ~0:*  ~ z {8 Ps > !aP~T !>a* 0~0!> a~08:0*}( ( 0(!> a (8P~TwT 1* !/ (^#V+7%%%R!!">2" 10~0!> a* ~0 : *| }  2 ~ (l* 2 #~0 : *" R0S ~ (<0 : *| } 2 P_~# ~ P* |ʏ !9Y: G~ <!T`> : _~ A### ~ x2 Y: _^#V#F ~ +~+ngR0###ѷR8~#foS R" "  O y : _^#V<h* " nfN nf^VR[ Rڄ Rڄ nf" [ ut: O  ~w#~w#NF: n3f4q3p4##q#p+++PYnf" nfR" : 2 ~ 2 * " * " _[ s#r#: w 4 * : R0!R`!r 5 !H`> !S`> !9Y: = ʳ һ O ʳ : £ _~O~ =G+++~( 5 x=2 +V+^S O ʫ : =_^#V<hnf^VR" * " <: h!<* [ R" nf^VR[ " : _[ s#r5 : [ * ##s#r+++s3r4 !U>a!V>a!H>a!G>aZ!F>a!>a!>a=!<6!6* ">[ "@"B>2F>2L>2K2u* "<* !s#r#6#6O#6#6: [ !<iP (8_^#V!<h!<~ #~O #~ #~(ɯ<SYSGEN then re-boot to use new bank configuration. hh:mm:ssmm/dd/yydd-mm-yyEnter any char to set the time to (hh:mm:ss) - TIME PRIVLEV rERRNUM ERRTEXT DATE sABBREV MSG QSLICE MEMORY BANK RVERSION _HISTORY CLKFRQ SYNONYM RDYMSG LIMPEXEC ESCAPE UP DOWN LEFT RIGHT RUBOUT CANCEL RTCAVAILTODAVAILqIPLASK QET DATEFORM3DEUTSCH NUSOSTETEOENACBEBH L V F C SSDLDCDCDCDCNASYETCAESUESFGRUDESHOW COMMAND @C]`l '7:Eej %.MMV]`ips7Zah"UYbiltw *6e %*-?FKQ]lqz?EHKNQThsv     " % ( + . ? F L R X j p  ! $ ' * 0 6 9 = C V Z d n w       # & . @ G J k s ' 2 = H S ^ i t     $ / : E P [ AAAAAAAAAAAAAAAA͞y N(yA8[8>Aw V( nF¦Q0=~#fout*#"[R #"[:*nf:2?G [{ _~ *u t K!;~2t~<2u<6?Ͷsr "iut!6"e"g"r#utm.U!@T:G :uw<:twRo&)))~ 6R<2.~ 2~ 2!"n f +<[nf:G ^ V {_! 6Ynf>ݖ_y( qyQ6#5 6#6#%^V:G 0~2t~<2u<6n f K!;?nf:uw<:twnfutnfutnf utnf n f +<[nf:G ^ V { _˾##~w#~w 6:W(Q(n f +">Q2ͬ*"Y5y nf#ut ‚5 nf#utnf>ݖ8==_~ 6 4~ nf#} Ͷ^V sr DMnfq#pnf^Vqp:G 6 nf>ݖ8===_~ #4 #06#+6-:G dOWaiting for spooler disk space  ###~PP2QYHWkq͞DM:!aTaUP͛(2>X22͛>W2Z:WSXSx2">22ͬYRo&))) P~(Oq: * V:A(P(S(X(>Q2*"ì:A(P(y2:A(P 2͞yA8[8>A w͞ y1898>11O~ w͞ yO~߱w!R_: __P~wO~p:  bkh: ?* h: ?* !iR* _!o: $ SYSTEM SP$xxxxx$SYSTEM SP$xxxxx%),GKOX\hsv} .<?GMSfq%lwDu  "$&(*,.02468:<?BGJMS[ruz}& !-036ADIPUXl ".3PRTSPOOL ver 5.6 YAQP N *6O D*666W6#0nfut6#6O#6#6P~#fo##1P"M" "~#fo"PD^#V+!ut~ ###w#s#r+## s#r+>bkiͮ(!4~ >! a:2J2 nf@'"Knf"M*:*:X(2X>2#ͮ$!?2W:W :# f:W("G!?_R^#V#z #~2#Ͳs#r+:JGͲ^#V+ͮS% :W(!;>!"'"(:W=2W >2#>A2O>2"ͮ!#>o&~($( (6 > #5~+!> #w+OÙ!#60 '!**%"<:#2> O!#5( 3!#5™Ͳ~#fo|™:JG[ͮ͹ * ~ @O~w ~ w~2:JG[ͮ :w 'o # 0~~<<6wQ2O*K"Uz2O2Q:k:>X:Q :_ͮ"*<[M"͹:JGͮ *|* vʶ#/ʶ(**#! ͮ( ^#V+>*|̹:JG[ͮ (:2[!:JG[ͮ (hͲs#r+2#2X2W>P2O(!'6Ͳ~#fo[z(#Ͳs#r+:2#!"bk( :JGͮ bk"<>2>Ù*|( !"*#"[KR8!"*U+|(*K"U|z>W2Ok:y (\ (1(C N(5 ~ w w  V(a~ Z~ SV(M ͏6  ]^ ~ N V  ͏ ͏~ w ~  6 = q y ( ( ~~L*ͮ$++*T*USYSTEM SPOOLQUE SYSTEM SP$  ** ABORT! ** mp+PSZhmps !$(16;>Borwz  <CFINQUZ]`dhlot|!3*/69>CFOW\_djmt~ EOlq TITLE 'SYSTEM.CLASS10 - ANSI Standard Terminal' MACLIB CLASS INIT OWN=TRANS DCA 10 ; x,y addressing TRANS: BIT 7,(IY+5) ; is this conin? RET Z ; no, return BIT 6,(IY+5) ; 2nd char of esc? RET Z ; no, ignore BIT 5,(IY+5) ; esc,o,x? JR NZ,ESCOX ; yes BIT 4,(IY+5) ; esc,[,x? JR NZ,ESCBRAKX ; yes CP '[' ; bracket? JR Z,ESCBRAK ; yes CP 'O' ; oh? RET NZ ; no ESCO: SET 5,(IY+5) ; set bit POP AF ; forget ret XOR A SCF ; set cy RET ESCBRAK: SET 4,(IY+5) ; set [ POP AF ; forget ret  XOR A SCF ; set cy RET ; return ESCOX: RES 5,(IY+5) PUSH BC PUSH HL PUSH AF LD B,8 ; len of table LD HL,ESCOTAB ; point table RES 5,A ; Fold to uppercase .COMP: CP (HL) ; compare JR Z,.HIT ; brif equal INC HL ; bump INC HL DJNZ .COMP ; loop POP AF ; POP HL ; restore hl POP BC PUSH AF LD A,'O' ; send esc o SC 78 RES 6,(IY+5) ; turn off POP AF ; get char RET ; return .HIT: POP AF ; INC HL ; bump LD A,(HL) ; get char POP HL ; restore regs POP BC RES 6,(IY+5) ; clear esc,2 CP 6 ; lt 6 RET C ; yes, return SET 6,(IY+5) ; set it back RET ; return ESCOTAB: DC 'S',01H DC 'T',02H DC 'U',03H DC 'V',04H DC 'W',05H DC 'P','P' DC 'Q','Q' DC 'R','C' ESCBRAKX: RES 4,(IY+5) CP 'A' JR NZ,$+4 LD A,1AH ; up CP 'B' JR NZ,$+4 LD A,0AH ; down CP 'C' JR NZ,$+4 LD A,06H ; right CP 'D' JR NZ,$+4 LD A,08H ; left RET DEFINE HOME,ESC,[,H DEFINE CLEAR,ESC,[,H,ESC,[,2,J,8CH DEFINE EOS,ESC,[,J,8CH DEFINE EOL,ESC,[,K,8CH DEFINE LEFT,ESC,[,D DEFINE RIGHT,ESC,[,C DEFINE UP,ESC,[,A DEFINE IL,ESC,[,1,L DEFINE DL,ESC,[,1,M DEFINE DC,ESC,[,1,P DEFINE EU,ESC,[,H,ESC,[,2,J,8CH DEFINE RVOFF,ESC,[,6DH DEFINE RVON,ESC,[,7,6DH DEFINE BON DEFINE BOFF DEFINE FON DEFINE FOFF DEFINE PON DEFINE POFF DEFINE ULON DEFINE ULOFF END  TITLE 'SYSTEM.CLASS20 Translate File for Informer 304' MACLIB CLASS INIT DEFINE HOME,ESC,H DEFINE CLEAR,ESC,Z,8CH DEFINE EOS,ESC,/,8CH DEFINE EOL,ESC,Q,8CH DEFINE RIGHT,ESC,C DEFINE UP,ESC,A DEFINE IL DEFINE IC,ESC,[ DEFINE DL DEFINE DC,ESC,\ DEFINE EU,ESC,N,8CH DEFINE PON,ESC,W DEFINE POFF,ESC,X DEFINE FON,ESC,E DEFINE FOFF,ESC,F DEFINE BON,ESC,L DEFINE BOFF,ESC,M DEFINE ULON DEFINE ULOFF DEFINE RVON,ESC,J DEFINE RVOFF,ESC,K DCA ; Output ESC,'Y',l,c LD C,ESC SC DEVOUT LD C,'Y' SC DEVOUT LD A,H ; Get col ADD 20H ; Bias LD C,A ; SC DEVOUT ; LD A,L ; Get line ADD 20H ; Bias LD C,A ; SC DEVOUT ; XOR A ; RET END  TITLE 'SYSTEM.CLASS30 Translate File for Zentec Zephyr' MACLIB CLASS INIT 0BH,1AH,0CH,06H,1EH,01H,SPEC=SPECIAL DCA 4 DEFINE HOME,RS DEFINE CLEAR,ESC,*,8CH DEFINE EOS,ESC,Y,8CH DEFINE EOL,ESC,T,8CH DEFINE LEFT,BS DEFINE RIGHT,FF DEFINE UP,VT DEFINE EU,ESC,+,8CH DEFINE PON,ESC,) DEFINE POFF,ESC,( DEFINE FON,ESC,26H DEFINE FOFF,ESC,27H DEFINE IL,ESC,E DEFINE IC,ESC,Q DEFINE DL,ESC,R DEFINE DC,ESC,W SPECIAL: CP SO ; Test for RVON JR Z,.RVON ; BRIF is CP SI ; Test for RVOFF JR Z,.RVOFF ; BRIF is CP VT ; Test for ULON JR Z,.ULON ; BRIF is CP SYN ; Test for ULOFF JR Z,.ULOFF ; BRIF is CP GS ; Test for BON JR Z,.BON ; BRIF is CP RS ; Test for BOFF JR Z,.BOFF ; BRIF is CP FF ; Test for CLEAR JR Z,.RESET ; BRIF is RET ; Else ignore .RVON: LD A,(ATTRIB) ; Get current attribute value SET 2,A ; Set reverse video on LD (ATTRIB),A ; Save as current attribute JR .WRITE ; Output string .RVOFF: LD A,(ATTRIB) ; Get current attribute value RES 2,A ; Set reverse video off LD (ATTRIB),A ; Save as current attribute JR .WRITE ; Output string .ULON: LD A,(ATTRIB) ; Get current attribute value SET 3,A ; Set underline on LD (ATTRIB),A ; Save as current attribute JR .WRITE ; Output string .ULOFF: LD A,(ATTRIB) ; Get current attribute value RES 3,A ; Set underline off LD (ATTRIB),A ; Save as current attribute JR .WRITE ; Output string .BON: LD A,(ATTRIB) ; Get current attribute value SET 1,A ; Set blink on LD (ATTRIB),A ; Save as current attribute JR .WRITE ; Output string .BOFF: LD A,(ATTRIB) ; Get current attribute value RES 1,A ; Set blink off LD (ATTRIB),A ; Save as current attribute .WRITE: LD C,ESC ; Attribute lead in SC DEVOUT ; LD C,'G' ; SC DEVOUT ; LD A,(ATTRIB) ; Get attribute byte LD C,A ; SC DEVOUT ; POP AF ; Throw away return address XOR A ; Clear carry flag RET ; Return .RESET: LD A,(ATTRIB) ; Get current attribute value RES 1,A ; Reset blink RES 2,A ; Reset reverse video RES 3,A ; Reset underline LD (ATTRIB),A ; Save as current attribute SCF ; Turn on carry flag LD A,FF ; Reload accumulator RET ; Do normal processing also ATTRIB: DC 00110000B ; Attribute byte END  TITLE 'SYSTEM.CLASS40 Translate File for ADDS Viewpoint' MACLIB CLASS INIT 21,8,SPEC=SPECIAL DEFINE HOME,SOH DEFINE CLEAR,FF,8CH DEFINE EOS,ESC,k,8CH DEFINE EOL,ESC,K,8CH DEFINE LEFT,NAK DEFINE RIGHT,ACK DEFINE UP,SUB DEFINE IL ; Feature not supported DEFINE IC ; Feature not supported DEFINE DL ; Feature not supported DEFINE DC ; Feature not supported DEFINE EU ; Feature not supported DEFINE FON ; Feature not supported DEFINE FOFF ; Feature not supported DEFINE RVON,0FEH ; Dummy entry DEFINE RVOFF,0FEH ; Dummy entry DEFINE ULON,0FEH ; Dummy entry DEFINE ULOFF,0FEH ; Dummy entry DEFINE BON,0FEH ; Dummy entry DEFINE BOFF,0FEH ; Dummy entry DEFINE PON,0FEH ; Dummy entry DEFINE POFF,0FEH ; Dummy entry DCA LD C,ESC ; Output ESC,'Y' lead in SC DEVOUT LD C,'Y' SC DEVOUT DCA$ ; Finish sequence SPECIAL: CP SO ; Test for RVON JR Z,.RVON ; BRIF is CP SI ; Test for RVOFF JR Z,.RVOFF ; BRIF is CP VT ; Test for ULON JR Z,.ULON ; BRIF is CP SYN ; Test for ULOFF JR Z,.ULOFF ; BRIF is CP GS ; Test for BON JR Z,.BON ; BRIF is CP RS ; Test for BOFF JR Z,.BOFF ; BRIF is CP EOT ; Test for PON JR Z,.PON ; BRIF is CP ENQ ; Test for POFF JR Z,.POFF ; BRIF is CP FF ; Test for CLEAR RET NZ ; RETIF not XOR A ; Else clear attributes LD (.ATTRIB),A ; LD A,SI ; SC DEVOUT ; LD A,FF ; Get the clear command RET ; and return .RVON: LD A,(.ATTRIB) ; Get current attribute value SET 4,A ; Set RVON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .RVOFF: LD A,(.ATTRIB) ; Get current attribute value RES 4,A ; Set RVOFF LD (.ATTRIB),A ; Save as current JR .WRITEOFF ; Continue .ULON: LD A,(.ATTRIB) ; Get current attribute value SET 5,A ; Set ULON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .ULOFF: LD A,(.ATTRIB) ; Get current attribute value RES 5,A ; Set ULOFF LD (.ATTRIB),A ; Save as current JR .WRITEOFF ; Continue .BON: LD A,(.ATTRIB) ; Get current attribute value SET 1,A ; Set BON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .BOFF: LD A,(.ATTRIB) ; Get current attribute value RES 1,A ; Set BOFF LD (.ATTRIB),A ; Save as current JR .WRITEOFF ; Continue .PON: LD A,(.ATTRIB) ; Get current attribute value SET 0,A ; Set PON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .POFF: LD A,(.ATTRIB) ; Get current attribute value RES 0,A ; Set POFF LD (.ATTRIB),A ; Save as current JR .WRITEOFF ; Continue .WRITE: PUSH IY ; Save IY reg SC GETSCR ; Point SCR INC (IY+13) ; Adjust column count POP IY ; Restore IY PUSH AF ; Save LD C,ESC ; Lead in SC DEVOUT ; LD C,'0' ; 2nd lead in SC DEVOUT ; LD A,(.ATTRIB) ; Get attributes desired OR 01000000B ; Mask with '@' LD C,A ; Output attributes desired SC DEVOUT ; LD C,SO ; SC DEVOUT ; POP AF ; Restore POP AF ; Throw away return addr XOR A ; Clear carry flag RET ; Return .WRITEOFF: LD A,(.ATTRIB) ; get current attributes OR A ; test for any LD C,SI ; prepare for none JR Z,.WOFF ; brif none LD C,SO ; else some still on .WOFF: SC DEVOUT ; POP AF ; throw away return addr XOR A ; clear carry flag RET ; return .ATTRIB: DC 0 ; Bit mapped ; 5 underline ; 4 reverse video ; 1 blink ; 0 half intensigy END  TITLE 'SYSTEM.CLASS11 - Infoton 100' MACLIB CLASS INIT DCA 11 DEFINE HOME,ESC,H DEFINE CLEAR,FF,8CH DEFINE EOS,ESC,J,8CH DEFINE EOL,ESC,K,8CH DEFINE RIGHT,ESC,C DEFINE UP,ESC,A DEFINE IL,ESC,L,8CH DEFINE DL,ESC,M,8CH DEFINE IC,ESC,40H  DEFINE DC,ESC,P DEFINE PON,ESC,34H DEFINE POFF,ESC,33H DEFINE EU,ESC,H,ESC,J,8CH DEFINE RVON,ESC,b DEFINE RVOFF,ESC,a END  TITLE 'SYSTEM.CLASS21 Translate File for Data Media' MACLIB CLASS INIT DEFINE HOME,EM DEFINE CLEAR,FF,8CH DEFINE EOS,VT,8CH DEFINE EOL,GS,8CH DEFINE RIGHT,FS DEFINE UP,US DEFINE IL DEFINE IC DEFINE DL DEFINE DC DEFINE EU DEFINE PON,EOT  DEFINE POFF,CAN DEFINE FON DEFINE FOFF DEFINE BON DEFINE BOFF DEFINE ULON DEFINE ULOFF DEFINE RVON DEFINE RVOFF DCA ; Output RS,c,l LD C,RS ; Get RS character SC DEVOUT LD A,H ; Get column number ADD 20H ; Add bias LD C,A ; SC DEVOUT  LD A,L ; Get line number ADD 20H ; Add bias LD C,A ; SC DEVOUT XOR A ; Clear cy flag RET END  TITLE 'SYSTEM.CLASS31 - TeleVideo,Inc TVI-950' MACLIB CLASS CODE: REL CLASS31: JP TRANIN ; input translation vector TRANOUT: CP 20H ; test for control character JR C,CTL ; brif is SC DEVOUT ; else display character JR RETOK ; return to c aller CTL: CP DLE ; test for dca x,y JP Z,DCA ; brif is CALL SPECIAL ; else test and handle special attributes ; above routine will exit if handled LD HL,TAB1-2 ; point to indirect table ADD A ; code time two LD E,A ; move to de LD D,0 ;  ADD HL,DE ; point to correct slot LD E,(HL) ; get address in de INC HL ; LD D,(HL) ; ; test for not available LD A,D ; is address zero? OR E ; SCF ; set carry flag in case RET Z ; return if address=zero ; else output translated value s WRITE: LD A,(DE) ; get bytes INC DE ; point next CP 8CH ; test for ff delay code JR Z,WRFFDLY ; brif is LD C,A ; move to output reg c INC A ; test for end of string (0ffh) RET Z ; return if is SC DEVOUT ; else write to console JR WRITE ; loo p till end of string WRFFDLY: LD A,(IY+7) ; get delay value OR A ; test if any JR Z,WRITE ; brif none SC DELAY ; else pause for delay value JR WRITE ; and continue DCA: RES 7,(IY+1EH) ; turn off attribute switch LD C,ESC ; leadin 1 SC DEVOUT ;  LD C,'=' ; leadin 2 SC DEVOUT ; LD A,L ; get line desired ADD 20H ; bias LD C,A ; move to output reg SC DEVOUT ; LD A,H ; get column desired ADD 20H ; bias LD C,A ; move to output reg SC DEVOUT ; RETOK: RES 7,(IY+1EH) ; turn off attribute out switch XOR A ; clear carry flag RET ; TRANIN: ; input character translate routine ; first see if char translate to be done CP SYN JR NZ,$+4 LD A,LF CP VT JR NZ,$+4 LD A,SUB CP FF JR NZ,$+4 LD A,ACK CP RS JR NZ,$+4 LD A,SOH OR A ; clear carry flag BIT 7,(IY+5) ; is this conin? RET Z ; retif not BIT 6,(IY+5) ; 2nd char of esc sequence? JR NZ,ESC2 ; brif is PUSH IY ; save iy SC GETSCR ; point to scr CP (IY+64) ; is this an esc char? POP IY ; JR Z,ESC1 ; brif is BIT 5,(IY+5) ; last character an esc? JP NZ,TRANESC ; brif was OR A ; turn off carry flag RET ; return ESC1: BIT 5,(IY+5) ; last char an esc? JR NZ,ESC1A ; brif was SET 5,(IY+5) ; else set flag SCF ; and carry flag RET ; ESC1A: SET 6,(IY+5) ; turn on code SCF ; set carry flag RET ; ESC2: RES 6,(IY+5) ; turn off switches RES 5,(IY+5) ; RES 5,A ; fold the character SC CONESC ; go translate OR A ; test if any RET NZ ; retif was SCF ; else turn on carry flag RET ; and return TAB1: REPT 31 DC (0) ; DEFINE HOME,RS DEFINE CLEAR,ESC,*,8CH DEFINE LEFT,BS DEFINE RIGHT,FF DEFINE UP,VT DEFINE PON,ESC,) DEFINE POFF,ESC,( DEFINE FON,ESC,26H DEFINE FOFF,ESC,27H DEFINE IC,ESC,Q DEFINE DC,ESC,W DEFINE IL,ESC,E DEFINE DL,ESC,R DEFINE EOL,ESC,t,8CH DEFINE EOS,ESC,y,8CH DEFINE EU,ESC,';',8CH SPECIAL: CP SO ; Test for RVON JR Z,.RVON ; BRIF is CP SI ; Test for RVOFF JR Z,.RVOFF ; BRIF is CP VT ; Test for ULON JR Z,.ULON ; BRIF is CP SYN ; Test for ULOFF JR Z,.ULOFF ; BRIF is CP GS ; Test for BON JR Z,.BON ; BRIF is CP RS ; Test for BOFF JR Z,.BOFF ; BRIF is RES 7,(IY+1EH) ; clear last char attribute flag CP FF ; Test for CLEAR RET NZ ; RETIF not XOR A ; Else clear attributes LD (.ATTRIB),A ; LD A,FF ; Get the clear command RET ; Else return .RVON: LD A,(.ATTRIB) ; Get current attribute value SET 2,A ; Set RVON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .RVOFF: LD A,(.ATTRIB) ; Get current attribute value RES 2,A ; Set RVOFF LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .ULON: LD A,(.ATTRIB) ; Get current attribute value SET 3,A ; Set ULON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .ULOFF: LD A,(.ATTRIB) ; Get current attribute value RES 3,A ; Set ULOFF LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .BON: LD A,(.ATTRIB) ; Get current attribute value SET 1,A ; Set BON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .BOFF: LD A,(.ATTRIB) ; Get current attribute value RES 1,A ; Set BOFF LD (.ATTRIB),A ; Save as current .WRITE: BIT 7,(IY+1EH) ; test if last out was attribute JR Z,.WRITE1 ; brif not LD C,BS ; get back spacew SC DEVOUT ; and output JR .WRITE2 ; skip col adjust .WRITE1: PUSH IY ; Save IY reg SC GETSCR ; Point SCR INC (IY+13) ; Adjust column count POP IY ; Restore IY .WRITE2: SET 7,(IY+1EH) ; turn on last char attribute switch PUSH AF ; Save LD C,ESC ; Lead in SC DEVOUT ; LD C,'G' ; 2nd lead in SC DEVOUT ; LD A,(.ATTRIB) ; Get attributes desired OR 00110000B ; Mask with '0' LD C,A ; Output attributes desired SC DEVOUT ; POP AF ; Restore POP AF ; Throw away return addr XOR A ; Clear carry flag RET ; Return .ATTRIB: DC 0 ; Bit mapped ; 3 underline ; 2 reverse video ; 1 blink ; 0 blank (not used)  TRANESC: ; Routine to translate esc ; sequences from console. ; If second character of esc seq ; (reg A) is not recognized ; then the characters are ignored ; RES 5,(IY+5) ; turn off flag CP '*' ; first test if esc,* JR Z,.CLEAR ; brif is PUSH BC ; save regs PUSH HL ; LD HL,ESCTAB ; point to translate table LD B,6 ; length of table .TRANLOOP: CP (HL) ; test for match JR Z,.HIT ; brif is INC HL ; else point next entry INC HL ; DJNZ .TRANLOOP ; repeat till end of table POP HL ; not found POP BC ; RET ; .HIT: INC HL ; point to tran to character LD A,(HL) ; get the character POP HL ; restore regs POP BC ; OR A ; clear cy RET ; .CLEAR: PUSH BC ; save dev number LD B,9 ; point to conout PUSH AF ; save the character LD C,ESC ; output lead in SC DEVOUT ; display no POP AF ; get the character LD C,A ; copy to c reg SC DEVOUT ; display the character POP BC ; restore dev number SCF ; set carry flag RET ; and return ESCTAB: DC 'E',DC1 ; ESC,E - IL DC 'R',DC2 ; ESC,R - DL DC 'Q',DC3 ; ESC,Q - IC DC 'W',DC4 ; ESC,W - DC DC 'Y',CAN ; ESC,Y - EOS DC 'T',ETB ; ESC,T - EOL NUL: EQU 00H SOH: EQU 01H STX: EQU 02H ETX: EQU 03H EOT: EQU 04H ENQ: EQU 05H ACK: EQU 06H BEL: EQU 07H BS: EQU 08H HT: EQU 09H LF: EQ U 0AH VT: EQU 0BH FF: EQU 0CH CR: EQU 0DH SO: EQU 0EH SI: EQU 0FH DLE: EQU 10H DC1: EQU 11H DC2: EQU 12H DC3: EQU 13H DC4: EQU 14H NAK: EQU 15H SYN: EQU 16H ETB: EQU 17H CAN: EQU 18H EM: EQU 19H SUB: EQU 1AH ESC: EQU 1BH FS: EQU 1CH GS: EQU 1DH RS: EQU 1!EH US: EQU 1FH RUB: EQU 7FH DEVOUT: EQU 64 CONESC: EQU 78 DELAY: EQU 76 GETSCR: EQU 48 END  TITLE 'SYSTEM.CLASS41 - SEIKO Terminal' MACLIB CLASS INIT SPEC=SPECIAL,OWN=TRANS DCA 10 ; x,y addressing TRANS: BIT 7,(IY+5) ; is this conin? RET Z ; no, return BIT 6,(IY+5) ; 2nd char of esc? RET Z ; no, ignore BIT 5,(IY+5) ; esc,o,x? JR% NZ,ESCOX ; yes BIT 4,(IY+5) ; esc,[,x? JR NZ,ESCBRAKX ; yes CP '[' ; bracket? JR Z,ESCBRAK ; yes CP 'O' ; oh? RET NZ ; no ESCO: SET 5,(IY+5) ; set bit POP AF ; forget ret XOR A SCF ; set cy RET ESCBRAK: SET 4,(IY+5) ; set [ POP AF ; forget& ret XOR A SCF ; set cy RET ; return ESCOX: RES 5,(IY+5) PUSH BC PUSH HL PUSH AF LD B,8 ; len of table LD HL,ESCOTAB ; point table RES 5,A ; Fold to uppercase .COMP: CP (HL) ; compare JR Z,.HIT ; brif equal INC HL ; bump INC HL DJNZ .COM'P ; loop POP AF ; POP HL ; restore hl POP BC PUSH AF LD A,'O' ; send esc o SC 78 RES 6,(IY+5) ; turn off POP AF ; get char RET ; return .HIT: POP AF ; INC HL ; bump LD A,(HL) ; get char POP HL ; restore regs POP BC RES 6,(IY+5) ; clear es(c,2 CP 6 ; lt 6 RET C ; yes, return SET 6,(IY+5) ; set it back RET ; return ESCOTAB: DC 'S',01H DC 'T',02H DC 'U',03H DC 'V',04H DC 'W',05H DC 'P','P' DC 'Q','Q' DC 'R','C' ESCBRAKX: RES 4,(IY+5) CP 'A' JR NZ,$+4 LD A,1AH ; up CP 'B' J)R NZ,$+4 LD A,0AH ; down CP 'C' JR NZ,$+4 LD A,06H ; right CP 'D' JR NZ,$+4 LD A,08H ; left RET DEFINE HOME,RS DEFINE CLEAR,RS,ESC,[,1,0,l,SUB,8CH DEFINE EOS,ESC,[,0,J,8CH DEFINE EOL,ESC,[,0,K,8CH DEFINE LEFT,BS DEFINE RIGHT,FF DEFINE UP*,VT DEFINE DOWN,LF DEFINE IL,ESC,[,1,L DEFINE DL,ESC,[,1,M DEFINE DC,ESC,[,1,P DEFINE IC,ESC,[,1,N DEFINE EU,SUB,8CH DEFINE RVOFF DEFINE RVON DEFINE BON DEFINE BOFF DEFINE FON,ESC,[,1,0,h DEFINE FOFF,ESC,[,1,0,l DEFINE PON DEFINE POFF DEFI+NE ULON DEFINE ULOFF SPECIAL: CP SO ; Test for RVON JR Z,.RVON ; BRIF is CP SI ; Test for RVOFF JR Z,.RVOFF ; BRIF is CP VT ; Test for ULON JR Z,.ULON ; BRIF is CP SYN ; Test for ULOFF JR Z,.ULOFF ; BRIF is CP GS ; Test for BON JR Z,.BON ; B,RIF is CP RS ; Test for BOFF JR Z,.BOFF ; BRIF is CP EOT ; Test for PON JR Z,.PON ; brif is CP ENQ ; Test for POFF JR Z,.POFF ; brif is ; CP FF ; Test for CLEAR ; RET NZ ; RETIF not ; XOR A ; Else clear attributes ; LD (.ATTRIB),A ; ; LD A,FF ; Get- the clear command RET ; Else return .RVON: LD A,(.ATTRIB) ; Get current attribute value SET 2,A ; Set RVON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .RVOFF: LD A,(.ATTRIB) ; Get current attribute value RES 2,A ; Set RVOFF LD (.ATTRI.B),A ; Save as current JR .WRITE ; Continue .ULON: LD A,(.ATTRIB) ; Get current attribute value SET 3,A ; Set ULON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .ULOFF: LD A,(.ATTRIB) ; Get current attribute value RES 3,A ; Set ULOFF LD (/.ATTRIB),A ; Save as current JR .WRITE ; Continue .BON: LD A,(.ATTRIB) ; Get current attribute value SET 1,A ; Set BON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .BOFF: LD A,(.ATTRIB) ; Get current attribute value RES 1,A ; Set BOFF LD0 (.ATTRIB),A ; Save as current JR .WRITE ; Continue .PON: LD A,(.ATTRIB) ; Get current attribute value SET 4,A ; Set PON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .POFF: LD A,(.ATTRIB) ; Get current attribute value RES 4,A ; Set POFF 1LD (.ATTRIB),A ; Save as current .WRITE: LD C,ESC ; Lead in SC DEVOUT ; LD C,'[' ; 2nd lead in SC DEVOUT ; LD C,'0' ; reset all attributes to start SC DEVOUT ; LD A,(.ATTRIB) ; Get attributes desired AND 00010000B ; test for half intensity JR Z,2.NOTHALF ; brif no LD C,';' ; separator SC DEVOUT ; LD C,'1' ; enable half intensity SC DEVOUT ; LD C,';' ; separator SC DEVOUT ; LD C,'8' ; enable protect status also SC DEVOUT ; .NOTHALF: LD A,(.ATTRIB) ; AND 00001000B ; test for underline J3R Z,.NOTUL ; brif no LD C,';' ; separator SC DEVOUT ; LD C,'4' ; enable underline SC DEVOUT ; .NOTUL: LD A,(.ATTRIB) ; AND 00000010B ; test for blink JR Z,.NOTBLINK ; brif no LD C,';' ; separator SC DEVOUT ; LD C,'5' ; enable blink SC DEVOUT ;4 .NOTBLINK: LD A,(.ATTRIB) ; AND 00000100B ; test for reverse video JR Z,.NOTRV ; brif no LD C,';' ; separator SC DEVOUT ; LD C,'7' ; enable reverse video SC DEVOUT ; .NOTRV: LD C,'m' ; terminate attribute setup SC DEVOUT ; POP AF ; Throw away 5return addr XOR A ; Clear carry flag RET ; Return .ATTRIB: DC 0 ; Bit mapped ; 4 half intensity (and protect) ; 3 underline ; 2 reverse video ; 1 blink ; 0 blank (not used) END  TITLE 'SYSTEM.CLASS100 - ANSI X3.64 Conforming Terminal' MACLIB CLASS INIT OWN=TRANS,SPEC=SPECIAL DCA 10 ; x,y addressing TRANS: BIT 7,(IY+5) ; is this conin? RET Z ; no, return BIT 6,(IY+5) ; 2nd char of esc? RET Z ; no, ignore BIT 5,(IY9+5) ; esc,o,x? JR NZ,ESCOX ; yes BIT 4,(IY+5) ; esc,[,x? JR NZ,ESCBRAKX ; yes CP '[' ; bracket? JR Z,ESCBRAK ; yes CP 'O' ; oh? RET NZ ; no ESCO: SET 5,(IY+5) ; set bit POP AF ; forget ret XOR A SCF ; set cy RET ESCBRAK: SET 4,(IY+5) ; set :[ POP AF ; forget ret XOR A SCF ; set cy RET ; return ESCOX: RES 5,(IY+5) PUSH AF LD A,'O' ; send esc o SC 78 RES 6,(IY+5) ; turn off POP AF ; get char RET ; return ESCBRAKX: RES 4,(IY+5) CP 'A' JR NZ,$+4 LD A,1AH ; up CP 'B' JR NZ,$+;4 LD A,0AH ; down CP 'C' JR NZ,$+4 LD A,06H ; right CP 'D' JR NZ,$+4 ; LD A,08H ; left CP 'J' ; clear RET NZ ; PUSH BC ; save dev number LD B,9 ; point to conout LD C,ESC ; output ESC,[,2,J SC DEVOUT ; LD C,'[' ; SC DEVOUT ; LD C,'2' ; S<C DEVOUT ; LD C,'J' ; SC DEVOUT ; POP BC ; XOR A ; RET RET SPECIAL: CP EOT ; test for PON JR Z,.PON ; CP ENQ ; test for POFF JR Z,.POFF ; CP SO ; test for rvon JR Z,.RVON ; CP SI ; test for RVOFF JR Z,.RVOFF ; CP VT ; test for ULON JR Z=,.ULON ; CP SYN ; test for ULOFF JR Z,.ULOFF ; CP GS ; test for BON JR Z,.BON ; CP RS ; test for BOFF JR Z,.BOFF ; CP FF ; test for CLEAR RET NZ ; retif not XOR A ; get a zero (all attributes off) LD (.ATTRIB),A ; LD C,ESC ; clear the screen !> SC DEVOUT ; LD C,'[' ; SC DEVOUT ; LD C,'2' ; SC DEVOUT ; LD C,'J' ; SC DEVOUT ; JR .WRITE ; .ATTRIB: DC 0 ; initially, all attr off ; ATTRIB is bit mapped: ; ; 76543210 meaning ; .......1 increased intensity ; ......1. decr?eased intensity ; .....1.. blank ; ....1... underline ; ...1.... blink ; .1...... reverse video ; .PON: LD A,(.ATTRIB) ; get currently set attributes SET 1,A ; set PON LD (.ATTRIB),A ; save as current JR .WRITE ; continue .POF@F: LD A,(.ATTRIB) ; get currently set attributes RES 1,A ; set POFF LD (.ATTRIB),A ; save as current JR .WRITE ; continue .ULON: LD A,(.ATTRIB) ; get currently set attributes SET 3,A ; set ULON LD (.ATTRIB),A ; save as current JR .WRITE ; continuAe .ULOFF: LD A,(.ATTRIB) ; get currently set attributes RES 3,A ; set ULOFF LD (.ATTRIB),A ; save as current JR .WRITE ; continue .BON: LD A,(.ATTRIB) ; get currently set attributes SET 4,A ; set BON LD (.ATTRIB),A ; save as current JR .WRITE ;B continue .BOFF: LD A,(.ATTRIB) ; get currently set attributes RES 4,A ; set BOFF LD (.ATTRIB),A ; save as current JR .WRITE ; continue .RVON: LD A,(.ATTRIB) ; get currently set attributes SET 6,A ; set RVON LD (.ATTRIB),A ; save as current JR C.WRITE ; continue .RVOFF: LD A,(.ATTRIB) ; get currently set attributes RES 6,A ; set RVOFF LD (.ATTRIB),A ; save as current JR .WRITE ; continue .WRITE: PUSH DE ; save reg LD C,ESC ; first lead in character SC DEVOUT ; LD C,'[' ; second lead iDn character SC DEVOUT ; LD C,'0' ; third lead in character (all off) SC DEVOUT ; LD A,(.ATTRIB) ; get attributes desired LD D,A ; copy to work register LD E,'0' ; get init char for attribute sets .LOOP: LD A,D ; prepare for test OR D ; test for aEny remaining JR Z,.PROLOG ; brif no more attributes INC E ; get next attribute set character SRL D ; test if it is desired JR NC,.LOOP ; brif not LD C,';' ; separator character SC DEVOUT ; LD C,E ; attribute set character SC DEVOUT ; JR .LOOP ; Ftry next attribute .PROLOG: LD C,'m' ; attribute set terminator SC DEVOUT ; POP DE ; restore reg POP AF ; throw away return address XOR A ; clear carry flag RET ; go back DEFINE HOME,ESC,[,H DEFINE CLEAR,ESC,[,2,J,8CH DEFINE EOS,ESC,[,J,8CH GDEFINE EOL,ESC,[,K,8CH DEFINE LEFT,ESC,[,D DEFINE RIGHT,ESC,[,C DEFINE UP,ESC,[,A DEFINE IL,ESC,[,1,L DEFINE DL,ESC,[,1,M DEFINE DC,ESC,[,1,P DEFINE EU,ESC,[,H,ESC,[,2,J,8CH DEFINE FON DEFINE FOFF END  TITLE 'SYSTEM.CLASS101 - TeleVideo,Inc TVI-914' MACLIB CLASS CODE: REL CLASS101: JP TRANIN ; input translation vector TRANOUT: CP 20H ; test for control character JR C,CTL ; brif is SC DEVOUT ; else display character JR RETOK ; return toI caller CTL: CP DLE ; test for dca x,y JP Z,DCA ; brif is CALL SPECIAL ; else test and handle special attributes ; above routine will exit if handled LD HL,TAB1-2 ; point to indirect table ADD A ; code time two LD E,A ; move to de LD D,0 J; ADD HL,DE ; point to correct slot LD E,(HL) ; get address in de INC HL ; LD D,(HL) ; ; test for not available LD A,D ; is address zero? OR E ; SCF ; set carry flag in case RET Z ; return if address=zero ; else output translated valKues WRITE: LD A,(DE) ; get bytes INC DE ; point next CP 8CH ; test for ff delay code JR Z,WRFFDLY ; brif is LD C,A ; move to output reg c INC A ; test for end of string (0ffh) RET Z ; return if is SC DEVOUT ; else write to console JR WRITE ; lLoop till end of string WRFFDLY: LD A,(IY+7) ; get delay value OR A ; test if any JR Z,WRITE ; brif none SC DELAY ; else pause for delay value JR WRITE ; and continue DCA: RES 7,(IY+1EH) ; turn off attribute switch LD C,ESC ; leadin 1 SC DEVOUT M; LD C,'=' ; leadin 2 SC DEVOUT ; LD A,L ; get line desired ADD 20H ; bias LD C,A ; move to output reg SC DEVOUT ; LD A,H ; get column desired ADD 20H ; bias LD C,A ; move to output reg SC DEVOUT ; RETOK: RES 7,(IY+1EH) ; turn off attribute ouNt switch XOR A ; clear carry flag RET ; TRANIN: ; input character translate routine ; first see if char translate to be done BIT 4,(IY+5) ; check for ESC,* sequence JR Z,.GOON ; ESC,* sequence did not occure RES 4,(IY+5) ; reset flag CP '0O' ; check for ESC,*,0 sequence JP Z,CLEAR ; clear the screen SCF ; ingnore input RET .GOON: CP SYN JR NZ,$+4 LD A,LF CP VT JR NZ,$+4 LD A,SUB CP FF JR NZ,$+4 LD A,ACK CP RS JR NZ,$+4 LD A,SOH OR A ; clear carry flag BIT 7,(IY+5) ; isP this conin? RET Z ; retif not BIT 6,(IY+5) ; 2nd char of esc sequence? JR NZ,ESC2 ; brif is PUSH IY ; save iy SC GETSCR ; point to scr CP (IY+64) ; is this an esc char? POP IY ; JR Z,ESC1 ; brif is BIT 5,(IY+5) ; last character an esc? JP NZ,TQRANESC ; brif was OR A ; turn off carry flag RET ; return ESC1: BIT 5,(IY+5) ; last char an esc? JR NZ,ESC1A ; brif was SET 5,(IY+5) ; else set flag SCF ; and carry flag RET ; ESC1A: SET 6,(IY+5) ; turn on code SCF ; set carry flag RET ; ERSC2: RES 6,(IY+5) ; turn off switches RES 5,(IY+5) ; RES 5,A ; fold the character SC CONESC ; go translate OR A ; test if any RET NZ ; retif was SCF ; else turn on carry flag RET ; and return TAB1: REPT 31 DC (0) ; DEFINE HOME,RS DEFINE SCLEAR,ESC,*,30H,8CH DEFINE LEFT,BS DEFINE RIGHT,FF DEFINE UP,VT DEFINE FON,ESC,26H DEFINE FOFF,ESC,27H DEFINE IC,ESC,Q DEFINE DC,ESC,W DEFINE IL,ESC,E DEFINE DL,ESC,R DEFINE EOL,ESC,t,8CH DEFINE EOS,ESC,y,8CH DEFINE EU,ESC,*,32H,8CH SPECIALT: CP SO ; Test for RVON JR Z,.RVON ; BRIF is CP SI ; Test for RVOFF JR Z,.RVOFF ; BRIF is CP VT ; Test for ULON JR Z,.ULON ; BRIF is CP SYN ; Test for ULOFF JR Z,.ULOFF ; BRIF is CP EOT ; Test for PON JR Z,.PON ; BRIF is CP ENQ ; Test for POFFU JR Z,.POFF ; BRIF is CP GS ; Test for BON JR Z,.BON ; BRIF is CP RS ; Test for BOFF JR Z,.BOFF ; BRIF is RES 7,(IY+1EH) ; clear last char attribute flag CP FF ; Test for CLEAR RET NZ ; RETIF not XOR A ; Else clear attributes set 4,a ; set defaVult to full intensity LD (.ATTRIB),A ; LD A,FF ; Get the clear command RET ; Else return .RVON: LD A,(.ATTRIB) ; Get current attribute value SET 2,A ; Set RVON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .RVOFF: LD A,(.ATTRIB) ; Get cuWrrent attribute value RES 2,A ; Set RVOFF LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .ULON: LD A,(.ATTRIB) ; Get current attribute value SET 3,A ; Set ULON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .ULOFF: LD A,(.ATTRIB) ; XGet current attribute value RES 3,A ; Set ULOFF LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .PON: ld c,esc ; set write protect on sc devout ld c,wpon ; send ESC ")" sequence sc devout LD A,(.ATTRIB) ; get current attribute value RES Y4,A ; set to half intensity LD (.ATTRIB),A ; save it as current JR .WRITE ; proceed .POFF: ld c,esc ; set write protect on sc devout ld c,wpoff ; send ESC "(" sequence sc devout LD A,(.ATTRIB) ; get current attribute value SET 4,A ; set to fullZ intensity LD (.ATTRIB),A ; save it as current JR .WRITE .BON: LD A,(.ATTRIB) ; Get current attribute value SET 1,A ; Set BON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .BOFF: LD A,(.ATTRIB) ; Get current attribute value RES 1,A ; Set [BOFF LD (.ATTRIB),A ; Save as current .WRITE: PUSH AF ; Save LD C,ESC ; Lead in SC DEVOUT ; LD C,'G' ; 2nd lead in SC DEVOUT ; LD A,(.ATTRIB) ; Get attributes desired OR 00100000B ; Mask with ' ' LD C,A ; Output attributes desired SC DEVOUT ; \POP AF ; Restore POP AF ; Throw away return addr XOR A ; Clear carry flag RET ; Return .ATTRIB: DB 10h ; Bit mapped ; 4 intensity ; 3 underline ; 2 reverse video ; 1 blink ; 0 blank (not used) TRANESC: ; Routine to translate esc ] ; sequences from console. ; If second character of esc seq ; (reg A) is not recognized ; then the characters are ignored ; RES 5,(IY+5) ; turn off flag CP '*' ; first test if esc,* JR Z,.WAITNXT ; brif is PUSH BC ; save regs PUSH HL ; ^ LD HL,ESCTAB ; point to translate table LD B,6 ; length of table .TRANLOOP: CP (HL) ; test for match JR Z,.HIT ; brif is INC HL ; else point next entry INC HL ; DJNZ .TRANLOOP ; repeat till end of table POP HL ; not found POP BC ; RET ; .HIT:_ INC HL ; point to tran to character LD A,(HL) ; get the character POP HL ; restore regs POP BC ; OR A ; clear cy RET ; .WAITNXT: SET 4,(IY+5) ; have seen ESC,* sequence SCF ; ignore input RET CLEAR: PUSH BC ; save dev number LD B,9 ; poi`nt to conout PUSH AF ; save the character LD C,ESC ; output lead in SC DEVOUT ; display no POP AF ; get the character LD C,A ; copy to c reg SC DEVOUT ; display the character POP BC ; restore dev number SCF ; set carry flag RET ; and return ESaCTAB: DC 'E',DC1 ; ESC,E - IL DC 'R',DC2 ; ESC,R - DL DC 'Q',DC3 ; ESC,Q - IC DC 'W',DC4 ; ESC,W - DC DC 'Y',CAN ; ESC,Y - EOS DC 'T',ETB ; ESC,T - EOL NUL: EQU 00H SOH: EQU 01H STX: EQU 02H ETX: EQU 03H EOT: EQU 04H ENQ: EQU 05H ACK: EQU 06H BELb: EQU 07H BS: EQU 08H HT: EQU 09H LF: EQU 0AH VT: EQU 0BH FF: EQU 0CH CR: EQU 0DH SO: EQU 0EH SI: EQU 0FH DLE: EQU 10H DC1: EQU 11H DC2: EQU 12H DC3: EQU 13H DC4: EQU 14H NAK: EQU 15H SYN: EQU 16H ETB: EQU 17H CAN: EQU 18H EM: EQU 19H SUB: EQU 1AH ESC: EcQU 1BH FS: EQU 1CH GS: EQU 1DH RS: EQU 1EH US: EQU 1FH RUB: EQU 7FH wpon: equ ')' wpoff: equ '(' DEVOUT: EQU 64 CONESC: EQU 78 DELAY: EQU 76 GETSCR: EQU 48 END  TITLE 'SYSTEM.CLASS103 - TeleVideo,Inc TVI-914' MACLIB CLASS CODE: REL CLASS103: JP TRANIN ; input translation vector TRANOUT: CP 20H ; test for control character JR C,CTL ; brif is SC DEVOUT ; else display character JR RETOK ; retuern to caller CTL: CP DLE ; test for dca x,y JP Z,DCA ; brif is CALL SPECIAL ; else test and handle special attributes ; above routine will exit if handled LD HL,TAB1-2 ; point to indirect table ADD A ; code time two LD E,A ; move tof de LD D,0 ; ADD HL,DE ; point to correct slot LD E,(HL) ; get address in de INC HL ; LD D,(HL) ; ; test for not available LD A,D ; is address zero? OR E ; SCF ; set carry flag in case RET Z ; return if address=zero ; elsge output translated values WRITE: LD A,(DE) ; get bytes INC DE ; point next CP 8CH ; test for ff delay code JR Z,WRFFDLY ; brif is LD C,A ; move to output reg c INC A ; test for end of string (0ffh) RET Z ; return if is SC DEVOUT ; elseh write to console JR WRITE ; loop till end of string WRFFDLY: LD A,(IY+7) ; get delay value OR A ; test if any JR Z,WRITE ; brif none SC DELAY ; else pause for delay value JR WRITE ; and continue DCA: RES 7,(IY+1EH) ; turn off attribute siwitch LD C,ESC ; leadin 1 SC DEVOUT ; LD C,'=' ; leadin 2 SC DEVOUT ; LD A,L ; get line desired ADD 20H ; bias LD C,A ; move to output reg SC DEVOUT ; LD A,H ; get column desired ADD 20H ; bias LD C,A ; move to output reg SC DEVOUTj ; RETOK: RES 7,(IY+1EH) ; turn off attribute out switch XOR A ; clear carry flag RET ; TRANIN: ; input character translate routine ; first see if char translate to be done BIT 4,(IY+5) ; check for ESC,* sequence JR Z,.GOON ; ESC,* ksequence did not occure RES 4,(IY+5) ; reset flag CP '0' ; check for ESC,*,0 sequence JP Z,CLEAR ; clear the screen SCF ; ingnore input RET .GOON: CP SYN JR NZ,$+4 LD A,LF CP VT JR NZ,$+4 LD A,SUB CP FF JR NZ,$+4 LD A,ACK CP RS JR lNZ,$+4 LD A,SOH OR A ; clear carry flag BIT 7,(IY+5) ; is this conin? RET Z ; retif not BIT 6,(IY+5) ; 2nd char of esc sequence? JR NZ,ESC2 ; brif is PUSH IY ; save iy SC GETSCR ; point to scr CP (IY+64) ; is this an esc char? POP IY m; JR Z,ESC1 ; brif is BIT 5,(IY+5) ; last character an esc? JP NZ,TRANESC ; brif was OR A ; turn off carry flag RET ; return ESC1: BIT 5,(IY+5) ; last char an esc? JR NZ,ESC1A ; brif was SET 5,(IY+5) ; else set flag SCF ; and carry flnag RET ; ESC1A: SET 6,(IY+5) ; turn on code SCF ; set carry flag RET ; ESC2: RES 6,(IY+5) ; turn off switches RES 5,(IY+5) ; RES 5,A ; fold the character SC CONESC ; go translate OR A ; test if any RET NZ ; retif was SCF ; else oturn on carry flag RET ; and return TAB1: REPT 31 DC (0) ; DEFINE HOME,RS DEFINE CLEAR,ESC,2BH,8CH DEFINE LEFT,BS DEFINE RIGHT,FF DEFINE UP,VT DEFINE IL,ESC,E DEFINE DL,ESC,R DEFINE EOL,ESC,T,8CH DEFINE EOS,ESC,Y,8CH SPECIAL: CP SO p; Test for RVON JR Z,.RVON ; BRIF is CP SI ; Test for RVOFF JR Z,.RVOFF ; BRIF is CP VT ; Test for ULON JR Z,.ULON ; BRIF is CP SYN ; Test for ULOFF JR Z,.ULOFF ; BRIF is CP GS ; Test for BON JR Z,.BON ; BRIF is CP RS ; Test for BOFF q JR Z,.BOFF ; BRIF is cp eot ; test for PON jr z,.hlfon ; brif is cp enq ; test for POFF jr z,.hlfoff ; brif is RES 7,(IY+1EH) ; clear last char attribute flag CP FF ; Test for CLEAR RET NZ ; RETIF not XOR A ; Else clear attributes setr 6,a ; set default values LD (.mATRIB),A ; no underline LD (.nATRIB),A ; normal video, full intensity and steady LD A,FF ; Get the clear command RET ; Else return .ULOFF: LD A,(.mATRIB) ; Get current attribute value RES 1,A ; Set ULOFF LDs (.mATRIB),A ; Save as current ld a,'0' ; load 0 attribute JR .WRITE ; Continue .ULON: LD A,(.mATRIB) ; Get current attribute value SET 1,A ; Set ULON LD (.mATRIB),A ; Save as current ld a,'1' ; load 1 attribute JR .WRITE ; Continue .RVON:t LD A,(.nATRIB) ; Get current attribute value SET 0,A ; Set RVON LD (.nATRIB),A ; Save as current ld a,'1' ; load 1 attribute JR .WRITE ; Continue .RVOFF: LD A,(.nATRIB) ; Get current attribute value RES 0,A ; Set RVOFF LD (.nATRIB),A ; Suave as current ld a,'0' ; load 0 attribute JR .WRITE ; Continue .hlfoff: LD A,(.nATRIB) ; Get current attribute value RES 1,A ; Set ULOFF LD (.nATRIB),A ; Save as current ld a,'0' ; load 0 attribute JR .WRITE ; Continue .hlfon: LD A,(.nATRvIB) ; Get current attribute value SET 1,A ; Set ULON LD (.nATRIB),A ; Save as current ld a,'1' ; load 1 attribute JR .WRITE ; Continue .BON: LD A,(.nATRIB) ; Get current attribute value SET 2,A ; Set BON LD (.nATRIB),A ; Save as current lwd a,'1' ; load 1 attribute JR .WRITE ; Continue .BOFF: LD A,(.nATRIB) ; Get current attribute value RES 2,A ; Set BOFF LD (.nATRIB),A ; Save as current ld a,'0' ; load 0 attribute .WRITE: PUSH AF ; Save type of attribute LD C,ESC ; Lead ixn SC DEVOUT ; LD C,'G' ; 2nd lead in SC DEVOUT ; pop af ; recover attribute type ld c,a ; copy to propper register or '0' ; check for type jr nz,.load1 ; set up for load 1 attribute .load0: ; load 0 is used for normal videyo sc devout ; send out type ld c,'@' sc devout ; send one for m value sc devout ; send another one for n value ld c,'F' jr .sndatt .load1: ; load 1 is used to set attribute sc devout ; send out type ld a,(.mATRIB) ; get value of m ld c,az sc devout ld a,(.nATRIB) ; get value of n ld c,a sc devout ld c,'H' .sndatt: push bc ld c,esc ; send load option sc devout pop bc ; recover type sc devout POP AF ; Throw away return addr XOR A ; Clear carry flag RET ; Return .mATRI{B: DB 40H ; Bit mapped ; 1 : no underline if not set ; underline if set .nATRIB: DB 40H ; Bit mapped ; 0 : normal video if not set ; reverse video if set ; 2 : steady if not set ; blink if set TRANESC: ; |Routine to translate esc ; sequences from console. ; If second character of esc seq ; (reg A) is not recognized ; then the characters are ignored ; RES 5,(IY+5) ; turn off flag CP '*' ; first test if esc,* JR Z,.WAITNXT ; brif i}s PUSH BC ; save regs PUSH HL ; LD HL,ESCTAB ; point to translate table LD B,6 ; length of table .TRANLOOP: CP (HL) ; test for match JR Z,.HIT ; brif is INC HL ; else point next entry INC HL ; DJNZ .TRANLOOP ; repeat till end of table ~POP HL ; not found POP BC ; RET ; .HIT: INC HL ; point to tran to character LD A,(HL) ; get the character POP HL ; restore regs POP BC ; OR A ; clear cy RET ; .WAITNXT: SET 4,(IY+5) ; have seen ESC,* sequence SCF ; ignore input RET CLEAR: PUSH BC ; save dev number LD B,9 ; point to conout PUSH AF ; save the character LD C,ESC ; output lead in SC DEVOUT ; display no POP AF ; get the character LD C,A ; copy to c reg SC DEVOUT ; display the character POP BC ; restore dev number SCF ; set carry flag RET ; and return ESCTAB: DC 'E',DC1 ; ESC,E - IL DC 'R',DC2 ; ESC,R - DL DC 'Q',DC3 ; ESC,Q - IC DC 'W',DC4 ; ESC,W - DC DC 'Y',CAN ; ESC,Y - EOS DC 'T',ETB ; ESC,T - EOL NUL: EQU 00H SOH: EQU 01H STX: EQU 02H ETX: EQU 03H EOT: EQU 04H ENQ: EQU 05H ACK: EQU 06H BEL: EQU 07H BS: EQU 08H HT: EQU 09H LF: EQU 0AH VT: EQU 0BH FF: EQU 0CH CR: EQU 0DH SO: EQU 0EH SI: EQU 0FH DLE: EQU 10H DC1: EQU 11H DC2: EQU 12H DC3: EQU 13H DC4: EQU 14H NAK: EQU 15H SYN: EQU 16H ETB: EQU 17H CAN: EQU 18H EM: EQU 19H SUB: EQU 1AH ESC: EQU 1BH FS: EQU 1CH GS: EQU 1DH RS: EQU 1EH US: EQU 1FH RUB: EQU 7FH DEVOUT: EQU 64 CONESC: EQU 78 DELAY: EQU 76 GETSCR: EQU 48 end  TITLE 'SYSTEM.CLASS12 - VG Flashwriter' MACLIB CLASS INIT 1AH,6,12H,10,15H,1AH,17H,8,2,10,7EH,1AH DCA 5 ; gen x,y addressing DEFINE HOME,SOH DEFINE CLEAR,FF,8CH DEFINE EOS,CAN,8CH DEFINE EOL,ETB,8CH DEFINE LEFT,BS DEFINE RIGHT,ACK DEFINE UP,SUB DEFINE DOWN,LF DEFINE PON,EOT DEFINE POFF,ENQ DEFINE BON,GS DEFINE BOFF,RS DEFINE ULON,VT DEFINE ULOFF,SYN DEFINE RVON,SO DEFINE RVOFF,SI DEFINE FON,STX DEFINE FOFF,ETX DEFINE IL,DC1 DEFINE DL,DC2 DEFINE IC,DC3 DEFINE DC,DC4 END  TITLE 'SYSTEM.CLASS22 Translate File for IBM 3101' MACLIB CLASS INIT ESC=TRANESC DEFINE HOME,ESC,H DEFINE CLEAR,ESC,L,8CH DEFINE EOS,ESC,J,8CH DEFINE EOL,ESC,I,8CH DEFINE LEFT,ESC,D DEFINE RIGHT,ESC,C DEFINE UP,ESC,A DEFINE IL,ESC,N DEFINE DL,ESC,O DEFINE IC,ESC,P DEFINE DC,ESC,Q DCA ; Output ESC,Y,l,c LD C,ESC ; Get ESC character SC DEVOUT ; Display LD C,'Y' ; Lead in SC DEVOUT ; Display DCA$ TRANESC: RES 5,(IY+5) ; turn off flag CP 'L' ; first test if esc,L JR Z,.CLEAR ; brif is PUSH BC ; save regs PUSH HL ; LD HL,ESCTAB ; point to translate table LD B,8 ; length of table .TRANLOOP: CP (HL) ; test for match JR Z,.HIT ; brif is INC HL ; else point next entry INC HL ; DJNZ .TRANLOOP ; repeat till end of table POP HL ; not found POP BC ; RET ; .HIT: INC HL ; point to tran to character LD A,(HL) ; get the character POP HL ; restore regs POP BC ; OR A ; clear cy BIT 7,A ; test parity of tran to char RET Z ; return if off RES 7,A ; else turn off parity SC CONESC ; and perform esc function OR A ; test if any translate done RET NZ ; ret if so SCF ; else turn on cy RET ; and return .CLEAR: PUSH BC ; save dev number LD B,9 ; point to conout PUSH AF ; save character LD C,ESC ; outpout lead in SC DEVOUT ; output now POP AF ; get the character LD C,A ; copy to c reg SC DEVOUT ; display the character POP BC ; restore dev number OR A ; clear cy RET ; and return ESCTAB: DC 'A',SUB ; ESC,A - UP DC 'B',LF ; ESC,B - DOWN DC 'C',ACK ; ESC,C - RIGHT DC 'D',BS ; ESC,D - LEFT DC 'H',SOH ; ESC,H - HOME DC 'I',ETB ; ESC,I - EOL DC 'J',CAN ; ESC,J - EOS DC 'S',CAN ; ESC,S - ctrl/x END  TITLE 'SYSTEM.CLASS32 - Hazeltine Modular One' MACLIB CLASS INIT DEFINE HOME,~,DC2 DEFINE CLEAR,~,FS,8CH ; DEFINE EOS,~,CAN,8CH ; DEFINE EOL,~,SI,8CH DEFINE LEFT,BS DEFINE RIGHT,DLE DEFINE UP,~,FF DEFINE DOWN,~,VT DEFINE IL,~,SUB DEFINE DL,~,DC3 DEFINE EU,~,GS DCA LD C,7EH ; lead in 1 SC DEVOUT ; LD C,DC1 ; lead in 2 SC DEVOUT ; LD A,H ; get column number CP 31 ; test for low column number JR NC,.HIGH ; brif not ADD 96 ; else add bias .HIGH: LD C,A ; copy to output reg SC DEVOUT ; LD A,L ; get line number ADD 96 ; add bias LD C,A ; copy to output reg SC DEVOUT ; XOR A ; clear cy RET ; and return END  TITLE 'SYSTEM.CLASS42 Translate file for Freedom 100' MACLIB CLASS INIT 11,26,22,10,12,6,SPEC=SPECIAL DCA 4 ; ESC,=,r,c DEFINE HOME,RS DEFINE CLEAR,ESC,*,8CH DEFINE EOS,ESC,'y',8CH DEFINE EOL,ESC,'t',8CH DEFINE LEFT,BS DEFINE RIGHT,FF DEFINE UP,VT DEFINE DOWN,LF DEFINE EU,ESC,':' DEFINE IL,ESC,E,8CH DEFINE DL,ESC,R,8CH DEFINE IC,ESC,Q DEFINE DC,ESC,W DEFINE PON,ESC,')' DEFINE POFF,ESC,'(' DEFINE FON,ESC,26H DEFINE FOFF,ESC,27H SPECIAL: CP SO ; Test for RVON JR Z,.RVON ; BRIF is CP SI ; Test for RVOFF JR Z,.RVOFF ; BRIF is CP VT ; Test for ULON JR Z,.ULON ; BRIF is CP SYN ; Test for ULOFF JR Z,.ULOFF ; BRIF is CP GS ; Test for BON JR Z,.BON ; BRIF is CP RS ; Test for BOFF JR Z,.BOFF ; BRIF is ; CP EOT ; Test for PON ; JR Z,.PON ; brif is ; CP ENQ ; Test for POFF ; JR Z,.POFF ; brif is CP FF ; Test for CLEAR RET NZ ; RETIF not XOR A ; Else clear attributes LD (.ATTRIB),A ; LD A,FF ; Get the clear command RET ; Else return .RVON: LD A,(.ATTRIB) ; Get current attribute value SET 2,A ; Set RVON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .RVOFF: LD A,(.ATTRIB) ; Get current attribute value RES 2,A ; Set RVOFF LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .ULON: LD A,(.ATTRIB) ; Get current attribute value SET 3,A ; Set ULON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .ULOFF: LD A,(.ATTRIB) ; Get current attribute value RES 3,A ; Set ULOFF LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .BON: LD A,(.ATTRIB) ; Get current attribute value SET 1,A ; Set BON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .BOFF: LD A,(.ATTRIB) ; Get current attribute value RES 1,A ; Set BOFF LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue ;.PON: ; LD A,01000000B ; turn on pon mask ; LD (MASK),A ; ; LD C,ESC ; also do pon ; SC DEVOUT ; ; LD C,')' ; ; SC DEVOUT ; ; JR .WRITE ; ;.POFF: ; LD A,00110000B ; turn off pon mask ; LD (MASK),A ; ; LD C,ESC ; also do poff ; SC DEVOUT ; ; LD C,'(' ; ; SC DEVOUT ; .WRITE: PUSH AF ; Save LD C,ESC ; Lead in SC DEVOUT ; LD C,'G' ; 2nd lead in SC DEVOUT ; LD A,(.ATTRIB) ; Get attributes desired LD C,A ; copy to c reg LD A,(MASK) ; get pon/poff mask OR C ; get attribute bits LD C,A ; Output attributes desired  SC DEVOUT ; POP AF ; Restore POP AF ; Throw away return addr XOR A ; Clear carry flag RET ; Return .ATTRIB: DC 0 ; Bit mapped ; 3 underline ; 2 reverse video ; 1 blink ; 0 blank (not used) MASK: DC 00110000B ;  TITLE 'SYSTEM.CLASS52 Translate File for PENTEL Penputer' MACLIB CLASS INIT DEFINE HOME,ESC,H DEFINE CLEAR,ESC,H,ESC,E,8CH DEFINE EOS,ESC,E,8CH DEFINE EOL,ESC,K,8CH DEFINE LEFT,ESC,D DEFINE RIGHT,ESC,C DEFINE UP,ESC,A DEFINE PON,ESC,&,d,H DEFINE POFF,ESC,&,d,64 DEFINE BON,ESC,&,d,A DEFINE BOFF,ESC,&,d,64 DEFINE RVON,ESC,&,d,B DEFINE RVOFF,ESC,&,d,64 DEFINE EU,ESC,H,ESC,E,8CH DEFINE IL DEFINE DL DEFINE IC DEFINE DC DCA LD C,ESC ; lead in 1 SC DEVOUT ; LD C,'&' ; lead in 2 SC DEVOUT ; LD C,'a' ; lead in 3 = cursor address SC DEVOUT ; LD A,H ; get column ADD 32 ; add bias LD C,A ; SC DEVOUT ; LD A,L ; get line ADD 32 ; add bias LD C,A ; SC DEVOUT ; XOR A ; clear cy RET ; return to caller END  TITLE 'TRS 80 Mod II VDM Class File' CLASS13: REL JP TRANIN TRANOUT: CP DLE JR Z,DCA SC DEVOUT XOR A RET DCA: SC DEVOUT ; send dca LD C,H ; get column number SC DEVOUT ; send it LD C,L ; get line number SC DEVOUT XOR A ; clear carry RET TRANIN: CP 32 ; bigger than arrow keys? JR NC,ESC ; brif CP 28 ; less than arrow keys? JR C,ESC ; brif JR NZ,.NOTLEFT; left? LD A,8 JR ESC .NOTLEFT: CP 29 JR NZ,.NOTRIGHT LD A,6 JR ESC .NOTRIGHT: CP 30 JR NZ,.NOTUP LD A,26 JR ESC .NOTUP: LD A,10 ESC: OR A ; clear carry BIT 7,(IY+5) ; is this conin? RET Z ; return if not BIT 6,(IY+5) ; 2nd char of esc sequence? JR NZ,ESC2 ; brif PUSH IY ; save IY SC GETSCR ; point to SCR CP (IY+64) ; is this an esc char? POP IY ; retore JR Z,ESC1 ; brif OR A ; clear carry RET ESC1: SET 6,(IY+5) ; turn on code SCF ; set carry RET ESC2: RES 6,(IY+5) ; turn off code RES 5,A ; fold character SC CONESC ; translate OR A ; test if any RET NZ ; return if SCF ; set carry RET ; done CONESC: EQU 78 DEVOUT: EQU 64 GETSCR: EQU 48 DLE: EQU 10H  TITLE 'Class 23 -- SDS VDB 2048' CLASS23: REL JP TRANIN TRANOUT: CP 10H ; dle? JR Z,DCA ; brif direct cursor addressing CP 17H ; eol? JR Z,SIM CP 18H ; eos? JR Z,SIM LD C,A ; put character in C SC 64 ; devout OR A ; clear carry RET SIM: SCF  ; flag for simulation RET DCA: LD C,1BH ; leadin 1 = esc SC 64 ; devout LD C,3DH ; leadin 2 = = SC 64 ; devout LD A,20H ; bias ADD L ; column LD C,A SC 64 ; devout LD A,20H ; bias ADD H ; row LD C,A SC 64 ; devout XOR A ; clear carry RET TRANIN: CP 25 ; tab key JR NZ,.NOTTAB LD A,9 ; control I JR CHKESC .NOTTAB: CP 11 ; up key JR NZ,CHKESC LD A,26 ; control Z CHKESC: OR A ; clear carry BIT 7,(IY+5) ; is this conin? RET Z ; no, return BIT 6,(IY+5) ; 2nd char of esc sequence JR NZ,ESC2 ; brif PUSH IY ; save SC 48 ; getscr CP (IY+64) ; is this an esc char POP IY ; restore JR Z,ESC1 ; brif OR A ; clear carry RET ESC1: SET 6,(IY+5) ; turn on code SCF ; set carry RET ESC2: RES 6,(IY+5) ; turn off code RES 5,A ; fold char SC 78 ; conesc OR A ; test if any RET NZ ; yes, return SCF ; set carry RET END  TITLE 'KONTRON PSI 80 Mod V Class File' CLASS13: REL JP TRANIN TRANOUT: CP DLE JR Z,DCA SC DEVOUT XOR A RET DCA: SC DEVOUT ; send dca LD C,H ; get column number SC DEVOUT ; send it LD C,L ; get line number SC DEVOUT XOR A ; clear carry RET TRANIN: CP 1CH ; home key? JR NZ,ESC ; brif not LD A,1 ; translate ESC: OR A ; clear carry BIT 7,(IY+5) ; is this conin? RET Z ; return if not BIT 6,(IY+5) ; 2nd char of esc sequence? JR NZ,ESC2 ; brif PUSH IY ; save IY SC GETSCR ; point to SCR CP (IY+64) ; is this an esc char? POP IY ; retore JR Z,ESC1 ; brif OR A ; clear carry RET ESC1: SET 6,(IY+5) ; turn on code SCF ; set carry RET ESC2: RES 6,(IY+5) ; turn off code RES 5,A ; fold character SC CONESC ; translate OR A ; test if any RET NZ ; return if SCF ; set carry RET ; done CONESC: EQU 78 DEVOUT: EQU 64 GETSCR: EQU 48 DLE: EQU 10H  TITLE 'SYSTEM.CLASS43 - Altos II Terminal' MACLIB CLASS INIT OWN=TRANS,SPEC=SPECIAL DCA 10 ; x,y addressing TRANS: BIT 7,(IY+5) ; is this conin? RET Z ; no, return BIT 6,(IY+5) ; 2nd char of esc? RET Z ; no, ignore BIT 5,(IY+5) ; esc,o,x?  JR NZ,ESCOX ; yes BIT 4,(IY+5) ; esc,[,x? JR NZ,ESCBRAKX ; yes CP '[' ; bracket? JR Z,ESCBRAK ; yes CP 'O' ; oh? RET NZ ; no ESCO: SET 5,(IY+5) ; set bit POP AF ; forget ret XOR A SCF ; set cy RET ESCBRAK: SET 4,(IY+5) ; set [ POP AF ; forget ret XOR A SCF ; set cy RET ; return ESCOX: ; ; Convert all the ESC O keys to SOH. ; These keys are as follows: ; CLR - ESC O P ; CE - ESC O Q ; % - ESC O R ; DIVISION KEY - ESC O S ; RES 6,(IY+5) ; clear ESC flag RES 5,(IY+5) ; clear ESC O flag CP 'P' JR C,.OK ; if less than P CP 'S'+1 JR NC,.OK ; if greater than S LD A,SOH ; convert to SOH RET .OK: PUSH AF LD A,'O' ; send ESC O SC CONESC POP AF RET ESCBRAKX: ; ; Convert all the ESC [ keys (except the ; arrow keys) to SOH. These keys are as follows: ; INSRT LINE - ESC [ L ; DEL LINE - ESC [ M ; INSRT CHAR - ESC [ @ ; DEL CHAR - ESC [ P ; PREV PAGE - ESC [ T ; NEXT PAGE - ESC [ S ; HOME - ESC [ f ; RES 6,(IY+5) ; clear ESC flag RES 4,(IY+5) ; clear ESC [ flag PUSH BC PUSH HL PUSH AF LD B,11 ; len of table LD HL,BRKTAB ; point table .COMP: CP (HL) ; compare JR Z,.HIT ; brif equal INC HL ; bump INC HL DJNZ .COMP ; loop POP AF ; POP HL ; restore hl POP BC RET ; return .HIT: POP AF ; INC HL ; bump LD A,(HL) ; get replacement char POP HL ; restore regs POP BC RET ; return BRKTAB: DC 'A',SUB ; up arrow DC 'B',LF ; down arrow DC 'C',ACK ; right arrow DC 'D',BS ; left arrow DC 'L',SOH ; INSRT LINE DC 'M',SOH ; DEL LINE DC '@',SOH ; INSRT CHAR DC 'P',SOH ; DEL CHAR DC 'T',SOH ; PREV PAGE DC 'S',SOH ; NEXT PAGE DC 'f',SOH ; HOME DEFINE HOME,ESC,[,H DEFINE CLEAR,ESC,[,H,ESC,[,2,J,8CH DEFINE EOS,ESC,[,J,8CH DEFINE EOL,ESC,[,K,8CH DEFINE LEFT,ESC,[,D DEFINE RIGHT,ESC,[,C DEFINE UP,ESC,[,A DEFINE IL,ESC,[,1,L DEFINE DL,ESC,[,1,M DEFINE DC,ESC,[,1,P DEFINE EU,ESC,[,H,ESC,[,2,J,8CH DEFINE FON DEFINE FOFF SPECIAL: PUSH HL LD HL,ATTRIB CP SO ; Test for RVON JR NZ,NOTRVON ; if not SET 7,(HL) ; set reverse video JP WRITEIT NOTRVON: CP SI ; Test for RVOFF JR NZ,NOTRVOFF ; if not RES 7,(HL) ; clear reverse video JP WRITEIT NOTRVOFF: CP VT ; Test for ULON JR NZ,NOTULON ; if not SET 4,(HL) ; set underline JP WRITEIT NOTULON: CP SYN ; Test for ULOFF JR NZ,NOTULOFF ; if not RES 4,(HL) ; clear underline JP WRITEIT NOTULOFF: CP GS ; Test for BON JR NZ,NOTBON ; if not SET 5,(HL) ; set blink JP WRITEIT NOTBON: CP RS ; Test for BOFF JR NZ,NOTBOFF ; if not RES 5,(HL) ; clear blink JP WRITEIT NOTBOFF: CP EOT ; Test for PON JR NZ,NOTPON ; if not SET 2,(HL) ; set dim JP WRITEIT NOTPON: CP ENQ ; Test for POFF JR NZ,NOTPOFF ; if not RES 2,(HL) ; clear dim JP WRITEIT NOTPOFF: CP FF ; Test for CLEAR JR NZ,.EXIT ; if not XOR A ; clear attributes for CLEAR LD (HL),A ; LD A,FF ; restore FF .EXIT: POP HL ; restore HL RET WRITEIT: LD C,ESC ; lead in SC DEVOUT LD C,'[' ; 2nd lead in SC DEVOUT LD C,'0' ; attributes off SC DEVOUT BIT 7,(HL) ; test for reverse video JR Z,NORV ; if not LD C,';' ; concatenation char SC DEVOUT LD C,'7' ; reverse video on SC DEVOUT NORV: BIT 5,(HL) ; test for blink JR Z,NOBLINK ; if not LD C,';' ; concatenation char SC DEVOUT LD C,'5' ; blink on SC DEVOUT NOBLINK: BIT 4,(HL) ; test for underline JR Z,NOUL ; if not LD C,';' ; concatenation char SC DEVOUT LD C,'4' ; underline on SC DEVOUT NOUL: BIT 2,(HL) ; test for dim JR Z,NODIM ; if not LD C,';' ; concatenation char SC DEVOUT LD C,'2' ; dim on  SC DEVOUT NODIM: LD C,'m' ; terminating char SC DEVOUT POP HL POP AF ; throw away ret addr XOR A ; clear carry flag RET ATTRIB: DC 0 ; bit mapped ; 7 reverse video on ; 5 blink on ; 4 underline on ; 2 dim on DEVOUT: EQU 64 CONESC: EQU 78 DELAY: EQU 76 GETSCR: EQU 48 END  TITLE 'SYSTEM.CLASS14 Elbit VDU 1920' MACLIB CLASS INIT DEFINE HOME,ESC,00H,00H DEFINE CLEAR,CAN,8CH,ESC,00H,00H DEFINE EOS,DC4,8CH DEFINE EOL,SYN,8CH DEFINE LEFT,BS DEFINE RIGHT,NAK DEFINE UP,SUB DEFINE DOWN,LF DEFINE IL DEFINE IC DEFINE DL DEFINE DC DEFINE EU DEFINE PON DEFINE POFF DEFINE FON DEFINE FOFF DEFINE BON DEFINE BOFF DEFINE ULON DEFINE ULOFF DEFINE RVON DEFINE RVOFF DCA LD C,ESC ; leadin SC DEVOUT LD A,L ; get line number CP 12 ; lt twelve? JR C,LT12 ; yes ADD 4 ; else, bias by four LT12: LD C,A ; move SC DEVOUT ; display LD C,H ; get column SC DEVOUT ; display XOR A ; clear reg a RET ; return END  TITLE 'SYSTEM.CLASS24 Translate File for Intertube' MACLIB CLASS INIT 21,8,SPEC=SPECIAL DEFINE HOME,SOH DEFINE CLEAR,FF,8CH DEFINE EOS,ESC,k,8CH DEFINE EOL,ESC,K,8CH DEFINE LEFT,BS DEFINE RIGHT,ACK DEFINE UP,VT DEFINE IL DEFINE IC DEFINE DL DEFINE DC DEFINE EU,ESC,G,8CH DEFINE PON,ESC,P DEFINE POFF,ESC,p DEFINE FON DEFINE FOFF DEFINE BON DEFINE BOFF DEFINE ULON DEFINE ULOFF DEFINE RVON DEFINE RVOFF DCA LD C,ESC ; Output ESC,'Y' lead in SC DEVOUT LD C,'Y' SC DEVOUT DCA$ ; Finish sequence SPECIAL: CP SO ; Test for RVON JR Z,.RVON ; BRIF is CP SI ; Test for RVOFF JR Z,.RVOFF ; BRIF is CP EOT ; Test for PON JR Z,.PON ; BRIF is CP ENQ ; Test for POFF JR Z,.POFF ; BRIF is CP GS ; Test for BON JR Z,.BON ; BRIF is CP RS ; Test for BOFF JR Z,.BOFF ; BRIF is RET ; Else ignore .RVON: LD A,(ATTRIB) ; Get current attribute value SET 4,A ; Set reverse video on LD (ATTRIB),A ; Save as current attribute JR .WRITE ; Output string .RVOFF: LD A,(ATTRIB) ; Get current attribute value RES 4,A ; Set reverse video off LD (ATTRIB),A ; Save as current attribute JR .WRITE ; Output string .PON: LD A,(ATTRIB) ; Get current attribute value SET 3,A ; Set protect on SET 0,A ; Set half intensity on LD (ATTRIB),A ; Save as current attribute JR .WRITE ; Output string .POFF: LD A,(ATTRIB) ; Get current attribute value RES 3,A ; Set protect off RES 0,A ; Set half intensity off LD (ATTRIB),A ; Save as current attribute JR .WRITE ; Output string .BON: LD A,(ATTRIB) ; Get current attribute value SET 1,A ; Set blink on LD (ATTRIB),A ; Save as current attribute JR .WRITE ; Output string .BOFF: LD A,(ATTRIB) ; Get current attribute value RES 1,A ; Set blink off LD (ATTRIB),A ; Save as current attribute .WRITE: LD C,ESC ; Attribute lead in SC DEVOUT ; LD C,'0' ; SC DEVOUT ; LD A,(ATTRIB) ; Get attribute byte LD C,A ; SC DEVOUT ; POP AF ; Throw away return address XOR A ; Clear carry flag RET ; Return ATTRIB: DC 01000000B ; Attribute byte END  TITLE 'SYSTEM.CLASS34 Translate File for Visual 200 (SD Systems)' MACLIB CLASS INIT NAK,BS DEFINE HOME,ESC,=,' ',' ' DEFINE CLEAR,SUB,ESC,=,' ',' ',8CH DEFINE EOS,ESC,y,8CH DEFINE EOL,ESC,x,8CH DEFINE LEFT,BS DEFINE RIGHT,FF DEFINE UP,VT DEFINE EU,ESC,w,ESC,=,' ',' ',8CH DEFINE PON,ESC,4 DEFINE POFF,ESC,3 DEFINE FON DEFINE FOFF DEFINE BON,ESC,5 DEFINE BOFF,ESC,k DEFINE RVON DEFINE RVOFF DEFINE ULON DEFINE ULOFF DEFINE IL,ESC,L DEFINE DL,ESC,M DEFINE DC,ESC,j DEFINE IC,ESC,i  DCA 7 ; DCA is ESC,=,l,c END  TITLE 'SYSTEM.CLASS44 Translate File for Ampex D175' MACLIB CLASS INIT 0BH,1AH,0CH,06H,1EH,01H DCA 4 DEFINE HOME,RS DEFINE CLEAR,ESC,*,8CH DEFINE EOS,ESC,y,8CH DEFINE EOL,ESC,t,8CH DEFINE LEFT,BS DEFINE RIGHT,FF DEFINE UP,VT DEFINE EU,ESC,:,8CH DEFINE PON,ESC,29H DEFINE POFF,ESC,28H DEFINE FON,ESC,26H DEFINE FOFF,ESC,27H DEFINE BON,ESC,n DEFINE BOFF,ESC,o DEFINE RVON,ESC,j DEFINE RVOFF,ESC,k DEFINE ULON,ESC,l DEFINE ULOFF,ESC,m DEFINE IL,ESC,E DEFINE DL,ESC,R DEFINE IC,ESC,Q DEFINE DC,ESC,W END  TITLE 'SYSTEM.CLASS15 Translate File for ADDS Regent 20 series' MACLIB CLASS INIT 21,8 DEFINE HOME,SOH DEFINE CLEAR,FF,8CH DEFINE EOL,ESC,K,8CH DEFINE LEFT,NAK DEFINE RIGHT,ACK DEFINE UP,SUB DEFINE IL DEFINE IC DEFINE DL DEFINE DC DEFINE EU DEFINE PON DEFINE POFF DEFINE FON DEFINE FOFF DEFINE BON DEFINE BOFF DEFINE ULON DEFINE ULOFF DEFINE RVON DEFINE RVOFF DCA LD C,ESC ; Output ESC,'Y' lead in SC DEVOUT LD C,'Y' SC DEVOUT DCA$ ; Finish sequence END  TITLE 'SYSTEM.CLASS25 Volker-Craig VC404' MACLIB CLASS INIT DEFINE CLEAR,CAN,8CH DEFINE EOS,ETB,8CH DEFINE EOL,SYN DEFINE LEFT,BS DEFINE RIGHT,NAK DEFINE UP,SUB DEFINE EU DEFINE PON DEFINE POFF DEFINE FON DEFINE FOFF DEFINE BON DEFINE BOFF DEFINE RVON DEFINE RVOFF DEFINE ULON DEFINE ULOFF DCA ; DLE,l,c LD C,DLE ; Output DLE SC DEVOUT ; DCA$ ; Continue with l,c with bias END  TITLE 'SYSTEM.CLASS35 Translate File for LSI ADM 5' MACLIB CLASS INIT FF,6,VT,26 DEFINE HOME,RS DEFINE CLEAR,SUB,8CH DEFINE EOS,ESC,Y,8CH DEFINE EOL,ESC,T,8CH DEFINE LEFT,BS DEFINE RIGHT,FF DEFINE UP,VT DEFINE EU,SUB,8CH DEFINE PON,ESC,) DEFINE POFF,ESC,( DEFINE FON DEFINE FOFF DEFINE BON DEFINE BOFF DEFINE RVON,ESC,G DEFINE RVOFF,ESC,G DEFINE ULON DEFINE ULOFF DEFINE IL DEFINE DL DEFINE DC DEFINE IC DCA 7 ; DCA is ESC,=,l,c END  TITLE 'SYSTEM.CLASS26 Translate File for Teleray 1000 series' MACLIB CLASS INIT SPEC=SPECIAL DEFINE HOME,ESC,H DEFINE CLEAR,FF,8CH DEFINE EOS,ESC,J,8CH DEFINE EOL,ESC,K,8CH DEFINE LEFT,BS DEFINE RIGHT,ESC,C DEFINE UP,ESC,A DEFINE IL,ESC,L DEFINE IC,ESC,P DEFINE DL,ESC,M DEFINE DC,ESC,Q DEFINE EU,FF,8CH DEFINE PON DEFINE POFF DEFINE FON DEFINE FOFF DEFINE BON DEFINE BOFF DEFINE ULON DEFINE ULOFF DEFINE RVON DEFINE RVOFF DCA LD C,ESC ; Output ESC,'Y' lead in SC DEVOUT LD C,'Y' SC DEVOUT DCA$ ; Finish sequence SPECIAL: CP SO ; Test for RVON JR Z,.RVON ; BRIF is CP SI ; Test for RVOFF JR Z,.RVOFF ; BRIF is CP EOT ; Test for PON JR Z,.PON ; BRIF is CP ENQ ; Test for POFF JR Z,.POFF ; BRIF is CP GS ; Test for BON JR Z,.BON ; BRIF is CP RS ; Test for BOFF JR Z,.BOFF ; BRIF is CP VT ; Test if ULON JR Z,.ULON ; BRIF is CP SYN ; Test if ULOFF JR Z,.ULOFF ; BRIF is RET ; Else ignore .RVON: LD A,(ATTRIB) ; Get current attribute value SET 2,A ; Set reverse video on LD (ATTRIB),A ; Save as current attribute JR .WRITE ; Output string .RVOFF: LD A,(ATTRIB) ; Get current attribute value RES 2,A ; Set reverse video off LD (ATTRIB),A ; Save as current attribute JR .WRITE ; Output string .PON: LD A,(ATTRIB) ; Get current attribute value SET 4,A ; Set protect on SET 1,A ; Set half intensity on LD (ATTRIB),A ; Save as current attribute JR .WRITE ; Output string .POFF: LD A,(ATTRIB) ; Get current attribute value RES 4,A ; Set protect off RES 1,A ; Set half intensity off LD (ATTRIB),A ; Save as current attribute JR .WRITE ; Output string .BON: LD A,(ATTRIB) ; Get current attribute value SET 0,A ; Set blink on LD (ATTRIB),A ; Save as current attribute JR .WRITE ; Output string .BOFF: LD A,(ATTRIB) ; Get current attribute value SET 0,A ; Set blink off LD (ATTRIB),A ; Save as current attribute JR .WRITE ; Output string .ULON: LD A,(ATTRIB) ; Get current attribute valuee SET 3,A ; Set underline on LD (ATTRIB),A ; Save as current attribute JR .WRITE ; Output string .ULOFF: LD A,(ATTRIB) ; Get current attribute value RES 3,A ; Set underline off LD (ATTRIB),A ; Save as current attribute .WRITE: LD C,ESC ; Attribute lead in SC DEVOUT ; LD C,'R' ; SC DEVOUT ; LD A,(ATTRIB) ; Get attribute byte LD C,A ; SC DEVOUT ; POP AF ; Throw away return address XOR A ; Clear carry flag RET ; Return ATTRIB: DC 01000000B ; Attribute byte END  TITLE 'SYSTEM.CLASS36 - TeleVideo,Inc TVI-910' MACLIB CLASS INIT VT,SUB,FF,ACK,RS,SOH,SPEC=SPECIAL DCA 7 DEFINE HOME,RS DEFINE CLEAR,ESC,*,8CH DEFINE LEFT,BS DEFINE RIGHT,FF DEFINE UP,VT DEFINE PON,ESC,) DEFINE POFF,ESC,( DEFINE EOL,ESC,T,8CH DEFINE EOS,ESC,Y,8CH DEFINE DL DEFINE IL DEFINE DC DEFINE IC DEFINE FON DEFINE FOFF DEFINE EU,ESC,*,8CH SPECIAL: CP SO ; Test for RVON JR Z,.RVON ; BRIF is CP SI ; Test for RVOFF JR Z,.RVOFF ; BRIF is CP VT ; Test for ULON JR Z,.ULON ; BRIF is CP SYN ; Test for ULOFF JR Z,.ULOFF ; BRIF is CP GS ; Test for BON JR Z,.BON ; BRIF is CP RS ; Test for BOFF JR Z,.BOFF ; BRIF is CP FF ; Test for CLEAR RET NZ ; RETIF not XOR A ; Else clear attributes LD (.ATTRIB),A ; LD A,FF ; Get the clear command RET ; Else return .RVON: LD A,(.ATTRIB) ; Get current attribute value SET 2,A ; Set RVON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .RVOFF: LD A,(.ATTRIB) ; Get current attribute value RES 2,A ; Set RVOFF LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .ULON: LD A,(.ATTRIB) ; Get current attribute value SET 3,A ; Set ULON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .ULOFF: LD A,(.ATTRIB) ; Get current attribute value RES 3,A ; Set ULOFF LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .BON: LD A,(.ATTRIB) ; Get current attribute value SET 1,A ; Set BON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .BOFF: LD A,(.ATTRIB) ; Get current attribute value RES 1,A ; Set BOFF LD (.ATTRIB),A ; Save as current .WRITE: PUSH IY ; Save IY reg SC GETSCR ; Point SCR INC (IY+13) ; Adjust column count POP IY ; Restore IY PUSH AF ; Save LD C,ESC ; Lead in SC DEVOUT ; LD C,'G' ; 2nd lead in SC DEVOUT ; LD A,(.ATTRIB) ; Get attributes desired OR 00110000B ; Mask with '0' LD C,A ; Output attributes desired SC DEVOUT ; POP AF ; Restore POP AF ; Throw away return addr XOR A ; Clear carry flag RET ; Return .ATTRIB: DC 0 ; Bit mapped ; 3 underline ; 2 reverse video ; 1 blink ; 0 blank (not used)  TITLE 'SYSTEM.CLASS27 Translate File for Tektronix 4025' MACLIB CLASS INIT SPEC=SPECIAL SPC: EQU 20H DEFINE HOME,|,U,P,3,3,3,3,CR DEFINE EOS DEFINE EOL,|,D,C,H,8,0,CR DEFINE LEFT,BS DEFINE RIGHT,|,R,I,G,CR DEFINE UP,|,U,P,CR DEFINE IL,|,I, L,I,CR DEFINE IC,|,I,C,H,CR DEFINE DL,|,D,L,I,CR DEFINE DC,|,D,C,H,CR DEFINE EU DEFINE FON DEFINE FOFF DEFINE BELL,|,B,E,L,CR DCA 2 SPECIAL: CP FF ; Test for CLEAR JR Z,.CLR ; BRIF is CP SO ; Test for RVON JR Z,.RVON ; BRIF is CP SI ; Test for RVOFF JR Z,.RVOFF ; BRIF is CP EOT ; Test for PON JR Z,.PON ; BRIF is CP ENQ ; Test for POFF JR Z,.POFF ; BRIF is CP GS ; Test for BON JR Z,.BON ; BRIF is CP RS ; Test for BOFF JR Z,.BOFF ; BRIF is CP VT ; Test for ULON JR Z,.ULON ; BRIF  is CP SYN ; Test for ULOFF JR Z,.ULOFF ; BRIF is RET ; Else ignore .CLR: LD HL,CLR ; Point to CLEAR text .PT0: LD A,(HL) ; Get char CP 0FFH ; Test for end JP Z,.PT4 ; BRIF is LD C,A ; Copy to output register SC DEVOUT ; Output INC HL ; Point ne xt JR .PT0 ; Loop .RVON: LD A,(ATTRIB) ; Get current attribute value SET 3,A ; Set reverse video on LD (ATTRIB),A ; Save as current attribute JR .WRITE ; Output string .RVOFF: LD A,(ATTRIB) ; Get current attribute value RES 3,A ; Set reverse video off LD (ATTRIB),A ; Save as current attribute JR .WRITE ; Output string .PON: LD A,(ATTRIB) ; Get current attribute value SET 2,A ; Set protect on SET 0,A ; Set half intensity on LD (ATTRIB),A ; Save as current attribute JR .WRITE ; Output string .POFF: LD A,(ATTRIB) ; Get current attribute value RES 2,A ; Set protect off RES 0,A ; Set half intensity off LD (ATTRIB),A ; Save as current attribute JR .WRITE ; Output string .BON: LD A,(ATTRIB) ; Get current attribute value SET 4,A ; Set blin k on LD (ATTRIB),A ; Save as current attribute JR .WRITE ; Output string .BOFF: LD A,(ATTRIB) ; Get current attribute value RES 4,A ; Set blink off LD (ATTRIB),A ; Save as current attribute JR .WRITE ; Output string .ULON: LD A,(ATTRIB) ; Get curr ent attribute value SET 1,A ; Set underline on LD (ATTRIB),A ; Save as current attribute JR .WRITE ; Output string .ULOFF: LD A,(ATTRIB) ; Get current attribute value RES 1,A ; Set underline off LD (ATTRIB),A ; Save as current attribute .WRITE: LD IY,ATTLEAD ; Point to lead in .PT1: LD A,(IY) ; Get a character CP 0 ; Test if end JR Z,.WRATT ; BRIF is LD C,A ; Copy to C reg SC DEVOUT ; Output INC IY ; Point next JR .PT1 ; Loop .WRATT: LD IY,ATTRIBS ; Point to attribute characters LD A,(AT TRIB) ; Get current attributes LD B,5 ; Count of possible attributes CP 0 ; Test for attributes set JR NZ,.PT2 ; BRIF any LD A,'S' ; Else set to standard SC DEVOUT ; Output JR .PT4 .PT2: SRL A ; Shift right attributes JR NC,.PT3 ; BRIF bit zero w as 0 LD C,(IY) ; Get matching attribute char PUSH BC ; Save count LD B,9 ; Point to CONOUT SC DEVOUT ; Output POP BC ; Restore count .PT3: INC IY ; Point next attribute char DJNZ .PT2 ; Loop .PT4: POP AF ; Throw away return address XOR A ; Clear carry flag RET ; Return ATTRIB: DC 00000000B ; Attribute byte ATTLEAD: DC '|ATT ',0 ; Attribute lead in ATTRIBS: DC 'EUPI-' ; Attribute codes CLR: DC '|DOW 34 ;|UP 34 ',CR,0FFH END  TITLE 'SYSTEM.CLASS37 - Falco Data Products TS-1' MACLIB CLASS INIT SPEC=SPECIAL,ESC=TRANESC DCA 7 ; Use same addressing as TeleVideo terminals DEFINE HOME,ESC,[,H DEFINE CLEAR,ESC,* DEFINE EOS,ESC,'y' DEFINE EOL,ESC,'t' DEFINE RIGHT,ESC ,[,C DEFINE UP,ESC,[,A DEFINE IL,ESC,E DEFINE IC,ESC,Q DEFINE DL,ESC,R DEFINE DC,ESC,W DEFINE EU,ESC,',' DEFINE PON,ESC,) DEFINE POFF,ESC,( DEFINE FON,ESC,& DEFINE FOFF,ESC,27H SPECIAL: CP SO ; Test for RVON JR Z,.RVON ; BRIF is CP SI ; Te st for RVOFF JR Z,.RVOFF ; BRIF is CP VT ; Test for ULON JR Z,.ULON ; BRIF is CP SYN ; Test for ULOFF JR Z,.ULOFF ; BRIF is CP GS ; Test for BON JR Z,.BON ; BRIF is CP RS ; Test for BOFF JR Z,.BOFF ; BRIF is CP FF ; Test for CLEAR RET NZ ; RET IF not XOR A ; Else clear attributes LD (.ATTRIB),A ; LD A,FF ; Get the clear command RET ; Else return .RVON: LD A,(.ATTRIB) ; Get current attribute value SET 2,A ; Set RVON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .RVOFF: LD A,(. ATTRIB) ; Get current attribute value RES 2,A ; Set RVOFF LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .ULON: LD A,(.ATTRIB) ; Get current attribute value SET 0,A ; Set ULON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .ULOFF: L D A,(.ATTRIB) ; Get current attribute value RES 0,A ; Set ULOFF LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .BON: LD A,(.ATTRIB) ; Get current attribute value SET 1,A ; Set BON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .BOFF: LD A,(.ATTRIB) ; Get current attribute value RES 1,A ; Set BOFF LD (.ATTRIB),A ; Save as current .WRITE: PUSH AF ; Save LD C,ESC ; Lead in SC DEVOUT ; LD C,'g' ; 2nd lead in SC DEVOUT ; LD A,(.ATTRIB) ; Get attributes desired OR 00110000B ; Ma sk with '0' LD C,A ; Output attributes desired SC DEVOUT ; POP AF ; Restore POP AF ; Throw away return addr XOR A ; Clear carry flag RET ; Return .ATTRIB: DC 0 ; Bit mapped ; 3 blank (not used) ; 2 reverse video ; 1 blink ; 0 underline TRANESC: ; Routine to translate esc ; sequences from console. ; If second character of esc seq ; (reg A) is not recognized ; then the characters are ignored ; RES 5,(IY+5) ; turn off flag CP '*' ; first test if esc,* JR Z,.CLEAR ; brif is PUSH BC ; save regs PUSH HL ; LD HL,ESCTAB ; point to translate table LD B,4 ; length of table .TRANLOOP: CP (HL) ; test for match JR Z,.HIT ; brif is INC HL ; else point next entry INC HL ; DJNZ .TRANLOOP ; repeat till end of table P OP HL ; not found POP BC ; RET ; .HIT: INC HL ; point to tran to character LD A,(HL) ; get the character POP HL ; restore regs POP BC ; OR A ; clear cy BIT 7,A ; test parity of tran to char RET Z ; return if off RES 7,A ; else turn off parity  SC CONESC ; and perform esc function OR A ; test if any tran done RET NZ ; return if so SCF ; else turn on cy RET ; and return .CLEAR: PUSH BC ; save dev number LD B,9 ; point to conout PUSH AF ; save the character LD C,ESC ; output lead in S C DEVOUT ; display no POP AF ; get the character LD C,A ; copy to c reg SC DEVOUT ; display the character POP BC ; restore dev number OR A ; clear cy RET ; and return ESCTAB: DC 'A',SUB ; ESC,A - UP DC 'B',LF ; ESC,B - DOWN DC 'C',ACK ; ESC,C -! RIGHT DC 'D',BS ; ESC,D - LEFT END 1,1M"1,1?$1,1>= !/6#͸ 8 x?8> B (> (.(*(  x(UxU> >  >  > ?$/!/~ #~ !j':/ ʯ .ʎ!!/@O~O[O(O-O'O08:O!/~~ ##~ #N˹#^#V#x8!!*L$ ̀$("/*/P  */P ?$!$:/(#[/R8[/R0[/R#>'#>: >  >~##= >  >R>' ~# 88>. >' "/͉ =P o&)))))*/R"/̀$T]$̀$|$~'(<y$ w$ PYB( B#R DM #~ ( ' #(zw#̀$!L$#!L$'ͫͫdͫ ͫ}0 !L$|͞}͞>'  88>. >/' >  #>' #>  +#!~L$#! f` :/2è$̀$$e[ ~ e e(!` !/6#!fsr66Rt6|w6_:eG(! ` ut/.e/:eG !/^VnfN3 $n!vf~ ( ( .(:(#> ~ (Y (U:(5.n#~ ( (:(#> ~ (% (!:#~G2e#~ ( fN ( N(\N ( N(\$A[0ɷ0:0 COMMAND Load Error: ̀$̀$̀$B8#`i +$`i +$ B#+ ̀$̀$!/$~'($(%y$w##~ (' # w#/RMR!/AR( ~ݾ B##:/([/R0[/R8 #>' #!L$͸N?$# Again?̀$$(=$ bk$~'(y$#~'( bk$#(?$:/([/R0[/R8#>'#>: >  T]$~#>( ~ 88>. >) >  ͸ ʅ(J (?'(T ( >  %0:8 AG G͋#͋#͋+͋Bp͸  ʅw#$̀$"/?$*/T]###$:/(*/[/R0[/R8 #*/>'*/#>   >  !/6 /(! 06 #͸  8 > w#͸ (90 +~ (> >  >  +~ #> w# > >  6 ]T!06 ! 0~ ( (+##~  !+ 0 #'# ~ :p/(2p/>? > þ:p/!06# ¯ !%/~ʶ # !0!3.~(#~(##>`$+~`$/ !3,~#(#ʶ ~ !0x`$:p/>  !/*/|`$}`$:/(%*/[/R0[/R8!/>  !/ ~# [/!0~ S/þA80O#~#A80͸ %+~ > +~ (#/ > >  >  ( 8w#w!0~ !0~ (#, xҶ !.Y~ʶ !0xyo xʶ >p`$>h`$yFʚ yHʫ ʒ ~ ʏ $ + >`$x`(Xʶ {`$xʶ y$0 `$/ @ʶ z¶ {¶ >dz`$/ :0'(xʶ {`$@/ z`$/ O!0~ ʶ # ~ ¶ ++~ʶ A !0[/~/ `$#~/ >  !/*/|`$}`$:/(%*/[/R0[/R8!/>  !/ ~# ?$!0/!/6 S/͠ ڶ >`$/ @ʶ >`${`$/ @ʶ >`${`$/ !0  V#~,( (_##!*~ ~ >G##7H¶ !3,.~ʶ (  ~(##,y x(>`$/ ~(: (0(LP(Up(](i(<(8ö x x`( }`${}`$/ x x`( }0`${{` {@ }`${@ }`${`$z}`$æ >`${`$/ [/R++z{(¶ ¶ {`$/ ~( m#~ c~)#H #~L#~)#I#~Y X #~)#+(- ~ c~) #Pz/W{/_ c~ , $ 1#[/~ ,+(- #c*/P(R')I(YA[W#~ (c,(__#~ (, &B.CR(+<&D.ER(!<&H.LR(<&S.PR( &A.FR( _#~X#Y ˰zBCDEHLMA yH#~' , _#~' , S_#~' yH ~ (3,(/'((([( )(](##~ (' #(x(~6 >2/̀$:/==2/(<2/ö wy(w ʀ(xik oʠ+ڶ .Ҷ @ʶ # xʶ x`>(p> >`$>`${`$}Wy*`$/ ͠ ڶ >͠ ڶ >° o@ʶ à ͠ ڶ h¶ > oÓ ~( +#~S¶ #####~L(X( Y¶ >>`$>`$/ D¶ ###~H¶ >`$/ ~,¶ ~(¶ ~C(~A¶ ## Hʶ >`${`$/ xʶ >`${@`$/ ~(¶ ~C( Hʶ #~A¶ >`${`$/ ~,¶ ####~(ʶ xʶ >`${A`$/ JB~H¶ #~L¶ #~,¶ # >¶ >`${`$/ `ʶ {¶ H# `ʶ { x¶ {oq(>i(>`$> `$/ ~,(2~(ˆ~,ˆ~Aˆ~ ˆ~B(DˆyL~A(/I( R ]~AO~AG¶ ~ ¶ >`$y`$/ ~IW(R_(( #~B ~C¶ > D ~E¶ > xʶ # xOʶ @¶ A(Sx &`ʶ p> h>(`$}`${`$zLp> h>(`$>6`$}`${L}`${LHGy 7aʶ {(>`${C`$}`$|Lq> i(>`$>"`${¶ >2`$Iʔx 5`ʶ } p> h(>`$>*`$>`$}K`$}¶ >:`$`(%}¶ aʶ {¶ q> i(>`$>Lxʶ yʶ x` y` %}@Ly`¶ p> >`${p`$}Lq> >`$}F`${L@(~(-(+( [(08:00!"/2/G2/P o&"/$(5~, #$~* #̀$"/$(̀$"/ ͉ ?$*/:/ T]$!/~#`$> w#*/:/ @:/('[/*/R8[/R0[/*/R#>'*/#>  */>  2/2/~2/a >X >Y2/#"/~2/ʊ!3,O F#N.x_!+~w## > w#y ;*/#"/ѷR)!/~ (6 #6:/!/L$*/+"/|y >c((2|(~( ZE ;<6(#6C#6)#  6I#6R#  JyGQO6,#x ;Q| Q~ Qy ZQ6(#6)#QJQ=__!Y:/ÆË/6N1GMR8 T6(#:/('*/:/(+#"/^>+{({D_>-w#X6)#:/>((6I#:/w# 6A#!b*_~w#_!b* :/( 6A#6F#~w##~w#06(#:/6)#*/#"/^:/( */R(8*/R8̈́6'#z( 8.)z( 8'"{( 8{ 8z`$zi${`${i$60#6(#N6)#*/#^#V"/X6(#6)#6(#M6)#8_!*~w##~ w#*/#"/^{(#X>8_X6A#*/#"/~2/!3.G~ )(####F#N)2/:/(##"/~2/@08 >0???$G )@+G.:/8_X>2Y/!"/$($~, #̀$"/$(~*!Ā$"/͉ */~ʓ}ʩvʏ ʞʄ~ #~MEÑ #~ʲå #~å*:*G(0*:*G(0 "/:d//B6#q#p:p/(*n/"/1/1/{//W2/>>2d/s/1/1/1,1":p/(:X/(*n/"/[l/!h/*/[\/2X/RH!2/N:p/>2p/*/| ( +"/|?$+ú*:*G(*:+G(+: +G(2d/#k~ͼ8##kK/C/ ##k#^#{("n/k*/"n/k{/"n/Qͻ8#k~ ##2Y/r/~:[/w}|>2q/2X/H!W8_:[/{ #k_#:Y/ {/"n/s/":p/(*n/"/1,13#^#V#ͻ8###k#k#^#V"n/kͻ8###k*/"n/k*/"n/k~82/S/>2/S/1/1*1"/7ɷɯ2/$C H~#AJ8 L( S(PG~, #~ ` (\OC("E(F(X(L(Y(P( '2/ #~, #~ # (#'2/~, #~  ! A/B !FAB ! B/B !CBB ! CB /! DB !EDB(S! EB(K/! HB(@!LHB(7! LB(//!XIB($/!YIB(/!PSB(/!CPB(̀$:/'  By (|} >2/N:d/D */>S} >  > u(>Z > U(>P > E(>C FA*/CB*/ED*/LH*/CP*/"/:/([/R0[/R8 >' */>2/͂*/"/!/L$:/?$>2/>  >I >= :/#FA*/CB*/ED*/LH*/2/PS*/XI*/YI*/?$CB*/ͺED*/ͺLH*/ͺPSͣ*/^#V#>  # ?$>  >( x y >) >: ͣ>  ~## B>  >' ~ 88>. #>' ?$>  x y :/>= >' #L$(~AS(HG2/G :/G ̀$"/̀$"/!$( ̀$|"/:/G*/y:/Oa.+$!9[/ 23!"9 !"9?0A >B > C >D >E >F >@ >a8{0˯ ( _ >> O:Z/(:Z/2Z/( : H !&`2Z/  PRINTER1 ;y>\8 !"R/+"T/7"T/0"R/È$̀$R#̀$Į # x ͉ #>: >  ~#>, >  #>: >  #?$$~(, #̀$"/$H!r/x0$~* "## 2q/̀$~:[/w}|x2q/$ "1/1/!d/~w#6*/| {/:[/ #{/"f/*/d/>2p/(/!/6  0!/~ ! #~ ( (#~ ( !#~ (0~ ( #2p/͙ */"n/y(F( H! R"/"l/h/ [l/S/!0~ A8O#~A8#!"/P"/W2/~ N>(>o2\/2[/&))))-6G#67"V/!8069!2#u:t;n(f)"R( s(r)"`/069*`/u(t)0"0*/R*/^#V#"/"/7R *V/8069ɯW2/_>A#>2d/"/s/1/+"/"/1/1,1:q/(G!r/~#^#V#2q/͙"":X/3!B*L$:/( */[/R0[/R8 #>' */#!0(~(L$  ;A 1# 80 |#}#~ #SN/"P/] *R/R8*T/[P/R8*N/!S*L$ >  >  ~# ?$( ( i$ 80w#̀$}!$T]ͩ$~,( ( (#<ͯ$ì%~@(:-(!+(.~( ((8[(4%#ͯ$|/g}/oì%#ͯ$!Rì%##ͯ$^#Vì%#ͩ$~#)ʬ%]ʬ%z&~(([('(g0z&:8 Az&Gz&#~T(H("08:8A8G0@z&ͬ&#͇&~H #~'(.#[/#~ ' #|&en~)], +(,-((*($/( \(>(<(&(|( ^(@q&z&#!ͯ$+("-("*(%/('\(*&(.|(3^(8<(=Fì%Rì%C'ì%&ì%&ì%{ozgì%{ozgì%{ozgì%#- ì%:- ì%^#V#ì%:/>2/~0:8AGO#| ,)))) ~0:#)8DM)8)8 8O 8!1*L$ z 7!9tu tuR?0tunfjutfn)tufnjV^fnJ{!908)( 0 (7ASMBASECALCODUMPFILLGO HELP#INPUTLOAD#LIST;MOVEOUTPUTPRINT! PAGE/PLIST/QUIT#READLREGSAVESEARCHSELECTSETTRCALLTCTRACEVERIFY WRITEPAsm addr Base [num[,org]] Calc expr (ops=+,-,*,/,\,&,|,^,<,>,~,-,@) Dump [addr] Fill start,end,value,... Go [addr][,brk|* ... ] Input port[,start,end] List [addr][,count] LOad name [addr] Move start,end,to Output port,[value|start,end] Page PRint Quit REAd sect,addr[,count] Reg [name,value] SAve name start,end SEArch start,end,value,... SELect drive Set addr[,value ...] Trace [addr][,count] TRCall Verify start,end,to Write sect,addr[,count] .Z80instruction Invalid Command Numeric Overflow Break Point at Protected Area BCDEHLSPAAAFBBCBCDDEDEHHLHLSIIPNZZ NCC POPEP M  &(.068>!"*12:CKS[s{45FNV^fnpqrstuw~!"*6ADC ADD AND CALLCCF CP CPL DAA DEC DI DJNZEI EX EXA EXX HALTIN INC JP JR LD NOP OR OUT POP PUSHRET RLA RLCARRA RRCARST SBC SCF SUB XOR RLC RRC RL RR SLA SRA SRL BIT RES SET NEG RETNIM0 RETIIM1 IM2 RRD RLD LDI CPI INI OUTILDD CPD IND OUTDLDIRCPIRINIROTIRLDDRCPDRINDROTDRSC BP DC 7O0 0 7O0070!0        " " " " " " " "         # # # # # # # #                 0p0PPpPFP0o0"PP P P P#P0 0P PP@AB CD.E/F0GHIJK8M1OPQR SV2W|XYZ[8^3_~`ab g4hijo5r sxyz{86789:;<=>?@ABCDE ./0123456789:;<=>?@ABCDE!G8&ES<t !K},8H$3w \ }qeAL)2>JW`sw 0  )rG }rgYN >  { k 7 m d O J E )  G" cta\b]Xz@0 ? F ?_+!!!"."J!!i1N""#"######## j## i^|^WL##{oeZ YS z!t D!!! imYI.! n]T# rg8P&ulgC61MIf];7C4.) ~ ^ K C y   s e ; 4 F B -  #$=$C$H$\$$&&#n'u'|''''''''''''''''''(((((%(-(#&7$ 3   "m %#"2$$*$$$ h &$s l #<Z:U%< ' "  ~"z!5!F.y"V""C#!!_!O"J!""G!rb@!!lnh40 #l#A!(!9s# !(VC#\ I F_8&,%#l/ \ Vq]K1F3#b& S Mgne5<M!SJ4+"\#!6#\"##V###W"%"!k!!uRCL## #Q"!u!}Af^ G#!qZ!h_O#\~A8$Zc ;Fb("!!!!!xa ` ] W G 9   t f ; ) z   )i_Tzwz'lJ~uF3t "y\ k "  O >  Y#fb62SOVRjs=7&{&j= Vi#x. ##$:$S$f${$$$$$$$$$$$$%%%%-%6%;%d%i%r%%%%%"&)&,&/&3&6&:&>&G&P&Y&d&o&x&&=#""!!"! 3 GiI%.7DMVbktz"',16;BINSX^cnsv N{*"%-09BEHRZ]`cfilorux{~Eu EPXy &+2>FPSXiu|<DPr">JSp%(+1@GPlu'49>INWa FILSV]dgjmrv~     % ( - A G L Q V [ ` o } p s | 3 8 N S m z .NW\qux|2l'*<X >b$)5@EWbmsyJQ TITLE 'SYSTEM.CLASS28 Translate File for Visual 200' MACLIB CLASS INIT NAK,BS DEFINE HOME,ESC,Y,32,32 DEFINE CLEAR,ESC,v,8CH DEFINE EOS,ESC,y,8CH DEFINE EOL,ESC,x,8CH DEFINE LEFT,BS DEFINE RIGHT,ESC,C DEFINE UP,ESC,A DEFINE EU,ESC,w,8CH DEe FINE PON,ESC,4 DEFINE POFF,ESC,3 DEFINE FON,ESC,6 DEFINE FOFF,ESC,7 DEFINE BON,ESC,'s' DEFINE BOFF,ESC,'k' DEFINE IL,ESC,L DEFINE DL,ESC,M DEFINE DC,ESC,O DCA LD C,ESC ; Output ESC,'Y' lead in SC DEVOUT ; LD C,'Y' ; SC DEVOUT ; DCA$ ; f Finish sequence END  TITLE 'SYSTEM.CLASS38 - ALTOS 1 (WYSE WY-100)' MACLIB CLASS INIT VT,SUB,FF,ACK,RS,SOH,SPEC=SPECIAL,ESC=TRANESC DCA 7 DEFINE HOME,RS DEFINE CLEAR,ESC,+,8CH DEFINE EOL,ESC,T,8CH DEFINE EOS,ESC,Y,8CH DEFINE EU,ESC,';',8CH DEFINE LEFT,BS Di EFINE RIGHT,FF DEFINE UP,VT DEFINE DOWN,LF DEFINE PON,ESC,) DEFINE POFF,ESC,( DEFINE FON,ESC,26H DEFINE FOFF,ESC,27H DEFINE IC,ESC,Q DEFINE DC,ESC,W DEFINE IL,ESC,E DEFINE DL,ESC,R SPECIAL: CP SO ; Test for RVON JR Z,.RVON ; BRIF is CP SI j ; Test for RVOFF JR Z,.RVOFF ; BRIF is CP VT ; Test for ULON JR Z,.ULON ; BRIF is CP SYN ; Test for ULOFF JR Z,.ULOFF ; BRIF is CP GS ; Test for BON JR Z,.BON ; BRIF is CP RS ; Test for BOFF JR Z,.BOFF ; BRIF is CP FF ; Test for CLEAR RET NZ ;k RETIF not XOR A ; Else clear attributes LD (.ATTRIB),A ; LD A,FF ; Get the clear command RET ; Else return .RVON: LD A,(.ATTRIB) ; Get current attribute value SET 2,A ; Set RVON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .RVOFF: LD l A,(.ATTRIB) ; Get current attribute value RES 2,A ; Set RVOFF LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .ULON: LD A,(.ATTRIB) ; Get current attribute value SET 3,A ; Set ULON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .ULOFFm : LD A,(.ATTRIB) ; Get current attribute value RES 3,A ; Set ULOFF LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .BON: LD A,(.ATTRIB) ; Get current attribute value SET 1,A ; Set BON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .Bn OFF: LD A,(.ATTRIB) ; Get current attribute value RES 1,A ; Set BOFF LD (.ATTRIB),A ; Save as current .WRITE: PUSH IY ; Save IY reg SC GETSCR ; Point SCR INC (IY+13) ; Adjust column count POP IY ; Restore IY LD C,ESC ; Lead in SC DEVOUT ; LD C,o 'G' ; 2nd lead in SC DEVOUT ; LD A,(.ATTRIB) ; Get attributes desired OR 00110000B ; Mask with '0' LD C,A ; Output attributes desired SC DEVOUT ; POP AF ; Throw away return addr XOR A ; Clear carry flag RET ; Return .ATTRIB: DC 0 ; Bit mapped p ; 3 underline ; 2 reverse video ; 1 blink ; 0 blank (not used) TRANESC: ; Routine to translate esc ; sequences from console. ; If second character of esc seq ; (reg A) is not recognized ; then the characters are ignored ; Rq ES 5,(IY+5) ; turn off flag CP 'y' ; first test if esc,y (SHIFT PAGE ERASE) JR Z,.CLEAR ; brif is PUSH BC ; save regs PUSH HL ; LD HL,ESCTAB ; point to translate table LD B,9 ; length of table .TRANLOOP: CP (HL) ; test for match JR Z,.HIT ; brifr is INC HL ; else point next entry INC HL ; DJNZ .TRANLOOP ; repeat till end of table POP HL ; not found POP BC ; RET ; .HIT: INC HL ; point to tran to character LD A,(HL) ; get the character POP HL ; restore regs POP BC ; OR A ; clear cy BIs T 7,A ; test parity of tran to char RET Z ; return if off RES 7,A ; else turn off parity SC CONESC ; and perform esc function OR A ; test if any tran done RET NZ ; return if so SCF ; else turn on cy RET ; and return .CLEAR: PUSH BC ; save dev nt umber LD B,9 ; point to conout LD C,ESC ; output lead in SC DEVOUT ; display no LD C,44 ; output , SC DEVOUT ; display the character POP BC ; restore dev number XOR A ; clear cy RET ; and return ESCTAB: DC 50H,"P" ; SHIFT PRINT key DC 40H,"P" u ; PRINT key DC 'E',DC1 ; ESC,E - IL DC 'R',DC2 ; ESC,R - DL DC 'Q',DC3 ; ESC,Q - IC DC 'W',DC4 ; ESC,W - DC DC 'Y',CAN ; ESC,Y - EOS DC 'T',ETB ; ESC,T - EOL DC 'I',HT ; ESC,I - TAB END  TITLE 'Class Code 48 (Delta 4050H) Terminal Conversion' MACLIB CLASS INIT 127,BS,ESC=TRANESC DEFINE HOME,ESC,H DEFINE RIGHT,ESC,C DEFINE LEFT,ESC,D DEFINE BELL,BEL DEFINE CLEAR,FF,8CH DEFINE RVON,ESC,95,'1' DEFINE RVOFF,ESC,95,'3' DEFINE ILy ,ESC,'L' DEFINE DL,ESC,3DH DEFINE IC,ESC,'Q' DEFINE DC,ESC,40H DEFINE EOL,ESC,'K',8CH DEFINE EOS,ESC,'J',8CH DEFINE UP,ESC,'A' DEFINE BON,ESC,95,'0' DEFINE BOFF,ESC,95,'3' DCA LD C,DC3 SC DEVOUT DCA$ TRANESC: ; Routine to translate ez sc sequences ; from console ; If second character of esc sequence ; (A reg) is not recognized then both ; characters are ignored ; RES 5,(IY+5) ; turn of flag PUSH BC ; save regs PUSH HL ; LD HL,ESCTAB ; point to translate table LD B,{ 5 ; length of table .TRANLOOP: CP (HL) ; test for match JR Z,.HIT ; brif hit INC HL ; point next INC HL ; skip tran to char DJNZ .TRANLOOP ; repeat till end of table POP HL ; not found POP BC ; RET ; .HIT: INC HL ; point to tran to character L| D A,(HL) ; get the character POP HL ; restore regs POP BC ; OR A ; clear cy BIT 7,A ; test parity of tran to char RET Z ; return if off RES 7,A ; else turn off parity SC CONESC ; and perform esc function OR A ; test if any translate done RET NZ } ; ret if so SCF ; else turn on cy RET ; return ESCTAB: DC 'A',SUB ; ESC,A - UP DC 'B',LF ; ESC,B - DOWN DC 'C',ACK ; ESC,C - RIGHT DC 'D',BS ; ESC,D - LEFT DC 64,BS ; ESC,@ - CHAR ERASE END  TITLE 'SYSTEM.CLASS1 Terminal file for Beehive B100' MACLIB CLASS INIT DCA 1 ; x,y addressing DEFINE HOME,ESC,H DEFINE CLEAR,ESC,X,ESC,E,8CH DEFINE EOS,ESC,J,8CH DEFINE EOL,ESC,K,8CH DEFINE LEFT,ESC,D DEFINE RIGHT,ESC,C DEFINE UP,ESC,A D EFINE FON,ESC,W DEFINE FOFF,ESC,X DEFINE PON,ESC,] DEFINE POFF,ESC,[ DEFINE EU,ESC,E,8CH DEFINE BON,ESC,6CH DEFINE BOFF,ESC,6DH DEFINE RVON DEFINE RVOFF DEFINE ULON DEFINE ULOFF END  TITLE 'SYSTEM.CLASS2 - Adds 580' MACLIB CLASS INIT DCA 2 ; generate dca routine DEFINE HOME,DLE,0,VT,32 DEFINE CLEAR,FF,8CH DEFINE LEFT,NAK DEFINE RIGHT,ACK DEFINE UP,SUB DEFINE FON DEFINE FOFF DEFINE PON DEFINE POFF DEFINE RVON DEFINE RVOFF DEFINE ULON DEFINE ULOFF DEFINE BON DEFINE BOFF END  TITLE 'SYSTEM.CLASS3 Translate File for ADM-3A' MACLIB CLASS INIT DCA 3 DEFINE HOME,RS DEFINE CLEAR,SUB,8CH DEFINE LEFT,BS DEFINE RIGHT,FF DEFINE UP,VT DEFINE FON DEFINE FOFF DEFINE PON DEFINE POFF DEFINE RVON DEFINE RVOFF DEFINE ULON DE FINE ULOFF DEFINE BON DEFINE BOFF END  TITLE 'SYSTEM.CLASS4 Translate File for Soroc IQ120' MACLIB CLASS INIT 0BH,1AH,0CH,06H,1EH,01H DCA 4 DEFINE HOME,RS DEFINE CLEAR,ESC,*,8CH DEFINE EOS,ESC,Y,8CH DEFINE EOL,ESC,T,8CH DEFINE LEFT,BS DEFINE RIGHT,FF DEFINE UP,VT DEFINE EU,ESC ,+,8CH DEFINE PON,ESC,29H DEFINE POFF,ESC,28H DEFINE FON,ESC,26H DEFINE FOFF,ESC,27H DEFINE BON DEFINE BOFF DEFINE RVON DEFINE RVOFF DEFINE ULON DEFINE ULOFF END  TITLE 'SYSTEM.CLASS5 - Video Display Module' MACLIB CLASS INIT DCA 5 ; gen x,y addressing DEFINE HOME,SOH DEFINE CLEAR,FF,8CH DEFINE EOS,CAN,8CH DEFINE EOL,ETB,8CH DEFINE LEFT,BS DEFINE RIGHT,ACK DEFINE UP,SUB DEFINE DOWN,LF DEFINE PON,E OT DEFINE POFF,ENQ DEFINE BON,GS DEFINE BOFF,RS DEFINE ULON,VT DEFINE ULOFF,SYN DEFINE RVON,SO DEFINE RVOFF,SI DEFINE FON,STX DEFINE FOFF,ETX DEFINE IL,DC1 DEFINE DL,DC2 DEFINE IC,DC3 DEFINE DC,DC4 END  TITLE 'SYSTEM.CLASS29 - Heath H19 Terminal' MACLIB CLASS INIT ESC=TRANESC DEFINE HOME,ESC,H DEFINE CLEAR,ESC,E,8CH DEFINE EOS,ESC,J,8CH DEFINE EOL,ESC,K DEFINE LEFT,ESC,D DEFINE RIGHT,ESC,C DEFINE UP,ESC,A DEFINE IL,ESC,L DEFINE DL,ESC,M DEFINE DC,ESC,N DEFINE EU,ESC,E,8CH DEFINE RVOFF,ESC,q DEFINE RVON,ESC,p DEFINE FON DEFINE FOFF DEFINE PON DEFINE POFF DEFINE ULON DEFINE ULOFF DCA LD C,ESC ; output ESC,'Y' leadin SC DEVOUT ; LD C,'Y' ; SC DEVOUT ; DCA$ ; finish sequ ence TRANESC: ; Routine to translate esc sequences ; from console ; If second character of esc sequence ; (A reg) is not recognized then both ; characters are ignored ; RES 5,(IY+5) ; turn of flag CP 'J' ; first test if esc,j JR Z, .CLEAR ; brif is CP 'E' ; or an esc,e JR Z,.CLEAR ; brif is PUSH BC ; save regs PUSH HL ; LD HL,ESCTAB ; point to translate table LD B,17 ; length of table .TRANLOOP: CP (HL) ; test for match JR Z,.HIT ; brif hit INC HL ; point next INC HL ; sk ip tran to char DJNZ .TRANLOOP ; repeat till end of table POP HL ; not found POP BC ; RET ; .HIT: INC HL ; point to tran to character LD A,(HL) ; get the character POP HL ; restore regs POP BC ; OR A ; clear cy BIT 7,A ; test parity of tran to char RET Z ; return if off RES 7,A ; else turn off parity SC CONESC ; and perform esc function OR A ; test if any translate done RET NZ ; ret if so SCF ; else turn on cy RET ; return .CLEAR: PUSH BC ; save dev number LD B,9 ; point to conout PUSH AF ; save character LD C,ESC ; output lead int SC DEVOUT ; display now POP AF ; get the character LD C,A ; copy to c reg SC DEVOUT ; display character POP BC ; restore dev number OR A ; clear cy RET ; ESCTAB: DC 'S',SOH ; f1 - ctrl/a DC 'T',STX ; f2 - ctrl/b DC 'U',ETX ; f2 - ctrl/c DC 'V',EOT ; f4 - ctrl/d DC 'W',ENQ ; f5 - ctrl/e DC 'P',"P" ; blue - ESC,P DC 'Q',"Q" ; red - ESC,Q DC 'R',"C" ; white - esc/c DC 'A',SUB ; ESC,A - UP DC 'B',LF ; ESC,B - DOWN DC 'C',ACK ; ESC,C - RIGHT DC 'D',BS ; ESC,D - LEFT DC 'L',DC1 ; ESC,L - IL DC 'M',DC2 ; ESC,M - DL DC '@',DC3 ; ESC,@ - IC DC 'N',DC4 ; ESC,N - DC DC 'H',SOH ; ESC,H - HOME END  TITLE 'SYSTEM.CLASS6 - Hazeltine 1400-1500' ; Operates with 1420, 1500, 1510, 1520 ; Change leadin to ESC for 1410 and 1552 MACLIB CLASS INIT DCA 6 DEFINE HOME,~,DC2 DEFINE CLEAR,~,FS,8CH DEFINE EOS,~,CAN,8CH DEFINE EOL,~,SI,8CH DEFINE LEFT,BS DEFINE RIGHT,DLE DEFINE UP,~,FF DEFINE IL,~,SUB DEFINE IC DEFINE DL,~,DC3 DEFINE DC DEFINE EU,~,GS DEFINE PON,~,EM DEFINE POFF,~,US DEFINE FON DEFINE FOFF DEFINE BON,~,SOH DEFINE BOFF,~,US DEFINE ULON DEFINE ULOFF DEFINE RVON DE FINE RVOFF END  TITLE 'SYSTEM.CLASS39 - DEC VT52 Terminal' MACLIB CLASS INIT ESC=TRANESC DEFINE HOME,ESC,H DEFINE CLEAR,ESC,H,ESC,J,8CH ; HOME and EOS DEFINE EOS,ESC,J,8CH DEFINE EOL,ESC,K DEFINE RIGHT,ESC,C DEFINE UP,ESC,A DEFINE ULON ; Unsupported DEFI NE ULOFF ; Unsupported DEFINE RVON ; Unsupported DEFINE RVOFF ; Unsupported DEFINE PON ; Unsupported DEFINE POFF ; Unsupported DEFINE BON ; Unsupported DEFINE BOFF ; Unsupported DEFINE EU,ESC,H,ESC,J,8CH ; Use CLEAR DEFINE IL ; Unsupported DEFIN E IC ; Unsupported DEFINE DL ; Unsupported DEFINE DC ; Unsupported DEFINE FON ; Unsupported DEFINE FOFF ; Unsupported DCA LD C,ESC ; output ESC,'Y' leadin SC DEVOUT ; LD C,'Y' ; SC DEVOUT ; DCA$ ; finish sequence TRANESC: ; Routine to t ranslate esc sequences ; from console ; If second character of esc sequence ; (A reg) is not recognized then both ; characters are ignored ; RES 5,(IY+5) ; turn off flag PUSH BC ; save regs PUSH HL ; LD HL,ESCTAB ; point to translate t able LD B,7 ; length of table .TRANLOOP: CP (HL) ; test for match JR Z,.HIT ; brif hit INC HL ; point next INC HL ; skip tran to char DJNZ .TRANLOOP ; repeat till end of table POP HL ; not found POP BC ; RET ; .HIT: INC HL ; point to tran to c haracter LD A,(HL) ; get the character POP HL ; restore regs POP BC ; OR A ; clear cy BIT 7,A ; test parity of tran to char RET Z ; return if off RES 7,A ; else turn off parity SC CONESC ; and perform esc function OR A ; test if any translate do ne RET NZ ; ret if so SCF ; else turn on cy RET ; return ESCTAB: DC 'P',"P" ; left blank -> ESC,P DC 'Q',"Q" ; center blank -> ESC,Q DC 'R',"C" ; right blank -> ESC/C DC 'A',SUB ; ESC,A -> UP DC 'B',LF ; ESC,B -> DOWN DC 'C',ACK ; ESC,C -> RIG HT DC 'D',BS ; ESC,D -> LEFT END  TITLE 'SYSTEM.CLASS7 - TeleVideo,Inc TVI-912 and TVI-920' MACLIB CLASS INIT VT,SUB,FF,ACK,RS,SOH,SPEC=SPECIAL DCA 7 DEFINE HOME,RS DEFINE CLEAR,ESC,*,8CH DEFINE LEFT,BS DEFINE RIGHT,FF DEFINE UP,VT DEFINE PON,ESC,) DEFINE POFF,ESC,( D EFINE FON,ESC,26H DEFINE FOFF,ESC,27H DEFINE IC,ESC,Q DEFINE DC,ESC,W DEFINE IL,ESC,E DEFINE DL,ESC,R DEFINE EOL,ESC,T,8CH DEFINE EOS,ESC,Y,8CH ; DEFINE BON,ESC,^ ; DEFINE BOFF,ESC,71H ; DEFINE RVON,ESC,6AH ; DEFINE RVOFF,ESC,6BH ; DEFINE ULON,ESC ,6CH ; DEFINE ULOFF,ESC,6DH SPECIAL: CP SO ; Test for RVON JR Z,.RVON ; BRIF is CP SI ; Test for RVOFF JR Z,.RVOFF ; BRIF is CP VT ; Test for ULON JR Z,.ULON ; BRIF is CP SYN ; Test for ULOFF JR Z,.ULOFF ; BRIF is CP GS ; Test for BON JR Z,.B ON ; BRIF is CP RS ; Test for BOFF JR Z,.BOFF ; BRIF is CP FF ; Test for CLEAR RET NZ ; RETIF not XOR A ; Else clear attributes LD (.ATTRIB),A ; LD A,FF ; Get the clear command RET ; Else return .RVON: LD A,(.ATTRIB) ; Get current attribute val ue SET 0,A ; Set RVON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .RVOFF: LD A,(.ATTRIB) ; Get current attribute value RES 0,A ; Set RVOFF LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .ULON: LD A,(.ATTRIB) ; Get current attribu te value SET 1,A ; Set ULON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .ULOFF: LD A,(.ATTRIB) ; Get current attribute value RES 1,A ; Set ULOFF LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .BON: LD A,(.ATTRIB) ; Get current at tribute value SET 2,A ; Set BON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .BOFF: LD A,(.ATTRIB) ; Get current attribute value RES 2,A ; Set BOFF LD (.ATTRIB),A ; Save as current .WRITE: PUSH IY ; Save IY reg SC GETSCR ; Point SCR INC (IY+13) ; Adjust column count POP IY ; Restore IY LD A,(.ATTRIB) ; Get attributes .RV: ; ; Reverse video ; PUSH AF ; LD C,ESC ; Lead in SC DEVOUT ; POP AF ; SRA A ; Shift bit out PUSH AF ; Save JR NC,.NOR ; No reverse video LD C,'j' ; RVON SC DEVOUT ; JR .UL ; .NOR: LD C,'k' ; RVOFF SC DEVOUT ; .UL: ; ; Underline ; LD C,BS ; Backspace SC DEVOUT ; LD C,ESC ; Lead in SC DEVOUT ; POP AF ; SRA A ; Shift bit out PUSH AF ; Save JR NC,.NOU ; No underline LD C,'l' ; ULO N SC DEVOUT ; JR .B ; .NOU: LD C,'m' ; ULON SC DEVOUT ; .B: ; ; Blink ; LD C,BS ; Backspace SC DEVOUT ; LD C,ESC ; Lead in SC DEVOUT ; POP AF ; SRA A ; PUSH AF ; JR NC,.NOB ; No blink LD C,'^' ; BON SC DEVOUT ; JR .GOBACK ; .NOB: LD C,'q' ; BOFF SC DEVOUT ; .GOBACK: POP AF ; POP AF ; Throw away return addr XOR A ; Clear carry flag RET ; Return .ATTRIB: DC 0 ; Bit mapped ; 2 blink ; 1 underline ; 0 reverse video END  TITLE 'SYSTEM.CLASS8 - Perkin-Elmer Fox' MACLIB CLASS INIT DCA 8 DEFINE HOME,ESC,H DEFINE CLEAR,ESC,K,8CH DEFINE EOS,ESC,J,8CH DEFINE EOL,ESC,I,8CH DEFINE LEFT,ESC,D DEFINE RIGHT,ESC,C DEFINE UP,ESC,A DEFINE FON DEFINE FOFF DEFINE PON DEFINE POFF DEFINE BON DEFINE BOFF DEFINE RVON DEFINE RVOFF DEFINE ULON DEFINE ULOFF END  MACRO INIT &I1,&O1,&I2,&O2,&I3,&O3,&I4,&O4,&I5,&O5,&I6,&O6,&I7,&O7,&I8,&O8,&OWN,&SPEC,&ESC LIST NOMACRO CODE: REL LIST MACRO &NAME: JP TRANIN ; input vector ; test if control TRANOUT: CP 20H ; is it control? JR C,CTL ; brif is SC DEVOUT ; els e, display as is XOR A ; clear cy RET ; test if dca x,y CTL: CP DLE ; is it 10H JP Z,DCA ; jump if is IF .NOT..NUL.&SPEC CALL &SPEC ENDIF ; point to proper entry LD HL,TAB1-2 ; point to indirect table ADD A ; code times two LD E,A ; move to de LD D,0 ; 16 bits ADD HL,DE ; point to correct slot LD E,(HL) ; get address in de INC HL LD D,(HL) ; test for not available LD A,D ; is address = zero? OR E SCF ; set cy just in case RET Z ; return if is ; put out codes until byte = 0FFH WRITE: LD A,(DE) ; get byte INC DE ; bump CP 8CH ; ff delay code? JR Z,WRFFDLY ; brif is LD C,A ; move to reg c INC A ; test for 0FFH RET Z ; return if is SC DEVOUT ; else, write to console JR WRITE ; loop WRFFDLY: LD A,(IY+7) ; get delay rate OR A ; any? JR Z,WRITE ; no, ignore SC DELAY ; else, pause JR WRITE ; continue ; input char translate routine TRANIN: IF .NUL.&OWN IF .NUL.&I1 ELSE CP &I1 JR NZ,$+4 LD A,&O1 ENDIF IF .NUL.&I2 ELSE CP &I2 JR NZ,$+4 LD A,&O2 EN DIF IF .NUL.&I3 ELSE CP &I3 JR NZ,$+4 LD A,&O3 ENDIF IF .NUL.&I4 ELSE CP &I4 JR NZ,$+4 LD A,&O4 ENDIF IF .NUL.&I5 ELSE CP &I5 JR NZ,$+4 LD A,&O5 ENDIF IF .NUL.&I6 ELSE CP &I6 JR NZ,$+4 LD A,&O6 ENDIF IF .NUL.&I7 ELSE CP &I7 JR NZ,$+4 LD A,&O7 ENDIF IF .NUL.&I8 ELSE CP &I8 JR NZ,$+4 LD A,&O8 ENDIF ELSE CALL &OWN ENDIF OR A ; clear cy BIT 7,(IY+5) ; is this conin device? RET Z ; no, return BIT 6,(IY+5) ; 2nd char of esc sequence? JR NZ,ESC2 ; brif is PUSH IY ; save iy SC GETSCR ; point to scr CP (IY+64) ; is this an esc char POP IY ; restore iy JR Z,ESC1 ; brif is IF .NOT..NUL.&ESC BIT 5,(IY+5) ; Last character an esc? JP NZ,&ESC ; brif was ENDIF OR A ; turn off cy RET ; return ESC1: IF .NOT..NUL.& ESC BIT 5,(IY+5) ; last character an esc? JR NZ,ESC1A ; brif was SET 5,(IY+5) ; else set flag SCF ; RET ; return ESC1A: ENDIF SET 6,(IY+5) ; turn on code SCF ; set cy RET ; return ESC2: RES 6,(IY+5) ; turn off sw IF .NOT..NUL.&ESC RES 5,( IY+5) ; both switches ENDIF RES 5,A ; fold the char SC CONESC ; go translate OR A ; test if any RET NZ ; yes, return SCF ; turn on cy RET ; return LIST ; ; define initial table TAB1: REPT 31 DC (0) ; all entries point to null strings ; define ascii control characters NUL: EQU 00H SOH: EQU 01H STX: EQU 02H ETX: EQU 03H EOT: EQU 04H ENQ: EQU 05H ACK: EQU 06H BEL: EQU 07H BS: EQU 08H HT: EQU 09H LF: EQU 0AH VT: EQU 0BH FF: EQU 0CH CR: EQU 0DH SO: EQU 0EH SI: EQU 0FH DLE: EQU 10H DC1: EQU 11H DC2: EQU 12H DC3: EQU 13H DC4: EQU 14H NAK: EQU 15H SYN: EQU 16H ETB: EQU 17H CAN: EQU 18H EM: EQU 19H SUB: EQU 1AH ESC: EQU 1BH FS: EQU 1CH GS: EQU 1DH RS: EQU 1EH US: EQU 1FH RUB: EQU 7FH DEVOUT: EQU 64 CONESC: EQU 78 DELAY: EQU 76 GETSCR: EQU 4 8 LIST ENDM MACRO DEFINE &FUNCT,&A,&B,&C,&D,&E,&F,&G,&H,&I,&J LIST NOMACRO @NEXT: EQU $ IF '&FUNCT'.EQ.'HOME' ORG TAB1 ELSEIF '&FUNCT'.EQ.'FON' ORG TAB1+2 ELSEIF '&FUNCT'.EQ.'FOFF' ORG TAB1+4 ELSEIF '&FUNCT'.EQ.'PON' ORG TAB1+6 ELSEIF '&FUN CT'.EQ.'POFF' ORG TAB1+8 ELSEIF '&FUNCT'.EQ.'RIGHT' ORG TAB1+10 ELSEIF '&FUNCT'.EQ.'BELL' ORG TAB1+12 ELSEIF '&FUNCT'.EQ.'LEFT' ORG TAB1+14 ELSEIF '&FUNCT'.EQ.'TAB' ORG TAB1+16 ELSEIF '&FUNCT'.EQ.'DOWN' ORG TAB1+18 ELSEIF '&FUNCT'.EQ.'ULON' ORG TAB1+20 ELSEIF '&FUNCT'.EQ.'CLEAR' ORG TAB1+22 ELSEIF '&FUNCT'.EQ.'NEWLINE' ORG TAB1+24 ELSEIF '&FUNCT'.EQ.'RVON' ORG TAB1+26 ELSEIF '&FUNCT'.EQ.'RVOFF' ORG TAB1+28 ELSEIF '&FUNCT'.EQ.'IL' ORG TAB1+32 ELSEIF '&FUNCT'.EQ.'DL' ORG TAB1+34 ELSEIF '&FUNCT'.EQ.'IC' ORG TAB1+36 ELSEIF '&FUNCT'.EQ.'DC' ORG TAB1+38 ELSEIF '&FUNCT'.EQ.'ULOFF' ORG TAB1+42 ELSEIF '&FUNCT'.EQ.'EOL' ORG TAB1+44 ELSEIF '&FUNCT'.EQ.'EOS' ORG TAB1+46 ELSEIF '&FUNCT'.EQ.'UP' ORG TAB1+50 ELSEIF '&FUNCT'.EQ.'E U' ORG TAB1+54 ELSEIF '&FUNCT'.EQ.'BON' ORG TAB1+56 ELSEIF '&FUNCT'.EQ.'BOFF' ORG TAB1+58 ELSE ORG TAB1+&FUNCT ENDIF DC (@NEXT) ; define address ORG ;; ;; put bytes until end ;; IF .NUL.&A ELSE DC$ &A ENDIF IF .NUL.&B ELSE DC$ &B ENDIF IF .NUL.&C ELSE DC$ &C ENDIF IF .NUL.&D ELSE DC$ &D ENDIF IF .NUL.&E ELSE DC$ &E ENDIF IF .NUL.&F ELSE DC$ &F ENDIF IF .NUL.&G ELSE DC$ &G ENDIF IF .NUL.&H ELSE DC$ &H ENDIF IF .NUL.&I ELSE DC$ &I ENDIF IF .NUL.&J ELSE DC$ &J ENDIF ;; ;; end of entry ;; DC$ 0FFH LIST ENDM MACRO DCA$ LIST MACRO LD A,L ; get line ADD 20H ; bias LD C,A ; move to reg c SC DEVOUT ; display LD A,H ; get col ADD 20H ; bias LD C,A ; move to reg c SC DEVOUT ; display XOR A ; clear c y flag RET ; return LIST ENDM MACRO DC$ &ARG LIST NOMACRO IF '&ARG(2,1)'.EQ.'' DC '&ARG' ELSE DC &ARG ENDIF LIST ENDM MACRO DCA &TYPE(0) LIST NOMACRO LIST MACRO DCA: LIST IF &TYPE.EQ.1 LIST MACRO ; ; Beehive B100 ; LD C,ESC ; lead 1 SC DEVOUT ; display LD C,'F' ; lead 2 SC DEVOUT LIST DCA$ ELSEIF &TYPE.EQ.2 LIST MACRO ; ; ADDS 580 - Envoy ; LD C,DLE ; column leadin SC DEVOUT LD A,H ; get col LD C,-1 ; init count @ADDS: INC C ; bump count SUB 10 ; divide by ten J R NC,@ADDS ; loop ADD 10 ; add back REPT 4 RLC C ; shift left four bits OR C ; merge LD C,A ; to reg c SC DEVOUT ; put column number LD C,VT ; line leadin SC DEVOUT ; write LD A,L ; get line number ADD 32 ; plus bias LD C,A ; to reg c SC DEVO UT ; write XOR A ; clear cy RET ; return LIST ELSEIF [&TYPE.EQ.3].OR.[&TYPE.EQ.4] LIST MACRO ; ; ADM 3A or SOROC IQ120 ; LD C,ESC ; lead 1 SC DEVOUT LD C,'=' ; lead 2 SC DEVOUT LIST DCA$ ELSEIF &TYPE.EQ.5 LIST MACRO ; ; Video Display Memory ; LD C,DLE ; leadin SC DEVOUT LD A,H ; col number ADD 20H ; bias LD C,A SC DEVOUT LD A,L ; line number ADD 20H ; bias LD C,A SC DEVOUT XOR A ; clear cy RET LIST ELSEIF &TYPE.EQ.6 LIST MACRO ; ; Hazeltine 1500 ; LD C,'~' ; lead 1 SC DEVOUT LD C,DC1 ; lead 2 SC DEVOUT LD A,H ; col number CP 30 ; col 0-30 are biased JR NC,.NOBIAS ; col desired > 30 ADD 96 ; bias .NOBIAS: LD C,A SC DEVOUT ; display LD A,L ; line number LD C,A SC DEVOUT ; display XOR A ; clear cy RET LIST ELSEIF &TYPE.EQ.7 LIST MACRO ; ; TeleVideo,Inc 912 && 920 ; LD C,ESC ; leadin 1 SC DEVOUT LD C,'=' ; leadin 2 SC DEVOUT LIST DCA$ ELSEIF [&TYPE.EQ.8].OR.[&TYPE.EQ.9] LIST MACRO ; ; Perkin-Elmer Fox or Bantom ; LD C,ESC ; lead 1 SC D EVOUT LD C,'X' ; lead 2 SC DEVOUT LD A,L ; get line ADD 20H ; bias LD C,A ; move to reg c SC DEVOUT ; display LD C,ESC ; lead 1 SC DEVOUT ; display LD C,'Y' ; lead 2 y addr SC DEVOUT ; LD A,H ; get col ADD 20H ; bias LD C,A ; move to reg c SC DEVOUT ; display XOR A ; clear cy flag RET ; return LIST ELSEIF &TYPE.EQ.10 LIST MACRO ; ; ANSI Standard (DEC VT100 or Heath) ; LD C,ESC ; lead 1 SC DEVOUT LD C,'[' ; lead 2 SC DEVOUT LD A,L ; get line INC A ; adjust for base 1 CALL DECO ; convert to decimal LD C,';' ; semicolon SC DEVOUT LD A,H ; get col INC A ; adjust for base 1 CALL DECO ; convert to decimal LD C,'H' ; trail SC DEVOUT XOR A ; clear cy RET ; return ;DECO: ; INC A ; base one ; CP 10 ; lt 10? ; JR C,DECO2 ; y es, go around ; LD C,'0'-1 ; init count ;DECO1: ; INC C ; bump 10's count ; SUB 10 ; decr ; JR NC,DECO1 ; loop ; ADD 10 ; add back last time ; PUSH AF ; save ; SC DEVOUT ; display ; POP AF ;DECO2: ; OR '0' ; decimal zone ; LD C,A ; SC DEVOUT ; display ; RET DECO: PUSH HL ; Save current hl reg PUSH DE ; and the de regs LD L,A ; Copy value to L reg LD H,0 ; Zero H reg LD DE,.DECOBUF ; Point to storage PUSH BC ; save bc SC 17 ; Convert to ASCII string POP BC ; restore bc XOR A ; Get a zero LD (DE ),A ; Mark end of string LD HL,.DECOBUF ; Point to start of string .LOOP: LD A,(HL) ; Get char from string OR A ; Test for end of string JR Z,.RET ; Go back if is LD C,A ; Copy to c reg SC DEVOUT ; Output INC HL ; Point next JR .LOOP ; Repeat .RE T: POP DE ; Restore regs POP HL ; RET ; .DECOBUF: DS 5 ; Storage for col/line string LIST ELSEIF &TYPE.EQ.11 LIST MACRO ; ; Infoton 100 ; LD C,ESC ; lead 1 SC DEVOUT LD C,'f' ; lead 2 SC DEVOUT ; display LD A,H ; get column number ADD 20 H ; bias LD C,A ; move to c reg SC DEVOUT ; display LD A,L ; get line number ADD 20H ; bias LD C,A ; move to c reg SC DEVOUT ; display XOR A ; clear cy RET LIST ENDIF LIST ENDM  TITLE 'SYSTEM.CLASS9 - Perkin-Elmer Bantom' MACLIB CLASS INIT DCA 9 DEFINE HOME,ESC,H DEFINE CLEAR,ESC,K,8CH DEFINE EOL,ESC,I,8CH DEFINE LEFT,ESC,D DEFINE RIGHT,ESC,C DEFINE UP,ESC,A DEFINE FON DEFINE FOFF DEFINE PON DEFINE POFF DEFI NE BON DEFINE BOFF DEFINE RVON DEFINE RVOFF DEFINE ULON DEFINE ULOFF END COPY ACCOUNT COMMAND S = = A (REP NOQ COPY ARCHIVE COMMAND S = = A (REP NOQ COPY ASSIGN COMMAND S = = A (REP NOQ COPY ATTACH COMMAND S = = A (REP NOQ COPY BACKUP COMMAND S = = A (REP NOQ COPY BASIC LOADFILE S = = A (REP NOQ COPY BASIC2 LOADFILE S = = A (REP NOQ COPY CHANGE COMMAND S = = A (REP NOQ COPY CLASS MACLIB S = = A (REP NOQ COPY COPYFILE COMMAND S = = A (REP NOQ COPY CREATE COMMAND S = = A (REP NOQ COPY CRT COMMAND S = = A (REP NOQ COPY DEBUG COMMAND S = = A (REP NOQ COPY DEBUG OVERLAY1 S = = A (REP NOQ COPY ERASE COMMAND S = = A (REP NOQ COPY ERRMSG COMMAND S = = A (REP NOQ COPY FILELIST COMMAND S = = A (REP NOQ COPY FORCE COMMAND S = = A (REP NOQ COPY HELP COMMAND S = = A (REP NOQ CO PY INITDISK COMMAND S = = A (REP NOQ COPY KILL COMMAND S = = A (REP NOQ COPY LIST COMMAND S = = A (REP NOQ COPY LOAD COMMAND S = = A (REP NOQ COPY LOGOFF COMMAND S = = A (REP NOQ COPY LOGON COMMAND S = = A (REP NOQ COPY MAILBOX CO MMAND S = = A (REP NOQ COPY MOUNT COMMAND S = = A (REP NOQ COPY MSG COMMAND S = = A (REP NOQ COPY OWNERCHG COMMAND S = = A (REP NOQ COPY PASSWORD COMMAND S = = A (REP NOQ COPY PATCH COMMAND S = = A (REP NOQ COPY PEEK COMMAND S = = A (REP NOQ COPY RECEIVE COMMAND S = = A (REP NOQ COPY RECOVER COMMAND S = = A (REP NOQ COPY RENAME COMMAND S = = A (REP NOQ COPY REPAIR COMMAND S = = A (REP NOQ COPY RESTORE COMMAND S = = A (REP NOQ COPY RUN COMMAND S = = A (REP NOQ COPY RUN2 COMMAND S = = A (REP NOQ COPY SEEK COMMAND S = = A (REP NOQ COPY SEND COMMAND S = = A (REP NOQ COPY SET COMMAND S = = A (REP NOQ COPY SHARE COMMAND S = = A (REP NOQ COPY SHOW COMMAND S = = A (REP NOQ COPY SPOOLER COMM AND S = = A (REP NOQ COPY SPOOLER LOADFILE S = = A (REP NOQ COPY SPOOLER OVERLAY1 S = = A (REP NOQ COPY START COMMAND S = = A (REP NOQ COPY STATE COMMAND S = = A (REP NOQ COPY STOP COMMAND S = = A (REP NOQ COPY SYSGEN COMMAND S = = A ( REP NOQ COPY SYSTEM CSI S = = A (REP NOQ COPY SYSTEM DEV10 S = = A (REP NOQ COPY SYSTEM DEV11 S = = A (REP NOQ COPY SYSTEM DEV12 S = = A (REP NOQ COPY SYSTEM DEV13 S = = A (REP NOQ COPY SYSTEM DEV9 S = = A (REP NOQ COPY S YSTEM DEVNAMES S = = A (REP NOQ COPY SYSTEM ERRMSG S = = A (REP NOQ COPY SYSTEM EXECLANG S = = A (REP NOQ COPY SYSTEM HELP S = = A (REP NOQ COPY SYSTEM NUCLEUS S = = A (REP NOQ COPY TERMINAL COMMAND S = = A (REP NOQ COPY TEXTEDIT COMMAN D S = = A (REP NOQ COPY UNLOAD COMMAND S = = A (REP NOQ COPY VERIFY COMMAND S = = A (REP NOQ