IMD 1.16: 1/09/2008 11:19:22 opus-1 development and system libraries revsion g000 (f18105) 5ug83raries 84-93181-05    @0{)vvЀЀsQpk)p " }fA __M@IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIICARTOSMB083063009080508830630090805 830630090805 SCRATCH VOL  SYSLIB:0  Ad A8IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII_M@qGyy GGG`HX@ b G`^Y e GQ @@p@987 85P@ G:پN 8)0. * C'xC# b# }B+[ @0DAJL w+™ЀЀΖQA1"   i  ž} š} @EEFF)DEۄF8 џ} ԟ} ̟} * `jUBBI,v BI, # @ G7H@pܾrCHC C GTq` Lg gEXC P+s=胾P+c fQN p $Rxnj  ޔniZ ތ⊞ } }HGž Ÿ@ALS)"$ C k20j.h( +$`%ꂜ\1 !M' y %'+os慾)sY ed|{ @8 o O m J K i gN )V% t%sLn`"E F. F„ D>) =`;nrgy w"G,{Kq1 A&}E*`(t@% ;c  765y342(.OS:: SYSG @ @G6BDāCGDĀ# BC @E OBOVicEdDano< tX#  eE I      i@qIM1<:`(CC` u pP@By  <S1Xv `˄U  =ÿÀ, XWްު WߠiH@qT KBT7 ⇃ YKj "> Z< " W\ B P1 L1KIL"L"+Uq d@q f^YQbMQRMƞ1;VWaVWfR@B ROQBy TR UP CN ZLN2 dI xIƢx R dȞy ˄PʎȄOȿ h s˾Ǿþ' uIӯQG qdªꃩA ~ vu0  gfXXv)SD q)   W" L}|P pYST jqpPnmO `>hgfYMU\   , C߈, 2,) '$$'΢ 𔊇9     @ `  ޑߧw) <   HH09 t<<<}  ENTER UNIT NUMBER REMOVE AUTOLOAD FLOPPY, IN 8A2 A3 8A5 A6 A6 C1 C1 C2  C2   C2 C3  C3  C3 (DSKERR (DSKUTL (E1 (E1 (E2 (F1 0LOGERR 0MASTER 0MASTER 0MASTERZ:0RTNPRC 0SETD:T 8SETD:T 8UTIL0 8UTIL0 8UTIL0 8 #A3 A3 A3 A3 A3 A3 A3 A3 A3  A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A5 A5 A5 A5 A5 A5 A5 A5 A5 A5 8A2 >A2 >A2 >A2 >A2 >A2 >A2 >A2 >A2  >A2 >A2 >A2 >A2 >A2 >A2 >A2 >A2 >A2 AA2 AA2 AA2 AA2 AA2 AA2 AA2 AA2 AA2 AA2 AA2 AA2 AA2 AA2 AA3 A3 A3 ŀF2_C1#A5 A5 A5 A5 A5 A5 A5 A5 A5  A5 A5 A5 A5 A5 A5 A5 A5 A5 A5 A5 A5 A5 A5 A5 A5 A5 A5 A5 A5 A5 A6 A6 A6 A6 A6 #A6 A6 A6 A6 A6 A6 A6 A6 A6  A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6  #A6 A6 A6 A6 A6 A7 A7 A7 A7  A7 A7 A7 A7 A7 A7 A7 A7 C1 C1 C1 C1 C1 C1 C1 C1 C1 C1 C1 C1 C1 C1 C1 C1 C1 C1  îD%Ņ+'t 凣ǣ zƏ󆐾ՆƋBꞁ膁]kIHKJFQ ])ǀŀ]Yr]]]1I1G *'/ ]1(1& *'& _ ]]{ A2 @SYSTAT: 07/11/83DISPLAY SYSTEM STATUS cT:YG000(l A2 cT:YG000(l  O ODPNTZTIME 33 A2 `jSYSTEM STATUS ( p)  BUF-CNT =  fLOGICAL A2 PHYSICALg̀%ҀSTATUS DEVICE TYPENAMEA2 NUMBER -PROGRAM NAME ;,INT.2VEC.:ABCH. HGPA2 OVERLAY VFbADD. LEN. h Z~ZdhA2 zP24 JN0T CRT TERMINAL P PRA2 INTER R READERC COMM. LINE L $B *BATCH TCB 0 U >UTA2 ILITY TCB D Z TAUX PROCESSOR Z p\*z\?A2 @Ex(B€OTЀ2ACTIVE A2  IDLE ; 2O GDC ENTER "S" = STOP A DEVICE, "M" = MODA2 IFY DEVICE ( )2sH{N0TYM ^dj(vS A2 ENTER PHYSICAL DEVICE NUMBER BD^"  UUA2 "&+.36;BDKT[bioyUUUUUUUUuA2  *26>CFINX[chloty}UU]]U]UUUA2  $&-268:;AHMRVX0UUUWUUUuUQA2 G&&&& QUPTUPUUA2 & "&&)/291 =?8-D- G&JMGUUPUPTTA2 RO.OX-As[DXA^v[?XA`v[DX^DEEEPA2 [?X`ADzbdfhjAm|bu jAx}b~ @ETE PA2 jA~b jAb jAb jAb EPEPA2 jAb jAb A.D8D1EPDEA2 ?.1h?.A.d..A..AQQEDPTAA2 >fG8.D>X&PbPhQEAPTQDUA2 PjP&PdPfGUPUPPEEQA2 A&PP2OUq1 ?>.&J@E4TEEA2 A&"GDl$$(+--A01 =?8-D-RO.QAEATA2 OX-AcA.28D1h?$cPhDDQAQQTA2 2h?$cPj68X.5;52j5?>$cP&PAPQQEPTA2 ?.5?52>5?OUc-AA&R$?DO6DEQ2f R ޫ A  A  qޛ A  ޔޑ RQ K (y^ Wy)WT ^[ ^]]^ @N1M] O] STNq.! ^̀^ABy U C A2 O5AOXc68O.5T52j5?clPQDTTTDA2 1-W8XB8D-8D/1/`DPTT@A3 O0SEGMENTBLANK oim MACRO (F100)  TXWÇȿA3    S+ B 09  g  Y A C D A3 I P VM"J#xC n Z >mrtvBA3  YmC 13   g 1 2Y"a #U LA3 u Y"# #WW#44C N09 A3 龠/u LBB v F - Aj g ;kA3 PW#vWW# o PW#vPCW#mA3 C n Z  6v xPW#vzB Zr !!u A3 W, 2A%N9 L L  L L Ӈ чч  L3 A3 뢼 )  ).+%āNyC*āYā'  # % ސA3 -2b2boA3 Q9R8;K`e j U׽% db b FEDA3 Cƽ% ?g I YkM % kYs Lu Y 7W84#A3  . *&($W###ៀA3 B B  STWބPݽ# ^ O $A3  ςϽ#jW((C CC  FE ~SYp@ Tx$A3  SrPp $ kUigfPdcOa $^\[ W # #A3 WYo a ur $  ENTER REQUEST (A=ADD,C=C OPY,D=DELETE,A3 I=INITIALIZ E,P=PACK,V=VIEW,S=SAVE S YSTEM) ENTER UNIT LIB RARY IS ON ENTER PROGA3  RAM NAME  ENTER UNIT TO CO PY LIBRARY TO ENTER LI BRARY PRA3 OGRAM NAME  PROGRA MS CONTAINED ON SYSTEM LIBRARY LASA3 T SECTOR   LAST HEAD AND CYLINDER   ENTER C TO CONTINUE  TYPE OF COPY ( A3 1=LIB-TO- LIB, 2=LIB-TO-FILE, 3=FI LE-TO-LIB ) ENTER LIBRARY FILE NAMEA3 d NAME TEMP 2A3 A3 A3  810616A3 104703810616104703821121125813Bi DeWD! !d! !)  PZzO6y 0 1 0Zpe Z@pVG%'wZ*@pM@ O  HZPi% H H'b*Jty%'+Ox9IP@N_6EWAXQ ƠX* X?PZ'Z ZO OIP@  A5 @ASSIGN: 07/11/83 ASSIGN DEVICE VARIABLT:G000h A5 T:G000h   OC:: VQUQ00 A5 UJY XLJPZ PZ", A5 NLTV@ f R@|VARIABLE TABLE IS 0A5 FULL. PRESS TO CONTINUE: 6VʀЀ = >A5  &TA >>/ P  ,  "JVP30A5 C6{<ENTER LOGICAL OR PHYSICAL DEVICE NAME B'(=DELETE VARIABA5 LE) nj" " IS ASSIGNED TO ".2ƀ ̀ENA5 TER VARIABLE NAME := LOGICAL OR PHYSICAL DEVICE NAME " IS ASSIGNED TO "A5 (" IS ASSIGNED TO ".DARE ALL OF THESE ASSIGNMENTS CORRECT (Y/N) A5 ? N J-|DO YOU WANT TO DELETE THE ENTIRE !VARIABLE TABLE (Y/N)? N A5 >ĀY ЀdրDEVICE REASSIGNMENT UTILITY ( ) gA5 LOGICAL/PHYSICAL DEVICE NAMEi4REQUESTED ASSIGNED: DEVICE  DEV00A5 ICE Z" IS ASSIGNED TO "zN JL// END OF PROCEDURE FILEA5 UTILA5 F  UTILDSKERR UTILUTIL0   UUUUA5   '*16<CMU\^cksx}UWUUUUUUUA5   !$/7>EJRZ_bejqsuuUU]UUUA5 x}  %*,1UU]UUUuuA5 5:<CFIOTW^`fhirw|WUUUU]]UuA5 F,1 8  1  A"UEPTEEA5  .&=*.0* .A8")TEEEA5 )A<)A &?M&\G` .G)ETEDA5 )<e+k+Ao.++k+qqtqAwUEEEA5 qqz?~)q!+h)PE@EQUQUA5 .*+9&G)G+ .**@TUDQAE@A5 A*6A00+. ..++G)5)4k)DE@@TQEA5 .))*(0+. 2 EQDDUA5 )A@A&_.(&&'i&).DPTAUA5 )(q)qzJ>~&)&q#?@EUUAUAA5 `qqtOFqAtX).(&UQEUEUQ '+U@<C 9{  `+ܫPT {S O p% '+U XTYklM~&<&q#?~<<toAQUPUPUAA5 e*<A*qe*p#e~qqtte)<&ETEQUQ@A5 <& qqzy?~)q.) UTTE@A5 eA&&'&#<&'?R&`$cDEUAAA5 f:&?2 &i'l,}&&ADMDUAA5 &A&).)(q)qz>~&PTEEPEA5 )&q)Af&k#UPUPUEA5 ^F%%A&8UAPPA A6 @DSKPRM: 07/11/83SET DISK PARAMETERS T:G000X A6 T:G000X  DEV. ADD. :15 DEV. ADD. :14 FLOPPY 0 A6 DEV. ADD. :16 SCOUT 5.25" QUAD SCOUT 8" STANDARD SCOUT 8" QUAD  -- ? A6 -- NAME "CENTER DISK UNIT NUMBER: "15B  A6 P6Z`flrx~dDISK PARAMETER UTIA6 LITY ( ) g LOGICAL UNIT NUMBER: $ A6 VTOC CYLINDER: & CYLINDERS: (  HEADS PER CYLINDER:00A6 >*  SECTORS PER HEAD: b,  WORDS PER SECTOR: . SE A6 CTORS PER BLOCK: 0 STARTING HEAD:  -- PRIMARY DRIVE --  A6  - SECONDARY DRIVE - ,:CODE@HFUNCTIONN-Z1 C A6 ONNECT MIRRORED DRIVE `2 DISCONNECT MIRRORED DRIVE~3 CONFIGURE DISK UNITA6 TABLE4 WRITE CHANGES TO UNITpڀ ENTER FUNCTION CODE :A6 < LENTER PHYSICAL UNIT # .6$< STANDARD CONFIA6 GURATIONS:B /fSTD. QUAD 5.25 10M 10 32 80l(0FLOP FLOP 0A6 FLOP WIN MEG MEG MEG(1ʀ 7 31 39 15 15 15 15 0 A6 (2 77 154 154 300 406 822 822(3. 1  1  1 0A6 2  2  1  54(4` 26 26  9 16 12 32 32f(5 0 0 0A6 64 128 256 256 256 256 256(6Ā 4  2  1  1  1 0A6  1  1(7 0  0  0 0/2 0/2 0/16  0(8(i.40A6 j:k@lFmLnRoXr^djSAVE NEW CHANGES (Y/N) ?vB` po..+W,.,.*A*L...+o..-",-,-,#--0  Ɩ톑[CǃU C徃Aml w++ӿΟч⠿;`k8¿ k G-jƉ, $. W..  A6 Np{Y UTILA3  |> 0 Ȁ: A6 1 zENTER DRIVE TYPE:     PHYSICAA6 L UNIT NUMBER:  TYPE: <\UNIT NOT DEFINEDbvUTILA6 N  A6 | UTILDSKERR UTILUTIL0  rvzUUUUUUA6   $.136<ACFIMQTV[`fhkqsUUUUUUUUUA6 x}  #UUUUUUUUUUA6 ).138=AGNTVYZ]bgjsx}UUUUUUUUUUA6   &$qAl??W8UUUQAAEAA6 88&&>&>&PTPUTA6 >& >& ->& ?>& Q>& cTTTTT A6 >& u&GbG&Gb&TEEUA6  & & & & &$FPTAPTUA6 GG2 " n GG&$?ADQ5QEA6 G882 G2 &1&4JTQMDTA6 &Mc&f|&&&&&&APTAPTA6 &>$&?>$&?>APQEPTA6 $!&!?>$$&$?>$'QTUAEA6 &'?>$*&*?>$-&-APQEPTQTA6 ?>$03&03?G858&E$HUADEA6  JJMD2 T&.YV^b d&WPE5Q@QA6 hjd-n.V VdL>&q|$q?8U@qEQEATA6 8G1 ..1A]lADAQQDA6 ^l.1 W&88. ddQE4DPTA6 g. ddAh. d>& & jdb&H AQT@EPA6 FDPAA7 O0SEGMENTBLANK oim MACRO (F100)  TWY"ٽ#A7  uѨ, ̀ ˂ʇʂć)* #Ij@*U` kA7 @ r ENTER BINARY FILE NAME H\A7 q ` վP P (@t龸4GLA7  @ty` @}@ ip M LsJRKC n[Z jidcbWT ^= S 0qT 0ghfs$8jZKj`JjfQjlPjrjxj~j5C4TV5Z5g5j5q5m5t5w5z5} 5c& S qT baw=jTjYj)Aj(j썊j jj55CVP555555555 5 VTOC .. F18105G0HELP-WORD @?@VQU07/12/83;DVL d07/16/83GET-OS4: AB\07/13/83766"3""$". PR7$77,707174 7&67$-7_6T7 7777_"3""$". CA7;S7777  777o.77_T6 8-8h8h7"3""$". VP8V;S8^8b8c8f  8X8-8Vp.87T5 8998"3""$". VP8;S8888  888q.9*8T4 9_999*"3""$". VP9;S9999  99_9s%.99*T3 9:3:39"3""$". VP:!;S:):-:.:1  :#9:!tW.:\9T2 ::::\"3""$". VP:;S::::  :::u.::\T1 ;*;j;j:"3""$". VP;X;S;`;d;e;h ;Z;*;Xv.;:GZ1 ;;;;"3""$". ;; HH0 ;;;(<&;QU1 <[<[D<q)j@5HQ¨ C  L k%B~b~ IA FEFތq~kgQ_CpE ~b~xx J DEFFBv] rq!CE ~b~bxx t  1 S v ))~))) )<&W$6. \!p"#">$%}&1'(B) 2*?+ <, - .F3/01x2x34H5 t7<8!9:;q<=#5@3q gl,/[`QSQpD_SOKY[~7x~y]Y57^'O'SC@MM-DD-YYD00:00:00HX(    )E {   } ~֞8O]&Ea3x_|l*| }~gҡ# A `Q T ( :ӂ< - :ӂ" )   pP0 @0B բ` h } c= ¢‚pP0/o X)C $ ` A4 A4 B1 B1 B1 B1 B1 B5 C5  D1 D4 D6 D7 D7 D7 F6 LIBDAT  #A4  A4  A4  A4  A4  A4  A4  A4  A4   A4  A4 A4 A4 A4 A4 A4  A4  A4  A4  A4  A4  A4  A4  A4  A4  A4 A4  A4 A4 A4 A4  A4  A4  A4  A4  #A4 A4 A4 A4 A4 A4  A4  A4  A4   A4  A4  A4  A4  A4  A4  A4 A4 A4  A4 A4 A4  A4  A4  A4  A4  A4  A4  A4  A4  A4  A4 A4 A4 A4 A4 #A4  A4  A4  A4  A4  A4 A4 A4 A4  A4 A4  A4  A4  A4  A4  A4  A4  A4  A4  A4  A4 A4 A4 B1 B1 B1  B1  B1  B1  B1  B1  B1  B1  B1  B1  #B1 B1 B1 B1 B1 B1  B1  B1  B1   B1  B1  B1  B1  B1  B1  B1 B1 B1  B1 B1 B1  B1  B1  B1  B1  B1  B1  B1  B1  B1  B1 B1 B1 B1 B1 #B1  B1  B1  B1  B1  B1  B1  B1  B1   B1  B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 666""d "96=96"q "I6=I6"qp 0|| y0 `{ 6}  ` L o , ,Ūߦ `AņЁ V IP΃͆˃ʅ QJ @ }   A4 @BLDLIB: 07/11/83BUILD USER LIBRARY "T:I8 G000A4 "T:I G000    ( LIBRARY  BUI3000A4 LT ON NAME d`NAME VQQhNAME  03 A4 hNAME Vh OC:: VQUQU4XVTOC 0  A4 8Y GET_PARAMSNYY  0  VTOC V4003  A4 FILE NAME UNIT  SEC HD CYL OPERATION +BL4PD 80 A4   "@LL A4 "$..pVTOC  : ;DVLA4  0A4 . ; :LL# H^LA LIBRARY NAME MUST BEGIN WITH ";" FOR A PA4 ROGRAM LIBRARYR8OR WITH "#" FOR A SCREEN LIBRARY. "4< ENTER T A4 O CONTINUE:   A LIBRARY NAME MAY BE ONLY FOUR (4) CHARACTERS L0A4 ONG.4N&L 0 2(Z BUILD PROGRAMP BUILD SCREEN b A4 LIBRARY: t ON UNIT  ()    INPUT FILE & UNIA4 T  LIBRARY NAME %FN  L`{€\NOT A BI A4 NARY PROGRAM FILE V,NOT A SCREEN FILE 2ƀNFILE NOT FOUNDPENTE A4 R C=CONTINUE BUILDING LIB, D=DELETE LIB:b,-6Y 7D C A4 ЀzBUILD USER LIBRARY (HENTER LIBRARY FILE:  N^ A4 A LIBRARY NAME MUST BEGIN WITH ";" FOR A PROGRAM LIBRARY 8OR WITH "#" FOR A SCA4 REEN LIBRARY. B"A LIBRARY NAME MAY BE ONLY FOUR (4) CHARACTERS LONG. h4CREATIA4 NG A NEW LIBRARY (Y/N)? N  ĀENTER V=VIEW, A=ADD, D=DELETE, P=PACK, ( A4 L=VIEW LIBDAT: P7 A V P L &ENTER PROGRAM ,ENTER SCA4 REEN > TO DELETE FROM LIBRARY P2 lENTER COMMENTS FOR LIBDAT RECORD: rA4 !" XENTER BINARY PROGRAM FILE: ENTER SCREEN FILE: ENTER NAME TA4 O GO INTO LIBRARY: .... '  CONTENTS OF  PROGRAM  "SCREEN .A4 LIBRARY 8 F Ph@ Zl~LIBDAT hhEf ~C  A4 INPUT ANYTHING TO CONTINUE LʀB LIBRARY BINARY COMPILE A4  NAME   NAME  DATE TITLE 'LIBDAT ENTRY FOR LIBDAT  A4 LLIB...TEMP 2 Q D SCREEN VhVN89d vA4 DGHIILORTUV^`bdfghjlA4 np  pD (PzL* /  P 4V/* END OF PRIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII    A4 OCEDURE FILE O ,& 2M 8T >B, H0 N T: Z ` fA4 @ l? rHAVE OTHER TERMINALS RETURN TO THE MASTER MENU. x/MOUNT DISK " A4 " AND ENTER "R" WHEN READY: 0 ܀R F UTILDSKERR ,LOG ERROR (YA4 /N)? N;DVLA4 N  UTILUTIL0 & Ȁ̀OO  0UUUA4      ! & + 0 5 : < A H O T V ] b d g k n q s u |  UUUWWUUWU A4     % * , 1 6 ; = ? A C J O U X ] _ dUUUUUUuUUA4 h j o r t v z    ]]UUWUuU]UA4      " ) 0 7 > @ A F Q \ _ f l q s u y { | UUUUUUUUUUA4      " ' 1 5 : D L O T ^ c h m s x z } UUUUUUuUWUA4      ! & ( * / 3 5UUUUUUUUUW A4 9 = C H M O P Z _ a c h t v w y } UUUuUUUUUUA4     "'),/2479@BIRW^cnpry~U]UUUUUUUUA4  !U]WUuUU]UA4 (+038;@CFMT[ejqx}UWUUUUUUu]A4   "'.29<?@DFF!FUUUUWUTEP A4 !F.;1.8181DTAPTEA4 G G G ": A 9 :EQA@PE@A4 )  A=A@ "LKA%D 'LEEPQ@A4 K&E&XG\&lIIn puP&GH/DAPQA4 S>G)AW&A%X&&QDEE A4    <&UTTPPA4 QAa Ac_/e>DQEA4 &wAnm&QPUPPDQPA4 zA%ts&"z/_Fcc'y&/&DQTDTA4 GGILOIQATQAW&Z_}AEEEDP A4 \&_Zkm&yA{n GUUPPPEA4  "LA%n G 'L&&&ETPA4 pu&&Fcc'&QDQPADQAA4 $QQOт&&$PE@UPPA4 A AAATA&DEDQDAIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII    A4 A&A%&&&47$7PEAUPUA4 &7&&JL L.&OLL$AAPATA4 OL&OL<G,&_A&`A%&kUAUPEEA4 AA%&$PPDQDQAA4 &/&A&A%TEPEE A4 &>&GAA%&QUDPEA4 A4A&A&&.33A%.AEQDPA4 ^^.AA&$GTDQTQ@A4 FccA&ceFcce&&DEDDQUA4 & A&A%&>&ATDDUA A4  &  Fccec&@PA@DEDA4 Q L т .,,> ,&A@PTQA4 ] Fcce"Bn L'PDEAADA4 LA%(!*(Fcc"-c&-ce-Q@PDQA4 &&8A%3 .,,> ,&] 1DAPQEA A4 Fcce:/ %''A@)'A%AEPEA4 )/G)135N <LAPE@PA4 ONL&9L;#PZQIqo Ds"Q@AETPAA4 A{Wls"A~XlOmG/"1G0/G/0ADPEEA4 1h 1`s/Adg.///Afg1\DQADDU A4 BAOhilFcck>Q"/s/AEDE@AEA4 ./0^s0^AvFs/G/0^AT{Hs/GE@EDQEDA4 /0^AOJs/G/0^As/G/0/QEDQEDQA4 omhG6/^s/^A^A67DQ@DEA4 j6^.66/b`/A^s/G2QTUPEP A4 ^G2^AG2.///G3^s/^AEEGTA4 ^A^A .33.3*33A23.4DQAPTEAA4 24.434/G5)G4jAbG4)jPTUEPQA4 RhR6j6Aj66"vvmG4Q@QAETPAA4 [Fc@OcA"v&&RGQDDQETADIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII    A4 IQ&$ FcQ&&EAAAUA4  %JQQO z$Jc APEPPEA4 @B1 @EDITOR: 07/11/83WORD PROCESSING EDITOR8T:} G000B1 8T:}G000A6   ( 1 Q S CU  B1 RSOR BEGIN LINE 1 COLUMN 1 CURSOR END LINE COLUMN  ANYNAME V B1 QUQUZNAME TEMPVQUQUZNAME TEMPVQU B1 QUZ $).38=BGLFILE NAME UNIT  SEC 0B1 HD CYL OPERATION +7 *A0EDITOR (6) FBLENTER PR B1 IMARY SOURCE FILE RjLIS THIS A NEW FILE (Y/N)? N tzYY  B1  j ENTER SECONDARY SOURCE FILE L@ڀz B1 ENTER REQUESTED FUNCTION ( )  ENTER H IF HELP REQUIRED Z >X B1 HNdTB ZE `H fR lM rF xC ~S T L D B1 K N W CƀENTER STARTING LINE # ( )B1 {$ZPZVENDING LINE # ( ),&,^ B1 :@cF`B0P`KflMrP. ~LB1  ~(1 P  ʀЀB1 ܀N"P"B1 (Q.@FLjLTZLLh99nB1  |XX\P  €D B1 :Ѐ*F aW(HELP-WORD  HELP-WORD NOT B1 FOUND  $ENTER WORD TO BE REPLACED OR SEARCHED *%ENTER NEW VALUE FOR REB1 PLACED WORD T!z0-e^ .iLIB1 NE NUMBER = A 5ЀENTER = REPLACE S = SEARCH FOR NEXT STRING /0B1 D = DISPLAY A = REPLACE ALL OCCURENCES / >D HXy RSear0 B1 ch Terminated at line # X! xEnd of FILE ~ 2 STRING ( ) : 0B1  0! STRING ( ) ENTER STARTING NUMBER?  (1 ) B1  < $- * NAME TEMP 4 u/ B H N,IS THIS A NEW FILE (B1 Y/N)? X vENTER 5 = TAB COLUMNS 5 APART , A = ASSEMBLY PROGRAM |5S = SPB1 ECIAL SET BY INPUT VIA SCREEN $5     h  1234IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII    B1 567890  6  ENTER X = TAB POSITION "SPACE" = NO TAB ,1 LX R; XB1 THE TAB POSITIONS ARE ^= xMOVE FROM BEGINNING COLUMN ( ) ~f B1    ENDING COLUMN ( ) h0 Ԁ6  MOVE TO COLUMN ( )B1 G P  LOG ERROR (Y/N)? N ;DVLB1 N 4 UTILDSKEB1 RR D |OOUTILUTIL0 b    UUUUU B1     & ) 0 7 > E L S Z a h p x UUUUUUUUUUB1        % , 1 8 = ? A C F N Z \ c h k p w |   UUUUUUUUwUB1       $ + 0 2 4 9 A F I K M T [ ` h l s xUUUUUUUUUUB1 z     ( - 2 : > E GUUUUUUUUUUB1 I L U Z ] _ b d g n u ~  UUUUUUUUUU B1 "%*,16>EHJKW\_adgikrw~UUUUUUUUUUB1  ").016>FKNUWX]emru|~UUUUUUUUUUB1 !)-49>CHOVUUUUUUUUUUB1 ^acehmruwxz~',UUUUUUUUUUB1 /4;>CLQTVYadmru|UUUUUUUUUU B1  &.38:AILQTV_hjoty~UUUUUUUUUUB1   #*-0245:BDGJUUUUUUUUUUB1 MPW^acehqvx  UUUUUUUUUUB1 ',/46=DKPTV]bfikmry~UUUUUUUUUUB1   "(37;?FMT[]bilrx}UUUUUUUUuU B1   !&/47EOTVW\bejsxzWUUUUUUUUB1    "',05:=EHKOTW_dinrv|UUUUUUUUUUB1  !#&+05<ACJQXZ]`cUUUUUUUUUUB1 hloruy ")0UUUUUUUUUUB1 7>CILSZ_dfjqv|UUUUUUU]UUB1  "*/149>@BEGNSZ^befjlpsv0G &UUUUUUUUEB1 !$&'68 8?C&'H$;KNPPSB;8 PPPPATDPB1 UW &'gi . m 8IJ 8 PpG rGurPEPAEB1 &y|&$ KNPPAR.,,GPATkPAUAEIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII  B1 nPAVyPAWPAX \PAY PAZ PADQDEDQB1 [ ~PA\ ,PA]GrPA^GPA_GPA`GDEQQQB1 PAaGAbJ&$J8kQQEPQB1 Jhmh&$J JmuJ~ JlJ8JTP]UAuB1 GrG&z.# & ) , AATQDB1 w8Jr.Pr0.906<6y> &APTEQEB1  ) GG'&*&'G@QDAPEEB1 G >> & ) Gr'r006QE@QDQB1 8050A;Nr<Nv=NTE@DQDIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII B1 & >N) ?Nr@NrANGxv!PQDQDQ@B1 8 8JxFCx8I&r)rL 8JPDPTPB1 GrGo& ,) !8  ARg.TQT@EB1  r&,)AIVf8JG . #zTTPQDB1 & ) , A]c. r 8`X& I.QDQEQB1  &G '. r rhJ. r G SxvTPQTETQB1 8Jmx8Jm# Ars. r !8 AQB1 8JAxJu&,|J&| Gr&|&(QAADB1 &';&r<@GBr <BE AQADQEB1 .BrB GH&.rK&ORLU>WG}&ZcEQEQUU B1 PAf H&i&s$JPPAPAPQTDEB1 AmPAfPfHGHr <}DQEEPTB1  8 G}.KKX<<X.rX.EDQ@EPB1 I.KrX.X0<0<K.KrKK}TDPQB1 X.}r=8A.EQEQAAqB1 #&FJ&J&KEADTB1 $JKr.yGPPTPQEB1 AAr.r.&$Jr.PQDPPB1 EyJEAAr.r8JTPQDPQB1 .=r<A@<y=8PPQEQB1 AJGur <E .r mADQEEQB1 Grr <E .r m8JAEDDPEB1 J& MP$JM&M0L 8 PQTPB1 8  ?M Gr68 .6'>M'@QQEB1  M*6$ &M!  8 " BTEATPPQB1 L8 0J8 LLL8 UW @DPP@PB1 GJG &'9KN$JKNPPS ! '8 P 8EPUQQB1 G r LLL8 J&<&'Y&@Q@PB1 m$JPr 1PAp 4 7PAf 5 >PA 6AAEDQDEB1  B .r.r .  . r !r 8 TrAQDQIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII B1 vy| T&r& D&&@QDADEB1 GXrr$JPPAy L SPA M P.r &! JXQADQEQB1 .XrXXA S T J&r! A XTETTTB1 J>W &Wy VJA ]Jv ^J&$JEDEEB1 A b>&$JA f>?X?TETEB1 Y.YX.rr k \XA l \Xr m \YA n \PTDEDQB1 Yr o \&$JW?ZWZA s \Zr t \xvDTADQDPB1 8  x8 xA y .P<XX<Z 8 PE@TEEB1  wG GrA Jv Jxv8  8EDE@PB1 xA  A  X<Xy  X  .ADQQADU B1 ee.e0<0y  e  0X  .0X.TpTPQDETB1 r.0X6.6.66.6X6.P<XX<ApTDQB1 6 8  Gxv8JmFP &  %DPE@DAPB1 PPS  8 p 'J/ 8 6G TDPP@PEB1 9J 'U@B5 @VTCPRC: 07/11/83 CREATE PROC FILE FROMT:G000  B5 T:G000 S 0 VTOC VTOC TEMP  00 B5 PROCFILE VQUQUjFILE VjFILE NAME 000B5 UNIT  SEC HD CYL OPERATION +LBBUILD PROCEDURE FILE (0B5 ) ENTER UNIT FROM WHOSE VTOC TO BUILD PROC FILE: / B5 VTOC , N B{HVOLUME SERIAL: N USE THIS FOR PROC FILB5 E NAME? (Y/N) N f(=Y r rLENTER UNIT FOR PROC FILE : B5 %ҀENTER PROTYPE PROC RECORD: %=INSERT FILE NAME0PzA  B5 ENTER FILE TYPE: A=ALL, B=BINARY, S=SOURCE, L=LIBRARY, O=OTHER: A  A@fB B5 lS rL xO ~SORTING:&LVTOC 1 & B5 L&L DISK ERROR--NOT SORTED FPROC:   SPOOL:FILEB5 # ; ؀V \&,2P8P% DJ P@ B5 PKbplLOG ERROR (Y/N)? Nr-;DVLB5 N  UTILDSKERR  B5 OaOUTILUTIL0  ehptx}UUUUUB5  %'038;?FKPUWY`dinpsw|WUUUUUUUUUIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII B5   !&(16=UUU]UB5 BFKMOS\_ahmtx{|/X&[^anps&v$dUUUUUQUB5  ?XRXR&^v&$EUAB5 A/>&^v&$?APQUPQB5 &^vR&^v&^v$ ^EAAA@DUPUB5 &  &1$4  A  A7  A: PEDQB5  A= A@ &^v^CI/KK MXDEUB5 OAT K -MW&ZMFSKRKRDPEAEB5 `bL$&pK"XRXR&sxMX_z@DAB5 }(&A)&}*& A+<A. A=-<&QDEDQD B5 A2 A=1<&lA6 A:5<&lA: A79<EDDQDEDB5 & @<&-MWGuuAJuA}DuDQEPQEB5 CKN.uAHOANDETETEB5 .uANO? R&M&FTTETPTB5 UXU\&v%Z\JEUAEB5 \FaSRcXRDQE@B6 @BGNPRC: 07/11/83EXECUTE PROCEDURE FILET:XG000N B6 T:XG000N OC:: VQUQUFILE NAM00 0B6 E UNIT  SEC HD CYL OPERATION +hLP^ h hz B6 Y    (BEXECUTE PROCEDURE FILE () B6 PROCEDURE FILE: VUTILRTNPRC N {LOG ERB6 ROR (Y/N)? N$-:;DVLB6 N D UTILDSKERRT O O0B6  #&(-24=BIMPQUWF /135=UWUU]UUTB6 AD7FI //FLT9VL&Z>hjm&JE5@PQPUAB6 w///y/1FAADA&AA@QSB6 >%DJuPTDP@P@C4 @SORT:  07/11/83SORT A FILE gT:zG000 C4 gT:zG000   NAME NAME FI0 0C4 LE NAME UNIT  SEC HD CYL OPERATION +Z`SORT (f) tz0 C4 ENTER FILE TO BE SORTED:LhLENTER NEW FILE: hLX IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII C4 Ѐր܀{CENTER KEY  LENGTH:  C4 ( ENTER KEY POSITION: &>RECORD: H1 TjC4 LOG ERROR (Y/N)? Np-Y UTILC4 N  UTILDSKERR UTILUTIL0  C4 O O $(-27UUUUUUUUC4 9;BFHJMOSX\bimpstx&&&UUUUQPTC4 L&hPPPQEC4 >&#h? .A A8   &EUAAAPTTC4 #h?8  r"&(T@UUC4 -"+&"FZZ\hFZ1TDPDAC4 &3&6A$hD11Gh-OV]JZePEA C4 C5 @MERGE: 07/11/83MERGE FILES KT:G000  C5 KT:G000 0NAME NAME FILE N0 C5 AME UNIT  SEC HD CYL OPERATION +TZ`f0 lrMERG0C5 E FILES ( x ) ENTER INPUT FILE: LbLENTER OUTPUT FILC5 E:bL1 {<ENTER NEXT INPUT FILE, OR IFC5 FINISHED:,2LOG ERROR (Y/N)? N8-NY T;DVLC5 N Z UTC5 ILDSKERRj UTILUTIL0 x OOtwz}UUUUC5  &G?&&UUUUUQUC5 ofL&Lf[ f-AA@PA@C5 &VFWWY]g&&GcfqDQC5 VdeLFWq&%$n(+lnPPDAPUQC5 3: oL^opAJWIqUAAAD1 @PRTVTC: 07/11/83PRINT DISK VTOC P1?n D1 P1? (   OC:: VQUQU300 D1 XVTOC 8VTOC TEMP.  LP  D1 8  "@HJLNNPLPLPD1 v\bhnt..zpVTOC  . 0D1  "$&(* 6LL T D1  (VTOC TEMP ~;DVLD1 PF" UTILLOGERR2 d@FIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII D1  LCONTENTS OF UNIT #RVOLUME SERIAL: h FILE FIL REC KEY KEY 1 D1 KEY 2 KEY 3 KEY 4 KEY 5 |=  LAST CYL  NAME TYP LEN LEN LD1 EN POS LEN POS LEN POS LEN POS LEN POS> UPDATE CNT&2, 2RED1 STRICTED8 Z FTEMPLSEQ XINX `IXO htzD1 0  4ȀҀD1 ؀ހnMAXIMUM CYLINDERS: CYLINDERS USED: D1 USAGE: ,% 8  UUUUU]UD1 &)+16:@FHJOTY\ejpuw{UUUWUuUUUUD1  %'049>BGKOTX[^afinsx}UUUUUUUUUUD1  $&(16;>FUvxzUUUUU]UUq D1 |FUF&.&&81$.'F'8''1'8''AAQAPTTD1 1'~G %G G &"7 A6 7QE@ED1 &  //>>F&APQPD1  F CF??@Q?AKDQDQD1  @MMLTTEPAD1 '!'$$'2$''<']'g''@AUUAPAAD1 r^ A_#aAPE@ED1 Ab>>'8>Q@QETTTD1 8>AlAl'f>'PTQEQED1 \Tss1$.'F'8''1'8'PUPTEAD1 '1'1'~81~G %G G &" G.SQQPTTQED1 8T.T.S8.A.SAPTAQD1 8.8G.TAPTEAD1 8.8>>T'QPAPTUQD1 $$-'$!F??A @UUU@DQPAD1 LTF??APPA@DED1  @EAD2 @PRTFIL: 07/11/83PRINT A FILE  P1 J D2 P1  OC:: VQUQU<J 0D2 L@FKQ[ehmqxzUUUUuUUUWD2 F%    / >#DUPPQPD2 %+%- 0 030: @T@ED2 < - A @CFH!KPQP@QD2 K-MP'S 'SV^0Saf#'i%lSVqMtQTUAUTD2 -  A '{.AF-}P'}S..KEDGUD2 x'F @'UDE D4 @PRTINX: 07/11/83PRINT FILE INDEXES P1G, t<D4 P1G    OC:: VQUQU0>0 3 D4 L0P@  &.7VTOC  0D4 0 6 (:..Rp^ hRESTRICTEDn \\ D4 d,R<ƀ<<D4 NZ . 6d61 FILE NAME:  UNIT $D4 (.) 4PAGE :D  UTILPRTINXPFR UTILLOGERRb   UD4 ),16;BGQV[bipw}UUUU]UUUUUD4  %),/246;@CFF  uUU]UUAD4 G  / ">%'-'PPQPD4 / 2 252< >C"/A@T@E@PD4 FHK>N!Q QSQP@QDD4  USGX/G[^a/cUcf.c/cjXMADQAQD4 .XmXXApcA>UcA5UcQEQDAAED4 tj[Ucj[w.[/[./AyPQT@TED4 '}-G/''n2%''n'a0qUUPUUD4 GX/G[^aF@'}AT@D5 @PRTBIN: 07/11/83PRINT BINARY DATA FILEP1z   D5 P1z @   OC:: QUQU00000D5 LP  *8@FN7VTOC  > IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII #D4 D4 D5 D5 D5 D5 D5 D5 D5  D5 D5 D5 D5 D5 D5 D5 D5 D5 D5 D6 D6 D6 D6 D6 D6 D6 D6 D6 D6 D6 D6 D6 D6 D6 D6 #D6 D6 D6 D6 D6 D6 D6 D6 D6  D6 D6 D6 D6 D6 D6 D7 D7 D7  D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7  #D7 D7 D7 D7 D7 D7 D7 D7 D7  D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 #D7 D7 D7 D7 D7 D7 D7 D7 D7  D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 #F5 F5 F5 F5 F5 F5 F5 F5 F5  F5 F5 F5 F5 F5 F5 F5 F5 F5 F5 F5 F5 F5 F5 F5 F5 F5 F5 F5 F5 F5 F5 F5 F5 F5 F6 F6 F6 F6 F6 F6 F6 F6 F6 F6  F6 F6 F6 F6 F6 F6 F6 F6 LIBDAT LIBDAT LIBDAT IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII D5   v(..p RESTRICTED \\D5  *0R6 @TNZD5 Z `. f6ldr1 |FILE NAME:  UNIT  (D5 ) PAGE ;DVLD5 PF UTILLOGERR =?EHKNSVdgUUD5 lqv}!&(UUU]UUUUUD5 ).36;>DNX\_beginsvyF`1357 E GGIL9UUuUWDUQD5 T /1VYaCcY>f'hn1h=9@AAE@PD5 Vp s9 svs} 16cpA ?VPPAED5 AVV16!16GpG@TDLD5 pY.p_.A'QEDTDQ D5 'AA; Av#"DEQ@D5 %.p.IpIIA0'-GIp'EDQQAQD5 ZG'sf'h'qGpG'FTUAUTQD5 FFG:1@'DQPAD6 @PRTDOC: 07/11/83PRINT DOCUMENTATION P1"  D6 P1"  N ) z   OC:: V 0 D6 QUQULP  $,VTOC d ` 0D6 x ~ ($..p RESTRICTED Āʀ D6 # %Y &v~<\\"D6 (.(V(\ <)0 FLRXL ^1 djpD6 JvO" ~ "DATE""TIME""PAGE""FILEND6 AME" "VOLSER" (OOC 2 O9 &OP |D6 x*+xO)OO:4;:d@;DVLD6 PFN UTILLOGED6 RR^ Z\bgjx{  UUUUUUUD6 #%,168:?AFKMTY\^adkq|UUU]uUW]UD6   #&+.58:;>HR\^_biWUWUWuUUUD6 pux}UUU]UwUWD6  !F />UDUQD6    @P@Q@QD6 AA  AEAE@DAIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII D6 GGM APQE@PQP@D6 M!MATMAQQEDD6 !A$'&).&,,A1!A0'.&DQDDDQD6 A1A3.&''G58>8AB>DQDEPQD6 8DFDAL>8NDAT>8NDAY[>8]G58EEDETED6 DAe>8FDAk>8N8;!A3nprpOEDETED6 G5>Au!!Ax npzpOG5>PDED6 Au !!A}nppOG5>Au!ATPPQD6 !AnpA1.'pA>'*nDQQAQQETD6 'G)$.)%.)&.ADPTEDPT D6 !?&>A$/>}..&F&?,.&,&'A-AEGD6 3G))?7[]'rG)=;[DQTEDQD6 ]'zG'1A$K)IE[]QAQED6 H.,'-'*AF S@A$RATED6 '*YA8)W'*.A)YAQTDQD7 @DMPDSK: 07/11/83 DUMP DISK BLOCKS P1T: D7 P1T: THYL G000 X0 R N  A @0 D7 OH  BFILE = ( 4D :SELECT TYPE OF MODIFICATION,D7 "L"=LINKS, "D"=DATA @11 vL |ENTER NEW CHAIN LINK:  ENTRIED7 S = " 0  ƀ ̀ Ҁ ؀ ހ$  D7    ENTER LOCATION TO READ ENTER LOCATION TO WRITD7 E 6SECTOR = R CYLINDER = ` r. x.  B D7 ,  LOG ERROR (Y/N)? N - Ȁ;DVLD7 N UTILDSKERR 0D7 "$&(OwOegjlqtwz}UUUUUUUD7      $ ( + 1 4 9 > B F M P W \ ` e h k n v x { } UuUU]UUuUUD7          & - 2 7 @ C H M S V ^ a c f k m p s x { UUUUUUUUUUD7    %-/47<AIKNUZU]UUUUUuUD7 _fpw|UUWUUUUUUUD7   !035:=@CHKPRSW\aelsx~UUUUUUUUUUD7 0cfFh.hm prvGx{G~GUQAQQED7 &&&&&&&TAAPTAIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII D7 &&$A.yy&PTPEAQD7 |!$&yyAx&,FH$,KHHANPSyUU@EPUQ@ED7 HN&nP$qPysyAwyAw&EATDEED7 &r$r&yN&,&$,?AQ@PPUAD7 ryAwytY>G{GyAsGDQEEED7 G+@yAAG~GOG8rAGEEQED7 &G@GG:AN>& $ ?GEDQEATD7 }G|HAN{&HANA.~~QDQDQD7 ~A'{HN&,,(GG{DDEAED7 &"G A{yAuHANA+ AAPDEED D7 'H A}A|'\^$aHN&dQADQAPDQD7 l>n8 p>sp8 up>p(&$aaA :AAQAQDAADD7 aA+! A{ &,(:&,(:&EEAD7 ,(&d$aTG~GG~GAN+.8uEQD7 A*A;.A6G{.8ppDQEAQD7 A58u.A9A9GG DQDQDD7 ADABDE.?GEEEDD7 xYHANP''yAuO'.~~QQTQD7 :HANd'{_>n~8p>sp8up>p'AAPTPTQD7 ns'.~~'|n'.~~yAsfTP@TED7 lythijAj'.~~.EDQAQD7 A qG{.8pp}'0yty'D.~~PTDPD7 '.~~,'InLNVs^'L`h|kqsGUUUP@D7 hGuxHAN?a.?zh.hUQDEEDTD7 hhA|HN&PAG?ADQDEEQD7 &Gx&PAazh.EUEQPD7 hUhhA|&GhxhA&xGEUED7 ?A&Gx~A!.~~'QEUETD7 xGhGuxG~ '!p||&yyt'|PQDQUTQD7 'G&$,&AG{GTEATEIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII D7 +@G" F>n8 p>sp8 up>p> QPEEED7 A&&(&$n$s&(&EEUUTED7 ?n? s8  ?p8 p ? PGxEQD7 {Z.88...UEAPTAQD7 &#A&.PTEQD7 AGAS &.{ G{QEQQD7 8m.{A.A T0TDEDQD7 88 &G"AQTQEATQD7 Y &,G@G"Y &'G@G"Y @EEADQ@D7 &.ns&7(>nN8p>sp.p98up>ATQAQAPT D7 pp`.9p9.99.999s,G~GG~G:QAPTAEQD7 &(&$n$s=&(&=??AUUUPQD7 n?s8?p8p@1A..1AEEDAQQD7 ACUAFV.1ILOFOb&R|TdWbDQE4DAUD7 $deOO_a$mt xIJ~bPEAUAF5 @DELALL: 07/11/83SELECTIVE FILE DELETE sT:ITSOK F5 sT:ITSOK G000 R VTOC PANYNAME 0 F5 PFILE NAME UNIT  SEC HD CYL OPERATION +MULTIPLE FIL 0 F5 E DELETE () <BENTER PASSWORD: Hd n{tF5 # ENTER UNIT #  C ,bLdĀF5 DELETE FILES FROM UNIT VOLUME SERIAL: 2N 0=dF5 (e$*. 8_ 2Z HTEMPNX \3 Y fF5 rvENTER X=DELETE FILE, B=GO BACK ONE FILE, t*=NEXT PAGE, ELSEF5 =KEEP FILE"$&".B fހX yDELETE THESE FILES (Y/N)? F5 N & DELETE ABORTED x2&L < zLVLOG ER F5 ROR (Y/N)? N\-r;DVLF5 N x UTILDSKERR txzOOTHE DISK ON F5 UNIT  () IS EMPTY.  ҀUTILUTIL0   #&+49>EIORUUUUF5 Z^blpsx{UUUUuWUUUUF5   "'.3:?DGLQTWY^amr~UUUU]UUUF5   !(+0579=BGLOTY^cjUUUUUUU]uIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII F5 osw~& &",.UuUUUUQTF5 !.7#{;5=&;5A2w.C|&"L$OPTUPQEF5 RT?TGZZZ&]`c8qT`3&{}&PQEAAUTF5 G_!!..!.ZPPQAPTEF5  A.!&UP@UF5 Z2G2G FQTQE@DEF5 &;&GG!GAG!..AQDQEAF5 !.&# A&.PTUPUAU@F5 !!G.!!G!G!TEEDQF5 A.!A.!&EDQQAQTA F5 A_&GG_!GAG!TUDQEEF5 A A&.!AGTQTQ@UQF5 .&;$; |GPTUETDF5 G_!GAG!A  7#QEEQQEPF5 &`|&$.!AG.tE@TEF5 A_ZZZAEQE@PPEF5 &'|F &O`);,7$|;:|BIDEUPEAF5 JQ A!A!G!G!F&;`ADQQEF5 "\T_}gj|qUTF6 @KILINX: 07/11/83KILL RECORDS OUT OF A T:G000 F6 T:G000 FILE NAME UNIT  SEC HD CYL OPERATION +INPU0F6 T_KEYSN ... :NAME },E^ ,E^REMOVE R 30 F6 ECORDS FROM A FILE () ^L{ހOENTER K=KILL RF6 ECORD, I=SEARCH ON KEYS, ELSE=KEEP RECORD: 9K <I FCTF6 *** END OF FILE *** Z|vLOG ERROR (Y/N)? N|-Y ;DVLF6 F6 N  UTILDSKERR OmO Ȁʀ̀}F6 ,E}^L N ENTER KEY FIELD # "8>F DF6  "$')+-49=?AEGNSZ^abfhimru~UUUUUUUUF6   &UUUUU]QTF6 &&&$A!!!A@UPPAAQIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII F6 A$&F   &+7F QDDQEF6 &9<G%JM&U\J dt!UAPEAAF6 heeAne8fffAdGfd>pEPQQF6 e&pref&ee#e&eETTU@UF6 e&e!vxz|~hM!hTUEUAF6 MF hAM &f\hM!!@DEUF6 @LIBDAT PROGRAM LIBRARY ;DVL BUILT 07/11/83 ON UTILSHEL Text-&-Misc-Development-Utils LIBDAT LIBDAT PROGRAM LIBRARY ;DVL BUILT 07/11/83 ON UTILSHEL  LIBDAT LIBDAT PROGRAM LIBRARY ;DVL BUILT 07/11/83 ON UTILSHEL LIBDAT IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII A7 @UUX q y Xދވ% '+P(r^ A7   p@pvlC }C "C } @fAaAZ^@pS) b3 ˂A7 ʇʂć)* #Ij@*U` k@ r ENTER BINARY FILE NAME A7 H\qA7  ` վP P (@t龸4GL @ty` @}@ ip M LA7 sJRKC n[Z jidcbWT ^@UUX q y XދA7 % 'C1 @CPYDSK: 07/11/83MIRROR DISK TO DISK MT:U  C1 MT:U G000 Y  FILE NAME UNIT  SEC HD CYL 0C1 OPERATION "VTOC   VTOC   X OC::  0  C1 VQUQU"~Y!"L"~P!" #D#J ؀#T#Z#`00C1  L#,N #n"ހY #x!.ݪ( >!..# #VTOC # !z#C1 #  ** THE USER AREA OF THE DISK ON UNIT #% IS EMPTY.# $C1  @!d$!>L  r L $.$4 $:MIRROR COPY UNIT $F ($\C1 ) TO UNIT $b ) $pLEAVING $vRELABEL $ UNIT $ WITH VOLUME SERIAL " $C1 " $$** ATTEMPTING TO COPY A DISK TO ITSELF. $'{$COPY DISK ( $ C1 ENTER UNIT TO COPY FROM:%#*%$#.#/x%2 B B %@ C00%JC1 15%P%VVOLUME SERIAL: %\WARNING: THE USER AREA OF THIS DISK IS EMPTY%p,C1 ENTER UNIT TO COPY TO:%VOLUME SERIAL: %DO YOU WANT THE DISK ON UNIT %C1 TO HAVE THE VOLUME SERIAL "%" AFTER COPYING (Y/N)? Y&;&,ENTER NEW VOLUC1 ME SERIAL: "&2&P&V&\HAVE OTHER TERMINALS RETURN TO THE MASTER MENUC1 . &b/ENTER "R" WHEN READY: &&R &ARE YOU SURE (Y/N)? N &&ր-&C1 & && 6&''CYLINDER''' '& (C1 '0'6 '@ Ѐ'J'P'V '` Ҁ'j  Ԁ .`'|C1  ''' , 'TRACK ' RETRIES: ' z'' 0 2 READ !C1 ERRORS' WRITE ERRORS ' MOUNT NEXT DISK TO RECEIVE MORE DATA !'&ENTER "R" C1 WHEN DISK IS READY: ((8MOUNT NEXT VOLUMN TO COPY FROM !(> #(f FC1 UTILC1 NF(p UTILLOGERR( ERROR IN VTOC ON UNIT ( DF** THESE DISK UNITS C1 ARE INCOMPATIBLE (%FOR THIS TYPE OF COPY ((** THESE DISK UNITS ARE NOC1 T THE SAME SIZE ! **(.)(** THEREFORE ** ).THIS COPY WILL REQUIRE MULTIPLIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII   #C1 C1 C1 C1 C1 C1 !C1 !C1 !C1  !C1 !C1 !C1 !C1 !C1 !C1 !C1 !C1 !C1 !C1 !C1 !C1 !C1 !C1 !C1 !C1 !C1 !C1 !C1 !C1 !C1 !C1 !C1 !C1 !C1 !C1 ! #C1 "C1 "C1 "C1 "C1 "C1 "C1 "C1 "C1  "C1 "C1 "C1 "C1 "C1 "C1 "C1 "C1 "C1  "C1 "C2 "C2 "C2 "C2 "C2 "C2 "C2 "C2 "C2 "C2 "C2 "C2 #C2 #C2 #C2 #C2 # #C2 #C2 #C2 #C2 #C2 #C2 #C2 #C2 #C2  #C2 #C2 #C2 #C2 #C2 #C2 #C2 #C2 #C2 #C2 #C2 #C2 #C2 #C2 #C2 #C2 #C2 $C2 $C2 $C2 $C2 $C2 $C2 $C2 $C2 $C2 $ #C2 $C2 $C2 $C2 $C2 $C2 $C2 $C2 $C2  $C2 $C2 $C2 $C2 $C2 $C2 $C2 $C2 $C2 $C2 $C2 $C2 %C2 %C2 %C2 %C2 %C2 %C2 %C2 %C2 %C2 %C2 %C2 %C2 %C2 %C2 % #C2 %C2 %C2 %C2 %C2 %C2 %C2 %C2 %C2  %C2 %C2 %C2 %C2 %C2 %C2 %C2 &C2 &C3 &C3 &C3 &C3 &C3 &C3 &C3 &C3 &C3 &C3 &C3 &C3 &C3 &C3 &C3 &C3 &C3 &C3 &(#C3 &C3 &C3 &C3 &C3 &C3 &C3 &C3 &C3  &C3 &C3 'C3 'C3 'C3 'C3 'C3 'C3 'C3 'C3 'C3 'C3 'C3 'C3 'C3 'C3 'C3 'C3 'C3 'C3 'C3 'C3 'C3 'C3 'C3 'C3 'IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII! !C1 E PACK CHANGES !)B.IS THIS CORRECT ? Y/N )t')!  ڀ ) C1 ) : < )SECTOR ) 8*)Ԁ READ ERROR: ) (UTILC1: ERROC1 R CLEARED THIS BUFFER )"WRITE ERROR: * #.d*0LOG ERROR (Y/N)? N*6*LC1 C*RLOG ERROR (Y/N)? N*XUTILC1 N *n UTILDSKERR*~ UTILUTIL0 * C1   %',18=BPV^fnuzUUUUUUUUuU!C1  #)]UUWUUUUUUC1 ,38=BHJLQV]bekpw|UUUUUUUUUC1  !&+05:?DILOV[`ejotwy~UUUUuUUuUC1  #&+-46;@GUUWUUUUUC1 KMRWY\bfjorw~]]UUUuUUU !C1   !&+05:?BGJOTWZ\`ejmrwUWUUUWUUUUC1  uUUUuUWUC1 &+-148>EHLORFCFl.llD"UUUTEPQEC1 oAV|>EPC1 \G=GpGqdcd&@QQDD!C1 >  i=A@PAC1 p !p&,/&6/ 9E@PQPPUPC1 t&?Au&E&JWZAy&]s|+EEUATC1 "~&v~9&GA&A@UPPQ@EC1 #vA#BAUAEA@AD!C1 ?>&vG=GpGQQ@PPQC1 q&&v$|vQDDPSC1 ?A  &v =+ADQ@UEC1 &v&&$|vA&v&@UAPATETC1  &),Z$|v/&v/&vI&VGXPUAPPQ"C1 \A\\&vikA#|voADDQETC1 |"8xvq.qy.p.q~q.DPAPTAC1 yGG&vGG>&v.QEAEQPQAC1 hG..Ar.r..s.QAPTEAPTC1 .i.iiGkGjqAqAAApAQEDEDQ830630090805830630090805830630090805" "!C1 A.kk"L G>&v>&QUAEC1 .A\L..i.iiGj" Gj@TETEC1 " rA&vy>&]QUQTQTC1 >&vA A % %".UQPC1 y~A.A& &GTEDQP"C1 \~.Aq&/oA!DEDQPC1 |D1J364>@E&R&T6EPPPTTPC1 p0&vi&v|q;&y&&&AUPTC1 )GA:8;|+1.mm8AEDEAPC1 mm1m8mm1mX.rsGGrA J. s.TTEEA "C1 s=>&.h>h&GjGQUPQ@TQTC1 ksqA]A\A[pAZ.kk"g Gj"{ QEDPTPPC1 Gj"{ rOGkGhJ36.sGi.PEEQPC1 iAnAn.iGj"q GiS.&TEAQEDC1  "_J36.GiQ@PPE"C1 .iAA.iGj" Gi_.&DQPAQC1 cA&#v&PDEPA@C1 T6&$$|v'A&*J36&5UAATD\AC1 $|v'|D4=DDKPEE@C2 @CPYFIL: 07/11/83COPY A SINGLE FILE T:F "C2 T:FILE NAME UNIT  SEC HD CYL OPERATION "G000  0 C2   NN  *NAME NAME VTOC 303 03 C2 OC:: VQUQUYGET_PARAMSNYY  0  00 C2  VTOC VbLPX TZC`fN p0C2  UTILC2 z b,Lh  Y  #C2 ̀&(COPY  UNIT R.. , VTOC  x C2 J,J( (.) TO 4x xLJ) P{V\TRYING TO COPY AC2 FILE TO ITSELF!b ʀR I K X FBREC2 COVER DELETED RECORDS REBUILD INDEX KEYFILE COPY FILE (  ENTER THC2 E FILE TO COPY FROM: ENTER THE FILE TO COPY TO:*TRYING TO COPY A FILE TO I# #"C2 TSELF!H N=NORMAL COPY, R=RECOVER DELETED RECORDS, l*I=REBUILD INX KEYFILE (NC2 O DUP KEYS) N %NĀNOT COPIED--OLD FILE KEPT OLD FILE REPLACED ENTEC2 R K=KEEP OLD FILE, X=REPLACE OLD FILE: +1 2K 8LD H C2  V0 \ bAND: h RECORDS LOST r   VFRECORDC2 S LOST BETWEEN: LL1 AND: ** END OF FILE **  RECORDS#C2 COPIED @FILE SIZE  IN DE CREASED BY CYLINDERS. . C2 COPY CANCELED BY OPERATOR B/ `COPY REST OF FILES IN PROCEDURE (Y/N)? f&'C2 V// CONTINUE EXECUTING PROCEDURE (Y/N)? #$ ʀFDELETEC2 THIS FILE (Y/N)? N  LOG ERROR (Y/N)? N  UTILDSKERR  ENTER SC2 =SPLIT FILE ONTO ANOTHER DISK, *'C=COPY ENTIRE FILE ONTO ANOTHER DISK: V%M #C2 S C +  UNIT #   COPY COMPLETED. HIT ANY KEYC2 TO CONTINUE. ** y 0  VOLUME SERIAL: Ȁ ̀€C2 "Ā , 2O 8 >ƀ N. THAVE OTHER TERMINALS RETC2 URN TO MASTER MENU. Z+MOUNT NEW DISK TO COPY TO AND ENTER ITS UNIT NUMBER C2 WHEN READY: %B Ҁ9  YOU CHANGED THE DISK YOU ARE COPYING FROM! #C2 *PUT " " BACK ON UNIT INITIALIZE DISK ON UNIT 2 (VOLUME SERIAL: NC2 ) BEFORE COPYING (Y/N)? dENTER NEW VOLUME SERIAL FOR DISK UNIT &: " C2 " O.K. TO PROCEED (Y/N)? INITIALIZING DISK .   d0C2 ̀΀؀ڀ܀ހC2   (PL0P~/* END OF PROCEDURE FILE& #C2 M D T , : ȀA Ԁ@ ? HAVE OTHC2 ER TERMINALS RETURN TO THE MASTER MENU. /MOUNT DISK " " AND ENTER "R" WHENC2 READY: 0F PUTILUTIL0 V      # ( - 2 7 <UUUUUUC2 C H K P S a d i n s x }      % * / 3UUUUUUU]UC2 6 9 ; > A F K P U Z ^ ` e j n p s x }    UUUUUWuWW$C2      & ) - 2 7 9 > C H M O V [ ^ c f kUUUUUUWUUC2 p r v {        UUuWU]UUC2     # % ' / 6 ; ? B E G N U [ b d k o r u w ~ U]UUUUUUUC2    "$')-0368=AFKMPUUwUU]UUUC2 UXZ_bfkmruwyz}WUUUU]UUU$ $#C2   #(-07ADINRWZ\]bhloruzUUUuUUUUUUC2  %*/6;>@DKPUWUuUU]UUUC2 RUZ\]bgjmtvw|uU]UUUUUUUC2 !#(.138>ACHJKNQT[binuzUUu]WUUUuC2   %*/5UU]UUUUUU$C2 8;=?FKNSY_begnsux~F"$&(C*-&14D3]UUUuQAEC2 *69;B 3/FGL*ATnV96YE@EQADPC2 \^`bdLfTJif>l&qL*vlxAAE@TPPC2  FxL* FG`J@PPPC2 G`LTHi>l& PQP@P $C2  LTL &vl+AAE@UQC2 A>l&weLeA99AQPEEQC2 AAAe@EQ@EQC2 9A3A3A&+A&+@EEUQTC2 &+&14"FV9&+^G@PAA$C2  xFJ&+"AAE@PADC2 &+4&+9A3A3&K&`$cQAPDQAC2 9 &c4+&A&1EDUPPQC2 r+nA&1}+!&G :$# uTUTDQPC2 u)))# uuJ \`bdEQPE@PU$C2 VYGA2A33[FGA@QAAEC2 8 : JbAA&1&4b+-dQ@E@EUAC2 bb[4>[-`&`3JAPQbNATQTAEC2 &+LN!-b4QSbAX&1DDQEC2 &4b+-dbb>[\-`&`dA_&AUqA%C2 4d.Yl&+.A3f& UQUqAC2 3i.3&>&6Y3s BYq&QPPDEC2 4g&14.+A3w$1&+FGH :PDUPEPQC2 AY}n9~z" K$A1~$AO&+cGEEEDPC2 e :A9 YD3-"$&((hFJQEEAA% %$C2 VY&4+>[\-`&`+j+6YEADEUA@C2 RVAY&+{9G} :AY9EEA@QEEC2 3w6Y&+&%YD*-EAEC2 ;9A3V9&g&G :EEAC2 AV9.YYJbAETD%C2 ^V9F/>l&~gAA@EAUC2 l6AY&1G :&144$ ~APEETTC2 &~$l?l  DTAE@PC2  &l69Gd*e eA4  @UA@AEEC2 e8fa8fb8fb.dbddA&+Gd.abc@APTD %C2 .c*caf$f(+&fc.dfd&4EEAQC2 ge&+"F&4gC&+R&g>lGi&jATATQEC2 ll :  Am  Gq  A@DQDQ@PC2  >l&g&4+l l?lA QEAUPE1DQC2 A   (q  &4+l&9$DPUA@%C2 7AY '&4+&l$ &&4+PEAUATPC2 $ Y , AY 6q&4+" 2 &1 7AADQ@UA@AC2 J&+++6Y G&4+6AY ?69&PPEAQ@C2  =# A :964  8A1 H \AETPAC2 Y ]G*G G yL-  i%8@EQED%C2 A( T W.*A? V W LAY X" YK \FTETEAC2  [ KN> B8AQ v.*#8#AT fEEC2  8fG w#AW k 8fG w#AY p8fGDEDEC2  w#AZ u\8fG w _ ]-G*#8DEDUAGC2 #A(  #A_   /#.*? }EDQDQT&C2 y'%A?  #8G# G#Ab Gd.AAE@EEC2 *G3#8#A(  #A_  #Ah .jQPQDEC2 .A  3  ..?  GAQDQAQTEC2 G3 /*An 'G/f-*/Aq AADQEEC2 / "; ; 2GD*- FY  Q@QDE& &%C2 As D*"; &4+&+G :  &Q@UPQEC2 4+ D*-;"D3-PEAC3 @CPYALL: 07/11/83COPY ALL FILES   6P1T:   C3 6P1T: G000FILE NAME UNIT SEC HD CYL OPERATION ! 00C3   NNA ALL NN ) NVTOC NAME NAME 0 03&C3  OC:: VQUQU8VTOC Y000 0C3 FL8PH JPLL   jbL2N xaC3 Y (6bLATTEMPTING TO COPY A DISK TO ITSELF. %PRESS C3 TO CONTINUE.0>4  C3 A $ ALL 2B >BINARY DS PSOURCE VL bLIBRARY h &C3 O t OTHER zX R H I  O.K. TO PROCEE C3 D (Y/N)?ԀڀCOPY ALL FILES ( ) dUNIT TO COPY FILES FC3 ROM:{ &,VOLUME SERIAL: 2UNIT TO COPY FILES TO: J0C3 VOLUME SERIAL: hTYPE OF FILES TO COPY (A=ALL B=BINARY |&S=SOURCE L=LIBRARYC3 O=OTHER): ACȀ REPORT DETAIL OF COPY ON PRINTER (Y/N)? N )( &C3 RECOVER ALL DELETED RECORDS (Y/N)? N $# 4 :COPY TERMINATED BY OPERATOC3 R @COPY TERMINATED BY OPERATOR `Z  SPOOLER-   C3 RESTRICTED S LLL# ; ƀV C3 \  LNEW LNOT COPIED OLD FILE KEPT  . 4 DC3 4 JREPLACED P:  ĀȀ x0 ~C  AND: &C3 RECORDS LOST   SFRECORDS LOST BETWEEN: 5RECOC3 RDS LOST BETWEEN: 1 AND: ** END OF FILE ** AND: ** END OF FILC3 E ** (EMPTY FILE B WARNING: CYL COUNT CHANGED PCOPY COMPLETED. nԀ MOC3 UNT ANOTHER DISK TO COPY MORE FILES FROM (Y/N)? N 5HAVE OTHER TERMINALS RETURC3 N TO MASTER MENU. +MOUNT NEW DISK TO COPY FROM AND ENTER ITS UNIT NUMBER 'C3 WHEN READY: %B :9 @YOU CHANGED THE DISK YOU ARE COPYING TO! F(PUT " rC3 " BACK ON UNIT |7 VOLUME SERIAL:  O.K. TO PROCEED (Y/N)? N C3 & ̀UTILC3 F UTILDSKERR 2 DELETE THIS FILE (Y/N)? Y C3 LOG ERROR (Y/N)? N ENTER S=SPLIT FILE ONTO ANOTHER DISK,  4'C=COPY ENTC3 IRE FILE ONTO ANOTHER DISK: C `'M C DISK FULL--FILE SPLIT ' '&C3 SPILLOVER OF SPLIT FILE FILE ALREADY EXISTS. ENTER R=REPLACE OLD FILE, C3 M=MOUNT ANOTHER DISK: /E$M * F4HAVE OTHER TERMINALS RETURN TOC3 MASTER MENU. <+MOUNT NEW DISK TO COPY TO lAND ENTER ITS UNIT NUMBER WHEN RC3 EADY: %@15YOU CHANGED THE DISK YOU ARE COPYING FROM!*" BACK ON UNC3 IT  INITIALIZE DISK ON UNIT  (VOLUME SERIAL: ") BEFORE COPYING ('C3 Y/N)? N 8KVENTER NEW VOLUME SERIAL FOR DISK UNIT \&: " *" C3 REPLACE OLD FILES WITH THE SAME NAME (Y/N)? N -,̀O.K. TO PROCEED (Y/N)? NC3 6  O. .INITIAC3 LIZE DISK ON UNIT 4 (CURRENTLY " P ") TO " bCOPY n FILES FROM UNIT C3 x () TO UNIT  * DO NOT * INITIALIZE DISK BEFORE COPYING** DO NOT * 'C3  REPLACE OLD FILES WITH THE SAME NAME$RECOVER ALL DELETED RECORDS REC3 PORT DETAIL OF COPY ON PRINTER( FILE-NAME RECORDS CYLS-IN CYLS-OUTL&C3  FILES FROM UNIT ~INITIALIZE DISK BEFORE COPYINGREPLACE OLD FILES WIC3 TH THE SAME NAME$RECOVER ALL DELETED RECORDS FILE-NAME RECORDS CYLS-INC3 CYLS-OUT&..(pVTOC4+<INITIALIZING DISK . BUTILUTIL0 ^ C E'C3 K N Q V [ b g l s z }     UUUUU]UUuuC3       % / 4 9 > C H O V [ ] a d k n p w ~ uuuUUuUUUUC3     # - 7 > C G M R V \ ^ e h m t ~ UUUUUUUUUUC3      %*-6UUUWWWWUUUC3 8@BDIMRWchksvzUUUUWUUUU'C3  $'+049>FINSX]bdfkqv}WUUU]UuC3   "*/4;UuUUUUU]UUC3 BEJLNQUY\`egkpty{UUUUUUuUWUC3  %+.18?FHMRUY[]_afUUUUUUUUC3 hjkrtuzUU]UUUUuUU)C3   '.57=BHMOTY`egiklor{UUWUUWUUU]C3   %*27?DLNOV[^alr{UUUU]U]UUUC3   F#UUUU]U]QC3 !#C%(D5%"8 Y:=A5 = AD:DAEE@C3 FH%KHMG &P-L8 YG &A M&eTP@PQD( (# C3 'C3 'C3 'C3 'C3 'C3 )C3 )C3 )C3  )C3 )C3 )C3 )C3 )C3 )C3 )C3 )C3 )C3 )C3 )C3 )C3 )C3 )C3 )C3 )C3 )C3 )C3 )C3 )C3 )C3 )C3 )C3 )C3 )C3 )C3 )(#C3 *C3 *C3 *C3 *C3 *C3 *C3 *C3 *C3  *C3 *C3 *C3 *C3 *C3 *C3 *C3 *C3 *C3  *C3 *C3 *C3 *C3 *C3 *C3 *C3 *DSKERR *DSKERR *DSKERR *DSKERR *DSKERR *DSKERR +DSKERR +DSKERR +DSKERR +DSKERR + (#DSKERR +DSKERR +DSKERR +DSKERR +DSKERR +DSKERR +DSKERR +DSKERR +DSKERR +DSKERR +DSKERR +DSKERR +DSKERR +DSKUTL +DSKUTL +DSKUTL +DSKUTL +DSKUTL +DSKUTL +DSKUTL +DSKUTL +DSKUTL +DSKUTL +DSKUTL +DSKUTL +DSKUTL ,DSKUTL ,DSKUTL ,DSKUTL ,DSKUTL ,DSKUTL ,DSKUTL ,DSKUTL ,DSKUTL ,DSKUTL ,(#DSKUTL ,DSKUTL ,DSKUTL ,DSKUTL ,DSKUTL ,DSKUTL ,DSKUTL ,DSKUTL ,DSKUTL ,DSKUTL ,DSKUTL ,DSKUTL ,DSKUTL ,DSKUTL ,DSKUTL ,DSKUTL ,DSKUTL ,DSKUTL ,DSKUTL ,DSKUTL ,DSKUTL -DSKUTL -DSKUTL -DSKUTL -DSKUTL -DSKUTL -DSKUTL -DSKUTL -DSKUTL -DSKUTL -E1 -E1 -E1 -E1 -E1 -(#E1 -E1 -E1 -E1 -E1 -E1 -E1 -E1 -E1  -E1 -E1 -E1 -E1 -E1 -E1 -E1 .E1 .E1 .E1 .E1 .E1 .E1 .E1 .E1 .E1 .E1 .E1 .E1 .E1 .E1 .E1 .E1 .E1 .E1 .E1 .0#E1 .E2 .E2 .E2 .E2 .E2 .E2 .E2 .E2  .E2 .E2 /E2 /E2 /E2 /E2 /E2 /E2 /E2 /E2 /E2 /E2 /E2 /E2 /E2 /E2 /E2 /E2 /E2 /E2 /E2 /E2 /E2 /E2 /E2 /E2 /) )'C3 &sGw  K>z>|~1~QEC3 A XA \A `EPQ@C3 A dA hA jPE@EC3 DA kDA lDAD mDA vPEPEC3 D.%~ u t T PEPQPQ)C3 &NGAD |  A=  @D  { 8  &EEDDC3 N"8 &A=AD '&6=&&# @ A@UTC3 z?z?z &P-L8 ]&!#&6&2$ |?TQPUPC3 |A  G &~1&<~&6&Q&bQE@UPAC3 $ eA A A TEPE )C3 A A Aj  =&&$ PEEATC3 =&&$  D   # &6NPDQtPC3 AD '&& 8 +A  A    EPEE@C3    ]LA  EA@PDC3 A A   A A   A A  EDDQDED)C3 A A     >GL?| DQDEEC3  D    &6&# +&PUUC3 & 2 , .024 &6&#PDPUUAC3 `GAD :5  `LA@ &CFK@QAE@EC3  &6T&-< >V-V&Y J[UAATQT)C3 ^G +[AM @  2&&oqAD '~-L+ ADEDTDC3 ! - [N  bA@ &CFAGEEC3 D '6F&6T&AD '6T&- `QPUAUAAAC3 A@    &&G5A@ !D PPUDQC3  && + 2A@ )&&YTAD ('6YT&PDQTET*C3  &NAAD 1AD .'&6D5(!##=&AEAA@C3 :DGd A= 8 D 9 6"8 Y&6N&&A@QDE@UC3 &Gz&z @ B >A! C >z?PEE1C3 | &1~ J&Nq7&6&<~F| 9zA| L >?z &P-LDEUADQC3 8 >&6&IS#&NVd=# @ RgD U 9?zUA@UAE* *)C3 =  D5(J[^\ovJ[^ cJ[^EPPAC3 y c[O w &&D$ AD m @PEPPAPC3 G5 o o= o f=&&$ D s tPDQATDC3 Y&& 2 A5  + &&&G A DDEPC3 D 2G   LLG ?| PQAE*C3  AD  &6&&# @  QAC3 A  A   A  @  2 PEDE5C3   &&  &&&^& :AD :=&q AUEC3 # @ u "8 Y&6N4&&C&XGZ&[|$ [PA@UTC3 ||@  |A^  ?z &1# &Nqu&6&<#zADQDQPUT *C3  zA|  ?| &~1?| D   ~E@QDAC3 &6&|&~=$ AD =&6&UA@UQ@UC3 |&#  &6&=$ &6NAUTTPTC3  &NV=# gAD  8  G[%PPPEQEC3 A6  8X8Y8 Y.[Y[[A &&PPTDQ*C3 AD '&G[.XYZ.Z%ZX QAQE@EC3 &AD 'Z .[M[&6NAD '6NQPTPEC3 &&AD '& AD &&|/&~5&&:&EzHDDETC3 #&O|H&D &f&D &n&&D &AUPEQAC3 n&&AD & &6N&AD $  'N6APEAUQ*C3 &6&:'zH#'O|H~&D 'n'&D UPUUAAPEC3 D 'n'&D "'n''N N 1 / DQC3 + * &>V-V>&Y +AD 6@ADETEC3 '6N6N6N6'6N& 2AD >~&  -"UUAUEPC3  Y &C  8D5(AD B'&6 4PDQP@+DSKERR @DSKERR: 07/11/83MAKE DISK ERROR LOG ENT:`  DSKERR T:` XVTOC 8 ,  ,--,---3 DSKERR -, , , FILE: UNIT ( ) DATA= INDEX= * $SYS  SYS SY  3DSKERR S OVLY PROGRAM DISK * DATE  TIME RES T# ADRS EXECUTING STATUS MES DSKERR SAGE * BADFILE HERRORLOG HFILE NAME UNIT  SEC HD 0+ +*DSKERR CYL OPERATION +Y LTHNbNp8z0DSKERR J v..pPLVTOC  P 00DSKERR H+ H  !,DSKERR 048HHHL >@BDFHL\L\LOODSKERR x~F  RESTRICTED TEMPP UTILLOGERR ERROR LO+DSKERR GGED ON PRINTER ERROR LOGGED IN FILE 'ERRORLOG' ON SYSRES )PRESS TODSKERR CONTINUE, ANYTHING ELSE TO STOP BEEPING:  8F8JPV\HIDSKERR JKY rN xd~{ "')*.38<AEHKNRW\afkUUUUWDSKERR mpsy{~  UUUUUUuUUUDSKERR  "&*-/148<@CFGLQTW^F^F&.&&1$]UUUUtDTA +DSKERR .'F'8''1'8''1'G %G G &PTEEQADSKERR " A   @FQ@PE@DUDSKERR ?Q/0>LAC  FM FQQDEQ@EDSKERR >&  !"#$GF& &QEQADPDSKERR 0 0 0 0 0 0QQA+DSKERR 0 0AC 0&?S@W@^AQPEDSKERR &l &&G 0&&AADDDSKERR A&#@EUADSKUTL @DSKUTL: 07/11/83MISCELLANEOUS DISK UTIT: <8  DSKUTL T: <  OC:: VQUQUFXVTOC 3 +DSKUTL 8GET_PARAMSNYY  0  VTOC VF03 DSKUTL FILE NAME UNIT  SEC HD CYL OPERATION +Y TLFPV 80DSKUTL   "@LL  DSKUTL 46 ..pVTOC  F UTILDSKUTL. 0DSKUTL @CFTHIS PROGRAM IS FOR PROCS ONLY. HIT L*TO CONTINUE:z x,DSKUTL 7{ C D R I L  ^ INVALID COMMAND. zDSKUTL Y / CONTINUE EXECUTING DISK UTILITY COMMANDS (Y/N)? /5${*DSKUTL N 0FV// :CONTINUE EXECUTING PROCEDURE (Y/N)? B#)jt DSKUTL z (H SPOOL:FILE THIS FILE NAME ALREADY EXISTS. RTHIS FILDSKUTL E MAY NOT BE RENAMED. PRSTUUX[^`abjlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII, ,+DSKUTL nprstvxz|  |V(PL€* jpDSKUTL Pv/* END OF PROCEDURE FILE|O& M T T, 0  DSKUTL : ̀A ؀@ ? HAVE OTHER TERMINALS RETURN TO THE MDSKUTL ASTER MENU. /MOUNT DISK "$ " AND ENTER "R" WHEN READY: 40TF ZUTILDSKUTL DSKERR` Ԁր؀O)O8|}dUTILDSKUTLNF UTILLOGERR UT,DSKUTL ILUTIL0   "'+.148=BGLQSX]cfikmUUUUU]UWDSKUTL t{UuuuuuUUuDSKUTL  !"),:>@ADRY^chmoqxUuUUUWUUuDSKUTL   #&(+-46=FKRUUUUuUUUUUDSKUTL WbdfmrtuxUUUUu]WUU ,DSKUTL   $',/47:AHOY^elqv{}UUUuUUUUUDSKUTL          ! # % * /WUUU]UUuUDSKUTL 4 7 9F*F*F.1.8]TTDSKUTL 181G G G  " AEAQQEPPDSKUTL   A &$!;&CGGQ@P@EA,DSKUTL JLJAP1JAS"1JAV 71JAYEPDEDSKUTL =1JA\S1JA_\1&kmps&&vDDQTDSKUTL GJJAp!&!1J#As%'AEADQQDSKUTL #.&!vGJJA-Jp.*UADDQDSKUTL s5&e/L /L;AAA@PQ,DSKUTL <7/L@L PPQP@DSKUTL D G&!vFii)IL OE@TDTDSKUTL N"BR&!v=/LVEAADSKUTL LYL "" SLcEAE@DSKUTL /L`L\,PQPTA-DSKUTL * .(A6k.(AslpG5(7G6PQEQDSKUTL 5G56L7# 7.5APx{.555DQ@EAQDSKUTL A;z{78pAp|}FiiJ>eEQQDQDSKUTL (5.5AP.56.6AS.5G56PPTTTEDSKUTL AV.5G56Ap.5G56AVX.5TETETIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII- -,DSKUTL G565L#G<5.5APAETATDDSKUTL [<=%<.<<5;5A;QEEQQDSKUTL .5G8^G8`AdG8f.555G9 .QQPTqEDSKUTL 5APA[Aj.9l9.9099A8@DEDQDSKUTL 9 .:8:.:9:5;G;/G: %ApDEQQ-DSKUTL G:/% # <%<As%<<"1QEPEDSKUTL 1(G:aFipiAu"1&!&DDEPADSKUTL  GJJY&!JiTADTTDSKUTL mApm&#EJFi&!viEUADSKUTL l@QPA -E1 @VEWVTC: 07/11/83VIEW VTOC T:n E1 T: (XVTOC 8G000 N VTOC TEMP3 E1 .  FILE NAME UNIT  SEC HD CYL OPERATION +0 00E1 ~€ 8& E1 ..BDLzE1 dCONTENTS OF UNIT #VOLUME SERIAL: Y  FILE FE1 IL REC KEY KEY 1 KEY 2 KEY 3 KEY 4 7 KEY 5  LAST CYL  NAM-E1 E TYP LEN LEN LEN POS LEN POS LEN POS LEN POS 7LEN POS UPDATE CNT TE1 nt6zfy RESTRICTED Z TEMPE1 iSEQ INX IXO ހ0  ENTER ANYTHING BUTE1 TO CONTINUE TO NEXT PAGE 128 4BHNTZE1 `fnrx~MAXIMUM CYLINDERS: CYLINDERS USED: .E1 USAGE: % €N LOG ERROR (Y/N) N UTILE1 N  UTILDS0E1 KERR UTILUTIL0  @FOO UUUUWE1 !%),.28>CLOTX^dfikpwzUUUUUUUuUUE1 (258@CJORWZimruzuUU]UUUUUUE1  "',169G$$MnLHGDEDQ@QE1 ll&C&?AP&&& &(PPTAAE1 &5?]&8:FClx>9OMXOT SAWYEQEEE1 S[&D;Oj9CIU:=@Tu&^`ClxOPUPUDAEE1 MbOT SAWcS[=ee=iAf=mQ@EPE .E1 >9>;&DOM=9;osgo8r:>9:8ru:>ETTTPTE1 ;:9Ayp;Ayp7"&9;oj>9&|j9CI`&QEQEATE1 $xAQ1?.BaB8BB1B8BB1BE1BPPEAPTTE1 81 G @G G A"$ G.w8x .xEEQ@PTE1 .w8 .A.woo8APTAQE@.E1 .8Go.ooAQTQTE1 8.8>;>9x-5;9&s9PTEQEEUE1 ;&5(GFkG$$AUQDQPE1 MnLHFp+lGlA&A@DEEUE1 %AA (>p+lAPEAUQA.E1 JAE2 @VEWFIL: 07/11/83VIEW SOURCE FILE T:G000 E2 T:G000    @VTOC @00 E2 FILE NAME UNIT  SEC HD CYL OPERATION +INPUT_KEYSN ... :NAME00E2 },E^ ,E^x UTILE2 j :Lv: 3 30/E2 VIEW FILE (  )  @O€CȀ΀ENTER FILE NE2 AME:   UNIT #  { '€.. pL 00E2 RESTRICTED6 DENTER FILE NAME: J (`fENTER STARTING RECORD NUE2 MBER ( = 1 l'T, = SEARCH ON KEYS): &1 ΀E2 0 @H,dSOURCE FILE:   UNIT  -ENTER ANYT IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII/ /.E2 HING EXCEPT TO CONTINUE (2L:LR@N djҀE2 ,(|*** ?؀8 RECORDS LOST   TOTAL RECORDS LOST E2 ր=΀LOG ERROR (Y/N) N ,Y UTILDSKERR ԀO)OE2 }c}L  LENTER KEY FIELD # E2 R h nF tUTILUTIL0 z [`cfjptx{UUUUU/E2   %).369<AGMUZ]UU]WU]U]UE2 ^adfmpuz|UUUUUUu]]E2  !'-578<>?CHKT[`hkrxU]UUUUUUUUE2 3: /<>>;BD&GOQTVXZ\G^a&WTPQATE2 ehsvDy&v>y$ZB>?;><Ga;UPUUAEE /E2 DB BD &hD>&T&h*@PEUPTAE2 g&&#G &< Ag&G ZAPEQE2 .^^-VV&V&eG &XQEEE2 &Vh<-V Ag&G Z^&hUADEE2 h&D&>T &eh!$#&GG^a*AgPUUAA/E2 %'L&h*:,.'%L&0A3G^5DAQE2 Fi&iA .  ><  A&?C<E A DAEPEE2 A7.^^il&hIiA $&?C<RE ADEETE2 # A$ Ag(>< &hUC<aEik1e3&hsDEQUAPE2 %veeAy08:&&hh&D&>T APAPUU/E2 Ji7.03Ah?J8PPPQE2 ABG>&h&EUAQ@PE2 #YJ&T>&N.TPEPUPE2 0yYQ.0yYFi0AySTiV83PDDQEPE2 0yY!.:A@Q@1F1 @FORMAT: 07/11/83DISK FORMATTER T:  F1 T:  5G000 V   XVTOC 830003 F1 NAME  FILE NAME UNIT  SEC HD CYL OPERATION +$0 F1 .ހ<"J8Tf   F1 ..|pLVTOC   2L2<n{DISK FORMATT IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII0 0#(F1 /F1 /F1 /F1 /F1 /F1 1F1 1F1 1F1  1F1 1F1 1F1 1F1 1F1 1F1 1F1 1F1 1F1 1F1 1F1 1F1 1F1 1F1 1F1 1F1 1F1 1F1 1F1 1F1 1F1 1F1 1F1 1F1 1F1 1F1 10#F1 2F1 2F1 2F1 2F1 2F1 2F1 2F1 2F1  2F1 2F1 2F1 2F1 2F1 2F1 2F1 2F1 2F1  2F1 2F1 2F1 2F1 2F1 2LIBDAT 2LOGERR 2LOGERR 2LOGERR 2LOGERR 2LOGERR 2LOGERR 2LOGERR 3LOGERR 3LOGERR 3LOGERR 3LOGERR 3 0#LOGERR 3LOGERR 3LOGERR 3LOGERR 3LOGERR 3LOGERR 3LOGERR 3LOGERR 3LOGERR 3LOGERR 3MASTER 3MASTER 3MASTER 3MASTER 3MASTER 3MASTER 3MASTER 3MASTER 3MASTER 3MASTER 3MASTER 3MASTER 3MASTER 3MASTER 3MASTER 3MASTER 4MASTER 4MASTER 4MASTER 4MASTER 4MASTER 4MASTER 4MASTER 4MASTER 4MASTER 40#MASTER 4MASTER 4MASTER 4MASTER 4MASTER 4MASTER 4MASTER 4MASTER 4MASTER 4MASTER 4MASTER 4MASTER 4MASTER 4MASTER 4MASTER 4MASTER 4MASTER 4MASTER 4MASTER 4MASTER 4MASTER 5MASTER 5MASTER 5MASTER 5MASTER 5MASTER 5MASTER 5MASTER 5MASTER 5MASTER 5MASTER 5MASTER 5MASTER 5MASTER 5MASTER 50#MASTER 5MASTER 5MASTER 5MASTER 5MASTER 5MASTER 5MASTER 5MASTER 5MASTER 5MASTER 5MASTER 5MASTER 5MASTER 5MASTER 5MASTER 5MASTER 6MASTER 6MASTER 6MASTER 6MASTER 6MASTER 6MASTER 6MASTER 6MASTER 6MASTER 6MASTER 6MASTER 6MASTER 6MASTER 6MASTER 6MASTER 6MASTERZ: 6MASTERZ: 6MASTERZ: 6MASTERZ: 68#MASTERZ:6MASTERZ:6MASTERZ:6MASTERZ:6MASTERZ:6MASTERZ:6MASTERZ:6MASTERZ:6PRTMSG 6PRTMSG 6PRTMSG 7RTNPRC 7RTNPRC 7RTNPRC 7RTNPRC 7RTNPRC 7RTNPRC 7RTNPRC 7RTNPRC 7RTNPRC 7RTNPRC 7RTNPRC 7RTNPRC 7RTNPRC 7RTNPRC 7RTNPRC 7RTNPRC 7RTNPRC 7RTNPRC 7RTNPRC 7RTNPRC 7RTNPRC 7RTNPRC 7RTNPRC 7RTNPRC 7IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII1 1/F1 ER & EXERCISER () ENTER F=FORMAT, V=VERIFY, S=SEEK CYLINDER, ,A=F1 SEEK ALTERNATING CYLINDERS: S S F PJVF \V bA hF1 zr~ENTER ALTERNATE CYLINDER NUMBER: |!!F1 Ȁ2΀ԀCڀENTER ANYTHING EXCEPT TO CONTINUE: )F1 n - CAUTION - CAUTION - CAUTION -  /pT%Z1F1 "FORMAT"`rlrWill TOTALLY and COMPLETELY DESTROY x#sALL F1 DATA on the unit formatted. uЀEnter "ESC" to abort this process."F1 1 ENTER SECTOR INCREMENT:  &,100 20 :@FLF1 ĀP VFORMAT ALL OF UNIT (A) OR PARTIAL UNIT (P) P\,+ENTER STARF1 TING CYLINDER :  ENTER ENDING CYLINDER :5րARE YOU SURE (Y/N)?  1F1 N N Y FORMAT  ƀȀ.4ԀF1 >CYLINDER: D RX^djpvʀF1 ΀ ERRORS VERIFỲENF1 TER UNIT #  VOLUME SERIAL: ENTER CYLINDER NUMBER: ENTEF1 R HEAD NUMBER: ,OOLOG ERROR (Y/N)? N PUTILF1  j UTILDSKE01F1 RR x UTILUTIL0    $'*-16;@EJUUUUUF1 LORZ^afiotvx}UUuuuuUUUF1   #(+-/2;ADINQUUUUUUUUUWF1 Y\adinrx}UUUUuUUUUUF1   $.3;@ELQV`jty~UUUWU]UUU]1F1        % , 3 8 = B G N Q W Y \ ^ ` b c f h j l o u wUWUUUUUUUF1 z | }   UUUUUUUUUUF1   ! $ & / 1 2 5 8 A G J V \ a d i n p q s z } FFUUUUUUUUQF1 q.qq1o.rr8r%r1r8r%r1r(*G pGAQAPTTF1 3G q8:<B"D 8AKMK DG_qQE@E2F1 W&Z]`pru&&&G^$ZA'AUAAEPEF1 AAA G]&&DDQDADF1 "O &FG]&Z]&$Z&EUPF1 ZZ]&?8G\%"O$ G\"O$ G\UPPTQEDPF1 &$"&] F&] (&+EQAPEAUAIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII2 21F1 .47:N&QTf&i:|~&Z]&$ZUAPTDQUPUF1 G\A6-G%A8?&ZG\.b%GDQEF1 &&$ZAH&&$ZT?EATEPUF1 &$Z?KJG\&Z]&$ATDQUF1 ZO&Z] &G]I.b% .c%G^d.d%8TDUAAPTPT2F1 j8*>&'\8)\.\\G,\G/\GETEF1 \%2A*u8d%^G5A*e.5A8f.58QDPTQAPF1 %;AhG;\85585;5>%268eC;A8nTEEPDQF1 A\n8;%;A%p.d/5%q./%585585;5>AQAQF1 26F%2F_2.g5GK5A%{./.TUTQDP\ 2F1 /%N8//85/5F26..,//Ad.,%AQTPTEF1 ,G\G/,A*NAd.g5KA5A F_2REEDQTF1 F*2RGKg.%5F_26.K%KGN\8N5PAQTF1 85K5F*26F2A2da"O [XEP@UQTF1 A>TY&TZ\^&\'~>TY&EEPDA2F1 TZ\^&\&Z]d&.b% .c%.d%fG]H\UATAPTQF1 >&'\.ed^8)\8\\G[\"O EAPTQ@UF1  \2G^eG[2"O 2fF1o.DQEQTF1 rr8r%r1r8r%r1rm3&Z]vW$ZyWEAQQUATF1 ?W\A{G&ZyWZ_<G[\G]HEEUPAE2F1 &Z]&$Z:?\&Z:Z]&$Z&ZUPQUUATF1 ?8)8\\&Z&&&#ZAQUAUF1 A.Y%YJQDP@PDLIBDAT PROGRAM LIBRARY ;UTL BUILT 07/11/83 ON UTILSHEL Primary-T.B.L.-Utilities LIBDAT LOGERR @LOGERR: 07/11/83DISK ERROR LOG ENTRY B:  3LOGERR B: XVTOC 8 ,  ,--,----,3 3LOGERR , , ,  , ( ) FILE:  UNIT (  ) DATA=  INDEX= 0 000LOGERR **  ** DISK ERROR  *$ SYS SYS SYS OVLY PROGRAM DISK * D LOGERR ATE TIME RES T# ADRS EXECUTING STATUS MESSAGE  * BADFILE  H  LOGERR ERRORLOG HFILE NAME UNIT  SEC HD CYL OPERATION + 00IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII3 32LOGERR LHNN8ȀJڀ vLOGERR ..pPLVTOC  P H+O LOGERR    H  #26:EIMLOGERR Q2T]rHHH\L\ LLLOGERR ZF  RESTRICTED TEMPN UTILPRTMSG OKO3LOGERR  !&+057:=BGNQTWY^chr|UUUUU]UUUULOGERR  F^FUUUUUUuQLOGERR &.&&1$.'F'8''1'8''1'G %GAQAPTTLOGERR G &" A   QE@ELOGERR OMq'Yz)/k>!r+sAvA@PPQ@E 3LOGERR 7[ 7y7 9y9/7 >;L>1LE?Q@EELOGERR FAGCHEIGJIYGFL=3=kւ kQEQADPLOGERR S kU kW kSS kSk kDADAELOGERR Av k5z}v-K@EAEDLOGERR kJzP3MASTER @MASTER: 07/11/83  vT:RMASTER vT:RUTILITIES MASTER SCREEN VTOC 8  G00003 0MASTER CONTENTSLETMEI  @ { A. SYSTEM UTILITIES 1. SET DATE & TIME 2. DIS0 MASTER PLAY SYSTEM STATUS3. SYSTEM LIBRARY UPDATE4. BUILD USER LIBRARY 5. ASSIGN DEVIMASTER CES 6. MODIFY DISK TABLES 7. AUTOLOAD BINARY PGM 8. CHANGE SYSRES UNIT 3MASTER  B. COMPILER UTILITIES1. EDIT SOURCE FILE 2. COMPILE SOURCE PGM 3. CROSSMASTER REFERENCE 4. EXECUTE OBJECT PGM 5. CREATE PROC FROM VTOC6. EXECUTE PROC FI MASTER LE  C. COPY UTILITIES |1. COPY DISK IMAGE  |2. COPY SINGLE FILE |3. C MASTER OPY ALL FILES  |4. SORT A FILE  |5. MERGE FILES  | | | | 0MASTER D. PRINT UTILITIES 1. DISK DIRECTORY 2. DISK FILE 3. SCREEN FORMAT 004MASTER 4. FILE INDEXES 5. BINARY DATA 6. DOCUMENT 7. DISK SECTORS  E. VI0 MASTER EW UTILITIES 1. DISK DIRECTORY 2. DISK FILE 3. SPOOL FILE 4. RECEI MASTER VE MESSAGE 5. SEND MESSAGE ( F. DISK UTILITIES |1. FORMAT DISK  |2. I MASTER NITIALIZE DISK  |3. RELABEL DISK PACK |4. DELETE SINGLE FILE  |5. MULTIPLE MASTER FILE DELETE|6. DELETE FILE RECORDS |7. RENAME FILE  | | *?? .;DVL 0IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII4 43MASTER d*INPUT_KEYSN ... :NAME ,E^ 03MASTER ,E^FILE NAME UNIT  SEC HD CYL OPERATION +H VTOC 0MASTER r HL ʀ̀MASTER , (d(<<P$*MASTER d*0L . 4 Ȁ > |L  L Re X ^ d4MASTER j p v |    |  | 4 TIME d MASTER C DATE  ΀M A S T E R U T I L I T I E S ( ")  SYSRESMASTER z  ENTER UTILITY TYPE ?  6y <MESSAGE WAITING B)MASTER ZA ` f l r x6 ~UTILSETD:T C ENTER SYSTEM RESIDENMASTER T UNIT NUMBER ? #  ƀ ̀ Ҁ |; 8 @ ENTER UNIT #  4MASTER  ;DVLD1  ;DVLD2  | # * ;CMPD3 8 {F MASTER L;DVLRENTER NUMBER OF COPIES TO PRINT: Z!1 PRINT LINE NUMBEMASTER RS (Y/N)? N N Y ALIGN PAPER TO TOP OF FIRST PAGE AND %PRESMASTER S ANY KEY WHEN READY: ;DVLD6  %s MESSAGE RECEIVED&t0MASTER :H**NO MESSAGE WAITING**FX`qfENTER DEVICE TO RECEIVE MESSAGE 4MASTER l r.X  VOLUME SERIAL: nʀ..p MASTER #ARE YOU SURE (Y/N)? N FINITIALIZING DISK . ENTER UNIT TMASTER O RELABLE:*DCURRENT VOLUME SERIAL: J ENTER NEW VOLUME SERIAL: ...0MASTER . f)@:ARE YOU SURE (Y/N)? N NSPOOL:FILE ENTER NEMASTER W NAME: ..THIS FILE NAME ALREADY EXISTS.VTOC  J(-.04MASTER ENTER SUBSET NUMBER ? 48 NTA7Z`ENTER PASSWORD ?##f MASTER (np0 UTIL;CMP MASTER PRINT THE ENTIRE FILE (Y/N)? YENTER STARTING KEYS:  MASTER ENTER ENDING KEYS:(   1 J c ̀  }MASTER } |Lh ENTER KEY FIELD # F UTILDSKERR .LOG ERROR (Y/N)? N5MASTER UTILUTIL0 N  ր ʀ ΀ O O        !UUUUUMASTER & + 0 < B G L Q V [ ^ f m u x }  UUUUUUUUUUMASTER      # & ) + 8 < ? B F I P S Z ] b e g j l o q t w z ~ UUUUUUUUUUMASTER      " & ) . 1 6 8UUUUUUUUUMASTER ; > A C N R Y \ b g k m q t y {  UUUUUUUUUUIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII5 54MASTER   %(-/36;ADFMUX_chpruyUUUUUUUUUUMASTER  ',/47<EJOV]dgnvxUUUUUUUUUUMASTER }  ")46=UUUUUUUUUUMASTER CEO[^chjoqrv{~ UUUUUUUUWMASTER $*158;JKOQ {  z wGGd UUUUPQE5MASTER >/"""  ->\&'*&-*G/,52GDMASTER >25A.>DG.GDJ./5/&0*N>RG&RJ.QAPTQPMASTER >5>AD ./5/&0*28; &UZ]`e&]h{~TUEATAUAUMASTER & &]Q & &$ UTQTMASTER   .fef f   ! G5GG ^DPEUQ 5MASTER  {   {&$ {?D {GGG]uQQMASTER  ^ {   {G5" {A  " "GgD]uQAEMASTER GG ^ {   {G8GG ^ {  QwAEEuMASTER {&$ {?f5>f5AAQEMASTER @ G  @ G" {A TEQE5MASTER " "  " 5 >\EMASTER $@!&$6 G& +QDQMASTER @ GD &>A$ C?fC&$DAEQMASTER 6TW$ $<AZ \ &$6r&$ {TPE@UMASTER @&$ GGG ^ {    {TTEET5MASTER P &5&6& $  & {# {PQPEPQMASTER  {&# {  .&5&6& &EATMASTER 5# { 6& O GGG ^APEQEMASTER { & 7 E  N {GC&$ {$?B w&$$uWPQLTADUMASTER A .$ {$&$'$ {$ZUAPAUAT6MASTER 2 {&$6G\B""  && G\$ {DUA@Q@EMASTER #?B wA > :&#$1&H# { 7$K "" PQDUPAUMASTER &$K$D 7G" {A H E&$N[W$ E$^UAPEPPMASTER Z L E"  EG`" {A Q NAh R N" AEQADQMASTER GB\&6w$ \$zAh X Y [&9 T"" BPUQAIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII6 65MASTER   N&&$ {A c {?.A@ATAAEMASTER A f zG/ vA k l vEEEMASTER &5.# { s$ &$` oA t vAAQU@TDQMASTER A u { v { && ^.&DETPTMASTER &  }& +PQQUDE6MASTER " {" 5 >\MASTER $KA Z&$6$ $Z QDQ@UPEMASTER &$   Z  5  g &$ADQDMASTER   Z  "   ! # % '  " FdADQUA@QMASTER dAf dR df  &$ &$EQDA 6MASTER   7 W5 >A   1 >8 AE@DMASTER  G> 3&$6 J 3 5 9&$# 9 9# $# 9QEPTEPUMASTER &$# 9 &$# 9"   ! # % ' Z TQTTMASTER "  Z Fd AZ  dC  + M" T ZQDQTPMASTER " ! Fd &6 V$9 a$ $Z   iAUATDP6MASTER T& l  { & 7 E N {Jd t AUTMASTERZ:O0SEGMENTBLANK oim MACRO (F100)  Z:؀B؂ W` #MASTERZ:M P̀YPp ˆ̈́Pֿ΃ A֣3A ˃lO^`c@AƹJBh cÿ0\b1MASTERZ:Eb P P O=MȀ ĀJCF ;dAP  A fb MASTERZ: "fF   gs   6MASTERZ:QE^\% TȢMQŀLJh ‚>ςMASTERZ:E;9# fbdG  VP ⏽ MASTERZ: H]8a q  X] 9b1FbP O=  MASTERZ:  O=MȀ ĀJMASTERZ:CF ;dAP  A fb  "fF  7MASTERZ: gs   QE^\% TȢMMASTERZ:QŀLJh ‚>ςE;9# fbdMASTERZ:G PRTMSG @PRTMSG: 07/11/83PRINT ERROR MESSAGE [P1rP   PRTMSG [P1r @ ~`Pd_afq0ILNP'0UPIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII7 76PRTMSG SLSNSPSVYUU@RTNPRC @RTNPRC: 07/11/83CONTINUE PROCESSING PR;T:} RTNPRC ;T:} NAME   OC:: VQU3 0RTNPRC QUbGET_PARAMSNYY  0  VTOC VbYp 00RTNPRC LbPr  UTILRTNPRC {ր܀2P* 7RTNPRC !P$ "#/ "/*( > 2$ D $LRTNPRC D4>& V `<UTILl ; x(Y xN  RTNPRC bV^ *** PROGRAM NOT FOUND ***  ^ >> PROCEDURE STATEMENT SYNTAX ER RTNPRC ROR # AT SOURCE LINE ENTER C=CONTINUE EXECUTING PROCEDURE,  'T=RERTNPRC TYPE THIS STATEMENT: 6@TC ZT `TAB=KEEP THIS CHAR, RETURN=KEEP REST 7RTNPRC OF LINE, f.ESC=START LINE OVER:Oz/* END ORTNPRC F PROCEDURE FILEPRESS TO CONTINUE:  #()RTNPRC *68:;@B Dr:(NLb (/* ENDRTNPRC OF PROCEDURE FILEt& M D p, 0  : ĀRTNPRC A Ѐ@ ? HAVE OTHER TERMINALS RETURN TO THE MASTER MENU. 7RTNPRC /MOUNT DISK " " AND ENTER "R" WHEN READY: ,0LR RF XUTILDSKERR^RTNPRC dpJLRUX]bgjqtvy|UUUUUuuRTNPRC    $).6;@CELRW\_cjU]UUUu]UURTNPRC mrtwUUUUUUWUUURTNPRC  #)+-/6:=@EGNPQVY\_hmoruxz}uUUUUUUUU7RTNPRC   "$%(+.5<CHOTUUUu]WUUURTNPRC Y[\`gnqvy~UUuUUUUUWRTNPRC   %(-39<?AHMORX[\afilsuwy|F8RTUuUUUUuTERTNPRC VXCZ] `bi Xb &lorGZvZAzUG qPQ@TPQDRTNPRC ~ZvAP~AJAnJN.ZM>&AEDQ@9RTNPRC ltR&v~vHvZY&TG PEPQARTNPRC &TTA^GqvqbbGDDQPQERTNPRC  /vt.ZGGAqG@AAAQDQQRTNPRC sG0.Zz Ax EDQ@EPRTNPRC G ~RTVX&lo[o$HAoEPTIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII8 8#0RTNPRC 7RTNPRC 7RTNPRC 7RTNPRC 7RTNPRC 7RTNPRC 9RTNPRC 9RTNPRC 9RTNPRC 9RTNPRC 9RTNPRC 9RTNPRC 9RTNPRC 9RTNPRC 9RTNPRC 9RTNPRC 9RTNPRC 9RTNPRC 9RTNPRC 9RTNPRC 9RTNPRC 9RTNPRC 9RTNPRC 9RTNPRC 9RTNPRC 9SETD:T 9SETD:T 9SETD:T 9SETD:T 9SETD:T 9SETD:T 9SETD:T 9SETD:T 9SETD:T 9SETD:T 98#SETD:T :SETD:T :SETD:T :SETD:T :SETD:T :SETD:T :SETD:T :SETD:T :SETD:T :SETD:T :SETD:T :SETD:T :SETD:T :SETD:T :SETD:T :SETD:T :SETD:T :SETD:T  :SETD:T :SETD:T :SETD:T :SETD:T :SETD:T :SETD:T :SETD:T :SETD:T :SETD:T :SETD:T :SETD:T :SETD:T :SETD:T ;SETD:T ;SETD:T ;SETD:T ;SETD:T ; 8#SETD:T ;SETD:T ;SETD:T ;SETD:T ;SETD:T ;SETD:T ;SETD:T ;UTIL0 ;UTIL0  ;UTIL0 ;UTIL0 ;UTIL0 ;UTIL0 ;UTIL0 ;UTIL0 ;UTIL0 ;UTIL0 ;UTIL0 ;UTIL0 ;UTIL0 ;UTIL0 ;UTIL0 ;UTIL0 ;UTIL0 ;UTIL0 ;UTIL0 <UTIL0 <UTIL0 <UTIL0 <UTIL0 <UTIL0 <UTIL0 <UTIL0 <UTIL0 <UTIL0 <8#UTIL0 <UTIL0 <UTIL0 <UTIL0 <UTIL0 <UTIL0 <UTIL0 <UTIL0 <UTIL0  <UTIL0 <UTIL0 <UTIL0 <UTIL0 <UTIL0 <UTIL0 <UTIL0 <UTIL0 <UTIL0 <UTIL0 <UTIL0 <UTIL0 =UTIL0 =UTIL0 =UTIL0 =UTIL0 =UTIL0 =UTIL0 =UTIL0 =UTIL0 =UTIL0 =UTIL0 =UTIL0 =UTIL0 =UTIL0 =UTIL0 =UTIL0 =UTIL0 =UTIL0 =UTIL0 =UTIL0 =UTIL0 =UTIL0 =UTIL0 =UTIL0  =UTIL0 =UTIL0 =UTIL0 =UTIL0 =UTIL0 =UTIL0 =UTIL0 >UTIL0 >UTIL0 >UTIL0 >UTIL0 >UTIL0 >UTIL0 >UTIL0 >UTIL0 >UTIL0 >UTIL0 >UTIL0 >UTIL0 >A2 AA2 AA2 AA2 AA2 AA2 AA2 AA2 AA2  AA2 AA2 AA2 AA2 AA2 AA2 AA2 AA2 AA2  AA3 A3 A3 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII9 97RTNPRC DZ]A@BRB&lDA@EDDRTNPRC r.Z&lt[&RF!A&PAEPAERTNPRC &r&(GM*o>AoA.&lorA1Q@DQEARTNPRC &lo[J&VvZ&lo[TZX.XZ #aYv EPADPPTUPRTNPRC v v &caYX[&a RFBFPADA9RTNPRC  ;&u[&GMo>AoHDPAEDA@RTNPRC  `v AG ZGGAEQDQRTNPRC  vA.ZA@EAQERTNPRC ARF;> vAQQDQPRTNPRC .ZvAvqGAvPTTTET 9RTNPRC qGAvqGA1vqGETETERTNPRC [G ZvAA !TATDQRTNPRC  . Z AvGEEQQRTNPRC  GA G.ZGnvAQQPTqE@RTNPRC AA..An.DEDQD9RTNPRC . GGnZA+GEQQQRTNPRC qZ  A%  #";-EPEDRTNPRC GEDZ]F/,A:DZ";&lo[ &[QDQETRTNPRC $GM&>*86&lo['DZ]eb-R4AADEAURTNPRC C&cA8#HEl>F;DZ]Q@AET@9SETD:T @SETD:T: 07/11/83SET DATE AND TIME ON L$T:En SETD:T $T:E 1 \b8d3129313031303130313031MM/DD/YY00:03 0SETD:T 0:00 /: / / CDSDVDSSZZXVTOC 88B0SETD:T P(^8hz &..pLSETD:T VTOC  ܀@@ڀހ̀ҀT1nހ SET DATE:SETD:T & TIME WITH OPTIONAL DISK CHECK(C{"DISPLAY STATUS OF DISK UNISETD:T TS Y/N[N]? (%N V"\Y bdhnSTATUS OF DISK UNIT'S tfSETD:T VOLUME  TOTAL  USED  % gUNIT NAME CYLINDERS CYL0 SETD:T INDERS USAGE"hTHIS DISK UNIT NOT IN SYSTEMSETD:T 8> 4HNTHIS DISK NOT OPERATIONAL DISK STATUS =IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII: :9SETD:T X+nƀSETD:T ~ SYSRES%-%   #SETD:T Ҁ&zLOPUS-1 IS A TRADE SECRET OF PGD SETD:T INC.R$ENTER DATE z ENTER TIME  1VERSION #  @SERIAL #SETD:T  ր+̀. ؀ހ50 DOOMS DATE SET:SETD:T TO  * ACTIVATED * ENTER D-DATE 2DN2\SETD:T ENTER SERIAL #: bxvSELECT TYPE OF SYSTEM DATE: A=MM/DD/YY, E=DD/MM/YY |SETD:T 3@A E ʀDD/MM/YYMM/DD/YY1 12SETD:T b# &!)$23(0 .594B USETD:T  %*.37:=@DINSX]_dinsx{~UUUUuUUUUU :SETD:T     %*/49CFMPUZ_dglUUUUUUUUUSETD:T qx{ $',16;UUUUUUUUUUSETD:T >CHMPW\aiprwz|UUWWUUUUUSETD:T  )-13:ADKNUX_dinszUU]UUUU]USETD:T  #')*.158;>CFFt.ttUUUUUUU:SETD:T ;1r.uu8uu1u8uu1uG sG G tTEAQQESETD:T ": A9 :).nn.mmPPQ@PTSETD:T .oo.pp.qq/G&D& & APTADDTSETD:T '),%/))2I&&58E&HK]&`d`KwPPQTUSETD:T y>.)1r.uu8uu1uuAX&8PTE:SETD:T 8uu1u1u81G sG G t"c AEEAQQEPSETD:T gF&8G.F8G.G.F8UPTAPSETD:T .Ao.F8.TAQE@SETD:T 8JrGp.8.AQTQTPTSETD:T 8{>>G-A&&}EQEDQAU;SETD:T &|N"  UUATPA@PSETD:T    1L1J1K1M 8ii>$i&'KEEEAQESETD:T ;& C&FN&QX&[b$ky&gj.AUATATE@SETD:T kol>rl-ru.lol.kl.lN>yN.NN.lNl.TQQAPTSETD:T l|l>{l#~A& ky&#Bz)UATDPIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII; ;:SETD:T BAGkyAGky&#B8DQDEAPUUTSETD:T ?l.ll.lol?N.NN.lNl?N.N|N.lNlGEAQAPTSETD:T klA& $$BK$?i$8ii2KA&QEATSETD:T $B)Gly)AGl)AGl4lAyGlHAPTEEEESETD:T 2 MlA4lA2H2I#}EPU;SETD:T #)A,)A,)A,BTEDQESETD:T  0 0 0lA4AP@DQDSETD:T ?NANA?NAN#QEEDESETD:T #  #)A, )A,TPUADQESETD:T )A,B  0  0 0ADQ@DE ;SETD:T  A A2H2IDQDEQQSETD:T 2L/GG !G " BDQEUTIL0 @MASTER: 07/11/83   vT:RUTIL0 vT:RUTILITIES MASTER SCREEN VTOC 8  G00003 0UTIL0 CONTENTSLETMEI  @ { A. SYSTEM UTILITIES 1. SET DATE & TIME 2. DIS0 ;UTIL0 PLAY SYSTEM STATUS3. SYSTEM LIBRARY UPDATE4. BUILD USER LIBRARY 5. ASSIGN DEVIUTIL0 CES 6. MODIFY DISK TABLES 7. AUTOLOAD BINARY PGM 8. CHANGE SYSRES UNIT UTIL0  B. COMPILER UTILITIES1. EDIT SOURCE FILE 2. COMPILE SOURCE PGM 3. CROSSUTIL0 REFERENCE 4. EXECUTE OBJECT PGM 5. CREATE PROC FROM VTOC6. EXECUTE PROC FI UTIL0 LE  C. COPY UTILITIES |1. COPY DISK IMAGE  |2. COPY SINGLE FILE |3. C ;UTIL0 OPY ALL FILES  |4. SORT A FILE  |5. MERGE FILES  | | | | 0UTIL0 D. PRINT UTILITIES 1. DISK DIRECTORY 2. DISK FILE 3. SCREEN FORMAT 00UTIL0 4. FILE INDEXES 5. BINARY DATA 6. DOCUMENT 7. DISK SECTORS  E. VI0 UTIL0 EW UTILITIES 1. DISK DIRECTORY 2. DISK FILE 3. SPOOL FILE 4. RECEI UTIL0 VE MESSAGE 5. SEND MESSAGE ( F. DISK UTILITIES |1. FORMAT DISK  |2. I <UTIL0 NITIALIZE DISK  |3. RELABEL DISK PACK |4. DELETE SINGLE FILE |5. MULTIPLE UTIL0 FILE DELETE|6. DELETE FILE RECORDS |7. RENAME FILE  | | *?? .;DVL 0UTIL0 d*INPUT_KEYSN ... :NAME ,E^ 03UTIL0 ,E^FILE NAME UNIT  SEC HD CYL OPERATION +H VTOC 0UTIL0 r HL ʀ̀IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII< <;UTIL0 , (d(<<P$*UTIL0 d*0L . 4 Ȁ > |L  L Re X ^ dUTIL0 j p v |    |  | 4 TIME d UTIL0 C DATE  ΀M A S T E R U T I L I T I E S ( ")  SYSRESUTIL0 z  ENTER UTILITY TYPE ?  6y <MESSAGE WAITING B)<UTIL0 ZA ` f l r x6 ~UTILSETD:T C ENTER SYSTEM RESIDENUTIL0 T UNIT NUMBER ? #  ƀ ̀ Ҁ |; 8 @ ENTER UNIT # UTIL0  ;DVLD1  ;DVLD2  | # * ;CMPD3 8 {F UTIL0 L;DVLRENTER NUMBER OF COPIES TO PRINT: Z!1 PRINT LINE NUMBEUTIL0 RS (Y/N)? N N Y ALIGN PAPER TO TOP OF FIRST PAGE AND %PRES <UTIL0 S ANY KEY WHEN READY: ;DVLD6  %s MESSAGE RECEIVED&t0UTIL0 :H**NO MESSAGE WAITING**FX`qfENTER DEVICE TO RECEIVE MESSAGE UTIL0 l r.X  VOLUME SERIAL: nʀ..p UTIL0 #ARE YOU SURE (Y/N)? N FINITIALIZING DISK . ENTER UNIT TUTIL0 O RELABLE:*DCURRENT VOLUME SERIAL: J ENTER NEW VOLUME SERIAL: ...0<UTIL0 . f)@:ARE YOU SURE (Y/N)? N NSPOOL:FILE ENTER NEUTIL0 W NAME: ..THIS FILE NAME ALREADY EXISTS.VTOC  J(-.0UTIL0 ENTER SUBSET NUMBER ? 48 NTA7Z`ENTER PASSWORD ?##f UTIL0 (np0 UTIL;CMP UTIL0 PRINT THE ENTIRE FILE (Y/N)? YENTER STARTING KEYS:  <UTIL0 ENTER ENDING KEYS:(   1 J c ̀  }UTIL0 } |Lh ENTER KEY FIELD # F UTILDSKERR .LOG ERROR (Y/N)? NUTIL0 UTILUTIL0 N  ր ʀ ΀ O O        !UUUUUUTIL0 & + 0 < B G L Q V [ ^ f m u x }   UUUUUUUUUUUTIL0      # & ) + 8 < ? B F I P S Z ] b e g j l o q t w z ~ UUUUUUUUUU=UTIL0      " & ) . 1 6 8UUUUUUUUUUTIL0 ; > A C N R Y \ b g k m q t y {  UUUUUUUUUUUTIL0   %(-/36;ADFMUX_chpruyUUUUUUUUUUUTIL0  ',/47<EJOV]dgnvxUUUUUUUUUUUTIL0 }  ")46=UUUUUUUUUUIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII= =/"""  ->\&'*&-*G/,52GDUTIL0 >25A.>DG.GDJ./5/&0*N>RG&RJ.QAPTQPUTIL0 >5>AD ./5/&0*28; &UZ]`e&]h{~TUEATAUAU=UTIL0 & &]Q & &$ UTQTUTIL0   .fef f   ! G5GG ^DPEUQUTIL0  {   {&$ {?D {GGG]uQQUTIL0  ^ {   {G5" {A  " "GgD]uQAEUTIL0 GG ^ {   {G8GG ^ {  QwAEEu =UTIL0 {&$ {?f5>f5AAQEUTIL0 @ G  @ G" {A TEQEUTIL0 " "  " 5 >\EUTIL0 $@!&$6 G& +QDQUTIL0 @ GD &>A$ C?fC&$DAEQ=UTIL0 6TW$ $<AZ \ &$6r&$ {TPE@UUTIL0 @&$ GGG ^ {    {TTEETUTIL0 P &5&6& $  & {# {PQPEPQUTIL0  {&# {  .&5&6& &EATUTIL0 5# { 6& O GGG ^APEQE=UTIL0 { & 7 E  N {GC&$ {$?B w&$$uWPQLTADUUTIL0 A .$ {$&$'$ {$ZUAPAUATUTIL0 2 {&$6G\B""  && G\$ {DUA@Q@EUTIL0 #?B wA > :&#$1&H# { 7$K "" PQDUPAUUTIL0 &$K$D 7G" {A H E&$N[W$ E$^UAPEPP>UTIL0 Z L E"  EG`" {A Q NAh R N" AEQADQUTIL0 GB\&6w$ \$zAh X Y [&9 T"" BPUQAUTIL0   N&&$ {A c {?.A@ATAAEUTIL0 A f zG/ vA k l vEEEUTIL0 &5.# { s$ &$` oA t vAAQU@TDQIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII> >=UTIL0 A u { v { && ^.&DETPTUTIL0 &  }& +PQQUDEUTIL0 " {" 5 >\UTIL0 $KA Z&$6$ $Z QDQ@UPEUTIL0 &$   Z  5  g &$ADQD>UTIL0   Z  "   ! # % '  " FdADQUA@QUTIL0 dAf dR df  &$ &$EQDAUTIL0   7 W5 >A   1 >8 AE@DUTIL0  G> 3&$6 J 3 5 9&$# 9 9# $# 9QEPTEPUUTIL0 &$# 9 &$# 9"   ! # % ' Z TQTT >UTIL0 "  Z Fd AZ  dC  + M" T ZQDQTPUTIL0 " ! Fd &6 V$9 a$ $Z   iAUATDPUTIL0 T& l  { & 7 E N {Jd t AUTA2 @SYSTAT: 08/02/83DISPLAY SYSTEM STATUS xT: G000(lp A2 xT:G000(lp  O OFPPV\TIME >A2 blSYSTEM STATUS ( r)  BUF-CNT =  fLOGICAA2 L PHYSICALg΀%ԀSTATUS DEVICE TYPENAME0A2 NUMBER-PROGRAM NAME ;.INT.4VEC.<ADCH. JGRA2 OVERLAY XFdADD. LEN. j \\dA2 hzN46"LP2T CRT TERMINAL P >A2 PRINTER R READERC COMM. LINE L &B ,BATCH TCB 2 U @A2 UTILITY TCB F Z VAUX PROCESSOR \ X nDISABLEDt^*^A2 ?@Gv(ʀЀBրQVA2 4ACTIVE IDLE = 4Q IDC ENTER "S" = STOPA2 A DEVICE, "M" = MODIFY DEVICE ( )&2s\{b0h[M rx~AA2 (S ENTER PHYSICAL DEVICE NUMBER B€̀A2 D`$   &0>FJORWZ_fhoxUUUUuUA2  $&+.16;@CJX`dlqtw|UUUUWU]UUA2  !%*,15UUUUUUUuA2 9<?FMRT[`dfkoty|0GUUWUUUuUQIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII? ? 1@ 2@ 3@ 4@ 5@ 6@ 7@ 8@ 9@ 10@ 11@ 12@ 13@ 14@ 15@ 16 @ 17 @ 18 @ 19 @ 20 @ 21@ 22@ 22@IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII@ @B Display 23 lines from BEGIN CURSOR. 1D Display 23 source lines by line number. Control character functions :- 2 A insert character or text Q center text lines  3 B back cursor by 1 position R tab backward (10 apart) 4 C advance to next page S go to first line on CRT 5@ D delete character or text U set 'BEGIN CURSOR' 6 E add or copy or split line V set 'END CURSOR' 7 F advance cursor by 1 position W tab foreward to user defined tab 8 G pack text X kill source lines 9 J tab foreward (10 apart) Y display 23 lines from BEGIN CURSOR 10 @ K go down to next line Z Go back to privious line 11 O go back to previous page 12E Display 23 lines from 'END CURSOR'  13F Interchange primary and secondary source file. 14H Display the help file 'HELP-WORD' 15@K kill source lines by line number. 16L Search for label (word which starts at column 1) 17M Move columns of data.  18N Search for first word (first word of a source line) 19R Renumber source file lines. 20@T User define tab position. 21W Search and replace or display any word. 22END OF HELP FILE.DUMMY LINE TO STOP END-OF-FILE ERROR ON 'HELP'  22IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIA A>A2 &&&& & QUPTUPUUA2  #'&*03:1 >@8.E. H&KNHSP.UUPUPTTA2 PY.A\EYA_\@YAa\EY_\@YDEEEPA2 aAEcegikAncv kAyc kA@ETE PA2 c kAc kAc kAc kAEPEPAA2 c kAc kAcA.E8EPE1APA2 E1@.1i@/A/e./A.TTDPTEA2 .>gG8.E>Y&DQE@A2 QcQiQkQ&QeQgGUUUUQDQA2 A&QQ3PV1 @>EQCAUATT AA2  /&K A&,GE.$2577A:1 >@8.QPEQTEAA2 E.SP.PY.AxA.<8E1i@QAQDETA2 $xQi2i@$xQk@BY.?E?2k?@>$xQAQTUA2 &Q?.?@?2H?@PVx7AK&\$?AAQQTDQAAA2 EP@P?APYx@BP.?^?2k?EETE@EAA2 @x7Ab1 >@..@...@.&E?1.@./i/&DEAQDA2 ..@.?f%7x1.l BYC8E.8EEQAM@A2 010uEDAIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIB 8A@QTEDQ.8.8A'9G8GDPTEQT@B BBBIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIC * * * * * * * * * * * * * * * 5031  5032S 2,0 5033TEMP_S 2,0  5034CEND_OF_FILE 2,3 5035DISK_FULL 2,4  5036ERROR_HEADER 79  5037 REDEFINES ERROR_HEADER 5038 FILLER 40,'FILE NAME UNIT ' 5039 C FILLER 39,' SEC HD CYL OPERATION' 5040G_M_BUFFER 79  5041 REDEFINES G_M_BUFFER  5042 FILLER 15 5043MESSAGE 26  5044C RESUME 5045*  5046GET_MESSAGE ENTRY  5047 DISKSTATUS S,G_M_BUFFER 5048 RETURN GET_MESSAGE  5049C*/$ 5050DISK_ERROR  5051*  5052ERROR_HEADER 79 5053 REDEFINES ERROR_HEADER  5054D FILLER 40,'FILE NAME UNIT ' 5055 FILLER 39,' SEC HD CYL OPERATION' 5056MESSAGE 79  5057 RESUME 5058*/$  5059IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIID  5061\9 PAGE"PAGE" INPUT_BEEP 5062INPUT_BEEP 5063  5064D* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 5065*  * 5066* INPUT_BEEP: BEEP UNTIL OPERATOR RESPONDS *  5067* * 5068* MAKE_NOISE = <'Y' TO BEEP, ELSE DON'T BEEP> * 5069 D* CURSOR = * 5070* GOSUB INPUT_BEEP  * 5071* *  5072* IF OPERATOR HITS , GO TO "ABORT" * 5073* IF OPERATOR HITS , RETURN FROM SUBROUTINE * 5074D* * 5075* ON RETURN, RESPONSE = OPERATOR'S SINGLE-CHAR * 5076* RESPONSE *  5077* MAKE_NOISE = 'N' * 5078*  * 5079D* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 5080  5081CURSOR 2,0  5082MAKE_NOISE 1,'Y' 5083RESPONSE 1  5084E 5085BINBEEP 2,:0007 ;ASCII CRTL-G 5086 REDEFINES BINBEEP  5087 FILLER 1 5088 BEEP 1  5089IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIE  5091*  5092INPUT_BEEP ENTRY 5093*  5094E IF MAKE_NOISE EQ 'Y' THEN 5095 MAKE_NOISE = 'N'  5096BEEP_LOOP  5097 OUTPUT BEEP 5098 WATCHDOG BEEP_LOOP,100 5099 E ELSE 5100  5101 INPUT ABORT,RTN_IB .123.CURSOR,RESPONSE  5102RTN_IB 5103 RETURN INPUT_BEEP  5104E 5105*/$  5106\2 FILE_CONTROL_BLOCK  5107\0 5108\9  PAGE"PAGE" FILE_CONTROL_BLOCK 5109EFILE_CONTROL_BLOCK 5110  5111* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  5112* * 5113* FILE_CONTROL_BLOCK: DESCRIPTIVE BREAKDOWN OF FCB LAYOUT * 5114F* * 5115* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 5116  5117FILE_CONTROL_BLOCK START ;LENGTH = 76 5118 VTOC_PART START ;LENGTH = 46 INFORMATION RECORDED IN VTOC 5119IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIF  2,0 5121 STARTING_INDEX_EXTENT 2,0  5122 ENDING_DATA_SECTOR 2,0 5123 ENDING_DATA_EXTENT  2,0 5124F FILE_PROTECT 2,0 5125 CYLINDER_COUNT  2,0 5126 FILE_TYPE 2,0 ;NONZERO = INDEX ONLY FILE  5127 LOGICAL_RECORD_LENGTH 2,0 5128 LOGICAL_KEY_LENGTH  2,0 ;LENGTH OF CONCATENATED KEY FIELDS 5129 F KEY_FIELD 2(5) ;KEY FIELDS IN RECORD: LENGTH, OFFSET 5130 CREATION_DATE  8 5131 END VTOC_PART  5132 CURRENT_DATA_SECTOR 2,0 5133 CURRENT_DATA_EXTENT 2,0 5134F CURRENT_DATA_RECORD 2,0 5135 CURRENT_INDEX_SECTOR 2,0 5136 CURRENT_INDEX_EXTENT 2,0  5137 CURRENT_INDEX_RECORD 2,0 5138 OPEN_FLAG 2,0 ;NONZERO = OPEN 5139F DRIVE_UNIT 2,0 5140 STARTING_VTOC_EXTENT 2,0 5141 KEY_BUFFER 2(5) ;KEY FIELDS IN BUFFER: LENGTH, OFFSET  5142 BUFFER 2,0 ;ADDRESS OF PROGRAM RECORD BUFFER 5143 END FILE_CONTROL_BLOCK  5144G 5145*/$  5146\2 PROC_LINKAGE  5147\0 5148\9  PAGE"PAGE" PROC_LINKAGE 5149IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIG  5151* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  5152* * 5153* PROC_LINKAGE  FRI 17 JUL 81 * 5154G* * 5155* PROVIDES INITIAL LINKAGE NEEDED FOR A PROGRAM * 5156* WHICH CAN BE RUN BY A PROCEDURE FILE. *  5157* SHOULD BE FIRST EXECUTABLE STATEMENT OF PROGRAM. * 5158*  * 5159 G* ON DROP-THROUGH: * 5160* IF PROC1 NE 0 (THEN CALLED BY PROC) * 5161* *  5162* PROGRAM TERMINATION ("SAVE" STATEMENT NEEDED * 5163* ONLY IF SAVE AREA HAS BEEN DESTROYED): * 5164G* * 5165* IF PROC1 NE 0 THEN  * 5166* SAVE PROC_FILE,PROC_BUFFER,PARAMETERS,RETURN_PROGRAM *  5167* CHAIN RETURN_PROGRAM * 5168* ELSE  * 5169G* * 5170*  * 5171* * * * W A R N I N G * * * *  5172* * 5173* ANY GET OR PUT STATEMENT TO PROC_FILE *MUST* SPECIFY * 5174H* THE RECORD BUFFER BEING READ OR WRITTEN (PROC_RECORD) * 5175*  * 5176* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  5177 5178WORDMARK  5179IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIH  5181 TERMINAL 2,0  5182 END TERM 5183  5184HPARAMETERS START 5185 ALPHA 10(20)  5186 BIN 2(20)  5187 END PARAMETERS 5188  5189 HPROC_RECORD START 5190 PROC_BUFFER 80  5191 LINE_N 4.0,' '  5192 LINE_N_B 2 5193 END PROC_RECORD  5194H 5195RETURN_PROGRAM 10  5196  5197PROC_FILE FILE,'PROC::::',0,PROC_RECORD,LINE_N,LINE_N_B 5198 REDEFINES PROC_FILE  5199H PROC1 2,0 5200 FILLER 58  5201 PROC_UNIT 2,0  5202 RESUME 5203  5204JEJECT 5205 SAVESTATUS TERMINAL  5206 RESTORE PROC_FILE,PROC_BUFFER,PARAMETERS,RETURN_PROGRAM  5207 5208*/$  5209IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 5215J5216J5217J5218J5219J5220J5221J5222J5223J5224J5225 J5226 J5227 J5228 J5229 J5230J5231J5232J5233J5234J5235J5236J5237J5238J5239J5240K5241K5242K5243K5244K5245KI)5246K5247K5248K5249K5250K5251K5252K5253K5254K5255 K5256 K5257 K5258 K5259 K5260K5261K5262K5263K5264K5265K5266K5267K5268K5269K5270L5271L5272L5273L5274L5275L5276L5277L5278L5279L5280L5281L5282L5283L5284L5285 L5286 L 5287 L5288 L5289 L5290L5291L5292L5293L5294L5295L5296L5297L5298L5299L5300IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIJ  5211\9 PAGE"PAGE" GET_PARAMS 5212GET_PARAMS 5213  5214J* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 5215*  * 5216* GET_PARAMS: THU 23 JUL 81 *  5217* * 5218* DECODE PARAMETERS IN PROC RECORD. * 5219 J* * 5220*  * 5221* [ PROGRAM_EXECUTING = ] *  5222* [ FIRST_COL = ] * 5223* [ MOUNT_VOL_SER = --Y/N> ] * 5225* GOSUB GET_PARAMS  * 5226* *  5227* * 5228* ON RETURN:  * 5229J* MORE_PARAMS EQ 'N' => NO PARAMETERS FOUND; VALUES * 5230* OF ALPHA AND BIN UNDEFINED * 5231* MORE_PARAMS EQ 'Y' => ALPHA & BIN HAVE VALUES AS *  5232* IF JUST STARTED BY PROC * 5233*  * 5234K* MOUNT_VOLSER EQ 'Y' => DISK WITH REQUESTED VOL * 5235*  SER IS MOUNTED * 5236* (NOTE: IF THE STMT SPECIFIES MORE THAN ONE, *  5237* NO TEST IS MADE TO PREVENT OPERATOR FROM * 5238* REMOVING ONE DISK WHILE MOUNTING ANOTHER.) * 5239IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIK UE => NOT MOUNTED/DISK ERROR* 5241* BIN(I) NE BAD_VALUE => FOUND ON UNIT BIN(I) *  5242* WHERE BIN(I) CORRESPONDS TO THE VOL SER SPECIFIED * 5243* IN ALPHA(I)  * 5244K* * 5245*  * 5246* NOTES: *  5247* MUST FOLLOW: * 5248* *INCLUDE,'INCLUDELIB',,PROC_LINKAGE * 5249 K* * 5250* WHEN PROGRAM RETURNS TO PROC, IT *MUST* * 5251* *  5252* IF PROC1 NE 0 THEN * 5253* SAVE PROC_FILE,PROC_BUFFER,PARAMETERS,RETURN_PROGRAM * 5254K* CHAIN RETURN_PROGRAM * 5255* ELSE  * 5256* *  5257* PROGRAM MUST ALSO INCLUDE: * 5258* *INCLUDE,'INCLUDELIB',,INPUT_BEEP * 5259K* * 5260* USES THE EXTERNAL BINARY FIELD "S" FOR DISK STATUS* 5261* *  5262* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 5263  5264LPROGRAM_EXECUTING 10,'GET_PARAMS' 5265FIRST_COL 2,1 ;COLUMN TO BEGIN SCANNING 5266MORE_PARAMS 1,'N'  5267MOUNT_VOLSER 1,'Y' ;HAVE OPERATOR MOUNT PACK IF NECESSARY WHEN 5268 ; @ SPECIFIED IN PROC STMT 5269IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIL  5271SYSDATE START  5272 SYSMONTH 2 5273 FILLER 1  5274L SYSDAY 2 5275 FILLER 1  5276 SYSYEAR 2  5277 END SYSDATE 5278  5279 LBAD_VALUE 2,32767 5280ASCII_ZERO 2,0  5281 REDEFINES ASCII_ZERO  5282 FILLER 1 5283 AZERO 1,'0'  5284L RESUME 5285REQ_VOLSER 8  5286SOURCE_COL 2,0  5287SAVED_COL 2,0 5288PARAMETER_N 2,0  5289LBASE 2,0 5290DIGIT 2,0  5291 REDEFINES DIGIT  5292 FILLER 1 5293 LAST_CHAR 1  5294 RESUME 5295BIN_VALUE 2,0  5296VALUE_TYPE 2,0  5297ALPHA_VALUE_COL 2,0 5298ALPHA_VALUE_SIZE 2,10 ;DIMENSION OF ALPHA_CHAR 5299