IMD 1.16: 31/08/2007 10:54:26 sbasic 3.65 disk a 2/19/80  >@>14:D !>0>}= 400 {}x2>43>048ÿ0g(C(K(ˋ>_1!"ͷ! ("*u t ͯ( n f !jgn f [RDM*h"*Bad or missing CDOS.COM }CDOS COMx>(2 +{=SlG o&))))) ::8{=((i7*K 2 G  G qF y*Ky??!0 8 Gy>>^DVENF~GsDrEqFwGwDwEwF6GsHrIwJ^HVI~Jn f ͋~ #!0! DM0 z 7. ! ~ x y(YP;͋R(0o&R02 .! ^#V.! ~#fo:::{X!r/w R ѯ2 XOr* `=8CK~ s 1=8,Ks~(W(͔(s !WgBad directory block H ~(L~(?͋ ~(! ~ ^^#V#.! ~#foR8; ~ wn&))u t #_=u ~ w .! #.0! g G 66 @6 6 w w0w1w2.! 6 #g͋^V>w#!8n!&NeNF eNF B0Ń^VR8 ~ R8ut6 !u t ɗ2r2 * n(C~*+,(4 ~ R(&PYͻ(~{/wJ3 G A!G ~*_~+W~,zq!#8,~O8x<~!( 7 zW{_8͖~E> ~D=Äw#)6Ͷ4@ G~ O ~ <(9w q ((y!0  0>͂ >! >Ä< 8%.! Nl&~e 0{G!2 . ! n}(O N{(#F+ ( x( x( 7{  Rz xGG G ~G ,W   ! N͔ ~G ͧGN(ŧ?G*~8x( X#~# F =8 #?( ѧ7* * *X#^#VS ! ͆ 0 !" : 80ͷ 0 / U !"  2 y2 x2 " " *x0E2 * nf" ~2 7N* : _́{2 ^!={2 " ^V R> 8: .( N#Fx   : o& +~2      .( ^#V!M * U: _: G: Oɧ 8: (~( *N(>O.( ^#V! * ɧ / : ͡  8O: G.( ~#foy R>A2 ! g͸ Remove disk in drive ; press any key to continue .!  ا2 : A2 2 2 2 2, (:(1(7($(! h&)))l g! ggC ! ! !$ x Seek Write Read Home Read-after-write Logical disk error h, drive , block h error: Drive Drive not ready Diskette in drive is write-protected Drive is write-protected >͟ ͸ ((_R((! I( ! ͟ ͟ i !  g7Retry Ignore Continue      " $ 0 2 4 @ B D P RDM ! ! 9F+Ni`_^#VxBKeBK~WOzS0:__~Ez{*~(z###[+[##ͨ*ʹ 85~(͸ 6 ~w ʹ (͸ Dw~ 7͌   6 nb=>_> & & F(͌ ( 4\s#r\~#fo* >C( = z {?>70BB0 = * }+" }* " !" *F#~##( AG *$)LQ/:2yʹ ʢ=ʊ:.O:C:2yʞ (\=ʊ:O:2x2y2{2z2͜2"yÍ>@> y y>O2 R"2>2͜*z~D #~S >v >8>w! can not read 2 sided diskettes x22> 262œɗ22#4^ >040Ï>0͵W@ ͮ40>0140 ͪ ÜY Ü 6 Ü048 ±40ͮ02BẂƈ_z4{Ẃƨ_z4{048 40ͮ02{048 x40ͮ02Bɗ#4:3O:2~1ʮ^ :>(>040#͵O>0400@(@ ͮpͮ02(d: w 2:2:2:2>>>, Cylinder xx, Surface xx, Sector xx, Status=xx :wNn"f#w>#*3Ol4͵_:(: :g:2 4  !x2>2:G7G:g 4/ >ɯ42Hx2#4͑͵!͵:(}x!: !K+}      (24:@FDI>.I>9I@(>:9ȗ7L(>VL~:9 ͜(*:>29~#":~ 29]2<2=) > 2?$2>> I]2>]2?!@- % !<::>G! ~((#~#fo(pqrstuvwxyz{|}~onml^jk_>I!L]- % >A(O{(F͔>I>Iz-!o0$~GG!o0$^#V#~>IxIEHDCABKJbc][iI0PQMLWX12@RSZZgh  #;<;=EG2!"!"/wmʔlʔd͔:"@I;͔~( (I#>IG͔yIG͔]T/ >(M(T˿TT>I> I: : : >I>OI$ͼ2 $ͼ2 $ͼ2 $$GG$Gr @ STARTUP $STARTUP CMDçCDOSGEN COMY!"#$%&'()*+,DUMP COM -.EDIT COM8/012345INIT COMG6789:;<=>(ͧط UProgram not found$Load error$! ^#V~/( =( ##~!#.$ATrçد1q>2228*|"*v"!`"9ZħͧU(W(2':'Էk'ͧk!~h5~! wͧ}ͧSCREEN COMH?@ABCDEFGMEMTEST COMHISTAT COM>JKLMNOPQWRTSYS COMRRIBBYEDIRERARENSAVETYPEVERIFY "d׷>?2h\ͧ(9yFile already exists$!\|!l\ \ͧا4ͧͧZ( ( (`HU ͧk'ͧد2'$$$$ CMDͧA2 ç;|ԯXFER COMSTUVLIBBUILDLISWXYZ[\]^_`abcdefLIBBUILDLISgSBASIC COMhijklmnopqrstuvwc,l!syFile not found$!m~!8( ZG#\EW@R US+\ͧ(\ͧط!~ (^ͧ ~ 2'ͧH>~ ͧ ͧ(o&6~`8_w#~ ͬͧ =_ͧͬ\ͧͬlͧSBASIC COMxyz{|}~SBASIC COMKSAMUT COMh CDOS version . Cromemco Disk Operating System Copyright (c) 1978, 1979 Cromemco, Inc. 122Z2[!L@  6 #  ͧطͧط\ç !\>?#  (͞ͱͤ{=Ͷ͝ͱS ͳo&)))))ͱ ::rr͇8{=(ͭ(íPress any key to continue $::͕ͭ8O~#^{ 0?g#^g#N#F#N#F#^#Vutut8IgkwآUV`}(y w}ڃڈC(0(~,zq!#8,~O8x<~!( 7 zW{_>^DVENF~GsDrEqFwGwDwEwF6GsHrIwJ^HVI~Jn f *~ #!0! DM0 z 7. Nz(#*!"!*%#"%͞*!nf^VN8#z(#Nͭ*%ͭ*##~#s :~  ÷F  ;͋F *͊.͍~.͍~#foͶ!ö!oÊz 8÷p .}x ;Ox!cz ^'V(N)y(3~&o&)))n$f%y!cͳR0DM!c!cz .͍^boInvalid jump to location H ` ͚͝ ç $O*o!9ut W>>w ~ 1c!~!O ^V>w#!8n!&NNF NF B0N^VR8 ~ R8utg6 !u t ɗ2͍~ x y(YP]*R(0~o&R0c͞.͍^#V.͍~#fo:::{ͭ*!ͭí*** $ Files, $ Entries, $ K Displayed, $ K Left *** $ ͩ|{0_g> xGͳ {ó!͊!}!s#r#p!###X!!###\^#V#͊w{*v0"xe."v *x"v>2}.͍~#fo. ͍~. ͍^#VѧR͞* z ~  >?>?w !"!"#"%͌'8^#V!f~ nf (f;"A;^#V+++"I!,8Illegal system call H at H *os#r#s#r#q#p#s#r*oN#F͞* n(C~*+,(4 ~ (&PYZ(~{/wJ ͳ !có~*_~+W  gCEW@R USz!r  ^# 6###*~ V ::w^ #q ~(#p#y( ! s#r:~(*v*oD !R;|~6*z>86(#6PY! ~Cz͌. ͍v(&8~(~ ͗#a_͌͗>͎Îr ,͇ۧ .!N! ~! 8w!~ 0 q͚ɗ># $!~4w!|N8 $-15>wO~w!/=,.(*(#>?ͩDMO͞OGGGGv '~G MGF( W( GG>~w ?? ((ͱ]T68 (66$)) 0 !b {F!6SYS DIR͌͗>8͝~E> ~D=w#͕6ͽ4@ G~ O ~ <(9w q ((y!͝V ͡ F8 ͗ Î>vݾ/(#͕͗ !>l>m G! ~!8~<! 4>> &}>(~ <(w 6  (>>*͞*+ ;E ;Oó***tX#^#VS!q0 !":80#0 Y͛!"GGnG(6F4F(NF3((~G GN(z͌"w͞G?(G! ~?(͛>ut[o!l8<ͅ!DH!PT~( ͜({>:{2$F^#s#)$(?MS_ 0 0>͉>! >C8%.͍Nl&r 0{G!͞_. ͍n}(O N{(#F++*o#!*o#!??w ͽ(*(O[ BO* 5͙ / %Ͷ~ O*>84ͭ0 ͸0>sx(#r͉ͭѷ> ! ~|/g}/o#! >>C#>O#>M*o q#p;#26y2x2""9*tx0E͞*nf"~27N*9:6_{2^!ͩ{2"^V R>q8:.͔N#FxD (Î[o!Dl (z *w ;z͌ͱ0 x> y6 #l~(&=_\+~) ( x( x( 7{ þ́xGóG~G ,W   ! N3 ~G ͧGN(ŧ?G*t~8  >9#w! w9q#ww #w͌8~ .͍]i& ͕6T]# ~?# 6?*o s#r+!*v}|0)$ ~F# !GR-program too big#Ͷ (  :o& +~2     .͔^#V!*U:_:G:Oɧq8:(~( *oN(>O.͔^#V!(#V# ͗z͌!ͷ0͌ͱ8 # ?(w#͗z͌!Hͷڱ~ˑG(w z(>/V(z +6#z(6rG{p#x 0 >^@>> >> > v ^F(>x( X#~# F 8 #?( ѧ7>  ՗#~+: ~w@8##t.  #t! w! ==ͩ{͞}! w(  = yö.͍}! n&_Tͩ{((r͇ۧ ! 8w##6 *ɧq͛: q8O:G.͔~#foy ;>A2K!6$Remove disk in drive ; press any key to continue ./02Y{8048 x4002YBɗ͏4:]3O:\2~1^ :X>(>040#!O>0400:V2Xyʇ% =:V.O:VC:W2Xyʇ (\=:WO:W2Xx2Zy2[{2\z2]2X"^y~((#~#fo(pqrstuvwxyz{|}~onml^jk_>I!L]- % >A(O{(F͔>I>Iz-͊ ͊! 9F+Ni`_^#VxBKBKWͻzS0:__~ͱzF{F*o~(F###͍zا2!:A2,2M2W2y2(:(1(7($(! h&)))!?ï!O!e!x Seek Write Re@(@ p02Y(d:Y w 2f:]2A:[2N:\2Z5>>>, Cylinder xx, Surface xx, Sector xx, Status=xx :>@> y y>O2 R"^͇2[>2\*^z~D #~S >v >ec8>w! can no!o0$~GG!o0$^#V#~>IxIEHDCABKJbc][iI0PQMLWX12@RSZZgh  +##*o 85~($6 ~w  ($گw~ 7   6͏*^3O4!_:`(:a :bg:[2b 4 / !<2`:ZG7G:Xg t read 2 sided diskettes x2Z͞> 2]͢͞ɗ2]2[͏4^ >040>0!W/@ 40>01k40#;<;=EG2!"!"/wmʔlʔd͔:"@I;͔~( (I#>IG͔yIG͔]T/ >(M(T˿T nbͩ>_> ͒ ͒,F(P(T 4s#r~#fo*o >C( = ISKL]KAILMVn !)037@IPY ">I>.I>9I@(>:9ȗ7L(>tte in drive is write-protected Drive is write-protected > $((_R((!I( !<> !4/ >ɯ42`Hx2Z͏4!!I> I: : : >I>OI$ͼ2 $ͼ2 $ͼ2 $$GG$G70BB0 = *}+"}*3"!"*tF#~##( Aͳ NgDrVL~:9 ͜(*:>29~#":~ 29]2<2=) > 2?$2>> I]2>]2?!@- % !<::>G! 7Retry Ignore Continue ``````` `"`$`0`2`4`@`B`D`P`RDM !ccQhh8  C: D: E: F: Stat/a *.* Stat Stat/b Screen Xfer/v Debug C L$ G/r$(0) Stat/dt Basic Xfer/cx Xfer/at prt:=  ( (C^ :i^(.08$ 0 O :8 Y!^#V(w#w#6$p Ox(Ly}!G4 >*E6#6#6x! x( ;>2;~O#V#^!;q8!NGGd̀4͋8C6!GNGd"LG͋:D(-<2DQ  *z#x!#N#F#~g>o NʊU> # U6! w#p#q! I ubk## 6@w6++6#666w# u 6#<!%~#>!v"(.n_&T open error write error close error create error O>*EͲ!G5 H9:H*H+ Incompatible with this version of CDOS $ParENDIF:9? VNɗ*+ x! <2H@G~/ #x@2Hy2~ #/(R O 6.# 6x $ w#   $ 6# p# 3 #~ͱ +:Q ~ͱ @##~ͱ ! /ʠ =ʠ ,ʠ (ʠ .ʆ *ʔ #ɷ(T!%4~#>T(>!%6J~"#w+R4~#+.wO< ~l``/ y?v$Oo(ameter error $Create error $Open error $Write error $Close error $̓!y x x x x^̓>@űO̓!G:] !ui!\>CDM+S̐!~#(/!~#($!8+  ' '#s#r#~#( +6# y2*E6#6#6##i(KT 7á # T #>?— T ! 6! 6a_ /~ #½ ~! # ! ~ ! ~# ~  #/ ~!çmismatch error too many MACRO libraries MACRO library not found :,?=$?>L͙ [LG:CG~O2CLG"1?:,?=(|&>>́&:6?g>2:?*RF#"RF*^F:?ͭ&:-?O%%2?G2%+œ’wO< qѷʊ2:~ʊ O  # < T #>?— T ! 6! 6a_ /~ #½ ~! # ! ~ ! ~# ~  #/ ~!DʎͰ>27Drive x type (S = Small, L = Large, H = Hard, N = None, E = End) ? Drive x type (S = Small, LZͰMemory size (3FFF-FFFF) [] ? 2!y{'81p#q#I(%p#q#{A22x( z(w#w# Dr:([yO *#R"["["[F:("["["[ɗ2*"*"*8N F * "*8N F *Input file not found $!8 ( w#n 6#n z*p"D!Hsr##][DR"F Ente = Large) ? Drive x type (H = Hard, N = None, E = End) ? Drive x type (S = Small, H = Hard, N = None, E = End) ? Singleive x = Large Drive x = Non-standard2A2222CA(B0]]]g(SILDXHʒEʝNxͰÚ] "*8NF*8  [!0!y>/ FNT ####= !y!!F#N#x( `4  ""x( rCopyright (c) 1978, 1979 Cromemco Inc. $U}-V$\hjmiiiiiiiiiiiiiiiiiiiiiem1͐2ͪr decoding for functions -$ F1: F2: F3: F4: F5: F6: F7: F8: F9:F10:F11:F12:F13:F14:F15:F16:F17:F18:F19:F20:]( or Double sided [S] ? Single or Dual density [S] ? Fast or Slow seek [S] ? Single or Dual Drives [S] ? ]g(SILDXͰ]]g(HʒEʝNxͰ]=]g(SIXHʒEʝNx=Ͱ]](&("!}8q(i( i !S!!q(i( i !!!T]:::2 x{ s#r!4qI(!A !4u"t#[͕q  *8####^#~>.{  :] !S CDOSGEN version $ Cromemco Disk Operat((*_(&("(4w#nx( 6#nx(+ ~ ( NN#>> > [R  3O]g_SU@FʉN !"FOͰ Function key decoding (S = Standard, N = None, U = User, F = File)gSFͰ:(,]]gLSLD@Ͱ ]v]gnSnDlvͰ]]gʚSʚsr(q3 3 [sr6P6 6P^sr 6! ut636*H6+6,6'N6(6)6& :w<2*u$t%`q 6ing System Generator $|}% 80jZ]*(g88? 8-"]*!@~/w /w#| +"ÍOut of memory $*B[@R"*:[8R%"*>[<R" *8NF * "*8[6R%"*8N*[[F[[ [S] ? ]]g(KS>COM(9*p"D!H8sr##[DR"Frs## Enter filename -  [sr666 6(sr 6! ut6346 [sr646 6Msr 6! ut63: w*"4 ɗw#w#*p"ͱ8*p!)*R0S*"p!: GO(!go8!)8w#7W؂!08 8y{Ct} CDOS addresses: Starting address of CDOS (top of User Area) Starting address of I/O devic........................F:([[" *" !" *" ! k ![\"2eCf: \=7(<2!~7?:!w:<2ր ,2:] *#"+:\G(  *F|*@(!H[KD>nf|ʯ But####=Ÿ > ] ; S>SYS7R:] $:\G*4x!80  Illegal hex file $*p6#*RDM (ͧ e drivers Last address used by CDOS Top of memory for this CDOS Size of CD........:y!(1*.K4  r*0K4  s*2K4  s*6NF* "*6N\   Disk write error $:(>E:] \Ʌo$R!\6 66  ( 1*4k *6$Kk *B[@K* !04k ëA: Enter boot file name or disk identifier [A:] -  ]  S a{_|= = ]g  OS Size of boot loader (maximum = 1A00) *@"p"f!t*p"h"BI>HEX(cͱF* "*[!4"*6NF*6 !0!yFNˉT *6NF*6 [s#r*8NF* "y."y*[[F>^@> > > ................>COMR͂ R v *: [8K* *B[@K* *DKFk :(*>[<K* !0Kk ͫA:CDOS Enter comman_R+B?!68 ))))o0$70:8 _AG?0ɗ:] 03!":\G2\8?*f)(([fR<<<[hjw# *h[fR<<<[h"pG7I>HEX>@>14:D !>0>}= 400:([[[+"{*[[F:([[["}*[4"!^#V#^#V#N#F`i> > ~ ................d file name [A:CDOS] - +"c Cg Si _N"e *i #"i V8{ZE*c +"c |(*e #N*g {Ex~E# *[[\( \  Illegal file name $ Create error $>2\  Input file not found $   {}x2>43>048ÿ0g(C(K(ˋ>_LGSSSD G A!G ~*_~+W~,zq!#8,~O8x<~!( 7 zW{_ 8: .( N#Fx   : o& +~2     ::8{=((i7*K 2 G  G qF y*KͶ4@ G~ O ~ <(9w q ((y!0  0>͂ >! >Ä< 8%.! Nl&~qz?($y( 3WOA!G |g!zW͢_ n^*V+N,{nf<<<#nfy!^#V#.! ~#foR8; ~ wn&))u t #_=u ~ w .! #.0! g G 66 @6 6 .( ^#V!M * U: _: G: Oɧ 8: (~( *N(>O.( ^#V! * ɧ / : ͡  8O: G.( y??!0 8 Gy>>^DVENF~GsDrEqFwGwDwEwF6GsHrIwJ^HVI~Jn f ͋~ #!e 0{G!2 . ! n}(O N{(#F+ ( x( x( 7{  Rz xGG G ~G ,W  1!"ͷ! ("*u t ͯG R0 DM!w#!8n!&NeNF eNF B0Ń^VR8 ~ ~#foy R>A2 ! g͸ Remove disk in drive ; press any key to continue .!  ا2 : A2 2 2 2 2, (:0! DM0 z 7. ! ~ x y(YP;͋R(0o&R02 .! ^#V.! ~#fo::  ! N͔ ~G ͧGN(ŧ?G*~8x( X#~# F =8 #?( ѧ7* *( n f !jgn f [RDM*h"*Bad or missing CDOS.COM CDOS COM!z .! ^bo=}.! ~#fo. ! ~. ! ^#VѧR 2 * !k  ^# ̈́6#R8ut6 !u t ɗ2r2 * n(C~*+,(4 ~ R(&PYͻ(~{/wJ3(1(7($(! h&)))l g! ggC ! ! !$ x Seek Write Read Home Read-after-write Logical di:{X!r/w R ѯ2 XOr* `=8CK~ s 1=8, *X#^#VS ! ͆ 0 !" : 80ͷ 0 / U !" ͏ 2 y2 x2 " " *x0E2 * nfx>(2 +{=SlG o&))))) ##* ~ V ::w^ #q ~(#p#y( ! 6SYS DIR͐ >8͖~E> ~D=Äw#)6  sk error h, drive , block h error: Drive Drive not ready Diskette in drive is write-protected Drive͵_:(: :g:2 4  !x2>2:G7G:g 4/ >ɯ42Hx2#4͑͵!2œɗ22#4^ >040Ï>0͵W@ ͮ40>0140 ͪ ÜY Ü 6 Ü;;( ͏( (` ;k;2$$$$ CMD;A2ZZ ;R"|ͮ2 F(͌ ( 4\s#r\~#fo* >C( = z {?>70BB0 = *  CD is write-protected >͟ ͸ ((_R((! I( ! ͟ ͟ i ! g7Retry Ignore Continue ͵:(}x!: !K+}      (24:@FD048 ±40ͮ02BẂƈ_z4{Ẃƨ_z4{048 40ͮ02{048 x40;>~ ; ;͇(o&6~`8_w#~ @]; =_;@\;@l;!~}+" }* " !" *F#~##( AG $)LQ/:2yʹ ʢ=ʊ:.O:OS version . Cromemco Disk Operating System Copyright (c) 1978, 1979 Cromemco, Inc. 122Z2[!_g!̓#Ͱ       " $ 0 2 4 @ B D P RDM ! ! 9F+Ni`_^#Vx02Bɗ#4:3O:2~1ʮ^ :>(>040#͵O>0400@(@ ͮpͮ02(d: w 2:^~~(ͤ(#(~#  /ͤ0#!@(#~/( ~(#!p!f6C#6O#6M];% !]~6(C:2yʞ (\=ʊ:O:2x2y2{2z2͜2"yÍ>@> y y>O2 R"2  ;!|2}2!g!!." '" '! ͮ v! > @ STARTUP $STARTUP CMD;BKeBK~WOzS0:__~Ez{*~(z###[+[##ͨ*ʹ 85~(͸ 6"x2:2:2>>>, Cylinder xx, Surface xx, Sector xx, Status=xx :wNn"f#w>#*3Ol4; Program not found$Load error$! ^#V~/( =( ##~!O#.$ATRIB>2͜*z~D #~S >v >8>w! can not read 2 sided diskettes x22> 26;1>2228*'"* '"!"9;;8(W(2:;!~5~! w;};4 ~w ʹ (͸ Dw~ 7͌   6 nb=>_> & &(b""J  BYEDIRERARENSAVETYPEVERIFYK>?2h\;( File already exists$!\|!l\ \;>^DVENF~GsDrEqFwGwDwEwF6GsHrIwJ^HVI~Jn f ; ~ #!0! DM0 z 7. !~#s : ~  K"F  R" F ; .!~.!~#foJ"!J"!'z K"p .}x R"Oxoz ^'V(N)y(3~&o&)))n$f%y!'GR0DM!'!'z .!^bo=!}Invalid jump to location H ` .1 ; $*'!9ut W>X>w ~ 1'!%~{!]O ^#VV>w#!8n!&Ne"NF e"NF B0Ń"^VR8 ~ R8ut 6 !u t ɗ2 2 File not found$!m~!8?( G#\EW@R US+\;(\;!~ (^;͏ ~ 6~ x y(YP ; R(0o&R0 2.!^#V.!~#fo:::{xGG {oG!!}!(s#r#p!(###ͪ !(!(### ^#V#w{* '0" 'e." ' * '" '>2* '.!~#fo. !~. !^#VѧRr2*   ~  >?>?w !""" ͻ8!~ nf (R""R"^#V+++"!g!Illegal system call H at H *'s#r#s#r#q#p#s#r*'N#F#N* n(C~*+,(4 ~ ͅ (&PY (~{/wJf  G t !'G~*_~+W~, #  ;;\; !\>?#  ;%Y Erase all? $ Erase cancelled$ ???$!m~ (X ! /w R"r ѯ2X O * H ͓ p 8C~ ~ ͦ ) 1p 8,~ ͦ ~(W( (̦ ! "{O_ݦ{/ݦwx>(2^ E 8 {=J 1 E S Go&)))))E :: 8{=(A͔(QAͨPress any key to continue $̀QA)8O~#^{ 0?̓#^̓nTK#F#N#F#^#Vutut 6<AKu  6J` OUae+T;1 zq!#8,~O8x<~!( 7 zW{_͆!^#(#͆ ͔7 84A0 rL 0>sx(#rAѷ> r! ~é|/g}/o#! >>C#>O#>M*' q#pR"#\"("['!Dl (z * r R"ò  E0 x> y6 r# ~(&=\ddd+~dͽ z x( x( 7{r R"xGGGr͗~G ,W   ! N ~G ͧGN(ŧ?G*'~8x( W ͱͱ>#w! wq#ww #wr p 8~ ͩ.!]i&=,A*X7AXFA*** $ Files, $ Entries, $ K Displayed, $ K Left *** $ =!|Zw{0_> p̓ )!6T]# ~?# 6ͨ?*' s#r+!* '}|0)$\" ~!# !g!-program too big#\"J (s#V#͙ + !K0 E8 # ?(w#+ !HKE~ˑG(w(>/ddd^dV(z +6#z(6rG{p#x 0 >^d@>d> d>> d> v ^!͌!(>! X#~# F p 8 #?( ѧ7>  ՗#~+: ~ @8##.  #! w! w==!{2!}! w( ͨ = yJ ͩ.!}! n&_T=!{(ͨ(r  ! 8w##6j>͆ uEW@R US !  ^# 6###* ~ V ::w^ #q ~(#p#y( ! 6#r:'(* '*'D !R"|U\"~6*'U>8U6(#6PYÙ r! ~ . !v(&r͗8~(~ 1+#a_ +>""jr  , .!N! ~! 8w!~ 0 q.ɗ># $#~4w!|"ô ø  y y y  \"qy2y2PY K"2 R"EG>>*~ !/=,.(*(#>?=!DM2!GGGrGv '͗~G MGF( W( GGGͩ~w ?? (ͨ(E ]T6͌!8 (66͸ ͽͽ 0 !d {!! SYS DIR +>81~E> ~D=w#)!6Q4@ G~ O ~ <(9w q ͨ((y!0 V ͬ5 8 ͟+ "> ͱݾ/()!r+ !> > G! ~!8~<! 4>> &>(~ <(w 6 ͨ `(>>2!*+ R"E R"OG* * *'X#^#VS !͆0 !": 80ͷ0 /U!"͏GnG(6F4F(NF ((~G GN( " r2G?(G! ~?(/U>ut['!lD  !  !  ͌!~( 0({>:{2$!^#s#ͽ^c$_ rͩ0>>! >8%.!Nl&~"e" 0{G!2. !n}(O N{(#F+ ( +*'#!*'#!??w Q(*(O BO;ͨ 5- /͆ %J ~ O;ͨ  2y2 x2 " "*'x0E2* nf" ~2 7N*:_́"{2 ^!=!{2 " ^V R>8: .(N#Fx ead 2 sided diskettes x2&2$> 2&6%2$œ%ɗ2&2&#&4^ >040Ï%>0͵&W&@ ͮ&40>01%40  nb=!>_> &" &" F(͌! ( 4\"s#r\"~#fo*' >C( = zI$HHD H@@I$HB@ $      in drive is write-protected Drive is write-protected >͟͸ ((_R((! I( ! ͟͟i ×! g!/ >ɯ42&Hx2&#&4͑&͵&!&͵&:&(}x!:& !K+}      x(((((( : o& +~2      .(^#V!M* U: _: G: Oɧ8: (~( *'N(>O.(^#V!* $ Ü%Y$ Ü% 6% Ü%$048 ±$40ͮ&02&B&Ẃ&ƈ_z4{&&Ẃ&ƨ_z4{048 $40ͮ& {?>70BB0 = *}+"}* "" !"*'F#~##( AG "&$#)##L#QUT H  BBA BI@   I7Retry Ignore Continue      " $ 0 2 4 @ B D P RDM !&'&"ɧ/: ͡8O: G.(~#foy R">A2!g!͸ Remove disk in drive ; press any key to continue .!&02&{$048 x40ͮ&02&Bɗ#&4:&3O:&2~1ʮ&^ :&>(>040#͵&O>0400@(#/#:&2&y$ʹ ʢ#=ʊ&:&.O:&C:&2&y$ʞ& (\=ʊ&:&O:&2&x2&y2&{2&z2&͜$2&"&y$Í$$ @ H HA@    H@   B@@ D@@! !!! 9F+Ni`_^#VxBKe"BK~"WO!zS0:__~E!z!{!*'~(z!!###[!+ا×2: A2222 2, (:(1(7($(!h&)))lg!!g!g!C !!!$ x Seek Write Read@ ͮ&pͮ&02&(d:& w 2%:&2%:&2%:&2%%>>>, Cylinder xx, Surface xx, Sector xx, Status=xx :&>@> y y>O2 R"&$2&>2&͜$$*&z~D #~S >v >##8>w! can not r H @@   ! @@ @A[!##ͨ"*'ʹ 85~(͸ 6 ~w ʹ (͸ ̙w~ 7͌!   6QU@ Home Read-after-write Logical disk error h, drive , block h error: Drive Drive not ready DiskettewNn"f#w>#&*&3Ol&4͵&_:&(:& :&g:&2& 4 & !&&x2&>2&:&G7G:&g 4 HI H!  "A"$ $I$$$" @  $  H(ͦ!U5 >2g!lFͭE>2fͦ!V5 !vc ElKw! w *`"y*b+6"~!w >>#>>Gx2Y wE 2:f2*[":Z2:]2! ͧ: >(>ͪͭ~#, Cylinder xx, Head xx, Sector xx, St@! H@A$@@H !! $ @BBI$@ @@ T@>O>Oɀ@ ##4#4+c:ZG:YG:m>:f>2g>g> 2g:g:fZ    !@DH!@ @$  @H@A$"@@ >xAy>bPχ*`+"y*b"~!w >>#>>G>xKQAatus=x :("l8 ! l8G>22x>ɗ2 9:;<!"#$=>?@ %&'(ABCD )*2#x2{=??2{2ty2": /:G:Y *[[R :ZG: :]G:(:>2f>2f2gO>2f>2S>2Tc>>!:oG(>2fͦ!S5 >2glKͦ!T5 >2g!"d>W>_2o>@  !@H $ H !" B H  H@! I I$WG>z>2fͣE:G:] G>Gx >2N>2REsEK(!N5 >2gwE!+,EFGH-./0IJKL1234MNOP5678>>O>>>>>>2W> 2X͎Ec~Ec! "b!"`l2Y*"[:2]:2Z^$V%F&   N#^#V":(l ͭl82y G>!G>i8  +| >>2oxA##  >2f >2fI$B@H$ @@ I$I$ B!$@H @@ DA"@ B" A B II$DQKͦ!R5 >2g>2O>2P-Kͦ:f !O5 >2gwE!P5 >2g*[:Zg:Y[!:oG(>2flK ! QK> 2gͦ:f( !W5 > 2g!X5 > 2g͎E7E>2U>2Vc~Ec!"`!"b!ZͭlK :=(= [(>2l! :=(= *>2y> 9  ,͍{ x2Y wl8($! !I """"""""  "@@@@  @ A@TTBH@B2m>}>> 2Qc!"`!"blKͦ:f!Q5 >2g!v:f!O :g!!;6! T˿TT>e> e:%:&:'>e>Oe@2%@2&@2'@@GG@Grhš:U ͸(*V>2U~#"V~ 2Uy2X2YE > 2[@2Z> ey2Zy2[!@- % !X:Copyright (c) 1978 CROMEMCO, INC. DUMP (Dump File) version 00.06 $ Record ELX CALLxxxx xx xx xx xx xx xx xx xx-xx xx$ "D "A$$$@@ @A I$HH@A$A  @D yeUUUU@UB !  $HD$@ I$I" @ @I$!"DH @:ZG!(~((#~#fo(pqrstuvwxyz{|}~onml^jk_>e!hy- % >](O{(FͰ>e xx xx xx xx xx xx ................ 8*% !\5]ʚ*H}*FDM#"F!S>ez-!o0$~GG!o0$^#V#~>exeEHDCABKJbc][iI0PQMLWX12@RSZZgh͂6 !J*HDM"H!]2##e9#E G>.'!] ! 0 T])))_A: B: C: D: E: F: Stat/a *.* Stat Stat/b Screen Xfer/v Debug C L$ G/r$(0) Stat/dt Basic Xfer/cx Xfer/at prt:  ?W!>/wmʰlʰdͰ:>@e;Ͱ~( (e#>eGͰyeGͰyT/ >(i(kÍ>0Í> 2"`i|>-*/|x0 *w#"ɀ :=Xh]eoghyg]ehir8:<>>e>.e>9e@(>:Uȗ7h(U$@D $@H !BBBI$HH@H@DBH$I$ @DHBII$H $$ #|/g}/oz{! *))))o0 x9yGBx0:w#+w#͍!y ʂ ʂ ʂ ^͍>@h!\!\:\ <22:l(2ͣ&bF#"T!~( #N*T~ #N*T#~ >!! 8y ( 0<= =/2g+:_ o0R:|ģ!h͌:h7M8M :h !h"t͟0 %]l!!"k!"iO͍!¦œwO<  qѷʔ2:͈ʔOS^!)"`*"r2_ɯ>@1G x8 y8!(!"X2{>0 1S>0:{(!`S | !A8%h *Z#"Z:h( ͟ڗ:h ͟8>2h2hy ( ( ( M >2^*Z#"Z:h *Z#"Z>2v:h %:h ͟8>2h !#N#F#~g>o Nʔ_> # _6! w#p#q! S bk## 6@w6++6#6668ڗM ]!S>2g+:_ o0Rͣ:G:2x2&>2g×]l͙1r̀a (>ʧʧ_ʧ* O 6#< !%~#2h:g " H !NS%7m;x+ H A 2^2d2w2b2g!"Z2hy *Z+"Z%M ͟ڗ:h ͟8>2h2hy M :h *Z#"Z:h( ͟ڗ:h ͟8>2h2hy M :h w# !~:#~ ʥ0ڥ!»ã#¼6#w#w++îRDRPUNLSTCONPRTDUM(^(ʗʗjO yAOڗy  \ 2h͟8:h ͟8>2h2hy >2h2h͟>2h͙ a Ĕ wk!>>!v open error write error close error create error >2h*`"m*r"o+)8>2c?E >2V>2Wy!S>2Vy#S>)2V>2Wy#SY:V%Copyright (c) 1978 CROMEMCO, INC. G !!!%"!S2z2q2b1!!"k!"i:] h!e !SN #!b(×!S!bS !`1G]>2d!h͌*[r)( M8M +:_ 4o8*)R<*r[`R)8 @w#6:##6.##6x 2w# # 22h͟>2h /\ ɯ2h͟>2hy ( (  pp\ *r2h͟8y (>2h>2h>O>ɷ2^!%4~#>^2>!%6T~,#w+\4~#+8wO<  ~vW:W<2W_]l:_( !S×>2w2v+o82hM >2h×:h +×*Z|ʗ͟ڗM >2^*Z#"ZM ͟ *`"m*r"o !S%]! ×>2w*Z|(!]ͤ8M ͱ×|:h(͟8y z ͟k6*k~(#"k7O*X~(#"X7*e~(#"e7O*t~(#"t7OS rYyN(n :^( *m"`*o/]!h͌!h"t8Ͳy8(=—=ʗ͙ڗ<(&>(%F(I(N(R( S !h͌!h͌>> G0 ?:h7r! 02h!:x<q:x<2xր 2xChw ww `2|P(>2y :h2z×]!S*r[`R+ʹ!S×]×>2^*Z#"Z:h *Z#"Z>2v:h 1:h ͟8>2h2hy ( ( ( S>2c2g7a O :h2hͲ02h:h>2hͲ02h͙- 2h͙# !"ZÙ 8!T])))O ͙8 0̀x8͟8>2h2hy z *`"m*r"o!>- % = :h>2h82h2h7͟ y ]!A—:"r:h*m*`)(8*o>2h͎ 02h:h2h!g>#~ !hw#~O #:h!-S%:c!S>2g×r!S!h"t8 " r:h *`z8{0N+"`*r|8}0N#"r7*Z+"Z|:w×:b(*\~ ɯ2bT :!S>2|͕mh!?!!H?!?!O!X?!?!H *Z+"Z1M ͟ڗ:h ͟8>2h2hy ( ( ( M >2w]*Z#"Z!!"k!"iM ͟8,8-:h ͟8>2h"Z| 2h7͙8(( ̩Aͱ6> ͱ> w#!~0S#S'd >0B8< r*|(]!h͌\!h͛0>2wg8O0×!S%!h͌:h7!j ͌!j "eM8e:h2h*Z#"ZM >2d!h:h*r2h͟:h ͟8>2h2hy >2h ! 02hy :h*`>2h͟8" :h ͟8>2h2hy q(2b> > :h *`z8{0)N+"`*r+"rq*r|8}0N#"r*`#"`q7Sy (u*\ (/(9 (@(_ 8 m!)(S#My^`?!?O!??P!'͕2x:x(!:S \2hy M ×!S%]!S!h(!h~ʗ_S(-~(#> 4!6T>2q !h! 6 ×2q×r2h͟8y !]>2h! Gz {x)w#o$:z( a{ YS:h:_ =>2h"t8͟>2hͬ8ڗ2hM *`"m*r"o:h !j "eͬ8͟ %>2w*Z#"Z:h(2M ͟0× :h ͟2h! 02h*kq#"k*i+"i| 7S+6+>w #~#<6r!h"t8Ͳ89Sy(,Ͳ ,:h>m!)(#@O`2b!  + )(&+ >G*\k!)(  # "\` 0r%  *=(<2S!<~(ѧ7\P\>2S7Goodbye Rewinding file Type a command line to be executed by the M >2w*Z]ͤ×<(1>:{ʤ=!l!<^#Vz(+s#r#^#VSXY!{5Y:{ !S%!l!<[Zs#r#[Xs#r!{4Y=(8-8.O8":h ͟8>2h2hy 2h2h7!S>2_2h7!`:y `=(<2y!_<~(ѧ7:h*8>2h2hy M *Z͟8&:h ͟8>2h2hy z >2h*Z#"ZM *o! ڗ :h ͟8>2h2hy 2h!h"tͲ02h7:h )' [9 :h )Ô [î :h *r+q"r*`#q"`*r+[`)(:g ! command. !Obliterate Text Buffer and rewind Input File (Y/N)? Discard Text Buffer, restore Input File, and quit EDITOR (Y/N)?Yank lines and put in Save Buffer Z set tab Zones +-n move pointer and type a line = if equal proceed with command ill lines of text +-nL move pointer over Lines of text +-M execute/set Multiple commands nN find Next occurrence of a s> G> ~ #G8#+F#~p(O#~ ` Oy\h((\˨y h o 80Output File Write Error Illegal Filename Cannot edit file; rename file BAKCOMREL New File $$$List of all Editor com(2A^#Vnf +" f #>v(<2 n(˷n(2 " ~!=2 ]f% Hm! F File not found Room for more characters in buffer Save Buffer Full Use space bar to move across line; set tabs with "T"./ if not equal proceed with command ? print list of all editor commands tring O Obliterate text and reopen files +-nP move and Print a number of Pages Q Quit edit with no changes R !~#6! #6+ˮg |(>-!'d >/0!ŧB!B!!=  1 2 3 4 5 6 7 12345678901234567890123456789012345678901234567890123456Read a file into the buffer +-nS Substitute one String for another +-nT Type lines of Text on console +-U set/release Upp))))o0 Ʌo$R&#|/g}/o> 4s 4d! >RR@(+ (# * Delete characters from buffer E End edit, close files, and Exit +-nF Find a string in buffer nG Get contents of the* f(* 0S != * f(5* 0* f(* 0[ 0-" : (>f 78901234567890123456789 Macros nested too deep CROMEMCO Text Editor version 00.10 *?All text now on Output File Cannot f+Copyright (c) 1977, 1979 Cromemco, Inc. 1% ajͼ1% ;Zp͍qͻÎG x8 y8ʹ2er case translate V Verify remaining buffer space W Write out text before pointer +-nX eXpunge words of text nY "O : 2] ! "@bÎa m :2s ʹ@!"@Initialize Disks version 02.13 $Press: RETURN  Save Buffer H close and reopen files at Head I Insert text before pointer +-nJ Jump the pointer over words +-nK K!; >BB >20?!` >AA >302 f1 W _> ind "End of Input File Text Buffer Full "-" not allowed in this command " not legal here Missing ">" No Directory Space  2 !" : _ͯ! ^#V#A ~#(y # !(w##+w!  to supply default answers shown in brackets. CTRL-C to abort program and return to CDOS. $ Testing Drive:$ Initialization:$ Lkw  [ ! I>2 ! < > _z: : 8: ( d 2 : G:ҕ<2 >X : 8d >2 > ** :w* : w: 2 G : W ! >NN(: 2 : _ S! >NN(: 2 2_dpeat] ?YNRIncompatible with this version of CDOS Use single-user CDOS . or higher error: Drive A, Cylinder , Surfa kG=OqkC* "zS|"[  !ykZ= ʹ@22abeling Disk:$This portion can destroy the data on a disk with no chance of recovery. Press ESC during initialization to abort  P: * Q: w: 2 7 Ͳ : 22 G>[ [ >2 ! < > _z: : 8: (d d 2  :_<2_~: (g(Oo(I~2 22#^#VS:  w#[s#r#{w#s#r222>2!9"5 ce , Status= Initialization was aborted just prior to writing Cylinder H, Surface Diskette in Drive A is write-pr22>2.8V! >NNʎ9"> : 8>2 22* """*8¨j8s[ !the process. $ illegal cylinder number $ second number must equal or exceed first number $ fatal error $Cylinder, Sur : G:ҕ<2 >[ : 8d d >2 >  >[  >  * : * : w7 * 3>048d 0252_d:^(0 :_<2_͂>wd:^ : 2 a> : 2  !9"~( y2^otected $9$> i_zu>͂>: 8: ( =2 2 [ *ҕ#"": 8>2 2 ! !"* #"face: restore $$H, $ $Disk to initialize (A,B,C,D,E,F,G,H) ?First cylinder (0-xxxH) [0] ?Last cylinder (0-xxxH) Init$Seek$Completed $͓'!˦! ˦~228H±zH @ʣ2ÿOxy 0d 4002 7ÿ:A(!= : Pﰱ4>d (y!+} !` d +} be:_o&ͩy>(J 8O~2#^#V(C!]89S o& $ _ W !|">/<s2 2!! : (>2 : g(e  : 2 7 : 22 G>X!~w>G>0!~w>22> 20>22> 222<2.~ !5:22* [s#r[xxx] ?274C161H) [] ?9FSurfaces (0, 1, or Both) [B] ?01BSurfaces (0, 1, 2, or All) [A] ?2AContinue (Yes/No/Repeat) [Re±ͪʹ>G>"=G0({ !`#(({ `kDM !xXͪkͩkx0  :_=o&^ e:_o&ͩy!=(u~U >2^* 0SS!y2cd!e~G(!#~Dw!e~G#~(P!f"]CaS_"]Ka[_*]( _Gng $Memory-to-memory DMA $completed correctly $not working $Read error: alternate track register $Do you wish to initialize V:G:G:> :>2>g> 2:: >2>22O>2>2>2Vͼ>>te tracks (Y/N) [N] ?YN cylinder (0-15DH or Unassigned) [as is] :now $ cylinder: H, surface (0-2): 9FU2 il5 >2j8!, D>A!5 >2>2> 28Vͻ8V!5""!"͗_> !5"D>> 2A:( "!=(* 0{2[46:( !|"!5 >w#]T> 222>25>2 ( p#H *]O~(Gyx (#˸#8˾8(#ya{0_?>> drive anyway (Y/N) [N] ?YNIncorrect operation of WDI and hard disk $hard disk fatal error $Bitmap written to disk $T !:G(>2A!5 >2_>A!5 >2!">W>_2>G>i8  +| >>2x Alegal cylinder number $ illegal surface number $ cannot be assigned an alternate track $No index pulses being received !5 > 2!5 > 28*8>2>2Vͻ8V!"!1 "!1 ._>(A!5 >2!F.8>2(!9"5 5 > >25`2.8 >2͘8H± Alternate Track Declaration:$ alternate track #$: $cyli>>O>>>>Pϳ>C( = z {?>70BB0 = ɗ2cͽz(:cG> :cG>   >2 >2!:p!O ͡:!!;6! >O$Index pulses being received correctly Rotational speed: $ RPM $Overflow $ZPU clock must be set to 4MHz. for correct operatiA!5 !V8_>j! *"*+6"! >>>>G>xeAy>nder H, surface unassigned $invalid declaration $ all$ no$ alternate tracks are now defined $Alternate track table >> 2V!"!, "͗_>A:!5 >2>2>2u>A: !5 >2j8!5 >2ͼ*:d!eF#~ 0 y2cd:e(:f D0P2cͽz(:cG> :cG> d!eF#~ 0 >O͖ɀ@ ġ##4#4+on of hard disk $Illegal drive speed (must be 3600 RPM +/- 10%) $PIO's and direction control transceivers OK $PIO's not workibPχ*+"*"! >>>>G>xQAWG>z>2written to disk $Do you wish to re-declare existing alternate tracks (Y/N) [N] ?Do you wish to declare any additional alternag:ͣ!:G(>2_2> }> 8:/ G: G>Gx >2>2988>(! 2͊!ͷ22> 2͘>:(b:=k ͌L:=͋ Paget!p)C!fR(!jͧ;QULExit: Quit Updat Insert Jump Move Other Page Substitute Xchng ZapEdit: Beautify List Other Read Verify Write@BCDEFIJLMOPRSTVWXZ <,->.+>> : !ͷ*A:!<(͢:C!ͷ!ͷ*:!G: C!÷!÷!÷!& Copyright (c) 1979 Cromemco, inc. 1!E2(2$<2'>>2éCROMEMCO Screen Editor version 01.05 e Quit - exit without updating file Update - update file and exit - return to editor  XC1 < QL L Og+;;!4~!2ø:>( a(8 gͼ(K p ( ( 0͖> !^ (: :(WC~#~ <ŗ _0_!͏ { 0 >^EHCAKJFlmP  tãt!~>>w:25 !)G4͉(" (_6 (6 ̢*:'"' ͍2[:ͼ(8͂!']:(2bͼ(K :͌=>͋(8 :͌:G:'<8͘2U:'=(2':U4:U D:> a(8:(͏ͽ{@ͽ!'ͧ󀁂 tA v|͉(!_( ~#{ y͉ ͉O͉ y!ͦ!ͷ({ z S͊:(ͥ:ͷ!ͷ(25( ͂;͍D͚!~ͤO~> (8> ~͏y0Insert: :_:=:5 WCJ*[Ԥ͌ ͼ(8:(͏=0<͌ K:> >͋(8 ͼb(K >>><24͊::(~ > <͑G:L:U 2!)42U!^R(82U!ͧ;Edit: @ Copy Delete Exit Find 0~#͓0=4 >[R4[!? _͉(16 (0Ͳ8+ͫ8&͇ O͉((6 (/͇ (8(w͢:!wʹͼ4>ͪG0 ͢a~#:!G(( (A7:] 0~ ((#!$͜#*%RH %!&RH %DRead: file not found!8͍ʹ> zP8 ( a(ͼ O~ #*[R(S!(N͓q:a͘a!$ ͘ͼ!$ *[R|:$ (0 G!$̈́ <0>2U2?8!ͧ:U(2Uͳ!~>>w! )4A4!3!'5 4aa8/z!3P0!:(O> y !3͜!/!':4( ̢5ͼ0:(͏0<<N(p;! (! ^I^M(ͳ yͳ  ܖÖ! 0 ͉Q(q( ! !$I [C! C!$D ~:'Oa(0 y2A1 CpC*L!Ljxxxxx!A#(ͫ0"0oAͫ0T])))0ͦ!!@O()1͑a(͝( > ̝( !zP8Write: to &͉ (6 (8!%!& !!z͜$0З!W ( ( 0 y8O?zɗy*[R(9:!zͧ!( (( ($ 055$[S:w(U( (R (O8a ;G['0S'y*+w*(x (< (."'t2ʹ͎ ͍͚́S'{ |0q=7GN1?!):O0>{>> !A͔0!y3!z;Set Marker: :O!&>,D ȗw2g ʹ\ x Y :0 (TD! # C4 C(C͑ ͉!- ͏ ;~40A"ÏͲ0_O~ȹ(#w# >G!&ʹ( Y0N :(?<[! [! *R0   x(PY~#͓z y2(Y[8ͼ0aGͼ(ͼ(0  > ͼ"':(ͤGa['8z8 (S'ͼ['Xchng: ! ͍(-ʹ1> $ 2%͘(a(  !zP8Gx<8!!)z3PԜ3Pԧɇ! ͦ!Hͮ1Jump: !j͍1́1͍DZap: )!!:$G!&~(x0DF#~*wa(G8ʹá͍ͼ1> #~Substitute: [Query] , sc> <,->.+=XI|k( :27( ;:>(d(!>>( %!)!%4 write errorA['C!A:?2'ʹtp͢b:'=k<2':ͪjʹp!ay yGa(0 y A+4 A+5N !z~!~1:ĕRЗ!(5[*B> $ List: ( ( ( 8!!%4_$ !%w> >  ~ >^ @!.R"%&! )O! !&T!!ͮ>,ͱPʹ pA!͏(!0!͌03!(!;12345678BEBegin End 1 Query :Substitute Query: Yes No YN!h !$D ~ȗ2g (1ʹx :g DFind: :> ( ;0:7!0; ;0:!70 ;0 :>(:ͼ8(/!zP0 ͂ͧ4 R0]!([ͅ[0!͜|([R8*00:G!(*R[8|(͜ˎ7!N <&͔*:o ~# ( "<&S`˯2>  !!*R"]&̈́ o!\<&}!E&:l(2<&2!<&~=_=2:_]&}!f&Ô! !5 !!l<&}!!$(s8 $ 2~&ʹ$( (&:~&(͗$$(H$( ͂!( ͼ͂! ͂!(ͼͼ͌$82~&ʹ$($(ͼ͍́2.W???!zͦz͌z<͏!8!_):G1>  { > :G>1:8>0<&!z :G ^#> 0it ) unit ? ABCDEFGHBAK A +w +3zP$)>! !2~&͍"$&zP0*$P8*68[060[*[R(=DM*R(>S8S *S+*B"*B"""""*[S:O(>w<&!<&!F :& :<=A!͉!͏(Ѻ ;_A{T[C:G!&^ A(0 (/ (_T(;7 s#^!&z LA{wSet Tabs: "&!&"$!~&ʹ!&1!z[$P0!a(_!$͜*$s#"$.R8 *$&R !~&N(ˎ*&"$!z&DCopyR*[RѧR6!"z"|*""""*R<<T]0!͜[*R([RDM[*S(+S>2w :_:& {! ˎͧ<&!^ w!<&L&!$&U&2X&L&(5:<&(,2&!&+&!4&+&ͅD!-1*>w#*ͅ[0!F(#[]&( *7͔!ˆV <[ܼ͍2&!~&6Beautify: [Justify] Margin Justify :MJ F:?"!"g#:@"!"g#:A"!"g#!")A (Y_!?"P(!@"#b!(( 8 a(0ͼɅo$0?:A?[a?{R͘*|+"ɗ2'd >02͕2*[R[(@[R[([0S+SSSSS*[0#P&(/<&($:O(<&]& ![! !n!! rename error incompatible vers& &*T]~(# (S!7:O(F*B<&(%*T]+~ (S! (ˮͅ!L(!A"*R(;C!# #8Fw:A"0O:?"0 ( :@"0 p;B"Beautify: Paragraph(xxx) Left(xxx) Right(xxx)   0 > >2*[R:GW <ɗ!xI yI.!]~ N+&}!m~ ( ] $&S$ɗ2~&2&!"p:&([ C!."CA!<"W͏((2&B"z͢!z1!~:A";o&{#!}# M!-ɗ>008>!DͶ Dʀ4>>(>0400Gƈ048W{24 z4>ȗ+Gw|?x€>+Gw|?x˜<À+G|?x¯>+G|?x<ïG|g}|78IG:-p{x{xs#x ] xÄz@go7̀|gͯ|g͘|g|gҷ _ʷQX:G!-:@:$( !(> ܥ$ʹ$ ($$(ͼG!(|$ͥ$:$ ͍<$ ͼͼ́ͼ:A"!((aͱ$([$ !H$~/w "A$ͼͱ$(O7 3 (CARD ) -0- -1- -2- -3- -4- -5- -6- -7- (BANK ) UUUUZZ... #<< 16KZ MEMORY T{PV=Dr>#x >2G~#@.:@TTT!N -> @:!͇x:߰6>786G:&>!8#G:?>78G:_4CON: PRT: RDR: PUN: PAR: SER: TYP:  Device -:O@-!"."(.#">!Y2" !2"2 "!20"128"9e͸? 6ϗGOgoW_!>>!->$ ͣ$=(6ͼ$(ͱ$ $(8$ a$(ͼͣ$=(ͼa0 ̌$ͼͼ(#$($ 2&a ̌$ (ͼͣ$~EST disk version 00.06 CARDS: BANK: (BANK , CARD ) FAILED M1 TEST. This card appears in banks: **** ERROR HISTORY **x|G0Җ ))))o~# x  ڵ0 @w# x͸# x=&specification error $7~7 #~ G0ظ?G x7;   ;   ͏( 0@WF:FO@pz@~y@> @>.¢{@z҃k>2G!-s!G-:G*N~wn͸ç!O"N2*N#~W~{#+Copyright (c) 1977, 1979 CROMEMCO, Inc. 1g#@:_!ͦR::i:I:Y:S:I:G:G:G:$> > ͼ*6 a*+6 !(6> !(N͓qͼ8 G:$!(xaPa "'}]).?! &** ****  x%@ʌB!H-@!H-K!-P~ʃ{n!-0@!-Ԭ@>.@> @  (,8(028<028<0G:W:_/( (88(( 028(( ~2EW>2F@#~W:E02zͬ2O"N!G?͟!0p#6:#> w#w#&_w#W6 # l6 6 #nE>?@KG:G:G:IABDTSL!~#/ Fx!~((####^#V>#~08!PCx87 y80x2y21A>2AA;;"A"C  ~+ x;3*Co|g*AK1A4!q-!Pk6~!-: ʤs6{#{xs#! 028ҧ(d0_:W:G.>8g}؇؅؇؄o>8 }ɗ<}0 ?I2!ͩ;Ͷ͜:!( Ͷ8F͸͊ *C"*N"*N"*N"*C"+ :((j 8F ͉ V(:\G^V !!  :\G^V  ! P:\G^V !!~= !>8)8MD)8b,ͻ[E!G,z:  72! "* ":< 2~(:<2#j2 2 -!H   @!!!!:!O:!(0x0:!( s#r#s#!!. 0!! P>O Linked cluster $Illegal cluster $Illegal filename $ #~~ 8, ('x (0 #~ (x(#~ (7   Label not written $ Label written $8~(( Y(7ɧ The directory is not empty. Can it be Q͊8͉ ͑ *[NF888 # x  @  Bad bitmap on disk has been corrected $ Filename ext Clu)8 8O 8 >8 ɗ<7ɗ>2P  Q S ~ (:P ( u  R  (NZ NE ~ ('( ##~'(a{_'û*: ! i7ȧ 2 ! " *  " : < 2 ~(w/wGwx:::{!Name . . . . . . . . . . . . . . . . . . [xxxxxxxx] - $*!&>0u*!&>0u*!&>0uz2!x2!{2!D8`?8! W~((#z>?7*,./:=?ͳ ~(>   > } >H> ͳ | }cleared (Y = Yes, N = No) - $2!v~( >2!>D>S2g gS(D :!x2!>2!g͈  Single or Double sided ster Error $ n^*V+n,&{K%#CNF[%#*%# "%#[HҒ:\G z #! MD8<  >2 |> = >=  : g$! ^#V:\ :<0=2#C~#fo( :_ 4IG7G2xG2xG2x2!*Ͷn f "[R"~?o&"~02~12~22C"Oate . . . . . . . . . . . . . . . . . . [xx/xx/xx] - $:!o&))" * >> u 28 @H8H0}2!͔ 80NF888*%#" [HҒ" [HҒ"%#*N*N2F * ~(^diskette (S = Single, D = Double) [x] - $!IZf( !QZ2cx2by2df n(:!(v(!y ~24Disk read error $*"t ^*V+n,&NF[t *t "t :\G z #! MD8ŗ<v 4Disk writenvalid disk number $ n &""8a*#"F > 0>2n*C"V(q*C"Q͊8n*C""[R"n3&"͚PAR:SER:TYP:G~((######>(>)bk6 ! P +~  :g͈ Number of directory entries (64-512) . . . . [xxx] - $:! :\G:!!SS(!DS"z :!2:<22 2SYS DIRne#~2h#~2f2g~(͔!Y !Y :eĔ#:fĔ##~2hUserdiskHarddiskUserdisk error $> 0 #+  ~(^ ~(#V(#z(3z(nfH8&*(# ͪ  x#  >!C*>0͝*>0͝*> u*&> u*h> u*> u* > u*N> u*>!S%#4 Out of memory $C?xO"7S9H "=bk A8";*=BA(0"=[;H8eeR[=*7~^#({#>  $ew@r us~#~~ #> ~~ #_   $ory xxxxx K PRT: = Printer 0 xxxxxx Operating system size xxxxx K RDR: = Reader 0 User memory size 88*#"͓(*#"_*#":8w#:w*%#[## ͭ8*[N8#z( }+{+::o& }+{+<0_~C# o$Rr# x January$ February$March$April$May$J u*> u*> u*> u*> u*O> u*r> u*%> u*q> u*(> u:F81RѧR0*9*=B *7*= *7[9*=BͶö4! ?4xK? ( # ( #+w#h A[  ! Press any key to continue $:*}8 { }2{} <2{}8<2 >222:O xxxxx K PUN: = Punch 0 DISK MEMORY: DISK CONFIGURATION: Disk label CRO#:O"*T> u*`> u*o> u*> uQ***xxxxx Files,xxxxx Entries, xxxxxK Displayed,une$July$August$ September$ October$ November$ December$Sunday$Monday$ Tuesday$ Wednesday$ Thursday$Friday$ Sat*I>0u*L>0u*O>0u>-2K2N !I Pwf( Ùv n {0|( >*{ 80|( >*>C( = z {?>70B:O:O*B"*"!:O"!:O"!:O":7=2*":7=2*"MEMCO Cluster size xxxxx K Date on disk xx/xx/xx Sector size xxxxx Total di xxxxxK Left *** $DM~2! W(+~2! ~2:] !]? PF #] ?( # 7<'# urday$ , 19$ $, $ er TIME (hh:mm:ss): $ DATE (mm/dd/yy): $STAT (System Status) version 02.09 $ $ SYSTEM ~ v *"*~/w /w#| +#"*[R"+|?,  u >K> !MEMORY: DEVICE CONFIGURATION: Operating system version xx.xx CON: = Console 0 Total system memR"n f [R"͚*.> u*x> u*S> u* > u; SC2*%#"ͷ!"""X: :o& {02}(02 :o&}02 {02  ɗ<2x2i& }+{+::o&  xxxxx Disk space used by files xxxxx K Directory entries left xxxxx Disk space left xxxxx K $  :ʟ2ôʫ͜®!5:ں2!"x®!5:_i :Qʽ:Z &G:V=x x I m:R\x> !I~\ !I6*N#"NZY!ͭ/>#~>~ >~!*E"G\:] ?2\ͭ~=v#"E!;! ~?v#h>2[  DRIVE: $DISKETTE: $Single sided, $Double sided, $Single density $Dual density $Double density $ User memory size Copyright (c) 1978 CROMEMCO, INC. XFER (Transfer) version 01.05 $LCD ; AND FLAG RELOC. TYPE MOV*! î#yx :7ʮ=îSystem written and verified$~# \F#~ >x>)î*~#:Vʍ> ú:Wžxúx ʩ ¯ú>^x@!I4O:^8i 2AG:U):P>2P!͔:J!fKCopyright (c) 1978 CROMEMCO, INC. WRTSYS (Write System) version 00.10 $*% !~ #Z+/i#~2!lY2:l!\:[O½:[ZvNo ambiguous files matched$~{ ~{!;:2!͔!_ͩ !a~@$ xxxxx K Total disk space xxxxx K Disk space left xxxxx K Directory entries left xxxxx $ON,ight (c) 1978 CROMEMCO, INC. XFER ,sfer) version 01.05 $LCD ; AND FLAG RELOC. TYPE MOV>! ~4Ҋþ:±>:4ҮþG! ^4G"*" *LDM!hͤ x!nͫ y!qͫ f A!͔{!, *L"L*J#"J:^wk :Sʵ>2^:[ʇ:P{Y2:\:ʞ25FF open error$create error$read error$write error$re-read error$verify error$~w:X$_!͔:[Z>2[{*G\:\A!] ;!] ~?Qw#I:^u!\>$$$ͩ ͯ Ð!\:T DRIVE: Hard disk $sk space xxxxx K Disk space left xxxxx K Directory entries left xxxxx $*% 2]x'v*!,t |22|g>o,"!\~‡#~ ‡22^!~{!+6  !i ʕO:Q2y2:]k :Tʩ!͔ø2![~Z62^:S{:T{>2^{:e!;\\!lSwap disk in drive and press any key $ $Illegal device specification$!"xg®R:S‘ &>$$$ͩ !"J"L"N2P:]_k *E~T#ͭT:[Cv"E_ͩ :_ʠ!a~@ʠ~w:X  ~{6!ͭ~/š#~!ғͭ"E2I2[2\!F#^#V#~­:W!Vw!R!Qw:T!SNwy&>2^&AQTRCSVTSVFWXURXIZ ;!e6$#6$#6$\vCannot erase old file$:Yn*L*JH+ej>)Nlg#~:Qn*N~ ʁ {͗ 6.#͗ 6x ʦ w# —  ¦  I #0 6#w#w++J " RDRPUNLSTCONPRTDUMʁ @w#6:#ʣ  !%4~#> ʣ >!%6t j ~ʝ #w+ 4~#+© wO<̀ ~  O>ɷ Copyright (c) 1979 Cromemco, Inc. 55 Rem * 60 Rem ***************************************************** 71z{! ͜ ))))oÉ 0 xͫ yGʹ x0:w#+w# !? y ^ >@űO !?  failed compare $ length compare error $ compared OK $Illegal output filename$ lines read $K-bytes read $ read protectedʣ  !%4~#> ʣ >!%6t j ~ʝ #w+ 4~#+© wO<̀ ~ ̀  Set 0,-1 72 Imode : I=2.5 : If I=2.5 Then Run 73 Close 99 Rem ------------------- 100 Rem declare vari  wO<̀ qѷ 2j :j  ʠ ̀ O $ copying $File specification error$Incompatible with this CDOS$Cannot append to an ambiguous file$xxxxxx xx xx $ D!#N#F#~g>o N > #“  6## ! w#p#qbk## 6@w6++6#666w# ables 101 Rem ------------------- 110 Dim Sector$(127),Header$(47) 120 Dim Q$(0) 130 Dim File'msg$(50) 14 ʍ 6#<Á !%~#0> 2!~:#~  0 !S /  I #0 6#w#w++J " RDRPUNLSTCONPRTDUMʁ @w#6:#0 Dim Misc$(100) 150 Dim Nmlen$(0),Varname$(40),Vartype$(0),Varmisc$(20),File$(30) 160 Dim Pnmlen$(0),Pnm$(40),Svlib!3 >>!$ l g ͓ g ͓ vj !L open error write error close error create error  O>ɷRem * Library Builder for Cromemco 32K Structured Basic 45 Rem * version 00.10 -- October 28, 1979 50 Rem * q "r `i| >-R t 9 9 9 9 9 *r /|< t x0]  *r w#"r ɀe Q a :q R y #|/g}/o file$(30) 170 Dim Phdr$(20) 399 Rem ---------------------------- 400 Rem initialize variables, etc. 401 Rem ********" 1600 Gosub Wait 1620 Goto Restart 3000 Rem ************* 3010 Rem * 3020 Rem * Q -- Quit 3030 (Q$)=0 Then Goto Bad'select 1200 If Q$>"Z" Then Q$=Chr$(Asc(Q$)-32) 1210 Sel=Pos("VIADCQ",Q$,0)+1 1220 If Sel>0 Thenrocnames 5380 Close\Svfl\ 5990 Return 6000 Rem *************************************** 6010 Rem * 6020 Rem *BASIC Library Utility" : @ 1110 Print"Select a function:" : @ 1120 Print"V -- View PROCEDURE names within a SAVEd progra: @ 5080 Svfl=File 5090 Get\Svfl\I : Rem get the check word at start of file 5100 If I Then Goto Ok'to'view 5110 ---------------------------- 410 Screen'clear$=Chr$(27)+"E " 500 @ Screen'clear$ : @ : @ : @ 505 Print"  Rem * 3040 Rem ************* 3050 *Quit 3060 Close 3080 Print"-- ""LIBBUILD"" terminating --" 3090 Goto The'e Goto Call'function 1225 *Bad'select 1230 Print" invalid function request...retry..." : @ 1240 Goto Select 1500 Re C -- Create a new procedure library 6030 Rem * 6040 Rem *************************************** 6050 *Do'create : Prim" 1130 Print"I -- display Index of a library file" 1140 Print"A -- Add a SAVEd program to a library file" 1150 Prin Close\Svfl\ 5120 @ : @ : Print"not a SAVEd program...command ignored" : @ : @ 5130 Return 5140 Rem 5150 *Ok'to'vi Libbuild.lis version 00.10" 510 Print" Copyright (c) 1979 Cromemco, Inc." 515 For I=1 To 3000 : Next I 1010 Rend 5000 Rem ***************************************************** 5010 Rem * 5020 Rem * V -- view proccedure names wm * 1510 Rem * call the selected routine 1520 Rem * 1530 *Call'function 1535 Noesc 1540 On Sel Gosub Do'view,Dnt"-- CREATE --" : @ 6060 @ : @ : Input"What is the name of the new library file ? ",File$ 6065 On Error Goto Errcreate t"D -- Delete a module from a library" 1160 Print"C -- Create a new library file" 1166 Print"Q -- Quit" 1170 *Queryfunew 5160 Put\Svfl,0,0\ 5170 Gosub Read'header : Rem get the goodies about the file 5200 Nfile=Svfl 5210 Nbytes=Stm ***************** 1020 Rem * 1030 Rem * the main menu 1040 Rem * 1050 Rem ***************** 1090 *Restart ithin a saved program 5030 Rem * 5040 Rem ***************************************************** 5050 Rem 5060 *Do'o'index,Do'add,Do'del,Do'create,Quit 1550 Close 1560 Esc : On Esc Goto Restart 1570 @ : @"******** end of function  6070 Create File$ 6075 On Error Goto Oops 6080 File=1 : Open\File\File$ 6085 Svlibfile$=File$ 6090 Rem 610c 1180 @ : @ 1190 Print"function ? --->>> "; : Get\0\Q$(0,0) 1191 Print Q$ : @ : @ : @ Screen'clear$ 1195 If Lenasize : Rem ignore program per se 5220 Gosub Skip'nbytes 5290 Rem then show the names of all procs 5300 Gosub Show'p1100 @ Screen'clear$ : @ : @ 1105 *Select 1106 Esc : On Esc Goto Queryfunc 1107 @ : @ 1108 Print"32K STRUCTURED view : Print"-- VIEW --" : @ 5065 File'msg$="What SAVEd program to View " 5070 File=1 : Gosub Open'user'file 5075 @  0 Rem * now put out a blank proc library header 6110 Rem 6120 Zero=0 : Rem an integer value of 0 6130 Available=107410 Rem * now move all procedures that are defined in SAVEd 7420 Rem * program to index of library 7430 Rem * 7090 Gosub Open'user'file 7100 File'msg$="What SAVEd program are we ADDing " 7110 Svfl=1 : File=Svfl : Gosub Open'u end-of-library byte is written 7840 Put\Libfile,Available\ : Rem just to position ourselves 7850 Put\Svfl,0,0\ : Rem anecified:" 6820 Print" bad filename OR file already exists OR no disk space" 6830 @ : @ : Print"take corrective actionLibsize'err 7590 *No'move'pname 7650 Until(Varspace<=0) 7700 Rem 7710 Rem ** now we have moved all possible pr24/128 : Rem first available pgm spot is at 1k bytes 6190 Rem 6200 Put\File\Zero : Rem says this is a library 6210 P 7450 Nbytes=Stasize : Nfile=Svfl : Gosub Skip'nbytes : Rem ignore program 7460 Cnt'of'pns=0 7470 Varspace=Varsize ser'file 7120 Gosub Read'header : Rem header from save file 7130 Gosub Read'lib'header : Rem and header from library 7d back to start of saved file 7900 Repeat 7920 Get\Svfl\Sector$(0,-128) 7930 Put\Libfile\Sector$(0,-128) 794 and try again" 6840 @ 6990 Return 7000 Rem *************************************************** 7010 Rem * 702ocnames 7720 Rem 7730 If Cnt'of'pns Then Goto Ok'to'add'programs 7740 @ : @ : Print"No procedures defined in that SAut\File\Chr$(16),File$(0,-16) : Rem just put name out there for now 6220 Put\File\Available : Rem says where first availbale 7480 Repeat 7500 Gosub Read'variable : Varspace=Varspace-Vcntr 7510 If Binand(Vartype,%0078%)<>%0078% Then Goto200 Rem now position library file past all procnames 7210 Repeat 7220 Gosub Getpnm 7290 Until(Not Pnmlen) 0 Until Iostat(Svfl,0) : Rem non-zero implies eof 7950 Rem 7960 Available=Iostat(Libfile,1)+1 : Rem past eof on libf0 Rem * A -- Add a SAVEd program to an existing library 7030 Rem * 7040 Rem ******************************************VEd program." 7750 Print"ADD request ignored." 7760 *Quitadd : Close 7790 Return 7800 Rem 7810 Rem ** now m spot in file is 6230 Put\File\Zero : Rem end of procedure name table 6290 Sector$="" 6300 For I=1 To 7 : Put\File No'move'pname 7515 If Varaddr=0 Then Goto No'move'pname 7520 Rem **** we have a procedure name **** 7530 Put\7300 Put\Libfile,T1,T2\ : Rem reposition at the zero byte 7310 If Psect>=Available Then Goto Libsize'err 7400 Rem * ile 7965 Sector$="" : Put\Libfile\Sector$(-1),Sector$(-1) : Rem ensure no holes 7970 Put\Libfile,0,19\Available : Rem 19********* 7060 *Do'add : Print"-- ADD --" : @ 7070 File'msg$="What library file to use " 7080 Libfile=2 : File=Libfileove program from SAVEd file to library 7820 Rem 7830 *Ok'to'add'programs 7835 Put\Libfile\Chr$(0) : Rem ensure that an\Sector$(-1) : Next I 6310 Close\File\ 6320 Return 6800 *Errcreate 6810 @ : @ : Print"could not CREATE the file spLibfile\Nmlen$(0,0),Varname$(0,-Nmlen),Available 7540 Cnt'of'pns=Cnt'of'pns+1 7550 If Iostat(Libfile,1)>7 Then Goto   is a magic number, right?? 7980 Close 7990 Return 8000 Rem ********** 8010 *Libsize'err 8020 @ : @ : Print"Ine=Libfile : Gosub Open'user'file 15130 @ : @ : Print"Give the name of a procedure which is in the module" 15140 Input" y Svmaddr=Pnmaddr 9205 Esc : On Esc Goto Index'esc 9208 Print Tab(8);Pnm$ 9215 Noesc 9290 *Last'pname : Unt0 Gosub Getpnm : T1=Iostat(Libfile,1) : T2=Iostat(Libfile,2) 15660 If Pnmlen Then Do 15665 Put\Libfile,Svsect,S******* 9090 *Do'index : Print"-- list INDEX --" : @ 9100 Libfile=2 : File=Libfile : File'msg$="What library file to use " names or found right one 15410 If Pnmlen=0 Then Goto Nonames 15500 Rem * 15510 Rem * must delete a module 15520 Remternal error in library file." : @ : @ 8030 Print"Use the Index command to list all Procedures in library file." 8050 Prou wish to delete. >>> ",Varname$ 15150 For I=0 To Len(Varname$)-1 15160 If Varname$(I,-1)>="a" And Varname$(I,-1)<="zil(Not Pnmlen) 9300 Return 9400 *Index'esc 9410 Pnmlen=0 : Goto Last'pname 15000 Rem ******************************vbyte\Pnmlen$(0,0),Pnm$(0,-Pnmlen) 15670 Put\Libfile\Pnmaddr-(Nxtmaddr-Svmaddr) : Rem module moves this much 15680  9110 Gosub Open'user'file 9120 Gosub Read'lib'header : Rem open library file and read its header 9130 @ : @ : Print * 15580 Rem [ look for first proc name not in to-be-deleted module ] 15590 Repeat : Gosub Getpnm 15600 Until((Not int"Keep all SAVEd files which were used to build this library." : @ 8060 Print"You may try to build a new library using the" Then Varname$(I,-1)=Chr$(Asc(Varname$(I,-1))-32) 15170 Next I 15250 Gosub Read'lib'header 15300 Svmaddr=0 15310 ********* 15010 Rem * 15020 Rem * D -- Delete a module from a library 15030 Rem * 15040 Rem ************************ Svsect=Iostat(Libfile,1) : Svbyte=Iostat(Libfile,2) 15685 Enddo 15690 Until(Not Pnmlen) 15710 Put\Libfile,Svsect" ( ";Int((Available+7.0)/8.0);" k bytes used )" : @ 9135 Svmaddr=0 : Mnum=1 9140 Repeat 9150 Gosub Getpnm 916Pnmlen) Or(Svmaddr<>Pnmaddr)) 15602 Nxtmaddr=Pnmaddr : Rem addr of next module 15605 Rem [found -- move all succeeding dir Add command." 8070 Goto Abort 9010 Rem ***************************************************** 9020 Rem * 9030 Re Repeat 15320 Gosub Getpnm 15330 If Not Pnmlen Then Goto Nomore 15350 If Pnmaddr<>Svmaddr Then Svsect=T1 : Svbyt*************** 15100 *Do'del : Print"-- DELETE --" : @ 15110 File'msg$="What library file to use " 15120 Libfile=2 : Fil,Svbyte\Chr$(0) 15800 Rem *** now we have moved directory up...move program up *** 15810 Rem svmaddr = addr of m0 If Not Pnmlen Then Goto Last'pname 9190 If Pnmaddr<>Svmaddr Then Print"Module number ";Mnum : Mnum=Mnum+1 9200 ectory entries 'down' in file ] 15610 Repeat 15620 Put\Libfile,T1,T2\ : Rem reposition to start of next procname 1563m * I -- show Index of all procedures in this library 9040 Rem * 9050 Rem **********************************************e=T2 15380 Svmaddr=Pnmaddr : If Pnm$=Varname$ Then Pnmlen=-1 15390 *Nomore : Until(Pnmlen<=0) 15400 Rem either out of  odule to be deleted 15820 Rem nxtmaddr = addr of next module 15850 Repeat 15870 Get\Libfile,Nxtmaddr\Sector$(-1)  thrown away) 44050 Rem * 44060 Rem *************************************** 44070 *Skip'nbytes 44080 Psect=Iostat(Nfil************** 42050 *Read'variable 42060 Get\Svfl\Nmlen$(0,0) 42070 Nmlen=Asc(Nmlen$) 42080 Varname$="" 42090 Get\rn 46500 *Show'esc 46510 Varsize=0 : Goto Not'a'proc 48000 Rem ******************************** 48010 Rem * 48020 R*********** 40050 *Read'header 40060 Get\Svfl\Stabot,Statop,Varbot,Vartop,Lblbot,Lbltop 40070 Get\Svfl\Misc$(0,-36) 4009from 'svfl' and 46030 Rem * displays all that are procedure names 46040 Rem * 46050 Rem **************************: T0=Iostat(Libfile,0) 15880 Put\Libfile,Svmaddr\Sector$(-1) 15890 Nxtmaddr=Nxtmaddr+1 : Svmaddr=Svmaddr+1 15900 e,1) : Pbyte=Iostat(Nfile,2) : Rem current file pos 44090 Nsect=Int(Nbytes/128) : Rem number of sectors in request 44100 NSvfl\Varname$(0,-Nmlen),Vartype$(0,0),Varaddr 42100 Vartype=Asc(Vartype$) 42105 Varflag=Binand(Vartype,%0020%) 42110 Ifem * open a file as named by user 48030 Rem * 48040 Rem ******************************** 48050 *Open'user'file 48055 E0 Stasize=Binsub(Statop,Stabot) 40100 Varsize=Binsub(Vartop,Varbot) 40110 Lblsize=Binsub(Lbltop,Lblbot) 40120 If Vars******************** 46060 *Show'procnames 46070 Repeat 46080 Gosub Read'variable 46090 If Binand(Vartype,%0078%Until T0 : If T0<>1 Then Print"oops" : Stop 15910 Get\Libfile,0,19\Available 15920 Put\Libfile,0,19\Available-(Nxtmaddr-Svch=Nbytes-128*Nsect : Rem left over bytes 44110 Nsect=Nsect+Psect : Rem new sector position 44120 Nch=Nch+Pbyte : Rem and  Varflag=0 Then Get\Svfl\Varmisc$(0,-9) 42120 Vcntr=1+Nmlen+1+2+((Not Varflag)*9) 42990 Return 44000 Rem **************sc : On Esc Goto Open'esc 48060 @ : Print File'msg$; : Input File$ 48065 Noesc 48070 If Len(File$)=0 Then Do 48080 ize=0 Then @ : @ : Print"no variables at all in this SAVEd pgm" : Goto Abort 40990 Return 42000 Rem **********************)<>%0078% Then Goto Not'a'proc 46100 Esc : On Esc Goto Show'esc 46105 If Varaddr=0 Then Print" calls "; 46110 maddr) 15990 Return 16900 Rem 16910 *Nonames : @ : @ : Print"No such Procedure in this library." 16930 Return 40000 new character position 44130 Rem NOTE that nch may be > 127 ; but PUT really doesn't care 44400 Put\Nfile,Nsect,Nch\ 4499************************* 44010 Rem * 44020 Rem * skip 'nbytes' from the file 'nfile' 44040 Rem * (these bytes are If File=Libfile Then Do 48090 If Len(Svlibfile$) Then Do 48100 File$=Svlibfile$ : Rlherr=0 48105 Pr************** 42010 Rem * 42020 Rem * read an item from variable table 42030 Rem * 42040 Rem **********************Print Varname$ 46120 Noesc 46180 *Not'a'proc 46290 Varsize=Varsize-Vcntr 46300 Until(Varsize<=0) 46390 Retu Rem ************************** 40010 Rem * 40020 Rem * read in program header 40030 Rem * 40040 Rem ***************0 Return 46000 Rem ********************************************** 46010 Rem * 46020 Rem * simply reads all variables ! int" [ using library file """;File$;""" ]" : @ 48110 Else : Rlherr=1 48111 Enddo 48112 Else : Rlher Rem ******************** 90010 Rem * 90020 Rem * wait for any key 90030 Rem * 90040 Rem ******************** 901ary." : Goto Abort 50090 Rem 50100 *Ok'to'rdlib 50110 Get\Libfile\Pnmlen$(0,-1),Phdr$(0,-16) 50120 If Asc(Pnmlen$)<>16int"File does not exist." 48440 @ : Print" ...try again.." : @ 48490 Goto Open'user'file 50000 Rem *************************************************** 99000 Rem 99010 Rem abort a run 99020 Rem 99030 *Abort 99035 Close : Esc : On Esc Sr=1 48113 Enddo 48114 Else : Rlherr=0 48115 Enddo 48117 If Rlherr Then Goto Open'user'file 48119 On Error00 *Wait 90110 Print"[ hit any key to continue ]" 90120 Get\0\Q$ 90130 Return 98000 Rem **************************** Then Goto Bad'lib 50130 Get\Libfile\Available : Rem the real thing 50140 Rem 50990 Return 70000 Rem ************************************************ 50010 Rem * 50020 Rem * set up 'available' by reading library file header 50030 Rem *top 99040 @ : @ : @"aborting run and restarting" : @ 99050 For I=1 To 5 99060 Print Chr$(7); 99070 For J=1 T Goto Open'err 48120 Open\File\File$ 48121 On Error Goto Oops 48125 If File=Libfile Then Svlibfile$=File$ 48130 Retu 98010 Rem * 98020 Rem * oops -- unexpected error 98030 Rem * 98040 Rem **************************** 98060 *Oops 9******************* 70100 *Getpnm 70105 T1=Iostat(Libfile,1) : T2=Iostat(Libfile,2) 70110 Get\Libfile\Pnmlen$(0,0) : Pnml 50040 Rem ***************************************************** 50050 *Read'lib'header 50060 Get\Libfile\Available : Remo 300 99080 Next J 99090 Next I 99100 Gosub Wait 99110 Run 99999 *The'end : Esc : Scr : End rn 48300 *Open'esc 48310 @ : @ : @ 48320 Input"Do you wish to QUIT now (yes or no) ? ",Q$ 48330 If Q$(0,0)="Y" Or Q$(08100 On Error Stop 98110 On Esc Stop 98120 Esc 98130 @ : Print"UNEXPECTED ERROR ENCOUNTERED" 98140 @ : Print"sysen=Asc(Pnmlen$) 70120 Pnm$="" : If Not Pnmlen Then Return 70130 Get\Libfile\Pnm$(0,-Pnmlen),Pnmaddr 70190 Return 90000 not really...just a check 50070 If Available=0 Then Goto Ok'to'rdlib 50078 *Bad'lib 50080 @ : @ : Print"Not a valid libr,0)="y" Then Goto Abort 48340 Goto Open'user'file 48400 *Open'err 48410 If Sys(3)<>134 Then Goto Oops 48430 @ : @ : Prtem error number ";Sys(3);" occurred." 98150 @ : Print"must abort this session" 98190 Goto Abort 98999 Rem ***********" !! "߇,##7$2D!0ͽx:<2 2 : <*g:m0x ͅ#  ~# x#ö! ͯ#!I Ix!6S"X2x0.!IxM2 INCOMPATIBLE VERSION OF CDOS !! >22b: o&"0: o"2:% 2H:& 2F2ua7\P8u99~(,"((a7x(~-|*v=_~  :!mIxA-x DISK # x...0.......23ɂ33$d3مZ~333\22224.......5555645 56a44k4444V6WV W ߇."\'y#*Z *ZK\''#>~ # a7v!EO ~#fo8uug͓6qpsra7*ͽx!I *ͽx! I *ͽx###͋!KIxñB ***FATAL ERROR: Invalid SAVE file *** !"e"c1*X[9!M9! 9*:<=6B0 ."[X!0s#r#"`"b"d"f"h!"j*R} "l2Dͯ#: 2:w#~_9Tx~"( ( !\*.*#a7x(~_# !  ~WB\uEWRUS+@ UñBe@qP_ ile not foundivide by zero erronoatchinJYJYY''(DDMACRtoo many COMMONmultiple ͤPutqp9>Aďu(>>E"eɯ> E"cɯ͓,"Z!"\ g *6(!9̤ͤu..............-....................555/'5555((((*[5n505O53-p!q p s r fn>AvE>>w"e> w"cx~(( (Y6:<0*Z(C2:] (8*#"Zͤ!\ !>ut6͓>2g> E"c}{ñB_:u{=2*#=ͦ>2#!0:x!7w7w( ~mufn>Av>8o&#N"Aͤ̏u(~Ķuww3w MACRO definitiolabel not alloweinstruction not alloweundefined symbol on pass on8>!*ͼ&F4 '"*:=?o  CROMEMCO 32K S(6͓>2g"*͙(Aͤu6Aͤw>"==O//I-O-.R-a-f-l-o-u-<((......M22{2h2bT??rST,3="x-~--1"U"9"&Q[n[..YDZYfn>A:v6>wD:4*Z*eD(:4*Z*cD24(:4x(+u ~$ 7ͺͺ+uWͺ_* ~u #:x!:x!:x^#V#~#foRDMʹ*`"b*d"fD$:͉2#ñBʹ#2#>#= *["[`"bD$>66͙&9ɯNA~Pͤmu(N̶ufnw#5(66tuPFl͙6F̶u~uTRUCTURED BASIC version 03.65 Copyright (c) 1977, 1979 Cromemco, Inc. *%.!t$.: 1T Z͋! (͙&9(53(@#!\l#a7lP8u\uu\̤uXXXYY-Y3Y7YKYYXXX;YXXXY Y%%%<'&&mZ....S SRhz{<{&...--o---Z&?'^"v"""'[o"#..1}.~+( ##^#V#N#F>y@8@ !!>~# ~# X#a7u2g(;2`"Z~( ( yWu͠vmu'# fn~#5 ~(P43lV^F N ʹ)=( F N 0{v}%˿o|$˿g3 {(=~P{((A͖s#~@|$0 8;B :(A(G 7d8(7HV8V.:͉.*U~#~#fo:?r:͉,ss#r!:bʹ@j@(:DI=:*Aġ*ÿ:*͋><-x*)=>>-xTx*KB N #f B `iY͖#~#C Ѹ(( >rw" r= ͖1"tsr "(tr "a~#(>w "" = Û`R"[>2X:X *!^~((".#~("!*!! 4.*ͬ"82 1Tx>*#" 1:2>22 ! 4͋*fT]KdB.>bk+F+NB"f~*f" ?(= * "fLs:͕#x! ͑  @: ͤ ͤ̏ut3͙>w&go_( Vn3:>on: >>>2&&:&o%"inf#.:2Â:͉.*]+4Â=.~*UÇ=.Ä> .Ä:F͔.ÂF:͔.~$!No0$~!͉.Â͋ ~G:w~# (## &9*`"b7$!"*d"fD$#>#2 ͻ#=:22D2o222T2Xgo"""8"Y"[!@"r!y2"">w" = a~#*!1!Zr###5 [*###: ^#VK r+s ,(0x(,(q,('O!"!#n#1S~#"t:ʱBB͍͋Tx !J:x!"ñB***End***&) ^#fk:~"(( U*`"b* [F  ^#V# N#FB0 ++r+s:m$ 2m|%͡ ##KhG^#~Ww##~(w##~x*hRDM[h+:Du##u#^##~( #K f(/.a7DMxr#~qpbk +ͮ02:&G~w (͔( ͔(͔čr~pKiorDM͚.~#^#V#(*^#V*z| ![~#fo##~#fo-K .[͸K ::a~#^#V#N"t"v!"e"c:2`2g2D*b[`R*KB ^#n %f ^(nfR8 # &9 #:J*[|*K+( !~(#"f!~#T #>2^VS##* *bK`B"# &9~(6!Ͷ~ R2!",*|2,͡*!#F>@gx2ͱ͍͋,sS##-̪r[>" @= T]*!1a~#V#*~ݶ(R:++>. >x2*2N! N#F#^#V,( 7~ݶ(y###!(* "fnfu t ~# +a7DMxrqp##[iʹ)črSi#~f n W|(B0s:Xz *Y[[ R(8ͣs"YtzʱBS"C$** R8@##-(8*"!^F (~(" # *"":$2 !"2 qs2*": 2gñ#B N  ~x .++fn[[R0[`FNx( +ͮ0Gn    !"U!"]222222#o&))))T])@ ɇo!o$͕#! ͕# ͅ#!0ͅ#0:͢#ͻ#:2D#ͯ#ͅ#/&9͕#(##~# (~rB"!!#ʵ+~P(;(Ua78߷(OF ###~ #~( DxAʵÜ!#~#w#( ͋"[##~2a!~ !>?w:!38!3#a:0*f"  (?DM####~ݾ #~ݾ * "fuI*bK`Btu!b͑ ( *b[`R":X [R8 &9V^*`:Xs!"Y>2X:Xs *b[^#V#*## a͎72 2 ñ!*f!f͑ q#p+ #N#F#*  N#F*+B0*` "b$ ^#V#s#r##~FG~(w##:m2mx*hRDM(!d[b $!h[f $>2D*f">~!($( (T( (͗#}!=?0 *y 7ٷ( *!5!5x*!8(+8{8ͺ*>8**zw|/g}/o#>!ܻw=ȷB?8 |( |/g}/o#xo%& = x!8 {8Bw>8ͩ8:2:2(8!8 {8Jv>8(8!8 {8ͤ)>8#*8ͩ8)D:2]!a|(~w!ah-.~ VFN####~ #r#p#qa*|/*[ .([g/~"#͓$#:=?t>#~( ͉,w ###tͅ#w ##~( ͉,w$2#ñB#7$D$~(" n( :*N :w  >f :&w# &9S@->2ɯ>2@ɯ@>2bɯ>22ɯ>2>4#*f6*>"f~T( ( ###^#V#**>~?t#xG~x?t ##">!=5% ҁ%*@|t~t( x/Gy/OzWG#7x̻w)`*O O#+SS!"p!L*F#N>ox8 #y+0;0Õ+y=o[A'+0A[!,A#gAX0:ͣ-!- ͣ-!"!-IxñB!-Ix*)= End*** Stop******rN  G--@--O N#F`i~#fo."Z͓%6!"cͤxͤxG(͓%8ͤxOt2l!mͽxͤx23ͤx24!l O%K3͓%! 0~#+(Rmtx͉% '+Ñ+{W;0*pr#"p!5+!4!4=+!>B2:&A:7GzS**U~(Z!82 (2'G~O怹(< # >0>y(2:&G !,:7+O:!+w:&*ʹ)Ļw*!:>) <=½)G#7xͩ8!&9#:$OS!rwOx !(0GyH C90 !3~P+ :vs#r7~'w+4w#6+zĿ0rwB[`"bB( ͢7$D$:2#!:6w: :=?t*!O ~#(͓$#%'͎! 5#>26\'7̈́8zĿ0.'w+##^#V*| v.v#( 8O N#8 *U+++++V^###r+s+K ##~####w"U #s#r#^#VKtnf%###q p >"Ģt:"@~6~"*@*@6[R"B*B[͎2=F$x: G{8>B ,( ,/,ۯ77x(z('z()T]~ Y,D,a,>+0>!#&9~'+!  o+:$2G#7x(6)(1f*!2>2 ! B:&:7G{@wW:怲wx>!3O !2"O *(0DMx(FN*` RFNB8(bk 0 pqͷ1fn[`  շRDM x&9pq2 7= ̈́8W""C`i7*[*>B0K!"bk "p0#^#V##*a͎7NF*` F N xHwO~Gy 0` r+s*](8FOy*]#p#6#w"]+~2+~+"]oSÉ._2w2s_72w2v>2o!_&/!f(/FTx y R+Tg*"*b[`R":2 *fͱ.~ #Q$[!Ru#2#! 4#*ÿ###~ $:=?t*>S>#a7wa7w*#:G~( v"Zɯ2*C*0p "*!O R01(/~x+ #@- ++KB% : 1_~ %{Hw! z)/0DM!@26q p 6 : r""FN|rBr! 5(F N##ʹ)*"~#0+&9y*U~#^#V#N#F˸#######"U͎7s C9C!3!C>͎7s͎7s:^#V7|(7}7"0!!38!38!8+xʇ5Á5+x‡5Á5+x5ʁ5Ç5+x5Á5+x5ʇ5Á5+x5Ç5 6|g}o>8 6|g}o 6|g}o 6yHy.2"͌<6ѷRBK:">0 C͌<:O>.2"(͌<>E:O>+`-y 0:Ox0y<:y( ~w#~!3!>8A>>2͎7*| #|('0 "}lg>8͎78( #7(~wɯw>#w+>͎7!2"0!0>GͿy9W_Oogy1:+( - 1>2yZ:20G y (-$y82, x(7G.  :lz lxE ,y:+( - >fn[`~[R*U+++++r+s+p+q+r+s+w"UFNy! @2q p qͷ1= fn+|(!V^x 7| :B#00>͎7͎7H(Oxɸs9͎7͎7((BO(x C9yC9xx C!C CC>N#F^ 6R7v7v7w)6>87x(7C"7" `iB8(B8#DMx(( !!7K"+ x0 ><>0I; = > >:nyz:a(*^"c2`<2g>2`2g2829Tx>>-x-x>2:T!_<×x0կw;͌)f*!.]4> 7!*s!)6#>@2>:78@1AY&!@!$S7`i>87lx> ywt42y:0G{ 0<'__y(190(7 :{(D_}@::_!2}o:wÿy͉w!+ÿy~#!@-;(40OG%8FT]%8>%bkBrBrrRrfn BK: =†1Æ1bk}/o|/g#˼:D~HwL ͎7*l398͐27w7ws͐2#V*U~#^#V#N#F#^#V#####"U*P˸2&'=2$~2O22G8#DMq#p#'8 Os#r>*U+++++++p+q 6[ 7R'=_W~A8a<0S?O ""#{G~0Wwz""q#(%~6*"ŷBE*"~'w~'w+04#6#~+ w#6 ;>0Ѿ s# !<{0(!;:2:x[+++ʹ*c"^:2a2ñB:(-!"e2aTx!=Ix:o=*)=!=IxTx2͋>O"͔9:>ʁ5x8>8͎7ͯ;87w2!87n&>8͎7͎7o&s"!4:=!547v!4{88<;Z<;I;مo|g<;ӯI;8#|<;:;>o>g!G;!7@(go#og#=_2 GOI;(H yWwzT]'7w7wOia#g7ww%0 >87wn&>87wOh͐27w7ww%0 s#r͎78(˾#~+~Dw#>*U+++++++++r+s+w"U!:7RDM6WxzT]9J>F2%^#V!C&9!J|F2h9}/o|/g#7̓9e7̓9!Dq,r,s-->~(6#6+G'w+G'w+~#+!2o+!,>OO , -6y!~  }oo-,-:7w! ~+APX0y2T2nñB*** ESCAPE***ͱ~"($( 1}aU>: _͎7ͯ;́>:x~2# (!(4+Tx!"8K2x >(*8 R*>8!5+5x8!5+*5x88O#7G#7x(yʇ5Á5y‡5Á5͎7O#7y(.&8O#7y "#7y 8O#7y( #7y(O /ͩ;:x x( >.-x>0-xK>y22"C9\;ѷ(_~;>-~#@G<.<(: 8Ix=<>0>.2"x(>0w+v*U~͎78͊6͎7ʁ5'38O~@8,(*A 0%+:+2O(7 !,G :7!3͎7#7 8(F!38:7{'_z'Wy'O9y00z :."!x: >ɯ22,y% :!Ly8 9%(00 ))))o Ϳyyv& =ѷR>b>~"ì=7=|=[0z R0:=>a>=[8R7>Tx!"87>7́>:x=2W|DḾ>2Wx> -x v>GR*|ʱBK ###~#r[r+sñB:~ Z>͎G͎Gy("(4*ݾ ypDE-E qI 8 bI 0 YI *"# K# # K L# # K "@ +":|̩w24V  ^  @?@?@@AN~( y> y  F A ~ yNGx(O==- O#2@- :-L0MTMMOOP]QQQQ*t w#( (!88/(&("(#((5">O!S###*0[8|>B+r "8|>R0:W(C8TxC8Txͻ:g(!?"e~( >?-x͗x#N# :x~ .#F..q#~OE 8D:͎GvEͺGRy( "_2a"2ͥz2TʱB ͥ2BF" ͌S##*KBs#r*"!"]AʜE0ͪG-(B|!    T   K  ! ǥT    K " bK \K  V P  yK L  BL p r r  xyNx@( x"A?@?@)A> )A_?@?@?@@A_?@?@?@WAɯ2My22(%8=A.( "(y2>ut##fG*t wÉG!_#*"!>͎G*[!RsH9J:JLJLJLJTJ)K)KrJJJ.K2K2KVK^KIIIIIIIIIIxä́8(iy f?Ϳy9 x 0~"(&(" ( !.##y(,,wf??Txy>wTx!r?Ixx?? *y( (y͎G͎G͎G:ʱB*[##w#wñB$ $: E E:7GpDþEþE*}*hD#~*w#8D͞B(<(6(0-ͪGq8%q""}( >9͎G!J8D>͎G!I8DGx9qeC:x( ֪qCq֞q qx> >= >< >28L h fL b ,L ( &L T L MK IG E CyK ? K  K 3 K ) K ! K  d&b ' ^KZ XK RK pL o o FKB  = FͿy>Fq2yͿy8 Ϳy͔92-yAx q :.> ( z(> y$(=( _xFͿy:=F:G:F <:JKIIIIIII,J,J,JJI&JLKRKI JJJIIIIIIIIIIIIIImK JHHIIII.I4I4I4I:I@I4IFIFILI(I.I.I.IFI4I4I:II:II~" _#:B(+~# ( " >k0ͱ~"a͎7('O:x~"#ͻ~"ä́8('Oͽx~"#E>*:~( ͞BEBF>7GpD#:~qKC8D>2#8D* [R. ͊ *&9*###T]~#foK ( +++F(D0*&xT 27G9!G-::(~ 2M#*"aA""}~(k880:~ E*7G('" :2&]AqͺGÑC##D!D- yK 1   +K !G E K& ( L.7 / 1 K& ' K #& K   & K " _ u      N 50&2|2ͬ,:-y( xF:==GͿy&&ͿyxF:G:.(:M : 8&x&!"_"`DyBIJIIII JIIIJIJJJJJJJIIIIIIIIIcKJIIIIIIIIIH.v nTh  _ #[ YK U SzĿ0ͽx͌0COA@SY@T5@PLPARDGAPU0A?@?@@Q@_@:4_:2`>2g:(@*:|( ͊ K_qp:awKBut|66###Bs#r7ɷB!_~#ݖ8 ~#ݖ8 ~#ݖ8 ##2 ЇO!G -!'  A P KA P @ @  yK L L  ! zyK tyK pK  cL  [ YK U SK #d KK TOPEN EXITPROC MRANDOMIZE KALTFIRST KRETRIEVE PROCEDURE PROCEDURE ENDCOMMON zKALTCREATE BEGINCOMMON~("(ͦ*TxNDDOLOCALAUTOLlENTER=SHORToIMODEPEEK(TYPE(bCLOSEERRORKLOAD}KOPENUNTILWHILERETRYJRETURNONOECHOSNTRACEp>%w#~͂x+~͂x##>%-xhU͟xN#y(~#" -x>"-x "V͟xhU^#V^#V#*w~+ #F#ͮV~x>$-x ͗xhUw-)=##T5AND6XOR7NOT`RUNnSCRCONENDDEFDEF\BYE^OUT]SETdGETcPUTDIRRENmDSKSTEPLOCKCALLKPUTKGETKADDKDEL05#:  :  *ZR""#wwɷRU##-[6#6xT"BK(~ #xT"* [R(  !T]~ EK  ?K#; O MKI FD @K 9 5~ K  K  K ^ K K K  K< 0 8 7 K  KBT N #AͮV#n(1͗x!R^( !Rv(!RIx͗x###-(C)=>f(>$-x,^(!RIx͗x!R~O IxSFMODEqLFMODEDELREMCOMMONeCREATEfRENAMEwEXPANDNOLISTCHANGEBINOR(IKEY$(FKEY$(DATE$(TIME$(gDELETEKCLOSEhU~V("-x#(> -x=͗x>:-x͗xU~. w#~#w:<  ~#-x247w!s+r>87V#^x wDATADATASTOPAGOTOENEXTHREADNECHOTHENTHENhLISTsELSEiSAVEjLOAD>LONGvLVARFINDEDITxATTRABS(INT(EXP(( ͎,s|ɯ2~((("( ͦ~ #TxTFT . ͍TTTTxTTx:g>-x*ZR¬V+++ !  K  K  K  K L ~L  vK r pK     \L X VL R  LL  DK  ~#v; ͍QLFPINTSFP(*)LBLFUNPROCFTR8G{ ` :*[R .(F>#O+UNLOCKREPEAT IRESTORE 8ͨ7:/W2!>8uW!&97xw!B0:nWAuW!>82!~w#LOG(RND(SQR(SGN(SIN(COS(TAN(ATN(FRA(MIN(MAX(TAB(SPC(POS(LEN(VAL(ASC(FRE(IRN(SYS(INP(_PO <:G#~+((͗xU#N:@<<_*by?(r(((E(t((( cU͗xR0!}2~#ʬV"ʞV9hU(      K  K         L L K L "(() ,!;":&=++~G7!Q&/!N&/>2TFT . 8:R 4 .: ͌S#N ~(: " RFTREC KGETAPP KALTADD KALTDEL KALTVER KUPDATE KALTCUR KALTFWD KADDVOL ENDPROC ERRPROC RENUMBER ENDWHILE KGETBACK ~KALͯWV^zPv~Pv!@uHtI"ZW~(Čv#a7uu"Z~#*Z#a#*ZB|X@KEaOPENUSR(ADR(CHR$(STR$(HEX$(KEYI(KEYF(VALC(xATRIBUSING@GOSUBCINPUTFPRINTQNOESCRTRACEuCLEARkERASEtEVUBVV:V:V:VʃVrV !UͮVUTHENW!L~(=O#~(  ??? !UA#ͮV:ʃV̗xhUwv;hU'=(=)#.+/+0-8-1/$<%>-*2^G@#\%*4ORTOUONBIF*<=+>=,<>3**rDO:REM;DIMUSE?FORDLETKDEGLRADPESCTMA͌SwSfn|TK CCT]#~0T0T0T+N ~# DM*BDMx(TRUKBDM*#####^#~8 {8+{w#( \Ļq(~"(  #ä́8 zĿ0Ö́Ytu ͌0XnPfQNRGBututnxfy ut|X&9fG!n5pͤl:nG!n͋i•^͋i=ž^!n5pͤli!nwi/_!nwi^+++^Ipͤl:nG4oLj __:n_#####z(~(0тw~GwG~AwAW#\!9"Pp1po\*PpfͿhgz8eBeXi cdDM*n +ͱl!n~w[f=Jcf!c<GO_c 2@pagXa>ķ`a2@pg g;lʌa:@pb!n~ nF%uDtÈWẀWX̀WX*ZXͯWpX7x yR8NRymvͽXmvͯWW^>˷!n9pͤl:nG!n͋i_͋i=&_!n9pͤli!n4oͤl:nff>j:nffnͤl*n!nͤl*n*n>#~+]T] s#r+nͤl"Bp*n*n"ny24pڢ]Ң]o]d]ҋ]T]!n~ʢ]Ë]*n ~@‹]â]:nʋ]â]:nʢ]:n‹]:4~wf"nc[f~qGfWgy!nO!/o3oͱl:nff!5pͤlp!n~w!n4͔f* # ͻv͓,#,#͉,mv~!#(#,#*Z!ͳZqJuNtOuRuPtQ:HwL:FwMW͓,#a7ub*n;lbdaͷ^:@pʥadbh!n~w[fʷ/^ͷ^:@pa1cÖaf:n<2IXXXͽXͯW7wpXs#rXͯWXXWIXQYͯWQY~"( !( #a͎7(Ö́Ysj*nnͤl*n"n:n2n*n\*n:n_*n;lD`:n!nD`2n!"no"n!n~@w_2n:n__>2n:nD`Dpڋ]>ä]:4p?o&])^#V]>Ƿ*Bp!nͤl^.a8aIbPba`#a`Wb`aghi.i]bb__9m.mlQmm=n]]]]nbWk2nn͞ih́hbDM*n[e g+|2dh!ðd#|g}o?d#"n!n~wgs#r*n;ld#͡h*n"n!n~@wh"nðdu~Pv#͉,Rmvmv^R!~#(#,#*Z!ͳZqJuVtWuU:HwL:FwM"Z@uHtIj[(\~LMGn2nff!5pͤl!n~wÖacbc͔gKf*nͷhi͡h!n~@wghngingi8e*n:nOͤl*n:nW"n*n͡r*ZfnB|vtufnͯWWä́8zĿ0*Zx yR8NR|Xxmv͌0XWͯWW:7\6W~`_*n|D`;lD`*n*n;lD`:nD`:nD` g*n;lD` g|I`>ã`ͽk£`*nl£`2n>K2n!nli!nli!nli͋i!nli͋i!n2n!"n!nlinbhfWg͌k!n~w!nwi§^!nwiJ^+++=^Ipͤl:nG4oLjʂ^{^:n~^###J^>hihfXij*n*n;lDMͤlb$e*n!9pͤls#r[f4!n~w:n=d:n=f[fwf[fO:n_![e::mu2m:o :2os#r#6#w.g.O!p (\6#6#^6#V6~LM<!ͳZW~JĻv:[u@tA$$uFtG%%!WwW:~Wu7uu2~Pv> ZͯW|X%!~JԻvnli!nli!nli%g*n&lĤk!nG~@xĄn*n^#V"5p>f>wfg*5p;l`"5pb`cͷh.ic#͡hnggng) ng.;l>دbO:n_![e eDM*n +ͱl*n*n*n:nGXe#Me!xGyOje)x_eDMdxʆe*n2n͌k>ͷ:nG*n&l!“k:nG*n.l!«k:nG*n 66l!k:nG*n*nNl!  i#}i|7~w#‘i##?µi+¨ix#i:n_!!n4o>j!4onͤl!n4o _ #[ YK U SK  MK#I GL G ?qI  9YI 3YI /K , )bI & #YI YI D bI > qI 8 bI 0 YI *"# K# # K L#*nDM*n*nͤl:n:n2nºg*nDM*n*nͤl8e*n:nOͤlDM[e}|<*nnͤl>2Mp:n2Lp29p:n̈́n*Bp"n*n\€n͓n~n*n\qnqnqn*n\=n>nͤlCf"nzʳe!n~@wbҪeͷhihk_:n_!*n:nG *n;lMDxeͤl[f5f!n~whfk 6T]ͤlgl"l>ͷglgll>LlglLlɷ6# ͤlgl2Np~2Op6ʇl>j!4onͤl:nG`iGIpͤl!Ipn>͞iEjͻi<3jLj2Ap!Ip^#V)})o"b>د:Mp!Lpf[f^+++ig*nj͊ḧ́nɷڐn*n*n:nG#ànG!_#*"!>͎G*[!RsH9J:JLJLJLJTJ)K)KrJJJ.KCOPYRIGHT (Ch?_:nff!4o;lDMx$fͤl!n~w:n=2nh2ngs#rgs#r*n :nff###~2no&))n2nO :=_:Np_:Op~# x¥l~+ x²l|l}}o|gz*Bp\:n2n*n"n8e"n*n\*n*j!nwi”j+++Çj:Ap°j!n~°j&l!n~w*v;:D+q!qIx*)=!qIxIxñB!Q*WE":g(͋Tx!l0!IxTx*08!g͊h*n*ng!n*nj"nMD *n[e*n "ng͡h!͡h!n~@{h!n~wf*n|h>·+|h"ndcg͡h) 1978 EMS,INC. ALL RIGHTS RESERVED RKI JJJIIIIIIIIIIIIIImK JHHIIII.I4I4I4I:I@I4IFIFILI(I.I.In_![e*n "n:n[fNyxwf؁wf Be:nf·G:n>f!npah!n~ah!n~wWn*n:nOͤl*n:nOͤl*Bp\̈́nnglä́nlDm>Mm.ä́n*Bp"n*n"n:n2n*n\m:n2n_*n"nͤlgljk>ηGyxk&ll>*n 6l%g:nK*n&l>ͷ2k:nG*n!lk 6lbk: :o͗x- >$-xpError at line -- ͶpDevice I/OͬpKSAM accessͻpSyntaxpUSING syntaxpNumber of Arguments*n|i>·b>͡h8eSf:nOͤl:n>ib>XibNiXi>÷c!"n*n#͡hg"n.iw#w#w†.IFI4I4I:II:IIIJIIII JIIIJIJJJJJJJIIIIIIIIIcKJIIIIIIIIIH.v nTh g*n###^#V+j*n;l"gg`i!Iplin>:g4o>Lj>Ug!4onvͤl!n~%g!n~w:n:n2n’g*n:nOͤl*n"n*n\*n*n*n:nGmm#òmng>̈́n*Bp"n:n2n*n\*n:n_6T]:n=mOͤl*Bp* pNo disk in systempIllegal statementpPRINT item sizepExpression too complexp NEXT without FORp User functionx}͋x0:8> -x>"-x:d9j@G:`x -xx ͤxw#!l"9:dy:Ly!j6 ko&G~ y> #6Record sizepNot a KSAM filepFile is KSAM file onlypWrong number of file names specifiedͻpInvalid hex numberpIFwx,w w#*9w#6"9Tx-)}͗x>$-x×x#a7yqqxqlS>2#a{}~"==#~"! ons to load procedure/module intopJInvalid procedure librarypcFeature not implemented in this versionpeSYSTEM ERROR: eog!"18C2n~w# +"9õz~6# Òz|ÒzFTSCl͋!CzIxx"5h&"3xʱB*l(z(!͍| ͹|͍|{Tx! not definedp Invalid dimensions givenpGOTO or GOSUB non-existant linepSubscript value(s)pNumber of subscriptsͻ= > :b(ͥTxx!lͤx (4(5(1 (I (E(B(^(ZW: (: (2zw# ͮx͙w6A y:`( ! Ix(6+ͮnteger overflowpFunction argument valuepInvalid INPUTpINPUTpNot DIMensionedpno DATA statementpDATA type &9*"~Ҁ~"~}}}}}}}}!!!4~=(+!4#:<2==}:22 :(<2!4~x}x(*+"!: s/eolpfOut of memorypFile not foundpFilenamepInvalid command for devicepFile already openpFile not openIx}*lʱBͬʱB"lFTSCl!3zIxxxHʱBC3S5!;zIxxTxxʱB>2n272*l(zh|͍| u͹||h|TxpDuplicate definition of label or functionpUse of undefined line labelpRun time stack improperly nestedpAttempt to x:g >\ͮxTx: ͥ*8o0$"8:2.~*"*": :22:(!4:8:q:(pFile numberpCannot open filepNo file spacepFile mode errorpCannot CREATE filepFile read: no datapFile!Ix}:7*(ʹ@Ĥxͤx{ 8@27*-x!`zIx͍<:3G~w# |R"{*l(ͬ"l 2n!go back to altered or deleted linepDIM would overflow top of existing COMMONpbad BEGINCOMMON/ENDCOMMON sequencepStri08:8 A8 [0G*y"[ . FROM: TO: FIND: BAD EDIT CHARACTERCHANGEDFTSCl>2nɷ{f-"(y(*x:4@($("( )(y*x> -x24:f"Q@x(~#-x ~(-x#!qx: O:g(:x ͗x|͂q:2*U~X9ۀ~2˾::(W:@/A~!&9!6P+w>(~2@G: x~:02A:Ox2Ax2H writepFile position/statuspNo channels availablepCannot CLOSE filepInvalid ALT file requestpKey lengthpz:n{ñB!"9,&9!}"e*l[ .T͋!"9!"U͍|!,8*5K38!"*U"*"U*)6#"+|!l"yng/numeric expression mismatchpGNo such procedure availablepHBad arguments to a procedure CALL/ENDPROCpINo free partiti2*l(zz͍| Y2 Tx>--x!IxTx>:-xx!"9*9#~("9y( (2 d(Ai(\k(N!KzIxÒz: ’z*l(ͬ"l(8>2+ :G:(:(x226NS>ͯ; 60#>2:* :DO*N#"!5~GҀ..xsq-xy :q,+*C*х#*>!75z:5@/0 *Ʌ#*w[3*3>A1b'v`@PK> K~(>˾23:G O;~w>8K~23˾;*'3!C͊6:|ww25!;~A>8#~+27*'3*(!>͜!̄>Ͱ*>(q,!C!9"t1tvP0ABCDEHL͍:~ʇ:͉.:2͎78G~_#r+s+= ͨ7ͨ7#7 #7>ʇ5Á5 8~˾8 !>͊6+w!:wɂ 807͉w0 (+(-w͉(E0E(e(. -͉(/0E(e ͉w0 +(-w͉( 0 w͉ n4:,wx>0yH(-xK!y 5  *~, #"!5y-xx-x%:x(͗x!~-!–+ʖ Ö!5!50yx(-xO:4-xO:'3*!͊6::323!C0 3>(*:3(( !׆>_!>͜:3(>8͎788مͨ7%!>8ä*K3>(*>+~w*:7O! ;:5ww:3>8*3>+82xp7"BF9d(YFf AA s4UBaveYqEsWÊͨ>2~*"!q1"!"lL͜ͅ!^͛!ͷͅKSAM UTILITY COMMANDSͅͅ!^͛!ͷͅ 0.C(͉E3.>Cq,!C>q,>#*q,>(*U~ͨ7>8Î7"h2j*T]>#*[h!;*wwx ~#0:?a#g7"3w|ẅ́8"5V^*`V^T]K3BwK5BwDM*5K3 6x&9ͮ0&.(1>E-x:G>+xDG>--xx  Ox0-xy0-x*"~ x( )~*+"!l"7*B(0 K:x4:x͗x 4*~˾23A8 q,3>+!W>͜!>Ͱ8 ~w*χC:3怮w:>8*ׇ#*876ip$`Wa@;5a#62YdT?CD$75E @i1GYA)CaA yDAgA'rX"#A#XP@?# 3Gu7PB eeDgCAC#1!'HDCh!brvP@pqxUA!5b71A((BHANGE DISKS!^͛! ͷͅ)1.STATUS!^͛!=ͷͅG2.COMPACT!^͛![ͷͅh3.REORGANIZE!^͛!|ͷͅË4.CO*h "h>(*!j5 "h2j f;"h2j sq,>+K25~w#7w~236@q,>+T]>(*!54&.7x(D_DWDGLM!6ZxZyZ!8~#OO~#&$ 0% 0w+|0w+9ͮ0&.~#"G*(1#(!&(#.(.+($-( ,(%$(!( G> G>0G  ^#V*U~ͨ78Î7*]^++V+"]##^#V0%u2A5hwHWuP:13aba6WbV>$9EptU@xS3E?"""""""As#DsR?brquB2!YAvC%y HDrTD'aq$a7Dq$tbAVVBII$B17I@CBH%A3!qͨ7G#7xʁ5~w8"3~256@#> '9!Dw+6@>27;9*3#~!Dw+6@>([3PY-COMPACT!^͛!ͷͅñ5.COPY-REORGANIZE!^͛!ͷͅ6.ERASE!^͛!ͷͅ7.RENAME!^͛!ͷͅ8.*>(q,!C3>(*>+!L>͜!d>Ͱ:3@(0_F9;*>(*:5(=O! C#7(Np_:Op~# x¥l~+ x²l|l}}o|gz*Bp\:n2n*n"n8e"n*n\*n*n*n:nOͤK ######~ ####"b:q++V+^+"3C5*##F ͨ77~G#^#VO*3K5:*b#:?r2̈́01EaD tpuAB9x$RCB0qddD!`9)D6dTIV2D4425tD tpuA1AY&SXApyc&yIBW)WyQ07e!8||, CREATE!q1">2~  o&#6ͅ: 2:0Bõí1Mí2X) í3c2 í4n í5y í6„Ͷͫ! 2͛ͅ! 2> !  ý FILE SIZE IN RECORDS!">2~L*_>~ >͊' 2~ ><''*"ͦ# 2~:~> ! æFIELD DISPLACEMENT*_N#F!q#p*&ͫ! 2͛ͅ! 2> ! VOLUMES SPECIFIED*_ ~"_*"]͜!ͷ:DATA BASE OR ALTERNATE FILE? (1=DB)   o&#6ͅ: 2: 1g!"am!="a*_"[ͪ:# ÞINITIAL UNUSED SPACE*_N#F!q#p*&ͫ! 2͛ͅ! 2> ! PAGES PER KEY BLOCK*_ ~:!&#6ͅ: Y >2ê ͪͅ:¯ *͏2~¯ *͏2~¯ :~Š *_͏2~‡ :z *͏2~Ç * í7’ õí8 í9¨õí>2~:~W:9¨͜ͅͅ!ͷPLEASE CHANGE DISKS. *e͕͜:~ *&ͫ>2~! 2͛ͅ*_"ͅ>2; >2; ͕͜:~ ͪ: '":p */*%":/~"*DM:!&m! 2͛ͅ! 2> !/ =VOLUMES IN USE>2*_"!*">2}:}bғ*~u# xh:<2*_ ~*]"ͨ!*":=2:“ͪ:#:1*_͏ !ͷͅDATA BASE FILE INFORMATION*_"͕:m! 2͛ͅ! 2> !) =PAGES PER DATA BLOCK*_ ~:!&m! 2͛ͅ*_ ~@!zͷͅÄDATA B͏2~H :~• Ý :~¯ >2~*͏2~*_"͕͜:~ *_͏2~:~ ͪͅ: *_͏2~:~ *_" ͜!ͷͅ5FIELD NAME CONTENTS! 2> !R  [FILE NAME*]&! 2͛ͅ! 2> */>*_͏2~ʟ L'*ʱ Һ ̈́)͡) ̈́)͡) #;&!ʟ 2~>2 >2 ͕͜:~¯ X*":}<2}W:!&m! 2͛ͅ! 2> ! KEY BLOCKS IN USE*_>~:!&m! 2͛ͅ! 2> ! ~ *_* s#r͏2~*_"!3ͷU PLEASE HIT "RETURN" WHEN READY.   o&#6ͅ>2~**%"*ASE! 2> !  èKEY LENGTH*_~:!&m! 2͛ͅ! 2> ! KEY DISPLACEMENT*_N#F!q*"͜ *>ͨͅ!& ͷ8 ENTER NEW NAME.   o&#6ͅ *> ! *>!{ ͷÍ ENTER!  ÙFILE TYPE*] &! 2͛ͅ! 2> !  RECORD LENGTH*_N#F!q#p*&ͫ! 2͛ͅ!:~¯ *"*"*_  * !":/2!"! "*y/~**"l:~¯ *_N#F*q#pͅ!  DATA BLOCKS IN USE!"!C"*_*"*_>~:{ *~ : ̈́" * *"*":=2B *&*ڢ*"**"ç>2~>2~ *> ͅ! 2> !ͷENTER FILE UNIT.   o&#6ͅ! ~#p*&ͫ! 2͛ͅ!%ͷͅ4ALTERNATE FILE! 2> !N  ZFIELD LENGTH*_~:!&m! 2͛ͅ! 2 NEW TYPE.   o&#6ͅ! *>*~w*~*ͪͅ: [2~>2~*"_X:~#* 2> ! *RECORDS PER BLOCK*_N#F!q#p!" *_ ~ * *~"*&ͫ! 2͛ͅ! 2> ! ͷͅß NEW FILE INFORMATION*">2: ͨ!*":<2!~ *! ͷ MORE FILES? (Y/N)   o&- *!ͷ"ENTER FILE NAME.   o&#6ͅ! *>!VͷiENTER FILE TYPE.   o&#6ͅ! I/O ERROR. Hµ!ͷòFILE OPEN ERROR. H!ͷNO MEMORY AVAILABLE. H !ͷI THINK YOU MADE A MIS2> !  äSYSTEM ERROR.:~!m! ͛H! 2> !  SYSTEM ERROR.:~!m! ͛H0|=?|=x|ɷ)='ɷ|g}o=/~O9N#?<|~iAh#U<|d́ ́0w>2~:y¨! ͎2!~*{! "!N#F*{q#p ! *{*yDM>*a~*a"*#"͜!ͷͅ}|3MUL10O{SETDEC\~1\~2\\}{LODC\A\~3}{CALL\DA13}3DIV10PO>2~X:~Q*"_*"]ͨ*_y/+2~Q!":/2!"! "*y/~**"*/TAKE. H! 2> !$ 4UNEXPECTED ERROR:~!(m! 2͛ͅ*!/D A,(HL) INC HL LD H,(HL) L0! ͷ"ALTERNATE KEY ERROR. :~2~WHO!>ͷLINVALID KEY. Hw!]ͷtDUPLICATE FILE FOUND. H–!60ڋ4Ã#~9ڧOxG#ÒxBK'd }0ɯ%<0!26 +-ENTER FIELD INFORMATIONͅ:ʛ*d!d͛!^͛  o&#6ͅ":~iW2*[*{"{*yDM*{>> > > > ~#~#«~#ù~#__~# x*"l:~Q:/2:=2:?!*"ͨ:=2 *_͏2~W*_">2~!"l:~©*>!N#F*NUMBER OF VOLUMES  PAGES PER KEY BLOCK  PAGES PER DATA BLOCK FREE SPACE RECORD LENGTH ÓEND OF FILE. H»!ͷøBEGINNING OF FILE. H!ͷKEY SET FULL. H!ͷFILE IS EMPTY. H269/DM)) )O 9 ,"71+-zo& a:=2*">>E>>>>>>2}:}2>-:}<2}ͅ>2}:}O>*:}<2}~# xw xT]%|.}}o|gz~+ x;?X# xJDM!xzxGyOt)dzq#p*"*"!N#F*q#p>2|ͅ!ͷDO YOU WANT TO CONTINUE? (Y/N)   o&#6ͅ!"~: Y>KEY LENGTH KEY DISPLACEMENT NUMBER OF VOLUMES  PAGES PER KEY BLOCK  PAGES PER DA! ͷNO FREE BLOCKS. HA!,ͷ>INVALID REQUEST. Hn!OͷkINVALID CREATE PARAMETERS. H‘!|ͷÎDISK}og"7+ʲ2dy:d˜2dy :d7*7ɱO#~2dy:d02dy:d2d>O:d"72ͅ!^͛!ͷͅ!9.EXITͅ#!^͛!;ͷVPLEASE ENTER YOUR CHOICE: :~x!hͷuSUCCESSFUL. HҸ! 7z’)Å%ڮ`i)#DM=ü`i)DM=zW{_ÖPYz7|||~|/g}/o#|2N>2>2|:|ª>2~:x@! S=>2~`V! =S>2~` `>2~:x€! *{*yDM>TA BLOCK FREE SPACE FIELD LENGTH FIELD DISPLACEMENT ABSP{SETDE1\~2\\}{CALL\DA15. d>O:d"7#> #2d>yO:d>-32d> O:d+Ø\~!~Qs#YVY# x?# Ï CALL OS90,ͣ,)%&'*/̓- '!/:/ʳ#͞#¿#:/<͊'2/:/<<'̈́)'z%&*#$DM*/ +v-!{/~w '͊'><''*0̓-ڭ!"0ͦ#ʊ!$|))$#f)3(ͫ(3(͈#ī(!{/~@wY()3(͈#ī(;&ͽ!3(!{/~w"!{/+>(!//vi-!{/~'!{/~w:{/:{/2{/W(*/DM*}/*/i-:{/:{/2{/(*/DM*/*}/i-<*!/<*—+++Ê1i-:/G/+:/###×>˷!/0i-:/G!/P*P*=!/0i-/*/*/:/G&#&!xGyO/&)x$&DM$xK&*/i-'"/zx&!{/~@w͓#o&|))͡)0 :/_ {STOI\#2\~3}{!9"11q1y0ͽ*1#~+T] s#r+y/i-"1*}/*/"/y20gg4=$ͯ'!É$<GO$$ 21Ú"ͫ(">ķ%"21''̓-Q":1"!{/~ "*/̓-"ͮ%š"|:1j"$"͋)!{/~w '21:/2120:/)Y')(:0*:/+'/i-*/!/i-*/*/>**//i-*/"o/:/2w/*/ͽ*/:/_*o/̓-!*/:/G */̓-MDxʧ&i- '5&!{/~w͡)ͯ'F) :/+'!/̓-DMx&i-!{/~w:/=2/͡))P!{/~gP*/ ~@Pg:{/Pg:{/g:/P:0P>i:0?o&})^#Vj>Ƿ*1!y/i-i-!/4>!/O!//v-:/+'!0i-p!{/~w!/4Y'*//c*͋)F)͓#DM*/ &'+|$͋)!u%#|g}o0i-*//i-":/¦">ʷ|:1ʽ"#["ͯ':/<2/2/+'!0i-!{/~w["#͓##Y('*/|))f)1)($#>͓#>د:1!1͊' '^+++͖*͑(*/*O)͞(O)*/*/͑(!/*/*"/MD */ &*/ "/' !:w/!/ !2/!"/o"/!/~@wé 2/:/ʵ ں >2/:/ ! !_*/| !̓- !*/*/̓- !:/ !:/ !'*/̓- 2/'s#r's#r*/ :/+'###~2/o&))/2/O :/_! &*/ "/:/ 'Nyx<'؁<' &:/څ'!!##!!!u!#!!()))j#y# Y ---../ffff3#,2{/2/!"/!/1*3#͋)ͯ'(Q,!{/~w!/<*l!%#"/!{/~w's#r*/̓-D%#f)*/"/!{/~@w͋)"/u%|))͋)ͯ'***/*/̓-DMi-Ϳ#%*/!0!{/~@w͞(͡)3()3()%*/:/Oi-*/:/W"/*/f):/<'*}/|_#**/"}/*/"/+*y/,i,+*y/f)!f)!{/~@@)!{/~wͯ'*/|­)>·+|)"/͗%$'f)*/|)>·͓#>f)%':/Oi-:/*͓#>!'|!>h!͂,h!*y/,h!2/>K2/!/1*!/1*!/1*P*!/1*P*!/1*!/1*!/1*'*y/,i,!/G~@xI/*/^#V"0>·G:/>ͯ'!/p&)!{/~&)!{/~w(*/###^#V+**/̓-''`i!11*/>'/>/<*+++1i-:/G/+G@:/C###>˷!/0i-:/G!/P*ZP*=c!/0i-ͣ*!/i-s#r '4!{/~w:/=©%:/=͊' '<' 'O:/_! &:/g.̓->د͞#O:/_! &%DM*/ +v-*/ *ͦ#**>÷$!"/*/#f)'"/)w#w#wK*#B*|7~w#V*##?z*+m*xLEINWCURFILWCURENT\CURFLF`CURFLLCURFF zKSB30 KSB31 KSB32 KSB33 KSB40 KSB41 KSB42 KSB50 KSB6#w.3(>I/*1"o/:/2x/*/ͽ*}/:/_6T]:x/=.Oi-*1ͽ..X/.*o/ͽ..*o/ͽ>I:/G*y/ 6,!‰,:/G*/*y/-!  ®, 6T]i-,-,>ͷ,-,-,>: GF>B!3( 3/3ۯoEoEx(z('z()T]~ Z3E3b3>+0>EE3EED#ˆ*:/_!!//>*!//i-!//>*!//i-:/G`iG1i-!1/>c* +3 KSB64 KSB65 KSB66 KSB67 KSB75 KSB91 KSB92 KSB93 KSRC00WORKOUSFCURFSFLRECLABLE. H /*1"o/*/ͽE/X/C/*o/ͽ6/6/6/*o/ͽ/>I/ɷU/*}/*/:/G#e/KSRC07C100F8-,--ɷ6# i-,-21~216L-=_:1_:1~# xj-~+ xw D>BýB3cF~˾cF3!>'D2$!sH$>6/6E\@.>C4!C>*<*+21!1^#V)})o"1:1*y/!=7+/+*1D ~ʌ+!/<*Y++++L+:1u+!{/~u+,!{/~w*1| w!ͷI THINK YOU MADE A MISTAKE. H! 2> !$ 4UNEXPECTED ERROR:~!(m! 2͛ͅ*!/D A,(O00F9CO00F9EKSRC09C100FB>O00FCC)O00FCE;KCOPYRIGHT (C) 1978 EMS,INC. ALL RIGHTS RESERVED O0102E-|Œ-}}o|gz*1ͽ:/2x/*/"s/%"q/*/ͽ*/*s/*}/:/Oi-*q/:x/Oi-*1ͽI/3(͘-!I/͘4>$14>/!#F*U~EE>cF+EEEGDxʽB~$cF"3~256@#> 'ͳF!Dw+6@>2733ͳF*3#~!Dw+,ʌ+*1} wxGyʾ+,-+!y0i-Þ+y0i-,-ʞ++>ηGyx+,,>*y/ 6+0A[KSRC14C10104O0105CO0105EC10107O0108CO0108EC1010AO010BCO010BEM1010F!M2010FM3010F1C1010DEFI- .>.!I/*1"o/*/"q/:/2x/*/ͽ‹.:/2w/_*/"s/*q/:x/Oi-*/"u/*o/ͽ*/*u/*s/:w/Gʅ.‰.6@>/3[342343!9$1>!75‡4:5@/0 39$1w[3*3>"h2j3T]>$13[h!33*h ",':/K*y/,>ͷ+:/G*y/!1, 6,',:/2/Q,>ͷ:/G*y/,!X,:/G*y/,!p,'+Ò2{W;0*pr#"p!52!4!4>2!>B2:&ADGzT1*U~(Z;E2 (2'G~O怹(< # >0>y(0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L