5  REM P9=0 Don't print data as it is written. p9=1 do print it.
10  P9=0
30  DIM S$[255],B$[255],T$[255],C$[255],C1$[255]
40  L=1
50  FILES *,*
60  F1=2
61  PRINT "Output file:";
62  LINPUT B$
63  ASSIGN B$,2,Z9
70  REM ASSIGN FILE:
80  PRINT "INPUT FILE: ";
90  LINPUT T$
100  ASSIGN T$,1,R
105  IF R<3 THEN 110
106  GOTO 120
110  GOTO 160
120  PRINT '10'7"ERROR  OCCURRED IN FILE ASSIGN,  YOU MUST  USE AN ASCII"
130  PRINT "FILE THAT CONTAINS A DUMP OF YOUR SWAP, THE IOP, OR SYS."
150  STOP 
160  O=0
170  C$="000001010011100101110111"
180  PRINT 
190  PRINT "start: ";
200  REM
210  LINPUT T$
220  IF  NOT LEN(T$) THEN 270
230  IF  NOT POS(T$,"O") THEN 270
240  T$=T$[1,POS(T$,",")-1]
250  O=1
270  CONVERT T$ TO S1,1397
280  IF  END #1 THEN 340
290  IF  ERROR  THEN 800
300  LINPUT #1;S$
305  PRINT 
310  CONVERT S$[1,7] TO S2,1342
320  IF S2<S1 THEN 300
330  GOTO 390
340  PRINT "...start location not found"
350  GOTO 180
360  IF  END #1 THEN 790
370  REM(C)--------------------------START
380  LINPUT #1;S$
390  CONVERT S$[1,7] TO X,1450
400  GOTO 430
410  PRINT #F1;S$
420  GOTO 370
430  PRINT #F1;'13
431  PRINT #F1;S$[1,5];"--> ";
433  IF  NOT P9 THEN 440
434  PRINT 
435  PRINT S$[1,5];" -- ";
440  FOR X=13 TO LEN(S$) STEP 7
450  T$=S$[X-5,X]
460  B$=T$[1,1]
470  FOR Y=2 TO 6
480  CONVERT T$[Y,Y] TO Y1
490  B$[2+(Y-2)*3]=C$[1+Y1*3,3+Y1*3]
500  NEXT Y
510  REM---------------------------
520  FOR X1=0 TO 1
530  T$=B$[1+X1*8,8+X1*8]
540  T=T1=0
550  FOR Y=8 TO 1 STEP -1
560  IF T$[Y,Y]="0" THEN 580
570  T=T+2**T1
580  T1=T1+1
590  NEXT Y
600  T3=T
610  IF T<128 THEN 630
620  T3=T-128
630  IF T3>31 THEN 650
640  T3=T3+64*(T3<32)
650  C1$=CHR$(T3)
660  IF T3#64 AND T3#32 AND T3#127 THEN 680
670  C1$="."
680  PRINT #F1; USING "#,A";C1$
682  IF  NOT P9 THEN 690
685  PRINT  USING "#,A";C1$
690  NEXT X1
700  NEXT X
710  IF  NOT O THEN 770
720  IF L<56 THEN 750
730  L=1
745  PRINT '12
750  PRINT #F1; USING "#,2X,67A";S$[8]
755  PRINT  USING "#,2X,67A";S$[8]
760  L=L+1
770  REM
780  GOTO 370
790  REM(C)-------------------------COMPLETE
800  PRINT "Error #";SYS(0);"In line #";SYS(1);
810  PRINT "last file accessed was"SYS(2)
820  END 
