1 Topic by macca

  • macca
  • esxDOS User
  • Offline
  • Registered: 2019-03-13
  • Posts: 10

Topic: TR-DOS: Random file access streams doesn't work

Hi,

The following sample program attempts to read and write to a random access file, it doesn't work at all and returns 'Nonsense in BASIC' at line 30.

   10 LET DOS=15619
   20 RANDOMIZE USR DOS: REM : OPEN #5,"ADDRESS"RND, 64
   30 PRINT #5; 0,"RECORD 0"
   32 PRINT #5; 1,"RECORD 1"
   34 PRINT #5; 10,"RECORD 10"
   40 INPUT #5; (1), A$: PRINT A$
   42 INPUT #5; (0), A$: PRINT A$
   90 RANDOMIZE USR DOS: REM : CLOSE #5

Works on FUSE with Betadisk enabled.