\`:a2f`:a2g`:a2u`!a8<2m`x2k`!"p`!D`"s`>`2n`*> 4`![u`b`j`j`P a`TSIOASISN:iTSIOASISN:iD PPATCH COMMAND ͪ5LOGON COMMAND <7;LOGOFF COMMAND (ACLASS43 ASSEMBLE12jSTART COMMAND E CLASS8 ASSEMBLE)>CLASS25 ASSEMBLE *D( SYSTEM CSI $/ASHOW COMMAND  ͪCLASS9 ASSEMBLE,1\CLASS35 ASSEMBLE 4MAILBOX COMMAND ϪCLASS27 ASSEMBLE 9QSTATE COMMAND ͪSYSTEM CLASS40 EOCLASS37 ASSEMBLE3K)MSG COMMAND 0ͪ{CLASS29 ASSEMBLEh\,XdERRMSG COMMAND ͪCOPYFILECOMMAND a4SYSTEM DEV10 <PREF FILE O:gMOUNT COMMAND TESYSTEM EXECLANG,CLASS39 ASSEMBLEPh,"oTEXTEDITCOMMAND `ͪv FILELISTCOMMAND lRUN2 COMMAND ͬy%OWNERCHGCOMMAND ˜4;SYSTEM DEV12 STOP COMMAND p)$gREPAIR COMMAND ͪOCREATE COMMAND a4DEBUG COMMAND ahCHANGE COMMAND \(#BASIC2 LOADFILE]ERATTACH COMMAND a4HELP COMMAND xͪGSYSTEM CLASS36 EJiBACKUP COMMAND ~ufRECEIVE COMMAND 0INITDISKCOMMAND . <I< 'ASSIGN COMMAND ˛ECLASS10 ASSEMBLErT0k[VERIFY COMMAND (#$8CLASS20 ASSEMBLE.\7BK^SYSTEM ERRMSG @>;L FILE O;RESTORE COMMAND &2CLASS30 ASSEMBLE]p8xCLASS12 ASSEMBLE -E\LIST COMMAND ͪ HO2 FILE SYSTEM NUCLEUS h ECLASS MACLIB B UCLASS40 ASSEMBLE9+PCLASS22 ASSEMBLEN3Y$LOAD COMMAND ,$UPASSWORDCOMMAND 02CLASS32 ASSEMBLE%/#4CLASS14 ASSEMBLE.l&ArnSYSTEM HELP ,BI:}CLASS42 ASSEMBLEw6FORCE COMMAND #$>CLASS24 ASSEMBLE_p4swERASE COMMAND ˛CLASS52 ASSEMBLE/:k+CLASS34 ASSEMBLE Bq0COMP DATA 2 ;CLASS26 ASSEMBLEm>D7CLASS44 ASSEMBLE 5:CLASS36 ASSEMBLEa/RWSYSTEM DEVNAMESBSYSTEM CLASS101LE2RUN COMMAND  ͬu2SYSTEM CLASS31 HEFCLASS28 ASSEMBLE!X5\+ZSHARE COMMAND t˜QSPOOLER OVERLAY1 |$PACCOUNT COMMAND ͪe PEEK COMMAND ͪ4CLASS38 ASSEMBLE`3+ymBASIC LOADFILElEo^SYSTEM DEV11 <CLASS48 ASSEMBLEFp82uTERMINALCOMMAND a4SYSTEM CLASS7 EXCRT COMMAND PD FILE O;UNLOAD COMMAND ˜h@SYSTEM DEV13 Pʴ!UARCHIVE COMMAND xb#A LINE z;4SEND COMMAND SET COMMAND H4/CLASS1 ASSEMBLE5CLASS2 ASSEMBLE!SYSTEM ACCOUNT  zKILL COMMAND 8˜RENAME COMMAND |ag!CLASS11 ASSEMBLE%,wCLASS100ASSEMBLE893GCLASS3 ASSEMBLE0HO1 FILE OSYSTEM DEV9 <HCLASS21 ASSEMBLE,5?CLASS101ASSEMBLE[H7B:cSPOOLER COMMAND $CLASS4 ASSEMBLE5RECOVER COMMAND ECLASS31 ASSEMBLEA7Ϋ(CLASS13 ASSEMBLEB)UCLASS5 ASSEMBLE -EYQQ1 SELECT 0;SYSGEN COMMAND 'xnCLASS41 ASSEMBLE--CLASS103ASSEMBLEod;B;CLASS23 ASSEMBLEC)NACLASS6 ASSEMBLE!,=,DEBUG OVERLAY1=[#w,1CLASS33 ASSEMBLE2)gSPOOLER LOADFILE $vCLASS7 ASSEMBLE:#CLASS15 ASSEMBLE$@? IK dt 0 5Cd }F7P*5.6M03v Oe  }F }F}F: = : 2T!9*3s#r1: G:S*Q(>2x˿"!9*3s#r1_!"2 ^#V#~w"3Y(^#V: 2T: = R*##Uf< V e`R͞͞͞͞ ͞͞͞͞ ͞ ͞͞͞͞͞͞͞ ͞ ͞͞͞͞͞͞͞͞͞: =(G: (@! ! ~(5=O! ~(#! # : (C*##~O! F(06: o&))^#V!f<[`z(R( 8 DMbk: $ { !f<"!~ *! U: <_! ~(66! {(# T](H#: (=G!_v(˶O: _! ~( :f<~ O=G_!! UO: <_! w~ !  # ! UO! T_!##N#F((***f<>$(H62 :> ! 6*##~2 _! 6!9^#Vr+s! _^#VXXBM-4 IK+.aP0i(3b|4,55,-1*]+05 ;z;//-NS!&/435 `1v$414>4]4R5+C49>q5Hx8{56c5K4]038UX4 43V^%%3&%%348DIl,848&2##/%.080>>g0 : = !'&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(:&D!Tdx 4> >,l&>,&44x7~#(?˯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 .39G:(2~(" 6 6 666666wn >>2CS"6*|!'": >L>0>6b6:: ˗2:( ~:w>6b~!kT::<2:l0!~6bW(!+w(n ˷\ !45 K!kU[*"7YK 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 ,$> | (+8 f  Vy  ^(> $|N|-% ~ 0h, V ^ (\ |$%( (x(  ( 0  ~( (0# }Gig y & ~( ~(  ~ (,M~( ( 0#~ ~y^O|N*3 (P(O ((ʩO 0 V( ^y ( ~((0#OOGOL    *3~ ~ Bw w 0 F>0 F(7~#8~ #8 \ N( ~( 8 0O?@Ѿ >.# >&# > # ># ># ># > n(20\ Oy*3 F( 8^( NM ~y ( ( (( *3% 38? F G N Ny80 _!^#V 8( ~ 84 Ͱ0> q q if Ͱ6 64 ~ 8~ ݾ(MN MN M5 4~8~wÞ6 6ͰҦ 6 6Þ6 ÞͰҦnf  M~  !ͰҦnf M~( MMLMMMæ~ʦ5Þ æ æynf|(###y>5@Gc% (( (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 ~  | T= q y ( ( ~~Ly ( (~ ~ w w 6 { x>Q8!D08!:8 A8G0O)8)8)8 )8 H !08:8D )8DM)8)8 8O 808 :8A8G8H.axʹx 80ɯ!~(#O#F#>/B<0 0  <>0'd z 7|M!jR0?YWJ{!908)( 0 (7ɯ8>OD͑i&+͎ : <(7DM!7~g~|( ?nfR8B?nfB8ؿnfR8˿͑Gyx͎8 : <(?7 nfR( 00G: |&*|&j&j& => |&> !&wO~ x!&U!&O~(~6(OoWgN6#F6x( !G(B8>z(* !' >ɾ(vr+s6##^#V: w#s#r!'G('!'G('!"'G('!,'G('!6'G('!@'G('!J'G('!T'G('!^'G('!h'G('!r'G('!|'G('!'G('!'G('!'G('!'G('!'G('!'G('!'G('!'G('!'G('!'G('!'G('!'G('!'G('!(G('!(G('!(G('!&(G('!0(G('!:(G('!D(G('~#^#V8 42l< <0͇(( 0~wLsJrKwIbk#~ ("$(08:8A8[8a8{0ˮ6$bk#( ( ~$Aw!Oo|gFI˸: )_!|NLê6~?wMne]&~Mo0$FI˸ ~)<)^JVK# C ~L 7#~(wLI~(^JVKÑ(I~(FI˸  (NB( 0 !!~Mo0$9)yI~ IOI~( FI˸ < I~ =7~L( v 6L^JVKÑ(FI˸: =(([ ^#V" _*͢ ѯ6,[(ѯ ,v Oeݾ H~ 9~686 [ 86^#V#N#fi(>7 ,!![> ^#Vz(= R #6,wG~ [>+>+  ,> ,[(> ,v e(~B66#[ #B6GB6 "7x B6!h(T[>+>+( 886Fwx [G !h(U!h(U>70(  !h(T!h(U"7bk: 76!w-TCx-S|-"-z(|(!"-͂6!"z-.~(Kx-[|-*->.~?<2-#!"-"-, <[|-*-R8-ͦ,:-(;= [-*-R"-*~-"-*-|R,"|-*-"~-~(A!"-*-#"-"~-; # x :-=2- <[z-Sz-[Kx- *-#"-*-#"-; 9# x 1:-=2-([z-Sz-[Kx- [-*-Rد~([-*-R,: 6!w-T"-Cx-S|-<<"~-!"z-͂6.~(>Kx-[|-*-.>2-*z-R( Sz-[Kx- [^#VK|-C-:-( Br+sKx- s#r*~-}_< B8+Kx-[ B0Sz-Kx-[ !R [y( { :-8 2-> S>(W:- ~z/w*-+"-|((> # x Kx-[z-[ Sz- Kx-[z-[ *~-))[|-!w-U"7[$0:O:g:o/0 f D V >-A>-'A>/D>/y8OO!p/ E V> JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC0!F>:#F>:#F0$0:0O:0G?8:0MO:0G??xO:0G  *J*L*b*d|(K0O:F= G?(0Ox('@(( > >d  >  y!~'w`8f6+~'w`8Z6+~'w$8N6:g(O :'0'>( <21!1 ''(8>' 6##~'w1(1010110101*|(+"|( *|( +">*]1+"]1| ͖0*"]1H3"3O*"3:23R NA ! D!~2#^#VSz@2*3:2#*3^#V*3"3[!3:͕#@2 3!3*3|@2:332#[3*3R :3! *3"3:323|($:332#*3[3"3[3!3͕#:3[3!3͕#z 3 S3*"3:23!"3"3 3!33*3|(:32#*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:2#*3|(+|("3:[!3͕#:**3":32|̗3!3͕#: =11*3: *30}x?h&)))))*3ѯ]4Oo&)))))!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]86g64XO{644 Need System Disk "" -  [ ## # 64O4:1O4x7˯4Q(M NDisk () Changed -  0n(f)6(6)!9nfutnftu0u(t) f |( ~ FF(" 0OF"70 >(?0GM>*3nf:O W(^Vn(f)7>RXRXXRX|X>QN*39~(# x ~ ɯ Cancel EXEC (Y/N) x70 ^  O ^  x70~9(#09ɯx70~ w    x7  ~(G~?=(x(@ wx7  ~(Gx70~ w x70 >:_ *: = $*D| x7:4˯4Y(4>L Wp[ GF OK to IPL (Y/N) - ͏7~( ~(f >~<(v(>~( : ~ #(ЯG?(w# ͏7~!;~!;^!;~< #;= ?( ( !;8G~##;O@y #; iD6͏7"7͉@Z@~<2=!A |^V<^Vsr[F nf +ut | 1F ~w# x F^V[ ~w^VN F nf"7N F ^Vn f Z@>6͏7"7͉@~<2=Z@N(/1F )N F ^ V nf́@Bt@^Vsrnf|(ut1F(nfR(#ut!utZB^ V 1F(~(<(=^Vsr[F n f +u t | Þ< 6͏7"7͉@V> <~<F^V[ sr [nf +ut | ^9?F^V[>( Z@<><1F +nfnfut́@BFsr[ n f n f ?F^V[ sr +| nf#ut1FnfP>P>^Vs# x ^V[F sr rF^V[ nfut|(xZB!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/ZB~(< .^Vz $^Vsr^Vz( srZB<^ V ~ w0 +# x ^Vsr[F ~0=w0 ӯn.f/##u.t/|(!R^V^VR0#utnf#utR’Anf|´A<7FZ@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%nfR D\CRn$f%+]˻#s(r)<^V^,V-R(u,t-n*f+F n*f+^(V)^#Vz DsrZB^ V ~ w08A )# x F^Vsr[ ~0=w0 ^&V'n$f%u$t%#^&V'n$f%Ru$t%utz( :s&r'ECnf+|(u$t%\Csrnfu$t%\Csr6͏7"7͉@Z@V> XF!A(XF^Vsr^V 1FD́@# x ^Vsr[F z ^# x ^Vsr[F Vs r!ZB6F^V[ 1FE^Vsr!ut^V[F sr^#V#{XFnfR( sr F^#V+++s#r###z [^VsrF nf|(hutZB^V# x [^VsrF z ^ V!s# x [^VF sr r[^VF nf+utXFF^Vnf ^#V#[$+r+s^V[ sr[$+6+6+V+^| qEt@^VN F nf"7}Fɶ?  1IK!7"! M"F!5" :2F:@2F:gx T!&T!F 6#2F:TO2T!I\.~O/wq $ :(g.z( R88"F:O *W((:oz %8|6T]G H^V*FR|!@(o"SU V!#"!$"!"R"!cT]6 [!c>#K*B"!f<>#K *B"KB"R[ G^#VS#*[ $$L[Z*#!c2*[ DM!c[[>#R[ F(^#V7RRM081IKR[M^#VS%^#V!@'*R"H [%!c2[!c>#R[ ,!FH!^#V!c2*B"!c>#R[ ,!FH!^#V!c2*B"!c>#!")"+ !n˾˶F<( 6 Nx ~# LMy!R!o&#[ 8~04^Vsr7RM8utT= M! >ax8a 0]~(R~ݶ JM!R!n&[ )~0^Vsr7RM8ut M(? ,T4:>(:T4@T4?4*SIJ> >-> 6IJ4OT4:wQ:gOT4IJ:IJ O!IJ~ ( 084:00#x8'0 T]>:0T]>:!IJ::222R(5O$5O~ 5O2R5O`5O( 2R5O`5Om:2FT4IJ:IJ Q!IJ~# *x( :G> !JJ>Q#>Q0Q8~# (0QYQ7Q8+x(z hJ!gJ6 OjJ!IJPO> o&gJ!F~# O0Q8+~ ( 0QO#xO++mJ!gJIJ~ ( YQ #PO> hJ!gJ 6 gJo&!FjJ~ O0Q#8+~0QuP# ST:QTG˯ #:QT0[QT >ѯ0:?A[?gJ >/!gJ !IJ:Fg(+/2ROOOO2ROO2OO//2ROO2OO2ROOOO2ROwO!hROhRWhRB >2R!~RY~OnIJ$:0 :w5OO:2F:w(*J|(S#G!!KA87E~# ( 08:07x xȷ<>FIJ>IJ}#SYSTEM DEV SYSTEM CLASS SYSTEM ERRMSG SYSTEM STARTUP SYSTEM NUCLEUS SYSTEM CSI SYSTEM EXECLANGIJ> :g(%> $:GO8888> o&"U:GO8888> _:& 8o o--0 o"USU'++ &[U[U::&! 'TS>,> *U} 8 o+[QT'STS> *U>,> *U:U 8#l > IJ4~ # 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 ! VR8U(ut~WR|_*S"S!4~+U!~w>h+/>i+~w>h+~["V>=G&>'' 'GŠV>#$%<"x&>,'' G( *V ÊV'_(*V !_~w#~w!_~wV!VN#~#y*"]1Wg.1s#r>g   <Ê@BCC}BBDEE6͏7"7~( >F"7~(/G<( :>(~ ( @>2@= ND~(?G>8: >~w~(@(+ ('`(#>Ð<V(~ʆ>() #~ > : =( +>(G:([(7<[('~w[(V†>>@Ð<>Ð<> Ð A+ +#ut>w^VJ7>@~ʐ<~[ e(~(¬=Fx< G˘p:8~¬=Ft?[z?B6>#ut}|.eFB6 nfut66T]F^Vnf w#66^VJ7>Ð<F> Ð<n <^ʦ=f¦=~w~w^Vsr~w~wJ7v<@fʦ=^¦=~w~w~w~w^sVr!l&))^sVrutF[ ~w#~wJ7~¦=~w~w~w~w^sVr^Vsr66J76͏7"7~(#~(0 A 8ڱA<( f  ʱA6"7!%U!%TNDV(~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@= @@flA[nXA~w~wXA͏7Nnf~FBNB utq>>^#Vz FBFnfsr utq͏7~BB~BBfBB~"76͏7"7N(V ND>~(ݾ(x>( nfBD"7 x !1NF!<0?J{_!UlcZ^Vsr^ $N(NF +l&FN0 nfF !RDM~w~w_DnfB(*8(ut^VsrnfF NFTD6͏7"7>~TD~ TDx>TDnfBTDcDnfB(-8+ut^VnfF sr NF^VnfF N( V NDTD?È<<Ê=>?G@w@Ê@Â@A! nfnf~(*3nf7%R84͊=V7R8^VN2E*3~ !>Â@[ |~(tO(^VR(>7N*3##^#VR0 >7^VF Q7R0^V~G(͊=2>7B6 0u_t`x M^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 86w~w~w~w6nfutnf͊=0wh7~h*0:O|(@: ^VR8^VR05y hgoM 6D y(!86:-w6*+ut*.ut*3>w͊=~ ~ R ~(>+++ ?+\8?0 n(#+~( ###~ O~ !>Â@!0 ~a8{0˯ ( 80# 8ί?808͊@?0sIrJuKtL+)[[@>$uMtNͶA[ !:>[ ͶA aA ͶA aA (O:w (py[ kOͶA ( YyͶA (M (E|( {(+^(OͶA (|>|'ͶA^( ͶA{(͛A}(nIfJx(~ ((~ ( AO# AͶA (0:OxGG@nMfN~#uMtN: =(>!NÂ@!9x(80Wx TC>(?44x6w6 *3~pp7tC[}CB^#VS#X##C[CB~2-nf"+nf".C[CBnf"5~27nf"iC[C O^#VS%[#[ ![![#!BJ[ !Jw?C4~ (O#)C45C4>L SYSTEM.:S missing! New System Disk Required!!!!! Mount new system disk now -  SYSTEM NUCLEUS SYSTEM CSI SYSTEM EXECLANGSYSTEM ERRMSG +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 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!>gGn ˿O`(?>0~( yf0O:@ ~(!{N(y(  wy!4^w͒ 4q~5DKcmy<SEND ver 5.6 11JAN83 Copyright by Timothy S. WilliamsP*Abk7%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=PATCH ver 5.6 27DEC82 Copyright by Timothy S. WilliamsP*AUbk7%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 ?MAILBOX ver 5.6 31DEC82 Copyright by Timothy S. WilliamsP*A0~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 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 ?RESTORE ver 5.6 12FEB83 Copyright by Timothy S. WilliamsP*A&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: 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) =ERASE ver 5.5 23DEC80 Copyright by Timothy S. WilliamsP*Abk7%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} 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 @OWNERCHG ver 5.5 23DEC80 Copyright by Timothy S. WilliamsP*A;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!*.29AJOVi9 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]bypÒø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 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 next 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 blink 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 current 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,(ATTRIB) ; 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 was 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 ; 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 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 <LOAD ver 5.5 28JAN81 Copyright by Timothy S. WilliamsP*Abk7%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@PASSWORD ver 5.6 06JAN83 Copyright by Timothy S. WilliamsP*A]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<KILL ver 5.5 23DEC80 Copyright by Timothy S. WilliamsP*Abk7%R0!D>a~ (M~ (E~ (@G2! 6Y ! > !a!!!>aDo you want to kill the file? ?]wz}>LOGON ver 5.6C 14MAR84 Copyright by Timothy S. WilliamsP*Abk7%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[_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@( 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{2N(O70y:Sˇ>>d>n(˗2S>d> 'E>MOUNT ver 5.6A 11APR83 Copyright by Timothy S. WilliamsP*A~ ʉ(ʉ~*(S(JG#~ 588G ! >(>@8 ! !>a!>a!>aDIf 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 DEYFINE 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$ ; ZFinish sequence END >CHANGE ver 5.5 16FEB81 Copyright by Timothy S. WilliamsP*Abk7%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 "(<_blp 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 DaEFINE 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 b; 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 ;c 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 dA,(.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 .ULOFFe: 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 .BfOFF: 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,g'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 h ; 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 ; RiES 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 ; brifj 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 BIkT 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 nlumber 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" m; 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 ILq,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 ersc 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,s5 ; 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 LtD 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 u; 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 @ARCHIVE ver 5.5A 04JUN81 Copyright by Timothy S. WilliamsP*A+bk7%R0!D>a~ (&(("~(((~ (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{~ #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 @RECOVER ver 5.6A 11APR83 Copyright by Timothy S. WilliamsP*Abk7%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{~ *_<SHOW ver 5.6 27DEC82 Copyright by Timothy S. WilliamsP*Abk7%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?*EXEC ver 5.6C Copyright by T.S.Williams2U2bk7%R0!D>aP0!9!~ >*2UF>(*>(G~7<8>2U>2UÅw7~7 ~8 w8D".-!D!u5t6!06 1!" *.0>~ ( = xRg.[~7=W0>!"~w8*# --DC!1( C< >X^V!16 #:CG 7%R0!D>a^#V+z :U(* |^5V6!2z( > +"^5V6s5r6*> "~W22~08:0# (- #~  ~ #"~8w(9<*> ##~n5f608:0͖>>> :&Y0!~ (~ 0> !~  #(;~8(Y>!~ ('(()( ('O##~ ((#@()#~ ()( ( ~8ˇw8"* -  86͖8*~# (=‘~ ‘ͻ ( (O ( (\(  ( >T2*> "n5f6#u5t6W08:0  ( & &~E ~N ~D ~ # (:T(öö80͖} 8 0͖}2U57~ G(ˇw nf 8~7 ~8w8:Uʹ > bk> ++~ (#6 ʹ>S2ö~ G(˿w P~ w  :P~8w88!~&6.06&~ > !  &A[!~ ( ( #( T]6 ~ ( ( ~ (! ##~ ( (~ ( (#  %> 80~ (~ *~ 7 (,() #!26 ( #~ ( (,( (()("!> ++~ |& T]6 #~+A8[ڿ08J:0F͊ Az ={08 - ;=O!0 ~% #~+ (;6 T];!7 #:U'!? 2#!0~ ( y8>bk6 o&;!E #ð!J # ;y!O # ;x! ##; ï!#͖~ :& /: (!V #^#V7  ~ ݷ2!0 >&!> > : A[!6 ڼ :&u !Tʹ!Xʹ!\ʹ!`ʹ1 !dʹu ͻ!6 !~ g (#(~͖}( 8>G ͖} > 8>ڼ O!#  ü #0!~ (#x!6 o&g !g 0 (- ͖ >N(>A!6 2g ͻ~ ʼ (#(~ ( ('!&6 ü !ü 0~ #(~ ʼ #2-+(-(*( /(|(#~ #~ :-| & (~ ('!&6 ~- ͖!R͖ - ͖!R͖ !6 +( -( *(*/(7CR>|(!RѪz(!R[ '(!R[ &(!R|( 6-!Rbk6 Í > 2'~8w( !N~# ! %ͻ- ͖ L} ++## "}Wn5f6#u5t6*~W> "~W ͻ!2~08:0 #~ ( #~ ( ( #~ ( ( > q5p6")ͻ:0!͖}=O> #͖}=O!h~~ #(~#(N˹ͻ˯SO( P( W(N0O ˯O ˯N(F(yyO  P  W  yO  P  W  ͌ C2*"~# (+& #~+*($ ##~++ #:~ # #~ # ~&Q #~*($Q #~ Q +~2:<20<=O!0 "~ (% #~ (*"Q 8 :$z:* r:$rzͭ0 0  G  ( (O !QE>B(c! =B([!TGB(Q! >B(I!EGB(?!=>B(7!TLB(-! :&: :$(**͌ *> "N5F6q5p6~~08:0#~ #- #~ ( 0 #~  ͌ *++> ##"N5F6 q5p6x~08:0#~ #- #~ ( " #):#*++> ##"N5F6 q5p6ͻ (! (n5f6" !2"q5p6^5V6s5r6* R*( > "~08:0#~ #- #~ ~  (#"C~8w8OͻA(9T(5N(OO(=S(KE˹˱yw8  ( ( ˡ˱ˡN(˹˱ˡ˙>F2ͻ~F(L 0~I )~F "~O ~ w> ~2! *> ##>X,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 vBEGTYPE SPACE 'CONTINUEQUIT DSTACK BEGSTACKSKIP GOTO k CONTROL BIF CRT ESC  READ WAIT WHILE UNTIL 1REPEAT :ERROR TRUE FALSE &WHILE &UNTIL &REPEATRETCODE INDEX NULL PAGE LINE TYP LEN LIT CAT SUB HCDCDLILICDLEOLEOSEUPONPOFBONBOFBFONFOFKONKOFRVONRVOFRULONULOFU +/2TY_|6?Dty~ 2AQmp.KUZ_jpsw  %(/25BELORY#)05<^,1@`k")=Tnz} !$'*-0369<?BEHKQT[^du    " % , / 2 6 < [ ^ e k n s v z }    ( . 5 8 z     # 4 7 < P V ] c i l o x   ) e    ( + . 3 8 = D G L O R U X [ b g j m s x  #.7Jsv{~(-258;I[ 3=@&Mhx $P`e~^hr|<SET ver 5.6C 20DEC83 Copyright by Timothy S. WilliamsP*Ax2/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 [ 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 toa 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 b 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 c'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 - dRIGHT 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.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 DEFIiNE 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 DEFINjE 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 tkranslate 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 tlable 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 cmharacter 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 donne 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 -> RIGoHT DC 'D',BS ; ESC,D -> LEFT END <STOP ver 5.5 18FEB81 Copyright by Timothy S. WilliamsP*AP~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|=SHARE ver 5.5 23DEC80 Copyright by Timothy S. WilliamsP*A7%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^dhsPRTSPOOL 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>REPAIR ver 5.6 27DEC82 Copyright by Timothy S. WilliamsP*AO%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>ERRMSG ver 5.6 27DEC82 Copyright by Timothy S. WilliamsP*Abk7%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 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 ; else, 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 ENDIF 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 48 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 '&FUNCT'.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.'EU' 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 cy 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 JR 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 DEVOUT ; 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 DEVOUT 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 ; yes, 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 .RET: 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 20H ; 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 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?ACOPYFILE ver 5.6B 31MAY83 Copyright by Timothy S. WilliamsP*A 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/3MOATERMINAL ver 5.6B 26MAY83 Copyright by Timothy S. WilliamsP*Abk7%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 Ö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 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,EUSCOX ; 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 V 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 ; lWoop 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 XCP 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,Y$+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 DEFIZNE 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,E]SC,\ 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 @TEXTEDIT ver 5.6 27DEC82 Copyright by Timothy S. WilliamsP*Abk7%R0!D>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 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,VqT 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 Zr,.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 ; sElse 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 LtD (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 currentu 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 vstring .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 DwEVOUT ; 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 atxtribute SCF ; Turn on carry flag LD A,FF ; Reload accumulator RET ; Do normal processing also ATTRIB: DC 00110000B ; Attribute byte END ?RENAME ver 5.5A 03JUN81 Copyright by Timothy S. WilliamsP*A!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}=STATE ver 5.6 27DEC82 Copyright by Timothy S. WilliamsP*A7%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| 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 AFILELIST ver 5.5A 25JUN81 Copyright by Timothy S. WilliamsP*A~ (~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[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. | | | | | | | | | | | | | | | | | | | | | | | | [142] Invalid bank number. [143] {1} greater than {2}. | 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\?ATTACH ver 5.6B 31MAY83 Copyright by Timothy S. WilliamsP*Abk7%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`gnsx 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 >SYSGEN ver 5.5 15FEB81 Copyright by Timothy S. WilliamsP*AP~ =(!N>an bk7%R0!D>a~ (!>a!n( ! > a^#VS!n2P0~w~ UNLOAD ver 5.5 23DEC80 Copyright by Timothy S. WilliamsP*AP~ (!N> a2~($ +~ $!9Y~( (!2 # Z!W2> anf ":~ ( ^#V"<[:R">T] ~( ( *>|[:s3r4*<[:s#rbk##s#rZ!>a!>aQZ_g 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 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 ;  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 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 ; else 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 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 DEFI NE 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 c lear 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: 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.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 .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 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 LD( (.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 )LD (.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,*.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 J+R 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 ;, .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 -return 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 ;MSG ver 5.6 27DEC82 Copyright by Timothy S. WilliamsP*A"~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" 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 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] 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 =FORCE ver 5.5 06FEB81 Copyright by Timothy S. WilliamsP*A~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|?SPOOLER ver 5.6 09FEB83 Copyright by Timothy S. WilliamsP*Abk7%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>LOGOFF ver 5.5 17FEB81 Copyright by Timothy S. WilliamsP*Abk7%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. WilliamsP*AfUbk7%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{ 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 ;RUN ver 5.6 27DEC82 Copyright by Timothy S. WilliamsP*A1p*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?ACCOUNT ver 5.6 27DEC82 Copyright by Timothy S. WilliamsP*A0~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>VERIFY ver 5.5 06FEB81 Copyright by Timothy S. WilliamsP*A!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|?RECEIVE ver 5.6 11JAN83 Copyright by Timothy S. WilliamsP*Abk7%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 !&.@INITDISK ver 5.6 31DEC82 Copyright by Timothy S. WilliamsP*A~ (( !>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 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 DEFmINE 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 ; nyes 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 qDL 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 DCAr$ ; 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 iss 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 currtent 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 ; Saveu 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) ;v 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: LDw 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 <HELP ver 5.6 27DEC82 Copyright by Timothy S. WilliamsP*AG7%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 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 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 ".3 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 ;CRT ver 5.6 05NOV82 Copyright by Timothy S. WilliamsP*A !! +"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\ 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 DEFINE 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 DEFINE ULOFF DEFINE BON DEFINE BOFF END ?CREATE ver 5.6B 31MAY83 Copyright by Timothy S. WilliamsP*Abk7%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 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,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 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~5DKcmy<PEEK ver 5.6 27DEC82 Copyright by Timothy S. WilliamsP*A~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 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 DEFINE RVOFF END <RUN2 ver 5.6 27DEC82 Copyright by Timothy S. WilliamsP*A1q*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 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,( 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 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,.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 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 attribute 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 attribute 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' ; ULON 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 >START ver 5.6A 11APR83 Copyright by Timothy S. WilliamsP*Abk7%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 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  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 DEFINE BON DEFINE BOFF DEFINE RVON DEFINE RVOFF DEFINE ULON DEFINE ULOFF 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 >ASSIGN ver 5.5 23DEC80 Copyright by Timothy S. WilliamsP*A~ 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 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 <LIST ver 5.6 27DEC82 Copyright by Timothy S. WilliamsP*Acbk7%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 !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 clea-r 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. $ARCH.IVE 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 /drive 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 accounts0 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. F1unction: 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 f2iles $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 3PUNCH,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 del4ay 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 d5evice 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 f6ull 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[7.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 g8enerate 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 com9ma for numeric items (European format). $CHANGE Modify privilege level of command. Function: To change the privilege level of a 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: filei is the input file (fn.ft:fd | device) fileo is the output file (fn.ft:fd | device) Options: TYPE display result of each c;opy (default) NOTYPE do not " " " NEWDATE use today's date on output file OLDDATE use input date on output file (default) FROM nnn start copying at record nnn FRLABEL xxx start copying at literal FOR nnn copy only nnn records TOLABEL xxx copy down to lit<eral TRUNC remove trailing spaces NOTRUNC do not " " " (default) PACK compress spaces and mult occurrences. UNPACK do not " " " LOWCASE 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 check of output (default) NOVERIFY do not " " " QUERY prompt prior to copy (default if wildcards) NOQUERY do not " " " % <5 PU>BLIC copy public files too TRANS perform user translation SPECS specify record format FILL nn define fill character $CREATE Allocate disk space for Direct or Indexed file. Function: Allocate disk space for a Direct Indexed, or Keyed file. Syntax: CREAT?E fn.ft:fd (options) Options: CLEAR to remove all records from existing file DIRECT allocate direct file INDEXED allocate indexed file KEYED allocate keyed file FILESIZE nn number of records KEYLEN nn key size (INDEXED) RECLEN nn record size $CRT Perfor@ms 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 andA screen alignment 3 Cursor addressing 4 Relative cursor addressing 5 Scroll up using delete line 6 Scroll down using insert line $DEBUG Debugger for machine language programs. Function: Allows dynamic interactive testing and debugging of programBs written in Z80 machine language. Syntax: DEBUG Features: - Assembler, Dis-assembler - Register display and modification - Tracing and Single step execution - Dump, search, and fill memory - Read and Write to disk files - Input and Output byte/block Cto port - Multiple break points - Compare two blocks of memory - Move block of memory - Saving and loading programs - Compute hex/dec (*,/,+,-,<,>,&,|,^,~,\) - Multiple Memory Regions (BASE) Note: Contains internal HELP subcommand. $DUMPDISK Dump contenDts of file or disk in hex and ASCII. Function: To dump files or logical sectors in hex and ASCII. Syntax: DUMPDISK fn.ft[:fd] [(options)] Options: PRINTn output is to printer n $EDIT System file editor, both line and context. Function: To create and mEaintain sequential data files for system utilities like the assembler, SCRIPT, BASIC, EXEC, etc. Syntax: EDIT fn.ft[:fd] [(option)] Options: NOBACKUP to not create backup file. BACKUP Do create backup file (default). Note: Contains internal HELP subFcommand. $ERASE Remove a file from the disk. Function: Erase a single file or a group of files. Syntax: ERASE fn.ft[:fd] [(option)] Option: TYPE to display files erased NOTYPE do not display file names QUERY to question each file prior to erase NOQUERYG do not question $ERRMSG Maintain the SYSTEM.ERRMSG file. Function: To maintain the SYSTEM.ERRMSG file. %99 <5 Syntax: ERRMSG [num] Where: num is the message number to display Note: Interactive maintenance is assumed if no num is supplied. $FILELIST LHist contents of file directory. Function: To list directory entries for selected or all files. Syntax: FILELIST [fn.ft][:fd] [(options)] Options: PRINTERn Display list on printer n EXEC Create SELECTED.EXEC:S file FILE Create SELECTED.FILES:S APPEND AIppend 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 thru date & time ALLOC List up thru allocation FORMAT List up thru format LABEL List up thru disk label (default) SORT Sort theJ list (default) NOSORT Do not sort the list OWNER List selected files from all accounts HEAD Display page heading (default) NOHEAD Do not output heading PUBLIC List public as well as private files mm/dd/yy Only include if date >= to requested * Include aKll information $HELP Display function, syntax and options of command. Function: To 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:L If no cmmd is given, a summary of all commands is displayed $INITDISK Format a 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 iMd) Options: LABEL To change id CLEAR To erase all files SIZE nn Determines # files 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 traNcks HEAD n Number of surfaces per cylinder TRACK nnn Number of tracks per surface 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 drivOe 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 thanP label it) $KILL Erase a file without de-allocating the space. 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: QTo 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 outpRut 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 crossS 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: LiTst 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 linUe 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. VFunction: 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: TYWPE 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 expandXed 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: NOOBJY. $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 operatingZ 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 as\k $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 comman]d 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: nn`n start looking for file at sector nnn. $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. neaw 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 inbtegrity 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 vcolumes, 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 desdtination 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 aske 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) $RfUN 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 gto 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 hthe 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 statiement 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 jjustification, 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 kinch 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 $lSEEK 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.m 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 COMnM1) 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 oro 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 pnn 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 $qSHOW 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/rOFF) 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 statsus 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 $SPOOLER Systtem 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 STARTu 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] chvange 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 wnn 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 followingx 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) NOTYPyE 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 ezmulator. 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) ES{C 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. >DEBUG ver 5.5A 03JUN81 Copyright by Timothy S. WilliamsP*Ax20~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. Bkx1,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@EWbmsyJQ0 SYSTEM 5 1 ONE 5 2 TWO 5 3 THREE 5 4 FOUR 5 5 FIVE 5 84 TOU 4X 9274 ? F KC 21 M S P N 2 00000000001 2 P P P P PROUGH9120511N!FABIAN INSURANCE AGENCY 334 N. Central Ave. Glendale, CA. 91203Telephone (213)247-5000L01L03L13L04L10L22LLFSafecoFirst NationalCovenant$PD15PD10PD07PD20PD22PD13SV06SV09PDLF00PREF04APREF05APREF09APRFPRNTHO61HO51HO52HO53HOPR(825832048301828282823448 01 82 D6 4  QQ10CA.R000 FABIAN INSURANCE AGENCY 334 N. Central Ave. Glendale, CA. 91203  Telephone (213)247-5000 =============================================================================== Homeowners Quote for :RICHARD 08/13/84 Company Name Base  Liab. Cred. & Total Premium Endorse. Premium SAFECO $349.00 8.00 42.00 399.00 REPUBLIC $432.00 0.00 61.00 493.00 VANGUARD $379.40 0.00 61.00 440.40 BLUERIDGE $346.00 0.00 50.00 396.00  FABIAN INSURANCE AGENCY 334 N. Central Ave. Glendale, CA. 91203  Telephone (213)247-5000 08/10/84 =============================================================================== QUICK QUOTE LIABILTY QUOTATION FOR PROUGH ON 08/10/84 =============================================================================== Dr.# Cl:Pts Liab Med UM SubT Co Fee Total 1 2C: 3 $704. $49. $74. $827. AR  $827. 1 2D: 2 $928. $87. $90. $1,105. FIC $1,105. 1 2C: 2 $870. $54. $84. $1,008. JM $30 $1,038. 1 2C: 2 $696. $54. $84. $834. JM $30 $864. 1 2B: 2 $478. $55. $55. $588. CS $25 $613. 1 2G: 2 $645. $32. $44. $721. Prg $721. 1 2C: 2 $445. $50. $40. $535. SCJ $30 $565.  FABIAN INSURANCE AGENCY 334 N. Central Ave. Glendale, CA. 91203  Telephone (213)247-5000 08/10/84 ============================================================================== Quote for :PROUGH, ,  Zip :91205 ============================================================================== 97);(3SCJ Regular ProgramL22PD223tah Home FireL02PICSV06o Gnl-KatzPD19.Reliance Hi Value nmvrSV05(Financial Indem.L03PD07;Progressive CasualtyL10PD10orkmens AutoL12PD12Jon MarL13PD13ntegrityL04PD20SCJ Hi ValueSV03Cal StandardL04PD20o Gnl-Katz nmvr $500SV02SV01o Gnl-Katz nmvr $250SV01SV02*SCJ Van ProgramSV08Blue RidgePD15)Assigned RiskL017Great FallsPD01 FABIAN INSURANCE AGENCY 334 N. Central Ave. Glendale, CA. 91203  Telephone (213)247-5000 08/10/84 =============================================================================== QUICK QUOTE SPECIAL AUTO QUOTE FOR PROUGH ON 08/10/84 =============================================================================== DR#. CLS:PTS VEHICLE DEDUCT. PREMIUM CO FEE TOTAL 1 2C: 10 84 TOU 8 $250/$250 $1,465. BR $30 $1,495. 1 2G: 6 84 TOU 11 $250/$250 $2,453. Prg $2,453. 1 2D: 6 84 TOU 10 $250/$500 $2,404. FIC $2,404. 1 2B: 6 84 TOU 9 $200/$200 $1,623. CS $25 $1,648. 1  2C: 10 84 TOU 5 $100/$200 $450. SCJ $30 $480. 1 84 TOU $250/250 $1,640. PIC $30 $1,670. 1 84 TOU $250/250 $1,079. SCJ $30 $1,109. a line /84 =============================================================================== Dr.#$Cl:Pts&Liab&Med'UM&SubT$Co Fee$Total 1&1A: 7'$553.%$26.%$74.$$653. 2&1B: 0'$400.%$29.%$74.$$503. 3&1C: 0'$448.%$33.%$74.$$555.$AR($1,7Q11. 1'1: 0'$389.%$43.%$72.$$504. 2'1: 2'$425.%$47.%$72.$$544. 3'1: 2'$425.%$47.%$72.$$544.$FIC'$1,592. 1'1: 0'$297.%$18.%$59.$$374. 2'1: 2'$329.%$23.%$59.$$411. 3'1: 2'$329.%$23.%$59.$$411.$JM#$30 $1,226. Q1'1: 0'$238.%$18.%$59.$$315. 2'1: 2'$263.%$23.%$59.$$345. 3'1: 2'$263.%$23.%$59.$$345.$JM#$30 $1,035. 1&1B: 0'$253.%$40.%$55.$$348. 2&1B: 2'$253.%$40.%$55.$$348. 3&1B: 2'$253.%$40.%$55.$$348.$CS#$25 $1,069. Q