vogt@iaoobelix (12/09/87)
I think I found a bug in BASIC-PLUS of RSTS V8.0. The following program isn't working in the right way. I tried to read some records from a file and to store them in an array. But after I read and stored all records, the array was completely empty. > 10 ON ERROR GOTO 1000 > 15 DIM IN$(100%) > 20 FIELD #1%, 3% as a$, 20% as i$, 15% as q$ > 30 OPEN 'foobar' as file #1%, recordsize 38% > 40 Z% = 0% > 50 Z% = Z% + 1% > 60 GET #15%, RECORD Z% > 70 IN$(Z%) = I$ > 75 PRINT IN$(Z%) > 80 GOTO 50 > 90 CLOSE #1% > 100 PRINT IN$(I%) FOR I% = 1% TO Z% - 1% > 110 GOTO 32767 > 1000 IF ERR = 11 THEN RESUME 90 > 1010 ON ERROR GOTO 0 > 32767 END The outputs in line 75 are alright, but those in line 100 aren't. Only blank lines appear there. I found out that if you change line 70 to 'IN$(Z%) = LEFT$(I$, 20%)' - which does nearly nothing different - it works correctly. Does anybody know a patch for this bug? Or does anybody know how to avoid this in an other way? Thanks in advance Gerald Vogt -------------------------------------------------------------------------- Fraunhofer Institut fuer Arbeitswirtschaft und Organisation Holzgartenstrasse 17 D-7000 Stuttgart 1 UUCP: ...{uunet!unido,pyramid}!iaoobel!vogt W-Germany Phone: (W-Germany) 711 6648191 --------------------------------------------------------------------------