home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / Information / 256KB.ROS-V1.SFX / reltest (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-04-28  |  331 b   |  13 lines
  1. 10 REM * RELATIVE FILE TEST *
  2. 20 OPEN 15,8,15,"I0"
  3. 30 OPEN 2,8,2,"0:RELAX,L,"+CHR$(30)
  4. 40 FOR I=1 TO 50:PRINT#15,"P"CHR$(2)CHR$(I)CHR$(0)CHR$(0);:GOSUB200
  5. 50 PRINT#2,"[212]HIS IS RECORD NO"STR$(I):NEXT
  6. 60 FOR I=50 TO 1 STEP-1:PRINT#15,"P"CHR$(2)CHR$(I)CHR$(0)CHR$(0);:GOSUB200
  7. 70 INPUT#2,A$:PRINTA$:NEXT
  8. 80 CLOSE 2:CLOSE 15
  9. 90 END
  10. 200 INPUT#15,EN,EN$,ET,ES:IF EN=0 THEN RETURN
  11. 210 PRINT EN;EN$;ET;ES:WAIT 198,15:GETA$:IF A$=" " THEN RETURN
  12. 220 GOTO 80
  13.