🚀 go-pugleaf

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
--------------------------------------------------------------------------