Posted by Grant Foraker on May 20, 2004 at 11:28:59:
Old program has the following to read a pointer file in reverse order. When the file is empty there is no Error 2 and the program aborts with an Error 32 on the INQUIRE. cosw.336 etc.
6400 OPEN (2) 'O0' ! ORDER POINTER
6500 OPEN (3) 'O1A' ! ORDER HEADER
6600 FILE (2) POS=EOF
6700 FILE (2) REVERSE
6800 LET X = 1
6900 LET SORNBR$(1) = '
7000 3010!
7100 LET RECKEY$ = KEY(2, EXCP = 9000)
7200 INQUIRE (2,1500) KEY = RECKEY$