5  DIM A$[255],B$[255],C$[255],D$[255],E$[255]
10  FILES *
20  PRINT "Input File:";
30  LINPUT A$
35  ASSIGN A$,1,A
40  PRINT LIN(-1);"Starting Location in Octal:";
45  PRINT 
50  PRINT "Return alone to start at beginning:";
60  LINPUT B$
62  IF  NOT LEN(B$) THEN 500
65  CONVERT B$ TO B,1070
70  IF  NOT LEN(B$) THEN 500
100  IF  END #1 THEN 1000
110  READ #1;C$
115  IF LEN(C$)<5 THEN 110
120  CONVERT C$[1,5] TO O,1158
130  IF O >= B THEN 500
140  GOTO 110
500  IF  END #1 THEN 5000
510  IF TYP(1)#2 THEN 2000
515  READ #1;A$
520  IF  NOT POS(A$,'13) THEN 3000
530  PRINT A$[1,POS(A$,'13)-1];"      ";
535  READ #1;A$
540  PRINT A$[1,POS(A$,'13)-1]
550  GOTO 510
1000  IF  ERROR  THEN 1010
1005  READ #1,1
1007  GOTO 1020
1010  READ #1
1015  PRINT #1;CTL(24)
1020  IF  ERROR  THEN 9998
1030  GOTO 500
2000  READ #1;A
2010  PRINT " ("'7;A;") <=== NUMERIC"
2020  GOTO 510
3000  PRINT 
3010  PRINT " [";A$;"] "'7
3020  GOTO 510
5000  PRINT LIN(-2)
5010  GOTO 9999
9998  PRINT '7"Error"
9999  END 
