IMD 1.06: 5/10/2005 16:31:04 Sage Business disk BOOTG&7_B+NA$NNM}?<A/0|/?+N(fMfaRA?7AK/ 0|/?+N(fbAKαfZ?+"x0]/ /T'I'mP 'mTmX?+N(f(kN.xpNNR+MC~0+X@aWfarA&0X $0BXp ANNJhfJ+g(+ g "+f"8m Am*D0|0<*Q8fA,NN M0<BQ MT0T  0X0XI$M8<DBC4:SBml :xf :r gTB0,T@mD0@0RCM'HA< 0BXp A$NNJhf kCp 0Q`@`;CA 0< Q~ `>:Ma*|.zBBBB/:/:B/:??&zNKA0 @Mo&X @Mnb0X6aDXa@a>a<a6a4SCfJgN N"MBVfB2-4-ANuSg(K`2Y0NuA`A`XNA`XAxNN NRNNJ+f SNpNNBIOSENDBOOTRAMDISKUCSD p-System IV.1 BootstrapError reading Could not find Not BIOS code in Copying to RAM DiskIllegal directory SYSTEM.BIOSdiskette into RAM SYSTEM.INTERP SYSTEM.PASCAL BUS4%   SYSTEM.PASCALSYSTEM.MISCINFOSYSTEM.LIBRARY SYSTEM.SYNTAX SYSTEM.FILER SYSTEM.EDITORFSAGE4UTIL.CODEqFICOMMANDIO.CODEIQSCREENOPS.CODEQV HDEMO.CODE VcTELE.HAYES.CODEcdQVT102.MISCINFOdeTV925.MISCINFOefFD100.MISCINFOfgTS.SPEC hgSS.CODE L FD100.SPEC h QVT102.SPEC h TV925.SPEC h#SS.FORM L#' USERLIB.TEXT'> W7SETUP.CODEL>A WORD7.PARMS A WORD7.CODE  WORD7.PARMLIB BUS.HELP.TEXT BUS.LOGO.TEXTBUS.START.TEXTDBUS.START.CODEDJTRM.SCRIPT.CODEJXTRM.SCRIPT.TEXT^bLOAD.FILES.TEXTopENDBOOT p SYSTEM.INTERP+ SYSTEM.BIOS SYSTEM.STARTUP WHAT.SYS.TEXTESTT.TEXT9 HAYESREM.TEXT9 HAYESREM.CODE9' RAWCON.TEXT W'/ TT.NOTES.TEXT/K REM.WU.TEXT  BUS4%   SYSTEM.PASCALSYSTEM.MISCINFOSYSTEM.LIBRARY SYSTEM.SYNTAX SYSTEM.FILER SYSTEM.EDITORFSAGE4UTIL.CODEqFICOMMANDIO.CODEIQSCREENOPS.CODEQV HDEMO.CODE VcTELE.HAYES.CODEcdQVT102.MISCINFOdeTV925.MISCINFOefFD100.MISCINFOfgTS.SPEC hgSS.CODE L FD100.SPEC h QVT102.SPEC h TV925.SPEC h#SS.FORM L#' USERLIB.TEXT'> W7SETUP.CODEL>A WORD7.PARMS A WORD7.CODE  WORD7.PARMLIB BUS.HELP.TEXT BUS.LOGO.TEXTBUS.START.TEXTDBUS.START.CODEDJTRM.SCRIPT.CODEJXTRM.SCRIPT.TEXT^bLOAD.FILES.TEXTopENDBOOT p SYSTEM.INTERP+ SYSTEM.BIOS SYSTEM.STARTUP WHAT.SYS.TEXT?GOTOXY ;m#OOk#k"j"j#"``=`" `# `pt 9SCREENOP KERNEL XB!`"! kFĭĖR0 i k~jl"o' '}W' m)}' )}' )}' )}m$%l#ihn!&'{0!{0-/!h!i&/(yj"~Ҏ*x+$-&0 *p+pl#i#ko! ( '~!')y((|)y)x)x)y))( m'}( '}( '}( '}m$%l8! ($*x+-ԅ**x$Ė ..}k.}kld.zl17F(/|- +p/(lzk...}odcn'&-&g '),-12\569;<@fB"KERNEL INITOPS GETCMD HEAPOPS EXTRAHEAPERMHEAPCOMMANDISMALLCOMSOFTOPS STRINGOPPRNTERR OSUTIL CONCURREPASCALIOEXTRAIO USERPROG K7 <   #  2 KERNEL 6Copyright (c) 1981, 1982 by SofTech Microsystems, Inc.?GOTOXY ;m#OOk#k"j"j#"``=`" `# `pt 9SCREENOP KERNEL !`"! kFĭĖR0 i k~jl"o' '}W' m)}' )}' )}' )}m$%l#ihn!&'{0!{0-/!h!i&/(yj"~Ҏ*x+$-&0 *p+pl#i#ko! ( '~!')y((|)y)x)x)y))( m'}( '}( '}( '}m$%l8! ($*x+-ԅ**x$Ė ..}k.}kld.zl17F(/|- +p/(lzk...}odcn'&-&g..bc c&'j.}.}".} (.}b(jb.~ih!/x/y !he//%/y!%/ .}/ .}/ .}/ .} (ćyi!.~ҍ 1 /e//%/y %xh .~..b. 7.9h""|" ~" ~ ~" ~"! "Ė$ l)m%zn$$}i$}ijb$zj7oF '(j(zi& k$}& $}& $}& $}kb$#`$$$#%z1;$a#$$#`$%z1#`+%z1$$#$ 7$&`&&0) p7jFk$("|--"$(h#z `#i"#!ĖM +0 ((n((xm`( 8  }{zo zo' ))}#y!*셀i 7 0! "2*z*z}"d+*z*z}ą'2d+ d+ր))}(%(&.u a`p$u(/z. .x*-բ/. .x*-i!ռ/!.! .x*-h ՜/ !.!  .x*- /. .x*- ok)Y #'ko /! '#'0.! '# .x*+- ('+' 'o,Թ) /. .x*-k/#.# .x*-l$-#k/#.# .x*-m%/%$l/. .x*-j"B." .x*-j"*/""j." .x*"-j/"-ҖL)`*Pp"``p` `p+_a#`!" lc%b$`#"#"i ! h nb$a#`"! mb$a#`"! mb$a#`"! m4 cj) c-j) 'h ) i( !! c"!0"j) h cp I)`*P``p+z)h OOha pa p)4``pp"`p`0,⼃ ` i4 e a +0 $ֆ+0+ ~ e0+ ֆ+5h +xh +x > --REBOOTT*STACK OVERFLOW***POOL OVERFLOW*PRNTERR Exec err #  Type to continueepo= o==/oS?'%+ c:]B:*** HEAPOPS GOTOXY PERFOPS GETCMD INITOPS FILEOPS SPOOLOPSCOMMANDICONCURREPRNTERR REALOPS DEBUGGERSCREENOP INITOPS  8b`p`i```!`bp"k b + y@h+ i !i*!Mi!)+! b*+! x **xi!iҖZ)`PB B B`PD D`PEEI`(PLL`:PLɀBLɣL`RPcɀ_c`fP`y`p )u4zapp4zp r44a` p z5 pu(uLu BćuDćuEuMuRuSćuTu%Z u" u" ʛTu"țTu"pp"erPrOěO ěOděOěO'ěZĚʖu`d&p"p & `h1(8ɚ ɢ''v'     /((/W( 000(  0ć0ć0(ć0ć0(( /((/( 00|թ(p"p՜(uՓ0| 00(z,@0`u`%u'!`u(| 1&&1+|&  |& (u&&̇((/( <@@)u() p D) +ɤ/**/++*@ȇ*ɣ+**̖1;Ě:Ě9ě;ě:Ě ĚĖ<՘6; w`w; u: w`w: u9 w`w9 u;ě:ě w u wu$(*u*8&.` '    &  *`u%*ć%x'* &**u*C   (6&.@@@ &   ,   uu;u:u`;`u:`u(`9`u߂;ě:ě9ěěěĖ  '`$`&`(`*`,`.`0`2`4` 6` 8` :` <` >`@`Bć(  $$""$""D"ć""ӛ(sNr (t r  (!rH @ M   P [$_`  $   d D - `D - D  m  EEʖ( +Error in FIRST SUBSIDIARY VOL NUMBER field.Error in HAS SPOOLING field..#Error in HAS EXTENDED MEMORY field..Error in MAX NUMBER OF USER SERIAL VOLS field..'Error in MAX NUMBER OF SUBSIDIARY VOLS.$Error in KEY TO MASK KEYBOARD field..Mount System diskSYSTEM.MISCINFO*SYSTEM.MISCINFO not foundd[IV.13]*:SYSTEM.ASSMBLER*:SYSTEM.COMPILER*:SYSTEM.EDITOR*:SYSTEM.FILERR*:SYSTEM.LINKER*system.startupCan't find system diskkCONSOLESYSTERMGRAPHICPRINTERREMINREMOUTTSERIALx:*SYSTEM.WRK.TEXTT*SYSTEM.WRK.CODEECONSOLE::SYSTERM:: *USERLIB.TEXT???JanFebMarAprMayJunJulAugSepOctNovDec?????????REALOPS Welcome , toU.C.S.D. p-System [IV.13]][IV.13]Current date is System re-initialized ZeuO  *** EXTRAIO PASCALIO STRINGOP HEAPOPS EXTRAHEAFILEOPS COMMANDISPOOLOPSSCREENOP GETCMD *Dbfhi!  zbi |h! j)`*Pup" `  +y ipL k h͚} | yi!xlj"$b!m%"xP%"xn&zo"%%xx7&y!2'y-'}'k' (x(y(y(xĚ~&z (y"jhyĘ#p  m)`*P2`P p+"xi`a`a" Ė"xi`a`a" ĖC%j"Ռki!#Y"!l$$`"`! "p!`"瀀! "`!"瀐!l$$$$!i"А"Ґ"ѐ"Ӑ"Ԑ"Ր"p"!#xi`a`a# c#"jږ(  p##hhD "wi! p" "# #  p8#h = i! i ! j!j$"pd$"ĭ" "h\ h  h! Gs( DĄC $  ! "#ph-&& a!'a/ '' .!a!/ Ą/!a!Ą0!a!'Ą1!ćNj"NJa)!on'&'OOz)nO|o& d"'Ċ"j/Nj"Ne-a!a!"CsCOO O O Osp$$sCOO< O O Osp$$7COO@ O O Osp$$CEw%%pD-- -."OOC ćO2"CĊ+."OOD ćOD 2"D"ja'!/P!dpC'!/Nj"N=."OOC ćOC 2"CĄCCP"j0ć/&/Nj"N0""j /Nk#N )OOxPl$P՗O$x (R 0(ćO$*(/*QQ,ćQ)ćQ1(ćQćQ* **{Ċ.(d(x O$***{Ċ O$$la0#OO,ćO)ćO1#ćOě͇0#Ą ))x#k E'Nm%N+!& aI!!1%OOćOćOEO IćO 2LxJćO KćOMćOćOćO .LćOćOĄMɄM OĊO%m4ć0yЄsxh  i!y !z!{s!xh"> p* h6ia  a  a  a7/-s.D `e6`6p$_ ``   `  n%j k#%#"{#$wi7pĭ7x! "{7x## u  >8ĭ7ĭ6   k#(##k11#h ba ! ( z(((((( ĭ!$b!p&l" $(!Ċ (!Ċր |h      ((((=("(( (| 0)p)) ))(|m%%%%ym(ĭPb')x y`' xfE:$ k ?7$  \&(*** STRINGOP HEAPOPS EXTRAHEA PASCALIO EXTRAIO REALOPS COMMANDIDEBUGGERFILEOPS SCREENOP HEAPOPS 3ߚ| sޛF$Ip$pH a7 aH!p$xII$Ik#Ip#x###ěFޖ ߚ| sޛF`I"` `  p%I"xi՘"rIpH"ěFޖ&p&nl`I'I b7 b'xՉ'xxm%.H'x&ĚH'x pH"pl'xy&l$;'xy&k%#%a'x&!#!'x a% Ia 'x`'''xp!ߚ| sޛF! Fޖ(W EXTRAHEAPERMHEAP EXTRAHEACaa`a`p(l$lFߚIob'm c7 c" "x cHpn"yn&%&mb"%$ Fޖ]1 3P5oikj2xml n2x&!Ս 2xh  aAh *j22xĄ 2xh 2x& 22xĊ; , #ko+#" _$5$ $l# i22xĊo22xċh%2x$o'65nJ"KPq  ~!!} !  ~ " Ցjol"yk#xmn&%$##&xi!!zl'o$&n$D#&xz!!y!!}' 塠!  '"|j"${b| ( (MMLI!JP ! Ոjol"yk#xmn&%$##&xi!!zl'o$&n$ continuess -%*** STRINGOP OSUTIL l,c-Pc/Bhcjcic0i c! c 0i h"-!/!/.& %Ph&n& % PP% Phkli!$,&O!xj#"k# h% "0&O!xn!i# %P% Ȗ.10߇0{0s0x 0shke 0xe l0  h e`ar0l0z$Z$ k#0s#0{0ć0 eZڡ e ȇ/eP1x0߇0ć0ޚĖ0t( -327688- 0(t8 *** PASCALIOSCREENOP CONCURRE `b par! !n&o" '(y'(z'({'+s+p''+p''**'*& & '}' c!l)ěLc)e,%,!ĚNNLޖ LњNNJޛLc##pj#"s``ߖDLߚNLޛJߛLߊLޚp?ih !  p hLtd *** EXTRAHEAHEAPOPS  PASCALIOh% #$pi!%K!j! %" #"$pi"%! ! "!j%" #"$piٚ! i! ! i! !  i(m%n&ս% % drċjh $ "$ x&x$ y&yj h"Ċu $ $ k$ xk&y#& K$ o'#' % $r p-%%%{%&#& &  d i     zi ޖ    yi ޖ8:i=5565zć5xȋ=kxx x k 5 kć=d 7785 7 8ɢdd7)5 5 jj!=yxx w5  <;ȊZ"& p$x ߄x"<;p އ<;ڡ<;w<;#"#<;p#;<5|*d5ć5 Ā =xȇ<;ȇ9 <;ath;;!i:!>=!! !!x!|sh !!x!|h Ė   ޖ !!{! !x!{!Ċ!!ޖ=  y  {  Ċ z  ޖ%%{%%y$ȊU% j$%xh" h#k$`ct% %$ #si %$ #"i$ !%y $$Ȋ%%y%{%%ޖ ,`u+`uĖ K` pp^   `s4    p  `p ` !!h G  ! x |s1  p x |p  | x !ޖ###`!T! #!  ip:##"!s-#  # # p # "!p# !"Ċ #ޖb߇Ոzbh  hpKabć ! s7  p b p  bĊ ćޖ h! v'`u&``n(`&   k\k !ra*** SPOOLOPS COMMANDI SMALLCOMEXTRAIO OSUTIL SCREENOPSOFTOPS FILEOPS  eEXTRAIO ^h% #$pi!%K!j! %" #"$pi"%! ! "!j%" #"$piٚ! i! ! i! !  ##h O!C!#!t x"p'  # xr xp  xĊ #ޖcg+j"\"??i"i!h.c.p ) .-, *p.-, *p. ,-x"!j, *! +" )i'ċ)j"&"Փ"k%"m#x%h& && n &#y$)t &#yi" &#y"z#y n&Ċ}" ('& $" n& $""%&""""ĊB" ('&%$" m% $,%m%%('%pm%m% "%&Ċ ! x)ޖ u ^[*** PASCALIOSCREENOPSOFTOPS  !USERPROG'a#`!" l/z. .x*-բ/. .x*-i!ռ/!.! .x*-h ՜/ !.!  .x*- /. .x*- ok)Y #'ko /! '#'0.! '# .x*+- ('+' 'o,Թ) /. .x*-k/#.# .x*-l$-#k/#.# .x*-m%/%$l/. .x*-j"B." .x*-j"*/""j." .x*"-j/"-ҖV`aĈ! !l$m%'%%%%&% $ b(!kj%(b v!xh!````!x! ĖV`՟```x ``x```x ``x`p`+`݇W```lcc$&mi!%c!!i譅cchcccdcׁY pcׁli!$cׁmc9!x!xz eĈ!!xċ%`!ժcĈ#n&&&&&& %!y& %!xY& e%`!& %瀐!xĊ& &&&%瀀!bĈ"n&#&&Ĉc!"!icׁh cիc p $`!!!!`ʖwa%xMjh "?! k# # # #l $ $ $ $ $ $ ho xz dph UdUpU yU y U U XXUX  XX݇dn`UX xp~ąąxąxąćU XXUX  XX݇UX xYh ećedćU ep ᥀󘤅TWW0aׁ WgWxWWc[[`a[ׁWW: W"瀀Wɥ󇆟`W W&f瀐Wxćfgĭh 瀐Wz瀐WzVVVćVVᇅ瀐WzVVxpxćxx{Ċ6fgVVVćVVᅀΤcZZaZׁVVVWZ[h`V#瀐Va[ׁ WhhzZVxS瀀VSćSćSfSz VSz瀀VćSz ećSS{ćVV(ZZ[WxTĄ[WxTWyxY`y_瀐Wy^^mdn`p``^]]B\\Ei\n_xć___dn`p``_\\i*>[WxyxbmVV[WxybpcZZՄVViaZׁ ViI[WxymZVxĄZVxZVx{ćVVZZr]]WW[[χTͥͅ떆& 0ĆFk#{l#$#{##{$$$$$x`a #{! !i!im% 7n&#z!%}%Ċ%%}Ċ %#z!%}%{%}%}%{%}j%%{"Ė h k# z.k# |h# 2p l$ z$$~ĆFm7n$~o' ' i$}' $}' $}' $}i$${!$ &$'$' p'j '''|($~($~Ė  Jh   00Ė p"ąx7aĆx !a! Fa 8` yyє Too many dicts in SYSTEMMSYSTEM.MISCINFO SYSTEM.PASCALKERNEL USERPROGKERNEL *** GOTOXY missing unit GOTOXYt-= t FILEOPS / 6"`p`i```!`"pO$& ' %gpxW(( !g  Ą   //M c Ջhɣi! %! !hcih!i  D 4 ć.ćć%ć% '&bf h i!b$!!!!!! h ɣaeh a  h oV.[PZYXćW]i!.-.!j" .!u" .!"aA!i˄.ն.*Z@.u.ui!ZZ<!.u!Z.d!ud.!uZO.ui!!i.i!.!Y.d!ud.!u.k#_.uh k# Fki.!j"Zk# XXx "0!i! #! .!*Xk#]#Y՝.YdYudP.WĊz.WĊj.WĊZ.W ĊJ.WĊ:. WĊ*.#WĊYdYud&WĖ\`!!!!`ʖaa%xMjh "?! k####l $$$$ $$  hY  Ɂڡl$ p Ɂڡl$Վa`p  ,  ɡl$epp  l$Nćykj"ppl# "p$a p$)Ė m%n%* o%|Fds%$ěF*%|p%xi!#%| (y(y %ӊi(x&& (&(թ((((MՉi('~h (G%| )))y)x) ) )  ɀd i %|  h!+(k%*%|#p%xi%!#'('(*% '(b( p! ! '*'%v%Ӗ 2 'ji)q)#)Ajhm)%Zj" )%0h%m%)"" i(!塤 !jh h) j" "Y |Nnj&|)&| dcp#&| ,j"!!j !)&| jpj"((h h n&| )&j" "3 n &)&&||'|d'x p nnih # !## j"%$"  ɀdi n hЖJ +,  Վd+ k  #) ()# d #k(V ) )ɢi#j) k +, #!( # "*~)x* #k( # + ,) h *+ + h+) +))Ė # i!$jh "# # h#$ % !!Ė !"h #   # i jhmTl"k### y# x#k"" y $%% i<k#"# x# y#i"k#k! " y"i"Mi!9! yn&o ʄ ʄʄ df! ! #h      "!!ᰠ x ! Ċ! Ċ !!Ė "i!!!!!!h !!!հ ! !!Ċ!!!!! h! !!!"~!  ! ! p !"! !#!!!!p! !#!!p !!&!!!#p! !#!!p!!!!!Ċ!Ė?BPě߇D߇D ċf de nf`i!ޛߛ! ċ&! ćć !ć fć|ć|| բ A jA"  ċ  " x"  ċi%m $% j"%/ " yx yćyx " ċY"ċM " ! ^ | ċ" ć! }ć%ʇ, ćʇʇ ʇAĊćՈ!ć"ćA  Ċ ćSćAI#p    p  #xp #xpDAćĊ|{DrćDxĚ!ފćDޛޖDz 'ߚ'l$$x9xՆ$_$m%P&3$$%  dn$$ $!$"$#$!$!p'$%  ɀd&$ b$ ċik!" #"! x%x"! y%yk!i#ċ!i&&"!  ɀd!" %" h ! " !!i"!  ɀd%  ɀd % D%$D % D % "! %%x$$% $ $ $"! $ $ " &$$ -$Ě 'ޛޖ!ߚ!h ! | {!r Ċ !ޖL&ߚ&}&k#l%#$#|`%#|%#|%#|@%#|@@i%#| % #| j"j!i$y$xh! ! "$  i$ j##### #!Ċ###!# # #!!#~#"<#"##  # # p # ##$x#ppg!#"0#  # # p # ##$x!pp*####{##!#!"Ċ &ޖU \:[].TEXT.CODE.BACK.SVOL.INFO.GRAF.FOTO.BADD  ( 93w?[U`- EXTRAHEASTRINGOPSPOOLOPSHEAPOPS PASCALIO ESCREENOPFS<``tK"! wkTrn"x!"!Ċ "x " Ėdh !   p ! ! pYY p}}||{{zz!h ! j!"#h # l%h# "<"i"<D!)>!  HyhRxhhb za {; |" }! u " !Ė;bi#"!z!|:ɰAc!zb!{!z# "!}: !z# Țu #" h y  yĊ y xCh y z  yĊ y xdh x xĊ y xh x { xĊd iy iyk$x#x#x $u ii$xh !# ɡ!# 塠 h m    =x x [ h  Ė#"&;#""{ih ! h#"u u ćx x ćx`Ζ!p"9Ě u  u `u `u j  Type > to continueetX9,(! UMC{4$GOTOXY EXTRAIO PASCALIOSTRINGOP SEGSCINIFSOdh ! !** !" d Ȋ d Ȇd "Ȇd !ʖ"$!  yh ! !** !"" ʆy "Ȇy !ʖ "/!  d*pypjh "   h)D:%ʆ:&ʆ;ʆ;ʆ;ʆ;ʆ;ʆ;ʆ* ۚۚ-jdȆd""""""""" %jky"" "" " " """" # # "dj"/_kc"scsc"sc 9_kc"sc"scsc"sc" sc ** ȆY pj" Y"ȊY Ț%ĆĆ:Ć:ĆĆĆq  }kPD* SEGSCPROFS*! i!i!jK`p`Ț`u : sm%%[%pl $$s sj%o*k z%"kq*u'i#nc$'n& 'p &(n'(o&#h ##'#pn& '$''po!'nn&ԝ%% v'&'&$ u $"'&oq q )? ):]?  (}SEGSCCHEwFS'&xh jdk`qaq冀;ɠu u5qy&xxq!&xli!$'! _u !i&xj P`qE &x:jq _v v'&x q vqj&&x"%%x"Ė!c ⼭ ۃii! wᱡ"wh ⼭ ۃoi!  i!  h"   !" ! h! u "uky i  ian ⼃h  $ #" n % n ! wᱡĖn`%`qd`qynyy$Ėj!`{!sj`d`{`(|{`sxĊ +l##"`# wK""!`kth  y   z  " ! k{ h" y z! !" {sk!k..uh+-. $%p+. ۃC.+. + . ++ ++`+ pP+ .p*.`+*p`+*ȭ*,f `%G v%v ⼚ۃVV-, gi" ~ h 1  ! ""!i!i! """! Ԥ!k T,UP.,wph #.ia a,S awph #.ia a,S awph WV UV`',`("++`P +U +(VVU V.Zw&t..u[$Ma!i `!hj "!" %"j" .w !.wV  zyx` zxp`ixĖ F!f ,!I"**Ċ="*"x""x*Ċ "*"x""xĊ "*Ċց,"x   a ՙhx2hcx4hSx7/hBx;_h1xBgh xIohxQxha x  aa),(,',x xxĭ &*h&xY [+~&x^ a+f&xd h+N&xk r+6&xu |+&x +&x +&x+++++++++t+g+Z+M+@+3+&++ +++++++++++}+p+c+V+I+<+/+"+++++++++++++y+l +_ +R+E+8+++++++!+$+'+)+++-+/+1+3+u5+h7+[9+N=+AA+4E+'G+I+ K+M+O+Q+T+W+Z+]+`+c+e+~g+qi+dk+Wn+Jq+=s+0u+#w+y+ {+}++++++++++{+o+c+W+K+?+3+'+++ւ ++ 0 ,`dc zx $Hb+ zyp z"$p b+*p z"p e+*p e gf))a,(! B ĭ  Y xy!x 0z "h`i```! k"k (⼀ۀۀۀۀۀ-h(* x))x'ċ x))x'ċ  x x))x'ċ x x))x'ċ 'p b p xbx2 xbx23 xbx2'p b p))xbx2Ċz* x+ x) d))x'Ċ\V'0Q&0L'&/ڡ'&18(o'2ڡ(o'1'%1yl +${+x$z*)փ5  x xzxzx x)պ p `,*p  ,)p (p a,*pxx!{ (xp f,*p&/xn&o.%xzxx/xxfedcb.)-/%$#"///x&'Ċ%//x&'Ċ a!j/!jhr {l$zԹ$ zbc" r yhrږrcih !J j"+" /"g "c" "g  h#{h#y #-j"    zy #z aĂ! aĂ! q 'n&rb&|&bq&&)' y' z&& & "&ɤ .&$& ' ' && ! afaqh  }%Ėah e a ) . - + *  ʖ  (`ba`ba.g z" !c8(u$g!liep aփuHk#-#xq#|k##zxxsq!px h .px  h삄 h . px   px - h A##ba`ba`.5 ; ք!hj ⼮ ۃ&k#+"(#0 d"#0Ċ d"#A "j## ""j# ⼃4Ԗ"'dxi" !dxi px !Ȁ 7 h X @!hj"  px "" ~"- h  lh{9# y z!,!#x z##x"# {sl""xĊ "# {sl"lk|U#L9 =xbAjAxaAi|qh `#b."!pq !u s;`{"i-"#D`{si"xĊi!"xk {yjH{a "x +"!x L`Dq"!xx C|0|qi!|{`D q!x CR|z|{`D q{x Cica`|#z{|a{s!{bD yq"CY{a  `Dyq! qxq!i Cl|T|qi!A$5j!"{$x"|k"yj"ry##`D"q CbiCph JGHI EFքvep u ;j ";*ryhi  ri yh!ք'ijh "M k#4i  #### #  h!j  &/w`6`4/`8w`   9h L N OPքٖ nkm lք@#Lj#Eih "&  < EM1?- Q(S$L @MB#T 8rօC w ih ! 9 hw! Հh !cba #z" !d4h N +}      x   9" |tȚ+ɤ onm ` yi!{l+!yi+!!z!{!{l!k#jyqyyxy or to continue, to stop #4:#5: Filename? .text First  Last  Nothing in file  error reading file  unable to open file SLDCCSLDLLSLDOOSLLAASSTLLSCXGGSINDDSLOD1SLOD2SCPI1SCPI2BNOTTINCIIDECIITJPLDCRLLDRLLSTRLLCTRLLEXRLLLDCNNLDCBBLDCIILCOLDLLLASTLLDOLAOSROLODLDASTRLDELAESTEINDSTOLDCLDMSTMCAPCSPLDBSTBLDPSTPMOVINCIXAIXPLANDDLORLNOTTLEUSWGEUSWABINGIADISBIMPIDVIMODIICHKEQUIINEQIILEQIIGEQIIFLTTNCRNDABRNGRADRSBRMPRDVREQREALLLEREALLGEREALLADJSRSINNUNIINTDIFEQPWRLEPWRGEPWREQBYTLEBYTGEBYTUJPFJPEFJNFJUJPLLFJPLLXJPCPLCPGCPICXLCXGCXICPFRPULSLBPTSIGNALLWAITTEQSTRLESTRGESTRASTRRCSTRRLPRSPRDUP11DUP22SWAPPNOPNATNATINFO(OBh+iv8K`S5\$ #z'4AN[=Jq~0u9F ERWdm,_lyXe1>rILLEGALp(cd)  No proc in seg Seg not in memKERNEL (rg) mp== sp== erec== seg= ipc= tib= rdyq==  ) :  AR~~  Start  End Seg#? no such seg no such seg Delta lex level? no such proc no such seg  ES Mem address?  DU (bb) No breakpts set Set break #?  already existsRemove break#?  LSAR " EXTRALEXEXTRALEXLS the sib is 2~O(0<@DEBUGGER+\y Hit break##Error # at DEBUG [x18]DEBUGGERs^p7GW7 ~ " K   x ; r hmZW}I3 {kbUO/idYOJ* VSPOOLOPS,b/tĆĆĆ btp5b+u(+i!++! ނ w!i p+s`+ bt, r  r u r  *SYSTEM.SPOOLER Spool_TaskkSpooler Error: 0You are using the wrong version of SPOOLER.CODE..] r}*** GOTOXY CONCURRE EXTRAHEASTRINGOPEXTRAIO FILEOPS PASCALIO SPOOLTASm7)`*P `Ptp+"tp uih !U ) h?i"  *u+p=t)`*P `Ptp+pK:5p$5xpm8-9-tj-B-e-veY,u\v-5v7rլumelve-5vei7!t!j;"*c ! mh %c p hj! p! ! Ȋ!i887 5p$ߊGd Ȑd pt:߈))|4ފކ߈)ޖRSބ-t 5p$7}w焁t S*SYSTEM.SPOOLERcan't open *SYSTEM.SPOOLERRcan't read from *SYSTEM.SPOOLER#error in writing to *SYSTEM.SPOOLERin updating *SYSTEM.SPOOLERerror in accessing PRINTER:.TEXTerror when reading print-file error when reading print-file Spool_Taskk9r RREALOPS h3   p  Ɂ ,  , d  d `d dd`g g `d ``` `c c ,ʄ`  frr q r r r r p #h )¿he  /5¿he ; e?eD Je Ha e NaTaZa`afalaraxa ee~eeed`%d`!# p`#c Ɂc ``d``dg g ʄ d;ddddddd „ " ''&H p6 p&¿   `E d  `d  "dc c ɇʄ` d &d* p.bd4 8Qg Ʉ ɣK<:g ʄ `d c ɇc c ɇʄ`B d  F J  N# T Z^ b  h R  lrx~„67򁜄#򁪄򁰄ց „""!d`d`d`)+` *` +*` ```r 2 3Pdji h 52 - ( +kk# #Zڡdd „ #0#kل #.# 5#k #Z"jdd „ #0# #Z(dd #e #E# B#k #- ( #+#k# #Zڡ! #0i#k(!i!"j"""idd!p dd"!p "idd!p dd"!p 5d4698߇8{8r8x 8rhjkl 8xȄ m8  h"`as" "j# #k0mfZ":ff ff#ff "ff%e%E" jf%.#" kf%fl$8r$8{8ć8 Zڡ   塠 ȇ7P9 xĖ8. -Ȋ i  hdp p e ' p ! i p hЄ d- p ! i p hˇ! p ! !p !i k# j#"0Ȅ " #kۇ!oȇ.k!Q#E#k! #-#k!i!c#!d0#k!di! #! 0#k#! 0ȇ#ȋ!=!p!.ȇ! p !Ȋ!ȊK=!p0ȇ.ȇ!0p!! pȊP  zpxk#p#pxj"R#"pxm%2pxo'#"px p % xnh&x2   &x &xh&n& Ըx0xl $p x$p  xp  &nx'&px%m! a!y{p ]C!j7 nS"w 0o '"w 0o 'E j4ݎ# j%"&#6E"'#7:." 5@    ] :~   c`   )"#cfgi~O{)?&0   &<%1&1$6T $o %_T&#1$6T tJ  pP '''T$^)<$9 `""w 0"w 0 w 7 D"$"w Ik a:$`  @""#@) E &q!S 7 G"^& "w 0o.&dE &A&P SINNCOSS Argument of  for  is too large; returning 0.00 (@(( 0dv  fSCREENOPPASCALIO %PDEBUGIN w &,28  J uTFWYZ~@[^_vwy&FILEOPS SCREENOPSEGSCINISEGSCPROSEGSCCHEGOTOXY DEBUGGEREXTRALEXSPOOLOPSSPOOLTASREALOPS PDEBUGIN  SCREENOPSCREENOPSCREENOP 2 DEBUGGER4- SPOOLOPS NEXTTEST.CODE 4) TY  P ? 5SYSTEM.MISCINFOh SYSTEM.BIOS WINERRORS.CODE ATEST.TLONGOPS u[IV a.0]   IMPLEMENTATION (LONGOPS 4c !ct ~qqsqqeqqWqqIqq;qq-qqq q q q րhc  c-hjj"c(c"0i !i   qq!qqq qq!qqq qq!qqq qq!qqq qq!qqqw qq!qqqZ qq!qqq=  qq!qq q   qq!qq q ր"j! `& q``!`s !$ ( 0Nl` G,'@('_,0HN /+,&k(Nu`<```P``J`V`|``d`p`p `p&k(N024AgmBgS@f`J_fR@f?`Fo`rtJ@jD@FAHvH@B@H@ Ԁ@SCfNu0a/??<`^ OO"O02S@j0a22"`>02|o J_flS@`tS@gHB4`HBxv ւBBSDfJf@b6JAjDC?`*"Hp BS@f0S@@2J@g$"OOJf CS@f`"OHA2!SAfHA/NuB?<`4"O SBf4 gB!R@.I?HR@?`~S@k D QNuS@k D QNuA'Hah7@7@7AAaT7@R@7@JkgJkg|kA'H 0<(B S@fA~C0+ S@f kp 'H2 B@@:JEg$Md k C0+aNA"H0+a@` kfA0+k2+`SBk|0Nu4>ExAaAJ@f BAa`  20:'.' expected  21:'*' expected  22:'INTERFACE' expected  23:'IMPLEMENTATION' expected  24:'UNIT' expected  50:Error in constant  51:':=' expected  52:'THEN' expected  53:'UNTIL' expected  54:'DO' expected  55:'TO' or 'DOWNTO' expected in for statement  56:'IF' expected  57:'FILE' expected  58:Error in (bad expression)  59:Error in variable  60:Must be of type 'SEMAPHORE'  61:Must be of type 'PROCESSID'  62:Process not allowed at this nesting level  63:Only main task may start processes  101:Identifier declared twice  102:Low bound exceeds high bound  103:Identifier is not of the appropriate class  104:Undeclared identifier  105:sign not allowed  106:Number expected  107:Incompatible subrange types  108:File not allowed here  109:Type must not be real  110: type must be scalar or subrange  111:Incompatible with part  112:Index type must not be real  113:Index type must be a scalar or a subrange  114:Base type must not be real  115:Base type must be a scalar or a subrange  116:Error in type of standard procedure parameter  117:Unsatisified forward reference  118:Forward reference type identifier in variable declaration  119:Re-specified params not OK for a forward declared procedure  120:Function result type must be scalar, subrange or pointer  121:File value parameter not allowed  122:A forward declared function's result type can't be re-specified  123:Missing result type in function declaration  124:F-format for reals only  125:Error in type of standard procedure parameter  126:Number of parameters does not agree with declaration  127:Illegal parameter substitution  128:Result type does not agree with declaration  129:Type conflict of operands  130:Expression is not of set type  131:Tests on equality allowed only  132:Strict inclusion not allowed  133:File comparison not allowed  134:Illegal type of operand(s)  135:Type of operand must be Boolean  136:Set element type must be scalar or subrange  137:Set element types must be compatible  138:Type of variable is not array  139:Index type is not compatible with the declaration  140:Type of variable is not record  141:Type of variable must be file or pointer  142:Illegal parameter solution  143:Illegal type of loop control variable  144:Illegal type of expression  145:Type conflict  146:Assignment of files not allowed  147:Label type incompatible with selecting expression  148:Subrange bounds must be scalar  149:Index type must be integer  150:Assignment to standard function is not allowed  151:Assignment to formal function is not allowed  152:No such field in this record  153:Type error in read  154:Actual parameter must be a variable  155:Control variable cannot be formal or non-local  156:Multidefined case label  157:Too many cases in case statement  158:No such variant in this record  159:Real or string tagfields not allowed  160:Previous declaration was not forward  161:Again forward declared  162:Parameter size must be constant  163:Missing variant in declaration  164:Substition of standard proc/func not allowed  165:Multidefined label  166:Multideclared label  167:Undeclared label  168:Undefined label  169:Error in base set  170:Value parameter expected  171:Standard file was re-declared  172:Undeclared external file  173:Fortran procedure or function expected  174:Pascal function or procedure expected  175:Semaphore value parameter not allowed  176:Undefined forward procedure  182:Nested units not allowed  183:External declaration not allowed at this level   184:External declaration not allowed in INTERFACE section  185:Segment declaration not allowed in INTERFACE section  186:Labels not allowed in INTERFACE section  187:Attempt to open library unsuccessful  188:Unit not declared in previous USES  189:'USES' not allowed at this nesting level  190:Unit not in library  191:Forward declaration was not segment  192:Forward declaration was segment  193:Not enough room for this operation  194:Flag must be declared at top of program  195:Unit not importable  201:Error in real number - digit expected  202:String constant must not exceed source line  203:Integer constant exceeds range  204:8 or 9 in octal number  250:Too many scopes of nested identifiers  251:Too many nested procedures or functions  252:Too many forward references of procedure entries  253:Procedure too long  254:Too many long constants in this procedure  256:Too many external references  257:Too many externals  258:Too many local files  259:Expression too complicated  300:Division by zero  301:No case provided for this value  302:Index expression out of bounds  303:Value to be assigned is out of bounds  304:Element expression out of range  398:Implementation restriction  399:Implementation restriction  400:Illegal character in text  401:Unexpected end of input  402:Error in writing code file, not enough room  403:Error in reading include file  404:Error in writing list file, not enough room  405:'PROGRAM' or 'UNIT' expected  406:Include file not legal  407:Include file nesting limit exceeded  408:INTERFACE section not contained in one file  409:Unit name reserved for system  410:disk error  500:Assembler Error  ZC %FILERPROBUFF1 BUFF2 NONBUFF1NONBUFF2NONBUFF3  m-FILERPROFILERPROFILERPROFILERPROFILERPROEY vv0LFILER@@v> PJP :c t n>BUFF1 -EYj e a . . h ~e - - h ~a ea.-< 5rh טrpq q ol'''­q qn$k#00k #vjpq $#l&*n˜q16qw Fw :vwq ˜qDBB#131 |#qw wq ˜q1qwqp"q1 1 |h"1 }q ˜rpq q 6''"j"p6 ' 6 ' m % 6 6 q"vkpq "#q % w ' ' q$ wc 01 }i1r 11| !ć11 !11|r 61'212 ć12ʇ12 2 D 1Drpq ' '116  1 16 1q r r<qih:>H$(aq4`qiꆀ삀9Ԙ/86>`-r`**: *6 *r`q ))*)J*  dʇ<++. +A +6 +*<@`rpq @:9q ;`r?ph`였 `B ` `I `B `J `Z `K ` `L `>Z.FB98w q q .M:qNw w :v.w Sw q -UYqZ q B@-삀Z[9^8솀 p.ZFq9ka&  I8;d . e hq i w sw 8 |w 8~   w W  րPut in Insert destination disk:TransferrTo whereeTransferrblockss# of blocks to transferTransferr *SYSTEM.WRK... *SYSTEM.WRK..,:.,Save as  ? Save asTEXTTCODEETEXTT*.CODEOld code removed, Text file saved & CODEECode file savedST^ 7!BBUFF2 EY Hq `qil $k#00k1#$ppK$$#mj"%?1"pp)!ibq"w "w&w w"j$#l$ Ԏ!w*w wqD5 k5  Pk0A`1 p`qk&i lj"$! " i"j!k#mu(x'x'xj(xj5 k0w w #w w#4 F@ 'x(x  0 01(x ppq 1&x ppq  ԕ'&x (&xq# Ih  ɢli!$! m%~1%"!h!i  #xĖ q;?@q@LM5 y q q q w`W ( )-$5) .x5) y ..5) ) 5 o `\ 5 ( )-5) .y'..g.xo) ߚFw _w w,ew wʖ րmBad block scan ofScan forrblockssScan for how many blockssBlock  is bad bad blocksMoving SYSTEM.PASCALCrunchhFrom end of disk, blockStarting at block #forward back : cruncheddPlease re-boottBKk= NONBUFF1EY+%+Kqq+;q 2 |;qwJw :v+ %+w++!"h * *) ) H7w  w w = "w"wG&r q‚h c5 ‚(˜rpq 5c-,+*)(5 y'i:5 i : %+!r,qa2 |;-q w .v--5, .5, y.x.y.x('('.w .w (w. w-v/.  /w -v.  wHՂ=M.xw. ww /. /w w 2.xw v/. /w ? !վ:Ֆ5, y5 -w/v5 w"w =&w 'w/w 6w )w8w <w *w>w pq b b wrpq rH6DGqhH`q*5 3r aKaOF5 aqȆ삀UԦ|V[`qJrqJw \w w삀cqwi! !ɣjh ".! k##w dw w#r h͖0hk,⼃,sqq,phq ր Ԩih !\ j p"p"< 6"0"'""" "ր hih ! p" hww wh Fri1!1 j"խ h1w"| w w "w :v"|X[ "v"}w]v1 "(w "w w "ww %q qqwh12w @w :vww <w :vw   ց < UNUSED >>Dir listing off#1:ListtWritingfilee filess, blocks usedd,  unused, in largestMountMountMounted NOT MountedDismountt : Dismounted : Dismounted,Subsidiary Volume: M( ount, D(ismount, C(learr MCONSOLESYSTERMGRAPHICPRINTERREMINREMOUTT Vols on-line: # on volume : starting at block Root vol is - Prefix is - EV@jD t| $NONBUFF2EY)  q `ĭ)) `xppq q`  ` yx`   q ` ćʇMćwqw q 夃E` Dć qw q  ĊĊ` ` yq ) `xppq )) r&*`-r qqk`טrpq `q ))****ć* `rpq qFw :vZw !w w삀$n`r*q Q.% &w '+w w :v.w 98 2w 9w .?&@Ac3`-r98qBw q p 4wR[q\eqfoq)). )p )sq  4qww `r4.&h` ` `. ` `q>Ah`. ` ` w w qF.Z.j"hq i!"5.c" c. "   ." ..,&  h!x w w apjHqqw q  j" q3 55 (q w w w q솀:삀"였  였DqFw w q }cdF D3Jq3appq dw w w3 V  ɢh .; /~3'/rw /w w w h^ fHqqw Sww SRw Rwww wRR5R5 5 RSSRCqwSRdVVd VqVVqw q pap pT USRdVVdw Vw1dVp1dVpp 1dVppdd w wkw wVq5RV5 yHUV5aayćTTTMɢ5 q aTVaTVćVUVV!ayqw  w +w q pqYʁbcDZ/aydVVdaVeeyWexXfTTf1Z TeyOTx0ȇeeyOTxćTT5 TW5T yTTWT5r VVyq6w f   ց?#Zero subsidiary volume directory ? Duplicate dir ? Makee made not named Workfile is (not saved)) No workfileThrow away current workfile ? *SYSTEM.WRK.TEXTT*SYSTEM.WRK.CODEE*SYSTEM.LST.TEXTT.BACKRemoveeWorkfile clearedd:& Get.TEXT.CODE.TEXTText .CODECode No file loaded Zero dir ofDuplicate dir ? Are thereblks on the diskk# of blocks on the diskNew vol name ? : : correct ? : zeroedd : dismounteddExamine blocks onBlock-range ? Fix them ? Block may be okk is badMark bad blocks ?? (files will be removed !)) (Y/N) BAD.xxxxx.BADBad blocks markedGZKNc   NONBUFF3nEYM`-rqz:պRV--V - -(: --˜( -zA -(**q\`טrpq `q )˜qq%)-- dʇ- -Zq-Z`rpq zձ˜Dq>q ,  35p5 F35pp+, +q 3 F@Jz3@F1z5 D15r as>D+>asOw Dw-v?D ?w -vD wX  րVChangeeChange to whatt:Changee:RemoveeRemoveeremovedUpdate directory ? %Date set: <1..31>--<00..99> Today is New date ? : The date is CRS@| cYFILERPRO EYs$s ,s c c i!!@?il jj!H"i!h !00h ww p0` ` !p";Ě`w a z aAh j`! jwFjzb‚(VRׂ(J N!  pqVY`ڇX`"PYc`#P]`-PT`5PK`>PB`EP9`NP0`WP'`^P`fP`pP `xPրX`P`P`P`P`P`P`P`P`P`P`Px`Po`Pf`P]`PT` PK`PB`)P9`2P0`BP'`XP`eP`xP `PցX`**`P *Y *PY `pɡw Yw'w Xw`w WpYw 4,p4Yiww sp35r p (h !9!  ! a! z ! ! aA h!  !p(/-a+h5Q5 *Gw  v5 w vw w  h)5  ;aw w )ww )x*w p0>5,w Fw w  pn[pDia( a/ a(ih !  0ȇ  hT  ( +~+ r jaga" 0ag " j"h$ rcgcrh c h Pw  w w gw w grh g pb)g/3J5$5 ih !b  5r h( B6E)C`-r`6rpGpG)2)w  v6w w  G `rp `rFaw :vw &h P(ha  w w aw w !!ڭpp *- : @w :v: <w w &P w  #" !8h7Zh'hhhւB &P  w   w  w pU b(bFZar p` ` BFFr5,1  1p"p 1 |  Z Z5r    5Cx hr iaV a a  a(Y+;Y+w  v w w ww4,p4Y F 0  ` 5 ` p` U ?+D(FCxտ5 B2 |2BA: wBJN32 5  h )j5 *ʆj*F"j*j"**:*<ʆ ʆ h< BCCxĆ'@3JNCx5 4Y5Cx CCx< Cx)) )ʑCxBէa) )j  az[zpbh  :堡M R    z!  a0  b?  ():!J)!Cxʆʋ? ? El T *pTiP *T-h $%=%?%%+*aT a(*T * *aT aw &P %w ,',w 2w 9w ւ? ", wwDw Lw p-f * *piׄ삂UNטw =E Vw \w aw w w ,pTT#p*옄WT WPT  ;?&* :&T*#T* $*** 炂cWW Wd W($&UU*S*#p`*P**Ȉ*Up`U*U`Up*P=&TT*?&TT*0F%:  $*T$ `:H+WWR We W> $WW䘀( W昀A W( S1NF3J삂fHSS:ט@ טDGOC7K*I`gP7Vjא#1JFH"삂hH*Rzb#L >,rZJF(h`F `i `Z `j "ypw wMih !_ Q5 j zw w "w "w "xw"yww h|5P5 ih !65 y#x'"# Ċ5 x#xʆ ʊ h" #5 Ėj!x h y y !r x; y y 0 Ɂ#    Mj3]삂jkc' cK co c c c,s4ki!#j! l$S!mh %F$ 3 w !ww  ww h!im4\7m奁mwm(w 35Iw mSgw tw vwww w74{m4um4 7m4 ~7m4 c7m4Hl Non-Wild) carddIll file/vol nameIll change (Vol file) name+Nested subsidiary volumes are not permittedBad dest for files foundd%Can't Increase Subsidiary Volume Size"Not enough room for existing filess)Illegal SVOL size - no room for directory9CM%/CWuaMk expected I/O error # Filer error # ? (Y/N)  ? Invalid #Destroy : ? [*****] #Put : in unit  ?  -->  - 0,  : ? : not processed ...too long < file name scan string vol name  - char. max >>- Illegal formatt what filee what vol ? *::: Remove olddFil e(s) endangered: Directory'Filer: G(et, S(ave, W(hat, N(ew, L(dir,$ R(em, C(hng, T(rans, D(ate, Q(uit, $B(ad-blks, E(xt-dir, K(rnch, M(ake, P(refix, V(ols, X(amine, Z(ero, #O(n/off-line, F(lip-swap/lock [D.9]TBWarning units  &  have the same name&buff1,buff2,nonbuff1,nonbuff2,nonbuff33&BUFF1,BUFF2,NONBUFF1,NONBUFF2,NONBUFF33Filer segments swappable.&BUFF1,BUFF2,NONBUFF1,NONBUFF2,NONBUFF33Not enough memory..&BUFF1,BUFF2,NONBUFF1,NONBUFF2,NONBUFF33Filer segments memlocked. [[ words]buff1buff2nonbuff11nonbuff22nonbuff33Prefix titles byy Prefix is BZ/g/gg//gSYSTEM.WRK.TEXTSYSTEM.WRK.CODE0???JanFebMarAprMayJunJulAugSepOctNovDec??????????( Bad CodeTextInfoDataGrafFotoSDirSVoll4FHANDLER,FILERPROG,HEAPOPS,EXTRAIO,PASCALIO,STRINGOPP;SCREENOP,SEGSCCHE,SEGSCPRO,OSUTIL,FILEOPS,EXTRAHEAP,SOFTOPSCOMMANDIO,SMALLCOMMAND,PERMHEAP4FHANDLER,FILERPROG,HEAPOPS,EXTRAIO,PASCALIO,STRINGOPP;SCREENOP,SEGSCCHE,SEGSCPRO,OSUTIL,FILEOPS,EXTRAHEAP,SOFTOPSCOMMANDIO,SMALLCOMMAND,PERMHEAP&BUFF1,BUFF2,NONBUFF1,NONBUFF2,NONBUFF33-8 O*dM,l|eY X &EXTRAHEAHEAPOPS STRINGOP PASCALIOEXTRAIO COMMANDISCREENOPFILEOPS  -c@B | EDITPROGGETSTRINFLIPPZ INITIALIOUT COPYFILEENVIRONMPUTSYNTAEDITCORE  2EDITPROGEDITPROGEDITPROGEDITPROGEDITPROGEDITPROGEDITPROGEDITPROG5uACopyright 1980,81,82 by UC Regents and SofTech Microsystems nl  n>bGETSTRINLhqу0ъ& r tr h#"r#"rhhրt!  h Pр!Ԑ! ȚuA! ?FLIPPZ ;6""i!h!!Ȉ! Ȗs`\釂` AINITIALI}; .t u.tYp᥃ↃDDih !  hـ^?Y! ! Ҁ ! ʖR! ʖaah  qxa! i!p!jO -  0Y  Ge  Nm  Sn  T n&&[&pmU %%  l&j&$k%"i! "ph! i" j!### "#pi!"%" "p j!Ԯg &  &"g g  V  g g  "!   "!%"g g  W  g g  %$   O O OgOyp xgO"! jիra? ?a??ȇMY~ L N( r 7u u;u ^ th p?qY  YYvYՇ^ thpFq \ p5 5 05p 5 5pp Lq Rq00 0 ^ ҅ʅ09 ACDFIJKMP Q R S V XZ<,->.+=/ ?"   Rʇ !   +ɥ> [P@ X    ?q  rq00ȅ0p0 u uJ#  & P^# pq 5P5u 5#sр!p#00 0 #o'#'#'q'o# ####.$##P U P##. ## ^# 5P( p 05 505 5҅ąAZ҅Aąaz҅Aą09҅Aą熁  Ć  "> q64q ^  Unable to allocate enough memoryy- Edit: A(djust C(opy D(el F(ind I(nsert J(ump, K(ol M(argin P(age Q(uit R(plc S(et V(erifyy X(ch Z(ap [[IV.1 F7bb]:] ? H Insert: Text { a char, a line} [ accepts, escapes]]0 Ins: {,} [ accepts, aborts]] Ins: ,,,>A Delete: < > { to delete, to abort}0 Del: { deletes, aborts}} Del: ,,>< Adjust: L(just R(just C(enter { to leave}}1 Adj: L(ft R(ght C(en to leave Adj: L, R, C, ,>Edit::Reading Reading filee Disk errorr Disk errorrBuffer overflow..,EDITCORE,PASCALIO,FILEOPS,SCREENOPS,COPYFILEEUnable to allocate buffer..>Edit:::Workfile lost..5No workfile is present. File? ( for no file ) .TEXT.TEXTNot present. File? lldQ z {OUT B~,X r u uu uu u&u u<u uqqOԚRE r W 6hr #Uu #u u_u sKt i!!#'! #P! Ti!T!!q!iu .&TTP TxU TP.   {Pr u , DbpYbp,bt..t65M 06pi06b!pb!!p,bt6!.t65+bp06b56p,bt.t, uu 5uu uU=@&, , *u qqE q, ~>Quit::# U(pdate the workfile and leave E(xit without updating+ R(eturn to the editor without updating% W(rite to a file name and return '$' writes to )Name of output file ( to return) -->$.TEXT.TEXT*SYSTEM.WRK.TEXTTWriting Your file is bytes long..SYSTEM.WRK.TEXT*SYSTEM.WRK.CODEE4Do you want to E(xit from or R(eturn to the editor? Writing out the filee  COPYFILEK'qpU006p6q56qh`qqq=qpq64256566060pV  j"! %) i!!"!d."!" .P." .P*d h d kd q p  q pd  #q p ##q p.k#.##q#k.k#. # #q#kq+qV)$#P#$j6"6".qp  $06"p06"qj6"= t p7qp.t  pagh a  ha @qp&] x%S %x&&x%Ė  I Mg= t `p `v `pQ   U   d=i PYqsp= PmpPq (k&"* &"n'#%" &"%q &"'#%"*" '#%" "%q "pq=q= = dImproper marker specification..Marker exceeds file bounds.[ ],.TEXTBuffer overflow..Bad disk transferMarker not there. & Copy: From what file[marker,marker]? # Copy: File not present. Filename?  Copy Disk Error.[JU;-  ENVIRONMF**+*u *Ɋl`Pf` P]`PT`PK`PB`P9`P0`P'` P`%P`)P `.Pր3`u  t*uAu * ɀF* Ɂu* Ɂlu+ihC u ! rB Du Gu uqqJPu ih !r hTƅTjT Zu ^u hqуb#trtуdՅt  0hуfԪ ihu <r ju uu?ki!#"! -tTt!ijru r"u"rqqqhъ7j6" q j," ?q j"?"q j"?""jրуtHA" "ʊ "ʀ-t r?q q jրр 30uu u u uuu uuu uuu tuu uu uCu 5uu 5uu uu `u uu Q;u 't u <u 'tuuZu uu Zh Bu [u Zu u uu"u # #u 'u u+u 0u 8u u>u u@u Iu Nu r PPq! PrqiqfՑrي~rڊrrq q ܊\rq q ݊Frq q ފ0ru "r q Prrۊցl qq!?qNONEEJanuaryFebruaryyMarchAprilMayJuneeJulyyAugustt SeptemberOctoberNovemberrDecemberr , TrueeFalse@T or FF@True False  9Set tabs: C(ol# T(oggle tab Column ##pCTA(uto indent F(illing L(eft margin R(ight margin P(ara margin C(ommand ch S(et tabstops T(oken def bytes used, available. Patterns: = ' , = ' Markers::   Editing: unnamedCreated ; last updated (revision )..Editor Version [[IV.1 F7bb]..+ Environment: {options} to leaveJATv Not optionn   PUTSYNTA]4 9  o  ''p  P'ej+'}j!'j'j ' j j "t  P ii'dm'%d l' k %0Ȅ $0Ȅ #0Ȅ 0p: !ph !  p !h !p!i  !Ժ   P&! P! nPn&Ȅ &p 4)` ` P`q  u`q u qq   )*SYSTEM.SYNTAXXSYNTAX ERROR ## . type EDITCORE8><r tq7 Pq!qqڅр!Bնc55 775 qc  qjq 07pj"  75  642onh07o06n07)(06(7i67)7i7(066(\060656p67 0706p) 0706p 0706p060!767)74060656p67 0706p) 0706p 0706p56qq66(&'5( '&6qq64q =qF pq #aqa'Kh Za[  ha[  +q xq64q =qP1q!qq'q4q5>q h րDр!Rq Wڅр!Ԣ@څr 6:q=q\qq'!Zq ZZyr Zni!&>a!tiu [!u ku !u!imq qq=q]AhZhbqb?Zni!&[!b!h!i熃[ b 6 ZZZ~Pq!qqhi E p M !!q !!q=qq&qq p36P!Pq!qqY q p63q 63q q=63q 63q63 060356p 030653p563ࣥ63q =qqsq5656060pq6qqp008 Ȗ^l塅元٠р!&5 06p6l006pj6"$iZnk#&$#x"##x!"q #k56څ塅р 6q  qр! qq64q 642767i iqq r9 /qq r  qp# h  ? h 606 p6Z06 ȅqq04 ޥ ܥ  68068 p68 q22@0606 66q2206 q9 040264p"690404964p p690202 8Ȗrqуъ  ց8允у"ڠ6 066Ԝ  r  r r rr > >  u   >?h?h ! "!t !  r ! !t r !q  R   ? r  r  >  u  -06p 06pq 6i6!h ݅ܣ p--t r r0!0! p0!c p60! 0!ȅ 6j!q"ܥ 0!8 8  rc u  @  06p *?*?q *!06*p06*p?* 5hPMql!q64266imڅ6402 02 ܢȄ q,+r,+rk*C),)+r*u ,+r)k,+r u+>> l)+r*u ,+rу$y,? r tr, - . ,텃ݳ-,t*,)#,+rы8 ,+r+606 Ȅ =q*$ql+r +r+ q8962 ,+rK6!P0P'qp"qqY!ъцPMq,+r ,+r,+rցMуYр!!  i 01p1h!" 5  0 p h!ii>r!i# q rc98>q!"#5/  5>!q6 q >q& <> q=q q hq2 :22q h4892 06p6q q q h 06p6i!5 !5 :,! 06p6i!5 h>6ɭ>>> >q54892 06p6q q q :6q q46:6:24:64 06 6q  06p6q q46:q q q 06p6h 6: 51: 6 q4>2 06p6h>>> >56:q qh665 > >> >65q q> 64848q5>qq88ᤀ024202 [42 040254p$5d\q%p 040254p24224q52402802 2qrr98qr2k 6 PNq!lqqiq  qq  уdw<>h :R h" F$!&= 04pj$+8&%"8&݅ܣ"8ܢ&ցf :&!:ilr :&!:ilakKq 04pjq1l8&)l"8&l݅ܣ"8ܢ&ցs р q qр #:h li!$o >! k>' 06pj##"#kq##8#k# >! !i "ց ")pq2 06p6" 4>$ 01p1rrr p#8q i 04ph04!! q p" rrPq!r) pj pi!"q k#h5 5 qq+p 00 5q p 00 5q p  q5 5 q0!" 0" Ȋ0 Ȉ"0!"p0# "#q q 0!q i`` !q `p!Ȳ` !ȣ`p?!>q pr!!p! p} q h  p p?>prO*jc!qуOъDrq 3?r?q +)r+)r ,-ց‹.?q ?ɮr,+) p?rO r=у1Țt?r?q уiр!s p6r?""!"pu r75 07p6r +?р!?cpzPq!r)  - ,0leq q q )h :j "+) r!1 ha)h :j  "+) r!1 h2 !:i:,# !:i:-уq rуC$!kр!Y p6r?$$?$pu rr +?р!?ep./!  (ъ#$<#$ց!pqъXq4qL(2pB >!:< !,($:": q>:"'ւ rNrrr*rrrr у #qqm$h #>0 * hu aq j #" ""u !h 0 t h&%r&i%#jh " ! riu h%#$jh "  t h&$jh "  t hRljki 6nm$l m6n#k4p"!"!$#&h%n m"h!j i$h#l k $"#!6o&dbq'$"r&%3r  6i q2j64lPLq!qqn6  qq  у#[ъI H!D< !62.:")<>r tr'ւ%6! 4р!р q rу1P!hq$642"iр R6!qF6!q 6!q62$!6 060!56p 0!065!p56!ࣥ6!q q46q  ?6!5 6!q6!q 6!6!q 6!  &m%%q" ъ 5 %ւ42qу9 tUр!qqpr tr+ r tу;у=6 q   ւ?L 6qR7qS7Xڅ`qqpi6)#! ! tr!i !t#!!i!Ի!jqqp"!Ėh 0!   h j0 x  0 x xĊ xĊӖi pQp!\  0 ph h i.   0   :   j pQp"]5 i!!0 ph!h !j.   0   :  R ;; Qpq ; q  Q ڮ;ܮ҆Qx҆Qx;;q Q ⼀ ڮ;ݮ; q "    ?@>=<f U ?@   ; pQp 5 : n҈xA_[00x0x 50 x0 x"R*WP`UPP*q[t /tTuwu S  yu |u `u X#? =q:!Aqqр!q64q p <63I<635ȣqq64q p03 065q0603<56pD<63$<03 065q0603<56p<6303 065q03, !")&' B<' 6 !,qq =.qq46q q$!POyOq!qq$xІPyqЅO!qqo%  q  сAъQqNJFB>: 64 0 , (6h3 q64q =qq Cւז% D! Copy: B(uffer F(rom file D Invalid copy.No roomJump to Not there..$ JUMP: B(eginning E(nd M(arker >BM$ $ Inappropriate environment)  BMarker ovflw. Which one to replace? (Type in the letter or ) Set Set: E(nvironment M(arker > Invalid ZAP..L WARNING! You are about to zap more than 80 chars, do you wish to zap? (y/n))No room to insert..No insertion to back over..Please finish up the insertionnBuffer Overflow!!!!P,K WARNING! You are about to discard more than 80 chars, OK to discard? (y/n)!gsBuffer overflow CR8 eXchange: Text {, CURRENT line}}Edit buffer fulll!Buffer is filling up... watch it!<01 Kolumn: {, CURRENT line}!Too manyy@|,,@LVPPInvalid delimiter..Your pattern is too longg]: L(ittT(okk Replacee' aborts, 'R' replaces, ' ' doesn'tBuffer full. Aborting Replacee Find => Replacee V(fy =>>Pattern not in the fileNo old pattern."r`D+ hU g  } Z [ s  fIX9 #`;a1IAP PDEDITPROGT%! !j j7! !j jvu u rh ҅ɥъR ɥ  i iPr r Pu )`*Pr r `u +t++b-Pp",r rr r  u bu ,pu у"!.y#hi0#%00##k!0# i0# !i!i#k"# !lr h1k# ? 8 r#9k 0#pi!?8 > j0#d"p0#" d" !Țd"u #!k h >#5ԛX06 6i6i$!i 0!p!i$$x$x#!h$x>1!"塠!$x# $#Ċ1!"$1k 0#p#j"6$$x"k 0#p#j#a h%? !6# Ėa`! rhih i 0h!! (j j'602 2 02p22 295h5h"! $р 3 Ykk"!0"! 07pk?j>"jrx 0xph " i0xc!p0x! ! ic!!Țc!u x ĖZ#!r!r98!6"=+!r!r 2h ? `98!!i!> 5Zih !$ x#  x"# h7#75 7"# i6j(04 ⼅p&52204 ڠ04 6iik2i8kk5!0!065!p0!0!# !i06 m06 ⼀ 06666h06 ⼃Y606- 06 606.06 06 66 l#$ݲ݅ܣ$'0! !i0! 0!0!܀ !ik60 0!$p06 106m'04 04߰m%0!$ 06 !i#$k!$i%(6!56!060!6p055" 64  T,VP!r r ,u \u asa+h +a a  haUa pUaa pW422040254p224 x2452402028 ȖZ6h 980 90 8" 9p0 90 8" 9p0 8 p"98k#jh "# i!a!z# ! hd! h !   i. Ȋ-!$!hb ! b ! Y . Ȋ&h` ` `w>! r    ŚʖERROR: & Please press to continue..Repeatfactor > 10,000KThere is no room to copy the deletion. Do you wish to delete anyway? (y/n)  what marker?  m7T/}ZS.cW J=k/GOTOXY LONGOPS FILEOPS HEAPOPS STRINGOP EXTRAHEA PASCALIOEXTRAIO SCREENOP "e$58 ESG4UTIL INITMENUCONFIGSAMNUUNIT SIOUNIT u7 SG4UTIL !7 [IV a.0]t (c) 1983 SAGE Computer Technology, All Rights Reserved"dSG4UTIL jcpcpcTTvSvV !ji!j&!!Ć$!!ĆF!!!iԅTji!j՝!ɋp#$!ĆF!!ċ[!{v$!!ĆF!!!ċ'!v$!!ĆF!!!ċ!p$!!ĆF!!!ċ!p$!ĆF!!ċSծ!j"#!p$!ĆF!!Ċy" #!p$!ĆF!!ĊP"0#6!p$!ĆF!!Ċ'"@!T!p$!ĆF!!ċ!p$!!ĆF!!!ċS!!p$!ĆF!!Ċ{S!!p$!ĆF!!ĊSS!!p$!ĆF!!Ċ+S!!p$!ĆF!!Ċր!i\$ !ąSrvv $!Ćv$!!ĆvvpUU'!ji!j$!!ĆF!!!!i߅T ji!j'!!ʆ!!i ji!j'!ʆ!!iӆ ʆʆ ʆʆ ʆ ʆ ʆ0ji!j'!ʆ!!iji!j+!! ʆ!!iφvv#vv{vvv v vvS5vv6vTvvvvvrvVvj3pi!kh # !xi h!pss Tv!xf# Ɇ$ ɱɆ$ɱ Ɇ$ ɱ Ɇ$ ɱ'svF!xp!xF!xp!xF!xp!xF!x{v !xF!xv  !xF !xp!xv !xF!xv!xF!xv!xF!x6v!xF!xTv!!xv!xF!xv!xF!xv!xF!xv!xF!xvTvrvv T!jh " ! hs? pڀP p p p 3pژ p%rH pژ p4Ih hp.rP pژ p4 ph xh x!rX p4 ph xArm ph x px p4 pvu˧Bu˧Iu˧Ou˧Sz!r p p4 pz p. pz p p p pwx p p p pzzz.r p p p4#uizS9r pژ p p p4 di3!.j"."!xi"j! ppsc.. .ژj .l .PcsՖh jp(r pژ p p p  p p p&r pژ p p' p( p p pu-d 0$h!hhhh hց40 vh K %  ` w k _ S XG ,;  0  % n  K  2  C0h #0UsW p4p0 vh0$ !    ցl 0d i hjS i hC i h3 i h# i h i hց0" !0//s p4ih/ih/ih /ih0` !ʆ ʊS !ʆ ʊC !ʆ ʊ3 !ʆ ʊ# !ʆ ʊ !ʆ ʊցƖ06h0h'hhh hց    /x/h/h /hh06 ʊ0 ʊ' ʊ ʊ ʊ  ʊւ06 h0 h' h h h  hւ) "    /d/h /h/h /hh06 ʊ0 ʊ' ʊ ʊ ʊ  ʊւJ0B:/$ւk0Bʊ:ʊ/ʊ$ʊʊʊւC07/$ւ07ʊ/ʊ$ʊʊʊւȖ07/$ւ07ʊ/ʊ$ʊʊʊւD0(# փx0(# փ4`fo``ɀPaffF``ɀ(aff``ɀPa ff ``ɀ(afɡf``ɀ(afɡf``ɀPafɡf }``ɀ(a fɡfɡW``ɀ(a fɡfɡ1``ɀPa ffɡ ` ]ij!ɀP!ɠDsOs !ʊ/ pbs !ʊjo p4ji!ɀ(!ɀ#;! !ʊ*s{s p pj4^!h/u   P     *  P  ʋt   P         ʋu   (     *  P  ʋ$u   (     *  P  ʋu   (     *  P  ʋ*u   P     *  P  ʋt   (         ʋ1t   (         ʋt   P         ʊ:s p4$ ʊs p4փ p x xaA p QĚ p)+* *+8*지#* +*h`*P `Q `P*k+kh [ x h  p[xr p p p[xh  )r p p p p[ xi!7r p! p p p p h[ xi! )r p! p p p[!xi!7r p! p% p p p h[ xjb h[ xi !h3b,r- pb p p pbҙ :r< p pE p p p*rZ p p p pk[ [p[p 2u  pe p1P p p1p12u u  pz p p p1 p pQpYխ2u p p1 p)r p1 p pW[p[ p)r p1 p p [˧B[˧O[˧O[˧T[˧M[˧U[˧B[˧T7 p p p pIr p p1 p p p pՁ Zs p phh2u  p p pgP p pgpgi2u u  p p!! p puZp p!  p& pg p+ pf&Qp&Y2u p pg p&r- pg p po!kk[# mp%&r5 pg p ph= p p puZ p IZ!"#bvih ! b!ɭ!h!i O p p"pvY p p"pv pc p p"p#"# p ps ph i!հˏ p. p3ɮppVr pz p p p p pv #pɮI-v  p p  p, p p) p p p& 8s p p p p p pY p p#pɤ ʈɤ ʭv p" pnɌ 5j"5Ց6i!6[ɤ7h 7ը 88"ʇ8!ʈ ! &o'ɲ 'ɣo &o' 'ɢo "!''o8'ʭ8ʊ 8 hP"ˏ! p. p ( "! ppՀ-(tp4r p p4 p p" p p! p pv #p !",mɌ",m "!,m3ɭ%pp-(tp4r p p4 p p" p p! p pv #p )Վ!i&ɢn&ɲ &ɣn"jg*ʈ ʈ+ʭv $8'%hs p p p pc p p#4#L#lijh/#5#R#rijh#Q  p!p "h # u% ; p pc#Y# p!p u% !%)1HsF`vGpGpGգH??HՓEDED y`D c`D?RD!v*@DA@@pp5# p? p' p pEFDD{??ekH??H\ ?v !v*@ A@@pp24 p? p8 p pF??v pFE p p,S p pd p p pC pC H-$.  /ֆp/ ֆt/%&'()*+,-x.p/h0`1X2M2B373+8#9::ֆzC/CCDIJvJkK`IUIJFBD7E,L!LE Gֆ/1) vֆ/'ֆ/ ֆɊ*'! ֆ>/ֆċ/ֆɋ//V/ /9/0//@/ /xqښ/x_r/xHr/x1r/xr/xֆ͖2t.MTU$0!x堚.$!x塠.ڠs p4'p.//! /#%'p  /ʊև/ ևv/%&'()*+,-./0x1p2ʊa2ʊR3ʊC3ʊ38+9#:ʊ:ʊևC/CʋCʋDʋIʋJʋJʊKʊtIʊiIʊ^FVDʊGEʊ8Lʊ)LʊEʊ Gև0/ʆʊo F!xvʆ F!xvʊ9ʆʊʆʊևB!ċ /'ʊևH/ ʊևMh/M ʊE ʊ:  ʊ/ ʊ$ ʊ ʊ ʊևP`/' ʊʊ ևY./ʊʊև^//ʊb/ /ʊA/0/ʊ /@/ ʋ/Ċqښ/Ċ_r/ĊHr/Ċ1r/Ċr/Ċևb0!Ė4+  ws s -w&u'p.3cS.ڡ4 p. zupk%]%O%6A%T3C{&C !ևT.ڡ.$0!x"s p p4V.IH%=%26%'T%{CCևֈ-v  xxHHl#]]###Make on-line changes? .Do you really want to change the terminal now??BIOS file name: Could not open Error reading )Illegal code file format - wrong byte sexFile has DataSize of  instead of -11 Cannot configure Multi-User BIOSS BIOS Version  header read successfullySize including buffers:  bytess!This SAGE4UTIL is only compatible with BIOS version 2.3 or 2.4Data in  was not BIOS code fileReady to write changes to : &Error writing new BIOS information to BIOS changes saved.$Error closing BIOS information file BIOS changes abandonedd(Illegal setting for Extra Serial Channell/Must remove dip switch selection from Baud Rate%Use on an 80 track drive (read only)?Use on a 40 track drive??Sorry, no other optionsUse on an 80 track drive?4Cannot access 80 track diskettes from 40 track driveeIllegal selectionUse Low Level Change Menu f_YSK:::,Illegal code file format (byte sex is not 1))Code size out of range - File has  instead of 1 procedure.."File has improper code address of File has DataSize of  instead of -11Illegal code relocation type The code size of ( bytes is too big for a 1Kbyte bootstrappIllegal code size of (Source file or device ? Ready to load bootstrap from volume file  ? Could not open Error reading Bootstrap of  bytes read successfullyyData at block 0 of volume Data in file  was not SAGE bootstrap code.Bootstrap Copy Utilityy-Destination file or device ? +Cannot handle bootstrap copy to a file yet.Ready to store bootstrap on volume in file  ? Could not open Error writing #Bootstrap data written successfullyDrive not equippeddDrive not equippeddCannot format under Multi-Userr VerificationnError while verifying Cylinder  Head Format Complete (($Is diskette ready for formatting in LEFT drive? RIGHT drive? Format abortedd FormattinggError  while formatting Cylinder  Head Error  while checking Cylinder  Head Floppy Diskette Formatter*Drive to be formatted - L(eft or R(ight ? More diskettes to format? Drive  positioned for shippinggDrive  positioned for shippinggReady to power system downn Cannot position Winchester headssType space to continuee8AJS\enwNZfr~).H447iHHHHcccc $)@@ ~@)Cannot change this field under Multi-User&/8AJS\enw)9IYev})Uovv'ooooAFKPAF~~^>~OSUTIL,SEGSCCHEMAINN+Only valid for system with Winchester board$_djpv|v$Cannot access this information underr Multi-UserOSUTIL,SEGSCCHEvW E  1  ] > $ [4Rrf <'EXTRAHEA FILEOPS STRINGOP PASCALIO EXTRAIO CONFIGSASCREENOPSIOUNIT MNUUNIT COMMANDI INITMENU>%. p yZ p p  p p ps(s*6s8s As v I#s WYshmsowsysssss s s s$ssssss!)s+5s8BsEsNsWYshtswsssssssssss!s$s.s8:< sLNP s`bd stwsKs %s s ` s s s s Xs ,s  s  s n s K s 2 s s ss s s s s s s s s  s  s  s  s  s ss #s )s 1s 7:sCs Es Gs ILsVs \s cs ilsvs |s s s  sssssssss s s s s ss sss%s-s6s@sJLN s[]_slnps}ss s s s s s s : s Ns _ s h s ssssssss s s s s *s 6s Bs Ns SV$sasrsss<sBF&s+h +% a\PabP at a s hՂhlp's(s)sZSAGE4UTIL Version 1.3 Initializing MAINN SAGE4UTILOn-line ConfigurationOLCBIOS file ConfigurationBFCFloppy FormatterrBootstrap CopyyPrepare Drives for ShippingOLCOn-line Configuration ControlTerminallTRMRemote channellREM Left FloppyyFL4 Right FloppyyFL5RAM DiskkRDKPrinterPRTExtra Serial Port #11XS1Extra Serial Port #22XS2Extra Serial Port #33XS3Extra Serial Port #44XS4 Parallel PortPPORTTime AdjustmentTAJLow Level ConfigurationLLCOLCBFCBIOS File Configuration ControlTRMTerminal Configuration ControllTerminal Baud RateeBAUDDTerminal ParityPARTerminal Stop BitssSTOPPTerminal Data bitssDATAAXon/Xoff on inputBREAK to debuggerREMRemote Serial Channel ControlRemote Serial Baud RateRBAUDRemote Serial ParityyRPARRRemote Serial Stop BitsSTOPPRemote Serial Data bitsDATAAXon/Xoff for inputtXon/Xoff for output DSR PollingDSR Polling intervallXS1Extra Serial Channel #1 ControlExtra Serial Channel Baud RateeRBAUDExtra Serial Channel ParityRPARRExtra Serial Channel Stop BitssSTOPPExtra Serial Channel Data bitssDATAAXon/Xoff for inputtXon/Xoff for outputXS1XS2Extra Serial Channel #2 ControlXS1XS3Extra Serial Channel #3 ControlXS1XS4Extra Serial Channel #4 ControlBAUDDBaud Rate Selection 19200 baudd 9600 baudd 4800 baudd 2400 baudd 2000 baudd 1800 baudd 1200 baudd 600 baudd 300 baudd 200 baudd 150 baudd 110 baudd 75 baudd 50 baudd DIP SwitchhRBAUDBaud Rate SelectionBAUDDBAUDDBAUDDBAUDDBAUDDBAUDDBAUDDBAUDDBAUDDBAUDDBAUDDBAUDDBAUDDBAUDDPARParity Selectionn Even parity Odd parityyDisabled parity DIP SwitchhRPARRParity SelectionnPARPARPARSTOPPStop Bit Selectionn 1 Stop Bitt 1.5 Stop Bits 2 Stop BitsDATAAData Bit Selectionn 5 Data Bits 6 Data Bits 7 Data Bits 8 Data BitsWD1Winchester #1 ParameterssNumber of CylindersBytes per Sectorr Step Time Slew Time Step CounterrHead Settle TimeeCylinder for Precompp Special types Test flagssTrack for shippinggLow Read CounterrHigh Read Counter Header CounttNumber of HeadsNumber of RetriesSectors per Track Select BittWrite Sync BittExtra Head SettleRd after Wt RetriesWrite Cycle RetriesWD1WD2Winchester #2 ParameterssWD1WD3Winchester #3 ParameterssWD1WD4Winchester #4 ParameterssFL4Left Floppy Drive Selection(SAGE double side, 80 track (1280 blocks))(SAGE double side, 40 track ( 640 blocks))8IBM single side, 40 track - Universal Media (320 blocks))&IBM double side, 40 track (640 blocks))5Network Consulting single side, 40 track (400 blocks)5Network Consulting double side, 40 track (800 blocks)6Network Consulting double side, 80 track (1600 blocks))'IBM double side, 80 track (1280 blocks) Non Standard Drive ConfigurationnNo drive equipped0SAGE 10 sector per track, 80 track (1600 blocks))FL4FL5Right Floppy Drive SelectionnRDKRAM Disk ConfigurationnBase of Ram Disk (0 = disabled)Top of Ram Disk (0 = to BIOS))Boot to Ram Disk flagPRTPrinter Configuration ControlPrinter port assignmentPMODELinefeed after carriage returnnPMODEPrinter Port AssignmentRemote serial channel Parallel portExtra serial channel #1Extra serial channel #2Extra serial channel #3Extra serial channel #4DisableddPPORTParallel Port Control Interrupt (vs Scheduled Polling))Polling attempts before delayDelay before re-pollingTAJTime AdjustmentSeconds of time adjustmenttIn number of daysMAPBIOS Channel Map (0 to 15)) Channel Channel device = Channel Channel subdevice ==MAP11BIOS Channel Map (16 to 31)Channel device =Channel subdevice ==LLCLow Level ConfigurationBIOS Channel Map ( 0 to 15)MAPBIOS Channel Map (16 to 31)MAP11Left Floppy DetailssFL4DDRight Floppy DetailssFL5DDShared Floppy DetailsFLS Winchester #1WD1 Winchester #2WD2 Winchester #3WD3 Winchester #4WD4Operating System InformationnOPSYYAuxiliary Device InformationnDINFOFL4DD#Low Level Left Floppy ConfigurationNumber of sidesNumber of cylindersSectors per trackBytes per SectorrRetriesMotor on delay factor Data lengthGap 3 parameterGap 3 for formattPattern for formattSkew for formatIBM track formattNCI 10 sects/trkkRead 48 on 96 TPIRead after writee Ignore errorsFL4DDFL5DD$Low Level Right Floppy ConfigurationnFLS%Shared Low Level Floppy ConfigurationStep Time (msec)) Head loadHead unload timeeDouble DensityyOPSYYOperating System InformationnWord Word DINFOAuxiliary Device InformationnKeyboarddTerminall Left Floppy Right Floppyy Parallel Port Remote Inputt Remote OutputRAM DiskkExtra Serial Port #11Extra Serial Port #22Extra Serial Port #33Extra Serial Port #44 Winchester #1WD1INFO Winchester #2WD2INFO Winchester #3WD3INFO Winchester #4WD4INFOWD1INFO*Winchester #1 Auxiliary Device Informationn Partition Partition WD1INFOWD2INFO*Winchester #2 Auxiliary Device InformationnWD1INFOWD3INFO*Winchester #3 Auxiliary Device InformationnWD1INFOWD4INFO*Winchester #4 Auxiliary Device Informationn CONFIGSAy: "!! ``!ɤ"!I p^`"`pm p`$`p p`#`p!0 !p`0 `p p`%` p p*`!`p9 pO``p_ pu `! `p!"h! !  !"p"h! !  !"p! !p`  ` p  p'``p7 pM@`A@`pA!"T "k%k= k3 k) ^nk Kk 2kK k\ %kR J2kHKkCnk>k9,k3Xk-k'k!k` kk%k Kkր kր!"> k2 k( k n^k 2kK k 20k K1kz n2kp 4kf ,5k[ X6kP 7kE 8k: 9k/ ` :k$ k K?k>k   h h kրs ## ""!!(``#"`#!`#~`p ih`p    r prprpp# ! s: &CONFIGSAGE must use BIOS 2.4 or MU 3.33K A<) {sbUKC91's *** PASCALIO  MNUUNIT   Fatal error  in menu systemDuplicate menu Could not find menu for copyNo menu defined before itemIncorrect item for menu styleCould not find Menu for displayyOnnOffCould not find menu * AYCould not find referenced menu Menu  is  characters too wideeToo many items in menu  -  - 'Select Menu item : Error writing to file , Type space to continuee  Illegal integer valueValue out of range  to  Illegal hex valueONNOFFMust enter ON or OFFF~: 'Select menu item : Error closing previous file File for printout: .TEXTCould not open &Warning - item will not fit in displayy^Y or N? Error closing printout file Ntpupt p! !tp t ptprhp`! p! Ȗ+b,Pbi`!v!b bp .-+I? Ib? NP1i 1| p2( |gph Xd40( <?6hI? N0XdBh `0( <1vh `p0(`= N.,I? If? NPp0(bBv0)ܰ|gD0)<?6hI? N0Xd1i`6I? BgI? N`I? BgI? N0(|gd0(<1vh 1| p2( |gph Xd*0( <06h<06hhdfBh `0( <1vh `0( r2(b<=hN0/2mrtpT,ZPbXP,` t p,t ph wehdehąhehi!!,!b!V!U!!W!! !w!yĘi[}UP,PbPU` *t pUt p$t ph wehąhehi!!,!b!~! ! {! }! ! ! y!y!yxĘi,`w +h,+-ć-y, , -yć,,ć,-| &-|-~+Ċa,+aĊ ąi h Ċi i-ch)t ph} ,7t phzt pAt p+b0P`w i!!b!/!.!-!,! 1+b.P`w i!!b!-!,! / +b.P`w i!!b!-!,! /VT,ZPbVP`w i!!,!Y!X! b U [+b/P`w i!!b!.!-!!, 0+b/P`w i!!b!.!-!!, 0+b.P`w i!!b!-!,! / *a,Pa+` x - q)`*P`jj0Gt p`t pRt ptpj{kj~.c+ ) ``` p`P ) .gaYPjhky|0as aPky}++ 1+as +0+as 2 aZPa\Pky~Ձky},,I,}9.,{--.-y{0.-x-. a-yyPaP'^t pky}t ptp0ky{aiPրja ga ȅk|k|aP. qhkՃk|sc-kyj"|H"~B"}a!!}!~.j~."{/"z0st p"}t pj~."{/"z0"|1hkxkch k pjuphj jiu ss!oOt pjzt pt ps!otpt ptp!rtsos!stt  tusqrstsj"j|wwwwwqlqm pxy 0)<1vh 0(|oSh0( <1vh `p0( = Nny2r tptpx 5t5tw wupx 5 wuj|t ptpx5j|t 5ttpx5tqnj"&soi!'!q"k#uյ#` #A#l[#$ 0#lL#$*lB#%#l8#& a#&l&t pjzt ptp $ !rt "ʚ$upt p yyt px5$u5t 5 yyt j yym% %upx 5 %u upx 5 u | |t px 5 |t &j jupx 5 ju!s\t upx 5 u|upx 5|ut tupx 5 tu!i.tpx5t"j tpx&5t5t 5t5t5txy<2 qrtpt pzt ptprvupt p`t ptpt p 2tptp49gh`siky|kyj`s奁g`si gg t p0"}0"~2gt p"~tpt p"}tpPx`s奁g`si gg t p;s !gt pցtpffwfąfĊ-fxwfĭfĭĭffxffjąkyh {/ z0 } -92 qrtpkyyt p t pPt pt p3#g!"c-kyhj~. {/ z0 |1c-kyij~.!{/!z0!|1!{j{h L |B |: | | / | | ȅ2" j ɔ  |t p xh-kyhj~. {/ z0 |1ky}cc-i2qrqr t p`t ptpՐ ! c3"pj& a z aAhj{k!允kk{ ikxk!+ky|k#$#%#&#'  =2 qrtpb@5 p0up t pzt ptprvb/t pzt pt pzf9zs 5z pG2 qrtpup<t pzt ptprvb /bx up t pci!*- hc!4W2*kj kɔ k|t p tpg2qrDt pncc4g !j}c3c#4!cj j{kcskxkfc\"X-hQj~.h-c@f1fz$fzz hfąfyfyf-ccցX 4,2r tptpn,c-Phj/ct p upat p!Y!y!up/jD!N!n j!up,tpt pup bt ph"Ԗtp.*a-Pa,` + yP.(T,XPbUP,W` ) yi!b!b !bbs b y ybPYI<`r;ɥp;ɥo<ɥ2<5a dehijkfcn43xb( bG5 p7tpupgt pzt ptprvb5  a  |D:dlD  s d   kgJ- (*** FILEOPS GOTOXY STRINGOP HEAPOPS EXTRAHEAEXTRAIO PASCALIOSIOUNIT SCREENOP SIOUNIT 3k"x! !"xk""xĖ+b,P0i/x.Q./xhb b 0//xĊi*b!b bpb 0//xĊiii!Ԡ/ o$ijh&%-j &%+&x%(%&xk#h&&x$$x #0Ċii! o"$$xĖ %$h'x&[&'xj"G ''x" 0i"A ia i$xk%%xc ɢ$$x"!Ċhh Ԙmh$x#!#$xi! m$$x!"hh Җ$#"mpmh$x##$xi! $$x!"hh Ԗ?#,#jh "!# i!a!z # !aA hږ{P p`P` {`r`{`{``지.**Pr*{r*P지. r46s` s5nf5Prf`ZrfP6 P !ȖK&&2'k&li!$&c!h 0 jA j"%!iՖz||Q)`|`| p{**{Pr*`r*P|t~~~"dx T ***  LONGOPS STRINGOP COMMANDI  !V6Copyright (c) 1981, 1982 by SofTech Microsystems, Inc.(3j#~0nT <  type bigstring=string[255];  var havechain,inredirect,outredirect,monitoropen,inmonitor:boolean; "function redirect(command:bigstring):boolean;  procedure exception(stopchaining:boolean); "procedure chain(command:bigstring); " "procedure initcommand;  procedure startmonitor; "procedure stopmonitor(saveit:boolean); "procedure getchainline(var command:bigstring); "  implementation COMMANDI!Vr ***  *SCREENOP  !76Copyright (c) 1981, 1982 by SofTech Microsystems, Inc.|0r#pqT7   const  sc_fill_len = 11; $sc_eol = 13;   type $sc_chset = set of char; $sc_misc_rec = packed record 8height, width : 0..255; 8can_break, slow, xy_crt, lc_crt, 8can_upscroll, can_downscroll : boolean; 6end; $sc_date_rec = packed record 8month : 0..12; 8day : 0..31; 8year : 0..99; 6end; $sc_info_type = packed record 8sc_version : string; 8sc_date : sc_date_rec; 8spec_char : sc_chset; {Characters not to echo} 8misc_info : sc_misc_rec; 6end; $sc_long_string = string[255]; $sc_scrn_command = (sc_whome, sc_eras_s, sc_erase_eol, sc_clear_lne, 7sc_clear_scn, sc_up_cursor, sc_down_cursor, 7sc_left_cursor, sc_right_cursor); $sc_key_command = (sc_backspace_key, sc_dc1_key, sc_eof_key, sc_etx_key, 7sc_escape_key, sc_del_key, sc_up_key, sc_down_key, 7sc_left_key, sc_right_key, sc_not_legal , sc_insert_key, 7sc_deletekey); $sc_choice = (sc_get, sc_give); $sc_window = packed array [0..0] of char; $sc_tx_port = record 8row, col, { screen relative} 8height, width, { size of txport (zero based)} 8cur_x, cur_y : integer; E{cursor positions relative to the txport } 6end; 6 $ {entries 4..syscom^.subsidstart-1 are valid} $sc_err_msg_array = array [4..4] of ^string; {accessed $R-} 6 "var $sc_port : sc_tx_port; $sc_printable_chars : sc_chset; $sc_errorline : integer; $sc_errormessage : ^sc_err_msg_array; " "procedure sc_use_info(do_what:sc_choice; var t_info:sc_info_type); "procedure sc_use_port(do_what:sc_choice; var t_port:sc_tx_port); "procedure sc_erase_to_eol(x,line:integer); "procedure sc_left; "procedure sc_right; "procedure sc_up; "procedure sc_down; "procedure sc_getc_ch(var ch:char; return_on_match:sc_chset); "procedure sc_clr_screen; "procedure sc_clr_line (y:integer); "procedure sc_home; "procedure sc_eras_eos (x,line:integer); "procedure sc_goto_xy(x, line:integer); "procedure sc_clr_cur_line; "function sc_find_x:integer; "function sc_find_y:integer; "function sc_scrn_has(what:sc_scrn_command):boolean; "function sc_has_key(what:sc_key_command):boolean; "function sc_map_crt_command(var k_ch:char):sc_key_command; "function sc_prompt(line :sc_long_string; x_cursor,y_cursor,x_pos, 7where:integer; return_on_match:sc_chset; 7no_char_back:boolean; break_char:char):char; "function sc_check_char(var buf:sc_window; var buf_index,bytes_left:integer) ::boolean; "function sc_space_wait(flush:boolean):boolean; "procedure sc_init; $  implementation )SCREENOP!7r ***  tHANOI q#~~0LBUS\\F$0\sHANOI ! ! ! x0 ! sΆ ! ! x t p Ć  ! ! xĆ ! !  x0 s2 x t p$#"#"i$#!#"$!" jkplmp kuu uu$ u uuuuuu u uuuujuuuufmuufuu"ffu uuuuuuffu uuuuluuuutp`f uu`u u4t p` uup t ptp`urt pv pt p.t ptp9t ptptpZt p t p  r svt p2 p3p\ 3 3Ȇ2 3 33q4q2 3 4OȆ 3 4 4܆ 3 3I3p4p12q3q4 03sIwp3402p3p1 8 3 38 303s2 3 t p3Ȇ  2Ć  2Ć  2Ć 8 s~t p t pst p2 p3p\ 3 3Ȇ2 3 33q4q2 3 4OȆ 3 4 4܆ 3 3I3p4p12q3q4 03sIwp3402p3p1 8 3 38 303s2 3 t p3Ȇ  2Ć  2Ć  2Ć 8 287X That took /60's seconds.. That took & seconds on the SAGE. That is 4 to 15 times faster than theAsame program will run on most of the more popular microcomputers.7 PRESS ANY KEY TO RETURN TO MAIN MENU.TOWERS OF HANOI$Press any key to begin demonstrationn$ y }EXTRAIO REALOPS LONGOPS PASCALIOGOTOXY SCREENOP   UTELETALKREMUNIT RAWCONSO (  2Copyright 1979 - 1983, RB&A. All rights reserved.TELETALK%nm%& t%mut ttt t !t $t tt)t tt@t sh ۃP p 3,ii!tt tTt AvXt tbcs"p!ads$p  ۃk ⼃s sAsTsVs1sEs1ssOsQs sx p#pp{6v3tv{t t s sp{`6v3tvt t s sp`p6p"ih !"  " " aA hޖ77 7 777p{wp!vt t ty,t t1wt Rt t sh y Y$*wRt t t!vRt t tt RPt t R~RRR.RR +RR:RiaRP aU aP*Rwp#Rt t tRpOR(RaR a*Rv ,,t t2t t t sh c C!t t t~ p PN{wpt t t!vt t t% t t t tt Pt t . +:iaP a'U aP{wpzvt *t sh 4"{wt <t t.{w@Pt At tp{wpt Et tp ?  for option menuFlowIn,FlowOut,MaskDisk write error on Disk reread error on I/O error closing receive file SenddCurrently Sending Close it ?  Closed Left opennSend what textfile ? .TEXT Opened.TEXTRecorddCurrently Recording  C(lose, P(urge ?  Closed PurgedError closing received file Recording to continueddRecord as what textfile ? .TEXT Exists, P(urge ?  Purged Savedd Opened.TEXT9 For a mail system other than Telemail or MUSUS, you must8 define the "thaw" character. This is the character thatt5 is sent by the mail system in response to each input& sequence, (usually a line of input).  TYPE IN THE THAW CHARACTER::  xCHR((#T(eleMail, M(USUS, , or O(therMtExitt Receive file  SaveddError closing receive file (Options: G(o, S(end, R(ecord, W(hichmaill B(reak, T(haw, 7(, 8(, E(xit - GooBreakThawedd7 Cleared & Thawedd 8 Cleared7W Finishedu?V?(  STRINGOP FILEOPS EXTRAIO GOTOXY PASCALIOREMUNIT RAWCONSO REMUNIT G4+b,Pbih ! b  h-" "j!0jh 0 5 0kkk)`,Pp"  `  p"+*.-h h i!  ! !j j&  p pQ  p pip$ hp$h   ip$xhp$xh` p4 `i`i`!` p` p`i$jh "ki!#!i h=`` p `pT3 hhw 2X"3hT,WPia3ra,RraX#UĊUX 35-3):67/f1P8765 4 3 f mh % 9 aA hA raK6ibD rbH rb 5b 8b 7ʇ4bʊbdʀap06s¿8>$ #p""pp"""xp"xL`!Ċ!ĖG Y`"`j `aptpAT #E Q V X1 S7=60 S10=30 S11=36 S12=40+++#E Q V X1 S7=60 S10=30 S11=36 S12=40ADTTHOH11MASKKFLOWINNFLOWOUTMaskk/[B >!&bD,!7*** REALOPS STRINGOP TRAWCONSOP=p`aaʀ`p5*ɥ5*5)ɥ5)5ɥ5r5*05)152ʀp !***   NEXTTEST.CODE 4) TY  P ? 5SYSTEM.MISCINFOh SYSTEM.BIOS WINERRORS.CODE ATEST.TSYSTEM.MISCINFO 4 QW TY  P ? ⤋ USERLIB.TEXT 4@In TY  P ? vZSYSTEM.COMPILERtZ~ SETUP.CODE* v~ SAGEUTIL.CODEk LIBRARYsageutilsageutilF12345678B    IC  @ A {YT..$%*kjfghenlomikj************P)(,4"$%'),.(0258E;cSSEXEC CHANGERORENUMEXPENTERWORFILLWORKRENUMFIECOPYFIELMOVEFIELINSERTDESORTFORMTITLEFORWINDOWFOGLOBALFOCOLUMNFOROWFORMAFIELDFOR m<$SSEXEC SSEXEC SSEXEC SSEXEC SSEXEC SSEXEC SSEXEC SSEXEC SSEXEC SSEXEC SSEXEC SSEXEC SSEXEC SSEXEC SSEXEC %Copyright Timberline Systems (c) 1983 "  Type $ $D_PatRecP = ^D_PatRec; $D_PatRec = Record 1CompPos, { starting position of pattern in subject string } 1CompLen, { length of pattern in subject string } 1WildPos, { starting position of pattern in wild string } 1WildLen : Integer; { length of pattern in wildcard string } 1Next : D_PatRecP; { next pattern } /End; { D_PatRec } $ " "Function D_Wild_Match(Wild, Comp : String; Var PPtr : D_PatRecP; TPInfo : Boolean) : Boolean;  { Compares two strings (one containing wildcards) and returns true if they $match. Includes information about pattern matching that occurred if re- $quested (by PInfo) } "  {*************************************************************************} "  Implementation WILD hDF5+b,Pb bb지=..-k`r$x$xi!#!{!"!y i!#!" $x$ Ė*a,Ph +x'a+x지 h ++xĊ .-*a.Ph--xć,a-ć,x8a-x지%%h-x'--xć+a-xĊ,Ċ +a-xć,x+x ,ć--xĖ/xćQćxQx짃ڇ$Qx지~Qx지%xċQx질ڇċQxjxćQćxHQx짃 Ċ1Qx지- Qa"i"!ćQćxP! ccc"!ccc"!Qx지}xxx<cĊ-xćx'zQx질 xx%%x%x'$&Ċ>r!x$xh%x #! h &"#x"xr!Ĉr#x"xϖ3)jk'zQ+질(*+*&l$"աQ+h$(*i %#k+ $ !#!ڡj+ * Z jLz(*+ =+ * +'zQ+질(*+ b!( )b( րk"#*&+')Ċ*&+'"j")xz(x(xo'&'{'''yĖ yQ~P(|P`[c%r{Q"Q'(&!{z{x*{x|#{xć##|$#{xć{#ć$#!{Ą%r!s @0 0h={ 0hYQ8 e *** HEAPOPS   "uses $(*$U WILD.CODE*) wild; " "Type $D_DateRec = Packed Record 2Month : 0..12; 2Day : 0..31; 2Year : 0..100; 0End; $  $D_NameType = (D_Vol, D_Code, D_Text, D_Data, D_SVol, D_Temp, D_Free); $ $D_Choice = Set of D_NameType; . $D_ListP = ^D_List; $D_List = Record /D_Unit : Integer; { Unit # of entry } /D_Volume : String[7]; { volume name of unit } /D_VPat : D_PatRecP; { volume pattern info } /D_NextEntry : D_ListP; { Next entry in list } /Case D_IsBlkd : Boolean Of 1True : (D_Start, { Starting block of entry } 9D_Length : Integer; { Length (in blocks) of entry } 9Case D_Kind : D_NameType Of ;D_Vol, { Everything but D_Free } ;D_Temp, ;D_Code, ;D_Text, ;D_Data, ;D_SVol : (D_Title : String[15];{ File name } ED_FPat : D_PatRecP; { name pattern info } ED_Date : D_DateRec; { File date } ECase D_NameType of { # of files on vol } GD_Vol : (D_NumFiles : Integer))); -End; + %D_Result = (D_Okay, { Mission accomplished } 1D_Not_Found, { Couldn't find name and/or type } 1D_Exists, { Name already exists; no name change made } 1D_Name_Error, { Illegal string passed } 1D_Off_Line, { Volume not on line } 1D_Other); { Miscellaneous error } %  "Function D_Dir_List(D_Name : String; D_Select : D_Choice; ;Var D_Ptr : D_ListP; D_PInfo : Boolean) : D_Result; "{ Creates pointer to list of names of specified NameTypes $(D_Select), matching specified D_Name (wildcard characters allowed). In- $cludes information about pattern matching that occurred if requested $(by D_PInfo) } $ "  "Function D_Scan_Title(D_Name : String; Var D_VolID, D_TitleID : String; 4Var D_Type : D_NameType; Var D_Segs : Integer) : D_Result; "{ Parses D_Name } & "Function D_Change_Name(D_OldName, D_NewName : String; D_RemOld : Boolean) : D_Result; "{ Changes file name in D_OldName to name in D_NewName, removing already $existing files of name in D_NewName if D_RemOld is set } " "Function D_Change_Date(D_Name : String; D_NewDate : D_DateRec; ND_Select : D_Choice) : D_Result; "{ Changes date of directory or file name in D_Name to date specified by $D_NewDate. D_Name may contain wildcards } " "Function D_Rem_Files (D_Name : String; D_Select : D_Choice) : D_Result; "{ Removes file of specified name (wildcards allowed) } " "Procedure D_Lock; "Procedure D_Release; "{ Provide means to limit use of DirInfo routines to one task at a time " in multi-tasking environments } $ "Function D_Krunch (D_Unit, 5D_Block : Integer) : D_Result; "{ Collects all unused space on a volume around D_Block. This unit must $not be in use when this operation is performed. } $ "Function D_Mount (D_File_Name : String) : D_Result; "Function D_DisMount (D_Vol_Name : String) : D_Result; "{ Provides a means of mounting and dismounting subsidiary volumes. $Wild cards may be used. } " $ "  {*************************************************************************} "  Implementation  DIRINFO 9 D9H7ߛ`2  3L33ޖjh% i!Z ##x !0Ċj h $" $% 지*#j"nsW/[Pk/ti!!i/i!] p!Z/e!teP/!t/l"/th l$  / Y l$k$ZJ/ZeZteP//XĊ/ XĊ/ X#]\}[3`P_P^P]ć\ik oml!3ծ3!j" (o3!t( 'b_P^P\p"In""%mn$ln!n !nր&b_P^P\p"a"z 3!"aA!iI33지*_@P3t33ti!_@_<P!3t_3 !t P3!t3g3지#^n3 h )3 짃4n h3n&_3P3Pb_P^P\p3]ć_k#3 3^\] k#b#_P^P\Ėa+b,Phi !b!!ib!지%!ib!짃8h .-+b,Phi b! b 지=i h!.-\h$%ppi! ! hhP%M k#y#y b%bs#Ɂ##@ڡ$ #h n-d2PkdMd지#dմjd"짛Zi!//x d"짢0"j!"d!k@/x6/x | 4/xk/x kk#0//x /x .0rh.xdĊ.ċhk//xĚ/x | 4/xk/x k#21d/x .0rhd/x h /xԃ kk#54}+b0Ph3M bՅ/x3M  n//xć3/xM i!  ɀd-Ċ1!-Ċ"!-Ċ! -Ċ-ć-x.b!,2rh}/3M  43,c1Pb0`u i!! !!! |!9! /!./! 3ć3! c!4!b3!-ĭx Ċ 4j('՚"l^~5b`am(L$"nk#&B^#M y^#M x$ ^#M y^#M x#k%'^"M n! && &x&y"^M f(8^M n^&M y& ^&M y&  }UP unU 5 gm% i5j5k^ ~fdm%Յmym#H& |)^M TT TxTT & |#>Aݸ&!%Txm%m%S #M #M M"#M ih !# M # M h| }UPeuh ~ U5 c )5n ol_5`^ )՞   | >~AݸS_ d~ ^ _$$l$_M ') _ppj" "   ~    () &).() ) *a,P+ha4+xM  ++xa+xM h .-. W/\PeZPh/dAhec&Y$M e#$#h$M e ^]u ̈́PPu͘,~ah bUah ,h  ~m bh  h  b|M b&Uh|~Uhh |&pp hh /f2Pe1jflh4fb0cah4"M e"4M $ 54 {S~PR}WuYT|hR ɀdhS+a[Vh +X\+TZh|`| RT |B|ݸa\aR|h|ah\M R T |!T\ppUU U hhY YTX 9Y h i i  |iqEvh 4 ??h h v v pph X$M m$M  Հmobĭ"$M xppmp"M k#y#y bsi"M kh #!" M i h!mo + +M o'y'xk'y* 'xi*jl'yi*jl##hh$" j! i !p "p$" j! i# k#Ԭ'xi$'*'y'x'*Ċ '"'*ĭp' Um   n&("& )~)!&m&n%% 'xĖ `  p`M `M y :`M x`M y`M y`M `M 0`M yxDŽv<=Puh ZM i jc d ˤ axs/.~/h ?u>X,c-P`ucbi!"" "s"~j`u!/.ow[].TEXT.BACK.CODE.SVOL o#::?dir_infooXK;=iAA0(O : e. *** EXTRAHEAHEAPOPS STRINGOPFILEOPS WILD  +SSEXEC c  ~ɥ "H  ~ɥ H ɥ :I; J;I !x x>!x"H  ~ j H  j !xj!x xj@!x x B!x &H j H j !x j!x x jy!x x Ɇ!x ɠH ɠɠ!x xA!x$H  ~ ɥ H  ɥ !xɥ !x xɥ V!x x>!x"H ~j H j !xj!x xjj H j!x?!x j. (!x x!x x j2h Q  i!6 U Ȗfhhff9ff9p if #f !iff !iff !ifff9կ:!T:!*:ff":p ff&p ff*:p f. !iff2:!:!:!Ѕ!!0UpUȊU!9Um% U!7UP! !!8UP U:  9UP U:ȆU:*p ])`+PU:`:`U: p*O`U`pF`U:``p2`U:``p!`U`pU`:```pր:`U:p,U: pfΟՅ`l$dxQxx=xxm%"%%``%Uf`:¿ p !U:Ȇ"x! U: p"x!x U: p"x!xh ɋU: p "!"!t ɊR"!"! U"!;A"!-D"!F"!I"!րL "! րSրY(!h        ʖ`!h        ʖ"""w+"xih !"x  h6N 3ĆN 4ĆN ?ĆN >ĆN ĆN ĆN ;ĆN 6ĆN 5ĆN  ~N  IN N N ~N }N |N {N x N zN y~N  IN  !h Ɋ   ր^= cw 20 0zt !# 2d 222 d0.,-ERRORN/ATRUEEFALSEd}o-tsform,ssexec,sseval,enter_worksheet,read_keyNo memory availableqcj4v~\- REALOPS $EXTRAIO "FILEOPS PASCALIOLONGOPS STRINGOP EXTRAHEATSDATE TSFORM TSMAIN SSEVAL  CHANGERO!HlH'w'h'mi!%$! H!q H!$!!id w)(mj"%դ"xՑ(q 0(n"xk"wP"x#ni!&3! "x!Ċ"x!#!x!ic w0(" (j"jV .  RENUMEXP7k###pk###jil#k#l!#! #0il$!!!!Մ"#" !!hh!  ! Ȳ! d4!  e eP ʊ eP" ʊ#k#J Aah 3ENTERWOR%tt7ttVq f0  tt22L2Ȳ21J1d1"xN"x!x<"x!xh #  "!r "!"!h q:o3h"J Ih>" K" 4#iM!?i#L!LM?i!Mi! t"x!g"x!xU"x!xh *"!q   @"!q N??6ML>>5KJqUtg  8q 8q 8q \    MLt tKJt cdtOI ALJ3-'! ր t$wq Mq 843tAt4k#3tCt 8q h 8q ,wVoidd\Ii~D;enter_worksheetenter_worksheet6}-M)  FILLWORKWd,q Ut U7:p7:djxxVxxh #q ϟڡdqڡd  h  43t43tCtxK>4433;tKKJh >>5h KKJh >>5h 7;44373;t tq7:;v  7:pB37:tt37:7:Ie;e; pe;e;Ap3i4!tKKJII >7; 57;43et!3;e3;!ete;e; phMMLII ??6II I o. URENUMFIE/xxqxx`=p`  fxxՊ`q= xxq<=`xx=pRx=wx+) i!,4*(h -%'%k#.&$j"/"j#k h!iǚtq   Invalid copyyCopy in progresss MOVEFIELfxhi!M  Ċxĭj" qxhi!T  Ċxĭj"  i!xsxxhj"Rx Ċ#xxxĭ xxxhj"Yx Ċ#xxxĭ I tt $$t$$t &$t# %lf  (lf  $$t$t$t$$t$$t $tf j$tf i$tf h$tՖ#   "!mk#%#k+  v0!!v0"!mk#%#k$tf h$t !"! !! "!#"! " "!"#q   Invalid moveeRR~ 'INSERTDE+h  Hq HHi!Շxs&xxqx=wxĊ%xxxąr1 v vddv0ճh Ֆ Hq HHi!VxCxĊ%xxxącdh դxZi!Axx&xxqx=ww ĊxąU  ȭPh 2 ĊxąȅȭLI:0q,RȲCd tRȲCd tR9h &i!qԊ7h +i!qυtt !"tf  #t!#t!#t f!t#j"t#i#tf h=!R "I "I 8q 8q 8q 8q  Invalid inserttInvalid deleteeCannot delete protected fieldssy (SORTFORMBxhxĆ Ėcx xxxx#e0xxxx.xx󆀀xxc0xxxx.xx󆀀xxhi!|xhxxTxx;xxɭ hxxɦ~ tC f  ttf  ttt tf itf htf ժ t t Ֆ t !k#Y!l$Ex1xxxx! k#"l$ ؕ A Invalid sortt# 'TITLEFORhM)?Lh6LM?LMMLK->Jh5JK>JKKJI  >KJIKJh qI:I5>?ML6?PMK# t6#څ?6#څ>5 tMK #$ #%K #& #'tt %t# ր(NCannot change titless@Cannot create titlessNVHBBVxhE WINDOWFO5h>7 q ;;  ;  ; KJI~e 5>>5i!q7:7;5~ɆN  ~~ʊ5~N 7;Ԡ(4i!3tCtV?q M 6LM466MLyktt tk4M 6LM3  4(## tC#?4?#73> t # # #tt ՗tI>h q7:#^# O"#!#"  q q  HVCannot change windowwHVCannot create windowwHVNNNHV GLOBALFO t~f ʛ ɦ ɅK&IKJh qI:I t# ~ʊ~ʊ~ʊ ~ʊր ɠt  ~ f ʊ~ ʭ ɠt#(~ ʊ#~ ʊ~ ʊ~ ʊ ~ ʊր; ɠt# ʊʊʊ ʊրp ɠtkʭ ɠtkʭ ɠtkt#ʭ ɠt#ʖf~   t~Ɋ,#$###ր t~ tf~   t~ Ɋ7#/#$###րtɊ,#$###րtktktkt # #t # #tt i!+tʅ  ;Iʅtϐ  t t  Ț     i!tʅtߖ V R RRA VFG LCRF LCRRCAMDonee COLUMNFO tHf ʛ ɦ ɅJ&IKJh qI:I煁Hh t# ʊ ʊ ʊ ʊր ɦt    f ʊ  ʭ ɠt##  ʊ  ʊ  ʊ  ʊ  ʊր; ɠt#$ ʊ ʊ ʊ ʊրp ɠt kʭ ɠt kʭ ɠt kʖ tktttHhf    t Ɋ,#$### t  tf    t  Ɋ7#/#$###րt Ɋ,#$###րt kt kt ktt tJ  ;Iʊq ;I: t  t t  Ț Pv0A! 8q 8q 8q 8q  j"  V R R VFG LCRF LCRDonee gDROWFORMAw4xh t# ʊ ʊ ʊ ʊր ɦt   f ʊ ʭ ɠt## ʊ ʊ ʊ ʊ ʊր; ɠt#  ʊ  ʊ  ʊ  ʊրp ɠt  kʭ ɠt  kʭ ɠt kt kʖex tkttttxh Ɋ,#$###ր t tf   t Ɋ7#/#$###t  Ɋ,#$###րt  kt  kt kt ktt  t t  Ț 4xq 0  i!  V R R VFG LCRF LCRDonee 5bFIELDFOR2xxh t# ʊ ʊ ʊ ʊր ɦt   f ʊ ʭ ɠt## ʊ ʊ ʊ ʊ ʊր; ɠt#  ʊ  ʊ  ʊ  ʊրp ɠt  kʭ ɠt  kʭ ɠt kʖx tkttt.xx tktttxxh Ɋ,#$###ր t tf   t Ɋ7#/#$###րt  Ɋ,#$###րt  kt  kt kt,t t }vx0q xx03xwxxʊ0    V R R VFG LCRF LCRDonee IENTERFIEHOxxh       ʖu # # < (xx xtttA t#D# tEt"0qvq Jt` Zx5xxxxRt`  t 1 t  v0xq 0q  Բ  Error in calculationn Not availableTrueeFalseCalculation in progressInvalid expressionniValueLabel CalculateField protectedCannot edit empty fieldk=* +MOVECURS3 8q 8 8q t t t խ tMiMiKhKh!j"s k#`xMxx9xxl$$#ȥd tf  tf  ttt gMtf MKtf K tf tf tt tt t#  ր Window not activeLabel not foundCannot move titlessCW~ TABDELRE0bt  t t 7 t#*'! րq   t0h "i! ؊.h "i! ؚt'xxxq %txxqxxɡՆx=w 2h #i! ׊0h #i! ׊x=w  2LQ?26?26LL?LLȲȥ?66? 1JQ>15>15JJ>JJdd>d5d5>   ր-CWCalculation in progressField protectedG w~READKEY jf  tf  txtqxxtWxxh Ɋ:t7#t# t#t# tր t:>K JK8q 8q N8{KKK JKJJ> ?M LM8q 8q N8|MMM LMLL? Jh?!Lh?LLh?6 6h>!Jh>JJh7>5.Iq7:7;7;h  8q 8q  Fq Uttt Utttt#Label::Value::j 'qSAVEWORK1ĭĆxxqxx=p8ȀR ddC pbq  N &8ĭ*ĭ,ĭ+ĭ)ĭ(ĭ'ĭh _xL(ĭi!4xx' 'ąƅp@(+(h gpZ(i!H q*x qxh NpAi!0 q Hʈ p;  thi!>x+j"xx h܅ pJ 0   p p sq t t!#t%#  ia! a a% a at#  pՁhh t 6tk" t#ttk堚 ڠԪkp  s   շ t Օtkttf tf  tf  tf  t ڠM ( XvD1t*t #!t#%tt ՓՌ,tpN#"uu?x,! vvxxۅpst XvInsufficient room on volume:.sswwInvalid passworddInvalid save rangeeSWWWorksheet save in progresss3]\ LOADWORK5yĭxĆyxyq 0yxxxyxq塭*yxxxqyxx=wyxxxՀ.ȭR dC qyxx=w=&yxxx=pq >N (& *,+)8q q @(+(h ղȲ՜(i!Տj"""" " " ""AȲ:x'xq 0xjGh Վyi!nj""" " """"Hk tt #!t#%ttt  t!#t%#  h`! ` `% ` `t#  p"tt2tf tf tktk  MvD1 '(!Ȳ' d t#tq #ծHwuuqx^vvAxx&xxqx=wwHwHq '  ' v0q 0tqvLWW:.sswwInvalid passworddFile not founddWorksheet too largeWorksheet load in progresss~ HPRINTWOR8 xxխ  "    xxh Ɋ2       րh TUPqxxxxqU: pXuu "#   "  U   "      @+ ՟@ :.@  "  +  +j"    Z H %q :  :  : ԰ h նx px yx  "  "i!H p i! Cp "qt t #"tf  tt#@t#+ttt  t#tf  tf tf t@#(t+#(tktk tk tk tk^ tf  tf tf tf 't  HH m#k"j%#$"R1tps6= $h "ppstHRow Columnn Label: Value:  Page PWWPRINTER::Invalid print rangeWorksheet printout in progresss dPROCESSW78tt B $!% @(+(43 ~ ʆ~ʆ~ ʆ~ ʆʆʆʆʆʆh ąHwsHq MLKJItt t  ՗tkՎHwh mxZi!Axx&xxqx=ww% l %'t h)t= 950 +!&+tt thրE Աt EWWInsufficient memoryCWW SpreadsheetSSS1.0 CalculatorrSSSSSSMMM2Worksheet not saved. Save worksheet or reenter ENDD 2SSEVAL p*6U6(Hh6(6( h 6) h 1Š1 6asaP  P*1` `6 6pcecs  $oihj   !>  ( !  0ij hjրԜ! i!$o "$!o!o/32x"2x2x32x 32xr 32xRȊ32xc32xCȇ32x*N32x0432x3 2x332x9ڥ22xĮ1T2x1K`3f2xsf 1=ć0>ć1x1xȲ0x0xd3 c"x!L"x!x;"x!xh #c  Ɋ ր?ha6Eb6C aaˆ60aa60 p h hրI61Ԅea+6'6W , 6[յ6 <6c66aAȈ6kԧ6bsb qr 6a`1 ,! ,G6( ,26s 6a`1 ,! +/6$6v6h h^6_P6a3i6|bb !61塭 bb bb bb    bb bbb  ” l b bbI b bb& b bbրab!` .  (/1  -  d+9((RC@.9@RCp@(*^9+Gl}_vV eCn EXTRAHEAHEAPOPS PASCALIO FILEOPS REALOPS STRINGOP FINDLABESVxVVxćVxWWVxڦ11aW+Vxs+PVVxh++Ջ,,sx`xxMxx--1-a'h UćTĊ UćTĮm W EVALFUNC-*h   h h ր Ä+ asa  ,*X` `j` K!#&),.035 `7:=?B `EHKOR `fU` GW`4X"[` ] `` ` cfjmp `rt ` vv+  ` @x+  `  z `~`` `*   ` `=  `   `  E&(,ABSANDIFFNOTORRARCTANNAVGCOUNTGROWWMEANNMAXMINSDEVVSUMVARCEILLFLOORINTRANDDROUNDCORRRDEPDDINDEPDDSLOPETRENDCOSEERROREXPFALSEFILEEFVALLPERIODDPVALLRATEEPMTIRRNPVLNNLOGMEDIANNNAAPIISINSQRSQRTTTANTRUEE OCOORDRAN    1 ՙ .q . p H     ,j ڈ 塈 ڠ{ih M . h !j'h !i!i! րԒ(, LOGICFUN 1[ 1D;  ``1 ``_```` 1堉ԶIFFNOTANDAND COMPOUND ΟΟՔE  +  ̈ ” D , ̈  IΟ Ο Ο% Ô ̈  Ο՗G  ˆ-  ˆ ̈ E ˆ.̈ ˆ ̈ Ο?Ο Ο% Ô Ô ˆ  ̈ ˆ        ˆ̈ ”  ̈ ”      ˆ ̈ˆˆ      ˆ̈ ” ̈ ”      i ΟΟs%̈ ” C +̈ ” ˆ  ΟΟt% ̈ ” D ,̈ ” ˆ 1  1լ  1Ւ 1y d1a `1I:+" &PVALLFVALLRATEEPERIODDPMTPVALLFVALLRATEEPERIODDPMT7f FILEVALU    ZyxEh * Ɋ  ր ԎS)      ,Lj  `s`       pȉ  ,)G1 1դ 1՗xxsx sx "sx &sx1\b i1I!ih14 h pb  :.sswwQ CASHFLOW`@̈`/`դ1՞l$Ռm%qxRxx<xxn&&Ɋ& րl  1堉2_1͟  ͟ՠ È  ϟd ͠͠d  1P1B3(1 1 cIRRNPV "2 MEDIAN Dĭ`1իhikjդ1՞m%Ռn&qxRxx<xxo''Ɋ' րl  1堉3""1塉խ  m  %@!j n&%"|l"$ ""$$ $jԉ  !j , m  % "|j  "|l "$! m  % "|j  "!j" "|lb$j $REGRESSIxxxhxxh I Ɋ<""    ր $&&xxxx^xxh ? Ɋ2&&    ր  &"B1=kjihkjih1դn#" o'((l! m%)$l%m&n'o1塉aV̈ˆ&<̈ˆ&"̈ˆ& "& )11 **„ $* #w ڄ& ̄Ο" ̄ΟOa ̄„" Ô a'e ̄„& Ô *ea)TRENDTRENDSLOPEDEPDDTRENDINDEPDDCORRR^ PSTATISTIa`Ρw``@``````  ``1 h eլ1զՒuxVxx@xx!Ɋ րe  1堉+1塉     e    z!T ڄ ̄ Ο8 ̄ „ #  &GROWWGROWWAVGMEANNGROWWCOUNTMAXMINSDEVVVARSDEVVSUM VHMISCVALU hh ibb !ibb !n  &\bb  o'? b)b b     @a`pb ́bb bbbbb 1f  ( 1" %Q h (  p   ea p g 1V(a e e3+a e e. e  }@' }@'RANDDROUNDCEILLFLOORINTi TSMAIN f)tpu`Pu u !tu uu)V.ZP`-tXCss`"u ` u ` u ` u `#u `.u `u`tY.rWp`t[  "%"*"1":"D"M"Z"h"q{"yo"c"W"K"?"3"'"""ր؊ "`4`f[g[$piava"vapiava[+vahph w" wiava"va va[va "iava"vahp"9:4h`v`;v`;p  *tslog.text*tslog.text[10]% Date Program Version Message I/O error Parity errorrBad device numberIllegal I/O requestData-com timeouttVolume no longer on lineeFile no longer in directoryIllegal file nameNo room on diskVolume not founddFile not founddDuplicate fileeFile not closed File not openBad numeric formattRing buffer overflowwDisk write protecteddIllegal block numberrIllegal buffer addresss+8ER_ly Unknown errorAbort: Abort: I/O error in Abort: I/O error  in  Abort: r 5nc*** LONGOPS STRINGOPPASCALIOFILEOPS TSDATE TSFORM   iTSFORM  vB"ih !"  " " aA hޖ#x-#$$ r#x$ p++3!! ! r4'$jkh #" i" " " ! h hߖi/a. a! pE%/h /* xa a x$ a  ha a a /9&    ċ&x ~  ċ b&lh $gmi!%?!b2! &x ! !h bb!!i bh& h + Ai!瀇P!怎(jh "վ !怅ծ!瀐 *k# (4# *!怏 pڡ*ڡ(# ( (# (b!瀐 )* ܅ ܶ>!瀍*!瀇!瀍P # P  h<+(P!瀍, !瀇!瀍P!瀇 -P!瀇 !瀇((!瀊.!瀊P [)*p݇* *p**怅**{`/P*݅ݶ-p06*)*p`P` s`P` `1 ``p**DEcFBi!ɑ,!Ɇ!Ɇ! c!ɀ p!怅.!! c!phc ! _p2(c#x"!p(!jh "c c ( hc!p"!ɢ"GH#,%$%$#""3r# "" p;#%ڡ("#x""p#Q"ih !F" <5#x#x" " A" v" A h("ih !" " ( h""p"""FhH Ep hE"aFȇGE aFɀ p H aFpE ɆFɆE a. Fɢh HH%Ɇih !1 x"$ h#Y `B`D`"p~ɀ pɊK ȊE Ȋ6 %.ss##ps s ##pրF"!*"!h,, V,  ʆʆʅ׆ ɀ p,  ,,1"!*"!h,, 2, ׆ p#,,Ȗ D10 j/ibB ɑ&h ʔ!b  塆 Ɇ堡 ʊ fڅ0Ɇ fڠ0z ʆ#Ɇbʆ+ą38! "׆ pM 3ɆɆ fڡ/D A,, Ɇ ɠO׆ p',  ׆ p,,,} $"!* ",  " ! Nr ,), ׆ p2׆ p,  0"!,!10 ڠԄ ,h0 ڠ4 f2 %%$2 f |h"i!T#Aff #0  hրXff  ɲh5fh # #phɋ#5|#Ykolʚ  l6ʛl6ʊl6ʆ  l6ʛl 6ʊ m6ʛm6ʛn6ʊրgɋvf   #o7f# fhh ɛ# ji!"p# !i@# ɣh  f q#  hІ r## ɣ #ɳhɛ#h## #p#Ȇ ,# 0pf# 0ț#-Ȋ # pk #s #uss f  #wlf#  ?# x# y# # z# 炀{## ff  #|Df# # }# 炀~# # ր#  ʊ # #p#ʛ#5#ɳ##ɛ# p#Ȇj" <""" "" " "ʊ """ʖ' !!# "=`!#ț# Ȗ!,! h(#x" !6 ,#x#x" AȆv Ah (""jjjpmmmpN7#p)22 %%$2#p'm7#p#d`/Ă /dd/w`悀 &Ă 9 `e`$  3! 31&! 130>! 0j ׆ #p' 7#׆ p      / /`f`%$ (C`DHGF`.H 782%%$:h(%kc2 c3 ch% %$p" ja! %%$ "2+Zh'%kc2 c3 ch% %$%.ր:t*a+P&D$&h PPhaa a pa ȅ%-- - a.-%$,i%%$#$&!^!a_&!^!^!^p$&!a!ap&%jh " x $ h݋&%jh "$ $#$!d)!d!dp x $|#$!g!g!gp %#$#k #$ x6 x$#$ p$ xp$ $ h39e tv tXXXp :p怃ą怄ąą怅*'&(2悀怆冂怃%怄$B###ą###"5怆,9 Insufficient memoryInvalid form field numberprinter:: Screen overflowYESNO Invalid start field-9{{{0,.YESNOO() -0-- .Press RETURN to continue.. Please wait..-]#_QC#z&0h C <  { p e \ S 7 !    s`! 7*** GOTOXY EXTRAIO LONGOPS EXTRAHEAPASCALIO HEAPOPS STRINGOP FILEOPS DIRINFO WILD TSSPEC TSDATE TSMAIN  OPENFORM.$#h# #q q #q (q 1q Dq Vq hq {q qi! q! q!i9! q! 9q!i! #qqLq h9    Օ9kc5 c c c phb kc c cav45!95     9 b  9 p'kc c c$ cqh 9y49rY %BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB%T I M B E R L I N E S O F T W A R ECopyright Noticee$This software is copyrighted 1983 byy#Timberline Systems, Inc. No copies#of this software are allowed, other%than those provided by the Timberline"Program License or Title 17 of theeUnited States Code.Version Serial Number.FORM.FORM::=:::Insert diskette1.0Incompatible versionn (PREPARESTF9j%$kh #" i" " " ! h hߖt9 9 pr4OD Oh O+ ׆ apaq# hφD O 'h K199 r91x9phi,,!՛ h h 49 .ڠɀ pq#'q&׆ pq#,  ,,^9.9q$9.ٖ&&%%$q$Ȉ$ p$&jh&ni!&- !c c cp "h!i΅%q$ ph&ni!&, !c c cp "h!iυ%q$Ȉ$ pppss#$pqvBA-怅ڡ1$ pq%$q%q3$Bpq%$q%q%%$qyGq i9 p'jb b b$ bqi!Ȇ9 49 9!rh h9 9 G ؅9 9 Gԑ49 Ć9 Ć9  ą9  *9  ą9   ɥ'9 /9  .9  Ć9  ĆHׅ***r9  ɀ p4r*ׅ**'h "11x'JGMKG G> &Ć$ $%q% %$q%$L L&KG? 9/ /iK G@!- ĆĊĖNCannot read form fileInsufficient memoryInsert disketteScreen not founddInsufficient memoryInsufficient memorymc<%  FINDNEXTW ,,q Ċ q, Ėɀ ɰɀ  塠 ɭ1  ɥ, ɭ,,  ɥ,+ ,,, , , م, +%,  +,,, , ,ɳɆɢɭ 塠Դ, Ć+ ɣ+I,,, , ,ɳɆɢɭ 塠ԭ,E ą   + ɣ+q,,,, , ,Ɇ 塠ʅ,2 ą   +q, ,,, , ,Ɇ 塠х,  +b ,, Ċ8jɅ+h,i   ր d'f.  EDITFIEL(`2`q S #pq'f  f    , #pq'f    0h  0 0hi ijj i Ɇhh"" ! 塠l"ʛl !s jihh""!; ;'Ɋ ր.aɦh C -ȭ4 ȭ8ɦh եq  (ȭR  -ȭ6  )ȭ -ȭր8C ȭT  (Ȗh ɦ i!՟  (چGڡ 0ȭH#   -Ȋ  :ȭK ȭZh ɦ ɦ  ɦ +  ɣ ɀ0p ɣ   ɣ .ȭ F  ɭ ɣ  ɭ ,ȭR)  ɣ 0ȭ$O ȭ i!? S   0Ȋ   Ȋ ɦ*   -Ȋ   p-Ȗr ՛h ՆWZMɦi!'  ȭӆɦ Bɦs  B ɀ pɊ!  q%  ր[<hi!  h ɳd th Q >}&a+ɦ ڡڮڡ5pڡڡڡڡ|Lpڡڡچ ɡچ 塠ڡh X塮塠塠+ɦ Gj"Փi!!. !چ ɡ!,ɡ+5!/ ր߮ ɦf Ɇ ɠՀ  hɆ ɣh  h h   ɣ   ɲ   ei!Sh >    A 塠+ɦ Ɋ ց$ Ɇ - KJo' ɡ' ' p'ʖJNumber too smalllNumber too largeeZero entry not allowedd Invalid datee Invalid timee Insufficient characters enteredInvalid character Invalid social security numberr#Invalid phone numberr Invalid timee Invalid datee@ (Only one decimal point allowedd-9 Too many digits to left of pointtToo many digits entered!Too many digits to right of pointRequired entryy{&x@\a3;fH ACCEPTFI 4ɆɆq#ȅ!8##Bp#Dȭ ##Eȅ!#q## p#Cȭ ##Cȅ! ih ! #q h!!! %< ##Bp#Gȭ ##Fȅ #q%! $9-ɢ Ɇk#w9 h9 apaq"a Ʌ!a ɥ!a Ʌ a ɥ bɅbɥbbɢ bbɢ bɢh 9  $ $$q %$q9-ɢ k##lh $9 9q$ hՊq%$q `)q)q怅7)x#:p#:: #:pȅ)#qq#3 q  q ċɀ pq#qɲqq Ȇq#^ ,ɭp Ȇq#qɭp Ȇq#Iɳ7ɢɍɌɲ ɦ ċ0$ɍɌ ĊY( qq q# q Ċqրq,qq#h ɋ 2 ڭ5 A 塠=ڭ. Aچ ɡ,ɡtD塭J塠O塠?U0Y!]aրeʆq#+ɲ h+hqڠ2qnq2q2q%%$q2qaq!  ɲq Ɇ!v!aAi!q !՘ h ! e ɡ!~ڡɀzڠ ɡ+!q% pq# ɲ Ċ նqj "ɲ "ɥ+ +" " p"ɱ" Ɂ2 "ɀ ""ɀ " 塠0BBB>No help availablekPd2Invalid character(@ #  MHelp availablee READMENUh! xq xq xq怅4 xx#:p#:: #:p x!#q x)# y74:k44k4q i%2j"2"xn"x-_!id!33"Ć"x3p3 3p 3 3 3  "j{!# 悀  r!24Sp22ʇ2dxʇ2ʇ2ʇ2ʇ2 ʆd!ʊq8h4  q怅ʊʆ ʆq Ć < # ##  ڇ9k <!2j"2*#d"" "h <k"j#! !#q4 !h h" !h h hր% # ڠՉą2 %%$q2;BBB>   Invalid menuuL  Invalid abbreviationn G STSDATE U9luslv Elv " =1 #1!11" #1 Ȋ #10" ț#10" 1Klɋ# |#q#f#[#P#E# :##/#'$#,#0#5ր:lw` wl wb w09#ld` dH d# dI db d9#ld# dL d` dM db dK  H0lɀ- lɀ- lɀ- lɀ- l ɀ-1 #1Ȗp!  @! "! j! ɲjj! ɲjj!  ɲjj mɢww  www wwwww"f(f o)('do`f)f oc`cww  ?llʛl'l ʛl l cʊ l l ʊ/ll ʛllʛl l dʖ.%'%kj"#%"jl l$]$4$h lɳ$ lɣhlʊߛll ʊ$l$h  i$ !hl ʖcll hhlɁP hhjpmɀ: mɀ: nɀ: #1Ȗ=::Cannot set dateJanuaryFebruaryyMarchAprilMayJuneeJulyyAugustt SeptemberOctoberNovemberrDecemberr y , 199 , 199:J%:47t SSTRINGOP LONGOPS SYSINFO DIRINFO WILD TSFORM TSMAIN   tSYSINFO dTa! P/ P= PK &PWzhe @Ps <P)`*P`` <@<`+ DD r**::ZS<5.(! a ***  TSSPEC D vwvb/vbvpYa `u>b㄁  む  vpr րa bv  S#hp#ijh " !  h!F!v*p!vBA-!vCA|!vDA +p!vMA-!vNA|!瀃!瀄PĖZts.spec =:ts.spec:ts.speccts.spec $nidSTRINGOP HEAPOPS PASCALIOFILEOPS DIRINFO WILD TSFORM TSMAIN  >A,CEGrKNIRT3YZ]_`d fENTERFIEMOVECURSTABDELREREADKEY SAVEWORKLOADWORKPRINTWORPROCESSWSSEVAL FINDLABEEVALFUNCCOORDRANLOGICFUNCOMPOUNDFILEVALUCASHFLOW !# SSEXEC SSEXEC SSEXEC SSEXEC SSEXEC SSEXEC SSEXEC SSEXEC # SSEVAL SSEVAL SSEVAL SSEVAL SSEVAL SSEVAL SSEVAL h jlnIps juMEDIAN REGRESSISTATISTIMISCVALUTSMAIN TSFORM OPENFORMPREPARESFINDNEXTEDITFIELACCEPTFIREADMENUTSDATE SYSINFO TSSPEC WILD  SSEVAL SSEVAL SSEVAL SSEVAL n( K TSFORM TSFORM TSFORM TSFORM TSFORM TSFORM (  -  DIRINFO #sageutilsageutilF@ A B C D E F G   II  QWPgYT.0.1$%*KJFGHENLOMIKJ************PG0sageutilsageutilF12345678B    IC  @ A {YT..$%*kjfghenlomikj************P)(sageutilsageutilF@ A B C D E F G   IJ  QWPYT.2.0*-|+++++++++-|************P)( 1.0riSS1-010-122083opy (thru row column @) @d) (l) ( )N!)N!)N!)N!)}@YYY!$MM1.0riSSternaPEWthruSSw P#<2&CW@)SSPd('SWSSlP -)LW SS)P0.PW)SSNP51N!)N!)}@YYY!$ MAIN MENU"Select an option and press RETURN. EW - Enter worksheet informationCW - Clear worksheetSW - Save worksheet in fileLW - Load worksheet from filePW - Print worksheet&END - Done with spreadsheet calculator$Row ColumnFAvail:EWthruSSw P#<2'CW@)SSPd)(SWSSlP .*LW SS)P1/PW)SSNP62N!)N!)}@YYY!$(4M;A@@@dAP OBDdN$CHL> CP` DTE DX$< E \E`F dFhGl)GpHt$Hx-I|,I.J J7K  @@%@d*L  $=L@!M @@'@@d"@d0 @d@$@d$)0@4<@dH@T@d)`@4l@d@d"@d0 @d@$@d$y, Move cursor, Done , ,Change format, @Move fields. Edit field. Recalculate. ,Insert/delete. @Copy fieldsl@d@d"@d0 @d@$@d$?;Move to coordinate, label, or other window? (C, L, or W) Edit field. Recalculate. ,Insert/delete. @Copy fieldsl@d@d"@d0 @d@$@d$ Move cursor to rowcolumnr other window? (C, L, or W) Edit field. Recalculate. ,Insert/delete. @Copy fieldsl@d@d"@d0 @d@$@d$ Move to labelo rowcolumnr other window? (C, L, or W) Edit field. Recalculate. ,Insert/delete. @Copy fieldsl@d@d"@d0 @d@$@d$W4Field, row, column, global, window, titles, or sort?6(F, R, C, G, W, T, or S) te. ,Insert/delete. @Copy fieldsl@d@d"@d0 @d@$@d$Column width mn, global, window, titles, or sort?6(F, R, C, G, W, T, or S) te. ,Insert/delete. @Copy fieldsl@d@d"@d0 @d@$@d$E.Numeric display - values, formulas, or graphic0(V, F, or G) G, W, T, or S) te. ,Insert/delete. @Copy fieldsl@d@d"@d0 @d@$@d$!Number of decimal places ormulas, or graphic0(V, F, or G) G, W, T, or S) te. ,Insert/delete. @Copy fieldsl@d@d"@d0 @d@$@d$L2Label justification - left, right, center, or fill4(L, R, C, or F) T, or S) te. ,Insert/delete. @Copy fieldsl@d@d"@d0 @d@$@d$C,Value justification - left, right, or center.(L, R, or C) or F) T, or S) te. ,Insert/delete. @Copy fieldsl@d@d"@d0 @d@$@d$Insert commas in values? right, or center.(L, R, or C) or F) T, or S) te. ,Insert/delete. @Copy fieldsl@d@d"@d0 @d@$@d$Protect field contents? right, or center.(L, R, or C) or F) T, or S) te. ,Insert/delete. @Copy fieldsl@d@d"@d0 @d@$@d$Suppress field print? right, or center.(L, R, or C) or F) T, or S) te. ,Insert/delete. @Copy fieldsl@d@d"@d0 @d@$@d$Suppress row print? right, or center.(L, R, or C) or F) T, or S) te. ,Insert/delete. @Copy fieldsl@d@d"@d0 @d@$@d$/+Advance to new page before printing row? r.(L, R, or C) or F) T, or S) te. ,Insert/delete. @Copy fieldsl@d@d"@d0 @d@$@d$Suppress column print? e printing row? r.(L, R, or C) or F) T, or S) te. ,Insert/delete. @Copy fieldsl@d@d"@d0 @d@$@d$ Automatic cursor advance? rinting row? r.(L, R, or C) or F) T, or S) te. ,Insert/delete. @Copy fieldsl@d@d"@d0 @d@$@d$1-Calculation order - row or column (R or C) .(L, R, or C) or F) T, or S) te. ,Insert/delete. @Copy fieldsl@d@d"@d0 @d@$@d$0,Automatic or manual calculations (A or M) .(L, R, or C) or F) T, or S) te. ,Insert/delete. @Copy fieldsl@d@d"@d0 @d@$@d$2.Horizontal, vertical, or none? (H, V, or N) .(L, R, or C) or F) T, or S) te. ,Insert/delete. @Copy fieldsl@d@d"@d0 @d@$@d$Synchronized scrolling? one? (H, V, or N) .(L, R, or C) or F) T, or S) te. ,Insert/delete. @Copy fieldsl@d@d"@d0 @d@$@d$;7Horizontal, vertical, both, or none? (H, V, B, or N) or C) or F) T, or S) te. ,Insert/delete. @Copy fieldsl@d@d"@d0 @d@$@d$%Sort rowthru row by columnne? (H, V, B, or N) or C) or F) T, or S) te. ,Insert/delete. @Copy fieldsl@d@d"@d0 @d@$@d$!.*Ascending or descending order? (A or D) , B, or N) or C) or F) T, or S) te. ,Insert/delete. @Copy fieldsl@d@d"@d0 @d@$@d$HInsert or delete? (I or D)"Rows or columns? (R or C) BHow many?) T, or S) te. ,Insert/delete. @Copy fieldsl@d@d"@d0 @d@$@d$%!Move rows or columns? (R or C) s or columns? (R or C) BHow many?) T, or S) te. ,Insert/delete. @Copy fieldsl@d@d"@d0 @d@$@d$' Move from rowthru row to rowor columns? (R or C) BHow many?) T, or S) te. ,Insert/delete. @Copy fieldsl@d@d"@d0 @d@$@d$0Move from column thru column &to columns? (R or C) BHow many?) T, or S) te. ,Insert/delete. @Copy fieldsl@d@d"@d0 @d@$@d$3Copy from: rowcolumn thru row-column(R or C) BHow many?) T, or S) te. ,Insert/delete. @Copy fieldsl@d@d"@d0 @d@$@d$ to: from: rowcolumn thru row-column(R or C) BHow many?) T, or S) te. ,Insert/delete. @Copy fieldsl@d@d"@d0 @d@$@d$>CLEAR WORKSHEET Are you sure?.,Void - go to MAIN MENU@)SSPd*)(l) ( )N!)N!)N!)N!)}@YYY!$)  Are you sure?.,Void - go to MAIN MENU@)SSPd*)(l) ( )N!)N!)N!)N!)}@YYY!$}SAVE WORKSHEETData volume nameWorksheet file namePasswordSave entire worksheet?.,Void - go to MAIN MENU SS)P0.PW)SSNP51N!)N!)}@YYY!$) ) )  H) }@Np) |)}@YYY @)@d@)@d)}@YYY!$Replace existing file? )  H) }@Np) |)}@YYY @)@d@)@d)}@YYY!$ Old passwordting file? )  H) }@Np) |)}@YYY @)@d@)@d)}@YYY!$8Save row column thru row column H) }@Np) |)}@YYY @)@d@)@d)}@YYY!$LOAD WORKSHEETData volume nameWorksheet file namePassword Load at row!columnClear existing worksheet?.,Void - go to MAIN MENU)SSNP51N!)N!)}@YYY!$) ) ) H) 1 p@) 1 |@d)}@YY )N)SSNP51N!)N!)}@YYY!$""Replace duplicate fields? ) H) 1 p@) 1 |@d)}@YY )N)SSNP51N!)N!)}@YYY!$PRINT WORKSHEET  Printer or print file name Page width Line spacingAdditional left margin Main title Sub title Print titles on every page?Print page numbers? Print date in heading?"List field contents?$5$Print entire worksheet?.,Void - go to MAIN MENUPage width Line spacingAdditional left margin Main title Sub title Print titles on every page?Print page numbers? Print date in heading?"List field contents?$))T)1 `) d) (l) ( )N!)N!)N!)N!)}@YYY!$@)@d@) @d) (l) ( )N!)N!)N!)N!)}@YYY!$9&Print row column (thru row column @) @d) (l) ( )N!)N!)N!)N!)}@YYY!$$CURSOR $EQUAL O. SCREENOPS.CODE  COMMANDIO.CODE  O W7SETUP DIRINFO WILD @##6Copyright (C) 1983, Micro Research & Development, Inc. "NW7SETUP 3I"t- p x׆!t- pĖlp׆ t-"p !"""!Ȋ""!Ȗ   Ȗot-5phhp " $ɑ  $ɑ # $ɑ5( ( /ɑ5( ( /ɑ5( ' /ɑ5( ' /ɑ5(  $ɑ5((Ȇ5((Ȇ5((Ȇ5(Ȇ5( Ȇ-hp5p׆t-W׆uuvv vvv vvv2v vTv vvv vvv vv vv v..w.w.+s366+w6w6w6u*vv vv vpt-ׂ5upՁv;v Pv v  짥 Qp׆t-pt-vu..Y w._w.up,,av ,vvp׆t-=vvv vv vv vv vv vv vv vv vv vvv Pv v  짥 pvk,e,\,S,J,A ,8vv v!v vgւ9,cv ,v p~=vwv vv vv vv vv vv vv vv vv v*v v>v vEv vv]v Pv v  짥 p , , ,,z,q,h,_,V,M ,vkv vv vv viփ,v ,v uvv <v "tvuu+ WORD-7 Setup Program - Version 3.1 [b]2Copyright 1983, Micro Research & Development, Inc..BThis program allows you to select the type of TERMINAL and PRINTERRCto be used with the WORD-7 Text Processor program. A configuration@file named WORD7.PARMS is created for use by the WORD-7 program..BAnswer questions by typing the letter corresponding to your choiceeAand pressing the RETURN key. Press ESC-RETURN at any time to end this program.=:: WORD7.PARMLIB: WORD7.PARMLIBAThe WORD-7 parameter library (WORD7.PARMLIB) was not found on anyBmounted disk. Mount the proper disk before rerunning this programm WORD7.PARMS+Replace existing "WORD7.PARMS" file? (y/n)  WORD7.PARMS[3])New "WORD7.PARMS" not opened, ioresult = Available TERMINAL types are: A). TELEVIDEO 925/9500 B). FREEDOM 1000" C). QUME VT102 or SAGE Terminall D). LEAR SIEGLER ADM22 E). DEC VT1000 F). DEC VT52  G). OTHERR4 H). Use Terminal from existing "WORD7.PARMS" fileeWhich terminal do you have? F Use the CONFIGURATION options of WORD-7 to specify complete terminall. attributes and desired EDIT KEY assignments..Ah*ERROR* ioresult code = Available PRINTER types are::= A). DIABLO Letter Quality (also used for TRANSTAR, & JUKI)& B). SMITH CORONA TP1 Letter Qualityy, C). OKIDATA 83A, 84A, 92A, 93A Dot Matrixx D). GEMIMI 10 & 15 Dot Matrixx E). EPSON MX-80 Dot Matrix F). EPSON FX-80 Dot Matrix( G). C.ITOH Prowriter 8510A Dot Matrixx* H). QUME Sprint 9 and 11 Letter Qualityy' I). C.ITOH Starwriter Letter Quality J). OTHERR. K). Use Printer from existing "WORD7.PARMS""Which printer do you have? C It may be necessary to use the CONFIGURATION options of WORD-7 toF specify specific printer attributes for UNDERLINING, BOLD print, andd other special print features.Ak_is}#_is}*ERROR* ioresult code = $File "WORD7.PARMS" created on disk ""eY8' :STRINGOPPASCALIOFILEOPS EXTRAIO DIRINFO WILD   DIRINFO  82/`0  1F11ޖjh% i!Z ##x !0Ċj h $" $% 지*#j"nzXPkXti!!iXi!  p!Xe!tePX!tXl#Xth l$  X l$k$QX/t/PXXĊ X ĊX #\4aP`P_P^ć]ik oml!4ծ4!j" (o4!t( 'c`P_P]p"In""%mn$ln!n !nր&c`6P_7P]p"a"z 4!"aA!iI44지*`@P4t84ti!`@`<P!4t`4 !t P4!t4h4지#_n43h 34 짃9n h4n&`4P4=Pc`>P_?P]p4@^ć`k#4 4_]^ k#c#`AP_BP]Ėb+b,Phi !b!!ib!지%!ib!짃Ch .-+b,Phi b! b 지=i h!.-dh$%ppi! ! hhP%M k#y#y b%bs#Ɂ##Kڡ$ #h n-d2PkdMd지#dմjd"짛Zi!//x d"짢0"j!"d!k@/x6/x | 4/xk/x kk#0//x /x .0rh.xdĊ.ċhk//xĚ/x | 4/xk/x k#21d/x .0rhd/x h /xԃ kk#54+b0Ph3M bՅ/x3M  n//xć3/xM i!  ɀd-Ċ1!-Ċ"!-Ċ! -Ċ-ć-x.b!,2rh}/3M  43&,c1Pb0`u i!! !!! |!9! /!./! 3ć3! c!4!b3!-ĭx Ċ 4 j('՚"l^~5b`am(L$"nk#&B^#M y^#M x$P ^#M y^#M x#k%'^"M n! && &x&y"^M f(8^M n^&M y&Q ^&M y& }UP unU 5 gm% i5j5k^ ~fdm%Յmym#H& |)^M TRT TxTTS & |#>Aݸ&!%Txm%m% [#M #M M"#M ih !# M # M h }UPeuh ~ U5 c )5n ol_5`^ )՞   | >~AݸS_ d~ ^ _$$l$_M ') _ppj" "   ~    T() &).() ) *a,P+ha4+xM  ++xa+xM h .- 6W/\PeZPh/dAhec&Y$M e#$#h$M e ^] }̈́PPu͘,~ah bUah ,h  ~m bh  h U b|M b&Uh|~Uhh |&pp hh /f2Pe1jflh4fb0cah4"M e"4M $ 54 {S~PR}WuYT|hR ɀdhS+a[Vh +X\+TZh|`| RT |B|ݸa\aR|h|ah\M R T |!T\ppUU U hhY YTX 9Y h "#i i  |iyVvh 4 ??h h v v pph `$M m$M  Հmobĭ"$M xppmp"M k#y#y bsi"M kh #!" M i h!mw + +M o'y'xk'y* 'xi*jl'yi*jl##hh$" j! i !p "p$" j! i# k#Ԭ'xi$'*'y'x'*Ċ '"'*ĭp' Um   n&("& )~)!&m&n%% 'xĖ `  p`M `M y :`M x`M y`M y`M `M 0`M yxDŽv'<=Puh ZM i jc d ˤ axs/.~/h ?u>`,c-P`ucbi!"" "s"~j`u!/.nw[].TEXT.BACK.CODE.SVOL o#::?dir_infoo\O?AmEE4%L > i 2*** EXTRAHEAHEAPOPS STRINGOPFILEOPS WILD  WILD hDF5+b,Pb bb지=..-k`r$x$xi!#!{!"!y i!#!" $x$ Ė*a,Ph +x'a+x지 h ++xĊ .-*a.Ph--xć,a-ć,x8a-x지%%h-x'--xć+a-xĊ,Ċ +a-xć,x+x ,ć--xĖ/xćQćxQx짃ڇ$Qx지~Qx지%xċQx질ڇċQxjxćQćxHQx짃 Ċ1Qx지- Qa"i"!ćQćxP! ccc"!ccc"!Qx지}xxx<cĊ-xćx'zQx질 xx%%x%x'$&Ċ>r!x$xh%x #! h &"#x"xr!Ĉr#x"xϖ3)jk'zQ+질(*+*&l$"աQ+h$(*i %#k+ $ !#!ڡj+ * Z jLz(*+ =+ * +'zQ+질(*+ b!( )b( րk"#*&+')Ċ*&+'"j")xz(x(xo'&'{'''yĖ yQ~P(|P`[c%r{Q"Q'(&!{z{x*{x|#{xć##|$#{xć{#ć$#!{Ą%r!s @0 0h={ 0hYQ8 e *** HEAPOPS   \DEXTPBP8[>&]6LEFT CENTER RIGHT SPLIT FIND REPL BLOCK FORMAT DOWN UP DOWN  JE@;6\BJE@;6    A @    j I856D C B 213G n094clr7ptyG0G8G4G:fgER$  IJK3QRM  F###procedupack80; fsC## RWARD; #procePRINTER:page (VAR enditx H###D2&dD32BDDDD#DDDUfeVc6feFdveEfVFDDCDB$Dr4DdCDDVFVP@CV@@CV@@CVP@W2a 56T8=:?DEN:PQgAݸ&!%Txm%m%S #M #M M"#M ih !# M # M h| }UPeuh ~ U5 c )5n ol_5`^ )՞   | >~AݸS_ d~ ^ _$$l$_M ') _ppj" "   ~    () &).() ) *a,P+ha4+xM  ++xa+xM h .-. W/\PeZPh/dAhec&Y$M e#$#h$M e ^]u ̈́PPu͘,~ah bUah ,h  ~m bh  h  b|M b&Uh|~Uhh |&pp hh /f2Pe1jflh4fb0cah4"M e"4M $ 54 {S~PR}WuYT|hR ɀdhS+a[Vh +X\+TZh|`| RT |B|ݸa\aR|h|ah\M R T |!T\ppUU U hhY YTX 9Y h i %i  |iqEvh 4 ??h h v v pph X$M m$M  Հmobĭ"$M xppmp"M k#y#y bsi"M kh #!" M i h!mo + +M o'y'xk'y* 'xi*jl'yi*jl##hh$" j! i !p "p$" j! i# k#Ԭ'xi$'*'y'x'*Ċ '"'*ĭp' Um   n&("& )~)!&m&n%% 'xĖ `  p`M `M y :`M x`M y`M y`M `M 0`M yxDŽv<=Puh ZM i jc d ˤ axs/.~/h ?u>X,c-P`ucbi!"" "s"~j`u!/.ow[].TEXT.BACK.CODE.SVOL o#::?dir_infooXK;=iAA0(O : e. *** EXTRAHEAHEAPOPS STRINGOPFILEOPS WILD  WP  $=:=Available Disks:: Which DISK?Enter NEW Disk Name or "?""*$: Document  saveddChanges not saved Document Name?READING No Documents found on DiskkWORD-7 Text Processing System [3.1 c]CREATE new documentEDIT existing documenttDocument FILING functionsDEFINE system configurationQUIT the systemxCQ*Position with cursor keys and press RETURNNc!v !v v *a,P+u +h + a+P -` #P#as~ j!+"Gj ! "!j!~i!ʚ#v(# $#P##v#u <#$` n{`<Pv v7v %vu `P&v7v vɘ ɂ' ɛ@PNɂ( ɛ<P6ɘ**)ɛɘSSP<{Y1[PZ(h`* `1Y`/_`J.Z 3JZ <J4Z J\#$=#Ċ` i$`ab#w `|t-v v z>z zr>tv ɂ?Ph`@`A `F`vՇzɘvzu v  I z vv zNz z%4 J PvrSv v  QJ_J( G G v Qր`h lkv Uvmeke{%ev(vvv v vvhw)0v ,v#v dviv #v vJ!b$v l$$kk k kkր# J-#k#k #k#kkkQl# ր$Q#v  K9mfZ EXTRAHEAEXTRAIO PASCALIOSTRINGOPHEAPOPS FILEOPS WPEDIT WPPRINT WPEDSUBSWPSUBS SIOUNIT FILEINFODIRINFO WILD  %1INIT   Bad block on diskBad volume numberIllegal operationHardware errorrDisk not mounteddDocument not on diskkInvalid doc nameeOut of space on diskkDisk not mounteddDocument not founddDocument exists Document openDocument not openError in numberToo many charssWrite-protected diskkBad data on diskk Out of memory: WORD7.PARMS: WORD7.PARMS WORD7.PARMS=:: WORD7.PARMS: WORD7.PARMS4WARNING - Configuration file (WORD7.PARMS) not foundd7  Execute program W7SETUP to create config fileContinue? (y/n) MDefine TERMINAL & PRINTER with CONFIGURATION options before EDITING documentsPress any key to continue: WORD7.PARMSPRINTER::\DDPRINTER::\BBS#066 7Copyright (C) 1983 - Micro Research & Development, Inc. \"!p """!Ȋ ""!Ȗm   Ȗ S{b/ (< !,P p4 4 4 $4 -4 54 >4 I4 R4 ]4 f4 p4 x4 4 4 4 4 4 . XX@XXXb pi!@XX<XXXb pi!tXXX X-sD__-___b pii. !    /P  /vYp = + xXX<XJXKXzs!pNh!pXlX"ɇX$ɐWX ɇX$ɐZX#ɇX$ɐ]`ci!p(Yh Y ! hX(ɇX/ɐX(ɇX/ɐX'ɇX/ɐX'ɇX/ɐXɇX$ɐ(ț( ț( ț!pʛʛʛ,ț ț肁Q !pB"$&ʀ:!&V:#Xh XD țG O  h_b+i+zsp+t p+p+-Nhp+pb xP#[ʛ$]ʀP ,ț ț W 肁YJ^&: &`:#ʛ,țȁt<[>!pghjkmi!lnowy/aPXXdXi?XGXJG vb {TERMINAT =:: *WORD7BLK..)Insert disk to update CONFIGURATION FILE Press RETURN to continuee`- v y7,,,  ,s)<x` p++Zv ,, ),@, v` p+p+kz)sp)t!p )tp)pN)-hp)p`)+` ` 8`GOTEDLIN ?<N#?<?<Nɨ0Xdp00606@?N`p006?6NN0H?NBgN.BgN-?!pghjkmi!lno#pw %x%xr*P_pj"P&r*".Țr*"" 1" jԚr*(r*r*Ppr&*e#Țr*f$Țr*Ěr*Ěr*Ěr*kj"#)r"*O Țr"*"Ěr"*""jҚr*Ěr*O Țr*Ěr*ĖkCONFIG  +Typing only RETURN will keep the old value. =  COMMANDS::       (  ) )   ,,)   ,,)   ,,:CAUTION: Compacting the disk containing the WORD-7 programm!MAY require re-booting the system Continue? (y/n): COMPACTING DEFINE SYSTEM OPTIONS::CThe current value of each item is printed as a character or number. bP  ,,b@u-,b`uoZ!pZȇZ .i!.L,bAu-,b`uZ! ȇZ!Ȋ"ZZ! Z! p!i pZtCvv v D b: s 4v vvmɘvYa0 h`<`~`ds0v me e<evv v dxds 70 /##ʛ#ʛ#  v   vɘvu iĖp45TUVWX c R d `P  **`fu,*`+u+*`Ru*`ruc#g#ʚw    v""vBv!!7v v-- ----  ---- ---- - ---! -(---) -0---1 -8---9 -@---A -H---I -P-Q  [ $] _v $ʭiĖ4`kNh``` Qh``` ]h` `` `h`'`&` ch`+`3` ih`8`@` TE WP Z\ |c i fo lțlțl!piĖ"x)wʚ  Y Nh` `!`v(ɘvN ʊʚ$ 9 F ؂T ;c Ko C{ S           ! v1 vC   ɀP  ɂYɂZNu ɛɘv[ɘ h`ɘP`\Q`P]vbɘvYTh`n`w` h`x`` h``` h``` h``` h``` h``` h```  h```  h``` iĖ)$+8^eț       e e    "          $( '. 69 ? F L U [ !e k &r $ # %    (  & v'ɘvYv &ɘ7viĖ%v vv v 8D8ɦhhvզhh 8hʈ8ɦhhv{hh 8hʈ8 ɦhhvOhhdA8 hʛD80 h`@``8s70 %v vv v 7q( h9P29u e!p642iv 4խ4vvv< vD/D/D &v 1v <v#GvRv]v ev2v ev3v mv%v m3=%n24%' &2 222 2ֈtl%\6b6P%1" w6'%2 w6vNj#22222222g222#22G2BQm=42.-)%!#Qm Qmֈֈ%Qixx miU>T  U i <  0 ADINDEX  ?:==?No Documents found on Diskk ""l0"xxh0"x0!xx0!x Ė`0)(x +)*(+x*xG0+xx `++xĊ`0*xx **xĊ+x*x+*++x**xĊ #"a`#"# !"Wid<Pdhl..dP.R. csh0 9# j"!'# ."!!.00x00x##~k#0xh Lv qd<Pd0  d "v `dq ddX X0xW"8n{SSHODOCS   0 Document Selection Screen for Disk Document  Size Date Changed_  $JanFebMarAprMayJunJulAugSepOctNovDeccH|`P+9* 0Ȅ*+p`,,+,`Q,P ``P`}`,,,`Q,Pه~,,~P,`,Pvb<Pv VV V $VbtVv VV V"Vvi釀x0xU,VV,VU U ֘VP!x,v',.PU,Uh  h,VV,PV/WV3 ֘{VPUɄ,U Ʉ,x,vꇀ0xxv R<COPYDOC  Copying Replace ? (y/n)e<@P넕>P k zvCv qBPu u k =pć=xՙ =pć=x .Cv BX Y Z_vKvY.Cv vk =p =pć=xp.Cv vk =p/BCv =pć=x k pkcj=pć=x"9c"j=pć=x"kc"j=pĊk *p*Ȅ*p  k CFILESYS  8Ecopydoc To document?? Document  COPIEDCopy terminatedcopydocConfirm delete? (y/n) Deleting Document  DELETEDD Document NOT DeletedCREADING  New name? Renaming Document  RENAMEDD Document NOT RENAMED=ACOMMANDS: C(opy, D(elete, E(dit, P(rint, R(ename, V(iew, or Q(uit?_mchh__hzqh_"x#xT""x !!x "x#"!#x/"x#x(##x#x #!"xĊ "#x!#x0""x !!x "x0x"x0xh!!x "0x!x##x"#x!#xT)`*P`J,v _,v ,)`+P.v `*v-*-.v v, EN zJ ɂP)ՙ  NFpnmiz] zP!i&m0&x  &n!i&0x**inmv %b v v!v gvl!v 0&x z, , "v vv!v Jv $Hocl$(QoF$efaefaefaefa}F'v o'Z ' p p   lӄ  l_o'Q'H?o'ɐo!zɘFFx7 z 'J  Fx!4Fx !"!*+a/ɐɘvY : z v!v z s? z D(J!v !!i&+0&x z, ,  zI  @!4 2!4 $!J OրU!]!v . Ntc Fpv ^zv!v v zFqFx4Fx JFxczF zFxqr#N  q  ze|zF   ffɐ&k z vzqu !v zɘs!p z u(u zzɘ  \!4 N!4 @!4 2!z !4 ր!'zFv%bJ !րր'Q1 N oFxD(WPSUBS hH*a,Pw$aw  +ww`w -o t x x x x Ė v!Ȋvm""(oi!'՘!j"n" h (y! l&x &$k#Z&x$*k&z "&&zn&$&!Ċ&!Ċ&zn)&{!&&{n&$&!k "&&zn&{n h!ibv"ą"Ė  l`p`i! !~."j`"x"z"ylj `p"zj"{j"؊ cl#`Ėk $j%x*&x i$p!$x p%%x&x%xph&x%x K'P p&x%x&x%x j%%x h  PPh&x%x'" p%%x k%#YN NNN  pN!#"v'N`p``"``#`p_! N !+O!p h  Op hN ~!h a z!j jU-WP-a+Y+a,rV,ĊYXYPl YYw YPfYj%YYw  Pj f"012w 102f"i!""jN N-wl!!l!!"P"j$ԓ"j" PGe"epf"pk(cr0## 0PR*TP*"*SV*`S `PV*PV&#x"#x!# ĖN*a+Pa -a`p` -,R*SPOU NU Na(*h *aV paNpNV)`*P-, ``p- ` `r `u,p,x*`u,p,x,Ċu`uր ``,s]""xP"x!$"xp"xO m#O"OĊ#"x""xP"x!$"xpmpP piOP OpiPS`Pp`PP p`RQ`SPpSoppq rqp (ppl($i($h $ kk# $jj  p rpm%opon&oՒ% r%p r%'(p'(o'!o "3 ϟ Ο 'o &#'o hր%(m% r% 'o%% r%pm&ngrPrp! pp' N! Np+b,Pbh?/i: br :h@iO N N! b O N9 2  N .NNb N /u u &:1FZon`ZeTN: \*** EXTRAHEA STRINGOP EXTRAIO PASCALIOGOTOXY FILEOPS HEAPOPS SIOUNIT  VEW \Q^>t2Q Qr QuQ2]pć]xOqq vkw Qw : w> l> l$h j >b]qh ձ Pno qn qo'O'o ' '&m&q  &%p#k#^??Q ?" ?qq  pq  qq  q u> pk >b]qhJu]x4]x q q pqq > _ Document , ContinuedEnd of Document WPEDSUBSm^-{l9-}l.jh2i #"!"jr *yh"!lljhi #"!"jr *yh"!ll 1au!p-ypl !p =jr*yh)(=ՕP r *pmP%n&&& r *Opn"& O "Ȅ " %"j&r *% "&p( "&j ""j$`` -zwk-炉-z(Ć--zxo-{+--zĆ--zĆ-H-zĆ--zĊ0-H-|-zĆ--z-|Ć-H-zĆ--zĆ-'ċfjr*xh)(=՛P r *pmP%n&&& r *Opn"& W ""&j "Ȅ " %&r *% "&p( $`r *xhZ" " "p ""!p -zwk-炉-z(Ć--zxo-}+--zĆ--zĆ-H-zĆ--zĊ0-H-~-zĆ--z-~Ć-H-zĆ--zĆ-'Ć--yĖ  "!wiph djb b4  b- b: bt 0 h"!wiph(&t"(0(0 !PP0p  Ė90k0i1-{ph0-| 0;#0#pl#$! 2p00--|xn--|-zĆ--|Ć-|-{2-&Ć-H-|Ć-|-{-H--|x-|Ċ-Ć-ċ-}ph0-~ 0;#0#pl#$! 2p00--~xn--~-zĆ--~Ć-~-}2-&Ć-H-~Ć-~-}-H--~x-~Ċ-Ć-Ć--yĖ1i-{h !-炉 xi-H xhh " !ir *yh!kh $2#r*y -炉-|xh# h $ji!"#r#x*y!i#xh#x#x r#x*x#r#x*yĚrr *x*r *yĚrr *y*r *xĚr *  #r *Ěr* r *"r *Or *OȚ"x2! p!Ě!ċr*O p"x "r"x*xĚr*Or*OȚhr*xr*Ěr *r"x*yĚr *"xĚr"x* Ěrr *y* " !Ě"x2! p y'i(h(&k#k%(#Տ%T!O'l.'(t t' r%*tor%*t'l$l'O-(r%*O $l'(t r%*'$p( r%*ymog%((t ! t s!țvOih !s D țv G hrDreGrf "x2! p!ċ!Ěh  r*yr *r"x*yĚr *"xĚr"x* Ěrr *y* #r *Pp"x " Ě ) x-xċx xwyy bxp|{|%{{||x|p|ӆ-炉 x{Ć--yĖ Rxwypĭy Ė:}PJvvxr)}<)r J)vpćx pJPpxwy<xUx~HpHpxpxrpxspxvpx[>pjJjrtx#⼃Xxr*PpP#ɚr*peP$ɚr*pfeKtB r*r*Ppr*e#Țr*f$ȄIzwI`ztIvIvվxuxGzw,wzxzxzpxzz!pxx xxIxIxx xxIއx;-Ć-H-~Ć-xĆ-H-zĆ-xĆ--}I(` xIzw`ztIvJPprĄJv)h$Wh%x%x%r%x*x&'l&%r%x*y$l'x''xĊ &r&x*y$ԭp$l%x-{*r*yir&x*yj%r!*x&r"*x%xl)h%r%x*x$l''x'x&r&x*x'$ԓ t r%x*y"%x%x# %" p %r%x*y"xs''x'xf!R&xt t''x%x$r$x*y`rr%x*x*O` Ot `p'%$P#xr*y#xr*yS#r#x*x%%x%x=|!("x "r"x*x%$xt |t%x#x %#"%x $xf$e%$#"! $$xĊ $xO$$xĖ##x$xheh#x $x#f$#"!# Ė1v vPAGING  RETURN to retry, ESC to IgnoreI1 BMJmF*"^b*** PASCALIO STRINGOP EXTRAIO FILEOPS WPSUBS FILEINFOSIOUNIT  9OPENPAGE()`,P`v*pć*xՈ@!pwنv*Ċ6+' `vwv`v-MY#ZpZ ĚZPr ,,P ,[ ,PvZpćZx ZZx PvZpćZx Z-sćZx-xա-,,ć,ć,ć,ć,,x--(,ć,Hć)χ,ć,Hć,,xć,H,x,xĊ -ZĆ--xĖZ# :WORD7.PAGE WORD7.PAGEE aWPPRINT & ``-, / *** EXTRAHEAEXTRAIO HEAPOPS FILEOPS STRINGOP PASCALIO WPEDSUBSWPSUBS FILEINFODIRINFO WILD SIOUNIT  PRTFILE 4` 6(5nf f fP6 $5nf5P fQ fP6 6և6Z` T` K` B`  9`  0` '` ` ` ` ր5nf5P f`Z fP6;$PijbP b%! j bP3P ijb4!  bZ bP 0:Pf;Pi@x0 4x0 0r !x0x0 ր<0YY0P YBQ YP\!ifCP!xfr 0YY0P Yf YD YP!Ժ 00 րEiha` vm!j !a` v!"kO"kk0i" p!#!#l""$P"$p0"0p< S瀏&(P )(' p;S瀏&(vjS瀏&(vi!"k#'l$B)(' pS瀏&(")(#pU('P)(')(#P('p)P$$ p$)(' pS瀏&(")(#p('h O ) m O hP  ) pimi'!#US瀏&(")(#p]P )OpiP! !i!$ 8 $P) ) $P $pS瀏&(")(#p%(#P)(# Ȗ  &P&$'&pj"PiP" '"ph'" I k k#  k'""#i!$'"#! '" 'Q '" !! !298!7 ! !(-!! !2!! !Ȗ5 =P`:<cղ r g,<#Aɐyրit n1߇<#Aɐyրq9 v߇<#AɈyրx6Ė>CEPr  ph Y@!pki!#Y@P !i}0   P#Qpi!PGi!LLi!i !  P! PP  DĊ$kc c4 - cFD p &`44`r `4!p`4 EP (LQ(EEvp`4^`r P#QpPG```pPP  E+b/ bPpdPpS+h +S瀏 (( hhSS S Swa,!! S8 hS瀏 (Sw( SSS S SwadPpbPpb , vj(e2 SSSr dS ph NT/l$/S$ p$l歃S dS _dS _S ĭSlkjdc v.jdc v.jdc vZePpdPpSS S jTdPpePplkjdc v.$l$#USS$ij!/j! !#!i!$  j!$j"j$SS"p!lT?// /_ /` /4 t /e  98!7 ! !( !! !Ȗ 5 =P`: r <ձ -<$1 iրv 2<$1 iր: <$ 1iր6Ė> 5^k p^ b(b)(P#bph PFh+^+r +i!b b !Q !p+b !pb5 ` )aaH3rV*ywhrV*yVV-Ċ.rV*( -./`vĖ `!"`#p"#!"p %ih$P#P&a` v6&!./"!&!%p!i!h&a` v$! &a` v#!  0i "c7h0h"! k xbf(bbi!W!#(ph !. h( *) !( #( * ( *Ȋ!(ph !( *Ȗ  e/eei!!#eph !n hk !lj"$e"##k"j#G/ ȊA/  / Ȋ)/ d/  0/ Ȋր$ ! *ܤ*瘭c "pk 孂ୃ^ ##i#1###瘭a*ܖ*W/XP/+/a`t # Y !  !ii<((ɐ((y(hhck'tic20 %pc` %p孂߭^&ɐ&y&A&&&k!ܖ )pKGY NEȊN vȊրN%0EȊց%O%e0b21>܈Y ZXY/ZY[W4Y ܐ4ց5P%T3v4o%I!p4Z%0Cӭӭxĭ3l$3$$l뭂Y Y3 Z1|gPpq24qxS33i 3Y 3nc 31&$tvq21ցugPpqx!4qx v%W4S Y1 %NU4%S 343l%} dlv4%,2`$`2`4$b$c $aց%F 1 %N1f%4%3l0$25 󂁝Pv be0b)2P )(@e0b2)P )(e0b)2)(ց05vE ^5vO^5ցЋ%4%0e3)3--ււ G%<%e0b21+4!e0bQ21 i4ււ4e)Ձ1%"݄e YY 1.^o22孂1!i iYւa e$e0bY22xee0g gPp  3 e% 3g s0 3(12h  hb p52O 2 2b poi!'S!b !5o!iݖ4Tjk %pj """ ""%"%" %"pj#k#E%% %%pj%"l#"h#$k# # #!" !b&i&!hb& !@b @b!@b,, ,$ Ȅ  ee ȄȄ_ȄȄț!~^n^oՊ( %pj %pk#kjOk"Oj!-"$i!$ -!ib$i!$ ,!i/b"i!!ؘ!+"$i!$ev!iꭂivcv`vev4P*X6 "#$i!$Y%! (  (I. (Npl(ML`v]v,8ivcv8,(LR"cv]v, , iv`v ,,ꋁ(K--](G K+;+7(F S+C+(J -(H -p$ $,(v #(#p4Pճ( ܡۡ) )! 7 7(!_( O!(($,(,!i+4P ]v#⼃f 1#M0%PQ`Pp`PP p`Q p E0^^^n'v v k ^  v ^o ^^ Ֆv n ^ ,,t ,u ,v ,y , zv$ɘvY ^n ^n p  p +ilc))9`(`M-p4*S`*#4P {0  p0h!ۈ ۈ pZ"[W!S%$$ɰ#$~%# #k%#j j%$#h XS瀏 (vi!OS瀏 (!"ȭS瀏 (P S瀏 (S瀏 (! :p#$X[ XWv WW#$[ $[k%$[#$p[#$[%#[[!#P ZY[#8ih#a` v#! :" S ###"3*a+Pv avv `pvv ` ,#b/ Sv v ;pɘvYPvէ pĭxj pĭxL+*p+*Ȅ+*p+!pi!+ !ibPpbubu ;px>x  4x  )vv +i ,b %g焅  d ST;]x⋈1v vɘvYnn⇂ 瘇2凃]h- ] : 1 ]]]hSST TT T-+4P R1P!p 椃\\1PP \\؄14P  cn  d ??X IIIIIIIIVVVVIIVIIVIIIIIXX zabcdefghijklmnopqrstuvwxyy 01234567899..:#ERROR - Keyword value would not fitDEL13EVENN13ODD13Table of ContentsPageeTable of Contents error, Keyword File -  DEL13EVENN13ODD13* * Insert disk *, Continued Continued*PRINT INTERRUPTED* JM*ON() 0+UKku1SNo memory to insert documentt Document not foundd BT@ O N8;K @ HV1E*TjoX;-{u* Page Print page ? (y/n) Insert Paperrx@Print on printer? (y/n)RETURN when printer is readyyPrinter Device not founddPrint page 1? (y/n) COPY ## END of PRINTTJi N , ` [ * myk?{rQ yr2BQ@[Rfo x %q[ \ (;*;PRTSYS @ i2/v   oR*TPh`*P `Q `Sv-Uv vv v 0Zgf /fĖeZha. 0-/ hfĄZea11Z 1 1 fpćfx:+a+*++[>pa +ncniBvliivkvmvgvhvnc nvov0Wv v v v#v +v#@ B Dvi  Pvk  evm  qvl  vg vh v  vnc n vo v vv0/v `v. v hv vv . P Qv0//////ր//////ցQh//x/v vv v 0/qoQhi##ɐʋWiIv *   K  gk nm|lghɐ-ɂP,v+ɘvP cn,Ʉ*r*n-roevKAɘ $11ɘP 1Q 1Pɘvr ցՊց Q-|ZMma11Z 1 1 pF+a+"+ț[+>pa+*a +fa iNO YES?*WORD-7 Print Menu FUNCTIONS: PRINT DocumenttQUIT this Menuu(PRINT FORMS: Continuous Forms? = YESNO Lines/Page of Form = (PAGE NUMBERS: Numbering Option = INITIAL Page Number = (PRINTING: Text Lines/page = Text Line Spacing = No. of Copies = Use FORM FEEDS? = YESNO FIRST Page to Print = PROMPTTLAST Page to Print = Printer Device = *Position with cursor keys and press RETURNNv'How many lines on a page of print formsAPage Number options: 0=NONE, 1=TOP OF PAGE, 2=BOTTOM OF PAGE63=TOP, start with page 2, 4=BOTTOM, start with page 22 Which optionnPage number for first pageePrint how many lines per page*Line Spacing? (1=Single,2=Double,3=Triple))Number of copiess$FIRST page to print (P for prompted))LAST page to printtPrinter Device name??:: .EcX..R.L*:" Q2INITPRT ;!L!M!K!J!I!H!G!FUba`cm^gX1!Ȉ!Ȉ!Ȉ !Ȉ!Ȉi!ȈA!Ȉ!Ȉ!Ȉ!Ȉ!Ȉy!Ȉ)((Q( p!pN !pliivk llncيو炀02v  Vw!ؚ  Vv*PAGING UP, please wait V== +WPEDIT Z!r*vh f"xf"xO "!#!x# !x!!xĊA"xO!Ċ6r*"xr*"xO"xpr*"x#""xĖ&hr'x*vk#Ph[r'x*#.hG'x$h>%'r'x*y'xw&&xĊ'r'x*x'xr*yw&&x 'x$Ԇ pr*"xPp#n$m$ r*y$##%T0 0k#"x#w u#xk-2&r#*P# r#*x#ڇ$h r#*yՖr *v P ((( r *Op "('="x"ȇ"x" "j(r * "x"(p'o"(j"x""jr *yh\"&33k#"x#w 4#xk *p *Ȅ *p$ 3EDITOPTSD)`-P`,v,x+,+Ċ ,x*,*Ė.s"iv"h! !i h! ,   3noi h&պv vv vv  !vj7 j  <vpJ L Nv dv rvvvn' v!v `vm v h'vvo%r Qoni!!i !iiրQ!!i !iiրË9Qh3i.!v vv v n!Qhd+x vNkc u c ruc Ru cjc du$Ჟ$J$jxx7 v pp p W! l v= 3kc u c buՍ"j "OOjs$"$rsrq srec u c bu:"j "PPjv$"$rvrq vrf vDՁ$3k#3s#s#țv#v##kۛs!țv!Țr$;rrsrq srevrq vrfց"ց1 QՑv v3Edit Options MenuQUIT this MenuuEdit scroll amount = *FORMATTING: Paragraph indent amount = RELATIVEERight justification? = YESNO *MARGINS: Margin set 1 = Margin set 2 = Margin set 3 = Margin set 4 = Margin set 5 = *Position with cursor keys and press RETURNNNumber of lines for scrolling??=Indent paragraphs how many columns? ("r" for relative amount) ,,NO YES+Left, Right margin columns? (DEL to delete) ,, ,,oc$ CmFILEOUT / iiU pwcĈpv Lh``&` -`vɘvY-vɂɘvu xu vxĭ ɂPv ɘvY x*%vv +v xv ր3xJv7 4x  v<  v !/xa  Document name ? (y/n) Document name?Y Document Exists, Reuse? (y/n))Saving Document| ERROR 2 Save to another disk by entering DISKNAME:DOCNAMEE-> FINDIT `A#h ji!"#! #!#! !i"&x %xi%%xĚhwj9m%u 9 9Iu I 9u I  %xn./P&9r*&po-PlP&r*&pl'$&'n&$n&OOP r*Op&+%Q&&ko/'%49'r*#'r*#'o#k/,B&r*& &%Pr*&%/ &n&O/$:%&ć#Ċ,2wr*y%ć&&xn/s?":%!ć&("w&x"o'"r*y'o#ć$&xv &ć& w&AW String founddString Not Foundd #REPLACE 6%%x&%`%x% Tk9j#"iP r*Opl$!Օ!'r*%xr*%x!P%x$pD!?r*%x"r*%x#P%x"pr*P$!$! p#Tr*%x#p: :v &x&& wr*yw&x%xwString replacedNo room for REPLACE ,WORDWRAPkr)x*ylr)x*vj"*x"*x' nk*xh" r)x*"pk"#hr$*vi!P neir$*!.nP r$*Opj"Ofj"#$&)xld(w (xpei(Ċ8#3r$*!r$*!#f!#pr$*!# (#5#P!*r)x* r$*!#pr)x* # p*!*x *!*x )$(Ė  FORMAT  .xkv .qr.x*ylx-.xććxhc`q.x#p or$* g v jej e R( rr$*y*v )P* *ee*i)! *! )ee)i)! *! j.xme,w ,x /ep'(n*&f3pr%*f"ve,w ,x /ep) j*&P r$*(r%**&p*& "jr%*** r$* g vdw or$* g v $#D.r.x*yćx/e@ LINEPOSNr&*vk#PpP r&*OpjP#"i'feem%!h !PZ #/r&*#r&* !pr&* !P ! p&r&*#r&* !pr&* p Pel!$l#e8r&*#r&*e!pr&*e!Pe! p,r&*#r&*e!pr&*e pfl!$~P"fAr&*#r&*f!!pfOr&*fOf p2r&*#r&*f!!pr&*f! pրur 'BLOCKLN ZLr *!pr *=pr *>Ȗr *p r *p  |^h h"! vkk h  w w  r *x  hv  wrJsP wo * Džw Jhvv avkv #1#&JhvNJ*v#(k #):dwq $&() r*vPeu)7dw) $w() lq 3)dw() q ))w((r(*x ) )(w((r(*y ) 勥v vv F v  v q (k&:q v ] +w* -wn'&, JvSav 2j c ɂfP,-d$ g:$ 4$ :"v qqq JvD r:~dv$hy,-d JvM$v q qJj:$(v qq Jh:(kր$4 :q#(վtBLOCK Size limitationMark LAST LINE of BLOCK 2@Mark LAST LINE of BLOCK 7 Use UP/DOWN commands to position display, HOME to exit9Enter ESC to EXIT Copy/Delete/Move/Save, RETURN otherwiseSAVEEBlock of lines saveddBlock of lines deletedd *WORD7BLK..Mark DESTINATION of BLOCK No disk space for BLOCK &G'[iM( POSN ~v ($'_%xf&%$w%eĊ@r*%xT%%x%%xP%xTr*%xp%xf%fĊ_%xe&%w%fĊ>r*%xT%%x%%x%xTr*%xp%xe%eċ$'v%xP%x r*%xphkr*%` vk9 %r*v%xO%Ok%h&%$w#Ԭr*%x ?%%x%x2%OĚj&%w"pr*PΊr*%x *%%x%x%OĚj&%w"p%%x%x r,*%xp%%xċ'q&qkr*vik.!Pr*!.k#r*y&&x#Դ&x&&xwqqk&qkk=r*vi!Pr*!.k#r*x&&x#Զ&x&&xwqqր ' 'OVERTYPE$v vv C)`+P`*v*-,Fxxv v bȇxXv k##k,#"  v kv qv #ćą.ɐE/v4:ɘvld;dF!d:qqMɐ"Nvv q k:qqZvɐՐwv{9ɘvIvXIɘv9 :;v wld ddvv qqqɐՌh1i! !xh4!xi h3i! !xh4!xiv w    c qɐv v vqqq qɐcvȂ xt^v vqqq qzɐաvՏՃ9ɘv v Iv^TɘvvCv ld ddvIɘvwqq#ɐ|xv $ zx-ld' dz d,&d:xxc4x :v qqq q6b#Țr*x#bpw0ɐ[1vJ@ɛɘvțɘvv xvqq 4x :qqxq srxq~xq vrxqexexfr*xr*xȇxxv r*xpw ZĊց; 1zv ՠqxxxw|xwpx4xv |!xxw|vxxw3r*xwxr*xwցt0Յ twfćxKxwBxxw3r*xwxr*xwց{xxv r*xȇxOx bpxfw h_JCOMMANDS: Copy, Exit, Find, Lines, Options, Print, Repl, Save, View, or = CCOPY which document??Mark DESTINATION of document COPYE9Enter ESC to EXIT Copy/Delete/Move/Save, RETURN otherwiseBLOCK command exiteddFFind what string?Search option(s)? (Asis,Word)No FIND stringg Searching , please waitLLine  of  lines in documenttOPwordwrapp3lineposn,overtype,proces,findit,replace,format,posn*wordwrapp3lineposn,overtype,proces,findit,replace,format,posnRReplace OLD String? NEW string?Search option(s)? (Asis,Word) Searching , please waitSSAVEE Document  saveddVVIEW what document? ViqJ;u $PROCES W! xĊ x x Ċ x ěs x!v x! xĊޛs xq s xev xq v xf ````,w  w,x ,xvM! w>vr*yޭwv x4x :q  :qqq v cvnv & q&#xZ(nwxr*vPeq a-wOw@wxwq wq FO"r*r*Opr*O wvơƊq#r*P pwdwSwC@=jr*yogg ggvv wer*y v q x4x ::q"q w v q ":q[M?%x/:qq 99 ::*ogB gGgvv qTN O:'ogX g]gvv qqOw8v v w wq ,pr*vj"Pjr*xw x$"|! w|vr*yq &w v8w x%|! w|vwq 5rq) Lqx<|! w$vv |vr*ywogdgh gkgvv 2wx4x :q -ev wr:q'&"q 3 z:fv vSIqɘvk#4#(! ր&ogg gg:4x :G(og g g'g:4x :րqqrqրՇx'og4 g:-g:q&c&(Gvv $ *WORD7BLK..rc = PAGINGG UP , please wait BEGINNINGEnter command on TAB LINEParagraph FORMATTEDNo FIND stringg Searching , please waitNo REPLACE string Searching , please waitPAGINGG DOWN , please waitEND OF DOCUMENTCan't mark TAB LINE# Block COPY, DELETE, MOVE, or SAVE? COPYYDELETEEMOVEESAVEECS$BLOCK complete Document  copieduciTpR}2r|MMMhvHR, Suggest Saving Document Quitting EDIT{G tSYSINFO dTa! P/ P= PK &PWzhe @Ps <P)`*P`` <@<`+ DD r**::ZS<5.(! a ***  zFILEINFOmd( Hpi= iiS  iiq!  P P! P P ii ii! r`UJ;,! j ***  WILD hDF5+b,Pb bb지=..-k`r$x$xi!#!{!"!y i!#!" $x$ Ė*a,Ph +x'a+x지 h ++xĊ .-*a.Ph--xć,a-ć,x8a-x지%%h-x'--xć+a-xĊ,Ċ +a-xć,x+x ,ć--xĖ/xćQćxQx짃ڇ$Qx지~Qx지%xċQx질ڇċQxjxćQćxHQx짃 Ċ1Qx지- Qa"i"!ć-QćxP! ccc"!ccc"!Qx지}xxx<cĊ-xćx'zQx질 xx%%x%x'$&Ċ>r!x$xh%x #! h &"#x"xr!Ĉr#x"xϖ3)jk'zQ+질(*+*&l$"աQ+h$(*i %#k+ $ !#!ڡj+ * Z jLz(*+ =+ * +'zQ+질(*+ b!( )b( րk"#*&+')Ċ*&+'"j")xz(x(xo'&'{'''yĖ yQ~P(|P`[c%r{Q"Q'(&!{z{x*{x|#{xć##|$#{xć{#ć$#!{Ą%r!s @0 0h={ 0hYQ8 e *** HEAPOPS  SIOUNIT 3k"x! !"xk""xĖ+b,P0i/x.Q./xhb b 0//xĊi*b!b bpb 0//xĊiii!Ԡ/ o$ijh&%-j &%+&x%(%&xk#h&&x$$x #0Ċii! o"$$xĖ %$h'x&[&'xj"G ''x" 0i"A ia i$xk%%xc ɢ$$x"!Ċhh Ԙmh$x#!#$xi! m$$x!"hh Җ$#"mpmh$x##$xi! $$x!"hh Ԗ?#,#jh "!# i!a!z # !aA hږ{P p`P` {`r`{`{``지.**Pr*{r*P지. r46s` s5nf5Prf`ZrfP6 P !ȖK&&2'k&li!$&c!h 0 jA j"%!iՖz||Q)`|`| p{**{Pr*`r*P|t~~~"dx T ***  LONGOPS STRINGOP m3otvzn|~(( uINITPRT WPEDIT PUTFILE EDITOPTSFILEOUT FINDIT REPLACE WORDWRAPFORMAT LINEPOSNBLOCKLN POSN OVERTYPEPROCES DIRINFO SYSINFO  WPPRINT cKWPEDIT WPEDIT WPEDIT WPEDIT WPEDIT WPEDIT WPEDIT WPEDIT WPEDIT WPEDIT WPEDIT WPEDIT # {FILEINFOWILD SIOUNIT $  \DEXTPBP8[>&]6LEFT CENTER RIGHT SPLIT FIND REPL BLOCK FORMAT DOWN UP DOWN  JE@;6\BJE@;6.    it09.4  .856213n.0.94.2.1.37p.2.0TYG0G8G4G:fgER     # PRINTER:x #       WQTI H c  Ig D E REA @ B  i h C a ` b F .2.0TYG0G8G4G:fgER   WQTI H c  Ig D E REA @ B  i h C a ` b F .0.1TYG0  G8 G4 G:fgER    A @    j I856D C B 213G n094clr7ptyG0G8G4G:fgER  DABty(  )  ER,newdir := false; *END; p 'nocursor; 'IF length(msg_text)>0 *THEN msg (a,revers,msg_text); '{ GET USER INPUT } 'screenxy (5,row); 'cmdnum := getcmd(opt); 'screenxy (5,row); '{ GET NAME OF CURRENT FILE } 'ptr := d^.dindx[current]; 'fname := copy(ptr^.d_title,1,length(ptr^.d_title)-length(prof.suffix)); p 'IF length(msg_text)>0 THEN *BEGIN ,{ CLEAR MESSAGE AREAS } ,nocursor; ,msg (a,norml,''); ,msg (mode,norml,''); ,screenxy (5,row); ,msg_text := ''; ,write_scr (term.cursor); *END;  ORd09 OS  .856OQOP213n.0.94.2.1.37p    . TpB"$&ʀ:!&:Xh XD țG O  hQb+i+t p+0p+-Nhp+pb P#[ʛ$]ʀP ,ț ț  肀J&: &:#ʛ0,ț0QȁM<K>TpWXZ[]Y!\^_; ;TpC CTp,newdir := false; *END; p 'nocursor; 'IF length(msg_text)>0 *THEN msg (a,revers,msg_text); '{ GET USER INPUT } 'screenxy (5,row); 'cmdnum := getcmd(opt); 'screenxy (5,row); '{ GET NAME OF CURRENT FILE } 'ptr := d^.dindx[current]; 'fname := copy(ptr^.d_title,1,length(ptr^.d_title)-length(prof.suffix)); p 'IF length(msg_text)>0 THEN *BEGIN ,{ CLEAR MESSAGE AREAS } ,nocursor; ,msg (a,norml,''); ,msg (mode,norml,''); ,screenxy (5,row); ,msg_text := ''; ,write_scr (term.cursor); *END;      # PRINTER: PRINTER: 10 Aug x H###D2&dD32BDDDD#DDDUfeVc6feFdveEfVFDDCDB$Dr4DdCDDVF        unitread acksp[2]); or (opt_1[1]=PRINTER:sp[2]) 7THEN o '_'; 2ED2&dD32BDDDD#DDDUfeVc6feFdveEfVFDDCDB$Dr4DdCDDVF06CDTI86F##newdir :10Copy termic ###  E d_msg (row,'PRINTER:mswap ('copydoc END; p D2&dD32BDDDD#DDDUfeVc6feFdveEfVFDDCDB$Dr4DdCDDVFJLKM @B2H--EFB0B2C# )THEN GHfalse) .TGD#  of(tempstr) <>PRINTER:EN exit (wp);  ln; 0wrD2&dD32BDDDD#DDDUfeVc6feFdveEfVFDDCDB$Dr4DdCDDVFSSTT2GHC# )THEN  false) .TG # of(tempstr) <>PRINTER:EN exit (wp);  ln; 0wrD2&dD32BDDDD#DDDUfeVc6feFdveEfVFDDCDB$Dr4DdCDDVFP2__EFMPC )THEN GHfalse) .TGD# D of(tempstr) <>PRINTER:EN exit (wp);  ln; 0wrD2&dD32BDDDD#DDDUfeVc6feFdveEfVFDDCDB$Dr4DdCDDVFS0S1TT/NA$XY!"EN PRINTER:(###.  PRINTER: 10 Aug #D2&dD32BDDDD#DDDUfeVc6feFdveEfVFDDCDB$Dr4DdCDDVFunitread.acksp[2]); or (opt_1[1]=PRINTER:sp[2]) 7THEN o '_'; 2ED2&dD32BDDDD#DDDUfeVc6feFdveEfVFDDCDB$Dr4DdCDDVFction kw_search(inline:pack80; indx1,indx2:integer):integer; FORWARD; #procedure wrtline (VAR prt_line:pack80); FORWARD; #procedure to_print (VAR prt_line:pack80; formflg:boolean); FORWARD; #procedure new_page (VAR endit: boolean); FD2&dD32BDDDD#DDDUfeVc6feFdveEfVFDDCDB$Dr4DdCDDVFinit_prt(VAR rc:integer); p &VAR )i : integer; p &BEGIN )c_under := null; )c_bold := null; )c_pitch := null;   IJK3QRM  F###procedupack80; fsC## RWARD; #procePRINTER:page (VAR enditx H###D2&dD32BDDDD#DDDUfeVc6feFdveEfVFDDCDB$Dr4DdCDDVFVP@CV@@CV@@CVP@W    F## PRINTER: PRINTER: 10 Aug x H###D2&dD32BDDDD#DDDUfeVc6feFdveEfVFDDCDB$Dr4DdCDDVF        $CURSOR $EQUAL J.L2***** HELP for the BUSINESS MENU *****   To select an option, type the UP arrow or DOWN arrow key to move the cursor  in front of the line that describes what you want to do. Then type the  RETURN key. Your selection will load.   If you are having trouble, your system may be setup for the wrong terminal.  Typical problems are: the DOWN arrow does not move the cursor down, extra  characters are shown on the screen, or the cursor is in the wrong place.   If you have a SAGE (Qume QVT102), Televi/deo TV925 or a Freedom 100  terminal, it is easy to install the needed information. Type "T" after  reading this. The QUICK TERMINAL MENU will display. Select the terminal.  Various commands will flash by, then the SAGELOGO will appear.   For other terminals (and printers), refer to the Installation sections of  the GETTING STARTED MANUAL. Also, refer to the WORD7 notes on the W7SETUP  program to install different printers and terminals for WORD7. The standard  printer installed is the MICROLINE (OKIDATA). $CURSOR $EQUAL $SYNTAX A B   ]\{>O.L. {*******************************************************************}  {* FILE: BUS.LOGO.TEXT *}  {* VERSION: 1.0 *}  {* DESCRIPTION: This is an include file used with the business *}  {* disk to display the SAGE logo (banner) on the *}  {* Qume QVT102, Televideo TV925, and Freedom 100 *}  {* terminals. *}  {*  *}  {* *}  {* HISTORY 20-DEC-83 Created -VJB *}  {* *}  {* *}  {* Copyright (c) 1983 SAGE COMPUTER *}  {* ALL RIGHTS RESERVED *}  {* *}  {*******************************************************************}   SEGMENT PROCEDURE LOGO;   const #B1 = ' '; #B2 = ' '; #B3 = ' '; #B4 = ' '; #B5 = ' '; #B6 = ' '; #B7 = ' '; #B8 = ' '; #B9 = ' '; #B10 = ' '; #B11 = ' '; #B12 = ' '; #B18 = ' '; #B19 = ' '; #B20 = ' '; #B41 = ' 0 '; #B42 = ' '; #G = 'G'; #Z = '0'; #F = '4'; #E = '8'; #  var #CLEARSC, ES : char; #I : integer; #  PROCEDURE QUME_LOGO;  begin #gotoxy(0,3); #write(ES,G,E,B20,ES,G,Z); writeln; #write(ES,G,E,B18,ES,G,Z,B2,ES,G,F,B9,ES,G,Z,B4,ES,G,F,B9,ES,G,Z,B4,ES); #write(G,F,B9,ES,G,Z,B4,ES,G,F,B9,ES,G,Z); writeln; #write(ES,G,E,B18,ES,G,Z,ES,G,F,B11,ES,G,Z,B2,ES,G,F,B11,ES,G,Z,B2,ES,G); #write(F,B11,ES,G,Z,B2,ES,G,F,B11,ES,G,Z); writeln; #write(ES,G,E,B18,ES,G,Z,ES,G,F,B3,ES,G,Z,B10,ES,G,F,B3,ES,G,Z,B3,ES,G,F); #write(B3,ES,G,Z,B2,ES,G,F,B3,ES,G,Z,B10,ES,G,F,B3,ES,G,Z); writeln; #write(ES,G,E,B18,ES,G,Z,ES,G,F,B11,ES,G,Z,B2,ES,G,F,B11,ES,G,Z,B2,ES,G,F); #write(B3,ES,G,Z,B1,ES,G,F,B5,ES,G,Z,B2,ES,G,F,B11,ES,G,Z); writeln; #write(ES,G,Z,B18,ES,G,Z,ES,G,F,B11,ES,G,Z,B2,ES,G,F,B11,ES,G,Z,B2,ES,G,F); #write(B3,ES,G,Z,B1,ES,G,F,B5,ES,G,Z,B2,ES,G,F,B11,ES,G,Z); writeln; #write(ES,G,E,B18,ES,G,Z,B8,ES,G,F,B3,ES,G,Z,B2,ES,G,F,B3,ES,G,Z,B3,ES,G); #write(F,B3,ES,G,Z,B2,ES,G,F,B3,ES,G,Z,B3,ES,G,F,B3); #write(ES,G,Z,B2,ES,G,F,B3,ES,G,Z); writeln; #write(ES,G,Z,B18,B1,ES,G,F,B11,ES,G,Z,B2,ES,G,F,B3,ES,G,Z,B3,ES); #write(G,F,B3,ES,G,Z,B2,ES,G,F,B11,ES,G,Z,B2,ES,G,F,B11,ES,G,Z); writeln; # #write(ES,G,E,B18,ES,G,Z,ES,G,F,B9,ES,G,Z,B4,ES,G,F,B3,ES,G,Z,B3,ES,G,F); #write(B3,ES,G,Z,B2,ES,G,F,B9,ES,G,Z,B4,ES,G,F,B9,ES,G,Z); writeln; #write(ES,G,Z,B42,ES,G,F,B1,ES,G,Z); writeln; #write(ES,G,E,B41,ES,G,Z,ES,G,F,ES,G,Z,B5,'C O M P U T E R'); #  end; #   PROCEDURE TV925_LOGO ; #  begin #for I := 0 to 15 do %begin 'gotoxy(0,I); 'write(ES,G,Z); %end; # #gotoxy(0,3); #write(ES,G,E,B20,ES,G,Z); writeln; #write(ES,G,E,B18,ES,G,Z,B1,ES,G,F,B10,ES,G,Z,B3,ES,G,F,B10,ES,G,Z,B3,ES); #write(G,F,B10,ES,G,Z,B3,ES,G,F,B10,ES,G,Z); writeln; # #write(ES,G,E,B18,ES,G,F,B12,ES,G,Z,B1,ES,G,F,B12,ES,G,Z,B1,ES,G,F,B12); #write(ES,G,Z,B1,ES,G,F,B12,ES,G,Z); writeln; #write(ES,G,E,B18,ES,G,F,B4,ES,G,Z,B9,ES,G,F,B4,ES,G,Z,B2,ES,G,F,B4,ES); #write(G,Z,B1,ES,G,F,B4,ES,G,Z,B9,ES,G,F,B4,ES,G,Z); writeln; #write(ES,G,E,B18,ES,G,F,B12,ES,G,Z,B1,ES,G,F,B12,ES,G,Z,B1,ES,G,F,B4,ES); #write(G,Z,ES,G,F,B6,ES,G,Z,B1,ES,G,F,B12,ES,G,Z); writeln; #write(ES,G,Z,B18,ES,G,F,B12,ES,G,Z,B1,ES,G,F,B12,ES,G,Z,B1,ES,G,F,B4,ES); #write(G,Z,ES,G,F,B6,ES,G,Z,B1,ES,G,F,B12,ES,G,Z); writeln; #write(ES,G,E,B18,ES,G,Z,B7,ES,G,F,B4,ES,G,Z,B1,ES,G,F,B4,ES,G,Z,B2,ES,G); #write(F,B4,ES,G,Z,B1,ES,G,F,B4,ES,G,Z,B2,ES,G,F,B4); #write(ES,G,Z,B1,ES,G,F,B4,ES,G,Z); writeln; #write(ES,G,Z,B18,ES,G,F,B12,ES,G,Z,B1,ES,G,F,B4,ES,G,Z,B2,ES,G,F,B4,ES); #write(G,Z,B1,ES,G,F,B12,ES,G,Z,B1,ES,G,F,B12,ES,G,Z); writeln; #write(ES,G,E,B18,ES,G,F,B10,ES,G,Z,B3,ES,G,F,B4,ES,G,Z,B2,ES,G,F,B4,ES,G); #write(Z,B1,ES,G,F,B10,ES,G,Z,B3,ES,G,F,B10,ES,G,Z); writeln; #write(ES,G,Z,B41,ES,G,F,B2,ES,G,Z); writeln; #write(ES,G,E,B41,ES,G,F,B1,ES,G,Z,B5,'C O M P U T E R'); #  end; #   PROCEDURE FD100_LOGO ;  begin #ES := chr(27); #CLEARSC := chr(26); # #write(CLEARSC); # #for I := 0 to 15 do %begin 'gotoxy(0,I); 'write(ES,G,Z); %end; # #gotoxy(0,3); #write(ES,G,E,B20,ES,G,Z,B1); writeln; #write(ES,G,E,B18,ES,G,Z,B3,ES,G,F,B10,ES,G,Z,B5,ES,G,F,B10,ES,G,Z,B5,ES); #write(G,F,B10,ES,G,Z,B5,ES,G,F,B10,ES,G,Z); writeln; # #write(ES,G,E,B18,ES,G,Z,B1,ES,G,F,B12,ES,G,Z,B3,ES,G,F,B12,ES,G,Z,B3,ES); #write(G,F,B12,ES,G,Z,B3,ES,G,F,B12,ES,G,Z); writeln; #write(ES,G,E,B18,ES,G,Z,B1,ES,G,F,B4,ES,G,Z,B11,ES,G,F,B4,ES,G,Z,B4,ES); #write(G,F,B4,ES,G,Z,B3,ES,G,F,B4,ES,G,Z,B11,ES,G,F,B4,ES,G,Z); writeln; #write(ES,G,E,B18,ES,G,Z,B1,ES,G,F,B12,ES,G,Z,B3,ES,G,F,B12,ES,G,Z,B3,ES); #write(G,F,B4,ES,G,Z,B2,ES,G,F,B6,ES,G,Z,B3,ES,G,F,B12,ES,G,Z); writeln; #write(ES,G,Z,B18,ES,G,Z,B1,ES,G,F,B12,ES,G,Z,B3,ES,G,F,B12,ES,G,Z,B3,ES); #write(G,F,B4,ES,G,Z,B2,ES,G,F,B6,ES,G,Z,B3,ES,G,F,B12,ES,G,Z); writeln; #write(ES,G,E,B18,ES,G,Z,B9,ES,G,F,B4,ES,G,Z,B3,ES,G,F,B04,ES,G,Z,B4,ES,G); #write(F,B4,ES,G,Z,B3,ES,G,F,B4,ES,G,Z,B4,ES,G,F,B4); #write(ES,G,Z,B3,ES,G,F,B4,ES,G,Z); writeln; #write(ES,G,Z,B19,ES,G,F,B12,ES,G,Z,B3,ES,G,F,B4,ES,G,Z,B4,ES,G,F,B4,ES); #write(G,Z,B3,ES,G,F,B12,ES,G,Z,B3,ES,G,F,B12,ES,G,Z); writeln; #write(ES,G,E,B18,ES,G,Z,B1,ES,G,F,B10,ES,G,Z,B5,ES,G,F,B4,ES,G,Z,B4,ES); #write(G,F,B4,ES,G,Z,B3,ES,G,F,B10,ES,G,Z,B5,ES,G,F,B10,ES,G,Z); writeln; #write(ES,G,Z,B42,ES,G,F,B2,ES,G,Z); writeln; #write(ES,G,E,B41,ES,G,Z,B1,ES,G,F,B1,ES,G,Z,B6,'C O M P U T E R'); #  end; #   PROCEDURE OTHER_LOGO;  begin "WRT(21,8 ,' **** SAGE ****');  end;    begin  ES := chr(27);  SC_CLR_SCREEN;   if (TERM='Q') then QUME_LOGO else #if (TERM='T') then TV925_LOGO else &if (TERM='F') then FD100_LOGO else OTHER_LOGO;  WRT(21,29,'Press any key for MENU');  read(ES);  end;   PROCEDURE ERRS(X,Y:integer;ER:string);  begin  gotoxy(X,Y);  if TERM='Q' then write(ESC,'G4',ER,ESC,'G0');  if TERM='T' then write(ESC,'G4',ER,ESC,'G0');  if TERM='F' then write(ESC,'b ',ER,ESC,'d ');  end;   PROCEDURE LINE(X,Y,LNG:integer);  var S:string;  I:integer;  {Draw a line starting a Y,X Num chars long}  begin  gotoxy(X,Y);  if (TERM='Q') OR (TERM='F') then "begin $S:=''; $for I:=1 to LNG do S:=CONCAT(S,'k'); $write(ESC,'$'); {Graph} $write(S); $write(ESC,'%'); {Text mode} "end else  { This works, but screen flashes underlines }  { if (TERM='T') then "begin $S:=''; $for I:=1 to LNG do S:=CONCAT(S,' '); $write(ESC,'G8'); Underline mode $write(S); $write(ESC,'G0'); End underline "end else } "begin $S:=''; $for I:=1 to LNG do S:=CONCAT(S,'_'); $write(S); "end;  end; ! !PROCEDURE BOX(X,Y,WDTH,LNG:integer); !var C:integer; ! BLINE:string; !begin !if (TERM='Q') OR (TERM='F') then #begin %BLINE:='b'; %for C:=2 to (WDTH-1) do BLINE:=CONCAT(BLINE,'k'); %BLINE:=CONCAT(BLINE,'c'); %write(ESC,'G','0',ESC,'$'); %WRT(X,Y,BLINE); {Graph} %for C:=(Y+1) to (Y+LNG-1) do 'begin )WRT(X,C,'j'); )WRT(X+WDTH-1,C,'j'); 'end; %BLINE[1]:='a'; %BLINE[LENGTH(BLINE)]:='d'; %WRT(X,Y+LNG,BLINE); %write(ESC,'%'); {Text mode} ! end !else #begin {box for others} %LINE(X,Y,WDTH); %for C:=(Y+1) to (Y+LNG-1) do 'begin )WRT(X,C,'|'); )WRT(X+WDTH,C,'|'); 'end; %LINE(X,Y+LNG,WDTH); %WRT(X,Y+LNG,'|'); %WRT(X+WDTH,Y+LNG,'|'); #end; !end;   procedure BLANKSTATUS;  {Blank the status line}  var BLANK:STRING;  begin  BLANK:=' ';  BLANK[1]:=CHR(27); {escape }  if TERM='Q' then BLANK[2]:='{';  if TERM='T' then BLANK[2]:='h';  if TERM='F' then BLANK[2]:='n';  WRITE(BLANK);  end;   $CURSOR $EQUAL $SYNTAX A B C?O.!D1 {*******************************************************************}  {* FILE: BUS.START.TEXT *}  {* VERSION: 1.0 *}  {* DESCRIPTION: This is a simple menu program that interfaces *}  {* to the application programs on the BUSINESS *}  {* disk (WORD7.CODE, TELE.HAYES.CODE, DEMO.CODE, *}  {* and the Timberline spreadsheet SS.CODE.) *}  {*  *}  {* A copy of the code file is installed as the *}  {* SYSTEM.STARTUP program (by TSCRIPT) so that *}  {* the MAIN MENU is brought up when the disk is *}  {* booted. The GETTING STARTED MANUAL describes *}  {* how to use the program. *}  {* *}  {* The file WHAT_TERM.TEXT (built by TSCRIPT) *}  {* identifies what terminal codes to use for the *}  {* SAGE logo and cursor keys. *}  {* *}  {* HISTORY 20-DEC-83 Created -VJB *}  {* *}  {* *}  {* Copyright (c) 1983 SAGE COMPUTER *}  {* ALL RIGHTS RESERVED *}  {* *}  {*******************************************************************}  PROGRAM BUS_START;  {Starts BUSINESS DISK MENU}  USES SCREENOPS {$U SCREENOPS.CODE}, %COMMANDIO {$U COMMANDIO.CODE};  var SYSTEM,S:string; $ASCII,ESC,TERM: char;  QUME:boolean; $  {**********************************************************************}   PROCEDURE WRT(X,Y:integer;S:string);FORWARD;   {$I BUS.LOGO.TEXT}  {**********************************************************************}   PROCEDURE GET_HELP;  var TXIN:TEXT; $HELPLINE:string;  I:INTEGER;  begin  RESET(TXIN,'BUS.HELP.TEXT');  for i:=1 to 24 do writeln;  writeln;  WHILE NOT(EOF(TXIN)) DO "begin $readln(TXIN,HELPLINE); $writeln(HELPLINE);  end;  CLOSE(TXIN);  writeln;  write('Type "T" for TERMINAL program, "P" for P-system, "" for MENU.');  read(ASCII);  CASE ASCII OF #'T','t':Begin -writeln; -CHAIN('TRM.SCRIPT'); # EXIT(PROGRAM); +end; #'P','p':EXIT(PROGRAM); #end;  end;   PROCEDURE WRT;  begin  GOTOXY(X,Y);  write(S);  end;  {**********************************************************************}  PROCEDURE MENU;  const NOECHO=2; &CONSOLE=1;  var FIRST,LAST,BASE,I,AT:integer;  UP,DOWN,CMD,CR:char;  A:PACKED ARRAY[0..1] OF char;  DONE,GOMENU:boolean; " "{********************************************************************} "PROCEDURE SHOWMENU; "begin "SC_CLR_SCREEN; "WRT(24,3,'SAGE IV Main Menu'); "LINE(6,4,61); "writeln; "writeln; "writeln; "if SYSTEM='ALTERNATE' then )writeln(' (reserved for WORD/7 )') " else writeln(' WORD/7 Word Processing'); "writeln; "if SYSTEM='ALTERNATE' then )writeln(' (reserved for TIMBERLINE SS)') " else writeln(1' TIMBERLINE Spreadsheet'); "writeln; "writeln(' Demonstration'); "writeln; "writeln(' Communications'); "writeln; "writeln(' p-System'); "writeln; "end; ! "PROCEDURE PSYSTEM; "begin "GOMENU:=FALSE; "REPEAT $SC_CLR_SCREEN; $BOX( 5,3,70,8); $WRT(17, 6,' PRESS "Y" to CONFIRM p-System SELECTION.'); $WRT(17, 8,' or "q" to quit and return to MAIN MENU.'); $WRT(17,18,' NOTE: To restart the MAIN MENU from the p-System,'); $WRT(17,19,' press "I" at the Command line. '); $WRT(17,10,' -----> '); $read(CMD); $if ((CMD='y') OR (CMD='Y')) then &begin (SC_CLR_SCREEN; (EXIT(PROGRAM); &end else $if ((CMD='q') OR (CMD='Q')) then GOMENU:=TRUE; "UNTIL GOMENU; "SC_CLR_SCREEN; "SHOWMENU; "DONE:=FALSE; "end;   begin  UP:=chr(11);  if QUME then DOWN:=chr(10) else DOWN:=chr(22);  if SYSTEM='ALTERNATE' then "BEGIN $FIRST:=4; $LAST:=8; "END ELSE "BEGIN $FIRST:=0; $LAST:=8; "END;  I:=FIRST;  BASE:=7;  CR:=chr(13);  REPEAT "SC_CLR_SCREEN; "SHOWMENU; "REPEAT $AT:=BASE+I; $GOTOXY(22,AT); $UNITREAD(NOECHO,A[0],1,0,4); $CMD:=A[0]; $if NOT (CMD IN [UP,DOWN,CR]) then &begin (ERRS(1,22,'Move cursor with arrow keys, Then press RETURN.'); (ERRS(1,23,' (Or type "?" for HELP )'); (UNITREAD(NOECHO,A[0],1,0,4); (CMD:=A[0]; (IF (CMD='?') or (CMD='/') THEN *BEGIN ,GET_HELP; ,SC_CLR_SCREEN; ,SHOWMENU; ,GOTOXY(22,AT); & END; &end; $if CMD=UP then &begin (I:=I-2; (if ILAST then I:=FIRST; &end; "UNTIL CMD=CR; "DONE:=TRUE; "Sc_clr_screen; "CASE I OF $0:S:='WORD7'; $2:S:='SS'; $4:S:='HDEMO'; $6:S:='TELE.HAYES'; $8:PSYSTEM; $end; "UNTIL DONE;  end;    PROCEDURE GET_TERMINAL(var TERM:char);  var TXIN:TEXT; $TERMINAL:string;  begin  RESET(TXIN,'WHAT.SYS.TEXT');  TERM:='O'; {OTHER}  readln(TXIN,TERMINAL);  readln(TXIN,SYSTEM);  if TERMINAL ='QVT102' then TERM:='Q';  if TERMINAL ='TV925' then TERM:='T';  if TERMINAL ='FD100' then TERM:='F';  CLOSE(TXIN);  end;   {**********************************************************************}  begin  ESC:=chr(27);  EXCEPTION(TRUE); {STOP ANY PREVIOUS CHAINING}  GET_TERMINAL(TERM);  if ASCII='Q' then EXIT(PROGRAM);  if (TERM='Q') then QUME:=TRUE else QUME:=FALSE;  BLANKSTATUS;  LOGO;  MENU;  CHAIN(S);  CHAIN('system.startup.');  ERRS(10,2,' Please wait, program loading.....');  end.  BUSSTARTLOGO V( BUSSTART~~0LBUS\\F$0\2LOGO uvpGvp8vpw pvpGvp0vpwpvpGvp8vp w pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vp!w pvpGvp0vp&w pvpGvp4vp)w pvpGvp0vp.w pvpGvp4vp1w pvpGvp0vpwpvpGvp8vp6w pvpGvp0vpvpGvp4vp@w pvpGvp0vpFw pvpGvp4vpHw pvpGvp0vpNw pvpGvp4vpPw pvpGvp0vpVw pvpGvp4vpXw pvpGvp0vpwpvpGvp8vp^w pvpGvp0vpvpGvp4vphw pvpGvp0vpjw pvpGvp4vppw pvpGvp0vprw pvpGvp4vptw pvpGvp0vpvw pvpGvp4vpxw pvpGvp0vpzw pvpGvp4vpw pvpGvp0vpwpvpGvp8vpw pvpGvp0vpvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vp vpvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpwpvpGvp0vpw pvpGvp0vpvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vp vpvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpwpvpGvp8vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpwpvpGvp0vpw p vpvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vp w pvpGvp4vp w pvpGvp0vp w pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpwpvpGvp8vpw pvpGvp0vpvpGvp4vp'w pvpGvp0vp,w pvpGvp4vp/w pvpGvp0vp1w pvpGvp4vp3w pvpGvp0vp5w pvpGvp4vp7w pvpGvp0vp<w pvpGvp4vp?w pvpGvp0vpwpvpGvp0vpDw pvpGvp4vp vpvp2Gvp0vpwpvpGvp8vpZw pvpGvp0vpvpGvp4vpvpGvp0vpow prw p h +uvpGvp0vpuvpGvp8vp~w pvpGvp0vpwpvpGvp8vpw pvpGvp0vp vpvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpwpvpGvp8vpw pvpGvp4vpw pvpGvp0vp vpvpGvp4vpw pvpGvp0vp vpvpGvp4vpw pvpGvp0vp vpvpGvp4vpw pvpGvp0vpwpvpGvp8vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vp vpvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpwpvpGvp8vpw pvpGvp4vpw pvpGvp0vp vpvpGvp4vp w pvpGvp0vp vpvpGvp4vpw pvpGvp0vpvpGvp4vpw pvpGvp0vp vpvpGvp4vpw pvpGvp0vpwpvpGvp0vp"w pvpGvp4vp,w pvpGvp0vp vpvpGvp4vp3w pvpGvp0vp vpvpGvp4vp:w pvpGvp0vpvpGvp4vp=w pvpGvp0vp vpvpGvp4vpAw pvpGvp0vpwpvpGvp8vpHw pvpGvp0vpRw pvpGvp4vpVw pvpGvp0vp vpvpGvp4vpYw pvpGvp0vp\w pvpGvp4vp^w pvpGvp0vp vpvpGvp4vpaw pvpGvp0vpdw pvpGvp4vpfw pvpGvp0vp vpvpGvp4vpiw pvpGvp0vpwpvpGvp0vplw pvpGvp4vpvw pvpGvp0vp vpvpGvp4vp}w pvpGvp0vpw pvpGvp4vpw pvpGvp0vp vpvpGvp4vpw pvpGvp0vp vpvpGvp4vpw pvpGvp0vpwpvpGvp8vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vp vpvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpwpvpGvp0vpw pvpGvp4vpw pvpGvp03vpwpvpGvp8vpw pvpGvp4vp vpvpGvp0vpw pw p1vph +uvpGvp0vpuvpGvp8vpw pvpGvp0vp vpwpvpGvp8vpw pvpGvp0vp w pvpGvp4vp w pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vp%w pvpGvp4vp(w pvpGvp0vpwpvpGvp8vp.w pvpGvp0vp vpvpGvp4vp8w pvpGvp0vp?w pvpGvp4vpAw pvpGvp0vpHw pvpGvp4vpJw pvpGvp0vpQw pvpGvp4vpSw pvpGvp0vpwpvpGvp8vpZw pvpGvp0vp vpvpGvp4vpdw pvpGvp0vpgw pvpGvp4vpmw pvpGvp0vppw pvpGvp4vpsw pvpGvp0vpvw pvpGvp4vpxw pvpGvp0vp{w pvpGvp4vpw pvpGvp0vpwpvpGvp8vpw pvpGvp0vp vpvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpwpvpGvp0vpw pvpGvp0vp vpvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpwpvpGvp8vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vp w pvpGvp0vpwpvpGvp0vp w pvpGvp4vpw pvpGvp0vpw pvpGvp4vp w pvpGvp0vp#w pvpGvp4vp&w pvpGvp0vp)w pvpGvp4vp+w pvpGvp0vp2w pvpGvp4vp4w pvpGvp0vpwpvpGvp8vp;w pvpGvp0vp vpvpGvp4vpEw pvpGvp0vpKw pvpGvp4vpNw pvpGvp0vpQw pvpGvp4vpTw pvpGvp0vpWw p3vpGvp4vpYw pvpGvp0vp_w pvpGvp4vpbw pvpGvp0vpwpvpGvp0vphw pvpGvp4vp~w pvpGvp0vpwpvpGvp8vpw pvpGvp0vp vpvpGvp4vp vpvpGvp0vpw pw p1q2hr SQST SFq`w p                                                         * )  C O M P U T E RR                                        )  )  C O M P U T E RR                                                          *  )  C O M P U T E RR **** SAGE *****Press any key for MENUUN^ BUSSTART)`*P-,uSQ8Tvpw p`w pTvpw pST8Tvpw p`w pTvpw pSF8Tvp w p`w pTvp w p-TWVuSQSFn`PU+**+%`,,`P ,Q ,P**ԚTvp$vp`w pTvp%vpD`PU+**+%`,,`P ,Q ,P**Ԛ`w pW TSQSFaPV+h +#a,,aP ,Q ,P ha++aP +Q +PTvpGvp0vpTvp$vpXWaWWU+h +X XV  haaaadȇXWUaTvp%vp`XWVWWU+h +X XV  hއXWUVXWUXVWUXN)`P`ȅSQ`{ȅST`hȅSF`nȚ`w p)X`- ` pXWWXwpWWwp`wp$`.Pw p`w p.w pwp` pwp#w pUw pUwpDsp p4րJ` X')`*P-,u`w p-r q=wpwpwp*zw pwpw pwpwp*w pwpw pwpwpw pwpwpw pwpwpw pwpwp r F6Mg {w pyY r pqQ ԕr   V oo*lklk$ij mr "!h u p ˧n&('%; p ˧n&?&/ r  u&( !i!$#i&' !i!#$i&%t r !,P%PPP ց+5  V`- ` pWO`.Pw p`w p`*Pw p`w p.WQĄ.WTĄ.WF` p` WVTsS UQpSQVVtss G44G00G44G00b d k_bkcjj|||| BUS.HELP.TEXTAType "T" for TERMINAL program, "P" for P-system, "" for MENU. TRM.SCRIPTTPtSAGE IV Main Menu ALTERNATE. (reserved for WORD/7 )). WORD/7 Word Processingg ALTERNATE4 (reserved for TIMBERLINE SS)). TIMBERLINE Spreadsheett% Demonstration& Communicationss p-Systemm, PRESS "Y" to CONFIRM p-System SELECTION..- or "q" to quit and return to MAIN MENU.2 NOTE: To restart the MAIN MENU from the p-System,,& press "I" at the Command line. -----> ALTERNATE/Move cursor with arrow keys, Then press RETURN. (Or type "?" for HELP )WORD7SSSHDEMO TELE.HAYESS WHAT.SYS.TEXTQVT1022TV925FD100system.startup." Please wait, program loading......Kr  FILEOPS STRINGOP PASCALIOEXTRAIO GOTOXY COMMANDISCREENOP TERMSCRI ~~0LBUSu\\F$0\TERMSCRIR-`-s`sp`-t p`tp`t p`tp`sp`s--`-s` sp`-Pt p`t p`Pt p`t p`sp`s-ctpt ptptptp)t ptptp=t ptptpQt ptptpct ptptprt ptptpt pt ptp0^-PM-Pupt p#-P րխWW#vWWW#vWWW vWvW vWWVVWV지*V ȅVVۆ rճWW vWvWvWWWvWvW-vWWWvW)vWWWvW7vW-vW8vWWWvW@vWRfWWWvW-dvWWWvWbvWWWvWpvW՟WWvW-fvWWWvWvWWWvWvW-vWvWWWvWvWDWWvW-fvWWWvWvWWWvWvWvWWVVWV지*V ȅVVۆr WHAT.SYS.TEXT WHAT.SYS.TEXT1 QUICK TERMINAL INSTALLATION MENU& S- SAGE or QVT1022' T- TELEVID4EO TV925# F- FREEDOM 100 M- MENUU! P- p-SYSTEM < Select the letter for the terminal you have::QVT1022CTV925A.11FD100BFtBUILD#FTMU.INSTAL.CODE,SYSTEM.STARTUP*YQI#FTBUS.START.CODE,SYSTEM.STARTUP*YQII=""MAPPERRBUSINESSS XW7SETUP*Y**K*FRSYSTEM.MISCINFO*YTT.MISCINFO,SYSTEM.MISCINFO**T.SPEC,TS.SPEC*Y"TBUS.START.CODE,SYSTEM.STARTUP*YQII ALTERNATEFRSYSTEM.MISCINFO*YTT.MISCINFO,SYSTEM.MISCINFO**"TBUS.START.CODE,SYSTEM.STARTUP*YQIIBUILDFRSYSTEM.MISCINFO*YTE...MISC,SYSTEM.MISCINFO**T.MISCINFO,STD.MISCINFO*YY"TMU.INSTAL.CODE,SYSTEM.STARTUP*YQIIMAPPERRFRSYSTEM.MISCINFO*YTE...MISC,SYSTEM.MISCINFO*QIII="". PSTRINGOPEXTRAIO PASCALIOFILEOPS COMMANDI $CURSOR $EQUAL A $SYNTAX O.( {*******************************************************************}  {* FILE: TRM.SCRIPT.TEXT *}  {* Copyright (c) 1983 SAGE COMPUTER *}  {* ALL RIGHTS RESERVED *}  {* *}  {* VERSION: 1.0 *}  {* HISTORY 20-DEC-83 Created -VJB *}  {*  *}  {* DESCRIPTION: Terminal script file builds scripts to *}  {* install one of the three supported terminals *}  {* TV925, Freedom 100 or QUME QVT102 (SAGE) *}  {* *}  {* The file WHAT.SYS.TEXT is read to define the *}  {* environment (BUILD disk or BUSINESS disk) that *}  {* TRM.SCRIPT is running under. *}  {* *}  {* When run on the BUSINESS DISK, TRM.SCRIPT.CODE *}  {* also installs the WORD7 and SS terminal files. *}  {* The BUSINESS MAIN MENU program is transferred *}  {* to SYSTEM.STARTUP removing any old copy. As a *}  {* copy of TRM.SCRIPT is SYSTEM.STARTUP on the *}  {*  diskette, it will run first. From then on,the *}  {* disk will boot to the MAIN MENU. *}  {* *}  {* When run on the BUILD (MU) DISK, TRM.SCRIPT *}  {* will create the proper STD.MISCINFO for the MU *}  {* installation program, MU.INSTAL.CODE, to use. *}  {* After TRM.SCRIPT runs, a copy of MU.INSTAL *} 5 {* becomes SYSTEM.STARTUP. Again, a copy of the *}  {* TRM.SCRIPT program is initially SYSTEM.STARTUP,*}  {* so it will run the first time the disk is *}  {* booted. From then on, the disk will boot to *}  {* the MU selection menu. *}  {* *}  {* *}  {*  When run on an MAPPER disk, just an extended *}  {* SYSTEM.MISCINFO is installed. No change is made*}  {* to the SYSTEM.STARTUP program. *}  {* *}  {* *}  {*******************************************************************}     PROGRAM TERM_SCRIPT;  {Starts BUSINESS DISK MENU}  USES %COMMANDIO {$U COMMANDIO.CODE};    VAR ASCII:CHAR; $W_SCRIPT,M_SCRIPT:STRING[255];  CALLMENU,ABORT:BOOLEAN;  TERMINAL,SYSTEM:STRING; $I:INTEGER;   PROCEDURE WRT_SYSTEM;  VAR TXOUT:TEXT;  BEGIN  REWRITE(TXOUT,'WHAT.SYS.TEXT');  WRITELN(TXOUT,TERMINAL);  WRITELN(TXOUT,SYSTEM);  CLOSE(TXOUT,LOCK);  END;   PROCEDURE RD_SYSTEM;  VAR TXOUT:TEXT;  BEGIN  RESET(TXOUT,'WHAT.SYS.TEXT');  READLN(TXOUT,TERMINAL);  READLN(TXOUT,SYSTEM);  CLOSE(TXOUT);  END;   BEGIN  WRITELN;  WRITELN(' QUICK TERMINAL INSTALLATION MENU');  WRITELN;  WRITELN;  WRITELN(' S- SAGE or QVT102');  WRITELN;  WRITELN(' T- TELEVIDEO TV925');  WRITELN;  WRITELN(' F- FREEDOM 100');  WRITELN;  WRITELN(' M- MENU');  WRITELN;  WRITELN(' P- p-SYSTEM ');  WRITELN;  WRITE (' Select the letter for the terminal you have:');  ABORT:=FALSE;  CALLMENU:=FALSE;  READ(ASCII);  WRITELN;  RD_SYSTEM; {Read current terminal and diskette setup}  W_SCRIPT:='';  M_SCRIPT:='';  CASE ASCII OF "'S','s':BEGIN ,TERMINAL:='QVT102'; ,W_SCRIPT:='C'; *END; "'T','t':BEGIN ,TERMINAL:='TV925'; ,W_SCRIPT:='A'; * WRITE(CHR(27),'.1'); {TURN CURSOR ON} *END; "'F','f':BEGIN ,TERMINAL:='FD100'; ,W_SCRIPT:='B'; *END; "'M','m':CALLMENU:=TRUE; "'P','p':ABORT:=TRUE; "END;  MSCRIPT:='';  IF CALLMENU THEN "BEGIN $IF SYSTEM='BUILD' THEN &BEGIN (M_SCRIPT:=CONCAT('FTMU.INSTAL.CODE,SYSTEM.STARTUP*YQI') &END ELSE BEGIN (M_SCRIPT:=CONCAT('FTBUS.START.CODE,SYSTEM.STARTUP*YQI'); &END; $M_SCRIPT:=CONCAT('I="',M_SCRIPT,'"'); $FOR I:=1 TO LENGTH(M_SCRIPT) DO IF M_SCRIPT[I]='*' THEN (M_SCRIPT[I]:=CHR(13); $IF SYSTEM<>'MAPPER' THEN CHAIN(M_SCRIPT); "END ELSE IF NOT(ABORT) THEN $BEGIN $WRT_SYSTEM; $IF SYSTEM='BUSINESS' THEN &BEGIN (M_SCRIPT:=CONCAT('XW7SETUP*Y*',W_SCRIPT,'*K*'); (M_SCRIPT:=CONCAT(M_SCRIPT,'FRSYSTEM.MISCINFO*YT',TERMINAL); (M_SCRIPT:=CONCAT(M_SCRIPT,'.MISCINFO,SYSTEM.MISCINFO*'); (M_SCRIPT:=CONCAT(M_SCRIPT,'T',TERMINAL,'.SPEC,TS.SPEC*Y'); (M_SCRIPT:=CONCAT(M_SCRIPT,'TBUS.START.CODE,SYSTEM.STARTUP*YQI'); &END; $IF SYSTEM='ALTERNATE' THEN &BEGIN (M_SCRIPT:=CONCAT('FRSYSTEM.MISCINFO*YT',TERMINAL); (M_SCRIPT:=CONCAT(M_SCRIPT,'.MISCINFO,SYSTEM.MISCINFO*'); (M_SCRIPT:=CONCAT(M_SCRIPT,'TBUS.START.CODE,SYSTEM.STARTUP*YQI'); &END; $IF SYSTEM='BUILD' THEN &BEGIN (M_SCRIPT:=CONCAT('FRSYSTEM.MISCINFO*YTE.',TERMINAL); (M_SCRIPT:=CONCAT(M_SCRIPT,'.MISC,SYSTEM.MISCINFO*'); (M_SCRIPT:=CONCAT(M_SCRIPT,'T',TERMINAL,'.MISCINFO,STD.MISCINFO*Y'); (M_SCRIPT:=CONCAT(M_SCRIPT,'TMU.INSTAL.CODE,SYSTEM.STARTUP*YQI'); &END; $IF SYSTEM='MAPPER' THEN &BEGIN (M_SCRIPT:=CONCAT('FRSYSTEM.MISCINFO*YTE.',TERMINAL); (M_SCRIPT:=CONCAT(M_SCRIPT,'.MISC,SYSTEM.MISCINFO*QI'); &END; $M_SCRIPT:=CONCAT('I="',M_SCRIPT,'"'); $FOR I:=1 TO LENGTH(M_SCRIPT) DO IF M_SCRIPT[I]='*' THEN (M_SCRIPT[I]:=CHR(13); $CHAIN(M_SCRIPT); "END;  END.  5TERMSCRI ~~0LBUSu\\F$0\TERMSCRIR-`-s`sp`-t p`tp`t p`tp`sp`s--`-s` sp`-Pt p`t p`Pt p`t p`sp`s-ctpt ptptptp)t ptptp=t ptptpQt ptptpct ptptprt ptptpt pt ptp0^-PM-Pupt p#-P րխWW#vWWW#vWWW vWvW vWWVVWV지*V ȅVVۆ rճWW vWvWvWWWvWvW-vWWWvW)vWWWvW7vW-vW8vWWWvW@vWRfWWWvW-dvWWWvWbvWWWvWpvW՟WWvW-fvWWWvWvWWWvWvW-vWvWWWvWvWDWWvW-fvWWWvWvWWWvWvWvWWVVWV지*V ȅVVۆr WHAT.SYS.TEXT WHAT.SYS.TEXT1 QUICK TERMINAL INSTALLATION MENU& S- SAGE or QVT1022' T- TELEVIDEO TV925# F- FREEDOM 100 M- MENUU! P- p-SYSTEM < Select the letter for the terminal you have::QVT1022CTV925A.11FD100BFtBUILD#FTMU.INSTAL.CODE,SYSTEM.STARTUP*YQI#FTBUS.START.CODE,SYSTEM.STARTUP*YQII=""MAPPERRBUSINESSS XW7SETUP*Y**K*FRSYSTEM.MISCINFO*YTT.MISCINFO,SYSTEM.MISCINFO**T.SPEC,TS.SPEC*Y"TBUS.START.CODE,SYSTEM.STARTUP*YQII ALTERNATEFRSYSTEM.MISCINFO*YTT.MISCINFO,SYSTEM.MISCINFO**"TBUS.START.CODE,SYSTEM.STARTUP*YQIIBUILDFRSYSTEM.MISCINFO*YTE...MISC,SYSTEM.MISCINFO**T.MISCINFO,STD.MISCINFO*YY"TMU.INSTAL.CODE,SYSTEM.STARTUP*YQIIMAPPERRFRSYSTEM.MISCINFO*YTE...MISC,SYSTEM.MISCINFO*QIII="". PSTRINGOPEXTRAIO PASCALIOFILEOPS COMMANDI $CURSOR $EQUAL O.!6 FT#4:USERLIB.TEXT,$  T#4:COMMANDIO.CODE,$  T#4:SCREENOPS.CODE,$  T#4:QVT102.MISCINFO,$  T#4:TV925.MISCINFO,$  T#4:FD100.MISCINFO,$  T#4:HDEMO.CODE,$  T#4:TELE.HAYES.CODE,$  T#4:SS.FORM,$  T#4:SS.CODE,$  T#4:TS.SPEC,$  T#4:FD100.SPEC,$  T#4:QVT102.SPEC,$  T#4:TV925.SPEC,$  T#4:WORD7.CODE,$  T#4:WORD7.PARMS,$  T#4:WORD7.PARMLIB,$  T#4:W7SETUP.CODE,$  T#4:BUS.HELP.TEXT,$  T#4:BUS.START.CODE,$  T#4:BUS.START.CODE,SYSTEM.STARTUP  T#4:TRM.SCRIPT.CODE,$  T#4:WHAT.SYS.TEXT,$  QI  `h xNAܮ (gA!`>B, B8sAifagR8gC gF 2B/NsB8VNr J8Vg`J8hfCF aC`2808cWfNB8hBA8g8fg(/Aag _R8g g8g8ff:og ?0<#N0Nuh/A԰Bh1x2 Hz!_a _NuH@@"h"(g aSfLNu g gB@8g8fg"/AЀag _R8g g0NsB8i gC:g0<#N`F! gCB8ifgJ8hgHAazLB8hF NuH"x85Bg ONXLNuB@8f8g28c@@2Nu!014aCNu"024NuWNuC@B8Wa>DfCNu0 @?n/ C"_Nu!XNu9J8Wf~a`xJx\gH08^CCJfrC !fF !fB !f> !f: !f6 !f2 !f. !f* !f& !f" !f !f !f !f !f !f Sx\L`J@f H@JgR`JgV`T Ar xXNSx\SfJx\fzLJ8GfNuB8GH瀀 xRf*:6f*PV@@ xJNAfAsLNup>N`/9Rx\AR01^g _NuH"H$i0) |$f A0Hz`>|%f A2Hz`.|&f A4Hz`|'f A6Hz`|?flA8Hz~!_CaB)f!R !Ria)f CLNuCF!(gB8VNr J8Vg`F `3|`p$`p%` p&`p'`p? J(f"Cк1gN(gH`"( NJNuF'Jx\f J8GfNr `F NuŇŃŅ1&1aPNuHptrP6QCzH@F'aF82<%Q@F'8[8[a޾FLDDC@1Ɩxg2nDCxo(RgSfx`"xoRgR`` QjPB82<%QL8Nu",,f,fp,4HA@bHAHA0,BAHA@H9@, , m @9B09@.`9B.Bl0,@44LNul$l%)l )l)l9l"B,5AtLAST then I:=0; &end; "UNTIL CMD=CR; "DONE:=TRUE; "Sc_clr_screen; "CASE I OF $0:S:='WORD7'; $2:S:='SS'; $4:S:='HDEMO'; $6:S:='TELE.HAYES'; $8:PSYSTEM; $end; "UNTIL DONE;  end;    PROCEDURE GET_TERMINAL(var TERM:char);  var TXIN:TEXT; $TERMINAL:string;  begin  RESET(TXIN,'WHAT.SYS.TEXT');  TERM:='O'; {OTHER}  readln(TXIN,TERMINAL);  readln(TXIN,SY7N*`&` `Copr. (c) 1981 Tallgrass Technologies, 1982 SofTech Microsystems[$$PART----]0:g pNO`x0:k&fl :԰f` :̰fT>*zOp02xHzTЊf4`H?Np?Np?Np?Np?Np?Np?Np?Np@>;NpPPPPPPPPPPPPPPPPpppppppp(08~ZH* * Z l tr ~": ( . $  ` ff   6 B  %%$$$$ %F > $$$$J J R > h n  0 @ Zh0 N T $$ * Z*< X \ 4%P%d%pp`,p`(p`$p` Np`p `p `p ` p `p`|~B?L&'pa p` v=|`=|=k&A*L&SNaNN<6x vhgNuO=G`'f/BHt4+&v(ЎQb Nu =@=k&O`>+&=x A=x L=x=&xx&xL&Nu>+&"_vxvx&7vx&<6x(F<6x Ah<6xOh/ >+&<6xCh7vx&<6x>6h<6h|g Jxg$vx`$NH&Nu*Jg :6XSfNuRn*>+&>6x=*xNu'M&NuN*k&B&NNuHzJ&f*_Nu'_&NuN'f@'f lKNNHG,k&~>+&Jvxg'aLHNu @bH>;Np H r?<Np?N?NpjHjH?N@>?0NpjHH?0N@ЈP@?NpjHHЈP@?N@1NpjHH1N@^?1NpjHH?1NpjHHЉP@?NpjHH3NH@a`pjHH@?6XNaBpjHH@?6XNa$pjHH@PE?NapjHH@=XNpHk&>6>6xpjHH@PGNua?6xNa?Na=xN>>xN@W>NpjHW>N0>=xN'L&zjMprta~j@MAX fJ* g 4 Z?S@f`? S@fL&N'L&prta<>@@Ax? S@fL&NpH>7Ax0U@fB_L&N'L&6h Gg*ra>6h<6h|g Jxg vx` N6hAxNuaJ_pjH>Cx2S@fL&NaJ_pb>CxT@H`a(fJ_>L&NacJ_>L&Nad`"NJg"J>/Cx NJg J>/AxtcSBk VfNu0>/S@r6xAdnN>AxJgAxez>CxR@SfL&N>Wr6x>N0>_xN0r_>46xjjj>N02t_>66xkCkAkvxN>AxgAx>CxpjH fJ* g 2Y2S@f`2S@fL&NpjH@WNpjH2g @gIWNrt4JW?HB?N H@.N?N:jA&` a >+&AxM?0PL&N8:aA&JEk>+&AxM1Pa NpjHN R@(@N(_N0WN0WNFWNFWWN0We >N0Wc>NJWkNDWNRWNSWN0WN0WN0>NJWg0/H>NJWg0/H2H@J@jA>N02WmVWnPN0Wf >N0Wf>N0Wl`0Wo`a(fJ_>L&NacJ_>L&Nad`"NJg"J>/Cx NJg J>/AxpjHS@ VNu'L&r> gBnOIACp3 UAf.I`$?rta&J_ OH"OJGg2SGfBYU@fL&N'L&p0 @d`Hrta2p0kLAb@RA6@C?NO>Na@J@g44XS@f`*a0J@g4XS@fJAgBXSAf`aJ@g 4FBXS@fL&N0/HAH2@k"_J_N'L&HpAr taLIC4`XB0 O.I2SBfBYTAf`aaXS@k 4XVf(SAkJXVf.I?<`aa2S@k4FBXVg.I?<`fajaS@k4FB_Vf`4(JC NuHIN0f`0gRN0_f`0_g`HXIN0gTN0J* gXNupjHjHA2aز@m4aв@nBIAaIL&N(6>*@O>2xO02xkFrt(a ?E?H O?LIx?k&?k&7C&H&/Nuprt(apapNxanL&|~N>+&@@>6x7G'<6xChra"'J'>6h<6h|g Jxg$vx`$NNu*'L&pa2N* `'L&H@`'L&paڎ`*'L&papaa0(HЊ'1@>+'7G&7vx&>6xRvxN'L&H@o`'L&p* @fr A(bI>; GgI'L&Nx`6Z&  0%jp>:'L&papaڎ`&'L&>/az:/ڎp0a L\H O'H&`'L&>(k&garaSvx>+'7G&7vx&pjH>(72(jDA>*AO>2xO>2xIx7A&>(@O AxH&Npa0?Na+&>6x vxfR&=k&`NHG~,k&|~|>bHBA':0|gaLINu|?f<+&6h>6h Gg6xf'a7G&r26x Ag 6f.`=h=x`N02|@dHA'1HJAV? OpNNXNL&Nz:NJvXoSvX`a=h>6Xal=X'aPNNz:NaNN vXg6JvXm0<6X=hX>+&a&7G&>+&6h6xc 'aNuRvXNu6h$r|g6(b246(`=h|g=Nu>Nu><<+&k&g><6h`|g=hxNu7vh&NuNNNNJnfN>N0>_Cx>_AxJ@oS@fL&N0>_@Cx>_@AxJ@o S@fL&N02>_AxJAoSAfL&NJ_>_Ax0246g6mSBJAf WRB`$VRB`RFBJAf WFB` VFBB>L&N> 6x"6x<>4xf xf>` k>6x|f>`>6x |f>=hN>Ax>Cx>)EpRG _g 0e 9c Ae ZbS@m`UG3GJ@o S@fAp|AH>;>Ex"$ffg\J`p*r*`pr3@3AL&N,6Jh:NlAND 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO ELSE END EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INTERFAC3LABEL MOD 'NOT &OF OR (PACKED +PROCEDURPROCESS 8PROGRAM !REPEAT RECORD -SET *SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR WHILE WITH **0<>|g Jxg vx` N>Cx`"0<>|g Jxg"vx`"N>AxJ@gS@fL&N0<N>>6xvx>6x|g Jxg vx` NJ@g 2Y0S@fL&N<>|g Jxg vx` N>p06x<6x>6x|g Jxg"vx`"NƱgc2S@f` H3 U@fL&N>p06x>6x<6x>6x|g Jxg vx` N>(g@OCx2!YJg2SgSg>!O`II@>>6x26x4!JBg>!pxSBf`L&N>>6x<6x?6hp06x<6x|g Jhg vh` N/06xH??6xBgN:>NPTX\~   $(,~ $(,~048<048<hlpt@DHL~N("L&NuN(&L&NupE'N(>='x>='xL&NB'B'B+'?<a0?<a(?.a Nu' _pr468$_:/?`X' _pr:/?`Dpr`>p4>Exrf,r`(pr`pr468>_Ex`J_BW`J_r`'L&:'AJk c.ne(Nxr ` r`r`r|=AL&BB'gNuN+'g(I'~0A|Np`+'g(I'~0rJg4S@gS@g`".+' 'G'.+' 'G'ACN`xN`rJDgl+'fTNJfZ.+' g ae zb f>.\fJg .+' G'G'`.Sf"g<f+'g SDf`SD f+'gz+'fNJf  f\fTp +'fNJf`:JDgSD.+' g* 'G'vC op +'fnNJftSCf`f f .+' 'G'`+'fBFCaFa, AKNux ,:".̂(ȃ⊄(΀ȁ∀NuJk,f F m F BJgk[SFn gBFNu</6x/6xN>/-x-xTNp0|4bPA$/0/0AH@/0/0a k&`?CAy7FnI1tM8O?PQhSubسoW0$nZwH0<]ԀW8a&%odyER0g%k%knqJRgq24zuOsVxg:)T{D߃+m *?@$@Y@@@È@jA.AcAׄAeB_ B7HvBmB0@BּC k&4````(````^````D`p`r``>````.`F`B`D`X``````pNNNupNNNuNIrNuNJrNup /A!I"_CR!I!I 0NNrNuDA Ab;NurNu p `p `p XE|cVEA0Bh1D!J1C Bh1BNN2(kNup `p `p `g:<`::<>+& 6xf*a$<+'f A"0p NNa` XE|cVEp A01B!JNN2(k8Nur NuNKrNuNLrNu BbNMrNuA0!|Hh!_@1C 1B/p NN `p A0NN2(kNuA0P!|Hh!_@1C 1B/p NN 2(kNuAV0P!|Hh!_1C 1Bp NN(2(kpNuA"0Pp NN2(kXNuA 0P1B!Jp NN2(k8NupNN`pNNA|pNNA*pNNrNu +''4ApNN5h5PBANuJPfh'Nu,o =_7_'LH'.k'=| B..B./&k'H&'N&'~N.k'A|p 00S@fA|7H&'e'd AC`A"H=Hd'I'|]?./+'?<?+'BgN:Jnfb k'J(g0<2Y0S@fA~"k'7i 'zJigO?|?|?|?|?|?| ?i0+'Q?@?n?|?|?|?| ?|"O?nd?k&E ?J?|?|E0CSEfh~>.~>6x=x=x x86xL$O=x?.Ho??6xBgN:Jnf\O'O& O?H?H?|?|?|~>.>6xx86xL$O=x?.Ho??6xBgN:JnfJ/ g>0/X?@~>/_?GOAx0X0J@g>(_1O27xY?xS@fBk'B&Bn=kV8=|6A'p@0S@fA`1||1|1|1|1|7H&7H&~>.dCx=xA=x k'k'| =GdA|7H&7n&7|& k&$OH&~|>*O>2xOIxKNAgNJ`pNN Error reading boot device BIOSPROG BIOSPROG IV.13 [a.1]8  BIOS<;P*@PP*@Pnz@4          zzzz2H2ILt @H2ILt @H2ILt @H2ILt @Copyright (c) 1983 Sage Computer Technology, All Rights ReservedHpQF'0<dABXQA&!A!A0!'%g0eC!dAC0CaIg>C.!hACCŇŃŅ'40Br@Q0:HA0<J8IfA0<"HBXQAg!AvC"0<2QAp0<2QA*Cp Qa>A!xA !tA f!JA `!NR!Ra`/ I4AvCEp)Y&)Y*)Z)Z)H)H"PHzfa J8Ig ElAI`|aFQ(_AlCXp"QA|C$p"Qa#6J8Ifa`a7AC"p QB8WA !X!1NA'N!LF Nup/8Hz,!JgŇ 8gp!NuPpNsH@@C)Pa8!)Ba,!) a"!)Pa!)Ba !LNu<fA Nu<fA Nu<fA#:Nu<fA0Nu<fANu< fA(JfANu<fA$JfANu<fA JfANu<fAJfANuANuNs? A8Aj A@0;N  A0NsL #(r? A8Aj A@0;6N2 A8g8ŁgP9g0Ns:DNXC088fF!gCJx8f0NsF HeHe$HHe@HeRHe 2He,He*x8`/ @n H0; N Ns>LX`:`x.d###$fpRBP*06`L 8&g @Nu xNuANuNuB8Nu!a#NuNuC@aDfCNuC@aJDfCNuA0 / ?/ / / / /Ap NN0(f /h$ONu _1@ONu/Aj!J!X!A\!NR!RA$! _Nur pQQF'8%%sB8 O NH`C@a| 1ADfCLNuHpC@a DfCLNu0ah0;N f fnv!2 r|0a20;N -2 ($Bh @n/ CHpH@"_ @n` @m @n@oHNuX`x0a0;Njrj r&-tjj .R#0a0;/ "hN"_Nu**!81**NXbl****1|Nu1|Nu0(a4 @ n/ "h0;N"_Nu1|Nud~~PX vv2V^fn0(a @ n/ "h0; N"_Nu 1 /0( f26`NS@fAp"Q` HAh d|RAzczRAhH@0H@!@"x<$ gk$I"Q$ gj $LNu !<"Ha:`H`"x< gg$I"Q gf$LNu"P!JftP9g``F"9HI 0<J,gB,A:Hz8!_Bh1l a(J,f J8Ig ItFQF L`F":B> f0j( F NuJ,f 0l&(g, 0l(  Nu,NuJ,f 0l&(gF, 0l( Nu,NuHI`&HIX`HIՔ`HI`HI F"B,l p&a^B,Hzgl F LNu/ Il (_NuHIB@, , 28c< C40l&(<222LNu/ I݄B@, , 2(_NuHIT`HIԐ`HI`HIB@(g*, , 2C50l&(<222` , , 2LNu/ I`/ I*`/ Ih`/ IԦ`/ I""(_NuJ,gpH0l(J,f>2,f2<IB@`Jl2,fr>A|&  LNu13 "()āć*+AG,-./0Ns9H瀈(x xNL`rH`4H`rAqBaf(B8qgpfg pgpsLNuH`rAjBaZJ8sfNB8jg>p g6p8k e,p e&p ep ep ep ep` 8lgpsLNu4B, B8sAifagR8gC gF 2B/NsB8VNr J8Vg`J8hfCF aC`2808cWfNB8hBA8g8fg(/Aag _R8g g8g8ff:og ?0<#N0Nuh/A԰Bh1x2 Hz!_a _NuH@@"h"(g aSfLNu g gB@8g8fg"/AЀag _R8g g0NsB8i gC:g0<#N`F! gCB8ifgJ8hgHAazLB8hF NuH"x85Bg ONXLNuB@8f8g28c@@2Nu!014aCNu"024NuWNuC@B8Wa>DfCNu0 @?n/ C"_Nu!XNu9J8Wf~a`xJx\gH08^CCJfrC !fF !fB !f> !f: !f6 !f2 !f. !f* !f& !f" !f !f !f !f !f !f Sx\L`J@f H@JgR`JgV`T Ar xXNSx\SfJx\fzLJ8GfNuB8GH瀀 xRf*PV:2f&@@ xJNAfAsLNup>N`/9Rx\AR01^g _NuH"H$i0) |$f A0Hz`>|%f A2Hz`.|&f A4Hz`|'f A6Hz`|?flA8Hz~!_CaB)f!R !Ria)f CLNuCF!(gB8VNr J8Vg`F `3|`p$`p%` p&`p'`p? J(f"Cк1gN(gH`"( NJNuF'Jx\f J8GfNr `F NuŇŃŅ1&1aPNuHptrPQCzH@F'aF82<%Q@F'8[8[a޾FLDDC@1Ɩxg2nDCxo(RgSfx`"xoRgR`` QjPB82<%QL8Nu",,f,fp,4HA@bHAHA0,BAHA@H9@, , m @9B09@.`9B.Bl0,@44LNul$l%)l )l)l9l"B,5At" for MENU. TRM.SCRIPTTPtSAGE IV Main Menu ALTERNATE. (reserved for WORD/7 )). WORD/7 Word Processingg ALTERNATE4 (reserved for TIMBERLINE SS)). TIMBERLINE Spreadsheett% Demonstration& Communicationss p-Systemm, PRESS "Y" to CONFIRM p-System SELECTION..- or "q" to quit and return to MAIN MENU.2 NOTE: To restart the MAIN MENU from the p-System,,& press "I" at the Command line. -----> ALTERNATE/Move cursor with arrow keys, Then press RETURN. (Or type "?" for HELP )WORD7SSSHDEMO TELE.HAYESS WHAT.SYS.TEXTQVT1022TV925FD100system.startup." Please wait, program loading......Kr  FILEOPS STRINGOP PASCALIOEXTRAIO GOTOXY COMMANDISCREENOP =QVT102 BUSINESS $CURSOR $EQUAL A $SYNTAX xO.' {*******************************************************************}  {* FILE: TRM.SCRIPT.TEXT *}  {* Copyright (c) 1983 SAGE COMPUTER *}  {* ALL RIGHTS RESERVED *}  {* *}  {* VERSION: 1.0 *}  {* HISTORY 20-DEC-83 Created -VJB *}  {*  *}  {* DESCRIPTION: Terminal script file builds scripts to *}  {* install one of the three supported terminals *}  {* TV925, Freedom 100 or QUME QVT102 (SAGE) *}  {* *}  {* The file WHAT.SYS.TEXT is read to define the *}  {* environment (BUILD disk or BUSINESS disk) that *}  {* TRM.SCRIPT is running under. *}  {* *}  {* When run on the BUSINESS DISK, TRM.SCRIPT.CODE *}  {* also installs the WORD7 and SS terminal files. *}  {* The BUSINESS MAIN MENU program is transferred *}  {* to SYSTEM.STARTUP removing any old copy. As a *}  {* copy of TRM.SCRIPT is SYSTEM.STARTUP on the *}  {*  diskette, it will run first. From then on,the *}  {* disk will boot to the MAIN MENU. *}  {* *}  {* When run on the BUILD (MU) DISK, TRM.SCRIPT *}  {* will create the proper STD.MISCINFO for the MU *}  {* installation program, MU.INSTAL.CODE, to use. *}  {* After TRM.SCRIPT runs, a copy of MU.INSTAL *} = {* becomes SYSTEM.STARTUP. Again, a copy of the *}  {* TRM.SCRIPT program is initially SYSTEM.STARTUP,*}  {* so it will run the first time the disk is *}  {* booted. From then on, the disk will boot to *}  {* the MU selection menu. *}  {* *}  {* *}  {*  When run on an OTHER disk (SERVICE), just the *}  {* proper Miscinfo is installed. No change is made*}  {* to the SYSTEM.STARTUP program. *}  {* *}  {* *}  {*******************************************************************}     PROGRAM TERM_SCRIPT;  {Starts BUSINESS DISK MENU}  USES %COMMANDIO {$U COMMANDIO.CODE};    VAR ASCII:CHAR; $W_SCRIPT,M_SCRIPT:STRING[255];  CALLMENU,ABORT:BOOLEAN;  TERMINAL,SYSTEM:STRING; $I:INTEGER;   PROCEDURE WRT_SYSTEM;  VAR TXOUT:TEXT;  BEGIN  REWRITE(TXOUT,'WHAT.SYS.TEXT');  WRITELN(TXOUT,TERMINAL);  WRITELN(TXOUT,SYSTEM);  CLOSE(TXOUT,LOCK);  END;   PROCEDURE RD_SYSTEM;  VAR TXOUT:TEXT;  BEGIN  RESET(TXOUT,'WHAT.SYS.TEXT');  READLN(TXOUT,TERMINAL);  READLN(TXOUT,SYSTEM);  CLOSE(TXOUT);  END;   BEGIN  WRITELN;  WRITELN(' QUICK TERMINAL INSTALLATION MENU');  WRITELN;  WRITELN;  WRITELN(' S- SAGE or QVT102');  WRITELN;  WRITELN(' T- TELEVIDEO TV925');  WRITELN;  WRITELN(' F- FREEDOM 100');  WRITELN;  WRITELN(' M- MENU');  WRITELN;  WRITELN(' P- p-SYSTEM ');  WRITELN;  WRITE (' Select the letter for the terminal you have:');  ABORT:=FALSE;  CALLMENU:=FALSE;  READ(ASCII);  WRITELN;  RD_SYSTEM; {Read current terminal and diskette setup}  W_SCRIPT:='';  M_SCRIPT:='';  CASE ASCII OF "'S','s':BEGIN ,TERMINAL:='QVT102'; ,W_SCRIPT:='C'; *END; "'T','t':BEGIN ,TERMINAL:='TV925'; ,W_SCRIPT:='A'; * WRITE(CHR(27),'.1'); {TURN CURSOR ON} *END; "'F','f':BEGIN ,TERMINAL:='FD100'; ,W_SCRIPT:='B'; *END; "'M','m':CALLMENU:=TRUE; "'P','p':ABORT:=TRUE; "END;  MSCRIPT:='';  IF CALLMENU THEN "BEGIN $IF SYSTEM='BUILD' THEN &BEGIN (M_SCRIPT:=CONCAT('FTMU.INSTAL.CODE,SYSTEM.STARTUP*YQI') &END ELSE BEGIN (M_SCRIPT:=CONCAT('FTBUS.START.CODE,SYSTEM.STARTUP*YQI'); &END; $M_SCRIPT:=CONCAT('I="',M_SCRIPT,'"'); $FOR I:=1 TO LENGTH(M_SCRIPT) DO IF M_SCRIPT[I]='*' THEN (M_SCRIPT[I]:=CHR(13); $IF SYSTEM<>'OTHER' THEN CHAIN(M_SCRIPT); "END ELSE IF NOT(ABORT) THEN $BEGIN $WRT_SYSTEM; $IF SYSTEM='BUSINESS' THEN &BEGIN (M_SCRIPT:=CONCAT('XW7SETUP*Y*',W_SCRIPT,'*K*'); (M_SCRIPT:=CONCAT(M_SCRIPT,'FRSYSTEM.MISCINFO*YT',TERMINAL); (M_SCRIPT:=CONCAT(M_SCRIPT,'.MISCINFO,SYSTEM.MISCINFO*'); (M_SCRIPT:=CONCAT(M_SCRIPT,'T',TERMINAL,'.SPEC,TS.SPEC*Y'); (M_SCRIPT:=CONCAT(M_SCRIPT,'TBUS.START.CODE,SYSTEM.STARTUP*YQI'); &END; $IF SYSTEM='ALTERNATE' THEN &BEGIN (M_SCRIPT:=CONCAT('FRSYSTEM.MISCINFO*YT',TERMINAL); (M_SCRIPT:=CONCAT(M_SCRIPT,'.MISCINFO,SYSTEM.MISCINFO*'); (M_SCRIPT:=CONCAT(M_SCRIPT,'TBUS.START.CODE,SYSTEM.STARTUP*YQI'); &END; $IF SYSTEM='BUILD' THEN &BEGIN (M_SCRIPT:=CONCAT('FRSYSTEM.MISCINFO*YTE.',TERMINAL); (M_SCRIPT:=CONCAT(M_SCRIPT,'.MISC,SYSTEM.MISCINFO*'); (M_SCRIPT:=CONCAT(M_SCRIPT,'T',TERMINAL,'.MISCINFO,STD.MISCINFO*Y'); (M_SCRIPT:=CONCAT(M_SCRIPT,'TMU.INSTAL.CODE,SYSTEM.STARTUP*YQI'); &END; $IF SYSTEM='OTHER' THEN &BEGIN (M_SCRIPT:=CONCAT('FRSYSTEM.MISCINFO*YT',TERMINAL); (M_SCRIPT:=CONCAT(M_SCRIPT,'.MISCINFO,SYSTEM.MISCINFO*QI'); &END; $M_SCRIPT:=CONCAT('I="',M_SCRIPT,'"'); $FOR I:=1 TO LENGTH(M_SCRIPT) DO IF M_SCRIPT[I]='*' THEN (M_SCRIPT[I]:=CHR(13); $CHAIN(M_SCRIPT); "END;  END.  >'Ělwk`r*y՞m(r*y w'xmm;r*Pm"r*vir*!.m%ԑ#wnj"&r*y"j ji!"?s!h O s!!țv!h O v!!!is!v!r=sețvfji!"!hs! țv!O !ir !w Dt^Ir*ye9cTds!țvOȐ h eovkmv!v 2Avv nvɘvh Y"!!x!Ā h!ĊYh!Ċt ~Mark DESTINATION of BLOCK Mark DESTINATION of document COPY INSERT mode OVERTYPE mode INSERT mode OVERTYPE modewordwrapp3lineposn,overtype,proces,findit,replace,format,posn@V==  Save changes? (y/n or return))wordwrapp3lineposn,overtype,proces,findit,replace,format,posnneT V*** HEAPOPS STRINGOPEXTRAHEAFILEOPS PASCALIO EXTRAIO WPPRINT WPEDSUBSWPSUBS SIOUNIT FILEINFODIRINFO WILD  PUTFILE  b"x "x!p!p !ĭ!x p !ć"x!p"xț["x>pr*"xPp#n$m$ r*y$##%T0 0k#"x#w u#xk-2&r#*P# r#*x#ڇ$h r#*yՖr *v P ((( r *Op "('="x"ȇ"x" "j(r * "x"(p'o"(j"x""jr *yh\"&33k#"x#w 4#xk *p *Ȅ *p$ 3EDITOPTSD)`-P`,v,x+,+Ċ ,x*,*Ė.s"iv"h! !i h! ,   3noi h&պv vv vv  !vj7 j  <vpJ L Nv dv rvvvn' v!v `vm v h'vvo%r Qoni!!i !iiրQ!!i !iiրË9Qh3i.!v vv v n!Qhdx vNkc u c ruc Ru cjc du$Ჟ$J$jxx7 v pp p W! l v= 3kc u c buՍ"j "OOjs$"$rsrq srec u c bu:"j "PPjv$"$rvrq vrf vDՁ$3k#3s#s#țv#v##kۛs!țv!Țr$;rrsrq srevrq vrfց"ց1 QՑv v3Edit Options MenuQUIT this MenuuEdit scroll amount = *FORMATTING: Paragraph indent amount = RELATIVEERight justification? = YESNO *MARGINS: Margin set 1 = Margin set 2 = Margin set 3 = Margin set 4 = Margin set 5 = *Position with cursor keys and press RETURNNNumber of lines for scrolling??=Indent paragraphs how many columns? ("r" >for relative amount) ,,NO YES+Left, Right margin columns? (DEL to delete) ,, ,,oc$ CmFILEOUT / iiU pwcĈpv Lh``&` -`vɘvY-vɂɘvu xu vxĭ ɂPv ɘvY x*%vv +v xv ր3xJv7 4x  v<  v !/xa  Document name ? (y/n) Document name?Y Document Exists, Reuse? (y/n))Saving Document| ERROR 2 Save to another disk by entering DISKNAME:DOCNAMEE-> FINDIT `A#h ji!"#! #!#! !i"&x %xi%%xĚhwj9m%u 9 9Iu I 9u I  %xn./P&9r*&po-PlP&r*&pl'$&'n&$n&OOP r*Op&+%Q&&ko/'%49'r*#'r*#'o#k/,B&r*& &%Pr*&%/ &n&O/$:%&ć#Ċ,2wr*y%ć&&xn/s?":%!ć&("w&x"o'"r*y'o#ć$&xv &ć& w&AW String founddString Not Foundd #REPLACE 6%%x&%`%x% Tk9j#"iP r*Opl$!Օ!'r*%xr*%x!P%x$pD!?r*%x"r*%x#P%x"pr*P$!$! p#Tr*%x#p: :v &x&& wr*yw&x%xwString replacedNo room for REPLACE WORDWRAPkr)x*ylr)x*vj"*x"*x' nk*xh" r)x*"pk"#hr$*vi!P neir$*!.nP r$*Opj"Ofj"#$&)xld(w (xpei(Ċ8#3r$*!r$*!#f!#pr$*!# (#5#P!*r)x* r$*!#pr)x* # p*!*x *!*x )$(Ė  FORMAT  .xkv .qr.x*ylx-.xććxhc`q.x#p or$* g v jej e R( rr$*y*v )P* *ee*i)! *! )ee)i)! *! j.xme,w ,x /ep'(n*&f3pr%*f"ve,w ,x /ep) j*&P r$*(r%**&p*& "jr%*** r$* g vdw or$* g v $#D.r.x*yćx/e@ ?LINEPOSNr&*vk#PpP r&*OpjP#"i'feem%!h !PZ #/r&*#r&* !pr&* !P ! p&r&*#r&* !pr&* p Pel!$l#e8r&*#r&*e!pr&*e!Pe! p,r&*#r&*e!pr&*e pfl!$~P"fAr&*#r&*f!!pfOr&*fOf p2r&*#r&*f!!pr&*f! pրur 'BLOCKLN ZLr *!pr *=pr *>Ȗr *p r *p  |^h h"! vkk h  w w  r *x  hv  wrJsP wo * Džw Jhvv avkv #1#&JhvNJ*v#(k #):dwq $&() r*vPeu)7dw) $w() lq 3)dw() q ))w((r(*x ) )(w((r(*y ) 勥v vv F v  v q (k&:q v ] +w* -wn'&, JvSav 2j c ɂfP,-d$ g:$ 4$ :"v qqq JvD r:~dv$hy,-d JvM$v q qJj:$(v qq Jh:(kր$4 :q#(վtBLOCK Size limitationMark LAST LINE of BLOCK 2@Mark LAST LINE of BLOCK 7 Use UP/DOWN commands to position display, HOME to exit9Enter ESC to EXIT Copy/Delete/Move/Save, RETURN otherwiseSAVEEBlock of lines saveddBlock of lines deletedd *WORD7BLK..Mark DESTINATION of BLOCK No disk space for BLOCK &G'[iM( POSN ~v ($'_%xf&%$w%eĊ@r*%xT%%x%%xP%xTr*%xp%xf%fĊ_%xe&%w%fĊ>r*%xT%%x%%x%xTr*%xp%xe%eċ$'v%xP%x r*%xphkr*%` vk9 %r*v%xO%Ok%h&%$w#Ԭr*%x ?%%x%x2%OĚj&%w"pr*PΊr*%x *%%x%x%OĚj&%w"p%%x%x r*%xp%%xċ'q&qkr*vik.!Pr*!.k#r*y&&x#Դ&x&&xwqqk&qkk=r*vi!Pr*!.k#r*x&&x#Զ&x&&xwqqր ' 'OVERTYPE$v vv C)`+P`*v*-,Fxxv v bȇxXv k##k,#"  v kv qv #ćą.ɐE/v4:ɘvld;dF!d:qqMɐ"Nvv q k:qqZvɐՐwv{9ɘvIvXIɘv9 :;v wld ddvv qqq?ɐՌh1i! !xh4!xi h3i! !xh4!xiv w    c qɐv v vqqq qɐcvȂ xt^v vqqq qzɐաvՏՃ9ɘv v Iv^TɘvvCv ld ddvIɘvwqq#ɐ|xv $ zx-ld' dz d,&d:xxc4x :v qqq q6b#Țr*x#bpw0ɐ[1vJ@ɛɘvțɘvv xvqq 4x :qqxq srxq~xq vrxqexexfr*xr*xȇxxv r*xpw ZĊց; 1zv ՠqxxxw|xwpx4xv |!xxw|vxxw3r*xwxr*xwցt0Յ twfćxKxwBxxw3r*xwxr*xwց{xxv r*xȇxOx bpxfw h_JCOMMANDS: Copy, Exit, Find, Lines, Options, Print, Repl, Save, View, or = CCOPY which document??Mark DESTINATION of document COPYE9Enter ESC to EXIT Copy/Delete/Move/Save, RETURN otherwiseBLOCK command exiteddFFind what string?Search option(s)? (Asis,Word)No FIND stringg Searching , please waitLLine  of  lines in documenttOPwordwrapp3lineposn,overtype,proces,findit,replace,format,posn*wordwrapp3lineposn,overtype,proces,findit,replace,format,posnRReplace OLD String? NEW string?Search option(s)? (Asis,Word) Searching , please waitSSAVEE Document  saveddVVIEW what document? ViqJ;u $PROCES W! xĊ x x Ċ x ěs x!v x! xĊޛs xq s xev xq v xf ````,w  w,x ,xvM! w>vr*yޭwv x4x :q  :qqq v cvnv & q&#xZ(nwxr*vPeq awOw@wxwq wq FO"r*r*Opr*O wvơƊq#r*P pwdwSwC@=jr*yogg ggvv wer*y v q x4x ::q"q w v q ":q[M?%x/:qq 99 ::*ogB gGgvv qTN O:'ogX g]gvv qqOw8v v w wq ,pr*vj"Pjr*xw x$"|! w|vr*yq &w v8w x%|@! w|vwq 5rq) Lqx<|! w$vv |vr*ywogdgh gkgvv 2wx4x :q -ev wr:q'&"q 3 z:fv vSIqɘvk#4#(! ր&ogg gg:4x :G(og g g'g:4x :րqqrqրՇx'og4 g:-g:q&c&(Gvv $ *WORD7BLK..rc = PAGINGG UP , please wait BEGINNINGEnter command on TAB LINEParagraph FORMATTEDNo FIND stringg Searching , please waitNo REPLACE string Searching , please waitPAGINGG DOWN , please waitEND OF DOCUMENTCan't mark TAB LINE# Block COPY, DELETE, MOVE, or SAVE? COPYYDELETEEMOVEESAVEECS$BLOCK complete Document  copieduciTpR}2r|MMMhvHR, Suggest Saving Document Quitting EDIT{G tSYSINFO dTa! P/ P= PK &PWzhe @Ps <P)`*P`` <@<`+ DD r**::ZS<5.(! a ***  zFILEINFOmd( Hpi= iiS  iiq!  P P! P P ii ii! r`UJ;,! j ***  WILD hDF5+b,Pb bb지=..-k`r$x$xi!#!{!"!y i!#!" $x$ Ė*a,Ph +x'a+x지 h ++xĊ .-*a.Ph--xć,a-ć,x8a-x지%%h-x'--xć+a-xĊ,Ċ +a-xć,x+x ,ć--xĖ/xćQćxQx짃ڇ$Qx지~Qx지%xċQx질ڇċQxjxćQćxHQx짃 Ċ1Qx지- Qa"i"!ćQćxP! ccc"!ccc"!Qx지}xxx<cĊ-xćx'zQx질 xx%%x%x'$&Ċ>r!x$xh%x #! h &"#x"xr!Ĉr#x"xϖ3)jk'zQ+질(*+*&l$"աQ+h$(*i %#k+ $ !#!ڡj+ * Z jLz(*+ =+ * +'zQ+질(*+ b!( )b( րk"#*&+')Ċ*&+'"j")xz(x(xo'&'{'''yĖ yQ~P(|P`[c%r{Q"Q'(&!{z{x*{x|#{xć##|$#{xć{#ć$#!{Ą%r!s @0 0h={ 0hYQ8 e *** HEAPOPS  @SIOUNIT 3k"x! !"xk""xĖ+b,P0i/x.Q./xhb b 0//xĊi*b!b bpb 0//xĊiii!Ԡ/ o$ijh&%-j &%+&x%(%&xk#h&&x$$x #0Ċii! o"$$xĖ %$h'x&[&'xj"G ''x" 0i"A ia i$xk%%xc ɢ$$x"!Ċhh Ԙmh$x#!#$xi! m$$x!"hh Җ$#"mpmh$x##$xi! $$x!"hh Ԗ?#,#jh "!# i!a!z # !aA hږ{P p`P` {`r`{`{``지.**Pr*{r*P지. r46s` s5nf5Prf`ZrfP6 P !ȖK&&2'k&li!$&c!h 0 jA j"%!iՖz||Q)`|`| p{**{Pr*`r*P|t~~~"dx T ***  LONGOPS STRINGOP m3otvzn|~(( uINITPRT WPEDIT PUTFILE EDITOPTSFILEOUT FINDIT REPLACE WORDWRAPFORMAT LINEPOSNBLOCKLN POSN OVERTYPEPROCES DIRINFO SYSINFO  WPPRINT cKWPEDIT WPEDIT WPEDIT WPEDIT WPEDIT WPEDIT WPEDIT WPEDIT WPEDIT WPEDIT WPEDIT WPEDIT # {FILEINFOWILD SIOUNIT $  \DEXTPBP8[>&]6LEFT CENTER RIGHT SPLIT FIND REPL BLOCK FORMAT DOWN UP DOWN  JE@;6\BJE@;6    it09.4  .856213n.0.94.2.1.37p.2.0TYG0G8G4G:fgER     # PRINTER:x #    A   WQTI H c  Ig D E REA @ B  i h C a ` b F .2.0TYG0G8G4G:fgER   WQTI H c  Ig D E REA @ B  i h C a ` b F .0.1TYG0  G8 G4 G:fgER    A @    j I856D C B 213G n094clr7ptyG0G8G4G:fgER  DABty(  )  ER,newdir := false; *END; p 'nocursor; 'IF length(msg_text)>0 *THEN msg (a,revers,msg_text); '{ GET USER INPUT } 'screenxy (5,row); 'cmdnum := getcmd(opt); 'screenxy (5,row); '{ GET NAME OF CURRENT FILE } 'ptr := d^.dindx[current]; 'fname := copy(ptr^.d_title,1,length(ptr^.d_title)-length(prof.suffix)); p 'IF length(msg_text)>0 THEN *BEGIN ,{ CLEAR MESSAGE AREAS } ,nocursor; ,msg (a,norml,''); ,msg (mode,norml,''); ,screenxy (5,row); ,msg_text := ''; ,write_scr (term.cursor); *END;  ORd09 OS  .856OQOP213n.0.94.2.1.37p     TpB"$&ʀ:!&:Xh XD țG O  hQb+i+t p+0p+-Nhp+pb P#[ʛ$]ʀP ,ț ț  肀J&: &:#ʛ0,ț0QȁM<K>TpWXZ[]Y!\^_; ;TpC CTp,newdir := false; *END; p 'nocursor; 'IF length(msg_text)>0 *THEN msg (a,revers,msg_text); '{ GET USER INPUT } 'screenxy (5,row); 'cmdnum := getcmd(opt); 'screenxy (5,row); '{ GET NAME OF CURRENT FILE } 'ptr := d^.dindx[current]; 'fname := copy(ptr^.d_title,1,length(ptr^.d_title)-length(prof.suffix)); p 'IF length(msg_text)>0 THEN *BEGIN ,{ CLEAR MESSAGE AREAS } ,nocursor; ,msg (a,norml,''); ,msg (mode,norml,''); ,screenxy (5,row); ,msg_text := ''; ,write_scr (term.cursor); *END; A     # PRINTER: PRINTER: 10 Aug x H###D2&dD32BDDDD#DDDUfeVc6feFdveEfVFDDCDB$Dr4DdCDDVF        unitread acksp[2]); or (opt_1[1]=PRINTER:sp[2]) 7THEN o '_'; 2ED2&dD32BDDDD#DDDUfeVc6feFdveEfVFDDCDB$Dr4DdCDDVF06CDTI86F##newdir :10Copy termic ###  E d_msg (row,'PRINTER:mswap ('copydoc END; p D2&dD32BDDDD#DDDUfeVc6feFdveEfVFDDCDB$Dr4DdCDDVFJLKM @B2H--EFB0B2C# )THEN GHfalse) .TGD#  of(tempstr) <>PRINTER:EN exit (wp);  ln; 0wrD2&dD32BDDDD#DDDUfeVc6feFdveEfVFDDCDB$Dr4DdCDDVFSSTT2GHC# )THEN  false) .TG # of(tempstr) <>PRINTER:EN exit (wp);  ln; 0wrD2&dD32BDDDD#DDDUfeVc6feFdveEfVFDDCDB$Dr4DdCDDVFP2__EFMPC )THEN GHfalse) .TGD# D of(tempstr) <>PRINTER:EN exit (wp);  ln; 0wrD2&dD32BDDDD#DDDUfeVc6feFdveEfVFDDCDB$Dr4DdCDDVFS0S1TTNA$XY!"EN PRINTER:(###.  PRINTER: 10 Aug #D2&dD32BDDDD#DDDUfeVc6feFdveEfVFDDCDB$Dr4DdCDDVFunitread.acksp[2]); or (opt_1[1]=PRINTER:sp[2]) 7THEN o '_'; 2ED2&dD32BDDDD#DDDUfeVc6feFdveEfVFDDCDB$Dr4DdCDDVFBction kw_search(inline:pack80; indx1,indx2:integer):integer; FORWARD; #procedure wrtline (VAR prt_line:pack80); FORWARD; #procedure to_print (VAR prt_line:pack80; formflg:boolean); FORWARD; #procedure new_page (VAR endit: boolean); FD2&dD32BDDDD#DDDUfeVc6feFdveEfVFDDCDB$Dr4DdCDDVFinit_prt(VAR rc:integer); p &VAR )i : integer; p &BEGIN )c_under := null; )c_bold := null; )c_pitch := null;   IJK3QRM  F###procedupack80; fsC## RWARD; #procePRINTER:page (VAR enditx H###D2&dD32BDDDD#DDDUfeVc6feFdveEfVFDDCDB$Dr4DdCDDVFVP@CV@@CV@@CVP@W    F## PRINTER: PRINTER: 10 Aug x H###D2&dD32BDDDD#DDDUfeVc6feFdveEfVFDDCDB$Dr4DdCDDVF        $CURSOR $EQUAL J.L2***** HELP for the BUSINESS MENU *****   To select an option, type the UP arrow or DOWN arrow key to move the cursor  in front of the line that describes what you want to do. Then type the  RETURN key. Your selection will load.   If you are having trouble, your system may be setup for the wrong terminal.  Typical problems are: the DOWN arrow does not move the cursor down, extra  characters are shown on the screen, or the cursor is in the wrong place.   If you have a SAGE (Qume QVT102), Televideo TV925 or a Freedom 100  terminal, it is easy to install the needed information. Type "T" after  reading this. The QUICK TERMINAL MENU will display. Select the terminal.  Various commands will flash by, then the SAGELOGO will appear.   For other terminals (and printers), refer to the Installation sections of  the GETTING STARTED MANUAL. Also, refer to the WORD7 notes on the W7SETUP  program to install different printers and terminals for WORD7. The standard  printer installed is the MICROLINE (OKIDATA). B$CURSOR $EQUAL $SYNTAX A B   ]\{>O.L. {*******************************************************************}  {* FILE: BUS.LOGO.TEXT *}  {* VERSION: 1.0 *}  {* DESCRIPTION: This is an include file used with the business *}  {* disk to display the SAGE logo (banner) on the *}  {* Qume QVT102, Televideo TV925, and Freedom 100 *}  {* terminals. *}  {*  *}  {* *}  {* HISTORY 20-DEC-83 Created -VJB *}  {* *}  {* *}  {* Copyright (c) 1983 SAGE COMPUTER *}  {* ALL RIGHTS RESERVED *}  {* *}  {*******************************************************************}   SEGMENT PROCEDURE LOGO;   const #B1 = ' '; #B2 = ' '; #B3 = ' '; #B4 = ' '; #B5 = ' '; #B6 = ' '; #B7 = ' '; #B8 = ' '; #B9 = ' '; #B10 = ' '; #B11 = ' '; #B12 = ' '; #B18 = ' '; #B19 = ' '; #B20 = ' '; #B41 = '  '; #B42 = ' '; #G = 'G'; #Z = '0'; #F = '4'; #E = '8'; #  var #CLEARSC, ES : char; #I : integer; #  PROCEDURE QUME_LOGO;  begin #gotoxy(0,3); #write(ES,G,E,B20,ES,G,Z); writeln; #write(ES,G,E,B18,ES,G,Z,B2,ES,G,F,B9,ES,G,Z,B4,ES,G,F,B9,ES,G,Z,B4,ES); #write(G,F,B9,ES,G,Z,B4,ES,G,F,B9,ES,G,Z); writeln; #write(ES,G,E,B18,ES,G,Z,ES,G,F,B11,ES,G,Z,B2,ES,G,F,B11,ES,G,Z,B2,ES,G); #write(F,B11,ES,G,Z,B2,ES,G,F,B11,ES,G,Z); writeln; #write(ES,G,E,B18,ES,G,Z,ES,G,F,B3,ES,G,Z,B10,ES,G,F,B3,ES,G,Z,B3,ES,G,F); #write(B3,ES,G,Z,B2,ES,G,F,B3,ES,G,Z,B10,ES,G,F,B3,ES,G,Z); writeln; #write(ES,G,E,B18,ES,G,Z,ES,G,F,B11,ES,G,Z,B2,ES,G,F,B11,ES,G,Z,B2,ES,G,F); #write(B3,ES,G,Z,B1,ES,G,F,B5,ES,G,Z,B2,ES,G,F,B11,ES,G,Z); writeln; #write(ES,G,Z,B18,ES,G,Z,ES,G,F,B11,ES,G,Z,B2,ES,G,F,B11,ES,G,Z,B2,ES,G,F); #write(B3,ES,G,Z,B1,ES,G,F,B5,ES,G,Z,B2,ES,G,F,B11,ES,G,Z); writeln; #write(ES,GC,E,B18,ES,G,Z,B8,ES,G,F,B3,ES,G,Z,B2,ES,G,F,B3,ES,G,Z,B3,ES,G); #write(F,B3,ES,G,Z,B2,ES,G,F,B3,ES,G,Z,B3,ES,G,F,B3); #write(ES,G,Z,B2,ES,G,F,B3,ES,G,Z); writeln; #write(ES,G,Z,B18,B1,ES,G,F,B11,ES,G,Z,B2,ES,G,F,B3,ES,G,Z,B3,ES); #write(G,F,B3,ES,G,Z,B2,ES,G,F,B11,ES,G,Z,B2,ES,G,F,B11,ES,G,Z); writeln; # #write(ES,G,E,B18,ES,G,Z,ES,G,F,B9,ES,G,Z,B4,ES,G,F,B3,ES,G,Z,B3,ES,G,F); #write(B3,ES,G,Z,B2,ES,G,F,B9,ES,G,Z,B4,ES,G,F,B9,ES,G,Z); writeln; #write(ES,G,Z,B42,ES,G,F,B1,ES,G,Z); writeln; #write(ES,G,E,B41,ES,G,Z,ES,G,F,ES,G,Z,B5,'C O M P U T E R'); #  end; #   PROCEDURE TV925_LOGO ; #  begin #for I := 0 to 15 do %begin 'gotoxy(0,I); 'write(ES,G,Z); %end; # #gotoxy(0,3); #write(ES,G,E,B20,ES,G,Z); writeln; #write(ES,G,E,B18,ES,G,Z,B1,ES,G,F,B10,ES,G,Z,B3,ES,G,F,B10,ES,G,Z,B3,ES); #write(G,F,B10,ES,G,Z,B3,ES,G,F,B10,ES,G,Z); writeln; # #write(ES,G,E,B18,ES,G,F,B12,ES,G,Z,B1,ES,G,F,B12,ES,G,Z,B1,ES,G,F,B12); #write(ES,G,Z,B1,ES,G,F,B12,ES,G,Z); writeln; #write(ES,G,E,B18,ES,G,F,B4,ES,G,Z,B9,ES,G,F,B4,ES,G,Z,B2,ES,G,F,B4,ES); #write(G,Z,B1,ES,G,F,B4,ES,G,Z,B9,ES,G,F,B4,ES,G,Z); writeln; #write(ES,G,E,B18,ES,G,F,B12,ES,G,Z,B1,ES,G,F,B12,ES,G,Z,B1,ES,G,F,B4,ES); #write(G,Z,ES,G,F,B6,ES,G,Z,B1,ES,G,F,B12,ES,G,Z); writeln; #write(ES,G,Z,B18,ES,G,F,B12,ES,G,Z,B1,ES,G,F,B12,ES,G,Z,B1,ES,G,F,B4,ES); #write(G,Z,ES,G,F,B6,ES,G,Z,B1,ES,G,F,B12,ES,G,Z); writeln; #write(ES,G,E,B18,ES,G,Z,B7,ES,G,F,B4,ES,G,Z,B1,ES,G,F,B4,ES,G,Z,B2,ES,G); #write(F,B4,ES,G,Z,B1,ES,G,F,B4,ES,G,Z,B2,ES,G,F,B4); #write(ES,G,Z,B1,ES,G,F,B4,ES,G,Z); writeln; #write(ES,G,Z,B18,ES,G,F,B12,ES,G,Z,B1,ES,G,F,B4,ES,G,Z,B2,ES,G,F,B4,ES); #write(G,Z,B1,ES,G,F,B12,ES,G,Z,B1,ES,G,F,B12,ES,G,Z); writeln; #write(ES,G,E,B18,ES,G,F,B10,ES,G,Z,B3,ES,G,F,B4,ES,G,Z,B2,ES,G,F,B4,ES,G); #write(Z,B1,ES,G,F,B10,ES,G,Z,B3,ES,G,F,B10,ES,G,Z); writeln; #write(ES,G,Z,B41,ES,G,F,B2,ES,G,Z); writeln; #write(ES,G,E,B41,ES,G,F,B1,ES,G,Z,B5,'C O M P U T E R'); #  end; #   PROCEDURE FD100_LOGO ;  begin #ES := chr(27); #CLEARSC := chr(26); # #write(CLEARSC); # #for I := 0 to 15 do %begin 'gotoxy(0,I); 'write(ES,G,Z); %end; # #gotoxy(0,3); #write(ES,G,E,B20,ES,G,Z,B1); writeln; #write(ES,G,E,B18,ES,G,Z,B3,ES,G,F,B10,ES,G,Z,B5,ES,G,F,B10,ES,G,Z,B5,ES); #write(G,F,B10,ES,G,Z,B5,ES,G,F,B10,ES,G,Z); writeln; # #write(ES,G,E,B18,ES,G,Z,B1,ES,G,F,B12,ES,G,Z,B3,ES,G,F,B12,ES,G,Z,B3,ES); #write(G,F,B12,ES,G,Z,B3,ES,G,F,B12,ES,G,Z); writeln; #write(ES,G,E,B18,ES,G,Z,B1,ES,G,F,B4,ES,G,Z,B11,ES,G,F,B4,ES,G,Z,B4,ES); #write(G,F,B4,ES,G,Z,B3,ES,G,F,B4,ES,G,Z,B11,ES,G,F,B4,ES,G,Z); writeln; #write(ES,G,E,B18,ES,G,Z,B1,ES,G,F,B12,ES,G,Z,B3,ES,G,F,B12,ES,G,Z,B3,ES); #write(G,F,B4,ES,G,Z,B2,ES,G,F,B6,ES,G,Z,B3,ES,G,F,B12,ES,G,Z); writeln; #write(ES,G,Z,B18,ES,G,Z,B1,ES,G,F,B12,ES,G,Z,B3,ES,G,F,B12,ES,G,Z,B3,ES); #write(G,F,B4,ES,G,Z,B2,ES,G,F,B6,ES,G,Z,B3,ES,G,F,B12,ES,G,Z); writeln; #write(ES,G,E,B18,ES,G,Z,B9,ES,G,F,B4,ES,G,Z,B3,ES,G,F,B4,ES,G,Z,B4,ES,G); #write(F,B4,ES,G,Z,B3,ES,G,F,B4,ES,G,Z,B4,ES,G,F,B4); #write(ES,G,Z,B3,ES,G,F,B4,ES,G,Z); writeln; #write(ES,G,Z,B19,ES,G,F,B12,ES,G,Z,B3,ES,G,F,B4,ES,G,Z,B4,ES,G,F,B4,ES); #write(G,Z,B3,ES,G,F,B12,ES,G,Z,B3,ES,G,F,B12,ES,G,Z); writeln; #write(ES,G,E,B18,ES,G,Z,B1,ES,G,F,B10,ES,G,Z,B5,ES,G,F,B4,ES,G,Z,B4,ES); #write(G,F,B4,ES,G,Z,B3,ES,G,F,B10,ES,G,Z,B5,ES,G,F,B10,ES,G,Z); writeln; #write(ES,G,Z,B42,ES,G,F,B2,ES,G,Z); writeln; #write(ES,G,E,B41,ES,G,Z,B1,ES,G,F,B1,ES,G,Z,B6,'C O M P U T E R'); #  end; #   PROCEDURE OTHER_LOGO;  begin "WRT(21,8 ,' **** SAGE ****');  end;    begin  ES := chr(27);  SC_CLR_SCREEN;   if (TERM='Q') then QUME_LOGO else #if (TERM='T') then TV925_LOGO else &if (TERM='F') then FD100_LOGO else OTHER_LOGO;  WRT(21,29,'Press any key for MENU');  read(ES);  end;   PROCEDURE ERRS(X,Y:integer;ER:string);  begin  gotoxy(X,Y);  if TERM='Q' then write(ESC,'G4',ER,ESC,'G0');C  if TERM='T' then write(ESC,'G4',ER,ESC,'G0');  if TERM='F' then write(ESC,'b ',ER,ESC,'d ');  end;   PROCEDURE LINE(X,Y,LNG:integer);  var S:string;  I:integer;  {Draw a line starting a Y,X Num chars long}  begin  gotoxy(X,Y);  if (TERM='Q') OR (TERM='F') then "begin $S:=''; $for I:=1 to LNG do S:=CONCAT(S,'k'); $write(ESC,'$'); {Graph} $write(S); $write(ESC,'%'); {Text mode} "end else  { This works, but screen flashes underlines }  { if (TERM='T') then "begin $S:=''; $for I:=1 to LNG do S:=CONCAT(S,' '); $write(ESC,'G8'); Underline mode $write(S); $write(ESC,'G0'); End underline "end else } "begin $S:=''; $for I:=1 to LNG do S:=CONCAT(S,'_'); $write(S); "end;  end; ! !PROCEDURE BOX(X,Y,WDTH,LNG:integer); !var C:integer; ! BLINE:string; !begin !if (TERM='Q') OR (TERM='F') then #begin %BLINE:='b'; %for C:=2 to (WDTH-1) do BLINE:=CONCAT(BLINE,'k'); %BLINE:=CONCAT(BLINE,'c'); %write(ESC,'G','0',ESC,'$'); %WRT(X,Y,BLINE); {Graph} %for C:=(Y+1) to (Y+LNG-1) do 'begin )WRT(X,C,'j'); )WRT(X+WDTH-1,C,'j'); 'end; %BLINE[1]:='a'; %BLINE[LENGTH(BLINE)]:='d'; %WRT(X,Y+LNG,BLINE); %write(ESC,'%'); {Text mode} ! end !else #begin {box for others} %LINE(X,Y,WDTH); %for C:=(Y+1) to (Y+LNG-1) do 'begin )WRT(X,C,'|'); )WRT(X+WDTH,C,'|'); 'end; %LINE(X,Y+LNG,WDTH); %WRT(X,Y+LNG,'|'); %WRT(X+WDTH,Y+LNG,'|'); #end; !end;   procedure BLANKSTATUS;  {Blank the status line}  var BLANK:STRING;  begin  BLANK:=' ';  BLANK[1]:=CHR(27); {escape }  if TERM='Q' then BLANK[2]:='{';  if TERM='T' then BLANK[2]:='h';  if TERM='F' then BLANK[2]:='n';  WRITE(BLANK);  end;   $CURSOR $EQUAL $SYNTAX A B C?O.!D {*******************************************************************}  {* FILE: BUS.START.TEXT *}  {* VERSION: 1.0 *}  {* DESCRIPTION: This is a simple menu program that interfaces *}  {* to the application programs on the BUSINESS *}  {* disk (WORD7.CODE, TELE.HAYES.CODE, DEMO.CODE, *}  {* and the Timberline spreadsheet SS.CODE.) *}  {* D *}  {* A copy of the code file is installed as the *}  {* SYSTEM.STARTUP program (by TSCRIPT) so that *}  {* the MAIN MENU is brought up when the disk is *}  {* booted. The GETTING STARTED MANUAL describes *}  {* how to use the program. *}  {* *}  {* The file WHAT_TERM.TEXT (built by TSCRIPT) *}  {* identifies what terminal codes to use for the *}  {* SAGE logo and cursor keys. *}  {* *}  {* HISTORY 20-DEC-83 Created -VJB *}  {* *}  {* *}  {* Copyright (c) 1983 SAGE COMPUTER *}  {* ALL RIGHTS RESERVED *}  {* *}  {*******************************************************************}  PROGRAM BUS_START;  {Starts BUSINESS DISK MENU}  USES SCREENOPS {$U SCREENOPS.CODE}, %COMMANDIO {$U COMMANDIO.CODE};  var SYSTEM,S:string; $ASCII,ESC,TERM: char;  QUME:boolean; $  {**********************************************************************}   PROCEDURE WRT(X,Y:integer;S:string);FORWARD;   {$I BUS.LOGO.TEXT}  {**********************************************************************}   PROCEDURE GET_HELP;  var TXIN:TEXT; $HELPLINE:string;  I:INTEGER;  begin  RESET(TXIN,'BUS.HELP.TEXT');  for i:=1 to 24 do writeln;  writeln;  WHILE NOT(EOF(TXIN)) DO "begin $readln(TXIN,HELPLINE); $writeln(HELPLINE);  end;  CLOSE(TXIN);  writeln;  write('Type "T" for TERMINAL program, "P" for P-system, "" for MENU.');  read(ASCII);  CASE ASCII OF #'T','t':Begin -writeln; -CHAIN('TRM.SCRIPT'); # EXIT(PROGRAM); +end; #'P','p':EXIT(PROGRAM); #end;  end;   PROCEDURE WRT;  begin  GOTOXY(X,Y);  write(S);  end;  {**********************************************************************}  PROCEDURE MENU;  const NOECHO=2; &CONSOLE=1;  var FIRST,LAST,BASE,I,AT:integer;  UP,DOWN,CMD,CR:char;  A:PACKED ARRAY[0..1] OF char;  DONE,GOMENU:boolean; " "{********************************************************************} "PROCEDURE SHOWMENU; "begin "SC_CLR_SCREEN; "WRT(24,3,'SAGE IV Main Menu'); "LINE(6,4,61); "writeln; "writeln; "writeln; "if SYSTEM='ALTERNATE' then )writeln(' (reserved for WORD/7 )') " else writeln(' WORD/7 Word Processing'); "writeln; "if SYSTEM='ALTERNATE' then )writeln(' (reserved for TIMBERLINE SS)') " else writeln(' TIMBERLINE Spreadsheet'); "writeln; "writeln(' Demonstration'); "writeln; "writeln(' Communications'); "writeln; "writeln(' p-System'); "writeln; "end; ! "PROCEDURE PSYSTEM; "begin "GOMENU:=FALSE; "REPEAT $SC_CLR_SCREEN; $BOX( 5,3,70,8); $WRT(17, 6,' PRESS "Y" to CONFIRM p-System SELECTION.'); $WRT(17, 8,' or "q" to quit and return to MAIN MENU.'); $WRT(17,18,' NOTE: To restart the MAIN MENU from the p-System,'); $WRT(17,19,' press "I" at the Command line. '); $WRT(17,10,' -----> '); $read(CMD); $if ((CMD='y') OR (CMD='Y')) then &begin (SC_CLR_SCREEN; (EXIT(PROGRAM); &end else $if ((CMD='q') OR (CMD='Q')) then GOMENU:=TRUE; "UNTIL GOMENU; "SC_CLR_SCREEN; "SHOWMENU; "DONE:=FALSE; "end;   begin  UP:=chr(11);  if QUME then DOWN:=chr(10) else DOWN:=chr(22);  if SYSTEM='ALTERNATE' then "BEGIN $FIRST:=4; $LAST:=8; "END ELSDE "BEGIN $FIRST:=0; $LAST:=8; "END;  I:=FIRST;  BASE:=7;  CR:=chr(13);  REPEAT "SC_CLR_SCREEN; "SHOWMENU; "REPEAT $AT:=BASE+I; $GOTOXY(22,AT); $UNITREAD(NOECHO,A[0],1,0,4); $CMD:=A[0]; $if NOT (CMD IN [UP,DOWN,CR]) then &begin (ERRS(1,22,'Move cursor with arrow keys, Then press RETURN.'); (ERRS(1,23,' (Or type "?" for HELP )'); (UNITREAD(NOECHO,A[0],1,0,4); (CMD:=A[0]; (IF (CMD='?') or (CMD='/') THEN *BEGIN ,GET_HELP; ,SC_CLR_SCREEN; ,SHOWMENU; ,GOTOXY(22,AT); & END; &end; $if CMD=UP then &begin (I:=I-2; (if ILAST then I:=FIRST; &end; "UNTIL CMD=CR; "DONE:=TRUE; "Sc_clr_screen; "CASE I OF $0:S:='WORD7'; $2:S:='SS'; $4:S:='HDEMO'; $6:S:='TELE.HAYES'; $8:PSYSTEM; $end; "UNTIL DONE;  end;    PROCEDURE GET_TERMINAL(var TERM:char);  var TXIN:TEXT; $TERMINAL:string;  begin  RESET(TXIN,'WHAT.SYS.TEXT');  TERM:='O'; {OTHER}  readln(TXIN,TERMINAL);  readln(TXIN,SYSTEM);  if TERMINAL ='QVT102' then TERM:='Q';  if TERMINAL ='TV925' then TERM:='T';  if TERMINAL ='FD100' then TERM:='F';  CLOSE(TXIN);  end;   {**********************************************************************}  begin  ESC:=chr(27);  EXCEPTION(TRUE); {STOP ANY PREVIOUS CHAINING}  GET_TERMINAL(TERM);  if ASCII='Q' then EXIT(PROGRAM);  if (TERM='Q') then QUME:=TRUE else QUME:=FALSE;  BLANKSTATUS;  LOGO;  MENU;  CHAIN(S);  CHAIN('system.startup.');  ERRS(10,2,' Please wait, program loading.....');  end.  BUSSTARTLOGO V( BUSSTART~~0LBUS\\F$0\LOGO uvpGvp8vpw pvpGvp0vpwpvpGvp8vp w pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vp!w pvpGvp0vp&w pvpGvp4vp)w pvpGvp0vp.w pvpGvp4vp1w pvpGvp0vpwpvpGvp8vp6w pvpGvp0vpvpGvp4vp@w pvpGvp0vpFw pvpGvp4vpHw pvpGvp0vpNw pvpGvp4vpPw pvpGvp0vpVw pvpGvp4vpXw pvpGvp0vpwpvpGvp8vp^w pvpGvp0vpEvpGvp4vphw pvpGvp0vpjw pvpGvp4vppw pvpGvp0vprw pvpGvp4vptw pvpGvp0vpvw pvpGvp4vpxw pvpGvp0vpzw pvpGvp4vpw pvpGvp0vpwpvpGvp8vpw pvpGvp0vpvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vp vpvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpwpvpGvp0vpw pvpGvp0vpvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vp vpvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpwpvpGvp8vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpwpvpGvp0vpw p vpvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vp w pvpGvp4vp w pvpGvp0vp w pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpwpvpGvp8vpw pvpGvp0vpvpGvp4vp'w pvpGvp0vp,w pvpGvp4vp/w pvpGvp0vp1w pvpGvp4vp3w pvpGvp0vp5w pvpGvp4vp7w pvpGvp0vp<w pvpGvp4vp?w pvpGvp0vpwpvpGvp0vpDw pvpGvp4vp vpvpGvp0vpwpvpGvp8vpZw pvpGvp0vpvpGvp4vpvpGvp0vpow prw p h +uvpGvp0vpuvpGvp8vp~w pvpGvp0vpwpvpGvp8vpw pvpGvp0vp vpvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpwpvpGvp8vpw pvpGvp4vpw pvpGvp0vp vpvpGvp4vpw pvpGvp0vp vpvpGvp4vpw pvpGvpE0vp vpvpGvp4vpw pvpGvp0vpwpvpGvp8vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vp vpvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpwpvpGvp8vpw pvpGvp4vpw pvpGvp0vp vpvpGvp4vp w pvpGvp0vp vpvpGvp4vpw pvpGvp0vpvpGvp4vpw pvpGvp0vp vpvpGvp4vpw pvpGvp0vpwpvpGvp0vp"w pvpGvp4vp,w pvpGvp0vp vpvpGvp4vp3w pvpGvp0vp vpvpGvp4vp:w pvpGvp0vpvpGvp4vp=w pvpGvp0vp vpvpGvp4vpAw pvpGvp0vpwpvpGvp8vpHw pvpGvp0vpRw pvpGvp4vpVw pvpGvp0vp vpvpGvp4vpYw pvpGvp0vp\w pvpGvp4vp^w pvpGvp0vp vpvpGvp4vpaw pvpGvp0vpdw pvpGvp4vpfw pvpGvp0vp vpvpGvp4vpiw pvpGvp0vpwpvpGvp0vplw pvpGvp4vpvw pvpGvp0vp vpvpGvp4vp}w pvpGvp0vpw pvpGvp4vpw pvpGvp0vp vpvpGvp4vpw pvpGvp0vp vpvpGvp4vpw pvpGvp0vpwpvpGvp8vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vp vpvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpwpvpGvp0vpw pvpGvp4vpw pvpGvp0vpwpvpGvp8vpw pvpGvp4vp vpvpGvp0vpw pw p1vph +uvpGvp0vpuvpGvp8vpw pvpGvp0vp vpwpvpGvp8vpw pvpGvp0vp w pvpGvp4vp w pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vp%w pvpGvp4vp(w pvpGvp0vpwpvpGvp8vp.w pvpGvp0vp vpvpGvp4vp8w pvpGvp0vp?w pvpGvp4vpAw pvpGvp0vpHw pvpGvpF4vpJw pvpGvp0vpQw pvpGvp4vpSw pvpGvp0vpwpvpGvp8vpZw pvpGvp0vp vpvpGvp4vpdw pvpGvp0vpgw pvpGvp4vpmw pvpGvp0vppw pvpGvp4vpsw pvpGvp0vpvw pvpGvp4vpxw pvpGvp0vp{w pvpGvp4vpw pvpGvp0vpwpvpGvp8vpw pvpGvp0vp vpvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpwpvpGvp0vpw pvpGvp0vp vpvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpwpvpGvp8vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vpw pvpGvp0vpw pvpGvp4vp w pvpGvp0vpwpvpGvp0vp w pvpGvp4vpw pvpGvp0vpw pvpGvp4vp w pvpGvp0vp#w pvpGvp4vp&w pvpGvp0vp)w pvpGvp4vp+w pvpGvp0vp2w pvpGvp4vp4w pvpGvp0vpwpvpGvp8vp;w pvpGvp0vp vpvpGvp4vpEw pvpGvp0vpKw pvpGvp4vpNw pvpGvp0vpQw pvpGvp4vpTw pvpGvp0vpWw pvpGvp4vpYw pvpGvp0vp_w pvpGvp4vpbw pvpGvp0vpwpvpGvp0vphw pvpGvp4vp~w pvpGvp0vpwpvpGvp8vpw pvpGvp0vp vpvpGvp4vp vpvpGvp0vpw pw p1q2hr SQST SFq`w p                                        F                 * )  C O M P U T E RR                                        )  )  C O M P U T E RR                                                          *  )  C O M P U T E RR **** SAGE *****Press any key for MENUUN^ BUSSTART)`*P-,uSQ8Tvpw p`w pTvpw pST8Tvpw p`w pTvpw pSF8Tvp w p`w pTvp w p-TWVuSQSFn`PU+**+%`,,`P ,Q ,P**ԚTvp$vp`w pTvp%vpD`PU+**+%`,,`P ,Q ,P**Ԛ`w pW TSQSFaPV+h +#a,,aP ,Q ,P ha++aP +Q +PTvpGvp0vpTvp$vpXWaWWU+h +X XV  haaaadȇXWUaTvp%vp`XWVWWU+h +X XV  hއXWUVXWUXVWUXN)`P`ȅSQ`{ȅST`hȅSF`nȚ`w p)X`- ` pXWWXwpWWwp`wp$`.Pw p`w p.w pwp` pwp#w pUw pUwpDsp pրJ` X')`*P-,u`w p-r q=wpwpwp*zw pwpw pwpwp*w pwpw pwpwpw pwpwpw pwpwpw pwpwp r F6Mg {w pyY r pqQ ԕr   V oo*lklk$ij mr "!h u p ˧n&('%; p ˧n&?&/ r  u&( !i!$#i&' !i!#$i&%t r !,P%PPP ց+5  V`- ` pWO`.Pw p`w p`*Pw p`w p.WQĄ.WTĄ.WF` p` WVTsS UQpSQVVtss G44G00G44G00b d k_bkcjj|||| BUS.HELP.TEXTAType "T" for TERMINAL program, "P" for P-system, "" for MENU. TRM.SCRIPTTPtGSAGE IV Main Menu ALTERNATE. (reserved for WORD/7 )). WORD/7 Word Processingg ALTERNATE4 (reserved for TIMBERLINE SS)). TIMBERLINE Spreadsheett% Demonstration& Communicationss p-Systemm, PRESS "Y" to CONFIRM p-System SELECTION..- or "q" to quit and return to MAIN MENU.2 NOTE: To restart the MAIN MENU from the p-System,,& press "I" at the Command line. -----> ALTERNATE/Move cursor with arrow keys, Then press RETURN. (Or type "?" for HELP )WORD7SSSHDEMO TELE.HAYESS WHAT.SYS.TEXTQVT1022TV925FD100system.startup." Please wait, program loading......Kr  FILEOPS STRINGOP PASCALIOEXTRAIO GOTOXY COMMANDISCREENOP BTERMSCRI ~~0LBUS\\F$0\ATERMSCRIR-`-s`sp`-t p`tp`t p`tp`sp`s--`-s` sp`-Pt p`t p`Pt p`t p`sp`s-tpt ptptptp)t ptptp=t ptptpQt ptptpct ptptprt ptptpt pt ptp0^-PM-Pupt p#-P րբWW#vWWW#vWWW vWvW vWWVVWV지*V ȅVVۆrkd WW vWvWvWWWvWvW-vWWWvW%vWWWvW3vW-vW4vWWWvW<vWNfWWSvW-dvWWWvW^vWWWvWlvW~՟WWvW-fvWWWvWvWWWvWvW-vWvWWWvWvWWWvWvWvWWVVWV지*V ȅVVۆr WHAT.SYS.TEXT WHAT.SYS.TEXT1 QUICK TERMINAL INSTALLATION MENU& S- SAGE or QVT1022' T- TELEVIDEO TV925# F- FREEDOM 100 M- MENUU! P-  p-SYSTEM < Select the letter for the terminal you have::QVT1022CTV925A.11FD100BFtBUILD#FTMU.INSTAL.CODE,SYSTEM.STARTUP*YQI#FTBUS.START.CODE,SYSTEM.STARTUP*YQII=""BUSINESSS XW7SETUP*Y**K*FRSYSTEM.MISCINFO*YTT.MISCINFO,SYSTEM.MISCINFO**T.SPEC,TS.SPEC*Y"TBUS.START.CODE,SYSTEM.STARTUP*YQII ALTERNATEFRSYSTEM.MISCINFO*YTT.MISCINFO,SYSTEM.MISCINFO**"TBUS.START.CODE,SYSTEM.STARTUP*YQIIBUILDFRSYSTEM.MISCINFO*YTE...MISC,SYSTEM.MISCINFO**T.MISCINFO,STD.MISCINFO*YY"TMU.INSTAL.CODE,SYSTEM.STARTUP*YQIII="". PSTRINGOPEXTRAIO PASCALIOFILEOPS COMMANDI GBTERMSCRI ~~0LBUS\\F$0\ATERMSCRIR-`-s`sp`-t p`tp`t p`tp`sp`s--`-s` sp`-Pt p`t p`Pt p`t p`sp`s-tpt ptptptp)t ptptp=t ptptpQt ptptpct ptptprt ptptpt pt ptp0^-PM-Pupt p#-P րբWW#vWWW#vWWW vWvW vWWVVWV지*V ȅVVۆrkd WW vWvWvWWWvWvW-vWWWvW%vWWWvW3vW-vW4vWWWvW<vWNfWWSvW-dvWWWvW^vWWWvWlvW~՟WWvW-fvWWWvWvWWWvWvW-vWvWWWvWvWWWvWvWvWWVVWV지*V ȅVVۆr WHAT.SYS.TEXT WHAT.SYS.TEXT1 QUICK TERMINAL INSTALLATION MENU& S- SAGE or QVT1022' T- TELEVIDEO TV925# F- FREEDOM 100 M- MENUU! P-  p-SYSTEM < Select the letter for the terminal you have::QVT1022CTV925A.11FD100BFtBUILD#FTMU.INSTAL.CODE,SYSTEM.STARTUP*YQI#FTBUS.START.CODE,SYSTEM.STARTUP*YQII=""BUSINESSS XW7SETUP*Y**K*FRSYSTEM.MISCINFO*YTT.MISCINFO,SYSTEM.MISCINFO**T.SPEC,TS.SPEC*Y"TBUS.START.CODE,SYSTEM.STARTUP*YQII ALTERNATEFRSYSTEM.MISCINFO*YTT.MISCINFO,SYSTEM.MISCINFO**"TBUS.START.CODE,SYSTEM.STARTUP*YQIIBUILDFRSYSTEM.MISCINFO*YTE...MISC,SYSTEM.MISCINFO**T.MISCINFO,STD.MISCINFO*YY"TMU.INSTAL.CODE,SYSTEM.STARTUP*YQIII="". PSTRINGOPEXTRAIO PASCALIOFILEOPS COMMANDI BIOSPROG BIOSPROG[1R.0]  BIOS<;P*@PP*@Pnz@4          zzzz2H2ILt @H2ILt @H2ILt @H2ILt @HCopyright (c) 1983 Sage Computer Technology, All Rights ReservedHpQF'0<dABXQA&!A!A0!'%g0eC!dAC0CaIg>C.!hACCŇŃŅ'40Br@Q0:HA0<J8IfA0<"HBXQAg!AvC"0<2QAp0<2QA*Cp Qa>A!xA !tA f!JA `!NR!Ra`/ I4AvCEp)Y&)Y*)Z)Z)H)H"PHzfa J8Ig ElAI`|aFQ(_AlCXp"QA|C$p"Qa#6J8Ifa`a7AC"p QB8WA !X!1NA'N!LF Nup/8Hz,!JgŇ 8gp!NuPpNsH@@C)Pa8!)Ba,!) a"!)Pa!)Ba !LNu<fA Nu<fA Nu<fA#:Nu<fA0Nu<fANu< fA(JfANu<fA$JfANu<fA JfANu<fAJfANuANuNs? A8Aj A@0;N  A0NsL #(r? A8Aj A@0;6N2 A8g8ŁgP9g0Ns:DNXC088fF!gCJx8f0NsF HeHe$HHe@HeRHe 2He,He*x8`/ @n H0; N Ns>LX`:`x.d###$fpRBP*06`L 8&g @Nu xNuANuNuB8Nu!a#NuNuC@aDfCNuC@aJDfCNuA0 / ?/ / / / /Ap NN0(f /h$ONu _1@ONu/Aj!J!X!A\!NR!RA$! _Nur pQQF'8%%sB8 O NH`C@a| 1ADfCLNuHpC@a DfCLNu0ah0;N f fnv!2 r|0a20;N -2 ($Bh @n/ CHpH@"_ @n` @m @n@oHNuX`x0a0;Njrj r&-tjj .R#0a0;/ "hN"_Nu**!81**NXbl****1|Nu1|Nu0(a4 @ n/ "h0;N"_Nu1|Nud~~PX vv2V^fn0(a @ n/ "h0; N"_Nu 1 /0( f26`NS@fAp"Q` HAh d|RAzczRAhH@0H@!@"x<$ gk$I"Q$ gj $LNu !<"Ha:`H`"x< gg$I"Q gf$LNu"P!JftP9g``F"9HI 0<J,gB,A:Hz8!_Bh1l a(J,f J8Ig ItFQF L`F":B> f0j( F NuJ,f 0l&(g, 0l(  Nu,NuJ,f 0l&(gF, 0l( Nu,NuHI`&HIX`HIՔ`HI`HI F"B,l p&a^B,Hzgl F LNu/ Il (_NuHIB@, , 28c< C40l&(<222LNu/ I݄B@, , 2(_NuHIT`HIԐ`HI`HIB@(g*, , 2C50l&(<222` , , 2LNu/ I`/ I*`/ Ih`/ IԦ`/ I""(_NuJ,gpH0l(J,f>2,f2<IB@`Jl2,fr>A|&  LNu13 "()āć*+AG,-./0Ns9H瀈(x xNL`rH`4H`rAqBaf(B8qgpfg pgpsLNuH`rAjBaZJ8sfNB8jg>p g6p8k e,p e&p ep ep ep ep` 8lgpsLNu4B, B8sAifagR8gC gF 2B/NsB8VNr J8Vg`J8hfCF aC`2808cWfNB8hBA8g8fg(/Aag _R8g g8g8ff:og ?0<#N0Nuh/A԰Bh1x2 Hz!_a _NuH@@"h"(g aSfLNu g gB@8g8fg"/AЀag _R8g g0NsB8i gC:g0<#N`F! gCB8ifgJ8hgHAazLB8hF NuH"x85Bg ONXLNuB@8f8g28c@@2Nu!014aCNu"024NuWNuC@B8Wa>DfCNu0 @?n/ C"_Nu!XNu9J8Wf~a`xJx\gH08^CCJfrC !fF !fB !f> !f: !f6 !f2 !f. !f* !f& !f" !f !f !f !f !f !f Sx\L`J@f H@JgR`JgV`T Ar xXNSx\SfJx\fzLJ8GfNuB8GH瀀 xRf*:6f*PV@@ xJNAfAsLNup>N`/9Rx\AR01^g _NuH"H$i0) |$f A0Hz`>|%f A2Hz`.|&f A4Hz`|'f A6Hz`|?flA8Hz~!_CaB)f!R !Ria)f CLNuCF!(gB8VNr J8Vg`F `3|`p$`p%` p&`p'`p? J(f"Cк1gN(gH`"( NJNuF'Jx\f J8GfNr `F NuŇŃŅ1&1aPNuHptrPQCzH@F'aF82<%Q@F'8[8[a޾FLDDC@1Ɩxg2nDCxo(RgSfx`"xoRgR`` QjPB82<%QL8Nu",,f,fp,4HA@bHAHA0,BAHA@H9@, , m @9B09@.`9B.Bl0,@44LNul$l%)l )l)l9l"B,5AtLAST then I:=0; &end; "UNTIL CMD=CR; "DONE:=TRUE; "Sc_clr_screen; "CASE I OF $0:S:='WORD7'; $2:S:='SS'; $4:S:='HDEMO'; $6:S:='TELE.HAYES'; $8:PSYSTEM; $end; "UNTIL DONE;  end;    PROCEDURE GET_TERMINAL(var TERM:char);  var TXIN:TEXT; $TERMINAL:string;  begin  RESET(TXIN,'WHAT.SYS.TEXT');  TERM:='O'; {OTHER}  readln(TXIN,TERMINAL);  readln(TXIN,SYN*`&` `Copr. (c) 1981 Tallgrass Technologies, 1982 SofTech Microsystems[$$PART----]0:g pNO`x0:k&fl :԰f` :̰fT>*zOp02xHzTЊf4`H?Np?Np?Np?Np?Np?Np?Np?Np@>;NpPPPPPPPPPPPPPPPPpppppppp(08~ZH* * Z l tr ~": ( . $  ` ff   6 B  %%$$$$ %F > $$$$J J R > h n  0 @ Zh0 N T $$ * Z*< X \ 4%P%d%pp`,p`(p`$p` Np`p `p `p ` p `p`|~B?L&'pa p` v=|`=|=k&A*L&SNaNN<6x vhgNuO=G`'f/BHt4+&v(ЎQb Nu =@=k&O`>+&=x A=x L=x=&xx&xL&JNu>+&"_vxvx&7vx&<6x(F<6x Ah<6xOh/ >+&<6xCh7vx&<6x>6h<6h|g Jxg$vx`$NH&Nu*Jg :6XSfNuRn*>+&>6x=*xNu'M&NuN*k&B&NNuHzJ&f*_Nu'_&NuN'f@'f lKNNHG,k&~>+&Jvxg'aLHNu @bH>;Np H r?<Np?N?NpjHjH?N@>?0NpjHH?0N@ЈP@?NpjHHЈP@?N@1NpjHH1N@^?1NpjHH?1NpjHHЉP@?NpjHH3NH@a`pjHH@?6XNaBpjHH@?6XNa$pjHH@PE?NapjHH@=XNpHk&>6>6xpjHH@PGNua?6xNa?Na=xN>>xN@W>NpjHW>N0>=xN'L&zjMprta~j@MAX fJ* g 4 Z?S@f`? S@fL&N'L&prta<>@@Ax? S@fL&NpH>7Ax0U@fB_L&N'L&6h Gg*ra>6h<6h|g Jxg vx` N6hAxNuaJ_pjH>Cx2S@fL&NaJ_pb>CxT@H`a(fJ_>L&NacJ_>L&Nad`"NJg"J>/Cx NJg J>/AxtcSBk VfNu0>/S@r6xAdnN>AxJgAxez>CxR@SfL&N>Wr6x>N0>_xN0r_>46xjjj>N02t_>66xkCkAkvxN>AxgAx>CxpjH fJ* g 2Y2S@f`2S@fL&NpjH@WNpjH2g @gIWNrt4JW?HB?N H@.N?N:jA&` a >+&AxM?0PL&N8:aA&JEk>+&AxM1Pa NpjHN R@(@N(_N0WN0WNFWNFWWN0We >N0Wc>NJWkNDWNRWNSWN0WN0WN0>NJWg0/H>NJWg0/H2H@J@jA>N02WmVWnPN0Wf >N0Wf>N0Wl`0Wo`a(fJ_>L&NacJ_>L&Nad`"NJg"J>/Cx NJg J>/AxpjHS@ VNu'L&r> gBnOIACp3 UAf.I`$?rta&J_ OH"OJGg2SGfBYU@fL&N'L&p0 @d`Hrta2p0kLAb@RA6@C?NO>Na@J@g44XS@f`*a0J@g4XS@fJAgBXSAf`aJ@g 4FBXS@fL&N0/HAH2@k"_J_N'L&HpAr taLIC4`XB0 O.I2SBfBYTAf`aaXS@k 4XVf(SAkJXVf.I?<`aa2S@k4FBXVg.I?<`fajaS@k4FB_Vf`4(JC NuHIN0f`0gRN0_f`0_g`HXIN0gTN0J* gXNupjHjHA2aز@m4aв@nBIAaIL&N(6>*@O>2xO02xkFrt(a ?E?H O?LIx?k&?k&7C&H&/Nuprt(apapNxanL&|~N>+&@@>6x7G'<6xChra"'J'>6h<6h|g Jxg$vx`$NNu*'L&pa2N* `'L&H@`'L&paڎ`*'L&papaa0(HЊ'1@>+'7G&7vx&>6xRvxN'L&H@o`'L&p* @fr A(bI>; GgI'L&Nx`6Z&  0%jp>:'L&papaڎ`&'L&>/az:/ڎp0a L\H O'H&`'L&>(k&garaSvx>+'7G&7vx&pjH>(2(jDA>*AO>2xO>2xIx7A&>(@O AxH&Npa0?Na+&>6x vxfR&=k&`NHG~,k&|~|>bHBA':0|gaLINu|?f<+&6h>6h Gg6xf'a7G&r26x Ag 6f.`=h=x`N02|@dHA'1HJAV? OpNNXNL&Nz:NJvXoSvX`a=h>6Xal=X'aPNNz:NaNN vXg6JvXm0<6X=hX>+&a&7G&>+&6h6xc 'aNuRvXNu6h$r|g6(b246(`=h|g=Nu>Nu><<+&k&g><6h`|g=hxNu7vh&NuNNNNJnfN>N0>_Cx>_AxJ@oS@fL&N0>_@Cx>_@AxJ@o S@fL&N02>_AxJAoSAfL&NJ_>_Ax0246g6mSBJAf WRB`$VRB`RFBJAf WFB` VFBB>L&N> 6x"6x<>4xf xf>` k>6x|f>`>6x |f>=hN>Ax>Cx>)EpRG _g 0e 9c Ae ZbS@m`UG3GJ@o S@fAp|AH>;>Ex"$ffg\J`p*r*`pr3@3AL&N,6JhJ:NlAND 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO ELSE END EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INTERFAC3LABEL MOD 'NOT &OF OR (PACKED +PROCEDURPROCESS 8PROGRAM !REPEAT RECORD -SET *SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR WHILE WITH **0<>|g Jxg vx` N>Cx`"0<>|g Jxg"vx`"N>AxJ@gS@fL&N0<N>>6xvx>6x|g Jxg vx` NJ@g 2Y0S@fL&N<>|g Jxg vx` N>p06x<6x>6x|g Jxg"vx`"NƱgc2S@f` H3 U@fL&N>p06x>6x<6x>6x|g Jxg vx` N>(g@OCx2!YJg2SgSg>!O`II@>>6x26x4!JBg>!pxSBf`L&N>>6x<6x?6hp06x<6x|g Jhg vh` N/06xH??6xBgN:>NPTX\~   $(,~ $(,~048<048<hlpt@DHL~N("L&NuN(&L&NupE'N(>='x>='xL&NB'B'B+'?<a0?<a(?.a Nu' _pr468$_:/?`X' _pr:/?`Dpr`>p4>Exrf,r`(pr`pr468>_Ex`J_BW`J_r`'L&:'AJk c.ne(Nxr ` r`r`r|=AL&BB'gNuN+'g(I'~0A|Np`+'g(I'~0rJg4S@gS@g`".+' 'G'.+' 'G'ACN`xN`rJDgl+'fTNJfZ.+' g ae zb f>.\fJg .+' G'G'`.Sf"g<f+'g SDf`SD f+'gz+'fNJf  f\fTp +'fNJf`:JDgSD.+' g* 'G'vC op +'fnNJftSCf`f f .+' 'G'`+'fBFCaFa, AKNux ,:".̂(ȃ⊄(΀ȁ∀NuJk,f F m F BJgk[SFn gBFNu</6x/6xN>/-x-xTNp0|4bPA$/0/0AH@/0/0a k&`?CAy7FnI1tM8O?PQhSubسoW0$nZwH0<]ԀW8a&%odyER0g%k%knqJRgq24zuOsVxg:)T{D߃+m *?@$@Y@@@È@jA.AcAׄAeB_ B7HvBmB0@BּC k&4````(````^````D`p`r``>````.`F`B`D`X``````pNNNupNNNuNIrNuNJrNup /A!I"_CR!I!I 0NNrNuDA Ab;NurNu p `p `p XE|cVEA0Bh1D!J1C Bh1BNN2(kNup `p `p `g:<`::<>+& 6xf*a$<+'f A"0p NNa` XE|cVEp A01B!JNN2(k8Nur NuNKrNuNLrNu BbNMrNuA0!|Hh!_@1C 1B/p NN `p A0NN2(kNuA0P!|Hh!_@1C 1B/p NN 2(kNuAV0P!|Hh!_1C 1Bp NN(2(kpNuA"0Pp NN2(kXNuA 0P1B!Jp NN2(k8NupNN`pNNA|pNNA*pNNrNu +''4ApNN5h5PBANuJPfh'Nu,o =_7_'LH'.k'=| B..B./&k'H&'N&'~N.k'A|p 00S@fA|7H&'e'd AC`A"H=Hd'I'|]?./+'?<?+'BgN:Jnfb k'J(g0<2Y0S@fA~"k'7i 'zJigO?|?|?|?|?|?| ?i0+'Q?@?n?|?|?|?| ?|"O?nd?k&E ?J?|?|E0CSEfh~>.~>6x=x=x x86xL$O=x?.Ho??6xBgN:Jnf\O'O& O?H?H?|?|?|~>.>6xx86xL$O=x?.Ho??6xBgN:JnfJ/ g>0/X?@~>/_?GOAx0X0J@g>(_1O27xY?xS@fBk'B&Bn=kV8=|6A'p@0S@fA`1||1|1|1|1|7H&7H&~>.dCx=xA=x k'k'| =GdA|7H&7n&7|& k&$OH&~|>*O>2xOIxKNAgNJ`pNN Error reading boot device BIOSPROG BIOSPROG IV.13 [a.1]  BIOS<;P*@PP*@Pnz@4          zzzz2H2ILt @H2ILt @H2ILt @H2ILt @Copyright (c) 1983 Sage Computer Technology, All Rights ReservedHpQF'0<dABXQA&!A!A0!'%g0eC!dAC0CaIg>C.!hACCŇŃŅ'40Br@Q0:HA0<J8IfA0<"HBXQAg!AvC"0<2QKAp0<2QA*Cp Qa>A!xA !tA f!JA `!NR!Ra`/ I4AvCEp)Y&)Y*)Z)Z)H)H"PHzfa J8Ig ElAI`|aFQ(_AlCXp"QA|C$p"Qa#6J8Ifa`a7AC"p QB8WA !X!1NA'N!LF Nup/8Hz,!JgŇ 8gp!NuPpNsH@@C)Pa8!)Ba,!) a"!)Pa!)Ba !LNu<fA Nu<fA Nu<fA#:Nu<fA0Nu<fANu< fA(JfANu<fA$JfANu<fA JfANu<fAJfANuANuNs? A8Aj A@0;N  A0NsL #(r? A8Aj A@0;6N2 A8g8ŁgP9g0Ns:DNXC088fF!gCJx8f0NsF HeHe$HHe@HeRHe 2He,He*x8`/ @n H0; N Ns>LX`:`x.d###$fpRBP*06`L 8&g @Nu xNuANuNuB8Nu!a#NuNuC@aDfCNuC@aJDfCNuA0 / ?/ / / / /Ap NN0(f /h$ONu _1@ONu/Aj!J!X!A\!NR!RA$! _Nur pQQF'8%%sB8 O NH`C@a| 1ADfCLNuHpC@a DfCLNu0ah0;N f fnv!2 r|0a20;N -2 ($Bh @n/ CHpH@"_ @n` @m @n@oHNuX`x0a0;Njrj r&-tjj .R#0a0;/ "hN"_Nu**!81**NXbl****1|Nu1|Nu0(a4 @ n/ "h0;N"_Nu1|Nud~~PX vv2V^fn0(a @ n/ "h0; N"_Nu 1 /0( f26`NS@fAp"Q` HAh d|RAzczRAhH@0H@!@"x<$ gk$I"Q$ gj $LNu !<"Ha:`H`"x< gg$I"Q gf$LNu"P!JftP9g``F"9HI 0<J,gB,A:Hz8!_Bh1l a(J,f J8Ig ItFQF L`F":B> f0j( F NuJ,f 0l&(g, 0l(  Nu,NuJ,f 0l&(gF, 0l( Nu,NuHI`&HIX`HIՔ`HI`HI F"B,l p&a^B,Hzgl F LNu/ Il (_NuHIB@, , 28c< C40l&(<222LNu/ I݄B@, , 2(_NuHIT`HIԐ`HI`HIB@(g*, , 2C50l&(<222` , , 2LNu/ I`/ I*`/ Ih`/ IԦ`/ I""(_NuJ,gpH0l(J,f>2,f2<IB@`Jl2,fr>A|&  LNu13 "()āć*+AG,-./0Ns9H瀈(x xNL`rH`4H`rAqBaf(B8qgpfg pgpsLNuH`rAjBaZJ8sfNB8jg>p g6p8k e,p e&p ep ep ep ep` 8lgpsLNu4B, B8sAifagR8gC gF 2B/NsB8VNr J8Vg`J8hfCF aC`2808cWfNB8hBA8g8fg(/Aag _R8g g8g8ff:og ?0<#N0Nuh/A԰Bh1x2 Hz!_a _NuH@@"h"(g aSfLNu g gB@8g8fg"/AЀag _R8g g0NsB8i gC:g0<#N`F! gCB8ifgJ8hgHAazLB8hF NuH"x85Bg ONXLNuB@8f8g28c@@2Nu!014aCNu"024NuWNuC@B8Wa>DfCNu0 @?n/ C"_Nu!XNu9J8Wf~a`xJx\gH08^CCJfrC !fF !fB !f> !f: !f6 !f2 !f. !f* !f& !f" !f !f !f !f !f !f Sx\L`J@f H@JgR`JgV`T Ar xXNSx\SfJx\fzLJ8GfNuB8GH瀀 xRf*PV:2f&@@ xJNAfAsLNup>N`/9Rx\AR01^g _NuH"H$i0) |$f A0Hz`>|%f A2Hz`.|&f A4Hz`|'f A6Hz`|?flA8Hz~!_CaB)f!R !Ria)f CLNuCF!(gB8VNr J8Vg`F `3|`p$`p%` p&`p'`p? J(f"Cк1gN(gH`"( NJNuF'Jx\f J8GfNr `F NuŇŃŅ1&1aPNuHptrPQCzH@F'aF82<%Q@F'8[8[a޾FLDDC@1Ɩxg2nDCxo(RgSfx`"xoRgR`` QjPB82<%QL8Nu",,f,fp,4HA@bHAHA0,BAHA@H9@, , m @9B09@.`9B.Bl0,@44LNul$l%)l )l)l9l"B,5At" for MENU. TRM.SCRIPTTPtSAGE IV Main Menu ALTERNATE. (reserved for WORD/7 )). WORD/7 Word Processingg ALTERNATE4 (reserved for TIMBERLINE SS)). TIMBERLINE Spreadsheett% Demonstration& Communicationss p-Systemm, PRESS "Y" to CONFIRM p-System SELECTION..- or "q" to quit and return to MAIN MENU.2 NOTE: To restart the MAIN MENU from the p-System,,& press "I" at the Command line. -----> ALTERNATE/Move cursor with arrow keys, Then press RETURN. (Or type "?" for HELP )WORD7SSSHDEMO TELE.HAYESS WHAT.SYS.TEXTQVT1022TV925FD100system.startup." Please wait, program loading......Kr  FILEOPS STRINGOP PASCALIOEXTRAIO GOTOXY COMMANDISCREENOP QVT102 BUSINESS