IMD 1.18: 20/01/2023 23:48:42 PRQ-SFT-IBD-5 3RCC PERQ PASCAL COMPILER BINARY DISTRIBUTION FLOPPY Copyright (C) Three Rivers Computer Corporation, 1981 single density, double sided D.5 Group name Command file PASCAL.BINARY BIN.CMD LINK.CMD   ;dw)i%vewi] wi:dwiwi##wif.wi;dzi;d[qijvwiji ivLDiX:BysVi  ka`m ((}]J^˼}kQ`af}]BYJ^˼}kQ`aP/'/'BJ^˼c}0kQ3kP} '}5}-``͝}}aʷ}a}5}a.x}a}cʷ-}cH-}a }a }cH}c'x`}2} `c}0k4(k<}cH>> Error # `?c``?c`c?? !4m'm')+ 3`H+ 3`Hm^J_JHJ>JAc,`A?̑]H] qr) qJ߭n'qͲqH qr) qJ߭I'qZqH qHJJd ]mJ* 4`]mH,3`]m24DX4H) ϊ Hr) qJ߭o*  qJ߭qqHܜ pJ߭: ` pJ߭` pJ pJ pJnn ): `n` pJn 9 H m(}cʷ}c4c}cc`c}c3(m(=}c3}c3J}cc3`c}c3}c9 9 )9  qr) qJqH pJߊ9 p]} Lp`a oJ} M oJp}1m*m,#}}ʷ3H}cc3`ccFile `}cc`c, Line `}c4Hc``ccError `}}}"m Lq`am M} pJq1rt)s}rJHrHsMȉ+)Ϭ}a; +cm``c} PASCAL.SYNTAX*````km*k+ c}cc}`crm +A``c,`AmAo߭'; +o}s; +o߭`c}}ap'.ve`x'x`c}}ap' } ?A-?``,`??﷜?m?巜?}PPc}c"(continue), Q(terminate)`c}:cP`P`c}:,c}:Q'}:q'Q3PASCAL.SYMBOL$dc3 PASCAL.TMPD$d3d\}3}d}}a}'i}}.PASJP}3}d}}a}( }}dP]}``c@`}}<ʷ}}<=c}}<;ɺ}<;'}<=' `\}<8}<8}<;`PASCALCO PASCAL.PASam (allows use of default file*SCAVENGER Run the d$C `}<8}<}dc}<c}<3c}<>uJL}<<}p (+`}3}3H}3}3 <`}8}<}<H}<}='}?}>6d'`}3A}:n!]}7J)INCLUDE r  !-p '!"}3}3H}3}3p"}3}3H}3}3p]m (73m'*m*'P}7J)RANGEP}7J)AUTOP}7J)6LISTP}7J)*DEBUGP}7J)VERSIONP}7J)COMMENTP}!3*'!3)(sϴ}ʷ}3}3}8}:}:}:H}3?:7J)MESSAGEP}7 J)QUIETP}7 J)NAMESP}7 J)IFCP}7 J)ELSECP}7 J)ENDCP~>,ru}ʷ}7<}3 'p ' }}5﷜c@`}﷊J#.( }3  }3l6ʷ!~/=﷜==~/﷉/(`~Pl)1lJ ('~~H~~1lJlHż~}ʷ}? }:,M};`}<`}8}<}<H}?}<}='}:q '!3c}7 ` al H'~I31cWARN-Change $I to $INCLUDE`cl , `5=.=BB"}3}3H}3}3qm 'q '(qm'"q*(!3q)(q*(Hm (!}ʷ}? YXl B BY BYX5l5~63 '!lBBYBYBY BY BYX,~63nm'n,'+n+B-BY=BYX!lR~/``c}>}:}3qa+qz)1mJq!I1mJq}8pqa*qz,6qA*qZ,*q_(#q0*q9,m*mH`~/~8ʷ~8=巜=.o=BBYXV BJ^˼~1cc~3ɺ ~1ɛɺa ` l3' ~8~1mJ omH}3}3H}3}3qpHpo,i}? `\R};`}<`}8}<}<H8~8S BJ^˼~1cc~3ɺ ~1ɛɺa `ͫl3' ~8~8=~/͇v=-8`}<}='}?}>m,}8pqa*qz,"qA*qZ,q_(q0*q9,͘}3}3H}3}3s=~8ʷ~8R `YX~8N~8.'~8BBYX ~8~8~8d } c}ɺ͌+'+}o+`c}}ap'.ve`x'x`c}}aqpHpo,i}? `\R};`}<`}8}<}<H}<}='}?}>0}p' } } c}ɺ}}}ɺȜ}ʷ}4}4Hr}}3c}3cut3A}:p!1JAJ߭1JHAJ߭Jnr)11nJ9nJ/nJ0\#nH/0]6d帜-, Ȝ}ʷ}3}3}8}:}:}:H}3?:>,q^}ʷ}}ʷ}? }>}:}366H66o}8noa*oz,ZoA*oZ,No_(Go0*o9,;o.(4o>(7>}3 'o ' }}5﷜c@`}﷊J }3̃}ʷ}? }:,M};`}-o:(&o$(}3A}:n!/0\$}3}3H}3}3onHnm,i}? `\R};`}  ~63!V(`~63 B BY BYX!~63m( H~63!~63 B BY3#'!mH}mJ}73!}730*}73o/H,}7309DX &`}7309D.BYEBYeBYX!m BYX!~P~63m( !~~H~~~63!cc~`cͅ5}6d5m*'$~6}73.'}78}7:.( l! mH}730+}739);mH'c}73c'c}mJ}73!3*(!!~63)'~63}(!!c}`\&n+'n-'n+'rr78l8.mHq'`m}73EBeBYX h !}73-'!I}73+'!mH}730+}739)mH}mJ}73!PASal8.PASJH'<}l8`l8.PASJ`Jd }l8d}}msp*`o (w'`w'ψu9{k9)l}{J0J oIn( `nzH9n L,n L'z M, `.LSTJdc}c````́5}6d5}.LSTa}.LSTJH(n KzH d {H̍#/0nj`]qq06/3 B BY BYX `"3&5$4}}.LSTJdrrc}c````͓n='iy~8ʷ~8-5cNo Pr'5$#ͽ!3$'}`%}`"͝!3*' !3$'*`%*`"/g/!_/!WRevious Quiet Switch Value`c}5y﷛y~8}5c`'}5``c`}5n-'}5y巛y}5n='i}~85$-!.3.' !7///5$*!.3='!////!/!~8-5cNo Previous Range Switch Value`c}5}﷛}~8}5c`'}5``c`}5n+'}5}/!/!Ϳ8/!Ͷ'/0!ͪ(/0!͞(/0!͒'/0!͆!)/03 0! 0! d=>S巛}}5_n='iw~8ʷ~8-5cNo Previous Debug Switch Value`c}5w﷛w~8}5c`'}5`)/ 0!G5$!)/3=' 0! 05$`\d3}`c`}5n+'}5w巛w}5n='i{~8ʷ~8-5cNo Previous Names Switch Value`c}5w﷛{~eCEN p/9~|8}5c`'}5``c`}5n+'}5{巛{}5+n-(n"d \wC~63,(m*'$~~|vDzgr<nljhfdb`^\ZXVTRPNLJHFDB@>}X `}ɺ(BBY BY}[@ `}ɺ `}ɺ}}ʷ}'}}}}AJ ,JJ ,JKIɛɺa2 ,JJ ,JJ ,JV`ɛɺa2 }}- }&}(}`c}ɺ}k}]/}X ]}.$}}ʷ}'}},JJ ,JJ ,JW`ɛɺa& ,JJ ,JJ ,JL`͒ɛ-]}ɺ a} }."}}ʷ}'}}']}.$}}ʷ}*},}'],'ɺa& ,JJ ,JJ ,JM`Rɛɺa& ,JJ ,JJ ,J`d i `,H, ,J}ȉ/'[BBYJ^˼c}ɺk 'Q}ɺa7˼}!*- }'2p,J,/('0BBYX0'}(BYJ^˼-rp,,cɛɺa ,J ,JI7`k!(2`/( `k"B BYBY BYX 2`ͫk" 'ςɛɺah-Bɛɺa  ,J ,JT`2`/('ϐ0}(BYJ^˼-,*2`WqFɛBYBYBYBYBYJ^˼c}ɺ}. }..˼}.*/(``"},J^˼a& ,JJ ,JJ ,JHIɛɺa2 ,JJ ,JJ ,JS`ɛ,k"ͬ},}ɺa},-},}`ͺ/(>`/(`BJ^˼c}ɺ},}ɺa5},-*}ɺa& ,JJ ,JJ ,JJIɛɺa2 ,JJ ,JJ ,JU`M  BBYX } (} (\} '}}.}}3ʷ}3 ' }3 }3 ' }3 }3}}3. } }}}cc3 PASCAL.TMPD$d}}}.o}} ʷ} } ʷ} `} `} ʷ}3 ' }3 }3 ' }3 }3s(r(Js`c}ɺr`c}ɺ}"} .k'k(}} ʷ} } ʷn|)} nJ` ,J~ ʷ~ Js~ '~ ~ }-ɺ ag} ,JJେ`` ,JJc`)}ɺ a}ɺ a d`qȉ,","H"#H#$`#`ߛ ,m,H,ȉ,,H,,H","H ,JJ~ ʷ~ Js~ '~ ~ .π}ɺaiDɛɺa `t "#H#$`#`m ,} ,H},H,],H","H"#H#$`#`m ,} ,H},H,k,JJ ,JJ ,J* ,JJ ,JJ ,J)ͬ ,JJ ,JJ ,J,͆ ,JJ ,k)c`k'O; ޼INPUT a߭`c}INPUT a( `H; ޼OUTPUT JJ ,J+` ,JJ ,JJ ,J': ,JJ ,JJ ,J(d 8Z,J,5a߭`c}OUTPUT a(``y` ``,,H,``` ``` ``` ``k` ```ɺ a  ,JJ'} ,JJ ,J'}  ,Jẗ́ ,JJ}}6͂ , kH,Jop,poJnr)nH qnHnHqoHoH'm``HpoJpJJ}}5l ,JJ}}8V ,JJ}}7@ ,JJ}}3* ,JJ}}4d t,'Ύ,M(MJ nx) `nH,(`JKH,cc PASCAL.TMPD$ ````}  *`J,```d`]}}/X !2`}YJ^˼/`}c`}} ʷ``}  `}  }-}}}}} } u`},}. }}XX,}J^˼+k,(2` }} J/}X `}J^˼}}]} } (} /}- }}}﷊},̜}-} }} }} } }} }}}}   `}J^˼ /'/ X '2`}J^˼}J^˼ {}9ʷ}9`c}ɺFILEUTIL FileUtils.PAS.SCREENSIZE Set the size of the screen.FILESYSTFileSystek( ,c}ɺ}9㮝}9㭝+}9㲝-}9㰝}98}5}9 ﷉`k8c `}5﷉/ B[X8o}2BYJ^˼m.PASBSETSEARCH {Parm} Modify search list. "SetSearch CR" will promFILEDEFS FileDefs.PAS9STATISTIC }J^˼ -1]}b````}߭`]c````c````(Dc?WarnS + | - Turn printing of statistics on or off.GETTIMESGetTimeStamp.PAS Turn swapping on or off. ing: WordSize(IdBlock) = `c``c` 3 YB[J^˼/(`r c Part is the partition for swapping.+TYPE FilSYSTEM System.PAStext file File. ',cc`c Written`c1cɊ ``c Errors Detected`c```3PASCAPSys:user>newutils> MEMORY Memory.PASOS D.42 e-boot Pascal.RunL.SYMBOL$d@Bd` 6""0##PERQ_STRPerq_String.PASllows use of default file*SCAVENGER Run the W%X%%%%%&&&&H&J&x&%F33/5dINITGLOB CompInit.PAS (allows use of default file*SCAVENGER Run the dDECPART DecPart66662747w7897=@.PAS89f $ BODYPRT BodyPart.PAS l`nH}} ̺`m`c}ɺxBBYXQy'K{'Ekk < ccc}``c undefined`cu`u=;)>_0355(u`2v(v`2 t,+9k9(^+)@7:k7k:)-; +k7߭(; +k7߭`2k7H75     pr978+:k:(k:`2/'`c}ɺk%'-mp/'``c}ɺk%'`+7k7(k7J7}3:4 2##z&&T/D3-S/+-B*k7}3.8}3`c}ɺ`k`k`k` }1}3}3}3}1c`p.''n0}BY B[J^˼˼}+0&A*x789===@@ /'q I'/'``}BYJ^˼/'q/ Xq /'`=;)>_0355   "[sc**COM newcomp>CMDPARSE CmdParse.PASy file Src to file Dest.*py**il**GI*GDELETE STREAM STREAM.PAS "Delete /Help" for more details.el** mFDETnewcomp>PASCAL=PASCALLstem de a( a(c3c 33taiWRITER WRITER.PASfor=PASCAL>PASCALai**LDIRECTORY Give a directory of files. "DirectDYNAMIC DYNAM`3J`JP} } }/=}J}/:}IC.PAS.**;DISMOUNT Device Dismount the device specified by Device.**READER READER.PASPASCALJ}/}J}J)RRANGEP}J)NORANGEP}J)QUIETPit Fil"COM newcomp>PASCAL=PASCAL**PASCALCOERROR PRINTLINENTERID INSYMBOLTREESEARSE}J)VERBOSEP}J)LISTP}J)SYMBOLSP}J)AUTOP}J)SNOAUTOP} J)EVERSIONPARCHIDGETBOUNDSKIP PAOFCHARSTRGTYPEBYTEARRAMULTIACCCONSTANTCOMPTYPEGENBYTE GENWORD GENNAWORWRITECODBLOCK NEXTINUMWRITENUMLO} J) COPYRIGHTP} J)DEBUGP} J)NODEBUGP} J)NAMESP}J)NONAMESP}3 Pc}3OKUPNUNEWIFILEEPUSH EPOP EQUICK GETFILEEHASHIX COMPPROCCOMPPARMLOADBLOCCHECKENDADVANCE SKIPOVERSEARCH PARSEFILCOMMENTESS}c} c}3c}c} c}3}c} r =ny``c` y~cʷ~c~cTRING NUMBER PWROFTENSTREESEACPUSH CEXPR CSIMPLEECTERM CFACTOR CVAR INITINPUFINISHSEFINDFORWDUMPCOMPR.PASPASCAL}``c` }~cʷ~c~cw``c` w~cʷ~c~c{``c` {~cʷ~c~cit Fil"COM newcomp>PASCAL=PASCAL**PASCALCOERROR PRINTLINENTERID INSYMBOLTREESEARSEPSP}3'ϙ c  ?Bad Switch`c r rc}y{wc PAS>`ARCHIDGETBOUNDSKIP PAOFCHARSTRGTYPEBYTEARRAMULTIACCCONSTANTCOMPTYPEGENBYTE GENWORD GENNAWORWRITECODBLOCK NEXTINUMWRITENUMLOc}3c P`P`c c}3}c} ^c}3 c}3c}c} '-c ?Illegal Command INITGLOB COMPINIT.PAS (allows use of default fileSHR *SCAVENGER Run the d Line`c +},}='Dc}3}c} c}3c}}c} }'̃ͮ}d pPSys:user>newutils> POS D.42 e-boot CODEGENE CodeGen.PASQP x`"w0' 6Copyright (C) 1981 Three Rivers Computer Corporation  YfPROGRESS Progress.PAS"[=PA"    c`/c} ',c I?Bad Version String`c k (; c c ?Copyright ``c` }ʷ}}}}}``c` }ʷ}}}}}.PASa('.PASa.PASJH':`Already Defined`c }c:4c}3}c} c}3c(/c} '.c m?Bad Co.PASJ`Jd.SEGa'.SEGa.SEGJH(9pyright String`c ͡Bwk '5{k '(do"75=:},}B/4".SEGJd}H/3!c}3}c} c}3c}\}c} ``c@` ~cʷc}~c=c~b~c;~c;'~c=':c c}`c  not found or empty`}\c}` ak͠c ?'`c c}\`c ' is not unique`c ̀͹z}k'myk'c \~c>lbJL~cc~c3c~c3 ~c}dP~c8~c8~c;``~c8~c`rsc ?Using Existing List File`c }:36c}3}c} c}3c}\}c} ͬ}<~c?~c='~c:~c4~c5~c77}d[ c ~cc `] c c :4p}\`.SEGJ`JP}\}\t.LSTJPc}33da'8c cCannot create `c c`c \ cklc)C`` kJc}c} c}3c}\}c} }\',c ?Bad List File Name`c [}\.LS`  kJI kJ kJkH̴9 ]c} Pascal.ResWords````J}AAJA,nk)Ta'}\h.LSTa}\.LSTJH(}\CONSOLE:45}\}\.LSTOc}nJ}nJJm,#mnJJ(mHmAJnnH̪m[(mHmAJ,Hc}]mn)JPc}\c````r8}:4)c}3}c} c}3c}\}c} }\*,cm߃mBDYX oCo͹mBBYBYBYBYBYX oCo͏mBBYBYBYX oConmB3>DYX  ?Bad Numerical Input`c }\cklc)U}\k09DXk K}\k0JH-c ?Bad Numerical Input`coCoSmBBYX oCo9mBEFDYX oComBX oCo oComH]``c` }ʷ ͶkH̢k*k ,_? c c k``c  out of range (1..`c  ``) c c Bk}}}``c` }ʷ}}}``c` }ʷ}}}``c`  k'n(: c c ?Version Already Defined`c }`:4ͻc}3}c} c}3}ʷ}}}}``c` }ʷ}}}``c` }ʷ}}}     }JLENGTH }JEXIT } J]RECAST } JTRUNC } JWORDSIZE} JL-t``c` c$``@` $#KJ"``c` J.H HODD } JCHR }JROUND }J}LXOR }JSTARTIO }JRASTEROP}ouvq3 5no)%mp); nmmHnH](B#BY$BY%BYBY&BYBYB+BYJINLINEBY}JINLINEWO}JINLINEAW}JSHIFT }JROTATE }JLAND },BY-BY*BY.BYY,B-BY*BY.BY 0BBYBYBYBYBY BY9BY:BYBY BBYBY#B$BY%JLOR }JLNOT }JLOADEXPR}JLOADADR }JSTOREXPR}JMAKEPTR BYBYBYBY&BYBBYBYBYBYBYBYBY;BYBBY}PERQ Pascal Compiler V``c ` }ʷ}}PHL}} }}}}} P``c` }JMAKEVRD }JDISPOSE } JRESET }!JREWRITE }"JEOF }#JEOLN }ʷ}}}] mk)m͈}INTEGER } ͌}REAL }q}LONG } }$JGET }%JPUT }&JREAD }'JWRITE }(JREADLN })JWU} CHAR }9}BOOLEAN }}STRING }}TEXT }}POINTERRITELN }*JCLOSE }+JSHORT   +mk)}mJ :ϡmDBY DYDYBY"BY#BY }}cFILE }ͭ}TRUE }   ͈r}FALSE r  d}NIL +BYX}}mJamBBY DYDYDY+BYX }.m B"BY#BYX }m BX }}n  mc} }  C}MAXINT } "d p 'A[~ac}mH6}INPUT }mH9]x mnx m'o4 mmDYNAMIC mDYNAMIC}.PASJ4   - -H-ac}}OUTPUT - -H-ac}} -mk-)r ac}mmSTREAM mSTREAM.PASJ4 mm}READER mmH}aALL a}r !"#$I&I'*)(c}]mk)Ϫam}} } rREADER.PASJ4 mmWRITER mWRITER.PASq   ra   rO  rB   r rd{c}mHJ``` ``` ``` ``` ``` ``` ``` ``` ``` ``` ``` ``` ``` ``` ```O]}JPRED }J SUCC }JORD }JSQR }JrABS }JNEW ``` ``` ``` ``` ``` ``` ``` ``` ``` ``` JA? Is    ```c```]A"etvfh fDYNAMIC DYNAMIC.PASS (allows use of default fileSHR mn.LN*SCAVENGER Run the d st Copy file Src to file Dest. ,BEGIN CASE CONST DI++?k?k?k?k?k?k?/'p)/BBY YX/'`/'V GDELETE WRITER WRITER.PAS "Delete /Help" for more details.RTS 1FILE .FDETnewcomp>COMPINIT=COMPINITT de`/1'o``c ` }?ʷ}? }?}?}?-}?}?+}?}?ctaiSTREAM STREAM.PASfor =COMPINITOMPINIT IMPORTS LDIRECTORY Give a directory of files. "DirectREADER READEPASCALCO Pascal.PAS,lxlw"[user> She.SCREENSIZE Set the size of the screen.FILEUTIL FileUtilsR.PASo.R (OTHE;DISMOUNT Device Dismount the device specified by Device.E ;RECORCOMPINITPARSECMDSKIPTODEINITSEAR.PAS:boot>(BSETSEARCH {Parm} Modify search list. "SetSearch CR" will promFILESYSTFileSystem.PAS9STATISTICINITQCODENTSTDTYENTSTDNAENTINOUTENTALLEXENTUNDECENTSPCPRENTSYSCARTN INITSCALINITSETSBEGIN CASE CONST DIS + | - Turn printing of statistics on or off." Sys:user> FILEDEFS FileDefs.PAS| - Turn swapping on or off. V GDELETE WRITER WRITER.PAS "Delete /Help" for more details.RTS 1FILE .FDETnewcomp>COMPINIT=COMPINITT de4.13JP)}P c`)} JPart is the partition for swapping.s+TYPE FilGETTIMESGetTimeStamp.PASile File. runbX$J`P`JP  3PASCAL.SYMBOL$da: I c PASCAL.TMPD$ ````s.DRrPSys:user>newutils> BODYPRT Bodypart.PAS D.42 e-boot Pascal.RunR *SCAVENGER  +?k?k?k?k?k?k?J   /!'p"//'I Run the dMEMORY Memory.PASAS (allows use of default fileSHR *SCAVENGER Run the p `\/'e71 }1a }p&  . -  qc}dPERQ_STRPerq_String.PASllows use of default fileSHR *SCAVENGER Run the dSYSTEM System.`+H++?k?k?k?k?k?k?/'p)/BBY YX/'`/'PASAS56$)89f $ CMDPARSE CmdParse.PAS l`/1'o``c ` }?ʷ}? }?}?}?-}?}?+}?}?c pPSys:user>newutils> POS D.42 e-boot SCREEN Screen.PASQP x`"w@'     ,Hdo`}(ρ}BBYX }H`c}'```a`A`}(}LnI+n)]n+n)]}Cn}o}]m߅q'xqC(lqCJJ߭(VqCH`qCJJ}H}(}}H}`p``n' `m` p`p`}}ʷ}4},JJq`a m`qqCJHJpr)pJpHJ߭pH`*qCJJ߭(IqCoJJoJHJpr)p`mH`qJ`cm'@`,}`}`}`}}pHmH`}`},JȺJpHJ߭pH`qJJ߭(HqnJJnJHJpr)pJpHJ߭pH`n(o(`%a`m`}ɺ.k.*0k.7/k/}9k/}3 k.͈k.H..k. )0k.7/k/}9kn'o'noH)nHoHJ`?`o'oHn'o(nHnHn`o`a`mDXm`3mI' `/}3 k.Kk.H.*-7/k/}k/}dH `x m߂4 no'oo#m`a`m` `m`m`m`m'b(}ʷ,,H,}'`}'nq)}nJ`nH})oP a`o`n'`]``}`}}ʷ}}`m}}}.}}p}}pHq' (c`]m'Ϣn'%p,(pJ( pJ%pp' ``p,.p(p`]p}o}}oH}]}} ʷ} 㮄} } ,p`m*Lp,} ,} ,Hr} ,JJ ,} poq+(oJ`oJ,J,p'(J`2mBBYXn``m`m`` m`n`]m'*,H}̬} ,} (.``}c`I} J HH} (} } LH } M w'K} n`a m`n``n`mH`n`aumkBBYXn)mBBYXn) mnHH`Fm'n)mnHH`mnHH`&v`a} vH`av`} `vH`p`ewu(&uI(`u`}w`w`}v*#} m'n) mnHH`m`m`n`CmBBYBYX`n`mH`mH``mH`mH`n`]m'm`n`o}v`a}v`} `[} 㯅}}}}`u`}uH`u`}}}}}} rvH vCODEGENE CODEGEN.PASm (allows use of default fileSHR *SCAVENGER Run the d `a`m'0n`am`n`o`mH`n`o`͗m\'m`n`o`~n'7mk`o`&}`o``o` d An`a0o`am`n`o`mH`n`o``]m`n`o`m'p`p` ]!mHnKHnBBYX"o' 1`o`ap`p`o`,p`,qJ?}Eq,} ,1q,} ,}   ,(`u`}uH`u`}vJ v*} }v`a}v`p`Wp}}}}`u`}uH  <0  `u`}}}}}} ruI(`u`}}c`]%.'́%'%'`(`< :J' ^`` _``]``}cɺ `}ɺ`mJ'c````%- ``#%-%- ```0()' `*`,)*`)I`*``)J``` }ɺ .%&vxlnZ\`*```)```ʹ```͢%}ʷ}'`}``/%'```{|-.]^   `}``I```7}````d?Tdd w%}ʷ}'  <0  '( }``']}}ʷ}.$}}'`}`6}*`}I`}``}J`}PASCALCO Pascal.PAS,lxlw"[user> She.SCREENSIZE Set the size of the screen.FILEUTIL FileUtils``}( ` ``ͤ``͗}}ʷ}'`}``-}'``.PAS:boot>(BSETSEARCH {Parm} Modify search list. "SetSearch CR" will promFILESYSTFileSystem.PAS9STATISTIC`}``?``2}```dEdo]%.7'% a ``S + | - Turn printing of statistics on or off." Sys:user> FILEDEFS FileDefs.PAS| - Turn swapping on or off. `(h)' `*`,)*`)I`*``)J`*``-)( `)``dPart is the partition for swapping.s+TYPE FilGETTIMESGetTimeStamp.PASile File. runbX$́``%`J``^)' `*`,)*`)I`*``)J`*``d s.DRrPSys:user>newutils> EXPANDEX ExpExpr.PASm (allows use of default fileSHR *SCAVENGER'()]J' ^`` _``]``}cɺ `}ɺ`mJ'c```` Run the dMEMORY Memory.PASS71,bX``` }ɺ .%&vxlnZ\DYNAMIC DYNAMIC.PASm (allows use of default fileSHR *SCAVENGER Run the dMAKEBYTEGENLDC {|-.]^   QGEN0 QGEN1 QGEN1A QGEN2 QGEN3 QGENJMP QGENBJMPQGENCMP SEGNUMBEGENSYSCAGENLABELPUTLABELLOADEXPRSTORE LOADADDRGUARD   }BBYYJ^˼/(}} k&y+/'`/'BBYBYJ^˼c}kBBYX``J^˼%+,H/ '` %A%@+D+E BBYBYYJ^˼ccB } c` } }'ʷ}7BYJ^˼}'c} }'}' a`}'}'}}'/7'`('`c}}a o```c` }ʷ} } }B}  }J^˼}cc} } }} }.k`} }} -/'Ϡ}BYJ^˼}cc}/(k k;/'`/' `/' "BBYYJ^˼ cɺ%@,%@BYTERANGUBYTERANTLCHECK GETWORD PUTWORD REPLICATxpExpr.PASm (allows use of default fileSHR *SCAVENGER }-V{){, `P{P(5``} c ` } 1 } }'ʷ}' {}'{HL`/' `}  Run the dMEMORY Memory.PASS71,bX. }} ``} c` } }7BYJ^˼}cc} } a `}} }'ʷ}'}}'}DYNAMIC DYNAMIC.PASm (allows use of default fileSHR *SCAVENGER Run the dMAKEBYTEGENLDC }'/7'`}J^˼}cc} } }} }.k`} .V} }'ʷ}''D}'.8}QGEN0 QGEN1 QGEN1A QGEN2 QGEN3 QGENJMP QGENBJMPQGENCMP SEGNUMBEGENSYSCAGENLABELPUTLABELLOADEXPRSTORE LOADADDRGUARD '( ` }'}',f`}'}'}} /}X `}J^˼}]}.)ϤDECPART DECPART.PASm (allows use of default fileSHR *SCAVENGER Run the d  }}ʷ}̈́}.}'7}c}c}q+"*qp*qHqqHJ*H*G}ɺa$}c}c} 6Copyright (C) 1981 Three Rivers Computer Corporation pHp*p*d tr]}}ʷ}ɺaN*+H,%H%+} %} } *}+ +*H+@%+,H%+} } %}.%}H%o(5`c}|k'k)k)c}``c` }ʷ}}}/'vBJ^˼cv'Dt}/X #`}YJ^˼/X /'+ +( +J+``} c` .325a-)1c)/'`/'{BJ^˼c  .L );} }'ʷ}'}'}'& /'7}1}} k&zac}zH k&`/}BBYYX !` (`. mc)ɺc)n`"` BBYYJ^˼"` BBYY   )`` c ` `` c`  }ʷ} })} }}  BBY!<`J^˼\ 5}6P5JUrkU)r7VkV}9\rH UrkU)r7VkV BYYJ^˼cc&ɺ &.W)A(`- `  q`}90rH}S8c}`-  . -//(/!(`͔/!'K-:://(m m/' `/ '`J^˼ cc&ɺ ɺaK**H)> (``1}: `J͂*3.H..7UkU}kU}d`'3}=1a}ʷ}}*L}' } }* }ʷ}} }.c}c(c'}A}BFGHKL.MJc}=k: /(/(`/1( =`2BYJ^˼k: '(J}H}L&&'(JHK&&) `&}&    -Y++ *+H+'-'k:'-K'MJ*`7q77qH'Jq777x-vuw.+mm`%+B[ BYJ^˼ cɺ%+,H%`` c`  }ʷ}+} 8}S./};5};c@` J/'`]/#'ψ+}q}.p $}+E%@'+E,+E.1 %+,H/'6/BYX `}%}}+/ ' `]/ '`J^˼ cc&ɺ .9 ,BYJ^˼`/(k A%D+k/ ' @%E+ }/BBYX #`} -s`  ( r` `` c`  }ʷ} } .< c(c'(*'BBYYJ^˼/'@k/'0})1}.k235a-k-c})`/BBYX (`}BBYBY* `'}'HL}`` c` / ''J^˼ cc&ɺ  }ʷ}BYYJ^˼/(FkF kFy/'`}BBYYJ^˼}cc}?ɺkk(/k`c}}}c}ɺ}  -}`}}&H} } ɺa**H)}}*])/c}kk'kkk-/'7/B BYBYX #`}BBYYJ^˼͸k()k`c}k`c})kX # `}YJ^˼/X/X }J^˼}}ɺ͌/'~/+'8kk-c}/'}]`` c`   }ʷ}}}/'yvBJ^˼)/X " `}YJ^˼/,''/-' /*' /.' }} /}X cv'61 ac.  `/' ``}J^˼}}- } }}/( `J^˼\ }1/3(  a2/)'0 '`BYJ^˼}Dcc}Fɺ}3}Dc}.n(Sn`c}}}.98}}3c}/BBYYX "`BBYYJ^˼/'B/BBYBY BYYX "`BBYYJ^˼n(m`c}k! c}k!c}nk!̧/'6/BYX `BYJ^˼`?/'</}YX "`}YJ^˼`tk4( `́} -5-<}( u`/'A}1k  }.( .I  ac}q`/BBYYYX ,`k7(ak7`c}k'6k5'k(BBYX k<Jk> k>/'w/.'&k:(/1FILE y`/'BBYYJ^˼/(o o"/'`/(`BYJ^˼/'}1}5BJ^˼c}}8}#}8.t}C.k4(jk4`c}}}C:kk:(} }8.%`BYJ^˼  a/)'0 '`BYJ^˼}cc} }}} }} a }c}/'6\}A}C}C}C}Ac` k4̉}C.I`}C.}A}C}C}C}Ac` BYJ^˼\$k:'/BYX `BYJ^˼`./(`BYJ^˼/'}.1}38}8'y`}8;;;t -k=k;KH-``t >k65k6(k6`c}}#}8k'6c}k"(k7'k57  }}]B }]BBY * H`+ *I+H++akQ ka} kakakakaka'@ ɺGd:B420.,*(&$"  /2'.(\ka`m ((}]J^˼}kQ`af}]BYJ^˼}kQ`aP/'/'BJoB/BX ;5.r / X `}J^˼/ BYX'($x^˼c}0kQ3kP} '}5}-``͝}}aʷ}a}5}a.x}a}cʷ-}cH-}a!pr$A &   k l  }a }cH}c'x`}2} `c}0k4(k<}cH She.SCREENSIZE Set the size of the screen.FILEUTIL FileUtils}}aʷ}a}a.(}a m9(+JckckcH/"'-o .'/'``}.PAS:boot>(BSETSEARCH {Parm} Modify search list. "SetSearch CR" will promFILESYSTFileSystem.PAS9STATISTIC/2BYX `J^˼ͮm:'c}}a`Zc```}}aʷ}aS + | - Turn printing of statistics on or off." Sys:user> FILEDEFS FileDefs.PAS| - Turn swapping on or off. !}a +JckckcJ}a}a}X}[``c ` }R \m9'.'F}Part is the partition for swapping.s+TYPE FilGETTIMESGetTimeStamp.PASile File. runbX$} } c kSkR+kW-kU/ B[XϬ/q8' `h s.DRrPSys:user>newutils> BODYPRT BodyPart.PAS D.42 e-boot Pascal.RunR *SCAVENGERc^YTq``c}ɺGd:B420.,*(&$"  /2'.(\ Run the dMEMORY Memory.PASAS (allows use of default fileSHR *SCAVENGER Run the oB/BX ;5.r / X `}J^˼/ BYX'($xdCODEGENE CodeGen.PASm (allows use of default fileSHR *SCAVENGER Run the dDYNAMIC DYNAMIC!pr$A &   k l .PASS56$)89f $ STREAM STREAM.PAS l:' vOv}m:'kOv.}(```}-W} -S+RU}Y-tn'vWGa   >}}/ʷ}/%a `%}/'}*%/(/' `/' %.%( `}].0}]c}Xc}WkWkXJH(''```kTk(k<kSZ/'O}K}YJ^˼%/'%.6%`c}1a(`%%}﷋``}(c ` }(}/ʷ}/%}/}/ʷ`/'%}K}YB[J^˼ʷ`͇kRςkUkV'z/( ~`iBJ^˼c}3``}Kc ` pPSys:user>newutils> POS D.42 e-boot DECLARATTYP SIMPLETYPACKABLEFIELDLISALLOCATEVARI}/}/ k``}*c ` }*}/ʷ}/%}/}/}/}/ },}/ }(},}*`%.x%ANTLPOINTERTARRAYTYPRECORDTYSETTYPE FILETYPEIMPORTDELABELDECCONSTDECTYPEDECLVARDECLAPROCDECLPARAMETE*SCAVENGER Run the }/ʷ}/'}/'%.%.B'}/'%}/.%}/.%-````}*c `dCODEGENE CodeGen.PASm (allows use of default fileSHR *SCAVENGER Run the dDYNAMIC DYNAMIC }*}/ʷ}/%}/}/}/k.}/ },}/ },}*/} YX #`} YJ^˼.PASS56$)89f $ STREAM STREAM.PAS lͭ},- }}&R``}*c ` }*}/ʷ}/%}/}/}/}/ }&}/ },}}*]``Ic ` I}ʷBODYPRT BODYPART.PAS (allows use of default fileSHR *SCAVENGER Run the d }}}m} K} M IMI]SUk'!TsRSk'|kBTk BBYX 6Copyright (C) 1981 Three Rivers Computer Corporation Rk 'VVRk&)DXSkBBYXs``}Oc ` }O}]ʷ}]}]%}]}]}] w``}Mc ` } M}]ʷ}]}]%}]}]}] }O}] }O}M}Y}BBYYkS}Y}YBY/'rkT k 'gBBYBYBYBYBYJ^˼c}3``}Kc ` }K}]ʷ}]}8}] }] }M }KkTk'~`k`c}3kU}}/ʷ%}/'``}&c ` }&}1ʷ}1}1}1}1 }/}1%} ' }1l/ }HUkTk=BBYXύvBBYJ^˼c}vk!(Zc}3c}a<``}Kc ` }K}]ʷ}]/}]}]}YX $;` }YJ^˼},/ XE/'}%}.}( `}}(}BBYY] k!``(}K}YJ^˼ʷkT%.''%-b}8 aU%}8(Q``(cJ^˼ʷ``}*c ` }*}/ʷ}/}}/}/}/}/ },}/ }(},}*%.%,q`}.` (}]ʷ}]JkQ}]'}]}]}K%}8%k=`a u}8 a% a''O}8.D}8}]   }9}<ʷ}<}<}<}< w%%'(j``}9c ` }9}<ʷ}<%}<}<#}<`}.}}}. %}}.%.`%}\}c}c`K}a %%'(j``}9c ` }9}<ʷ}<%}<}<$}<́i'%j(1%``(ca `%}d E%}``c ` }}ʷ}}1}}'}{} }} }` (j1('``}9c ` }9}<ʷ}<%}<}<%}<``}9c ` }9}<ʷ}<}}}#}}] /('0BBYX 0' }}(BYJ^˼ʷzQ``}c ` }}ʷ}%}}<}< }BYJ^˼}< }<}< 1/'`~}7}J^˼ ʷ``}9c (}} } }}}/('f}%0 }}(BYJ^˼ʷ}.%.yͺ}c}c`}` }9}<ʷ}<%}<}<&}<}< }< }7%. %a `%}9``} cc}c`}.}}}. %}͈}c}c`}c}c`}.}}}. %}H}a  }K}]ʷ}]}8}] }] %}8}M }K/(`/(/'`} .%} kTk(~`` } }<ʷ}<}<}</'Y%} '``}9c ` }9}<ʷ}<%}<}<}<}< }< s}}O}-}-q}aa``}c ` }}ʷ}}1}}}5}}7}BBY7BYYJ^˼ʷ%.Ϣ%,`%}7͂%am`%}7[} } } }}}巼}aa``}c ` }}ʷ}}1}}}5}}%a>``}3c ` }3}<ʷ}<}< }7}</7'g}-%}5}BBYYJ^˼ʷ}-%. } }}}]}-}-q}aa``}c ` }}ʷ}}1}}`%}5}3}<ʷ}<}< }5}3}<ʷ}<}< } %%} '}3%}9.U``}7c ` }7}5}} } }}}巼}aa``}c ` }}ʷ}}1}}}}<ʷ}<%}<}<}<}< }9}< }3}9}7}9}3`/(,k, k,/' `U5}} } }}}]/X -:`}YJ^˼}9%/Xϒ/;/d&PLJHQDB@><:8642G.,*(&$"  3/}X #`}YJ^˼s BBYBYBYBYJ^˼c}k'2}9}J^˼˼}ʷ'}9%sk'M%} '(}`}}9]}}'BYJ^˼ ʷ/''}%0}}'BYJ^˼ ʷ}.%.<{$}c}c`}9c ` }9}<ʷ}<%}<k;}<}<}9}J^˼c}ɺʷSBBYJ^˼c}``}9c ``}c}c`}.}}}. %}}c}c`}.}}}. %}}c}c`}c}c  }ʷ}%}z}}y} }} }}}%'}%}}ȼBYJ^˼}ɺ}} J^˼ s r q,} s } }} BBYBYYJ^˼}/'ϸ  %.,('%,% a ``}%J^˼} ai''ac `}}%}.%}}ʷ},}( `}/ '``}}c }/4(OB%-H%}( ``(c` (}ʷ}Jz}'} % a v (' %.3%7BYBYYJ^˼}cc} /7',BBYYJ^˼}cc} }}}}}.}}a}})"''% a ``}.%.ρ%a#}-O```%﷼%aϲkkkk)ϟ} }} } .8} }ʷ}k)}k'`} } } }``}c` }}ʷ}}a"}-```%%-)}a```%﷼} a_} U}.B} }k},} - }}} }kHY`/}- ``}c` },`/(k c} c} xyJH v!xw(`,J,`%}%}﷼}%a\})`}``c}"kd/'`BYJ^˼ /X `}/(k k/ '} }.}}7}.}'$}c} c} y`x`N``c}c}} a8} } ````} }}} } } }}} } } } -}d`k`k`}-,kkJHKHH}}c` k,J`}`x```}``''%.`%I`T`}``''%.`%I`}ʷk}*k,J`kH},J`} }}c` }} kH}-Ω} / ' `]}c } %a `%}d>|%``}c ` }}ʷ}%}}(}y} }`d28u`%I``3`]/#'+q+pq(q+pqJq+} }}}͑}}}})BYJ^˼ʷ/)'}%0 / }}J^˼ʷ}.%.}q}.pϻ}}ʷ}j'ϚwJc Label ` }c `` c  Top ` c q`` c y'N%'.}%a`%}`%}''%-b} aU%}(}}ʷ}.'}'`}`} }};qJp``B BYY``(c` (}ʷ}Jk}'}}}%u'}-^% aP}%v``} c`J^˼ /X /(m m/ ' `] BYJ^˼'' %a  } }ʷ}Jk}'}}}}}%.-}c}c`}c}c`}}%}``}c ` }( ,s }c `}`/ '4` BYJ^˼ srq,,/ 'Rs }c `  /'όJ^˼}}}ʷ}}} '} } `}}.%}}ʷ},}(6`J^˼ +kJ+-kJ-H/#'ϒ+k(kJ}k}.D}}ʷ} `}(`BBYBYBYYJ^˼/'pBBYBYYJ^˼%.;%, j'$}`}  }}̴`/'`/}BYX `}J^˼`&}%a c}`&3`BBYBYYJ^˼} c /BBYX/ B/BYX/'BBYBYYJ^˼c}{'&}J^˼˼}c}ɺ J BYJ^˼%.%, `Ϳ}%aϦ'`-` ``-``} c } :2*"c}ɺ/(`}J^˼1ALL 9` B%}'`-` ``-`w' ``` ``` ``} `}.ϛ}'ϑ%}}BYJ^˼c}}J^˼˼}̀d;zvtrpnljhfdb`^\ZXVT* .8B`}`N``}c `}} `'`-` ``-`}`}`N``} `@><:86420.,*(&$"  , 2`/B BY BY BYX `}J^˼d}  %}'`-` ``-`w' ``` ``` ``} `` 7`Ju(y)c +kK` c c}`` c -m}B BYYJ^˼ /X /(7k7 BYJ^˼--H--m,-m/'6`}}  J^˼ %}`w'k7/ ' `,`,]`}2+}2.<}2}8ʷ}8}:ʷ}: }:`m(`}2}8 H`J``c}}\%}' `|` ``|`w' ``` ``` ``} `̼k}pk'>{' } .k} JkkkmJ3 3 kH `} }  -J-]/'%BYJ^˼c}``c}BBYYJ^˼c}3 ,H3 c`$`` #KJ"` c``` "-O/+fɺ%.Q%'?+ *-+H+kH+k%('$+kk)k*+C h  8 *-B BYYJ^˼ /X /(o o/ '3J^˼`}`5`}c'G'`-` ``-``kk--H-kHh``'`-` ``-` } BYJ^˼}c `}`/'6`J^˼ `}} `````kk--H-kHk-m,-m``/(k k-/'   pPSys:user>newutils> POS D.42 e-boot DYNAMIC DYNAMIC.PASS (allows use of default file} 6BBYX :}} } }} 6}.}}}}͖} 6':}} } }} }. >@MN""{#|##$(SHR *SCAVENGER Run the d H1 =BO,"[(*}pk'>{' } .k} JkkkmJ3 3 kH$ ]$]$ COM newcomp>WRITER WRITER.PASopy file Src to file Dest..Sys:user>Shell.42.Runun42.RunRun3 ,H3 c`$`` #KJ"` c``` "-O/+fGDELETE STREAM STREAM.PAS "Delete /Help" for more details.]$2m'un42FDETnewcomp>BODYPART=BODYPARTT deC h  8 *-taiBODYPARTEXPRESSISELECTORCALL PARAM FLOATNODSTRCHNODSIMPLEEXTERM FACTOR STATEMENASSIGNMEGOTOSTATCOMPOUNDIFSTATEMCASEPASCALCO Pascal.PAS,lxlw"[user> She.SCREENSIZE Set the size of the screen.FILEUTIL FileUtilsSTATREPEATSTWHILESTAFORSTATEWITHSTATER Run the d H1 =BO,"[.PAS:boot>(BSETSEARCH {Parm} Modify search list. "SetSearch CR" will promFILESYSTFileSystem.PAS9STATISTIC$ ]$]$ COM newcomp>WRITER WRITER.PASopy file Src to file Dest..Sys:user>Shell.42.Runun42.RunRunS + | - Turn printing of statistics on or off." Sys:user> FILEDEFS FileDefs.PAS| - Turn swapping on or off. GDELETE STREAM STREAM.PAS "Delete /Help" for more details.]$2m'un42FDETnewcomp>BODYPART=BODYPARTT dePart is the partition for swapping.s+TYPE FilGETTIMESGetTimeStamp.PASile File. runbX$EXPANDEX EXPEXPR.PASm (allows use of default fileSHR *SCAVENGER Run the d s.DRrPSys:user>newutils> DECPART DecPart.PASS (allows use of default fileSHR *SCAVENGER 6Copyright (C) 1981 Three Rivers Computer Corporation  Run the dCODEGENE CodeGen.PAS71,bX EXPANDEX ExpExpr.PASn 81 13:02:39[ '''11 Jun 81 13INITGLOB Compinit.PAS56$)89f $ MEMORY Memory.PAS l0.}}}}.S}} ʷ} ']}}}}}. }} }} }c `}c ` d}}  '`k` ``k`````('`k` ``k``(|)kdk'k'k'5}`- ' `c}}` ~`q(x'\`k`|`}`].q % a((k'```(k`kJ`a``B|( `k g`(kH)( }`H ( }`- ' `c}}` ~`q(x'b`k*d fT% a(}' } ɺ}'}' }} }}}}ʷ}',} ``|`{H`}`- ~`B}ʷ}.#}-t`}`` %] %.c}yBBYBYX }ɺ``]}ɺ''%a% ao''^o`''K%%}ʷ}'%.Ϲ```. ` `F}``c`}}ʷ}}'}%'}}}}Q}}}} } .}} }} } }}}c `ͥ}% ɺa5}ʷ}}'}J((%%.}`%6.!}ʷ} ɺ }. }}ʷ}.} a Q}cc}```N`(``J } ~`6.+}ʷ} m` } } ~`6.)}ʷ} ɺ} `%}'()}}ʷ}D}'} a(((`}J`}J`.%.`%} ~`'("m `''t`%.(BBYBYX`6J+c``*c```% a(%. `c}%}( *xH*&)xH)`d y^{``` d``p' )P aI'{'z'4% a(({'```({`zJ`a``% a(%.5%}] 'b%.6%a#``` ``` k`````````ʷ'()%}﷼% a(]%.ρ%}ʷ}a `( *H*')H)`}%.d%}ʷ}'J}.)}} ʷ} 㭅} ' }} %-}``.`d %}﷼% a(]}}ʷ} . } ɺ}'0}'}"}ʷ}} .2} } ʷ} '}} }} 2`}- `͵}( `͡}(ϗ'}'}' }} }}}}ʷ} `c}%}{ͣ|)k*(ͤ|' `k`} a}- `w}`c}} }aS}}}.4}} ʷ} r'} 㭅}} " }} &|*`|I`k``|J`k`````()J(k'(k)k|H*tk'<}㭅}t`} q'q```'` ` ].q ( }`H (   p`m(m` }%%c``````%}] '(t`ͼ`%' `````%}]%a }` %a }```]%a a~}%6%6```c}%``a`````}` %a }```]I`` %a }`J``Ⱥ %.6%}ʷ}`'````%a````% a&`% o`````o``͸%'%.```t`` ]mF͓͎͉ ̈́!"z#upkfa\W$Rd* aM%} ʷ`} .} c}c}mnJHo`````o``]%a ````=%LHDB><:86420." ]}.- BBYX} .ϳ} }ʷ}a````%.t`````-  v] %a . ( vχ 'ϝ}'ϒ} `c}kBBYXyk'"b`k`k`kH```P'k)k*`````}}uHc}K6'``$`````a`````` ` '`````>}}./ '})ϖ} ɺ} %.x%a''%`````````~``%aK````- ( w```F`}````}`J`^`````}```}```}``(}```}```}```}a``` t`` ` '```` `` ``% a```````% a^%} ʷ````} .} `` . 6%%.%'%.d%a 6`#'}`c}c}mnJHo`````o``z%a```````K%a````#'m``a````}``%] %.ϖ%'%.{%- `a%` ``%.t`````-  xϏ]&B(BYX- %.%.Ͻ%'a56```a`````````` t`Ⱥ %.i%'%%aϑ(' %i```--H--m,-m%.N%- `4```%a ` ` t`].7',|` ````- t`s &B'BYXt`(B)BYX$`- (m]- (n m`` %a t````]n+o`n+`(' `  ` t -}% %a }`}'`' I```N`  `V}} ʷ} .B} c}c}r`%}```stJH```}``q`}͹%a }` %a }```` `o%a }`g``G57kI`Z6} ɺ} `%.(}. }'%}(```}}  (  `c5k7)' %a }`k5H5Ѻ %.%(`57k5k7)' %a }`k5H#'.``} .+&'"`c} (`c}} ɺ&# BBYX4# '`-`.`%`5Ѻ %.%(``a`f` `͂ ''%a2o(`!(`(` d`)`(`%`͙&'*).(`)`(` `(`g'))'*`````}`,%-}`  k6(}`c%%a }` ````````#' .'}ʷ}BBYBYX'}'a`` `%a }`.6}7ʷ}7' %}7}` ~`]d+X;rLH9B`ͻ}'ϒ``}`J``^```}````}`J```}`` L.,*(&@ .~`o ('k#(%O```%]`}I`}``'}''}''%]} `c}} k$( }ɺ%k%o```%}}ʷ}ͅ``͈} ɺ} } ɺ} D``P} ɺ} !D$'DY+BYX- `oD BY DYDYBYBY+BYX oBBY BYDY*DYXo`Zo``%.)%B`2} ɺ,} ɺ,Y``d s~%}}},ʷ%}},̈́},'},' }ɺ'o' H`J`s`%.%%+ }`%(}`%%a^`K`}ɺ%},'}, `c}y(}ɺ͉} ɺ} t} ɺ+ `^}ɺ,Ud&PuLJHDB@><`5%a_`V``}`%%a G`*%a R`}`:8642.,*(&$"  ]}} ʷ} '' } } } 5'!} ' }``%a}aO```%r} a%%'``F%6` `````%  .N}7ʷ%-t`}7%' %}7`}2}a }c}c}t`s`N````d A?.*``} a `` ~`ͫ%a"o ' P`Q```}`%e%-```}``}`} ɺ} %.% a''''%}ʷ} aϊ} (``} ```%6%.%%+ }`%(}```%%.%%+ }`%(}`%   } } '' } ɺ* } ɺ+v'u(}% } } } 5'!} ' } } } }5'}'}} }ɺ)''% a x ('%.$''% %)k'' } ɺ* } ɺ+v'u(} %a}aK``͝%a}a'k(% a,``}%}} }.*}5'}'}} }ɺ)''V``l%a}a ``<}.4}'}%aZ`` `%W% a w ('%.&'' z%H %)k'k(% a ``}.%.;}``}a%aL``<}a%a `` `%͐}'X``"x3% a"%  k}c|`%ɺ-6w2} a%} ,J,`%ca%aM``<}a%a `` `% ``d{`}ɺ-}%aϖ} }}- %}- }-yB BY BY BYX` +r}ɺ+}} ʷ} ('H} - v  } } } .*} 5'} ' } } ͽyB BYX`ͣ} aK} 6}}ʷ}.}c}c}kkJH `} .} (' } ɺ) } ɺ*v'u(}% } } } .*} 5'} ' } } } .A}% ``d-KcyH`u`v` P`u`v` D`u`v` 8`u`v` ,`u`v`} (' } ɺ) } ɺ*v'u(wx%a I`Y%a T`=%a` `u`v` d k```%'z( `zI`}ɺB.[2 i```` `%} Ͱ}a%aH``͝}a%a<jop:7%*S``l}a%a ``<}.4}'}%aY`` `%,WX1 L2 " }a%aJ``͝}a%aU``l}a% n p   v x BDZ%a ``<}.4}'}%a[`` `%``dH}ɺ*}.8\Z \FH&}.}.$}c}c}rsJHo(`}}]}. })( }ɺ) } }} }.*02gh N%%&& *-  EXXIT VRD WORDSIZ RESETWRIEOFEOLN GET PUT READWRITCHECKFORFORMAT CALL FILEADDRREAD WRITE SHIFTROTLOGAND ASPASboot>(BSETSEARCH {Parm} Modify search list. "SetSearch CR" will promIO_UNIT IO_Unit.PASSAS9STATISTICLOGOR LOGNOT CLOSE EXPCALLNEXPPARAMEXPFLOATEXPSTRETEXPSIMPLEXPTERM EXPFACTOEXPLBRACMAKEPA *SCAVENGER Run the S + | - Turn printing of statistics on or off." Sys:user> IO_OTHER IO_Others.PAS(allows use of default filedDYNAMIC DYNAMIC.PASn 81 13:20:33 of default fileSHR *SCAVENGER 11 Jun 81 13EXPEXPRETREEDISPSHR *SCAVENGER Run the dDYNAMIC DYNAMIC.PASext file File. runbX$ '*,&'&&-@.1 L2 " EXPSELECEXPSUBSEARRAYSELFIELDSELPTRSELECFILESELEEXPCALL EXPVARIAEXPSTRGVNEXTVAR NEXTSTRGNEXTEXP PARAMADDEXPROUTIDEFAULTFNEWDISPO n p   v x BDZ%PROGRESS PROGRESS.PAS (allows use of default fileSHR *SCAVENGER Run the d PASCALCO Pascal.PAS,lxlw"[user> She.SCREENSIZE Set the size of the screen.FILEUTIL FileUtils .PAS:boot>(BSETSEARCH {Parm} Modify search list. "SetSearch CR" will promFILESYSTFileSystem.PAS9STATISTIC S + | - Turn printing of statistics on or off." Sys:user> FILEDEFS FileDefs.PAS| - Turn swapping on or off. Part is the partition for swapping.s+TYPE FilGETTIMESGetTimeStamp.PASile File. runbX$``}c`?mq)-nr)}m?NnNnHnr)mHmq)}?NN}?NN@}?NNs.DRrPSys:user>newutils> BODYPRT BodyPart.PAS D.42 e-boot Pascal.RunR *SCAVENGER}?NN}?NNc}?NN}?NN} ?NN} ?NN} ?N Run the dCODEGENE CodeGen.PASm (allows use of default fileSHR *SCAVENGER Run the N } ?NN} ?NN@b}?NN}``}c`N```N`]HdDYNAMIC DYNAMIC.PASn 81 13:20:33 of default fileSHR *SCAVENGER 11 Jun 81 13EXPEXPRETREEDISP``mxnvright (C) 1981 Three Rivers Computer Corporation { { AbstractEXPSELECEXPSUBSEARRAYSELFIELDSELPTRSELECFILESELEEXPCALL EXPVARIAEXPSTRGVNEXTVAR NEXTSTRGNEXTEXP PARAMADDEXPROUTIDEFAULTFNEWDISPOIO IO.PASils.PAS,lxlw"[user> She.SCREENSIZE Set the size of the screen.IO_INIT IO_Init.P  h  LDC1 6: Illegal symbol (possibly missing ';' on line above) h  LDC1 : Errine above)on line above) h  LDC1 2: Error in constantexpected line above)on line above) h  LDC1or in parameter listy missing ';' on line above) h  LDC1 : 'OF' expectedmeter listy missing ';' on line ab 3: ': =' expectedantexpected line above)on line above) h  LDC1 4: 'THEN' expectedntexpected line ove) h  LDC1 : '(' expecteddmeter listy missing ';' on line above) h  LDC1 : Error iabove)on line above) h  LDC1 5: 'UNTIL' expectedtexpected line above)on line above) h  LDC1 n typemeter listy missing ';' on line above) h  LDC1 : '[' expectedemeter listy missing ';' on line above) 6: 'DO' expectedtedtexpected line above)on line above) h  LDC1 7,: 'TO' or 'DOWNTO' expected in for st h  LDC1 : ']' expectedemeter listy missing ';' on line above) h  LDC1 : 'END' expecatementne above) h  LDC1 8: 'IF' expectedTO' expected in for statementne above) h  LDC1 tedeter listy missing ';' on line above) h  LDC1 ': ';' expected (possibly on line above)on line above) 9: 'FILE' expected' expected in for statementne above) h  LDC1 :$: Error in (bad expression)tatems.DRrPSys:user>newutils> LOADCURSSHOWPROGQUITPROG.SCREENSIZE Set the size of the screen.IO_INIT IO_Init.Ph  LDC1 : Integer expectedssibly on line above)on line above) h  LDC1 : '=' expectedcteASPASboot>(BSETSEARCH {Parm} Modify search list. "SetSearch CR" will promIO_UNIT IO_Unit.PASSAS9STATISTICdssibly on line above)on line above) h  LDC1 : 'BEGIN' expectedssibly on line above)on line above) h S + | - Turn printing of statistics on or off." Sys:user> IO_OTHER IO_Others.PAS(allows use of default file LDC1 : Error in declaration part line above)on line above) h  LDC1 : error in part line above)on line above) h  LDC1 : '.' expectedeld-list>part line above)on line above) h  : Error in simple typelynUTIB 8  h  LDC1 : Identifier expectedelynUTIB 8 LDC1 : '*' expectedeld-list>part line above)on line above) h  LDC1 : 'Interface' expected>pa h  LDC1  : 'PROGRAM' or 'MODULE' expectedUTIB 8  h  LDC1 :rt line above)on line above) h  LDC1 : 'Implementation' expected line above)on line above) h   ')' expected 'MODULE' expectedUTIB 8  h  LDC1 : ': ' expected'MODULE' expectedUTIB 8  LDC1 : 'Unit' expected' expected line above)on line above) h  LDC1 : '..' expecteded' expected l  ove) h  LDC1 g,: Identifier is not of the appropriate classne above) h  LDC1 h: Undeclaesult type can't be re-specifiedLDC1 {-: Missing result type in function declarationan't be re-specifiedLDC1 red identifierthe appropriate classne above) h  LDC1 i: sign not allowedifierthe appropriate classne above) |: F-format for reals onlyfunction declarationan't be re-specifiedLDC1 }/: Error in type of standard procedure h  LDC1 j: Number expecteddifierthe appropriate classne above) h  LDC1 k: Incompatibl parameter't be re-specifiedLDC1 ~6: Number of parameters does not agree with declaratione-specifiedLDC1 e subrange typespropriate classne above) h  LDC1 l: File not allowed here typespropriate classne above)  : Illegal parameter substitutionagree with declaratione-specifiedLDC1 -: Result type does not agree with declarah  LDC1 m: Type must not be real typespropriate classne above) h  LDC1 n,: typetionclaratione-specifiedLDC1 : Type conflict of operandse with declarationclaratione-specifiedLDC1 : must be scalar or subrangene above) h  LDC1 o#: Incompatible with part subrangene above) h  Expression is not of set typeth declarationclaratione-specifiedLDC1 : Tests on equality allowed onlyh declaration LDC1 p: Index type must not be real> part subrangene above) h  LDC1 q+: Index type must be claratione-specifiedLDC1 : Strict inclusion not allowedlyh declarationclaratione-specifiedLDC1 : Fila scalar or a subrangeene above) h  LDC1 r: Base type must not be realr or a subrangeene above) h  e comparison not alloweddlyh declarationclaratione-specifiedLDC1 : Illegal type of operand(s)ddlyh declarationclarLDC1 s*: Base type must be a scalar or a subrangeeene above) h  LDC1 t/: Error in type of standaatione-specifiedLDC1 !: Type of operand must be boolean declarationclaratione-specifiedLDC1 -: Set eleentne above) h  LDC1 ;: Error in variable (bad expression)tatementne above) h  LDC1 <:rd procedure parameterabove) h  LDC1 u : Unsatisified forward referenceedure parameterabove) h   'FROM' expectedle (bad expression)tatementne above) h  LDC1 =: 'EXPORTS' expected(bad expression)tatementnLDC1 v;: Forward reference type identifier in variable declaration LDC1 w=: Re-specified params not OK e above) h  LDC1 >: ',' expectedpected(bad expression)tatementne above) h  LDC1 e: Idefor a forward declared procedure LDC1 x': Function result type must not be FILEard declared procedure LDC1ntifier declared twicepression)tatementne above) h  LDC1 f: Low bound exceeds high boundssion)tatementne ab y": File value parameter not allowed FILEard declared procedure LDC1 zA: A forward declared function's r  ne-specifiedLDC1 : Type of variable is not arraypatibleubrangeclaratione-specifiedLDC1 3: Index type r non-localiongeneric pointerLDC1 &: Real or string tagfields not allowed non-localiongeneric pointerLDC1 is not compatible with the declarationione-specifiedLDC1 : Type of variable is not recordith the declarationione-s&: Previous declaration was not forward non-localiongeneric pointerLDC1 : Again forward declaredas not forward nopecifiedLDC1 B: Type of variable must be non-generic file or non-generic pointerLDC1 : Illegal parametn-localiongeneric pointerLDC1 !: Parameter size must be constantrward non-localiongeneric pointerLDC1 :er substitutioneneric file or non-generic pointerLDC1 ': Illegal type of loop control variablefile or non-generic po Missing variant in declarationtrward non-localiongeneric pointerLDC1 .: Substition of standard proc/func not alloweinterLDC1 : Illegal type of expressionol variablefile or non-generic pointerLDC1 : Type conflictof expdaliongeneric pointerLDC1 : Multidefined labeldard proc/func not allowedaliongeneric pointerLDC1 : Mulressionol variablefile or non-generic pointerLDC1 !: Assignment of files not allowedriablefile or non-generic pointetideclared labelard proc/func not allowedaliongeneric pointerLDC1 : Undeclared labelbelard proc/func not allowedalirLDC1 3: Label type incompatible with selecting expressiongeneric pointerLDC1 : Subrange bounds must beongeneric pointerLDC1 : Undefined labellbelard proc/func not allowedaliongeneric pointerLDC1 : Error i scalarelecting expressiongeneric pointerLDC1 : Index type must not be integerelecting expressiongeneric pointern base setelard proc/func not allowedaliongeneric pointerLDC1 : Value parameter expectedroc/func not allowedaliongeLDC1 0: Assignment to standard function is not allowediongeneric pointerLDC1 .: Assignment to formal functineric pointerLDC1 : Standard file was re-declaredunc not allowedaliongeneric pointerLDC1 : Undeclared on is not allowedediongeneric pointerLDC1 : No such field in this recordn is not allowedediongeneric pointerLDC1external filelaredunc not allowedaliongeneric pointerLDC1 : Size of types are not the samenc not allowedaliongeneri : Type error in readhis recordn is not allowedediongeneric pointerLDC1 %: Actual parameter must be a varic pointerLDC1 ': Pascal function or procedure expectedallowedaliongeneric pointerLDC1 %: Constant Expresablet allowedediongeneric pointerLDC1 0: Control variable cannot be formal or non-localiongeneric pointerLDC1 sion too complicatededallowedaliongeneric pointerLDC1 : Type is not parametrico complicatededallowedaliongeneric poment type must be scalar or subrangeclaratione-specifiedLDC1 &: Set element types must be compatibleubrangeclaratio : Multidefined case label be formal or non-localiongeneric pointerLDC1 : No such variant in this recordmal o   reentriesonntiononpointerLDC1 : Too many segmentsstants in this procedureentriesonntiononpointerLDC1 :xtn another segmentedgal QCodeononpointerLDC1 -: Error in writing code file, not enough roomdgal QCodeononpointer Too many externalstants in this procedureentriesonntiononpointerLDC1 : Too many local filesnts in this procedureenLDC1 ): Error in reading INCLUDE or IMPORT fileroomdgal QCodeononpointerLDC1 -: Error in writing list file,interLDC1 ;: Parameter type does not match type of forward declarationpointerLDC1 9: Number of parametertriesonntiononpointerLDC1 : Expression too complicated this procedureentriesonntiononpointerLDC1 : Strs does not match forward declarationonpointerLDC1 &: Attempt to open library unsuccessfulforward declarationonpointeing constant too longed this procedureentriesonntiononpointerLDC1 ): Invalid character in numerical constantreentrierLDC1 5: Forward Declaration not permitted in Export SectiontiononpointerLDC1 $: Not enough room for thisonntiononpointerLDC1 ,: Division by zeror in numerical constantreentriesonntiononpointerLDC1 -!: No cases operationin Export SectiontiononpointerLDC1 ': Comment must appear at top of programExport Sectiontiononpointer provided for this valueconstantreentriesonntiononpointerLDC1 . : Index expression out of boundseconstantreentriesonnLDC1 : Variable must not be Packedof programExport SectiontiononpointerLDC1 4: Parameter List does not mattiononpointerLDC1 /': Value to be assinged is out of boundsntreentriesonntiononpointerLDC1 0!: Element expch previous declarationntiononpointerLDC1 ': Error in real number - digit expecteds declarationntiononpointerLDC1ression out of rangeboundsntreentriesonntiononpointerLDC1 17: Internal Error - Attempt to generate an Illegal QCodeon -: String constant must not exceed source linearationntiononpointerLDC1 : Integer constant exceeds rangedonpointerLDC1 2&: Internal Error - EStack is not empty an Illegal QCodeononpointerLDC1 3.: EStack Overflow source linearationntiononpointerLDC1 : 8 or 9 in octal numberds ranged source linearationntiononpointerLDC1  - Expression too complicatedgal QCodeononpointerLDC1 4#: Internal Error - EStack Underflowcomplicatedgal QCodeononpo ': Too many scopes of nested identifierse linearationntiononpointerLDC1 ): Too many nested procedures or functinterLDC1 ,: Forward declaration was in another segmentedgal QCodeononpointerLDC1 : Implementation restionslinearationntiononpointerLDC1 2: Too many forward references of procedure entriesonntiononpointerLDC1 riction another segmentedgal QCodeononpointerLDC1 : Implementation restriction another segmentedgal QCodeononpointe: Procedure too longeferences of procedure entriesonntiononpointerLDC1 +: Too many long constants in this procedurLDC1 : Illegal character in textn another segmentedgal QCodeononpointerLDC1 : Unexpected end of input  ! dgal QCodeononpointerLDC1 : Switch is not unique Longn bodyocedure roomdgal QCodeononpointerLDC1 (: Exception not defined for this Handler roomdgal QCodeononpointerLDC1 5: Handlers and Exceptions may not be Forward DeclareddeononpointerLDC1 *: Handler and Exception are not compatiblerd DeclareddeononpointerLDC1 ': Handler may not be global in a Moduleblerd DeclareddeononpointerLDC1 ": Return not followed by line feedoduleblerd DeclaredQDIS QDIS.PASgram (allows use of default fileSHR *SCAVENGER Run the d I deononpointerLDC1 : File name too longd by line feedoduleblerd DeclareddeononpointerLDC1  : Cannot rais  not enough roomdgal QCodeononpointerLDC1 (: Call not allowed in separate procedure roomdgal QCodeononpointerLDC1e the exception ALLedoduleblerd DeclareddeononpointerLDC1 : Undefined Errore exception ALLedoduleblerd Declareddeon : Include file not legalparate procedure roomdgal QCodeononpointerLDC1 : Error Reading Symbol Tablete pronpointerLDC1 ocedure roomdgal QCodeononpointerLDC1 : Error Writing Symbol Tablete procedure roomdgal QCodeononpointerLDC1  : Import file not legalTablete procedure roomdgal QCodeononpointerLDC1 : Module not foundlegalTablete procedAND 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO ELSE END EXCEPTIOure roomdgal QCodeononpointerLDC1 : Error in reading code filete procedure roomdgal QCodeononpointerLDC1 9EXPORTS 1FILE .FOR FORWARD "FROM 3FUNCTION GOTO HANDLER :IF IMPORTS 0IN !: Module may not have a main bodyocedure roomdgal QCodeononpointerLDC1 : Internal Compiler Errorain bodyocedure  )LABEL MOD 'MODULE /NOT &OF OR (OTHERWIS4PACKED +PRIVATE 2PROCEDURroomdgal QCodeononpointerLDC1 : Version Switch Too Longain bodyocedure roomdgal QCodeononpointerLDC1 :PROGRAM !RAISE ;RECORD -REPEAT SET *THEN TO TYPE UNTIL VAR WHILE  Copyright Switch Too Longn bodyocedure roomdgal QCodeononpointerLDC1 : No Such Switchch Too Longn bodyocedure roomWITH ! " BYBYBYBYBBYBYBYBYBYBYBBYBYBYBYBY\BBYB}Cc$`` 39>DEFDYX.ao'c$ETOS`  c$o`` 'aac=`` ec<>` bBBYB]}'IK+*},k*k,)4}k*09DXk+ K}k*H0J+I\k*H*k*k,)k+]nBTc<=` Bc<`` 3c>=` "c>`` dlac$o`` 'Qonp)GnAn)n@) nAJC;DnLHE#`E`>EDJKAAH@nMC>CNȊBHB=H=CHCC'ac$`` & 3c$ c$ `` ac$`` nHnp)йc$ ]BBYBYBYBYX(aBHmH9'-@HAAH@EHEC#`E`>>CN]BJBCJC=J=C* AJ@@JAEJEJc$`` c$ ac$`` c$ ȼac$`` ac$`` c$ ȼac$`` ac$`` c$ ȼac$C>CN}n`aN}aNo]}aN}aNn]}aN}aNn] c `` ac$`` c$ ȼac$`` ac$`` c$ ȼac$`` ac$`` ac$`` c$ ]acc&Routine to Disassemble ( to quit)?` c}cP`P` c )}Pa*k*,Ak*JDX 3cYou don't$`` ac$`` ac$`` c$ ] aaac$p`` c$o`` BJnHc$`` c$ Min,Max,Defau have that procedure` c Rk* c c8Routine Lex Lev PS RPS LTS Enter Exit` c 9lt IC` c$ pomq)fc$ ` ` c$ccase ` c$m`` c$: ` aBJnH9Jc$`` c$ mHmq);"9.Ͽ9}ʷcɉ"`` }c` ` }c`` }c`` }c`` }'}'%c К]ac$`` ac$m`` am` aJc$`` c$ ] CNc$c`` )X  Exception` c %}c`` }c`` c "H"9}8};nJqr)}}qHqr)}㱁]c$Ɋ=`` c$: ` ȊB aȊ'!ac$`` ac$`` T'K ac$r '` nmp) ``>c` )DBYDY8DY?DDYG[DY]aDYcBYejDYm|DYDYDYDYBYBYDYaNo3c$ mHmp)'3c$ c$ ]}aN'3}'c$SHIFT` c$ROTATE` i}DYBYBYDYDYBYBYBYBYBYBBYBYBYBYBYBYBY 9>DEFDYkBY}BYB,}N }NBBYBYBYBYX c$m`` BHmH9Jc$`` c$ ]BBYXϔ}YBYBYBYBYBYBYDYBYBYBYBYBYBYBlBY~BYBYBYBYBYBYBYBYBYaN'I}Cc$`` }c$`` c$ Elements/Word Field Width` 0}(}c$`` }C(" # c$File ` c$cl` c$) Procedure ` c$Ɋ``  3c$ c$ 9;""m)99﷉"H   C D x z      ""m)c$.Lex Lev PS RPS LTS Enter Exit` c$ 9}ʷ}c$`` }c$`` }c$`` !a!"H""F)9ac$ ]8)* z|}c$`` }'}')c Exception` c \%}c`` }c`` c c$ 9`BD*a='B9+Ⱥ  a+TcType to continue` aNn (`c}a()*lnL N   NNc ```` c```` c```` c````  c cQCode Disassembler `   C D x z       cV1.5` c c4LQCodes```` c Input File: ` clcP`P` c "lF"F)1lFILESYSTFileSystem.PASallows use of default fileSHR *SCAVENGER Run the dFILEDEFS FileDefs."azDXl"l" JN"H""F)ϼl.SEGa'7ll.SEGPASASboot>(BSETSEARCH {Parm} Modify search list. "SetSearch CR" will promGETTIMESGetTimeStamp.PAS9STATISTICJP3ldc"c"a#cOutput File[Console:]` cCcP`P` c C'CCONSOLE:PS + | - Turn printing of statistics on or off." Sys:user> IO IO.PAS Part | - Turn swapping on or off. c$ɜCc```` #``>EDA@`aK a;"F"F);-*;``c` 9;Part is the partition for swapping.R +TYPE FilIO_INIT IO_Init.PASext file File. runbX$9 `a%9``` 99﷜9a9ɜGʷG巜GaGaGaGaGs.DRrPSys:user>newutils> IO_UNIT IO_Unit.PASS D.42 e-boot Pascal.RunR *SCAVENGERaa!a!"H""F)9ac$ ]8)* z| Run the dIO_OTHER IO_Others.PAS(allows use of default fileSHR *SCAVENGER Run the X XXXͰX͜X͈XBD*tX`XLd'>'0c$Undefined QCode ` c$Ɋ`` c$ a)*lnL N   # $ LNOT EQUBOOLNEQBOOLLEQBOOLLESBOOLGEQBOOLGTRBOOLEQUI NEQI LEQI LESI GEQI GTRI EQUREALNEQREALLEQREALSTLATE LINE ENABLE RAISE LDAP UNDEFNDUNDEFNDUNDEFNDUNDEFNDUNDEFNDUNDEFNDINCDDS UNDEFNDUNDEFNDBREAK REFILL dPERQ_STRPerq_String.PASllows use of default fileSHR *SCAVENGER Run the dDYNAMIC DYNAMICLESREALGEQREALGTRREALEQUSTR NEQSTR LEQSTR LESSTR GEQSTR GTRSTR EQUBYT NEQBYT LEQBYT LESBYT GEQBYT GTRBYT EQUPOWR.PASS56$)89f $ STREAM STREAM.PAS lNEQPOWRLEQPOWRSGS GEQPOWRSRS EQUWORDEQUWORDABI ADI NGI SBI MPI DVI MODI CHK FLT  pPSys:user>newutils> POS D.42 e-boot WRITER WRITER.PASQP x`"w>'TNC RND ABR ADR NGR SBR MPR DVR INN UNI INT DIF EXIT NOOP REPL REPL2  fREADER READER.PAS 1=QD,"MMS MES LVRD LSSN XJP PSW RAST-OPSTARTIOBLOCK INTOFF INTON LDLB LDLW LDL0 LDL1 LDL2 "[]$]$ COM newcomp>QDIS INIT GETNUM GETBYTE NEXTBYTELASTBYTEGETWORD NEXTWORDLASTWORDSELECTPRPRINTPRCLDL3 LDL4 LDL5 LDL6 LDL7 LDL8 LDL9 LDL10 LDL11 LDL12 LDL13 LDL14 LDL15 LLAB LLAW STLB GETPROCBWRITEIC WORDALIGDIS0 DIS1S DIS1B DIS1W DIS2B DIS2BW DIS2WB DIS2W DIS3WBB DIS3WBW DISXJP DISEXGO NEXTQCODSTLW STL0 STL1 STL2 STL3 STL4 STL5 STL6 STL7 LDOB LDOW LDO0 LDO1 LDO2 LDO3 LDO4 DISASSEMDOPROC newutils> POS D.42 e-boot WRITER WRITER.PASQP x`"w>'LDO5 LDO6 LDO7 LDO8 LDO9 LDO10 LDO11 LDO12 LDO13 LDO14 LDO15 LOAB LOAW STOB STOW STO0  fREADER READER.PAS 1=QD,"STO1 STO2 STO3 STO4 STO5 STO6 STO7 MVBB MVBW MOVB MOVW INDB INDW LDIND IND1 IND2 "[]$]$ COM newcomp>QDIS INIT GETNUM GETBYTE NEXTBYTELASTBYTEGETWORD NEXTWORDLASTWORDSELECTPRPRINTPRCIND3 IND4 IND5 IND6 IND7 LGAWW STMW STDW SAS ADJ CALL CALLV ATPB ATPW WCS JCS GETPROCBWRITEIC WORDALIGDIS0 DIS1S DIS1B DIS1W DIS2B DIS2BW DIS2WB DIS2W DIS3WBB DIS3WBW DISXJP DISEXGO NEXTQCODLDGB LDGW LGAB LGAW STGB STGW UNDEFNDUNDEFNDRETURN MMS2 MES2 LDTP JMPB JMPW JFB JFW LDC0 LDC1 LDC2 LDC3 LDC4 LDC5 LDC6 LDC7 LDC8 LDC9 LDC10 LDC11 LDC12 LDC13 LDC14 LDC15 JTB JTW JEQB JEQW JNEB JNEW IXP LDIB LDIW LIAB LIAW STIB STIW IXAB IXAW IXA1 LDCMO LDCB LDCW LSA ROTSHI STIND LDCN LDB STB LDCH LDP STP STCH EXGO LAND LOR IXA2 IXA3 IXA4 TLATE1 TLATE2 TLATE3 EXCH EXCH2 INCB INCW CALLXB CALLXW LDMC LDDC LDMW LDDW $ % Sides 2 Density SINGLE Fast ! PASCAL.BINARY - PASCAL COMPILER SEG FILES ! Created 11 Jun 81 15:17:20 Get PASCAL.SEG  PASCAL.SEG Get COMPIN.SEG COMPINIT.SEG Get CODEGE.SEG CODEGEN.SEG Get DECPAR.SEG DECPART.SEG Get BODYPA.SEG BODYPART.SEG Get EXPEXP.SEG EXPEXPR.SEG Get PROGRE.SEG PROGRESS.SEG Get PASCAL.SYN PASCAL.SYNTAX Get PASCAL.RES PASCAL.RESWORDS Get QDIS.SEG QDIS.SEG Get QCODES QCODES  ! PASCAL.BINARY - PASCAL COMPILER SEG FILES ! Created 11 Jun 81 15:17:20 Link PASCAL Link QDIS % & & ' ' ( ( ) ) * * + + , , - - . . / / 0 0 1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 : : ; ; < < = = > > ? ? @ @ A A B B C C D D E E F F G G H H I I J J K K L L