TDrEFg..OASIS 5.6 Boot Disk for Altos 5-15AD. Unknown SYSTEM password.@U> 1!e:_ 0g 0We|pe0 !Ip]`M"*x>v2 {zy" !v $> r m,χ# CLASS2 ASSEMBLE@!ACLASS22 ASSEMBLENL3Y$RCREATE COMMAND tͪDEBUG COMMAND ahLARGE NUCLEUS i2LOGOFF COMMAND t(APEEK COMMAND $ͪ4SCRIPT COMMAND 1 ͪ&/ GREGSYS29GREGBAK 9 D P'H BASIC LOADFILElEo^BASIC2 LOADFILE]ERCLASS3 ASSEMBLE0CLASS32 ASSEMBLE%/#4HELP COMMAND `ͪGRENAME COMMAND Dag!SECTOR COMMAND ˜FSYSTEM CSI `E" YCLASS MACLIB B U%CLASS25 ASSEMBLE\*D(]CLASS40 ASSEMBLE9+PLOGON COMMAND |hOWNERCHGCOMMAND  ˜4;PATCH COMMAND ͪ5SEEK COMMAND ͪ SET COMMAND E( $CLASS27 ASSEMBLEl9QxCLASS4 ASSEMBLE5CLASS42 ASSEMBLEw 6)FORCE COMMAND \#$>RECEIVE COMMAND (STOP COMMAND T)$gSYSTEM DEV23 ,* SYSTEM EXEC1 '3oCLASS11 ASSEMBLE4%,w5CLASS35 ASSEMBLE 4KILL COMMAND ˜SHOW COMMAND ͪSYSGEN COMMAND X'xnSYSTEM DEV13 p-+MSYSTEM ERRMSG @&2SYSTEM HELP DB(2I CLASS37 ASSEMBLE3KERASE COMMAND (˛MSG COMMAND ͪ{SYSTEM EXEC3 '3TEXTEDITCOMMAND l ͪv MAP COMMAND  q INFO FILE  PTERMINO EXEC  n= ASSIGN COMMAND ˛EBACKUP COMMAND ~ufCLASS21 ASSEMBLE,H5?JCRT COMMAND |MAILBOX COMMAND ϪSHARE COMMAND ˜QSPOOLER COMMAND $SPOOLER OVERLAY1 4$P ARCHIVE COMMAND b#CLASS6 ASSEMBLE!@,=,BSYSTEM ACCOUNT  <Ŵ CLASS21 OBJECT 1 D7iCLASS41 ASSEMBLE -DEBUG OVERLAY1=[#w,1EDIT COMMAND D&26ERRMSG COMMAND 0ͪSTART COMMAND @E SYSTEM DEV18 xB2jSYSTEM DEV19 |B2jSYSTEM NUCLEUS i2ACCOUNT COMMAND ͪe CLASS28 ASSEMBLE!|5\+~CLASS43 ASSEMBLE,1j<CLASS8 ASSEMBLEP)>QLINK COMMAND / 0ͪ_%MEMTEST COMMAND ˜REPAIR COMMAND PͪOCLASS1 ASSEMBLE(5)CLASS36 ASSEMBLEa/RWLIST COMMAND `ͪ RUN COMMAND tͬu2RUN2 COMMAND ͬy%SYSTEM DEV20 B2jSYSTEM DEVNAMESSYSTEM EXECLANGE.ATTACH COMMAND ˛CHANGE COMMAND (#CLASS14 ASSEMBLE.8&Ar:CLASS38 ASSEMBLE3+yCLASS9 ASSEMBLET,1\UDUMPDISKCOMMAND ˛INTELHEXCOMMAND ˜iLOAD COMMAND p$UBBASIC OVERLAY1ehk.WCLASS24 ASSEMBLE_T4s[INITDISKCOMMAND 1 h2E+(STATE COMMAND PͪSYSTEM CLASS7 \#SYSTEM DEV17 tB2jTERMINALCOMMAND P , WYSEMAN EXEC  n=  KCZ      VBASIC OVERLAY2# '$1MCLASS10 ASSEMBLEr,0k3CLASS34 ASSEMBLE Bq0PASSWORDCOMMAND 2RECOVER COMMAND 4ECLASS38 OBJECT * SYSTEM CLASS21  (>2x˿"!9*3s#r1_!"2 ^#V#~w"3͈+^#V: 2T: = R*##U+PBASIC OVERLAY4~ E*oCLASS15 ASSEMBLE$<@?=CLASS30 ASSEMBLE]8CLASS39 ASSEMBLEP,"FILELISTCOMMAND 4lFILT8080COMMAND HC$PwMACRO COMMAND lͪXRESTORE COMMAND X&2 Tb_ dQ tÅ4!Å4"PdÅ4Å4Å4Z!;[5.6M3E6v Å4           ;Ï?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;9      P98098s7B37;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(BASIC LOADFILElEo^BASIC2 LOADFILE]ERCLASS3 ASSEMBLE0CLASS32 ASSEMBLE%/#4HELP COMMAND `ͪGRENAME COMMAND Dag!SECTOR COMMAND ˜FSYSTEM CSI `E"  p#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  ?@LJ:!4K* $[:=2C">202M͉ 5G 1g - *͉ G w W ( ( yK[*J:>>:! (!*ut:w :w nf utnfut:ww>:w:> ; )#0N2w2z2Cy<2S">2>2:7?2!06&8k: 'o:kg2l :*""~ : [~{w>;:>9= :!8(yϿ(yχ P0ÄÔ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?40!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?@Ѿ >.# >&# > ^# ># ># ># > n(20 Oy*3 F( 8^( N ~y ( ( (( *3 ) 78? F G N Ny80 _!E 2iOb#!%8 ( !nfR8 ~(y(gx| 9x 5T]~ (RDM+T]!0^#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^V ^z(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 oYWR_!~WY(_z͈+n{͈+u## x {{(_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 t{!~WY(_nz͈+u{͈+## x {{(WY(_'*##~(s{(1( s: <(~( *##O: /B<0 0  <>0'd z 7|M!jR0?YWJ{!908)( 0 (7ɯ8>O"#i&+ " : <(y<7~H~G( *##OywG~HH_!~wOG: =8j: (d!)T2)x!)V( ( ( ((ͫ)ͤ)ͤ)>ͫ)*ͫ)͙)͙) => ͫ)> !)wO~ x!)U!)O~(~6(OoWgN6#F6x( !v+B8>A7DM!#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*!7#~#(: =(:s&+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{0Rˮ6$bk#, , ~$Aw!Oo|gFI˸: 8-_!|NLe̪9~?wMne]&~Mo0$FI˸ ~-< -^JVK# C ~L 7#~(wLI~(^JVK+I~(FI˸  (NB( 0 !! V(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[>*/>*/( 8 6'*6|*6: 2"26"6:6*6 !6'*|̿6Ā4*6*| Ϳ6: =(!T5c6:ͯ'*6|(+|("6:[!6':**6":62|̿6!6': =ʅ4À4*3: *30}V`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 ~# < 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.A$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 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 ~ ^.>Cʭ=͠:0 <~ Un(f)|(Eɯ Cancel EXEC (Y/N) ͠:0 ^  O ^  ͠:0~9(#09 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 ^jɯ͠:0~ w    ͠:  ~(G~?=(x(@ w͠:  ~(G͠:0~ w ͠:0 >:_ *: = $*D| ͠:>4˯4Y(4>L1>Wp Vsr[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["0Ek[ 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 F^V[ ~w^VN F nfJ:N F ^Vn f vC>:ͷ: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 utnlV(`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[ڔLj9>#ut}|.eFj9 nfut66T]F^Vnf w#66^Vr:>êIF> êIn <^JfJ~w~w^Vsr~w~wr:vVMfJ^J Y>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~g~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`9n~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(\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 missing6!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! jL Y[?^ >/!^ !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<[!!K A87E~# ( 08:07x xȷ<>Fb^>b^}#SYSTEM DEV SYSTEM CLASS SYSTEM ERRMSG SYSTEM STARTUP SYSTEM NUCLEUS b^> :g(%> $:GO8> o&"g:GO8> _:&  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 11b_!:"!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/-Ϗ^|6T]G H^V*ZR|!@(o"e hͼge[ ^#VS#e[ F(^#V7Ret`081b_te[ ^#VS% !n˾˶[<( 6 ڥax ~# LMy!Re!o&#[ 8~04 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+~^Vsr7RM8utT= M! >ax8a 0]~(R~ݶ JM!ce!n&[ )~0^Vsr7RM8ut ¿`(? f4:>(f4f4?4*eb^> >-> 6b^4f4:wµd:;TRACK: 208HEAD: 2 SECTOR: 21 bgʝ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 d;TRACK: 208HEAD: 2 SECTOR: 22 bc8+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;TRACK: 208HEAD: 2 SECTOR: 23 bd?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 _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 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(.> )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  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@ @  c BPage Time---- Date---- T Username Id Port E.T. SYSTEM PRINTERnMb@ @ @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  >      Giu #*-03:=@CFILORUX^gr!$/29<AHU{~ (19@Zfoty|  .5;C! 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 6R  (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 @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:  T]6E##6F2*[ Rl&[(> *6E͉ :( !a: #:.G!  !:.G! :*M!:.G {_Y !y:u A w!~(i!y \[V>A#~*V  >:(4#~ (O a!&>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! i(n&)  !:yw6 6 o&ñ!!X : $:Y 9!Z . :Y(K: E,!Z~  #y(G *[ Rl&[(͸  ~ (O#:Y*n"T *l"P[T{ *P|+"PGOg0 f yLgx|y_0{:{|{}{P~ =():.G~<(: :G~< !M> a:(V:?2R:@2l:.G:12TA:( :2q:G:12nW ( Y(N >:.2G ! !:%?2M: 22O: *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( ͌!h:G ! :(Y( ke20<6!6:.!(2 ( !>!"~ ( #08:0| }(2~ ( #~ ( ( ,(#bk6 ! :8~(#ѷ   *B [z /: )*6V͉ c 0!R#\*R8*B0 `iKB[x(͉ & S[S:ž:G:O[* 3::G:O[*2:G[ * # x GF:g.Rl&[ERDM + !É!0:waB}O[MR))) *s#r#6#6!.!"R>!2a~?(@(#( * 26?#2#/#?(#@(#(~A8[0  ~0 yN(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#)[u":%?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!BP!d:!"V!h: *b#"bP:»](H<6[bR(P:»##~++P:F(7>2 >2 ?>2>[VSV[TSTSbP:»](H*T*V](P:](P:ʻ> 25>2  *:5=25( >2>ʹI> 25ʹ!!*T#"T*V#"V!P!mP!mÖ>2g(;!%>2>2  >  ~ 2>2>2͆*b#"bm͖*bP!mP!m͖͖!"b!%>2>2(  >2>2ʹ>2 >2>2ʹ!C_^#V!;6 #66A ?˯I(Q(>ROQ0n(f)|( #*27:=@FIORUX^bejr%EGIKMOQkt}")47=DUYcoy   "36>BK~>2>?^B TAPE1 - S]mwnot readywrite protectedtape markcrc errorend of tapebegin of tapedata lateHDREOVEOFMount next tape volume - ** unexpected record ** ** Computed block count disagree QWZ^ajmv '*1;@S[`hkwO V \ ` d k p t w      ! $ ' . 6 ; A F K T _ k s y } L b x   bs with label ** ** Sequence or section number disagree with computed ** ** File name mis-match ** )HDR1ARCHIVE .TAPEFILE 00#YYMMDD 000000OASIS-ARCHIVE  B " * / 2 H R ] f p s |    " ' - 1 4 7 : = A cj{  & ) 7 ? G J M Q T W ^ c f m p w      " ' * - <  -:>BEIUXbempٽ HDR2F0409604096 000000wTYPʼnNOTYPňVERIFٛNOVERIFٚACCOUNԃQUERٕNOQUERٔASˏNOASˎVOLUMł TAPE1 $UNK$nnnSelecting  x{ "*/47=@CFLS[^gjx#&47BEJMPWZ]  $,2adhw uand 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 "D" Destination is labeled " " " OK to start archive (Y/N)? BOV* : BOV: 01  Account:  File:  Syn: FBOASIS ARCHIVE version   from disk * volume 00ARCHIVE VOLUME01SYSTEM ACCOUNT z0010 ; 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 xE 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 ] )] 09X 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 ϥ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 2OTO -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 v0 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 / &G vOTO -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 &GOT >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!>\O -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 &"a22> #2C:1G2%! ~( ! >aM~>  81 0O ~(!(  #~ (N#.~ (N#:FON# PCLEAR CONSOLE READER PUNCH P_CT 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 &CRINTER1 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 JT 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 &BEGTYP.;1 COM TAP PRINTER COMM TAPE gv=3GORdq *1Uf (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:490,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>ZT4T2b4T2a4T2c#~+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 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,SY NC,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 Q?BACKUP ver 5.5A 29JUL81 Copyright by Timothy S. Williams[AfUbk7%R0!D>aW"W~ (T #~ ( 18501S(A8\H0XG2k8F2]~ (D((@T #~ ( 185012^(S(A8H0G22^0!!+!>a~( OM2COM3COM4TAP1TAP2TAP3TAP4CONICONO PRINTER COMMTAPESABCDEFGCONINCONOUT READER PUNCH PRINTER1 PRINTER2 PRINTER3PRINTER4COMM1COMM2COMM3COMM4TAPE1TAPE2TAPE3TAPE4~V>( ~N(!2V:]:^*W~( #y:]O:^ !,!b9:]_*W~12m:^_*W~12ZNA8[02kG82] A8[02G82^G:] /P~ ( :]G~<( :^G~< !M> a:]G :^G :]G!   ( - `  %*/MPWy  #),29@DJW^ejo53 9 > E H P ` z } ' X \ j z " < I L R f n   r 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 2;AGMV[dgs>AILS_u!$,/25OU]c49@CHMZf "&+5JMVYbenqz}f](!"[:~o:}g"c:}2e!"a2_ :}(*a4:_02 *a4:O:w( *a|  y!8 ͡ O ͡ [[!f:]G2z f!f !f[[:^G3:V!f5[[:^G2f!f5 {# *["[:_<2_o:e92_*a#"a[cR9:]G!f !:^G!f  Y:]G :^G  :ő_*[~~N9 YN 80O:] "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 oOY( N  !ff%!f##!9i !;83:]G**R0 [RM[!f2!fͶ D :]G!f  q!q:]G!f D >*|7+"*#"}<>(>(*))))"S*#"` Er section number disagree with computed ** ** File name mis-match ** )HDR1BACKUP .TAPEFILE 00YYMMDD 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](    000000p, 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/t!!?Pf(!?˯ON(Y( N  P!f P!f !"9"7>2;!f f!f:}_:}g:~o':_':@(R:}g R g [R(  >f! XN)? Source on TAPE1 Destination on S(1) Mount volumes now - Source tape is labeled " " Backup from disk " 9" on mm/dd/yy at hh:mm:ss Destination disk is labeled " C" Ok to start backup (Y/N)? This is not a BACKUP tape volume! 'f}!};83!f :^G**R0 [RM[!f3 :^G!f  q!q:^G!f :x12 !&>a:^#V!" xW> A$PFFF> ͗ > (>͗ P!G !"9!K *E#"TTAPEn 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 CoEP ž ](+ <6[ER(  P ž ##~++P F(7 >  >   ? > ͦ >  [9S9[7S7SEP ž ](+ *7 *9 ](  $py, 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 dP ](P ʞ > 2 >   *: =2 ( > >͗ I> 2 ͗ ! ! *7#"7 *9#"9 ! P!P P!P y > g(;!  > >    > > > i *E#gVrive code: Enter new destination drive code: Source and Destination are same drive Ph    # ) , 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   e[-DKRYd#+_AOX}Rb   # 6 > C K N Z b g s v { QW]en$47FKknvy"*->CFKPV ^hps{~ 6;BE !%+.5=@ELUZ_djz!&-0:?KQW_hz !$-37 ]@ILSX]`ehotxB_cin$':=ALQW^aeloty~ -0afinq{" -=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*MR N #I>~,#V~(50~ (<NFͷBDE6>#6utE>#~nf#ʪ_!@^#V=)lz'z'P=)eR41 .8 n`z'z'XV M4Gz'(nAz'z'nJ\bhtUD\8*TR8*[R8!) "`! 7%R0!D>a!\ut 6ut#ut#!ut! ! 66!ut! utnf6utqpqIpJuKtL#ut66[6qp6(7+ut6+uWtX6+ut6+ut6nf+uz'5nf6  ( (w#6 IͮNè^V!›'fnuKtLnf#~ݾGnf~(W#^#~#(^>%#$p~ ( IͫNIͮNI6>6[^V[H+>(#$ͳ@^V~(G#~a8{0˯#> nf##V#^znfV#^#^Jt6+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~VͷRDM~`@>(>8>Ͱ +q+pͳ@~,#(~|R##fn^Vf#n#^VR^VnfRDM!utsr6#p#qnf~> #$T]#F#N#ut^VѷRDM!sr~ ( ^VRfP]Vw! >a!D> aBASIC OVERLAY1BASIC OVERLAY2BASIC OVERLAY3BASIC OVERLAY4U#n#^V~` ~#(^V͙"͙͙(! ~! ^V(9U~! ~+^+Vnf~#ng R| 4(!! ͳ@((nf]>]x( G|}xV^nfͰgo(!V^V^NF R>"V^~ R| V^nfV^nfͰ(Y GUfnNF >"^Vnf ~ 9U~ V^nfF#N#~#(#^V fn^V~ ͳ@^Vͷ "~(2UG G , G >#n ,;7 ~yw o ^Vnf# ( (w# p>"̈́ 6#~˿( "ͳ@~ w^V#~! 2,ͳ@~ w^VG.#~ 8OyF> ^V6;ͪ O(, 8E~ RtufnNF "fn^Vͳ@Gh x( "##(>]| ( :y'8}#>ͳ@^VNͳ@^VNͽ#ͽ#nf$F#^VOnf#KKKCx(8y8O (A(I (y(Nw; (~(G~(~;  ^VL x    & $O ( %  &h $yO,~(y % >  >#$]J y(=+y( 3+ xG3(w#x(~#y( > z(z~ ̭K~y^VV(#~+^G( >  0F ~ M(>,n(>;2xV  ;xx0 ͻ(0ͅ> #~ ʡ N#V ͻ `@(8~(j#(((>)#$N#na>f( ͩf (Oxy (>#$"~((  8#N f ~x#6#6++(>͏>##n#$+++v#$ˎ##nfA#6#nf,(6++ (nfr>"^VͧKnf0F ͽ#}( V(^(-x+0> V+ͻ ʖf(V(x#w+ͳ@(q(Z~(0O#~ (' +~ ( #~"('(n(;,( %NͅF#>"x( ~#" >"V~(ROͅ#G|  > ͅZ ͠ͅ\T]#~-( 1T]6f(ͨͳ@ͅ( 8Nͅ ͅ|}f ~ #CL͏ͳ@(/8*N# @6##n>##$+++~#$##<LKnf6T]#v>##$+++~#$##)͏SnKfL^V~ >$##O N#na>O``y8 (*  ;)_  > H ͅ> ѷR}GV̻f(8( ʡ( +ʱâʖ+âV ͻÖ~–¢#Ö ^V˷RR> #$A > > #ͻV( ##p#NL^V˷R|(O+^VVf#ͳ@ f( ͩf("~O(  (#N ~^VRuKtLf½~ýf#n#uKtL?>#$~nf~(G#N+ F(##s+++s+renf^VRDM+!  nfutnfutnfut6r#s#p#q###q##T]s#ri~O>#$nfBut6# V#NFV(^#~+( >  ~ #z $ nf#V#ͳ@(9  ]nf#~#Ox GPOnf#~#Ox GLTV̻xBKWE nf#^ut #$ V(%#~+Gn@ͳ@~#O^V>y(͆.( :# > y(~.( :# y(S# y( ͆:(# > >y~:(# # (y> (͆# /^V]> !!~N#~(  #~#( (151G y Oy =^Vf| }(~  (##ͻ6 #6 #7 i ~ ˿( ͳ@~(G#N3~2GN#o G ~ @cJ^V@#ÿ́ ͪ ("('( 8x>( x> (5>x>ʽ  I+F~w+FM~( 80~g(>`Gx >~ >v >G~ n(v(˞~( x(X(˘F(## ~a{˯#6##p+ (" &GM~ G~ x<(G:>8 >++(&(!@(( ( ( -(("x#>#DUMMý O 0x½ y ½ > V w;V½ ++ί~2U f >#~``(0@(ʹZnf [ (b(_ ([, (V>#nf6#"('(, ( ( (w#+~ (#O (  w#NFB} `ixf( ͩf(.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( M(L 1p<,ͳ@(~#3 8>w2(O62u3#\0!` ###~ (PV;n## (N #:~N (&7+^VٷR^ MV#^#]nf+ut| ݮ8 nf)>]r#s#nf+ut| z1 zXz zýzͰ(>#$_(~#(F#N#gV#^#^VNF G͙#;f(FͰ‹_ʋsr!F(,uVѷRDMͥ^V! (`i< >#~ ^#VnfNFϷBR> #$nfNFBDMnfR!RͥnfN#:nfutnWfXuWtXM$a8{0˯$U BASICUSRͽ#|E>#>+ tutg(sr^Vnf|( nf|g;NF nfG(utg(, W _ nf#utR!F(,ut g o^VsrRnf;f #~#(^V V#nb~(#ng##>n0~ (Q~ (3 ͳ@8(~($G"#N">]^VZ#$Stop_'wFG_'wEͽ#N#F#| :(7x83+)V#^z(y-( h&)onfh&)h&)>#f#n#ut>(F#$6(V^z(z< {< nf f#~#(~ !;>f(~ (#znff(###V#^nf#R0;ͳ@~^0V1N#> Iut7utnf^V׷RutDM^V +sr!N0F1B0 N0F1ButDMn0f1 +sr^VR^Vnfut~#$~#t(ds({́>>(?N~(o&``> }nf˷ w6#w+>">#ͽ#|{} {G:8ͨxN~(ͽ#| M N~(ͳ@(>]DM~#t(0s(B́~ #+O@ͳ@( 8~#  |}d!#8FNF^VnfnGfH97ndfef nfnf8NF^0V1nf!N0F1B#2>!N.F/I^V(.GO #((w( ݾ[ PY<7wpqrstu~>]}ͨ~ #+y~# +~# ( t(!s(H́#>TE>#1ͨtxTg.~ #o#t T~ (ͳ@((>]}N#T] 6 6I.~(~^V#(!G  ~#(!V .v(~(^(&V^F f(V^F  F $Z DMqGnfButnfButnfButnfBut^VnfӷRDMRsr%^VnfշRDMRsr~(W#^+|}##^nfT]B3O #(͛PY#~(1^VGbkO(ơPY^VGbkO(ěPY^VGbkO(w( ݾ[ԛPY~~#(##w(#_(#F#N#F g(V#^#F `i$ZDMV#^#zO^VѷRDutr#s#V^nfѷR0B ~(~ v(~[ ~ ^(~ ~ f( ~ ~ bk 6(8  |}N1"go##~("O++^VѷRPYDM+srnfutnfutnfutnfutM+NFM x R^VѷRDMM #Ͱ ;O#~(o~ #ͽ#~#( +ͽ#}>#$~`@>(>8>#~(O~y +#ͽ#|(/DMo~#}(+ͽ#z(}~C>#$̓F`i #g(nfutPYR(F#N+|}##N Ny qGnfButnfButnfButnfBut^VnfӷRDMRsrnfBsrr#s+|}N~#(~i#((8NnfѷB+++ut#p#q#d$Zͳ@G(( nf]>]s!!G(. x̓̓wwݮ‹B f( R(>#$`iF #f($Zut~)8KNF!>s! x ~(#ng##>s!##NF qpx ݮ8nf$ZDMA#ͽ#DM~#>( +ͽ#T]>($nf#F#N#^Vutnf͌IG͙#Ͱ(~`@(8x_G>#$͙#(((nf]>>]>s!ͳ@(YGU>]>|!G~,p,G~ݶ(:(F 4p^Vnfݷ KRutnf^V6(6,Gx(70~ (h&^V>[{M6]#6 #6$ $nfNFͷBDE$ at location xxxx ESC-CDivide by ZeroOverflowUnderflowIllegal NumberSQR of NegativeLOG of ZeroLOG of NegativeInsufficien }6( 4!.Fx~ ݆_nfut#~ķ(@_nf])/!V?nf~=??_nf]?GU>nf>!> C(~?-|?-nf]#~ y+ /9U~(l/Wnf -/!VXGU>]<LZ{-o-nf t MemoryLine not FoundLabel not FoundRETURN Stack EmptyWEND without WHILENEXT without FORInsufficient DataInvalid File NumberRESUME without ErrorInvalid AddressInvalid SeparatorON Range ErrorCEND without SELECTType MismatchInvalid Zero Dimens _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 8ionInconsistent 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 0bk##6.. +w+w+6/|.u.2UU.|.u.2UU.|.u.0 f ~Fwp~.~. 0h ~ ~=0S!._~=0C^V0 f ~Ͱ+>-~Ͱ+>- ~Ͱ+~Ͱ+~Ͱ+6nf6> |rogram 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'/ d`feFm/%m/<m/%0m/<0DDz {0G>>7n;&>70 C~8K^Vyy(#>70} , C^V~8 < O>7070} ,U C{(~8J |Z> C~(#~o&>D6#s+> C>]> C]> CF#6x(: )~ 1w#Aa8{0˯~(( #~ ## 8Vy>nf6 Cn&>7070} ,{0><_/D|(!|! C͸0͸0E C^V><0ON#x( y> (~# yGx(# xF#x> (~# (O^V+Rs>D|(!|(!|.0^V##0 nf! 6>DDII EOEORVORVOF ULOULOF KOKOFPOPOFFOFOFBOBOFEBEDD66 ; )|)}=)wz){=)w6)n&>nf> C^V~(AO#~ # &~ () ~ # > [ >> w1!ut!?V͗YͣVAYOw+N+ͣVAYw!F!1'+|X Y>Ɂe5qY C( ~(#~|( |!(!!> C#~+( 1GU(^>ɀ2W(^!V!9U> #>! C( nf͠\>^VZѷR+s> C nf]~ /^V$P F+F+FÅ+Ϳ?!/9U~!Y 1/W(^??)/9U~(!Y1/W(^T] ?9UY9U)/W(^?)/!VT] 29U~>29U~> C^V ] Cnf ]nf#6#T]6D}> C(nf]#~+(GUG~(xw(^~(Dw>3L8G :>3U 80*O)8*)8')8$ 30820O ?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 E)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#~# (~#  g ((^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(%   .>##˾+#+|X>#ͻY݁0% )TdeR$)H4XdF)p5'dvq2vEBYXTX`''HD͞@8~(?@~;!VÙ:z(G|Xz(!RA@Ϳ?)8)??!V0͔@>ͨYͣ?\=!V X(#(@("?(*(" # ( (~U ~ͻ5  (*(%  (5 (58 P#( @ ~ͻ5 @~U 8# y448(# ~U(@ ~ͻ5(y(44?44$U a{0A*(%(#(@( ?(A7*%   @}( Y)@ͅ@=h@??|=d@͔@H=Ϳ?@??W>Ɂ'29TG5`7(@wABRvVI18g8cyfcW Q558'QFVSͣ?\=!V͞@}( Y)@ͅ@=[>h@??C>d@͔@>h@??{>  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@?W>ͣ?\=!V͞@}d437`9AY0idH2Yceep$'tex)9FYtVp9r420 T1E#4)9FY4gw1% iQsͣ?#~˾+5?9U~ 5=?9U~ A@"YGUͿ?Y9U?Wͅ@?h@??m B   C^VFx>#~a8{0˯>7~# nfw> y>(A~#(( >^Vw~(( ~(yD Cut78nf} %- .ut7v8DMDEqp C^VNnf^#6  ?d@͔@?W@(E?GU H( M?)@>ɀ!5b71ABV#s9c9tW2g#r"f p32p#@(804#rh(91#!He5!?>Ɂe5 C^V ]> !!  ~#(P Ay(~#(;(7 T]~#(( (+nf~w~(#nfNp ~( +ynfw>^VNFnf6x(\#~# +>  yNFAOx>('x >޾(.=+w)~#( >+ >ݾ( 8 G~# x nf~N#y(  !bYY9U!9!YW GU?!VGUͿ??!V??!VͿ?ͳ1?)@?>]^V6 ( C ^V8N~˿# YDO!D ~#fo O~( #nf$w (( y^V( nf$#nf> Cut7v878j9N!>+D͖++D|( m9^(##F++M~(#n&>0n ͱ9hͱ9iD| >m9CM~( G;D9>~N >&#$DNF :  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>>> >>  C^VN9>ͣ?~>#~˾+>#~6Ϳ?? @:GU???W? @@GU@wx( :!V>ɀqW(u%8"wfhͣ?s;!V͞@%;|%;~( @8yͅ@S;d@͔@Ϳ??k;h@??9U??GU?W >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(#~n ,:!V~ր+;ƀ(w>| 5;ͻY>͗Y>#>Ʉ1@g!)76Y(Iv3UtpRY7AR6hXceͣ?#~+<~<Y9U~(u~ր_06:!V?YGUͿ??9U?Wͅ@?v<h@??V<d@͔@?W6<9UͿ?] fq>ͮC@>ͮC@ C>]~(((#8^sr fn#Ͱ _(>#$#~(~`@(8x8!(8V#^|>## V#^!(!Y(8NqGB+ +u+t+wqp CO CG( (n  f] nf]>@A"AUA+AdAmAADAAAAAAAAAAABBBBfByBDDB08@%00O!' ^#V~DͮC@ DyDDMO>( DPYDM>##~(͌I8 V#^~>(V#^## 0 CYGU>]> ^VutDM6# X+++~#^##~++GM~+++#>#~#^#ͳ@6## +~ (#6^ J6N nf#NF˷B#DMnfx(_ BDMyG(_ͳ@(%LKDMhH>##nf) <N# @6#nf((#-! ww#Br#s#NFBr#s#( G~#( 8( ^#~#(#ͰG>+#$x#$og^V~#(O~ #~ #~#(x>#$4[r5[nfx@Fnf CutO~`@(8ByG^VN>F:y(G]^V> $DU( A8G0O)8)8)8 )8 H !U $)| DM)| )| | O |(7ɷDeMExnMx 80ɯ!M~(#O#F#>/B<0 0  <>0'd nfut~(B( gntunfutnf Cy( G>]>Dnf4[5[s!nfѷRšE4[~#ʚFnf^VͷR!9nf۷R}MqGnfѷBut6#Onfͳ@nfDM#~#V#^# utV#^#NF #$r5[nf#N#nf۷Bnf ut^VDM ~#V#^# utV#^#NF GF C~Dnf^VϷRR> #$B#$!SHnf~w#$($UNH (.(:( ($($U( U(NH> w# (.( :( (!SH +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 ):( ( (*:( 2U > (w#/w8>7BASICCOM NH6͘G~8.6͍H(*~<w 6 >7nf͍H E6pNN1~ F^Vnfz(%nf%%R8 ^#V+pN> #$+~ ^V ~°Pf 4f(4#…OðP~°P~ y~^ r i4#`f Z4f K x(~ #47v ~ kP8P~PkP8Pf( v( ~w( o( W( ( ~ݖwn( ( D݆wNS RDMnf utϯnf~(F( !fnnf6#^VutͷRnfϷRDM^VsrnfutnKfLuKtLͰ(D~`@>(>8>wݶNF  ^VѷRB8 wwݾ>#$BKf(#$JHJ$J w>ݖ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(>< F $ZHJ $JHJ ~z>#$F(z>#$ g oR>#$F(+F($Z#͏~ K#^V>##~#+++n( ###ˮ+++~#N## #FM~ ú N "++ί^~(6#(&( &^~#G(^H ^   ~(?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. ~# X^##6#ͳ@(OLKDM^V~`@+++>##v#ˎ##(JJ(^?@K;X8 K9U>]N# @6#^V>#n#+++v#ˎ##+'hU6#nfT]6͏~# F>##~#+++n( ###˦+++###f# 9~#~ʟS^V7\O~#- 5yݖO:SD 8 d>8>>G~%T~(>-6 ~(G͏Sf( >.n(>,~(G͏SyN~>0(~5#~ݖf(=(=(G> >0f( >.n(>,~(G>0o>E5~=(}>+(}Do>-5~  0}8 (d8 8&{MR>05>%nf͠\#H~-(> > RR66xʀO~!([\(D'€O#(P~˯L(6R(6C(6E(6)O4#( ~˯(#ʀO4 ##N#~GV B0OF N y> (~# Ry> ~# Rx  6^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 >?(> = ι0A08:007A8[0A7 @X~_V @XV^ݾ qX{|XwqXrqX˺˻X8 ͊XͨXxx ͒X͎Xyy~і( VGѯDYbk  U'+~ V 4VDY V'+ N   y(4]y DO >0ѷR}Gw>.n>,go~ր8c(aG> 8DO~#ĸ]~#́Y ĸ]́Y~(!R(]%|(7!(!>#~͚Y|(=|(!R#'^#^d^# ^ Y YʑY(Xyw |XcXw X@XݾʑYʑY~!utV͒X ͗Y AYͣVAYN+ͣV~(AY~րO~րV WØV Wƀ(XwcXVVVV^Vɯ'+! ̈́X! ˾+  yo{o Yw=B<0 o~(->ݖ8&($ 0$G>_;#(~w#8(6#͗YH ẍ́XGRY(Xw X@X0XݾʑY~V͊X!W0 3Y͈W3Y͈Wy/A~րO~րÊV!W8 !W!W8 !W!W8 !W!W8 !W #  x)J.>A %j$+48Dgj0CJORUX]fnvy|L U  2 5 j m    :   ! % A  7 }@Kak&>Qgs*- _ '+~#~w+>#õY>#ÑY>#õY>#qXutnf~G怰ẅ́XVˁ̈́X^ˉ@XXqXV^z {~z~ݾ{##  7B .FPcfpu)KlKRa]ciou7%?g()))))))g*o*y*******B+q+w++++,G,,,,,,,,,.-{--- . .#.,.5.<.E.N.U.].|....... V#N#~  (+3Y#~ +q#8#7 o+#g# ~'w+#~(0_(w#)T]))_|͗YqX6#ͨYqX6#6#ͻYqX6#6#6#z | | ZZ .:/E/P/_/////!0%050M0Q0001V11122222/3E3h3333454\415M5U5j5~5555555G77777R9U9X9[9^9{999999:@:{::::::;,;;;;;;<<<<=)=;=======>>>>>?$??n@@@@@@@@@@@@AA A&A)A;A>APASA_AbAhAkAAAAAA 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># AAAAAAAAAAAAABABGBgBzBBBBBBBC CCCCCCDD!D#D%D'D)D/D1D3D5D7D9D;D=D?DADCDEDGDIDKDMDODQDSDUDWDaDzDDDDDDEEE F>FHFFhG3 B !!"d##GGGG_HfHuHHIIIJJJrJKDKIKVK^K:UHUZUaUhUqUyU~UUUUUUUUUUUVVVVVV"V)V !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 /VGVJVVV^VaVeVmV|VVVVVVVVVVVVWW WWWW$W1W9WIW\W_WjWmWWWWWWWWWW&X.X6X>XXXXXXYYYYYYYYZZ+Z1Z?ZGZJZSZYZ_ZfZZZZZZZ[[[/[>[O[Z[b[e[q[x[[[[[[\\\\\\]c]x]]]]]]bMkMMR$`$x${''NiOOOOOOOOOOP $P'P.PPPPPPP^QeQQQQQ R*RS5SQSiSSTJTMTZTjTTTTW]PIc+3,Hh" M  9 D u x ,6H^Q0;BSl  A@>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 ] } > Ҽ ʸ(  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( ('';;&(('' X .| % lu(m( '˵˭˥"(} h] xU ]M V'(G"(JDR( .*˅E( (ˍˍM( ( ˕˕ˍ˕M|є˽;|Ѽ˝ɯ%(#\(: {('(" O%( $A( (>>=<|;::>>=<;;:5:|*<;:K:P,*>==#=<;:Z:*>D=<;:I=;:{+(+N:9: +**>==&=;;;::A=<?>=.=;:>===;:>==;: ?=4=<;:$>==<:@m U H b `~o/5 Z $.|> O$l&&{ѷ ~ݶ|NF@ 7~ʄ_,~ݶ|NFxʇ> xʇ>@(zʇ>}>~ʌ>ut#V#^++srX-~>NF@u } ] a8{0 $ %Oyu t}"p'w\(V: {( ?:I977"7666u6+644W4I43{33|2:2 211V0I00///-P-,8**)((((](999t9k9776/663q2080r/n/s)o)(BrDDDEEFFF GlGoGAEXCIC"F/+F/tVo  Bh3k###B"V qFCH#\#DII { 3jJJK cKEUAM6 AR(; .˕ˍE ˍM ˕˽˕ˍ˅m('"˵˭˥nf~A #~ #'A #~:(.('A(A(>:>:RE^V~ݶ(bk~#A(~ 665AA }>A DM@Ä PKSKbNK@LoLrLLLDmB@k@?> <;:e:C:21--,r,RaKBB?@>>>;;;:221,+ +****]B@@t@>=<<<<; ;:~:1-~-,J,*BX@?>>L=;;:T:1,***<">= =;;*DuBB B[J JP W͞nf5A͒y A( 5('({͏ (r3 85A=(a((][(Y5A ʦ!~ JN#'A(A (~  #~#(## 'A(A(x85A~#(~#fo6-^VWH>͞:AUTϾ(CHANG}#DELETO)LOCAT"LENGTȋ*LIS1LPLISLP1LIS BB,A(Bo **F # #{io@ ###) *#hK#FDC@-,~+/++(:%<T#EDD?;62S262--x-,l,D,F*( ~ MK211 -***$['[~[[[[[[[[-\8\N\U\\\\p]|]] ^k^223ZZ-+;] [ZZ;X3X+X#X'<<;; LP2LISLP3LISLP4LISXRE LPXRELP1XRELP2XRELP3XRE"LP4XRE)LOA.SAVņ-MODIFy%NAM8,NE׽?STEБ7RENUMBEҊ QUI<7TRACV7UNTRACņ7TO0BREA˿7BOTTO 1UNBREAN;RU0CONTINU5VAR3INDENu5HEL4C !G !@ x.: 3*eLL=L8LLKKKK9K4KJJ[3H* _ =dDJ6J)JIHGG#G~ELEGEcC96y'O]\TOfxpS)  x^4($((''''''!$B$}$';'&HHH6 O(Q1Q:QST3T5MMZG5 ! 9! 2 !+ !$ !!!!! !}>\>>>>N.F/6nf6#-F(! ڑ>|ʑ>t#u#    6#p#bk~R #~E #~M(5bk~'A ~#'A(A(.(: 5A Q|#ʈbk;ʃ R  5+r5)544{42K.2.--GG5HH./.- P j E CMʃ :G 6O 0 *5AT O-  S U B,!h"͜ 86͏ ( 3 8 85A=[(6͒O<!h"~'A( .(A ~  #(~#( x8'A(A(.(q#y"O! ~#fo5A6 N  _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# , ʮʼ5A$ 5A(37! ~րO 6#v͡~8/n83͡~8f8!͡~8 ^8͡5A)( 7ɷ6#~ IZ8(Z0#I8 Z8 xw  5A$ 5A((75A, qNnf(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 T 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# 7!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 j' 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 ,N  i8^V5AA 5A (K;(G`0R `0E `0M(. ()"('( `0\(O ( a{˯^V5AA’/W͞Ò/~n(F^Vnfz(#nf%%R0?@> ^#V++~ ^VRDMnf utnfut#V#Vsr 5F@ ^~ !'#~#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 x OtNFB(0e~DO| T]N ~O(nfut!ut'@~( #F#N++| nfqput-Fnf~ʌ>X^VnfϷR++ͳ+^VnWfXR++ͳ+^VnfշR++ͳ+^VnfR++ͳ+^VnfR++ͳ+^V  d^V$!2nf> ^VϷRDM_ nfG6 #= n0f1^V~#( ~ 'A N ~ (#>nf> yD=?GO?D=_nf6 # > ^V55 ; (' (> F F> 1 Page 'nfR++ͳ+^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:  K  ; q5A ʐ3nf5A'AM>w# ( (,(.(A('A(+nf$( % ˶#< 35A ,M>~`(`(͡4 =^V~##T]~#(~ ~#3V^Gʛ4ge4GOW_F6666(66͡4 WHILE: Debug: Buffers: USR Name: Length: Addr:  J-D,nf~w#$('AW> (.(:( ($('A( A(W>> w# (.( :( (5A.(B(!B-6 (:( ( 'AW>> w# (+:( 5A > (w#  j(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 4x6FW6R6Ô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=( >( <(  #5A <rsrr#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( gntunfutnfutnfutnfutnfutnfut -F(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 repla zt-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 ? 9[#[,]:] MAT WRITE #[,]: MOUNT NEXT [] ON ERROR GOTO | 0 ON GOTO ON GOSUB OPEN #: ,[] OPTION [B  QkW~(!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> tEM RESTORE [] RESUME [|0] RETURN [] RUN [|] SELECT SLEEP STOP [] THEN [|] WAIT WAIT ,[,] WEND WHILE WRITE  R!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#~  ( EOwV(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 i+W#~ +q#8#7 o+#g# ~'w+#~(0_(w#)T]))_|́W[V6#͒W[V6#6#ͥW[V6#6#6# >6W7.^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\L   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>JPiW" @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_8e8j88 ZZl u z  B C F  %.8BLVSZ ,5:P_d &/4?JU^enuT%8888888-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-********ZMRW\aeimqAc~V !>!V(!D>a!>N.F/> > u*~<+~(wV w666qpqp͘ :x:NFnf `iutB:* =~NFfnB(E(* 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  66rs fN !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 0~(#O#F#>/B<0 0  <>0'd nf~(F( !fnnf6#^VutͷRnfϷRDM^VsrnfutnKfLuKtLnfrututsrsrr#ut6 6sr͸ 6626P~(  ͼ~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 !  i!~# ( (> ,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~ݾ{OOT REMCHAICLOSCSDATDEDELETDIENFOGEGOSUGOTIINPULELINPULINMOUNNEXQUIOOPEOPTIOIPRINRESUMPURANDOMIZREARESTORRETURRUSLEESTOWAIWRITFNENWHILWENSELECCASCENMACLEAREADNEXCOMMOUNLOCIFENOTHERWIS\COMMSERIAPRIKEYELOC ###N#~  (+>#~ +q#8#7 o+#g# ~'w+#~(0_(w#)T]))_|͢|6#ͳ|6#6#|6#6#6#!srQUOTFORMARECORDSIZFILESIZKEYSIZSEQUENTIAUPDATXOIMEQRENOANOERROSTETDEVICMEMORPORINPUOUTPUDIRECINDEXEUSINTHEELSBASCASPROMPEXTENABASATCHCOADATDADEDTEOEXEXFIFIFIHEININININLEFLELELOLRLRLRLSLSLSMIMO  K͢G+(- n(,.(8"x   8 x pʵw(r~!E *+(- 8h 7͌|(p(:x(!RJ3 ݶwu|| 0x +3CÜ^V0 ?nf~#ut!NBOVNBPPORERIGHRNFLOARPSCSESGSISPACSQSTTATATIMVAUSERERCRCRUSPAGLINMATCFORMALPARPALTRIRTRITRIMIMAROUNHEXOOCOCTOBIBINOUPCASAAAAA3AAbAA> >>  ;~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'WM o~(->ݖ8&($ 0$G>_;#(~w#8(6#͢Y+ 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 @  4Dd  (((fn>ͶDM #(GOT]~#(RDMy(,(`~(_#RDM## ~w8~< fn>Ͷ+6#63~(O #RDMT]+4+6#p#q+L>v7+" 6 * ~͑~ T]~(O #RDM###~# (knqt| ,/;@GW_bgnq|'69<K  !,CQ^dv%-28?1#;AJ^e  O(%(=(( ( ## N #>M~ M~ #~ #>M~ #~+N ##~ #~+(>++~ #~+(>[  (( (#(~#([ +~S `( `(* #" * #" * #" >v* ~ʝ͑###~# (( (cG=m v y dg$(BPUZ_a o( ( ## N[  w(( #(ѷ  N !x(G`G~(O #RDMR~wp#q#>v* ~(_#6" ~M_͑~&( FB###M~ ( BK[ RDM 6b~(_###~&(F RDMfn>Ͷ+^+V+>fn>ö>v* #" 6!" * >2 ~ #! 4FʷO͑~%( * | fn" [ RDM>v* #[ RDM[ ![ !bk6* #6>2 7+6" +!%!(>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ʼG E6\=~ 6[o6L +M#~6X 6V # y ##8#y ~o(C8 ~ ( ###~ #p#~ 6#6#͌ ~ y #6U###~#(++͌ y #6#6#y #8#8~# (f(Mu(Yv(Yg(Yw(Ax(A_(A`(M(Mb(Ma(Mc(d(e(+p ##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 #͌ #q#y 8þ +~|(!~(.}(.("](7^(Q\((~ y ####~#[ 6_6`6a 86!  ##~w####~w#~w### ##~w##~ ' 8~ #8~ #~  6 #~y  8#~ (! ({( :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* " : ʊ: Š_ ((  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 >~  $!$* "$$: ($ 6* " * |(;R0!" * " C$_(!$: 3 A,$!$* Š* Ê: : ʺ: º ! !.!* (H!* (b!* (* ,R8* d&* K B* [ Rd'[ &|D(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 : ~  ! >%>  !* (!* (!* (!* (Pf(z %  ѷR0<  R0<<'  R0'* &<'!  ": d: ([* : w !$* ut$*  .^#V* z(( ( 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  hK 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#p[ R" [ F* ++" * ++" S RDMbk##xy PY<~#((( (## N ~#(: (0O : ( fn  2 +"   * #" : W!1">  ((N˹i~#(  !>a!>a!>a! >a! >a!>a!>a!>a! >a$! > a!D>a$>$fn$>@TYPPRINTEPRPRINPRINTERPRINTPRTPRINTERPRINTPRTPRINTERPRINTPRTPRIN er. SELECT without CEND. FOR nested too deep. CASE follows OTHERWISE. More than one OTHERWISE. IF without IFEND. More than one ELSE.  BASICOBJEBASICCOMObject file is corrupted! Compiler error at line YOTERPRINTPRTLISNOLISNOTYPNOXRENOOBXRETRAC%X ^ox $-6>EM !'+2FIOXgrx}o!&+2x!$'*-03 6AFL^d~+3Z]f "),/BEJOYafknqvy~%*/28<GQ_mty~&+:>ADGM Qmr}(.59<FPTW[d1FI$*8<@I]quamqy  $2;?GM9KPass #  BASICOBJ Oasis BASIC QZemrv(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  (m) 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 numbeÝÌ)"@~w>!N.F/~T~ -F*FNqpqpututx( -N6- ~ #~(~Vf( ~'~̊/6, b #%~'¯^VRuE>n1nfVn(nYfZ|c/+uYtZ~#z{!O!u ^#V [5 ~G=> 14%6' ~%w&~ ( (Ny(8N ^Vr#s+qpnf^VѷRDM^VRutsrNFp#q#w#( ^VnfRutnfRutnf~(+6'~%w&,##~# V#nbGNG~,n1x()(zOx(5V~!/~,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~(~(8L'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  8~(j|(|($ ~~xNFBG}6#6$6' 6',^V˷R}Mnf^VѷRDMRsrsrnfnfRutO^VѷRDMnfutnfutnfutN((nf}͜e, ͜èe! n]2Y_^V sKrLI%zNFx()ͣe $~ݾ8ut^~ 8 0 I,NIFJxnKfL#V#^##~% BȯwMzͣe~( !( ({(2Y_fn2Y_&2Y6>6[^VoX(>( nmx^V~ (( ($>1BK# (#o&>1BK (#* ~#ng  UG_Prͣj6-G_P~ j|(ͧ F#N#~5 ~ = =1!wf6-^V!nf1x nf.ͣe.N^V~(G#~a8{0˯#> !~ fnnf~~& 7##NFBDM~`@>(>8>* +q+p[*^4~. 4:N~,n1(~|(~  ,6'~(:~w ~00,~~  e~ F#N#ut~5 ~ ( ( > å qpsr#ut R}nfwx6-NF^Vnf6'=~(#/~(: #~( ( ## ~(#J1#J1##NG -x(6-(m| (6:( ~ ,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 :g58}d1>^VN^V B`i> NF#^VOnf$#KCx(9y8P z(z~(( 51=04!N(~(h|(bnf^VѷRDMutsr~~~nfutnfutnfut~!w"6'nf~> ~T]#F#N#ut^VѷRDM!srnfutnfutnfut(((( ### N#~(~ [~y^VV(#~+^G( >  0F ~ M(>,n(>;2xV  ;xx0 ͯ(0{> #~ ʗ ʗ{ʗ R##V ͯ0F J1#}Y( V(^(-x0> Vͯ vf(G(V(x#w+N(q(Z~(0O#~ (' +~ ( #~"('(n(;,( %N{F#>"x( ~#" >"V~(RO{#G|  > {͞k {[mT]#~-(  > H f((N{( 8N{ {|}f ~ ‚\# #N(/8*N# @6##n>#1+++~1###1+++~1##) SNIFJxb~MbnKfL_~#O N#na>O``y8 (58  7I {> ѷR}GV̯f(@g((' ʗ (`{(\( +ʑÂv+ÂV ͯv~v‚#v ^V˷RR> 1A > > ͯV( ##p#Í\^V˷R|(O+^VVf#N~O>1n f( &f(6-~O(  (#N ~ #^KVLRuMnIfJ#uItJ6Mf¶~ #öͣe~_>$n1#F#N##~++++%(qIpJuKtL~! #f#n#uItJ6M#>1~anf~(G#N+ F(##s+++s+rrnf^VRDSfBut6# V#NFV(^#~+( > ~ #z nf#V#N(9  }nnf#~#Ox Gͺ_nf#~#Ox GͶdV̯xBKW6nf#^ut #V(%#~+Gnf| }(~  M+!  nfutnfutnfutnfut6r#s#p#q###q##T]s#rN~j#O^V>y(.( :ʅ# > y(~.( :ʅ# y(S# y( :(# > >y^~:(# ^# (y> (# /څ^V; (#ͯ6 #6 #&T~  N#~(G#N3~2GN#Z2~ @͐Z^V@n1yo͕ ("('( 8x>( x> (5>x>ʨ èO 0x¨y  ]> !!~…N#~(  #~#( (1څ5҅1G …y څOy =^V+F#~u6(6@v(6 +FM~ʅ( 80#~f(w@(x (`#x >~ >v >G~ ~ D#~#(a(b(`(Nx(X(¨> V w;V¨++ί~͜e f >n1~``(0@(oknf k (b(_ ([(V>n1nf6#"('(( ( (w#+~ (#O (  w#NFB} `ixf( &f(6-~ # ˘^(˞~a{˯#6##p+ (" &GM~ G~ x<(G:>8 >++(&(!@(( ( ( -(("xn1>n1DUMMCONSOL READE PUNC PRINTECOMTAP !+6+ˆˎ#J1~,n1z>1z1!R1nf~(#F#N#~#e2 22>n1n ,;&~ybZ^Vnf# ( (w# p>6-o6#~ "N~w^V#~! 2,N~w^VG.#~ 8OyF#> ^V6;͕O(, 8E~  yF(~ngR  F B ##`i>1N~(F#N#=(~ ;y˯A84H00@Onf~(W#^##F#F(M~ >1A >'1~#~(l}(GB];^3\,###~ݾGnf~(W#^#~#(^>%1pN~(#~˯U( M(L 1p<,N(~# :x  (y x> (A(I (y(Nw; (~(G~(~;  ^V7x & $O ( %  &h $yO,~(y % > >1~ ¶͊Z`@(3 8>w2(O62u3~ #~### ^V!N~O(#~s ~ (s( ̀e(>n1# (N #~N (&7+^VٷR^VѷRDMS^V! (`i< >n1~ ^#VnfNFϷ8~(l#(((>)1N#na>f( &f (Oxy (>16-~((  8#N f ~ #x#6#6++(> ##>##n1+++v1ˎ##nfA#6#nf,(6++ (nfr>6-^V[nfT]6|BR> 1nfNFBDMnfR!RSnfN#nfutnWfXuWtX^$a8{0˯Îe BASICUSRJ1|E>n1>+0~ ( ~ (; (7{(3 N8(~($G"#N"m^V͞kU~ #1Stop_'wFG_'wE~oʶ J1N#| n(k~ (d (`{(\-(# p  ~ ##~( (,y-0͉51͏ B~( (###p ͏ >d1##~(#F#N# ͉51#F#Nqp>(F16(~0(N)F* 0'r'nf͔'f #~#(^V V#nb~(#ng##>0'r'nf&(#~#(~ ( ({ )͔'>f(~ ( ( {(#͛&nff(###V#^nf#R0͔'N~^0V1N#> 2Yut7~+51=~0N)F*qp~+w~1~#t(es(|ͅ!>>(?Q!~ (o&``> }nf˷ w6#w+>6->n1J1|!} !G:8ͬ!xQ!~ (J1| M! Q!~ (N(mDM~#t(.s(<ͅ!~ !O@#N( 8~ 6utnf^V׷RutDM^V +sr!N0F1B0 N0F1ButDMn0f1 +sr |}d!*#8FNF^VnfnGfH97ndfef nfnf8NF^0V1nf!N0F1Be#~m}ͬ!~ !y!~ !~ 8${( #t(s(@ͅ!>P"E>n11ͬ!p"xP"!g.~ !o!p" P"~ ( ({(N((m"}""N#T] 6 62Y.~(# ~ #^V#(!G t)2>!N.F/2YVfİ0^V(.GO #((w( ݾ[ PY<7wpqrstu ~#(!V .v(~(^(&V^Ͷ*f(V^Ͷ* F j DMͅWnfButnfButnfButnfBuO #(͛#PY#~(1#I^VGbkO(ơ#PY^VGbkO(ě#PY^VGbkO(w( ݾ[ԛ#PY~$~#(##w(#_(#F#N#F g(V#^#F `ijDMV#^#z$O^VѷRD t^VnfӷRDMRsr%^VnfշRDMRsr~(W#^+|}##^nfT]Butr#s#V^nfѷR0B ~(~ v(~[ ~ ^(~ ~ f( ~ ~ bk 6(8  |}NM+NF*^ x R^VѷRDM^ #* ;O#~(o~ #J1~ #J1#}>1$~`@>(>8>#~(O~y +#J1|(1DMo~ } #J1z(}#[*~ #C$>1~#/ʃ&:ʉ& ,go##~ʘ,O++^VѷRPYDM+srnfutnfutnfutnfutnfutPYR(F#N+|}##N Ny ͅWnfButnfButnfButnfBut^VnfӷRD>ʏ&Eʕ&ͤ&#~q%F`i #g(jNG(( nf}nm+!G(. x#ͤ&wwݮ¬&B f( R(>1`iF #f(jut~P&8KNF!&>+ x ~(#ng##>+##N!MRsrnfBsrr#s+|}NVf/Vv@.~#(~.((8NnfѷB+++ut#p#q##J1DM~#>( J1T]>#Vv(#`i(/g(,/)($nf#F#N#^VutnfF qpx ݮ8nfjDMV#^#}nnf+ut| ݮ8 nf)mr#s#nf+ut| ͛& ͛&8͛&͛&*(>1_(~#(F#N#gV#^#0'r'Vv(2@.(nf/NF g( ,nF͹YGw.*(~`@(8x[*_G>1w.( <@O `(` $%((nf}n>m>Vv(o = G 0O /H"Fx(#~O 88.y" "!7inf~[mw#f/)^VNF Gw.͔'f(F*¬&_ʬ&sr!F(,ututg(sr^Vnf|( nf|g͔'NF nfG(utg(, W _ nf#utR!F(,ut g o^VsrRN>+͞knf| 6^V0~ (><ͺ]~( o&>,ͺ]>>V0~ (/1Break on nWfX~ ~#~('#^#VnfR #Fg/###^#Vz(r+s^nWfX~ʝ0#~0( #  N #o0 ~#~#(%8G W^#{ Uz <7H # ^#V#PY(mj|(|7 !`i( }nyi(8O G W(G(^#Vz(r+s>d1sYrZnWfX~(?#~+p@ 0## &00#N#Fx( p+qsYrZ>d1 N  j(7 ~ # > k >>d1>!R( nf[m>^V͞kѷR+s>R nf}n~ /^V$P F9F9Fê9MF=e~!j V=gnMNN=e~(!jV=gnT] Ne0~ (//nYfZ~@F~O~#(x`@(%8$~ #1N(jfm>|!G~,p,G(Tx(P(L~ݶ(D(F >pnfutNFͣeF !6(~w+^Vs)r*6,%Gx(@(<00~ (h&^V>[ͺ]6]#6 #6 jeN=gnMN=fT] NeNemut6N( m} 4nf"= y >݆_R(0_unf#y9~9Nm}90 f #F#N#6-#V#^#6-+q+p++s+r6> 0>0o&ͺ]>/;~ʨ:#!6u2 ~ v2nf^Vͺ]> ^V6,x~ (^VRu6nf^ut#V#^sr at line ESC-CDivide by ZeroOverflowUnderflowIllegal NumberSQR of NegativeLOG of ZeroLOG of NegativeInsufficient MemoryLine not  ;ut0 f ~Fpwu}6( 4!!=Fx~ ݆_nfut#~ķ(@_nf}nN=fMnf~=??_nf}nNf>nf>!>R(~d;|d;nf}n#~ y+.=e~(l6=gnf ,;6=fFoundLabel not FoundRETURN Stack EmptyWEND without WHILENEXT without FORInsufficient DataInvalid File NumberRESUME without ErrorInvalid AddressInvalid SeparatorON Range ErrorCEND without SELECTType MismatchInvalid Zero DimensionInconsistent U hfm<k{8;o8;nfCnm} 0>0ͺ]>:nfZ;#60#60#6:^V%6>R^V~(dO6#6#6}n6=f^V}n>=f^Vf}n^Vf>!>R~O>^VGsageSubscript RangeInvalid UsingFile is ClosedFile is OpenInvalid File NameFile not FoundDisk FullDirectory FullProtected FileInvalid KeyWrong AccessOut of DATAOPTION BASE must preceede DIMNo USR ProgramInvalid Drive CodeProgram not FoundI &6͜èe=̀e  #x80bk##66<6< +w+w+6/|=u=͜èe=|=u=͜èe=|=u=0 f ~Fwp~=~= 0h ~ ~=0S!!=_~=0C^V0 f ~9>-~9>- nvalid File FormatFNEND without DEFDEF not foundUnimplemented featureFile FullDevice not Attached.p5 Feature not implemented ~#(F#N#ͣe> nfͯ("#### # (^<7> ͣe _~&Ɂ66L6d`feF͒=%͒=<͒=%0͒=<0ͫTͫTz {0G>>7n;&>\>R~8K^Vyy(#>\>} ,R^V~8 < O>+6h5h5@=mG?h5=<>h5It=h5=^=i=h5=?{Bm>h5MGE=>6ODDt;?K$DBH28h5K:7G776h5+HGG CDAABBYB B&@5@|@SA@iAAAFER(#~+^Vh>|j>R~(#~o&>ͫT6#s+>Rm>R}n>RF#6x(:17~ 1w#A\>\>} ,UR{(~8J nf6Rn&>\>\>} ,{0><_ >ͫT|(!|!R>>ER^V><0ON#x( y> (~# yGx(# xF#x> (~# (O^V+Rs>ͫT|(!|(!|.!?^ra8{0˯~(( #~ ##6>DDII EOEORVORVOF ULOULOF KOKOFPOPOFFOFOFBOBOFEBEͫTͫT66 ; +7|+7}=+7wz+7{=+7w6+7n&>nf>R^V~(AO#~ # &~ V##!? nf!?!ut!?ͣgRj^giOw+N+^giw!F!?'+7ii>Ɂe5qYR( ~(#~|( |!(!!>R#~+( ?fn>ɀD@g|nf!e>D@e~>D@e~>R^V }nRnf }nnf#6#T]6ͫT}>R(nf}n#~+(fG~(xwn~(Dw>:A>]8G :>:Àe  XH>~N >&1ͫTNF &HR^VNH>M~>#~˾+>d1~6MN.NHfMNNgM.N)Nf@wx( Hf>ɀqW(u%8"wfhMIfNJI|JI~(.N8yͪNxI͉N͹NM$NI80*O)8*)8')8$ :A0820O)8 >d1>>R^VN> !͟A͟]^V+Rs>͟A%0%0 ͟A%0Ry[^VAy8(G> ~(O#nf>Ay8(N#y(G> ͫT|(!|(! ͍NMNeM$NfNg,Hf~րPIƀ(w>| ZIvj>Rj>d1>Ʉ1@g!)76Y(Iv3UtpRY7AR6hXceM#~+6J~BJje~(u~ր_06HfMjfM$NeNgͪN$NJ͍NMjR^VmB(-F#~# (~# ((^V+Rs>mB(F#~ HmB(N# (R^VϯR~CG#~ #t~+(- #(g~̀e #Un ., #(?~̀e #6E &A(3#(/~+(- #("~̀e #y(~ #A( $N{J͉N͹NNg[JeM}nSJfNf>>d1#˾+#+7i>d1vj݁0% )TdeR$)H4XdF)p5'dvq2vEBYXTX`''HDN8~(M)NͣIfþHz(G7iz(!RfNM)8)MNm!!>RRF#O(x(%  (#(@("?(*(" # ( (~̀e ~C  (*(%  (C (C8 P#( @ ~C @~̀e 8# yCC8(# ~̀e(@ ~C(y(CC?CC͎e a{0A*(%(#( f0͹N>cjMKfN}( jNNͪNK͍NM$NK͉N͹NmKM)NNNg>Ɂ'29TG5`7(@wABRvVI18g8cyfcW Q558'QFVSMKfN}( jNNͪNLL͍NM@( ?(A7*%  ͫT^Vϯ| |( |(.s#q nf>RͫT| ;|(7|(.E(,nf#xGw# (Gnfq>R^VNR  }nnf ~G#>1ͺ_ѷR+s>RRͫT|(!|(! -$NhL͉N͹NL͍NM$NL͉NNg>MKfN}d437`9AY0idH2Yceep$'tex)9FYtVp9r420 T1E#4)9FY4gw1% iQsM#~˾+ZMe~ 5bMe~ fN"jfMje| .O(3~8(< GO # (  R^VFx>#~a8{0˯>E~# nfw> y>(A~#(( >^Vw~(( ~(yDRutE%Fnf} %- .utFÛFͫTMͫTEq|NgͪNM͍NM$NM͉N͹NNg@(jMf H( rMNN>ɀ!5b71ABV#s9c9tW2g#r"f p32p#@(804#rh(91#!He5!M>Ɂe5R^V }n> pR^VNnf^#6 ~#(P Ay(~#(;(7 T]~#(( (+nf~w~(#nfNp ~( +ynfw>^VNFnf6x(\#~# +>  yNFAOx>('x >޾(.=+w)~#( >+ !!!jie!9!jg fNffMNfMNfM?NNNNm^VnfѯGw~ < =0fOn>ݾ( 8 G~# x nf~N#y(O~( #nf$w (( y^V( nf$#nf>RutEÛFE%F͏GN!>+ͫT'++ͫT|( ͒G^(##F++M~(#n&>0n GhGiͫT| >͒GCM~( G;ͫTRO({({(w(s(v(yO (2 (.hOiOjOچP ҆POx>OÆPx>xʆPO~>!O=#N~#= N> >>~~ ~N 0~#(~( yNN +y1(>A#(v({(w  >(j j >a i K> X h > O (J (E (@ 887 (2(.(* (%(! ( (  >Qx GNx yO~8#~# #~ 8 d( (!gX:( ( (*:( ͜e > (w#/w8>7BASICOBJ bX6ͬW~8.6͡X(*~<w 6 >7nf͡X E6^Y_1#~ n(F^Vnfz(%nf%%R8 h>rSP>rS÷PV#^#>rSP>rS÷P ~#( yDO÷PR}/o|/gRRR{ozgRRR{ozgRRR{ozgRRR{/oz/gRRR}/o|/gR>>> >>>ͮS8 =j|(| e~(~ G  W O  ` ^#V+^> 1+~ ^VRDMnf utϯnf~(F( !fnnf6#^VutͷRnfϷRDM^VsrnfutnfutnKfLuKtL*(D~`@>(>8>wݶNF  [*^VѷRB8 !R!ROF#x(x(y(8 # ͮS(fRͣjMͮS(e?j:ͮS(f,j'ͮS(gkͮS8%kͣJrSPͮS^V~O( #~ FyO0D=Gx(#~nfq>rSP>rSPRm~(((#8^ wwݾ>1BKf(#QZuZQZF juZ QZuZ ~z>1F(z>1 g oR>1F(+F(j ~# =[^V>##~n1+++n( ###ˮ+++~n1N## #FM~ åN "++ί^~(sr fn#* _(>1#~(~`@(8x8!(8V#^|>## V#^!(!j(8NͅWB+ +u+t+wqpRORG( (nf}n nf}n>QQ.Q7QP~QQQRQ^Qn 6#(&( &^~#G(^H ^ ^##6#N#(Oy[DM^V~`@+++>#n1vn1ˎ##(ZZnM)N[yi8 [emN# @6#^V>#nn1+++vn1ˎ##+'hU6nfT]6 QQQQQQQ|RPRcR*R=RR(÷P00րO!5 ^#V>TrSP@TP0XͫTDMO>( ͫTPYDM>##~(nf͹YnfѷR8 V#^~>(V#^##E>Rjfm> ^VutDM6#w#Br#s#Br#s#( G~#(  S~# (T ( ({ +>##~n1+++n( ###˦+++###fn1+++~n1^##~++GM~++#>#~n1^n1N~ #6## +~ (#6^ J6N nf#UNF˷B#DMnfx(_ BDMyG(_N(%y[DMb8( ^#~#(#*G>+1x1og^V~#(O~ ##~#(~ (#x>14[r#5[nfxVnfRutO~`@(8ByV^VN>F:y(V}n^V>Cy( Vm>Dnf4[[* hH>#n1nf) <N# @6#nf((n1-!D̀e( A8G0O)8)8)8 )8 H !̀e $)| DM)| )| | O |(7ɷDͤ]Exͭ]x 80ɯ!]~(#O#F#>/B<0 0  <>0'd 5[+nfѷRtU4[~#}V~fn:nfnf!9nf۷R}MͅWnfѷBut6#Onf%NnfDM#~#V#^# utV#^# T~#(88~#(^#>1r#5[nf#N#nf۷Bnfut~(B( gntunfutnfutnfutnfutnfutnfut~()gnB0 tu |w#}wn&2Y6 6N 7+ut+6uWtX_6Vnfrututsrsrr#msrsrrs:w^VDM ~#V#^# utV#^# GijVR>T~( ((##~(6'@nf^%nf^VϷRR> 1B1!gXnf~w#$(͎ebX (.(:( ($(͎e( ̀e(bX> w# (.( :ut6 6sr^66263?64 6<?T]6nWfX+ut6+ut66[nf+utr+utr+utr+utr+utrrr:r!r#r%r'sIrJsrr(r,r;666666;cx(~!( \('(>1~$`*a,cB`.ʺ`#(t9(^^ʓ`~a~-(9+(;>(=D ~B(Ca~Ra4#4#a~af 4f(4#_a~a~ y~^ r i4#`f Z4f K x(~ #47v ~ `8 ͤh0 iChiChy/A~րO~րEg!ͤh8 !͹h!ͤh8 !͹h!ͤh8 !͹h!ͤh8 !͹h # '+~#~w+>d1pj>d1Lj>d1pj>d1,iu~`~~``8~`f( v( ~w( o( W( ( ~ݖwn( ( D݆wNxc>ݖw#6#6#~+(>f~@^VlO- ~x @(vdVd@(n( ~ 5~ڏdy ڏd~Gy( tnf~G怰w?iVˁ?i^ˉh͂i,iV^z {~z~ݾ{###N#~  (+i#~ +q#8#7 o+}bn()(%=640~~(F ~d>D(G> ~(>*V(>0v(>$~( >-V(>< ~(?y(~b>02x>0(~#n(y(b=(0 >,n(>. f( >.n(>,~(y(>0  x>0(~#5 nfF~|(Eo #@(w !g  #g# ~'w+#~(0_(w#)T]))_|Rj,i6#cj,i6#6#vj,i6#6#6#z | | ZìkZ0?Z0?|ök!RѯjzG|j|j'8 | xjx%_ )O> a Y("@>+(>->>>D>B>C>Rx~!\'$  * #9. ~#9~#~ d^VlO~#- 5yݖOcD 8 d>8>>G~ڏd~(>-6 ~(Gcf( >.n(>,~(GcyN~>0( ʬkökzG|j|jzk&xjz !|z(!tu6BK!85T]j!0 V^j5 !-(+(̀en]8| @j@¶kìk|(j>-ú]>d1!7>d1!7>d1|!j7!llsrhRjGl+(- ln(*~5#~ݖf(=(=(G> >0f( >.n(>,~(G>0o>E5~=(}>+(}Do>-5~0}8 (d8 8&ͺ]7c>05>%nf[m#H~-(> > 7c;c66x_~!([\(D'_#(P~˯L(6R(6C(6E(6 ,.(l8"x l ll8 x lpʒlwi(r~!E *l+(- ll8h 7 (~# 7cy> ~# 7cx?(> = ι0A08:007A8[0A7 nf^V߯Bbk8 ^V!((srgoutB( 0o&bk>7h~_V6-i >0ii6E#6+~(ց06-D#60d84d#/ 0p#0w~ր,io&6k l~!շ(j >0 + ~- #G(m0+~# y(@mm4y0m>0 y(my DO >0ѷR}Gw>.n>, hV^ݾ ,i{7iw,ir,i˺˻͈i8 Eicixx MiIiyy~і( fGѯibk  f'+~f 4fif'+ NiLjhyw 7iiwhhݾLjLj~!ut9go~ր8c(aG> 8DO~#sn~#d1~Uj|(=|(!R#'n#ndn# n{oiw=B<0 o~(->ݖ8&($ 0ͣgMi Rj i^giN+^g~(i~րO~րOggSggƀhwi܏g܏g܏g܏g^Vɯ'+! ?i! ˾+x?iG jhwhhhݾLj~ͣgEi!J1*$G>_;#(~w#8(6#Rjk*'*;Zcp&@RY`ps}(,;Aqx  ; u z  K l + ; ? Y [`vy~J~"&2UX1@EHKNS\d cKJJIHZH8JIIpHu:8MLKHKJIIH9MiK+JI IJvH:792M)LnKJI9M9sH^H.988!MLLKKJIIIHfKJHHHaHLMK4KLJ)M&LLSK JHMLKBKIIMK:KIH/MLYKKJHILK%KJHN(0%"!!R-gNw1SNC (M,HnGFEGEDylory=F!$UX%|  ,|nszrS`n>CMS!(*1J_k5Q3 Z :!E!!!!!!!!! """("D"L"_"b"l"q"~""""""""#)#K#l#### $DDDPDC C|BnBBA;A@_@E@??{>n>=> >==;u;:]838766666HGGGGEEDTD'DA@>]>==776R2TTGT`UU{VVVVLWOWsWWUS7'&I$W U$V%%V%x!FZ p Q '&'&.'./,*TVS;-*X*(".yTYYfAZ$$$$%% %%y%%%%&&&&&&!':'?''( ((P(S(\(((()*67777778888888899g9999996:l:::::::;;S;;; >F>J>Z>r>v>> ?%?{???'@6@@@ATAjAAAABCBZBBVCrCzCCCC xZ@[}[[BA[w\\\\\T1RNN@ML.JIIHhH@?;;;: [DRQdNLLLJII I9@*@@::9199888 9 WRNNNCLKKKJ(JI1IHH @;;:o:9mR}N5MM,LqKJI"IyH?: 988.JGJ?[o0 Q;6>N?A?e?L?i?P?;N[ID?KOJTInS88zNLLK1KII8 T9RCCCCClEEEEEwGzG}GGGGGGGH H=HeHHHHHHH;IQIIIIJJ%JJJK=KNK`KKKKLL!L@LLLM$M=MIMMNNNNNNNNNNO O-O2O7ORQRdR}RRR  I0LRQ W Z7Z*_R"&%*%#xR;P6RZ/O8--$$y$i$!!6  K1P1S18k.A8Y1[C0.UTRN5; ;9T9@96a&L%""!   k0.USSM"JD@x@[@;;;::i:k864&F%o  z[@@?1;988kk9ldlllllllll mmmLm+n7nnn&o@WAk RRRRRRSSSSSSSSSSSSSTTTT T T TTTTTT#T:T?TBTPT\TTwUUUUV"VVHW**, ,B-R--- .6..v//// 11WWWXsXzXXX"Z&Z+Z;ZDZHZZK[q[v[[[efff#f,f4f9ft.:h s  E R u 8$/`cm#-|[yHySw%+  !!O!!!!"%"I"\"i"" ",#/#$( ='l%&+&N&&&&&&{(1)))*?*555576W65U6S6O6G6555=6M666666636#66)656?6 6%6o6q6s66u6w6y6{6}6e6g6m6i6k6'6a6C696c6;66 616555_6]6/6GQ6[6E656+IIK6A655-6L=LKKIHCHLr Ö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#^#^ 6~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~ ( ^VRf f| }(~  (##ͻ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 ͻK`@(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"DUMM  Nut~ʜ8KNF!\> x ~(#ng##>##NF qpx ݮ8nf`NDMV#^#Qnf+ut| ݮ8 nf)zQr#s#nf+ut| 1 X ý#(>8CONSOL READE PUNC PRINTECOMTAP͏2!+6+ˆˎ0"~,T"z>ʖ"z–"!Rږ"nf~(#F#N#~#ngR  F B ##`i>?Ö"Bͪ4~(F#N#=(~ ;y˯A84H00@Onf~(W#^##F#F(M~ >Ö"A >'Ö"ͪ4~(#~˯U(  mÖ"_(~#(F#N#gV#^#J͌^VNF G "ͮf(F#_sr!F(,ututg(sr^Vnf|( nf|gͮNF nfG(utg(, W _ nf#utR!F(,ut g 5M(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!X0~ (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  |}Nqʤ 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 fN "(((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>!>76xxx 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 FullPr Q-]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 totected 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>[it 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/|//0I337(#~+^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'}8~|( |!(!!>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#v1G#~ #t~+(- #(g~ I #Un ., #(?~ I #6E &A(3#(/~+(- #("~ I #y(~ #A(!!>77F#O(x(%  (#(@("?(*(" # ( (~ I ~_2  (*(%  (r2 (r28 [s#NFBr#s#( G~#( 8( ^#~#(##G>+–"xʖ"og^V~#(O~ #~ #~#(x>–"4[5[nfx7:nf7utO~`@(8By:^VN>F:y(:Q^V>Cy( V 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͖++ a5[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> Z (*:( )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>>> >>>78H 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?(> 4 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 ofutnfutnfutnfut~()gnB0 tu |w#}wn&nfrututsrsrr#ut6 6srgB66263?64 6<?T]6nWfX+ut6+ut66[nf+utr+utr+ f +J'+~IJ 4VJ̀MIJ'+ NHMMdLyw ͸LßLw\L|LݾMM~!ut$KL M }MJ}MN+J~(}M~րO~րJHKJHKƀdLwßLKKCutr+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^ˉ|LMT>ݖw#6#6#~+(>̓I~0^VsPO- ~x @(vHVH@(n( ~ 5~Hy H~Gy(En()(%=640~~(F ~H>D(G> ~(>*V(>0v(>$~( >-V(>< ~(?yTíLV^z {~z~ݾ{###N#~  (+oM#~ +q#8#7 o+#g# ~'w+#~(0_(w#)T]))_|MíL6#MíL6#6#MíL6#6V( 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 (fI&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(!RoJdL ݶwuíL| PPIP0x \LdLtLM^V0 ?nf~#ut lM~|L~6 (6-lM >0lMlM6E#6+~(ց06-D#60d84d#/ 0p#0w~րíLo&6QO sP~!շ(j >0 + W^Q0;BS `U8 O9Zw;r3&5&9&M&&&=&&&&&?&A&E&&&U&]&&q&_&w&&Y&s&&&&&&&&&u&&&&&&&G&&&}&3&&|7 ~- #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#!8mM|(=|(!R#'WR#WRdWR# WR{oHMw=B<0 o~(->ݖ8&($ 0$G>_;#(~w#8(6#M* 9== { 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*- C///&,,++**(-'~ 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/}//0R000011112 u  x^&&y&o&g&a&[&Q&O&"""%;&&<<11,,c,X,;;`2<,,U, P 3I(*)G?b)*)))|)D))J?I&S&&&7&;&C&K&W&e&i&k&m&{&&&&&&&c&&&6 d"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$OMOSOWOkOzOOOOOOOOOO PPPPQ$Q'Q6QLQQQQ&R-R3R:RYAbAyA"""%&B`CCCCCCCCCCCDD%DDDDDDDUE\ExEEEEF!FG,GHG`G~GHAHDHQHaHHHHW]PIc+3,Hh" M  9 D u x ,6H/>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~ *! / rate OR A ; any? JR Z,WRITE ; no, ignore SC DELAY ; else, pause JR WRITE ; continue ; input char translate routine TRANIN: IF .NUL.&OWN IF .NUL.&I1 ELSE CP &I1 JR NZ,$+4 LD A,&O1 ENDIF IF .NUL.&I2 ELSE CP &I2 JR NZ,$+4 LD A,&O2 EN ~~~V^!:G !~ ###~ #^!  @#^#~ 5#~A /~w:w^V:G! !> a!> a!> a COMMAND 0 DIF IF .NUL.&I3 ELSE CP &I3 JR NZ,$+4 LD A,&O3 ENDIF IF .NUL.&I4 ELSE CP &I4 JR NZ,$+4 LD A,&O4 ENDIF IF .NUL.&I5 ELSE CP &I5 JR NZ,$+4 LD A,&O5 ENDIF IF .NUL.&I6 ELSE CP &I6 JR NZ,$+4 LD A,&O6 ENDIF IF .NUL.&I7 ELSE CP &I7 JR @;1Al "(<_blpg  NZ,$+4 LD A,&O7 ENDIF IF .NUL.&I8 ELSE CP &I8 JR NZ,$+4 LD A,&O8 ENDIF ELSE CALL &OWN ENDIF OR A ; clear cy BIT 7,(IY+5) ; is this conin device? RET Z ; no, return BIT 6,(IY+5) ; 2nd char of esc sequence? JR NZ,ESC2 ; brif is PUSH IY ;  %save iy SC GETSCR ; point to scr CP (IY+64) ; is this an esc char POP IY ; restore iy JR Z,ESC1 ; brif is IF .NOT..NUL.&ESC BIT 5,(IY+5) ; Last character an esc? JP NZ,&ESC ; brif was ENDIF OR A ; turn off cy RET ; return ESC1: IF .NOT..NUL.&  MACRO INIT &I1,&O1,&I2,&O2,&I3,&O3,&I4,&O4,&I5,&O5,&I6,&O6,&I7,&O7,&I8,&O8,&OWN,&SPEC,&ESC LIST NOMACRO CODE: REL LIST MACRO &NAME: JP TRANIN ; input vector ; test if control TRANOUT: CP 20H ; is it control? JR C,CTL ; brif is SC DEVOUT ; els ESC BIT 5,(IY+5) ; last character an esc? JR NZ,ESC1A ; brif was SET 5,(IY+5) ; else set flag SCF ; RET ; return ESC1A: ENDIF SET 6,(IY+5) ; turn on code SCF ; set cy RET ; return ESC2: RES 6,(IY+5) ; turn off sw IF .NOT..NUL.&ESC RES 5,( 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 ; move5IY+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 ;  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 =  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: EQU0FFH 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 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 4Y8 LIST ENDM MACRO DEFINE &FUNCT,&A,&B,&C,&D,&E,&F,&G,&H,&I,&J LIST NOMACRO @NEXT: EQU $ IF '&FUNCT'.EQ.'HOME' ORG TAB1 ELSEIF '&FUNCT'.EQ.'FON' ORG TAB1+2 ELSEIF '&FUNCT'.EQ.'FOFF' ORG TAB1+4 ELSEIF '&FUNCT'.EQ.'PON' ORG TAB1+6 ELSEIF '&FUN Elead 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 JCT'.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'  1R 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 DEVOORG 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  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 kELSEIF '&FUNCT'.EQ.'IC' ORG TAB1+36 ELSEIF '&FUNCT'.EQ.'DC' ORG TAB1+38 ELSEIF '&FUNCT'.EQ.'ULOFF' ORG TAB1+42 ELSEIF '&FUNCT'.EQ.'EOL' ORG TAB1+44 ELSEIF '&FUNCT'.EQ.'EOS' ORG TAB1+46 ELSEIF '&FUNCT'.EQ.'UP' ORG TAB1+50 ELSEIF '&FUNCT'.EQ.'E Memory ; LD C,DLE ; leadin SC DEVOUT LD A,H ; col number ADD 20H ; bias LD C,A SC DEVOUT LD A,L ; line number ADD 20H ; bias LD C,A SC DEVOUT XOR A ; clear cy RET LIST ELSEIF &TYPE.EQ.6 LIST MACRO ; ; Hazeltine 1500 ; LD C,'~' ; lead LU' 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  1 SC DEVOUT LD C,DC1 ; lead 2 SC DEVOUT LD A,H ; col number CP 30 ; col 0-30 are biased JR NC,.NOBIAS ; col desired > 30 ADD 96 ; bias .NOBIAS: LD C,A SC DEVOUT ; display LD A,L ; line number LD C,A SC DEVOUT ; display XOR A ; clear cy RET  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$  LIST ELSEIF &TYPE.EQ.7 LIST MACRO ; ; TeleVideo,Inc 912 && 920 ; LD C,ESC ; leadin 1 SC DEVOUT LD C,'=' ; leadin 2 SC DEVOUT LIST DCA$ ELSEIF [&TYPE.EQ.8].OR.[&TYPE.EQ.9] LIST MACRO ; ; Perkin-Elmer Fox or Bantom ; LD C,ESC ; lead 1 SC D&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 cEVOUT 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 y flag RET ; return LIST ENDM MACRO DC$ &ARG LIST NOMACRO IF '&ARG(2,1)'.EQ.'' DC '&ARG' ELSE DC &ARG ENDIF LIST ENDM MACRO DCA &TYPE(0) LIST NOMACRO LIST MACRO DCA: LIST IF &TYPE.EQ.1 LIST MACRO ; ; Beehive B100 ; LD C,ESC ; SC DEVOUT ; display XOR A ; clear cy flag RET ; return LIST ELSEIF &TYPE.EQ.10 LIST MACRO ; ; ANSI Standard (DEC VT100 or Heath) ; LD C,ESC ; lead 1 SC DEVOUT LD C,'[' ; lead 2 SC DEVOUT LD A,L ; get line INC A ; adjust for base 1 CALL DECO \; convert to decimal LD C,';' ; semicolon SC DEVOUT LD A,H ; get col INC A ; adjust for base 1 CALL DECO ; convert to decimal LD C,'H' ; trail SC DEVOUT XOR A ; clear cy RET ; return ;DECO: ; INC A ; base one ; CP 10 ; lt 10? ; JR C,DECO2 ; y!  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)es, go around ; LD C,'0'-1 ; init count ;DECO1: ; INC C ; bump 10's count ; SUB 10 ; decr ; JR NC,DECO1 ; loop ; ADD 10 ; add back last time ; PUSH AF ; save ; SC DEVOUT ; display ; POP AF ;DECO2: ; OR '0' ; decimal zone ; LD C,A ; SC DEVOUT ; display ; " KEFINE 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 xRET DECO: PUSH HL ; Save current hl reg PUSH DE ; and the de regs LD L,A ; Copy value to L reg LD H,0 ; Zero H reg LD DE,.DECOBUF ; Point to storage PUSH BC ; save bc SC 17 ; Convert to ASCII string POP BC ; restore bc XOR A ; Get a zero LD (DE# vP),A ; Mark end of string LD HL,.DECOBUF ; Point to start of string .LOOP: LD A,(HL) ; Get char from string OR A ; Test for end of string JR Z,.RET ; Go back if is LD C,A ; Copy to c reg SC DEVOUT ; Output INC HL ; Point next JR .LOOP ; Repeat .RE$ vT: 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%  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-H ; bias LD C,A ; move to c reg SC DEVOUT ; display LD A,L ; get line number ADD 20H ; bias LD C,A ; move to c reg SC DEVOUT ; display XOR A ; clear cy RET LIST ENDIF LIST ENDM  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 .v XOR A SCF ; set cy RET ; return ESCOX: RES 5,(IY+5) PUSH BC PUSH HL PUSH AF LD B,8 ; len of table LD HL,ESCOTAB ; point table RES 5,A ; Fold to uppercase .COMP: CP (HL) ; compare JR Z,.HIT ; brif equal INC HL ; bump INC HL DJNZ .COMP ; l/voop 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 0_CP 6 ; lt 6 RET C ; yes, return SET 6,(IY+5) ; set it back RET ; return ESCOTAB: DC 'S',01H DC 'T',02H DC 'U',03H DC 'V',04H DC 'W',05H DC 'P','P' DC 'Q','Q' DC 'R','C' ESCBRAKX: RES 4,(IY+5) CP 'A' JR NZ,$+4 LD A,1AH ; up CP 'B' JR NZ,1  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 DEF9$+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 DEFI2 eINE 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 ; :WNE 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 DEFINE3 yes ADD 4 ; else, bias by four LT12: LD C,A ; move SC DEVOUT ; display LD C,H ; get column SC DEVOUT ; display XOR A ; clear reg a RET ; return END /w ULOFF END x v6 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 5 d 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= 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 =& 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 vvvvO 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 DEFINEA l 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 IMB RVOFF DEFINE ULON DEFINE ULOFF DEFINE BON DEFINE BOFF END ^  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 Jv qe LD A,L ; Get line number ADD 20H ; Add bias LD C,A ; SC DEVOUT XOR A ; Clear cy flag RET END Lv v+ 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,EE r 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 DEFINEM$SC,\ DEFINE EU,ESC,N,8CH DEFINE PON,ESC,W DEFINE POFF,ESC,X DEFINE FON,ESC,E DEFINE FOFF,ESC,F DEFINE BON,ESC,L DEFINE BOFF,ESC,M DEFINE ULON DEFINE ULOFF DEFINE RVON,ESC,J DEFINE RVOFF,ESC,K DCA ; Output ESC,'Y',l,c LD C,ESC SC DEVOUTF 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 ; N 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 0brif 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 POPOvS 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 SP5C 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 DQ }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 ; SaveYMEVOUT ; 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 - RIR  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) ;ZYGHT 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 7 H 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 ^ C,ESC ; Attribute lead in SC DEVOUT ; LD C,'0' ; SC DEVOUT ; LD A,(ATTRIB) ; Get attribute byte LD C,A ; SC DEVOUT ; POP AF ; Throw away return address XOR A ; Clear carry flag RET ; Return ATTRIB: DC 01000000B ; Attribute byte END  TITLE 'SYSTEM.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 U ^ 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 ]4DL 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 DCAVBOFF 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 0$ ; 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 iWvs 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 currXvX 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 a 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 attribuiDEFINE 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 b 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 3C,'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 BOc vrN 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 d v.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,(ATTRIBe O 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,m0) ; 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 ; SetfL,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 ; Testn 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,(ATTRIg 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 oTB) ; 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 Jhis 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 nepwxt 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 videoq %& carry flag RET ; Return ATTRIB: DC 00B ; 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 stringr v .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 blins vck 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 currt vent 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: LDu  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} 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,(ATvFINE 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$ ; ~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 ww#Finish sequence END sas 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 ; Clearxv+p TITLE 'SYSTEM.CLASS29 - Heath H19 Terminal' MACLIB CLASS INIT ESC=TRANESC DEFINE HOME,ESC,H DEFINE CLEAR,ESC,E,8CH DEFINE EOS,ESC,J,8CH DEFINE EOL,ESC,K DEFINE LEFT,ESC,D DEFINE RIGHT,ESC,C DEFINE UP,ESC,A DEFINE IL,ESC,L DEFINE DL,ESC,M RIGHT DC 'D',BS ; ESC,D - LEFT DC 'L',DC1 ; ESC,L - IL DC 'M',DC2 ; ESC,M - DL DC '@',DC3 ; ESC,@ - IC DC 'N',DC4 ; ESC,N - DC DC 'H',SOH ; ESC,H - HOME END - DEFINE DC,ESC,N DEFINE EU,ESC,E,8CH DEFINE RVOFF,ESC,q DEFINE RVON,ESC,p DEFINE FON DEFINE FOFF DEFINE PON DEFINE POFF DEFINE ULON DEFINE ULOFF DCA LD C,ESC ; output ESC,'Y' leadin SC DEVOUT ; LD C,'Y' ; SC DEVOUT ; DCA$ ; finish sequ vence 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, v.CLEAR ; brif is CP 'E' ; or an esc,e JR Z,.CLEAR ; brif is PUSH BC ; save regs PUSH HL ; LD HL,ESCTAB ; point to translate table LD B,17 ; length of table .TRANLOOP: CP (HL) ; test for match JR Z,.HIT ; brif hit INC HL ; point next INC HL ; sk vip tran to char DJNZ .TRANLOOP ; repeat till end of table POP HL ; not found POP BC ; RET ; .HIT: INC HL ; point to tran to character LD A,(HL) ; get the character POP HL ; restore regs POP BC ; OR A ; clear cy BIT 7,A ; test parity of tran to  TITLE 'SYSTEM.CLASS3 Translate File for ADM-3A' MACLIB CLASS INIT DCA 3 DEFINE HOME,RS DEFINE CLEAR,SUB,8CH DEFINE LEFT,BS DEFINE RIGHT,FF DEFINE UP,VT DEFINE FON DEFINE FOFF DEFINE PON DEFINE POFF DEFINE RVON DEFINE RVOFF DEFINE ULON DE  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 67+FINE ULOFF DEFINE BON DEFINE BOFF END i 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 vm'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 - v_ 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 ֛tribute SCF ; Turn on carry flag LD A,FF ; Reload accumulator RET ; Do normal processing also ATTRIB: DC 00110000B ; Attribute byte END 7T 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 v,.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 ;  vEElse 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 vPD (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 N 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 cV 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 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 ; 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 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 valueEVOUT ; 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 ats 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  glear 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 f 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, QB),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: REPTq) ; 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 ; b5rif 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  L 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 DLHL ; 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 charact ,~,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 Qer 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',D DEVOUT ; LD A,L ; get line number ADD 96 ; add bias LD C,A ; copy to output reg SC DEVOUT ; XOR A ; clear cy RET ; and return END : C2 ; 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 vU 0AH VT: EQU 0BH FF: EQU 0CH CR: EQU 0DH SO: EQU 0EH SI: EQU 0FH DLE: EQU 10H DC1: EQU 11H DC2: EQU 12H DC3: EQU 13H DC4: EQU 14H NAK: EQU 15H SYN: EQU 16H ETB: EQU 17H CAN: EQU 18H EM: EQU 19H SUB: EQU 1AH ESC: EQU 1BH FS: EQU 1CH GS: EQU 1DH RS: EQU 1  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 DEi^EH US: EQU 1FH RUB: EQU 7FH DEVOUT: EQU 64 CONESC: EQU 78 DELAY: EQU 76 GETSCR: EQU 48 END PFINE 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 v-" DCA 7 ; DCA is ESC,=,l,c END nvv9I 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,)  7TTRIB),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 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  1LD (.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 BOFFv  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 av 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  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,E *3' ; 1 blink ; 0 blank (not used) k!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,.vULON ; 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 ;v 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 (.Avs 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,[,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 h 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 PAst for RVOFF JR Z,.RVOFF ; BRIF is CP VT ; Test for ULON JR Z,.ULON ; BRIF is CP SYN ; Test for ULOFF JR Z,.ULOFF ; BRIF is CP GS ; Test for BON JR Z,.BON ; BRIF is CP RS ; Test for BOFF JR Z,.BOFF ; BRIF is CP FF ; Test for CLEAR RET NZ ; RET iOP 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,(. c 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 SATTRIB) ; 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 HC 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 -D A,(.ATTRIB) ; Get current attribute value RES 0,A ; Set ULOFF LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .BON: LD A,(.ATTRIB) ; Get current attribute value SET 1,A ; Set BON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .BOFF:1& RIGHT DC 'D',BS ; ESC,D - LEFT END l 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 ; Mavsk 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 underlinev} 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 ; R 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 n#A,(.ATTRIB) ; Get current attribute value RES 2,A ; Set RVOFF LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .ULON: LD A,(.ATTRIB) ; Get current attribute value SET 3,A ; Set ULON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .ULOFF :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" %: 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 .BL; 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 9OFF: 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,vb'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 v'6 TITLE 'SYSTEM.CLASS39 - DEC VT52 Terminal' MACLIB CLASS INIT ESC=TRANESC DEFINE HOME,ESC,H DEFINE CLEAR,ESC,H,ESC,J,8CH ; HOME and EOS DEFINE EOS,ESC,J,8CH DEFINE EOL,ESC,K DEFINE RIGHT,ESC,C DEFINE UP,ESC,A DEFINE ULON ; Unsupported DEFI  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,ESCNE ULOFF ; Unsupported DEFINE RVON ; Unsupported DEFINE RVOFF ; Unsupported DEFINE PON ; Unsupported DEFINE POFF ; Unsupported DEFINE BON ; Unsupported DEFINE BOFF ; Unsupported DEFINE EU,ESC,H,ESC,J,8CH ; Use CLEAR DEFINE IL ; Unsupported DEFIN $,+,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 'lE IC ; Unsupported DEFINE DL ; Unsupported DEFINE DC ; Unsupported DEFINE FON ; Unsupported DEFINE FOFF ; Unsupported DCA LD C,ESC ; output ESC,'Y' leadin SC DEVOUT ; LD C,'Y' ; SC DEVOUT ; DCA$ ; finish sequence TRANESC: ; Routine to t vranslate esc sequences ; from console ; If second character of esc sequence ; (A reg) is not recognized then both ; characters are ignored ; RES 5,(IY+5) ; turn off flag PUSH BC ; save regs PUSH HL ; LD HL,ESCTAB ; point to translate t v/able LD B,7 ; length of table .TRANLOOP: CP (HL) ; test for match JR Z,.HIT ; brif hit INC HL ; point next INC HL ; skip tran to char DJNZ .TRANLOOP ; repeat till end of table POP HL ; not found POP BC ; RET ; .HIT: INC HL ; point to tran to c ~ 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 noFharacter 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 dot 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 entne 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 -> RIGry 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/#HT DC 'D',BS ; ESC,D -> LEFT END mSC,'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 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 clea ) 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 . 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,(.AT v TRIB) ; 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:  v 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 v lOFF: 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 ; Contin  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  ue .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    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  ; Save LD C,ESC ; Lead in SC DEVOUT ; LD C,'0' ; 2nd lead in SC DEVOUT ; LD A,(.ATTRIB) ; Get attributes desired OR 01000000B ; Mask with '@' LD C,A ; Output attributes desired SC DEVOUT ; LD C,SO ; SC DEVOUT ; POP AF ; Restore POP AF ; Throw  ret XOR A SCF ; set cy RET ; return ESCOX: RES 5,(IY+5) PUSH BC PUSH HL PUSH AF LD B,8 ; len of table LD HL,ESCOTAB ; point table RES 5,A ; Fold to uppercase .COMP: CP (HL) ; compare JR Z,.HIT ; brif equal INC HL ; bump INC HL DJNZ .COM  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 P ; loop POP AF ; POP HL ; restore hl POP BC PUSH AF LD A,'O' ; send esc o SC 78 RES 6,(IY+5) ; turn off POP AF ; get char RET ; return .HIT: POP AF ; INC HL ; bump LD A,(HL) ; get char POP HL ; restore regs POP BC RES 6,(IY+5) ; clear es N  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  WR NZ,$+4 LD A,0AH ; down CP 'C' JR NZ,$+4 LD A,06H ; right CP 'D' JR NZ,$+4 LD A,08H ; left RET DEFINE HOME,RS DEFINE CLEAR,RS,ESC,[,1,0,l,SUB,8CH DEFINE EOS,ESC,[,0,J,8CH DEFINE EOL,ESC,[,0,K,8CH DEFINE LEFT,BS DEFINE RIGHT,FF DEFINE UP  LD (.ATTRIB),A ; Save as current .WRITE: LD C,ESC ; Lead in SC DEVOUT ; LD C,'[' ; 2nd lead in SC DEVOUT ; LD C,'0' ; reset all attributes to start SC DEVOUT ; LD A,(.ATTRIB) ; Get attributes desired AND 00010000B ; test for half intensity JR Z, ,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 ; B  R Z,.NOTUL ; brif no LD C,';' ; separator SC DEVOUT ; LD C,'4' ; enable underline SC DEVOUT ; .NOTUL: LD A,(.ATTRIB) ; AND 00000010B ; test for blink JR Z,.NOTBLINK ; brif no LD C,';' ; separator SC DEVOUT ; LD C,'5' ; enable blink SC DEVOUT ; `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 (.ATTRI rreturn 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 ( v .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 v!P! 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 ; Tes#! v!Gt 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$! v!R 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)%! b 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? -! ; 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,(.AT&!5 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 ; for.!TRIB) ; 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,'!nget 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) ; clea/!o01000000B ; 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 ; .(!pr 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 [ k0!!eys (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,(I1! [Z,.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) ; test9!]Y+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 2!  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 N:!hl POP BC RET ; return .HIT: POP AF ; INC HL ; bump LD A,(HL) ; get replacement char POP HL ; restore regs POP BC RET ; return BRKTAB: DC 'A',SUB ; up arrow DC 'B',LF ; down arrow DC 'C',ACK ; right arrow DC 'D',BS ; left arrow DC 'L',SOH 3! AOBLINK: 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,84! f 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: <!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,NOTR5! 5*EQU 78 DELAY: EQU 76 GETSCR: EQU 48 END j!VON ; 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 WRIT6!e &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!EIT 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 RE7!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!:S 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 N8! SIO1 (C&TERM) -SKIPATT ; ; Now format the other units on the hard disk. ; -GETSIZE &BEGTYPE How large is your hard disk (10, 20, or 40 megabytes)? &END &READ &SIZE &IF &SIZE EQ 10 &GOTO -COPY &IF &SIZE EQ 20 &GOTO -TWENTY &IF &SIZE EQ 40 &GOTO -FORl"" 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 DEFINEA" Wue 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 attribuI"  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 DEB" te value SET 1,A ; Set ULON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .ULOFF: LD A,(.ATTRIB) ; Get current attribute value RES 1,A ; Set ULOFF LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .BON: LD A,(.ATTRIB) ; Get current atJ"(FINE RVOFF END v" /tribute value SET 2,A ; Set BON LD (.ATTRIB),A ; Save as current JR .WRITE ; Continue .BOFF: LD A,(.ATTRIB) ; Get current attribute value RES 2,A ; Set BOFF LD (.ATTRIB),A ; Save as current .WRITE: PUSH IY ; Save IY reg SC GETSCR ; Point SCR INCK"v" ^ (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' ;L"6 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,( DE"  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' ; ULOM"YEFINE 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,ESCF"N SC DEVOUT ; JR .B ; .NOU: LD C,'m' ; ULON SC DEVOUT ; .B: ; ; Blink ; LD C,BS ; Backspace SC DEVOUT ; LD C,ESC ; Lead in SC DEVOUT ; POP AF ; SRA A ; PUSH AF ; JR NC,.NOB ; No blink LD C,'^' ; BON SC DEVOUT ; JR .GOBACK ; .NOB: N",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,.BG" 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 valH"v"\"( 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 PONQ" R@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"od DEFINE POFF DEFINE BON DEFINE BOFF DEFINE RVON DEFINE RVOFF DEFINE ULON DEFINE ULOFF END M" ~ (( >R2d*g?g@g#g~ A((!c ~ A!d !!>a! !> a!>2D2D>>2 ~ [s#rD>2>2 ~ [D>2>2D~2D~2D~2D>2"v" bD>2D>2D>Q2D>N>2D *"D>2D0~2:@pS)!p>w#)p@Ip!p  o ( + (*  AG ( ( *Ex AxM!p w~:(1:*(G`:=( *(G`r "v"  :q :* ':N(>Q2>2:(<2G:(XG`2X:( :l!~*($?( @(#(#:Q(! >2-:G!p ~2:G!p ~?2-:=2ý!p>2 .::= :G`2!l!l(C!~#=( *!~# ( >C24:N >!p~(>P# :O~ѹ(( >E24(:.W:! #"v"!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|!^#V"v"BS%{|z *L B|['*) ~# !NsrO+s#r#:G(0 >W>F24(*)$+6+6['*):G > *)s#r['*):G3!:0['*)$$$$:G2[)*)$$$$(b5!R]l&['ESF\Fe#B#5L? 8˯ON… > # x :NW( *)^#VS'*#+"#|¨: g.!p !N!p:G >sS:::A(9: 3: -: ': !: : : : : : :.o$ :, !p# :242# TYPxNOTYPŀ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:# 2T 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#K$"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 == =  == =##"*)$[:G *)^#VS6+6T]6[)*)6#6 (> G(N@~#  @!!~Gẃ> !p :(!p  #:((O!p~ (A(a8{0˯w#A8[0w:(2o> !p+> +# % pp ppi#(#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#-sz )+CLU^bhruz}&),149<CJQZ_mr}#*0:DLV`j     6 = T u x }   $ ) , / 8 ; q t #o :’:G[*)$ !p!G: .*ut*ut*ut*ut!p:G :([)!2[)!:G 8 0@@O #~~ >0>~::4C( R(!!##  )2:   ' 1 4 8 R U l r y      * 3 6 B G P      ' * / 2 ; > D I L Q W Z ] q t w } #R.:FO~ (O#>D24:4E(W(P(F( s(~ ʳ(ʳ~ ʭ(ʭ~ ʹ(ʹ#~+ ~ /sG!c!c!c!'c $#G:x!( R!&> a#(# ,BTWZehkq{18CFJORX]`josyEMPSVY\_behn&),58>AILR\hz}##y $.59BEX]int{ !$,27;> %(37<?GJNQVZ]my|  #,4<?BEOS# G [! > a!$>a!>a!>a}!%>a!#> a! > a! > a_DIRECT INDEXED KEYED RECLEN KEYLEN FILESIZECLEAR RECLEN 512 KEYLEN 64 )#F[r|Crw  %*/8BLQ{~9# 9A\o &+38<AEJNUXbg   %(-038@CQV_c  &+.25CHMPSW\ainq|##  )z## #)>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# ;CRT ver 5.6 05NOV82 Copyright by Timothy S. Williams[A !! +"s! 1+"u!(!9##͝ ͘ͼ !(####͝ >*d(!"y!(͋!(ͦ !(> !(!!(ͦ!(ͥ! !#x(;|x(<x(=!>a>D2H>I2H:H >K2HZSIZSKZSM>C2G ~0p:p*!>aO #> >دA[8 ɿ~͔~ (͔( 08:8$#: :G ! >a:G‰!͠͠!@ ~2+# !9!9ͼ ! !!9!9Dn&ͼ |ʕ!9*sͼ !9*uͼ !͈!9ͼ |(4 !9!!!!!!( !!9ͻ ( !9!!9͝ ++ͼ !9#Z0~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>(#(ͻ (4 !9! !!!!!9!9+ͼ |(4 !9!!!!!!9͝ ++ͼ !!!9ͼ |(4 !9!!!!!!9?å#>2!"*M"} | O<|O:HK4* ".0~:G[9":G !6:G[!3*+"| :<(!(!> !a>!( <( !~(~(> !a~(!".! ! !#*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$V*s(3 !9D!9D! ( !9 ͻ !^ (! !'!!͈!!!*u͈!9 ( !9 ͻ j!9! !!^ (!!Ã!9 ͻ !9ͻ !dʃ !9D$ R> ( 0BB (  ut## (w#6! 90!{N#F! "!9R0!"!v !͈ !͈ * ||{~#fo~#fo}|9~#fon&|}|}o|g}o|g}o|gR(8!ɯR(,68&68($k!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 ( #~DEBUG ver 5.5A 03JUN81 Copyright by Timothy S. Williams[Ax20~9 $P~ >N(>2n8n( > F( nf 8[( ! > a07^VR R8!D>a!> L~ (1RD$:J 5 8 J r { <sx4:@E *P>Mx1:P\BMRy*k.o s ) a   $ 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. +$`    >puc ~I:( U vXhPE5~Gr=.f 2 j 8}7(X+[k/  ep_ WSX l$  Bkxu$=ehKx *!. ` o # ( X T PL}c[y '69=IMVYCqy O 0 v \ O B 5     r e K > $  n a G : -  $ $ j]C)fY?% cV2pT#rC6)dWJu@3& i 1 { w6s2K"W29AHX[ ; nu $ m1,1M"1,1?$1,1>= !/6#͸ 8 x?8> B (> (.(*(  x(UxU> >  >  > ?$/!/~ #~ !j':/ ʯ .ʎ!!/@O~O[O(O-O'O08:O!/~~ ##~ #N˹#^#V#x8!!*$;1~ "'.47=lI\g$wL$ ̀$("/*/P  */P ?$!$:/(#[/R8[/R0[/R#>'#>: >  >~##= >  >R>' ~# 88>. >' "/͉ =P o&)))))*/R"/̀$T]$̀$|$~'(<y$ w$ PY$$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,.~ʶ (  ~(##,y%z6#!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#~%f2e#~ ( 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ʠ+ڶ%i$~#>( ~ 88>. >) >  ͸ ʅ(J (?'(T ( >  %0:8 AG G͋#͋#͋+͋Bp͸  ʅw#$̀$"/?$*/T]###$:/(*/[/R0[/R8 #*/>'*/#>   > %  .Ҷ @ʶ # xʶ x`>(p> >`$>`${`$}Wy*`$/ ͠ ڶ >͠ ڶ >° o@ʶ à ͠ ڶ h¶ > oÓ ~( +#~S¶ #####~L(X( Y¶ >>`$>`$/ D¶ ###~H¶ >`$/ ~,¶ ~(¶ ~C(~A¶ ## Hʶ >`${`$/ %Y !/6 /(! 06 #͸  8 > w#͸ (90 +~ (> >  >  +~ #> w# > >  6 ]T!06 ! 0~ ( (+##~  !+ 0 #'# ~ :p/(2p/>? > þ:p/!06# ¯ !%/~ʶ # !0!3.~(#~(%xʶ >`${@`$/ ~(¶ ~C( Hʶ #~A¶ >`${`$/ ~,¶ ####~(ʶ xʶ >`${A`$/ JB~H¶ #~L¶ #~,¶ # >¶ >`${`$/ `ʶ {¶ H# `ʶ { x¶ {oq(>i(>`$> `$/ ~,(2~(ˆ~,ˆ~A%##>`$+~`$/ !3,~#(#ʶ ~ !0x`$:p/>  !/*/|`$}`$:/(%*/[/R0[/R8!/>  !/ ~# [/!0~ S/þA80O#~#A80͸ %+~ > +~ (#/ > >  >  ( 8w#w!0~ !0~ (#%~ ˆ~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%t, xҶ !.Y~ʶ !0xyo xʶ >p`$>h`$yFʚ yHʫ ʒ ~ ʏ $ + >`$x`(Xʶ {`$xʶ y$0 `$/ @ʶ z¶ {¶ >dz`$/ :0'(xʶ {`$@/ z`$/ O!0~ ʶ # ~ ¶ ++~ʶ A !0[/~/ `$#~%y 7aʶ {(>`${C`$}`$|Lq> i(>`$>"`${¶ >2`$Iʔx 5`ʶ } p> h(>`$>*`$>`$}K`$}¶ >:`$`(%}¶ aʶ {¶ q> i(>`$>Lxʶ yʶ x` y` %}@Ly`¶ p> >`${p`$}Lq> >`%%d$}F`${L@(~(-(+( [(08:00!"/2/G2/P o&"/$(5~, #$~* #̀$"/$(̀$"/ ͉ ?$*/:/ T]$!/~#`$> w#*/:/ @:/('[/*/R8[/R0[/*/R#>'*/#>  */>  2/2/~2/a% J8 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($/!%1 >X >Y2/#"/~2/ʊ!3,O F#N.x_!+~w## > w#y ;*/#"/ѷR)!/~ (6 #6:/!/L$*/+"/|y >c((2|(~( ZE ;<6(#6C#6)#  6I#6R#  JyGQ% YIB(/!PSB(/!CPB(̀$:/'  By (|} >2/N:d/D */>S} >  > u(>Z > U(>P > E(>C FA*/CB*/ED*/LH*/CP*/"/:/([/R0[/R8 >' */>2/͂*/"/!/L$:/?$>2/%nO6,#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(#6% {x y :/>= >' #L$(~AS(HG2/G :/G ̀$"/̀$"/!$( ̀$|"/:/G*/y:/Oa.+$!9[/ 23!"9 !"9?0A >B > C >D >E >F >@ >a8{0˯%)#6(#M6)#8_!*~w##~ w#*/#"/^{(#X>8_X6A#*/#"/~2/!3.G~ )(####F#N)2/:/(##"/~2/@08 >0???$G )@+G.:/8_X>2Y/!"/$($~, #̀$"/$% | ( _ >> O:Z/(:Z/2Z/( : H !&`2Z/  PRINTER1 ;y>\8 !"R/+"T/7"T/0"R/È$̀$R#̀$Į # x ͉ #>: >  ~#>, >  #>: >  #?$$~(, #̀$"%(~*!Ā$"/͉ */~ʓ}ʩvʏ ʞʄ~ #~MEÑ #~ʲå #~å*:*G(0*:*G(0 "/:d//B6#q#p:p/(*n/"/1/1/{/%/$H!r/x0$~* "## 2q/̀$~:[/w}|x2q/$ "1/1/!d/~w#6*/| {/:[/ #{/"f/*/d/>2p/(/!/6  0!/~ ! #~ ( (#~ ( !#~ (0~ ( #2p/͙ */"n/y(F( H%/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*%L! R"/"l/h/ [l/S/!0~ A8O#~A8#!"/P"/W2/~ N>(>o2\/2[/&))))-6G#67"V/!8069!2#u:t;n(f)"R( s(r)"`/069*`/u(t)0"0%/"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%*/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 |#&&2}#~ #SN/"P/] *R/R8*T/[P/R8*N/!S*L$ >  >  ~# ?$( ( i$ 80w#̀$}!$T]ͩ$~,( ( (#<ͯ$ì%~@(:-(!+(.~( ((8[(4%#ͯ$|/g}/oì%#ͯ$!Rì%##ͯ$^#Vì%& WND OUTDLDIRCPIRINIROTIRLDDRCPDRINDROTDRSC BP DC 7O0 0 7O0070!0&&#ͩ$~#)ʬ%]ʬ%z&~(([('(g0z&:8 Az&Gz&#~T(H("08:8A8G0@z&ͬ&#͇&~H #~'(.#[/#~ ' #|&en~)], +(,-((*($/( \(>(<(&(|( ^(@q&z&#!ͯ$+("-& ?}   "   #   M0p0PPpPFP0o0"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 tu& P P#P0 0P PP@AB CD.E/F0GHIJK8M1OPQR SV2W|XYZ[8^3_~`ab g4hijo5r sxyz{86789:;<=>?@ABCDE&R?0tunfjutfn)tufnjV^fnJ{!908)( 0 (7ASMBASECALCODUMPFILLGO HELP#INPUTLOAD#LIST;MOVEOUTPUTPRINT! PAGE/PLIST/QUIT#READLREGSAVESEARCHSELECT& ]  + ./0123456789:;<=>?@ABCDE!G 80&qSETTRCALLTCTRACEVERIFY WRITEPAsm addr Base [num[,org]] Calc expr (ops=+,-,*,/,\,&,|,^,<,>,~,-,@) Dump [addr] Fill start,end,value,... Go [addr][,brk|* ... ] Input port[,start,end] List [addr][,count] LOad name [addr]& & Move start,end,to Output port,[value|start,end] Page PRint Quit REAd sect,addr[,count] Reg [name,value] SAve name start,end SEArch start,end,value,... SELect drive Set addr[,value ...] Trace [addr][,count] TRCall Verify start,end,to Write se&&0ct,addr[,count] .Z80instruction Invalid Command Numeric Overflow Break Point at Protected Area BCDEHLSPAAAFBBCBCDDEDEHHLHLSIIPNZZ NCC POPEP M  &(.068>!"*12:CKS[s{45FNV^fnpqrstuw~&&ES<t !K},8H$3w \ }qeAL)2>JW`sw 0  )rG }rgYN > &!"*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& { k 7 m d O J E )  G" cta\b]Xz@0 ? F ?_+!!!"."J!!i1N""#"######## j## i^|^W&x&L##{oeZ YS z!t D!!! imYI.! n]T# rg8P&ulgC61& oe2l'*<X >b$)5@EWbmsyJQM&yMIf];7C4.) ~ ^ K C y   s e ; 4 F B -  #$=$C$H$\$$&&#n'u'|''''''''''''''''''(((((%(-(#&7$ 3   "m %#"2$$*$$& &E$ 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!S& &0J4+"\#!6#\"##V###W"%"!k!!uRCL## #Q"!u!}Af^ G#!qZ!h_O#\~A8$Zc ;Fb("!!!!!xa ` ] W G 9   t f ; ) z  & & )i_Tzwz'lJ~uF3t "y\ k "  O >  Y#fb62SOVRjs=7&{&j= Vi#x. ##$:$S$f${$$$$$$$$& (@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¦#~ (&$$$$%%%%-%6%;%d%i%r%%%%%"&)&,&/&3&6&:&>&G&P&Y&d&o&x&&=#""!!"! 3 GiI%.7DMVbktz"',16;BINSX^cnsv N{*&#+~1858>122%2G: !&> a:b0:?~:j0:?!b͌S]!j͌*]R"_>D2(0oa >G:(!(;a<8!()!> a>a!!!!!!n(!> a~(~ں!b~ (#>.!j~ (#>&"%-09BEHRZ]`cfilorux{~Eu EPXy &+2>FPSXiu|<DPr">JSp%(+1@GPl&K::aG! $Pf !%!:50 xt !9: ;nf"]V ,~( nf))"_F nf"nf"_:[=2[':(!"*]> >(:aG*]v(& F R8~ F _ ^&u'49>INWa FILSV]dgjmrv~     % ( - A G L Q V [ ` o } p s | 3 8 N S m z .NW\qux|& &S<~ _&S8":!C~ ( !I*:>,> ~ (!>*8>,> !R*<>)> :58t#:aG[]! S]:[=2[':͡:͡*">:ʹ> ʹ~͡x= > ʹ#>'ʹ~ 88>.ʹ#>'ʹ> ʹ> ʹ 'f'sV“*_R"_™:50t!*Y#"Y6 :\ :581 2\:58 ;yt#t!#:1 G;y2[**"]|Ùͪ 80O:58"y*rw#"r t!6 #"r+# ~ TPRINTERn Sector' > 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 (%' k $Head=Track=Cylinder=Sector=   1  MM/DD/YY HH:MM Page ' +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#';tyrv',CHX]ily~  +/2:@PSXlqCaflq})8;EHLORV]bgl~ ' 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 S'>''*19<AHOTYe}q' 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 '<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!ZF'LP 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~$( 08'bCE 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~ ''ʓ 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|' ?'("(;( 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+~ ʡ '( 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 ' ~ 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 'count ERROR [count] {macro only} FILE [fn[.ft[:fd]]] FIND statement GET [file] [[/frstr/|frct] [/tostr/|toct]] HELP HTAB [char [ON|OFF]] INPUT statement LINEMODE [ON|OFF] LIST [count] LOCATE [/str/] MODIFY [count] NAME [' + :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Ͷ*Z'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' 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~( > ~ 'E 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'x [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  '6h~ h#~+w# ͐Th~ h# 0ͻͻhͣ+EW~ h# 0~hͣ+EO h +:P6(+~#~+w# 0͐T~q#O w>2:6T͚,Ͷ*×Ͷ*×Ͷ*A(͐I:O6GI~ _ͣ+EO h'KO :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.͂((=+6!6Z6*6`~:( . #6`~.(/: #~ -G#~ ( (+/26~ #(7~ .:* #~ .: (-bk6 ~$( (.(:(-0 ( 0:?w~ .: +(7[6L+Y."6|Y.'BY.͂+ >L+! :P:!( ~ Z#~ (&(##+ ##"T6Z[R6>&R ST6Z~&+ +#"T6+Z~ '.͎+w.O#6~ ( (##:6'.~# ( 1.:>6c.͂+*6?R( ~< ;(-;(û-::5(381~ /% ( ( 8*5~((0#~ (C6 ( #(Q: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[( a> ~ (#~# (++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.|(5R8 0;(A͂+!?"6*6~ !?"6Z:!:60*5 B8 dB8 B8 > *6~ ͚,> *6"6*5K5 "5͂+!?"6*6~ !?"62>6Z08':0#:~08:0#~ ( #~ ͚,> *6"6*6~ 1.͂+ ;i&[6> *6~( 6.|( 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( ͂+*<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( n&:5Ox0*~# (  ( 8[5(ڸ(0[6 Ͷ*Z( ~ ( ~ &## ھ( ~ (*6~ .͂+:>O:5(>N>F> *?6> :Z͂*825*6~ (+6.|(!|6.R6."?6͂+Z*6~ O:5F(N(5> *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. > ͂+:9(  Z͂*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 8(1O*"͠!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:!: :((}~ 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 ( 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 DEVNAMESACCOU(>R800;(A"5!R`i>+!BDM ,> !:!B*5[5R8 0;(AR80"5*6~ !:>> "6~(>+x/Gy/O[6!:0Z|0Z$A[?˯A[?! (! (,`6!6Z!( NT ASMSEGFORTRAN PASCAL C CINCLUDECOBOL COPY MACRO MACLIB EXEC  $).38=BGLQ    $(,048<@  !%)-15 !)19AIQSYSTEM WORKA 8 (>a!!! !!!".S.N.I.D.?/://5J/0l/+~/&/!//// 0!0E0W0Renumber Lines Out of Sequence: Not while LINEMODE is OFFInvalid command syntaxUnrecognized commandToo many parametersIn( M 5 $).38=BGLQ    $(,048<@  !%)-15 BACKUP 67(valid 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 ( &6o (    i r {  ? B $K 1<C_inzxW] -06ouz  &.26?G[fm(gor 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.313(*bk7%R0!D>ax2~-.6~-.6 (-0 0.:.~ (\((-G#~+ x*(./ .26 ~ (0(- ~ ("B( T]O B 26!>aRo&#5!"5> 2 ;2 <2 =2 >2>2?2Q?2?2?!`>w+6 +6F7%"50"56(;3>3H3K3U3X3b3h3o3r3|3333333333333333 4%454W4Z4b44566'$D{|/:E,*xH= m  P tX|Gf2#<7S T[E  c`{*iq(w(!7 TV.n(`!> a6<(G:(!7 V.n(8֯!7 V.n($>6G: >26Z0!?6"5266 ?!6!@K5B 8+> ##6"5++##"6&^#V+{( :6G !?>+6"50Ͷ*6!!?"64!6]d44(65C( 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:3(6c?('R R))''&^&&%%%%$# 22h ! R5x0&W$`9ixZ %#!i]Pl%$$d$#T9 Y G  m--c-f--- `)&v$T$YG0()&Z&%))Pw%$#] e N~;)))''' &&%%%^%Z%U% ,&&pkfW  ul )j* K S(K) ($#  w)&Z$~ e =,V-o#^-r&#K~h { b p--^- --.?111+1.1@1G1) =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$>)zL1i1r111 252I2d22244Q+++H++****)})])(&(''w':'&&&T&/&&%%m%9%#####!k! s W kP?) E `sv ] J = H-ux~(3222) Z2:G:(P:(<282*| !-> a: *!.>a!:G~?_S ~2 : !#:G![  >2 S ~#?(*@( #(~$(A[ ~0:#~ )L2i2110&&&e&%$z#J"!n!S!! q$.B7 F22--y-,,,*s*^*)&&&&b&%'%%$g#!!!x!q!W!K B 4  ~{nvq_'n1N}sS?Q@- M : / YVr) 4+:(:N(6Q.Q::GOY( N :(^#V*"*#",: : =2 ©: =2 !::Q"!~:(^#V*"*#)44l4I443urH322n2v-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!! ) C",#Q.Q:GO:!Q.Q::GO~ (O#~*(?(@(# 2#2>?#!>a!!!!! Protected , OK to erase (Y/N)? erased   )y:b"G! }fc6}dH5#TJG~4T42443 ,&%fF > 1 .       8  N  v Z H  0  - @9 v2a28 1N s k T 44D4333PEm<mg}) )kN- - 2{2+#) L1 ' 1~zgo!;0+2$r$_$^$@2,22FO9t"f"\"V"G">"6"!u!^@A741&;&&&--D-,,h,\,O,,,+++++))r(''%%%%$#! 30qS63&)q '0CHMVYcosvz} $-25<CLs|@Y_dgjpux #17<?DQUY^rz} ) S  z & = * >,4r444a,G,*G)))($# o*' q {\+s*?43Ax4"44)O))'$) /o43(';tB,*''<6P11(1(1(41, +**'%%$Z0A))qg3%z%b%G%D%371"12 2T221v11+`  , (((((((u(I(H$4$$#(M('$+*''((j(_(L)))>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) 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 )ͮR(#1:Hwe(0~0 > xI2D (!> aD!( )  (c|( "KD!((% (?!> (T]6!KD)D!Can only be run from SYSTEM acco) O#  ~(#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%: )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 : 2  : 2 * #"  > ! R" -: g:8 G;x_!! K ! K I !#: ( !c #: 2 ! #!` #: 2 :& <2& 2 G( :(͓2 ͓ͶÈ *V ~- : (   ~(:(: ( ~ݾ8()]S)A]ns.<CTWbinFV) ##8( #~ݾ8 6ö*M |!)(T: EF;2!:6 ;*M : 50!*O  !!:I #*O C;!*`> 2 `*T 6: !: G~?_S\ ~2_ p##: _!!p! : ~?( @(#(* 2 )~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() q#: G:  !ù[\ ! >2^ S\ ~k k  #*(.?(&@ ~Ak [k # ~0k :k k #  *(.?(&@ ~Ak [k # ~0k :k k #: (: : (~k : k ~(E: ~0n(f)!9w!) 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 #~ )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 )(#+~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 ! : )c(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#͊ )50'%G;x.0~(6: 2 %G:  !&> a˾:  2 : 0>2 : : O! N! 6 !: 6 : 3!: J: 5%28 >02 !6  ! ! ~ (#>.~ (#>:: >*GB $% !: (!"  ! )l!nf]͊ nfb͊ ynf͊ !6 !~( 6EW 6LG 6OO 6Fnf͊ k dN~????͛ 2 O~'G~͛ 2 g~x???M͛ 2 oj~''G~ͮ ~?ͮ !:: (!\9: 58`E(F(:: =2** ̯j !7~( (! !I #>j !:+6 !:I #>6j : =2 ̯!6 I #>:  :^ =2^ 2:_ =2_ !o& &}o& 0>0* * >5-"SYSTEM ACCOUNT * y@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~ (*|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-* );(%' #~ (' ? 6$ a8{0ˮ#!w!w~08:0#~08:8 #~;ʲ* 6;ò~:( ( ( ;ʲw##w##~ ( ( ;ʲ w## " wò ( #~A8[0#~#(#w#*w9- Time- -Recs Blks Format- Label--- -Sect Other-- &1  MM/DD/YY HH:MM   files, blocks. -* (_!^#Vò[ò[[ò6A#ò6A#òòòò6(#6)#6A#ò6A#6(#6)#òò*#~w##~w#ò*#~w##~w#ò*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 * ![òò!ò!ò!*##~w##~w#ò!*##~w##~w#ò6(#*##~w##~w#6)#ò͋ò͋ò~ ʲ;ʲ!ò*##~w##~A8 [0w#ò[*:   " ' * / QUZ^dglrw|$+.8AGNQV`emru{~jmu{,48BEK\orv{ * !ò![ò*##~#w#~w#ò*###~w+#~w#ò*###6I#~w#ò,ʖ+++! #[ò1ò6I#ò[1ò1[ò1*"&)18<@L[`cglosx!-58ADJPU[akntx{ !&?KQWcGL_jy  ).14=GMXafory$(+.1*ò1ò*~#A8[8++~w#6(#6I#~+( -(6+#6)#~M 6(#6H#6L#6)##~ (,( (;( ~w###~ ( ~) ~X(Y 6(#6I#w#~-( +(6+#RDMT]+~ (*47:?BEQXw* (,(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#~ ( (**6 #~ ( ~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.**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*    qu  >RAD!&+.369>ADIOT]b_qt}* NONOLXL STALININININDCDEDCDELDAL LHLL LDLSHLL STLDAADMVL ADADACADSUSUSBSBANANXRXOOROCPCCMCOROXRXOANANSBSBSUSUADADADADMOLIIOUOUXCHEDADACMCPSTSCC* Q  !-69<IRUXjmpwzNQTWZ]`cfilorux   #&+.149<?QTY\C_djrw*zMCCHLHALDDEERLRLCRRRRCRARLRARRRSRSPUSPUSPOPOXTHESPHLJMJCALCALREREJNJJJJNJJJJPJJPJJJJJJJJNJCNCALCCALCNCALCCALCPCALCPCALCCALCCALCCALCNCALRNRERRE* MC!,0Q[fz !$'*-03<?HK^*RNRERRERPRERPRERRERRERRERNREPCHJORORENENEQEQDDDDDDIIENDIENDITITLTITLPAGEJECLBCL LDEL LIXL LIYL LSPL SBCL SDEL SIXL SIYL SSPL SPILSPILEXAEXEXEXXTIEXTIELDLDLDI* *LDILDLDLDDLDDCCCPCCICPICCCPCCDCPDNENEIMIMIMIMIMIMPCIJPCIJRETRETRETRETDJNDJNJMPJJJJRJJRNJJRJJRNJINIOUTOUINININIINIINININDINDOUTOUTOUTIOTIOUTOUTOUTDOTDLDALLDAL* =FORCE ver 5.5 06FEB81 Copyright by Timothy S. Williams[A~0o:o* &|P}=2-  $( A&[&P><2- _^#V>:-hN !P]:-ÂP:- _^#V". >h~ #*STALSTALRLCRLRALRRRCRRRARRSLASLSRASRSRLSRRLRLRRRRDADADDSBSBDADADDADADBIBISETSESESERERELDL"LDL"STL#STL#MVIL$MVIL$PUSHIPUS!PUSHIPUS!POPIPO!POPIPO!INXIIN!INXIIN!DCXIDE!DCXID*~O #~ #~*.4:-h*.6:-h6!0](B*.6:-h:6O!55*.!:-iVO>L>~ (~# (> >RDM*."!>:-i*.!:-iV60>QN!F> *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 RARR*=6a!I> a!_> a:4!K> a!q> a!>aCSI e*{; RARR SLASL SLASL SRASR SRASR SRLSR SRLSR  ASSEMBLE BACKUP SYSWRK$$wwD*muk5CHRW^djmv{!',39ADKRX^cfjmv|J+ +m<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<~#+ N@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&{2S+ (M(&S(,>(3<(<1!"~$!<5P~>(P~>~#G\~#G\!;51 ;q6! > a5!G( !54~ t51 ~:G! 1!K" ;A L1!" ~$ #1!1!0S2%{~08 :0 *~ !>a~2%{~2%{2S&{2S&{2S&{!>aW:%_~2%12'P~ =(:%G~< !M> a!:%:%(!:%":%":% :%cͦ"LABECLEASIZ+['"[(\(]({( |(}(~ >   HELP Command Description O+  WQNOWXFORMAINCiSKEHEA_TRACsCYLINDEsSECTOBUILSPAR*DEVTYP @:%Gnf!ot|eBʢSʣe K{O8"Re:}OO8"T*{R 3eO8:'e:+%GSYSTEM HELP \+  O8"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ã+Esi4?fivy|#&*?LY^adhru3K+ =>>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: ++R Enter information from disk error map. Enter information from OASIS disk error.  TL v  A 7   Z7 t|,=!i#!%#_(!>a%'%Y(N > H#!((!(6:%_++H!^#V   *&[&{ {8]S&[&{8]S&[&*&'[&':%(:&_:&R= &R( 8 R(0 *&| [&! :% *&'}oB)))>o&)))R0& }oB)))"&&*&D&*&D&*&D'*&D++8'*&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 Y+i&͖% 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 JO+oisk is not ready :%Gnf@ :%  "7S9!~ݶʫ 7]( :%0<2Qnf"&}2H=2}nf+"{nf"s~2unf"On f "Y͒*Q))o NF^V!Rʹ *&| *OR"&[YR8S&*&[O+ B 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 ALL+NRҲ [&*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!)+ o0s 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$!$!2+A$TRACK: HEAD: SECTOR: $+U0!)t6$!26$!!]͋>m :&>2&Ͳ$!]!k>Z%ww<#w>"2&>ͅ!ot:%!)t [*z( :)!*( s :%8x{xG:U( yO!~(;G#~ /#~+sG2100021000-@@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!60, ,5>0g!F(6>#_!nf| 0!">22s2|2=͎2CS"ͱ0:!W!%[K[* $:=ʎ2C":(͎2CS"ͱ:!8 : 0:O:W:W:8z2G, x%:% %*%:%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#,aÎ>!"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!+(~(#:%:&(:& :&(=0,}6#&8k:(+w g _ W >>> : >>27}%h !χ}TPέϳA,Ko{,_:%w*&:%:&(:& :&(=0o,{_ :%:&(:& :&(O!+( !+(G!YT:&(= :%:&(:& :&(_R0X+(~ :& _&X&o&!&h&e&4_&:_&:%'> , a,oSingle 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 tr,' 0o,acks = 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,",0!/N)? Initializing disk "s, C9Q  V wlfb Hc,i!(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 ` , ,nr   " % ( . 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~, 8AINITTAPE 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~ ( (, '*149>BNY]aehlqu:EM9!D!"c#}#%%Seh}*g}U2o!",*~ ( (`Id!d~ (/:`W>a>a(͔P!>a(͔̈́̈́>a>a(>a>2>a͔ >a!56>aZ>(:`G:o&#6)#6 #6U4_!^#V4P44,8Fnot readywr,LE^P  \!6#e"!$=$ $/#!##"""r!k  boW)!n%6%% %$$ ,!"""ZS-~!k!6!+ l 0 #zB$$$#3!%%%%QH%%% " %%A 6%nd% E:%?  V W,-bite protectedtape markdata transfer errorend of tapebegin of tapedata late - TAPE1 >Enter volume id (8 chars) ?Enter owner id (14 chars) ?VOL1%  1,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!,{q8kr{"'*7:DINV[`ehmr}G-<-i&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 f-  8 DEC VT52  39 | Seiko 41 Data Media  21 | Soroq IQ 120 4 Elbitt  14 | Tektronix 40  27 Falco TS-1  37 | Te-rom 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 SYSTE-  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) - M 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 &IF-  10 | Visual 200 T 28 Heath H19 (Heath Mode) 29 | Volker-Craig VC404 25 IBM 3101  22 | Wyse WY-100 38 Informer 304  20 | Zentec Zephyr 30 E-8 &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 c- nter 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 1-jodes ; &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 - 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 of-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 Term- 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) -inal Class Code -- -- -- -- ADDS 580 Envoy 2 | Infoton 100 11 ADDS Regent 20  15 | Intertube 24 ADDS Viewpoint -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 ; ; -o; 40 | Lear Siegler ADM 3A 3 Altos I 638 | Lear Siegler ADM 5 35 Altos II ; 43 | Perkin Elmer BANTOM 9 Beehive B100 1 | Perkin Elmer FOX - 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,--6 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 - 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-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 - O -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 -]ATTACH 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 -FORMA- 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 SELECT-T40 &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 &- ,ED 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 -AYN 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- @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!"-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 -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 -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 -oTG 08:8 A8G0filenameHEX ifilenameOBJECT i K- &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 -J5KC_djrw| %(-037>ADJMPUcloswz5..<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? . KCZ      .C?]wz}x. K ZZ: = : 2T!9*3s#r1: G:S*Q(>2x˿"!9*3s#r1_!"2 ^#V#~w"3͈+^#V: 2T: = R*##U+.. .¯Tb_ dQ tÅ4Å4dÅ4Å4Å4Z!;[5.6M3E6v Å4          . ;Ï?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;.9      P.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(.0.:w 4: GO(: 1O) (,8 (08) (4-(0(W &a !q        4>  >,l&>,& 4 4͠:~#(?˯Q( I(M(>RO  RM(I  $! *% ###w >QN. p#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 . ?@.LJ:!4K* $[:=2C">202M͉ 5G 1g - *͉ G w W ( ( yK[*J:>>:! (!*ut:w :w nf utnfut:ww>:w:> ;. )#0N.2w2z2Cy<2S">2>2:7?2!06&8k: 'o:kg2l :*""~ : [~{w>;:>9= :!8(yϿ(yχ. .P0ÄÔ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?.40!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|?>2b.x(  ( 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?@Ѿ >.# >&# > /./# ># ># ># > n(20 Oy*3 F( 8^( N ~y ( ( (( *3 ) 78? F G N Ny80 _!E/ 2iOb#!%8 ( !nfR8 ~(y(gx| 9x 5T]~ (RDM+T]!/0^#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^V/ ^/z(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/ oYWR_!~WY(_z͈+n{͈+u## x {{(_/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/ t{!~WY(_nz͈+u{͈+## x {{(WY(_'*##~(s{(1( s: <(~( *##O: /B<0 0  <>0'd z 7|M!jR0?YWJ{!908)( 0 (7ɯ8>O"#i&+ " : <(/y<7~H~G( *##OywG~HH_!~wOG: =8j: (d!)T2)x!)V( ( ( ((ͫ)ͤ)ͤ)>ͫ)*ͫ)͙)͙) => ͫ)> !)wO~ x!)U!)O~(~6(OoWgN6#F6x( !v+B8>/A7DM!#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*!/7#~#(: =(:s/&+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//ˮ6$bk#, , ~$Aw!Oo|gFI˸: 8-_!|NLe̪9~?wMne]&~Mo0$FI˸ ~-< -^JVK# C ~L 7#~(wLI~(^JVK+I~(FI˸  (NB( 0 !!/ V(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[>*/>*/( 8/ 6'*6|*6: 2"26"6:6*6 !6'*|̿6Ā4*6*| Ϳ6: =(!T5c6:ͯ'*6|(+|("6:[!6':**6":62|̿6!6': =ʅ4À4*3: *30}/V`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 ~# < /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.A/$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 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):>R/O: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 ~ ^.>Cʭ=͠:0 <~ Un(f)|(Eɯ Cancel EXEC (Y/N) ͠:0 ^  O ^  ͠:0~9(#090 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 ^0jɯ͠:0~ w    ͠:  ~(G~?=(x(@ w͠:  ~(G͠:0~ w ͠:0 >:_ *: = $*D| ͠:>4˯4Y(4>L1>Wp0 Vsr[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["0E0k[ 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 ^V0 F^V[ ~w^VN F nfJ:N F ^Vn f vC>:ͷ:J:ͥC~ @~<@=D bnfAF^V[ sr [nf +ut | ^UBF^V[>( vC@>@1F +nfnfut͝CFFsr[ n0r r[^VF nf+uttIF^Vnf ^#V#[$+r+s^V[ sr[$+6+6+V+^| ÍH͐C^VN F nfJ::ͷ:J:~( >FJ:~(/G<( :>(~ ( @>2@= N0 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 N0-"~(?G>8: >~w~(@(+ ('`(#>êIV(~ʠK() #~ > : =( +>(G:([(7<[('~w[(V K>@êI>êI> êIn ~(F~(~ʣLNFV '0FpF^V[ ^(V)!R<DMn*f+NF^q#Vp#srz( x J:N(*3I^Vut#61v(61srq p utn0lV(`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[0I0ڔLj9>#ut}|.eFj9 nfut66T]F^Vnf w#66^Vr:>êIF> êIn <^JfJ~w~w^Vsr~w~wr:vVMfJ^J0 Y>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~0g~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(0 <w~w~w6nfutnfT0wh !J97~h!0U!+U!)U!S U! )U! )U!WUw Z*0:O|(@: ^VR8^VR05y hgoM 6" y(}%[ !X](p9`90n~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@= @0 :-w6*+ut*.ut*3>wTPPR ~(>+++ ?+\8?0 n(#+~( ###~ OP!>V!0 ~a8{0˯ ( 80# 8ί/U808V/U0sIrJuKtL0MfʆN[nrN~w~wrNͷ:Nnf~`OhO utq>>^#Vz `OFnfsr utqͷ:~\O~\Of\O~<`Ov`O=\OxNnfhO= utqTOͷ:~\O~\O^0 +<<))^KVLR)[%[ uMtN(X[ !:>[ (X W (X W (O:w (py[ kO(X ( Yy(X (M (E|( {(+^(O(X (|>|'(X^( (X{( X}(nIfJx(~ ((~ ( WO0(\O~!NV!9x(V0F(^V ~O2Wx !Z>(?44x6w6 *3~pp7AZ[JZY^#VS#X##RZ[[ZY~2-nf"+0*~w#~wF 6T]^V>J::ͷ:J:N(V N">~(ݾ(x>( nfBRJ: x !1NF!<0?J{_!UlcZ^Vsr^ $N(NF +l&FN["0EnfF 0nf".cZ[lZYnf"5~27nf"itZ[}ZY~w##~w#~wF(^V :O3Z[Z O^#VS%[#[ ![![#!YJ[ !Jw/UY4~ (O#Y4Z4>L SYSTEM.:S missing06!RDM~w~wyQnfB(*8(ut^VsrnfF NFnQ:ͷ:J:>~nQ~ nQx>nQnfBnQ}QnfB(-8+ut^VnfF sr NF^VnfF N( 0! New System Disk Required!!!!! Mount new system disk now -  SYSTEM NUCLEUS SYSTEM CSI SYSTEM EXECLANGSYSTEM EXEC1 SYSTEM ERRMSG Zɶ?  0V N"nQ!pnfnf~(*3nf7%R84TV7R8^VN2E*3P!>V[ |~(tO(^VR(>7N*3##^#VR0 >7^VF Q7R0^V~G(T20 j1W11 Y[?^ >/!^ !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<[!!K11 A87E~# ( 08:07x xȷ<>Fb^>b^}#SYSTEM DEV SYSTEM CLASS SYSTEM ERRMSG SYSTEM STARTUP SYSTEM NUCLEUS b^> :g(%> $:GO8> o&"g:GO8> _:& 11 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 111b_!:"!y`"Z!8":2Z:@2Z:gx f!f![ 6#2[:TO2T!bp.~O/wq $ :(g.z( R88"Z:O *W((:oz %81  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|6T]G H^V*ZR|!@(o"e hͼge[ ^#VS#e[ F(^#V7Ret`081b_te[ ^#VS% !n˾˶[<( 6 ڥax ~# LMy!Re!o&#[ 8~041 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+~1^Vsr7RM8utT= M! >ax8a 0]~(R~ݶ JM!ce!n&[ )~0^Vsr7RM8ut ¿`(? f4:>(f4f4?4*eb^> >-> 6b^4f4:wµd:1;TRACK: 208HEAD: 2 SECTOR: 21 b1gʝ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 d1;TRACK: 208HEAD: 2 SECTOR: 22 b1c8+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:?A1;TRACK: 208HEAD: 2 SECTOR: 23 b11<LINK ver 5.6 27DEC82 Copyright by Timothy S. Williams[A>bk7%R0!D>a7"a$6+"]$"_$2RDM!26M!Ra~ 0(1 k INCLUDE module LIST NAME fn[.ft][:fd] ORIGIN expr QUIT REPLACE symbol=symbol SET expr=data ͧ i ',( ( 'ͮ :$!!!"$|2$<2 2 ~ #!!> ͧ i '~,( ( 'ͮ f 1(!>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!1 &F n$!!>2m$U ͞~ # #!!~ (#K#!##:W$(T!#Ėͧ '!!!:(/.( '2U$# 'D$!!~ :'# ':! '~ ':!G'2Z$>23$i 23$ͧ  % S!>2!ͧ i 'ͧ ='#ͧ 1L~ (#+~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!% (o1 ':'*u##~'( ( w##(_%RDM͎9  !=`%!_%6  ;!_%~ 6 _%R_%v(V(-x G80+~ (#6 _% ;!_%^ V !:2 !8> a:! !!!ͮ ~ 2!n f "1(d(@(\ 8 Oxy C _(@'(a8{0˯Ow#'(z(P +~'{_zPw:W$( T(!%͖!%~# (";('(a8{0+ˮ#~# (' !%~ ; ##~ (; +~ (#6 '(( ##~ ( #1 !:! !! :W$( T >2!â>#*S#*)#*>2 2 A$A[8Aɿ0:80ɿH !!!6 ~H !~c #:3$G~#c (@ .(:(+~ #!=~($!!8 #v!ү<v(^ V !1K^#Vx8~ (  (#:! %:W$T͖:T$(]!*]$%-6"]$"_$#"!! ( !! `> Ì !!%6 #" !%:W$T( Ė:!(Á2T$!n$!!:!2m$U( n$! `> Ì ͞:l$>2l$H2l$!=~(5~(1~W ( H ʮ >*~ (!=(+( -(*(/ # (ɯ+( -()*(>My(((OxG>y(y(DMRy 'y 'i ͮ >~ ͖~F ^ V O :!  :m$G[].!e* $++ $++ 1 ^ ^ V v(! !A(@ : !3`> Ì : â!=~v(L^ hN(b>2m$n$U(V(?9#!n$:W$( T( !w#͖:!(x#͞H N#F#! LNAMW HELLISB INCLUD1$++ !e*:!8$K~$*$~ = C~$"$!$~+$*!~(O"!!$~+2!m$ #m$<8!e*(:m$ >2m$>@!e* ^#VS]. "$C~$: / ʚ ~#!n$~ (# !##:W$T!#Ė*$| #"1QUIԊ 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 symbol1$!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 22f *$K$ R(89n f u t ^V!Ru t Þ|(RF DM E[[$#"[$~( nfutn f DMx(o&'2:$_!e2^#V2R&}2$ͧ^ V *$"$!=~ʦ!$(څæ#Fž2 Cc!<ʛ$!$6c!!>2! !$͉›~3###~3N#F#^#V!*! ^V^VR"!!!͎!$6# !$$:U$Bx S(U(%$!!D$#$!!!!!4$ $!!L$!!~08:86 #e*!!~# (>.2fvžn  !$Vʞ $ !$c*[$R( DM!n f +u t | Þv(^ V !!$>!$Þ*[$RDM[[$!2~(nfut 2 g~# (>::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$A2*[$"[$*c$"c$*i$"i$ͧ[$!$:$O͎Þͧ:$=2$O==?!$^ V {(Bnf!*!"!^V!!͎nfut##= !$Þͧ^ V *$"$!=~?!$(?#v( $n~~~F 2  :Z$G:$O[$*c$:!(+++3BÇ n f [&$"&$F( !4`> Ì ~ *!|("!2!*&$"&$:Q!<(!!$6_!>2! *&$|2$*[$:!("666:!(*![!*[$+r+s!$6~j:! ~(*$#"$*$&"$:!>*&$(>*!"&$2L$!$cÞ@v(^ V !î!$6^ V s r !!$Þͧ:$_!e2^#V2R&}2$^ V *$"$!$$~ ~ !$c:$2$ʞO$!$:!:$ͧ^ V *$"!:2 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/$*-$|2e$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&}NF2 # :*$0O:Z$G[($*[$3i&"($:*$2*$Në:*$(O[($*[$:Z$G3BÇ *[$"/$T]C-$ 6G~o&'2^V##n#f#!*!:!(###:!(K! "!!!͎:! A:!(###~<8 :$<2$>w=2 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 ^V2PO s#rŒúT]6!e2_~Ö:W$:k$( !"6S#6e#6g>2!|":U$B!! >0~ (#>.~ (#>::Z$G> !l"͖!!͖!""j"͖!2!:!(*!`%!_%6 ~ x!!͖"*!:! :2G :!(K! DE!2^ 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"j"!"͖!!͖ѷR"DEB8>,!#K #!"͖!!͖`%F(nf:!(+++k%DE^ V 2R :!(###+q%DEw%DE}%!#~G !$W !$:!(!#:k$(~ o&d0 0> 2%!=2#*!"!"!:Q!< :!Q!! N!F_N:Q!<6!^~=G#^+ !(. (-`>Ì :c!< :!c!! N!_N:c!<( !^~<(6>!e2q #!2F %!ut~(^ V 6 6 :!3F(*! nf[!"!:2~(v( ###2R&}2#nf:!(+++F nf"#!= ~(rv(###^ F(:#ݾ "#n f "# ~(Jv(###^ F(:#ݾ ^ V *#R(8"#S#:% `!_%͖X> 2%*#%*#K#n2[2 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 re2 x 7u +-0 F|Ix*7 ` P# F(Z~@IL1=a>~ JQ& yrC < A2C t,$jB i;tWft  e r2main unresolved: PRINTERn sLINK NONAME LINKMAP SYSTEM WORKA SYSTEM WORKB SYSTEM WORKC SYSTEM WORKD e.e'e(e) e& K8@1LINK version V.M  2 c|N |l>-$ v :kb"hX: { f7 md yQ@2#e8n\*'}DtL  y_L X~[Ob+; mjN v7L284  Memory map for  b PAB-name Low High Length Type Entry Addr Entry Address: Total Length: (2 ;[ soc    9lOY  s xt`VrhdZ  VVK ~ q n N )   h - ka ,   H<Q.[P^N2" decimal) p ** Invalid command ** Relocation error ** Undefined symbol ** Invalid character in expression ** Including  ** File "-.OBJECT" not found.  ** Invalid record in " .OBJECT". A2 G>z0N(4 ( . P C * ; B> o qw [ l ma yDc_-)=p5%!z_U Oqa z C H =rf>'>k r 26eBSRELCOM  ;SYSTEM NUCLEUS COMMAND BASICUSRT==== OBJECT A2 %V C @8 R@2[XO>c\e$jU^oZfh_y L  %  M9H8zr`V  }t-0q73"K93t%lW aC2nK@File is write protected, ok to erase (Y/N) May Need to Re-IPL -Q2"[_htO2|/ , # wW p h ] R O * E ?3k  Y[XTPEB85-vse]NDA6{$|j2w"',16;@EJOWafnw}+03yLjAFIL][ @ d z   6 &o=2t_*4|+0<5f2Z% skR I ; J?q2(26 ? S i !!!!![$c$e$i$CK|$kx% S ^ x {  -   7 Y l 2  : 7m u W= hb? X eOF; | S+ 1 7 ?   23E31<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 3 V :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++3L 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 :t3 f ## ~ (5++ywO# (w ʫ {= : ( G   : 8 : +    : : ̲ : : ( G  :   : S    SͲ :h (: 58* | 1>2h : 58  : (8     : :3 _ {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>.3 H * #"  6 #6 : ( G  : G!i ~ #+(O #! ~ ( #: ! ` 8G.! >6#= yO! : 8G y O! : G  ~( (N #        C  [ ((8XC >: (: (     : 532y0 >.>0 y(>.y DO >0  o+* | (}(: 50+" : !i > d+6.+6: $ % ! : G: 2 : ( /C2 >! 4(F:((h(C6(XC ! >>V ?~>`(>@^ 0f>"((3 Z0%G@ !: ( ya8{0 O* |(y +" 58|(>2 : 58%G@ ~ !)(, ((08:8"!>a!!!!!)DM)) O  #TPRINTERnOB< (4   $).38=BGLQ[`ejoty~ !)193> ~?2 2 O: G 0  > 2   x2 ( >&o> a: (7:   ! ] >2 >2 : ( (( >2 ! 9: >:!i : GBPf !  !0 ͥ (%! ͥ (!( ͥ ( !" ͪ (! ͥ ! " >2 \!` ͥ ! " >3 ciAIQYaiqyASSEMBLEOBJECT MACRO ASMSEGMACLIB COPY BASIC EXEC PASCAL C CINCLUDELISTING   Page % Output line size too small 32 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 ! 3?]`djou} %).26QT^aeknz !$+.5@qxO^fio +07=K3%?(@(O ʀ (Ͱ>  > ͰGͰ G> ͰG xͰG> = x(ͰGͰG= > xͰG= > ͰGͰG* ~#" * +" | * ^#V! " : G !" : 2 !c^ 2~(%#3RY\hmr "',/6;>CFKPV[^bilsx| *03<@Kai~$'*047=CFJNSV]`clovy3(( ^ F#x(^ H  !c)  ! " կ2 * #" * R * RʁځS!6 !co VK C ( *  'B0% > B0 dB0  B0* >:> >2 ,  ! 6 d !~(>:* 3jdvy # - 7 : A F R W Z ` d i n q {    " ( , : A O R W a p s x  % 2 C F 33#<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>a3 x_͒utsr~nfutnfut($~o&~> p͒srut =ZPnDfE|( "A>͏1> ͏> ͏>!_͏! "7^VշR686666U 6666U06#63V!r!] !zP!9Y~(/ (+ #Z!X>a  Z!Y>a7%%!0 !q[^Vutu3t4 + +0 nf0 }|Z^Vut3 0/O#6#6P^#V##Zhh:mm:ss mm/dd/yy 3 A SYSTEM HISTORY SYSTEM DEV SYSTEM CLASS   JSYSTEM.HISTORY:S file missing! SYSTEM.HISTORY:S full, run ACCOUNT (CLEAR)  3ƗRDMP6~(0 ^VR8 |( DMbk>i~<wȯ!> a!>a!>a!>afilenameLOADFILESYSTEM 73 }s9Afkp)iltw !2 AILmt{]F3WOE"?hqv?Qs]3 3|>LOGOFF ver 5.5 17FEB81 Copyright by Timothy S. Williams[Abk7%R0!D>a~ (!>a%%$>P~ 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!3B0 dB0  B0 >.}Mo& '&} 0>0> Ox Gy0Pf(2!%!!@~# (+!n`P~0ˇw66 6 !J9~w ~ w<6~ =(@!86P^()I3_ *~ "T]6 6!~ ( #08:0u~ ~ ( #~$(A8[0~ (Y ,($(08:8 A[#~  (+,#  ~  (#~ ( (##~ (u6N ! w#N3|[ (![#([!06P~ =`YW>w~(U W#T]6P W~ >( W~2~ 2 1:(2: (*: ("~<(D6#6+U6 # ~Dw6663x>2!r`I!W!P~ 2( ! (N(J_(F(,ݾ(X!8 wOC(*z 8~#, z( +z( +~, =G $W>( !j!k2 w:> w: ! !~ &!W3:6:G:(! ~Dw6666P0696nfPV(W< %8~DݶE(+ >( Wq 07%8u=t>: 3Pn6::V=2V6 ~,( ( #~,( (~,Pn ~ (l!s`!6,#I(9(5_(1(w (aP%R<Xo& ;x2{Q\U$PPF>/F>/FeU!P ~ >N(>22f eU!kU 7+6"X"|Q`i~ !>a$(A8[0zV4$!m`I0N(&P  *P 0~P^(76. %:(.!2#>22D> 2E.!2#.!wP~wP~>( W !a`P~ 0o&#> !> ~##^#Vsrw(<4 !zVfX!zVVO!zV1O!zVP!zV2VG2eXV![ V2VeX!] eX2dX:V< ~ o(ʭ(QV!(Q~(ʭ o/ڭJ2xV ~ oDʏMICLʈTPXSWcS[OaENŸJ#~O4E!39!( !4~  V(60<>L(=(>2VËX0FN<<6| pq<|! ^ ): >(  ](|! ^ ̯|!!>a:w!=> a0:w>SYSTEM EXEC IPL EXEC EXEC4 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î4 2 IPL SYSTEM ACCOUNT SYSTEM HISTORY   1 C SYSTEM MAILBOX SYSTEM LOGON  IPL   %4 #~  =#~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!b64\w*9ERpgpw}  /RUXp0~Aehrx~ (q'/8?pN[s4 :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~ (#>:44: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; (~ ( —~# ʗ44K ( (+@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 (443 (%#~ !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(X4m4?J: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*4 V~ (4.(:(,#~ (":(.(##V!V6 VVX ȯ2PWK:PƒK:PbK>2PV!Q>2V!RV~ (4.(:(,#~ (":(.(##V!V6 VVX (2PWKx2V:kQ:lQ]QV (O. (4Q͗ 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_~ 4 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(4}‰y}  !     :  ʵ  ʕ @_ CFCLu-/L,ʉ&k)É''É!Q:hQ_:P (\(-(6:hQʉ=2hQÉ:hQ(~ʉ 6+ʉ+ʉ#6:hQ<2hQ+~#-ʉʉ!R͎7z6 ‰6-É~ʉ-(6-É6 4 ,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 :4TÉÉÉÉÉ!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 ʉ*-O4 "R :hQ( _!Q~ :xR :P(O!Q:hQ_~ ( yF2PyX2mʭ.&cʞʙ H@ʍCAF,L2 ,/ʇ,&ʶ)r:P(>+2MS!9S~ S:kQ(&#:GS> 2GS:Q4>>24!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 ʉ!R4 Q2GS: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''4\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(#~4wmT!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`(4 #~+ *-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!"Q4b<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-~49!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!R4-(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${$!5s5xR͒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{5 (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!x5xK*-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 #~(*5 !x#6(͎7:uPGRBRCRDRERHRLM(HL)AAPBCPDEHHLTSPGAFXIXYIYEIERO(C)S(SP)B(BC)B(DE)MMQBCDEHL~#(( [(>N  ~ >I~# ((([()(](޷ # #~KGR#( ~ >Ch&~#(POPEPMSNS5X-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(xK5 VNVNZZNCC!"QR  (o)o"^#V!R((( ##~ og"Q }ɯɯ""""""""#8#[#x#########$$$$$8$K$^$z$$$$$$PUS+SLj0IN2Oh.RLö/OUTR2RLC/RL0TITLņRER=0END*RRc0LDD҈,5͙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~#,[5 DA[/IM/SR0ENDI USINDDIM/RR0EXIT&AD8-IM/RRC60RR0ORMACLILCPDҬ,ADĵ,HALԆ/ELS ER,SU–-REH1RE1LDIv,EQALIGEJECԃDE/CCr/SE1NOЀ/Dɍ/IND02CPIҚ,Eɔ/LINFPO,IL)SR̶0EXTRINI2BЊ2ENTR5Q#2P[~$(:.(6+(2-(.*(*/(&[("](@(08:8A8[8 a8 {0ˮ#~6 ͎7w{> SPR"P:P=_!P^#V~((xR ( #~= xR#~  yӯ2xR:PG:P 5 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 0BI0CO5x!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=~| 5xG> 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%5 ʟ ʟ,ʟ;ʟ ʟ:ʞ$(_(0AK:8 AAK[AKB#bkO#~+| $( AAK[AKy#~ ( (,(T]:;ʟ ( ( (,(#:P I:xR 7.(@AKQ!xR> 7xR!yR> !xR+6^#!QI:xR (B.(@ :5 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(z85xR!yR> !xR+6@#:P=O!P ~#fo> ~| (,( #R~ ( (,(;( (| #"2P"/SR:P~# ( (,(+"/S"1S"3S~| ; ,(? (; (7#_('(" ~ ʎK# #(+y" :P #~,( ( 5] {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#(~#(~ 55###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 (5 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 gNANRNMCND5!!"-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 5 ːCNFːCNANRNMCNDːCNFːCNANRNMCNDːCNFːCN hXCNCM D F N HCNBN HN hXCNC C C M EN sAI۠A5*BATAI:IA2hXADRDSAFRFSDADRPFAFRPDN6PFN6PAEEAQHNTNPN€RHI*TIPIR IH"hXITIPhXTHXNYNQ!XIYIQ*IXIY"hXTXTYP5 OROCN `    N IA`OAOR    N {N ` Q ~$(^(3@((08C[0?:8A87̽2#Q!Q:P(~#~$(08 :8A8[8> Q ! R"+R5rPHPPHHHRRPMR#R+MP#+HM~#foMH|u#w-PDHDRRPFHFRRDPDHPxFPFHPxPXPYHXHYRXPYPXHYHQH G P5 s!")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([Q5 RX Y QH G P RX Y Q PHHPGGQQSHSXSY         A M R SAAAMARN `ANƠF PAFD PAD5 w#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 !O5HHHTHP XX)YY)XPXTYTYPA R A M CAAARAMN `ANΠF PAFD PADHHHPHT R A M CAAARAMN `AN֠F PAFD PADR A M CAAARAMN 5wV!`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^5`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 5S!`S~ 8$!XS~$~$cS~O nf| YS!XS6*hS%> !OS~"X< f#n#@͏&6*P(͏&6*P6= :oQO7!_> +yDO:{Q0 !_.>@2NSÔ65H 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 5*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$669.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:#~ #o6 , 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!fX6H: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(~_666 8> !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((6  !*/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+6 O:VG:'O [V R(!V~()@!V6#6#:'Ow"V!V4~O!V w"SXx2RX>2QX> 2PXVX!UX6 UX!R~ (y YX!ZX\X!PX)@> PX> *5S:'O"SXVX6 ~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.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[X6T.SULT.MMOD.#NE.:kQ:zQO:yQ<2yQ=:nQ=:kQn>4>~ (/ (5+~6 #~ ( 6 ͤ ͤ +> +(#6 w#~ 2jQ :jQ(602jQS~ #y Ny ( x8>yx6 +S_!^ 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:P6M8 >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>!U06"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~ (;(# ( ~# (;(6>>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,( (6v ?.(͹?8"x ? ?͹?8 x ?pʖ?2P?(k:P!E *?+(- ?͹?8h 5@|(p(3x(!RJʤK ݶwu| ?͹?0xäKÙK@[P0 ?*P~#"P?~#~  (+@#~ +q#8#76 ( (;( '( "(O ( (| w#= '(-"(),( ( ( (;( | w#6#FO J(w# [/S~ zI;zI#,( ( (+ͪG@J"3S"1S~#&(J~| $(A8[0~| $(08:8A8 [0w##6=#,( ;66( ¦H~: :P½G#~(nH#~'(" O#~ ʽGw# #(+6&~ ʽG;ʽG,ʽG ʽG ʽG)(w##~)½G#~ (;(# (,( (+,  (;( ( 6#'(&"(" (8=>I;(/ (+ (',(#w#Ow# J (+6~: :P½G#~(nH6 |792(DATE=mm/dd/yyTIME=hh:mm:ssPROG=prognam6A'(*"(&#~ ʽ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#p6 QeINDEX=0000 COPY ASSEMBLE DMACLIB ENDMPass Link to Copy from 9BH Q66*-R:P!P_:hQw{PÎK@JKɯ2XX!`( X< ÃKbK:P=2P!P_~2hQ:P_!P^#V#N#F*|Q "|Qbk 9:PGM^V!aF >62Q6!>a!> a!>a>72Q>2Q>2Q > 2Q> 2Q{X!:P(X!:P(X!:kQ :Q( 6 bh6Q: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!6 #  K  6VLL!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 *** *** Nested6  6J 6 too Deep *** *** Label Required *** *** Duplicate Label/Phase Error *** *** Undefined Operation *** *** Invalid Expression *** *** Statement Syntax Error *** assembly errors. One Two  )ABSRELCOM Oasis macro assembler ver 6Rs. hMM/DD/YY HH:SS Page nnnnn Filename.Filetype:Diskname Addr Obj-Code Line *** Source Statement ***  6T statistics. Source lines input: Object records output: Assembly errors: Macro calls: ,Machine instructions: Symbols defined: Pab summary: .Name Type Length Origin Assembly rate: 6n ZSymbol--- Value Type Line *** References *** Symbol Table ListCross Reference List ASSEMBLE COPY MACLIB PRINTERn LISTING 69  lines per minute.   b6%@ 7a7u2cOBJECT ]_Z[\12345678MACRO  a a a a aaaaSYSTEM WORKA 7 .69@CTY_chknu~ $)27<?Se| !$),/7:@HKPT\bekorux7@Zbory  (+36<@CFMQVY`diuz}  %*/47:?BFILQTY\adgjmqtx{ 9?FS7 $<@NW^adknqty~ #,/37:FILRUZ^behkorux|7dWZ_behmpsy| $;V\_sv(,18;>BEHKNQTWZ]`filpu{~ ,/257  "*-3CKS\afinu "%*-037:?BHKNSVY^fimps{~Scilu37:NQ7;>ADHMSVY\`ehknqt~)-03>AFIOSVY\_bgmsv| !$(+4QV[^adgjmpsvy|    # ) 7  )27;\ej 9Kclosvy  2 5 M S k ! !!!""1";"e"o"q"s"u"w"y"{"}""""""""""""""""""""""""""""""""""""## #7C 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 } 7 )#.#;#@#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'''''''''''''''''''''7Z          # & ) - 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^a7''((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^4c4f4r4444444444444444447  ).69<?HMPVY^cfilpsv{~-08?FMPSWZ^cflsvy"%-0:?HRUZ^aehpsv75 55555!5'5*5.565>5G5}555555566666"6C6F6M6R6Y6`6y6|6666666666666666777 77&7)7-787G7M7P7V7Y7`7c7f7i7s7z7777777777777777777788 88888"8(8,8083868;8A8E8K8P8q88888889 9&9)9295989;9?9B9G9J9Q9V97#(;CVY^cfinqy|!$*.1@CFKPUZ_dinsx}  %-06:=@CGLOTZ`fms7[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==77====================> >>>>&>->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{AAAAAAAA7 ]GQ_bmrw| !-4;>CKQTY\dhkqtw{47=W]dmt"7AAAAAAAAAAAABB BB"B%B.B3B7B@BLBPBUBZB`BcBmBpBBBBBBBBBBBBBBBBBBBBCCCC&C-C4C=C@CICQCTCWC\C`CcChCkCpCsC|CCCCCCCCCCCCCCCCCCCCCCCCDDDD!D$D*D/D5DJAJEJHJPJSJ[JfJjJ}JJ7 7QJJJJJJJJJJJJJKKKKK#K(KDKIKOKTKZK_KeKjKpKuK{KKKKKKKKKKKKKKKKKKKKKKKKLL LLLL$L*L0L6L2!~ (#!!>;> ͣͣ7 ?MEMTEST ver 5.5 23DEC80 Copyright by Timothy S. Williams[A!?."!}(.$"7.~ ʱ*|("!*|]!>aO|͚}͚>Ḧ́ͣ 80̈́7P*RI[*R[7.!R~7jͣͣ!"[!S:(([z(! *"*6 #6ʒͣ*"} *#": *"Ò[! ![! *"Ò!5 1 ;q:V!6!"*"*"z!! ! [!!7S͊-+͊B 8 >B 8 ~O/wFq #z  ͊x1*͊-+͊ѯGo*#" *}w#| *}Ĵ#| _ ͊{~>(̈́O>00>1̈́>)̈́>,̈́Ï?7"!  ^#V+z({ sr!ut##[! !nf|( ##lq>:w!0:wSYSTEM MAILBOX 87 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 7b , on , at From 7}s9CHKUam{#JNRX^dgq~F88٧>MOUNT ver 5.6A 11APR83 Copyright by Timothy S. Williams[A~ ʉ(ʉ~*(S(JG#~ 588G ! >(>@8 ! !>a!>a!>a08 e+$ ACCOUNT SYSTEM MAILBOX $$n8 DIf{8 88 *  From B88 EJ>DISX_ekz%4FMTYhy#BF -7:CLORioy"58;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`!$*48 @OWNERCHG ver 5.5 23DEC80 Copyright by Timothy S. Williams[A;bk7%R0!D>a~ ʨ(ʨ2~ ʹ(ʹ~ ʨ((*#~+ ( /0 ô~Gگ2~ ʨ(¨: 2 ~$(A8[0~ (GT(0Q("N( R()>!a#~O #~++T(8_^#V$hN(!K`*~08:8>6 ~(1!L`:8#("d:d˯ ( N( Y2 T0:(k~2!x96 :w 7!$" -~# ( (08:8~ #T ( # !!=>a!{!\8Q 2ȯ20~820~2!96%7 pœ7!;"•~# ( (+08:0{2~# ( (+ ( #~ ʣ,ʣ!=> a!:> a7!:4:($>2:G:(:(<2820:w:(!P> a;!8~ ( w##>:> ~ D> ~ (# ~ Â> xI?bk7%R0!D>a(> > : :u:XP _^#V$hN uX<!F> a!I>a!J> a!K>a!L>a!>ad8;:G~?_S!~2#0:G!;[! >2$S!~#?(*@( #(~$(A[ ~0:# :#~+":;#:w;!;:w B~ : 2:(#;:w:w[!!;:G 8U$%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 8( :͐:G[!!; :$=2$C:#=2#): <QQ0:(:w!;:#~!;:w %~ : :((:͐:w!;:":G!;~*(?(@(# 22#22>?#x288:(]N(2*N#y (.Ny (#::GOG2#!>`!>a!!!:0w> OK to change owner (Y/N)? T* 8 BCOW\ciuz}1?IOU^glrz}!IPWf{~  9=8#9 ??SYSTEM ACCOUNT ;b8 8_ "(27=@HKV^9uz   $'*.15<DGLOTZ`cmvy|C\bgknqw|'+6;DGJOjz8 8J7-!*.29AJOVii8 8@PASSWORD ver 5.6 06JAN83 Copyright by Timothy S. Williams[A]0U(E0:w*;U>~ h ^ͤ=!=!#z  #W^ !~ (@I! (.(( 88 =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!U8fw#*x x(+ T]6 !L9P ";T0~20:w*;U>06%7 !(.! bk7%R0!D>a0~wK7!"K~# ( (+u~# ( (+#T]6 ~ ( ,( ( T]6 8s2\<!~ (;( #VEJFJQHʖDR[:#G!U:O3.#! !:#G! ͞͡*:G [RU4G #>2͞͡*:G [RU4O͞[8~ (#~ ( ʤ~# ( ʤ+ubk7%R0!D>aä67!!~(! #%! ˾˶ˮ!:%G %>287 !~(Po&> #~# (~ (>,~ (#> n&> 7!# 8S!~ (;(# (,(+"!*DE>::G [RU> F# > >'~ 88>.#>'> *"*!R?*" (& ("+(%-(0*(=/(K@(X>27s?K* æ?K*Bæ?8R;! >a7!0:w*;USYSTEM ACCOUNT bAccount not found Invalid password Account has no password Old password? New password? SYSTEM '8[*'æ?[*&æs:G KBU N#F`iæ>2>2 (D ( 08<:0  (0 ("::G KB8:GB0>274~ (];(Y ^#~ ( (K;(G'((($|} ;#~'( (,##{#w#zw99X~) #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 or9 ?RECEIVE ver 5.6 11JAN83 Copyright by Timothy S. Williams[Abk7%R0!D>a0~2~(ʞ ʞ~(| |~(ʥ ʥ/ڬ2~ (—~ (-C( V 2#~ (185012!>a:ʳ08,:0(*" —9/: 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 Add9 * —>2[R#"*  —*— —EEm— ʗ m( 0ڗ:җ$A[0A/ڬ2!Þ!>a!>a!>a!>a! >a:!2  !&> a"^#VS!9:W:G: ˾˶ :W:G91ress Invalid Data Mismatch  COMMAND f9 Q:ʺ 2"^#V (j%>2(z( :(K%OO (!0> a! 0( p:2O : :€%>: :2!:* !  !! 6:9t@i #(-27<ADLOSV\adnsx"/:@{ !&.4=BIlot  9  (~(&v(!> a! > a: W:G[( (S( ( ! > a"* : W("3  "*( ))":21 22 :G !":( !_%!.-!:-:GO-!9 ~# O-! 0,( (:29G<PEEK ver 5.6 27DEC82 Copyright by Timothy S. Williams[A~0n:n* |P}=2!  $( A[P><2! _^#V4:!hN !F]:!ÁP:! _^#V 4h~ #~9  m!0> aCGW x y *#" -%: : W J*|(=+"[:( z < :G! , !,[! :GS* |(i*3 #} `:G [( S( J!" >2 > 2 ! [3 :G !!  !:G ! > a"9O #~ #~~ :!_^#V!H,h:,(=2!~ <2,+!,:!i!902 -5%:( mÛ - -: W!!  !:G :*(!9>2,: W #! 6 #6 !" ! [3 :G m>92+!> a!I> a!^> a!K> a!>ao9:20O"!"((V(R  w# w#(6 w#w# *&.Ͳ (((7Ͳ2*Ͳw#ͲGy€*:|(%zO(WO(((( (( Úò˻ò>9ka0BGQV]ciluz"9AIRZ]bpO9O O >g%z*~#":4:End of File Received End of Transmission Receiving Waiting for Sending Station Segment: !File Conflict * * *:G*:G *:G99!COMMn v9 ΫPChy 8P`kp}  ,16=@CHns{~ *_/9B`fkny~ $'-47:=@CGJQZaf~ "'*/25:ALRUXaq{~(-27@GJTW^cfknqux|9 9 #'.369?FNRUcgorx{~  &+/:CJMPSY\_ehkpux~ "7BQ\j9 9X?5 !&.e9 9e@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!!!!:! ~(!#> a9 X@RELOCATE ver 5.5 23DEC80 Copyright by Timothy S. Williams[Abk7%R0!D>a~ {(tBB>$2~ ʵ(t~ ʵ(t~ t!(:<2 !> a N(! B#> The two9sP~ (:G~< !M> a:G~?_n&"~ _f n '^ '"0!hII:3( *4}o" ?*74:G[! ! (5 > #*"[RڌEnd of disk *! 6 #9 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.".69 "U*"> Ea@I:NY #ʣ ( ( 8 8>.+6^#@!25 1#!> !B[R8"*#".0~*[&"! ~(!#> a:G>2 K]*_~# xC]"90~w:2:G[!2S:==2!!:22V^fnR[Rnf[Rut*4~ !:g.<2"6#"T]6R*s#r#"#*#"#*+"|#*+"|#*#"R<B"B!!:9_*[#"[[!S:G  ;y22 Sector: Sector number: Is this the correct file (Y/N)?  Enter match string (LF = end of line, continue):   ASSEMBLE 9G[ S<*&"! 0~ ~w!:G :G[m"  :O[ !3> ! a>!a!>aXX*COMMAND ABS2 COMMAND NEWREL COMMAND %:: s: (/ ! f! !f!f": : =2 †:=2lɯ2:= != !"!!wͪ"& 4-: : :(c!! X~ O: G:W N :D N :(:klu|  #;>DINSVY^cfC_dju/29=GU[^f  #(,036:LPV`: V(N !! >>2:!f: G: A: ;r! :2 f~ (O#X.X: FOv ~ n(~ *(#6?#~= #~ P#~ 08:8$A8[*!>a!>:: Ea!>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. :: :?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: i  %(+25?CFIMPUX]`hpx%(-039?EJMPSgn!&*.3GORX[cjmqu|#)/>CH\ag:F$>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:::K>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(  : !?RESTORE ver 5.6 12FEB83 Copyright by Timothy S. Williams[A&bk7%R0!D>a0W~ (((($~ (((~ (2((.~ (((!>a!>a!>a2=!!#~?(@(#( * 2>6?#2>#~T 9#~ ( 185: 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: 0>112FG: :F12KG!&>a "S( AڡHҡ2\G2^ڨ#~ ¡+~S( AڡHҡ2]G2[ڨ#~ ¡:F :^O:[ !,>a~ ((!>a~ !d~!>a2=߯2Pٯ2Rӯ2S2B2A2= ~ ʵW2C2Q2D:m$A[8Aɿ0:80~# (( ~# *r#"r+ #~ (O.#~ (O~(\n&Vnf^Vͬ z O<O~#+('>2x~#fo+> Krq#p!"^V{ : 2OP~ =():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:3ͬ:G*#"!O *M|(ܷnfR( >2x*&^VRO>2xO:G:wO!O2oKu!O>2y:yG> G8I~#+OR)z:t(&&o {>( wF~#+ @OR)z:t(&: ? !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":&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 : c:^G! ] := Q!:F !"gͭ /!<!I!Pf(ER˯Nʖn :=!Wt:= #:[G!  !I:[G! >0:Tw:F(>  :^G! :[G! *?> :UN***** Invalid EOF pointer ***** Computed block count does not match directory Y:*?| _c!9n E({A := B0:w2V2U:P(>!~ (O#:Vo&>)> W] :2Vn F(9A :=>A(:VO:(*?|–>:> *?|>–n R(F( O:= y: := := 0:2Vw :O:V :}eAl&-9<MPWZ_bems$59=Dx +25JORWZ^ejnqvy#&,/28CG`dk:!?(*@( #((ì~$(Aڬ[Ҭ ~0ڬ:Ҭ#:[!! :U(~ >2:C(:Q :D( :X 2B:( :BQ :S($/!% ?Y( Nʬ ʬ: :[G  X äʮ:(:[X ::::[G["X :=(:U2:[G (:[G[* X *"s*))"u[qR0"w"y*m"{n Rž [{S{*y+"y| P [w*s"s*uR| *?#"?ì:(:[X :2:[G![c""YSUX :=(:U2!" (:; ;[G[U* X [U*R"*Y"s"W*U))"u[q{_R0"w"y*m"{*|(!6>R!n Rž *| "U*| *W"*|(n*W#} b*Y"Y*U+"U|*Y J:[G![c((!"[{!P :[! `>SU"Y*R"*Y"; EOVEOFMount next tape volume - ** unexpected record ** ** Computed block count disagrees with label ** ** Sequence or section number disagree with computed ** ** File name mis-match ** #;([{!S{*"W*y+"y|OP *U|":[!¤[s#r+! ä:[G:wO[s*m3:O:[G:wO[s*o2:wG[m*o # x GF:wg.Rl&[sE N(YP P II:P(&:S; HDR1ARCHIVE .TAPEFILE 00YYMMDD 000000OASIS  HDR2F0409604096 000000BACCOUNԽNEWACREPLACNEWFILOLDFILQUERNOQUER;j := : !% ~ (O#.~ (O#::[GO:Q¬!"% ì*aKe~B? Vʨ E< AD FI RN ZN >:<2o&02:8*":^G ! o.!N#G :^G }!; <TYPNOTYPASNOASVERIFNOVERIFVOLUMż TAPEn , No files restored. Searching for account "m" Mount Archive volume 1 Compare Error, Sector , Byte H, sb: H, is: H, retry (Y/N)? Source on ; nf))"inf"c:^G! Q] !"gͭ n n #>QÕ > Õ >!Õ +͂ ͂  ͂ (=GDG~ͭ Ke*a+͂ = Ce"a!~#:F(Se*_"aj *c[g"c*iR"i[kR0[i"ge."eL:^G[c*_"a2; ddrive S(n) Source on TAPE1 Destination on drive A(n) Mount volumes now - Source disk is labeled "" Destination is labeled "r" tapeInvalid record in archive file Restoring "" " not restored because file exists. file does not exist. disk ;:^#V!"xW>͊$PF5FF>͊ >͊(> P!͒ !"!͒ *#"P͒  ](J<6[R(8JP͒  ##~++P͒ F(7> >͊ >͊d?I >; 4His full. directory is full. file is protected. OK to restore "" (Y/N)? "ARCHIVE VOLUME01SYSTEM Account:  File:  G Syn: (123) BOASIS ARCHIVE version 5.4E mm/dd/yy hh:mm:ss from disk ;e͊ j > J[S[SSP͒   ](J*r*r](hJP͒ \](P͒  > 2>͊  *:=2( >͊> I> 2  !\!*#"'r;vv' volume 01dddrArchive is from disk "" on  at B Ok to start restore (Y/N)? Mount next volume on X(9) labeled: ??.;*#"+r!BwP! P!\>͊g(;!}>͊>͊ d>͊>͊I >͊ *#" \B*wP! P!\!"!}>͊>͊(  >͊>͊ >͊ >͊;Be '38;ADKZ_bhkry"7:=@CFNQWadksvy~'2;?EHKNU[_gjms|;Z>͊ !_^#V!6 #6d?˯I(Q(>ROQ0n(f)|(`>͊>?B TAPE1 - not readywrite protectedtape markcrc errorend of tapebegin of tapedata lateHDR;o #(14:=DGNQVchwz} (069<BIW]isz}!&.3:=BJMXgjnswz;;  #&)169>ADGJMRVadgjmry  #&),15DGJMPZ]fkpsz}       ! $ ) , / 3 ; WmMf:?!2(:?!2(:?!!2^VSD~2Fnf"G!"I7 R!\u;8 A I N Q U Z ] b g k p s x        H R V Z a d l o r v ~     ' 1 4 7 : B G L R [ c    * A E L S [ ^ d g k q u  ; t ut#ut#!ut! ! 66!ut! utnf6utqpqIpJuKtL#ut66[6qp6(7+ut6+uWtX6+ut6+ut6nf+ut6+ut6+ut6+ut6+ut666!6#6%6'6-*I?;      " & + 2 8 ; B I N S V Y \ n s z  #&)07:?DLQZadlorv{!).W^}; =6#!u0t1!Tu.t/6263?6;6<6=64 6V!KuGtH9NT]6 ~( ^V~ (#~((- ()>.~ (#~(( (>:~ (#> ~( $~ (T( C( !>aVnf6!>T!>a!D> a>! a[\;?&1:w; y92RUN OVERLAY1BASIC LOADFILEBASIC2 LOADFILEg;C;RUN ver 5.6 27DEC82 Copyright by Timothy S. Williams[A1pP*I>! p(!B:?G[@>b1x2?l("l›"\T!!2;  aW+BMV_bgqvy5UZT;;;;;;<<D<RUN2 ver 5.6 27DEC82 Copyright by Timothy S. Williams[A1qP*J>! q(!C:@G[A>b1x2@l(lœ"]U!!2< V[Q(CNW`chrwz (HMW<< << << <kNd:@!%(:@!%^VSE~2Gnf"H!"J7 R!\ut ut< X>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 <#ut#!ut! ! 66!ut! utnf6utqpqIpJuKtL#ut66[6qp6(7+ut6+uWtX6+ut6+ut6nf+ut6+ut6+ut6+ut6+ut666!6#6%6'6-*J?6#!u0<S3!*[-!)~ (D ( (&  ##!> ~((0##}Ѹ(8> i&"3!*E( 2 */#"/*#":r ,L!("(!>!(:E~!iݾ(#ͬ`!("(`!2r:=G:n͉!b~ (W~ (<t1!Uu.t/6263?6;6<6=64 6V!LuGtH9NT]6 ~( ^V~ (#~((- ()>.~ (#~(( (>:~ (#> ~( $~ (T( C( !>aVnf6!>U!>a!D> a>! a[]RUN OVERL<! 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 <m/%AY2BASIC LOADFILEBASIC2 LOADFILEm<G9ff2 : 2:R(9fn2 *> +6 *:[3_##:w#6 :_*:w:Gy@S3!,,6 !,6 [dSdxO  ( (˯ #  (~ (>  N#FL<%<!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 #:L2m!::6 !::_25~ !: #> !:  ( #:(:5<25~#~ ( ( ( :mL>R2m(Xb:oR[5:#b:_:< APTER &P R E F A C E& APPENDIX (This page intentionally left blank) : Copy number Pass number Operator cancelled! Program cancel accepted Insufficient memory! Link to FILENAME.FILETYPE Copy from FILENAME.FILETYPE Page # <>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 [<1<File " ", line  &- @P -& L<<y+n :*[3_!*~ !*!**+~# (+":~# ( ~# :*[3_!*+[fRMxB y8+O͛ *:~ (##~ ( ~qO# qyB >.%Ň8aW{_??0(8 G͛ B #~ :q>< ,xxix,xxx,I   A ]@=  &TABLE OF CONTENTS& &Section Page& '@^\%~&_. @^\%~&_. LINK CASE HEADING LHEADING LRHEADING  PARASKIP UTABSET !TITLE "PREFACE CONTENTS t"LMARGIN RMA<2qX ʷþ>2:G:n:͉*~~y :) 2n:X( 2X2!"*#"W P!7:(͇:=2(P!,:(͇= : :v:yG:2:L(!3!4:*:2*: :32 :523A 232 2*:<RGIN - INDENT ]INPUT SPACE !FOOTING LFOOTING RFOOTING SECTION CHAPTER APPENDIX CENTER JUSTIFY EJECT hPAGE -SKIP y!SIZE !PAUSE ]FILL NOFILL COPY 9NOJUST SETPAGE=;=A SETSPACE SETCOMM v BREAK END qTYPE REMARK LINE rALIGN dSETVAR INPVAR READ SPECIAL !FORMAT IGUTTER ?OGUTTER CPI ,IDX POSITION s SCRIPT = C2>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 != 6{dO;}> !;y( :t<2tM~T  ʷ((þM#ð!))> wT!)":t<2t '("(~ ( ,(## (G#~ #(~(,# *|~ 2{2|:2~26>  > :2~2x=:  !*:  @* (o&>.>   > :+ V: X!,##!*~# (+~# a8 {0˯+ˮ# !#~# +6:>2vU 2v? !*: ˇ2 : : : ˏ2 |2 >2 >2!*:_:~# (+= 2{2|>2n~ 2x3 > > x2x~  #+(-(}=o:#:*#:*2*o::~ # :t2i}o&"~ # :u2j ~0:z{dO!$$#~( #~ #~(( #~  ~ (=*!*6 !*:)_+( !:~  #:r!:;6 !~ ( ( a8{0ˮ#:~ (S (O:(K.(#~.( (9 (5#C!B6 B~ ( (.#~ ( :(8: 2> O!:~ (#>.!B~ (#=<y !(R04>[dz{~,("-{22)~ #~,({22*~ #~,( {2~ #}22}2~} >G:n͉} >2~ ($b ~ ( (#:g2k:h2lb!m  ~ (, #|}ѹ=> 9` ( ʷ>2r:ð::G}!x&}2)*N@N@:)O@>2n:r <`!2rq>2>2*|~ 2z2{2|:2}2~25>  > :2}2~2x2z2{2|!56>2:2=\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=/2>2n~ 2w2x4 > > x2w2x!43 (2 : 2 : ˯2 ~ # (-( + #} #}D2l> 6 I(!(ï:u ~0:z{dO ~ (#6 I(!( >=ww#>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!==>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!;"""" =rï##~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=8'þ!!#> wq= V"'Y""!!  !~!! m :W|bg0%"_ ' oEBR5 RlZzs#:<G & z sk:G"""X9 }{*6BNZ=o5$)#(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" !==%l;N_swygrpF I    /  , k  ? T w  qtAe5<b~BE`,>*-?Di #@^ 5Mds= dnc`fXU<| L C : O30i D &_B9g Y  pfciI NRVZb 7 _4 8 .= #"_"[) |=;@O .t7EJQZ~  . 4 l s  !!$!*!z!!!!!b"u""""""#G6v}O6H  " YB Y sa|""q "" "0!==: d"""Q2 N LRUy!rI? ( Y1+>T"?"Z "}"B"!9%K"\(E"_+H"; .!h5=!GIR!d ` V unTn q / OO ==V5!NYKF 08-#d ] "!@ aKS]zjEX _z";"! R1Rn1Z # 1' dRN g4 ' " xWxt*$uA )"o[=>>K>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!> <SEND ver 5.6 11JAN83 Copyright by Timothy S. Williams[Abk7%R0!D>a~ (08:~( ~ H(((#~+ (// 2 ~ H(~ H!d>2x<<<22|֯2}2z22!"*"> }:|G ^#VS#^#VS*####"+*+"| !> a!>a!>a!>a   %> ~~08:0*#[R"! 6  **[+ Ã: !x!x:yʵe2{: A2>27~*(@(#( ?(  6?#+2y#:M:M<2:G:8! :?o&":o&)))#"*+"|(} [!:G S:>_U*A]`kv} "%+3;AGLPYU> _!~(<(#?( @( #( #~$(A8[0~0:B  !{: ( :|:}! (q~! ͧ.ͧ::GOY! (EN~ (O#:( ! 2! <( :   * "* ": W >> 7* ))"  " ^#VS:W:G: 2"^#V (!9!a~ B6*!:  +|(((+!:  +|((0 >2wc!0> a!1> a!9>!  - % (a><SEEK ver 5.6 27DEC82 Copyright by Timothy S. Williams[A bk7%R0!D>a~ G 2G!  0 ,> ˿((G(>(5˿0(1(:w( 2w:w(>>>7>:y(N!"u:} B: <! ͩ.! ͩ::GO~ O#>O!  ͝: W B:G[! 2>2!"! >W͝$[Sz0>'  2!>a!>ap>":=2 :G[z0! * "! >W͝>C! ͝  :y:z(#O (! N~# :x ->W  k*u#"ub ~/W&>>xʒ~ٺ $ÉفOG|(WR|>Q3)?[adkk>A0z( >>%8 ~g>~->>  > >>&xW总(_>{ >>x > >># x>>y> R"[! N#z 8ñ:4:!0!+:!2!&>>>k a!> a! !!!>aEnd of File End of Transmission Waiting for Receiving Station Segment:  WOk to send "" (Y/N)? Enter TALK messages, terminated by an empty line. Sending "" ":G*:G*:G*>7>z!COMMn NOEOCOMCOMMCOMCOMMCOMCOMMCOMCOMMQUERTALNOQUERPUBLI 6> uF0~0!> aC PPޯ~ *}(*0&0~ w }( 0 Ï Ï Ï>!a0~0!> aC PP0~0!> aC PP0~0!> aC PPC <g?X^clw|"'/27;@FIMPSVY\`ehot@EPX[beilpuz} $*/6>CHOVY`eknz> z <<* 55&P}(wz(sr~0:* * C  Ï o!a`Ï0FN<<6 pq<!(^ ):(>( (](!(^ ̯!SYSTEM MAILBOX SET COMMAND (0~>+38?Gdmpv| !$,69>ADGKNT[chlw)16>IN]fmw> B0!> 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>b/%!(07?FNU]elvm> Z* ~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> v#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 ʤ : =_^#V>6:&(0P!%n50 f  !>a1(10101101010* ~O &#~N( F # <#~ ~ !>a!>aC C( PPC( PP0* ~ ʏ(()0~ ʏ>g<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. 2hh:mm:ssmm/dd/yydd-mm-yyEnter any char to set the?)?R 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? =SHARE ver 5.5 23DEC80 Copyright by Timothy S. Williams[A7%R0!D>a~ ( P~ (~(ʟ ʸ/2O ~(ʟ ø~T2 ~ (!>aO( !%>!( O%<0~ !;> a2(!9> ?UBOUT CANCEL RTCAVAILTODAVAILjIPLASK QET DATEFORM,DEUTSCH NUSOSTETEOENACBEBH L V F C SSDLDCDCDCDCNASYETCAESUESFG? 5a!96!:w(!:> a^#V!7%R0!D>a ^#V+z !~ʏ# (}> ~# (~# (, ~# >:OG~?o&"|~2~:ʫ!P~ (#>.!X~ (#>::OG> >  ;y2h& &}?/%RUDESHOW COMMAND m? 2:OG[|! !~ʆ<ʆ:ݾ†!O#†!~ʆݾ( !5 :w!5 :w!~ 16#N   *|#"|!~5:0w,ͭ (8 Y2`S ~(0:`wb!P2}:?(@C]`l '7:Eej %.FFOVYbil0SZa{NR[bemp #/^? 42~:OGa <ͭ :0w(82`S :ݾ 6:OG[! *|":~2:OG[! !~(<(:`ݾ !O#   *#"!5 >(!~ ( #(bk6 !~!~(O# y 0:? #&8?DJVejsy|8>ADGJMalo      ! $ ' 8 ? E K Q c i {   # ) / 2 6 < O S ] g p y |       ' 9 @ C d l ? 'Pw>!>a!>a!>a!> a!> aAdd user name? Delete user name? + Following accounts have shared access to  =SYSTEM ACCOUNT ** User already has a shared file by that?6C9+ 6 A L W b m x    ( 3 > I T c?| name ** User already has a private file by that name ** That account cannot be found ** Shared files cannot be public! B??r %*149EJMTWZ]`ehn|@X]ckp{ +NQW   #)/8=CRX^dhs ????<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(+?7   ; 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_:?r#XPf(*0F>:#F>:#F> 0F>/#F>/#F> zPf %$> P~GO8> o&"`~GO8L> _~& 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?':Q͘ Pn&>,> nf> xZ0~ x0~0!> a`͘ Pn &> x.PN X^#VxhN@!6 x >*2x:F? XGnf[KRsr:FG! *K"! &R8>bk>, >6>:S=2S1 ;y2S͘ ON͘ OFF O˹ = 0~ 0^P~Pv0VP^ ? #>:F>  ƒx0~0!> a*~2N*  <[2gP|ʲ͇ò!P6 DE>H{+{#B͈> g~( (nf ͇ PF !~ ^VR8?&Pf P~ P~@@ 0,> E>Hy( 0"'!$( !OO N#>@J >AJ >BJ >CJ >D J >EJ >FJ  ;y2;0~(n ?͇:N* 0~ 2O~2PP :N* :OO:PO߯<=O! ^#V#h< 8o&=2Z >*~(0~o& 8nf{nf+{nf+{!:Z !9nf :Zh*{{nfNF?v>ÈP+^V! [~#^nf!2_~ #v <!6 ~ ~#> ^˻!6 ͡#+*!( +! `> ^#V!z( ^#V+!~7( !8d7+#7>-?B͈nf @=h~ ## ##~ ( 88>. N ~ ( 88>.# (>> g:N* >#U!x0~0!> aP~T! )w .0o(  ~!4~: 60+61nfDE?U08:0OxGGx(~ #~ #-~ ( #!~!6 ~˿~#(~ ~#> ~( ^˻!6 ͡#:=2 '1 ;y2;:( :=2!6"*2~ ( *(G82 ;y2@@\8> 2>2:G~2~?o&" :=2ʻ>2*#"!:G ":=2(* "~((0~O~( ~(:w! ~(#> bk]X^V!:G !~ ###~ #N##! "X#N@ @U# "~# ~˯VX#~˯EX#~˯RX#~ X#~ (#~ (*~o&#~#~#~> !8 # *BDM*7%R0!D>a "! X(K\89 *> !:! "o&>-@ vf -39?EKQW]f.OYbe wMs) G [ l  1 ; C    w   - 9 H 8;%,k`@S͡! AL̄WHTIMeDATeSERIA_DATEFOR͓PRIVLEֺCLOCCLKFRMS3SLICEUSERtMEMORBAN˙DISLERRNU ERRTEX RDYMS ABBREֹ IMPEXE HISTOR RTCAVAI TODAVAI IPLAS QE; DEUTSC/ ESCAPũ Uб DOW@ q )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@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. NU@ :FTZo6T/`y]NKtqc[Xya^VS4 u ] . + # \ Q 8 4 % ! d | r _ S K < 0 E.j[qniLnf-xm{ti@9CLEUS 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 tap@ ^E7k?v@ne "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 DLEDC1DC2DC3@@nDC4NAKSYNETBCANEM SUBESCFS GS RS US DEL, filenameSYNONYM System User Shortest Command Synonym Form -- -- -- 0000a~ ʁT] !d!>a\> !a!6 > ! ~2)#~9!o(!%~121!l)`og#~(!h`!@A(D(W(P( Q(@ O > 7"> *~ ?NT]#~ ny (A8[0 +">>!a>!au~ (T] ( A8,[0(AO! wbk~(#>7> u>2"s ~(v ~ ( K !k>a*"~ (I#~+ (!d :2~@JX(###>a!g!i> !?aPnDfE|u> u :ʂPnDfE|(  ~ l(%17"E R! "J !D ^ F l( > !WaPuDtE1 ^#V+ ^#V+" z P: =7"E R! "J !D >32\ k F1@ 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!@g CP~ = !uDtE> ^#V+!  ~#fo" !9YF X~(+nfx=h*[R[ R8x=2 %Z*    >!uDtE" nf" : h6 6 : o&#! 6&6'6(6)68@ Q" ^~ (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~ (#@6<P  nfut}T]6:w :w :%G:H w[ !: i ~Dw 6#66i&# * : ! i ^#V+nfRs#r+ * ! : i* %! : i* ##@  ( #[ 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@VZ7%80u=t>PnDfE O~(>> Q O0Fʁ*"&"[+":%G[! !~60~~<<6*C!p7!:% L^#V+!:%G  N#F+x(*{( bk#B y PY!":%G! 7wa:%G[! *!:~K K >P~DE> [!:%G[! ~ U0:*| KB "+}_<K "!"% ^ʌnf@'"nf"ɯ!<8Ì@c ˾~($*C!p7!:%(6~ :t  R62t*+"l:%G[! S*+"|Z[*:%G!&> a! > au> X( W(!O>aPnDfE ~#^#V+!V6D6EF P~ _^#V+!!C i0^=V>@F 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. 0@n7R $8P~ (7"+ R "0 1!*  F% %u &ŒKCu!y((u!:y(:( *!!y:????͐O:'G:͐g:x???M͐oj:''G:ͣ>::?ͣ:2*@yM ~#fo8MPRINTER1SYSTEM SPOOLQUESYSTEM SP$ Another alignment page (Y/N)? P 'OpenClosedPrinting on PRTnPrinted, hold% @K !:O<02y( @((!!!y12!: (!> !5  ;y=w#F6 1ATo& &}o& 0>0NT]#y U1890~ !"> >!au> 7u> 7u (19@ NoholdHold H File# Name Date Time Que Pages Copies Status SPOOLER OVERLAY1"3HOL NOHOLINI=ABOR2LIS<FOR\QUEUAlAϳ*COPIEӱCOPٱSTATUӁHOLNOHOL&STOSTARQUIԓMUINITMUINITCHANGũKILA BACKUBACKSPAPRINԴ ALIG NAMU RESTAR READٚ RDٚ +A E AAAAAAAAAAAAA AAB^h -38>EZ]dix{>isw~Uglo->DGOSX[`chp"%5EIMVY^ahkotx{~A  A AA`'͞y N(yAd'+27=@CJORV[^ahpv|  7?GQW\fn !2GL]   * / 4 7 : ? B E H V Y \ _ s v A  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 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]dmxA T:G :uw<:twRo&)))~ 6R<2.~ 2~ 2!"n f +<[nf:G ^ V {_! 6Ynf>ݖ_y( qyQ6#5 6#6#%^V:G 0~2t~<2u<6A {A n f K!;?nf:uw<:twnfutnfutnf utnf n f +<[nf:G ^ V { _˾##~w#~w 6:W(Q(n f +">Q2ͬ*"Y5y nf#ut ‚5 AAnf#utnf>ݖ8==_~ 6 4~ nf#} Ͷ^V sr DMnfq#pnf^Vqp:G 6 nf>ݖ8===_~ #4 #06#+6-:G dOWaiting for spooler disk space  ###~PP2QYHWkq͞DM:!aTaUP͛(2>X22͛>W2Z:WSXSx2">22ͬYRo&))) P~(Oq: * V:A(P(AAS(X(>Q2*"ì:A(P(y2:A(P 2͞yA8[8>A w͞ y1898>11O~ w͞ yO~߱w!R_: __P~wO~p:  bkh: ?* hAAwp: ?* !iR* _!o: $ SYSTEM SP$xxxxx$SYSTEM SP$xxxxxHA  ^#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 (A%),GKOX\hsv} .<?GMSfq%lwDu  "$&(*,.02468:<?BGJMS[ruz}A \ (1(C N(5 ~ w w  V(a~ Z~ SV(M ͏6  ]^ ~ N V  ͏ ͏~ w ~  6 = q y ( ( ~~L*ͮ$++*T*USYSTEM SPOOLQUE A*WM& !-036ADIPUXl ".3YA 5SYSTEM SP$  ** ABORT! ** YAA mp+PSZhmps !$(16;>Borwz  <CFINQUZ]`dhlot|!APRTSPOOL ver 5.6 Y AQP N *6O D*666W6#0nfut6#6O#6#6P~#fo##1P"M" "~#fo"A qg3*/69>CFOW\_djmt~ EOlqLA_PD^#V+!ut~ ###w#s#r+## s#r+>bkiͮ(!4~ >! a:2J2 nf@'"Knf"M*:*:X(2X>2#ͮ$!?2W:W :# f:W("G!?_R^#V#z #~2#Ͳs#r+:JGͲ^#V+AAͮS% :W(!;>!"'"(:W=2W >2#>A2O>2"ͮ!#>o&~($( (6 > #5~+!> #w+OÙ!#60 '!**%"<:#2> O!#5( 3!#5™Ͳ~#fo|™:JG[ͮ͹ * ~ @O~w ~ w~2:JGAA=[ͮ :w 'o # 0~~<<6wQ2O*K"Uz2O2Q:k:>X:Q :_ͮ"*<[M"͹:JGͮ *|* vʶ#/ʶ(**#! ͮ(ABB>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 ! "~ ( #~ ( ( #~ B >h ! ]( +  ~# ( (>  RDM* ! : iW * }T]: !  ie* ! w: i*  : h* \! w: io&# * ! : io&#  ! (! 2 ~2 nf" * B #(~ (*}=8 0w~ #(~ ʧ ʧ#C 6 ~#I(O( ( (  ~  (, #L(AP(pF(1B(%E(HC(W~ (,( (w#s Dw w#~+F(s w{80 > ݶwB ! : iP*  : i i0@ * : i* ! : i7 !6 6* !6  : iV͌ 1P0nf86 6 @~˷w ~@w<6~w68696G6H!J9~DݶE(, >( B>> ç6P!9Y~$[Z A0Z :Z *|x }x = n 2 _^#VS  : h! Nʂ ![  : h! ~‚ #~O‚ #~‚ #~‚ : o,&w ~ !s ,! 2 2 É(Z ~ ʉ,(!s ,! 2 2B 3Wq 07%8u=t>6O͌ !>a͌ !`> ao& > ͌  !E> a͌  ! >a͌ !>a͌ ! > a͌ !G> a͌ !F> a͌ !H> aZ 1Kn,X`   % K OSYBf ~ ʉ, 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{ &B *cSTEM DEVNAMES0G6 PORT SYSTEM DEV SYSTEM CLASS SYSTEM EXEC BG# %BS}@d&} &}#~A8[8*!~ < ?#~o& '~5   ~(#~(2 ~: ! : ! W~2 ! P>_~< >W(w#* }! : i*  : h: AELSkow|.]gy &03:BHNV\B { 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|Bublr ,:@DGLTY]orv} 8@HKV^gju}  ' C K T \ _ i l s { " , 9 A D N Q [ e o y q  B" d 6 O *  !O  : iPi: _)))))!  : <2 : 2 ! ˾: O: (:666*m " [ R" " i_))))) ! : * "* !i: V͌ 1P06 6 ~w @w<6~w6668BB:696@6A6B 6C6D6E6F6G6H!J9T]6 6?MW~#fo8M ^#V8=~ (MW ~#fo8 =M_T]6~DݶE(+ >( Wq 07%8u=t> P~ O^#V#S #x2 ! BB`B=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:GB >SYSGEN ver 5.5 15FEB81 Copyright by Timothy S. Williams[AP~ =(!N>an bk7%R0!D>a~ (!>a!n( ! > a^#VS!n2P0~w~ a: !)> a> !:G~?_S~2:G![ >2S~33#?(*@( #(3~$(A3[3 ~03:3# :(~ : 3#~( B 3:P*_":O!n "!n20~[!w~ˇ!w* @* }* [!n3SYSTEM NUCLEUS  ;?FUT?_k %+BA#:!3##^#V*"*#" !5—!5}: <dd!^#V*"*#"~*(?(@(# 2#2>?#!>a!!! *?? B wmEKek %+EKek %+EKeIBuW@U[`dgjpux#).16CTX\au{~ &*-19=@DHOWZ_behuy|(B ?5Pvy $*5L]n}eBt<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 PB 9 8@ʴ!t_^#Vz7(O<@~(L > > >~v 0@(7˯N7M@=@} O@| O@* )(&'QWERTY(($ B+[T  UWT]6P^#V##!>aZ!G> aZ!F> aZ!H> aVB`(*(0(6(< 2> :20:ˇ2&:2:ˏ2:2:˗204 :@/0j@k@@@/0l@m@@@/0^@q@,B/(DIRW^h|lBMC!v|~xz#(-27<AFKP\^BBC~CB*CSI ver 5.6 Copyright by Tim Williams 2 70I F(8n 8N  ^#V8v3f3q p ͯ(q ! `3^#V!z( ^#V+! ~7( !8d+#>08:0OxGGxC &|g}o|g}o|g}o|/g}/o!R~ #,( *" Rʥ<" ><>>> ͥ* +" | * "ͥ× DE! >  *ut##"*R*++nf">InC(~ #~ #~ ( #>2Z N(I ! 6 "H  !66  !AP ͯ28N($8!>_> 2_^ʗF(8~ʗ8n— V— : o&Pfʕ % C Hvalid operator Hex = , Dec = +-*/\&|^~)#5?B  COMMAND SYNONYM SYSTEM EXEC MIPL EXEC LOGON COMMAND SYSTEM ACCOUNT IPL EXEC RC = ,  , ET = CFN~0*'0`'oy'0`'gx'0$'ͅo&<'|ͅo&>.}ͅo&d'<&} 0>0 Ox Gy00 8n(87>2Z F†:G0T]6 ~( :(~<( D66C minutes.ACCOUNTASSIGNARCHIVEATTACHBACKUPBASICBISYNCCHANGECOPYFILECREATEDEBUGDUMPDISKEDITERASEEXECFILELISTFILT8080FORCEGETFILEINITDISKINITTAPEINTELHEXKILLLINKLISTLOADLOGOFFLOGONMACROMAILBOXMEMTESTMOUNTMSGOWNERCHGPATCHPEECz P  UWT]6!P^#V##!9> ;ʗ!6 !~ #08:ڑ'  ʑ!6 ~# G (H,(D.(@:(<\(8((n)G;G~# (x)(t;(p,( (.( :(((>\ w#~ (N)(J;(C ̣KRECEIVERECOVERRELOCATERENAMEREPAIRRESTORERUNSCRIPTSECTORSENDSETSHARESHOWSORTSPOOLERSTATESTARTSTOPSYSGENTERMINALTEXTEDITUNLOADVERIFY2CF,( ( .(:(\ #!R}ʖ6 #!R}(>(> !R}(> w:: ):G0>2Z !~+w## !~ : ʗ$( A[!!"H J !R !v(d! ~(]~#(J ~( (,~#  ( ##C C~(~(>O~˿(0S !R 6 R ~˿~ c#~ʑnʑ! ~ʑJ  ( #~#(~ )~#(˿(0R ~# x(> !R :Z 2_ 2 ` !J  !J :Z < :_ <2_ 2 _ ! ~AV(  !2J !R  #C(+`gx}6CIQTWfin1AHSZmz,/EJS]`em~$1I^eor~$7>AFLyCs6` !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#~Cw$-058<?DX!$)9LR`ehux}'*36@UZ]`fmp( + . 1 4 7 : = @ C F CX#~E#~C#~ ! "H  ͯ(  ! >a0~Pnf9n5f6" ~72 i^#V" 0!  #: 2 !> 2O~ ʟ#,( (+08:8) ' ( ×#!#~#foÑ*ÑR'&CCCsWM121xH(70yˇ>>>>>>YC pÒô\:}W(R~G 1_ 9O !W(;(y 6~ "~ >_( >o(7 k!}5N#~(T]#0V(4~ >y"~ ~ w 8 ~ w=_!>hg>>~( v>O >M>L>~>(>A>>>>>~>(>w!w>hgGn ˿O`(CC qj?>0~( yf0O:}@ ~(!]N(y(  wy!}4^w͒KCC ;1 4q~a&-EO[agCpÒô\:}/W(R~G 1_ 9O !W(;(y 6~ "~ >//_( >//o(7 k!}5N#~(T]#0V(4~ >.y."~ ~ w 8 ~ w=_! >pg--_( >--o(7 k!}5N#~(T]#0V(4~ >,y,"~ ~ w 8 ~ w=_! >tg|/>/>/~( v>O >M>L/>/~>(>A/>/>/>/>/>/~>(>/w/!w>pg//G.n ˿O`(C`|/>/>-~( v>O >M>L->-~>(>A->->->/>/>-~>(>-w-!w>tg--G,n ˿O`(C~qj?>0/~( yf0O:}@ ~(!]N(y(  wy!}4^w͒KCqj?>0-~( yf0O:}@ ~(!]N(y(  wy!}4^w͒KC;1 4q~a&-EO[agC;1 4q~a&-EO[agDD-pÒô\:}W(R~G 1_ 9O !W(;(y 6~ "~ >_( >o(7 k!}5N#~(T]#0V(4~ >y"~ ~ w 8 ~ w=_! >lg>>~( v>O >M>L>~>(>A>>>>>~>(>w!w>lgGn ˿O`(D { &,147=BHMTgkpuz8>KRYblty ')+-/13579[c!%(+/59>HMPS[^ehps{D)qj?>0~( yf0O:}@ ~(!]N(y(  wy!}4^w͒KD |D;1 4q~a&-EO[agD D;?րՇ_!'^#Va{ "f ۋ>ӎӎۋ>Ӎ>"Ӎ>ӏ>Ӆ>Ӆ~ӄS{R(/ӄ>Ӆ~͏>>Ӆ> ~>ӏ>ӏEK*ہQۈ"U Fہ:ۈ>/ہۉ!ۈwWہD 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 D ۈ ۉ(>;*K1W2>"2ۋ><ӎd>o>"ӌK*ہu`~ӌ`Åۉہw~ӌw! ہ~ӌہ>ӏ: Eہں<ۈ®ہ*ۈ"¼ہۈۉ ۀ (>>>ӏ>DhPO 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 ,Dӌ>7ӏ!~ӌہ#>$>W͏zE~~ۉX@EzX ͊ۉ@J>Ӆۀ >͏d>B~>Ӆ͏>U2d>o~!ہ~ӌہ>ӏEہۈU(>~>W͏z W ;>DDg(;<>ۀW>B(z(r(j(Z J([@E>Ӆۉ@VۀE7> ̀ۉ@E>Ӆӏ~ۀ@oV͊>= >2Àۋ>ӎۀ(>ۀ ۀ(>Ӆ>Ӆ̀ۀ·~ۀ>Ӆ>̀ۀ>z {P0P͏S""DDVDs[1] Syntax error. [2] File name missing. [3] File type missing. [4] Drive code missing. D  [33] Undefined physical device. &[34] Must be sequential organization.  [35] File already exists. #[36] Organization code is missing. Do[5] Disk not attached. [6] Disk not mounted. [7] Invalid option. [8] File not found. D K[37] Missing option: "{1}". [38] {1} is not attached. [39] Device is not attached. $[40] File channel is not assigned. DAs[9] Disk full. [10] Directory full. [11] Invalid file name. [12] Invalid drive code. D [41] No files found. ![42] {1} file(s), {2} block(s). ,[43] Must have at least two disks attached.  7[44] Source and destination drives cannot be the same. D[13] File "{1}.{2}" not found. ![14] "{1}" is not recognizable. "[15] "{1}" is an invalid numeric. #[16] Expecting "{1}", found "{2}". D D[45] No files erased. 1[46] {1} file(s) erased, {2} block(s) recovered. ][47] Source and destination do not have the same capacity. [48] Receiver disconnected. D)[17] Expecting "{1}", found end-of-line.  [18] Protected file. [19] Insufficient privilege. [20] Incorrect serial number. D [49] Receiver timed out. [50] Must be private file. n[51] Load module contains unresolved external references. [52] Cannot mix ABS with REL or COM modules.  D)[21] Expecting end-of-line, found "{1}".  "[22] Required parameter missing. [23] Must be "ON" or "OFF". ([24] Incorrect format, should be "{1}".  D'[53] Cannot have multiple ABS modules.  [54] Symbol table overflow. [55] Unexpected end-of-file. [56] Program has no PABs! DY [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.  D2'[57] Only private files may be shared.  &[58] SYSTEM.ACCOUNT file is missing.  )[59] System account cannot share files.  [60] Incorrect password. D1[29] Can only attach to a random storage device. 0[30] Cannot attach to a random storage device. %[31] Cannot detach the System disk. [32] Undefined logical device. D[61] Account not found. a[62] File "{1}.{2}:{3}" already exists on account "{4}". [63] Spooler is not initialized. %[64] Spooler is printing file #{1}. EHEA"[65] Spooler is waiting for work. [66] NSpooler is printing file #{1}, printer offline! [67] Spooler is suspended. [68] Insufficient Memory. E w_[97] You have messages waiting. To retrieve, execute MAILBOX. [98] Must be Multi-User OASIS. | | E*[69] Device is attached to partition {1}.  [70] Invalid partition number. [71] Partition not allocated.  [72] Partition is still active. E u| | &[103] Spooler is scheduling next job.  /[104] Spooler has form "{1}{2}{3}{4}" mounted. E[73] Partition is not active. 2[74] Cannot send a message to your own partition. [75] User is not logged on. %[76] User is not receiving messages.  E  [105] Spooler is stopped. ([106] Spool file is currently printing.  *[107] Spool file is open or non-existent.  4[108] Spool parameters: Queue={1}, Copies={2}, {3}. EH6[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. E [109] Logon at {1}, on {2}. 2[110] Logoff at {1}, on {2} duration {3} minutes. #[111] Waiting for spooler to stop. 1[112] Queue code and spooler form do not match. E&7[81] File "{1}.{2}:{3}" is now owned by account "{4}". '[82] Partition is too small to start.  [83] Partition is too big. A[84] Partition must be one larger than current top partition. E S[113] User can't be forced. Logon please: |  Password? | | E4$[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. EX!| | | | E"[89] Too many re-entrant modules. [90] "{1}.{2}:{3}" filed. [91] "{1}.{2}:{3}" saved. )[92] ** Partition has been stopped! **|  EX!| | | | E4.[93] That account is in use by partition {1}.  [94] Cannot PEEK at yourself! [95] Cannot FORCE yourself!  [96] All partitions are active. EX!| | | | EEX!| | | | E EX!| | | | E EX!| | | | E EU| [142] Invalid bank number. [143] {1} greater than {2}. | E E E  Ex !T9SYSTEM E x  E+!COPYFILES = = Ao  ECLASS31 ( / SYSTEM1 TOPT 1 FN CLASS31 CT 10 PAREN ( OPT1 SYSTEM OPT2 OPT3 OPT4 Emx SELECTEDsEEOPT5 OPT6 OPT7 OPT8 OPT9V 'ASM RFFF FF FF FF F F  F x  F x  FCLASS31 ( / SYSTEM1 TOPT 1 FN CLASS31 CT 10 PAREN ( OPT1 SYSTEM OPT2 OPT3 OPT4 FCLASS31 ( / SYSTEM1 TOPT 1 FN CLASS31 CT 10 PAREN ( OPT1 SYSTEM OPT2 OPT3 OPT4 FEOPT5 OPT6 OPT7 OPT8 OPT9V 'ASM RFEOPT5 OPT6 OPT7 OPT8 OPT9V 'ASM RFDFF  & &~E ~N ~D ~ # (:T(68Iͯ} 8 Iͯ}2n57~ G(ˇw nf 8~7 ~8w8:n > bk> ++~ (#6 6>S2~ G(˿w P~ w  :P~8FF w878!~&6.I6&~ > 7!  &A[!~ ( ( #( 1T]6 ~ ( ( ~ (! ##~ ( (~ ( (#  >7> 8I~ (~ 7* ~ FF 7 (,() #!26 ( #~ ( (,( (()(" !> ++~ ʕ& T]6 #~+A8[08J:0Fͣ Az ={08 - T=O!I ~% #~+ (T6 T]T!P #:n'!X 2#!IFF ~ ( y8>bk6 o&T!^ #!c # ;y!h # ;x! ##T !#ͯ~ :& /: (!o #^#V7  ~ ݷ2!I">&!FA)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*F > > :#A[8!76  :&Ž !m !q!u !yJ !}Ž !6 !7~ ʀ (#(~ͯ}( 8>G ͯ} > 8> O!# 7 #I!~ (#x!6 oFGI>~ ( = ~7=o&^V!I3^V~7=o&!I2!;~w8*# --]\!J( \< >q^V!J6 #:\G 7%R0!D>a^#V+z :n(*9|^5V6!Kz( > +"^5V6F&À !À I (- ͯ >N(>A!6 2À 7~ (#(~ ( (@!?6 7! I77~ #(~ #2F+(-(*( /(|(#~ #~ :F| &7 (~ (@!?6 FZs5r6*> "~p2,2+~08:0# (- #~  ~ #" ~8w(9<*> ##~n5f608:0ͯ7>>> 7:&r7I!~ (~ 0> !7~  #(;~8(Y>!7~ ('(()( ('O##~ (FP~- ͯ!Rͯ 7- ͯ!Rͯ 8!76 +( -( *(*/(7CR>|(!RѪz(!Rt '(!Rt &(!R7|( 6-!R8bk6 æ > 2@~8w( !7N~# !7">- F(#@()#~ ()( ( ~8ˇw8;* -  ^V~7=o&!I3876ͯ8* ~# (=˜~ ˜ ( (O ( (\(  ( >T2*> "n5f6#u5t6p08:0  ( Fͯ L} ++## "}Wn5f6#u5t6*~p> "~p !K~08:0 #~ ( #~ ( ( #~ ( ( > q5p6"0:0!ͯ}=O> #ͯ}=OGZGw!~~ #(~#(N˹˯SO( P( W(N0O ˯O ˯N(F(yyO  P  W  yO  P  W  ͥ J2* "~# (+& #~+*($ ##~++ #:~ # #~ # ~&j #~*($G     jG2j #~ 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 EJYyG(!ENB( !> :&: :$(**ͥ *> "N5FG $(-;BVm "),/47:=@CFILORUX[^adjmtw}        , ; > E H K O U t w ~   % * 3 A G N Q G6q5p6~~08:0#~ #- #~ ( I #~  ͥ *++> ##"N5F6 q5p6x~08:0#~ #- #~ ( ; #BS#*++> ##"N5F6 q5p6 (! (n5f6"9!K"qG   , / 2 < M P U i o v |   & ) 1 B ~        + / A D G L Q V ] ` e h k n q t {  #,<GPc 3AFKNQTbt$LVYfGq5p6^5V6s5r6*9R*( > "~08:0#~ #- #~ ~  (#" J~8w8OA(9T(5N(OO(=S(KE˹˱yw8  ( ( ˡ˱ˡN(˹˱ˡ˙>F2~F(L 0~I )~F "~O ~ G UK%/29=iy~w !+ZGw> ~2!#*> ##>qES";;~ G 7ut +68w > yDO:F(7B8**7T]B8~(#**10 >!0:? (EXEC not permitted MaximuGGdm 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 GG WHILE UNTIL JREPEAT SERROR TRUE FALSE &WHILE &UNTIL &REPEATRETCODE INDEX NULL PAGE LINE TYP LEN LIT CAT SUB HCDCDLILICDLEOLEOSEUPONPOFBONBOFBFONFOFKONKOFRVONRVOFRULONULOFU GGGF!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 cleaG ay for SIO PE & PO Parity Even or Odd for SIO ENABn Handshake (1=DTR,2=DC1/DC3,3=ETX/ACK,4=CTS) PP maintain Page Parity for PRT Onnn size of Overflow margin for PRT W8 $word length 8 for serial device SYNC synchronous mode for serial dGr 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. $ARCHG  evice SDLC bit protocol mode for serial device ALF Auto Line Feed for PRT Hnnn Head load delay (msec) Rnnn Disk retry count STPnnn Track step time (msec) STSnnn Step settle time (msec) $BACKUP Copy full disk to disk or tape. Function: Copies a fGIVE 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 G _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[Gdrive 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 accountsG .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 gG, 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. FG .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 comGRunction: 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 fGma 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] G1iles $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 G[(options)] Where: ctl.file is the name of the control file. Options: COMMn communication port to use (default COMM1) MOD modify the control file prior to execution $CHANGE Modify privilege level of command. Function: To change the privilege level of aGMPUNCH,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 Q Class for console or printer LFnnn Line Feed delay for SIO FFnnn Form Feed delG 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: fi HH+lei 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 n H mracing 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 he Hnn 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 " " "  H 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] HLOWCASE 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  H [(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] [(op Hcheck 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 Allo H !tion)] 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 Hacate 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 index H 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 [ Hped 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 H(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 t Hert 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 - T Hhru 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) NOHE H:HAD 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 H J or to tension the tape. Syntax: INITTAPE [TAPEn] [(option)] Where: TAPEn is the tape number (n=1 to 4, default 1) Options: TENSION means to tension the tape (rather than label it) $INTELHEX Convert object files from Intel standard to OASIS. Function Hode 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 H : To translate Intel hex object files to OASIS object files. Syntax: INTELHEX pgmname Where: pgmname is the filename to be converted. Assumed filetype is .HEX Will create a file named: pgmname.OBJECT $KILL Erase a file without de-allocating the spac H~ASIS. 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  H 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 p HDigital 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:  H |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 HTo 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 a H  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 (de H~ 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 Hfault) MAP Create load map (default) NOMAP Do not produce map WORK=x SYSTEM.WORK drive (default=S) Note: Contains internal HELP subcommand. $LIST List a file to console or printer. Function: List a file to the console or printer. Syntax: LIST fn.ft[:fd Hles WP/NOWP To change disk write protect FORMAT To write addr headers on new disk INCR nn Increment between adjacent sectors SKEW nn Increment between sectors of adjacent tracks HEAD n Number of surfaces per cylinder TRACK nnn Number of tracks per surfac H] [(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 $LO He SECTOR nn Number of sectors per track BUILD To write OASIS info on already formatted disk SPARE To add sector sparing information BOOT=d To copy boot strap loader from drive d $INITTAPE Format or tension a tape. Function: To label magnetic tape volumes HGOFF Sign off current account. Function: Logs the current user off. Writes an accounting record to SYSTEM.HISTORY, and enters the logon program. Syntax: LOGOFF $LOGON Sign on to new account. Function: To logon to another account without first logging I$I 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! I . 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 fil) It to disk fn.LISTING[:drv] OBJ[=drv] Produce fn.OBJECT[:drv] WORK=drv Work drive for xref (default =S) SYM List symbol table XREF List cross references IF List all conditionals MACRO List expanded Macros COPY List included COPY files DATA List multi-line" I e 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* I 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 # I Lect 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 addres+ Ilmemory. 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 $ I 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, Iis 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 % I 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 pr- Ifile. 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& IJotect 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 t. Iko. 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 progra' I/he drive code Options: FIX means to