100 ! LOOK**VERSION 2**(RSTS 6B)**15-6-77 ! MAINLY FOR INSPECTING GRAPH1/2 FILES 110 ! INITIALIZE ! 120 NO EXTEND\ ONERRORGOTO400 \ DIMB$(64%) \ &"LOOK"\&"----"\& \ &"NAME OF FILE TO BE COPIED";\INPUTLINEC$\C%=INSTR(1%,C$,"/")\ IFC%THENA$=LEFT(C$,C%-1%)ELSEA$=C$ 150 ! THREE OPTIONS:- ! 1) ASCII FILE COPY ! 2) RECORD I/O FILE INSPECTION ! 3) RECORD I/O TRANSFER ! FOR OPTION 1 - JUST FILE NAME & SIMPLE ASCII INSPECTION FOLLOWS ! FOR OPTION 2 - FILENAME WITH TRAILING '/' ! FOR OPTION 3 - FILENAME/DESTINATION FILE IS FORMAT NOTE THAT THIS ONLY APPLIES TO RECORD I/O FILES OF THE GRAPH1/2 STRUCTURE. 170 OPENA$FORINPUTASFILE1%\&CHR$(12)+CHR$(8)+CHR$(140%)\GOTO250IFC% 175 ! SIMPLE ASCII TRANSFER TO KB: 180 INPUTLINE#1%,B$\&B$;\GOTO180 190 ! END OF ASCII TRANSFER !------------------------------------------------! 200 CLOSE1%\&\GOTO780 240 ! RECORD I/O DATA FILE TRANSFER ! 250 O$=CVT$$(RIGHT(C$,C%+1%),4%)\ GOTO300IFO$=""\ OPENO$FOROUTPUTASFILE2% 260 IFBUFSIZ(1%)<>BUFSIZ(2%)THENFIELD#I%,510%ASB$(I%)FORI%=1%TO2% ELSE290 270 GET#1%\LSETB$(2%)=B$(1%)\PUT#2%\GOTO270 290 GET#1%\PUT#258%\GOTO290 295 ! END OF RECORD I/O TRANSFER ! !---------------------------------------! 298 ! INSPECT RECORD I/O DATA FILE CONTENTS ! 300 V%=LEN(CVTF$(1))\ FIELD#1%,2*V%*(I%-1%)ASM$,2*V%ASB$(I%)FORI%=1%TO255%/V%\ GET#1%\N%=CVT$%(B$(1%))\&"N%=";N%\ W%=2%\L%=1%\C$=MID(B$(1%),3%,1%)\IFC$="S"THEN600 310 GOTO200IFN%<1% 320 FORJ%=W%UNTILJ%=255%/V%+1%ORL%=N%+1%\ &CVT$F(B$(J%)),CVT$F(RIGHT(B$(J%),V%+1%));\&UNLESSC$="S"\ &" "+MID(S$,L%,1%)IFC$="S"\ L%=L%+1%\NEXTJ%\IFL%260ANDERL<295THENCLOSE1%,2%ELSE500 420 RESUME1000 500 IFERR=11THENRESUME200 505 IFERR=47THENCLOSE1%\OPENA$ASFILE1%\RESUME300 520 ONERRORGOTO0 530 ! END OF ERROR ROUTINE ! !-------------------------------! 590 ! SYMBOL INSPECTION FOR RECORD I/O INSPECT ! 600 IFSTATUS>=0%ORSTATUSAND8192% THEN &"SYMBOLS STORED BUT NOT ACCESSIBLE."\ &"USE TRANSFER OPTION TO PLACE COPY ON DISC TO INSPECT SYMBOLS." \ C$="N"\&\GOTO310 620 R%=-INT(-(1.+N%)/(255%/V%))\GET#1%,RECORDR%\ FIELD#1%,510%ASM$\ S$=RIGHT(M$,(N%+1%)*V%*2%-(R%-1%)*(2%*V%*(255%/V%))+1%)+""\ IFLEN(S$)"Y"THEN1000ELSE &"REALLY DESTROY ";A$; 820 INPUTC$\IFLEFT(C$,1%)="Y"THENKILLA$\&A$;" DELETED." 1000 END Ready