< ML< MM< MM< M MM MN Mrc,Dels,Broke); RemDelimiters(C WriteLn('****Files not equal at addr ',i:1, '|',j:1); Dispose(pDskBlk); exit(DoVerify); dvl vjIO_INIT IO_Init.PASf:*,  cmuftpxfer :f:?LERYf:DEUUTILPROGUtilProgress.PASX>dndmA dD d|0Fe| A |6* )DYNAMIC DYNAMIC.PAS##\  2(%X%:0 : XFERFSENXFERRSENXFERRECESTARTSTAUPDATESTSTOPSTATSHOWSTATCHECKPORGOTT +SYSTEM (*STREAM  WRITER IOERRMESALLOCDISARIT cmuftpxfer pIO_UNIT IO_Unit.PAS%%%%cmuftpxfer N :t 4> t-W%A-ZhDISPLAY CMUFtpDpy.PAS{-   -\S cmuftpxfe 2(%X%:0 : XFERFSENXFERRSENXFERRECESTARTSTAUPDATESTSTOPSTATSHOWSTATCHECKPORGOTTmH Ƞ CMUFTP.RUNH DISKIO <READDISKJ"LOADER ,"READER  PERQ_STR SCREEN IO_OTHER IO_Others.PASSSiWQɿXDmake.cmIO_INIT EXCEPT DYNAMIC CLOCK FILEDEFSVIRTUAL   RUNREAD rA+ndnA  ,=~ /pxf |A|6 *)GETTIMESGetTimeStamp.PAS>f:XR.PAS mf:c`m#\STREAM STREAM.PASs:sys>make.cmdD d|0Fe| A |6* )DYNAMIC DYNAMIC.PAS##\ U3u}3}3}?3PH>3Mw|;K{3Mw|V3Mw,3TH3Mw|4 ,?T|V3Mw,3?D3Mw|?-3Mw|?,3Mw|?+3Mw|?*3Mw|?)3Mw|V3Mw,?(3Mw|?'3Mw|V3Mw|3WH,UH"H HHHHHHH3Mw|?.3Mw|?/3Mw|?23Mw|?53Mw|?83Mw|?;3Mw|?>3Mw|V,3Mw|?AHH3?Ɍ3OV3Mw|;L| ?S?`,3MH?Y4?[4?]4?_44;aH?eȜ;cH?fȜ3MH3MH;gH?kȌ;iH?pȌ3MH3MH?rȼ3MH?qȼ;lt;nt3MH3,?x,?y3MH3MH,?~ ,? 3MH3MH,?\,?\3MH3MH,?l,?l3MH3MH,? 3MH,?l3MH34H?<4H?<3MH3MH34H?L4H?L3MH3MH32,?,3MH"H,?,3MH5H,?,3MH6H8,H:?,3MH5, ?,3MH',?,3MH#q,J?,3MH%*,?,3MH!HB,`?,3MH34H0H,H?,3MH3H$H H;H?,3MH3H4H0H?,3MH;H?3;`?4;H????;a??|3?3H??$`????,I|?Ȭ?3?-,I|?Ȭ??,33MH>I?;a? ??$a;??|3?c;`? ,3MH;cp??????|3MH,I?,3MH3/?$`???? ,I|?#ɬ?3%?'?$$a?())*,I|?-ɬ?%?|;cp31IV3I??0,:;;;;;@I4I$9w|?1|;4dA?=;>t;?eBCD?,?|,?|,?|,?|?3OI?ɼ,R?|,WIY?T;Ut4OI|;VgZ[a;;;;;lI?,?|,?|,?|,?|;\fm;kgnot~;;;pc?,?|,?|,?|,?|;qb;c;;c?,?|,?|;b??,c?|,?|;a;`;a,?|?3??$dI?|3I?Ό3I3O4J?|??3MH3MH3MH3MH3MH3MH3MH3MH3MH3MH3MH3I$J|$I3}3I3MH?3I3{?$ J>3I?3}??>3I?%3}?3I? MNM MNN MNN M NN MN^ end; for i:=0 to Len-1 do ks } DirSegs:=(CurFileCnt + (EntPerBlk -1)) div EntPerBlk; for i:=1 to DirSegs do begin { write out each directory b2 FILEDIR J FILEACCE| MOVEMEM IO_PRIVAH SCROUNGEJ" CMUFTP !m<JSCUTILtPUPPACKE(%STRINGUT6&GLOBALSTOm`l!READER  STREAM WRITER  DYNAMIT IO <'STRINGUT6&PUPPACKE(%PUPPACKEm<(%STRINGUT6&STRINGUT0mt6&STREAM SYSTEM *IO_OTHERRANDOMNUᓖKd*d165:boot>CMUFTPd165:boot>MiscUtild165:boot>CMUFtpInterd165:booMORY hSCREEN  IO_UNIT GETTIMESB FILEDEFSWRITER * GETTIMESB FILEDEFSSTREAMSTREAM MISCUTILtINTERPRE GLOBALST!FILEHAND^"DISPLAY r#EFTPUTIL$PUPPACKE(%STRINGC MISCUTILtCMUFTP DISPLAY r#EFTPUTIL$PUPPACKE(%STRINGUT6&FILEHANDYmЖ ^"STREAM WRITER  DYNAMIC IO jY<'IO_OTHERIO_UNIT IO_INIT TRANSFERMmt>CMUFtpStated165:boot>CMUFtpFiled165:boot>CMUFtpDpyd165:boot>EFTPUtild165:boot>PUPPacketd165:boot>StringUtil d165 IOERRMES * ALLOCDISl * STREAM WRITER  *DYNAMIC PERQ_STR UT6&SYSTEM *MISCUTIL)m tDYNAMIC STREAM WRITER  SYSTEM *IO_OTHERWRITER  DISPLAY r#FILESYST  DISKIO READDISK"ALLOCDISGETTIMESB FILEDEFS$`(DYNAMIC STREAM WRITER  FILEHAND^"DISPLAY r#UTILPROGx)GETTIMESB FILEDE:boot>IOd165:boot>CMUFtpXFerd165:boot>UtilProgressd165:boot>RandomNumbersTPUTIL$GLOBALST!PUPPACKE(%STRINGUTDISKIO READDISK"GETTIMESB FILEDEFSARITH ARITH j * GETTIMESB FILEDEFSDIIO_UNIT IO_INIT IO <'STRINGUT6&PUPPACKE(%INTERPRE4m,* DYNAMIC READER  ARITH STRINGUT6&DISPLAY _pȘ r#WRITER  CMUFTP SCREEN  STRINGUT6&EFFSFILESYST  IO_OTHERIO_UNIT IO_INIT IO <'EFTPUTIL$GLOBALST!PUPPACKE(%STRINGUT6&UTILPROGARNx)DYNAMIC SCREEN  RANDOMNU*FILESYST  GETTIMESB FILEDEFSSTREAM SKIO q *ΐ <STREAM WRITER  *DYNAMIC MEMORY hSYSTEM *SCREEN  IO_UNISTREAM WRITER  CMUFTP TRANSFER`(EFTPUTIL$GLOBALST!FILEHAND^"DISPLAY r#MITPUTILdm$ DYNAMIC STREAM WRITER  SYSTEM *IO_OTHERIO_UNIT IO_INI6&UTILPROGARNx)DYNAMIC SCREEN  RANDOMNU*FILESYST  GETTIMESB FILEDEFSSTREAM SYSTEM *IO_OTHERRANDOMNUᓖKd*d165:boot>CMUFTPd165:boot>MiscUtild165:boot>CMUFtpInterd165:boo3I3I3I3I3I3I3I3I3I3I? ,;ap;dp3 J>?3MH;Ap3MH3MH?c??`?;bp>=J?3MH3JOS&O&OO& OO&OO&P OegBuf; FlpBlk(DirStart+(i-1 ' Last Block"'); if not Ask('Continue? ') then begin { IntrOnOff(On) }; e(   default.profileESSDATE: Sort by last access (read) date.PceJ)-UPDATEDATE: Sort by last update (write) date.PceJ) CREATdirectories and the FileSpec matched against all leaf files`cccD If an output file is specified, then tric`cc< "'*" matches "*"; other wild cards can be quoted also`ccc' The valid valu^QTOe }R3` SORT`} }帜e`ao)oEDATE: Sort by create date.PceJ)SIZE: Sort by file size.PcQwdĜeccche directory listing will`ccB be directed to that file: Use "infile outfile".`cces for are:`cc  mn)3c `cmJ)c`cmHccC The ` SORT` ͹ͯ@F`0** Cannot have multi-column list with delimiters`9 Direct is used to list the files in the File System.`cc) Valid direct commands have the form:`cc# The wild cards are as follows:`cc' "*" matches 0 or more characters`cc' Sort switch requires an argument. Specify as "/Sort=arg".`cc' The valid arguments for Sort are: `cV`}`;`}` df zIQY}}]}f}c; Direct Dirs>FileSpec ~ outFile /.../`cc@ Both the directory part (Dirs) and"&" matches 1 or more characters`cc& "#" matches exactly 1 character`cc "'0" matchese mn)3c `emJ)c`cmH\]c } } };P帼c}fc}aeke (ke ( `Direct`}7c}5c}9cc};adkd `};`}9cɺ}5eJ)%NOSORT: Don't sort the directory.PceJ)%NAME: Sort by name of the file.PceJ),ACC file part (FileSpec) can`cc; have wild cards. The Dirs part is matched against all`cc@ any digit`cc* "'A" or "'a" matches any alphabetic`cc( "'@" matches any non-alphanume帜c `ao )o()}R4`}`ozQ0͉Q0u@3}333?c??3@O?.;Ap3.N35N3N,1N|3 N|?, N|3 |?3 N|g33>N?,3N6N6N$N,(O\?l$N,(O\?(35N3#N3'N$9N|3"Nf?(*Ap3/?A?.?->3?%$/N$2N? 34N3!N3N3N3N?G3:N3;N?<3BN|3>N3BNF?N3N4E3(O](ț*(;}dc}>`3}dc}c}am( }d]mnnmJHM2km`n`c}c}ɺqm+mrJ*rJmJ,#HǜJmJrJqHrn)qHn*nqJJ, HǜJqHJn Zp`˼}  Hp`˼}  6pJ} pJ}  ds pHfmn+\ ǜmqJ߭J cc`mqJ߭J rsHs+c `rH&rMJ mx) crHmHnH^coc } c``}  c``}c` `} c``:` `JPc `2mH2k2n,k2m*$c** Internal Error`cH} mk2J߭J Pts*mtJ߭J 帛ms[]mnnmJHM xmH xn,xm**co** Internal Long Error`cH} mxJ߭Jts*mtJ߭JJmJn+ϞJ㭁J㭂Jm`n`c}c}ɺ qm+mrJ*rJmJ,#HǜJmJrJqHC) JI) JLQ'acN Name Blocks Bits LastBlk Kind Creatcc:`:` `JPc `cc:`:` `JPcJ߭J 帛} 7sm+$sJsm+msJ߭J Μ} 6tn)%tHtn)mtJ߭J ts*-mtJ﷜msJ߭J﷜} sm+!sJsm+msJ߭JϜ} tn)!tHtn)mtJ߭Jts*,Hrn)qHn*nqJJ, HǜJqHJn[ȉ'Xop)moJooH' m`n` m`n` ȉ)ion Update Access`cJqs)VmpJ߭J߭``}ʷ}} ʷQ'cr` c `cc:`cc `0`: ``JPc `cc:`:mtJߜmsJ߭msJutk2's2-mk2J߭mk2JߜmsHJ߭msHJu}t}s]n/pk/)H}pJ P}mtJ߭mtJߜmsJ߭msJutx's 9mxJ߭mxJߜmsHJ߭msHJu}t}s]mJ}ʷ}} JI) JLJoq)dp`mnJ߭J cc`@*c | `mnJ߭J ccmpJ߭J cc`@*c | `mpJ߭J cc`mpJ߭J n mx) cmH$ga,mN?jά49?k?tάs$pa?r3(O|^3v3w3x3N?,+Pp;Ap?N-N?|3????N$N,?|;Ap?.$N3(Olb?;Ap3343+Pp??3$?%3N3N3$?A3N3N333Nb,(O|?|?,(O|?|?3?3/N$N?|;;?G?.35N3N3N3N?g3N3N3N3N3N3Gp?g?93$N3N 33N,,|?,3N3N333N3N3N;Gp?,fO|?|?,fO|?|?>fO|?f|333343N3HO33"343N4 ?4 ?4 ??4 3(O|_? ?|3???30O?@??????3O??30O?4'O$!a3HO4O4O4O,6O,FO$0Oh?)3?<3?<3?<31}?3,$1O$4O?0|?,*O,,,O,,.O,,=O,?D,343?<3HO;Ap;Gp??3?fO|?f|??f|3?@?3f|??f|?c?d | * Initialize a file. * for allPcJIO IO.TEXTTEXTSCREEEN SCREEN.TEXTQHATTSTREAM STREAM.TEXTXT>WRITER WRITER.TEXTTEXT)@WRITE Write a block of a filePcJ)?DIRECTORY List the files on DiskPcJ)>SCAVANGE Rebuild the directoryPc J)IDIAGREAD &QP&QQ&QQ& QQ&QQ&R Q begin Stat number of sides and the density. If floppy is not loaded or ready, the answer will be 1 side, ``JPc `cc:`: ``JPc `cc:`c`c4}}oH`}oJ`JdP]}}fdc}fɺɜJ cɜJcaund.`c'H')H)|'k pcc --- In `cc}f`c --- `ccc*anned.`ccc2*** No room in memory to allocate sorting arrays! `cc*** Names will not be sor````))Direct V4.2. Type "Direct/Help" for help.PϘw36cFile for output: `cpoHqHͤccTotal `cɊ``ch Blocks`c(H(<``c7`" "<<3$|k%c}fc}c}33J da͊mJߊH1J cc}`amJߊH^]* No files found.`c*H*]'()*"$3}d3}3d3}fd`" :}f"d帛 "﷛""5ted.`cc\'\'%c}``H`m``cP` c}``H`m``c `m``wcd`d`cc Output will be directed to file `ccw`ccɜwc````Q(,`$ $5<<5巛$<<JdP]}:}}J`3}fdc}c}ak'c `}f`\}fdP3}d3}3d3}fdk` ﷛" "3巛 c7`kΔcc Grand Total: `Q(Acɉ(``c block`(( sc`m``c`]Jno)=np*c`Device #`cn``c} Device Name: `pcc``c```c7`cc3dcc+c^c&ɺaϑ^*3+*>3c c`Jc}: }:.DR3φ}}`}J`Jdc}>`F}>},cc --- In `cc}f`c --- `cc`J` Q(ccc in `cɉ'``c file`'( sccu in `cɉ)``c director`)(cc mq)mJr r n'ϲc `rcc`c : Start = `r ac` ` I`cciDirect `ccV4.2`c `cc`& ic Files matching `cc^`cP }Jdc}>}`a]}>`ao'Ec"***WHERE HAS THE PARTITION GONE?? `}cJ'(c** No files found.`cX'#c 1 file found.`c-cɊ``c files foies` ycce out of `cɉ*``c director`*(cies` ycc sc End = `r ac` ` I`c' Free = `r ac``cmH,nHͽc````c````I>0/?c}k/ )k0K?JM'?>H>`>`<``cHead not in [0..`cɉ``]cc\ rrsscFormat m$n(m`n`a(*}`*``˼($ɛ&&(/)"FSBlkWrite: Raw I/O Error on writeP ]ci)QPcgcic\)QPcg\'Hc1Illegal command usage. Type help if you need it.`c po0sk0)nm1rk1)((xsKrMHr,(ߛ(߭^HH$$$*"`*``˼($ɛ&\ )\PaAAI' Jo@n@p)#A`@`"``B(mH@H@m(PccCHECK: `&(cc/FormatTrack: Raw I/O Error trying to seek track`cc Hard status: `&c``ccm``c blocks can not be read.`c]A Am)8@@n)A`@`"``@H@#cAHAcc Soft status: `&c``I`cc Cylinder: `cs``ccHead: `cr``c number range errorP帺c!```!``"c` !``$ FILESYSTFileSystem.PAS Turn swapping on or off. Partk.PASoweof d5  "=894j $ `DISKIO DiskIO.PAS l t. UTILPROGUtilProgress.PASn=directsegs>directIMPOLDIRECTORY Give a directory of files. "Direct /HeMEMORY Memoratching `cc`cc+`c : `c3^d3+d3dHc ** Filename `cc`cJ is malformed.`cc0c#K';< is the partition for swapping.+TYPE File FILEDEFS FileDefs.PASile File.oslbX$$pPsys:exp>utility>file> POS D.5 p-boot PaARITH Arith.PASQP4x`"w>'y.PASOR (;DISMOUNT Device Dismount the device specified by Device.RAISE ;RECORWRITER WRITER.PASallows use of`cJ is malformed.`cc0c#K';<QRuvN P r t -^/`Psys:exp>utility>file> GETTIMESGetTimeStamp.PASboot Pascal.Run \FILEDIR FileDir.PASllows use of default fileSHR  default fileSHR *SCAVENGER Run the disk STREAM STREAM.PASply a simple help message.*+QRuvN P r t -^/`SYSTEM System.PASe.PASexp> She.SCREENSIZE Set the size of the screen.CMDPARSE CmdParse.PERQ_STRPerq_String.PASSbX$$*SCAVENGER Run the disk CLOCK Clock.PASSallows use of default fileSHR *SCAVENGER ----.5.R0LINK {File} LDYNAMIC DYNAMIC.PASm File.//S/EL5RN"i>K L  9:7b*`PASBSETSEARCH {Parm} Modify search list. "SetSearch CR" will promptFILEUTIL FileUtils.PAS9STATISTICS + PMATCH PMatch.PAS2 08:05:21>,,06 Jan 82 08:05:READDISK ReadDis Run the disk ALLOCDIS ALlocDisk.PASe /Help" for more details.EXPORTS 1FILE FDETAILS Par:part3>segs>direct=direct9  'V   JM'lH`l`C``DiskUp version: `c1.1`c: Disk patching program.`ccϚ*ccicP`P` c^uuB(  7XV"eJ.Md c}}߭}߭}]c}))}Pc}+ɺ})߭})߭}+]c}˼}}ɺ]}Pc}c*}boot }CLOCK CLOCK.PAS(allows use of default fileMPSHR *SCAVENGER Run the disk  c ,}c}H}}T L0H`}}T M0H`} `}$JanFebMarAprMayJunJulAugSepOctNov M clock.seglink.seg ioregs.segy.seg Dec}cKJ``J} `}qdM L0H`}q M0H`} `}} L0H`}} M0H`}J@J@mIP clock.segd/QZ-v)YtRX<[qd*###'#U]D^  :`}} L0H`}} M0H`}:`}} L0H`}} M0H`]2, 22H2 ROOT.DR:L5Q1&IRS SO SOOSS ('Directory Loaded'); TotFree:= if DirList = nil then DirList:=Tmp1 else Tmp2^.Next:=Tmp1; CurFileCnt:=CurFileCnt+1; writeln('Writing the DirectorB$ }p|gREADER READER.PASH"\8MOUNT Device Mount the deviRQ_STR FILEUTIL}zE)!DYNAMIC SCREEN  PERQ_STR FILEDIR J READDISK"ALLOCDISDISKIO ARITH FILEACCE| GETTIMESB FILEDEFSFILESYST  CMDPARSE@)" WRITER  ( F F 8 TYPEFILE {File} Type a file to the monitor. DISMOUNT F F 8 DISMOUNT Labels device inactive. MOUN5O# O# O scavenger.seg   ce specified by Device.DIRECT FINDBASEINITSWITINITSORTINIT DOHELP HANDLESWHANDLELISORT1 SORT LNGSORT1ASSIGNTILONGSORT ARITH FILEACCE| GETTIMESB FILEDEFSFILESYST  CMDPARSE@)" WRITER  (STREAM DYNAMIC FILESYST  FILEUTIL)!GETTIMESB FILEDEFSSTREAM SYSTEM *PERQ_STR T F F 8 MOUNT Labels device active. PATH F F 8 PATH Sets the current path. P&1GH\]|DOSORT ONECOLDISHORTFASLONGSLOWCHECKIFDADDIT REMOVEPADODIRSCAPROCESSOBREADTHFDOALLOCAFULLMEMOMYDISPLAimple help message.*+STREAM DYNAMIC FILESYST  FILEUTIL)!GETTIMESB FILEDEFSSTREAM SYSTEM *PERQ_STR #ShellCommands run' LINK.265 T T 8 LINK {File} Link the Pascal program File. run' LOGIN.265 F F 8 LOGIN AUSE F F 8 PAUSE {comment} Type comment and wait for RETURN. SCREENSIZE F F 8 SCREENSIZE Sets screevwxyQRSTUVWXYZ----.5.R0LINK {File} LDYNAMIC DYNAMIC.PASm File.//S/EL5RN"i>RANDOMNUᓖKd)#d165:boot>DIRECTd165:boot>UtilProgressd165:boot>PMatchd165:boot>FileUtilsd165:boot>CmdPar Enables use of Perq OS facilities. run' MAKEBOOT F F 8 MAKEBOOT Make a new boot file. run' CMUFTP F F 8 nsize for next command. SWAP F F 8 SWAP Turn swapping on or off. ? F F 8 ? 64ZFILEDEFSSTREAM SYSTEM *IO_OTHERPMATCH u( WRITER STREAM  (PEsed165:boot>RandomNumbers)!DYNAMIC SCREEN  PERQ_STR FILEDIR J READDISK"ALLOCDISDISKIOCMUFTP Retrieve/store files over ethernet. run' DIRECT F F 8 DIRECT Display files. run' TYPEFILE Print this message. #end ӥԥե֥ץإ٥ڥۥܥݥޥߥ /CMDPARSE CMDPARSE.PAS BAUD Link PERQ.FILES Link PATCH Link DR.MEMORY Link WRITEBOOT Link FILELIST Link CHATTER Link FLOPPYDUP Link DISKUP Li]}0+9).}, }} KH0Jq }o*}p,] (})k1J})ck0})Tk/})k.})k-})k,]"))$RThjault fileMPSHR *SCAVENGER Run the disk SETTSTAMSETTSTRIGETTSTRISTAMPTOSSTRINGTOBADTIME NEXTCH CMDPARSE:EXP>OS>CMDPARSE.PAS of default fileSHR *SCAVENGER Run the disk  '2)]2k 'c}/``k-'}\Pka+kz)kA+kZ)}\* c}\k`0++[npk0KJ``J3k0 , GETNUM SKIPSPAC cmdparse.seg initshell.seg profile.seg c}\ }3$JanFebMarAprMayJunJulAugSepOctNovDecPc}3 k0H0k0 ,}\}3k0KJ``J3k0 ,k-'c}1`c`k1+) k1H1k1P+ k1lH1k0BBYBYBYBY BY BYX+3k0'(k1M'k1dM'k1@@ IP cmdparse.seg/QZ-v)YtRX<[qd*###'#U]D^ k-'c}1`c`k1+) k1H1k1P+ k1lH1k0BBYBYBYBY BY BYX+3k0'(k1M'k1dM'k1GETTIMESGetTimeStamp.PASos.DRexp>3 She.SCREENSIZE Set the size of the screen.IO_OTHER IO_Others M'!+++k/k+,c}.``k:'c}-`;`k:'c},`;`,k2}).PASPAS$BSETSEARCH {Parm} Modify search list. "SetSearch CR" will promptPERQ_STRPerq_String.PASs use of defTTTTTTTTT TTTT?J@; exit(PLX) ,nHnmH̸c HM'c ,]M(c c%insert blank floppy, then type return:^숅 숅 IP MAKEBOOT.RUN/QZ-v)YtRX<[qd*###'#U]D^H DISKIO <READDISKJ"LOADER ,"READER  PERQ_STR SCREEN   FILEDIR J READDISK"ALLOCDISDISKIO ARITH FILEACCE| SYSTEM *CMDPARSE!PERQ_STRFILEACCE| GETTIMESB FILEDEFSFILESYST  d165:boot>MAKEBOOTd165:boot>ControlStore d165:boot>IOd165:boo sys265.mboot delete gs* /noconf ! ! ! OK -- you now have a bootable BACKUP system. ! To install your working sy FILESYST6  GETTIMESB CODE HMEMORY  h IO_UNIT IO_OTHER MEMORY hFILESYST  FILEUTIL"GETTIMESB CODE HRUNREAD 2 CONTROLSYSTREAM t>CmdParsed165:boot>FileUtilsTHERIO_UNIT IO_INIT CMDPARSE@! WRITER  0STREstem, BOOT UP THE BACKUP SYSTEM, then type ! ! @Make265 ************** ! 6ttSYSTEM * IO_INIT EXCEPT DYNAMIC CLOCK FILEDEFSVIRTUAL   RUNREAD IO jY IO_OTHERIO_UNIT IO_INIT CMDPARSE@! WRITER  0STREAM DYNAMIC FILESYST  FILEUTIL"GETTIMESB FILEDEFSSTREAM SYSTEM *PERQ_STR FILEUTIO_UNIT  pIO_OTHER POPUPCUR'SCREEN  DYNAMIC GETTIMES2 FILEDIR J FILEACCE| MOVEMEM IO_PRIVAH SCROUNGEJ" MAKEBOOTcJQAM DYNAMIC FILESYST  FILEUTIL"GETTIMESB FILEDEFSSTREAM SYSTEM *PERQ_STR FILEUTIL}zE"DYNAMIC SCREEN  PERQ_STR FILEDIR J READDISK"ALLOCDISDISKIO ARITH B pCODE HMEMORY hDYNAMIC SCREEN  RANDOMNU( 0#SYSTEM (*STREAM  WRITER IOERRMESALLOCDISARIT00DYNAMIC READER  STREAM WRITER CONTROLSIO_OTHERIO_UNIT IO_INIT IO IL}zE"DYNAMIC SCREEN  PERQ_STR FILEDIR J READDISK"ALLOCDISDISKIO ARITH FILEACCE| GETTIMESB FILEDEFSFILESYST  d165:boot>MAKEBOOTd165:boot>ControlStore d165:boot>IOd165:boo  am'EcNFTP-P-`ccO`c not found`c  )OP)&P```]c}) o``}`}console:```` }N}o}]** } .CMD Pc}c~ c~  all(N} j}__   } ̈́}__ Nl!N`at(.}}`tJ`JP} N`}`a}u/'#}NJPPN\] ``c`  %'        }帺ͦl'l'N~ l'l'l'W)FIf more than one input, separate them by "," and signal oJPPN\ ]  ` )Command file not found:  ( N}__ lΖ}``~ c`~ }~ }}~ }}c```` }}uH`auN  ,=~ /}tN`a'v }t''N tH̾}t (t(v N v tHP }`PcNN~ ~~ }NNN}}巼c}c}c~ɺaN utput by "~".P帺rl'()Separate outputs by ",".P帺Bl(:)-If more than one input, signal output by "~JP }PcN}@N`a l (2}}l H`}l J`lNK)Command file not found: }JP]}}} } }ɈN N wΎ}}u`tuJ`JP}t`a_ ,=~ /}tN`al N lϚN~``c`~ }~ ~~~~~}P~  ~ ~".P帺ͤl NP)BOnly use "=" for arguments to switches. Use "~" to signal output.P帺Al'N~ Jc}c}c~ɺaNl.) Switch cannot be a command file.P帺}3-) Command file name canconsole:```` }`}}]} }ɺ }ɺ } 0} }ɺ } }`(*}t/'  N}tNtH N}}t`}HtJ`JPNp})0}~ ~c~NXl!~}PNN1N}l' lHl͚lO)>Only one "~" allowed since it signals the beginning of output.P帺E)8Illegal "~" since output alreadnot be nullP帺l (5)'Command file must be only item on line.P帺3}dc~a(Nl .c3)}}k 'kHk]c }}ɺaN]}N}'} N`p}} (`}p''p}'N }p``pH] }}}}ɺaN** }Hc}c}c~ɺaN l  'l N l l'N~ 帺l'N~ UUUUUUUUU UUUUUUz Ue) then begin Chr(#015); { internal end of line = carriage return } ExtEol = Chr(#012); { external end of line = line feed }  = @ LOGIN.265.RUN??p1 O q q E1zH DISKIO <READDISKJ"LOADER ,"READER  PERQ_STR SCREEN ERIO_UNIT FILEUTIL"FILESYST  PROFILE #CMDPARSET$USERPASSb%MEMORY hPERQ_STR GETTIMES#IO_OTHERFILEDIR J DISKIO READDISK"ARITH ALLOCDISFILEUTIL"FILESYST  STREAM @T$ WRITER  *STREAM DYNAMIC FILESYST  FILEUTIL"GETTIMESB FILEDEFS{ FILESYST6  GETTIMESB CODE HMEMORY  h IO_UNIT IO_OTHERB CLOCK SCREEN  SYSTEM *ETHERSETt*ESTREAM DYNAMIC WRITER  *SCREEN  MEMORY hPOPCMDPA*INITSHEL+EXCEPT SYSTEM *PERQ_STR GETTIMESB CLOCK STREAM SYSTEM *PERQ_STR USERPASS9MNb%WRITER  *STREAM GETTIMESB FIIO_INIT EXCEPT DYNAMIC CLOCK FILEDEFSVIRTUAL   RUNREAD GETTIMESB CLOCK IO_UNIT STRINGUT&PUPPACKE'POPUP I DYNAMIC WRITER  CMDPARSET$POPUP  FILEUTIL}zE"DYNAMIC SCREEN  PERQ_STR FILEDIR J READDISK"ALLEDEFSARITH CMDPARSET$STRINGUT0mt&STREAM WRITER  *DYNAMIC PUPPAC{2 FILEDIR J FILEACCE| MOVEMEM IO_PRIVAH SCROUNGEJ" LOGIN }  *SYSTEM *IO_UNIT IO_OTHERPOPUPCUR(SCREEN  DYNAMIC GETTIMESB CODE HMEMOLOCDISDISKIO ARITH FILEACCE| GETTIMESB FILEDEFSFILESYST  PROFILE K#READERKEm<'STRINGUT&POPUPCURbJ ( DYNAMIC IO_OTHERPASLONG H)GETTIMESB  *.SYSTEM (*STREAM  WRITER IOERRMESALLOCDISARIT** READER  DYNAMIC WRITER STREAM ETHERSETPOPUP  SHELL .!STREAM IO_OTHRY hSHELL FLT6.!DYNAMIC READER  PASLONG )STREAM WRITER FILEACCE| PROFILE  WRITER  *STREAM PERQ_STR CMDPARSET$GETTIMESB FILEDEFSFILESYST  CMDPARSE              `c}a(`cFc}cT)PccT)TPc `ac c n)8cYy signalled by the space.P帺N͆l'l ;).If more than one output, use "~" before first.P帺~ 6c invalid command` c Switch ` c c}` c  does not take any arguments` tc Command ` c  not found` Dc  Directory ` c c}` c  does not exist` c Illegal character after ` }c}cd}}k``JP}}k`}kJH`JP,.KL.))R33"** Impossible character returned: ` l  c  c  d ~|c}` c  does not take any arguments` $c Illegal parameter for switch ` c c}` c lIllegalc c}` c Cannot create file ` c c}` ͗c 8Cannot end a line with Quote` jc c}` Yk})Z}}k``J}}a(kH̚k},,}}))X}k``JP}}`kJ`JPzxvt"pnljhfdb`^\ZXVTRNLJHFDB@><:86420.,*(&$"   parameter for command ` c c}` ͬc Switch ` c c}` c  is not unique` lc Command `c ****** IMPOSSIBLE ERROR ******` *d)\/jU >km(. c  c  c  c}c}c͓}}k``JP}}`kJ`JP}}k`}kJH`JP]  8 l  ']} !}}}`}}]} "}} c c}` c  is not unique` *c c}` c  does not have any outputs` c Only one input alk} kkk)H}kNJ)}a' kHkkHkk)иk'kHk,π}}k`}kJH`JP]  8 0W   P}`}}m(c ** ` mc c}` c  is an invalid switch` c c}` c c is an lowed for ` c c}` ͹c \Only one output allowed for ` c c}` ~c File ` c c}` c kHkk})Z}}k``J}}a'kH̚k}, 0W   PVV VVVV VVVVVVW Vgin) div LineHeight; Range; Ch: Char end; LineIndex = FirstLine..NLine; ColumnIn ``똛 IPvfy.binO`d/QZ-v)YtRX<[qd*###'#U]D^A@BH C> ?H @;<H =89H :56H72s@Tt7u@Rv7ww$xw%y@Tz7{@R|7}w&~w'@R{7@Tz7w:@978w757w;4w321w/7w<.w-7,w3H4/0H1.H-@H, H+Hw(w)@Ru7@Tt7w*w+@Sq7w,@Sn7w-@l7)7w=+5@*_&w !5#7$"w!77 ^777`*H)HӲH(߷ H!'ݷ"H#$Hh7j7g7w.w/@e7a7c7`7w0w1@@[7&7ww!57777b S 77v J؂B@lwPQHRCLHDKHӲH wT%w&Uӟ7VwW7X Y7Z [7\ ]7^ _ `wac7bww2ZW7w3V7S7w4R7QO7w5K7 !5   7 7 7h  S767ww?6 6 @ vfy.bindefault.profile$S H 7  7ӲH@DEHFGHHIJcc7dwewfwgs7hwЀis7jwkwpKnC7oKlC7mw!qw#r@@Sw6J G7w7J؎qC7w8ՀU`$?7w9>ڽf;7      !  # #~ $  cKc}) Pc""cKc}) Pc"}'3cBlock to write:` c}cP`P`c )}P am`q`cKPERQ_STRPERQ_String.PAS tempcExp> She.SCREENSIZE Set the size of the screen.?SYSTEM System.PA??3%FILESYSTFileSystem.PAS-?A?q?0?3F,?\;{?A?q?(8|?ARGDSTRYSWIINITCMDFDOCMDFILEXITCMDFEXITALLCDSTRYCMDREMOVEQUSTDERRORIMPOSSIBHAVEERRORESETERRFINDNONSHAVEERROCREATECUREAM STREAM.'!CMUFTP CMUFTP.PASgf.iWQɿXUtilProgress.segtb$] WRITER.passegD:zZN\ EdInsert.segNfj'K J Sexp>($BSETSEARCH {Parm} Modify search list. "SetSearch CR" will promptSTREAM Stream.PAS29STATISTICS + ?DYNAMIC DYNAMIC.PAS 07:40:56-??;N{??;N$`06 Jan 82 07:40:STREAM STREAM.PAS, .jp2?;N{,?8;N9j $ `  l ! cmuftp.seg) miscutil.segJ MAKE265.CMD | - Turn printing of statistics on or off. sys:Exp>$ FILEDEFS FileDefs.PAS Turn swapping on or off. PartPAS, .jp2?;N{,?8;N9j $ `  l m<m<l cmuftp.seg#$%&' is the partition for swapping._,+TYPE File GETTIMESGetTimeStamp.PASFile.D6B?|3 ?3HpPsys:part3>segs> POS D.5 p-boot PaWRITER WRITER.PASQPx`"w*'73PPsys:part3>segs> FILEUTIL FileUtils.PAS p-boot Pascal.Run\z? |<`  \CNVUPPERUNIQUECMREMDELIMGETSYMBONEXTID NEXTIDSTPARSECMDPARSESTRDSTRYAVWVVWWVWWV WWVWSX_creenFirst, ScreenLast: PositditorInitialize from Jps:EditorI; imports EditorUtilities from Jps:EditorU; imports EditorTerminate from Jps:EditorT;  _@ @ 7^@76 s 6 w> O !5 !5 !5 !5 6 6W 6X X@V KU  T 6hY 6h Z 6h [ 6h a !5b c 6d  e 6f  g 6h  \ Yv X6h W6h V6h U6h !5 S 6 Q 6 O 6 M  SJ60 v, v( v$ v v v v  v  v  v  v  v vMv Ns 6OpAs Reading disk (second pass). JP t})\}ʷ}`t`ʷt(3} w@ @ 6 wA v !5   6  6 6 b ! S6" 6i 6j Y@\ @] @^ @_ @` vl X@k 6hm 6h n 6h o 6h t !5u v 6w  [6 7 !5 @ @ Ev  C  @ wB A]@ >v <6 =\@ ;6h 5  B      5  6 wS wT wE wF9 6 wG wH wI wJɛɛ`at} cc Block `ct`` I`c$ was found to be incorrigible during`c# v% !5& ۞$ 6' 6( 6h) * + S6, 6- 7. O/ v1 !52  0 6x 6y  z 6{  | 6} ]@q @r @s \@p 6h~ |6h !5  6  6 : !5 8  4 wC  @   5 6 /  - wD  wK wL wM wN S 9 wO O wP wQ   O 5р= 5> Oc+ pass 2, but was thought to be good before.`cc" Suggest you re-run the Scavenger.`ccc3 Ŷ: ƈ; 6< [@4 @5 @6 @7 @8 v@ Z@? K>  = 6hA 6h B 6h C 6h ]B @М  @ \B v6h t6h !5 Ӝ 6   6 u^@ m6 n_Ѐ k6` l^@ *6  E6 ' &6 S$6 w  #6 S6 !v   6  wU   _ ? O@ u @   @l 5  @ wR u  H H Scavenger aborted.`cc\tH͝H,ύi)<c* Checking for logical bD !5E F 6G  H 6I  J 6K  L 6M !5N vO !5P C6(Q R 6S  j6h  5 !5 ev !5 f c6 b6 a6 `6 _ S]6 e6 [v !5 wV w"< v  wW 6  !6 6 7 vd s1 v@ p8 v4 v %   &   '   ) ) K : * ` c})cP`P`c c}TYPE {Filename}P帛 J)QUITP帛 J)SFTPP帛 J)SCAVENGEP帛J)&APPEND {Source file} {Additional FiLc```` c```` N !7CMUFtp -- EtherNet File Transfer Program -- 29-Jan-1982P l.PASQP|6:>* dPUPPACKE PUPPacket.PAS INTERPRECMUFtpInter.PASX PASCAL.RUN|6 :K)@e !=MISCUTIL MiscUtil.PAScompile CMUFtp.PAS =~& (J@ 6 6 (JSTREAM STREAM.PAS%%a% mmt miscutil.seg*+,-/0c  ]##\CAL((EFTPUTIL EFTPUtil.PAS (*  ) l.PAScompile CMUFtp.PAS =~& (J@ 6 6 (JSTREAM STREAM.PAS%%a%_ cmuftpdpy.seg123|62( 2 '(DISPLAY CMUFtpDpy.PAS(%0'^T ]5!ndn=  ,=~ /p.P ||6 :)CMUFTP   CMUFtp.PAS 7f7levl wFILEHANDCMUFtpFile.PAS\*4  CMUFtp.PAS 7f7 CMUFtp.PAS MGLOBALSTCMUFtpState.PAS%%%CMUFtp.PAS S 3)SYSTEM System.PASP PEPsys:sys> POS D.165 b-boot STRINGUTStringUti CMUFtp.PAS MGLOBALSTCMUFtpState.PAS%%%CMUFtp.PAS SINTERPRECMUFtpInter.PASX PASCAL.RUN|6 :K)@e !=MISCUTIL MiscUtiSXWSXXSXXS XXSXXSY XCursor1); Detach(Cursor2)(Cursor1) until Done; Detach(Cursor1) end { FindRSetUp }; begin { FindSetUp } if Direction = '>' lock consistency. JP }t{)τt`tt_t㭃t㭇s(Gos+&t`)\tH͘H,ψj)<c* Checking for serial number consistency. JP((H㭞tH_J ny)nnH)< Building the fcc Scavenger aborted.`cc\nHH,m' ~!)< }ʷJmk)}mmH}}ʷ}J} } BadFile!Pc}}J}``}Bad block number: P帺 s㭃s㭇̳tHv j)<s Reading disk (third pass). }t{)|t`ttWt㭂t㭇s(?sn('t`)Bad serial number: P帺 sree list. JP s﷼`a}H`an})} ʷn}`n`ʷssɛʷ}  Building the bad segment. JP ~``ʷI}n(Ϭ} ʷm}`n`ʷ}ɛɛ`I}~}} ~} rrH 6}ɛɛ`a cc Block `cn`` I`c- was fo JP t})a}ʷ}`t`ʷt(8}ɛɛ`at߼}ɺa c㭇̻tH~mϊ)< Checking for bad blocks. JP }t{),t`} n`a n`a } x`aw' } } `w`x' } } `x`} '} pa cc Block `cn`` I`co- was found to be incorrigible during building`cc4 the bad seund to be incorrigible during building`cc4 the bad segment, but was thought to be good before.`ccc Block `ct`` I`c$ was found to be incorrigible during`cc+ pass 3, but was thought tot t mtHΉgm  )<S Linking bad chains together. JP  3}ɛɛ`a cc Block `cn`` I`c- was found to be incorrigible during building`gment, but was thought to be good before.`ccg" Suggest you re-run the Scavenger.`ccc Scaven" Suggest you re-run the Scavenger.`ccc Scavenger aborted.`cc\}}﷜n㭂n' be good before.`cc" Suggest you re-run the Scavenger.`ccc Scavenger aborted.`cc}t{)ϛt`t t t(t_H't( ttcc2 the free list, but was thought to be good before.`cc" Suggest you re-run the Scavenger.`cger aborted.`cc\} } }巜n'n' } } `n`n'ϝ +   ,   -   /  /, 0  FILORUX[^ `` U^^c  Ec}cU``cUA}BkAkB)}kA`kAHA ` `̦cUm` mTcEMISCUTIL MISCUTIL.PASASSiWEVERSION Specify the system version number. Arg is version number.FSfj'K8   Dn` c ~Dn` m(c Err` c ~Err` m(c Go` c ~Go`` c k'h}}ʷ}}}c```  c }c`` .c }c`` a*]}``c_` }``c_` }k,kkk)} kJ"}kkH}}ʷ}kH}}}}}}a}}ʷ}}}kHHL c Recvr: ` m(c IE` c ~IE` m(c? Dn` c ~Dn` m( c c}}cc}` c <= ` c}}cc}`  c }c`` c } Ycmuftpfile.seg} fileutils.seg2 noechoio.segv PARTITION.RUN}kJ߼}ar*}cɺ}cɺa}cc`aϤ}}'ϖ}}ʷ}vkk)} c@ Err` c ~Err` m(c< Pr` c* ~Pr` m(c Go` c ~Go}ʷkJkk)_}k"k *k},1k ' c \c kc```  kc kH̙c ]zETHER265TEST.RUNk} kkHbS}Jkk) } kJ"c kHc  drH}` c ͎m')c Buffer Size Error` c m'c4 Timeout` c m'1c  Received }HL}}﷼}r`aq(1c Xmit Return Status: ` c q`]}}^}}c}'` '}' }}c_` }c_` d cc #` cm``I` m*c Xmtr: ` m(c IE` c ~IE` m(cpacket too large` c ]}}ʷ}}c``` c<=` }c```  c }c``ar's+}'?r(6c RecvOne() Return Status: ` c r`ȼ`` a`` a*SYXSYYSYYS YYSYYS Z Y end until State <> Searcr2.Pos end else begin PFirst := FilledLast; PLast := FilledLast end; Detach(Cursor1); DeN)<c/ Writing the new Partition information block. JP uɛɛ`a ςcd.`cc\]k l \)<( Reclaiming temp and old bad segments. JPg old bad segment`m`ac`` I`c }qHqmHH,ϱ]c} c}4 }}43]}p*pc`c! not a directory, type new name: `}cd`d`c ͛"?k?H?}Bk?>'k?}B'}Bk?>'}q}P*Ycc `}c`c exists; trying `}$` }c`jcc--> `}c0 Could not read the Partition Information Block!`ccc Scavenger aborted.`cc\ m})8 mm}`m`ʷ}ɛɛ`a cc Block `cm`` I`c/ was P,\pqr)>}q )}q+}q:'}q<'}q/'\qH̼}>..> a( }B`k?J` Jd} } .DR Jd} 3} d ʷ}  Dcc`c already exists, type new name: `}cd`d`c ͚c}B} au pcc-->Not ɺaq'q'q  q qScc/Lost the root directory, suggest refound to be incorrigible during reclaiming`cc3 of temporaries, but was thought to be good before.`cc}>.> a(\}`` J..>3\}p>(]q }B"c ----Creating directory: `cc} `} r``ʷc} } au ϗ} cc-->Not able to enter able to enter `}c`c, type new name: `}cd`d`c x#}}ʷ} }Pc}building it!`c`p`巛`o`巛s巛~巛u巛巛 Ϝ" Suggest you re-run the Scavenger.`ccc Scavenger aborted.`cc\k((V} Jd}ɺa icc-->`}c`c not legal, type new name: `}cdir `cc} `c. Type new name for `}c`c: `}cd`d`c}} ʷ}@}} `m`ʷ}} } ,} }ʷkH} }}}} }} }}} }ʷ}} } .uɛɛ`a υcck1 Could not write the Partition Information Block!`ccc Scavenger aborteo?csDeleting temporary segment`m`ac``c }pHpl'}~ Vo?cDeletind`d`c Y},ϳ} }}J`` Jdc} } p.DR3ncc-->`} ʷ}}} } } PP} }}@k?H?k?}B*}Bk?>(k?H?} 3}Bd ʷ}   1   2   3   4 66=  )P m J)VERIFYPcm J)RENAMEPcmJ)SAFEPcmJ)FASTPcmJ)TYPEPcoJ)V~c}}}}a}}ʷ}}}kHHLl.PASQP|6,>* odIO IO.PAS8 #\( PASCAL.RUN|6 ,K) !DWRITER WRITER.PAS5(4 <8E#8E8D#\JSTREAM STREAM.PAS%%a%4cmuftpinter.seg SHELL.265.RUNMAKEBOOT.165.RUNcontrolstore.seg}kJ߼}ar*}cɺ}cɺa}cc`aϤ}}'ϖ}}ʷ}vkk)}#\PASCAL X aIO_INIT IO_Init.PAS! ( /$PAS5(4 <8E#8E8D#\JSTREAM STREAM.PAS%%a%m,m,| cmuftpinter.seg6789:;! TYPEFILE.RUNk} kkHbS}Jkk) } kJ"c kHc  drH}X0a|6,&%utilJ@IO_UNIT IO_Unit.PASDDD1b1ZPYD rD@ndnD  ,=~ /til ||6 ,)DYNAMIC DYNAMIC.PAS(>f=X<=>?@ABCDEFGHIJKMN'}' }}c_` }c_` d vl vjIO_OTHER IO_Others.PASSSiWEVERSION Specify the system version number. Arg is version n?LERYf=DEUMISCINITNAMELOOKMGETTIMEMDMPSTATMDMPPACKSENDONE RECVONE r.FSfj'KPUPPACKE PUPPacket.PASP o Psys:sys> POS D.165 b-boot STRINGUTStringUtiumber.FSfj'K8SYSTEM System.PASASASSiWEVERSION Specify the system version number. Arg is version number.FSfj'K8 #\( PASCAL.RUN|6 ,K) !DWRITER WRITER.N4S!ZYS"ZZS#ZZS$ ZZS%ZZS&v Z procedu ScrollUp(L+1,LastLine,1) end; C := Ln[L].Length - 1; MovePencil(L,C) end end { PrevL} }ʷ}}} }}}} }} ʷ} } ʷ} }}k}k}}}I})"Puɛɛ`}>}7﷛}< uɛɛ``)"Pa;)Rebuild random DELETED ~~`c}͜9͗}@'}n?c ~~ (Directory) ~~ DELETED ~~`c}G6}P' c}cc}@}ʷ}@m}cnH2}> ϋccType name for bad segment (````c```c```c```c``ʷ`ʷ`ʷccc<`c} @Jkk)}4kkH Jkk)}kkHJkk)}kkH} } indexesP)NoP帺aBkB.) Are you sureP)YesP帺aB)Check file lengthsP)}NoP }P$ c}$` }@}ʷ}@9}@(E }c}k9`k;`c ... Entered.`kB-cn I}>ac`` I`c ) [Bad$] `c}cd`d`c}3}Bad$d}>c}`k;`kB Ϲc$Suggestcc7Which device to scavenge? (F = Floppy, H = Harddisk) : `c^^ccf'}}k`}} }}} ϙ} }ʷ} }} } o} }ʷ} } ``c`k`c}c}} aCkC.) Are you sureP)YesP帺aC)Delete old directoriesP)YesP帺an}FnkF) ndex `n`!crebuilt.`kEkCϋ}@}ʷ}@H}@m(kc ****`ccc** Stored l building a random index for `cc}`.cc)Build the index of } F'eh'H'ede'ω A)Is this a 24 MByte DiskP)YesP帺ae?)k``} } k}} k``} } c`}}^]`)"Pa;k;'WcCould not mount pnnϫn`}`n`ʷ}@}ʷ}@'}}< u9E}@ *}@ P,}** BAD NAME **dength (`}@c``cc7) does not agree with actual number of blocks in file (`cm``c) **`cJP)YesP帺a }>ɺa`! }>ɺa`!}@}>ʷ}@}@}>)"P]c````ceIs this a 12 MByte DiskP)YesP帺aeM﷜ߜ߭u﷛uɛɛ`("(artition `cc"`c . Aborting!`c\ }<k;``ʷ}@}<ʷ}@}@ root.DRPc}< }}@ dcSegID `}ac`` I` ccc}`}@'MnBc! ~~ (Ex-Directory) ~~  ϯ) Do you want to it fixed? P)NoP帺atc New length [`cm``c] `^^cɛ````<d Scavenger 3.2 JP)<P ``c 7 8 9 :  ; < ksjc}[krjc}[IkmH}ɺa\wvu x'ck Verifying transfer` c'8c GET SourceFile [DestinationFile]` c\INTERPRECMUFTPINTER.PASiWQɿXDos>quicksort.PAS1% QUICKSORT.PAS quicksort.pasRT.PASpasH }r,#}sH}sH}r}ru}s}r,}s}s}r}ru}sH}s,#}sH}tH P帺)J))}s P帺)J84}1}tH P}tH }s c}s }1P))}t P帺)J)H[}\k[JqJk[H[}\k[Jtr/qtJ )r"k[H[}\k[Jsk[H[}\k[JrqJmJrk+ϫ))}r P帺)J) = > ? @  A B   ilJ Hlnk!$c exit InitEmpty` c  }()a s(s(ϯ]c 8 ? : Help Quit @ Keys Wait` c  c c1 Name Mode ]}p` }ɛcɛcc}` }ɛcɛcc}` }P}P]}p` }ɛcɛcc}` }ɛcɛccme` c  >`c Store `  c `  c  c c`  c  c c` c  Foreign: ` c c` c  c  Local: ` c cb` c  c  Result: ` cc  c k-FCc  ??? Enabled or Disabled` c  dk- d cbcc cc `aq' a q(q(q'}p` }ɛcɛcc` }ɛcɛ@Path - Takes one to four arguments. The arguments are either` c  c > space delimited tokens or sing8Send - The opposite of retrieve. The file is stored.` c  c Help - Type this text.` c  c c  }p` a]}p` c  Ready to continue? ` ``a]}p` }ɛcɛcc}` c}c}]}p` }ɛcɛccb` }ɛcɛcc` 'bcbcc`ɺccc`ɺcccb` b'bccc`ɺcbcc`ɺ'2c  No remote file name` cle quotes quoted. The` c  c ? argument order is: ` c  c ) >@ - Execute the specified local file as a command file.` c  c < The default extension for commana} }cc }9}p` }ɛcɛc aq q dba Lc  File not found: "` c cb` " c  c  {'2c  No remote file na  ^`c  Retrieve `  c `  c  c c`  c  c c` c  c  .` c  c =Dover - Ships file to the dover. Currently not implemnted.` [ \[[ \\ \\ \\\\\\] \ := ScreenFirst end ectFirst,0,LastLine) then ScreenPos(SelectFirst,Line,Column) end else if NE(Display,ScreenFirst) then Draw(q }r c}r }1P̜}1}t P}t }q c}q }1PqtJ`srJH`a )*k['Z}\k[J߭}\kX MIN UPCASE na'oa+oz)N,n@'%o0*o9,oA*oZ,oa*oz,N=2 cnc:coc[JJ߭k[J[qqtJsrJH,6srJH )qJ"k[H[}\k[JqJk[H[}\k[Jtr/qtJ )r"k[H[}\k[Jsk[H[}\k[Jrq    mN }}, N}N\}}Nt''o}}H}}, N}N\}}no'Nq #cqN]cc "`v}|k)}|c|H|k)c" : "`J͌mJrk+g}r }rH R8K}}r PrH}qJ }q cqH}q }@7}qJ }PrJ̒]PMATCH PMATCH.PASallows use of default fileSHR *SCAVENGER Run the disk  Nta'AN}t0'ta'tA't@'N}t*'t&'t#'N} ta+tz) t JNtN]p}, w}|k)}|c|H|k)c" => "`x}|k)}|c|H|k)"c12z )R 0}@7qJ}q }@5rq*0}1}q P} uu IP pmatch.segd/QZ-v)YtRX<[qd*###'#U]D^   N }pNqN` aNqN]p})*}c}c}ɺaNq N\pHN]p2 Nw},Dv},Nx}|k)}}|N`|H|k)\}c} c}ɺaNkP}c} c}ɺaPERQ_STRPerq_String.PAS1YPsys:exp>os> POS D.65 q-boot INTEGERSSTRINGSOMA cnc!cocNn0'o0+o9)NxnA'*oA+oZ)Noa+oz)NG C D E F  G H ) Pc}c ) P~x{xoooooooooods files is .fmd.` c  c ):Confirm - Followed by the keywords Enable or Disable will` c  c ) ` c  c #Wait - Prompt for continuation.` c  ]>`Rc c$`  c  c}c oxT2ͪ@`}__   }}ʷc}}`` } c c$` c c}` c  spc + ??? ? - for command list h - for help` c  -d(8ER_lyT}``c`}?}}@}}:}}}I}﷛ B BY BY BY enable or disable confirmation` c  c >Name - The specified host will be used for file transfers.` c  `` c}ɛcɛcɛɛc} a  ``ac}n` c}n` ͺc}n` ͯc}n`ͤc}n`` c  c}ɛcɛcɛɛc} a!aEc  Help command not implemented` c   ``a p(:c Continue in spite of error? ` ``a p}``c&`})HelpP}/BY$ ]}}c}ɛcɛcɛɛc} ac}p` c}ɛcar' aͨ$`c c$` sc ?Mode - Followed by the keywords TEXT, BINARY, 1, 2 or IMAGE` c  c : will set the mode used i͙c}n`͎c}n`̓c}n`xc}n`mc}n`bc ! Dover command not implemented` c  )c  ?c}q`ac}q`ac}q`ac}q`aͽc}q`aͮc}q`a͟c}q`a͐c}q`á)QuitP})KeysP})WaitP})NameP})ModePʃ}ok)}o c  oHc  c}ɛcɛcɛɛc} aa5c  Help command not impln the transfer. See FTP` c  c 5 on the Unix machines for details of modes.` c  c 8Login View command not implemented` c  c " Ignore command not implemented` c  Ͷc + ??? ? - for c}q`arc}q`acc n! Dover command not implemented` c  )c  View command not implemente})LoginP})PathsP})ConfirmP} )StoreP} emented` c  c}p`ac}p`ac}p`ac}p`aͽc}p`aͮc}p`a͟c}p`a- The specified string will be used for logins.` c  c J9: - This is a comment mechanism - line is ignored.command list h - for help` c  spc + ??? ? - for command list h - for help` c  -d(>A]fd` c  c " Ignore command not implemented` c  Ͷc + ??? ? - for command list h - for help)RetrieveP} )DoverP} ) ViewP} )IgnoreP}巛}\]\\]]\]]\ ]]\]]\ ]1; if Verify then if Direction = '>' then SourceFirst := RightPart else SourceLast := LeftPart; if Verify then DraNk 2}}xN`xH }c} c}ɺaNkk*'k&'k#'dNk*'k&'k#'wwH xH k*(N`|H|k)T\}}}}v`w`x`aNZ}v`aNkN`kN`kN`a*k}}vN`Nȍ (N`c PattMap: "`}c`c` " Str: "`}c`"cc}}ɺ a vNN }`}(}( }}}}```aN Jw,c ===> `}c`cPATTCHECPERQ_String.PASs use of default fileSHR.SCREENSIZE Set the size of the screen.isk Except.PA'v},\}}vN`vH k#(Nw},x},  N }wNuv},Kv}H'w}xH vH wH j]N}'}'\ s})r})ϤNt }c}c}ɺaN sHNt } a vNN }`}(}( }}}}```aN Jw,c ===> `}c`cPERQ_STRPERQ_String.PASs use of default fileSHR.SCREENSIZE Set the size of the screen.isk Except.PASASlows use of defaultBSETSEARCH {Parm} Modify search list. "SetSearch CR" will promptk STREAM STREAM.PASmp.9STATISTICS + ,Nx}|k)}}|N`|H|k)\kVw},hNv}|k)}}|N`|H|k)c}c}ɺaNrH݋Cc [`vc:cuc]cvu(\ HN] (c FAIL`cwN   '  8tSASlows use of defaultBSETSEARCH {Parm} Modify search list. "SetSearch CR" will promptk STREAM STREAM.PASmp.9STATISTICS + | - Turn printing of statistics on or off.VENGER Run the disk WRITER WRITER.PAS- Turn swapping on or off. Partx}|k)}}|N`|H|k)w}c} c}ɺaN| v}|k)Ϭ}|`aNkNNbcc PattMatch: "`}c`c " Str: "`}c`"crNNc`}6v cc`cc FAIL`cs| - Turn printing of statistics on or off.VENGER Run the disk WRITER WRITER.PAS- Turn swapping on or off. Part is the partition for swapping.R +TYPE File PATTMATCPATTMAP PATTDEBUISPATTERBADPATTENEXTCH UPCH CHMATCH STRPATT `kN`kN`a]}}}}|`w`x`a N\0}}|N`c `c}}|(}(}}c}```aNKs-c ===> `cc`cc FAIL`csNȍ (N`c PattMap: "`}c`c` " Str: "`}c`"cc}}ɺ is the partition for swapping.R +TYPE File PATTMATCPATTMAP PATTDEBUISPATTERBADPATTENEXTCH UPCH CHMATCH STRPATT I J K MM 9 N FILESYSTEM.TEXT@ "STREAM STREAM.TEXTWRITER WRITER.TEXTXTREADER READER.TEXTT͐c}p`ác}p`arc}p`acc P! Dover command not implemented` c  )c  View comm46tvYZ  9  #\X aDISPLAY CMUFtpDpy.PAS! (/$PAS #com cmuftpinter /~74G47 + +J K%%a% ndn/  ,=~ /pin ||6 8)WRITER WRITER.PAS>f.Xand not implemented` c  c " Ignore command not implemented` c  Ͷc + ??? ? - for command li 9   ; <   k *l X0a|68&%tpinJ@FILEHANDCMUFtpFile.PASD+VX+D'ZPY/ Ocmuftpstate.seg SHELL.165.RUN  pmatch.seg?LERYf.DEUSTREAM STREAM.PAS#\dndm/ st h - for help` c  spc + ??? ? - for command list h - for help` c  -d((8ER_lySTij #%&I+,mn vl voot GLOBALSTCMUFtpState.PASf.*4  cmuftpinter .f.+W%A+VXREADER READER.PAS{+   +##"#\T ]J  #%&I+,mnSTRINGUTStringUtil.PAS Psys:sys> POS D.165 b-boot PUPPACKE PUPPacket cmuftpinter EFTPUTIL EFTPUtil.PAS%%%%cmuftpinter N > 4Xftpinter DYNAMIC DYNAMIC.PAS%Wsys:sys>Shell.165.RunNDMA%%( %%\nd-.)*:.PASQP|68>* .dMISCUTIL MiscUtil.PAS 0 TRANSFERCMUFtpXFer.PAS* PASCAL.RUN|6 8K) !/CMUFTP CMUFtp.^N ^S^ S ^^S^^S_ ^* PagesPerDot; P := Filght); begin { Extend } if Line < -1 then Error('Pointer off screen, can''t extend') else begin if Line = -T GETTIMESB FILEDEFSARITH READDISK_ * J"STREAM WRITER  *DYNAMIC CODE HMEMORY hSYSTEM *EXCEPT IO_OTHERFILESYST*> 6  STREAM WRITER  vac`` I`ccEnd DA = `xac`` I`cc Root DA = `}ʷ}߭ xI xIwv'ut']r'\ccɉr``c> pages were found to be incorrigible-- rechecki. JP t})/}ʷ}`t`ʷ}ɛɛ`a} t8}I'}} MEMORY hGETTIMESB FILEDEFSARITH DISKIO LOADER h * ,"STREAM WRITER  *DYNAMIC EXCEPT PERQ_STR FILEDIR J READDISK"ALLOCDISFILEACCE| ARITH DISKac`` I`ccFree head = `ac`` I`ccmFree tail = `ng those tracks`c}os)7o`o o o'oH}nt)7n n n' t} t}ɺ at߼}ɺa t}ɺ at߼}ɺa *STREAM IO_OTHERREADDISK"PERQ_STR ARITH DISKIO IO_UNIT VIRTUAL  MEIO GETTIMESB FILEDEFSGETTIMES>*V B IO_OTHERCODE *^ HGETTIMESB MEMORY ac`` I`c} cNumber free = `} cɭ``,c} cɭ`` I`ccRo`n`anHrϻ}nt)ϰo`n`aϝ}`n`ʷn' ) INCORRIGIBLEP}ɺc) Test: ti t}jt߼}ɺatttHH,Ϻ)<MORY hFILESYST  SYSTEM *GETTIMESB CODE HRUNREAD 2 READER *  GETTIMESB FILEDE}ɛɛ`TpaHcc : System = `} ɺc, Interpreter = `} ɺcpHͽc$Paroot directory = `ac`` I`ccBad segment = `ac`` I`ccDP}ɺm(*n(2}ɛɛ`a nnmH̼nHJoH]}t{)ctt( Re-checking tracks with INCORRIGIBLES. JP )<l Checking for loops.FSSTREAM PERQ_STR *&  EXCEPT SYSTEM *SCREEN *.  IO_UNIT GETTIMESB tition Information Block Summary:`ccPartition name = `cc}`ccStart DA = `evice Type = `"c`` I`ce'\}`n`ʷ}}ʷ}߭ xI xI}`o`ʷ}i tj ttt tttH̗)<s Reading the disk OPQR ST kT cD Yes or No? `kTBlock `co``c out of range`c\}}L wL o`c} c} ɺ uk)O} x} yHr`}CMDINITICMDINTERKBINTERPCLINTERPDEFAULTECRUNCH PUSHPROMPOPPROMPRELOG NOSWITCHKBQUERYCKBUSECOMKBKEYSCOKBWAITCOKBNAMECOKBMOWX 2P}N)ImageP}N巛}}``c `}N)OtherP}N)Unib NJ߭`c FrnPrefix :`  `b NJ߭`c FrnSuffix :`  `b NJ߭`c LclPrefix :`  `bDECOKBLOGINCKBPATHSCKBCONFIRKBSTORECKBRETRIECLQUERYCCLUSECOMCLKEYSCOCLWAITCOCLNAMECOCLMODECOCLLOGINCCLPATHSCCLCONFIRCLSTORECCLRExP}N)TopsP}N巛}}``c `}N)NoP}N)YesP  NJ߭`c LclSuffix :`  `b  NJ߭`c Confirm :` N`x`b NJ߭`cx`b NJ߭TRIEKBHELPCO%A+VXREADER READER.PAS{+   +##"#\ XONN N CMU-750X帛 *N N c ca ????cc P帛}N巛}}``c `}N)DisabledP}N)EnabledP}N巛}`cx`b NJ߭`Nx`b NJ߭`Nx`b NJ߭`cx`b NJ߭`cx`b NJftpinter DYNAMIC DYNAMIC.PAS%Wsys:sys>Shell.165.RunNDMA%%( %%\ndGLOBALSTCMUFTPSTATE.PASiWQɿXDX YZc}>c}=c}<ɺ}+Ik< \ka͵nHn,1cToo many failures, aborting`c͓cBlock `co``cU" incorrectly transferre ` *c[Yes]: `  d c N c}cP`P` c}ɛaNp'p'n'.PASQP|6?>* dEFTPUTIL EFTPUtil.PASBIPAS com cmuftpstate 1~<EE1 7 7QJSTREAM STREAM.PAS%%a%mЖmЖ딴 cmuftpfile.segZ[\]^NN-np'p'n'NN-Rp'c No default: ` 0c#Invalid response, use { Yes, No }: ` ##\CAL !DISPLAY CMUFtpDpy.PAS#\ ( /$r18ndn1  ,=~ /pst ||6 ?)READER READER.PAS>fBX + NJ߭`Nx`b NJ߭`cx`b NJ߭`cx`b NJX0a|6?&%tpstJ@CMUFTP CMUFtp.PASDDD7n7ZPY1 mvl vjMISCUTIL MiscUtil.PASfBaa-  cmuftpstate BfB?LERYfBDSTATEINISTATEDISASKFORCO N B 4> `c`x`b NJ߭`cx`b  NJ߭`c`x`b  NJ߭`N]o'N-Nk- n3c[No]:Mcmuftpxfer.segrandomnumbers.segio.seg/SYSTEM.265.RUN cmuftpstate DYNAMIC DYNAMIC.PAS%%%%cmuftpstate N B 4>  aP0t> @T PASCAL.RUN|6 ?K)$ !1WRITER WRITER.^YSTRINGUTStringUtil.PAS Psys:sys> POS D.165 b-boot PUPPACKE PUPPacket aP0t> @T PASCAL.RUN|6 ?K)$ !1WRITER WRITER.PAS com cmuftpstate 1~<EE1 7 7QJSTREAM STREAM.PAS%%a%H#`_H$``H%``H& ``H'``H(a `intlist(FilledFirst,FilledLast,' Error('there''s no help for the Editor') end { Help }; begin { Edit } while Editing do begin if NeedProm '=}`}`}}LK}}M}KH`}`}`}K`1}P &}(} }}T} }E}}}T}}[\ `c[]]]}}ʷ}}H}}'Ϥ}} ' } ͉}`}`} }}H}} 'J} '/^``m``ȉ,)Jm *m@H`^`m`]*;m *^cm@Hc mcꝣcpH̼JnJopq+,pJnJ]0pJqrs+r`+rrHorJq}qprs)7ro *^}}ɺ}  } `}} }@}0}P}`]3d 33d}{ʷ}{}}ʷ}P}}t}}}} t}}0t}}@}}Pt }}p}{ }{ q}{ '}{r}{}{}} L}K} M}LH}} L}}}ʷ}}ʷ}"(\}@}0H HH c} cDate and Time: `}c`c]nJmo+,mJȉco@Hc ocrHÉHpqHrs+,rJpH]o,ψ0nJoJpq+ p`+pJoJnJpq)>3$#}ʷ} }}T} }}B}'c`````} `L}{}{}2}P}2uk)"}2uazDX}2u}2uaJAHuH}23}2CONSOLE:P帼333}ɺ 3Jd3} 33}ɺ 3Jd3} ,5)}o} }oHo} '} Jonmp)-mH]J0nomp+ m`+mJooȉ ` _`ȉ* J' JJpHpmm *^cm@Hc mcpH̼JnJopq+,pJnJ]*{oqXo*}}}K%}3da}B}3d} } a}}J}2dc} au'"c}2`u`}}} CONSOLE3} CON3 }{_} RS3 }{G} RSX3)} }ʷ}ͽ}}}ͼ}}}qͤ}}}B͌}}}3t}腉),ύ0Jopr+ p`+pJoonnmoJpr)7pm *^cm@Hc mcpH oHoo*qX  oHoo*qX oHopoJnr)m4-nHȉ),ςoq ɺ}ʷ} } }}T} }}BBYBYBY]}ʷ4} }{+t3}d33}d 3s 3}d3}{%&' d]}ʷ}}}$\}}}F}}}0}}}d;pHpmm *^cm@Hc m[\]^ _`IJ)IIFILEHANDCMUFTPFILE.PASiWQɿXD POS D.165 b-boot ARITH Arith.PAS cmuftpfile pDISKIO DiskIO.PAS%%%%cmuftpfile N  4XBW%ABFILEINITFILEDISPFILEEXISFILEFINAHϚD:zZN\cv/FSfj'KDISPLAY CMUFtpDc_ op)o NJ oKHoHop)N` Jmp)υmNql nr)bn NJs m's A `o NJ߭` qcLQP|61>* LdFILEDEFS FileDefs.PAS FILESYSTFileSystem.PASiWQɿXD `c `p'rrHMpJou)GroHHM Yp BBYBYBYBYBYXpBBY BY}BYXpBBYBYXpBBY BYBYXpBBYXp}X(7(Hp ' J},9c}}ʷ}}ʷ}"(u}@}03]}ʷ}}ʷ}}H}}'/}`}`} }}H}]}}ʷ}}ʷ}A(6' JnJ)nHHMmnnH݊HMqqHM' Jrnt *^ct@Jc tcoH̳crrrs';cȉ}}R``σpvu/p,kb4]0X-S,6G1B<`:520`:)3$0,6cɺ. ;d3}ɺ 3Jd3} 5}}\33}ɺ 3Jd3}'}}ɺ*a }@}P33}ɺ 3Jd3} ,4} Jot) } }}o<:86420.,*(&$"  333}ɺ 3Jd3} d}(u }ɺ}}} }  } y[}}}E}}}/}}}d<=Si<]}}ʷ}}ʷ}A(r)HpHHMopqq *^cq@Jc qcpH̲Ⱥ0,6c'Jr~kznv\rmnljhfdb`^\ZXVTRPNLJHFDB@>+:.62-.,*(&$" u' c_'Ap *^cp@Hc pcpHH c}ɺ54c}ɺ5r *rr(\r}'} };r}'} } }r}X}XoZ}abcM ef |re in the class called OS.SOURCE}{Pc}{) Pc c}{c}R). Pc c}{).Pc c}{c})) . Pc c}{).DISPLAY SMCMUFTPDPY.PAS  NN````V`)P NN NN N] *m` H N NmN] (! (/$X0a|6-&%uftpJ@WRITER WRITER.PASDDDF0FZPY/ d eftputil.seg popup.seg ,J N N߭` m  N߭N߭H`n N߭N߭H`m  N߭N߭H`n N߭N߭H`}c`c X0a|6-&%uftpJ@WRITER WRITER.PASDDDF0FZPY/ bDmX IP eftputil.seg/QZ-v)YtRX<[qd*###'#U]D^fghijk `]ABvl vjDPYINITIDPYPUSHWDPYPOPWIDPYSETPODPYPUTSTDPYFINALD.165 a-boot SCREEN Screen.PAlmnopqrsSTRINGUTStringUtil.PAS Psys:d5>cmuftp> POS D.165 a-boot SCREEN Screen.PAS;QP|6->* ;dCMUFTP CMUFtp.PASY.PAS`````)!P NN`````)P NN`````)PS;QP|6->* ;dCMUFTP CMUFtp.PASY.PAS (! (/$ sdH!/baH"0bbH#1bbH$2 bbH%3bbH&4c b if X >= 0 then Column := X deleteChar(* L: LineIndex; C: ColumnIndex *); var XC, YC: integer; begin { DeleteChar } XC := C * CharWidth + HomeX; YC6}@}P33}ɺ 3Jd3}'}`}`a(33}ɺ 3JConsole:````cɺ }}}ʷ}}ʷ}"(E}@}033}ɺ 3Jd3} }jc`}}7d]x  p dp+ Zr   )o'qHprs)} }rHo'C}T}}R}}U}}E}ͩo'd3͕ `}`aoJ((߉(H''33}ɺ 3Jd333}ɺ 3Jd3+}'}' }ɺ*a}3@} non-open filed}3'p}0#unknown character structure+,VX04 57.!# -!3 33*`byz.0S}F}}A}}L}}S}}E}P}U}}N}}D} d1o}ɺ}( } }ɺ}}]}(}}}ɺ}d deviced}3*}Console:d!}RS:d dK}3'} FileId = 0d)}3` 33333333333333\^qr>@Q RYb33}E}}F}p,} }pJ}o}rq,$qHrst)} }sHqr(}}}ɺ]}}}ʷ}}ʷ}@}0 }'}'}y Initialized41y a6 k6 }device not mountedd\ }3` a5k5( k5J 5k5'$}partition not mount33333388883333334433 3333 nst)}}sJ}sH]r)33} 3Jd3o*or,v s yz)} }yH }U} Initialized !} AZD}azD}09D} }Y}Ycedd\ ``}jc`}3``}j}7 k6dc}7:`c}7 k5Jc}7>`c}7}j 334433 3333 np+ Zr   ) g  h i j  k l })P帺 3rcc}{` ccc}{`c͚rPLX3όGET3Ac Get `cc}R` ccc}{`EFTPUTIL EFTPUTIL.PASASSiWQɿXD}rqNJNr '}} }wH x  wz+}}wJ߭}wJ ]}Hqrs)} }rH}rs)}}dk)o}IO Complete OKP͛}IO BusyP͆}Bad Unit NumberPj}.Raw Block IO to this device is not imP9})Cylinder Out of RangeP}Device not readyP}Missing data address markP}Missing header address markPͪ}Floppy write-protectedP͇} Cylinder mis-matchPg} Sector not foundPI} OveqJ`\}qrNqHqs)]mN w\wN}N}Nm NHw}}wʷ}wcɺ``}r}rH]qG$DX 33} 3Jdq`4q*qI o*oIoIokJkHkqMkqLkplementedP/} Write FailureP}BlockSize ErrorP}Illegal Command for this deviceP}Nil Hear address markPͪ}Floppy write-protectedP͇} Cylinder mis-matchPg} Sector not foundPI} OverrunP4}Undetermined equipment faultP }Sector out of rangeP}Time out errorP}Floppy re m n o  p   q  r ` kTΧ}+yBYBYX6>k6k> out of range` c \}}L wL o`c} c} ɺ uk)O} x} yHr`}w`˼} a|  } ʷ}} s'τ} l}}9,}}H}'}}H$r}J,}c}`c3ɺ'ώ} tr}J,}c}`c ɺ\}}9,r}J' }`}c}`c ɺ ``_` } }ʷ}}}}}} }ʷ}}}1}}1]} _`tv #$..PUPPACKE PUPPacket.PASP Psys:sys> POS D.165 b-boot STRINGUTStringUti ds(pJ)* dIO IO.PASorqȼ}p``a}}ʷ} } ʷ}} s'} }}94}`}}H}'}}t of synchP帛3}%Your receiver has gotten out of synchP帛\}Impatient HumanP`` a`` acɺ}t]}ɼ}`a`ar} }  Br} }ʷ}r}rJ}`}r`}ɼ}`a`aMN    P  #\#\X aIO_INIT IO_Init.PAS! (/$H>r}J' }`$r}J,}c}`c ɺs}}96}`}}H}'}* #Your sender has gotten out of synchP帛3%Your receiver has gotten out of synchP帛\Impatient HumanPs}`}`}ɼ}`a`ap'}`}`}ɺp}}q`c}ɺ]p} 㭁} (   N  } ʷt ux)}u} uH"uH}t]`` a*  X0a4&44@4?#\IO_UNIT IO_Unit.PASDDDE(EZPY6 }H}c}`c ɺds(pJ)Ͼs]}p``a}}ʷ} } ʷ}} sȔ a''쎝 }@}@9}ɺ}}}< }} ``_` }q }} }} }J} } ʷt ux)}u} uH"uH}t]`` a*  tv #$..H-;dcH.<ddH/=ddH0> ddH1?ddH2@e d New(P); with P^ do begindd }; procedure Detach(* var C: Cursor *); begin { Detach } with C do if Attached then Attached := false elc`}}B}zo?N ϯ}}zo?Nʷap NJ x Nx mx}zo?N}xcɺx}jn NJUkU m'kU FkU N}+}kUJP)}+PnHnkT)ЖmNN3}*k3}*.4k.k4)f},k3ʷ}, },  H.,k3 k3 ɼ`ʷk3k2`},`ʷP R}}}}a}vv}v v ɼ`ʷ}o` pq)1p NJ}rrRR))bB--Dx}x}vx}xx}Nx }x}x NoH>}c`Jno)UnNp=c} c}* }}*3N}'\-}}>'c}}J`}:N`a+k+,Ϩ}.}k.H.k.k4)К}, }, 4)Can't find free list headP)}P R.4k.k4)b},k3ʷ}, },ap\ pHpq)țm NJ}}ʷ}}tp}}ta}tʷ}}t}RS N`r}r r ɼ`ʷq`ȼ}ɺ at NJt`}N`}}ʷ}c Device # ` cn`` c Device name: ` pcc` c  mq)m NJr r n'ϼc `k+J`JP}}k+H`}k+J`JP,JWk,kW)9)k,NP)}.Pak,-&k  H.&k3 k3 ɼ`ʷk3},k.H.k.k4)О}, }, 4)Can't find free list tail]}ɺ aq NJq`}N`r}r r ɼ`ʷq`ȼ}ɺ at NJt`}N`}}ʷ}}}uau}u u ɼq`ʷ}uuqHt`` UH ` rcc` c : Start = ` rac` ` I` c End = ` rac` ` I` c,H,k,kW)\k+' c}``, Wk,kW)_k, NJ )k, NJP)}Pak-k, NJ 'k-'k,P)}P Rk3 Nk32Hk1`])}Pa)k)'\k) NJ*k* k*  \k* Nk*2Hk)`}}uau}u u ɼq`ʷ}uuqHt`` UH)* )) )*.   O   G Free = ` r ac`` c mHmq)#nHno)ѫ}mNPc}:N`mNN TnkT)\k,H,k,kW)С])}Pa1k1k1'\k1 NJ3k3 2k3 \k3 N}*k3ʷk3}*k3 }*k]o NJ }vʷ}}} )vP )}}ʷ}v 2)Inconsistent free listP)v)* )) )*.   O   G  s  tu v :_wx \}k}k*+c?PL4H(όIk4Hk3'Ik4Hk2'Ik4Hk1']})k8}+Ik4Hk7H'Ik4H*Ik4H, }-dvl vjIO_OTHER IO_Others.PASSSiWQɿXD4=#\ E EJSTREAM STREAM.PAS%%a%tethersettime.segQ partition.segsystem.265.a.Boot  }}} z*zH zJ } }}ymKHH+yH yymJJHmLH }PAS# com eftputil 6~4>4=#\ E EJSTREAM STREAM.PAS%%a%*E*Ei IPethersettime.segZ-v)YtRX<[qd*###'#U]D^vwxyz{ isKHynLHJynMH y`x`z`}``ay`x`z`}``a x*xH  yH }xy)}c}Tr0+ndn6  ,=~ /til ||6 4)DYNAMIC DYNAMIC.PASZf,X|H3AedH4BeeH5CeeH6D eeH7EeeH8Ff en Length := NewOffset + 1 Offset = P2.Offset) end { EQ }; function NE(* P1, P2: position *){ : boolean }; begin { NE } NE := (P1.Chunk <> P}﷌}﷌}]}﷌}﷌}]}﷌}]}﷌}]}﷌}﷌}]bz|}]o}ț}﷌}}}ɺʷu*N#}}}ɺʷ`ʷoe}N}N߭b}N}N߭K}N}N߭4}N}N߭dNv d,]}c}ɺ}}]}N߭'}N߭' }\mͭ}N߭ wIN wINwvɛ$6060afyKt+=u N\} })FloppyIO: FailurePpN`} ɛ$` -] c@`}﷌}﷌}]}﷌}﷌}]o}ț}﷌}}}ɺʷu*N#}}}ɺʷu*NNț}﷌}﷌ N]}﷌}﷌ N]}﷌}﷌ N]}﷌}﷌ N]}}}]m*m,mNJߛmNJ߭H]LJop)}oNoHop)}}}N߭ IN}}NuKtH vNuKtH w)J ]}N߭(J }N߭J rx)tM' tLtHrHrx)vKtH wL d)}Pk)N`}*k,` - }}}N}N߭IN}N߭NH}N߭LM }N߭LL(H }N}Nu*NNț}﷌}﷌ N]}﷌}﷌ N]}﷌}﷌ N]}﷌}﷌ N]}﷌}﷌ N]}﷌}﷌N] :<Nd~}N߭IN}N߭NH}NpN}NpINo NH}}]} }N}N\} }L}m`w`]}}o`}c˼}}}]}}ɺ}}ɺ}}ɺ}}}}]m`}x``} c@`}} ﷼}N` N`˼}s`tN`aNrk;} wMN}1}N` N`˼}s`tN`aN}﷌}﷌ N]}﷌}﷌N] :<Nd~$:'\:c `` ``N```&c```$c`()mn)mNJmHmn)Ⱥoa}^} N߭IN} N߭NH} N߭ IN ys)HIs,s*sJN N sMsLtIN z˼}m`}˼}m`}˼}}}}}N} N} N yH  xH `}q N`} wMN1} c@`kN]`6060af``}c```}c```}c`}}NPb,.FH`)J`ʷa}^)J`ɼ^`ʷ<}`ʷ,}}`ʷd]}oN` ɼvH tsMsLtIN t}NvNtNHuH}N?sKuL(H uKMuH}Nu}@K`˼}ɛ$$'\$`$'oxKt+έyKt*x(T6060af``} N``˼} yz{| }~LE or DOUBLE` c \ LLc+ Command not allowed in stand alone version` c ʹcType HELP if you need it` cyYy<)}c}TyJ:y[)}c}Ty POS D.165 a-boot STRINGUTStringUti ethersettimeWRITER WRITER.PAS%%%%ethersettime N 6l 4> l`` a}``ck`}``ck`}}n}}}}}}}}1 2_ I} n} I ]vk])χ}`a w(<cTransmitter failure: l.PASQP|6A>* dIO_UNIT IO_Unit.PAS@#\DYNAMIC DYNAMIC.PASB+~> @ PASCAL.RUN|6 AK)$ !/STREAM STREAM. }}}} } n} I} n} I ]vk])χ}`a w(<cTransmitter failure: `cw```c \^}c}v` a w's,},}'}n'}n'ϝ} }c}ɺi(!PASCAL X aCLOCK Clock.PASIME.PASPASe com ethersettime /~<EE/ * *QJETHERSETDSTCHECKALTOPERQ H9GfeH:HffH;IffH<J ffH=KffH>Lg f) end { TextPos }; pro P, Q: Position ); var R, S, T: Position; i: integer; procedure WriteCh; var Ch: char; begin { WriN}NI g}N}N߭NJ`} N``˼}}}}(}N߭'α}'N I g}N\)DiskIO: FailurePtN`}ɛ$` --{i}ɛ&N`u`vN`aN\}ɛ&N`u`vN`aN;G --)) ZI`N`mp)4mNJ qI``qc`}qmHmp)mp)+mNJ I``qc`}qmHmp)oN`}r`-]Nk)N}*k,m` Nms)Im`mNJ NmNJ NmNJ mN`} N``˼}}}}c`}c`}c`6060afw?`) DiskReset: Can't find}ɛ&N`u`vN`aN Nd| N\}c ɺ zk)o"tN`{ N`˼ u`vN`M Np --r    zk)Б dt'}ɺa`&}}st)XsNJ u} s\p-u Isru,usu,uuJsHst)Шp \qNJ ttNJ mHms)зn')s Forget ALLPoN`}r`-țmNJ NțmNJ NțmNJ mNJ nH]} track zeroPN`` -NtL NP NG N>)Illegal operationPtN`}` - daN| N\ Nߛ N߭JHMH""ɼ@`ʷzH zk)Б dt'}ɺa`&}ɐ}N`aq``}q`ʷȼ}N`ar``}r`ʷȼ}N`aq``}q`ʷȼ}N`aq``q` }6ttttN`tttN`tNtNt}ttN`t}tqțmNJ noNJ ]}oNJ ]#dDc } 6t',}}}}}}ɺ\"}t( }ɛ&ɺ}ɺa{' NN zH  ]}}}sN``N`aNȼ}}}tN`u`N`aNqq`ʷȼ}N`aq``q` }q`ʷȼ}N`ao(o` ȼ}N`as'}}}N`s` }}}]NJ NNJ N)}Pk)N`}*k,`-\  mNJ nn6nnnnN`n PRHyH }c ɺ`"{ N`K`˼ &ɛ$$'N| $`|yKu+$'Σ| zKu* |zKu+΅|>v #$X % r   & N`]}N`as'}}}N`s` }}}N`]H'\HKHLHcIm``m`nnN`nNnN]Nk)N}*k,m` Nms) m`mHms)n&) Flush ALLP  ^c c}cm`c}ɺLink.}c}S}S.Runc}S)}SPcFILEUTIL FILEUTILS.PASows use of default fileSHR *SCAVENGER Run the disk aNnkn 2)Bad Partition name on P3}3d \}o}dc}oc}m aNnkn 2)CBad Partition name on ]}c}N`} 3}d ʷ}  N\}}N} } ʷ}} ϼ} c}a(F))Can't overwrite old file with directory: P3}d \}N`3}dar'}})})  J})})} J})})`P` P3}d \kmkl(=)!Files not in the same partition: P3}d \}f3}d ʷ}f +)File N\}}ʷ}㰈Jt{)Y}tNA}}tNc}tH}}tN aN\tHr` ʷ}}ʷ}} N}r3}NoHo,N}oNJ3R4Npo'3 J)})P }``c` m``}}}14}c` }``c` m``}}}14m``}} not found: P3}d \}j}fʷ}j'3}d3}h3}3d ʷ}f}h ]}f3}d ʷc}3}t{)Ч} }ʷ}} }@)Can't create file named P3d \} }dc} d 3o,3d 3}oNJ3dc}3NJ3,R43}d 3I5N6k5H5k5+ Nc` ]},R3}} (c} N` }},dc}N`}\}Pk'}\ 4Ϟ}\ f aNnkn .)Couldn't re-enter P3}3d \͝}h >3}3d33}3d}h3}3d ʷ}h} } J`` J\.DR41c} .DR }.DR } ROOT.DR3>)The n6}3k5HNJ3R4N6k6k5'3}d 3}3k5NJ3}dP]})})#,})"N})#N` a2}3}\`k2J` JPc}\`k2` }}}3 Jd3}d}.}0c}N`}'\}33}d ʷ}3 }33}d3c}N`c}3N`}}3dc}c}l c}3}f aNnkn *)Couldn't enter P3}3d \}f3}d ʷ}j}fʷ}j }3PP}fame "ROOT" is reserved: P3}d \͡} .DR30)Null filename: P3}d \c3} dc}NU})})#  J})})`#` JH?MgfH@NggHOHHAP ggHBQggHCRh gaceFirst, ReplaceLast); SeleectOnScreen, ChangeThumbBar: boolean; Ch: char; SL, SelFirst, SelLast: Position; SelL: LineIndex; SelC:  $C:----G.RUN a'c.Run cc````cɉ&`cɛ$cɛ"cɛ c`$ (ec *HLH]c ** Loader-F-`cc}`c. not found.`c'\I5}6kc`c.SEG`k4*"c contains no code.`c is too long.`c'\}>(ω--09--/`}r`-țmNJ NțmNJ NțmNJ mNJ nH]}* Loader-F-`cc`c% has an incompatible run file format.`cMc ** Loader-F-`cc5` ʷ}<}6 ʷk5F}G}<kG(kH(I}@}6 ʷkI}@}6 IkIc$** Loader-W-Hint failed for ` cɉ&`"c ** Loader-F-`c`c%.SEG - QCode version incompatability.`coNJ ]}oNJ ]#dDc `c is ill-formed.`c'\ BBYXIϟc ** Loader-F-`cc`c was linked as a System,`cc- it cannot be run as a user program.`c'\( c **  cɉ&`"}i.SEG Jdcc}`c*, using string '\c}D`a}Jʷ}Lʷ}J`}J}J@}JP}J0}J }J}JKk4}L}L PRHMOPQRSTUVWXYZ[\]^_`bcdefghijklmnLoader-F-`cc`c was linked with System.`cɉ``c.Run`cc, but tname.`c3}dc}8c}8a5}6k5` ʷ}<}6 ʷk5F}G}<c˼}F'ψ}@}6 ʷ}B}@k4J}L}L}L}L}L}L}:߭}L}:߭}Lk5}L}G}LkE,I ]c ** Loader-F-`cc}`cM not found.`c\] } Pc} } opqrstuvwxyz{|}~he current system is version `c``.ccc You must re-link.`c'\}>}B ʷ}@}B ʷ}:}@ ʷ}>9J4k4*k4,Ϭ cɉ&`"c ** Loader-F-`   STREAM STREAM.TEXT: Alter Current Selection`cc$File : Select New Patch File`cc;Read : Read a New BaQk'!kH}kNJ3R4}\}P}}kNJ3}, Jdk'}\dc}c}ɺ}.3.po's},}prJ`rH` ooo[}..30qo's},}qrJ`sqJrH` ooosp's})\sHps}3I33S/ffoT9h78 is the partition for swapping.+TYPE File ARITH Arith.PASt file File.of default fileSHR pPsys:part3>Segs> POS D.5 p-boot PaSCREEN Screen.PASPASows use of default fileS4Ϟ}\ N` a2}3}\`k2J` JPc}\`k2` }}}3 oosp's})\sHps}3I33S/ffoT9h78?@55R))T33\\\\3333*SCAPsys:part3>Segs> DISKIO DiskIO.PAS.5 p-boot Pascal.RunR *SCAVENGER HR *SCAVENGER Run the disk DYNAMIC DYNAMIC.PASASows use of default fileSHR Jd3}d}.}0aRk(k'kk(},}dP3},d3}39I8k9},k98}k9?@55R))T33\\\\3333FILESYSTFileSystem.PASASxshe.SCREENSIZE Set the size of the screen.FILEDEFS FileDefs. Run the disk ALLOCDIS AllocDisk.PASows use of default fileSHR *SCAVENGER Run the disk*SCAVENGER Run the disk FSDELETEFSSCAN FSRENAMEFSMAKEDIFSSETSEAFSPOPSEAFSPUSHSEFSADDTOTDELERRORRENERRORMKDIRERR>'k98k9H9k8I,k8)}5}cKk8}3JJ,\4}5}}3`k8}3J` JP}312 ] 3333  1 330PAS.PAS$BSETSEARCH {Parm} Modify search list. "SetSearch CR" will promptGETTIMESGetTimeStamp.PASATISTICS + READDISK ReadDisk.PASSows use of default fileSHR *SCAVENGER Run the disk FILEDIR FileDirSRCHWARNSRCHERR FSEXTSEARENTOEXIRENDIR FSGETFSDFSSETFSDFSREMOVEIMPOSSIBFSBADNAMGETNAME `PERQ_STRPerq_String.PASl k8]}N`}'\}:N` a(-}>N` aHo'\\ooo3}g77^  3.po's},}prJ`rH` ooo[}..30qo's},}qrJ`sqJrH` o| - Turn printing of statistics on or off. sys:exp>$ FILEACCEFileAccess.PAS Turn swapping on or off. Part.PAS.PASs use of default fileSHR 8VE9ERj $ `PERQ_STRPerq_String.PASl HDShgHEThhHFUhhHGV hhHHWhhHIXi hse SPutChr(Del) else SPutChr end { UnderLine }; function OnScreen(* P: Position; L1, L2: LineIndex ): boolean *); var L: LineIndex; C: Colum '] J}$}" :}}ʷ}ppH} } HJo,o}}̻} 0}}ʷ} }33 XN33  } Jv*:c"** Loader-F-OverlazDX}aJAH}qAZD09DYX Ϋ}r]}c}ɺ}  ψ} TRUE}FALSE}} *} }}  Y} ((tHtq)}tJ}} }tsq*sHq ty)}tJ tH]s)33} 3Jd} +B-BYX} -'} }u} 09DX 33} 3Jd3} 0J} } HJo,o}}ț" " J }}"} }} ʷ}} } } Jv*:c"** Loader-F-Overlapping XST/GDB's.`c'} } J } X}} ʷ}v} vH }$} } ( }}}v}}*}}}} 3 }0}}3 }33} 3Jd3}}ʷ}}ʷ} }} 3}c} ɺ}  dIIskk)Ϧ}}k}kk)&}kazDX}k}kaJAHkH} }3ts ,s 'rq,s KrH} 09DX t 33} 3Jd3u }sI}s]}}ʷ}} ʷ}  apping XST/GDB's.`c'} } J } X}} ʷ}v} vH }$} } ( }}}v}vH }} ̟}} c* ` 'c&``d`'  ````' c&`' 33} 3Jd3q,} }}qJ}}} }]}}ʷ}} ʷ}  }k+sHk8k*1} }*}} } }3k+sHkkHRks,)33} 3Jd} }}  33} 3Jd3}qr+τrq,qrts*}  }   tH}t}} }vH }} ̟}} c* ` 'c&``d`'  ````' c&`' L}}ʷ}}ʷ} }} 33} 3Jd3} B BY BYX}  }}}  }  33} 3Jd3r+Ϣrq,qrts*}  }  "tH}tJ}} }tsq*s8xk+ }kgks,)33} 3Jd} 87k+ }k&33} 3Jd} 8}t}  }  tsHr ty)} }tHp} B BY BYX}   } }}   9} ˝JJc( (*' c}) ])) P  3Zϳ}azDX}aJAH}qAZDX 33} 3Jd3}r* rH}rq}}}Hq ty)}tJ tH}  }  !sHr ty)} }tH͐} B BY BYX}   } }} ]}} ʷ} } ʷ}  }}  33} 3Jd3}  B BY BYX}   } }}     d }ȉM͵m'Y+L`MKH```( L`MKH```yk)     F봸  IP initshell.segQZ-v)YtRX<[qd*###'#U]D^ φ}}nJ 帼} ` am'm},}m)cc}` ccc}m` c})JH})c},c}+aNc},a k+},3},P,}},P` ]+*k*})<ɺ)JP׺aN~V8))c}ɺ)JP׺a~V8,)~V8M(~V8~V8L~V8*~V8, }nJ*}ʷ}}}}m 'mJm)}m*cc}` ccc}m` c}k* (/0}k*,9}k** k+K}k*H0J+k*H*̺k+}t'}T'N }f'}F'N]~)c}ɺ)JP~,~V~P~V H~:巛~]c2** No #ShellCommand})c`` c})c`` c})#c``c  `})ic``c~``c<`}}~~Vʷ` c} c~-}3\~V )c}ɺ)JPP׼xOTHERs found at all, using defaults.`c``c<`}), -k,k-)y})}.ʷ` }.xOTHER ?   } y}}ʷcNumber of Commands is `}c``c (table entries are `*c``cnHscc*** Bad entry in #ShellCommands section of `cc`cce** '`cc` ? HELP PATH RUN RERUN PAUSE MOUNT DISMOUNT STATISTICSSWAP SCREENSIZE~ HELP PATH RUN RERUN PAUSE MOUNT DISMOUNT STATISTICSSWAP SCREENSIZEk, KH` ` JINITSHEL INITSHELL.PASL2pK3pJ4pI5pH6pG7pF8pE.  words)`ccc8Command Implementation Add Set SSz Inx`cc}nk)'ccc** @`,c `J`Jmn)XcmHmn)c\V  aJ~V9-l M'!l Ll+l ) ~V9l~V6))c}ɺ)JP׺aN~V7))c}HJYihHKZiiHL[iiHM\ iiHN]iiHO^j ip } Status('Enter ScrollUp');t) then Distance := 0 else begin Add(ScreenFirst,-1,Q); Attach(DrawCursor,Q,ReadCursor); j := 0; repe(&tq*tH}t}} }}tq$DX 33} 3Jdq`4}}ʷ}}ʷ} }}s' }}I8^` 12l}llHJlH~l}~]}o*\opH}rs)}oqH}rqHrH}oqHJ}}.0uv[*,FH\ ] }ʷ }H*G} }㮜 㭊 J  J0} } K0nmHaf]m+m)n 33} 3Jd3} B BY BYX}  }}}  Ϲ }+'}}!} 6q *}0q0HD}09DAq JAHDY}azDX}aJAH}r}X 33}rHs, q}, }H}q tv+}trH}ttJr tv)}qtHJ}ttH}s]}^}pH`}pHo]nazDXn Jn]}op)$}oazDX}o+n)m n } } ] ȍ]m]m]mM(m)mH,-'}}q *}0q0HD}09DAq JAHDY}azDX}aJAH}r}X 33} 3Jd3}}r09DX r0JrAJ HkqK{HkIk|qK{Hs.z|, 0z|, %z}}JP]}}pH`}pHo]nazDXn Jn]}op)$}oazDX}o}o JoH}kk)}kk'k\kH}kk+}kk'k\ kJ}}lm *mqs)ϒq }q m%J,"q'q'  q Lq m+@q mJJqmJJJ 3Jd3}}r09DX r0JrAJ HkqK{HkIk|qK{Hs.z|, 0z|, %z o, }o}~Hl, ~}}H~ll) ~l~llHlH}o JoH}kk)}kk'k\kH}kk+}kk'k\ kJ}}lJHll)I}llHJ}l'll) lHlJl'l lH̭qm,qqq HqHh }ʷ }HH}Jm+HmJJJJHr0 rJ0af|,|'k, d}azDX}aJAH}r}X Gz33} 3Jd3}|kH~l}~]l,l, l},~~U}llH* }lJHlll)~JHll)I}llHJ}l'll) lHlJl'l lH̭.0uv[*,FH\    pvx~c````c````coutput file name: `ccP`P`cc extension ( for all filP}. N` a+k+(.}.}.`k+J` JP}.  Pc}.6N}.7N}. y﷛xOTHER ? HELP PATH RUN RERUN PAUSE MOUNT DISMOUNT STATISTICSS vN`  2  |{+|)*?0a|6&%shelJ@DYNAMIC Dynamic.PASDDDZPY dndn  ,=~ / g|6 )IO_OTHER IO_Others.PASL2pK3pJ4p8}.9k,k, ' }.:}):``<`})}):k,H,k,k-)ч   } >Default.Profile3)}PWAP SCREENSIZEOTHER aJ L- Pl ShellCommands}J)*@z))1 ))Jɛ*)P) |``c}ɛ*K`}巛` lZvlvMEMORY Memory.PASf s initshell fI5pH6pG7pF8pEPERQ_STRPERQ_String.PAST #\ddndm )ccc** Your profile file '`cc}`c' cannot be found,`cc (** or has no en` }4,` }}Jɛ*)P) |``c}ɛ*K`}巛`CMDPARSE CmdParse.PASP BPsys:user>control> POS D.265 a-boot PROFILE Profile.P initshell tsCODE Code.PASL.PASL2pK3pJ4pI5pH6pG7pF8pEW%AUTILPROGUtilProgress.PAS  |( initshelltry for '#ShellCommands'.`ccD(** Now trying to use '>Default.Profile'.`c>Default.ProfileP |`Pick a command:c}mk)ϖmJ }cmJ*}ʷ}} Pc}ASQP |6>* dSHELL Shell.PAST #\GETTIMESGetTimeStamp.PAS*( PASCAL.RUN|6 K)Z =!SYSTEM System.COMPnitshell T X%I<HWkt \LVL@LVLT U#\nd ShellCommandsm  |( |` 'c ``` | |`  |``c`)}6N})}7N})#}8N})i}9N}}:mHmk)j |` N N N Xkt PASCALT #\POPUP PopUp.PAS: ! /$PAScomp initshell ~ ddF<  JSTREAM Stream.PAS%%a%HP_jiHQ`jjHRb jjH_ GHScjjHTdk j text before P. assume Sub1(P) nd else begin PC^.Next := Q.Chunk; QC^.Prev := P.Chunk end; ReOrder(P); Status('Exit Join') end { Join } `mJJ`mJJmJJ`I```mKL`np mJHmJ0mJ0afmJ om`n` ͍m H,J  Jo,o n n ]m 'm '\m`nm`om`]mͼ` `k0k0k0k0k0 k0 k0k0 k0 k0  k0 k0 mm n*nK JPNNN] )BT)J J  HH HH]m'3 㭃  oJJ ^m*m,m  l`mKL`mJJmJJm JJH HJ0 HJ0afmJ `o m`n` `` o m`n` ͯm m}ʷ},{ }H, ` } ﷎}㮜 㭊   J0} } KH%H,o*oKH%H ,pnHH,qoH H,q%*%p%*%onoqHJnpHJHHJJHJHJp(q(}(`J`J`H`J`ɺ`J`H`H`H`ɺ` =mu 㭃uu u  u oJJu uuu t3qsJKHJoHHsJHrJH0sJHrJH0af,`` ] }ʷ }H}}JH,{JHJ}JH0}HH0afJH J}HH0onHaf }H d a4][9W0F]. }ʷ}HH}HH-`,`)+Ȝ }ʷ  68EFJ`J`J`H`ɺ`H`J`H`H`ɺ}(π  }0ʷJH H00af}0qsJKHJsJHrJH0sJHrJH0afqsJKHJpnJHsJHn0sJHn0afprJKHJsJHrJH0sJHrJH0af }J0 }J0af }H ] '"no)nߜnH߭nH mHJH}JJ}JJ`}H`/P/m)=  /H)* /`*/H/̻Ȋ Pc}0SRRD))P33RR33TTVh33j))- HH}0HH H )}P `}0H`  0k0 k0 k0k0k0kprJKHJqrJH0qrJH0af`sJ`rJ`qH`rJ`ɺ`sJ`pH`qH`pH`ɺ`sJ`rJ`sJ`pH`ɺ`qH`rJ`qH`pH`JH00af  H ȍm (m (b  mJn*G,<J߭ mJ )+*}H/P1k/k1)}k/ k/H/.c}-c},ɺk0` ]m,m*0k0 k0 k0k0--)--*``LogIn..Run J0k0k0k0 k0 k0k0 k0 k0  k0 k0 ] JJ   ````c*** `cc}`c, to continue ***`  '``]``cˆWRITER WRITER.PASPO:uini initshell POS D.265 a|{ |STREAM STREA The files imported by that program will be added to the` c cD Run file. If other input files are specified, tmJ)cc` c mHc \͚cFile ` ccC` ct not found` c ͧcError rM.PASomfcT Qkp n T #\DYNAMIC DYNAMIC.PAS&hey replace the` c cD default imports. The output file for the linker is the name of` c c7 eading ` ccC` c ucMultiple program segments` c Fc`No program segment encountered` cT|1Ju| |6 )JINITCMDSDUMPCMDSPROCESSCBADENTRYBADENTRYGETSTRININc cF The Link program is used to create programs that can be executed,` c c,D called "Run Filethe Run file. The syntax for the command line is:` c cF Link prog, imp1, imp2, ... ~ RunfileName/switch1/ cc` cc` c cc` ccw` c cNumber too big` c ͣcc+TVAL GETBOOL PNOTFOUNPNOTFOUNX%I<HWkt \LVL@LVLT U#\ndLINK sys:exp>os>link.PASyVXt#B?ư-]wD[RxUTt%J# ) %o+vmeB*Q((% d s". A Run file contains pointers to a group of` c cE compiled files called "Seg Files". The inputs to the liswitch2=arg` c c0 Where the runFileName defaults to prog.Run.` c c c Ordinary usage is:` cc` c ~cgNegative numbers are illegal` c Kc Bad switch: ` cc` c cFF눭 IPlink.seg`d/QZ-v)YtRX<[qd*###'#U]D^ nker are` c cB the set of Seg files to use. The first file must be the main` c caF program. ` c c Link prog` c c c Switches are: ` c  mn)5c ` HUekjHVfkkHWgkkHXh kkHYikkHZjl k procedure ReOrder(* Start: fields are allocated in { a record. Watch out`when not running on UCSD or PERQ. { { The Non - UCSD/PERQ versions of tɺtqsJHoHsr0sr0af] }}y}y }yyJ}y y J} y ]m*m,m   f _  $ d )) v` i j q  :N` ap,p'\} }`}J` J JdP͜}>'3}vNJ3} Jd}}ɺa w(Dw}}vNJ3}}n} oN}``2}n` ]}m` ʷ}n``}}m` ʷ}n``}mZ, maJmAJcn n nnnnnnn n nn n n  n mn2 "  p\}}`}J` J JdP4}} JdP\vH vx)M3}d3ȼc3c}}4}6ɺa]3d3\ c}N`}' Mounting disk #` c n`` c ...` c n`c ...done.` c }nNʷ}} mN n nnnnnnn n n n n n  n Ȝ }ﷺ} _  0 9u r  JdPo }dP]m` ]m` ]}d}dP]\]\] c}N`}'3}d3\}43}dʷ}4 Nmkmρ}6}dc}6c}iaNjkj6}4ki`N`ʷ}4 c}}4aN}n`}ʷ} as' nN: J mn)m mH`````) P帺  mnopq}] r x}a}aqpp d]o'p+}p`o`ʷ'}p`o`ʷ} \}83}dʷ}8 \}<}8ʷ}4}<}6}< c}:}<}:}8ɺ a}8]3}d}4}6jNjkj $}4 }43}d3\}4``22}nʷc}kkm.}n}n N}n}n}ns NJ J> J3d 3NJ3dc FileName prefix set tr..d]``2c` d4mn)3mNJ3dmHmn)}((}:a8k8k8'3}d3}3R43}d}}ɺa w(w}N`\  vx)ϳ}vNJ3(ϕ}k}n}k}n}kkm2 }PP}4``2}4ɺ a]}m` ʷ}``22}ʷ}'   H}M}}/a}7'˼}˼}J aa˼}˼}Ja*}˼}˼}Ja Error in Code File: Source file=` cc` c in ` c.SEG` c file ` ccC` c .Run is ill-formatted.` c scMultiple occurances of module ` ccv`` c /cSwitch ` cc` c . Not pushed.` c c Directory ` cc` c not found.` c ͦcSyste WARNING - ` m'+cK 3d{cg \poMoL}}ʷ}o`` } blocks (`4V}}a+k+(k+}}JH'}}}JH`}`]``\   }4͗c%Maximum stack less than initial stack` c \YVc +Error in import section: Import file name=` cc` c is not unique` c c IMPOSSIBLE!! ` cc` c ͸cMissing switch after /m.` cc!` c.Run was not linked as version ` cɉ `` !c c 9cSystem.` cc!` q(4}}ʷ}q`` p(}__  } pQ]}}ʷ}1/4` C}}ʷ}1/2` )}}ʷ}6k4k6+φ}k4>'r}}`k4`Jdcc}c}3c}3a5}k5' ``3}dcc` c in ` c.SEG` c file ` ccC` c cSegment ` cc`` c fr` c ͋cBad decimal value ` cc` c UcBad octal value ` cc` c !ccCc).Run has an incompatible run file format.` c cc` c Ϳc'There is only one output file f3/4` d }}ʷ}K words)` } } a}  yb} } ʷ}} 9 }}  ?}a \ k4J4rȜC}dk:cC).PASP帺cC).RUNP帺3Cd cC).SEGP帺}``c`}om file ` cc` c not found.` c Zc File name "` cc` c " too long.` c` c - Incompatable QCode Version` c c** Recompile ` ccC` c ͫc Aborting; or LINK.` c ͂cIllegal character after LINK.` c Nd"H^-Psa\3 9}R3} [  }}  } } ̓yE}``c`_}}}}}巛_}}ɺ}}``3`] ]}﷛a a} _}}}ʷccCc}c}a}k'=``}}* cm File System.` cc!` cc.Run not found.` c c File System.` cc!` c` cɊ|`` c error` |( sc c found` c EcNo room on Search List for ` cbg"f./E]}+Can not create P}Error writing Pn (c** ` m' |H|m'c}4P}}a+k+}}JH(k+'}}}d,}``}H[klkH\lllH]mllH^n llH_ollH`pm lkReadT or AskReadB packet. { Thte(Var Ch:Char): ErrStatus; {*************************************************************************** { { Abstract: { o: ` c c` c c ]}4 Pc}:N` a6k6k6,ύ}4}`k6J` JPP}4 6Jjk6kj)Gk6N,}7k6Ndc}7 }7}43\k6H6k6kj)й784JBYX;Hc'#sM'sdM'sM'!ut,5TcHu ,cHcuJIH`tKtKHJ`r㭆r}ʷ}@'}P )r}} ʷ} } }JPP}4 6Jjk6kj)Gk6N,}7k6Ndc}7 }7}43\k6H6k6kj)й784J78  334<b0Le2K(0Tuuuuwς}] `,J,`%}%}﷼}%|#}a}aqpp d]o'p+}p`o`ʷ'}p`o`ʷ} KHr'Ϊ`}ʷ}}H}KH```c` ``` c` ``78  334<b0Le2K(02:33<EFR><f(4&565*]d]``c `}ʷ`}`}㱥`}㲝 `}~`}Z)4r㭆r`r, rr'`,_``` `````` `2:33<EFR><f(4&565*n*o*!no+!]c}}߭}߭ q``ar'qJ  rH'qJ  v* v ` cc` c ]` }R3\C}.SEGo``}2}2}o巛e8e9}o oJK}o pK}o }o H}o e:}o }o }o HHaqmlHbrmmHcsmmHdt mmHeummHfvn m CurCharValid:=False; tten. { { Results: { This procedure returns a standard error code. OK means that there { were no errors. { { Side E}@( }`ț}` 4}''}`} }`c}ɺm} ʷm}ʷn*Kt} r' rrvs' rsru}c} } } pJ} qJ} } } `} }}ʷ}}o}u]c}ɺmm`n`mnJ]c}ɺn*n, m`n`mnJ]c}ɺm0n]c}ɺm@nm}ʷn'C}}9˼m``}@'m㲂mn`" m'p}r㭆r} ʷr} ʷ} `} @'n, m`n`nJo}, m`n`} h}(^o} K,=} }`"ʷ} KH oyk)} y``o} K*vapK} KoJJ} } HoHHpqIpq} Kop}}pc}}ʷ}*}}H]c}ɺm}ʷm}ʷ},n' m`},n'ό}(ʷ}}c}T}}}$}mK}}]m㭁m`m}  ?} o'5} 㲈}} to'up'vq's } 'c}sr'}s }rr`}}qH㭁 yH }  } Koo} K,i}` X} K}KHHo+8}㭄} K} KpKm m㭦Pgo*o,}`o`p*p,}`p`q*q,}`q`oq,}`o`m`} c}m`c}maa}K`})` }K`})` ˼m``J,m`m'  ] mm㭁m`n}ʷn`n`m']m`"ʷZ)ab t v   l n HH}pp`o} K,Z})m`},m`maao`})` c}m`aaoJ`` 'Fu} ʷu} ʷ} Ko+natK} KoJ} } Hon)}=}K`})` n'˼m``˼m``}n} c}ɺm}ʷm}ʷ} ͚  Fc*** Mounting hard disk...`` cmdone.`c}  ʷ}     ` b   H   ' r}ʷr}ʷ}r``}}H`}K}KKH tvItv} KoJt} } tu} } } } } @} P} 0}  ,}*[}}J}'}'1}}@'}}H)c}]c}ɺn*n, aJ`ʷɺ!a ]m㭁m}ʷ}`}f}K`m)` ' ! !!!! !!!!" !`bMAI.SEG FTPMAIN.SEG Get FTP.SEG FTP.SEG Get PLX.SEG PLX.SEG Get PLXUTI.SEG PLXUTIL.SEG Get SNARF SNARF.SEG Get EDIT.SEG EDIg cg Segment:` }cg`` cg File:` }cg` cg cgd GDB Size:` }cg `` g cg cg cgSpecified Stack Size ` cgɊ`cg cgInitial Stack Size ` cgɊHLH`stack increment. Arg is in blocks.P帜J)b t v   l n (-}}﷛ }q` } gq` s` ] m ` c  ` \}}߭} ` }}ʷ}}1}}}}}}1} }1p& 1 + %)"|Hm'}x( } {HĎ98}ʷ} H}}8mg ` 3|)|}uAuuH }?D Fp,\pJst)As}ssH    ` b   H  `c}ɺ}0 }@ 8(ϡ} ͎} ̀} p} `}}@  ` d}}4}߭*}߭,` }߭*}߭MK+` }}߭}}H` d K5* .dFILESYSTFileSystem.PAS#\%RUNREAD RunRead.PASlink.PASyVXt#B?ư-]wD[RxUTt%J# ) %o+vmeB*Q((% RUNWRITE RunWrit p>os>nk5DYNAMIC DYNAMIC.PASt@J@IVLV ?j`g to ScreenOffComp: `cc}`cc8 There should be 2 arguments with values TRUE or FALSE`c\]++_33n33``33bm~)*|~#\pascalXaFILEDEFS FileDefs.PAS+ X,ae.PAS :exp>os>link link 0C00C0B#\HHJaCMDPARSE CmdParse.PAS READER READER.PASJan. :exp>os>link linkx#\ 06 Jan 82 23:19:17\LINK DOHELP  NJ)PATHP帛NJ) SETSEARCHP帛NJ)SHELLP帛NJ)COMMANDP帛 0 &"("%%i&Nj&'enced` c  ^L|'5 ~[,,7,6#\BJ@GETTIMESGetTimeStamp.PAS-'06 Jan>x '06 Jan x6)UTILPROGUtilProgress.PASfX SCREENS ERROR ERR1 PRINTSIZGETSEGMEFINDSEG ADDREQEXREMEXT CHECKFORSRCHWARNSRCHERR PROCESSSS2I HANDLESWHANDLELIPROCESSCDOMAPSNJ)CURSORFUNCTIONP帛NJ)i SCREENOFFCOMPP帜PLogIn }{ J [ cK˼ } aɛ] cK { {*ccw` c written.` c |,``]6#%F%~t6}( .RPERQ_STRPerq_String.PASj PASCAL>os>link link f:IZEfD#\STREAM STREAM.PAS t3 sysc>`06 JanTUINITIALIOPENRUNFREADSYSTgSepOctN :exWRITER WRITER.PAS#\ :exp>os>lPASCALk}{4Ϫc}{ c}Rc}{c} c}Rc}}c`a#c}{ SYSTEM System.PAS>{Psys:part3> POS D.66 q-boot pascFILEUTIL FileUtilsexp>os>link link inMEMORY Memory.PAS= N / 4X $JanFebMarAprMayJunJ06 gSepOctN :exWRITER WRITER.PAS#\ :exp>os>lPASCALk p>os>nk5DYNAMIC DYNAMIC.PASt@J@IVLV ?j`Hm}onHn~ooHoooHp ooHqooHrp oes - 1) Do Begin to return error information. { { Side Effects: { This procedure will change ErrCode. { { Errors: { The following erroHD ? 'F\qHRc  Ether3 Xmt failed: status = #` ?c ``I` c  ?``˼}} }}}}`} ``˼}} *]c}ɺ m5(5'` m'`m*m,mM(\ n3c}ɺ imJ4n1 " 2 1 27jo` }1}}}>>]m>i>(j]] E }NET3RE`}}`a}}DSK Rͽ}}`a}} }F?KnkK)n }n}nInHc}}Bnm}D}Gnm`}B``˼}I}Gɺ] m5t` c}ɺ }}s` i8@}afopjs` q` c}ɺ }}u` i8@}af}}j>]m>i>(j]] E  Jnp) nͻ: b :b:bͳ:bͥ: b͗:b͉: b{:b }FLP RI(I)k}}`a}}SPK R7}-}} `a}  e^`L N ~u` s` c}ɺ i7m 131 " 2 1 2jn` ]m* m,n* n4,4c}ɺ i6'(68FRyQzm:b_:bQ:b C: b 5:b '"d  K;Ua{ao```}}@}GPIBR*}}`a}}}@}GPIBR͟}}M f|!qKH}p}}巛?}DgDr*rmn/ m&HK%nJKmnjo` ]m* m,n* n4,4c}ɺ imn/ m njo` ]c}ɺ i53}}2}4JH}}}djq` ` :nInH]no, ppHoJp]}}}ʷ}=}}no)n}ʷ}} `a} }}} TBLTRY}}`a}} }}Z80 R}m6]}c}} c} }} `} ``˼}} }} }} `} ``˼}} }?}_}@mH`}&HK%nJK6'mnjo` ]c}ɺ i53}}2}4JH}}}djq` m*m,mM(\ n3c}ɺ imJ4n1 " 2 1 27jo` }1}}}>}}I}}}  Rn#}:}RSVDR3B`}} `a} 2#"## ####$ #}IrJKH`}`a \\} } Gc}?PLX-R-`cc`c} not found`c cI)Pc cIc} login.seg paslong.segc makeboot.segsysb.bin ͞c}{ c}Rc}{cL c}R`3:c}{ c}Rc}{c c\djl}{ JJcc$Enter the secret password for user '`ccK`NJ) COMMANDP}NJ)PROFILEP}NJ)PATHP}NJ)SHELLP帼}ccK' t P帛KGuestPtP}R4?t}P帛tt JPcopy.segM ETHERTEST.RUNc}Rc}{ c}Rc}{c} c}R}()}P)}0Jk*k,)}P'cc ] }EPcNo`c} a(pk`c} a(}pN`͍}Pcc})a cc})`c\͝  +c** No ',' allowed`c\X πt'ic Password: `ctɺ )tPt}P帛tt JPNII)kv͖c}{ c}{ c}Rc}{c} c}R}3)}P)}F' Nx%}c~}+}}J``NX}pN`Gd'F~wc~w~wc}`a\#PPPu)KP)tPca Fc** Invalid user or password.`c Login\HPNT' Nx)}P)c}{ c}Rc}{c} c}R}}3)}P)}F' P/ccc"To get a login name for this Perq,`ccsee the responsible individual.`cPͲc** '/`cc~w`c' is not known to LogIn`c\`c** '/`cc~w`c'N#4#P3(P*Default.ProfilePWHNeed to create System.Usersc}Rc}{cf c}Rc}{m c}Rc}{c} c}Rc}N` 3}dc 3Nw%}T' Nw)}P)pc** `cc}`c& is not a valid LogIn profile command.`KP ]cc** There is some problem with `cc}`cNI }NJ)*HELPP} is not unique`c\d $2BRͰ] c}c}aN) PK}PHspoHtppHuppHv ppHwppHxq ps is when an Abort packet { Abort: Write('Abort '); Ack: Write('ACK '); FTPEOF: Write('FTPEOF '); }}`a}}}} RKEYR}}}KEY R͛}}͍}}PUTCRq}}GETCRU} }}CLK R-d(2c7yy}}``} ``˼}}`}}}}``} ``˼}}`}c``:cD` `` c` ``c ` `` c ` ``c@` ``c@` ``c@` ``c@` ``   [  /```?c` ``}!c` }! A}!DCFEG6}`a}}}}FRSI RM}}}`a}}}}-U}EnBBY BY BY BYXnH:612347I ?nq)!mr) nm` }c` ``}c` ``}c` }``}c` }JJI gs`}}߭J`}``˼}-c@` ``c` ``8c` /```?c` ``}!c` }! A}!DCFEG6`@`J`T`^`h`ii`gHp`jq`  N#k k#)k H r`RSO R} }mr)mHmHl  }ʷ}'Q}ʷ}mHnH         }}}(}߭'u`}'v`I gw`}`}``˼}}}x`}c`@`J`T`^`h`ii`gHp`jq`  N#k k#)k H r`|` `}`c}`  N#k k#)k H `  N#k k#)k H ``}}H}ʷ}}}HN}ʷ}} }H}ʷ}}  p 8     B]/dd` }c` }c` ]``}c` ``}c` }``}c` }`}`}``˼}}}~`|` `}`c}`  N#k k#)k H `  N#k k#)k H ``$\  b-24a.jl }H}}cSCRNR} `a} }PSTSRͷ}`a}}GSTSR%$5  ]``}c` ``}c` `}}}}}}}'!}'}'`}c` }c` }c` -`>.```c` $\  b-24a.jl $# $$ $$ $$ $$% $`ct``c" incorr sure this is what you want to do? Pa \LL)Single Sided? PaLKL KLmPNNDefault.ProfileP\]\]  y $}3y}3 y|`|v)} N`a'}:N`a(})4O })` `JJJP4PP LoginP4ϟ>(c  33 e ))f 5@334833:>W1SYSTEM System.PASP Psys:part2> POS D.165 a-boot SCREEN Screen.PANxNwNPc 3 ]]a\})PA)Z+NSkS ϼ3}JP }P) Pc````c```` NLogIn version >N`3dcc a'`cN` c ** New path `cc`c doesn't exist.`c3 :User>Guest>P帼3dcc a' >PcN`  d4S;QP|6A>* ;dCLOCK Clock.PAS>Hold_Time.TimeStampdc}Tc}R a{{'kT(kR (:3>Hold_Time.TimeStampd a{{`` ` <}U``1.17JP   JPc N`  -P帜3 :User>Guest>P帼3dcc a' >PcN`  d4 NN]2F))4H= ))))GETTIMESGetTimeStamp.PAS! (/$c`{``}U ˼}Uc})c})})J`})3:c+Enter date and time as DD MMM YY HH:MM:SS :`JcbootJP) P P帜#cP帜dP帜eP帜uYP帜L:P 3  NN]2F))4H= ))))))=))>~3333))~ >  3X0aA&4W4@4?#\PERQ_STRPerq_String.PASDF0FZPYK #Enter time as HH:MM or full date: [`cc})`c] `^^c c}cP`P` }})Pc}u4 )uPL4 )LP)Shell..Run))=))>~3333))~ >  3  33 e ))f 5@334833:>W1HyqpHzqqH{qqH| qqH}qqH~r qinformation. { { Resutls: { s procedure is used to read file from another machine and { write it on the current machine. { { Parameters: { SrcFile$}g`'ϣ'?} ` K HH`Pg}Y'8 ` HP} qo} qqp} p㭄pr, qr+qp*qp*qr+sڼr} rH`q`aqr+&r} rHq'} roHrMJM  H`}`a*}(}('m''c```d c}}߭}߭}]c}))}Pc}+ɺ})߭})߭}+]c}˼}}ɺ]}Pc}c*}` H` H` ````` ` ````` ` ]c} q } yHoJy } xH㭇} rqqoH`p`aqp*4qoHp'&o} pH} pp'q} p㭄} qp} qo} P} q} }5m} ʷ} ` m`} @(m`qHIq'nHIn'm  m} ʷm}ʷ}c ,}c}H}}T L0H`}}T M0H`} `}$JanFebMarAprMayJunJulAugSepOctNov} xH㭆} xH x'} xHu'} uH*m(n(n(} uHn'} uHm'|'ox(v } wH wx(} uH*|' } uH '}㭃}㮁6}㭃} J}  Hm'7'P}o }ʷ} PF}㴈ts}s㭇nsnMJnM qxH`}s`a st'u(u'u'}m}sDec}cKJ``J} `}qdM L0H`}q M0H`} `}} L0H`}} M0H`}} uH㭈y } wH wx(} wHt(} wHs(} vHx(v } wH wx(} uH*|' } uHn*o*!no*!]n*o*!no)!]n*o*!no,!]n*o*!no+!]} }} ʷ} ` } @(}KHn}nmJ' }nn}n}no]}ʷ} }]  < ,.::`}} L0H`}} M0H`}:`}} L0H`}} M0H`]2, 22H2|()|(|BBYX-|' m`n`o`p`op(} o`oHxtrs E))))}IoHIo'qoHJI}K,}}} ʷ}} ʷ}} ʷ} 㴄}  }ʷ}K}HH}H,ͨ`}K}HH`}K}Jc}}H`}  H`}`a*}(}('m''c```%$%%%%%<%<< %}J} })}Pc cIc})Pc c}Rc}{c}ɺa #cDATE dd-mmm-yy`c K\c}CONSOvl vjMEMORY Memory.PASfJ*5 login fJfJIO_UNIT IO_Unit.PAS\X>dndmK e*@|0Fe| |6A )JSTREAM STREAM.PAS#\ )HSETERRCHECKSWICLEARUSESRCHWARNSRCHERR GETTIME HELPKEY BADTIME ITER WRITER.PAS\\6^T ^\>e to copy (type return to build a new one): :BACKUP>SYSTEM.265.b.MBOOT ! ! makeboot ! ! ! NOTE: ! ! Now try the new login /gin USERPASS UserPass.PASFW%AF0IO_OTHER IO_Others.PAS{F   F%(,%*login c2(%X%@@?WRITER WRITER.PAS\\6^T ^\>e stem.265.Config] : ! !Which character to boot from? a ! !Do you wantboot...AFTER YOU BOOT, TYPE ! ! @LINK265.CMD **************************************** ! ! es a couple of now uCMDPARSE CmdParse.PAS+~> @a PASCAL.RUN|6 AK)$Z!KPROFILE ProfileCOMogin6STREAM Stream.PAS:v:*E/$:mDYNAMIC DYNAMIC.PAS%vl>ul%>F + to write the boot area [No]: ! !Write a system boot file [Yes]: !Enter name of new system boot file [Synnecessary files-- ! and all the space-consuming, unnecessary gs* files-- ! if anything has gone wrong you may want to kee.PAS com login K~<EEK F FQJFILESYSTFileSystem.PAS%a%SHELL Shell.PAS @log loginrh>q%>F POPUP PopUp tREADER READER.PASJ@I-j`mbX>stem.265.a.Boot]: !Existing boot file to copy (type return to build a new one): :BACKUP>SYSTEM.265.b.BOOT ! !Write ap them around, so ! type C and find a wizard. ! otherwise, type pause delete sys265.boot deleterK3ndnK  ,=~ /  ||6 A)FILEUTIL FileUtils.PAS.PASomfJcm 0 >W#\ETHERSETEtherSetTime.PAS%LOGIN SHOWHELPTRYSETSHDOPROFILCURSERROSCRERRORPNOTFOUNCURSERROSRCHWARNSRCHERR SCRERRORREADPASSHELPKEY CHECKLOGHELPKEY REn interpreter boot file [Yes]: !Enter name of new micro boot file [System.265.a.MBoot]: !Existing boot file HrqHrrHrrH rrHrrHs r End Else ]UCSDPascal*) ` End; End; End {While True Do}; ]}0+9).}, }} KH0Jq }o*}p,] (})k1J})ck0})Tk/})k.})k-})k,]"))$RThj7ʷ}7' %}7}` ~`ad-\wuKPLFE{20.,*? }`}}}}}}}}}]}o}}}(&}²`ʷ ʷ}m@' }} } }n}ʷn}ʷ}KH} '2)]2k 'c}/``k-'}\Pka+kz)kA+kZ)}\* c}\k`0++[npk0KJ``J3k0 , %X ~`o ('k#(%]````%````%}}}}']}ʷ}ʷ}}H}KHHH'?}} nkk@*k?pHoH`} m`k `˼ ɛ  ',kkJkkH HH c}\ }3$JanFebMarAprMayJunJulAugSepOctNovDecPc}3 k0H0k0 ,}\}3k0KJ``J3k0 ,k-'c}1`c`k1+) k1H1k1P+ k1lH1k0BBYBYBYBY BY BYX+3k0'(k1M'k1dM'k1}a}aqpp d]o'p+}p`o`ʷ'}p`o`ʷ} K}KKHH}`]}}ʷ}`}(#}@'}}ʷ}*}, }}J}J߭H} 'o' 'G ( p* 'p' k-'c}1`c`k1+) k1H1k1P+ k1lH1k0BBYBYBYBY BY BYX+3k0'(k1M'k1dM'k1]'%a2o(`!(`(` d}`2% }`d]} }qH㭄}qH㭅}qHp(}qH㭁]m'm}ʷm}ʷ}}`}@}` c}}`}`}+p}}`}ppV}}`}p` (σ m'=)Swapping segment inP``ɛ ` -:)Swapping segment outP``ɛ M'!+++k/k+,c}.``k:'c}-`;`k:'c},`;`,k2})   k6(}`c%%a }` %a }` 6}}}}}m'}ʷ}ʷ}}} }0}@op㭃o` }pp]m}ʷ}ʷ}1 }}} } }Y }&S \?&&& &&&&&&' &ile from the floppy on the screePERQSTRI PSTRING.TEXTCMDPARSE CMDPARSE.TEXTSYSTEM SYSTEM.TEXTWRITER WRITER.TEXT0l l  P direct.segnt} Type comment and wait for RETURN. SCREENSIZE F F 8 SCREENNOPk error: P}ɺ}}}t`` ac Retries succeeded.`c}` wc Marked INCORRIGIB(k( d}azDX }H}r}X 4z33} 3Jd3kks' }}LE`cf@c) -- re-testing it for possible re-use.`c\}}`c& Testing blockq*qIq$DX 33} 3Jdq`4}q}}ʷ}}ʷ} }} 33} 3J}}]rG$DX 33} 3Jdr`4*}+}r*rIk,* *}+}+}3rk,/0k+126k6H6 for read reliability: `c {)ϧ2|)K}}}t`` a.cxH ecxPASLONG PASLONG.PASllows use of default fileSHR *SCAVENGER Run the disk  d3} B BY BYX}  }}}   }+'}}}-'}}-}/}3.}/}/}3}-}1}-}1}-}3}-}35k5 +}k6Jk57H }k6Jk50H}/ }1 ·k*k6H6}HH IP paslong.seg/QZ-v)YtRX<[qd*###'#U]D^ q *}0q/HD}09DAq6HDY}azDX }H}r}X 33} 3Jd3}}k6J-k6H5q7k5k7)} }k5H5k657k5k7+}}k5J߭}k5J5]2#<` `` ]t'ɼ}ɺa`ɼ}ɺa`}}}t`` a\c) Dis }}r09DX }r0J }rH}}}}}k}}}}s5zk( 8zk( )zk(kHsrHssHssH ssHssHt sTPPacket; ErrCode: ErrStatu If ErrCode <> Ok Then Begin FTPErr(ErrCode,Packet); Exit(WriteFile); End;` -k'i]` 00afm`n`o`p` u]c}}c} }}k00af  00no}mmo}}}c} }}k00af]ʷ}K)}}H, }  m' 'R]mm㭁m}ʷm}ʷ}`} }}K)n}}H,  ' B BYXΓm}ʷ}*}}Hmm`m }﷼ac} `  }}ʷ}}ʷ}}@' 00af}'afm`n`o`p`  } o} oc} }c}o`o}ʷo}ʷ}'o`0㭃noo㭃n}ʷn` o)}}H,o}ʷo}ʷ} },ϯ@'}  },}'Qc}ɺc}m`nm}ʷ}K)}}H, }  m'` `a` m}ʷm}ʷ},}*X}}J}'}'.}}@'}* au'}u`` ʷ}}`ʷq}a'υ }Kvk)}v``}v vH q0af}mK}KJp'%}m}m:m}ʷ}}HrqH}}(o`}nnn} ʷo`n`} } HoKHH`n}mo 'Cmm㭁m}ʷm}ʷ}`} }@'}  },}'Qc}ɺc}m`n}H)c}ɺm}ʷ}` m' m`C}:}K`m)`  ' ˼6} } ʷ} ʷ}߭}߭ q}}ɺ a}``}`}}orI}r}o` a'6㯈}Ksk) stH``os sH`o`v}q'onnn}c}ɺoo']      m㭁m}ʷ}K)}}H, }  m' 'C H  F_Z  FA<m``mnoom`n`o`p`]+, pK}Ko}o}o}}o}}}z}c}ɺ}o}o}mnom`͏m}ʷ}KqJ}}Hp'?r}KHHmrImr}mm m']mm㭁m}ʷm}ʷ}`}'}']} c}ɺc}m`no?m}70+&!d  (]   }ʷ}` m&&''' ''''''( 'c0 Yes or No? `kTΧ}+\}}LuLm`c} c} ɺ  sz);} v} wHp`}u`˼}  s(qtHc} c} ɺ sH̿]m``c`STREAM Stream.PASPAS,xexp> She.SCREENSIZE Set the size of the screen."FILEDEFS FileDefs.`,`};c};(N`N`}.c}0}4};JJ c}0c ` c  };NJ㭁PASASSS$BSETSEARCH {Parm} Modify search list. "SetSearch CR" will promptGETTIMESGetTimeStamp.PASATISTICS + (]c} } kl)Z}}kJ c} }}a' kHkkHkl)};cN`N`}2}ʷ}.}`` } }2 }.c ` c  }. c}>}| - Turn printing of statistics on or off. sys:exp>$ READD WRITED  POPCMDPA'Sys:user>brad>newos>d.6>popcmdparse.PASZPYdf\e'0  k' } Hk, } Hk]S]}2 =N}2 a$}2__   }2 N>@3ρk9Bc M** Command file not allowed` c  }.oc:}.}2c}> a c c}>`popcmdparse.seg kk9 H}2 c c}`  c  c c}`  c  N:}2 k8N`N`} c  xk9}4 H\}.}0c}aN=k}4 H͍k= (k= (k=~(}4 Hl}0R3}4 .I.I IPpopcmdparse.segQZ-v)YtRX<[qd*###'#U]D^ }2 k8, c  N:}2 ak:βk:Ͻ}6 }6N}4N``}4 `I`IHtsHttHttH ttHttHu t Packet.Buffer[In End {While loop}; { { When we get here we have hit an EOF on the file. Send any data that { is le z  |  CD} }}}}(\}}ʷ}}}}}(N}}}}}}} } } } }}}}}ʷ}ɺ}}}}}}}} c}ɺ}}R]``c}oHL`}}}dcops)TpM')}INN`}eady thereP )W}kN}P}kN}}kNN}k``}}c` \kHkk1)5k<>"QRn   J}}}}}}}}}}}}} }}} }}}]``c}oHL`}}}dcops)TpM')}INN`}Ɉ c} }{k)|}{H{H{k)|M]}&}c}&  }a``}c` kkH}k`HN}'\}:N`as,+}}`s`J } s+   I}:}K`m)`  ' ˼(}N}k'k'o``} c`} }} } } k'} }} } } } }ʷ}N`pHps)ЬoM(}}}} }ɺ}}] v.X`}NJ3kk3)ϋ}kN}4ʷk}4N}4W}}4c} }&}39}}4k}4N}}>N`arsJJ,r'rs)\}}sH`rsJ`J}}rH`}rJ`m``mnoom`n`o`p`]+, pɺ}k'D}}ʷ}}}}}}}}}} }}} }}t-}} }}}}k'Ϯ}'ϣ}xρ}``c `} k``}}c` \kHkk3)uk }}c` \kH}$}c}$  }a``}cJdP}}}J }})}Pa}'\N} NJ0op)VoM'*}oNJINN}oNJNoHop)ЪM(]}}} }}} }}} }}}}k'Ϯ}'ϣ}xρ}``c `}  } } } }}}}}ʷ}ɺ}}}}}}}} c}ɺ}}R` kkH}k``}J1kk1)}kNV}}kNc} }$}3.)PutIdInDir when alr'(''(('((' (('((' (ctory`c\}kor(\rH]cI)Pc}}/3IcI`IJ`cI)Pc}cIc}.)P HPc}>`}>k=Nc}>}.}.}>P}0}4ɺa]})}P}.}0}2}` r$c  or press for Menu: ` c : ` ~c~cl }0 l&l~c}2c]}c}a1k1 (k1 (} H'}c}a1}R4t}@'h} }}c} aZPYdf\e'0PERQ_STRPERQ_String.PASewos>d.6>popcmdparse.PASZPY7 E%ACCCE(E popcmdparse C EcCOM4}6k8N`N`a]N~c` ``}2c}2}Confirmc}2J YESc}2J NOc}0c c}a1k1 (k1 (} H'}c}a1}R4t}@'h} }}c} a c c}` c  } H}c\t} Ḧ́k1 (k1 (k1~(} Hc}R3} Hdf\e'0STREAM Stream.PASPASCAL.RUN42$DHELPILE S&76,7V%% WRITER WRITER.PASVc}` k/'c [Yes] ` k/'c [No] ` })Pc~4c}~c}2cc~r``al) c c}` c  } H}c\t} Ḧ́k1 (k1 (k1~(} Hc}R3} HCMDPARSE CmdParse.PASlvlu#\l~#\I''XPOPUP PopUp.PASV%,6,6FILEDEFS FileDefs.PAS 0Y EE42%W%q%READER READER.PASopcmdparse  S~4~c~c}0c}4al*~ ~ ~R4le~}R3-}0Hc}`}k1c}  }}}ɺa]89\+L%e*@s#\%IO_OTHER IO_Others.PAS7 GETTIMESGetTimeStamp.PAS7  ,=~ /x 42T$=d <"SYSTEM System.om2(d2<aPOPUNIQUGETCMDLIGETSHELLGETCONFINULLIDLEIMPOSSIBIGETCMDLOUTSIDE sLXSTREAM STREAM.PASnd k/'k/'k/)~}2cɺal,l fc N!** Illegal input. Type Yes or No129:Z }0 l&l~c}2c]}8D.RUNcSCAL eSCREEN Screen.PASrad>newos>d.6>popcmdparse.PASPAS2(d1<BJ popcmdparse 0YLsLXSTREAM STREAM.PASndHutHuuHuuH uuHuuHv uprocedure assumes that CurDevicein StrRec.StrBuff:=Packet.DestFile; WriteLn('File write request for binary file ',StrRec.Str, })}PaNc}}6ɺaN9k9 \}>N`a'+}}`}J`k`ʷk5Jkk)<} \}} }6k N N`ʷkHkk)}}]N3}dc}c}ɺaNN`ʷ}]35TL35N  6$8O!P  }}}}` ʷ]}}ʷ}} }}} ʷ}u`}ɺa}  }} }}` zH zk) Jzk)} zNzH zk)}} }}{`}}}}} }}ʷ}}}Jd}4},Ϥ}>N`a8k8( k8J,\}4}4 N }`k8J`k \}k`ʷ}drJkk)ϫ} \}}}k N `}k N J`78@BS>N`}} }k N N`ʷkHkk)U} \} }rJ N }ʷ]~0~0afNm`n`o`p` H)7Recursive call to Scavenge not allowed. Run Scavenger!P} }}ʷ}k|)}} >)-Unable to scavenge at runtime. Run Scavenger!P )``}cɀJ`.DRJP}}k8H`}k8J`Jd}4}4 N ..DRR3F}4JJdc}>N`}} }k N N`ʷkHkk)U} \} }rJ N }m+<m@*}I}4LmH}m@JLIJ}m@JMgmI,}I}4L@H HmIJHBm$I,}I}4 )N}}}}} }ʷ~0~0af} Ϝ}}ʷ}}}} r{H}}ʷ}` k`c}c} ɺ}k``}ɺ}yN}}k``}ɺ}c` }} ~0~0afN}o`ʷ}}4 N ...DRR3}4,}4}4J }4}4Ht}.3\}..3}4,}4}4J2}ɺ}}}rJ N JdN}}dP]3}dc}5c}ɺaNk }\}k`L@HmIJH}mI$JLIJ}mI$JM}} }p'NN]}}_}}ʷq*} }}q)k|+}} ?)-Unable to scavenge at runtime. Run Scavenger!P )}}[}}ʷ}}} } }ʷ}}ʷ}}}I}}} pN} I} }} I} }} @J qx),\}4}4 N }P}4}4Hc}`SN]}o NJ}3}dc}5c}ɺaNk \}ʷk5Jkk)F} }\}}}} }6k N N`ʷkHkk)к} '}} }6k5J N N } }}q+N }  v }}\ }} ̝}}ʷ} }}}}ʷ}w`}ɺa}ʷ}}ʷ}} I} }} } {J @Jzk)} 4z?NzH zk)  Jzk)} zN))))))))) ))))))* ) //L^+-*IIq IP popup.segd/QZ-v)YtRX<[qd*###'#U]D^ ]sKvHHL } y``y`}} }} s}} sK}} sK]? \0" af"af_""afm`"``c}ɺ*&mJ""afHJJJJm``vϷc}c}`` a rt*IrtJGu *=u*/u(*!uP*ud* I c9=H`c;=HHL```Ⱥ ] ]]}kk)U*}k}ʷ}' ''=H'\H``  H H'H'``JnJH m  w)$d x) H H prnKH`o`n`E` p`o``m*m=,m*m,\m'JkkH|} } }JK0(afk}HkḤ]m'm=H'},q#$JLH"}AmJ q#HH0HHHH0afJHHHnHJ0 J"afmI''''\J``JHHJ=HHJHmJJKHm(m' ' n %JpHq0Hq0af0 mH KHn``c}s`}}} m} H KH}}c}q`}]}}N]mN`]c}c}N$mJLH }}p`t`}`}}H]}|k){*}|H|H{m*m=H,6c  IMPOJ J  'J  J'``JnJHHHH0HHH0afJJpHq0o"afI I c}c}`` a vI(tsH*trJ,uqH*upJ,tHH*tH,u*uPOPUP POPUP.PAS(allows use of default fileSHR *SCAVENGER Run the disk  `` aNo ]N`}}c}}H`}no*nono,no}}}}tsH}}SSIBLE in Fill; val=` c m`` \nb""afm`"``c}ɺ*&mJ"HHH0"af`` c}c}`` a HHJJHp`o` ' '``HvuHvvHvvH vvHvvHw vn WaitP:= ReadT; {With}; IOPutStatus(RS232In,StatBlk); (*]PERQPascal*) (*UCSDPascal[ RS232Rec.Address:=DL11Address; } 4q?NqHqx) J qx)} qNqHqx)J qx)} qNqHqx)}}}}}ʷ} }p`}}}ɺaN]o*o`}o`} c} c} cɺaNu } } }  \}} ʷ} }} ʷ}}B} } }} ʷ} }+}} a`ʷkHk* } } } }}}ʷ}}}} ;<2s1 jjjjȼ `c}a'm ' //}j`c}i**m '*m09DX m0J,*͸I`}ɺa@}}ʷ}}}ʷ}}ɺ ɼ}ɺ s`]}}ʷ}I`}ɺa }N}} ``}c` }  h}} ʷ} }}㯆} } } |Hr`c}c}ɺ}k``}ɺ}k}} }k}}ʷ}}B}}  }} ʷ}}} }  }} ʷ}}} xc}m} ʷ} } Hn} ʷ} } HmKHim} ʷ} qI} qm09DX, KmH0J,*͚m09DX m0J+*̈́m09DX+ KmH0J+*f,+m0'm m9,mJmp N p*IyI(z ϕy`c} c} ɺ}x`}}}ɺab}}ʷ}}wN}}ʷ}y`}ɺN}k``}ɺ̏}c` }}ʷ}}|J}k}} }]} `ʷ}o`}c}c} cɺ} }``}c` k`c}c}ɺ}k``}ɺ}kN} }k``}ɺ}c` }}}ʷkHkk)eopn} ʷ} oI} opKqK rK af0gjc}}}] ' m'm'm'*d/tHJJJ,wI*`HtHHJH*{L'mL* \L` = o)B& *HJ  H ̶\H`}$}9o``c};k=HHL`}&};﷼ }帺a# k=NwkN):}$w߼ }AwJ 帺a}$wk#, }$w#w}wk"KkHm[kHwH ̮kk"}k"}afk"KHkJkkJk"}kJk"}afkJkJk"}k"}af}R4 F ^+,RTf HHrJHutJHJJJHJLH v=H,=H HHJHvJJKHv(v' ' rwn' h #`Jm\>m``m``&m&m &m LHLLJLH ̿}hR3HkHHo GJ}*~GJr*s*c}c}`` a>skM*kMskMJ,kMJk@!oF }0`kH`k`kJkJkHkH0kHkH0afkJ(χkkHkJJIkJkJJkHkI0kHkI0afohpr PRHJr HJv'v=H'w,w``I vw(w,w``v``v I wv(w,w```v xτ}vv]JH ,}mJ KH HHA}JH=]#H`G` aLJ*H, 3G%GkG`k#` a#J},k#}*~L`` a },NwkN) },w~wH }$߼ },ak?H@LK"}c} kkH JkIH0kK}Cafk@% kHkIH0kK}Eaf}Ec$` }Cc$` kkHkJHHJHkLkkHkJHHJHkM k<>  'v=H'  hav,VvI'JvI'>vI'7tJ*tHH,uJ*uHH, \(J=HKJHHHLJ@,LJ@*@H%H,c}ck"kK`} ckk"K`c}ɺkkk"} kk0afkJ(}Ec}Ccc}K?kkkk0kk0afkJkJkHkHkHH {(> k`}k"``c} ɺkJk{JkHx0{k"}afxk{JH k`0`kH`c} ɺkH |JNwkN)w`0`kH`HwvHwwHwwH wwHwwHx wcal[ Procedure FTPGetFile(SrcFi(Dev: DevTypes); ]UCSDPascal*) {*************************************************************************** { { Abstract: {pnpm$'$$H$'I&I/nJHmJJn&J%mJnm*,2HsHqH}sl2H}sH2H }wȺ6͎5h*,*4,?巉E }}DCgȉCFG*?( GHGGDj]jjjj  !<]^_ `Z[ak(k``?n`k`k c n``}kk),}mkJ (c}}mkJ`kHo}(q V*4,4ȉ@HJ J xIJ+*Mx v(A8@vafv*v8H@tJ45' 4JHdHH dijjȉ>3gq(#n';}jc} !<]^_ `Z[0}o *\}Do Jrs)}F \}}rH}}ț?9?87KmKHpoLHoMK}n`}``?kk),?kJ (c}ɛ?kJ`kHn`}` c n``}`3)c  in segmevu@ttafvw(*7ϋ7  } }*4,;q*0q4*}s1H }si} oy)}ogp'oHngn+Vn'ji/n''j)Control-shift-D dum\]^cdi*X)> p`?qk);o'n`pH`??o ,c}ɛ?o`oHqH̾}4:c c}`c } (`c m`nt `c m``c  in `c c}`o} Debug at } Aborted at m;sH㭆;sH2HsHqHqHw*}s1HsHqHwqJr,}s1HrJHsHqrH@qH4+ 4qJH@}s1HpP)innm *Sm')rjiji!m'm'rrp' c} jir` q'jț?}ʷ}}}?gDCnț?}ʷ}A}}}`) c  c m``p @}m}m}nKHHo}Jc ``c ` in routine `}m}ʷ};sH㭄c c}`r`q`p```;sH㭇ns'!c  . <**>`c . c c } Called from rJHsHqrHqMJr(8q4*}s1HrJH}s2HrJHsHqrHq*0q4*}s1H }sc} jir` q'jț?}ʷ}}}?gDCnț?}ʷ}A}}}?巉E }}DCgȉCFG*?( GHGGDj]jjjj q} }m`ʷ} v} i3}.SEGJdc}c}) +*) ++) ++) ++)++,PERQSTRI PSTRING.TEXTaO*pc`` *c cH˼˼aO'Λ``     D F  (allows use of default fileSHR *SCAVENGER Run the disk GETTIMESGetTimeStamp.PASATISTICS + IO_UNIT IO_Unit.PAS 10:27:31 of default fileSHR *SCAVENGER 05 Jan 82 10:27:SYSTEM System.WAITNOPRMIN MAX GETFONTPGETSPAREDOCLEANUCTLC CTLSHFTCOUTSIDE WRITESTRDRAWSTRISTRINGW FILL SCROLLONHANDLESCSELXOR bJbJ IP popupcurs.segQZ-v)YtRX<[qd*###'#U]D^ F ^+,RTf| - Turn printing of statistics on or off.VENGER Run the disk DYNAMIC Dynamic.PAS Turn swapping on or off. PartPASallows use of default fileSHR 8VE9ERj $ `  l CHECKCURALLOCATEWATCHCURSETUPCOMGETSIZES POS D.5 p-boot PaWRITER WRITER.PASQP4x`"w*'hpr PR is the partition for swapping.R +TYPE File SCREEN Screen.PAS file File.of default fileSHR pPsys:part3>Segs> POS D.5 p-boot PaWRITER WRITER.PASQP4x`"w*' \DYNAMIC DYNAMIC.PAS,"\\<>  *SCAPsys:part3>Segs> POPUPCUR PopUpCurs.PASows use of default fileSHR *SCAVENGER  \DYNAMIC DYNAMIC.PAS,"\\" 4 COM popuBADMENU OUTSIDE MENU INITPOPUDESTROYRALLOCNAMDESTROYNIMPOSSIBIMPOSS2 GETACTIOSETCURSM MEMORY Memory.PASASPASs use of default fileSHR.SCREENSIZE Set the size of the screen.isk CODE Code.PASS Run the disk IO_OTHER IO_Others.PASows use of default fileSHR *SCAVENGER Run the disk" 4 COM popuBADMENU OUTSIDE MENU INITPOPUDESTROYRALLOCNAMDESTROYNIMPOSSIBIMPOSS2 GETACTIOSETCURSMWAITNOPRMIN MAX GETFONTPGETSPAREDOCLEANUCTLC CTLSHFTCOUTSIDE WRITESTRDRAWSTRISTRINGW FILL SCROLLONHANDLESCSELXOR HxwHxxHxxH xxHxxHy xS232: If RS232Rec.Ptr^.RecvDone ing disk blocks } Case Integer Of { This is a Directory entry or a Block } 1: ( q'r '`]c  ^c`c  \Bi'ρnoqr)tc  [`c q``c s] (`mqHc ``ͳBb'ϣnKoKHqr)φp'Zc c  [`qLc ``c /] (`mqLHc ``c ^) = `}FɛDc}cɛFc` . c c}ɉA`} .`` .`` .`` .`` ]m;mH;mH d=display stack,`c c s*c=current, t=Top of stack, b=Bot of stack,`c c :s=stack, q=quit, p=proceeType segment, offset, and then num values to print for ptr to dereference: [Exit] `+^^c Mc} c+c} c+c c^) = `;mqHc ``C`c qH̆{BB'noqr)c  [`c q``c r] (`mqH=mKqHc ``C`pHMqHtc Bs'c p [`c n``c P] (`mnHc ``c ^) ;mH;mH$;mH"$㭷"""c  Now at rod, e=exception Args, ^=de-Ref ptr`c c Ⱥ  ]c c d Scrounge, `c eV0.14` cc} c+c+;v=vy``xyJJ`;I=Ic+ c  There are `c k``c 6 arg woc ``c k^) = `;mqH'c TRUE`c l;mqH'c FALSE`c Ac UNDEF= `=mnHKc  (`c p``c ) '`pqr)!=mnHKqH c qH' c c utine ``````c c  There are `c ``c  local words, `c ``c  ar c c  t` CiB c DEBUG>`c} c+``c+} 3 } c } - u;rH'7c rds. Offset (-1 for all, -2 for range) [Exit]: `+^^c ϝc} c+c+wI'kkJkH``kJ`lwI'Vc (`;mqHc ``C`) c c qH{Bc'nKoKHqr)ϣp'Zc c  [`qLc ``6c ** Impossible mode `B c c .`` .`` \] H\. c H`c}}gument words, and `Jc ``c  result words.`c ț;H;H;H;Hf ** Currently at top of stack`c q;rH ;rH;rH;rHkkkz;zH;zH first and last to print: `c} c+c} c+c+kkJkH`y`x`kkJkH`w`w`c+ k(k (tc s] (`mqLHc ``c ^) = `' c =mKqH c c ' `pHMqHWc ɽSYSTEM.}Jdc}.RUN. c c}}c````. c c}ɉA`c]c c 7x=radix, >=uplevel, <=down level, l=local, a=arguments,`c c .r=returns, g=globals, m=mode,;zH;zH zu't` . k'k '8c  ** Currently at base of stack.`c t` c S  +,++,,+ ,,+,,+- ,a߭m*` *  c```K`Cccn``m`n`lc˼l`ccl2cic popupcurs.segIO265DEBUG.RUN p)Mn?NmNn?NmNn?NmNn?NmNmHmp)гnHno)Рc c ?NN ?NN ?NN ?NN?NN?NN?NN?NNN?NN?NN?NN?NN?NN ?NN!?N ?NN?NN?NN?NNc?NN??NN?NN??NN?NN?NN?NN?NN?NN?NNN"?NN#?NN$?NN?%?NN?&?NN'?NN?NN?NN?NN?NN?NNc?NN?NN?NN`?NN?NN?NN?NN?NN?NN,?NN-?NN.?NN/?NN/?NN0?NN0?N| c`c`c`c`c`]mFɖ``J``<``.`` ?NN?NN?NN ?NN ?NN ?NNp ?N?NN?NN?NN?NN?NN?NN?NNN1?NN1?NN2?NN2?NN3?NN3?NN4?NPOPUPCUR POPUPCURS.PASows use of default fileSHR *SCAVENGER Run the disk  ``dE ]``c```c```c```c```c`?no)`mN ?NN ?NN8 ?NN ?NN ?NN ?NN ?NN?NN?NN?NN?NN?NN?NN?NHyxHyyHyyH yyHyyHz y Const FSDebug = False; .0] of Integer; Begin PMD(RunFault,'',Err,0,A); End {RunTimeError}; Procedure DFUserErro` c s 5c Uncaught Exception: `n`o````c r`u`s`c r c  There are `qpJ}&c+``c+}&n4 K kvJc  There are `k+c k``#c  an UNKNOWN number of `cc  Mode = `B c c  new mode [CR for exit] : `c}&c+``c+}&3 }& }&?&3\ Ac  There are `kkJc ``c 9 result words. Offset (-1 for all, -2 for range) [Exit]: ? for help`c ͺd xLb|zxvtrpnljhfdbc ``c ; exeption words. Offset (-1 for all, -2 for range) [Exit]: `+^^c ψc} c+c+wI' 2 words. Offset (-1 for all, -2 for range) [Exit]: `+^^c φc} c+c+wI'  kJ SwI'F3[c C Mode choices are: i=integer, s=string, c=char, B=Boolean, b=byte`c ͇}&iBsBYcBYbBYBBYX }&`+^^c ώc} c+c+wI'k``kkJJ``wI'Pc first and last to print: `c} c+c`^\ZXVTRPNLJHFDBW><&I`c0,*(&(C v]m'n'n'm`n`o`p` ́}mp``qpJJ`]wI'Nc first and last to print: `c} c+c} c+c+p`y`x`p`w`w`c+[ kc First and last to print: `c} c+c} c+c+w w kvH`y`x`c+c  There are `c Bc}& 3Sc  ** Bad mode `c c}&`c . Type "m ?" for help`c ks ϐc & Proce} c+c+k`y`x` k`w`w`c+#c & Stack Offset (-2 for range) [Exit]: `+^^c c} c (n(jc +Scrounge aborted during Cleanup; Exception `c n``c  in `c m``c C}'}}'k}k`ʷ} } k 'I4k)k)``??:?}?k``c 8 local words. Offset (-1 for all, -2 for range) [Exit]: `+^^c ϓc} c+c+wI'kked; Not a dump!! Confirm [N] : `c}&c+``c+}&y37c  ~~~ Returning to program ~~~`c \ ͛+c+wI']wI'Nc first and last to print: `c} c+c} c+c+`y`x``w`w`c+A( A`Am  ` }mm'n'm 'n'm'n'n'm`n`o`p` ͬm 'n' kc  Program `c  Module `c c}``c  kVc Skip input and output? [Y]`cH``kJ`ewI'Rc first and last to print: `c} c+c} c+c+kkH`y`x` kkH`w`w`c+7c  ~~~ Returning to program ~~~`c \ ͚c  quit Confirm [Y] : `c}&c+``c+}&y3}Q t` Fc  Old radix = `c ɉC``c  new? `cCc+c+c $** Illegal command. Type+-,+--+--+ --+ --+ . -I`c˼`c`)`'%]*B+'$)'(ς_ Ɋ`N4?NN5?NN5?NN6?NN6?NN7?NN7?NN?NN?NN?NN?NN?NN?NN?NN`!%?NN %?NN!&?NN&?NN'?NN'?NN!?NN?NN?NN?NN?NN?NN?NN`}NN}NN}NN}NN}NNA}NN"}8?NN8?NN9?NN9?NN:?NN:?NN;?NN?NN`?NN`?NN`?NN?NN?NN?N(?NN(?NN!")?NN`)?NN*?NN`*?NN! +?NNno)n?NNnHno)]``}$```}$`}NN}NN}NN}NN}NN}NN}NN"}NNA}NN};?NN<?NN<?NN=?NN>?NN??NN?NN?NN ?NN?NN ?NN?NN ?NN `+?NN!,?NN-?NN?.?NN /?NN 0?NN ?NNN}NN}NN}NN}NN}NN}NN$@B&N}NN}NNU}NN }N?NN?NNc?NN?NN?NN?NNc?NN??NN?NN! ?NN ?NN!!?NN !?N?NN?NNc?NN?NN?NN?NNc }NNP}NN}NN}NN}NNU}NN }NN}NN}NN}NN}NN}NN}NN?NN?NN ?NN ?NNp ?NN8 ?NN ?NNNN!"?NN"?NN!#?NN#?NN!$?NN$?NN?NN?NN ?NN ?NNp ?NN8 ?NN ?NNNN}NN}NN}NN}NN}NN}NNHzyHzzHzzH zzHzzH{ zBlk> Rewrite the hea Var FirstBlkFile: Integer; MinBlk, MaxBlk: Integer; Begin If (UserFile < SysFile) Or (UserFile > NumFiles) ͗kc c Scrounge aborted; Exception `c n``c  in `c m``c `&m n |k)( c ;o|Hc ``|H͒c Division by zero`rc Overflow in multiplication`Hc ion: `m`n```t`(dr.#I5hfm 'n'n'n'"c `Control-C Abort`0c aUncaught Exception: `m`n```t`c t ϗr`I`u`c sςc+CONSOLE:````c+ c  Debug? [NI *     "  BHhopm'n'] ` DFAcI;I=I  }mq'n'tHut\}jtϫw 'vString index out of range`c !String to be assigned is too long`c Expression out of range`caUncaught Exception: `m`n```t`c t ϗr`I`u`c sςc+CONSOLE:````c+ c  Debug? [N *SAT* *SIT* *Font* *Screen**Cursor**IO* *Names* SYSTEM STREAM WRITER IOERRMESALLOCDISARITH DISKIO READDISK'v'v'  c ^C`c 'tc c *Scrounge aborted. Original exception was: `m`n````c  ,Parameter in STLATE instruction is too large`͈c  Execution of an undefined Q-code`Xc #Undefined devo] `c}c+``c+}Iy3}Y3m`n`o`p`r`u` ac+u t`]X"MLOADER READER PERQ_STRSCREEN FILESYSTGETTIMESCODE MEMORY IO_UNIT IO_OTHERIO_INIT EXCEPT DYNAMIC CLOCK FILEDEFSVIRTUAL c New error is: `wvIc}c}c}c}c}c} ` c cA```A``?c`@c Waiice interrupt detected`%c J!Segment fault detected during I/O`c  Memory parity error`c $ExpN!"7809/QPR 33:N#B RUNREAD FILEDIR FILEACCEMOVEMEM IO_PRIVASCROUNGE*Stack* ting for IO...`c done`c mq' n}Io}c `c Segment fault, segments`ression stack not empty at INCDDS`͚c /Overflow in conversion Long Integer ==> Integer`[c Uncaught ExceptT     7 8 @ |{ + -...... ....../ .BYvBYXϧ09DX ͑rop%&qr  "$$$//"IO_OTHER IO_Others.PASASs use of default fileSHR.SCREENSIZE Set the size of the screen.isk DYNAMIC DYNAMIC.P `` cc c}}#3帉'4Ά}))FILESYSTFileSystem.PASSs use of default fileSHR.SCREENSIZE Set the size of the screen.isk FILEDEFS FileDefs.ASASows use of default fileSHR *SCAVENGER Run the disk INITCURSDESTROYCSETCURS INITFOOT TEFc}c````UUc} }#}PASSows use of defaultBSETSEARCH {Parm} Modify search list. "SetSearch CR" will promptk GETTIMESGetTimeStamp.PASATISTICS + 3}dc~c~al')}P)c}c````UUc} }#}J^^c  Ϙcc`` cc c~~c#3Rcc~+ c~| - Turn printing of statistics on or off.VENGER Run the disk CMDPARSE CmdParse.PAS Turn swapping on or off. PartPROFILE PROFILE.PASllows use of default fileSHR *SCAVENGER Run the disk #  J^^c  Ϙcc`` cc c~~c#3Rcc~+ c~c~+~+}3c c~\S>ȉUU(3z^^c cc is the partition for swapping.R +TYPE File PERQ_STRPerq_String.PAS File.of default fileSHR KK IP profile.seg/QZ-v)YtRX<[qd*###'#U]D^ c~+~+}3c c~\S>ȉUU(3z^^c cc`` cc c}}#3帉'4Ά}))H{zH{{H{{H {{H{{H| {nd; End; End {Fuld NOT read block ',CurBlk:1,' in file ',CurFile:1); 1: WriteLn('Serial Number[0] = ',HeadBlkPtr^.SerialNum[0]:1); I *     "  BHhB   *"B  *h*B * "  * h  *hB * "  * h  *hB   * " * "  * hB  BHh  * "  h *BH2 B   *"B BB * "  * hB  BHh h *BH2 B   *"B BB *BHh*   *J !" "  * hB  BHhB   *"B B *BHh* * ..//2 / //////0 /?`},J@cɺ \ H, k+H+k+k*H*̸l)8)?k)l)c~},J@k)߭`k)H*SCAPsys:part3>Segs> STREAM STREAM.PAS.5 p-boot Pascal.RunR *SCAVENGER ˼}}q]}c}}`qH}q#}c}}`qH}q#}c}˼}}q]]"5 Run the disk IO_Others.PASows use of default fileSHR *SCAVENGER Run the disk8q z{+ }z}} }<}zJ  z*}z߭'zH }H }}zJHz*}y}z߭0HyH zH 6}~jll !} kJHk * WRITER WRITER.PAS2 10:30:55 of default fileSHR *SCAVENGER 05 Jan 82 10:30:READER READER.PUPPACKE PUPPACKET.PASSSiWEVERSION Specify the system version number. Arg is version number.FSfj'K8 qr kk+5}k}} }<}}} }<}kJk *}k߭'kH}H}} kJHk *}k}k߭0HkHkHț uv)9}u}u($t}u}u( uHPASallows use of default fileSHR 8VE9ERj $ `PNOTFOUNPNOTINITPFILEINIPFILEENT puppacket.segUsystem.165.config }k}k߭0HkHkHț uv)9}u}u($t}u}u( uH}JLrs)U}r㭅p*"pqHp+q* pHIpIpqHp+q* pHIpIrH̥pI'p}c}VKm< IP puppacket.segQZ-v)YtRX<[qd*###'#U]D^ }JLrs)U}r㭅p*"pqHp+q* pHIpIpqHp+q* pHIpIrH̥pI'p}c}H|{H||H||H| |}~ CnvUpper(Cmd); If StatPtr^.SoftStatus = IOEIOC Then Begin If (TryTime <> 1) Then Begin | " B h  *hB B  *" | "   * #BH  * "   *BHhBHh*B BHh * $ BB.Ysystem.265.a.MBootV LINK.265.RUN^MAKEBACKUP.CMDI DIRECT.RUN  * " ** BHh  $B BHh * $ BB*BHh $ %*  B  * 2 * hBH-븧 븧 븧  system.265.a.MBoot@ x~ h *BH2 B   *"B BB *BHh $ %*  BHhBHhBB" | "**BHh*   *J !" # BHhh  *hB  hBH  *" | " B h  *hB  | "B *" | "   * #  *" B  .,// 000 0000001 0DYNAMIC DYNAMIC.TEXTSTRINGUTStringUtil.PAS o Psys:sys> POS D.165 b-boot PUPINITIPUPFILTEPU 'aN(aN)aN*aNe+aNg,aNY-aN.aN/aN"0aNPCHKSUPUPCVHLOPUPCVPORPUPFINALADDI2OS ADDHLONG  accHbMbaN!aNaNaNaNaNyaN8aNUaNiK1aNv2aN3aNo4aN5aN6?6aN7aNbU8aNzg9aN2:aN RANDOMNURANDOMNUMBERS.PASuse of default fileSHR *SCAVENGER Run the disk d aN aNG( aN1 aN; aNaN`)aN aN"aN7aN\a;aNf<aNyV=aN>aNX?aN@aNtAaN#BBaNCaN?DaNKK IPrandomnumbers.segZ-v)YtRX<[qd*###'#U]D^  NaNGaN<8aNUaN&aN,aNaNaN2aNEaNFaNưGaN-]HaNIaNwJaNKaNDLaNMaN[RNaNLOGIN LOGIN.PAS aNaN@ aN  aNs!aNj"aN#aNI$aNz%aNz&aN |} | |}} |}} | }} |}} |~ }BlkRead(CurFile,CurBlk,BufferPtr,' as bad. Yes or No:'); ReadLn(Cmd); CnvUpper(Cmd); If Cmd[1] <> 'Y' Then Exit(MarkFile); WriteLn('Namming???@ ?G?׋?a?J3@G<NR׋32?a 3 3?=?339z33C3Ca0?Ü43j?a3gD׋<?@a4 ?}ԋ,?~<a? <a?<ao_Wy?j?zt,3|a33a@VMD{VCD6B3P?|3<z?3H76? |$ z??PN Nk B w}}} d}}ʷ}}ʷ}}}}} }}} }}} ̓}}| - Turn printing of statistics on or off.VENGER Run the disk WRITERUNWRITESTRWRITESNA/SHELL !Sys:user>brad>newos>d.6>shell.PAS %r S BYX k*co** Use: Help name`cp}'ϊc7 This is the Three Rivers Computer Corporation PERQ.`͈}}}}} }ɺ}} ;}~}y} shell.seg.system.265.config cc- Commands are either a System command name`c or a Run File name.`cc9 Type "?" for }} N} o}}ʷ}} N}k}}k'C}}ʷ}}}}}}FLFL} IP shell.segd/QZ-v)YtRX<[qd*###'#U]D^ a list of valid system commands or press`cc5 down with the pen or puck for a menu of commands.`ccCODE Code.PASPAS.PASs use of default fileSHR.SCREENSIZE Set the size of the screen.isk GETTIMESGetTimeSt !"#$%&'()*+,-./ | ~ |  |  |  | | umF:1,' out of ',NumFiles:1,' fi UniqueCmdIndex(Cmd,CmdTable,NumCmds) Of 1: Check; 2: Fix; 3: Search; 4: Begin R4׋I,6OWgAr?A0?<4?@4?׋?5?3C???3C3P??,\?,? ??K 4G3|?;+|,??^?,Ĝ?+;+|,???x33D?Ĝ4,0?40X??a???6\363,3a?a???a??3a3?a? %"a@?;{'43D?w^E?a?h,34b4o<0a$W?s,3C?s /|??*v,|,u,y,u*{,-%,*?|?;{? |;{00(;{0a, ;{?t\$"tD;{??׋4E?<;Kt>CW|3?|?[??G?J;Kt33H733a$,JW?|4344aw^3a33,3DE,H$"E,$7El460248E?.Ş?;<4a@,>38E|?#,???4Ea?$E䔡" to run a program.`c"})TypeFileN"]c3** Profile file not found. Commands available are:`c\]˼Jnk}R4 }P}c}c}c ]$ P$#,$"N$#NUM4?M}P)$MJP }}}}}} }}} }c`cc]c} N}NJ)}P}NJ)}P}c}`a }N }NN c0 Type "Help " for help on .`c})>}.HEd ShellCommandscThe Commands available are:`c}J}4ύ$$# JP$$`#`JP` `.c}c` `]ccLoad `ɺc secs.`c}}}cExec d ]N} X} },9HELP`}`J}3N}}̟]}"LPJJd3})dc}c} ak'O})>Help}Jdll),c}c}c~aNlHll)}r4*c}}J`lHcc}`c}J$$ POS JP$$DJP$$`}ɺc  secs.`ccIO `ɺc secs.`ccSwap `ɺc  secs}}c}c}cc}aN} }R3} }R3} kecEnable swapping? `3})dc}c} ak'ϔHaveHelp}\J}\4K}\}3)}"`/gl')P)cc/To see programs you may run, type 'dir >*.run'.`c}" .JP$$JP$$ .`ccMove `ɺc secs.`c} }B}}}}} }} | | | |  | | PromptLine = 35; per entry } procedure GetLine(var str:string; var TermChr: char); var i:integer; c:char; begin while IOCRead(TransKey,c)3a3;|,~\?r?N,;|>b\?,3C??k>#>??k>ٗ+??c>,$Ƭ??333Ɯ3F34?< 4`?4`4`?,4`VF??a,a4F64FOF;F*~? a?, 3 3S?3"A?Y$cGU`?[$aG?_$bG$?a4^G#gG?hf?kn$lї?3Eҗ?Ŝ?Ӗ?E4a@3?a??3EʒE?Ŝ?˖?ۗ7??3 3,.3^l3534E9e3:;4=F2a@4?F,Aa$F>t3C3?4`?4`?4`?4`3F3A?43C3C??F3F?a?Ɯ4F"3"Aޗ?/ߔ333??$?׋?|?%l4#a&$w,;||!"#;|?a??,$/G?U?}, |?a?Q3>G璉G4,?ba$$$$$$>GOW4?,[t3g3a^4%4``??g?d4jTkFh?:?a$>G3?%3$???G: r3Gd3G\?33}֗3G3G?|?ij?r?N;|??r?N ;|?r?N\;| ?r?Nl;|?r?N?@׋,p3t|,s;vF?%" may be`ccc}`c* omitted. h = `cc `c)$MJP  N`}N`}c}c`cc`ccc}`c It turns swapping on or off.`ck}R3}P8}c})YESP)NOP帺 aNk } }ɺ a }** P} Pcc}`}c})FLOPPYP) HARDDISKP帺 aNk } }ɺ a }** P} Pcc} Path changes the current path.`cE}}d}3TcNew default path: [`cc `c] `}c ]NN}NJ)}ONP}NJ)aOFFP}NJ)BLACKP}NJ)WHITEP}NJ)}Pak'Dc** Unknown partition: `}c`.cc[k NJ a` cSwappcY5Statistics takes "Yes" or "No" as the only parameter.`ccc}`c(It turns statistics gathering on or`cc`c4 takes "Floppy" or "Harddisk" as the only parameter.`ccc}`cIt `cc`c}cd`d`c}(c}}}>(c}>N`3}dc}c} ak(s3dc}c} a | | | |  | | true: (int:integer); tion of the Current Block with a Single Value');WriteLn('"Help" : Type This Message'); WriteLn('Quit : Exit this 33G3G3G3E33tYI?]$[I|y?bg;y?p|$$g$:g?@$pSH,?7?@3R444434?6|HH6|6Hϭ"/W|$$>|???n4uItn?x?o?o3I"I\?"I\3I?\"I\?3It??$?t3ktx~p,|ϳ>OW?>oW ,, ? 2H$H?"$4H3$n?ou3lt?? 3tM3mt??"I\?? 3t]? 3 to? 3tF4)I<#cj)YT+#I|o3Ip?p,`t?o3yro,pq4Iq3%oT?;u-v?YB}?}IyJ? 30t~/Qsaj? 3to?|Hold_Time.TimeStam/ ~c(c  c(" NzN""# z[b)Pc"͍N`̓N`y t ojccc"`ccType to continue.`cQ)N`Q } }R4Nk a k }** P} Pcc}`c`( Command line is: ScreN }}}c}c}c k kk})n}k0Jk*k ,Gc** '`}kcpd a{{`` `  {`` ]c````c```` Py cɛ ɛ ɛ Ɋ# N` a|"4c"ɛ"J`#Nz  a|| ,b| JB)N`c"ccaN'",c"ɛ"J`32c** No file to run specified.`cTenSize nn /switch`ccc}`c3 where nn is 1..8 or a multiple of 128 up to 1024.`ccc}`cc' is not a digit.`c\ kKkHkḦk)k) kKvWk*k,7c]** Bad number to Sc y﷛ N| vwNwxNxNy# ``c`` c&c%c%c%c%c{ cN"Ic** `cc`c is not unique.`cc0** Type ? for the current list of known commands` | | | |   |! |" Line*KSetHigh)+1; if TurnOnin IncrSelect(1) end; Procedure WriteBlk; { writes current patch block out to the file } begin CleanUp; Position(PromptLi{?>I\? 3tX?UWo%>Jod4a?,3J3Y3tj34Jh(vbʜtt4ut34Jh0vʜs4ut3lg0s3J3A3mg?;|34JhIn*GSn$J`*GS`34J^*GSb34J^?bGS3sJ^<a]?bGS44J34Jh3IQ34Jh36Ih34Jh34JQ3Ih?3gt?x$4J|p?\JV??>NJ|a>.J|a>J|a>#J|a>I|a>FJ|a?S|?43?Z_4AJZt? d\f3|fn3Ih"inJO3IWa2JJ\<`]3GX_3KJO3MJ[?P`3OJa2QJ\3ie3Rzb3I[3UJa3id2VG>{G,JE??G?G)_Tt/WsC?06Ja*GpS34J^3kt2I\2Id3p`J\3WWb3YX_34Jh3I[44J^$^J`?iff?i|"bV\3if3cJVnewos>d.6>shell.PASfied to run.`cN"Q)N`Q)N`QP帼cccaN'4"JJ# J``J.RUN49.RU8* c  d Q+hPJ,::,$PJJNnbX8.RUNlSCSYSTEM System.PAS*4shell f-f- ,=~ / %r STREAM Stream.PASrad>newos>d.6>shell.PAS Ncc"`c RUN3c"ccaN'",c"ɛ"J`32c** No fNJP PNc$P`P9QQ+hPJ,::,$PJJNPOPUP PopUp.PASPSys:user>brad>newos>d.6> POS D.76 b-boot PASCAL.RUNCMDPARSE CmdParse.CDREXCEPT Except.PAS=#\N -Z8 Z %r FILESYSTFileSystem.PASnewos>d.6>shell.PASile to run specified.`cTGc$** Need a file name, not a switch: /`cc`cN"q$N$ NJQ+И)$P vswNtxNu  N m*PASt66D* dCLOCK Clock.PAS$INITSHEL InitShell.PAS PASCAL.RUNt66Q)DX%+POPCMDPAPopCmdP %r FILEUTIL FileUtils.PAS6Xf\@( Nz]"J c a cc`c d 9x $)) v))&t ) I J ##\CALXa((GETTIMESGetTimeStamp.PAS'X(aarse.PASD~ B8A //DB86B6MEMORY Memory.PASjD,f\ |# |$ |% |&  |' |( Blk:=Blk*10+(ord(LineileIx:=FSLookup(Line,EndBlock,i); if FileIx = 0 then WriteLn('?PATCH-W-',Line,' not found') else beg,;|?t?,;|3H Ϸ#Hз3[E4j33D3D;"z3D3a33?%?5>OW&<3޴$FL??)33D?J\33[E?k H4C, L?C,?33޺9>\< \$H?N:,?4J\:,????t?;|?t? ;|,?t?\;|1?t?l;|??t?2-762.772/77207 7182_=cc}`cG receivDISKUP DISKUP.PAS ALLOCDIS AllocDisk.PAS shell  ARITH ArithPROFILE Profile.PAS6vBXDYNAMIC DYNAMIC.PASSHELL HELP PNOTFOUNLISTCMDSPNOTFOUNFIXDEFAUCREATETIUPDATETITIME PRINTTIMCHECKTWOCHECKHELDOSWAP0stringutil.seg ethertest.seg.PAS-cREADDISK ReadDisk.PASFILEACCEFileAccess.PASWRITER WRISHELL HELP PNOTFOUNLISTCMDSPNOTFOUNFIXDEFAUCREATETIUPDATETITIME PRINTTIMCHECKTWOCHECKHELDOSWAPzMmt IPstringutil.segQZ-v)YtRX<[qd*###'#U]D^234567t0Ja~tt66)JDISKIO DiskIO.PAS* TER.PASSTREAM STREAM.PAS DOSTATISDOMNTDISDOPATH DOSCREENDOSWITCHCTLCABORWRITETIMNOTAFILEPASLONG PASLONG.PAS8%X% FILEDIR FileDir.PASad>newos>d.6>shell.PASPASLONG PASLONG.PASREADER READER.PAS %r IO_OTHER IO_Others.PASREADER READER.PASDYNAMIC DYNAMIC.PAS80 |) |* |+ |,   Write('?PAT }; Procedure Insert; { Procedure to alter the contents of the current location } var Line:string; Term: char; Val: integ@\ 6t)SYSTEM (*STREAM  WRITER IOERRMESALLOCDISARIT 밫 T 7 SHELL.265.RUNUH DISKIO <READDISKJ"LOADER ,"READER  PERQ_STR SCREEN  FILESYST6  GETTIMESB CODE HMEMORY  h IO_UNIT IO_OTHERIO_INIT EXCEPT DYNAMIC CLOCK FILEDEFSVIRTUAL   RUNREAD U 738 7 7488 7588 76 88 7788 789 8 List the files on DiskP`"}@4<)g*Directory inconsistancy. Please Scavenge.P}+"}-"k/n@mAsu)0(m`STRINGUTSTRINGUTIL.PASS `c`}/}P}}/ͭ})$}1``c`}1}P}}1}?)$}3``c `}3}?P}}3Q})}}pBa}}c}ɺa}}H}s,p}}(%}}H}H}tp}t̛}a c} }ɺa)+JL9:DYNAMIC DYNAMIC.PASP Psys:part2>cmuftp> POS D.165 a-boot .RUN $}5``c@`}5}P}}5#}7``c`}7}P}}7]}}rs*?stu)'}t`a}s, }}]}㭈} tu)/vH }v}ttHtu,}t}X}v}ttu, }t D F S Tk l+3z} k'}}QP|69>* dWRITER WRITER.PASl t`a(tHrs']}}} C}}ɺarHtsHr't dtH}}tȼ}}ɺa v"'v''}v`}ɺa}}}ɺa]}}ɺa }  C} k+3z} k'}}H} } k㮁UkHz"'z''} /}z`c}ɺa'} /}}c}ɺa'c}}ɺa]}}H} #\PASCAL X aSTREAM STREAM.PAS! (/$̴r's't(r'}'tHr,r's,tH}㭆}rs)}r}XrH}rrs, }rH} } k㮁UkHz"'z''} /}z`c}ɺa'} /}}c}ɺa'c}}ɺa]}}H} /}}}c} ɺa'c Invalid switch: `cc} `cȼ}}}}ɺa ȼ}}}c} ɺX0a|69&%ery J@FOLDUP MAKESTRIISINITIACOMMANDISCANOVERKEEPTOBRGETSTRINGETIDENTGETTOKEN na+nz)n Jn]})"}+``c`}+}P}}+})"}-``c`}-}P}}-})"}/`]}㭈}} tu,}t}X vH }v}ttH}t}vtu, }t]}}H}/}}}c} ɺa'c Invalid switch: `cc} `cȼ}}}}ɺa ȼ}}}c} ɺa c} }ɺa)+JL9:    U=^ e:=Byte; PerLine:=16 '); readln(Line); GetVal(Line,Val,GotOne); if GotOne then begin for i:=Low to High do 2 FILEDIR J FILEACCE| MOVEMEM IO_PRIVAH SCROUNGEJ" SHELL FLT 6STREAM PERQ_STR CMDPARSE$GETTIMESB FILEDEFSFILESYST  FILEUTIL}zEL!DYNAMIEM *GETTIMESB CODE HMEMORY hDYNAMIC POPUP %SHELL 6PROFILE  CMDPARSE$CMDPARERPOPUPCURbJ ' DYNAMIC IO_OTHERRANDOMNUᓖKd(d165:boot>SHELLd165:boot>PASLONG CODE HMEMORY hVIRTUAL  SYSTEM *SCREEN  IO_UNIT IO_PRIVA IO_INIT * 66DYNAMIC READER  PASLONG STREAM WRITER FILEACCE| PROFILE  IO_OTHERFILEDIC SCREEN  PERQ_STR FILEDIR J READDISK"ALLOCDISDISKIO ARITH FILEACCE| GETTIMESSE@$ WRITER  6STREAM DYNAMIC FILESYST  FILEUTILL!GETTIMESB FILEDEFS*n  h STREAM WRITER  *DYNAMIC READDISK"ALLOCDISFILEACCE| STREAM DYNAMIC SCREEN  SYSTEM *GETTIMESB CODE HMEMORY hIO_OTHERIO_UNIT IO_PRIVA EXR J DISKIO READDISK"ARITH ALLOCDISFILEUTILL!FILESYST  STREAM SCREEN  MEMORY B FILEDEFSFILESYST  POPCMDPA.If"READER  WRITER  6STREAM SYSTEM *STREAM SYSTEM *PERQ_STR POPUP I% DYNAMIC WRITER  6SYSTEM *ARITH DISKIO IO_UNIT VIRTUAL  SYSTEM *MOVEMEM GETTIMESB CODE HIO_UNIT * CEPT * SCROUNGE SYSTEM *ARITH DISKIO IO_UNIT VIRTUAL  GETTIMESB CODE hPOPCMDPAf"INITSHEL#EXCEPT SYSTEM *PERQ_STR GETTIMESB CLOCK CMDPARSE$POPUP GETTIMESB FILEDEFSSTREAM PERQ_STR SCREEN  IO_OTHERPOPUP %CMDPARSE$INITSHEL봸 IO_UNIT IO_OTHERPOPUPCUR'SCREEN  DYNAMIC GETTIMESB CODE HMEMORY hUTILPROGARNSTREAM WRITER  *SCREEN  SYSTEM *ARITH DISKIO GETTIMESB CODE HMEMORY hDYNAMIC *Α GETTIMESB CODE HMEMORY hCLOCK ` * PERQ_STR %PASLONG HGETTIMESB FILEDEFSSTREAM PROFILE K READER  WRITER  ."#DYNAMIC STREAM WRITER  6UTILPROG&PERQ_STR IO_OTHERSTREAM SYST&DYNAMIC SCREEN  RANDOMNU(FILESYST  GETTIMESB FILEDEFSSTREAM SYSTEM *IO_OTH HMEMORY hVIRTUAL  IO_OTHERIO_PRIVA IO_OTHER* ARITH DISKIO GETTIMESB 7989:9; 9< 999=999>: 9Ac]ci)QPcg&c``I`cc Cylinder: `cs``ccHead: `cr``c\rs  Iq'GETCOMMAGETSWITCGETARGSTGETARGENPsys:part2>cmuftp> POS D.165 a-boot .RUNNcc >System.Users````ccN] mn)Qm N=Nm N=mNQP|69>* dWRITER WRITER.PASl}+}P}V}+k,Yk+XkX,kY+}T}+}+}V}Tʷ}}+]c >System.Users````c}U VkUkV)T},kUm N=帜m N=kPmHmn)Яc >System.Users````cccn >System.Users`#\PASCAL X aSTREAM STREAM.PAS! (/$@9USERPASS USERPASS.PASlows use of default fileSHR *SCAVENGER Run the disk N N=Pc},},}3$}*kU N==kUNc\kUHUkUkV)ЬcNN)}Pc}Uɺa$}g)}*``` mn)lm N=Wc `m N=cc`c `m N=cc`cmHmn)Д]X0a|69&%ery J@FOLDUP MAKESTRIISINITIACOMMANDISCANOVERKEEPTOBRGETSTRINGETIDENTGETTOKEN9 userpass.seg[ SCAVENGER.RUN P }S}U=NN)}Pc}ɺa :NNk N= kNkHkk 'Nk N)}Pc}*ɺa \ N=Ncc >System.Users````ccN]MM IP userpass.seg/QZ-v)YtRX<[qd*###'#U]D^;<=>?@ N\ N=} N=N N=kSN N=)}*Pʷ N=}TP N=',  0"S S 'L','l': Right; 'I','i' end; otherwise:begin Write(CmdCh); eget165DISK"ALLOCDISFILEACCE| IO_OTHERSYSTEM *MOVEMEM ARITH DISKIO IO_UNIT GETTIMESB FILEDEFSARITH MOVEMEM *> IO_OTHERSYSTEM *GETTIMESB CODE HMEMORY hcc. /Profile=file - sets to use named profile`cc%For possible options in Profile file,`cSCAVENGE SCAVENGER.PAS0 ESB CODE HMEMORY hRUNREAD * 2 DYNAMIC STREAM MEMORY hDYNAMIC PERQ_STRIO_PRIVA'*R H EXCEPT GETTIMESB CODE HMEMORY hSYSTEM *IO_OTHERIO_UNIT c. type Help Profile after logging in`c]3ϖ}*}dc 3) .Run Pc}*cc GETTIMESB CODE HFILEDIR * J DYNAMIC STREAM WRITER  *PERQ_STR P cc Login name`cc) initiates execution for the named user.`ccLegal switches are: a)k)( }PMc** Could not find `cc}`cc to be Shell.`cc** User profi READDISK"ALLOCDISDISKIO ARITH FILEACCE| GETTIMESB FILEDEFSFILEACCE *. | DYNA`cc' /Help - displays this text`cc3 /Command=word - will execute specified commandle file `cc}`c not found.`c\c** Illegal Cursor function `cc}`c\]IO_OTHERGETTIMESB FILEDEFS * GETTIMESB VIRTUAL *   SCREEN  EXCEPT READMIC STREAM WRITER  *SCREEN  EXCEPT READDISK"ALLOCDISDISKIO GETTIM`cc, /Path=pathname - will use the named path`cc, /Shell=file - use named file as Shell`c** Cannot push `cc}`c\]c** Cannot push `cc}`c\]c!** Invalid ar9?:99@::9A::B:C :D;:OJK c``DYNAMIC DYNAMIC.PASJx IREADER READER.PAS+,+BTU=|}iPR~)*=)+/@N=mNASp.PAS use of defaultBSETSEARCH {Parm} Modify search list. "SetSearch CR" will promptk FILEDEFS FileDefs.PASS9STATISTICS + FINDUSERVALIDUSEADDUSER NEWUSERFLISTUSERREMOVEUSENCRYPT Run the disk GETTIMESGetTimeStamp.PASurn swapping on or off. PartIAUTILPROG(Sys:user>brad>newos>d.6>utilprogress.PAS  m N=帜m N=kPmHmn)Яc >System.Users````cccn >System.Users`| - Turn printing of statistics on or off.VENGER Run the disk GETTIMESGetTimeStamp.PASurn swapping on or off. Part is the partition for swapping.R +TYPE File STREAM STREAM.PAS file File.of default fileSHR Autilprogress.segdefault.profileG ioregs.bin ``` mn)lm N=Wc `m N=cc`c `m N=cc`cmHmn)Д] is the partition for swapping.R +TYPE File STREAM STREAM.PAS file File.of default fileSHR RNRN IPutilprogress.segZ-v)YtRX<[qd*###'#U]D^CDEFGH N)}Pc}*ɺa \ N=Ncc >System.Users````ccN]*SCAPsys:part3>Segs> POS D.5 p-boot Pascal.RunR *SCAVENGER ICMDPARSE CmdParse.PASlows use of default fileSHR.SCREENSIZE Set the size of the screen.isk ARITH Arith.PAS Run the disk WRITER WRITER.PASmp.PAS use of default fileSHR *SCAVENGER Run the diskS SSS S&]:='CHANGEMODE'; ModeNames[1]:=lJR4c-Directory inconsistency detected. Please run` c Scavenge on this disk.` c c-"}ap'\pyJH]n'\nyHJp'}o``ʷ\}o`pyHJ`ʷccc}`c TymFc  cmCc  c mSc  cmqc Cyl=`k-Ic``c Hd=`k-Ic``c Sect=`k-c``cc})nK}L,nnH``c```c```c`?no)4mp)$nmnmnmYY찇 IP typefile.seg/QZ-v)YtRX<[qd*###'#U]D^pe to proceed.`cccc}`}*4&c [`cc}*`]cc? `|c}ScHc  ccc Block claims to be `oI'c Header of `/cBlock `co``mn) m`mH}}} \ }߭(}߭(}ɺa},}ɺa*mocc}`mHnHƛx`p P`P`c}S3 }S}*P}S,}SyBYBYnBYNBYX|k| Tc Yes or No`}*4&c [`cc}*c` of `} ap'*cmInconsistent file!`c\pJ qcc`:cpJcm`m m]m(.m*k*'k*'\ m`)}P k*]mn(Fn㭄p'p'$m`)Bogus chain33??/     `]cc? `k|V}SyBYBYXȼm`ac`` I` cm`ac`` I` c'&c`>c}ɛɛ`` a .c!Header also unreadable!`cTI(} (cIncon: P帺 np̴]m(mn(9m㭃o'o'\o ooo̽nH}op)oo\           m`ac`` I` c' mc`` I` c'&m`ac`` I` csistent file!`cc `c}+})ʷ}+߭-cc}`c DA=`})ac`` I`e(oHnJop+oo\oJ]} }`` }oLKJKLH`` ]Lnop 0:E;::F;;:G;;:H ;;:I;;:J ; InsertLast := FilledLast; packed record case boolean of { to convert internal } { MicroBinary format to format needed in boot file } H``}c` ?mt).nu)}m?NnNnHnu)mHmt)}?NN}?NN@}?NN vw)]N` ``]aonJHMnHȌI'mH,mH``V``a'I``aI``aH,*HM*H``}}} ʷ} } ʷ} "(N} @ 8} 0 33} 3JdX0a|6B8XA@GETTIMESGetTimeStamp.PASM#\@ZPY8 MPUTEPLOADBUSYRANDM jFILESYSTFileSystem.PASf-*9utilprogress f-}?NN}?NNc}?NN}?NN} ?NN} ?NN} ?N*HM*H``}}} ʷ} } ʷ} "(N} @ 8} 0 33} 3Jd3}  ͭ} '͝}K}} J}} }} J}} '}  }}} vlvjFILESYSTFileSystem.PASf-*9utilprogress f- ,=~ /7RANDOMNURandomNumbers.PASgress%= N -Z#\8 ZN } ?NN} ?NN@b}?NN}``}c` N`vMHqN`c}c}c3}  ͭ} '͝}K}} J}} }} J}} '}  }}} IO_OTHER IO_Others.PAS PSys:user>brad>newos>d.6> POS D.76 b-boot SYSTEM System.PA ,=~ /7RANDOMNURandomNumbers.PASgress%= N -Z#\8 ZSCREEN Screen.PAS4Wc> @  PASCAL.RUN|6 ,K)$!8DYNAMIC DYNAMICc}cc} HJ``I``}c` 3)UtilProgress.Cursordc}c}am';m``}}``wK}}} K}}* +``n))mn* +Srad>newos>d.6>utilprogress.PASSTREAM Stream.PAS SCREEN Screen.PAS4Wc> @  PASCAL.RUN|6 ,K)$!8DYNAMIC DYNAMIC.PASad>newos>d.6>utilprogress.PASLOADCURSSHOWPROGQUITPROGSTREAMPRCO}c` N`vMHrN`c}c} cc} cc} H@JJLH``II uGM vw)avH`` ) *OP ##\CAL X aFILEDEFS FileDefs.PAS! (/$.PASad>newos>d.6>utilprogress.PASLOADCURSSHOWPROGQUITPROGSTREAMPRCO V1  with a blank line` c cate file ` cc})` c \~k}k~k)"k|`k~`k{`k~`k~H~k|``})PPk{``] typefile.seg } {/Switch}`ccP The valid switches are:`cmn)?c `*mNJ)ccsing default.`c\c}9k7``k7`}k98k7J;k8k;)k6`k8`k9k8Kk8H8k8k;)} 3} }3,c** Filename is empty.`cc3)# .Pas .Micro .Cmd .Dfs .Doc .Prose P}c'c) a$$' `cmHmn)ccO An entry can be put in the user profile to specify the default settings`ccc*Ɋ`a}R4#N`:WaitoN`N}R4%N`NoWaitoN`N`}N`N''%'L%)TypeFile V4.1. } J) of switches and the default font.`cc6 It has the form: #TypeFile /Font=FontFileName`cN̓}R3#N`FontoN`"3}doN`ʷ3.N`}oN``P` JP N c^C`c "  \Ȋ>cc ** ^Q for MORE **`< k#c** Profile malformed: `mN`}k N`cc8 Type is used to print files on thc+ /NoWait`cc\]c3) .KST Pc}c}7c}: a6k6'ϝd E}}]\]TYPEFILE}J}4z} N  N` cc  cc ----- `c`c -----`ccTYPEFILE TYPEFILE.PASlows use of default fileSHR *SCAVENGER Run the disk  * e PERQ display.`ccd$ Command line is of the form:`ccI0 Type FileSpec {, FileSpeck5cQ** Profile error: `c** Font `cc}`cm not found.`}k5 c\(c{ UcɜcɜccaN N`N` N`}J{N}R<K<<L<<< %<<N <<O<<<K < var Micro: array[0..#7777] of ile: boolean; begin { BootMicroCode } CheckSum := 0; Block := StartBoot; Word := 0; HaveFile := false; `4 4 4 IP MAKE265.CMDfile$Z-v)YtRX<[qd*###'#U]D^KL265 system. ! ! mount harddisk ! ! This command file is going to assume that you will be using the partition ! named sysls.cmd path .. ! ! ! IMPORTANT !!!!!!!!!! ! !When makeboot asks for the name of the root file you should respond ! "s MIc]Hm]cI'H}}xN}}N}N} } N}}?N}:d265, unless you Control-C out of this. ! ! IF YOU ARE NOT IN THE PARTITION IN WHICH YOU WANT TO KEEP D.265, THEN ! ystem.265" ! ! !Write the boot area. Answer the questions as follows: ! !Root file name: SYSTEM.265 !Config file name [SyTRANSFERCMUFTPXFER.PASSiWQɿXDCONTROL-C NOW. THEN GET IN THE PROPER PARTITION AND RUN ! MAKE265.CMD AGAIN. ! pause ! cmuftp r /usr/spice/dmmȴ cmuftpxfer.segNO Jp(}(9}}N}}N}}N}NsJ̸oo'c Success: `cr``ckJ265/get265.cmd get265.cmd cmuftp @get265.cmd link login ~login.265 link link ~link.265 link shell ~shell.265 >makedir u +`cq``c bytes, `moLsNc``cK bits per second`c]}@98c}No ! POS D.265 installation sequence for CMU Perqs with Ethernet ! D. Nason 15 July 82 ! ! PART 3: Load and link a working Dtils >makedir dp >makedir canvas path utils> cmuftp r /usr/spice/d265/get265utils.cmd get265utils.cmd cmuftp @get265uti    it.` c ``c`FTP FTP.TEXT  @SYSTEM SYSTEM.TEXT  @IO IO.TEXTMEMORY MEMORY.TEXT @ x*cc} c}c}c} c} c} " " } ʷzJ |H|zH }$` ʷ}} ʷ}}c}c}P** Unless the file is a directory, suggest you delete the file or fix the length`ccL** by running the c````"  ʷ)#TypeFile V4.1. Type /Help for HelpP*NJ)6WAIT wait for ^Q when typing a ^L; (The default).P帛*NJ)NOWAIT don't wait.P帛*NJ)2FONT FONT=FontFile uses FontFile for tPsys:exp>utility>file> GETTIMESGetTimeStamp.PASboot Pascal.RunR *SCAVENGER } sH}} ʷ}} ʷ}}} )L|{}}utxu|`{` k'F}Scavenger and rebuilding the directories with the`cc** lengths checked.`c]}帜ping a ^L; (The default).P帛*NJ)NOWAIT don't wait.P帛*NJ)2FONT FONT=FontFile uses FontFile for tSYSTEM System.PASPASASexp> She.SCREENSIZE Set the size of the screen.CMDPARSE CmdParse. Run the disk IO_UNIT IO_Unit.PAS.PASSbX$$uNN v ' vN` c}c} uHut+Nk'cc}c} k'h%`ccP帼c}c}aNk (k ($ N`TypeFileN`cɜcɜccaNN Nhe fontP帛*NJ)HELP print this message.PN  ɺa PASASSBSETSEARCH {Parm} Modify search list. "SetSearch CR" will promptFILEUTIL FileUtils.PAS9STATISTICS + IO_OTHER IO_Others.PASows use of default fileSHR *SCAVENGER Run the disk SCREEN Screen."  s'(cc&** WARNING: Number of blocks in file (`cs``c#) does not agree with lengt`N`N`}R4 %N`TypeFileN`R3 mcsIJ46 ())"&| - Turn printing of statistics on or off. sys:exp>$ FILESYSTFileSystem.PAS Turn swapping on or off. PartPASg.PASeof d5  "=894j $ `PERQ_STRPerq_String.PASs use of dh hint (`cɉ'``c).`cc6** The file was probably not properly closed.`ccFile(s) to type: `c}c``c}cɜcɜccaNNoc````n UVp  Type /Help for HelpP*NJ)6WAIT wait for ^Q when ty is the partition for swapping.+TYPE File FILEDEFS FileDefs.PASile File.oslbX$$=Q=R7 =S===T ===U= Vr := true end else me = ''; if HaveFile then begin WriteMicro(#0000,#5776); while (Word <> 0) or (Block <= EndInterpreter) do WriOO#IP system.users/QZ-v)YtRX<[qd*###'#U]D^RSTUNOL.RUN$@$@sys:user>wjh>.profileJ||,||"[venger. demo1"+TYPE File  6,g$rt is the partition swapping. MAKEBOOTSEGCNTROLSEG Dd165:boot>Profiled165:boot>FileUtilsd165:boot>PopCmdParsed165:boot>InitShelld165:boot>CmdParsed165:boot>PopUpd1tdtbmmsys:user>brad>sig>demo.profilee obootcreen. Sys:Boot>(dirk Sys:boot>XELETEPAS4$.5 READERPAS%B CmdPa RENAMESEGAPPENDSEGCMDPARSE.SEGEGP FILEU ILSSGmdParse.SEG65:boot>UtilProgressd165:boot>PopUpCursd165:boot>RandomNumbersGETTIMESB CODE HMEMORY hUTILPROGARN$@$@searcwfJtD,""[PerqManrinting of statistic PROFILEPASSETS"2183J$ M4,4@4"[ANDTABSPAS6 BYESEG^T^h&DYNAMIC SCREEN  RANDOMNU(FILESYST  GETTIMESB FILEDEFSSTREAM SYSTEM *IO_OTHTPGuestr  7$@$@>Default.Profile"[ a cr. $Ah,s on$@$@#sys:user>brad>games>PerqMan.Profileg$rt | - TurnG lt is the partitiofor bX RUNREADPAS'sh EXTLOOKUPPASbb CMDPARSERPOPUPCURbJ ' DYNAMIC IO_OTHERRANDOMNUᓖKd(d165:boot>SHELLd165:boot>PASLONGP system.users LOGIN.265.RUN Clem& $@$@>Default.ProfileJSys:boot [[UwjhTROL.R=E File Type the text file File.DewbX$`"   !" #$ RCH SeacU is not a valid block`cU)Block number range errorP帺 ]cJ```J``Kc` J``ec`efault fileSHR *SCAVENGER Run the disk READDISK ReadDisk.PASP4x`"w2'y.PASOR (;DISMOUNT Device Dismount the device specified by Device.RAISE ;RECORWRITER WRITER.PASASlows use of default fileSHR *SCAVENGER Run the disk STREAM STREAM.PASply a simple help message.*+%!2 FILEDIR J FILEACCE| MOVEMEM IO_PRIVAH SCROUNGEJ" TYPEFILE㭲Y* \DISKIO DiskIO.PAS g2 ,""\ default fileSHR *SCAVENGER Run the disk STREAM STREAM.PASply a simple help message.*+----.5.R0LINK {File} LREADER READER.PASam File.//S/EL5RN "i2 &$SYSTEM (*STREAM  WRITER IOERRMESALLOCDISARIT&&READER  STREAM WRITER MEMORY hPROFILE bUTILPROG ARITH DISKIO READDI]$]$ COM :parARITH Arith.PASHgil,"\CONST GD----.5.R0LINK {File} LREADER READER.PASam File.//S/EL5RN "i22`쐇 ԋ IP TYPEFILE.RUN/QZ-v)YtRX<[qd*###'#U]D^"#$%H DISKIO <READDISKJ"LOADER ,"READER  PERQ_STR SCREEN SK"PERQ_STR SCREEN  IO_OTHERIO_UNIT GETTIMESB FILEDEFSFILESYST  FILEUTIL&!CMDPARSEELETE DelUTILPROGUtilProgress.PAS use of default fileSHR *SCAVENGER Run the diB$ }p| TYPEFILEDOERROR DOHELP READFONTDOSWITCHREADUSERPNOTFOUNGETFILEIVERYFASTCTLC DOFF  FILESYST6  GETTIMESB CODE HMEMORY  h IO_UNIT IO_OTHER<"SYSTEM *PROFILE KbREADER  WRITER  &STREAM PERQ_STR CMDPARSE<"sk PROFILE Profile.PASore in =typefilegs>typefileMPOLDIRECTORY Give a directory of files. "Direct /HeMEMORY memor HANDLELI (;DISMOUNT Device Dismount the device specified by Device.RAISE ;RECORWRITER WRITER.PASASlows use ofIO_INIT EXCEPT DYNAMIC CLOCK FILEDEFSVIRTUAL   RUNREAD >W>>Y>>Y>Z >>>[>>>\ >umF:=0; If Length(SDum) <> If Pos(Str,Sdum) <> (Length(Str) - Length(SDum) + 1) Then GoTo 1; @Bh h  *C LINK.265.RUNcreen* UM *Font* US *IO* UM System SW Stream SW Writer SW IOErrWYZ[H DISKIO <READDISKJ"LOADER ,"READER  PERQ_STR SCREEN SCREEN  RANDOMNU#FILESYST  GETTIMESB FILEDEFSSTREAM SYSTEM *IO_OTHERCMDPARSEarsed165:boot>RunWrited165:boot>FileUtilsd165:boot>RandomNumbersLESYST  FILEUTIL"GETTIMESB FILEDEFSST FILESYST6  GETTIMESB CODE HMEMORY  h IO_UNIT IO_OTHER@ WRITER  STREAM DYNAMIC FILESYST  FILEUTIL"GETTIMESB FILEDEFSSTREAM SYSTEM *PERQ_STR RUNWRITE K!STREAM GETTIMESB CODE HFILEUTIL}zEIO_INIT EXCEPT DYNAMIC CLOCK FILEDEFSVIRTUAL   RUNREAD 2 FILEDIR J FILEACCE| MOVEMEM IO_PRIVAH SCROUNGEJ" LINK FdREAM SYSTEM *PERQ_STR RUNWRITE K!STREAM GETTIMESB CODE HFILEUTIL}zE"DYNAMIC SCREEN  PERQ_STR FILEDIR J READDISK"ALLOCDISDISKIO ARITH FILEACCE| [V( bothsysb.binun MAKEBOOT.RUN quicksort.segdefault.profile$$READER  DYNAMIC WRITER STREAM UTILPROGCMDPARSE RUNWRITE!RUNREAD 2 MEMORY"DYNAMIC SCREEN  PERQ_STR FILEDIR J READDISK"ALLOCDISDISKIO ARITH FILEACCE| GETTIMESB FILEDEFSFILESYST  RANDOMNUᓖKd#d165:boot>LINKd165:boot>UtilProgressd165:boot>CmdP 4$SYSTEM (*STREAM  WRITER IOERRMESALLOCDISARITCOPY.RUN hPERQ_STR GETTIMESB FILEDEFSFILESYST  FILEUTIL"SYSTEM *UTILPROGARNDYNAMIC GETTIMESB FILEDEFSFILESYST  RANDOMNUᓖKd#d165:boot>LINKd165:boot>UtilProgressd165:boot>CmdP%&S1 ( ) * k(ϛ)o8FSBlkWrite: Raw Ij`i`K`cd)Pccdc;)Pc;'1cID of file to mark:`cjc cGETTIMESB FILEDEFSFILESYST  UTILPROGARN DYNAMIC SCREEN  RANDOMNU<#FILESYST  GE65:boot>UtilProgressd165:boot>FileUtilsd165:boot>CmdParsed165:boot>RandomNumbers!DYNAMIC SCREEN  PERQ_SC=x p DISKIOSEGGETTIMESTAMPSEG ! EDINSERTSEG)*+,-. EDSEARCHSEG6789:;GSFLOPPYABCDEFGB@@ @??p1 O q q 9q% αkq#91TTIMESB FILEDEFSSTREAM SYSTEM *IO_OTHERFILEUTIL}zE&!DYNAMIC SCREEN  PERQ_STR FILEDIR J READDISK"ALLOCDISDISKIO ARITH FILEACCE| GETTIMESB FILEDEFSFILESYST     0       뼚 뼚 눛 # bothsysb.bin*STREAM  WRITER IOERRMES)*+q 91qؘqq1р1q%11Aװ01 װTR FILEDIR J READDISK"ALLOCDISDISKIO ARITH FILEACCE| GETTIMESB FILEDEFSFILESYST  CMDPARSE@<" WRITER  &STREAM DYNAMIC FILESYST  FILEUTIL&!GETTIMESB *SAT* UM *SIT* US *Cursor* UM *Screen* UM *Font* US *IO* UM System SW Stream SW Writer SW IOErrMessages SW Loader SW 0!q"q#q$Ʊ %qؙ&0'(q)*1+?,1H- .@/  CMDPARSE@<" WRITER  &STREAM DYNAMIC FILESYST  FILEUTIL&!GETTIMESB z     Reader SW Perq_String SW Screen SW FileSystem SW GetTimeStamp SW FileDefs SW Code SW Memory SW IO_Init SW RunRead SW F0б1ͱ213qa4q52qk62q72q8 9q:q;1#<q =q >qBuq FILEDEFSSTREAM SYSTEM *PERQ_STR RANDOMNUᓖKd<#d165:boot>TYPEFILEd165:boot>Profiled1@ 00$ileDir SW Scrounge SW NHAOVBكڃۃ܃݃ރ߃DEFAULTPROFILEGSUTILUTILPROGRESSSEG(S ]?&S | ??_??` ???a???b@ ? Begin Write('File to ble,FIBlk,BufferPtr); BufferPtr^.FName:=NewFile; FSBlkWrite(UserFile,FIBlk,BufferPtr); Indx:=((UserFil,H̭}}}t`` a!cccFAIL`ͭHQc Never failed with retries, cbogus!`\oJ pcc`:coJcc`>c}ɛɛ`I(backup again. ! pause ! ! cmuftp r /usr/spice/d265/getback.cmd getback.cmd cmuftp @getback.cmd link shell ~shell.265 lcter of your choice> ! ! Do you want to write the boot area [No]: Yes ! Boot microcode file: BothSysB ! Boot microc`cx``c total errors-- using it!`c\9t(3cScavenger: HARD WRITE ERROR`c\c} cbogus!`c `} ap'\}ɛɛ`I(} \v"n`^ink link ~link.265 ! message about multiple program segments is OK link login ~login.265 link floppy link usercontrol liode file: Vfy ! Boot microcode file: ! ! Write a system boot file [Yes]: ! Enter name of new syst) Can't reliably read this page:P}ɺghc Writing it...`} ``c`} `} } 'mo)mHv` ]}ɛɛ`} p|)}prpJpH曂'oχcRoot Inform! POS D.265 installation sequence for CMU Perqs with EtherNet ! D.Nason 7/22/82 ! ! PART 1 Make a backup boot prior to d2nk makedir link makeboot link scavenger link cmuftp link delete link copy link details link direct link partition linem boot file [System.265.b.Boot]: ! Existing boot file to copy (type return to build a new one): SYS265.BOOT ! } } 巼}}} `` a} c`}}}t`` au}` .c marked as INCORRl l l R MAKEBACKUP.CMDCCE| MOVEMEM IO_PRIVAH SCROUNGEJ"_`ab65 boot. ! ! path sys:backup> swap yes sys:BACKUP> ! ! ! If you are not in the proper directory for your backup ! systk setsearch link typefile link rename ! Write the boot area. Answer the questions as follows: ! ! Root file name: Sy -- long delay ! Write an interpreter boot file [Yes]: ! Enter name of new micro boot file [System.265.b.MBoot]: IGIBLE.`c c didn't work.`cc Marked as Incorrigible.`crHrm]} ao'em, type CONTROL-C, and then path to the correct ! partition and make sure that swap is turned on. ! Then type @Makestem.265 ! Config file name [System.265.Config] : ! ! Which character to boot from? b JC1E ?1hF1h!G1!JpؚK>I1h M1h"N1" Qp؛RqOq!Sq UqVuq 0#0p/0?????:p10p10 ޞ Hsys:d165>SYSTEMsys:d165>STREAMsys:d165>WRITERsys:d165>IOErrMessagessys:d165>AllocDisksys:d165>Arithsys:d165>DiskIOsys:d165>ReadDisksys:d165>Loadersys:d165>Readersys:d165>Perq_Stringsys:d165>Screensys:d165>FileSyste *렙 렙 A r SYSTEM.265.RUNg r delete.seg r eftputil.seg r ethersettime.seg r fileutils.se0W1 Yp؟Z1%]^1_`uq a1[1 b1cq$d1%eqf1j@k! h(ϰۗ)00B102ΰ3˰405 @OЀAOB9C t1##1N1d165>DiskIOsys:d165>ReadDisksys:d165>Loadersys:d165>Readersys:d165>Perq_Stringsys:d165>Screensys:d165>FileSyste(h h D restsystem.265.configile, or transfer the remaining files by hand. : This load se',-gS1hƀi1klmS1no1rpS1q1ks1tpءuq$vq wq"xuq   Ok1P1O?e1Ydg1@msys:d165>GetTimeStamp sys:d165>Codesys:d165>Memorysys:d165>IO_Unitsys:d165>IO_Otherssys:d165>IO_Initsys:d165>Ey1 zp؜{uq |1 }1~q$-S{1y1|zq1x1#vqNq SCROUNGE*b J" DYNAMIC READER  STREAM WRITER  *EXCEPT STREAM SCRExceptsys:d165>DYNAMICsys:d165>clocksys:d165>FileDefssys:d165>Virtualsys:d165>RunReadsys:d165>FileDirsys:d165>Fil -/p$- q00 0  0 0 pؠ 0% 0 @EN  RUNREAD 2 IO_OTHERIO_UNIT PERQ_STR SYSTEM *FILESYST  MEMORY hGETTIMESB CODE eAccesssys:d165>MoveMemsys:d165>IO_Privatesys:d165>Scrounged165>IOErrMessagessys:d165>AllocDisksys:d165>Arithsys:'.?T?@d@@e@@@f @@@g@@@hA @al+9; End; miters(CmdLine,CmdDelimiters,Broke); GetSymbol(CmdLine,SDum,CmdDelimiters,Broke); If Length(SDum) = 0 Then Be ! Existing boot file to copy (type return to build a new one): SYS265.MBOOT makeboot ! If everything went smjklmnopqrstuvwxyz{|}~ @K`˼}ɜ',r(q(c Recovered.`c\c Floppy error, status = `c``e, retrying.`cq'c , aborted.`c\]I}o rv)>c:p) qw)a}qNoothly, you now have a bootable D.265 system on ! your harddisk. ! The rest of this command file deletes a couple of now uq*c , retrying.`cq'/}N}Nr*fc, recalibrating...`c`Y N``˼}ɜHaqHqw)rHrv)Š!oH!\oH\]Y[NmbcO[H@M[['9]HM]]'\H\`H``'nnecessary files-- ! and all the space-consuming, unnecessary gs* files-- ! if anything has gone wrong you may want to kee'%c"#}}dP}c`c}cd`d`ccc}`c [`cc}*`c]: `c}cdone, retrying.`cr'ϥc , aborted.`c\]}Nm}NNINI `_H_Rc*[HM[['\`Yɺ\H\"[HM[['Y`N`amHamn rv)ϳ}Urp them around, so ! type C and find a wizard. ! otherwise, type pause delete sys265.boot deleteMAKEBOOT MAKEBOOT.PASSSEVERSION Specify the system version number. Arg is version number.8  S3}*d}S' }S}*P}STBtBYYBYyBYXN]Ncc<^^c  NmqHpH`} N``˼}ɜ',q(p(c Recovered.`c\c Disk error, N}}N} }`N}0}N}@}pN}R}N}}N}}?N}`}N}p}N}&JQJQ쨅 IP makeboot.seg/QZ-v)YtRX<[qd*###'#U]D^defghi ^^cNcȼc3}c}c}a]\KHmLH_mMH`]rHqH}Nߊ`}Nߊ_`Y N`status = `c``p*c , retrying.`cp'Fq*Jc, recalibrating...`c cdonNSG34 56 r('2c?PLX-F-Bad Char: c``c, HardStatus = `} c``` ct's'"c}Aborted`c\cGRetry` *J SYSTEM | *~ (*STREAM WRITER IOERRMESALLOCDISARITH DISKIO 88(>`0IO_UNIT IO_Unit.PASP o Psys:test>cmu> POS D.165 a-boot STREAM STREAM.PAREADDISK"LOADER READER  PERQ_STR SCREEN  FILESYST  STREAM GETTIMESB CODE Hp`@@@52P}c}Console:````N`c}ar'o 'N}qoNo'q,qJ'o'q'c}SASPAS EVERSION Specify the system version number. Arg is version number..seg  8NOECHORE MEMORY hIO_UNIT IO_OTHERIO_INIT EXCEPT STREAM    *DYNAMIC  8NOECHOIO NOECHOIO.PASPAS EVERSION Specify the system version number. Arg is version number..seg  8 qHsΠ}qJc}] WRITER CLOCK READDISK"ALLOCDISARITH DISKIO SYSTEM *PERQ_STR FILESYST  ME y y y noechoio.seg345  p p @iA@@jAA@kAA@l AA@mAA@ nB A Begin WriteLn('File noet(F); End; WriteLn('@'); Close(F); End {TextRead}; Procedure Copy; Var SrcFile,Des}NuoJ` pJ` qJ` rHrv)M]a\[N=Nc}SysBPN>cboot microcode file: Nm?NsNJ}sNJNsHst)]cc``3c ``c from `cc`(*N}K N}K0N}K@k8N}K`k9N}KPN}KpN}K"INN}K"N}KKk7JP!"k7H }K`)}M)fk7Hf gk7Hg ek7Heȼc3c c}c}a'?c** `cN~N~~~~mHml)b?ml)%Nm?N RmHml)P`c}3}d}4&}}.BinJPc}ɺa(ϩN=c})}c````}) c `(J`  cc segment `cɊ``"!H   wH }w NJyM0HNyzMKHL zL Nk8'J}MN}K`}M}KKN}MN}MW}M}Oʷ}O?N}Oc N}OTc `c not found.`c\c}ɛ c````*Font* 3 dn`N`N`N`c}c}ɛ*SAT* 3d`N`N`N`c}`N`k*SIT* 3d`N`N`N`c}`N` k8+wk8*k8,Lc'** Micro address outside of boot area: `ck8``I`cUk8N}9c}){z'y'c at #`w }x NJ߭cxJ x' cwH w+L_N}ʷ}'cSW`WN}ON}O;N}O;N}K`}MN}MN}MN}Mk:N}=Q}= c````}  c}`N`c}c}ml)}mNmHml)ml)ϦJmN~ʷ~}*Cursor*3d`N`N`N`c}`N`k*Screen*3d`N`N`N`"H"c});cc** `cc}`c not found.`ck>}VfyP }PN>k=}3d}'cLS`9}'cUS`}'cUM`c]k7,hJN}KʷL}C}=}?}<Ok9: ;< SOLE:````ͮ)}P84Ik4H(k4k7H*ϸIk4H(όIk4Hk3'Ik4Hk2'Ik4Hk1']})k8}+Ik4Hk7H { { , sail_string.seg89:;<= }~Hl,ConCat: `$~}}H~ll) ~l~llHlH~ln)@JH̷ c-`EMGLH>?@ABCDEF}~]} `aȼ}`a]}k``` 帺 J]}k`k``%m ,cm7H` c0mH`]}'k, } k* kG}03l~- 'k͹cSAIL_String error: `cc}`c String too long.`ckcSAIL_String error:   帺 J]k )k})}k ) kHk},\}k-' kH} ~kGl'ψlHkll);~~}JlH̻~F6SAIL_STRSAIL_STRING.PASiWEVERSION Specify the system version number. Arg is version number.FSfj'K8 `cc}`c Bad parameter to call.`c d?]o,MeAdjust: k+'kH}kJkk)8k *}}k0HBY}}k JAHBYkHk})l}kazDX }k}~0帺J%}~]}`a}k``` 帺 J]}6sail_string.seg o` JJ`$}o]}}pH`}pHo]}}}JP]k J}k}X7kkK}k09DXk}k0JHk}kAJ HHkHk΃kkIk]'lH@ oBA@ pBB@ qBB@ r BB@sBB@tC Bt(Copy); End; Table[3]:='RENAME {Old Name} {New Name}'; CmdTable[4]:='INITDISK'; CmdTable[5]:='DELETE {Filename}'; CmdTable[6]:c not found.`cI\k*``9J)"I'Dcl** Insufficient memory to load `c} tNߊ$`} tNߊ%`}5} }~ ʷ}~ ~  ~  Ju*,c** Overlapping XST/GDB'sN`N`N`mȊ9LP_NJNPNL&_NNL&_N.JNP_9pq }}}}ʷ}}'R} } ʷw}J }} N߭w}H w}J }} N߭w}HI` a'ϙ)}  already exists, ok to rewriteJP)YesP帺a,c}`c\3}dk)`N`N`N`'''+k)Xk+kX))k*`k+``N``c~  ~  JuJ`} a}~ ʷ} tN~ `}7} ~ ( }}} tN}`}~+Lp_NPpPpJpq+L_N'L_N&L_N'L_N)L_N9L Hc*** Unable to find disk address of segment `cv``cv'ϵ}L  vz)$I`v`}Y}sH3}d3}daI}dIJIcv** `cc}`c is on the wrong disk.`cIk+H+k+kX)``}c`J$}7} :}}ʷH} } HJo$,o$}}̽  ̖}~ t( c} `N`l Ȋ*Names* 3d`N`N`N`}N}`N`o_NI``JYJpq)aYpNHapHpq)}Lpq)LI`p`}Y}or)aYvH vz)} }}}}ʷ}}ʷ}N}NwJc`$Enter name of new system boot(c:ɛc````I` ʷc=Existing boot file to copy (type return to build a new one): `c}*}c`]m,8mHmH+c L`N`M] & sl )} sNsHsl )J J,Ae*unused*3dJ J`N`N`N`H J(v J*?c%** InsufficientoNHaoHor)mHpHpq)дȊI``J}L  vz)$I`v`}Y}sHvH vz)}I` ʷ}} file [`cc`c]: `c}3d}3 }P3}dc})c})aII'ϐ3}d3d帺}*3S c}*ɺaSkS':c** `cc}*`c not found.`ckS(@}*3c*Stack* 3d帊-`N`N`N`"I'?c]'** Insufficient space for Stack Segment`c\& memory for IO segment`c\+c** Free memory lost`c\Ȋ*IO* 3d`ʷ Lv_N JvN} ʷLv_N}ʷ} `} @'}},}I` ʷ}}ʷ}}*}aII` a' }dV3}dIc** `cc}`c is on the wrong disk.`c=>?@ A B t oHs`q`p`e HELP if you need it`c ttͺʹcType HELP if you need it`k`k`` 帺 J]}k`` ` 帺 J]}k`k` ` 帺 JInsertChars: [ k` J] 帺JJ`$k},k' }lJ}X}Xl }XlH}}`l`J}}l`w`JJPPwH a}}'`JJPP}}X8}}` FoldUp帺J}X:}}D FoldDown帺J]}ll)(}lazDX}l}l JlH}}o'}p'}}o*\oH}kkkkk+}kkH}kkJkJkk)}kkH}kHkH}'}\}`JP}}\$l }X}l``lJlHw}}}c]~X~X~ `JJPP}} `JJPP}Break: '}} `JJ}} `JJ}}pH}rs)}oqH}rqHrH}oqHJ}``c`}}}}}]}kk)}k}``J}``k)k}HJk},}kkkl)}k}kHkJkX~X SetBreak: `$}~~X}D},^~c}ɺJ~c}}J^˼&}}Omit: '帺Jc}}J^˼&}}]~kl})-}l (}l (c~}l`lH}~]}}k~lk'k\kH}}lJHll)I}llHJ}l'll) lHlJl'l lHH]}c}X }X  l})|}l l (:l AZDazDYX(l 'X}}~B[}}~BY̙},:~c}ɺJ}}~BYFlags:帺J}X5}} Skip帺J}X8}})[}l '}l '}l '}l 'l c~ `c~}l`lH̚}~]l'}̭}},\}ll) }l}l(\lH}}kkHk,}l l    l _ }ll lll }X}l `JP}X}Xl }X̽]  wx)ϙw}Xχ}}w`JJPPw''@}}} Append帺J}X8}} Retain帺J}@uCB@vCC@wCC@x CC@yCC@zD CTPMainProc; 13: SetPrefEnter name of character set` 4&c [`cc `]c:cc}3 d}3 } `*IO*  ~cQ~c υ~c lc ** Segment `~cc``c1 was in the configurati N巜ɜɜN` dcSystem `cc-boot disk address = `dNcɭ``3}daII` a' S}dV3}dIc** `cc}`c is on the wrong disk.3a\[Nf)(Use standard interpreter microcode filesP)YesP帺a43Perqd帺aNfkfP}4Sc}ɺa'Ec** `cc}`c not found.`c}P}4 }da\[on file but wasn't loaded.`c~c~cqaI` ['cclg``c Swappable blocks.`cc I`c}}s.BinJdc}ɺa(c Reading `cc}`cNc`cI` a'ϙ)} already exists, ok to rewriteJP)Y3 IOd帺aNfcInterpreter microcode file: `c})3d帺})4kf3})daNfkf})3gfecc6--- for each segment, one of the following is printed:`cc! SW - swappalf``c Unswappable blocks.`ccle``c Free blocks.`c@c}T}*c````}T  R}c````R  a+|a*a,Nc'** Micro address outside of boot area: `ca``I`cesP帺a,3}d3}daI}dIJIc** `cc}`c is on the wrong disk.``` [(\#) aI` @c}}gc````}  I}c}c:c}cccS`c ble.`cc& LS - less swappable.`cck# or US - unswappable.`cI}cc}Tc:c}Tc(2ccFixing up disk addresses... `cc`cE written.UaNbcRtcR?c** `cc}`c not found.`cN]c#Enter name ofcI(c:ɛSc````I` ʷc=Existing boot file to copy (type return to build a new one)written.`cc:``c4`I`I`c4`巜ɜɜc! UM - unmovable.`cc&H`*Names*  &`*Stack*  `cc:``c4`I`I`c4`巜ɜɜN`  new micro boot file [`ccS`c]: `c}3Sd}3 }SP3}dc}ec}eaII'ϐ: `c}g33d帺}g3 c}gɺak':c** `cc}g`c not found.`ck(@}g C D E F GSHc` d pt3]4cDecLockCount - seg? `cc` cIncRefCount - seg? `l'}l,l,} SubStrFor: `$l},~~U}llH* }lJHJa]}},\"}J}Ja]}j=>,X0a00:09#\@DYNAMIC DYNAMIC.PASDDD-Zh-ZPY, ?  lll)~l}llHJlH~l}~]l'}l'}l,l,J}J3],.HJ~%  ml *vl vjADJUST APPENDCHAPPENDSTCONCAT CVD CVH CVHS CVHSS CVINT CVN CVO CV!!p"" #?#$$%'%&} SubStrTo: `$l},ll*~~~S}l*}llll)~llJH}llH&<>jl *SYSTEM system.PASP o Psys:part1> POS D.165 a-boot .RUNOS CVOSS CVS CVSS CVUP DELETECHGETBREAKINDEX1 INDEX2 INITIAL INSERTCHLOP REPLACECSCAN SETBREAKSHOWBREASQ?'?(?)>*:8~llJH}~]~l})c}l '}l '}l '}l 'l c~}l`,XZ34hjO|QP)|68>* |dWRITER WRITER.PASUEEZE STR STRIP SUBSTRFOSUBSTRTOTRIM ULINDEX2ULINITIAUPEQU STRERRORXN ADDCHR ! (X/$D c~}l`~lH̒c~l`}~ȼ}J}Pc d      n\^i#\PASCAL X aSTREAM STREAM.PAS! (X/$X0a00:09#\@DYNAMIC DYNAMIC.PASDDD-Zh-ZPY, @{DC@|DD@}DD@~ DD@DD@E DPAS Get CHATTR.PAS CHATTER.PAS 68*,{ ) Pc *cccI`cN` >N巜ɜɜN` dc Interpreter `cc-boot disk address = `d' dcConfiguration file name `4$[ccc`]cc: `cg3}US3}<N͵}UM3}<N͙c** "`cc}`c$" is not valid for segment mobic c /c}437cRoot file name: `ccd`d`cc  /c}4c a valid path.`c\k` a4ϐ}g.RunJH`.Run`Jdc}gNcɭ`` I`c]`_YNNU?mn)YmNmHmn)]c}ɛc````c}dg3 gdg 4Wcgɺa'Hcs** `ccg`cc not found.`cgdlity,`cc** US assumed (file `cc`c).`c}<N}<Q巜Q}ͼc},c c} /c}4c} }BUILD3sNc  /c}4c c} /c}4}' }g.RUN33`.RUNJ`Jd}}.Config`c(ɜ7cɜ5cɜ3cN`7 Ϣ((Wc** `cc`c% has an incompatible run file format.`gI4gdc},c````Q},^^c  /}``c`}}<ʷ},^^c (=o*$oH}:** Bad arg. Form is: MakeBoot system./Build `c\]cT0``0`T``Uc0`ml}N!a*z,!}4!3Z)Write boot file to hard diskP)YesP帺aJJd} .RunJJdcc?c** `cc`c is ill-formed.`c\c}`5c}*BBYX N*I)* 'S'S>'5}`S`Jdcɺak'?c ** `cc`c not found.`c\dN'=NbdNcHard diMc** `cc`c is not a System program.`c\+%-,HLH-..c}]cɺa^cc}c},P`P`c},c} }<N}3 }USP}SW3}<N}LS3}<N``c```c`Nc  c}4c c}4g /c}4c  /c}4`S`}c33dc}c}a3}dc}c}ak'Ic** `cc}`c is notS &KK #L SN, *"~|zxvtrpnljhfdb`^\ZXVTRPNLJHFDB@><:86420.,*(&$"  @x<IO_INIT EXCEPT DYNAMIC CLOCK FILEDEFSVIRTUAL   RUNREAD  direct.seg 9y POS D.65 x-boot CODE Code.PASumber.8PERQ_STRPerq_String.PASEVERSION Specify the system version number. Arg is version number.巜ɜɜN`  N﷜>N﷜dcSystem `cc)-boot``Nc` c]c````c````cc5 MakeBoot `c4.3`c# targkl*?,Lh#N;;` ^  QP|6=>* dGETTIMESGetTimeStamp.PASBcQ8CMDPARSE CmdParse.PAS#Ep> @iE PASCAL.RUN|6 =K)$Z!3SYSTEM System. ` c is unused.`2c}disk address = `dNcɭ`` I`cdc Interpreter `et memory manager version = `c2.13`ccc;)cWrite the boot areaP)YesP帺Y##\CAL X aFILEUTIL FileUtils.PAS! ( /$PASquery m makeboot/noquery 3~m  GG G GJFILEACCEFileAccess.PAS%a%cc-boot ` c is unused.`2c disk address = `dNcɭ`` I`caNc6)Write the boot areaP)NoP帺aNcc b Nc4ώc)Write a syste$*34#$**R09*t,>v,X0a|6=&%ery J@FILESYSTFileSystem.PASDG8GZPY3  &O&&P&OS+R S,SS-T c(q(ξq~|zxvtrpnljhfdb`^\ZXVTRPNLJHFDB@><:86420.,*(&$"  DIRECT DIRECT.PASallows use of default fileSHR *SCAVENGER Run the disk  D}k?>'9k@%\-k?=@#k?=}:k?<d k?H?k@'N}4}`k=`JdP}(PARTITIONS: Give partition information.PccJ)2LISTDIRECTORIES: Show directories with no matches.PccJ)a)"P)< Summary. JP cm&cNo errors found.`ccɉp`` I`ccOld bad segments deleted = `q'cnone.`ccɉq`` I`cc :3}6}k=H`kdck=k<'}8*dc0}8}k<H`k6ONECOLUMN: Print all in one column; implied by File.Pcc J) MULTICOLUMN: Print in 4 columns.PcȜe``c`ͪ(cThe following pages were bad:`c })o  (<uɺmgϋcm FYESPc!Suggest rebuilding the directory.`c P帊`)&D >k@?c}A`}:k?k>,k@*\@͉}k?:'k@'@\j}A}k?c}Aak@+@͸c J) HELP: Print this message.PccJ)1DELIMITER: Output file names as | PccJ)`icɊ```jcɊ```g0`)"P) cḢ (cgccTemporary segments deleted = `p'cnone.`c@"FE@#FF@$FF@%FH FJH G F; { highest single sideme0,Name1,Ext: integer; Size: integer; JobChan: integer; Date: DateRec; ndn3  ,=~ / ||6 =)ARITH Arith.PASG}Soqf,cxcQ;(,#\IO_INIT IO_Init.PASD\STREAM STREAM.PAStO com165.CMD   COM165.CMDUNSEGS com16 COM165READER READER.PAS'%t %'N8'K@tJ DYNAMIC DYNAMIC.PAS B@!"@"B$"@ ?"*$ B@!"BHB*$@ ?%%9\DISKIO DiskIO.PAS%cQZdndm3 8|1Ja| |6= )JIO_UNIT IO_Unit.PASsys:part2>com165.CMDER.PAS'%t %'N8'K@tJ DYNAMIC DYNAMIC.PAS "  @"@@@ ?"$ @ D|A8eH|!B`#B0>'8 ?GW%AG8ALLOCDIS AllocDisk.PASSEVERSION Specify the system version number. Arg is version2(%X%jJ@XIXIO_OTHER IO_Others.PAS(\LX[ t((dkdpdo#\ajj(!{MAKEBOOTGETLN ASK GETBOOTCFINDFILEFLOPPYAD@\A'H ?I"$ !`B@!"C@AB ĀC ?I0@` ?? number.8READDISK ReadDisk.PASE#8E8D#\QZP8P]#P]P\\ndtnd n CONTROLSControlStore.PAS7cQ:FLOPPYWRDISKWRITWRITEBLOWRITEWORWRITEMICBOOTMICRSYSTEMCONAMESEGMMAKESEG PRINTMEMLOADFONTLOADSTANLOADCODELOADSEG LOADSTACADVANCE "$!F!C@!"B@AB  ?0 ?NNNNNNNNNNNNNNNNNNNNNNNNNNNNFILEDIR FileDir.PASON:pnoq makeboot/noquery POS D.65 x-boot 18 Jan 82 19:25:39vIO IO.PA#\*@WRITER WRITER.PAS#\#\d(.CMD.CMD SYStLOADSNAMLOADFREELOADIOSELOADSATAFIXUPDISINTERPREREADINTEWRITEFLOINIT READRUN READCONFERROREXIEGS com16 COM165READER REA"*"D!@B@!"B@"B @ ?"*$DS.US/VS0WS1X S2YS3Z c2cc2%x~ )FindingP ) ReplacingP ˼˼oa Hϸ˼` the directories ***`cc7*** Suggest you delete some files before rebuilding ***`cNOP帼)  24pr&(np-.uv Tn#\X aGETTIMESGetTimeStamp.PAS!  /$.PASASIO_UNIT IO_Unit.PAS%%a%STREAM STREAM.PASsca scavengerT2A`WRITER WRITE0Are you sure you want to rebuild the directoriesP)PaU)< Rebuilding the directori3 4^`3-4-66X9fgZ9p9r9l:X0a&4n4@4?#\DISKIO DiskIO.PASDDDZPY ndn  ,=~ /nge ||6 )IO_OTHER IO_Others.PASZfXR.PASomfc(D((C8EditQuit: RH(Qp>scavengREADER READER.PASes. JP )<P c)#Do you want the partition remountedP)YesP帺a`on:?GAjI?A$78a))bRS*ilvl vALLOCDIS AllocDisk.PAS?LERYfD"SCREEN Screen.PAS((n#\dndm Trhqj|2Ma| |6 )JDYNAMIC DYNAMIC.PASQ$.$- )"Pa]lI["$78a))bRS*FILEACCEFileAccess.PAS Psys:backup>scavenger> POS D.165 a-boot ARITH Arith.PASREADDISK ReadDisk.PASSW%APERQ_STRPERQ_String.PAS2(%X%..\I<HSCAVENGEADDRTOIDIDXTOFIEIDXTOADDPRODUSERASK PRINTENTIDENTIFYPRIN ++{|****NP;QP|6>* ;dFILEDEFS FileDefs.PAS u0MEMORY Memory.PASe*( PASCAL.RUN|6 K) !FILEDIR FileDirSYSTEM System.PAS%D((C  llNa sys:bVLV 8 r.Pas `ndH GFH GGHGGH GGHajG H while (i < 40) and (Rad50[i] <> begin writeln('?PLX-W-Illegal use of wildcards'); Valid:=false; exit(ConvertName) end NrNrNc^C`c]Nrc}  m* JHmno) nHno)mc})`c. Run Scavenger.`c)}P)})P R` cc** No free blocks in `cc}`cd2Rrp(^})p`)JPc Error is: `cp``c = `cc}`)}Pk)N`}*k,`-           NNqN}ya1`1_1?]1YVb1O'1X p؝u1OSq @T]}Pc}N}m M0HN}}} JPPm Lm'δ}P}PN}`c(. Delete some files then run Scavenger.`c)}P )]]]}c/HELP c]` cc** cc0 Address is `}ac`` I`}}ʷq'ψ}N߭c. HardDisk; Cylinder `}cɞvNxNwNr`,`` X` `|cConsole:````cConsole:```` `Q1h  @ h1x L1KqJ EqGqFq E2qk2q ` _N` ` N` ``vN`sNtNu`N﷜﷜﷜﷜Unable to reset `cc}`c3}d 3]` cc** Disk Error: `cc}`c)}``c, head `}Rc``c , sector `}c``caci. Floppy; Sector `}Ncɭ*``cɺ4`c6`N߭N߭8`NN`` `Z,,2q@q 9q؝װk@191װ @1 @&q@581 @@9﷜ Nqc)}P cNq}PP  N`Z)P )]}amcREAD`ccWRITE`cc WRITE FIRST`cʹc` RECALIBRA``c , cylinder `}Ncɭ``c` cc** Disk Error: `cc}`c on `k)`3>dcc a```LogIn..Run JA31Y @DpآHpأLpؤPpإTpئXpا\pب1q.q-q ,q0s''ss`tN`uN` ϸ]` cc** `cc}`c for `cTE`c͒cFLOPPY HEADER READ`cgcFLOPPY HEADER WRITE`c<cUnknown operationN`}*k,`)}Pk)N`}*k,` -` cc** Flush Error: `cc}`c  on `k)N`}*k,` JPNNN] )BT)S4[\]^ _ ` X(cfset = `cr``c ]˼~˼{) ** Select **P帺˼r˼o)` ** Filled **P帺˼lTDA PRINTMAPISVALIDDBADBLOCKBADCHAINGOODCHAIFREECHAINEXTFREEPREVFREECURUPDATCURINIT DODISKIOWRITENAMCHECKFILBLINKSCRPRINTDIBSAME FILESYST6  GETTIMESB CODE HMEMORY  h IO_UNIT IO_OTHER| d165:boot>SCAVENGERDYNAMIC CLOCK FILEDEFSVIRTUAL   RUNREAD .*k>*!k.k>,!c k?H?k?k=H'c l@k=?k?.}/4`k.`ʷ}/ɺ}/ak?JM' wc  }Ak.k=JTRACRECHECKIANALYZEDBUILDFRERECLAIMTUPPEREQUPLAUSIBLENTERNAMREBUILDDREBUILDIp>scavengREADER READER.PASIO_INIT EXCEPT DYNAMIC CLOCK FILEDEFSVIRTUAL   RUNREAD ɛ!N`c l@ !ɉ4` k=?k?.}/4`k.`ʷl@ }/ɺ}/ak?JM' wc  +}Ak.k=JN}/N+}Ak.k=JN}/ɛ'ɛ!N`` aN}Ak.k=JN Xc k.H.k.*k>*!k.k>,!Sc k?H?k?k=H'8Trhqj|2Ma| |6 )JDYNAMIC DYNAMIC.PASQ$.$- ][2 FILEDIR J FILEACCE| MOVEMEM IO_PRIVAH SCROUNGEJ" SCAVENGEO# ɛ#ɛ!N`` aN}Ak.k=JN Xc k.H.k.*k>*!k.k>,!\c k?H?k?k=H'Ac lA<k=?k?.}/c k=?k?.}/4`k.`ʷ}/ɺ}/ak?JM' rc }Ak.k=JN+}Ak.k=JN}/ɛ)ɛ%N`` a2(%X%..\I<HSCAVENGEADDRTOIDIDXTOFIEIDXTOADDPRODUSERASK PRINTENTIDENTIFYPRIN $SYSTEM (*STREAM  WRITER IOERRMESALLOCDISARIT$$/DYNAMIC READER  WRITER STREAM SYSTEM *PERQ_STR SCREEN  IO_OTHERIO_UNI4`k.`ʷl@ }/ɺ}/ak?JM' rc }Ak.k=JN+}Ak.k=JN}/ɛ)ɛ%N`` aN}Ak.k=JN}Ak.k=JN}Ak.k=JN!ɛ%ɺaN}Ak.k=JN}Ak.k=JN'ɛ)ɺaN}Ak.k=JN Xc O˻ O˻ c SCAVENGER.RUNrtition information block Cannot be written.` c c c\]H DISKIO <READDISKJ"LOADER ,"READER  PERQ_STR SCREEN T FILEDIR J MEMORY hREADDISK"ALLOCDISDISKIO GETTIMESB FILEDEFSARITH FILEACCEN}Ak.k=JN!ɛ%ɺaN}Ak.k=JNl@}Ak.k=JN#ɛ)ɺaN}Ak.k=JN Xc k.H.k HG HHHgH HHHHHHI Hte }; Procedure FirstSector(Bes, to floppy address Adr } label 1; const retries = 5; var i,j:integer; begin for i:=1 to retries do begin 2qk2q 2q2q2qO#01"q !M qq q 1P91QkR0S91TU0V91W0X0Y91Z0[ \91]p^91_03456789:;<=>?@ABCDEFGHIJKLN!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! @"  @#  @$ @%!F @+ @'1;2qk2q2q2q 2q2q2qO91k1911910`p a cb0d 0e fp؞g91hӘ0i W&0@$0@%0@&ɰ 6հ N& ( (0&; @)C*K+S,[-c.k/s0{0 q qq @1qp q p "p #0@$0@%0@&ɰ 6հ 7Ӱ 8Ѱ 9° :ӻ0;@<1h 1h @ *@+0,@-0.@ /0=@!pp pPp pPQ`s`P`0` ` ``````0`Q`Q` !`q`Q````(Q`.!`1q`9`;!`>!`A`B C @ K @ S& @ [) @ a , @iO3 @q 5 @y < @123456787Ӱ 8Ѱ 9° :ӻ0;@<1h 1h @ *@+0,@-0.@ /0=@0   system.265.a.BootPPACKE'POPUP I DYNAMIC WRITER `L!`OA`Ta`[`\A`apt1!!!!!!!!!!!!!!!!!!!!!!!! @ @F @ L @O @W @ ] @ ^ @_ @9:;<=>?@>0D@E00'F0G?p H2qkI2qJ2qK2q L2qM2qN2qOOa !"#$%&'()*+,-./012!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! h @Mn @q @y @{ @ ~ @ @  @abcd ef c \ H,oHonH̹>p)/?mq)cɛ/J@m߭`mHHc H k.H.k.*k>*!k.k>,!c k?H?k?k=H'c lAϲk=?.k.k>k=J)7}Ak.N c* Block ` k.k=Hc` };ɛ#ɛ!N`!cAll blocks bad` c ͦk-'cSLast blk bad; last good is ` k.k=HJc`` I`` cc blocks.` c }3ɛ#ɛ!N`#k-`}/#﷉ }3ɛ#ɛ!N`k?k=(ρc6Fix filleq?N/﷛@q?N qHqx) qx)#4qN/﷜hqN/qHqx)ݜ7ɛ+ʷc}cɺ es. How many pages? ` Nmo,3c!Too many pages. How many pages? ` N}ɼm`ɛ+ʷ}c` I` c bad, removing from Free List ` k.-}Ak-N k-k>k=J*k-H-}Ak-N -cup to ` k-k=H c }/4`k.k=HJ`ʷ}3ɛ#ɛ!N`#}/巉 }3ɛ#ɛ!N`}/ɛ#ɛ!N`!/巛!k? r word of last block since first free changed` c }/ɛ#ɛ!N`!k? }/ɛ#ɛ!N`c cW}ʷ}ɼɛ+ʷ}c}cɺ}ʷNc)Name for root partition (up to 8 chars)}cɺ} m`}ʷ2}﷛2N߭(2N߭(p2} c'Not a track multiple. Next smallest = ` 2Ncɭc`` I` c c} indexes are ` ck.`` I` c and ` ck-`` I` c k-' };/};4`k-k=H}/ɛ#ɛ!N`}/4`k.k=HJ`ʷc Last good is ` }/ac`` I` c }/ɛ#ɛ!N`!};riting root Information Block.` c c Jmn)#mNmHmn)mn)#rmNJ;mNmHmn): ` c;`aNnι? x) 2ʷ?N﷛2﷛2N߭(2N߭* 2N߭c The`` c. How many pages? ` Nnncɺ@?N}ɛ+ʷ)@?NPɜɺ}`ʷcNext good block: ` };ac`` I` c k.'cFirst block bad` c }3ɛ#ɛ!N`巛!};a }/ɛ#ɛ!N`};ɛ#ɛ!N`!}/巉 };ɛ#ɛ!N`k-' k>k=JH.k-.k#v7巛#x5巛#9巛#N#"1N?mn) #zm?Nm?NmHmn)mn)7# mN4mNre are` co`` c pages available for partition` cɊ`` .c c c}0How many pages would you ɼm`ʷ/ Hx)ȼ)x Are you sure you want to split? P)HYesP帺a \#};巉 }3ɛ#ɛ!N`k-(sk-k=H?cRewriting NextGoodBlk as head ` c };ɛ#ɛ!N`!/巉 .H.;k@-.k>k=JBk.lB)$}Ak.N k-J-k.H.k.lB)k-k@(%c]* Updating free count; lost ` k@k-Jc`巛#>mNhmNmHmn)ɛ!9巛!!!/巛!/巉 9ɛ#ɛ!N`#ɺ]? qx).like in it? (0 => all) ` &o`'*o`'cm`` c c}cc Nm'om*2c Too few pagHIHHIIHIIH IIHIIHJ Isector } Inc := Bytes div 2; t; var i:integer; c:char begin Cmds[1]:='HELP'; Cmds[2]:='DIRECTORY'; Cmds[3]:='GET'; Cmds[4]:='QUIT'; Cmds[5]:='PUT'; AB CDE#F+G3H;Z c l u ~                   ) 2 ; D M V _ h q *   ?| =B>A<"A("I BHT a  ICJKKSL[McNkOsP{z  'H@B `8|>@|p@x1\㇈@`1 H2  B"A A"A("I B(H @P"@b  @@ B"QRSTUVWX   $ - 6 ? H Q Z c l u ~      `D1c"Ƙ(%R%"(I@E @ HP  d (I A"ADBI~~ BP d( @ @@ @B"M A%DA YZ[\]^_  ) 2 ; D M V _ h q z                   % . HAAB"R%A"(  I  ~~ G(H @  " @ HA B"B  @D 3@ cb!" D$& pA @B a>87 @ I R [ d m v                   $ - 6 ? H Q A"Aq! @DT @B  cB"BA""H CDghij kl ? P帺a έ)read an>m(4mH?Nm?N﷛@mH?N@m?NmJĜc} cɺ ?N}ɛ+ʷ}c} cɺes? ` NϘ}}ɛ+ʷ)@?NP}ɺ}}﷜H?N}c cn%Name of second half (op);o#roNJNoHop)?op)ϛo?N#zo?N﷛@o?No 帜o?N/ OmHo?roNJoNoHop)9ɛ#ɛ!N`\Nc'Which partition do you want to modify? ` ccP`P`Pɜɺ\)*Do you want to change the partition name? P)tNoP帺aψcs**** WARNING ****` c}ɛ+ʷ}aaJc There are ` cs`` c pages available.` c c1How many pages new partition)? ` cɺ mz)"@H?NmmNmHmz))P}ɜɺ]c c(About to merge Nɛ'ɛ%N`nq)&@o?Nn'rnNJNnHnq)oHop)eop)74oN# oN﷜hoN#>oc ,ϯ op)ooNoHop)?op)l)P)@o?NPa?N cF* After renaming the partition, no programs currently in it will run!!` c )$* Are you sure you want twould you like in the first half? ` Nc}cc Nr*4c Too few pages. How many pages? ` Nselected partition with: ` c H?Nɛ#ɛ!N`#ɺ) Are you sure you want to merge? P)YNoHop)ɛ#ɺ)N"Do you want to rename the Device? P)NoP帺a[c**** WARNING ****` c coo?Nɛ'ɛ%N`o?N﷜'xoHop)Дc 'ɺc m@*K)%Do you want to split o do this? P)NoP帺acINew partition name: ` cɺɛ#ɛ!N`op) #roNJors,5c!Too many pages. How many pages? ` N}ɼr`ɛ+ʷ}c} cɺ} r`} esP帺a \H?Nɛ'ɛ%N`'x)@?NPɜɺH>mn)7m?NmH?N﷛C* After renaming the device, no programs currently on it will run!!` c )$* Are you sure you want to do this?this partition? P)NoP帺a\?*oH?N/ Y)3Do you want to merge this partition with thNoHop)Hop)#roNJ NoHop) ɛ#ɛ!N`c #ɺ\]c#F** For /Build s2} ﷛2N߭(2N߭(r2} c'Not a track multiple. Next smallest = ` 2Ncɭ`` c.. How many pag@m?N@mH?NmHmn)ɜ??N/mn)@??Nm NmHmn)ț9ɛ#ɛ!N`;  P)NoP帺aϗcNew device name [` #cr`` c] ` c`aN >op) #e next? P)NoP帺a\)l*Do you want to initialize this partition? P)NoP帺a#)@?NH  FIJJJJJJ JJJJJKDDens then (* *) SecPths[6]:='JUN'; Months[7]:='JUL'; Months[8]:='AUG'; Months[9]:='SEP'; Months[10]:='OCT'; Months[11]:='NO?|@>@ =~"!O00` qrpmNmINmNmINjYjY IPio.segO`d/QZ-v)YtRX<[qd*###'#U]D^ #B#D8STREAM STREAM.PASmp.PASos.DRexp>3 She.SCREENSIZE Set the size of the screen.LOADCONTLOADMICRJU08 ?Q $  BH@@ ?}  }+}}ʷ}}N} }`N}0}N}@}pN}R}N}}MPCONT Q @@@@ ?CONTROLSCONTROLSTORE.PAS use of default fileMPSHR *SCAVENGER Run the disk  N}}?N}`}N}p}N}}Nop}}N}IN} }} YY츅 IPcontrolstore.segZ-v)YtRX<[qd*###'#U]D^ N} }`N}0}N}@}pN}R}N}}N}}?N}`}N}p}N}}Nmnop qr `c&cP`P` c %Type any character to exit poll mode.`c `c}a(`c ]c})Pcc}cT)witch, need device (F or H) followed by partition names` c \]c  /c} c c}) /covided: ` cɊ`` c is less than` c c%** the number needed for the device: ` cm`` c c)Are you sure? P)NOP帺aNc```` c```` N   N  c4 MByte disk? P)YesP帺a N1C)Is this a 12 MByte disk? P)YesP帺aN1Ͱc1IRS*RS)*{,| 6 8 } c  /c} c c}) /c} c}) }) 3\d})BUILD4Tc?<** Illegal arD ** Aborting!` c \]9ɛ#ɛ!N`` aNm#9 #(#"1(!9 ͽc0Device Partition initialization program version ` c3.2` .c c c )/Do you want to debug?s this a Single (S) or Double (D) sided floppy? ` c^^c c s' SNd' DN T V   F H w -- x < > gument to Partition. BUILD is only valid switch` c \c  /c} c c}) /c} c})5*****************************************************` c c3** WARNING WARNING WARNING WARNING WARNING WARNING` (does not do any writes) P)NoP帺aN c +`ʷ/`ʷ-`ʷ``#c```'c`D'S'hD' N1N11N` ʷ51N`ʷ25﷛2N2Nߛ2N߭72﷛97﷼9 p! r!%%b)d)**1RJ2341H2 })3(})H' N1})F' N1c  /c} c c}) /c} }) c c5*****************************************************` c c c c0** This disk appears t``)c```!c```%c` Ϧc&Partition Harddisk (H) or Floppy (F)? ` c^^c a44`͆)y,Do you want to initialize the whole device? P)NoP帺a6)Are you sur44"5$577)"Do you want the device remounted? P)YesP帺a4`87;4H NJ})})3ΔNȉ1d m*Ͼcc** Number of names pro contain useful data!!!!` c N)2Do you want to destroy the contents of this disk? P)NNOP帺a7c f' FNh' HNH'F'rF' N1N11'ϒF)Is this a 2e? P)YesP帺a)"Do you want the device remounted? P)YesP帺a4`87;JKJJKKJK<K< 1 <LKive) or ((((DirSrite(outFile, ' in Use'); writeln(outFile); write(outFile, TotFree:1,' Free Block'); if TotFree <> 1 then write(outFile, 's')IO IO.PASam (allows use of default fileSHR *SCAVENGER Run the disk  5}} } }}}]} } q}aa``}c ` }}ʷ}}ault fileSHR *SCAVENGER Run the disk FOO igeca_][YWUSQOMKIGECA?=;97531/-+)'%#! }{ywusqomk 1}}}5}} } }}}巼}aa``}c ` }}ʷ}}1} scavenger.segigeSa_][YWUC]}c}N` }N` acWe sent an abort: `cp```c - Abort: `c }}5}} } }}}]/X -:`}YJ^˼}5%/foreign host specified.`cNN]c We timed out.`cN}c}N` }N` acc}`cN]om}TVLcj} BVcW}1cF}2Vc3}IVc!}IO_INIT IO_Init.PASSSSASxshe.SCREENSIZE Set the size of the screen.IO_UNIT IO_Unit.PWe got an abort: `cp```c - Abort: `cc}`cpNͷNͯNͧdcd]} } ʷ} }"NqN} ux)Zt}u ,$} }uH"N}u"N]} } }}}巼}aa``}c ` }}ʷ}}1}}}ASP.PAS use of defaultBSETSEARCH {Parm} Modify search list. "SetSearch CR" will promptk IO_OTHER IO_Others.PASows use of def}{ywusqomk s!t"u#S'wZS(x ] \D ߊ+0}ߊ*0`"0`@K`˼}ɜ&0&0'\c*** Floppy error, softstatus = `&0c``c,ARITH Arith.PASPAS.PASfile.exp>3 She.SCREENSIZE Set the size of the screen.FILEDEFS FileDefs. Run the disk IO_UNIT IO_Unit.PASPASws use of default fileSHR *SCAVENGER Run the disk" 4COM PARTSTREAM STREAM.PASfile Src to file Dest.AY ,BEGIN CASE CONST GDELETE DelREADER READER.PASlete /Help" for more details.EXPORTS 1FILE FDETAILS ParPARTITION.PAS/noqueryyailstency checkingP)YesP帺ajijP)+Is there enough memory to do it in one passP)YesP帺aPASSows use of defaultBSETSEARCH {Parm} Modify search list. "SetSearch CR" will promptk GETTIMESGetTimeStamp.PASATISTICS + PERQ_STRPerq_String.PASs use of default fileSHR *SCAVENGER Run the disk MEMORY Memory.ELETE DelREADER READER.PASlete /Help" for more details.EXPORTS 1FILE FDETAILS ParPARTITION.PAS/noqueryyail"(_)9** This does not look like a fileSystem floppy. ContinueP)NoP帺a \"'Gklhfg)&Do you want temporary segments deletedP) YesP帺ak)$Do you want old bad segment| - Turn printing of statistics on or off.VENGER Run the disk DISKIO DiskIO.PAS- Turn swapping on or off. PartPASPAS .jp289j $ `SYSTEM System.PASPASows use of ds. DYNAMIC DYNAMIC.PASore in/noqueryN.PAS IMPOLDIRECTORY Give a directory of files. "Direct /HeDOPARTITASK )Is this a Single Sided FloppyP)YesP帺aeE)Is this a Double Sided FloppyP)YesP帺as deletedP)YesP帺al)cCan I rewrite bad blocksP)NoP帺ah).Should I re-use old blocks ma is the partition for swapping.+TYPE File ALLOCDIS AllocDisk.PASows use of default fileSHR efault fileSHR *SCAVENGER Run the disk CMDPARSE CmdParse.PASP4x`"w8' UPPEREQUOKPARTNAGETNAME GETPARTNWRITENAMPRINTDIBROUNDDOWROUNDUP RANDOM RANDOMIZLABELRANCOMPLEMEINITPARTSETUPLABEQUALLABEQUALBec)Can I make changes to your diskP)YesP帺agg-) Are you sureP)YesP帺arked INCORRIGIBLEP)dNoP帺af)"Do you want complete error listingP)YesP帺aoeU]U*SCAVENGER Run the disk READDISK ReadDisk.PASSows use of default fileSHR *SCAVENGER  \WRITER WRITER.PAS^8 ,""\UFWRITEROOFIRSTPARSPLITPARMERGEPARREPARTITPARTPARSREPORTERCHECKNUMCHECKINIe Dest.AY ,BEGIN CASE CONST GDg) 5Do you want logical block number consistency checkingP)YesP帺ai).Do you want serial number consi<LK<LL<LL< LL<LL< M L2,TmpDir.Flp,IORead) enme NewName'); exit(DoRename) end; ConvertName(src,SN0,SN1,SEx,WildN,WildE,Valid); if not Valid then exit(DoRename); } }uH"N}uNuHux)Ц}}}HH} }J"N N]N} }ʷ}NDN}``)cc N9}ɺ aN)}ɺ aNNdEIȼ}}r`a<xc}c}c}'SN`}}} xN`cɺaN y':x3}dc}c} a{J|HL ` z} c} N`aNy)c}c}$a(Nz`v`xK` +}}. z`v`} w`w ` vH ̃ c}u'}STRINGUTStringUtil.PAS Psys:sys> POS D.165 b-boot PUPPACKE PUPPacketNrN}N N}c}yN` }3N}}MN`c}N` }uR3N}}NNEaN9}ɺ aN)}ɺ aNNd]}a<NEaN9}ɺ aN)}{*y'>k`z`} }1} 䪼c}c}'`aN `` zH ̸|,y'3k`z`} }1} 䪼c}c}'|`aN |`c `uN 0 A  (B 1 #$.PAS!QP|6*>* !dGLOBALSTCMUFtpState.PAS#\N`}N` } R4}}YN`} N` }R4}}UN`}N` rR'-c}˼} }}Sɺ aNNd]}NN }}}aN}NNvώN` c+Nothing`  y'c}c}'ɺaN c}y'}c `yNȼ}ɺaN y'xN }}}xc} } 24[*\*XZ#\XaEFTPUTIL EFTPUtil.PAS("#!(N`c}N` })} }JN} }NN]}c}rN`}}} yN`} ɺ aNkNk' received yet, will keep listening (`c``,cc``)cc N aNc} c}RN`}}}vN`} ɺaN y'c} c}ɺaN c} yN}``c `}}﷼}ɺaNu'J L   } N`aNu')x3}d a   ` u'wc}c}$c3(X4a"44?4>#\IO IO.PAS%DDD-Zh-<'ZPYA NkN}}|`aʹNͽN` c!No answer yet, will keep trying (`c``,cc9}ɺ aN)}ɺ aNNd /w]}``c `}}﷼}ɺaN y'DN}}}N}}}}c}c}c}$c} c} N`aNu')x3}d a   ` u'wc}c}$c} c} N`aNy)c}c}$a(Nz`v`xK` +}}. z`v`} w`w ` vH ̃ c}u'}S)yS*QU{UU|S ^?0riteboot version: `c'1zSd)ț'w\)*]/sOK,>"3n\FXُHg Dqh|0p1t&PASLONGd165:boot>PopCmdParsed165:boot>InitShelld165:boot>UtilProgressd165:boot>RandomNumbersARPԃ  ] :boo login.segTd165:boot>PASLONGd165:boot>Sail_String d165:boot>ioSCROUNGEJ"  ﷛ze`ʷuampqr`uɛɛ`o);rJ (cɊ` /:` "/` Jc">` c<  c<" c< GETTIMESB CODE HMEMORY hDYNAMIC POPUP  SHELL .!PROFILE #CMDPARSET$UTILPROGARation Block Summary:`cc Root name = `cc}`ccDevice Type = `"c``crJH̻?)ώz﷛ 帜 Iɛɛ` )<P cDismounting partition `cc"`c)"Pcuɺwayza|NR,DYNAMIC SCREEN  RANDOMNUZ-FILESYST  GETTIMESB FILEDEFSSTREAM SYSTEM *IOc Partitions:`c?p|)|p gcp``c: DA = `pac`` I`cf , Name )!rJHՊHhcuɺcc)Which partition do you want to scavenge? FILEDEFSSTREAM POPCMDPA.I*READER  WRITER  *STREAM SYSTEM *GETT_OTHERRANDOMNUᓖKdZ-d165:boot>LOGINd165:boot>EtherSetTimed165:boot>PopUpd165:boot>Shelld165:boot>= `pcc`cpH~ccBoots:`cp|) p >p } ` }`c`cP`P`c`,Ͽ `)`H?)lIMESB FILEDEFSSTREAM PERQ_STR SCREEN  IO_OTHERPOPUP  CMDPARSET$INITSHEL봸 ."FileUtilsd165:boot>Profiled165:boot>CmdParsed165:boot>UserPassd165:boot>StringUtild165:boot>PUPPacketd165:boot>Popʷ} `>pʷ} ɺa} ɺa g^c** Deleting boot `paHcc p巛>p