IMD Linux 0.11: 31/10/2012 11:18:14      > 1!e:_ 0g 0We|pe0 !Ip`M"*x>v2 {zy" !v $> r m,χOWNERCHGCOMMAND ˜4;SEEK COMMAND ͪ CREATE COMMAND ͪDEBUG COMMAND ahSTOP COMMAND )$gMEMTEST COMMAND ˜REPAIR COMMAND ͪOCMSYS01 s PBASIC2 LOADFILE]ERHELP COMMAND xͪGATTACH COMMAND ˛CHANGE COMMAND (#SYSTEM CLASS10 k"CLASS25 ASSEMBLE*D(LOGON COMMAND hPATCH COMMAND ͪ5START COMMAND E LOGOFF COMMAND d(ACLASS43 ASSEMBLE1jCLASS8 ASSEMBLE)>ASSIGN COMMAND 8˛EBACKUP COMMAND @~ufRECEIVE COMMAND BASIC OVERLAY1ek.WINITDISKCOMMAND 1 2E+(SYSTEM CSI PE" CLASS35 ASSEMBLE  4 SHOW COMMAND ͪCLASS9 ASSEMBLE,1\SYSTEM SPOOLQUE@'3SYSTEM CLASS28 xVERIFY COMMAND #$8MAP COMMAND q BASIC OVERLAY2# '$1MCLASS10 ASSEMBLEr0k CLASS38 OBJECT * #SYSTEM CLASS30 sMAILBOX COMMAND xϪCLASS27 ASSEMBLE9QSTUGMVD BASICOBJ"4Y:STATE COMMAND ͪSYSTEM ERRMSG @&2SYSTEM CLASS38 ASM EXEC k,MA"R5BASIC OVERLAY3+ @k$CLASS20 ASSEMBLE.l7BKnCLASS37 ASSEMBLE3KMSG COMMAND ͪ{INFO FILE PTERMINO EXEC  n=SYSTEM EXEC1 h'3LIST COMMAND ͪ BASIC OVERLAY4~ E*oCLASS30 ASSEMBLE]( 80 RESTORE COMMAND  &2EDIT COMMAND DP&26ERRMSG COMMAND ͪCLASS29 ASSEMBLEhp,XxCOPYFILECOMMAND |L#{pSYSTEM NUCLEUS i 2SYSTEM DEV18 $B2jCLASS MACLIB B UCLASS40 ASSEMBLE9+PCLASS22 ASSEMBLEN3Y$LARGE NUCLEUS i2LINK COMMAND / ͪ_%SYSTEM DEV20 ,B2jSYSTEM EXECLANG4E.RUN2 COMMAND ͬy%TEXTEDITCOMMAND ͪv MOUNT COMMAND LESONETT3 EXEC h n=hCLASS39 ASSEMBLEP4 ,"; FILELISTCOMMAND < lSYSTEM HELP DB(2 SYSTEM EXEC3 p'3CLASS32 ASSEMBLE%t/#4vCLASS14 ASSEMBLE.&ArLOAD COMMAND $UPASSWORDCOMMAND 2     SYSTEM BACKUP   n= CLASS42 ASSEMBLEw6FORCE COMMAND #$>CLASS24 ASSEMBLE_4sSYSTEM DEV13 -+MARCHIVE COMMAND  b#SAABR EXEC < n=<INITTAPECOMMAND hRELOCATECOMMAND ˜9ERASE COMMAND ˛CLASS34 ASSEMBLE  Bq0SYSTEM DEV23 `,* SET COMMAND E(CLASS1 ASSEMBLE5SEND COMMAND PCLASS26 ASSEMBLEm>D7CLASS21 OBJECT 10!F3+7*7T868R/0l-'L. 2>>?22!!! !2768V \ U46L7Y7f77z8 3(8;   98098s7B37;U7476!((6D)((6877;<?0T/B;B7;)''V2(i3s3>>!'&8;: = !R : <(!S ~(T: !] *% [66( [ ~~# 66* v(& F R* 8~ F _ ^ &~ 2  _&C:2' y2# !9 *% :$ (###~(* >: gv({> (~ 8|* " :# g: 2 ("v({ > ~ : : 2': ( !˶###= B ( 4w > DE |(!  ɷ  !' 5(Z BASIC LOADFILElEo^BASIC2 LOADFILE]ERCLASS3 ASSEMBLE0CLASS32 ASSEMBLE%/#4HELP COMMAND `ͪGRENAME COMMAND Dag!SECTOR COMMAND ˜FSYSTEM CSI `E"  ZZ: = : 2T!9*3s#r1: G:S*Q(>2x˿"!9*3s#r1_!"2 ^#V#~w"3͈+^#V: 2T: = R*##U2>/)g>2: wͶw8;͘w8͘%0 ͑w8X:;8G (͐!5 6!5 O J:: wͶw8;͘w8͘%0 ͑w8X:;8}(͐!5 6!5 O J:!4K* $[:=2C">202M͉ 5G 1g - *͉ G w W ( ( yK[*J:>>:! (!*ut:w :w nf utnfut:ww>:w:> ;     2w2z2Cy<2S">2>2:7?2!06&8k: 'o:kg2l :*""~ : [~{w>;:>9= :!8(yϿ(yχ0ÄÔw(X!Y605>0g!]F(6>#_!nf| P0!"U>2W222~:2[C?SA"C2qF2:?!SW!f[C K?[A*C $:[=J:2[C?"C:S(:2[C?0!O 8(I ,$g> | g(+ʵ f  VQy s ^(> $|p|-% ~ 0h, V ^ (\ |$%( (SA"C2:[!T8 :S qF2:?O:SW:TW:[8z2\G:S!fWY*C x2K?:\WO*C|g:[[AJ:"EC?SA>2<22~zWS{2>2!"!"xͱx8:22!8,*E: ~2!># G(##~(>*U|?>2bx(  ( 0  ~( (0# }GiDgD y ͣ ~(À ~(É ~ (,M~( ( 0#~ ~y^O|p*3 (P(O ((&O 0 V( ^͐y (͐#2XM C"S 'O!k~G#w !!6K?[A*CJ:>!c0:f7{ 8$!@~+ !G >!f2C"q: :!!:>(>>O:Y2>2Wͱ! ͐~((0#O͐OG͐O͐ ͐ ͐ ͐ ͐*3~ ~ Ϳw w 0 F>0 F(7~#8~ #8  N( ~( 8 0O?@Ѿ >.# >&# > p#w#w#w!8͑"""ͥA*^(*`:Z( y2Zx :W(!> >:X72W*R{!z!>>:X7!:Yw#:@w#:TG:??H ?w*A|# ># ># > n(20 Oy*3 F( 8^( N ~y ( ( (( *3 ) 78? F G N Ny80 _!EW:W:# (:# "z# xG22~2~G2### !b6#&8O:X(+w g _ W >>> :Z >>2X7}fh !χ}TPέϳ^#V 8( ~ 84 -0ͻ q q if -6 64 ~ 8~ ݾ(N N 5 4~8~w6 6-# 6 66 -#nf  ~  !-#nf ~( LM#~#5 # #ynf|(###yͻPZi+& (( (Oͪͣͣ ͪ  @>:>:>:> :> :7^Vz(7R ^V8666^V0z(7R ^V866x o&)))))is#r_7ڗ ^#V|ʗ { _x {s x ږ Җ { ʆ – x *D|(R> 8 x = y ( (] (2(Dq Ö N(5 ~ w w  V(a~ Z~ S     V(M R 6  ^ ~ N V  R  R ~ w ~   = q Z y ( ( ~~Lx y ( (~ ~ w w 6 { x>Q;!D08!:8 A8G0O)8)8)8 )8 H !08:8D )8DM)8)8!~WY(_nz͈+u{͈+## x {{(WY(_'*##~(s{(1(: <(~( *##O: /B<0 0  <>0'd z 7|M!jR0?YWJ{!908)( 0 (7ɯ8>O"#i&+ " : <(<7~H~G( *##OywG~HH_!~wOG: =8j: (d!)T2)x!)V( ( ( ((ͫ)ͤ)ͤ)>ͫ)*ͫ)͙)͙) => ͫ)> !)wO~ x!)U!)O~(~6(OoWgN6#F6x( !v+B8>7DM!#7~g~|( ?nfR8B?nfB8ؿnfR8˿#Gyx "8 : <(?7ɾ(vr+s6##^#V: w#s#r!=*v+5*!G*v+5*!Q*v+5*![*v+5*!e*v+5*!o*v+5*!y*v+5*!*v+5*!*v+5*!*v+5*!*v+5*!*v+5*!*v+5*!*v+5*!*v+5*!*v+5*!*v+5*!*v+5*!*v+5*!*v+5*!~#(: =(:+v+5*!+v+5*!+v+5*!#+v+5*!-+v+5*!7+v+5*!A+v+5*!K+v+5*!U+v+5*!_+v+5*!i+v+5*!s+v+5*~#^#VG 'Ox!kw# < <0+( 0~wLsJrKwIbk#~ ("$(08:8A8[8a8{0#!%8 ( !nfR8 ~(y(gx| 9x 5T]~ (RDM+T]!ˮ6$bk#, , ~$Aw!Oo|gFI˸: 8-_!|NLe̪9~?wMne]&~Mo0$FI˸ ~-< -^JVK# C ~L 7#~(wLI~(^JVK+I~(FI˸  (NB( 0 !!wsr: nfR( 00G: 7H/!![> ^#Vz(= R #:@/wG~ [>*/>*/ H/> H/[(>H/v e(~j96#[ #j9Gj9 J:x j9!+T[>*/>*/( 8_!~WY(_z͈+n{͈+u## x {{(_`9Fwx [G !+U!+U>70(  !+T!+UJ:bk: 7:!0TC0S0"0z(|(!"0ͪ9!"062~(K0[0*0>,2~?<20#!"0"0 0 <[0*0R81/:0(;= [0*0R"0*0"0*0|ʍ/"     0*0"0~(A!"0*0#"0"0; # x :0=20 <[0S0[K0 *0#"0*0#"0; 9# x 1:0=20([0S0[K0 [0*0Rد~([0*0R 0: :!0T"0C0S0<<"0!"0ͪ962~(>K[ ##] >#ů<7##:>*x( ( ?8@>S>*x*(S?6_~{>O8##F#N#~xGyO/o0~ g~ w 0 v 5 N / ;( AH^? ( ( ( &U.A0[0*0,2>20*0R( S0[K0 [^#VK0C0:0( Br+sK0 s#r*0}_< B8+K0[ B0S0K0[ !R [y( { :08 20> S>(W:0 ~z/w*0+"0|((> # x K0~('~_5( ݖ0݆w~7~ݾ(~݆ݖ0݆_w4*3]`994XO944 Need System Disk "" -  [ ## # 94O4:1O4͠:˯4Q(M NDisk ([0[ S0 K0[0[ *0))[0!0UJ:[_3:O:g:oV20 f D V >-A>-'A>/D>/y8OO!2 E V> JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECU3!F>:#F>:#FU3_3:B3) Changed -  0n(f)6(6)!9nfutnftu0u(t) f |( PFF(͟$0OFJ:0 >(?0GM>*3nf:O W(^Vn(f):>RO:B3G?8:B3MO:B3G??xO:B3G  *J*L*b*d|(3O:F= G?(0Ox('@(( > >d  >  y!~'w`8f6+~'w`8Z6+~'w$8N6:g$R$$R$|$>QN*39~(# x ~ ( <2M4!K4 ''(8>' 6##~'w1(1010110101*4+"4| *"4!5 :w3HE6>"6O*"6:26R NA ! D!~2#^#VSzh5*6:ͯ'*6^#V*6"6[!6:'h5 6!6*6|^.>Cʭ=͠:0 <~ Un(f)|(Eɯ Cancel EXEC (Y/N) ͠:0 ^  O ^  ͠:0~9(#09h5:66ͯ'[6*6R :6! *6"6:626|($:66ͯ'*6[6"6[6!6':6[6!6'z16ͅ4S6*"6:26!"6"6 6!66*6|(:6ͯ'*6[6"6[6R8*6[6R"6:626*6"6[6!6*6|(*6[6R"6:6[6!ɯ͠:0~ w    ͠:  ~(G~?=(x(@ w͠:  ~(G͠:0~ w ͠:0 >:_ *: = $*D| ͠:>4˯4Y(4>L1>Wp6'*6|*6: 2"26"6:6*6 !6'*|̿6Ā4*6*| Ϳ6: =(!T5c6:ͯ'*6|(+|("6:[!6':**6":62|̿6!6': =ʅ4À4*3: *30}[ GF OK to IPL (Y/N) - ͷ:~( ~(f >~<(v(>~(  ~ #(ЯG?(w# ͷ:~J>~J>^J>~< L>= ( ( J>8G~#L>O@y L> 7Mbk 6x6#6G T8W~(0>G ~# < n(~1 P(6?f 6~1(0(-( +($ +s?s?s?x 1  ̀?#~O ((̀?̀?ޯL>^  ̀? x @:ͷ:J:ͥCvC~:ͷ:J:ͥC~ @~<@=D bnfAF^V[ sr [nf +ut | ^UBF^V[>( vC@>@1F +nfnfut͝CFFsr[ nr r[^VF nf+uttIF^Vnf ^#V#[$+r+s^V[ sr[$+6+6+V+^| ÍH͐C^VN F nfJ::ͷ:J:~( >FJ:~(/G<( :>(~ ( @>2@= N f n f ,BF^V[ sr +| nf#ut1FnflAlA^Vs# x ^V[F sr rF^V[ nfut|(xvE!BDMnf++ |(nfO ut[F &[!RNFq#z F^V[ sr N"~(?G>8: >~w~(@(+ ('`(#>êIV(~ʠK() #~ > : =( +>(G:([(7<[('~w[(V K>@êI>êI> êIn ~(F~(~ʣLNFV 'FpF^V[ ^(V)!R<DMn*f+NF^q#Vp#srz( x J:N(*3I^Vut#61v(61srq p utnV(`iF^Vsrut6 r:VJVJ`i^VF ~w~w~w~w~w~wsr{Dw> A+ +#ut>w^Vr:>@~ʪI~[ e(~(JFx< G˘p:8~JFŽL[fut~?o&#u t ^~Wsr 1F utn f N F (w# !^ V N F (G (O ( ^V&#ut!ututut^VRu.t/vE~(< .^Vz $^Vsr^Vz( srvE<^ V ~ w0 +# x ^ڔLj9>#ut}|.eFj9 nfut66T]F^Vnf w#66^Vr:>êIF> êIn <^JfJ~w~w^Vsr~w~wr:vVMfJ^JVsr[F ~0=w0 ӯn.f/##u.t/|(!R^V^VR0#utnf#utR®Dnf|D<7FvCNF x !1NF!<0?J{_!UlcZ^VutF )n(#nf +l&NF OF["0E~w~w~w~w^sVr!l&))^sVrutF[ ~w#~wr:~J~w~w~w~w^sVr^Vsr66r::ͷ:J:~(#~(0 N 8N<( f  N6J:! )U! )TN"V([F [ !BDMnfu*t+!ututu,t-^Vs"r#!#8<u$t%<u&t'^$V%nfR)GxFRn$f%+]˻#s(r)<^V^,V-R(u,t-n*f+F n*f+^(V)^#Vz)GsrvE^ V ~ w08A )# x F^Vs~Of zF^Vnf T]6{( [~w~w~w~w~w~w~w~w.[F F w ^V"o ^V^V[^#V%~wMnMG^  @ @x (@M >2@= @r[ ~0=w0 ^&V'n$f%u$t%#^&V'n$f%Ru$t%utz( :s&r'aFnf+|(u$t%xFsrnfu$t%xFsr:ͷ:J:ͥCvCV> tI=D(tI^Vsr^V 1FH͝C# x ^Vsr[F z ^# x ^VMfʆN[nrN~w~wrNͷ:Nnf~`OhO utq>>^#Vz `OFnfsr utqͷ:~\O~\Of\O~<`Ov`O=\OxNnfhO= utqTOͷ:~\O~\O^     \O~!NV!9x(V0F(^V ~O2Wx !Z>(?44x6w6 *3~pp7AZ[JZY^#VS#X##RZ[[ZY~2-nf"+~w#~wF 6T]^V>J::ͷ:J:N(V N">~(ݾ(x>( nfBRJ: x !1NF!<0?J{_!UlcZ^Vsr^ $N(NF +l&FN["0EnfF nf".cZ[lZYnf"5~27nf"itZ[}ZY~w##~w#~wF(^V :O3Z[Z O^#VS%[#[ ![![#!YJ[ !Jw/UY4~ (O#Y4Z4>L SYSTEM.:S missing!RDM~w~wyQnfB(*8(ut^VsrnfF NFnQ:ͷ:J:>~nQ~ nQx>nQnfBnQ}QnfB(-8+ut^VnfF sr NF^VnfF N( ! New System Disk Required!!!!! Mount new system disk now -  SYSTEM NUCLEUS SYSTEM CSI SYSTEM EXECLANGSYSTEM EXEC1 SYSTEM ERRMSG Zɶ?  V N"nQ!pnfnf~(*3nf7%R84TV7R8^VN2E*3P!>V[ |~(tO(^VR(>7N*3##^#VR0 >7^VF Q7R0^V~G(T2>7j9 0u_t`N|y(^rVs2^{V|n_f`{(nrfsZ[ N{]N­Tn{f|~nwnʭT\nrfsurts^rVs[ srrs͵T5n ~wa#^V##n_f`^Vn_f`ut5a `9w~w~w~w6nfutnfT0wh !J97~h!0U!+U!)U!S U! )U! )U!WUw Z*0:O|(@: ^VR8^VR05y hgoM 6" y(}%[ !X](p9`9:-w6*+ut*.ut*3>wTPPR ~(>+++ ?+\8?0 n(#+~( ###~ OP!>V!0 ~a8{0˯ ( 80# 8ί/U808V/U0sIrJuKtL+<<))^KVLR)[%[ uMtN(X[ !:>[ (X W (X W (O:w (py[ kO(X ( Yy(X (M (E|( {(+^(O(X (|>|'(X^( (X{( X}(nIfJx(~ ((~ ( WO1b_!:"!y`"Z!8":2Z:@2Z:gx f!f![ 6#2[:TO2T!bp.~O/wq $ :(g.z( R88"Z:O *W((:oz %8     |6T]G H^V*ZR|!@(o"e hͼge[ ^#VS#e[ F(^#V7Ret`081b_te[ ^#VS% !n˾˶[<( 6 ڥax ~# LMy!Re!o&#[ 8~047`70nf">2!!@h(:(ut"`*3RDM(8[3sr>T]i83[3R8:(0g!hR0 !hR8h(ut~WR|_*e"e!4~h!~w>h+/>i+~w>h+~^Vsr7RM8utT= M! >ax8a 0]~(R~ݶ JM!ce!n&[ )~0^Vsr7RM8ut ¿`(? f4:>(f4f4?4*eb^> >-> 6b^4f4:wµd:TRACK: 208HEAD: 2SECTOR: 21 gʝbf4b^:b^ ʝb!b^~ ( 084:00#x8'0 T]>:0T]>:!b^::22d(a$a~ ada`a( da`am:2Zf4b^:b^ ʵd!b^~# *x( :G> !c^d#dc8~# (c dTRACK: 208HEAD: 2SECTOR: 22 c8+x(z ^!^6 O^!b^cb> o&^!Z~# ʝbc8+~ ( cڝb#xڝb++^!^b^~ ( d #cb> ^!^ 6 ^o&!Z^~ ʝbc#8+~cѯ0:?ATRACK: 208HEAD: 2SECTOR: 23 [?^ >/!^ !b^:Zg(+/dڝbʝbҝbʝbdڝbʝb2ҝbʝb//dڝbʝb2ҝbʝbdڝbʝbҝbʝbdڝbwڝb!/eO/eW/eB >2Ge!EeY~ڝbnb^$:0 :waÝb:2Z:w(*J|(ͩe<[!!K121xH(70yˇ>>>>>>A87E~# ( 08:07x xȷ<>Fb^>b^}#SYSTEM DEV SYSTEM CLASS SYSTEM ERRMSG SYSTEM STARTUP SYSTEM NUCLEUS b^> :g(%> $:GO8888> o&"g:GO8888> _:&  8o o--0 o"gSg'++ &[g[g::&! 'pg͞f>,> *g} 8 o+[f'f͞f> *g>,> *g:g 8#l > b^4~ # 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 !gN>y#^*"4Wg.X4s#r> >> !g !h/-Ϗ^     [1] Syntax error. [2] File name missing. [3] File type missing. [4] Drive code missing. [33] Undefined physical device. [34] Must be sequential organization. [35] File already exists. [36] Organization code is missing. [5] Disk not attached. [6] Disk not mounted. [7] Invalid option. [8] File not found. [37] Missing option: "{1}". [38] {1} is not attached. [39] Device is not attached. [40] File channel is not assigned. [9] Disk full. [10] Directory full. [11] Invalid file name. [12] Invalid drive code. [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. [13] File "{1}.{2}" not found. [14] "{1}" is not recognizable. [15] "{1}" is an invalid numeric. [16] Expecting "{1}", found "{2}". [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. [17] Expecting "{1}", found end-of-line. [18] Protected file. [19] Insufficient privilege. [20] Incorrect serial number. [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. [21] Expecting end-of-line, found "{1}". [22] Required parameter missing. [23] Must be "ON" or "OFF". [24] Incorrect format, should be "{1}". [53] Cannot have multiple ABS modules. [54] Symbol table overflow. [55] Unexpected end-of-file. [56] Program has no PABs! [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. [57] Only private files may be shared. [58] SYSTEM.ACCOUNT file is missing. [59] System account cannot share files. [60] Incorrect password. [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. [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. [97] You have messages waiting. To retrieve, execute MAILBOX. [98] Must be Multi-User OASIS. | | [69] Device is attached to partition {1}. [70] Invalid partition number. [71] Partition not allocated. [72] Partition is still active. | | [103] Spooler is scheduling next job. [104] Spooler has form "{1}{2}{3}{4}" mounted. [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. [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}. [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. [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. [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. [113] User can't be forced. Logon please: | Password? | | [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. | | | |      | | | |  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. F| | | | unction: 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 f| | | | iles $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 | [142] Invalid bank number. [143] {1} greater than {2}. | PUNCH,COMMn,TAPEn, drive phy Are then names defined in SYSTEM.DEVNAMES:S Options: Lnnn line width for con,prt Pnnn page depth " " " Bnnn baud rate for SIO Cnn Class for console or printer LFnnn Line Feed delay for SIO FFnnn Form Feed del!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 cleaay 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 dr 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. $ARCHevice 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 fIVE 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 ull disk to another disk or disk to tape, or tape to disk. Syntax: BACKUP [source,dest] (Default is S to A). $BASIC Interactive BASIC interpreter. Function: To Edit, Test, List, Execute, and Compile BASIC Language programs. Syntax: BASIC [progname[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 accounts.type][:drv]] [(option)] Where: progname.type:drv is the name of the file to compile (If no name is given, the BASIC interpreter is entered). Options: LIST display the listing on the console PRINTn display the listing on printer n (default 1) XREF g     enerate a cross reference listing NOOBJ do not compile (list only) NOLIST do not list (xref or compile only) NOXREF do not xref (default) NOTYPE suppress all console output OBJ=drv put object on drive [drv] COMMA Exchange meaning of decimal point and comcate disk space for Direct or Indexed file. Function: Allocate disk space for a Direct Indexed, or Keyed file. Syntax: CREATE fn.ft:fd (options) Options: CLEAR to remove all records from existing file DIRECT allocate direct file INDEXED allocate indexma for numeric items (European format). $BISYNC Emulate IBM 2780 or 3780 synchronous terminals. Function: Emulates IBM 2780/3780 terminals using Bisync protocol. Can send in EBCDIC or ASCII, transparent or non-transparent. Syntax: BISYNC [ctl.file] ed file KEYED allocate keyed file FILESIZE nn number of records KEYLEN nn key size (INDEXED) RECLEN nn record size $CRT Performs display test of console class code. Function: Perform test of console class code display capabilities. Syntax: CRT [] Where: test-num Number of the test pattern to start with. Tests: 1 Video attributes 2 Cursor addressing and screen alignment 3 Cursor addressing 4 Relative cursor addressing 5 Scroll up using delete line 6 Scroll down using ins 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: fiert line $DEBUG Debugger for machine language programs. Function: Allows dynamic interactive testing and debugging of programs written in Z80 machine language. Syntax: DEBUG Features: - Assembler, Dis-assembler - Register display and modification - Tlei is the input file (fn.ft:fd | device) fileo is the output file (fn.ft:fd | device) Options: TYPE display result of each copy (default) NOTYPE do not " " " NEWDATE use today's date on output file OLDDATE use input date on output file (default) FROM nracing and Single step execution - Dump, search, and fill memory - Read and Write to disk files - Input and Output byte/block to port - Multiple break points - Compare two blocks of memory - Move block of memory - Saving and loading programs - Compute henn start copying at record nnn FRLABEL xxx start copying at literal FOR nnn copy only nnn records TOLABEL xxx copy down to literal TRUNC remove trailing spaces NOTRUNC do not " " " (default) PACK compress spaces and mult occurrences. UNPACK do not " " " x/dec (*,/,+,-,<,>,&,|,^,~,\) - Multiple Memory Regions (BASE) Note: Contains internal HELP subcommand. $DUMPDISK Dump contents of file or disk in hex and ASCII. Function: To dump files or logical sectors in hex and ASCII. Syntax: DUMPDISK fn.ft[:fd] 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 [(options)] Options: PRINTn output is to printer n $EDIT System file editor, both line and context. Function: To create and maintain sequential data files for system utilities like the assembler, SCRIPT, BASIC, EXEC, etc. Syntax: EDIT fn.ft[:fd] [(opcheck of output (default) NOVERIFY do not " " " QUERY prompt prior to copy (default if wildcards) NOQUERY do not " " " % <5 PUBLIC copy public files too TRANS perform user translation SPECS specify record format FILL nn define fill character $CREATE Allotion)] Options: NOBACKUP to not create backup file. BACKUP Do create backup file (default). Note: Contains internal HELP subcommand. $ERASE Remove a file from the disk. Function: Erase a single file or a group of files. Syntax: ERASE fn.ft[:fd] [(opti     on)] Option: TYPE to display files erased NOTYPE do not display file names QUERY to question each file prior to erase NOQUERY do not question $ERRMSG Maintain the SYSTEM.ERRMSG file. Function: To maintain the SYSTEM.ERRMSG file. %99 <5 Syntax: ERRMSG [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: If no cmmd is given, a summary of all commands is displayed $INITDISK Format anum] Where: num is the message number to display Note: Interactive maintenance is assumed if no num is supplied. $FILELIST List contents of file directory. Function: To list directory entries for selected or all files. Syntax: FILELIST [fn.ft][:fd] [ new disk. Function: To erase all files, change the label, or format a disk. Syntax: INITDISK drive (option) Where: drive is the disk code (S allowed only when changing id) Options: LABEL To change id CLEAR To erase all files SIZE nn Determines # fi(options)] Options: PRINTERn Display list on printer n EXEC Create SELECTED.EXEC:S file FILE Create SELECTED.FILES:S APPEND Append to SELECTED.EXEC or .FILES FN Only list File Names FT Only list FN and File Type FD List up thru File Drive DATE List up tles WP/NOWP To change disk write protect FORMAT To write addr headers on new disk INCR nn Increment between adjacent sectors SKEW nn Increment between sectors of adjacent tracks HEAD n Number of surfaces per cylinder TRACK nnn Number of tracks per surfachru date & time ALLOC List up thru allocation FORMAT List up thru format LABEL List up thru disk label (default) SORT Sort the list (default) NOSORT Do not sort the list OWNER List selected files from all accounts HEAD Display page heading (default) NOHEe SECTOR nn Number of sectors per track BUILD To write OASIS info on already formatted disk SPARE To add sector sparing information BOOT=d To copy boot strap loader from drive d $INITTAPE Format or tension a tape. Function: To label magnetic tape volumesAD Do not output heading PUBLIC List public as well as private files mm/dd/yy Only include if date >= to requested * Include all information $FILT8080 Translate from Intel to Zilog assembly mnemonics. Function: To filter from Intel 8080 assembly source c or to tension the tape. Syntax: INITTAPE [TAPEn] [(option)] Where: TAPEn is the tape number (n=1 to 4, default 1) Options: TENSION means to tension the tape (rather than label it) $INTELHEX Convert object files from Intel standard to OASIS. Functionode into OASIS (Zilog) Z80 source. Syntax: FILT8080 fn[.ft[:fd]] Note: fn-etc is the name of the source and destination file, the original source will be renamed fn.BACKUP default ft is ASSEMBLE, fd is * $GETFILE Move files from other systems to O: To translate Intel hex object files to OASIS object files. Syntax: INTELHEX pgmname Where: pgmname is the filename to be converted. Assumed filetype is .HEX Will create a file named: pgmname.OBJECT $KILL Erase a file without de-allocating the spacASIS. Function: To copy files from foreign OS onto OASIS. Syntax: GETFILE filename.ext:drive (options) Where: filename is the file name ext is the extension. drive is the OASIS drive code Options: CPM the source OS is CP/M* (* CP/M is a trademark of e. Function: To remove file directory entries of collided files with out unallocating the disk space. Syntax: KILL fn.ft:fd $LINK Resolve external references, link object programs. Function: To create an executable load module by combin- ing object pDigital Research) IBM the source OS is IBM System/3 etc. DRIVE=n the drive number containing the file DIR list the directory TEXT the file contains sequential delimited (CR/LF) text data. $HELP Display function, syntax and options of command. Function: rograms from several assemblies. Syntax: LINK [fn[.ft[:fd]]] [(options)] Options: FILE fn.ft is a command file (default ft=LINK) SYSTEM Create SYSTEM.fn USR Create fn.BASICUSR DRIVE=x Put output on drive x (default=S) BOOT Write output on sector 0 TYPE      Display info on console (default) NOTYPE Do not display on console PRINTERn Display info on printer n NOPRINT Do not Display on printer (default) DISK[=x] Create fn.LINKMAP:x XREF Produce cross reference listing NOXREF Do not produce cross reference (deis 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 fault) MAP Create load map (default) NOMAP Do not produce map WORK=x SYSTEM.WORK drive (default=S) Note: Contains internal HELP subcommand. $LIST List a file to console or printer. Function: List a file to the console or printer. Syntax: LIST fn.ft[:fdfile. Syntax: OWNERCHG fn.ft[:fd] (owner [option]) Where: owner is the new owner id Options: TYPE Display filenames NOTYPE Do not display filenames QUERY Ask prior to change NOQUERY Do not ask $PASSWORD Change password to account currently logged on t] [(options)] Options: PRINTn output to printer rec1 starting rec number recn ending rec number HEAD/NOHEAD page headings FORMAT contains printer format chars INDENT nn left margin TRUNC nn line width PAGE nn first page to list TITLE xxxx page title $LOo. Function: Allows user to change password on the account currently logged on to. Syntax: PASSWORD $PATCH Update a command with mfg. supplied fixes. Function: To apply an update to a command file. Syntax: PATCH fn[.ft[:fd]] Where: fn is the prograGOFF Sign off current account. Function: Logs the current user off. Writes an accounting record to SYSTEM.HISTORY, and enters the logon program. Syntax: LOGOFF $LOGON Sign on to new account. Function: To logon to another account without first loggingm 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 off. Syntax: LOGON acctname $MACRO Z80 Macro assembler. Function: Translate Z80 source into machine code, produce listing, cross ref. etc. Syntax: MACRO fn[.ft[:fd]] [(options)] Options: TYPE List on console PRINTn List on printer # n DISK[=drv] Lis. 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 filt to disk fn.LISTING[:drv] OBJ[=drv] Produce fn.OBJECT[:drv] WORK=drv Work drive for xref (default =S) SYM List symbol table XREF List cross references IF List all conditionals MACRO List expanded Macros COPY List included COPY files DATA List multi-linee to directory. Function: To restore crashed directories (ASCII files only). Syntax: RECOVER fn.ft:fd [(option)] Where: fn is the filename ft is the filetype fd is the drive code Options: nnn start looking for file at sector nnn. $RELOCATE Create obj code NOTYPE suppress all console output EXTRN Undefined symbols become externals Note: TYPE,OBJ,SYM,XREF,IF,MACRO,COPY,DATA,EXTRN may be turned off by preceding with "NO". For example: NOOBJ. $MEMTEST Quick memory tester. Function: Tests portions of ect file from two command files. Function: To create a relocatable command from an absolute command. Syntax: RELOCATE abs1,abs2,newrel Where: abs1 is the name of the absolute command abs2 is the name of the same absolute command origined at an addresmemory. Syntax: MEMTEST [start,end] Where: start is starting memory addr end is ending memory addr (If no address is given, as much memory as possible will be tested.) $MOUNT Inform operating system to change disks. Function: Indicate that a new disk s different from abs1 newrel is the name of the relocatable command to be created. If missing, abs1 will be over- written. $RENAME Change the name or status of a file. Function: To rename a single file or a group of files. Syntax: RENAME old,new [(opt     ion)] Where: old is the old file name - all parts of fn.ft:fd must be specified. new is the new file name Options: TYPE to display old/new NOTYPE do not display WRITE/NOWRITE changes write protection DELETE/NODEL changes delete protection READ read prM if specified) drv is the drive to look for the program Option: TRACE display statement location during execution. COMMA Exchange meaning of decimal point and comma for numeric items (European format). $SCRIPT Word processor, document writer. Functiootect QUERY to ask if ok NOQUERY do not ask if ok $REPAIR Fix crashed disk or test integrity of disk. Function: To check the format of a disk and to display any file errors (like mis-allocated, duplicates). Syntax: REPAIR fd [(option)] Where: fd is tn: To format a text file to the console or the printer with titles, left and right justification, etc. Syntax: SCRIPT fn[.ft[:fd]] [(option)] Options: PRINTn output to printer # n TYPE output to the console (default) FILE output to file # 2 UPPER glohe drive code Options: FIX means to try to fix the disk $RESTORE Restores archived volumes, files, or accounts. Function: To restore an archived file, account, or volume. Syntax: RESTORE [fn.ft:]from,to [(options)] Where: fn.ft is the file descr to rbal upper case shift WAIT pause after each page to printer CPI nn set characters per inch nn nn from - to page numbers REPEAT nn produce output nn times (default 1) WORK=fd drive code for work files (default S) $SECTOR Display allocated sectors of a fileestore (wildcards ok) from is the disk drive code or TAPEn if from tape to is the destination drive Options: ACCOUNT restore current account NEWACC xxx restore from account xxx to current account REPLACE erase existing file prior to restore NEWFILE only. Function: To display the allocated sectors of any file. Syntax: SECTOR fn.ft:fd $SEEK Random disk seek and read. Function: Randomly reads a sector from the specified drive and loops. Syntax: SEEK drive $SEND Write a file to the communications port. restore files which do not exist OLDFILE only restore files which do exist QUERY ask prior to each file restore NOQUERY do not ask prior to each file restore TYPE display as restore progresses NOTYPE do not display VERIFY read back check output NOVERIFY Function: Transfer file from disk to the COMM port. Use hand-shaking, VRC, and LRC. Syntax: SEND fn.ft[:fd] [(options)] Options: NOEOT means do not disconnect line at end QUERY ask prior to send for wildcard filename NOQUERY no ask prior to send (def do not read back check output VOLUME restore entire volume (default if no fn.ft) $RUN Runtime BASIC compiler routines. Function: To Execute BASIC language programs. Syntax: RUN progname[.type][:drv] [(option)] Where: progname is the name of the prograult) PUBLIC send public files too COMMn send over communication port n (default COMM1) TALK send interactive text to receiver's screen after file is sent. $SET Set or modify various system options. Function: To set system switches and options. Syntaxam to execute type is the filetype, (must be BASICCOM if specified) drv is the drive to look for the program Options: TRACE display statement location during execution. COMMA Exchange meaning of decimal point and comma for numeric items (European form: SET options Options: DATE mm/dd/yy ABBREV ON or OFF RDYMSG ON or OFF IMPEXEC ON or OFF VERSION ON or OFF ERRNUM ON or OFF ERRTEXT ON or OFF % <5 HISTORY ON or OFF TODAVAIL ON or OFF RTCAVAIL ON or OFF IPLASK ON or OFF QET ON or OFF DEUTSCH ON or OFF Dat). $RUN2 Subset version of RUN. Function: To execute compiled BASIC programs using the subset runtime package. Syntax: RUN2 progname[.type][:drv] [(option)] Where: progname is the name of the program to execute type is the filetype, (must be BASICCOATEFORM 1|2|3 SYNONYM [fn] [(CLEAR/STD/NOSTD)] ESCAPE nn UP nn DOWN nn LEFT nn RIGHT nn RUBOUT nn CANCEL nn $SHARE Designate which accounts have shared access to file. Function: Designates which accounts are to share a file. Syntax: SHARE fn.ft[:fd] [(T     YPE)] Where: fn.ft:fd is the file to be shared. TYPE means display user on console $SHOW Display status of various system options. Function: Display system parameters. Syntax: SHOW option Options: TIME current time & date CLKFRQ time of day frequency yntax: STATE [fn.ft[:fd]] [(option)] Options: TYPE to display counts (default) NOTYPE no display PUBLIC Treats public like private. $SYSGEN Permanently change SYSTEM.NUCLEUS attaches, etc. Function: To update the SYSTEM.NUCLEUS with the current state o CLOCK continuous TIME RDYMSG status (ON/OFF) ABBREV status (ON/OFF) IMPEX status (ON/OFF) ERRNUM status of error display ERRTEXT " " " " HISTORY status (ON/OFF) TODAVAIL status (ON/OFF) RTCAVAIL status (ON/OFF) IPLASK status (ON/OFF) QET statuf the machine, ATTACHes, SETs, etc. Syntax: SYSGEN $TERMINAL Interactive terminal emulator. Function: Emulate an interactive time-sharing terminal. Syntax: TERMINAL [(options)] Options: COMMn communication port number (default COMM1) AUTOLF echo LF o s (ON/OFF) DEUTSCH status (ON/OFF) DATEFORM status SYNONYM list of synonyms DISK status of disks VERSION current version no. SERIAL OASIS serial number ESCAPE system leadin key UP keyboard up arrow DOWN keyboard down arrow LEFT keyboard left arrow RIGHT n receipt of CR HALFDUP echo all keyboard input RUB nn translate nn into RUB (7FH) ESC nn translate nn into ESC (1BH) CTL translate CTL codes to graphic NULL ignore NULLs RDRON nn Send file 1 on receipt of nn RDROFF nn Stop sending file 1 on receipt of n keyboard right arrow RUBOUT character delete key CANCEL line delete key $SPOOLER System printer spooler. Function: To start the printer spooler or to request status, or to change spooler switches. Syntax: SPOOLER option Options: INIT to initialize then 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 Sma  spooler QUIT to uninitialize the spooler STATUS to get status from the spooler START to begin printing from current queue STOP to stop printing after current file SUSPEND to stop spooling and allow direct printing RESUME to continue spooling LIST to lill 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 verifi st queue summary KILL nn kill spool file CHANGE nn [queue] [copies] [HOLD|NOHOLD] change report information ABORT to cancel the current print file BACKUP n backspace 1-8 pages FORM xxx specify queue(s) to be printed PRINT nn begin printing file nn, theed. n stop ALIGN nn do forms align, then print file nn RESTART nn pp begin printing file nn at page pp, then stop QUEUE x output report to queue x (A-Z) COPIES n assign copy count (1-8) to output reports HOLD assign hold status NOHOLD clear hold status NAME xxxxx gives name to next report Note: To activate the spooler, issue the following commands: >ATTACH PRINTER xxxx (xxx,xxx) - as normal >SPOOLER INIT $STATE Determine existence of file. Function: Determines if a file or group of files exist. S      YSTEM >MAURKEY ͽZAURKEY ͽAURKEY ͽA CLASS31 ( / SYSTEM OPT 1 FN CLASS31 CT 10 PAREN ( OPT1 SYSTEM OPT2 OPT3 OPT4 OPT5 OPT6 OPT7 OPT8 OPT9 'ASM R9 8@!_^#Vz7(O<@~(L > > >~v &0@( n‹n 77˯N7  @=@} O@| O@+TY )(&'QWER(($ (*(0(6(< 2> :20:˗2&:2:˟2:2:ˏ204 @G@:0O@y(!! (###~˿N7 @,@P@ERQWYTI %g/5:?DINSX]bgl      SPOOLER INIT pÒô\:}-W(R~G 1_ 9O !W(;(y 6~ "~ >--_( >--o(7 k!}5N#~(T]#0V(4~ >,y,"~ ~ w 8 ~ w=_! >tg/>/>-~( v>O >M>L->-~>(>A->->->/>/>-~>(>-w-!w>tg--G,n ˿O`(?>0-~( yf0O:}@ ~(!]N(y(  wy!}4^w͒ 4q~a&-EO[apÒô\:}W(R~G 1_ 9O !W(;(y 6~ "~ >_( >o(7 k!}5N#~(T]#0V(4~ >y"~ ~ w 8 ~ w=_!>hg_( >o(7 k!}5N#~(T]#0V(4~ >y"~ ~ w 8 ~ w=_! >lg>>~( v>O >M>L>~>(>A>>>>>~>(>w!w>hgGn ˿O`(>>~( v>O >M>L>~>(>A>>>>>~>(>w!w>lgGn ˿O`(?>0~( yf0O:}@ ~(!]N(y(  wy!}4^w͒?>0~( yf0O:}@ ~(!]N(y(  wy!}4^w͒ 4q~a&-EO[a 4q~a&-EO[a      FLOPPY1 1 D 1 2 FLOPPY2 2 D 1 2 HARD1 3 D 3 4 5 6 7 8 HARD2 4 D 3 4 5 6 7 8 HARD3 5 D 3 4 5 6 7 8 HARD4 6 D 3 4 5 6 7 8 HARD5 7 D 3 4 5 6 7 8 HARD6 8 D 3 4 5 6 7 8 TAPEDRV 23 T SIO1 17 CPSIO SIO2 18 CPSIO SIO3 19 CPSIO SIO4 20 CPSIO CENTLP 13 PO LP 13 1 & &~E ~N ~D ~ # (:T(68Iͯ} 8 Iͯ}2n57~ G(ˇw nf 8~7 ~8w8:n > bk> ++~ (#6 6>S2~ G(˿w P~ w  :P~8PO DISK1 1 D 1 2 DISK2 2 D 1 2 DISK3 3 D 3 4 5 6 7 8 DISK4 4 D 3 4 5 6 7 8 DISK5 5 D 3 4 5 6 7 8 DISK6 6 D 3 4 5 6 7 8 DISK7 7 D 3 4 5 6 7 8 DISK8 8 D 3 4 5 6 7 8 w878!~&6.I6&~ > 7!  &A[!~ ( ( #( 1T]6 ~ ( ( ~ (! ##~ ( (~ ( (#  >7> 8I~ (~ 7* ~ 7 (,() #!26 ( #~ ( (,( (()(" !> ++~ ʕ& T]6 #~+A8[08J:0Fͣ Az ={08 - T=O!I ~% #~+ (T6 T]T!P #:n'!X 2#!I~ ( y8>bk6 o&T!^ #!c # ;y!h # ;x! ##T !#ͯ~ :& /: (!o #^#V7  ~ ݷ2!I">&!)EXEC ver 5.6 Copyright by T.S.Williams2nKbk7%R0!D>aP0!9!~ 1*2nF>(+~(G~7<8>2n12nÞw7~7 ~8 w8]"G-!]!u5t6!I6 J!"9*> > :#A[8!76  :&Ž !m !q!u !yJ !}Ž !6 !7~ ʀ (#(~ͯ}( 8>G ͯ} > 8> O!# 7 #I!~ (#x!6 oGI>~ ( = ~7=o&^V!I3^V~7=o&!I2!;~w8*# --]\!J( \< >q^V!J6 #:\G 7%R0!D>a^#V+z :n(*9|^5V6!Kz( > +"^5V6&À !À I (- ͯ >N(>A!6 2À 7~ (#(~ ( (@!?6 7! I77~ #(~ #2F+(-(*( /(|(#~ #~ :F| &7 (~ (@!?6 s5r6*> "~p2,2+~08:0# (- #~  ~ #" ~8w(9<*> ##~n5f608:0ͯ7>>> 7:&r7I!~ (~ 0> !7~  #(;~8(Y>!7~ ('(()( ('O##~ (~- ͯ!Rͯ 7- ͯ!Rͯ 8!76 +( -( *(*/(7CR>|(!RѪz(!Rt '(!Rt &(!R7|( 6-!R8bk6 æ > 2@~8w( !7N~# !7">- (#@()#~ ()( ( ~8ˇw8;* -  ^V~7=o&!I3876ͯ8* ~# (=˜~ ˜ ( (O ( (\(  ( >T2*> "n5f6#u5t6p08:0  ( ͯ L} ++## "}Wn5f6#u5t6*~p> "~p !K~08:0 #~ ( #~ ( ( #~ ( ( > q5p6"0:0!ͯ}=O> #ͯ}=O      !~~ #(~#(N˹˯SO( P( W(N0O ˯O ˯N(F(yyO  P  W  yO  P  W  ͥ J2* "~# (+& #~+*($ ##~++ #:~ # #~ # ~&j #~*($ j #~ j +~2:<20<=O!I "~ (% #~ (*" j 8 :$ʓ:* Ë:$ʋÓI .I  G  ( (O !QE>B(c! =B([!TGB(Q! >B(I!EGB(?!=>B(7!TLB(-! AHKN[^ehkr .27<BINUw EJYy(!ENB( !> :&: :$(**ͥ *> "N5F(-;BVm "),/47:=@CFILORUX[^adjmtw}        , ; > E H K O U t w ~   % * 3 A G N Q 6q5p6~~08:0#~ #- #~ ( I #~  ͥ *++> ##"N5F6 q5p6x~08:0#~ #- #~ ( ; #BS#*++> ##"N5F6 q5p6 (! (n5f6"9!K"q  , / 2 < M P U i o v |   & ) 1 B ~        + / A D G L Q V ] ` e h k n q t {  #,<GPc 3AFKNQTbt$LVYf5p6^5V6s5r6*9R*( > "~08:0#~ #- #~ ~  (#" J~8w8OA(9T(5N(OO(=S(KE˹˱yw8  ( ( ˡ˱ˡN(˹˱ˡ˙>F2~F(L 0~I )~F "~O ~ %/29=iy~w !+w> ~2!#*> ##>qES";;~ 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 BEGTYPE SPACE @CONTINUEQUIT ]STACK BEGSTACKSKIP GOTO CONTROL [IF CRT ESC ( READ WAIT  WHILE UNTIL JREPEAT SERROR TRUE FALSE &WHILE &UNTIL &REPEATRETCODE INDEX NULL PAGE LINE TYP LEN LIT CAT SUB HCDCDLILICDLEOLEOSEUPONPOFBONBOFBFONFOFKONKOFRVONRVOFRULONULOFU       *CSI ver 5.6 Copyright by Tim Williams 2 70I F(8n 8N  ^#V8v3f3q p ͯ(q ! `3^#V!z( ^#V+! ~7( !8d+#>08:0OxGGx&|g}o|g}o|g}o|/g}/o!R~ #,( *" Rʥ<" ><>>> ͥ* +" | * "ͥ× DE! >  *ut##"*R*++nf">In(~ #~ #~ ( #>2Z N(I ! 6 "H  !66  !AP ͯ28N($8!>_> 2_^ʗF(8~ʗ8n— V— : o&Pfʕ % valid operator Hex = , Dec = +-*/\&|^~)#5?B COMMAND SYNONYM SYSTEM EXEC IPL EXEC LOGON COMMAND SYSTEM ACCOUNT IPL EXEC RC = , , ET = FN~0*'0`'oy'0`'gx'0$'ͅo&<'|ͅo&>.}ͅo&d'<&} 0>0 Ox Gy00 8n(87>2Z F†:G0T]6 ~( :(~<( D66minutes.ACCOUNTASSIGNARCHIVEATTACHBACKUPBASICBISYNCCHANGECOPYFILECREATEDEBUGDUMPDISKEDITERASEEXECFILELISTFILT8080FORCEGETFILEINITDISKINITTAPEINTELHEXKILLLINKLISTLOADLOGOFFLOGONMACROMAILBOXMEMTESTMOUNTMSGOWNERCHGPATCHPEE P  UWT]6!P^#V##!9> ;ʗ!6 !~ #08:ڑ'  ʑ!6 ~# G (H,(D.(@:(<\(8((n)G;G~# (x)(t;(p,( (.( :(((>\ w#~ (N)(J;(KRECEIVERECOVERRELOCATERENAMEREPAIRRESTORERUNSCRIPTSECTORSENDSETSHARESHOWSORTSPOOLERSTATESTARTSTOPSYSGENTERMINALTEXTEDITUNLOADVERIFYF,( ( .(:(\ #!R}ʖ6 #!R}(>(> !R}(> w:: ):G0>2Z !~+w## !~ : ʗ$( A[!!"H J !R !v(d! ~(]~#(J ~( (,~#  ( ##~(~(>O~˿(0S !R 6 R ~˿~ c#~ʑnʑ! ~ʑJ  ( #~#(~ )~#(˿(0R ~# x(> !R :Z 2_ 2 ` !J  !J :Z < :_ <2_ 2 _ ! ~AV(  !2J !R  #(+`gx}6CIQTWfin1AHSZmz,/EJS]`em~$1I^eor~$7>AFLy6` !R  !R _ ! ~AV(  !2:Z <ʣ!Pnf9 %0*08n 8!~!N#Fg. !N#F! 7%R:_ G7!:Z S[ !:Z *[ 4> !>a!D>a` !` ! >a~E#~w$-058<?DX!$)9LR`ehux}'*36@UZ]`fmp( + . 1 4 7 : = @ C F X#~E#~C#~ ! "H  ͯ(  ! >a0~Pnf9n5f6" ~72 i^#V" 0!  #: 2 !> 2O~ ʟ#,( (+08:8) ' ( ×#!#~#foÑ*ÑR'&      ;?րՇ_!'^#Va{ "f ۋ>ӎӎۋ>Ӎ>"Ӎ>ӏ>Ӆ>Ӆ~ӄS{R(/ӄ>Ӆ~͏>>Ӆ> ~>ӏ>ӏEK*ہQۈ"U Fہ:ۈ>/ہۉ!ۈwWہ  ۈ ۉ(>;*K1W2>"2ۋ><ӎd>o>"ӌK*ہu`~ӌ`Åۉہw~ӌw! ہ~ӌہ>ӏ: Eہں<ۈ®ہ*ۈ"¼ہۈۉ ۀ (>>>ӏ> ӌ>7ӏ!~ӌہ#>$>W͏zE~~ۉX@EzX ͊ۉ@J>Ӆۀ >͏d>B~>Ӆ͏>U2d>o~!ہ~ӌہ>ӏEہۈU(>~>W͏z W ;>CLASS3 ( / SYSTEM OPT 0 FN CLASS3 CT 3 PAREN g(;<>ۀW>B(z(r(j(Z J([@E>Ӆۉ@VۀE7> ̀ۉ@E>Ӆӏ~ۀ@oV͊>= >2Àۋ>ӎۀ(>ۀ ۀ(>Ӆ>Ӆ̀ۀ·~ۀ>Ӆ>̀ۀ>z {P0P͏S"" "@ASM # &,147=BHMTgkpuz8>KRYblty ')+-/13579[c!%(+/59>HMPS[^ehps{       6 8@!e_^#Vz7(O<@~(L >~v 0@(7˯N7ɥY vyxCAw4367skLMO@Y@} O@| O@ g}uqmoikCLASS31 ( / SYSTEM OPT 1 FN CLASS31 CT 10 PAREN ( OPT1 SYSTEM OPT2 OPT3 OPT4 OPT5 OPT6 OPT7 OPT8 OPT9 'ASM R6 8@ʷ!w_^#Vz7(O<@~(L > > > >~v 0@(7˯N7@=@} O@| O@*YT )(+EQRW&,y{}       6 8@ʢ!b_^#Vz7(O<@~(L~v 0@(7˯N7b}yfto@[@}ͼ;@|ͼH@< 8 / 0 @0O@~vn f [[( O77 !5˯(##>ON#~STUVWPPQQRCA >B > C >D >CLASS31 ( / SYSTEM OPT 1 FN CLASS31 CT 10 PAREN ( OPT1 SYSTEM OPT2 OPT3 OPT4 7 dzrn~fhjlxOPT5 OPT6 OPT7 OPT8 OPT9 'ASM R9 8@ʴ!t_^#Vz7(O<@~(L > > >~v 0@(7˯N7@=@} O@| O@*YT +)(&'EQRW(( (%(+(1(7 (L:r2r0:r˗2r&:r2r:r˟2r:r2r:rˏ2r@G@:rO@:rˏ˗˟2r7> 0#v|~xz"',16;@EJOZcl      9 8@ʴ!t_^#Vz7(O<@~(L > > >~v 0@(7˯N7@=@} O@| O@* )(&'QWERTY(($ 6 8@ʿ!__^#Vz7(O<@~(L~v 0@(7˯N7ɟ @| O@} O@(*(0(6(< 2> :20:ˇ2&:2:ˏ2:2:˗204 :@/0j@k@@@/0l@m@@@/0^@q@awkgiceu{}!v|~xz#(-27<AFKP\pÒô\:}/W(R~G 1_ 9O !W(;(y 6~ "~ >//_( >//o(7 k!}5N#~(T]#0V(4~ >.y."~ ~ w 8 ~ w=_! >pg/>/>/~( v>O >M>L/>/~>(>A/>/>/>/>/>/~>(>/w/!w>pg//G.n ˿O`(e, display as is XOR A ; clear cy RET ; test if dca x,y CTL: CP DLE ; is it 10H JP Z,DCA ; jump if is IF .NOT..NUL.&SPEC CALL &SPEC ENDIF ; point to proper entry LD HL,TAB1-2 ; point to indirect table ADD A ; code times two LD E,A ; move?>0/~( yf0O:}@ ~(!]N(y(  wy!}4^w͒ 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 =  4q~a&-EO[a0FFH 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 EN8 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 '&FUNDIF 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 JRCT'.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'  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 ; 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 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.&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.'EESC 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,(U' ORG TAB1+54 ELSEIF '&FUNCT'.EQ.'BON' ORG TAB1+56 ELSEIF '&FUNCT'.EQ.'BOFF' ORG TAB1+58 ELSE ORG TAB1+&FUNCT ENDIF DC (@NEXT) ; define address ORG ;; ;; put bytes until end ;; IF .NUL.&A ELSE DC$ &A ENDIF IF .NUL.&B ELSE DC$ &B ENDIF 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 ;  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$ 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&J ENDIF ;; ;; end of entry ;; DC$ 0FFH LIST ENDM MACRO DCA$ LIST MACRO LD A,L ; get line ADD 20H ; bias LD C,A ; move to reg c SC DEVOUT ; display LD A,H ; get col ADD 20H ; bias LD C,A ; move to reg c SC DEVOUT ; display XOR A ; clear c 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 4y flag RET ; return LIST ENDM MACRO DC$ &ARG LIST NOMACRO IF '&ARG(2,1)'.EQ.'' DC '&ARG' ELSE DC &ARG ENDIF LIST ENDM MACRO DCA &TYPE(0) LIST NOMACRO LIST MACRO DCA: LIST IF &TYPE.EQ.1 LIST MACRO ; ; Beehive B100 ; LD C,ESC ;       lead 1 SC DEVOUT ; display LD C,'F' ; lead 2 SC DEVOUT LIST DCA$ ELSEIF &TYPE.EQ.2 LIST MACRO ; ; ADDS 580 - Envoy ; LD C,DLE ; column leadin SC DEVOUT LD A,H ; get col LD C,-1 ; init count @ADDS: INC C ; bump count SUB 10 ; divide by ten J; 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 ; yR 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 DEVOes, 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 ; UT ; write XOR A ; clear cy RET ; return LIST ELSEIF [&TYPE.EQ.3].OR.[&TYPE.EQ.4] LIST MACRO ; ; ADM 3A or SOROC IQ120 ; LD C,ESC ; lead 1 SC DEVOUT LD C,'=' ; lead 2 SC DEVOUT LIST DCA$ ELSEIF &TYPE.EQ.5 LIST MACRO ; ; Video Display 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 (DEMemory ; 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 ),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 .RE1 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 T: POP DE ; Restore regs POP HL ; RET ; .DECOBUF: DS 5 ; Storage for col/line string LIST ELSEIF &TYPE.EQ.11 LIST MACRO ; ; Infoton 100 ; LD C,ESC ; lead 1 SC DEVOUT LD C,'f' ; lead 2 SC DEVOUT ; display LD A,H ; get column number ADD 20 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 DH ; 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 EVOUT LD C,'X' ; lead 2 SC DEVOUT LD A,L ; get line ADD 20H ; bias LD C,A ; move to reg c SC DEVOUT ; display LD C,ESC ; lead 1 SC DEVOUT ; display LD C,'Y' ; lead 2 y addr SC DEVOUT ; LD A,H ; get col ADD 20H ; bias LD C,A ; move to reg c SC DEVOUT ; display XOR A ; clear cy flag RET ; return LIST ELSEIF &TYPE.EQ.10 LIST MACRO ; ; ANSI Standard (DEC VT100 or Heath) ; LD C,ESC ; lead 1 SC DEVOUT LD C,'[' ; lead 2 SC DEVOUT LD A,L ; get line INC A ; adjust for base 1 CALL DECO       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 OFF ; 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 cleaBOFF 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 r 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 .B 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 noOFF: 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 ; Contint 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 entue .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 ry 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 E; 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 ; ThrowSC,'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,.UL 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 Pn( ~w~w~o&Od0 0F#2%P~ <To& 8~O~ w ;$#Pn%f&! :v("|( (!c`|(!d`!e`!f`j !" !0N(Pf(%$!m`I0N(&P  *P 0~P^(76. %:(.!2#>22D> 2E.!2#.!wP~wP~>( W !a`P~ 0o&#> !> ~##^#Vsrw(<!39!( !4~  V(60<>L(=(>2VËX0FN<<6| pq<|! ^ ): >(  ](|! ^ ̯|!!>a:w!=> a0:w>SYSTEM EXEC IPL EXEC EXEC IPL SYSTEM ACCOUNT SYSTEM HISTORY  1 SYSTEM MAILBOX SYSTEM LOGON  IPL >LOGON ver 5.5A 17JUN81 Copyright by Timothy S. Williams[Abk7%R0!D>a0N *~ ʺ(ʺ~ º~26!9!9! "0<6  !(6!<^#V! 7%R0!D>a ^#V+z N :w!w*9ERpgpw}  /RUXp0~Aehrx~ (q'/8?pN[s *~ "T]6 6!~ ( #08:0u~ ~ ( #~$(A8[0~ (Y ,($(08:8 A[#~  (+,#  ~  (#~ ( (##~ (u6N ! w#N>2!r`I!W!P~ 2( ! (N(J_(F(,ݾ(X!8 wOC(*z 8~#, z( +z( +~, =G $W>( !j!k2 w:> w: ! !~ &!WPn6::V=2V6 ~,( ( #~,( (~,Pn ~ (l!s`!6,#I(9(5_(1(w (a~ ʨ(ʨ2~ ʹ(ʹ~ ʨ((*#~+ ( /0 ô~Gگ2~ ʨ(¨: 2 ~$(A8[0~ (GT(0Q("N( R()>!a#~O #~++T(=PATCH ver 5.6 27DEC82 Copyright by Timothy S. Williams[AUbk7%R0!D>a~ !>a(($~ (6( !>a~ (!( !>a/2#0!>a!> a#!(!> a~¤~( 0:µ[:O:#G!U|g7%R0!D>a!UQ 2ȯ20~820~2!96%7 pœ7!;"•~# ( (+08:0{2~# ( (+ ( #~ ʣ,ʣ!=> a!:> a7!:4:($>2:G:(:(<2820:w:(!P> a;!2\<!~ (;( #VEJFJQHʖDR[:#G!U:O3.#! !:#G! ͞͡*:G [RU4G #>2͞͡*:G [RU4O͞[;:G~?_S!~2#0:G!;[! >2$S!~#?(*@( #(~$(A[ ~0:# :#~+":;#:w;!;:w B~ : 2:(#;:w:w[!!;:G S!~ (;(# (,(+"!*DE>::G [RU> F# > >'~ 88>.#>'> *"*!R?*" (& ("+(%-(0*(=/(K@(X>27s?K* æ?K*Bæ?( :͐:G[!!; :$=2$C:#=2#): <QQ0:(:w!;:#~!;:w %~ : :((:͐:w!;:":G!;~*(?(@(# 22#22>?#x2[*'æ?[*&æs:G KBU N#F`iæ>2>2 (D ( 08<:0  (0 ("::G KB8:GB0>274~ (];(Y ^#~ ( (K;(G'((($|} ;#~'( (,##{#w#zw:(]N(2*N#y (.Ny (#::GOG2#!>`!>a!!!:0w> OK to change owner (Y/N)? T*~) #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 ????????????????SYSTEM ACCOUNT ; 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 Add "(27=@HKV^9uz   $'*.15<DGLOTZ`cmvy|C\bgknqw|'+6;DGJOjzress Invalid Data Mismatch COMMAND !*.29AJOVit@i #(-27<ADLOSV\adnsx"/:@{ !&.4=BIlot      <SEEK ver 5.6 27DEC82 Copyright by Timothy S. Williams[A bk7%R0!D>a~ G 2G!  0 ,uF0~0!> aC PPޯ~ *}(*0&0~ w }( 0 Ï Ï Ï>!a0~0!> aC PP0~0!> aC PP0~0!> aC PPC <a!>a <<* 55&P}(wz(sr~0:* * C  Ï o!a`Ï0FN<<6 pq<!(^ ):(>( (](!(^ ̯!SYSTEM MAILBOX SET COMMAND (0~?[adk0!> 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<SET ver 5.6A 11APR83 Copyright by Timothy S. Williams[Ax2(bk7%R0!D>a! " ~ ͆( ^ V !>a* O #> >* 0~0!> a~ |i}$i2Mi|i}`i2M(|i}`i2P#F ~ +~+ngR0###ѷR8~#foS R" "  H r : _^#V<h* " nfN nf^VR[ R} R} nf" [ ut: O  ~w#~w#NF: n3f4q3p4##q#p+++PYnf" !F#F#F !~m[ ! > (  08:0 *  !>a0~0!> a~ }2%M"}2&P~2'M(}2'0 f *%|eo"%:%"":&"2":'y":% :' >)28:%8_! nfR" : 2 ~ 2 * " * " _[ s#r#: w 4 * : R0!R`!k 5ü !H`> ü !S`> ü !9Y: = ʬ Ҵ H ʬ : œ _~O~ =G+++~( 5 ü x=2 +V+^S H ʤ : =_^#V6:&(0P!%n50 f  !>a1(10101101010* ~O &#~N( F # <#~ ~ !>a!>aC C( PPC( PP0* ~ ʏ(()0~ ʏ<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* ">[ "@"((!>a~ ʏN(S(C(!>a00C ÏÏC  Ï Ï* *0}0 ~8uC ÏÏ* !W d(0:* |0͚u@͚uA͚uB͚uC͚uD͚uE͚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 kERRNUM ERRTEXT DATE sABBREV MSG JSLICE MEMORY BANK KVERSION XHISTORY CLKFRQ SYNONYM RDYMSG EIMPEXEC ESCAPE UP DOWN LEFT RIGHT R 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 UBOUT CANCEL RTCAVAILTODAVAILjIPLASK QET DATEFORM,DEUTSCH NUSOSTETEOENACBEBH L V F C SSDLDCDCDCDCNASYETCAESUESFG 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 RUDESHOW COMMAND @C]`l '7:Eej %.FFOVYbil0SZa{NR[bemp #/^ #&8?DJVejsy|8>ADGJMalo      ! $ ' 8 ? E K Q c i {   # ) / 2 6 < O S ] g p y |       ' 9 @ C d l  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,) + 6 A L W b m x    ( 3 > I T 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      <KILL ver 5.5 23DEC80 Copyright by Timothy S. Williams[Abk7%R0!D>a~ (M~ (E~ (@G2! 6Y ! > !a!!!>aDo you want to kill the file? :Q͘ Pn&>,> nf> xZ0~ x0~0!> a`͘ Pn &> x.PN X^#VxhN@!6 x >*2x:F?]wz}#>: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+61nfDE<SHOW ver 5.6 27DEC82 Copyright by Timothy S. Williams[Abk7%R0!D>aP~>2"~*ʄ!d!>a: a ;y29:(A0:N#IP~ o&#> 0͹   :(3   nf+ DE^VnfR9!: !k 2T*~ (*(G0!>a2F͛:Tɯ2F:F<2FG(:ě2F͛:T:FG 2U:FG:12W! a U!N#":(5ca :lS(9D(2}T(+   ; B0 nv ̅ ͓ͩ ͱ ͹     Q͘ 0v( ~#O ( (n NOSTD):(0~Eͺ0~_:9=291 ;y290Ny (t($A(R(a(r(F³ !N#:????I :'G:I :x???MI ':''G:I :?I Pf (!&6,#6 a :?<2G>2H9!~????_~gn'^':w(: D_:#XPf(*0F>:#F>:#F> 0F>/#F>/#F> zPf %$> P~GO8888> o&"`~GO8888> _~& 8o o--0 o"dSb'++ &[`[b::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 &! 'V>,> *d+ 'fV> *`>,> *b:d 8#l > ~ #+͘ Pn;&>-(n !4͘ 0!~ g ,_ ,> ?͘ 0~o&> z2O%+( ma *M5 a !"O:o:???o&:G:? 2T.a :F     Gnf[KRsr:FG! *K"! &R8>bk>, >6>:S=2S1 ;y2S͘ ON͘ OFF O˹ = 0~ 0^P~Pv0VP^ esday 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. NUPf P~ P~@@ 0,> E>Hy( 0"'!$( !OO N#>@J >AJ >BJ >CJ >D J >EJ >FJ  ;y2;0~(n CLEUS 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 tapv>ÈP+^V! [~#^nf!2_~ #v <!6 ~ ~#> ^˻!6 ͡#+*!( +! `> ^#V!z( ^#V+!~7( !8d7+#7>-e "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 DLEDC1DC2DC308:0OxGGx(~ #~ #-~ ( #!~!6 ~˿~#(~ ~#> ~( ^˻!6 ͡#:=2 '1 ;y2;:( :=2!6"*2~ ( *(G82 ;y2DC4NAKSYNETBCANEM SUBESCFS GS RS US DEL, filenameSYNONYM System User Shortest Command Synonym Form -------- -------- -------- 0000COMMAND Module Version Date Priv Serial FIRMWARE \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&>-f -39?EKQW]f.OYbe wMs) G [ l  1 ; C    w   - 9 H 8;%,k`͡! AL̄WHTIMeDATeSERIA_DATEFOR͓PRIVLEֺCLOCCLKFRMS3SLICEUSERtMEMORBAN˙DISLERRNU ERRTEX RDYMS ABBREֹ IMPEXE HISTOR RTCAVAI TODAVAI IPLAS QE; DEUTSC/ ESCAPũ Uб DOW )5BE!(`}10<FNW47]FYeuxm7F_ )4:xzv )1;DG}Qpv{~     $ 9 o  >    ? E M h l u y ι LEF RIGH RUBOU CANCE SYNONY VERSIONAME = VERSIOPORT = SYNONY Logon March April May June July August September October November December January February Sunday Monday Tuesday Wedn   ( ? 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>ASSIGN ver 5.5 23DEC80 Copyright by Timothy S. Williams[A~ G* -  (~ (!>a!>a210!>a:0*}021   ~B &(&~ !>a3~ !>a>22~ G>(4#~ ( +/0!>a0!> ^E7k?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 >SYSGEN ver 5.5 15FEB81 Copyright by Timothy S. Williams[AP~ =(!N>an bk7%R0!D>a~ (!>a!n( ! > a^#VS!n2P0~w~ aW"W~ (T #~ ( 18501S(A8\H0XG2k8F2]~ (D((@T #~ ( 185012^(S(A8H0G22^0!!+!>a~( t!!?Pf(!?˯ON(Y( N  P!f P!f !"9"7>2;!f f!f:}_:}g:~o':_':@(R:}g R g [R(  >f!~V>( ~N(!2V:]:^*W~( #y:]O:^ !,!b9:]_*W~12m:^_*W~12ZNA8[02kG82] A8[02G82^G:] /P~ ( :]G~<( :^G~< !M> a:]G :^G :]G!f}!};83!f :^G**R0 [RM[!f3 :^G!f  q!q:^G!f :x12 !&>a:^#V!" xW> A$PFFF> ͗ > (>͗ P!G !"9!K *E#"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 EP ž ](+ <6[ER(  P ž ##~++P F(7 >  >   ? > ͦ >  [9S9[7S7SEP ž ](+ *7 *9 ](  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 {# *[P ](P ʞ > 2 >   *: =2 ( > >͗ I> 2 ͗ ! ! *7#"7 *9#"9 ! P!P P!P y > g(;!  > >    > > > i *E#"[:_<2_o:e92_*a#"a[cR9:]G!f !:^G!f  Y:]G :^G  :ő_*[~~N9 YN 80O:]"EP y *E P!P P!P y y !"E!  > > (  > > ͗ >  > > ͗ !& _^#V! 6 #6 $  ?˯I(Q(>ROQ0n(f)|( > >?GP~ =(~<(!M>a !f y.>T2|: ( ?:^12:k2q:mf?!9!f q!!f?˯ON(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 oY( N  !ff%!f##!9i !;83:]G**R0 [RM[!f2!fͶ D :]G!f  q!q:]G!f D >*|7+"*#"}<>(>(*))))"S*#"`r section number disagree with computed ** ** File name mis-match ** HDR1BACKUP .TAPEFILE 00000000000000YYMMDD 000000OASIS HDR2F0409604096  Y4I4:^GP~ =(~<(!M>a !f y.>t2|:}_:}g:~o':_':@(R:}g R g "&":]Gv ͋ :]12:2%:2'?!9!f Xq!X!fP!f !f](   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!  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 YTAPEn 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 Co 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 Zpy, 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 d LD A,L ; Get line number ADD 20H ; Add bias LD C,A ; SC DEVOUT XOR A ; Clear cy flag RET END rive 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  ;CRT ver 5.6 05NOV82 Copyright by Timothy S. Williams[A !! +"s! 1+"u!(!9##͝ ͘ͼ !(####͝ >*d(!"y!(͋!(ͦ !(> !(!!(ͦ!(ͥ! !   # 6 > C K N Z b g s v { QW]en$47FKknvy"*->CFKPV!9!9ͼ ! !!9!9Dn&ͼ |ʕ!9*sͼ !9*uͼ !͈!9ͼ |(4 !9!!!!!!( !!9ͻ ( !9!!9͝ ++ͼ !9^hps{~ 6;BE !%+.5=@ELUZ_djz!&-0:?KQW_hz !$-37ͻ (4 !9! !!!!!9!9+ͼ |(4 !9!!!!!!9͝ ++ͼ !!!9ͼ |(4 !9!!!!!!9?å]@ILSX]`ehotxB_cin$':=ALQW^aeloty~ -0afinq{*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ͼ !*{*u( *}*s(*}*{͈!*! j!;! !!9!9!ͯ !|(!*! }!9*u*sJͼ !9?|(.͊*s͊*u͈!9n&!j*y|S 3!9"{I0>w#6*s(3 !9D!9D! ( !9 ͻ !^ (! !'!!͈!!!*u͈!9 ( !9 ͻ j!9! !!^ (!!Ã!9 ͻ !9ͻ !dʃ !9DR> ( 0BB (  ut## (w#6! 90!{N#F! "!9R0!"!v !͈ !͈ * ||{~#fo~#fo}|9~#fon&|}|}o|g}o|g}o|gR(8!ɯR(,68&68(!9ͼ !*s(3 !9D!9D! ( !9 ͻ !!!!!9 ( !9 ͻ j! !! !( !9D!!!͈!!!!͈!!!!|(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Ҥ~ʠʠ_!!!! !!!!!!!!! ͈!!!!!$!!!!!!! ͈!!!!!!!3!!!!!!!GM ~8^ʤʚGN 8:06#n(ˮ6y ( ( ( (46  @~ C @= @4~ -~nfw ( #~2!~ (#!!>;> ͣͣ:J 5 8 J r { <sx4:@E *P>Mx1:P\BMRy*k.o s ) a   ͣͣ!"[!S:(([z(! *"*6 #6ʒͣ*"} *#": *"Ò[! ![! *"Ò!5 1 ;q:V!6!"*"*"z!! ! [!!    >puc ~I:( U vXhPE5~Gr=.f 2 j 8}7(X+[k/  ep_ WSX l"!  ^#V+z({ sr!ut##[! !nf|( ##lq>:w!0:wSYSTEM MAILBOX =ehKx *!. ` o # ( X T PL}c[y '69=IMVYCqy O 0 v \ O B 5     r e K > $  n a G : -   , on , at From  j]C)fY?% cV2pT#rC6)dWJu@3& i 1 { w6s2K"W29AHX[ ; nu ]GQ_bmrw| !-4;>CKQTY\dhkqtw{47=W]dmt~ "'.47=lI\     =SHARE ver 5.5 23DEC80 Copyright by Timothy S. Williams[A7%R0!D>a~ ( P~ (~(ʟ ʸ/2O ~(ʟ ø~T2 ~ (!>aO( !%>!( O%<0~ !;> a2(!9> ?SPOOLER ver 5.6 09FEB83 Copyright by Timothy S. Williams[Abk7%R0!D>a~ ʁT] !d!>a\> !a!6 > ! ~2)#~9!o(!%~121!l)`og#~(!h`!@A(D(W(P( Q(a!96!:w(!:> a^#V!7%R0!D>a ^#V+z !~ʏ# (}> ~# (~# (, ~# >:OG~?o&"|~2~:ʫ!P~ (#>.!X~ (#>::OG> >  ;y2h& &}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 F12:OG[|! !~ʆ<ʆ:ݾ†!O#†!~ʆݾ( !5 :w!5 :w!~ 16#N   *|#"|!~5:0w,ͭ (8 Y2`S ~(0:`wb!P2}: CP~ = !uDtE> ^#V+!  ~#fo" !9YF X~(+nfx=h*[R[ R8x=2 %Z*    >!uDtE" nf" : h6 6 : o&#! 6&6'6(6)682~:OGa <ͭ :0w(82`S :ݾ 6:OG[! *|":~2:OG[! !~(<(:`ݾ !O#   *#"!5 >(!~ ( #(bk6 !~!~(O# y 0:6<P  nfut}T]6:w :w :%G:H w[ !: i ~Dw 6#66i&# * : ! i ^#V+nfRs#r+ * ! : i* %! : i* ##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 thatVZ7%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>r %*149EJMTWZ]`ehn|@X]ckp{ +NQW   #)/8=CRX^dhs7R $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 (19     O > 7"> *~ ?NT]#~ ny (A8[0 +">>!a>!au~ (T] ( A8,[0(AO! wbk~(#>7> u>2"s ~(v ~ ( K !k>a*"~ (I#~+ (!d :2~*COPIEӱCOPٱSTATUӁHOLNOHOL&STOSTARQUIԓMUINITMUINITCHANGũKILA BACKUBACKSPAPRINԴ ALIG NAMU RESTAR READٚ RDٚ 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!B^h -38>EZ]dix{>isw~Uglo->DGOSX[`chp"%5EIMVY^ahkotx{~" ^~ (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~ (#'+27=@CJORV[^ahpv|  7?GQW\fn !2GL]   * / 4 7 : ? B E H V Y \ _ s v  ( #[ 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 o 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]dmxg[: 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     PRTSPOOL ver 5.6 YAQP N *6O D*666W6#0nfut6#6O#6#6P~#fo##1P"M" "~#fo"3*/69>CFOW\_djmt~ EOlqPD^#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 ( TITLE 'SYSTEM.CLASS31 - TeleVideo,Inc TVI-950' MACLIB CLASS CODE: REL CLASS31: JP TRANIN ; input translation vector TRANOUT: CP 20H ; test for control character JR C,CTL ; brif is SC DEVOUT ; else display character JR RETOK ; return to c\ (1(C N(5 ~ w w  V(a~ Z~ SV(M ͏6  ]^ ~ N V  ͏ ͏~ w ~  6 = q y ( ( ~~L*ͮ$++*T*USYSTEM SPOOLQUE aller CTL: CP DLE ; test for dca x,y JP Z,DCA ; brif is CALL SPECIAL ; else test and handle special attributes ; above routine will exit if handled LD HL,TAB1-2 ; point to indirect table ADD A ; code time two LD E,A ; move to de LD D,0 ; SYSTEM SP$  ** ABORT! **  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 valuemp+PSZhmps !$(16;>Borwz  <CFINQUZ]`dhlot|!s WRITE: LD A,(DE) ; get bytes INC DE ; point next CP 8CH ; test for ff delay code JR Z,WRFFDLY ; brif is LD C,A ; move to output reg c INC A ; test for end of string (0ffh) RET Z ; return if is SC DEVOUT ; else write to console JR WRITE ; loo     p till end of string WRFFDLY: LD A,(IY+7) ; get delay value OR A ; test if any JR Z,WRITE ; brif none SC DELAY ; else pause for delay value JR WRITE ; and continue DCA: RES 7,(IY+1EH) ; turn off attribute switch LD C,ESC ; leadin 1 SC DEVOUT ;  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 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 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 ;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 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 (.ATTRI 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,B),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 (.ATT(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 RIB),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+13on 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) ; 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 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 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) 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 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 ; b     rif 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 &BEGTYPE Installation of OASIS 5.6A on the hard disk of your ALTOS computer This is the second part of the installation procedure. You should already have performed the following installation steps before running INSTALL: 1) ARCHIVE all files fHL ; 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 charactrom the hard disk to diskettes or tape. 2) Boot OASIS 5.6A from the distribution diskette. 3) ATTACH A HARD1 4) INITDISK A (FORMAT) 5) INITDISK A (SPARE) and enter information from the media defect report. 6) COPY SYSTEer 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',DM NUCLEUS S = = A 7) COPY SYSTEM * S = = A (NOQUERY) 8) COPY * * S = = A (NOQUERY) 9) Boot OASIS 5.6A from the hard disk. &END -TRY0 &BEGTYPE Have you done the above steps? (Y/N) &END &READ &YN &IF &YN EQ Y &GOTO -START &IFC2 ; ESC,R - DL DC 'Q',DC3 ; ESC,Q - IC DC 'W',DC4 ; ESC,W - DC DC 'Y',CAN ; ESC,Y - EOS DC 'T',ETB ; ESC,T - EOL NUL: EQU 00H SOH: EQU 01H STX: EQU 02H ETX: EQU 03H EOT: EQU 04H ENQ: EQU 05H ACK: EQU 06H BEL: EQU 07H BS: EQU 08H HT: EQU 09H LF: EQ &YN EQ N &GOTO -END &GOTO -TRY0 -START &BEGTYPE Insert OASIS 5.6A distribution diskette in the floppy drive. Press RETURN when ready to continue &END &READ &YN ATTACH A FLOPPY1 FILELIST A (EXEC FTYPE) ATTACH A ; ; Now assemble the specified class cU 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 1odes ; &CONFLG = 0 &BEGTYPE You will need to specify what types of terminals that you will be using with OASIS 5.6A on your Altos computer. The terminal selection menu shows what types of terminals are supported by OASIS on Altos computers. You will EH US: EQU 1FH RUB: EQU 7FH DEVOUT: EQU 64 CONESC: EQU 78 DELAY: EQU 76 GETSCR: EQU 48 END need to select all types of terminals that you will be using. Press RETURN to display terminal selection menu. &END &READ &YN -SELTERM &BEGTYPE Select class code for terminal from the following list: Terminal Class Code Terminal Class Code -------- ---------- -------- ---------- ADDS 580 Envoy 2 | Infoton 100 11 ADDS Regent 20 15 | Intertube 24 ADDS Viewpoint  40 | Lear Siegler ADM 3A 3 Altos I 38 | Lear Siegler ADM 5 35 Altos II 43 | Perkin Elmer BANTOM 9 Beehive B100 1 | Perkin Elmer FOX      8 DEC VT52 39 | Seiko 41 Data Media 21 | Soroq IQ 120 4 Elbitt 14 | Tektronix 40 27 Falco TS-1 37 | Te 20, 30, or 40 is a correct answer. Try again. &END &GOTO -GETSIZE ; ; Format the second unit on a 30 megabyte disk ; -THIRTY ATTACH B HARD2 -AGAIN30 &BEGTYPE WARNING!!! Formatting will destroy all files on the second logical unit on your leVideo 910 36 Freedom 100 42 | TeleVideo 912 7 Hazeltine 1500 6 | TeleVideo 920 7 Hazeltine Modular One 32 | TeleVideo 950 31 Heath H19 (ANSI) 30 megabyte disk!!! Do you want to continue? (Y/N) &END &READ &YN &IF &YN EQ N &GOTO -COPY &IF &YN NE Y &GOTO -AGAIN30 &BEGSTACK Y HARD2 Y &END INITDISK B (FORMAT) &GOTO -COPY ; ; Format the second and third units on the 40 megabyte hard disk ; -FORTY  10 | Visual 200 28 Heath H19 (Heath Mode) 29 | Volker-Craig VC404 25 IBM 3101 22 | Wyse WY-100 38 Informer 304 20 | Zentec Zephyr 30 EATTACH B HARD2 -AGAIN40 &BEGTYPE WARNING!!! Formatting will destroy all files on the second logical unit on your 40 megabyte disk!!! Do you want to continue? (Y/N) &END &READ &YN &IF &YN EQ N &GOTO -SKIP40 &IF &YN NE Y &GOTO -AGAIN40 -FORMAnter class code &END &READ &TERM <ERM = &LEN &TERM &IF <ERM = 0 &GOTO -BAD &IF &TERM EQ 5 &GOTO -BAD &IF &TERM EQ 12 &GOTO -BAD &IF &TERM EQ 13 &GOTO -BAD &IF &TERM EQ 16 &GOTO -BAD &IF &TERM EQ 17 &GOTO -BAD &IF &TERM EQ 18 &GOTO -BAD &IF &TERM EQ 1T40 &BEGSTACK Y HARD2 Y &END INITDISK B (FORMAT) -SKIP40 ATTACH C HARD3 -AGAIN43 &BEGTYPE WARNING!!! Formatting will destroy all files on the third logical unit on your 40 megabyte disk!!! Do you want to continue? (Y/N) &END &READ &YN &IF &9 &GOTO -BAD &IF &TERM EQ 23 &GOTO -BAD &IF &TERM EQ 33 &GOTO -BAD &IF &TERM EQ 34 &GOTO -BAD &IF &TERM LE 43 &GOTO -ASK -BAD &BEGTYPE Invalid class code. Try again. &END &GOTO -SELTERM -ASK &IF &CONFLG NE 0 &GOTO -ASMCLAS &BEGTYPE Is this the type ofYN EQ N &GOTO -COPY &IF &YN NE Y &GOTO -AGAIN43 &BEGSTACK Y HARD3 Y &END INITDISK C (FORMAT) -COPY &BEGTYPE You have now installed OASIS 5.6A on your hard disk!!! Your OASIS license agreement allows you to make up to 5 backup copies of your distributio terminal that you will be using for the primary console (i.e. the terminal that you are using right now)? (Y/N) &END &READ &YN &IF &YN EQ N &GOTO -ASMCLAS &IF &YN NE Y &GOTO -ASK &CONFLG = &TERM -ASMCLAS RENAME SYSTEM CLASS&TERM S (NOWRITE NODELETE) n diskette. This program will automatically make the 2 copies that Altos Computer Systems suggests that you have for backup purposes. &END -TRY1 &BEGTYPE REMOVE YOUR DISTRIBUTION DISKETTE FROM THE FLOPPY DRIVE!!! Do you have a blank diskette in the ASM CLASS&TERM (/ SYSTEM) &BEGTYPE Do you wish to select an additional type of terminal? (Y/N) &END &READ &YN &IF &YN EQ Y &GOTO -SELTERM &IF &YN NE N &GOTO -SELTERM &IF &CONFLG EQ 0 &GOTO -SKIPATT ATTACH CONSOLE SIO1 (C&CONFLG) SYSGEN -SKIPATT ; ; floppy drive? (Y/N) &END &READ &YN &IF &YN NE Y &GOTO -TRY1 ATTACH A FLOPPY1 &BEGTYPE While the diskette is being copied, get a sticky label and copy all of the information from the label on the distribution diskette onto it. &END &BEGSTACK Y OASIS56A Y  Now format the other units on the hard disk. ; -GETSIZE &BEGTYPE How large is your hard disk (5, 10, 20, 30, or 40 megabytes)? &END &READ &SIZE &IF &SIZE LE 20 &GOTO -COPY &IF &SIZE EQ 30 &GOTO -THIRTY &IF &SIZE EQ 40 &GOTO -FORTY &BEGTYPE Only 5, 10,&END INITDISK A (FORMAT SIZE 144) ; ; Copy the files for the distribution diskette ; COPYFILE SYSTEM NUCLEUS S = = A ; NUCLEUS must be the first file SELECTED COPYFILE S = = A &BEGTYPE You now have a copy of the distribution diskette. Remove it      from the floppy drive and put the label on it. &END -TRY3 &BEGTYPE Do you want a second copy of the distribution diskette? (Y/N) (Altos recommends that you make 2 backup copies) &END &READ &YN &IF &YN EQ Y &GOTO -FORMAT2 &IF &YN EQ N &GOTO -FINISH &GOT>VERIFY ver 5.5 06FEB81 Copyright by Timothy S. Williams[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}OO -TRY3 -FORMAT2 -TRY4 &BEGTYPE Do you have a blank diskette in the floppy drive? (Y/N) &END &READ &YN &IF &YN EQ Y &GOTO -FORMAT3 &GOTO -TRY4 -FORMAT3 ATTACH A FLOPPY1 &BEGTYPE While the diskette is being copied, get a sticky label and copy all of the  :>(**: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>,information from the label on the distribution diskette onto it. &END &BEGSTACK Y OASIS56A Y &END INITDISK A (FORMAT SIZE 144) ; ; Copy the files for the distribution diskette ; COPYFILE SYSTEM NUCLEUS S = = A ; NUCLEUS must be the first file SELECTl&>,&b!F~ ~(5(Cylinder: Head: Track: Disk S(1) - Unrecoverable!)not ready write protected not initialized data transfer error invalid disk address chaED COPYFILE S = = A &BEGTYPE You now have a second copy of the distribution diskette. Remove it from the floppy drive and put the label on it. &END &GOTO -FINISH -END &BEGTYPE You have NOT installed OASIS 5.6A!!!! &END -FINISH ERASE SELECTED EXEC S nged sector not found track not found header error >UNLOAD ver 5.5 23DEC80 Copyright by Timothy S. Williams[AP~ (!N> a2~($ +~ $!9Y~( (!2 # Z!W2> anf ":~ ( ^#V"<[:R">T] ~( ( *>|[:sJBdw|"%,18;BILOTX]be|3r4*<[:s#rbk##s#rZ!>a!>aQZ_g      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 R .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 attribuDEFINE 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 te 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 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 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) ; 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 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 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,(ATTRI 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 .COMB) ; 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 JP ; 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 (.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 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 UPLD (.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, ,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.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 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 ; BR 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 ; 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 .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  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 (.ATTRIreturn 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 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     1,1M"1,1?$1,1>= !/6#͸ 8 x?8> B (> (.(*(  x(UxU> >  >  > ?$/!/~ #~ !j':/ ʯ .ʎ!!/@O~O[O(O-O'O08:O!/~~ ##~ #N˹#^#V#x8!!*$~#>( ~ 88>. >) >  ͸ ʅ(J (?'(T ( >  %0:8 AG G͋#͋#͋+͋Bp͸  ʅw#$̀$"/?$*/T]###$:/(*/[/R0[/R8 #*/>'*/#>   > L$ ̀$("/*/P  */P ?$!$:/(#[/R8[/R0[/R#>'#>: >  >~##= >  >R>' ~# 88>. >' "/͉ =P o&)))))*/R"/̀$T]$̀$|$~'(<y$ w$ PY !/6 /(! 06 #͸  8 > w#͸ (90 +~ (> >  >  +~ #> w# > >  6 ]T!06 ! 0~ ( (+##~  !+ 0 #'# ~ :p/(2p/>? > þ:p/!06# ¯ !%/~ʶ # !0!3.~(#~(B( B#R DM #~ ( ' #(zw#̀$!L$#!L$'ͫͫdͫ ͫ}0 !L$|͞}͞>'  88>. >/' >  #>' #>  +#!~L$#! f` :/2è$̀$$e[ ~ e e(!` !// >  !/*/|`$}`$:/(%*/[/R0[/R8!/>  !/ ~# ?$!0/!/6 S/͠ ڶ >`$/ @ʶ >`${`$/ @ʶ >`${`$/ !0  V#~,( (_##!*~ ~ >G##7H¶ !3,.~ʶ (  ~(##,y6#!fsr66Rt6|w6_:eG(! ` ut/.e/:eG !/^VnfN3 $n!vf~ ( ( .(:(#> ~ (Y (U:(5.n#~ ( (:(#> ~ (% (!:#~G x(>`$/ ~(: (0(LP(Up(](i(<(8ö x x`( }`${}`$/ x x`( }0`${{` {@ }`${@ }`${`$z}`$æ >`${`$/ [/R++z{(¶ ¶ {`$/ ~( m#~ c~)#H #~L#~)#I#~2e#~ ( fN ( N(\N ( N(\$A[0ɷ0:0 COMMAND Load Error: ̀$̀$̀$B8#`i +$`i +$ B#+ ̀$̀$!/$~'($(%y$w##~ 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 ˰(' # w#/RMR!/AR( ~ݾ B##:/([/R0[/R8 #>' #!L$͸N?$# Again?̀$$(=$ bk$~'(y$#~'( bk$#(?$:/([/R0[/R8#>'#>: >  T]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ʶ >`${`$/ )#6(#M6)#8_!*~w##~ w#*/#"/^{(#X>8_X6A#*/#"/~2/!3.G~ )(####F#N)2/:/(##"/~2/@08 >0???$G )@+G.:/8_X>2Y/!"/$($~, #̀$"/$xʶ >`${@`$/ ~(¶ ~C( Hʶ #~A¶ >`${`$/ ~,¶ ####~(ʶ xʶ >`${A`$/ JB~H¶ #~L¶ #~,¶ # >¶ >`${`$/ `ʶ {¶ H# `ʶ { x¶ {oq(>i(>`$> `$/ ~,(2~(ˆ~,ˆ~A(~*!Ā$"/͉ */~ʓ}ʩvʏ ʞʄ~ #~MEÑ #~ʲå #~å*:*G(0*:*G(0 "/:d//B6#q#p:p/(*n/"/1/1/{/~ ˆ~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}`${LHG/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*y 7aʶ {(>`${C`$}`$|Lq> i(>`$>"`${¶ >2`$Iʔx 5`ʶ } p> h(>`$>*`$>`$}K`$}¶ >:`$`(%}¶ aʶ {¶ q> i(>`$>Lxʶ yʶ x` y` %}@Ly`¶ p> >`${p`$}Lq> >`/"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~#A$}F`${L@(~(-(+( [(08:00!"/2/G2/P o&"/$(5~, #$~* #̀$"/$(̀$"/ ͉ ?$*/:/ T]$!/~#`$> w#*/:/ @:/('[/*/R8[/R0[/*/R#>'*/#>  */>  2/2/~2/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($/! >X >Y2/#"/~2/ʊ!3,O F#N.x_!+~w## > w#y ;*/#"/ѷR)!/~ (6 #6:/!/L$*/+"/|y >c((2|(~( ZE ;<6(#6C#6)#  6I#6R#  JyGQYIB(/!PSB(/!CPB(̀$:/'  By (|} >2/N:d/D */>S} >  > u(>Z > U(>P > E(>C FA*/CB*/ED*/LH*/CP*/"/:/([/R0[/R8 >' */>2/͂*/"/!/L$:/?$>2/O6,#x ;Q| Q~ Qy ZQ6(#6)#QJQ=__!Y:/ÆË/6N1GMR8 T6(#:/('*/:/(+#"/^>+{({D_>-w#X6)#:/>((6I#:/w# 6A#!b*_~w#_>  >I >= :/#FA*/CB*/ED*/LH*/2/PS*/XI*/YI*/?$CB*/ͺED*/ͺLH*/ͺPSͣ*/^#V#>  # ?$>  >( x y >) >: ͣ>  ~## B>  >' ~ 88>. #>' ?$>  !b* :/( 6A#6F#~w##~w#06(#:/6)#*/#"/^:/( */R(8*/R8̈́6'#z( 8.)z( 8'"{( 8{ 8z`$zi${`${i$60#6(#N6)#*/#^#V"/X6(#6x 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 ͉ #>: >  ~#>, >  #>: >  #?$$~(, #̀$"SETTRCALLTCTRACEVERIFY 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]/$H!r/x0$~* "## 2q/̀$~:[/w}|x2q/$ "1/1/!d/~w#6*/| {/:[/ #{/"f/*/d/>2p/(/!/6  0!/~ ! #~ ( (#~ ( !#~ (0~ ( #2p/͙ */"n/y(F( H 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 se! 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"0ct,addr[,count] .Z80instruction Invalid Command Numeric Overflow Break Point at Protected Area BCDEHLSPAAAFBBCBCDDEDEHHLHLSIIPNZZ NCC POPEP M  &(.068>!"*12:CKS[s{45FNV^fnpqrstuw~*/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 |#!"*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 I}#~ #SN/"P/] *R/R8*T/[P/R8*N/!S*L$ >  >  ~# ?$( ( i$ 80w#̀$}!$T]ͩ$~,( ( (#<ͯ$ì%~@(:-(!+(.~( ((8[(4%#ͯ$|/g}/oì%#ͯ$!Rì%##ͯ$^#Vì%ND OUTDLDIRCPIRINIROTIRLDDRCPDRINDROTDRSC BP DC 7O0 0 7O0070!0#ͩ$~#)ʬ%]ʬ%z&~(([('(g0z&:8 Az&Gz&#~T(H("08:8A8G0@z&ͬ&#͇&~H #~'(.#[/#~ ' #|&en~)], +(,-((*($/( \(>(<(&(|( ^(@q&z&#!ͯ$+("-        " " " " " " " "         # # # # # # # #                 0p0PPpPFP0o0"PP P ("*(%/('\(*&(.|(3^(8<(=Fì%Rì%C'ì%&ì%&ì%{ozgì%{ozgì%{ozgì%#- ì%:- ì%^#V#ì%:/>2/~0:8AGO#| ,)))) ~0:#)8DM)8)8 8O 8!1*L$ z 7!9tu tuP P#P0 0P PP@AB CD.E/F0GHIJK8M1OPQR SV2W|XYZ[8^3_~`ab g4hijo5r sxyz{86789:;<=>?@ABCDER?0tunfjutfn)tufnjV^fnJ{!908)( 0 (7ASMBASECALCODUMPFILLGO HELP#INPUTLOAD#LIST;MOVEOUTPUTPRINT! PAGE/PLIST/QUIT#READLREGSAVESEARCHSELECT ./0123456789:;<=>?@ABCDE!G8      )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{*&ES<t !K},8H$3w \ }qeAL)2>JW`sw 0  )rG }rgYN > "%-09BEHRZ]`cfilorux{~Eu EPXy &+2>FPSXiu|<DPr">JSp%(+1@GPl { k 7 m d O J E )  G" cta\b]Xz@0 ? F ?_+!!!"."J!!i1N""#"######## j## i^|^Wu'49>INWa FILSV]dgjmrv~     % ( - A G L Q V [ ` o } p s | 3 8 N S m z .NW\qux|L##{oeZ YS z!t D!!! imYI.! n]T# rg8P&ulgC612l'*<X >b$)5@EWbmsyJQMIf];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       <EDIT ver 5.6 27DEC82 Copyright by Timothy S. Williams[A00 25{5:5(o0{5!9:5 D:;6U( L I:Q6–(* ;x=25!:6 EO:5y > w 8(1O#:5(06 Z (V( (<(>(*^NöÜx+~  C6z(* *66"5Z\**6~-Ͷ*Z*6~ ( 0ڈ:҈+0!*6~ 1.͂+*6"6~ ;(-z( > Ͷ*Z:>6c.*6~ !( +6.|6."K6*6?~ |0;(ZR 0;(Z͂+:*6;-!K65 Ͷ*Z:Q6Z*6+0!} <26*6~# ʚxʜx x  :9!96 !:9~ #"6~?(08:0 :>6".~w( ˯-8w~ #"6:9 ~ '.!"6,!~,.O9# (  ^#V*6 >8;([6ZUP 1 DOWN 1 AGAIN TABSET 8%HE( (2Q61.0 - Z:5( 525- 2866!6*6~ ( 0T.:6(56!6] 0z. 6!66(0z.6!6 (6!66!96 -!?~(6#-> 6!-͂+:6G266!66 *6~0 f( !Z!ZFLP A NEXT ,UP &BOTTOM TYPE FILE  SAVE LOCATE ZONE (UNNUMBERHTAB X (Y (Z (VERIFY v'WRAPMODE'FIND RENUMBER PAGE TOP %QUIT g ? V INPUT REPLA(![6`*6~ ʘ ?ʦ +~ ;.͂+P^>!:*6~ !?"6!:~ (# "6*6~(> [6~ ;(0Z:>6(  "6Ͷ*Z#(> :!^>P ^> Z>25Ϳ :>6(c.5!56 >25*6~-ڤ 5!6*65~$( 08CE f#DELETE MODIFY CASE 'COLUMN COMBINE CSI %TRUNCATE%NAME LINEMODE_PROMPT CHANGE }DUP zLIST DOWN ,GET PUTD =NUMBER PUT 7ERROR SKIP #SPLIT P$*6~ 1.O:! >':8-8#~.(:(g ͌ >.w T.!556 5#~$(-8~$( 08:8-8#~ ͌ >:w.( :(( #~-G25( #~ ( +$(-0:5 :5h.5!5:525>255!"5!"5*6~-8#~ ( #~ ("6~ > 0*6~ 1.͂+!?>+"6d&*6~ ͂+:5(O:;6OZ25~˯M(U(L(A(B(C( (O.2;625#͂+Z*6~ ( ? ?ZO!?!"E6"G6"I6*6~͎+w.O '.?O*66#~ @.(#7#~ ( (##~ ( #"6 (%ʓ 08:0h+|6."5~ (v &#:R >"5S5O#~ (R #~08:0h+|6."5~ (1 1.#*#(+OS5:R >"5#~ ( #͂+5> m.*5|(5!:"r.*5+"5|(15!:"r.[5O~ (( ( ##;-*5|(+"5|+6."E6*6~ (+"G6*6~ (+"I6!6~($# +6 #~!7~(# ~'.+6!7~(#'.:6 *G6R6.*I6R6.*6~ 1.͂+29*6"6?R]*G6"K6*I6"M6*6~ :9̾(*6"6Z:9ˇ29::5(381~ ] ( ( 8*5~((0#( 5!:"(5!Ͷ*Z[5O!:~ (( ( ## X  ;AZ1AGAIN BOTTOM CASE U|L|M|A|B CHANGE /str1/str2[/linecnt [occurcnt [start]]] COLUMN COMBINE CSI command DELETE [/str/|count] DOWN [count|/str/] DUP 6 (( #~ ( 4[M6SM6z SM6>29!7~(*K6+"K6| :9G(~ ͚,Ͷ**6"6*E6+"E6|ʪEZ*6> "6Ö ;x 8P   {z W0 ;{*66 >C26 0 0O~ 1.:>6c.*6?R Scount ERROR [count] {macro only} FILE [fn[.ft[:fd]]] FIND statement GET [file] [[/frstr/|frct] [/tostr/|toct]] HELP HTAB [char [ON|OFF]] INPUT statement LINEMODE [ON|OFF] LIST [count] LOCATE [/str/] MODIFY [count] NAME [6*6~<(> ~<( +6 ͂+Ͷ*Z;(-~ @.P͂+7B*5!?>5RDM7R+xy!##F7!+++ÞEDIT COMMAND 07# N#F#5[58!9{5Z*6~ (W)6.z :56.d ͂+*6?B fn[.ft[:fd]]] NEXT [count] NUMBER [start [incr]] PAGE PROMPT [number] PUT [file] count|/tostr/ PUTD [file] count|/tostr/ QUIT [number|command] RENUMBER [start [incr]] REPLACE statement SAVE [fn[.ft[:fd]]] SKIP [[-]nn] {macro      only} SPLIT /str/ TABSET [number [...]] TOP TRUNCATE [number] TYPE [count] UNNUMBER UP [count|/str/] VERIFY [[number] [ON|OFF]] WRAPMODE [ON|OFF] X [?|statement|count] Y [?|statement|count] Z [?|statement|count] ZONE  d 0Z:5Ox(,~ (##  ( 8[5(ܸ(0#[6 "6Ͷ*Z(~  ( (#> # (( ~ ([6"6Ͷ*Z!>~ E.[6P*6Ö>Z![6 (+6."6͂+*6~ ;(A?RʗI2O6:;6L ˩I [number] ? *6~ B͂+::5 8>":5>"o&6 #6O#:5(6N6F#6F#6 :Z08.:0*+6.}6.6.25*6~ Z͂*825͂+Z25#~ (,("6گ25*6~ (## "6:>6c.͂+:*6;-Z͂+25I:76(I:5(u0:5&I25>:*6~ !:T>2P6:5hx2P6:5hh~ ʿ 8 ## 5(Ĺ(0ͣ+E ʳ ""˯BF8QʿI_DREU,LE~ h# 0ͻͻ:P6h+~ 0:P6h+~ 0 !5yD :++G=Ow#= :>6(}*6~ ++> ##"6L+:5¦"A6*6> !(L+"C6*A6K<6 "6R8[A6R<| .;(A"6*6'R0*6ͼ+25:5A(>25I! ::>6(0((O:5y > EA  h~ h#~+w# ͐Th~ h# 0ͻͻhͣ+EW~ h# 0~hͣ+EO h +:P6(+~#~+w# 0͐T~q#O w>2:6T͚,Ͷ*×Ͷ*×Ͷ*A(͐I:O6GI~ _ͣ+EO hO :53AC M:5 Fy (*(/(-(.>L25*> L>L>25 q#>L:5&.(\:5Bª:5(((R(y˯M >25˩by˯E >25y\('""ab{b˩b>25by\(by 3 3˯R¦O>:5(l(,(0y :P6(+~ 0~ ܐq>2:6T~a"{"ˮN"~A"["::6(2:6~ (#O w^x= *6+"6|Z> *6"6*6~ 2͂+!6.!6::6GOZ~ O#6!6T.͂'("(;( a8S{0O˩K>25D>>y' 7y"yA8*[8a8"{0:;6M(˩:;6M( U( F q:5 #:5 ;x :+~ ( (R(+~6 #w#6 5+~ ( ( > 25w:76^~@Oq :R+~ ʡ +6!6Z6*6`~:( . #6`~.(/: #~ -G#~ ( (+/26~ #(7~ .:* #~ .: (-bk6 ~$( (.(:(-0 ( 0:?w~ .: +(7[6L+Y."6|Y.'BY.͂+ >L+! :P:!~ 0  :5B L:5(<((($ 6~M>25~E>(>~R>(>x(~\>x>25:5(('((~'( ">25>25:5A~;25~"~'6 [5! ::>6(~ (# (  ((0xQG B :Rw#[5:5 :60 *6B8*6dB8 *6B8*6!?"6~(*L+K6B( 0> : : ̶*Ě,Z++> ##"6: : (;-Z0;(A?*6Rʻ-Ͷ*Z*<6"5"5*6~ (4+6."5|6.'R6.*6~ (+"56.|6.'R6.!?~( > bk))[5[+ :5 q#06 I: ::>6 :! ::5( A:5( ͚,25;-*6~ ͂+O:>6(NFZ͂*J.2>6 !"5͂+Z25:50>25!?~( (E (AL+8'B0 R8( > "6.;(2>6S5Ͷ*Z5R8 0;(A͂+!?"6*6~ !?"6Z:!:60*5 B8 dB8 B8 > *6~ ͚,> *6"6*5K5 "5͂+!?"6*6~ !?"62>6Z08':0#:~08:0#~ ( #~ ͚,> *6"6*6~ 1.͂+ ;i&[6> *6~2>6Z*6~ (W)6.z :5d 6.*6~T ͂+:5>25*6?B 0*6~ ;(|0Ͷ*z(E *6> "625Z*6~ ʙ?ʱ͎+w.G#"6~ ((#T] ( (1.6 *6~# (  ~ '.͂+P>*6+*6~ !?"6*6~( > ~  ͂+*<6:> :Z+6.R6.|6."<6͂+Z25>25Ϳ !5~ 6*6~-8~ ( (##~ ("6*6?B  #"6*6~ |0;(Z*6~ ( W)6.{6.S5S5͂+*6"5!955> *6~(D5#( ! ( ! (! `5!5Z     > *6"6~( *5+"5| 5!0 !A9:5G *6++> ##"6*5"6*5\**6~ 1. >Z:5(5*6~ +8}6*<6"5"5*6~ (4+"56.|6.'R6.*6~ (+"56.|6.'R6.:>6".!?[5~(K5 'BY. > ͂+:9Z͂*O:>6c.y25Z ; < =26*6~ (0,.:8? ZZST6SR6 ^.>2Q6SV6~ (+"V6E·(:*T6~&( w"T60"T6#(> 026*T6~#"T6 *R6"T6*V6+"V6| 2Q6Z:Q6( :6 2Q67G26*T6~ (#~# (& #+"T6*6~ 6O!?Zbk60*5 B8 dB8 B8 > *5K5 "5!?K6B( > S6!?"62:*6~ !?[6"6z> :~ ( ( ͠! ~ ::(͚,*6> "6s!!(G #Rʭ"Tʈ"E("('(O~ ͂+:*5> :Z+6.|6.|( !:>6(!bkB6. B0:>6c.S5͂+Z25[6*( (08:0+͎+w.O#"6~ ((#T] ( #~ ( 1.6 "K6*6~ ( # ~ '.*6~!*> ~!*~ F:5Ox0*~# (k  ( 8(y ͠!L ͠!S ͠!E ͠!08:Ұ!>2:L+"9*5":?("L+K9B*:(K5 ":> *:͠!, ͠!͠!H°!͠!E°!͠!N ͠!*"͠!E°!͠!Mʷ!S(+T°!͠!U*"͠!R*"͠!N*"͠!*"͠!T*"͠![5(ڸ(0[6 *K6"6>25( ~ (~ (## Ѿ( ~ (#)*6~( > z [6~ S5*6~˯O (#~˯N(F #~˯F #~ ( ("6y7:5I*6:>6( ~0  #~#O ( ( (:?68y 8O*"͠!R*"͠!E*"͠!*"͠!O°!͠!T(!S*"͠!U*"͠!B*"͠!*"͠!O*"͠!*"*6~ |0;(Z?R 0;(Z*6~ (## :>6c."6͂+:*6͚,Z>25:Q6Z26*6~ ($- O#"6+} *60?:A?[a?{((O:5y > >"6:!:6 6 #6 *6B8 dB8 B8*6:!: :~ Z#~ (&(##+ ##"T6Z[R6>&R ST6Z~&+ +#"T6+Z~ '.͎+w.O#6~ ( (##:6'.~# ( 1.:>6c.͂+*6?R( ~< ;(-;(û-::5(381~ /% ( ( 8*5~((0#~ (C6 ( #~ 60#*5M:!:25~ (# 8Lx=8>25:5d0:5:>6(!:~0 6 #::>6!:> 60#  x0*5~( (0# ,> !:!B*6> !BR(0 "[6!:DM*6T] ~ S5*5[5R0 > ~ (#~# (++6 ͚,Ͷ**6> "6Ͷ*Zd ;(Z*6~ (_Y6!X66+6.|6.6.M!X6>_q*6~ (1.!X6~#( 6.6.O[5!X6͂+Z͂+:K5 (o&> > :Z*6~ 1.͂+!?"6û-*6~ ͂+:*5> :Z+6.|R800;(A"5!R`i>+!BDM ,> !:!B*5[5R8 0;(AR80"5*6~ !:>> "6~(>+x/Gy/O[6!:0Z|0Z$A[?˯A[?! (! (,`6!6Z!6.|( 6. ;h&"5͂+Z*6~ Q?O*6~ (? Q?Z08S:0O+0!*6~ 1.͂+*6?B ;(0Z++> ##"6z ?R(Ͷ*Z͎+w.OQ?*6G#"6~ ((#~6 # ( 1.*6~ ( # ~ '.͂+*6?Rn&*6++> ##"6?R>a!!! !!!".S.N.I.D.?/://5J/0l/+~/&/!//// 0!0E0W0Renumber Lines Out of Sequence: Not while LINEMODE is OFFInvalid command syntaxUnrecognized commandToo many parametersInn&:5Ox0*~# (  ( 8[5(ڸ(0[6 Ͷ*Z( ~ ( ~ &## ھ( ~ (*6~ .͂+:>O:5(>N>F> *?6> :Z͂*825*6~ (+6.|(!|6.R6."?6͂+Z*6~ O:5F(Nvalid numericSpace required following commandRequired parameter missingNo prior string command in effectMust be ON or OFFMust be U, L or MInvalid filenameLine number not in range 1-9999 No prior macro in effectNot while LINEMODE is ONNo local PUT      or PUTD in effectFile not foundEnd of file before requested recordInvalid delimiter: NEW FILE: Truncated: EDIT: INPUT: EOF: TOF: Not Found BACKUP file is protectedCan't save a BACKUP fileAvailable Memory Now Full: No Room: End of Memory Reached: @(05CINp'!!!!!! """("1"{"""""""""""""""""""""""""## #######(#-#6#;#@#E#J#O#R#W#\#a#d#$&'W'o(q)t)))Z*8+d+,<-#.(.-.2.7.<.A.F.K.P.U.Z._.d.i.n.s.x.}.q22223 333!3$3.313bk7%R0!D>ax2~-.6~-.6 (-0 0.:.~ (\((-G#~+ x*(./ .26 ~ (0(- ~ ("B( T]O B 26!>aRo&#5!"5> 2 ;2 <2 =2 >2>2?2Q?2?2?!`>w+6 +6F7%"50"56;3>3H3K3U3X3b3h3o3r3|3333333333333333 4%454W4Z4b44566'$D{|/:E,*xH= m  P tX|Gf2#<7S T[E  c`{*iq(!7 TV.n(`!> a6<(G:(!7 V.n(8֯!7 V.n($>6G: >26Z0!?6"5266 ?!6!@K5B 8+> ##6"5++##"6&^#V+{( :6G !?>+6"50Ͷ*6!!?"64!6]d445C( E T e  !w#####$"$7$N$-%0%6%%%P%&%@&w&&E'''((o&3%$$#t# [e a =(E((((^)U)R";";dDQ B'&*%%YQf u'o)g('K&%Q%#  ]34]\44]ʲ3 5])45]945]94!5]94)5] 45]315]395]3A5]3I5]34!6] >U2;625!5Ã4>M2;6!Q5Ã4 ;h&"5!b5>27625>A25Ã4>276>U2;6:?03:3c?('R R))''&^&&%%%%$# 22h ! R5x0&W$`9ixZ %#!i]Pl%$$d$#T9 Y G  m--c-f--- `)&v$T$YG0()&Z&%2>6!"53>276>C252>6!H"5>25!f5Z>276!H"5!v5J>27625>M2;6>P25 ;xo&"5!5Ã4>2763>296>B252762>6!"5!"5!Q5[5:76(*25:5P 25>U2;6;( ( (>L2;6:>6A>25ÝBASIC ASSEMBLESYNONYM LINK SYSTEM DEVNAMESACCOUw%$#] e N~;)))''' &&%%%^%Z%U% ,&&pkfW  ul )j* K S(K) ($#  w)&Z$~ e =,V-o#^-r&#K~h { b p--^- --.?111+1.1@1G1NT ASMSEGFORTRAN PASCAL C CINCLUDECOBOL COPY MACRO MACLIB EXEC  $).38=BGLQ    $(,048<@  !%)-15 !)19AIQSYSTEM WORKA 8 L1i1r111 252I2d22244Q+++H++****)})])(&(''w':'&&&T&/&&%%m%9%#####!k! s W kP?) E `sv ] J = H-ux~(3222M  $).38=BGLQ    $(,048<@  !%)-15BACKUP 672i2110&&&e&%$z#J"!n!S!! q$.B7 F22--y-,,,*s*^*)&&&&b&%'%%$g#!!!x!q!W!K B 4  ~{nvq_'n1N}sS?Q@- M : / YVr&6o (    i r {  ? B $K 1<C_inzxW] -06ouz  &.26?G[fm44l4I443urH322n2v-Q--,,*(((X(# (((#(#h %  / 1\M4dI$*Y)a+M+8,3,,21V-,`Y%t&*)UQS$ n W 5 1n  4o4_4<4,4433g4 D"K!C!!      y:b"G! }fc6}dH5#TJG~4T42443 ,&%fF > 1 .       8  N  v Z H  0  - @9 v2a28 1N s k T 44D4333PEm<mg}>START ver 5.6A 11APR83 Copyright by Timothy S. Williams[Abk7%R0!D>a!~$A8[\0> !a ##! ˾˶! 6 o M !7%R0!D>aT]6T]6 o ! "~ ( #~ ( ( #~ kN- - 2{2+#) L1 ' 1~zgo!;0+2$r$_$^$@2,22FO9t"f"\"V"G">"6"!u!^@A741&;&&&--D-,,h,\,O,,,+++++))r(''%%%%$#! 30qS63& #(~ (*}=8 0w~ #(~ ʧ ʧ#C 6 ~#I(O( ( (  ~  (, #L(AP(pF(1B(%E(HC(W~ (,( (w#s Dw w#~+F(s w{80 > ݶw S  z & = * >,4r444a,G,*G)))($# o*' q {\+s*?43Ax4"44)O))'$) /o43(';tB,*''<6P11(1(1(41, +**'%%$Z0A>> ç6P!9Y~$[Z A0Z :Z *|x }x = n 2 _^#VS  : h! Nʂ ![  : h! ~‚ #~O‚ #~‚ #~‚ : o,&w ~ !s ,! 2 2 É(Z ~ ʉ,(!s ,! 2 23%z%b%G%D%371"12 2T221v11+`  , (((((((u(I(H$4$$#(M('$+*''((j(_( ~ ʉ, 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{ &>ERRMSG ver 5.6 27DEC82 Copyright by Timothy S. Williams[Abk7%R0!D>a~ *(`T] 0ڴ:Ҵ* 8 2P~2Hw!9ͮ:HwP:Hw>I`!>a! 3a#~ ~ 2! ^#VP~2H!9! ;A}@d&} &}#~A8[8*!~ < ?#~o& '~5   ~(#~(2 ~: ! : ! W~2 ! P>_~< >W(w#* }! : i*  : h: xI2D (!> aD!( )  (c|( "KD!((% (?!> (T]6!KD)D!Can only be run from SYSTEM acco { 0~6!6 w| d   67 !6 6* !6  : i* !  : i:  ;2 o& ~6 !6 w d  / 6* !/  : i*- " * R" " [M S R" " : O: (E ~6{ !6 w|unt. Message number: Old: New: Invalid key. SYSTEM ERRMSG YP1 P2 P3 P4 P5 P6 P7 P8 P9 P10 P11 P12 P13 P14 P15 P16  d 6 O *  !O  : iPi: _)))))!  : <2 : 2 ! ˾: O: (:666*m " [ R" " i_))))) ! : * "* !i: V͌ 1P06 6 ~w @w<6~w6668)A]ns.<CTWbinF696@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" *  TITLE 'SYSTEM.CLASS1 Terminal file for Beehive B100' MACLIB CLASS INIT DCA 1 ; x,y addressing DEFINE HOME,ESC,H DEFINE CLEAR,ESC,X,ESC,E,8CH DEFINE EOS,ESC,J,8CH DEFINE EOL,ESC,K,8CH DEFINE LEFT,ESC,D DEFINE RIGHT,ESC,C DEFINE UP,ESC,A D! : iP*  : i i0@ * : i* ! : i7 !6 6* !6  : iV͌ 1P0nf86 6 @~˷w ~@w<6~w68696G6H!J9~DݶE(, >( EFINE FON,ESC,W DEFINE FOFF,ESC,X DEFINE PON,ESC,] DEFINE POFF,ESC,[ DEFINE EU,ESC,E,8CH DEFINE BON,ESC,6CH DEFINE BOFF,ESC,6DH DEFINE RVON DEFINE RVOFF DEFINE ULON DEFINE ULOFF END 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\ 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,Eublr ,:@DGLTY]orv} 8@HKV^gju}  ' C K T \ _ i l s { " , 9 A D N Q [ e o y q SC,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 (.A     TTRIB),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 <LIST ver 5.6 27DEC82 Copyright by Timothy S. Williams[Acbk7%R0!D>a ;y2 2 x2 ~ ʊ (ʊ  ~ ʏ (ʏ  i ! !i > # ! ~ N((&#~+ ( /0 { Gڀ 2 W N(… W NTINʼHʴFU 2 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 BOFFL 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 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 a _ {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>.ttributes 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 2y0 >.>0 y(>.y DO >0  o+* | (}(: 50+" : !i > d+6.+6: $ % ! : G: 2 : ( /C2 >! 4(F:((h(C6(XC ! >>V ?~>`(>@^ 0f>"(( ; 1 blink ; 0 blank (not used) > ~?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++;RUN ver 5.6 27DEC82 Copyright by Timothy S. Williams[A1p*I>! p(!B:?G[@>b1x2?l("l›"\T!! ## ~ (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 :?!2(:?!2(:?!!2^VSD~2Fnf"G!"I7 R!\u?]`djou} %).26QT^aeknz !$+.5@qxO^fio +07=Kt ut#ut#!ut! ! 66!ut! utnf6utqpqIpJuKtL#ut66[6qp6(7+ut6+uWtX6+ut6+ut6nf+ut6+ut6+ut6+ut6+ut666!6#6%6'6-*I?RY\hmr "',/6;>CFKPV[^bilsx| *03<@Kai~$'*047=CFJNSV]`clovy6#!u0t1!Tu.t/6263?6;6<6=64 6V!KuGtH9NT]6 ~( ^V~ (#~((- ()>.~ (#~(( (>:~ (#> ~( $~ (T( C( !>aVnf6!>T!>a!D> a>! a[\jdvy # - 7 : A F R W Z ` d i n q {    " ( , : A O R W a p s x  % 2 C F RUN OVERLAY1BASIC LOADFILEBASIC2 LOADFILE     +BMV_bgqvy5UZ:@!%(:@!%^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<RUN2 ver 5.6 27DEC82 Copyright by Timothy S. Williams[A1q*J>! q(!C:@G[A>b1x2@l(lœ"]U!!(CNW`chrwz (HM      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 DEFINEC 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 D RVOFF DEFINE ULON DEFINE ULOFF DEFINE BON DEFINE BOFF END EVOUT ; 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.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>CREATE ver 5.6 27DEC82 Copyright by Timothy S. Williams[Abk7%R0!D>a>2~ !>a((~ !>a((~((7 !>a*($G#~+ (/0!>a0!>a2 ~((!>a ~ Ox(7Xx(6ax(5jx(:s 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 ; x(;|x(<x(=!>a>D2H>I2H:H >K2HZSIZSKZSM>C2G ~0p:p*!>aO #> >دA[8 ɿ~͔~ (͔( 08:8$#: :G ! >a:G‰!͠͠!@ ~2+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 POP0~2:H *I|R*M|(:HD]Ͱ*K|R:H!K(![I[KDMKI[M!0< x(lg<">2!*M"!"*I":HD49*M}o"M<"!"*##"*R*M&z *M:K*I+g":HK>( 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 S>2!"*M"} | O<|O:HK4* ".0~:G[9":G !6:G[!3*+"| :<(!(!> !a>!( <( !~(~(> !a~(!".! ! !      [! > a!$>a!>a!>a}!%>a!#> a! > a! > aDIRECT INDEXED KEYED RECLEN KEYLEN FILESIZECLEAR RECLEN 512 KEYLEN 64 b_ dQ tÅ4Å4dÅ4Å4Å4Z!;[5.6M3E6vÅ4     A\o &+38<AEJNUXbg   %(-038@CQV_c  &+.25CHMPSW\ainq|   )O >DEBUG ver 5.5A 03JUN81 Copyright by Timothy S. Williams[Ax20~9 $P~ >N(>2n8n( > F( nf 8[( ! > a07^VR R8!D>a!> L~ (1RDZ EBUG 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.  ZZ: = : 2T!9*3s#r1: G:S*Q(>2x˿"!9*3s#r1_!"2 ^#V#~w"3͈+^#V: 2T: = R*##U      Ï?U@-AÅGÙIäM)O]P×OO0Q_R/U SÁSTT4VêVVVV9XO!9^#Vr+s!t_^#V$$h}}7T Z b_. (!>!F3+7*7T868R/0l-'L. 2>>?22!!! !2768V \ U46L7Y7f77z8 3(8;2w2z2Cy<2S">2>2:7?2!06&8k: 'o:kg2l :*""~ : [~{w>;:>9= :!8(yϿ(yχ98098s7B37;U7476!((6D)((6877;<?0T/B;B7;)''V2(i3s3>>!'&8;: = !R : <(!S ~(T: 0g!]F(6>#_!nf| P0!"U>2W222~:2[C?SA"C2qF2:?!SW!f[C K?[A*C $:[=J:2[C?"C:S(:2[C?ʡ "%  : ~<¥ ~<¥ :2' !. *% ###6 6 6 6 66>!] *% [66( [ ~~# 66* v(& F R* 8~ F _ ^ &~ 2  _&C:2' y2# !9 *%SA"C2:[!T8 :S qF2:?O:SW:TW:[8z2\G:S!fWY*C x2K?:\WO*C|g:[[AJ:"EC?SA>2<22~zWS{2>2!"!"xͱx8:22!8,*E: ~2!># G(##~(>*U|?>2b :$ (###~(* >: gv({> (~ 8|* " :# g: 2 ("v({ > ~ : : 2': ( !˶###= B ( 4w > DE |(!  ɷ  !' 5(#2XM C"S 'O!k~G#w !!6K?[A*CJ:>!c0:f7{ 8$!@~+ !G >!f2C"q: :!!:>(>>O:Y2>2Wͱ!:w 4: GO(: 1O) (,8 (08) (4-(0(W &a !q        4>  >,l&>,& 4 4͠:~#(?˯Q( I(M(>RO  RM(I  $! *% ###w >QNp#w#w#w!8͑"""ͥA*^(*`:Z( y2Zx :W(!> >:X72W*R{!z!>>:X7!:Yw#:@w#:TG:??H ?w*A|>> :Z >>2X7}fh !χ}TPέϳ2>/)g>2: wͶw8;͘w8͘%0 ͑w8X:;8G (͐!5 6!5 O J:: wͶw8;͘w8͘%0 ͑w8X:;8}(͐!5 6!5 O J:!4K* $[:=2C">202M͉ 5G 1g - *͉ G w W ( ( yK[*J:>>:! (!*ut:w :w nf utnfut:ww>:w:> ;0      V(M R 6  ^ ~ N V  R  R ~ w ~   = q Z y ( ( ~~Lx y ( (~ ~ w w 6 { x>Q;!D08!:8 A8G0O)8)8)8 )8 H !08:8D )8DM)8)80!O 8(I ,$g> | g(+ʵ f  VQy s ^(> $|p|-% ~ 0h, V ^ (\ |$%( ( 8O 808 :8A8G8Hʫ x1!x 80ɯ!z!~(#O#F#>/B<0 0  <>0'd z 7|M!jR0?YWJ{!908)( 0 (7ɯ8>O"#i&+ " : <(x(  ( 0  ~( (0# }GiDgD y ͣ ~(À ~(É ~ (,M~( ( 0#~ ~y^O|p*3 (P(O ((&O 0 V( ^͐y (͐7DM!#7~g~|( ?nfR8B?nfB8ؿnfR8˿#Gyx "8 : <(?70 F(7~#8~ #8  N( ~( 8 0O?@Ѿ >.# >&# > ~#(: =(:# ># ># ># > n(20 Oy*3 F( 8^( N ~y ( ( (( *3 ) 78? F G N Ny80 _!E#!%8 ( !nfR8 ~(y(gx| 9x 5T]~ (RDM+T]!^#V 8( ~ 84 -0ͻ q q if -6 64 ~ 8~ ݾ(N N 5 4~8~w6 6-# 6 66 -#nf  ~  !-#nf ~( wsr: nfR( 00G: :>:>:> :> :7^Vz(7R ^V8666^Vz(7R ^V866x o&)))))is#r_7ڗ ^#V|ʗ { _x {s x ږ Җ { ʆ – x *D|(R> 8 x = y ( (] (2(Dq Ö N(5 ~ w w  V(a~ Z~ S_!~WY(_z͈+n{͈+u## x {{(_!     !~WY(_nz͈+u{͈+## x {{(WY(_'*##~(s{(1(: <(~( *##O: K<7~H~G( *##OywG~HH_!~wOG: =8j: (d!)T2)x!)V( ( ( ((ͫ)ͤ)ͤ)>ͫ)*ͫ)͙)͙) => ͫ)> !)wO~ x!)U!)O~(~6(OoWgN6#F6x( !v+B8>0[0*0,2>20*0R( S0[K0 [^#VK0C0:0( Br+sK0 s#r*0}_< B8+K0[ B0S0K0[ !R [y( { :08 20> S>(W:0 ~z/w*0+"0|((> # x K0z(* !6* >ɾ(vr+s6##^#V: w#s#r!=*v+5*!G*v+5*!Q*v+5*![*v+5*!e*v+5*!o*v+5*!y*v+5*!*v+5*!*v+5*!*v+5*!*v+5*!*v+5*!*v+5*!*v+5*!*v+5*!*v+5*!*v+5*!*v+5*!*v+5*!*v+5*![0[ S0 K0[0[ *0))[0!0UJ:[_3:O:g:oV20 f D V >-A>-'A>/D>/y8OO!2 E V> JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECU3!F>:#F>:#FU3_3:B3+v+5*!+v+5*!+v+5*!#+v+5*!-+v+5*!7+v+5*!A+v+5*!K+v+5*!U+v+5*!_+v+5*!i+v+5*!s+v+5*~#^#VG 'Ox!kw# < <0+( 0~wLsJrKwIbk#~ ("$(08:8A8[8a8{0O:B3G?8:B3MO:B3G??xO:B3G  *J*L*b*d|(3O:F= G?(0Ox('@(( > >d  >  y!~'w`8f6+~'w`8Z6+~'w$8N6:gˮ6$bk#, , ~$Aw!Oo|gFI˸: 8-_!|NLe̪9~?wMne]&~Mo0$FI˸ ~-< -^JVK# C ~L 7#~(wLI~(^JVK+I~(FI˸  (NB( 0 !!(O :'0'>( <2M4!K4 ''(8>' 6##~'w1(1010110101*4+"4| *"4!5 :w3HE6>"6O*"6:26R NA ! D!~2#^#VSzh5*6:ͯ'*6^#V*6"6[!6:'h5 6!6*6|~Mo0$t,yI~ IOI~( FI˸ < I~ =7~L( v 6L^JVK+FI˸: =(([ ^#V͟$͚-%ѯ:@/[(ѯH/v Oeݾ H~ 9~6`9 [ `9^#V#N#fi(h5:66ͯ'[6*6R :6! *6"6:626|($:66ͯ'*6[6"6[6!6':6[6!6'z16ͅ4S6*"6:26!"6"6 6!66*6|(:6ͯ'*6[6"6[6R8*6[6R"6:626*6"6[6!6*6|(*6[6R"6:6[6!>7H/!![> ^#Vz(= R #:@/wG~ [>*/>*/ H/> H/[(>H/v e(~j96#[ #j9Gj9 J:x j9!+T[>*/>*/( 86'*6|*6: 2"26"6:6*6 !6'*|̿6Ā4*6*| Ϳ6: =(!T5c6:ͯ'*6|(+|("6:[!6':**6":62|̿6!6': =ʅ4À4*3: *30}`9Fwx [G !+U!+U>70(  !+T!+UJ:bk: 7:!0TC0S0"0z(|(!"0ͪ9!"062~(K0[0*0>,2~?<20#!"0"0 0 <[0*0R81/:0(;= [0*0R"0*0"0*0|ʍ/"x?h&)))))*3ѯͅ7Oo&)))))!i:;0~0~0nf0ut0u(t)0u&t'!x06O ~?>7Mbk 6x6#6G T8W~(0>G ~# < !     [ ##] >#ů<7##:>*x( ( ?8@>S>*x*(S?6_~{>O8##F#N#~xGyO/o0~ g~ w 0 v 5 N / ;( AH^? ( ( ( &U.AF^V[ ~w^VN F nfJ:N F ^Vn f vC>:ͷ:J:ͥC~ @~<@=D bnfAF^V[ sr [nf +ut | ^UBF^V[>( vC@>@1F +nfnfut͝CFFsr[ n) Changed -  0n(f)6(6)!9nfutnftu0u(t) f |( PFF(͟$0OFJ:0 >(?0GM>*3nf:O W(^Vn(f):>R f n f ,BF^V[ sr +| nf#ut1FnflAlA^Vs# x ^V[F sr rF^V[ nfut|(xvE!BDMnf++ |(nfO ut[F &[!RNFq#z F^V[ sr N$R$$R$|$>QN*39~(# x ~ J:N(*3I^Vut#61v(61srq p utn^.>Cʭ=͠:0 <~ Un(f)|(Eɯ Cancel EXEC (Y/N) ͠:0 ^  O ^  ͠:0~9(#09fut~?o&#u t ^~Wsr 1F utn f N F (w# !^ V N F (G (O ( ^V&#ut!ututut^VRu.t/vE~(< .^Vz $^Vsr^Vz( srvE<^ V ~ w0 +# x ^ɯ͠:0~ w    ͠:  ~(G~?=(x(@ w͠:  ~(G͠:0~ w ͠:0 >:_ *: = $*D| ͠:>4˯4Y(4>L1>WpVsr[F ~0=w0 ӯn.f/##u.t/|(!R^V^VR0#utnf#utR®Dnf|D<7FvCNF x !1NF!<0?J{_!UlcZ^VutF )n(#nf +l&NF OF["0E[ GF OK to IPL (Y/N) - ͷ:~( ~(f >~<(v(>~(  ~ #(ЯG?(w# ͷ:~J>~J>^J>~< L>= ( ( J>8G~#L>O@y L> ^  ̀? x @:ͷ:J:ͥCvC~ tI=D(tI^Vsr^V 1FH͝C# x ^Vsr[F z ^# x ^V"     sr[F Vs r!vE6F^V[ 1FI^Vsr!ut^V[F sr^#V#{tInfR( sr(I^#V+++s#r###z [^VsrF nf|(hutvE^V# x [^VsrF z ^ V!s# x [^VF s\O~FJ:~(/G<( :>(~ ( @>2@= N~w#~wF 6T]^V>J::ͷ:J:N(V N">~(ݾ(x>( nfBRJ: x !1NF!<0?J{_!UlcZ^Vsr^ $N(NF +l&FN["0EnfF "~(?G>8: >~w~(@(+ ('`(#>êIV(~ʠK() #~ > : =( +>(G:([(7<[('~w[(V K>@êI>êI> êIn ~(F~(~ʣLNFV '!RDM~w~wyQnfB(*8(ut^VsrnfF NFnQ:ͷ:J:>~nQ~ nQx>nQnfBnQ}QnfB(-8+ut^VnfF sr NF^VnfF N( V(`iF^Vsrut6 r:VJVJ`i^VF ~w~w~w~w~w~wsr{Dw> A+ +#ut>w^Vr:>@~ʪI~[ e(~(JFx< G˘p:8~JFŽL[V N"nQ!pnfnf~(*3nf7%R84TV7R8^VN2E*3P!>V[ |~(tO(^VR(>7N*3##^#VR0 >7^VF Q7R0^V~G(T2ڔLj9>#ut}|.eFj9 nfut66T]F^Vnf w#66^Vr:>êIF> êIn <^JfJ~w~w^Vsr~w~wr:vVMfJ^J>7j9 0u_t`N|y(^rVs2^{V|n_f`{(nrfsZ[ N{]N­Tn{f|~nwnʭT\nrfsurts^rVs[ srrs͵T5n ~wa#^V##n_f`^Vn_f`ut5a `9w~~w~w~w~w^sVr!l&))^sVrutF[ ~w#~wr:~J~w~w~w~w^sVr^Vsr66r::ͷ:J:~(#~(0 N 8N<( f  N6J:! )U! )TN"V(w~w~w6nfutnfT0wh !J97~h!0U!+U!)U!S U! )U! )U!WUw Z*0:O|(@: ^VR8^VR05y hgoM 6" y(}%[ !X](p9`9~Of zF^Vnf T]6{( [~w~w~w~w~w~w~w~w.[F F w ^V"o ^V^V[^#V%~wMnMG^  @ @x (@M >2@= @:-w6*+ut*.ut*3>wTPPR ~(>+++ ?+\8?0 n(#+~( ###~ OP!>V!0 ~a8{0˯ ( 80# 8ί/U808V/U0sIrJuKtLMfʆN[nrN~w~wrNͷ:Nnf~`OhO utq>>^#Vz `OFnfsr utqͷ:~\O~\Of\O~<`Ov`O=\OxNnfhO= utqTOͷ:~\O~\O^+<<))^KVLR)[%[ uMtN(X[ !:>[ (X W (X W (O:w (py[ kO(X ( Yy(X (M (E|( {(+^(O(X (|>|'(X^( (X{( X}(nIfJx(~ ((~ ( WO"     #W(X (0:OxGGYWnMfN~#uMtN: =(>!NV!9x(V0F(^V ~O2Wx !Z>(?44x6w6 *3~pp7AZ[JZY^#VS#X##RZ[[ZY~2-nf"+|6T]G H^V*ZR|!@(o"e hͼge[ ^#VS#e[ F(^#V7Ret`081b_te[ ^#VS% !n˾˶[<( 6 ڥax ~# LMy!Re!o&#[ 8~04nf".cZ[lZYnf"5~27nf"itZ[}ZY~w##~w#~wF(^V :O3Z[Z O^#VS%[#[ ![![#!YJ[ !Jw/UY4~ (O#Y4Z4>L SYSTEM.:S missing^Vsr7RM8utT= M! >ax8a 0]~(R~ݶ JM!ce!n&[ )~0^Vsr7RM8ut ¿`(? f4:>(f4f4?4*eb^> >-> 6b^4f4:wµd:! New System Disk Required!!!!! Mount new system disk now -  SYSTEM NUCLEUS SYSTEM CSI SYSTEM EXECLANGSYSTEM EXEC1 SYSTEM ERRMSG Zɶ?  gʝbf4b^:b^ ʝb!b^~ ( 084:00#x8'0 T]>:0T]>:!b^::22d(a$a~ ada`a( da`am:2Zf4b^:b^ ʵd!b^~# *x( :G> !c^d#dc8~# (c dc8+x(z ^!^6 O^!b^cb> o&^!Z~# ʝbc8+~ ( cڝb#xڝb++^!^b^~ ( d #cb> ^!^ 6 ^o&!Z^~ ʝbc#8+~cѯ0:?A[?^ >/!^ !b^:Zg(+/dڝbʝbҝbʝbdڝbʝb2ҝbʝb//dڝbʝb2ҝbʝbdڝbʝbҝbʝbdڝbwڝb!/eO/eW/eB >2Ge!EeY~ڝbnb^$:0 :waÝb:2Z:w(*J|(ͩe<[!!KA87E~# ( 08:07x xȷ<>Fb^>b^}#SYSTEM DEV SYSTEM CLASS SYSTEM ERRMSG SYSTEM STARTUP SYSTEM NUCLEUS b^> :g(%> $:GO8888> o&"g:GO8888> _:& 8o o--0 o"gSg'++ &[g[g::&! 'pg͞f>,> *g} 8 o+[f'f͞f> *g>,> *g:g 8#l > b^4~ # Time (HH:MM:SS) Date (MM/DD/YY) DD-MM-OASIS singlemulti-user version K January 1b_!:"!y`"Z!8":2Z:@2Z:gx f!f![ 6#2[:TO2T!bp.~O/wq $ :(g.z( R88"Z:O *W((:oz %8 February March April May June July August September October November December Sunday Monday Tuesday Wednesday Thursday Friday Saturday !gN>y#^*"4Wg.X4s#r> >> !g !h/-Ϗ^#     7`70nf">2!!@h(:(ut"`*3RDM(8[3sr>T]i83[3R8:(0g!hR0 !hR8h(ut~WR|_*e"e!4~h!~w>h+/>i+~w>h+~_͒utsr~nfutnfut($~o&~> p͒srut =ZPnDfE|( "A>͏1> ͏> ͏>!_͏! "7^VշR686666U 6666U06#6TRACK: 208HEAD: 2SECTOR: 21 O#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) TRACK: 208HEAD: 2SECTOR: 22 9Afkp)iltw !2 AILmt{]TRACK: 208HEAD: 2SECTOR: 23 >LOGOFF ver 5.5 17FEB81 Copyright by Timothy S. Williams[Abk7%R0!D>a~ (!>a%%$>P~ <2! _^#V4:!hN !F]:!ÁP:! _^#V 4h~ #~B0 dB0  B0 >.}Mo& '&} 0>0> Ox Gy0Pf(2!%!!@~# (+!n`P~0ˇw66 6 !J9~w ~ w<6~ =(@!86P^()IO #~ #~~ :!_^#V!H,h:,(=2!~ <2,+!,:!i!90w~(U W#T]6P W~ >( W~2~ 2 1:(2: (*: ("~<(D6#6+U6 # ~Dw666> a!I> a!^> a!K> a!>a6:G:(! ~Dw6666P0696nfPV(W< %8~DݶE(+ >( Wq 07%8u=t>: 0BGQV]ciluz"9AIRZ]bp#     >SCRIPT ver 5.6 27DEC82 Copyright by Timothy S. Williams[A!#>2$*|( >2>2q:(: ͈:( : ͈!,,> w> 2,!"/L !-"(5 ʷ! > a!> a! > a!'> a;! > a!(> aq!() :*!*6 :(E!~,# ~,(##!#~ (##~O#!$#~( #~ #~((>L2m!::6 !::_25~ !: #> !:  ( #:(:5<25~#~ ( ( ( :mL>R2m(Xb:oR[5:#b:_:S3!*[-!)~ (D ( (&  ##!> ~((0##}Ѹ(8> i&"3!*E( 2 */#"/*#":r ,L!("(!>!(:E~!iݾ(#ͬ`!("(`!2r:=G:n͉!b~ (W~ (oR=[5x?_R:#!b:M2p~ k#~;s D(>d(:T(?t(;P(Cp(?S(?s(;,(< s 08: #> #$#%#>>> ( :(~~ s ((!A8[8G# #2p) ~ s # #>2p) ~ s An [ 6 #:nU A :O:<2>2n> Or;>L!:t(T!:(!:8G*~O@~O@:)O@P!:qX!:2~ (!+~:w #w+> 2#w#:E:()!,#>+2G!:>1w#> w!:#*>12: 2:R n :M~n n :p~n n K>y+n :*[3_!*~ !*!**+~# (+":~# ( ~# :*[3_!*+[fRMxB y8+O͛ *:~ (##~ ( ~qO# qyB >.%Ň8aW{_??0(8 G͛ B #~ :q>9ff2 : 2:R(9fn2 *> +6 *:[3_##:w#6 :_*:w:Gy@S3!,,6 !,6 [dSdxO  ( (˯ #  (~ (>  N#FL2qX ʷþ>2:G:n:͉*~~y :) 2n:X( 2X2!"*#"W P!7:(͇:=2(P!,:(͇= : :v:yG:2:L(!3!4:*:2*: :32 :523A 232 2*:!P!:q( X!7!P*/> 1(> 8:0>-*>-*>:!8R:O> 8 :(L:2uL!:t:q( X!>2Y22w2x2z2{2:2*|:|:O:t0<2P!,͇:L(!6!5: :U ~( ( a8{0ˮ#! ":*[3_6 V^<~ A (6 ( (&F(#N(#N( ~ (5 F(~(>_>N(5~ (2 2l2*2+2,2-2.22<2222222n2o!"""d:2-2):2*>2>M2! b!mk:t(:<2:t( 2tT!:0 :!(P!7͇P! P!:t(T!:q( X!!)"h~ ( #>2 >2>~>5 F(N(~(>_>*0Rҍ 4!<P:͇:G(>R2:x2y:{2|:~2>L2:w2y:z2|:}2:(: > O**[R [*R :22:([z >22!b~ sʴʧ:(*-:l_("j>2:(DS3*!*6 2:([j[-!*"f"+*-:_R}<2o*h~ #"h W ʌ~ ( ( ( ( (#*f*R :*[3_R}:323:o<2o[f*h"h> Sf:(+*-G:3O +* ~ʧ~(j(}AE.(@!(2y;;:y;;#~ ( >2 #~(>2 #>2 #~(>2 #>2 :=~;#~ s08:I;(uD("d(T("t(P(%p(!S(Ds(@,(QM$G%R(8 > :o<2oSfS+*h~ W ʌ:>2i+~.( !(?i> Sf:o<2oi2#"h[f:oG!> ~((0#x2oSfS+i2#Sh[f:oG}( 8> SfS+x2oi>2*f+~ ("f#6 :. !*8~((7(E# !8`#*<*:(E!~,# ~,(#!#~ (## > > K!$#~( #~ #~(( :(:(( (H("!6#6 #:.>   > :+ V: X!,##!*~# (+~# a8 {0˯+ˮ# !#~# +6:>2vU 2v? !*: ˇ2 : : : ˏ2 |2 >2 >2!*:_:~# (+1<File " ", line &- @P -& L<< O!:~ (#>.!B~ (#,xxix,xxx,I   A ]@= &TABLE OF CONTENTS& &Section Page& '@^\%~&_. @^\%~&_. LINK CASE HEADING LHEADING LRHEADING  PARASKIP UTABSET !TITLE "PREFACE CONTENTS t"LMARGIN RMA> 9` ( ʷ>2r:ð::G}!x&}2)*N@N@:)O@>2n:r <`!2rq>2>2*|~ 2z2{2|:2}2~25>  > :2}2~2x2z2{2|!56>2:2RGIN - INDENT ]INPUT SPACE !FOOTING LFOOTING RFOOTING SECTION CHAPTER APPENDIX CENTER JUSTIFY EJECT hPAGE -SKIP y!SIZE !PAUSE ]FILL NOFILL COPY 9NOJUST SETPAGE/2>2n~ 2w2x4 > > x2w2x!43 (2 : 2 : ˯2 ~ # (-( + #} #}D2l> 6 I(!(ï:u ~0:z{dO ~ (#6 I(!( > SETSPACE SETCOMM v BREAK END qTYPE REMARK LINE rALIGN dSETVAR INPVAR READ SPECIAL !FORMAT IGUTTER ?OGUTTER CPI ,IDX POSITION sSCRIPT 2>2*|~ 2z2|:2}25>  > :2}2x2z2|>2n~ 2w4 > > x2w>2*!*6 ~ # > :)O:*O!*:)(=_T]w!*>2:rq!6 !~ ( ( a8{0ˮ#~ SYSTEM WORKA SYSTEM WORKB -./02~L(R :G( :G :n  :n h͉:?G:nœ͉~# ( (+!": 2 2 h:( 2*>2Ö> bk6.!*:(O (K.(#~.( (9 (5#!6 ~ ( (.#~ ( :(8: 2> O!~ (#>.!~ (#> L!L ( ʷí!"/!-"~ # +(-(}o:#:) #:)2)o&"_T]6 * B8 dB8 *> : X!*#:2)_S-:2*2l<22:+:> !#: :(:k~:(#: :(:k> Q:> : :(:k##: :(:kQ>2: >2*f6 !*: ˇˏ2-2l: (2 : 2 : ˧2 :n:G}OO:O:>2n}2> +6#6} >G::OxG͉>2>2n>2!/>22!Y͘:!":#\)q ~, ~ (30:z ˮ~U( L(M2 >2++:bw#>,w+:nU : > !:> +> w*!*6 !:: |2 :*:2*:5232*2 >2 >2>2:2)o&"-:2*2l *!*6 !*:)=_*~.( ( ##<:+ 2 !{dO;}> !;y( :t<2tM~T  ʷ((þM#ð!))> wT!)":t<2t '("(~ ( ,(## (G#~ #(~(,# *|~ 2{2|:2~26>  > :2~2x$     2{2|>2n~ 2x3 > > x2x~  #+(-(}=o:#:*#:*2*o::~ # :t2i}o&"~ # :u2j ~0:z{dO!$$#~( #~ #~(( #~  ~ (%l;N_swygrpF I    /  , k  ? T w  qtAe5<b~BE`,>*-?Di #@^ 5Mdsy !(R04>[dz{~,("-{22)~ #~,({22*~ #~,( {2~ #}22}2~} >G:n͉} >2~ ($b ~ ( (#:g2k:h2lb!m  ~ (, #|}ѹ@O .t7EJQZ~  . 4 l s  !!$!*!z!!!!!b"u""""""#G6v}O6H  " YB Y sa|""q "" "0!O>2:<2: S22w2x2y2z2{2|2n<222222~# (++:cw+w7 > :2}2~2>2n22<2!Y͘:":( :(!":q(X !9X!(" X!> 2#!*6#>2!7:gw#~ (#> w#w#:b: d"""Q2 N LRUy!rI? ( Y1+>T"?"Z "}"B"!9%K"\(E"_+H"; .!h5=!GIR!d ` V unTn q / OO w#>Sw#> w#> w!7>2XPRINTERn7%"0R<&o!4 ;2x22*2y22}2~PI~ $($~ %((7!~ %((T] /2~ %(#~ %T(PP(wU$F$W%C)%R}%Oʟ%08:F%!>a!>a!>a!V5!NYKF 08-#d ] "!@ aKS]zjEX _z";"! R1Rn1Z # 1' dRN g4 ' " xWxt*$uA )"o[>a!>a#~+R( ;2x22*y22}2~>[>2ï##~+I)% ! (18 501 G: x%2 #!&#> a;2x22*y22}2~2x2G;2((((2ï#!! !!#">2ï#2ï##~I#22>P22*>822}2~2M~.} ,"*  1d /" g q"KB( s  k"s!?% n"v!p 2"F 5" j 8" I m  z a 1 &"F#   p:!h L Ds\CgO!o rQ LQd! h"p!;"""" ï##~A( ( Oʧ%=ʧ%#>2ï##!x&#")ï##|#"~08:0#"[R#ï#~08:0 #}>2ï#>2ï##~=(##~G#22&ï#!!*9:(2P ( ʷ*x X t p m =` I "N" g  *%!ZUQJkeg 0xv LR9 [_NK j"% Kb 0  {r u 3 *Ufx }} "!!  jþ!!#> w"'Y""!!  !~!! m :W|bg0%"_ ' oEBR5 RlZzs#:<G & z sk:G"""X9 }{*6BNZo5$)#(4CU!Z 7 c l     , V 7 -2<MR[`mu?q "_#d#r############6$>$c$i$$$$$%%%%'%3%=%D%K%P%j%w%{%%%%%%fr~&2>JVbnzA�#6#@#D#G#J#N#Q#T#g#y####$$ $$$'$*$3$s$w$z$~$$$$$$$$$$$$$$$$$$$$$$%#%@%S%m%q%%%%%%%%%%%%%%%&& &&&"cn+& R;F" !=%     dnc`fXU<| L C : O30i D &_B9g Y  pfciI NRVZb 7 _4 8 .= #"_"[) |>"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]#~-( #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\bhtUD  > H ͅ> ѷR}GV̻f(8( ʡ( +ʱâʖ+âV ͻÖ~–¢#Ö ^V˷RR> #$A > > #ͻV( ##p#NL^V˷R|(O+^VVf#ͳ@z'5nf6  ( (w#6 IͮNè^V!›'fnuKtLnf#~ݾGnf~(W#^#~#(^>%#$p~ ( IͫNIͮNI6>6[^V[H+>(#$ͳ@^V~(G#~a8{0˯#> nf##V#^znfV#^#^~O>#$nfBut6# V#NFV(^#~+( >  ~ #z $ nf#V#ͳ@(9  ]nf#~#Ox GPOnf#~#Ox GLTV̻xBKWE nf#^ut #$ V(%#~+GnVͷRDM~`@>(>8>Ͱ +q+pͳ@~,#(~|R##fn^Vf#n#^VR^VnfRDM!utsr6#p#qnf~> #$T]#F#N#ut^VѷRDM!sr~ ( ^VRff| }(~  (##ͻ6 #6 #7 i ~ ˿( ͳ@~(G#N3~2GN#o G ~ @cJ^V@#ÿ́ ͪ ("('( 8x>( x> (5>x>ʽ  #n#^V~` ~#(^V͙"͙͙(! ~! ^V(9U~! ~+^+Vnf~#ng R| 4(!! ͳ@((nf]>]x( G|}xV^nfͰgo(!V^V^NF ý 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~ M(L 1p<,ͳ@(~#3 8>w2(O62u3#\0!` ###~ (PV;n## (N #:~N (&7+^VٷR^ yF(~ :x   (y x> (A(I (y(Nw; (~(G~(~;  ^VL x    & $O ( %  &h $yO,~(y % >  >#$]JVѷRDMͥ^V! (`i< >#~ ^#VnfNFϷBR> #$nfNFBDMnfR!RͥnfN#:nfutnWfXuWtXM$a8{0˯$U BASICUSRͽ#|E>#>+`@(8~(j#(((>)#$N#na>f( ͩf (Oxy (>#$"~((  8#N f ~x#6#6++(>͏>##n#$+++v#$ˎ##nfA#6#nf,(6++ (nfr>"^VͧKnf0~ (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< {< nfT]6f(ͨͳ@ͅ( 8Nͅ ͅ|}f ~ #CL͏ͳ@(/8*N# @6##n>##$+++~#$##<LKnf6T]#v>##$+++~#$##)͏SnKfL^V~ >$##O N#na>O``y8 (*  ;)^VR^Vnfut~#$~#t(ds({́>>(?N~(o&``> }nf˷ w6#w+>">#ͽ#|{} {G:8ͨxN~(ͽ#| M N~(ͳ@(>]DM~#t(0s(B́~ #+O@ͳ@( 8~#f( ͩf("~O(  (#N ~^VRuKtLf½~ýf#n#uKtL?>#$~nf~(G#N+ F(##s+++s+renf^VRDM+!  nfutnfutnfut6r#s#p#q###q##T]s#r~>]}ͨ~ #+y~# +~# ( t(!s(H́#>TE>#1ͨtxTg.~ #o#t T~ (ͳ@((>]}N#T] 6 6I.~(~^V#(!Gͳ@~#O^V>y(͆.( :# > y(~.( :# y(S# y( ͆:(# > >y~:(# # (y> (͆# /^V]> !!~N#~(  #~#( (151G y Oy =^VO #(͛PY#~(1^VGbkO(ơPY^VGbkO(ěPY^VGbkO(w( ݾ[ԛPY~~#(##w(#_(#F#N#F g(V#^#F `i$ZDMV#^#zO^VѷRD+F~w+FM~( 80~g(>`Gx >~ >v >G~ n(v(˞~( x(X(˘F(## ~a{˯#6##p+ (" &GM~ G~ x<(G:>8 >++(&(!@(( ( ( -(("x#>#DUMMM+NFM x R^VѷRDMM #Ͱ ;O#~(o~ #ͽ#~#( +ͽ#}>#$~`@>(>8>#~(O~y +#ͽ#|(/DMo~#}(+ͽ#z(}~C>#$̓F`i #g(CONSOL 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( $Zͳ@G(( nf]>]s!!G(. x̓̓wwݮ‹B f( R(>#$`iF #f($Zut~)8KNF!>s! x ~(#ng##>s!##NF qpx ݮ8nf$ZDM&     V#^#]nf+ut| ݮ8 nf)>]r#s#nf+ut| z1 zXz zýzͰ(>#$_(~#(F#N#gV#^#^VNF G͙#;f(FͰ‹_ʋsr!F(,uRutnf^V6(6,Gx(70~ (h&^V>[{M6]#6 #6$ $nfNFͷBDE$ at location xxxx ESC-CDivide by ZeroOverflowUnderflowIllegal NumberSQR of NegativeLOG of ZeroLOG of NegativeInsufficientutg(sr^Vnf|( nf|g;NF nfG(utg(, W _ nf#utR!F(,ut g o^VsrRnf;f #~#(^V V#nb~(#ng##>nt MemoryLine not FoundLabel not FoundRETURN Stack EmptyWEND without WHILENEXT without FORInsufficient DataInvalid File NumberRESUME without ErrorInvalid AddressInvalid SeparatorON Range ErrorCEND without SELECTType MismatchInvalid Zero Dimensf#~#(~ !;>f(~ (#znff(###V#^nf#R0;ͳ@~^0V1N#> Iut7utnf^V׷RutDM^V +sr!N0F1B0 N0F1ButDMn0f1 +srionInconsistent 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 CodeP |}d!#8FNF^VnfnGfH97ndfef nfnf8NF^0V1nf!N0F1B#2>!N.F/I^V(.GO #((w( ݾ[ PY<7wpqrsturogram 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'/ ~#(!V .v(~(^(&V^F f(V^F  F $Z DMqGnfButnfButnfButnfBut^VnfӷRDMRsr%^VnfշRDMRsr~(W#^+|}##^nfT]B1V4H0z'?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˯~(( #~ ##utr#s#V^nfѷR0B ~(~ v(~[ ~ ^(~ ~ f( ~ ~ bk 6(8  |}N1"go##~("O++^VѷRPYDM+srnfutnfutnfutnfut6>DDII EOEORVORVOF ULOULOF KOKOFPOPOFFOFOFBOBOFEBEDD66 ; )|)}=)wz){=)w6)n&>nf> C^V~(AO#~ # &~ () ~ # > [ >>nfutPYR(F#N+|}##N Ny qGnfButnfButnfButnfBut^VnfӷRDMRsrnfBsrr#s+|}N~#(~i#((8NnfѷB+++ut#p#q##>! C( nf͠\>^VZѷR+s> C nf]~ /^V$P F+F+FÅ+Ϳ?!/9U~!Y 1/W(^??)/9U~(!Y1/W(^T] ?9UY9U)/W(^?)/!VT] #ͽ#DM~#>( +ͽ#T]>($nf#F#N#^Vutnf͌IG͙#Ͱ(~`@(8x_G>#$͙#(((nf]>>]>s!ͳ@(YGU>]>|!G~,p,G~ݶ(:(F 4p^Vnfݷ?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-nf ((^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(%  C(^>]} 0>0{M>:nf5-#60#60#6:^V%6> C^V~(dO6#6#6]/!V^V]/!V^VGU]^VGU>!> C~O>^V62UU.U  #x8(#(@("?(*(" # ( (~U ~ͻ5  (*(%  (5 (58 P#( @ ~ͻ5 @~U 8# y448(# ~U(@ ~ͻ5(y(44?44$U a{0A*(%(#(@( ?(A7*% 0bk##6.. +w+w+6/|.u.2UU.|.u.2UU.|.u.0 f ~Fwp~.~. 0h ~ ~=0S!._~=0C^V0 f ~Ͱ+>-~Ͱ+>- ~Ͱ+~Ͱ+~Ͱ+6nf6> 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 # (d`feFm/%m/<m/%0m/<0DDz {0G>>7n;&>70 C~8K^Vyy(#>70} , C^V~8 < O>7070} ,U C{(~8J  C^VFx>#~a8{0˯>7~# nfw> y>(A~#(( >^Vw~(( ~(yD Cut78nf} %- .ut7v8DMDEqp C^VNnf^#6Vy>nf6 Cn&>7070} ,{0><_/D|(!|! C͸0͸0E C^V><0ON#x( y> (~# yGx(# xF#x> (~# (O^V+Rs>D|(!|(!|.0^V##0 nf! ~#(P Ay(~#(;(7 T]~#(( (+nf~w~(#nfNp ~( +ynfw>^VNFnf6x(\#~# +>  yNFAOx>('x >޾(.=+w)~#( >+ >ݾ( 8 G~# x nf~N#y(w1!ut!?V͗YͣVAYOw+N+ͣVAYw!F!1'+|X Y>Ɂe5qY C( ~(#~|( |!(!!> C#~+( 1GU(^>ɀ2W(^!V!9U>O~( #nf$w (( y^V( nf$#nf> Cut7v878j9N!>+D͖++D|( m9^(##F++M~(#n&>0n ͱ9hͱ9iD| >m9CM~( G;D9>~N >&#$DNF :29U~>29U~> C^V ] Cnf ]nf#6#T]6D}> C(nf]#~+(GUG~(xw(^~(Dw>3L8G :>3U 80*O)8*)8')8$ 30820O C^VN9>ͣ?~>#~˾+>#~6Ϳ?? @:GU???W? @@GU@wx( :!V>ɀqW(u%8"wfhͣ?s;!V͞@%;|%;~( @8yͅ@S;d@͔@Ϳ??k;h@??9U??GU?W)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~ր+;ƀ(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ͣ?\=!Vf] nf]>@A"AUA+AdAmAADAAAAAAAAAAABBBBfByBDDB08@%00O!' ^#V~DͮC@ DyDDMO>( DPYDM>##~(͌I8 V#^~>(V#^## 0 CYGU>]> ^VutDM6#@}( Y)@ͅ@=h@??|=d@͔@H=Ϳ?@??W>Ɂ'29TG5`7(@wABRvVI18g8cyfcW Q558'QFVSͣ?\=!V͞@}( Y)@ͅ@=[>h@??C>d@͔@>h@??{>w#Br#s#NFBr#s#( G~#( 8( ^#~#(#ͰG>+#$x#$og^V~#(O~ #~ #~#(x>#$4[r5[nfx@Fnf CutO~`@(8ByG^VN>F:y(G]^V>d@?W>ͣ?\=!V͞@}d437`9AY0idH2Yceep$'tex)9FYtVp9r420 T1E#4)9FY4gw1% iQsͣ?#~˾+5?9U~ 5=?9U~ A@"YGUͿ?Y9U?Wͅ@?h@??mCy( G>]>Dnf4[5[s!nfѷRšE4[~#ʚFnf^VͷR!9nf۷R}MqGnfѷBut6#Onfͳ@nfDM#~#V#^# utV#^#NF ɀ!5b71ABV#s9c9tW2g#r"f p32p#@(804#rh(91#!He5!?>Ɂe5 C^V ]> !!>#$r5[nf#N#nf۷Bnf ut^VDM ~#V#^# utV#^#NF GF C~Dnf^VϷRR> #$B#$!SHnf~w#$($UNH (.(:( ($($U( U(NH> w# (.( :( (!SH!bYY9U!9!YW GU?!VGUͿ??!V??!VͿ?ͳ1?)@?>]^V6 ( C ^V8N~˿# YDO!D ~#fo:( ( (*:( 2U > (w#/w8>7BASICCOM NH6͘G~8.6͍H(*~<w 6 >7nf͍H E6pNN1~ F^Vnfz(%nf%%R8 ^#V+pN> #$+~ ^V 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>>> >>RDMnf utϯnf~(F( !fnnf6#^VutͷRnfϷRDM^VsrnfutnKfLuKtLͰ(D~`@>(>8>wݶNF  ^VѷRB8 wwݾ>#$BKf(#$JHJ$J>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(#~nF $ZHJ $JHJ ~z>#$F(z>#$ g oR>#$F(+F($Z#͏~ K#^V>##~#+++n( ###ˮ+++~#N## #FM~ ú N "++ί^~(6#(&( &^~#G(^H ^ fq>ͮC@>ͮC@ C>]~(((#8^sr fn#Ͱ _(>#$#~(~`@(8x8!(8V#^|>## V#^!(!Y(8NqGB+ +u+t+wqp CO CG( (n^##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((#-!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> ~# RxDU( A8G0O)8)8)8 )8 H !U $)| DM)| )| | O |(7ɷDeMExnMx 80ɯ!M~(#O#F#>/B<0 0  <>0'd nfut~(B( gntunfutnf?(> = ι0A08:007A8[0A7 @X~_V @XV^ݾ qX{|XwqXrqX˺˻X8 ͊XͨXxx ͒X͎Xyy~і( VGѯDYbk  U'+~ V 4VDY V'+ Nutnfutnfutnfutnfut~()gnB0 tu |w#}wn&nfrututsrsrr#ut6 6srpN66263?64 6<?T]6nWfX+ut6+ut66[nf+utr YʑY(Xyw |XcXw X@XݾʑYʑY~!utV͒X ͗Y AYͣVAYN+ͣV~(AY~րO~րV WØV Wƀ(XwcXVVVV^Vɯ'+! ̈́X! ˾++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ẍ́XGRY(Xw X@X0XݾʑY~V͊X!W0 3Y͈W3Y͈Wy/A~րO~րÊV!W8 !W!W8 !W!W8 !W!W8 !W #~°Pf 4f(4#…OðP~°P~ y~^ r i4#`f Z4f K x(~ #47v ~ kP8P~PkP8Pf( v( ~w( o( W( ( ~ݖwn( ( D݆wNS '+~#~w+>#õY>#ÑY>#õY>#qXutnf~G怰ẅ́XVˁ̈́X^ˉ@XXqXV^z {~z~ݾ{##>ݖ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(><#N#~  (+3Y#~ +q#8#7 o+#g# ~'w+#~(0_(w#)T]))_|͗YqX6#ͨYqX6#6#ͻYqX6#6#6#z | | ZZ ~(?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. ~#Z0?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>#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~!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$P'P.PPPPPPP^QeQQQQQ R*RS5SQSiSSTJTMTZTjTTTTW]PIc+3,Hh" M  9 D u x ,6H^Q0;BSl  y(4]y DO >0ѷR}Gw>.n>,go~ր8c(aG> 8DO~#ĸ]~#́Y ĸ]́Y~(!R(]%|(7!(!>#~͚Y|(=|(!R#'^#^d^# ^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( ('';;&((''{o Yw=B<0 o~(->ݖ8&($ 0$G>_;#(~w#8(6#͗Y(>>=<|;::>>=<;;:5:|*<;:K:P,*>==#=<;:Z:*>D=<;:I=;:{+(+N:9: +**>==&=;;;::A=<?>=.=;:>===;:>==;: ?=4=<;:$>==<:@m U H b `~o/5x)J.>A %j$+48Dgj0CJORUX]fnvy|L U  2 5 j m    :   ! % A  7 }@Kak&>Qgs*-?:I977"7666u6+644W4I43{33|2:2 211V0I00///-P-,8**)((((](999t9k9776/663q2080r/n/s)o)(BrDDDEEFFF GlGoGAEXCIC"F/+F/tVo  Bh3k###B"V qFCH#\#DII { 3jJJK7B .FPcfpu)KlKRa]ciou7%?g()))))))g*o*y*******B+q+w++++,G,,,,,,,,,.-{--- . .#.,.5.<.E.N.U.].|.......PKSKbNK@LoLrLLLDmB@k@?> <;:e:C:21--,r,RaKBB?@>>>;;;:221,+ +****]B@@t@>=<<<<; ;:~:1-~-,J,*BX@?>>L=;;:T:1,***<">= =;;*DuBB B[J JP .:/E/P/_/////!0%050M0Q0001V11122222/3E3h3333454\415M5U5j5~5555555G77777R9U9X9[9^9{999999:@:{::::::;,;;;;;;<<<<=)=;=======>>>>>?$??n@@@@@@@@@@@@AA A&A)A;A>APASA_AbAhAkAAAAAABB,A(Bo **F # #{io@ ###) *#hK#FDC@-,~+/++(:%<T#EDD?;62S262--x-,l,D,F*( ~ MK211 -***$['[~[[[[[[[[-\8\N\U\\\\p]|]] ^k^223ZZ-+;] [ZZ;X3X+X#X'<<;;AAAAAAAAAAAAABABGBgBzBBBBBBBC CCCCCCDD!D#D%D'D)D/D1D3D5D7D9D;D=D?DADCDEDGDIDKDMDODQDSDUDWDaDzDDDDDDEEE F>FHFFhG3 B !!"d##GGGG_HfHuHHIIIJJJrJKDKIKVK^K:UHUZUaUhUqUyU~UUUUUUUUUUUVVVVVV"V)V.: 3*eLL=L8LLKKKK9K4KJJ[3H* _ =dDJ6J)JIHGG#G~ELEGEcC96y'O]\TOfxpS)  x^4($((''''''!$B$}$';'&HHH6 O(Q1Q:QST3T5MMZG5/VGVJVVV^VaVeVmV|VVVVVVVVVVVVWW WWWW$W1W9WIW\W_WjWmWWWWWWWWWW&X.X6X>XXXXXXYYYYYYYYZZ+Z1Z?ZGZJZSZYZ_ZfZZZZZZZ[[[/[>[O[Z[b[e[q[x[[[[[[\\\\\\]c]x]]]]]]bMkMMR$`$x${''NiOOOOOOOOOOPr5)544{42K.2.--GG5HH./.- P (      ÖL =>~,T"V~(50~ (<NFͷBDE6>#6utE>T"~nf#_!@^#V=)%%P0IeR41 .8 V`%%X0I0I M0I:%%%%%P%%bnUD  > H ͅ> ѷR}GV̻f(8́( ʡ( +ʱâʖ+âV ͻÖ~–¢#Ö ^V˷RR> Җ"A > > #ͻV( ##p#E@^V˷R|(O+^VVf#ͪ4%5nf6  ( (w#6  =ͥBè^V!&fnuKtLnf#~ݾGnf~(W#^#~#(^>%–"p~ (  =͢B =ͥB =6>6[^VR<+>(Ö"ͪ4^V~(G#~a8{0˯#> nf##V#^znfV#^#^~O>ʖ"nfBut6# V#NFV(^#~+( >  ~ #z $ nf#V#ͪ4(9  Qnf#~#Ox GGCnf#~#Ox GCHV̻xBKWE nf#^ut #$ V(%#~+GnVͷRDM~`@>(>8># +q+p^ͪ4~,T"(~|R##fn^Vf#n#^VR^VnfRDM!utsr6#p#qnf~> ʖ"T]#F#N#ut^VѷRDM!sr~ ( ^VRff| }(~  (##ͻ6 #6 #7 i ~ ˿( ͪ4~(G#N3~2GN#o G ~ @Z>^V@T"ÿ́ ͪ ("('( 8x>( x> (5>x>ʽ  #n#^V~` ~#(^V͙9!͙͙(! ~! ^V(uI~! ~+^+Vnf~#ng R| 4(!! ͪ4((nfQzQx( G|}xV^nf#go(!V^V^NF ý O 0x½ y ½ > V w;V½ ++ί~)I f >T"~``(0@(Nnf QO (b(_ ([, (V>T"nf6#"('(, ( ( (w#+~ (#O (  w#NFB} `ixf( f(>9!V^~ R| V^nfV^nf#( N ̓IfnNF >9!^Vnf ~ uI~ V^nfF#N#~#(#^V fn^V~ ͪ4^Vͷ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~ RtufnNF 9!fn^Vͪ4Gh x( 9!##(zQ| ( :%8}J">ͪ4^VNͪ4^VN0"0"nf$F#^VOnf#KKKCx(8y8O (A(I (y(Nw; (~(G~(~;  ^VL x    & $O ( %  &h $yO,~(y % >  >Ö"T> y(=+y( 3+ xG3(w#x(~#y( > z(z~ ̤?~y^VV(#~+^G( >  0F ~ M(>,n(>;2xV  ;xx0 ͻ(0ͅ> #~ ʡ N#V ͻ`@(8~(j#(((>)Ö"N#na>f( f (Oxy (>Ö"9!~((  8#N f ~x#6#6++(>͏>##nʖ"+++v–"ˎ##nfA#6#nf,(6++ (nfr>9!^V͞?nf0F 0"}( V(^(-x+0> V+ͻ ʖf(aV(x#w+ͪ4(q(Z~(0O#~ (' +~ ( #~"('(n(;,( %NͅF#>"x( ~#" >"V~(ROͅ#G|  > ͅO ͅPT]#~-(T]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ݾ[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~`ͪ4~#O^V>y(͆.( :# > y(~.( :# y(S# y( ͆:(# > >y~:(# # (y> (͆# /^V]> !!~N#~(  #~#( (151G y Oy =^V@>(>8>#~(O~y +#0"|(/DMo~#}(+0"z(}^~ö>Ö"F`i #g(`Nͪ4G(( nfQzQ!G(. xwwݮB f( R(>Ö"`iF #f(`+F~w+FM~( 80~g(>`Gx >~ >v >G~ n(v(˞~( x(X(˘F(## ~a{˯#6##p+ (" &GM~ G~ x<(G:>8 >++(&(!@(( ( ( -(("xT">T"DUMMNut~ʜ8KNF!\> x ~(#ng##>##NF qpx ݮ8nf`NDMV#^#Qnf+ut| ݮ8 nf)zQr#s#nf+ut| 1 X ý#(>CONSOL 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( Ö"_(~#(F#N#gV#^#J͌^VNF G "ͮf(F#_sr!F(,ututg(sr^Vnf|( nf|gͮNF nfG(utg(, W _ nf#utR!F(,ut g M(L 1p<,ͪ4(~#3 8>w2(O62u3#\0!` ###~ (PV;nT"# (N #:~N (&7+^VٷR^o^VsrRJ͌nfͮf #~#(^V V#nb~(#ng##>J͌nf@#~#(~ !ͮ>f(~ (#nff(###V#^nf#R0ͮͪ4~^0V1N#>  =VѷRDMͥ^V! (`i< >T"~ ^#VnfNFϷBR> ږ"nfNFBDMnfR!RͥnfN#:nfutnWfXuWtXùA$a8{0˯I BASICUSR0"|E>T">+ut7utnf^V׷RutDM^V +sr!N0F1B0 N0F1ButDMn0f1 +sr |}d!#8FNF^VnfnGfH97ndfef nfnf8NF^0V1nf!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^VnN0F1Bږ2>!N.F/ =^V(.GO #((w( ݾ[ PY<7wpqrstu ~#(!V .v(~(^(&V^͹f(V^͹ F `N DMh;nfButnfButnfButnffut~Ö"~ (ͪ4((zQB}BBN#T] 6 6 =.~›~^V#(!GO #(PY#~(ͤ^VGbkO(oPY^VGbkO(PY^VGbkO(w( But^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ӷ=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~!RDMRsrnfBsrr#s+|}N~#(~!((8NnfѷB+++ut#p#q##0"DM~#>( +0"T]>($nf#F#N#^Vutnf̓=G "#(~`@(8x^_G>–" N -RKdR5IfI-uI~(! N-RKdRT] fIuINuI-RKdRJI-]JT] fIuIVIuIzQut6[I( zQ} 4nfp- y >݆_R(0_unf#y#*~#*[IzQ}#*0 f "(((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 x #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>!>7xxx 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 w(~ʲ+|ʲ+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^Vithout ErrorInvalid AddressInvalid SeparatorON Range ErrorCEND without SELECTType MismatchInvalid Zero DimensionInconsistent UsageSubscript RangeInvalid UsingFile is ClosedFile is OpenInvalid File NameFile not FoundDisk FullDirectory FullPrQ-]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 otected 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 no~ ~=0S!o-_~=0C^V0 f ~#*>-~#*>- ~#*~#*~#*6nf6>d`feFn;&>[.7~8K^Vyy(#>[.} ,7^V~8 < O>[t 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~(#~.[.} ,U7{(~8J nf67n&>[.[.} ,{0><_ .8|(!|!7..E7^V><0ON#x( y> (~# yGx(# xF#x> (~# (O^V+Rs>8|(!|(!|.7( ~(#o&>86#s+>7zQ>7Q>7F#6x(:'~ 1w#Aa8{0˯~(( #~ ##6>DDII EOEORVORVOF ULOULOF KOKOFPOPOFFOFOFBOBOFEBE8866 ; y'|y'}~|( |!(!!>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~nfQ>755L5"5[5d548555555555555666]6p688608ü4%00O!3& ^#Vu8ͥ74 8y8DMO>( 8PYDM>##~(̓=8 V#^~>(V#^##D.7N̓IzQ> ^VutDM6#w#Br#1G#~ #t~+(- #(g~ I #Un ., #(?~ I #6E &A(3#(/~+(- #("~ I #y(~ #A(!!>77F#O(x(%  (#(@("?(*(" # ( (~ I ~_2  (*(%  (r2 (r28s#NFBr#s#( G~#( 8( ^#~#(##G>+–"xʖ"og^V~#(O~ #~ #~#(x>–"4[5[nfx7:nf7utO~`@(8By:^VN>F:y(:Q^V>Cy(  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# (:zQ>Dnf4[^5[nfѷR‘94[~#ʑ:nf^VͷR!9nf۷R}Mh;nfѷBut6#Onfͪ4nfDM#~#V#^# utV#^#NF Ö"Gnfq>7^VN7  Qnf ~G#>ʖ"GCѷR+s>778|(!|(!| .O(3~8(< GO # (  7^VFx>#~a8{0˯>3N!>+8͖++5[nf#N#nf۷Bnf ut^VDM ~#V#^# utV#^#NF G:7u8nf^VϷRR> ږ"Bږ"!J w# (.( :( (!J<:( (8|( 3^(##F++M~(#n&>0n >4h>4i8| >3CM~( G;8n4>~N >&ʖ"8NF 47^VNn4>^V6 (7 ^V8N~˿# P8O!8 ~#fo7 LN> (*:( )I > (w#/w8>7BASICCOM E<6͏;~8.6̈́<(*~<w 6 >7nf̈́< E6gBBͤ~ F^Vnfz(%nf%%R8 ^#V+gB> Ö"+~ ^VRDMnfQL>ͥ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 utϯnf~(F( !fnnf6#^VutͷRnfϷRDM^VsrnfutnKfLuKtL#(D~`@>(>8>wݶNF  ^^VѷRB8 wwݾ>–"BKf(#>?>>F  =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>ͥ`N?> >?> ~z>–"F(z>ʖ" g oR>ږ"F(+F(`N#͏~ ?#^V>##~T"+++n( ###ˮ+++~T"N## #FM~ ú N "++ί^~(6#(&( &^~#G(^H ^ ^##74>ͥ747zQ~(((#8^sr fn## _(>Ö"#~(~`@(8x8!(8V#^|>## V#^!(! N(8Nh;B+ +u+t+wqp7O7G( (nfQ 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(d8 8&rAF>05>%nfP#H~-(> > FF66xwC~!([\(D'wC#(P~˯L(6R(6C(6E(6)O4#( ~˯(#wC4 ##N#~GV B0OF N y> (~# Fy> ~# Fx?(>  A8G0O)8)8)8 )8 H ! I $)| DM)| )| | O |(7ɷD\AExeAx 80ɯ!A~(#O#F#>/B<0 0  <>0'd nfut~(B( gntunfutnfutn= ι0A08:007A8[0A7 >,Ö" !!|L~_V |LV^ݾ ʭL{͸LwíLrʭL˺˻ M8 LLxx LLyy~і( IJGѯ̀Mbk futnfutnfutnfut~()gnB0 tu |w#}wn&nfrututsrsrr#ut6 6srgB66263?64 6<?T]6nWfX+ut6+ut66[nf+utr+utr+ +J'+~IJ 4VJ̀MIJ'+ NHMMdLyw ͸LßLw\L|LݾMM~!ut$KL M }MJ}MN+J~(}M~րO~րJHKJHKƀdLwßLKKutr+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~§KK^Vɯ'+! L! ˾+xLG͎MdLw\L|LlLݾM~$KL!%L0 oMKoMKy/A~րO~րJ!%L8 !:L!%L8 !:L!%L8 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!:L!%L8 !:L # '+~#~w+>J"M>J"M>J"M>J"íLutnf~G怰wLVˁL^ˉ|LM>ݖw#6#6#~+(>̓I~0^VsPO- ~x @(vHVH@(n( ~ 5~Hy H~Gy(En()(%=640~~(F ~H>D(G> ~(>*V(>0v(>$~( >-V(>< ~(?yíLV^z {~z~ݾ{###N#~  (+oM#~ +q#8#7 o+#g# ~'w+#~(0_(w#)T]))_|MíL6#MíL6#6#MíL6#6( 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~#6#z | | Z-OZ0?Z0?|7O!RѯLNzG|LN|LN'8 | xLNx-O7OzG|LN|LNzAO&xLNz !|z(!tu6BK!85T]`N!0 V^`N5 !-(+( #~ʖ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 (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(!R+     JdL ݶwuíL| PPIP0x \LdLtLM^V0 ?nf~#ut lM~|L~6 (6-lM >0lMlM6E#6+~(ց06-D#60d84d#/ 0p#0w~րíLo&6QO sP~!շ(j >0 +^Q0;BS `U8 O9Zw;r3&5&9&M&&&=&&&&&?&A&E&&&U&]&&q&_&w&&Y&s&&&&&&&&&u&&&&&&&G&&&}&3&&| ~- #G(/Q0+~# y(@cQpQ4y0pQ>0 y(pQy DO >0ѷR}Gw>.n>,go~ր8c(aG> 8DO~#Q~#ͽM QͽM~(!R(Q%|(7!(!>J"~U H b `~o/543l3h3*33211000////.z.m.<. .--;,+*((/(3'#''&&z4f4?443p322p0/.\.'''i88~8}99:::;c;f;89O7QC:L/":@%Vo  Bh38!!." h:7<F#!8M|(=|(!R#'WR#WRdWR# WR{oHMw=B<0 o~(->ݖ8&($ 0$G>_;#(~w#8(6#M== { 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;3x)J.>A %j$+48Dgj0CJORUX]fnvy|L U  2 5 j m    :   ! % A  7 }@Kak&>Qgs*-///&,,++**(-'~ D?0K///+_)3))`OcOOOPP(P+P.P2PiPtPPPPPQQ RERRO+O+1*QEO:O0OwLoLgL_Lu(e@@4@/@????{?0?+?>y>3H* _ =d;>-> >=<;;!:u9C9>9Z7v4U3`O]\TOfxpS)(.4VWXc  #;TY #-jmv @'''( (((S((((())*)V)e)))))9*>***+ + +,+?+F+g+l+++ ,[,},,,,,,,,,,,,-9-D-Q-W-]----.E.I.Y.q.u.&/@/n/}//0R000011112u  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"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+      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 DEq<HELP ver 5.6 27DEC82 Copyright by Timothy S. Williams[AG7%R0!D>a06 6~ ʣ=~ O~1!" 8~$ (!'6 '!~ ( ( ('!=](81!=6!>a ;y2;1!"(!~$(% r>2<#~ (}2<~#FINE ULOFF DEFINE BON DEFINE BOFF END  (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  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 DLu4?fivy|#&*?LY^adhru3,~,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 vDEVOUT ; 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 ,     ?RENAME ver 5.5A 03JUN81 Copyright by Timothy S. Williams[A!bk7%R0!D>a"͆͆~(ʙ ~(ʙ ~ (~ +( ~T$W(ZD(^Q(bR #~+ E ##~++ A~ +N#~O#~++W(D(R(*Q(T2$>N2  %(+25?CFIMPUX]`hpx%(-039?EJMPSgn!&*.3GORX[cjmqu|#)/>CH\ag$>N2$>N2$~ 0~<>N2Ù*~(ʓ*G(S(AH#~+ ( / 2~(("2!!~ (( 6=: : : ::0~2!ͮ!ͮ!~@(#(?(#:QS2:%:!> @B[adgjqv} "),/:HM\cfuz}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 :(>SECTOR ver 5.5 23DEC80 Copyright by Timothy S. Williams[Abk7%R0!D>a~ g}~ n~ ʄ/2| ~ u|8|<!(:|`!`~^#V[*":=2 >2!"!6 z(Z!V(N !! >>2:!f: G: A: ;r! :2 f~ (O#X.X: FOv ~ n(~ *(#6?#~= #~ P#~ 08:8$A8[*!>a!>:|G ^#VS#^#VS*####"+*+"| !> a!>a!>a!>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. *A]`kv} "%+3;AGLPY,      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,ent attribute value SET 1,A ; Set underline on LD (ATTRIB),A ; Save as current attribute JR .WRITE ; Output string .ULOFF: LD A,(ATTRIB) ; Get current attribute value RES 1,A ; Set underline off LD (ATTRIB),A ; Save as current attribute .WRITE: LDL,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 IY,ATTLEAD ; Point to lead in .PT1: LD A,(IY) ; Get a character CP 0 ; Test if end JR Z,.WRATT ; BRIF is LD C,A ; Copy to C reg SC DEVOUT ; Output INC IY ; Point next JR .PT1 ; Loop .WRATT: LD IY,ATTRIBS ; Point to attribute characters LD A,(AT 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 TRIB) ; Get current attributes LD B,5 ; Count of possible attributes CP 0 ; Test for attributes set JR NZ,.PT2 ; BRIF any LD A,'S' ; Else set to standard SC DEVOUT ; Output JR .PT4 .PT2: SRL A ; Shift right attributes JR NC,.PT3 ; BRIF bit zero wis 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 neas 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 ; Clearxt 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 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  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 curr-      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 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),+,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  ; 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 ; . 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 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 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,.RVO 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 ; N ; 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-     =FORCE ver 5.5 06FEB81 Copyright by Timothy S. Williams[A~0o:o* &|P}=2-  $( A&[&P><2- _^#V>:-hN !P]:-ÂP:- _^#V". >h~ #m!0> aCGW x y *#" -%: : W J*|(=+"[:( z < :G! , !,[! :GS* |(i*3 #} `:G [( S( J!" >2 > 2 ! [3 :G !!  !:G ! > a"~O #~ #~*.4:-h*.6:-h6!0](B*.6:-h:6O!55*.!:-iVO>L>~ (~# (> >RDM*."!>:-i*.!:-iV60>QN!F>  ! [3 :G * |ʉ"3 É :!@J! 2 !J:>2 -5%:( mÛ - -: W!!  !:G :*(!9>2,: W #! 6 #6 !" ! [3 :G m>a!I> a!_> a:4!K> a!q> a!>aCSI :20O"!"((V(R  w# w#(6 w#w# *&.Ͳ (((7Ͳ2*Ͳw#ͲGy€*:|(%zO(WO(((( (( Úò˻ò>5CHRW^djmv{!',39ADKRX^cfjmv|O O >g%z*~#":4:End of File Received End of Transmission Receiving Waiting for Sending Station Segment: File Conflict * * *:G*:G *:G?RECEIVE ver 5.6 11JAN83 Copyright by Timothy S. Williams[Abk7%R0!D>a0~2~(ʞ ʞ~(| |~(ʥ ʥ/ڬ2~ (—~ (-C( V 2#~ (185012!>a:ʳ08,:0(*" —!COMMn * —>2[R#"*  —*— —EEm— ʗ m( 0ڗ:җ$A[0A/ڬ2!Þ!>a!>a!>a!>a! >a:!2  !&> a"^#VS!9:W:G: ˾˶ :W:GB`fkny~ $'-47:=@CGJQZaf~ "'*/25:ALRUXaq{~(-27@GJTW^cfknqux|:ʺ 2"^#V (j%>2(z( :(K%OO (!0> a! 0( p:2O : :€%>: :2!:* !  !! 6: #'.369?FNRUcgorx{~  &+/:CJMPSY\_ehkpux~ "7BQ\j(~(&v(!> a! > a: W:G[( (S( ( ! > a"* : W("3  "*( ))":21 22 :G !":( !_%!.-!:-:GO-!9 ~# O-! 0,( (:2 !&..     <STOP ver 5.5 18FEB81 Copyright by Timothy S. Williams[AP~02:2*|B}B= 9!9Y2T_^#V"eU:Th:UOK*eU:ThU!](*e_!:TiVO!\`:(~<( D66 PATTRIB) ; 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  UWT]6P^#V##!>aZ!G> aZ!F> aZ!H> aD 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:DIRW^h| 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 ; 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 blank (not used) ; 2 reverse video ; 1 blink ; 0 underline 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 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 ;,[,C DEFINE UP,ESC,[,A DEFINE IL,ESC,E DEFINE IC,ESC,Q DEFINE DL,ESC,R DEFINE DC,ESC,W DEFINE EU,ESC,',' DEFINE PON,ESC,) DEFINE POFF,ESC,( DEFINE FON,ESC,& DEFINE FOFF,ESC,27H SPECIAL: CP SO ; Test for RVON JR Z,.RVON ; BRIF is CP SI ; Te 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 Pst 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 ; RETOP 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 IF not XOR A ; Else clear attributes LD (.ATTRIB),A ; LD A,FF ; Get the clear command RET ; Else return .RVON: LD A,(.ATTRIB) ; Get current attribute value SET 2,A ; Set RVON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .RVOFF: LD A,(. 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 q '0CHMVYcosvz} $-25<CLs|@Y_dgjpux #17<?DQUY^rz} =ERASE ver 5.5 23DEC80 Copyright by Timothy S. Williams[Abk7%R0!D>a~ ʗ(ʗ_~ ʜ(ʜ_~ (d(()#~+ ( /0 Ò~Gڍ2~ (<(†~ (.T(QN¡#~O¡#~++T( Q¡>N220~2:ʞ:(P$>;MSG ver 5.6 27DEC82 Copyright by Timothy S. Williams[A"~0o:o* |P}=2  w*([$( A[P><2 0W_^#V$hN !6] : :2#~ 0~q: 8!K`!$*42:G:(P:(<282*| !-> a: *!.>a!:G~?_S ~2 : !#:G![  >2 S ~#?(*@( #(~$(A[ ~0:#~ _^#V$hN(!K`*~08:8>6 ~(1!L`:8#("d:d˯ ( N( Y2 T0:(k~2!x96 :w 7!$" -~# ( (08:8~ #T ( # !!=>a!{!\+:(:N(6Q.Q::GOY( N :(^#V*"*#",: : =2 ©: =2 !::Q"!~:(^#V*"*#~ ( w##>:> ~ D> ~ (# ~ Â> xI?bk7%R0!D>a(> > : :u:XP _^#V$hN uX<!F> a!I>a!J> a!K>a!L>a!>ad",#Q.Q:GO:!Q.Q::GO~ (O#~*(?(@(# 2#2>?#!>a!!!!! Protected , OK to erase (Y/N)? erased $%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 $$#ͽ 6 6*q ~> ~  Bv  ( > #~# Sq ( ͘ 0!"t  6E*q ~ "q gIB͌v 8 ͸͌I[q ( x(͚x +~ 8~  0 # 8O^@Ot  ;AB1 (LJ>DISX_ekz%4FMTYhy#BF -7:CLORioy".(:(1!G (ͽ .( :( (,!O (ͽ :( (G(2F ͽ ( _ !F _ !v  0~d _  aF !v  0~d #~> DF !_ F p .! ~<(p # > p !:F G2W G !Za .(. (,&`B6 # ($ (@TEXTEDIT ver 5.6 27DEC82 Copyright by Timothy S. Williams[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$( ( 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 ~ ( % ^#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 # 6 #A[8 a{0˯A0:8[q 8 B! R    ((; ( 8 O^@O0 ~(ĸ(0#ͽ *(  !7!ͽ ,  .... .> ."> >&aTOF: EOF: No Room: Invalid8~#(+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͘  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 [co0~ 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 ((unt] BOTTOlUІDELETDOWINPU&CAS`TABSEԌTOXPAGŵMODIFTLOCATFILQUIHEL /     C\gjtw>L&+7<AKOSV\_bejps~  !$*16;@C\bq&+/ORU]chm>X&M sr*":G:8 &:G:8(nf##| }( >S>Y>S#"*R( ~2>[SK! !p|).AMdhnu!;CGJMQXbempsvy~  $'*-?BEJPSX[nux ").1?DLVy|* 0 3 6 : C H r    M  " * 1 : @ G P Y ` g n q <MAP ver 5.4D 20OCT80 Copyright by Timothy S. WilliamsA d ##M  ;A1HELP ~ (\(('#~ ( / 2EF'2~( 1~ (&T >2P > 2F 2!> a':G;y=2SK! !G 1Disk file allocation map of XXXXXXXX Sect 0 0 0 1 1 2 2 2 3 3 4 4 4 5 5 6 6 6 7 7 8 8 8 9 9 0 4 8 2 6 0 4 8 2 6 0 4 8 2 6 0 4 8 2 6 0 4 8 2 6 --------------------------------------------------:////2*}lg":2:@2:?22:2*:_':_':(: ( :_R &'" '!9O!.> > ͚> !#:=2 O:G:8 :G:8:F*&DM!M N >w!M :G:G----------- 1Sect +0 +4 +8 +12 +16 +20 +24 +28 +32 +36 Function: To display the disk utilization Syntax: MAP [fd] [(option[)]] Options: TYPE - Display map on console PRINT - Display map on printer FILE - Include file map Defa((sr##:G:_K! !!>G~(*([S(((:(( nfNF[#### y nf[T]K! *|(!M Sͅ. > > !#:=2 ͅ:ult: fd=S G:8 :G:8:!!> a!> a!> wP*>:: :)O2)!*#!Q#!#!#:====2! #!#:=2*":G:8 :G:8(> :p=2:'28>.:W:_ *R0>SR"%*-27:=@CKQW^ux"%-09KP 17@CKPW^adilqv{ $'+37vy|0     D}tSPOOLER INIT #@4PE` Vp@ARCHIVE ver 5.5A 04JUN81 Copyright by Timothy S. Williams[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~(#ѷ0     RDM + !É!0:waB}O[MR))) *s#r#6#6!.!"R>!2a~?(@(#( * 26?#2#/#?(#@(#(~A8[0  ~0yN(Yʉ ʉ :_*"* "*: _:( R0*}2e."S:G! : :G:122:( >Ey :G ! o:%?O: _! G|] :V! :F!!'!&6:%?O< x2 _*R"SS"<<(: :(Q(I *P#"P} !O5 *~<(nfut##!ut*R#"R~ >w*Put*]8 ~(#շRDM+7%R0!D>a*R| !)> a:(D*R#)[":%?2^$PFFF>2ʹ>2(>ʹSz"V" 7%R86.|g:( |8%> :(<|82 [ ":& !D>a!_2.!!:! >A>a2$%:(͚& >2>12Q!| c : :.G! >Zͦ *z^#V#"z{qq:(6: 0!P!d:!"V!h: *b#"bP:»](H<6[bR(P:»##~++P:F(7>2 >2 ?>2>[VSV[TSTSbP:»](H*TT]6E##6F2*[ Rl&[(> *6E͉ :( !a: #:.G!  !:.G! :*M!:.G {_Y !y:u A w!~(i!y \[V>A#~*V  >:(4#~ (O *V](P:](P:ʻ> 25>2  *:5=25( >2>ʹI> 25ʹ!!*T#"T*V#"V!P!mP!mÖ>2g(;!%>2>2  >(n&)  !:yw6 6 o&ñ!!X : $:Y 9!Z . :Y(K: E,!Z~  #y(G *[ Rl&[(͸  ~ (O#:Y*n"T *l"P[T{ *P|+"P2>2>2͆*b#"bm͖*bP!mP!m͖͖!"b!%>2>2(  >2>2ʹ>2 >2>2ʹ!C_^#V!;6 #66A ?˯I(Q(>ROQ0n(f)|(*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>2>?^B TAPE1 - S]mwnot readywrite protectedtape markcrc errorend of tapebegin of tapedata lateHDREOVEOFMount next tape volume - ** unexpected record ** ** Computed block count disagree  *B [z /: )*6V͉ c 0!R#\*R8*B0 `iKB[x(͉ & S[S:ž:G:O[* 3::G:O[*2:G[ * # x GF:g.Rl&[Es with label ** ** Sequence or section number disagree with computed ** ** File name mis-match ** HDR1ARCHIVE .TAPEFILE 00000000000000YYMMDD 000000OASIS-ARCHIVE 1      HDR2F0409604096 000000TYPʼnNOTYPňVERIFٛNOVERIFٚACCOUNԃQUERٕNOQUERٔASˏNOASˎVOLUMł TAPE1 $UNK$nnnSelecting x{ "*/47=@CFLS[^gjx#&47BEJMPWZ]  $,2adhw 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 g!&+1@GTY\`hmry$.<AJMPSVY]`dC!&)/29=AQgt &+27CQWlrux{~"" (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  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-#*27:=@FIORUX^bejr%EGIKMOQkt}")47=DUYcoy   "36>BK LEFT,BS DEFINE RIGHT,DLE DEFINE UP,~,FF DEFINE IL,~,SUB DEFINE IC DEFINE DL,~,DC3 DEFINE DC DEFINE EU,~,GS DEFINE PON,~,EM DEFINE POFF,~,US DEFINE FON DEFINE FOFF DEFINE BON,~,SOH DEFINE BOFF,~,US DEFINE ULON DEFINE ULOFF DEFINE RVON DE.QWZ^ajmv '*1;@S[`hkwO V \ ` d k p t w      ! $ ' . 6 ; A F K T _ k s y } L b x   FINE RVOFF END  " * / 2 H R ] f p s |    " ' - 1 4 7 : = A cj{  & ) 7 ? G J M Q T W ^ c f m p w      " ' * - <  -:>BEIUXbemp1     CODE 6 8@ʿ!__^#Vz7(O<@~(L~v 0@(7˯N7'}aw  k1************************************************************* *qST 10GRGRGRADE TOTAL UP THE GRADES 4 F!MEAGRST GRADE TOTAL/NUMBER OF STUDENTS = AVERAGE GRADE :MEA M *******************************9giceu{}@| O@} O@3aw2*************************************** +" AND NOW FOR THE SORT M, ********************************************************************** ;6*qST NUMBER OF PASSES THROUGH THE LIST J@ INNER LOOP DOES COMPARE AND S:kgiceu{}WAP TO PUT ARRAY IN SMALL=>LARGE ORDER ,J*qST NUMBER OF ARRAY ELEMENTS FT.GRADEGRADEz-| IF CORRECT THEN GOTO NEXT NUM K  ******************************************************************** B TITLE: STUGMVD.BAS BY: GREG LYDON CS 10-81 EX 7.10 #6  K( PURPOSE: TO CALCULATE MEAN VARIANCE AND STANDARD DEVIATION OF GRADES K2 **************************5SPOOLER INIT ****************************************** /<8| STUDENTS ARE NUMBERED FROM 1 TO 20 @F(GRADE2 SET SIZE TO MAX POSSIBLE NUMBER OF STUDENTS P:CLEAR CLEARS SCREEN YZ%A 0 a Z X U R O N D K R ! d 2 K6 N B ; P  <d 20 STUDENTS FOR COMPUTATION, -1 IS END OF FILE MARKER 3n0ST STN = STUDENT NUMBER STARTS WITH 1 2x>GR READ GRADE NUMBER FROM DATA STATEMENT GGR  0GRADESTGR 9 0STST POINT 7TO NEXT POSITION IN THE ARRAY >GR  H 90STST NOW STN = ACTUAL NUMBER OF STUDENTS M ********************************************************************** ; SORT SCORES AND PRINT THE MEDIAN AND QUARTILE SCORES M *********82      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,( DA 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' ; ULOIEFINE 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,ESCBN 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: J,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,.BC 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 ON ; BRIF is CP RS ; Test for BOFF JR Z,.BOFF ; BRIF is CP FF ; Test for CLEAR RET NZ ; RETIF not XOR A ; Else clear attributes LD (.ATTRIB),A ; LD A,FF ; Get the clear command RET ; Else return .RVON: LD A,(.ATTRIB) ; Get current attribute valDue 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 attribuE>MOUNT ver 5.6A 11APR83 Copyright by Timothy S. Williams[A~ ʉ(ʉ~*(S(JG#~ 588G ! >(>@8 ! !>a!>a!>ate 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 atFDIftribute 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 INCG (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' ;H2     <SEND ver 5.6 11JAN83 Copyright by Timothy S. Williams[Abk7%R0!D>a~ (08:~( ~ H(((#~+ (// 2 ~ H(~ H!d>2x<<<22|֯2}2z22!"*"!COMMn NOEOCOMCOMMCOMCOMMCOMCOMMCOMCOMMQUERTALNOQUERPUBLI ~08:0*#[R"! 6  **[+ Ã: !x!x:yʵe2{: A2>27~*(@(#( ?(  6?#+2y#:M:M<2:G:8! :?o&":o&)))#"*+"|(} [!:G S:?X^clw|"'/27;@FIMPSVY\`ehot@EPX[beilpuz} $*/6>CHOVY`eknz_!~(<(#?( @( #( #~$(A8[0~0:B  !{: ( :|:}! (q~! ͧ.ͧ::GOY! (EN~ (O#:( ! 2! <( :   * "* ": W +38?Gdmpv| !$,69>ADGKNT[chlw)16>IN]fmw* ))"  " ^#VS:W:G: 2"^#V (!9!a~ B6*!:  +|(((+!:  +|((0 >2wc!0> a!1> a!9>!  - % (a!(07?FNU]elv˿((G(>(5˿0(1(:w( 2w:w(>>>7>:y(N!"u:} B: <! ͩ.! ͩ::GO~ O#>O!  ͝: W B:G[! 2>2!"! >W͝$[Sz0AAAAAAAAAAAAAA:=2 :G[z0! * "! >W͝>C! ͝  :y:z(#O (! N~# :x ->W  k*u#"ub ~/W&>>xʒ~ٺ $ÉفOG|(WR|AA͞y N(y0z( >>%8 ~g>~->>  > >>&xW总(_>{ >>x > >># x>>y> R"[! N#z 8ñ:4:!0!+:!2!&>A8[8>Aw V( nF¦Q0=~#fout*#"[R #"[:*nf:2?G [{ _~ *u t K!;~2t~<2u<6?Ͷsr "iut!6"e"g"r#utm.U!@ 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*T:G :uw<:twRo&)))~ 6R<2.~ 2~ 2!"n f +<[nf:G ^ V {_! 6Ynf>ݖ_y( qyQ6#5 6#6#%^V:G 0~2t~<2u<63     n f K!;?nf:uw<:twnfutnfutnf utnf n f +<[nf:G ^ V { _˾##~w#~w 6:W(Q(n f +">Q2ͬ*"Y5y nf#ut ‚5 SPOOLER INIT nf#utnf>ݖ8==_~ 6 4~ nf#} Ͷ^V sr DMnfq#pnf^Vqp:G 6 nf>ݖ8===_~ #4 #06#+6-:G dOWaiting for spooler disk space  ###~<wՇ_!^#V+P>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?ACCOUNT ver 5.6 27DEC82 Copyright by Timothy S. Williams[A0~d bk7%R0!D>a0e( = > ~ H((!>a~TPH 2c :Z > 2Z   #í  # ~C !#~ ( (= #~A8 I0 G2W :Z ( :c He%),GKOX\hsv} .<?GMSfq%lwDu  "$&(*,.02468:<?BGJMS[ruz}1!>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(.>& !-036ADIPUXl ".3 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  >     3     ! 5555d :Z GO (@@ @!0:Y w*Ù6X !d (.d !G bk7%R0!D>a0~w>!d ">~# ( (+u~# ( (+#T]6 ~ ( ,( ( T]6 ~ (#~ ( ʉ~#WLQW_b<CILORchktyBEISV[`gnq}!$14:CFKOY ( ʉ+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 ex 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 DE}ists 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 FINE PON,ESC,4 DEFINE POFF,ESC,3 DEFINE FON,ESC,6 DEFINE FOFF,ESC,7 DEFINE BON,ESC,'s' DEFINE BOFF,ESC,'k' DEFINE IL,ESC,L DEFINE DL,ESC,M DEFINE DC,ESC,O DCA LD C,ESC ; Output ESC,'Y' lead in SC DEVOUT ; LD C,'Y' ; SC DEVOUT ; DCA$ ; ~ Page Time---- Date---- T Username Id Port E.T. SYSTEM PRINTERnFinish sequence END Giu #*-03:=@CFILORUX^gr!$/29<AHU{~ (19@Zfoty|  .5;C4      TITLE 'SYSTEM.CLASS90 - 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? CH 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,NOTR 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 ; forVON ; 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 WRITget 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) ; cleaEIT 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 REr 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 [ kS 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 Neys (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,(IZ,.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) ; testY+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  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 Nhl 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 OBLINK: 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 ; 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,8 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: 4     EQU 78 DELAY: EQU 76 GETSCR: EQU 48 END <LINK ver 5.6 27DEC82 Copyright by Timothy S. Williams[A>bk7%R0!D>a7"a$6+"]$"_$2RDM!26M!Ra~ 0( &BEGTYPE Is this the type of terminal that you will be using for the primary console (i.e. the terminal that you are using right now)? (Y/N) &END &CONFLG = 0 &READ &YN &IF &YN EQ N &GOTO -ASMCLAS &IF &YN NE Y &GOTO -ASK &CONFLG = 1 -ASMCLAS RENAME j(!>a!>a~ 0FpUyByXjTMPDʌNWS #~+Y ##~++SyM >S2X$2T$2!2U$#~+A >T#~+I(/ͤ 2Z$>2Y$#~=(7#~G0!>aͤ82-!>D2W$ͤ2!#~+O ##~++M(T(2!SYSTEM CLASS&TERM S (NOWRITE NODELETE) ASM CLASS&TERM (/ SYSTEM) &BEGTYPE Do you wish to select an additional type of terminal? (Y/N) &END &READ &YN &IF &YN EQ Y &GOTO -SELTERM &IF &YN NE N &GOTO -SELTERM &IF &CONFLG NE 1 &GOTO -SKIPATT ATTACH CONSOLEk~ (#+~1858>12!%G: !!&> a! 90~2!:W$(NT(JD(%2>!G;x2!y<2!% ;0 ;x2!y<2!:! ( .!!!-!!   ;x2!y2!!> !~ :! (,:!?_!!!!~ (#>? !!!:!2!:W$T(#:!<2!!!͖6 *j"|( ͖!!͖:!=2!5:W$T((!:!(>0w2!~ #~+ >2!#> w#:! N:T$€#I ;P!% (o 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(d(@(\ 8 Oxy C _(@'(a8{0˯Ow#'(z(P +~'{_zPw:W$( T(!%͖!%~# (";('(a8{0+ˮ#~# (' !%~ ; ##~ (; +~ (#6 '(( ##~ ( # DEFINE POFF DEFINE BON DEFINE BOFF DEFINE RVON DEFINE RVOFF DEFINE ULON DEFINE ULOFF END ^#Vx8~ (  (#:! %:W$T͖:T$(]!*]$%-6"]$"_$#"!! ( !! `> Ì !!%6 #" !%:W$T( Ė:!(Á2T$!n$!!:!2m$U( n$! `> Ì ͞:l$>2l$H2l$!=~(5~(^ ^ V v(! !A(@ : !3`> Ì : â!=~v(L^ hN(b>2m$n$U(V(?9#!n$:W$( T( !w#͖:!(x#͞H N#F#! LNAMW HELLISB INCLUDQUIԊ ORIGI ENTR~DEFIN:IGNORdREPLAC SEԧ EN< ͧ i 'ͧ ='#ͧ  % x2$S$i $!!>2 2 :!ͧ ~:8 i ~ ͮ (>2!!!! % >2!x2!S!DEFINE symbol=expr END ENTRY expr IGNORE symbol5      INCLUDE module LIST NAME fn[.ft][:fd] ORIGIN expr QUIT REPLACE symbol=symbol SET expr=data ͧ i ',( ( 'ͮ :$!!!"$|2$<2 2 ~ #!!> ͧ i '~,( ( 'ͮ f f *$K$ R(89n f u t ^V!Ru t Þ|(RF DM E[[$#"[$~( nfutn f DMx(o&'2:$_!e2^#V2R&}2$ͧ^ V *$"$!=~ʦ!$(څæ#FžF n$!!>2m$U ͞~ # #!!~ (#K#!##:W$(T!#Ėͧ '!!!:(/.( '2U$# 'D$!!~ :'# ':! '~ ':!G'2Z$>23$i 23$ͧ  % S!>2!ͧ i 'ͧ ='#ͧ vžn  !$Vʞ $ !$c*[$R( DM!n f +u t | Þv(^ V !!$>!$Þ*[$RDM[[$!2~(nfut !!!i ' '!!!O~q#!!! #'!=~(Hv(-! #'! #'^ V !ͮ '!!ͧ 9  % ͧ =#'ͧ x͖!F( ^VRu t !_%~ (; (, #'(0*[$"[$*c$"c$*i$"i$ͧ[$!$:$O͎Þͧ:$=2$O==?!$^ V {(Bnf!*!"!^V!!͎nfut##= !$Þͧ^ V *$"$!=~?!$(?#v( $n~~~F ':'*u##~'( ( w##(_%RDM͎9  !=`%!_%6  ;!_%~ 6 _%R_%v(V(-x G80+~ (#6 _% ;!_%^ V !:2 !8> a:! !!!ͮ ~ 2!n f "$!$cÞ@v(^ V !î!$6^ V s r !!$Þͧ:$_!e2^#V2R&}2$^ V *$"$!$$~ ~ !$c:$2$ʞO$!$:!:$ͧ^ V *$"!:!:! !! :W$( T >2!â>#*S#*)#*>2 2 A$A[8Aɿ0:80ɿH !!!6 ~H !~c #:3$G~#c (@ .(:(+~ #!=~($!!8 #v!ү<v(^ V !$2!>2!:?!—?!!e.:! ~ +:!( >!a?! f.!e.6!e.6!@!~..:!2.:?!G "z.e. (*z.! >a?!! >a͓!"!~ݶ (*!|(j*z."!>6*!ut x:?!G^V!e/ S![e/z nf&}NF~W ( H ʮ >*~ (!=(+( -(*(/ # (ɯ+( -()*(>My(((OxG>y(y(DMRy 'y 'i ͮ >~ ͖~F ^ V O :!  :m$G[].!e* $++ $++  ut&Do}j*!"e/:?!G[!"!!e/ >*c/"c0+f.!e.6*!#"c/#"c0#"c1!e.[!:?!G3:?!G‹[!!e. "c/"! :?! n f ^Vn f /*!>2!B8K!K!*! BDM:?! ^ V ^V$++ !e*:!8$K~$*$~ = C~$"$!$~+$*!~(O"!!$~+2!m$ #m$<8!e*(:m$ >2m$>@!e* ^#VS]. "$C~$: / ʚ ~#!n$~ (# !##:W$T!#Ė*$| #"^ V /*!B8K!K!*! BDM"!*!R $*![!R8*!+[!R0 *e."!"!nf"!!"!*![!R!R"!!g.:!ȯ2!d2!^2*!#"c/#"c0#"c1:?!G[!!e.3͓:?!G[!!e.2S!c/!e/###$!2$ #U~(!$bk 6:l$w *[$ut6666:$w *$ut:$ݾ :$_!e2s#r:$(38[[$!Ru t ^ V *$Rʞڞ9*$u t Þn f [$Ru t *$9n f u t Þ[$nfR8(9n #*!"!"!:Q!< :!Q!! N!F_N:Q!<6!^~=G#^+ !(. (-`>Ì :c!< :!c!! N!_N:c!<( !^~<(6>!e2q #!2F %!ut~(^ V 6 6 :!3F(*! nf[!"!:5     c!<ʛ$!$6c!!>2! !$͉›~3###~3N#F#^#V!*! ^V^VR"!!!͎!$6# !$$:U$Bx S(U(%$!!D$#$!!!!!4$ $!!L$!!~08:86 #e*!!~# (>. f :!(###:!(K! DE> !_%͖`%!_%6 P!!e*0 ! `> Ì :Z$G[$( ! `> Ì "$$:Z$G *c$:Z$G B>:?!(?!:Q!( !!Q!:c!( !!c!:u!( !!u!:W$( T(!!NONAME The following symbols re~# (>::Z$Ge*RDM:!o&B=!!e*:Z$!!e* (~ R:!(~(:!ݾ >v 8! $!!!$.:!!2~!:2(!5`> Ì !`> Ì *!|( [2"!2!>2$*2:!([!*c$+r+s+6*2+++"&$*2:!(###|2$2$Amain unresolved: PRINTERn LINK NONAME LINKMAP SYSTEM WORKA SYSTEM WORKB SYSTEM WORKC SYSTEM WORKD e.e'e(e)e& K8@1LINK version V.M  :Z$G:$O[$*c$:!(+++3BÇ n f [&$"&$F( !4`> Ì ~ *!|("!2!*&$"&$:Q!<(!!$6_!>2! *&$|2$*[$:!("666:!(*![!*[$+r+s!$6~j:! ~(*$#"$*$&"$:!>*&$(>*!"&$ Memory map for PAB-name Low High Length Type Entry Addr Entry Address: Total Length: (2$A :$(WOl&[$*[$:Z$G3i&>(8O*[$N3:?!< ):Z$G*&$L*c$:!( [!+r+s+6[$3H!2*$"($:!:$2*$ *&$|2*$N:!(*[$[!6#s#r#!"-$S/$~4!"+$n f "1$*1$|(d*-$R0[-$*-$R"-$*1$R"1$BK[/$*+$ "+$S/$*-$| decimal) ** Invalid command ** Relocation error ** Undefined symbol ** Invalid character in expression ** Including ** File ".OBJECT" not found.  ** Invalid record in ".OBJECT". A :*$0O:Z$G[($*[$3i&"($:*$2*$Në:*$(O[($*[$:Z$G3BÇ *[$"/$T]C-$ 6G~o&'2^V##n#f#!*!:!(###:!(K! "!!!͎:! A:!(###~<8 :$<2$>w=BSRELCOMSYSTEM NUCLEUS COMMAND BASICUSRT==== OBJECT O s#rŒúT]6!e2_~Ö:W$:k$( !"6S#6e#6g>2!|":U$B!! >0~ (#>.~ (#>::Z$G> !l"͖!!͖!""j"͖!2!:!(*!`%!_%6 ~ x!!͖"*!:! :2G :!(K! DE!File is write protected, ok to erase (Y/N) May Need to Re-IPL -"j"!"͖!!͖ѷR"DEB8>,!#K #!"͖!!͖`%F(nf:!(+++k%DE^ V 2R :!(###+q%DEw%DE}%!#~G !$W !$:!(!#:k$(~ o&d0 0> 2%!="',16;@EJOWafnw}+03yLjAFIL][ @ d z   6 &o=2t_*4|+0<5f~(v( ###2R&}2#nf:!(+++F nf"#!= ~(rv(###^ F(:#ݾ "#n f "# ~(Jv(###^ F(:#ݾ ^ V *#R(8"#S#:% `!_%͖X> 2%*#%*#K#n(26 ? S i !!!!![$c$e$i$CK|$kx% S ^ x {  -   7 Y l 2  : 7m u W= hb? X eOF; | S+ 1 7 ?   6      7u +-0 F|Ix*7 ` P# F(Z~@IL1=a>~ JQ& yrC < A2C t,$jB i;tWft  e r?MEMTEST ver 5.5 23DEC80 Copyright by Timothy S. Williams[A!?."!}(.$"7.~ ʱ*|("!*|]!>aO|͚}͚>Ḧ́ͣ 80̈́7P*RI[*R[7.!R~|N |l>-$ v :kb"hX: { f7 md yQ@2#e8n\*'}DtL  y_L X~[Ob+; mjN v7LS͊-+͊B 8 >B 8 ~O/wFq #z  ͊x1*͊-+͊ѯGo*#" *}w#| *}Ĵ#| _ ͊{~>(̈́O>00>1̈́>)̈́>,̈́Ï?;[ soc    9lOY  s xt`VrhdZ  VVK ~ q n N )   h - ka ,   H<Q.[P^N Part I - Non Destructive Test of System Regions a. NUCLEUS: b. MEMTEST: c. Protected (Drivers etc.): (Note: may get error when end of memory reached) Part II - Destructive Test of User Regions G>z0N(4 ( . P C * ; B> o qw [ l ma yDc_-)=p5%!z_U Oqa z C H =rf>'>k r 9CHKUam{#JNRX^dgq~V C @8 R@2[XO>c\e$jU^oZfh_y L  %  M9H8zr`V  }t-0q73"K93t%lW aC>REPAIR ver 5.6 27DEC82 Copyright by Timothy S. Williams[AO%bk7%R0!D>a~ !>a/812~ (+( ~ (F 2t!>a!>a!>aP~ (:G!O ~< !M> a:G !O ^ f n v(+'^ 'v(  "[_htO2|/ , # wW p h ] R O * E ?3k  Y[XTPEB85-vse]NDA6{$|j 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 skR I ; J?$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(&6     &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 (w:a(w:b(w:c( Pw~ yn &l(4!F^#V1m7R8Pi ~ =_~# r+s#~ ݾ 8P:_)))))~ <(:~(5<(72~o&!E`:5 >6~ a*_:wfJP:o&)))))*:_ ~2_:] ~2]:[ ~2[:2 ~22:3 ~23:4 ~24:Z ~2Z:\ ~2\:^ ~(2^~(= ~ Pw>8w:_(w:](w:4w:Zw f>Ow>w:^ >?w>w:](w:_(wf:^>ATTACH ver 5.5 23DEC80 Copyright by Timothy S. Williams[Abk7%R0!D>aW"͢ ~ 8 "*O  (~ (#( 2*~ (T"!*~Y# ~=2"*"~ T(T~"~()7^VR ^VR86666:^w!&!!!!! ! !!!!>ayW(o&)))))nP˾˶W~#+~q~<(-D666666666w:c^ ^^_*~ TBʪPnEʠC]OHA FfLDSHRW&T#~FZ+yTT{2_yTT{2^#~+PO(E(_U(hyTT{2]:4˷24>2\#~ (-08:0#~ T+~!\61(&2( &3(&4T:4242P~ !N>a:40,P_)))))~= ( < ~  RUN6jJPn!m6 m~~ #N#* ~(y~ # m!q !AOx~; =(#v> G˸ ( T ڀ Ҁ y2>L~o&>,>P~o&:(24:424+:4ˇ24+:4˧24#~ T8 :424:424y{2Z T22#~FT T23#~T]+08:8}o"T]~0:?**z 7ɯyT!dn#f#R(T>2[*4T2`#~YD"TT#~++P(S(N(>,>On &>,>C~o&:(&V(>,>A>L>F^( >,>P>,:ʀ >L>F~u >,>F~u >,y f! ~O( !d N#fi>B~(>,>Pv>E >On( >,>W>8f(!F(!~(->,>E>N>T4T2b4T2a4T2c#~+A025"#~ (08:0* }*7:_˻*G~20#P_)))))~ ~  6x:O(E*y x :cy~6#Pi:_*:` ~2`:a ~2a:b ~2b:`A>B>1F <N <V <!~ (#+~ (,(#6  !v6?#6?#6?> 2~m@ ~< ~< !ï >"##!nf !nf)))~(!~( !o&~( !o&~( ! o&WO ~P 7     O ~< ~>(!> F #@R82R8R8 &d& &@}(}(@8>?>*G?o&x(@(('d' '! s7%R0!D>aT]6!m"n~ ʷ #~ ʷ ( #t  $+.6>CFINQUX[^adknqtw  A^ahknqv !&+05:?BIMPTX[^aeilt~ · x(> #~ ( ʷ ! (0ڷ :ҷ )DM)) O | u}(q!0mw6 #~ ( ([~ G ([#D(C(P(I(&O((S(T(&2       !>a ~ G #08l:0~08:0OxGG#xB(NC(sL(xFʚPʣOAESH4W`~ ( (##~ ( õ L!dnfR(##> wLs1#~+F( Ls1gw1gw1#~+O(#E(P( Ls1111Ls11L{117 w1#~YRDYT1#~+P(S1Ls1Ls1#~D1#~L1+Ls1#111# ! >!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 PRT3PRT4COM1C>CHANGE ver 5.5 16FEB81 Copyright by Timothy S. Williams[Abk7%R0!D>a0~(( !>a~((8 (-~((* (G0!>a2~((!>a!>a~ ( 08:0!>a!> aS{(w~ *!OM2COM3COM4TAP1TAP2TAP3TAP4CONICONO PRINTER COMMTAPESABCDEFGCONINCONOUT READER PUNCH PRINTER1 PRINTER2 PRINTER3PRINTER4COMM1COMM2COMM3COMM4TAPE1TAPE2TAPE3TAPE4~~~V^!:G !~ ###~ #^!  @#^#~ 5#~A /~w:w^V:G! !> a!> a!> a COMMAND    ( - `  %*/MPWy  #),29@DJW^ejo53 9 > E H P ` z } ' X \ j z " < I L R f n   r Al "(<_blp2;AGMV[dgs>AILS_u!$,/25OU]c49@CHMZf "&+5JMVYbenqz}7      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 DEFA,(.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 .ULOFFINE 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 ; : 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 .Byes 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 OFF: LD A,(.ATTRIB) ; Get current attribute value RES 1,A ; Set BOFF LD (.ATTRIB),A ; Save as current .WRITE: PUSH IY ; Save IY reg SC GETSCR ; Point SCR INC (IY+13) ; Adjust column count POP IY ; Restore IY LD C,ESC ; Lead in SC DEVOUT ; LD C,'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  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 D ; 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 ; REFINE 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 ES 5,(IY+5) ; turn off flag CP 'y' ; first test if esc,y (SHIFT PAGE ERASE) JR Z,.CLEAR ; brif is PUSH BC ; save regs PUSH HL ; LD HL,ESCTAB ; point to translate table LD B,9 ; length of table .TRANLOOP: CP (HL) ; test for match JR Z,.HIT ; brif; 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 ; 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 BI 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 T 7,A ; test parity of tran to char RET Z ; return if off RES 7,A ; else turn off parity SC CONESC ; and perform esc function OR A ; test if any tran done RET NZ ; return if so SCF ; else turn on cy RET ; and return .CLEAR: PUSH BC ; save dev n8     umber LD B,9 ; point to conout LD C,ESC ; output lead in SC DEVOUT ; display no LD C,44 ; output , SC DEVOUT ; display the character POP BC ; restore dev number XOR A ; clear cy RET ; and return ESCTAB: DC 50H,"P" ; SHIFT PRINT key DC 40H,"P" @DUMPDISK ver 5.5 23DEC80 Copyright by Timothy S. Williams[Abk7%R0!D>a0~ ʫ(ʫb:b08 :02a~08:8j!b~ ʰ(ʰj~ f((-#~+ ( /0 õ~Gڡ2af((!>ÝfT 2P¦#~ (; 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 #+~1858>122%2G: !&> a:b0:?~:j0:?!b͌S]!j͌*]R"_>D2(0oa >G:(!(;a<8!()!> a>a!!!!!!n(!> a~(~ں!b~ (#>.!j~ (#>::aG! $Pf !%!:50 xt !9: ;nf"]V ,~( nf))"_F nf"nf"_:[=2[':(!"*]> >(:aG*]v(& F R8~ F _ ^ &S<~ _&S8":!C~ ( !I*:>,> ~ (!>*8>,> !R*<>)> :58t#:aG[]! S]:[=2[':͡:͡*">:ʹ> ʹ~͡x= > ʹ#>'ʹ~ 88>.ʹ#>'ʹ> ʹ> ʹ  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 DEFIV“*_R"_™:50t!*Y#"Y6 :\ :581 2\:58 ;yt#t!#:1 G;y2[**"]|Ùͪ 80O:58"y*rw#"r t!6 #"r+# ~ TPRINTERn SectorNE BON DEFINE BOFF DEFINE RVON DEFINE RVOFF DEFINE ULON DEFINE ULOFF END  Head=Track=Cylinder=Sector=  1 MM/DD/YY HH:MM Page tyrv',CHX]ily~  +/2:@PSXlqCaflq})8;EHLORV]bgl~ '*19<AHOTYe}8     @INTELHEX ver 5.5 23DEC80 Copyright by Timothy S. Williams[Abk7%R0!D>a~ ("~ !3 3!i" (: Ggox(1:M <2M"N[NR0"NX+[PR8"P[NR8 "e>2b3!3 8!"@>M>W>d>O<Ñ>x>î.~< >nf-FO)0~ (NFx(5@o&'~(#V#^nf DM66R>RR>qp^V!I~ݶ(-nf?B6 #6+^V˷R>(G !- >_ u ] } > Ҽ ʸ( 7!9I ( W!"*N"`*P[NR#"UI!RF_3!i"ž~# (: G(52igo"l>2j>2k!nw#I!iF_3!I!bF_!g_!3!I!>!>a!>a"! > a!> a! > a! > a X .| % lu(m( '˵˭˥"(} h] xU ]M V'(G"(JDR( .*˅E( (ˍˍM( ( ˕˕ˍ˕M|є˽;|Ѽ˝ɯ%(#\(: {('(" O%( $A(G 08:8 A8G0filenameHEX ifilenameOBJECT i $.|> O$l&&{ѷ ~ݶ|NF@ 7~ʄ_,~ݶ|NFxʇ> xʇ>@(zʇ>}>~ʌ>ut#V#^++srX-~>NF@u } ] a8{0 $ %Oyu t}"p'w\(V: {(J5KC_djrw| %(-037>ADJMPUcloswzKEUAM6 AR(; .˕ˍE ˍM ˕˽˕ˍ˅m('"˵˭˥nf~A #~ #'A #~:(.('A(A(>:>:RE^V~ݶ(bk~#A(~ 665AA }>A DM@Ä<LOAD ver 5.5 28JAN81 Copyright by Timothy S. Williams[Abk7%R0!D>aP~ (!N> ar~(\ c~ (((\~ ((\/j2q~ \:q( q!Uq!( :q< U 7:?U*7%R0!D>aW͞nf5A͒y A( 5('({͏ (r3 85A=(a((][(Y5A ʦ!~ JN#'A(A (~  #~#(## 'A(A(x85A~#(~#fo6-^VWH>͞:AUTϾ(CHANG}#DELETO)LOCAT"LENGTȋ*LIS1LPLISLP1LIS!r!] !zP!9Y~(/ (+ #Z!X>a  Z!Y>a7%%!0 !q[^Vutu3t4 + +0 nf0 }|Z^VutLP2LISLP3LISLP4LISXRE LPXRELP1XRELP2XRELP3XRE"LP4XRE)LOA.SAVņ-MODIFy%NAM8,NE׽?STEБ7RENUMBEҊ QUI<7TRACV7UNTRACņ7TO0BREA˿7BOTTO 1UNBREAN;RU0CONTINU5VAR3INDENu5HEL4C !G !@RDMP6~(0 ^VR8 |( DMbk>i~<wȯ!> a!>a!>a!>afilenameLOADFILESYSTEM ! 9! 2 !+ !$ !!!!! !}>\>>>>N.F/6nf6#-F(! ڑ>|ʑ>t#u#    6#p#bk~R #~E #~M(5bk~'A ~#'A(A(.(: 5A Q|#ʈbk;ʃ R "?hqv?QsE CMʃ :G 6O 0 *5AT O-  S U B,!h"͜ 86͏ ( 3 8 85A=[(6͒O<!h"~'A( .(A ~  #(~#( x8'A(A(.(q#y"O! ~#fo5A6 N9     F#B}|`iO<# \!EL S E 'A( A(.(<TH E N 'A( A(.(<5AO< \(!ˆ6 #5A O<5A# 6 #75AA8A8 'B?8 8|(6#t#u#ѯ<7 O<ͬ IO<6 8kO7'A ~  #( ~#( 'A(.(A(ynf####~^V5A5AOʅEʅ:(E! O- ( UO<BO<>,w#6 0! O<5A6 O<5A, 5A! O<IO<5AkO<5A   1~S  #^ 5Ak`75AkX7͙5A͙5A͙X75A&HͯX5A(([$5A"'A(H.(r+q-u(q!!a'A8!sr3 #NҏD!͜! O<! Oʖ<ʣ=ʰ!!' ZO<6 O<5A͏ y +w#ZO<6 O<IO<6 8kO>*(> > >>w#X tw#X}w#` }t<("=(#>>(=(>>( <(>>>>>>h >i>j>w#X7I # 'A;O<6#| rOw#I6#k5A)(7 6#D$( y`@ 5A((nf~F #~N( D6#k85A, 6 #) 6#7w#9     ʮʼ5A$ 5A(37! ~րO 6#v͡~8/n83͡~8f8!͡~8 ^8͡5A)( 7ɷ6#~ IZ8(Z0#I8 Z8 xw  5A$ 5A((75A,Nnf(8#DONy RDMo&o&| Do&o&nfϖN DO nf R@>RDM_| nf ut}>66666 66 6; M>NFnfBM>M>nf'RM>nf|M>RM>^VnfѷR<<76 #5A((6#I8;5A:(9, 6 #I8$5A, 6 5A)( 7 6#5A3333CHAICLOSCSDATDEDELETDIENFOGEGOSUGOTIINPULELINPULINMOUNNEXQUIOOPEOPTIOIPRINRESUMPURANDOMIZREARESTORRETURRUSLEESTOWAIWR+|@>ut@~l!#V#^nfRl!nf'Bn> rstuNF utnf+ut|@>^6^VϷRFN@^~(#V#^fnRn>nfFN x(@|(#V#^fnRn>FN@~ ^#~w#~w++ nf~"ITFNENWHILWENSELECCASCENMACLEAREADNEXCOMMOUNLOCIFENOTHERWIS\COMMSERIAPRIKEYELOCQUOTFORMARECORDSIZFILESIZKEYSIZSEQUENTIAUPDATXOIMEQRENOANOERROSTETDEVICMEMORPORINPUOUTPUDIRECINDEXEUSINTHEELSBASCASPROMPEXTENA~ "(0(2(.(6(+(((2(##~80#~( ~#(#^#V#^#z(nfR(0 nfR0nf~ $fnR( 0 FN+q+p##"NFnf< DM#!~ݶnf~#V#^sr}> .NFnfBs>BASATCHCOADATDADEDTEOEXEXFIFIFIHEININININLEFLELELOLRLRLRLSLSLSMIMONBOVNBPPORERIGHRNFLOARPSCSESGSISPACSQSTTATATIMVAUSERERCRCRUSPAGLINMATCFORMALPARPALTRIRTRITRIMIMAROUNHEXOOCOCTOBIBI NFѷB(s> ~# +Bs>$s>nfѷB#utNFqpqp; M>xM>NFnfBM>@%}> [NFnfBs> NFѷB(s> ~# +Bs>NFnfBs> NF B(s> ~# +Bs>:$s>nfѷB#ut$NOUPCASAAAAA3AAbAA60nf+B#utNFqpqp; M>xM>NFnfBM>@%`iRMnfy(NF (#NF (~ (!NF ( ( #^Vnf~ 5AW͞nf^O$5A (4A(/'A(*Onf ( (w#!K3ͣր!3O6 ~Z!  ~(>$ê(~#(=~~#(O!X ~#fo&qa` #5:?DNI ģ> >; (>,͘>#>:~̣͘>\˹F(>!>)4>[˹F(>(5>]˹6NF˷B}<`iO7~7#V#^++NFB(? X!~ (#^V ututɾ #~# }>NFqpqp; M>xM>NFnf `iutBM>@~NFfnB( ututXbk~ #A F(>)>>><>=>>><><>^˹Fʪ>*>*ê>*ê>/ê>+ê>-ê>&ê>(ê͘>=ͣ>"F#x(~#" >"ê!͘!!͘!~# ( (> ,Ęf#n#?BFx@~#~(h>$ªp &W͞nf^~# (+~#A(>8( -F G ~A #O~ O#0R& (O$'' '(E_(A (5(11(B&E&F'U&L&D#'ID'Rʗ' '|'a8{0 O$A8[0:(.n&&q& '>%ʪ,Ę~#~(~'PwT]#~E(. #A>.>0êf#n#R~8>0f#n#$B>Hê AND OR NOT REMnf#F#N@ nf~o&)^V R@>N RDM| nf#F#N++qpsr' 81(G q&'1( q&q& q&l (O$ n&' q&(#l, 0:(OGyx$ '|('l (O$ '' q&( 0:(O y$|'}8''$%&?GE 5x@(*:     A(# B(C(D(E(F xa{˯a{|(Dx(d x(W;(MR x<(E x( M(.x(&y "('( \(: O y(˯}>NFnf| ! utut ut; M>xM>NF ,N8^V5AA 5A (K;(G`0R `0E `0M(. ()"('( `0\(O ( a{˯^V5AA’/W͞Ò/~n(F^Vnfz(#nf%%R0?@> ^#V++~ ^VRDMnf utnfut#V#VsrF@ ^~ !'#~#ngNFBR>R>@R>nfxM>|M>qputÄ-F(-nfnf)z utsr6-5A# 6-^VW͞:}>NFqpqp; M>xM>NFnf())`iutBM>@~(Gutfnu@~ʌ>Ä'@}>666qpqq; M>xM>NFnf `iutBM>@~NFfnB(E ututX!~ ( #(R ;x0ou152~ݶ(1E ;qnf#ut~ݶ2 xtNFB(0e~DO| T]N ~O(nfut!ut'@~( #F#N++| nfqput-Fnf~ʌ>X^VnfϷR++ͳ+^VnWfXR++ͳ+^VnfշR++ͳ+^VnfR++ͳ+^VnfR++ͳ+^V^V$!2nf> ^VϷRDM_ nfG6 #= n0f1^V~#( ~ 'A N ~ (#>nf> yD=?GO?D=_nf6 # > ^V55 ; (' (> F F> 1 PagenfR++ͳ+^VnfӷR+,ͳ+^WVXnfٷR+ ,ͳ+^VnfͷR+,ͳ+^VnfѷR%%++ͳ+N~ ,N#7+^VٷR',ͳ+1,nf^V$B> ^V> Source: Symbol: String: Free: GOSUB: FOR/NEXT: CASE:   ; q5A ʐ3nf5A'AM>w# ( (,(.(A('A(+nf$( % ˶#< 35A ,M>~`(`(͡4 =^V~##T]~#(~ ~#3V^Gʛ4ge4GOW_F6666(66͡4WHILE: Debug: Buffers: USR Name: Length: Addr:  J-D,nf~w#$('AW> (.(:( ($('A( A(W>> w# (.( :( (5A.(B(!B-6 (:( ( 'AW>> w# (+:( 5A > (w#(fn^5,fn^5)4fn#tuR(*8(66F(6fn#tuB8(GO!F(.͡4(^5)4#B8( ͡44E5 1E ;q~@O~#N˹(@ $H %^V = @ 8H ~#N#i/wW>! !B-W># ( W>#BASICOBJ~ Z- x-.x-:FO~ (O#}> D,6~ 'AW>nf~~8!6nf( ~<w ^V  !.!^V gRH>"~#N#(ig##N#~ 88>. >" ~'PwT]#~# > ^V^VR}>6; M>xM>(~wnf~i>=nf!~(-F(G_Xbk >0#Ĵ.d>^F( _Ĵ.d>=!"Z-." saved. BACKUP ʹ.57=!!!6D,~8[6/(Z~<w x6FW6R6Ô6~ݖ)7wÔ6~݆݆/7wÔ6~ݖ)7wݖ)7wÔ6~݆/7wÔ6~ݖ)7wÔ66~ ( (z(6~ ( ((^à5~ ( (6~ 80 (I($K(2G("H(#*(4(.f69f6Q(~~ ~D~D݆w~($(6x>nfF6 6 6 nf6O6B6J/(x>E6?g@F‚0nf$66ut! x>E!nf"0^V~ #~ G#~ O#`i$B~# (. (( (  > ~#F# >  y( ((( ((~#(#^ >>~5AV (VM> ( 5A M>VVVV!uYtZ5A (AM>R5A M>uYtZV5}>5A :<8b;Vnf^VϷR^R@>^VnWfXRDM:     ^R!^TRnWfXMDuWtX͆B^WVXNnf#6Aʗ9O :Aʂ95A'AM>'A( A(. #w$( % 5A#=(H>(D<(@C HM>͋95AA FM>͋9A e95A M>Ru6=( >( <(  #5Arsrr#ut6 6sr?66263?64 6<?T]6nWfX+ut6+ut66[nf+utr+utr+utr+utr+utrrr:r!r#r%r'sIrJsrr(r,r;nf^V߯Bbk8 ^V!((srgoutB~``(@(=6#RDMq#p#86##"('M>O M>w(#(p86#~͜Nw 8RM>|M>'BM> DMq#p##e9î8  5ATX8 X85AA('AM>nf~M> ~ #~( ~( ( (N #F#n`> ( 0o&bk>708:007A8[0A7 nf~(F( !fnnf6#^VutͷRnfϷRDM^VsrnfutnfutnKfLuKtL!DA( A8G0O)8)8)8 )8 H !A $RÂ9NX8 X8X8nWfX~&;~:";##~@O~#~(~`@%8($f(lF(<N(>V(=#~#(8'"~(G#Ny" ";^#V>;;nf~'PwH#T] 6;n(-;F((^#V;nf>;)| DM)| )| | O |(7ɷD)BEx2Bx 80ɯ!{B~(#O#F#>/B<0 0  <>0'd nfut~(B( gntunfutnfutnfutnfutnfutnfutF(nf6;>;^):at on Break changed after ^VR}>5A ;<8b;nWfX~#~( ~ ^v(#  ##~ #~ O^V#RDMnWfXuWtXDM~ VÆBnf^WVX+RVDMͪ;~()gnB0 tu |w#}wn&SC ;AE1ECommands AUTO [[,]] BOTTOM BREAK [AT [AFTER ]] BREAK [ON [CHANGE] [AFTER ] CHANGE [//[/ ]] CONTINUE DELETE [] INDENT [] LENGTH LIST [] LOAD [.][:] LOCATE [/string[/]] LPnLIST LPnXREF MODIFY [] NAME [[.][:]] NEW QUIT [|] RENUMBER [ [ [ []]]] RUN [][ ] SAVE [[.][:]] STEP [] TOP TRACE [VARS] UNBREAK [AT |ON ] UNTRACE VARS [] XREF nnnn (display line) ctl-z (up line) lf-key (down line) re Subscripts Missing Parenthesis Label not Allowed Line too long >>>>?:?'??K?1?`?vr???>Invalid Statement Number Insufficient memory Unrecognized command Invalid command syntax AUTO cannot replat-key (display line) Statements CASE CEND CHAIN CLEAR [] CLOSE #] COMMON CSI DATA DEF FN[(][=] DELETE #, DIM ELSE [|] END FNEND FOR =[| TO [ STEP ]] GET , GOSUB GOTO IF [ THEN [ ELSE ]] IFEND INPUT [,|#[,]:] [LET] [ [:] ]= LINK LINPUT [[,][USING ]|#[,]:] MAT = MAT =() MAT INPUT [#[,]:] MAT PRINT [#[,]:] MAT READ 4d#/ 0p#0w~ր[Vo&6ÜN ;O~!շ(j >0 + ~- #G(zP0+~# y(@PͻP4y0ͻP>0 y(ͻPy DO >0ѷR}Gw>.n>,go~ր8c(aG> 8DO~#?Q~#kW ?[#[,]:] MAT WRITE #[,]: MOUNT NEXT [] ON ERROR GOTO | 0 ON GOTO ON GOSUB OPEN #: ,[] OPTION [BQkW~(!R(#Q%|(7!(!>~̈́W|(=|(!R#'͢Q#͢Qd͢Q# ͢Q{oVw=B<0 o~(->ݖ8&($ 0$G>_;#(~w#8(6#́Wz | ASE 0|1]|[PROMPT ]|[USR ]|[CASE ] OTHERWISE PRINT [#[,]:][USING ,][] PUT , QUIT [] RANDOMIZE READ [#,:] READNEXT #,: R| ZRZ0?Z0?| S!RѯRzG|R|R'8 | xRxR SzG|R|RzS&xRz !|z(!tu6BK!85T]2R!0 V^2R5 !-(+(AA8| @R@ SR|(R>-?B>EM RESTORE [] RESUME [|0] RETURN [] RUN [|] SELECT SLEEP STOP [] THEN [|] WAIT WAIT ,[,] WEND WHILE WRITE!7>!7>|!R7*V~_V *VV^ݾ [V{fVw[Vr[V˺˻ͷV8 tV͒Vxx |VxVyy~і( SGѯ.Wbk  S'+~S 4T.WS'+ NV{WVyw f #[,]: Functions ABS(X) ASC(A$) AT$(X,Y) ATN(X) BIN(A$) BINOF$(X) CHR$(X) COS(X) CRT$(A$) DATE$(X) DAY(A$) DEL$(A$,X,Y,B$) DTE$(A$) EOF(X) ERL ERR EXP(X) EXT$(A$,X,Y) FIX(X) FLOAT(X) FORMAT$(X,A$) HEX(A$) HEXOF$(X) INP INS$(A$,X,VMVw V*Vݾ{W{W~!utT|V ́W +W͍T+WN+͍T~(+W~րO~ր~TTÂTTƀVwMVܾTܾTܾTܾT^Vɯ'+! nV! ˾+xnVGßW>{W>ßW>[Vutnf~G怰wnVVˁnV^ˉ*VͱV[VV^z {~z~ݾ{###N#~  (OwV(r~!E *͛O+(- ͛O͔O8h 7kW|(p(:x(!RJV ݶwu[V| ͛O͔O0x  VV"V{W^V0 ?nf~#ut W~*V~6 (6-W >0WW6E#6+~(ց06-D#60d8+W#~ +q#8#7 o+#g# ~'w+#~(0_(w#)T]))_|́W[V6#͒W[V6#6#ͥW[V6#6#6#;     W7.^XO<VOnhYQ<6*$yshbYMGA1,z]GA;5,&tg\NHB<1)#  v h _ S D 8 +    z l e [ ; "  ** + + +#+6+9+L+O+d+g+w++++g)))&o&r&w&&&&&&&&&&&&&&&&&'''''''''B'E'J']'o'x'''''''''#s###P$$!#!!"""2 w z BGLQT[^  V_o "1OXZ\   I r d ^ <pd9 o 9Ka lGG eVJ> 8#Y. e \ A ( X LLD  s I } = 4'}!"""v#{#S$$$8%m}<%^`bdfhjlnprtvxz|~*38=,HSZelw~6N_nrys}   #&X\ampt+Cioyg<%% &&/(M)9)))))**t++tB,P-X-d--Y...]./z0}00z.0W/Z/?ACFCOC0c!!a {vwq*)))>)9)((%%%J$8$2$l#Z#T# .)()%)|w!!2!.-+-- -,,_, .p...1.$#######!## #"/M//-)(z%~#   !#%')+-/13579;=?ACEG(R\_ehmuz 49?RU[loux})/2>JPi" @CF>O*)+))%M$p#!!!!zIP11111>1D1b1e1j111113h3m3344v555563t00},G&,&%$b  W % oAi;33a2-,x,\,$e0 R 7 +  j<dc33 3q00 0,,)$$[!$'DPS\_kv|'?DGk 6 O R U   . 3 H K N b k n y | &4?EQT_knqzs 1NX^gv{( 2 [ g H;$ &}G/~u[J<ra(Y2rJ-fMw u ^ - * > 4 " I 7 " qO?.C7W7Z7g7t7y777777777777:8S8Y8\8_8e8j88Zl u z  B C F  %.8BLVSZ ,5:P_d &/4?JU^enuT8888888-979j9o9w9999999.:O;R;`;;;>767?.X9J :8538Qg997$ F;:j55lRS SSONP`OOQOOOO}OQNUQQP0OsOvOOOyO VVV%V}591)(%-$O# < < /+I>N>S>X>`>e>j>o>t>y>>>>>5C?$@.H/b//$0-060J0w00-m....<,?,,-S-b-i-********<      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 @INITDISK ver 5.6 31DEC82 Copyright by Timothy S. Williams[A~ (( !>a*(2'G82%~ o(( !!>a~ ʄ!d~B}2%#~=(&O #~=(O #~=(T #~=( }{#F2%0!>a>B2%>C2%>L2%>F2%2S&{2SDL DEFINE DC DEFINE EU,ESC,G,8CH DEFINE PON,ESC,P DEFINE POFF,ESC,p DEFINE FON DEFINE FOFF DEFINE BON DEFINE BOFF DEFINE ULON DEFINE ULOFF DEFINE RVON DEFINE RVOFF DCA LD C,ESC ; Output ESC,'Y' lead in SC DEVOUT LD C,'Y' SC DEVOUT DCA&{~ R{&{2S&{>S2%{~08 :0 *~ !>a~2%{~2%{2S&{2S&{2S&{!>aW:%_~2%12'P~ =(:%G~< !M> a!:%:%(!:%":%":% :%cͦ"LABECLEASIZ$ ; 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 i WQNOWXFORMAINCiSKEHEA_TRACsCYLINDEsSECTOBUILSPAR*DEVTYP @:%Gnf!ot|eBʢSʣe K{O8"Re:}OO8"T*{R 3eO8:'e:s 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 currO8"V!"X?e(O8"V!"X*{1R(e}O8<"XKV~2_"\*X DM~2`:_2ZO:TG[R:_!`ʢ*\"\~2_(e K{O8[S"Re:}OO8:G}2Te!O8}2ZO:TG[Rãent attribute value RES 4,A ; Set reverse video off LD (ATTRIB),A ; Save as current attribute JR .WRITE ; Output string .PON: LD A,(ATTRIB) ; Get current attribute value SET 3,A ; Set protect on SET 0,A ; Set half intensity on LD (ATTRIB),A ; Save>>2^!k^Vz< {<(0`iR8^V`iR( 8:^^V`iR00:? B ?7 a` (*Are you using byte count or sectors [B|S]? Cylinder number: Track number: Head number: Byte number: Err bits: Sector number:  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) ; Enter information from disk error map. Enter information from OASIS disk error. TL v  A 7   Z7 t|,=!i#!%#_(!>a%'%Y(N > H#!((!(6:%_ Get current attribute value SET 1,A ; Set blink on LD (ATTRIB),A ; Save as current attribute JR .WRITE ; Output string .BOFF: LD A,(ATTRIB) ; Get current attribute value RES 1,A ; Set blink off LD (ATTRIB),A ; Save as current attribute .WRITE: LD!^#V        *&[&{ {8]S&[&{8]S&[&*&'[&':%(:&_:&R= &R( 8 R(0 *&| [&! :% *&'}oB)))>o&)))R0& }oB)))"&&*&D&*&D&*&D'*&D 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 '*&D>'*&D:&(&(&8 <&( &]'%Y(N > _&> _&:&*&2(}2(:&2(:%(>@2(:%o&)))))iP"%!(!(~~#66:(w2%2%<2%:%B(!:%_!^#V(!   2%2<     %<2%(!!&>8w:%!"nf:%2  >͢ >Ĵ Ͳ$!)NP͝  ͝ ͝ ͝ N2͝  ͝ ͝ ͝ ͝ ͝ ͝ N͝  ͝ ͝ ͝ ͝ ͝ N6͝ !=*N͝ ͝ ͝ ͝ !v 9>2 : @(!M*p>q#p#Z%w< :%G >.:%G >z!66 6>2X:CDG!6F( *SR!-t% !X4y!UO!W :X7>͈!'!R$|͈:%!os>:%!)tH!o !)*!s sJ:J˯N Yi&͖% y>͢ Ĵ 'O:kG2l ! >@(͢ >wl Ĵ :& >P6O  >>>!P"&!"&>2%!"&"&q#!06&0>:  >2 >8m,ͫ)χDisk is Write Protected - D You must specify the drive type Use the DEVTYPE nn option, where nn = 5, 10, or 20 (Megabytes). Undefined Logical Unit - you must format the logical units in ascending order No hard disk on system There is no second hard disk on system JOisk is not ready :%Gnf@ :%  "7S9!~ݶʫ 7]( :%0<2Qnf"&}2H=2}nf+"{nf"s~2unf"On f "Y͒*Q))o NF^V!Rʹ *&| *OR"&[YR8S&*&[OB ABORTED before Format Operation was begun Defective cylinder zero. This disk does not conform to standard. Disk is not usable! Too many defective sectors. OASIS only supports 48 defective sectors. This disk is not usable! SPARE INFORMATION FOR ALLRҲ [&*YRڲ !B(<^V*& R(,>2\:Q<(o&))o6666*Q))o nf#ut"S+[&ut#"M*&| !"&!"&!""&!:&0"&j >@nf͂:\( B,: UNITS ON THE DISK WILL BE ERASED Do you wish to continue? (Y/N) Warning: You are changing the size of this logical unit. All files on this unit PLUS all files on subsequent units will be erased!! Do you wish to continue? (Y/N) Number of cylinders i%8nf!s :Q̞ ͵z:%:G2C[S:CG:&2Dbk:COxG͖%4!D5 *MR ͂2[z!66 6>2X!""!s#r#p#qhi6 y!VG!) !A:6( y!V > 2E:CDGy!UO~!6F( *SR!)s too largeBad sector: ,, spared to: 0,,. "     ͈(:[(!E~( 5 !X4y!W‚ :[ :X7>2E:CDG!6F( *SR!-t%(:[ ({ (#z #:6( #x #y y!UO!W !E5 ,!))6>2C4:H ͚y!"S!)t$!$!2TRACK: HEAD: SECTOR: 0!)t6$!26$!!]͋>m :&>2&Ͳ$!]!k>Z%ww<#w>"2&>ͅ!ot:%!)t [*z( :)!*( s :%8x{xG:U( yO!~(;G#~ /#~2100021000@@A +#~ 'S0y22y23#~24~25c####!~04~_!s#rS0#x22G:U( y23w#:=25G:<24w͚  ;*0;;:2o&;;:3o&;;:4o&;;:5o&;`2~#g( (k(:S`:= > > G!{!k"61!>!>Y:2[!&!~(R<(O~ I! <#^V!(!&Y5 !=     p!(!^V  !4!5ªv:O!:  R0:_> y":K[*SYSTEM NUCLEUS CSô6(X!605>0g!F(6>#_!nf| 0!">22s2|2=͎2CS"ͱ0:!W!%[K[* $:=ʎ2C":(͎2CS"ͱ:!8 : 0:O:W:W:8z2G%:% %*%:%C!nf!nf6'%Y(N >:%H#:%G!( :%( (!((. !((6!(~O~W#^#n&'':(w(:( O:(g !B"%&&R>( 8 2s<2|2=zWSq{2y>2Z!"O!x"Mxpx8:2o2z8,*:o ~2{!K># G(##~(*|?>2!#2M Cc"aSj 'O!%~G#w !]!s6K[*(W~@w2(*&| 9:(o&:(_:(w(. '&':(?_R':(?O>o&)))R0*%<<R0!&:(?_&)):(?_R}2(͛#:%(:%G!( :%G :%G !( :%G!( ˾:%!(˾W !( H#Î>!"0͖:%7{ 8!~+ ! >!%2ZCO"M0:o :p!!K:Z>(>O:2Z>2p!op#w#w#w8P"Z"M"OdA*(*:( y2x :(!:%G!( (!(:%G!( :% PX!('(!(~ ( (͌#(08:0#>8:(͌# T]6 $A[8 ɿ(!(6*%&:(?(`(!(6:(?S%)!)6)=(/)!)6̓> :72*q̓R{!z!>:7!s:w#:w#:G:?H ?w*|#w)!)6:%G!( :(?_:(0O!)3!!+(,(6:%:&(:& :&(G!+(~(#:%:&(:& :&(=06#&8k:(+w g _ W >>> : >>27}%h !χ}TPέϳo{,_:%w*&:%:&(:& :&(=0o,{_ :%:&(:& :&(O!+( !+(G!YT:&(= :%:&(:& :&(_R0X+(~ :& _&X&o&!&h&e&4_&:_&:%'> 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 tr0acks = 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 "Q  V wlfb Hi!(0V]`gjqt{ #*2=FNV` +05@NTZ`flrx~   1 ? J O R Z c m t $ - 5 > A D H L X [ v   . 1 A Y ` r   " % ( . 1 4 8 ; B I U Y ` h n s      " & ) / 9 = F N Y b s '58=Ow{ "(7=GQV]kqw{'28AIT]bgmvz!'58>OSV\`ciorvz <jo )qy#[_b !1:FILOY]adgjmpsvy$*/7<AFJMUY^dgjntz}$'/:@DGJMQV[cnx~=STATE ver 5.6 27DEC82 Copyright by Timothy S. Williams[A7%R0!D>a~ (ʬ2̓~ ʻ(ʻ̓~ (](()#~+ ( /0 ö~Gڱ2~ (5(ª~ ('T(P(Nª#~Oª#~++Tª220~2:G:(S$>2:G '*149>BNY]aehlqu:EM9!D!"c#}#%%Seh}*g}U2o!":(S:(<282*|( : *!*>a: !)> a> !:G~?_S~2:G![ >2S~33#?(*@( #(3~$(A3[3 ~03:3# :(~ : 3#~( LE^P  \!6#e"!$=$ $/#!##"""r!k  boW)!n%6%% %$$ ,!"""ZS-~!k!6!+ l 0 #zB$$$#3!%%%%QH%%% " %%A 6%nd% E:%?  V W#:!3##^#V*"*#" !5—!5}: <dd!^#V*"*#"~*(?(@(# 2#2>?#!>a!!! *????????????????cIdw #  ^Lx}%r%E%:%"%%$$$$qI i ]R!w%?%%$$ 1*%I#W!Zz#W#P#?##!%U%P%$$$$$$$z$w$f$b$N$J$E$6$$$###########(###""""""""M":"%""" ""!!!!!!!!y!W@U[`dgjpux#).16CTX\au{~ &*-19=@DHOWZ_behuy|>     @TERMINAL ver 5.6 28DEC82 Copyright by Timothy S. Williams[Abk7%R0!D>a2> 2I~ \(^ ~ \!bdW t~18 50 2Q#T]*}28T]*}2:>29T]*}2;T]*}2?>2>yʶ  ʶ  ʶ ( ʶ Oö >20 20y&ʶ 'ʶ )ʶ (ʶ +ʶ  *ʶ Tʶ Yʶ "ʶ #ʶ = >20 >20y 23 20y 24l :4Ol :3Ol :0((y¶ >20 y 23>20 y 2420l :3Ol :4Ol :0T]*}2@T]*}27!,!,!,!,>>> >>>2->2*>2+:QG:e "[R e "`]! 9:9(M6 :>(TM6 (C( (( (@(!(! ! ! !> a:Q12MI!&> a7%"' ʁ ʖ y~ ¶ ö >20 20yʶ  ʶ (; ʶ ʶ ʶ ʶ ʶ ʶ ʶ ʶ >20 y``y 23>20 y2420l :3Ol :4Ol :>v :@ >2>v yv v v  >2>:@v v :@ Q*q#"Q : >:*:-02!,v>F(>H2~n>N(>Y2f>N(>Y2^>N(>Y2:+>N(>Y2!6 !%:9(s:: o&<(:;o&<(M~(J( < o&)))O+#~ (#>.~ (#>:~G!6 y v 6[Rv ͅ *"~(#( !2>ø> ͅ  v ů!+q#wy v !#(!ø2:> :? >2>:9(:: >29 :; >29y 8 y :,_ :,g(^l l :-ʹ y 0l l y :,o  l :(*!%:>(s:?o&<(:@o&<(M~(J( < o&)))O+#~ (#>.~ (#>:~GA1870O 1ʼ23 4ʘ56:>( 2> ͙ 8ʄ ¸~#"O« 2:0 E( ͐ (:9 B*<| !"<"(29!>Oë N#y 6 #6+ !"<"<ë :.( :/O ˯N ͐ O:8 :7 ͅ :,w¶ y  :9(! I:>:@<2 *+~ (>2>:?<„>2>Ä:9( !29 ͙ 8ʄ! V(7 >29::<„>29Ä (@( (+ ʄ˯F(H(F:,˷2, H:,2, () ʄ˯Y(N N:,˯2#6 #6*"~(#(!ø> !2>!~(!+6 !#2!!>a!>a^#V+*[:QGR*[:QGU*[:QGX*`]II: >bk6 !~ (I.(# !d7}2! # ~: #F2, Y:,2,  () ʄ˯Y(N N:,˧2, Y:,2,( () ʄ˯Y(N N:,˟2, Y:,2,2 ( ʄ˯Y( N O2+O>; ʄ ʄ0870O2-Ä52.Q : 2.0~>2~$(H (7~$( H (T #~$( H (T #~ .:7A[8Aɿ0:80("*y K:<2#"~#">22!~ȹ #"~ #">2+">2ɯ# # *# # >2[":G #"^ ͙ g>2 @2/  o z O:+(ͅ :,o( y  ͅ  :^ :,g¶ :-ʶ i;ʶö :0( ( y¶ >20 20yHʶ Aʶ  Bʶ Cʶ Dʶ  Eʶ F(IJʶ Kʶ Wʶ Xʶ ]ʶ [ʶ lʶ mʶ bʶ cg!!^ =~ 8#F^:O 6#!^ ~ #F^:O 6#!^6#6#6 #"">2E!OE yw#86#x>26 #""j͙ >2 !9!~(!6_!! 9! G#  >20 y 23>20 y 2420l :4Ol :3Ol [1:0ʽy (3(+(3(: (I(< (K (( 8A(=6>>20 z(#O zP8 {( {8S1ö ypG> WyWy_20S1l Jl Kl :00ʈ!6#x=w+_:G_:ADM3BHAZELTIJCOMCOMCOMCOMCOMMCOMMCOMMCOMMHAL$VDFRDROο>     RDROFPCHOPCHOFMASTEVGP OASIS Terminal Emulator - version 5.6 Modes: Duplex=F Autolf=N Ctl=N Null=N Master=N Class=0 Receive file = (ON= ,OFF= ) Send file = M d i l o x {   / 3 > F I O R q t x |     ! 0 5 c j n r y ~  (;HZ]bejmr (ON= ,OFF= ) 1 - Assign receive file 2 - Assign send file 3 - Define translate table 4 - Change Modes 5 - Begin Emulation 6 - Quit (return to OASIS)  Enter function:  ** File is protected ** ** File not found **,.6iou|"' ** File is not sequential **(ON= ,OFF= ) ESC,C to return to menu CONSOLEREADER PUNCH PRINTERPRINTERPRINTERPRINTERCOMM1 COMM2 COMM3 COMM4 TAPE1 TAPE2 TAPE3 TAPE4 CONSOLREADE PUNC PRINTER PRINTER PRINTERPRINTERCOMMCOMMCOMMCOMMTAPETAPETAPETAPEPRINTE COMTAPCORD PC PRT PRT PRTPRTCOMCOMCOMCOMTAPTAPTAPTAP Input: Output: Enter input sequence, ESC,C; output sequence, ESC,C. Followed by next input sequence, etc. Indicate no more input sequences by ESC,C. Optional save file name: Existing translate file name: @SPOOLER INIT C]bmr| %+1MSY]cfimwz~"-8CNQ[adnqv| GKX !DILOZajmqvy %6;DI`qv   .37:?BFKPUZ_dgjvy #(+/269=@EJ"&+.2:AHOV]dkry~     " % ) 1 8 C J Q X _ f m t w |       ! 0 3 C H P ] a d o s w ~    # & - 4 7 : B E ?     ZMRW\aeimqAc~V !>!V(!D>a!>N.F/> > u*~<+~(wV w666qpqp͘ :x:NFnf `iutB:* =~NFfnB(E(*-#~( p#q#6##~w#(#~  N(^V#~#ng~(&~( FN V^Jzz( p#q#6##~w##~w#^V#~(+~O G FN D~~( p+ utV(T^V!utbk6 ^Vfn((  ^V#F#F>:ut6V(6 !ut&n~ ( #(RF;x0ouͼ5~ݶ(~ 1E( *+G @F;qnf#ut~ݶ#q#6# ^V#~(D~W O 9G 5FN FO#x (y(8  N! DM p#q#6#N nf$~ʴ ~(  ͼ~8 ͼ ͼF#N#xʴ nfT]6 ^~  x^V$!Gnf> ^VϷRDM_ nfG6 #= n0f1^V~#( ~  N ~ (#>nf> yD=?GO?D=_nf6 # > ^V55~ G O@y  @F; ((V~# (j(ygn}@~# ~(}``( >%>$|(>(>)^V˷R}86 ͼnf6 T]ͪ f# n# >"f# |(~# " %>"N *V+nf ~~w#~.  A >. DM ( > F F> ü=~ݶ~ G@* Page > ^> ^>^>^> >  > >>^V> u> nf$6#6nf~.#V#^##~ % %(E #V#^#nf$FNx(fnR(-0  66rsN !V^z(#### nfR0*?##DM~(%(((( ( ( #  #N~#(> f#n#ͨ dͨ  ͨ }0~#>/B<0 N( 0> ( Line/Label References Variable/Constant Refe tu6 ! tu  ^Ýnf$~~(  ͼ~8 ͼ ͼF#N#x nfT]6 ^V~6 { +wͪF;h&R{Enfw +++|(> ^Vͼ|nf6 T]rences 08:007A8[0A7 nf^V߯Bbk8 ^V!((srgoutB( 0o&bk>7!D ( A8G0O)8)8)8 )8 H ! $)| DM)| )| | O |(7ɷD Ex x 80ɯ!3 nf$6#6nf~#V#^##~ >:C~  (E > C# ~#(^V~(,#˿F˸( 0V^(~ ~(6! DM p#q##~w#(rswFN! tu  ^nf$~ʍF ~(#O#F#>/B<0 0  <>0'd nf~(F( !fnnf6#^VutͷRnfϷRDM^VsrnfutnKfLuKtLnfrututsrsrr#ut6 6sr͸ 6626~(  ͼ~8 ͼ ͼF#N#xʍ nfT]6 ^V~# ~(>:^V˷R}86 ͼnf6 T]ͪnf$6#6nf~ʢ #V#^##6 ~0(@*(!(4/(*1(&>("N(+(:(<( E( (E 6W6R6M#~+3?64 6<?T]6nWfX+ut6+ut66[nf+utr+utr+utr+utr+utrrr:r!r#r%r'sIrJsrr(r,r;# ,  xͫ u#t#60(~(;ʵLL ( (~ ( z( {(E #ì^ß^V~^#~O`O~@G@#F˿˸( 0mFN ~G怸(~ T~(yf(D(f((=(9d(5FN! tu  rs~wM-6   B0  ~#(G 6~ #v-~# 8wʻ!  &K0"!͛ !͛ ր!͛O6 ~! ~(>$(~#(=~~#(O! ~#fopQ`F&-;Mosw{.?      > 1>; (>,>#>:~ 1>\˹F(>!1>)4>[˹F(>(5>]˹F(>)>>><>=>>><><>^˹F>*>*>*>/>+>->&>(>= 1>"F#x(~#" >"!1!! ˾+x͏G]3w+K;ݾʜ~͕!0 >͓>͓y/A~րO~րÕ!8 ! !8 ! !8 ! !8 !  !~# ( (> ,f#n# 1Fx@~#~(h>$p>%1v1,~#~(~~wT]#~E(. #A1>.>0f#n#1~8>0f#n# >H AND OR N# '+~#~w+>Y>YÜ>Y>Y|utnf~G怰w͏Vˁ͏^ˉK|V^z {~z~ݾ{OT REMCHAICLOSCSDATDEDELETDIENFOGEGOSUGOTIINPULELINPULINMOUNNEXQUIOOPEOPTIOIPRINRESUMPURANDOMIZREARESTORRETURRUSLEESTOWAIWRITFNENWHILWENSELECCASCENMACLEAREADNEXCOMMOUNLOCIFENOTHERWIS\COMMSERIAPRIKEYELOC###N#~  (+>#~ +q#8#7 o+#g# ~'w+#~(0_(w#)T]))_|͢|6#ͳ|6#6#|6#6#6#!srQUOTFORMARECORDSIZFILESIZKEYSIZSEQUENTIAUPDATXOIMEQRENOANOERROSTETDEVICMEMORPORINPUOUTPUDIRECINDEXEUSINTHEELSBASCASPROMPEXTENABASATCHCOADATDADEDTEOEXEXFIFIFIHEININININLEFLELELOLRLRLRLSLSLSMIMOK͢G+(- n(,.(8"x   8 x pʵw(r~!E *+(- 8h 7͌|(p(:x(!RJ3 ݶwu|| 0x +3CÜ^V0 ?nf~#utNBOVNBPPORERIGHRNFLOARPSCSESGSISPACSQSTTATATIMVAUSERERCRCRUSPAGLINMATCFORMALPARPALTRIRTRITRIMIMAROUNHEXOOCOCTOBIBINOUPCASAAAAA3AAbAA> >> ;~K~6 (6-; >0;;6E#6+~(ց06-D#60d84d#/ 0p#0w~ր|o&6 ~!շ(j >0 + ~- #G(0+~# y(@4y0>0 y(y DO   ( (6}z | | Z Z0?Z0?|*!Rѯ?zG|?|?'8 | x?x *zG|?|?z4&x?z !|z(!tu6BK!85T]S!0 V^S5 !-(+( ͫ 8| @>0ѷR}Gw>.n>,go~ր8c(aG> 8DO~#Ė~#͌ Ė͌~(!R(z%|(7!(!>Y~ͥ|(=|(!R#'#d# {ow=B<0?@* |(?>- >Y!7>Y!7>Y|!?7K~_V KV^ݾ |{͇w|r|˺˻8 ͕ͳxx ͙͝yy~і( GѯObk  '+~ 4%O' o~(->ݖ8&($ 0$G>_;#(~w#8(6#͢+ Nʜ3yw ͇nw+Kݾʜʜ~!ut͝ ͢ LͮLN+ͮ~(L~րO~րãƀ3wn^Vɯ'+! ͏!  &p)Tag u b / 2 poA } #-8.6>F \ ,3:oNZI\kQxE#  -8@COVly||AVo@     19AI$ESels|  #*-4:RUailpx ")/<DTgjux,=MZ`nvy @  4DdCP 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, knqt| ,/;@GW_bgnq|'69<K  !,CQ^dv%-28?1#;AJ^e $+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 DEFI m v y dg$(BPUZ_NE 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.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,E 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 DE SCOX ; 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 FINE 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  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 ; l DCA 7 ; DCA is ESC,=,l,c END oop 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 @     @PASSWORD ver 5.6 06JAN83 Copyright by Timothy S. Williams[A]0U(E0:w*;U>~ h ^ͤ=!=!#z  #W^ !~ (@I! (.(( 8@RECOVER ver 5.6A 11APR83 Copyright by Timothy S. Williams[Abk7%R0!D>a~ (y((u~ (m((i~ (R((NG8=2~ (L( ~H( (:08:023*"426!!>a!!!!:! ~(!#> aw#*x x(+ T]6 !L9P ";T0~20:w*;U>06%7 !(.! bk7%R0!D>a0~wK7!"K~# ( (+u~# ( (+#T]6 ~ ( ,( ( T]6 P~ (:G~< !M> a:G~?_n&"~ _f n '^ '"0!hII:3( *4}o" ?*74:G[! ! (5 > #*"[RڌEnd of disk *! 6 #~ (#~ ( ʤ~# ( ʤ+ubk7%R0!D>aä67!!~(! #%! ˾˶ˮ!:%G %>287 !~(Po&> #~# (~ (>,~ (#> n&> 7!#  "U*"> Ea@I:NY #ʣ ( ( 8 8>.+6^#@!25 1#!> !B[R8"*#".0~*[&"! ~(!#> a:G>2 K]*_~# xC]"! >a7!0:w*;USYSTEM ACCOUNT Account not found Invalid password Account has no password Old password? New password? SYSTEM _*[#"[[!S:G  ;y22 Sector: Sector number: Is this the correct file (Y/N)?  Enter match string (LF = end of line, continue): ASSEMBLEBCOW\ciuz}1?IOU^glrz}!IPWf{~  9PChy 8P`kp}  ,16=@CHns{~ *_A     CODE 9 8@!_^#Vz7(O<@~(L > > >~v &0@( n‹n 77i}˯N7@=@} O@| O@!************************************************************* *qST 10GRGRGRADE TOTAL UP THE GRADES 4 F!MEAGRST GRADE TOTAL/NUMBER OF STUDENTS = AVERAGE GRADE :MEA  + T Y   )(&'Q  W  ER"(($ (*(0(6(< 2> :20:˗2&:2:˟2:2:ˏ204 @G@:0O@Oy(!! (###~˿N7 @,@P@ERQWYTI Mg/5:?#DINSX]bglK  ******************************************************************** B TITLE: STUGMVD.BAS BY: GREG LYDON CS 10-81 EX 7.10 #6  K( PURPOSE: TO CALCULATE MEAN VARIANCE AND STANDARD DEVIATION OF GRADES K2 **************************%0010 ; ASM procedure 0020 ; 0030 ; Copyright (C) 1981 by 0040 ; Timothy S. Williams 0050 ; 0060 ; 0070 &IF &INDEX EQ 0 &GOTO -NOFILE 0080 &IF &INDEX EQ 1 &IF &1 EQ HELP &GOTO -HELP 0090 &OPT = 0 0100 &IF &1 EQ ( &GOTO -NOFILE 0110 &FN = &1 0120 &IF &INDE-****************************************** /<8| STUDENTS ARE NUMBERED FROM 1 TO 20 @F(GRADE2 SET SIZE TO MAX POSSIBLE NUMBER OF STUDENTS P:CLEAR CLEARS SCREEN YZ%A 0 a Z X U R O N D K R ! d 2 K&X EQ 1 &GOTO -ASM 0130 &IF &2 EQ ( &GOTO -OPTASM 0140 &FT = &2 0150 &IF &INDEX EQ 2 &GOTO -ASM 0160 &IF &3 EQ ( &GOTO -OPTASM 0170 &FD = &3 0180 &IF &INDEX EQ 3 &GOTO -ASM 0190 -OPTASM 0200 &CT = 0 0210 -LOOP1 0220 &CT = &CT + 1 0230 &IF &CT GT &INDEX &G. N B ; P  <d 20 STUDENTS FOR COMPUTATION, -1 IS END OF FILE MARKER 3n0ST STN = STUDENT NUMBER STARTS WITH 1 2x>GR READ GRADE NUMBER FROM DATA STATEMENT GGR  0GRADESTGR 9 0STST POINT 'OTO -ASM 0240 &IF &&CT NE ( &GOTO -LOOP1 0250 -LOOP2 0260 &CT = &CT + 1 0270 &IF &CT GT &INDEX &GOTO -ASM 0280 &IF &&CT EQ / &GOTO -ASM 0290 &OPT = &OPT + 1 0300 &OPT&OPT = &&CT 0310 &GOTO -LOOP2 0320 -ASM 0330 &PAREN = 0340 &IF &OPT NE 0 &PAREN = ( 035/TO NEXT POSITION IN THE ARRAY >GR  H 90STST NOW STN = ACTUAL NUMBER OF STUDENTS M ********************************************************************** ; SORT SCORES AND PRINT THE MEDIAN AND QUARTILE SCORES M *********(0 MACRO &FN &FT &FD &PAREN &OPT1 &OPT2 &OPT3 &OPT4 &OPT5 &OPT6 &OPT7 &OPT8 0360 &IF &RETCODE NE 0 &QUIT &RETCODE 0370 &IF &* EQ NOOBJ &QUIT 0380 &OPT = 0 0390 &CT = 1 0400 -LOOP3 0410 &CT = &CT + 1 0420 &IF &CT GT &INDEX &GOTO -LINK 0430 &IF &&CT NE / &G0A     OTO -LOOP3 0440 -LOOP4 0450 &CT = &CT + 1 0460 &IF &CT GT &INDEX &GOTO -LINK 0470 &OPT = &OPT + 1 0480 &OPT&OPT = &&CT 0490 &GOTO -LOOP4 0500 -LINK 0510 &IF &OPT EQ 1 &IF &OPT1 EQ NOLINK &QUIT 0520 &IF &OPT LT 2 &GOTO -NOREN 0530 &IF &OPT1 EQ RENAME &GOT1=BASIC ver 5.6 27DEC82 Copyright by Timothy S. Williams[Ah*`>!=N <.=F <.=V <. (!== :AG[B>b1x2A22#242E!F#!M4!TE![~$(A8 [0[T"[F*MRO -REN 0540 &IF &OPT1 EQ RENAM &GOTO -REN 0550 &IF &OPT1 EQ RENA &GOTO -REN 0560 &IF &OPT1 NE REN &GOTO -NOREN 0570 -REN 0580 &STACK NAME &OPT2 0590 &CT = 0 0600 &CT2 = 2 0610 &OPT = &OPT - 2 0620 -LOOP5 0630 &CT = &CT + 1 0640 &CT2 = &CT2 + 1 0650 &IF &28*TR8*[R8!) "`! 7%R0!D>a!\ut 6ut#ut#!ut! ! 66!ut! utnf6utqpqIpJuKtL#ut66[6qp6(7+ut6+uWtX6+ut6+ut6nf+uCT GT &OPT &GOTO -ISREN 0660 &OPT&CT = &OPT&CT2 0670 &GOTO -LOOP5 0680 -NOREN 0690 &STACK NAME &FN 0700 -ISREN 0710 &STACK INCLUDE &FN 0720 &STACK END 0730 &PAREN = 0740 &IF &OPT NE 0 &PAREN = ( 0750 &CT = &OPT 0760 -LOOP6 0770 &CT = &CT + 1 0780 &IF &C3t6+ut6+ut6+ut6+ut666!6#6%6'6-*`?6#!u0t1!u.t/6263?6;6<6=64 6V!buGtH9NT]6 ~(( ( 6!>Æ( ~ (C(!>a>!Æ!V $~w~w~w~w~T GT 9 &GOTO -LINKIT 0790 &OPT&CT = 0800 &GOTO -LOOP6 0810 -LINKIT 0820 LINK &PAREN &OPT1 &OPT2 &OPT3 &OPT4 &OPT5 &OPT6 &OPT7 &OPT8 &OPT9 0830 &IF &RETCODE NE 0 &QUIT &RETCODE 0840 ERASE &FN OBJECT * ( NOQUERY NOTYPE 0850 &QUIT 0860 -NOFILE 0870 &BEGTYP4w! >a!D> aBASIC OVERLAY1BASIC OVERLAY2BASIC OVERLAY3BASIC OVERLAY4E 0880 Filename missing! 0890 0900 Use: ASM HELP to display syntax. 0910 &END 0920 &QUIT 255 0930 -HELP 0940 &BEGTYPE 0950 Function: To assemble and link a source program. 0960 0970 Syntax: ASM fn[.ft[:fd]] [( macro options [ / link options ] )] 095-DKRYd#+_AOX}80 0990 Examples: 1000 1010 ASM PROG1 (XREF / RENAME TRIED NOMAP) 1020 1030 ASM PROG2 (/ SYSTEM) 1040 1050 ASM PROG3.ASM3:A 1060 &END 1070 &QUIT B     !%!(>N.F/" nf" nf"  %n0f1> !~ (!#~ (~ ($~ -(ʦ~ -(ʦ/%2$ ~ -(H ~ -O T]B J =!dO~> 2 2 > > >>>2 2 6" +6" :(=OO! ~(F[ R" ~w##:P(G!QV#^>Ͷ2P:(G!V#^> Ͷ2:(G!V#^>Ͷ2:(G!V#^˼>Ͷ2! 4V * #" ͑fn) (*  " r#s#[ r#s#6>2 : (2 !F%2 >2 æ07+6" $! ]($!$]V2 2 :$< 2$!$~<w͈(:$ ]͈( ]$* ~]^#V:$G* z(7%R0!D>a $+V+^* ~n~(O S #[ R" >v* " * ~#6K p#q#V6#^6Vp#^qz ###? [ GOB K B" wz{Sbʜ ]w!B_^#V~# ( (+ #V#^#) (* +++++s+r" ##### ##V#^z(q+pr#s#++^+V~#w#(((~#w#F~#S O" ͑+~ n* #V#^'RnT]~  X[ #($( (#(fn>Ͷ~#([ ~~+~ S ~#(~ (G~ (B (=(2(.((!(((6N ~(> ѷRu>v* ~ʸw#(#~#w#(8~ y ####fn>Ͷy ~y ~ y ##8y ~  8~ ( #8#~ y #8y +* ####~# K q+p ~ y #66#K * V#^z(* q+p ~ ~ #(~ 8y 6 #y #8#8y 8####~# ((9(*(((( ## ~#(N #~80##F#Nx #+* ~fnB(_~(n~%(&( >^?(,###M~( ^~(~F ++~##? ~%(~w#~w#PYfn>Ͷr#s#[M ͌ y ~  8~ #8# ~ 8~ #~yM 860M~ #8~ #8#~ʧ #8~ 6h#6## ~  8~ ( #8y 6 ~M 88#8#8 ~  8~ ( #8>Wy ~#(,/6Y :6Zʼ (((fn>ͶDM #(GOT]~#(RDMy(,(`~(_#RDM## ~w8~< fn>Ͷ+6#63~(O #RDMT]+4+6#p#q+L>v7+" 6 * ~͑~ T]~(O #RDM###~# ( E6\=~ 6[o6L +M#~6X 6V # y ##8#y ~o(C8 ~ ( ###~ #p#~ 6#6#͌ ~ y #6U###~#(++͌ y #6#6#y #8#8~# (f(Mu(Yv(Yg(Yw(Ax(A_(A`(M(Mb(Ma(Mc(d(e(+pO(%(=(( ( ## N #>M~ M~ #~ #>M~ #~+N ##~ #~+(>++~ #~+(>[  (( (#(~#([ +~S `( `(* #" * #" * #" >v* ~ʝ͑###~# (( (#q#y 8þ +~|(!~(.}(.("](7^(Q\((~ y ####~#[ 6_6`6a 86!  ##~w####~w#~w### ##~w##~ ' 8~ #8~ #~  6 #~y  8#~ (! ({(( ( ## N[  w(( #(ѷ  N !x(G`G~(O #RDMR~wp#q#>v* ~(_#6" ~M_͑~&( FB###M~ ( BK[ RDM ((  8 6 #y ~ ( ({( 8~ #6 #y ~ ( ( {(8y 6 #y ~ (6T #8~ ( #8# #8# ~  8~ #8# # ~(![ z +y ! 6#r#s++͌ y ͌ y ~ #~##( +++͌ y w#w#y >~6b~(_###~&(F RDMfn>Ͷ+^+V+>fn>ö>v* #" 6!" * >2 ~ #! 4FʷO͑~%( * | fn" [ RDM>v* #[ RDM[ ![ !bk6* #6>2 7+6" +(y 6 ͌ y ~ ( ({ 6 #y ~ ( ({#6 #y #8~ ( #8#&V^:P >Ͷ+8y <2POO!K r#s#[ r#s#6.8p#q##y 6-:P fn>Ͷ+y =2P!SOO ~w##~#w#V#^K Br#sy : ~ B     ( ( fn>Ͷy <2__! ~w#~w#[ r#s### #8~q(1* K 6S~ #86 #K Br#sy #8~p(6#6#6##8: fn>Ͷ~My !__V#^#BKr#s#V#^r#s#* ~###S(~`(c $+V+^ut[ > : > >  ~(((( ( ((w" * $Gw %8@8P8 8P > $ ~ < =0gHmmqʝ (2 (.hijڦ Ҧx>æx>4dr6# ~ # #(* #[ r#s:=2y V^: > Ͷ8y <2o&))) r#s#+p#q#6#6#6#6~ ( ( 8y :=o&)))6#6y 6.: >fnͶ8y =O! ~##>(V#^z(46-#Vpr##^qs#++6.xʦS o~>!=oS #ÏS ~o#=~#= Ï S >K xy Ï> > S K >xyN Ï~~ ~N 0S ~o#~#(~(yʏS oÏ +y1(>A#(v({(w  K BN+F#z{#8N+F+^+Vz  ##~K x p#q#8* ˾6#V##~(G(!(! (((( ~w## ~w##F~w##~(w#r#s##y : >fnͶy =O! ~##>(V#^z y 6-#Vpr##^>(j j >a i > X h > O (J (E (@ 887 (2(.(* (%(! ( (  >Qx GÏx yO~8 #~oS # #~ 8Ͷy =2O! ~##V#^#(z( K p#q+z fn> Ͷy |( V#^K q+py ~6.8g * $ 80+͌ V^. : > ˼Ͷy <2!OO r#s#[ R" [ F* ++" * ++" S RDMbk##xy PY<~#((( (## N ~#(: (0O : ( fn  2 +"   * #" : W!1">  ((N˹##p#q#6#6~zy +~(-( y y {y ? +6-:? OO! 6#6? +~ +6-: fn> Ͷ~ y y {y ? !OO F#Nx (< +++~(Ffn>Ͷ+6#6#~#+ < +6+66-#r#s##[ R|}~-p #͌ ~#(  !>a!>a!>a! >a! >a!>a!>a!>a! >a$! > a!D>a$>$fn$>@TYPPRINTEPRPRINPRINTERPRINTPRTPRINTERPRINTPRTPRINTERPRINTPRTPRIN:OO! >w#  w+++y +: fn>Ͷy Fy :=2!OO V#^z (<(K Br#s#V#^z(>  F s y M y     >   s GG B  #y cs G&=y S>& 4 M F (>v* " : ʊ: ŠTERPRINTPRTLISNOLISNOTYPNOXRENOOBXRETRAC% $!$* "$$: ($ 6* " * |(;R0!" * " C$_(!$: 3 A,$!$* Š* Ê: : ʺ: º ! !.!* (H!* (b!* (* ,R8* d&* K B* [ Rd'[ &|! >%>  !* (!* (!* (!* (Pf(z %  ѷR0<  R0<<'  R0'* &<'!  ": d: ([* : w !$* ut$*  .^#V* z(C     Pass # BASICOBJ Oasis BASICQZemrv(7CGPTa     2 6 9 < A E M P   @ e q !$4EUXY ^ c h l   . 2 8 ; A H K N V Y a g n t w }  compiler ver () statistics. Input source lines: Input source size: Output object size: Source reduction: Compiler errors: String variables: Float variables: Integer variables: Co      ( 4 7 : F O ^ k o KPSW_chsy  "+18BIT`cju ' + E K O T  &6>ep Za .6I~mpile rate: lines per minute. Line too long. reference to undefined line "". reference to undefined label "". WEND without WHILE. WHILE's nested too deep. CASE without SELECT. CEND without SELECT. OTHERWISE without SELECT. CASEless SELECU(2!*-AObgjuz (+=@CMSX\_bhksx~T. SELECT nested too deep. FOR without NEXT. IF nested too deep. ELSE without IF. IFEND without IF. FNEND missing. FNEND without DEF. WHILE without WEND. NEXT without FOR. Label "" is multi defined. Illegal DEF nesting. RUN, LINK, or CHAIN has line number. SELECT without CEND. FOR nested too deep. CASE follows OTHERWISE. More than one OTHERWISE. IF without IFEND. More than one ELSE. BASICOBJBASICCOMObject file is corrupted! Compiler error at line  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,Em^ox $-6>EM !'+2FIOXgrx}o!&+2x!$'*-03SC,\ 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 DEVOUTn6AFL^d~+3Z]f "),/BEJOYafknqvy~%*/28<GQ_mty~&+:>ADGM 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 Qmr}(.59<FPTW[d1FI$*8<@I]quamqy  $2;?GMC      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,MqRIGHT 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  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 sequrence 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,s.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 ; sktip 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 tou@COPYFILE ver 5.5 24APR81 Copyright by Timothy S. Williams[Ap bk7%R0!D>a~ (((x( ((!c2! c2! c4 d! c242d=g*g?g@g#g4d 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 v~ (( >R2d*g?g@g#g~ A((!c ~ A!d !!>a! !> a!>2D2D>>2 ~ [s#rD>2>2 ~ [D>2>2D~2D~2D~2D>2 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 wD>2D>2D>Q2D>N>2D *"D>2D0~2:@pS)!p>w#)p@Ip!p  o ( + (*  AG ( ( *Ex AxM!p w~:(1:*(G`:=( *(G`r '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 - x :q :* ':N(>Q2>2:(<2G:(XG`2X:( :l!~*($?( @(#(#:Q(! >2-:G!p ~2:G!p ~? G(N@~#  @!!~Gẃ> !p :(!p  #:((O!p~ (A(a8{0˯w#A8[0w:(2o> !p+> +*):-=2-½>2-:=2ý!p>2 .::= :G`2!l!l(C!~#=( *!~# ( >C24:N >!p~(>P# :O~ѹ(( >E24(:.W:! #(#6 :(p ( O!p ~: Ul p!p~ !p ((#~ G# >>  #N#~ Gy# !pp~ ((Py (6x8+= 6#q#x wNy(( (> > x8+= 6#x w## !p!p ͐ (:ʐ *+"| F!p# >R24:(>C24~(>P24((>P24( N!.O!!.^VS#V(:G( >W>F24(!Nut"'nf"%!j:w#6N:G O[%:G*)2!"%:NWʅ*%DM*)y(^#V| *L B|%B|!^#Vo :’:G[*)$ !p!G: .*ut*ut*ut*ut!p:G :([)!2[)!:G 8 0@@O #~~ >0>~::4C( R(!!#S%{|z *L B|['*) ~# !NsrO+s#r#:G(0 >W>F24(*)$+6+6['*):G > *)s#r['*):G3!:0['*)$$$$:G2[)*)$$$$(b5!R]l&['ESF\Fe.:FO~ (O#>D24:4E(W(P(F( s(~ ʳ(ʳ~ ʭ(ʭ~ ʹ(ʹ#~+ ~ /sG!c!c!c!'c $#G:x!( R!&> a#(L? 8˯ON… > # x :NW( *)^#VS'*#+"#|¨: g.!p !N!p:G >sS:::A(9: 3: -: ': !: : : : : : :.o$ :, !p# :242TYPxNOTYPŀNEWDATŃOLDDATŊFRO͎FOҮFRLABE̸TOLABETRUNNOTRUNNEWFILREPLACAPPENPACUNPACUPCASLOWCASMOUNVERIFNOVERIF TRANQUERNOQUERPUBLI"FIL*SPEC9CONSOLE CONIN CONOU! %#:A(:2>=2(>P24(>2:A >2: :G[C*) "!"  (F( P(Dy24(*"*": +:ʐ  !p !p ʜ #Ü  !p *+"| Ü ! 9:(G:ڿ:G~8m!p g:T 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 (`~ U^VS^VSnf"nf"*)$:G  + (~( #>OC">> > :  N>!!"_"a"c"eg."l::GN 8!p:G( (ut"!p !""*)6#6!"!"*)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 directo$"6[): AK*~(? C">:G*)$+V+^*) G(?( (((w# hI~;E :V ~# (*B0C*#"K[~ CS*)[s#r} :G Cr+s*ry 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 == = == =D      ppppAINITTAPE ver 5.5A 17JUN81 Copyright by Timothy S. Williams[A~ (1((-T #~A8[81858!>a2Y12`:`G: U!&> a^#V!"b~(~ ( Tc#~Ec:`W>a>a(͔>a(͔>asd!d~ ( (sz )+CLU^bhruz}&),149<CJQZ_mr}#*0:DLV`j     6 = T u x }   $ ) , / 8 ; q t ~ ( (`Id!d~ (/:`W>a>a(͔P!>a(͔̈́̈́>a>a(>a>2>a͔ >a!56>aZ>(:`G:o&#6)#6 #6U4_!^#V4P44,8Fnot readywr  )2:   ' 1 4 8 R U l r y      * 3 6 B G P      ' * / 2 ; > D I L Q W Z ] q t w } ite protectedtape markdata transfer errorend of tapebegin of tapedata late - TAPE1 Enter volume id (8 chars) ?Enter owner id (14 chars) ?VOL1 1 ,BTWZehkq{18CFJORX]`josyEMPSVY\_behn&),58>AILR\hz}8kr{"'*7:DINV[`ehmr} $.59BEX]int{ !$,27;> %(37<?GJNQVZ]my|  #,4<?BEOS@RELOCATE ver 5.5 23DEC80 Copyright by Timothy S. Williams[Abk7%R0!D>a~ {(tBB>$2~ ʵ(t~ ʵ(t~ t!(:<2 !> a N(! B#> The twoF[r|Crw  %*/8BLQ{~ absolute commands must have different names. !(:<2 ! > aN( [*R @n> The two absolute commands must be of different origins ":G:O!g7%R0!D>a[!2 !!6!f.".60~w:2:G[!2S:==2!!:22V^fnR[Rnf[Rut*4~ !:g.<2"6#"T]6R*s#r#"#*#"#*+"|#*+"|#*#"R<B"B!!:G[ S<*&"! 0~ ~w!:G :G[m"  :O[ !3> ! a>!a!>aXXXXXXXXCOMMAND ABS2 COMMAND NEWREL COMMAND E     ͜e, ͜èe! n]2Y_^V sKrLI%zNFx()ͣe $~ݾ8ut^~ 8 0 I,NIFJxnKfL#V#^##~% BȯwMzͣe~( !( ({(2Y_fn2Y_&2Y6>6[^VoX(>(klu|  #;>DINSVY^cfC_dju/29=GU[^f  #(,036:LPV`1x nf.ͣe.N^V~(G#~a8{0˯#> !~ fnnf~~& 7##NFBDM~`@>(>8>* +q+p[*^4~. 4:N~,n1(~|(~  ,6'~(:~w ~00,~:( ~ ,6'~w ,6'~(=w͉51%͉51NF^VR}^VnfRDM!utsrxy~~6~ 6 ~:6:%nf~> 1~T]#F#N#~w#~w#~w #~w:#ut^VѷRDM!sr~(( 51=04!N(~(h|(bnf^VѷRDMutsr~~~nfutnfutnfut~!w"6'nf~> ~T]#F#N#ut^VѷRDM!srnfutnfutnfutÝÌ)"@~w>!N.F/~T~ -F*FNqpqpututx( -N6- ~ #~(~Vf( ~'~̊/6, b #%~'¯^VRuE>n1nfVn(nYfZ|c/+uYtZ~#z{!O!u ^#V5 ~G=> 14%6' ~%w&~ ( (Ny(8N ^Vr#s+qpnf^VѷRDM^VRutsrNFp#q#w#( ^VnfRutnfRutnf~(+6'~%w&,##~# V#nbGNG~,n1x()(zOx(V~!/~,n1'~(6'~{ʔ# T%~,n1~ (ÔRuqpsr~(R:~:( ~'w'~ݖ:( w6: ~'w'~'(~ݾ 0 6'w~'vBQr.e9l'N -{ʽGʫH*ʱ4IʷJRK(~ t(?(nf}n>m>8(0 3(=G# )2e~()y(~(|( j|( 6' ~%w&nf>1nf~nf˾~#+>1T]5%F#N+ ut^VѷRDMշRsrnfutnfut^V(BK#  {(Pz(@(3((((((### N #~ #~ 8,'F(ý4:4'N( ~ ݾ 6''F(~ ݾ 6'5~w4!4#4%'F( ~ ݾ[#~ʯ~:ʯ5:5ï'^( ~"ݾ! 6'5!(ͧ o&^V#N~#(y`@8(#  ut^V6-x B^VsrG~ G #  ut |} sr~p( x!( !j# ut |}nf^Vx(NF (e~(~(8'V( ~$ݾ# 6'5#'n~&ݾ%(6'n 'f(~&ݾ%(5%nf^F%6'%6',nf^T% (bQWG=$* ,!<0  #, "- ~8 ! ."V $"A$z nf6 ͜e (̀e( ( ( ,(w#6 ~(j|(|($ ~~xNFBG}6#6$6' 6',^V˷R}Mnf^VѷRDMRsrsrnfnfRutO^VѷRDMnfutnfutnfutN((nf}E     nmx^V~ (( ($>1BK# (#o&>1BK (#* ~#ng  UG_Prͣj6-G_P~ j|(ͧ F#N#~5 ~ = =1!wf6-^V!nf~  e~ F#N#ut~5 ~ ( ( > å qpsr#ut R}nfwx6-NF^Vnf6'=~(#/~(: #~( ( ## ~(#J1#J1##NG -x(6-(m| ( :g58}d1>^VN^V B`i> NF#^VOnf$#KCx(9y8P z(z(((( ### N#~(~ [~y^VV(#~+^G( >  0F ~ M(>,n(>;2xV  ;xx0 ͯ(0{> #~ ʗ ʗ{ʗ R##V ͯ0F J1#}F     F     G     G     H     H     I      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,V) T DEFINE EU,ESC,+,8CH DEFINE PON,ESC,) DEFINE POFF,ESC,( DEFINE FON,ESC,26H DEFINE FOFF,ESC,27H DEFINE IL,ESC,E DEFINE IC,ESC,Q DEFINE DL,ESC,R DEFINE DC,ESC,W SPECIAL: CP SO ; Test for RVON JR Z,.RVON ; BRIF is CP SI ; Test for RVOFF JR Z* ,.RVOFF ; BRIF is CP VT ; Test for ULON JR Z,.ULON ; BRIF is CP SYN ; Test for ULOFF JR Z,.ULOFF ; BRIF is CP GS ; Test for BON JR Z,.BON ; BRIF is CP RS ; Test for BOFF JR Z,.BOFF ; BRIF is CP FF ; Test for CLEAR JR Z,.RESET ; BRIF is RET ; + Else ignore .RVON: LD A,(ATTRIB) ; Get current attribute value SET 2,A ; Set reverse video on LD (ATTRIB),A ; Save as current attribute JR .WRITE ; Output string .RVOFF: LD A,(ATTRIB) ; Get current attribute value RES 2,A ; Set reverse video off L,  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% D (ATTRIB),A ; Save as current attribute JR .WRITE ; Output string .ULON: LD A,(ATTRIB) ; Get current attribute value SET 3,A ; Set underline on LD (ATTRIB),A ; Save as current attribute JR .WRITE ; Output string .ULOFF: LD A,(ATTRIB) ; Get current-  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  attribute value RES 3,A ; Set underline off LD (ATTRIB),A ; Save as current attribute JR .WRITE ; Output string .BON: LD A,(ATTRIB) ; Get current attribute value SET 1,A ; Set blink on LD (ATTRIB),A ; Save as current attribute JR .WRITE ; Output . string .BOFF: LD A,(ATTRIB) ; Get current attribute value RES 1,A ; Set blink off LD (ATTRIB),A ; Save as current attribute .WRITE: LD C,ESC ; Attribute lead in SC DEVOUT ; LD C,'G' ; SC DEVOUT ; LD A,(ATTRIB) ; Get attribute byte LD C,A ; SC D/ EVOUT ; 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 at0 I     tribute SCF ; Turn on carry flag LD A,FF ; Reload accumulator RET ; Do normal processing also ATTRIB: DC 00110000B ; Attribute byte END able LD B,7 ; length of table .TRANLOOP: CP (HL) ; test for match JR Z,.HIT ; brif hit INC HL ; point next INC HL ; skip tran to char DJNZ .TRANLOOP ; repeat till end of table POP HL ; not found POP BC ; RET ; .HIT: INC HL ; point to tran to c9 haracter LD A,(HL) ; get the character POP HL ; restore regs POP BC ; OR A ; clear cy BIT 7,A ; test parity of tran to char RET Z ; return if off RES 7,A ; else turn off parity SC CONESC ; and perform esc function OR A ; test if any translate do: ne RET NZ ; ret if so SCF ; else turn on cy RET ; return ESCTAB: DC 'P',"P" ; left blank -> ESC,P DC 'Q',"Q" ; center blank -> ESC,Q DC 'R',"C" ; right blank -> ESC/C DC 'A',SUB ; ESC,A -> UP DC 'B',LF ; ESC,B -> DOWN DC 'C',ACK ; ESC,C -> RIG; HT DC 'D',BS ; ESC,D -> LEFT END  TITLE 'SYSTEM.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 DEFI5 AFILELIST ver 5.5A 25JUN81 Copyright by Timothy S. Williams[A~ (~R (%((! ~ ((u~ ((f~*(F#~+ (/8)2 ?~S 2 +H0 @2 G:(! !!!>a>2 #~ ~ (( ~ T(YPOH(NE ULOFF ; Unsupported DEFINE RVON ; Unsupported DEFINE RVOFF ; Unsupported DEFINE PON ; Unsupported DEFINE POFF ; Unsupported DEFINE BON ; Unsupported DEFINE BOFF ; Unsupported DEFINE EU,ESC,H,ESC,J,8CH ; Use CLEAR DEFINE IL ; Unsupported DEFIN6 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 #~ E IC ; Unsupported DEFINE DL ; Unsupported DEFINE DC ; Unsupported DEFINE FON ; Unsupported DEFINE FOFF ; Unsupported DCA LD C,ESC ; output ESC,'Y' leadin SC DEVOUT ; LD C,'Y' ; SC DEVOUT ; DCA$ ; finish sequence TRANESC: ; Routine to t7 (#+~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 ! : ranslate esc sequences ; from console ; If second character of esc sequence ; (A reg) is not recognized then both ; characters are ignored ; RES 5,(IY+5) ; turn off flag PUSH BC ; save regs PUSH HL ; LD HL,ESCTAB ; point to translate t8 50'%G;x.0~(6: 2 %G:  !&> a˾:  2 : 0>2 : : O! N! 6 !: 6 : 3!: J: 5%28 >02 !6  ! ! ~ (#>.~ (#>:: >*GB $% !: (!"  ! J     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  ̯j !7~( (! !I #>j !:+6 !:I #>6j : =2 ̯!6 I #>:  :^ =2^ 2:_ =2_ !o& &}o& 0>0* * >5-"SYSTEM ACCOUNT #  ~(#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%: 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-(d : 2  : 2 * #"  > ! R" -: g:8 G;x_!! K ! K I !#: ( !c #: 2 ! #!` #: 2 :& <2& 2 G( :(͓2 ͓ͶÈ *V ~- : (   ~(:(: ( ~ݾ8(- Time- -Recs Blks Format- Label--- -Sect Other-- &1 MM/DD/YY HH:MM files, blocks. #8( #~ݾ8 6ö*M |!)(T: EF;2!:6 ;*M : 50!*O  !!:I #*O C;!*`> 2 `*T 6: !: G~?_S\ ~2_ p##: _!!p! : ~?( @(#(* 2 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 #: G:  !ù[\ ! >2^ S\ ~k k  #*(.?(&@ ~Ak [k # ~0k :k k #  *(.?(&@ ~Ak [k # ~0k :k k #: (: : (~k : k ~(E: ~0n(f)!9w!   " ' * / QUZ^dglrw|$+.8AGNQV`emru{~jmu{,48BEK\orv{ 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 "&)18<@L[`cglosx!-58ADJPU[akntx{ !&?KQWcGL_jy  ).14=GMXafory$(+.1(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#͊ 47:?BEQXl!nf]͊ nfb͊ ynf͊ !6 !~( 6EW 6LG 6OO 6Fnf͊ k dN~????͛ 2 O~'G~͛ 2 g~x???M͛ 2 oj~''G~ͮ ~?ͮ !:: (!\9: 58`E(F(:: =2J     @FILT8080 ver 5.5 06APR81 Copyright by Timothy S. Williams[Awbk7%R0!D>a~ ʉ(t;~ ʞ(t~ ʞ(t/ړ2:~ t:o {x2:2L2^M!;_!;L!N9s m\Âo!w" !w~ (6.F~H~L(R~ éo!s!:!^mL!:m^!Lms!:!>o!s!! > a!> a!>a!> a! > a!!!DE,HL*8(SP),SP,,(C),VALUE.NOT.HL,,>P_nw "3Ss 8Tr);(%' #~ (' ? 6$ a8{0ˮ#!w!w~08:0#~08:8 #~;ʲ* 6;ò~:( ( ( ;ʲw##w##~ ( ( ;ʲ w## " wò ( #~A8[0#~#(#w# NONOLXL STALININININDCDEDCDELDAL LHLL LDLSHLL STLDAADMVL ADADACADSUSUSBSBANANXRXOOROCPCCMCOROXRXOANANSBSBSUSUADADADADMOLIIOUOUXCHEDADACMCPSTSCC(_!^#Vò[ò[[ò6A#ò6A#òòòò6(#6)#6A#ò6A#6(#6)#òò*#~w##~w#ò*#~w##~w#òMCCHLHALDDEERLRLCRRRRCRARLRARRRSRSPUSPUSPOPOXTHESPHLJMJCALCALREREJNJJJJNJJJJPJJPJJJJJJJJNJCNCALCCALCNCALCCALCPCALCPCALCCALCCALCCALCNCALRNRERRE[òò!ò!ò!*##~w##~w#ò!*##~w##~w#ò6(#*##~w##~w#6)#ò͋ò͋ò~ ʲ;ʲ!ò*##~w##~A8 [0w#ò[RNRERRERPRERPRERRERRERRERNREPCHJORORENENEQEQDDDDDDIIENDIENDITITLTITLPAGEJECLBCL LDEL LIXL LIYL LSPL SBCL SDEL SIXL SIYL SSPL SPILSPILEXAEXEXEXXTIEXTIELDLDLDI!ò![ò*##~#w#~w#ò*###~w+#~w#ò*###6I#~w#ò,ʖ+++! #[ò1ò6I#ò[1ò1[ò1LDILDLDLDDLDDCCCPCCICPICCCPCCDCPDNENEIMIMIMIMIMIMPCIJPCIJRETRETRETRETDJNDJNJMPJJJJRJJRNJJRJJRNJINIOUTOUINININIINIINININDINDOUTOUTOUTIOTIOUTOUTOUTDOTDLDALLDALò1ò*~#A8[8++~w#6(#6I#~+( -(6+#6)#~M 6(#6H#6L#6)##~ (,( (;( ~w###~ ( ~) ~X(Y 6(#6I#w#~-( +(6+#RDMT]+~ (STALSTALRLCRLRALRRRCRRRARRSLASLSRASRSRLSRRLRLRRRRDADADDSBSBDADADDADADBIBISETSESESERERELDL"LDL"STL#STL#MVIL$MVIL$PUSHIPUS!PUSHIPUS!POPIPO!POPIPO!INXIIN!INXIIN!DCXIDE!DCXID (,(w##~B('D(1H(;S(EX(SY(O6A#6F####w#6C##w#6E##w#6L##w##~w##6I#w##*#~O( N #~O 6V*#~A[w#~ ( w##6 s!w#\6,#6(#6)#~#w#~ ( (E!ADDAD ADDAD ADCAD ADCAD SUBSU SUBSU SBCSB SBCSB ANDAN ANDAN XORXO XORXO ORO ORO CMPC CMPC INRIN INRIN DCRDE DCRDE BITBI%BITBI%SETSE%SETSE%RESRE%RESRE%RLCRL RLCRL RALR RALR RRCRR RRCRR RARR6 #~ ( ~w##~N "~O ~T ~ !~' w##~' w## ( ;, w##~A(0M(@N(PO(`S(sX~O~R~ 6.6.F~N~D~ ~O~D~ ~O~T~ ~R~ 6. RARR SLASL SLASL SRASR SRASR SRLSR SRLSR ASSEMBLEBACKUP SYSWRK$$wwK        qu  >RAD!&+.369>ADIOT]b_qt}:oQO(UXX!^J!^6#!Xbk6J}|.0~^ ͿC:oQ(O > >> 2pQ:kQ(:lQ(EQ:OM(M> 2DQV!(QyV:xV{X ¦Jx2yV:kQ( :lQ(zV4vU!zV~ (#>.!V~ (#>:  !-69<IRUXjmpwzNQTWZ]`cfilorux   #&+.149<?QTY\C_djrw:yVG!ZB (> > !vUyDo&"U-:{Qo"U!"-O"Q"M2P2hQ2P2Q2Q2Q2Q2Q2P2P2P!"Q"Q:O<2Ò@ Q!Q6 > 2Q!J9:Q(2(˿2Q'*Q+"Q|2Q2Q(>2Q2Q*Q+"Q!DQ4×:Pa:P(a=_!X!NSv H:OS; (~ ( —~# ʗ!,0Q[fz !$'*-03<?HK ( (+@QO~˯—#~ ( ( ;( —@JÉ:P(X!NSvʗ2P!:P(X!NSvʗ2P!{X!NSvʗaGM~2tV~2uV#~2vV#~2wV":P A!DQ5 -6 :kQ(":lQ(0 N KQ*Q#KQ4 *Q#"Q*M#"M!NS~08(:0$:P "Q~NS ( (%#~ !MS6#~ +~ ( (#6 > 2MS2Q2Q!9S> w#͆:Oʧ :kQO:mQ2kQ*QHS%{X!:P( X!2P:P( X!2PzV!fX:O^:Q(NC!Z6 :kQ( 2kQ2mQ<*QZ| >N>o!M:Q :Q #!Z<͉4:oQO(X=MACRO ver 5.6 27DEC82 Copyright by Timothy S. Williams[Acbk7%R0!D>aP%R<Xo& ;x2{Q\U$PPF>/F>/FeU!P ~ >N(>22f eU!kU 7+6"X"|Q`i~ !>a$(A8[0zVJ:kQʌ  X!J:kQʇ :lQʇ !> M~ >(~ (>)M NN*M͗ 1N*M͗ gN*Q͗ N*M͗ N*M͗ N!1O!2P~(bOS!NS<6 hS~ !M( !M(!MvSnf}SFF>H> NSLN*!zVfX!zVVO!zV1O!zVP!zV2VG2eXV![ V2VeX!] eX2dX:V< ~ o(ʭ(QV!(Q~(ʭ o/ڭJ2xV ~ oDʏMICLʈTPXSWcS[OaENŸJ#~OQ͗ M%PMѷR0<PMR0<<'PMR0'*M&<'Pf(NNSNS O:~Q:QG@NS> NS:Ph:P(:"):9S ‰:R :hQ( _!Q~ ‰:xR s É:P( O!Q:hQ_~ J#~LzEDOoXKS9CIMDTvŸJ:oQˇ2oQî2Pî:oQˏ>:oQ>:oQ>ڮ2Xî2Qî2lQ:kQ2kQ2mQî:kQ#~A :(;8x2{Qy2zQ2yQڸ2V>O:kQ2kQ2mQî2sQî2qQî2rQî2tQî ;x2{Qy2zQ2yQ>ú2Pî‰y}  !     :  ʵ  ʕ @_ CFCLu-/L,ʉ&k)É''É!Q:hQ_:P (\(-(6:hQʉ=2hQÉ:hQ(~ʉ 6+ʉ+ʉ#6:hQ<2hQ+~#-ʉʉ!R͎7z6 ‰6-É~ʉ-(6-É6 #~  =#~GڭJ7~ (#+~1850%> 2QG%2V: V!&> a;x2{Qy2zQ2yQ>új2dX>p:xV2yVV!(Q( yV!_(æJ2yVyV!_<( :yV æJ:yV2xV:V :xV2V:dX :xV2eX:kQ VX ( JJ:Q(A@b!b6ÉÉÉÉÉ!R~ ʬ :O :P >2(O2:O͎7:(OO:uP(͵KÉ( :O ")O[-O"-O>2Os :Q(<2QQ!QSQ*)OK-OB8C)O*+OR҉S+OÉ:Q(#=2Q*Q"-O>2OQ!Q*-Os É͙KÉs !R͎7*-O"-O>2OÉ:xR ʉ*-OK     !R͎7:uP É"-O:(O:uP2(O:'O:P2'Os 2'O2(O"-OÉ:(OGʉ!R͎7*-O+͏&͌&"-Os És >2P*-O"/OÉ:xR !xR͒248*/RN~(:(OG O y[-O!xR0Ë3sr~wyO:'Ow:oQ~O *Qut :xR ʉ!RQ2GS:9SK4>!9S:kQ2kQ#:GS :rQ > 2GS:Q <2GS:9SK<2kQ> 2GS2Qw:P(:qQ(k:Q :GS :rQ(X:P( (n>2P:sQ :P(< (8(4 (0:hQ(_!Q~ !9S(+(- +:P $#<> 2GS2Q:P:PF‰>2nQÉ:sQ(:tQ *M#"M''7!xR͒2401:(O:'O:uP2(O:P2'O*-OS-O͖ "-O2'O2(OÉ*/Rn(A~`O:PO:uPG(O qsr:oQʉ~_*Qut ÉÉs :R ʉ͎7*-O##"-O>2O(s !R~ ʉ(5ͨ>(N!Rͅ!I !R͎7*-O##"-O>2O *-O#"-O>2O(#~wmT!lT6 wT!T6 lT!R~ 5x#~(-'&wT!T6 T!Rx~ #~(M:P(:tQʉ>2nQÉ:R (H:Q< 8=2Q:kQ(:qQ(:rQ(:tQ(:sQ(xQ!Q2QT:Q bK=2Q:QQ!QG:mQx(2mQp(<2qQh(<2rQ`( #~+ *-O"-O>2O*-O"-O>2OF!R6 #R*1S~ ;#}IÉ:PƒKzV! QzV!R~ (4:(0.(#~:(" (.(##!VV6 V{X!yV>{X x2yV:kQ:lQTQzV>2PWK!R~ $(A8-[0)͒240>*Q!"Q<2tQX(<2sQÉ!R~ ʉO $#~N :mQ2mQ^F :mQ2mQP͎KN $#~O #~M 2qQ4I(*C()D د2rQ"M(D(I(C(2sQ 2tQ(!Q:hQ_:P (\(-(6:hQ=2hQ:hQ(~ 6++#6:hQ<2hQ+~#-!R͎7z6 6-~!R͋3"Q*/R>>7>2Pʉ8(!R~ 2PÉʉ8(s !R~ ʉ͎7|ʉ>2Q"QÉ:P@JÉ:xR ʉR(!xR~#O (!RF6 #? R<R!R~ (;(# ( (+}:9S > 29S͆RÉÉ>2PV!0Q>2V!R-(6-6 !R~ (A͎7:(OO:uP(͵K[-O:Q(<2QQ!Q"Q"-O:Q(=2Q*QQ!QbK!R͎7*-O"-O:xR mK!R͎7:uP ͵K*-O"-O"-O:xR mK!R͎7!:Sz${$!V~ (4.(:(,#~ (":(.(##V!V6 VVX ȯ2PWK:PƒK:PbK>2PV!Q>2V!RV~ (4.(:(,#~ (":(.(##V!V6 VVX (2PWKx2V:kQ:lQ]QV (O. (xR͒248Q*/Rn(A~`O:PO:uPG(O qsr:oQ~O *Qut xK:(OG ͵K!R͎7*-O+͏&͌&"-O!R~ (͎7"wP>2yP:P2tP>2P[/O*-ORxK> 2xR*wP:yP"-O*-O!:Sz${$:xR !xR͒24xK*-OzxK{O:GO.:O [-O*+OR0S+O:'O_!1O!O:R (KQ!Q:OO:'O2Q2Q:Q< 02Q!1OR #O LK:Q bK=2Q:QQ!Q_!1OO:P :xR xR!fX>2P:xR mK:ObKO!1O(xK*-OA:FS ((2P2P> 2GS!9S6 #[-O!:Sz${$!?S~ (#$!R~ Y͎7[-O"zP:zP*-O#"-O:{P*-O#"-O"zP:uP(  *zP͗B*zPPA(!R~ (;ͨ>(W!Rͅ!I Y͎7:uP(͵K|(<ĤK}*-O#"-O(#~ #~ !R #~(*xR #xK !xR:O<2Oybk6!R~ (͎7s#r###s#rR!xR:OG:PFC:P* 2PÉ) >:P> :R ʉ*X~(R #, *XT] "|Q!RSX!tV>:P‰h:PX:P2P:9S :-O#"-O> ęK!P~*-O#"-O#!R~ ~$(A8'[0#͒2~ 4(*/R~GKBLK͙Km:oQO(*/R~ _͆D(:xR !R~ (͎7"Q}( >2Q:9S ̙K:P(@J̓KK!R~ $(A8"[0͒2~ 4 */Rv(xKR :hQ( _!Q~ :xR :P(O!Q:hQ_~ ( yF2PyX2mʭ.&cʞʙ H@ʍCAF,L2 ,/ʇ,&ʶ)r:P(>+2MS!9S~ S:kQ(&#:GS> 2GS:Q4>>2͙Km:xR mK͙K!xR͒248I2PX!:P(̓KR>2P:PF,*(2P2P:P >2PK:Pʀ!NS~ P| #+ T]# #& T]#~ xR~| $(08:8A8 [0#>2P>2P~([#2P2P~#,[L     #2P[~$(:.(6+(2-(.*(*/(&[("](@(08:8A8[8 a8 {0ˮ#~6 ͎7w{> SPR"P:P=_!P^#V~((xR ( #~= xR#~  yӯ2xR:PG:P MACR)Cж.ANA.LD,RET1EXf,DJNڱ1SÂ2Iv2ABDCPģ,I1EN@SB-OU92ELSEILDm,XOҏ.RET1RS1OTDm2Ju1IN.NEi/D IN'2COPCREP/Jҟ1CAL̹1CPɑ,SCy/OUT[2LISԀE<,VALUEX5,R/OTId2ENTESUBԅCPb/RL 0BI0CO!BDM8*P[P*P[P+!RKP[P!xRx : >|Ð!NS~# (''("(; +6 +~ ( O#~ ( #ӯ2P> !xR!w#!R w#FR!Rw#!NS~ p; p:P(~ p p; :p#~| xR $(S.W@WAAK[AK=~| G> 2P')%)%d)% )%}0/}o|g0 z0(>02Pz:PDM~ (#+(-(.()(](*( /( (#+~!B(JH&O(mQ(P 08:0)8*T])8%)8"8_8D( | } ͎K7ͤK7 0820)8o 0880)8)8)8o 80% ʟ ʟ,ʟ;ʟ ʟ:ʞ$(_(0AK:8 AAK[AKB#bkO#~+| $( AAK[AKy#~ ( (,(T]:;ʟ ( ( (,(#:P I:xR 7.(@AKQ!xR> 7xR!yR> !xR+6^#!QI:xR (B.(@ : o{ D ; 08:8 A8G0)8)8)8)8o!V&(####N#F+&-&*&/&M&&&^&X&L&R&=&#&>'< 'B&S 'ɷR'&SP&}o|g}o|g}o|gͽ&|g}o z {0!ͽ&}o|g |/g}/o&#ɷR(!!ɷR(z8xR!yR> !xR+6@#:P=O!P ~#fo> ~| (,( #R~ ( (,(;( (| #"2P"/SR:P~# ( (,(+"/S"1S"3S~| ; ,(? (; (7#_('(" ~ ʎK# #(+y" :P #~,( (  {8z8 {8(۷R8(ҷR8*Q|D"P:O s *3S~ (;ĎK!"Q"Q! "Q2Q2Q[P!1R(F!u1R(C!1R(;!1R(3!R~ (Pͅ x2Q2Q"Q!R~ (9ͅ 2Qx2Q"Q*!"!!:R 1*PR :R (!*P~A):Q #:Q#(~#(~ (R"3S~| ; #,(S (O (K_('(" *Q<,R > ~# ʎKH #(+A "3S~#,( ( (a{_!!~($#O~G#( ~ yh&~# ~(( ͎7:uPG>N#~I(+ͅ!͎7:uPG#~#N++X(Y Fy)(+(-( D!x###2QG#~.)#W >_yK OxGz ~#o( :Q*Q:Q*Q2uPz8((K(U(y (Z(|)0(%*Qv2R(#\| }0(P,MͤKH| }ĤK}o7*-O{ozg++}|(<ĤK:uPG :9SUĵK |(<ĤKl7 Ox(:O([-O!?S:FS (x#6(͎7:uPGRBRCRDRERHRLM(HL)AAPBCPDEHHLTSPGAFXIXYIYEIERO(C)S(SP)B(BC)B(DE)MMQBCDEHL~#(( [(>N  ~ >I~# ((([()(](޷ # #~KGR#( ~ >Ch&~#(POPEPMSNS!"-O:Q2Qy~ (##y$yA(*-O:Q_"-O>2OG)ÙK:O *-O"-O>2O?S*-O>0A#"-O>2O:O(:uP((M*-O?S:FS (####  (#y$yA:uP PA͗B(AARAARMAAMMRRMRRSANMNRN€SAB VNVNZZNCC!"QR  (o)o"^#V!R((( ##~ og"Q }ɯɯ""""""""#8#[#x#########$$$$$8$K$^$z$$$$$$PUS+SLj0IN2Oh.RLö/OUTR2RLC/RL0TITLņRER=0END*RRc0LDD҈,BATAI:IA2hXADRDSAFRFSDADRPFAFRPDN6PFN6PAEEAQHNTNPN€RHI*TIPIR IH"hXITIPhXTHXNYNQ!XIYIQ*IXIY"hXTXTYPDA[/IM/SR0ENDI USINDDIM/RR0EXIT&AD8-IM/RRC60RR0ORMACLILCPDҬ,ADĵ,HALԆ/ELS ER,SU–-REH1RE1LDIv,EQALIGEJECԃDE/CCr/SE1NOЀ/Dɍ/IND02CPIҚ,Eɔ/LINFPO,IL)SR̶0EXTRINI2BЊ2ENTRPHPPHHHRRPMR#R+MP#+HM~#foMH|u#w-PDHDRRPFHFRRDPDHPxFPFHPxPXPYHXHYRXPYPXHYHQH G PL      RX Y QH G P RX Y Q PHHPGGQQSHSXSY         A M R SAAAMARN `ANƠF PAFD PAD#s#rO(#6#6*/Rw#s#rj4|7"/RN#^#V#S1R"5R^#V#S3R#y27R <O R # :7R[5R*1R[5R*3Rx<O! R# _!8R^#V+:oQ:{Qo&&}2X!kQ~w:oQO ,U!U6 U:{Q8 ! V+6 +6  2U! VwT!T6 :oQO !OHHHTHP XX)YY)XPXTYTYPA R A M CAAARAMN `ANΠF PAFD PADHHHPHT R A M CAAARAMN `AN֠F PAFD PADR A M CAAARAMN V!`VT>2nQ> 2_!b͏50 :_ !_<"P~KpQO ͏58:*P~G~O V^fn####R8 ((*Pͷ566[-RR 7~~~KpQO OS!NS6 ~Vo +Mg %~oX U~(A Ew Cg Ry2^`ANޠF PAFD PADHHHPHTR A M CN `D PF PR A M CN `D PF PR A M CN `D PF PR A M CN `D PF PR A M CD 4PF 4PP S!`S~ 8$!XS~$~$cS~O nf| YS!XS6*hS%> !OS~"X< f#n#@͏&6*P(͏&6*P6= :oQO7!_> +yDO:{Q0 !_.>@2NSÔ6H T BX Y A#R A M CD 5PF 5PP H T B X Y A+ ' / D ? 7  v   F V ^A R M ŀCD PF P R A M CD PF *X!hS"X:X2X~_^ V z !NS %> SX:X=2XsuQ2wQ!"|P2~P2uP2P2P:'O2P~# .8(ʂ;[ʂ;-D8+(. $~#F#N#V#N xO yT z.>\D8+~ʐ8.T8$P A R M CD PF P R A M CD PF P A R M CD P&F P&A R M CD P.F P.A R M CD P>F P> o gNANRNMCND9.L9@P90!8:A9A!8[9͎K!"|P2uP{uQ*|P:wQ:9S ͙K2P~(ʱ7[ʱ7#~N 0#~U *#~L $#~. #>2vP~ ( #~ o:o:~7>2vP#T]~# ~. Q#~E( N E#~E ? #~Q 6#~. 0#~ +# ~(  #A A ~# o:#~ #oːCNFːCNANRNMCNDːCNFːCNANRNMCNDːCNFːCN hXCNCM D F N HCNBN HN hXCNC C C M EN sAI۠A:z(ͤK$8S^#(*~08 [0:8A0[-O:(O(>2vP:'O2Po:+9J%>2vPo:>^:P~ 8*-RT]#~$( A8[8AK~$(08:8A8 [0#"zP@(!Q:P=O!P ~#fo> > ͒2͒2"zP40,>͋3*/R:oQ(~_66OROCN `    N IA`OAOR    N {N ` Q ~$(^(3@((08C[0?:8A87̽2#Q!Q:P(~#~$(08 :8A8[8> Q ! R"+R !*/R:O :oQO(*/R~_ ͆D>n("5S:'O2P~(~2P>~ <2vP*zP LK*zP:P(:vP:;:P- &&2P:~P :vP2uP:P2Pe*|PO:uPG:vP(@x(((Iy-:;X:;:vP_:;:PG:P:;>2uP$:vP(y+:;>2uP:uP( y+!")R~^ >&$ >@ >08P:0 A8D[0@@#_y(!@(!(͌&*)R")R *+Rr#s#"+Rx 8AKy [)R*+Rr#s͒240t*M#"M*-R}|"/R:pQ_"-R*|QRژJ!w*/R###6#6#O:'OwKpQG R#w:oQ([Q(-:;yB&"|P~# .8)ʡ;]ʡ;+(.-(**(&/(".($͙K.8͵K!"|P>2uP:'O2P.82~Pñ7;ʙK2~P.( # #ñ7. [|P:P:~P:uP:P:wQ<2wQÖ7:wQ ͙K.8=2wQ:uP2vP:P2P2P2uP2~P2P[|PC|Po:&AND.^OR.XXOR.LSHL.RSHR.=EQ.>GT.4>~ (/ (5+~6 #~ ( 6 ͤ ͤ +> +(#6 w#~ 2jQ :jQ(602jQS~ #y Ny ( x8>yxS_!^ S_ S_ !"_!^ [XS_:X(2X[X!^ SX!^ ˻j&)X {O#F*XB(PY3DyO_!^^#Vz %[Xr+s{88< ͖C:X=W_SXVD!~#(V+^++~+ ##x #>2XÍD>2X[Qs#rsPX!R:P8 >x yNy !SX#J>_y D= D= (:{QX={  :QG@>2Q>*= j=x8( '8(38ɯ2nQ:kQ!\U> > ##*P#"P> !\UyDW:{QOz!S6 #!lTO>  !\U!S>!S6 #KU!T> KU!vU!S0>!U0"J GX>M:P_!X"P*X~(JX 9#6Fp#~w#^#Vsr!a >O ut:P<2Pj [P ƒK:P<2P[P!`"J~ (;( ( J#~ (;( ( (XJ#~;( ( # ( (J[P!`"J~ (;(# ( ~# (;(>>2yQ:kQ :P :P(1:kQ :xQ(2xQ#-<~# (& ( d> (O(=(=a=O(= (= (=~# (& ( ͞> (O\=\=a=O\= \= \=!R~+(-( .( 08:0#~#~ (E( 08 :0 2xR2xR:` ( *-R*-R>2P!`xRͪG!`~# ( ~# ( (~# zI;zI ( >2P[/S ( (,( ( (S/S ( (,( ʆG;ʆG=(3,( ( ?.(͹?8"x ? ?͹?8 x ?pʖ?2P?(k:P!E *?+(- ?͹?8h 5@|(p(3x(!RJʤK ݶwu| ?͹?0xäKÙK@[P0 ?*P~#"P?~#~  (+@#~ +q#8#7 ( (;( '( "(O ( (| w#= '(-"(),( ( ( (;( | w#6#FO J(w# [/S~ zI;zI#,( ( (+ͪG@J"3S"1S~#&(J~| $(A8[0~| $(08:8A8 [0w##6=#,( ; o+)T]))_|6#:QFwX_J*M#"M:QeXwX J JJ:QwX!JW6_wX!2QJ!2P!1O:OG >GNS>>~#N#F#qp##yx^#V###But##}|(!NS)@:P ':O !R!fX( ¦H~: :P½G#~(nH#~'(" O#~ ʽGw# #(+6&~ ʽG;ʽG,ʽG ʽG ʽG)(w##~)½G#~ (;(# (,( (+,  (;( ( 6#'(&"(" (8=>I;(/ (+ (',(#w#Ow# J (+6~: :P½G#~(nH> !R͒240!KB:P(.!b[-RR(~ O:pQO ֯2O:PG:'OC:LWG:'OA!JWN s#ry2JW:V(A:LWG:V 7*V:VO R &:VO=2V!V ~:JW2JWAA!V~( ()@!V6!JW~()@!JW6#6#:'Ow:V(('(*"(&#~ ʽG;ʽG ʽG ʽG)(~#)½GnHO#~ ʽG #(*3S*1S"(!'( H;H H H,HO (H*Q#"QQ>0B0 dB0  B0 !P!~( (# >*-R!BDM*|QB!"|Q:P=_!Ps#r#q#pO:VG:'O [V R(!V~()@!V6#6#:'Ow"V!V4~O!V w"SXx2RX>2QX> 2PXVX!UX6 UX!R~ (y YX!ZX\X!PX)@> PX> *5S:'O"SXVX6 ~62Q6!>a!> a!>a>72Q>2Q>2Q > 2Q> 2Q{X!:P(X!:P(X!:kQ :Q( @Oq#O:WG:'O2C!WN s#r#:Pwy2W!W~()@!W6#6 #:'Ow>2'O2P!V~A2V!JW~PA!W~C!V6#6#:tPw*wP"V!V:yP 6)@`@J:Xo&)X~#V_3DS_>2X:X<2Xo&)X s#r:X(2X[X!^ SX^!^6[X:QG@  X!:Q(`@:oQO(X:Q(o&6(7> >a>K>L29S>K>U29S>K>F29S>K>N29S>K>T29S>K>P29S>K>O29S>K>E29S>K>S29S>K:9S >V29S>K>R29S>K>M29S>K>X29Sg:O(:~Q0|2~Q:9S *Q#"Q!ELV!M     VLL!jLU!LR!LF!LN!MT!%MP!IMO!eME!MS!LM!L*** Overflow *** *** Label Error *** *** Undefined Symbol *** *** Relocation Error *** *** Segment not Found *** *** Macro Definition Error *** *** Programmer Defined Error *** *** Nested  too Deep *** *** Label Required *** *** Duplicate Label/Phase Error *** *** Undefined Operation *** *** Invalid Expression *** *** Statement Syntax Error *** assembly errors. One Two ABSRELCOM Oasis macro assembler ver  MM/DD/YY HH:SS Page nnnnn Filename.Filetype:Diskname Addr Obj-Code Line *** Source Statement ***  statistics. Source lines input: Object records output: Assembly errors: Macro calls: Machine instructions: Symbols defined: Pab summary: Name Type Length Origin Assembly rate:  Symbol--- Value Type Line *** References *** Symbol Table ListCross Reference ListASSEMBLECOPY MACLIB PRINTERnLISTING  lines per minute.   DATE=mm/dd/yyTIME=hh:mm:ssPROG=prognamOBJECT ]_Z[\12345678MACRO  a a a a aaaaSYSTEM WORKA eINDEX=0000 COPY ASSEMBLE MACLIB ENDMPass Link to Copy from 9BH Q@Zbory  (+36<@CFMQVY`diuz}  %*/47:?BFILQTY\adgjmqtx{ 9?FSbWZ_behmpsy| $;V\_sv(,18;>BEHKNQTWZ]`filpu{~ ,/25 ;>ADHMSVY\`ehknqt~)-03>AFIOSVY\_bgmsv| !$(+4QV[^adgjmpsvy|    # ) N     C I ` r w ~       # ( - 2 7 < A F K P U Z _ d i n s x { ~         " ( + 1 9 < ? B H P S Y _ c g l o r z } )#.#;#@#F#K#_#d#j#{################# $$$$!$($,$0$?$C$N$S$a$f$l$q$w$|$$$$$$$$$$$$$$$$ %%%%!%>%D%%%%D&W&Z&]&`&c&f&i&l&o&r&u&x&{&~&&&&&&&('-'0'3':'?'B'L'R'U'['_'b'f'i'q'y'''''''''''''''''''''          # & ) - 1 5 8 ; @ C F K P T W Z ] ` e h k n q t z }     ! $ ' * / 2 6 : > A E T Y q u $+36ADGJNTW^a''((3(<(?(D(G(J(Q(f(o(r((((((((((((((() )))")'),)/)2)9)>)B)E)H)O)V)[)a)d)n)t)y)})))))))))))))222222223O3T3X3a3h3r333333333333333333344&40434;4@4K4W4[4^4c4f4r444444444444444444  ).69<?HMPVY^cfilpsv{~-08?FMPSWZ^cflsvy"%-0:?HRUZ^aehpsv5 55555!5'5*5.565>5G5}555555566666"6C6F6M6R6Y6`6y6|6666666666666666777 77&7)7-787G7M7P7V7Y7`7c7f7i7s7z7777777777777777777788 88888"8(8,8083868;8A8E8K8P8q88888889 9&9)9295989;9?9B9G9J9Q9V9#(;CVY^cfinqy|!$*.1@CFKPUZ_dinsx}  %-06:=@CGLOTZ`fms[9t999999999999 : :::.:;:@:C:Q:]:a:g:m:r:x:}:::::::::::::::::::::::::; ; ;;;;5;8;;;A;F;I;L;P;S;V;Y;^;a;w;;;;;;;;;;;;;;;;;;;;;;;;<<< <$<'<+<.<3<8<]=B=N=V=_=f==.69@CTY_chknu~ $)27<?Se| !$),/7:@HKPT\bekorux====================> >>>>&>->1>G>R>W>Z>`>g>l>>>>>>>>>>>>>>>>???!?$?0?7?:?=?B?M?Z?]?h????????????*@0@5@9@=@B@I@N@V@[@^@a@h@k@s@y@}@@@@@@@@@@@AA AAAA&AAAMAQAUAYA\A`AdAhAuA{AAAAAAAA$<@NW^adknqty~ #,/37:FILRUZ^behkorux|AAAAAAAAAAAABB BB"B%B.B3B7B@BLBPBUBZB`BcBmBpBBBBBBBBBBBBBBBBBBBBCCCC&C-C4C=C@CICQCTCWC\C`CcChCkCpCsC|CCCCCCCCCCCCCCCCCCCCCCCCDDDD!D$D*D/D5DJAJEJHJPJSJ[JfJjJ}JJ )27;\ej 9Kclosvy  2 5 M S k ! !!!""1";"e"o"q"s"u"w"y"{"}""""""""""""""""""""""""""""""""""""## #QJJJJJJJJJJJJJKKKKK#K(KDKIKOKTKZK_KeKjKpKuK{KKKKKKKKKKKKKKKKKKKKKKKKLL LLLL$L*L0L6La0W~ (((($~ (((~ (2((.~ (((!>a!>a!>a2=!!#~?(@(#( * 2>6?#2>#~T 9#~ ( 185[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"0>112FG: :F12KG!&>a "S( AڡHҡ2\G2^ڨ#~ ¡+~S( AڡHҡ2]G2[ڨ#~ ¡:F :^O:[ !,>a~ ((!>a~ !d~!>a2=߯2Pٯ2Rӯ2S2B2A2= ~ ʵW2C2Q2D[{!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(&:S2OP~ =():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 := : !% ~ (O#.~ (O#::[GO:Q¬!"% ì*aKe~B? Vʨ E< AD FI RN ZN >:<2o&02:8*":^G ! o.!N#G :^G }!? !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" 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*_"a2c:^G! ] := Q!:F !"gͭ /!<!I!Pf(ER˯Nʖn :=!Wt:= #:[G!  !I:[G! >0:Tw:F(>  :^G! :[G! *?> :^#V!"xW>͊$PF5FF>͊ >͊(> P!͒ !"!͒ *#"P͒  ](J<6[R(8JP͒  ##~++P͒ F(7> >͊ >͊d?I >*?| _c!9n E({A := B0:w2V2U:P(>!~ (O#:Vo&>)> W] :2Vn F(9A :=>A(:VO:(*?|–>:> *?|>–n R(F( O:= y: := := 0:2Vw :O:V ͊ j > J[S[SSP͒   ](J*r*r](hJP͒ \](P͒  > 2>͊  *:=2( >͊> I> 2  !\!*#"'r!?(*@( #((ì~$(Aڬ[Ҭ ~0ڬ:Ҭ#:[!! :U(~ >2:C(:Q :D( :X 2B:( :BQ :S($/!% ?Y( Nʬ ʬ: :[G  X äʮ:(:[X :*#"+r!BwP! P!\>͊g(;!}>͊>͊ d>͊>͊I >͊ *#" \B*wP! P!\!"!}>͊>͊(  >͊>͊ >͊ >͊:[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!" (:>͊ !_^#V!6 #6d?˯I(Q(>ROQ0n(f)|(`>͊>?B TAPE1 - not readywrite protectedtape markcrc errorend of tapebegin of tapedata lateHDRO     EOVEOFMount next tape volume - ** unexpected record ** ** Computed block count disagrees with label ** ** Sequence or section number disagree with computed ** ** File name mis-match **   #&)169>ADGJMRVadgjmry  #&),15DGJMPZ]fkpsz}       ! $ ) , / 3 HDR1ARCHIVE .TAPEFILE 00000000000000YYMMDD 000000OASIS HDR2F0409604096 000000ACCOUNԽNEWACREPLACNEWFILOLDFILQUERNOQUER8 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  TYPNOTYPASNOASVERIFNOVERIFVOLUMż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       " & + 2 8 ; B I N S V Y \ n s z  #&)07:?DLQZadlorv{!).W^}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 &1: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:=BJMXgjnswzO