Commodore 1581 - Page 68

1480 GOSUB 59990
1500 GOSUB 59990
1510 CLOSE 1
1520 GOSUB 59990
9980 CLOSE 15
9990 END
59980 REM CHECK DISK SUBROUTINE
59990 INPUT#15,EN,EM$,ET,ES
60000 IF EN>1 AND EN<>50 THEN PRINT
EN,EM$,ET,ES:STOP
60010 RETURN
BASIC 7.0:
1380 INPUT'ENTER RELATIVE FILE NAME";FI$
1390 INPUT'ENTER MAX. # OF RECORDS";NR
1400 INPUT'ENTER RECORD LENGTH";RL
1410 DOPEN#1,(FI$),L(RL)
1420 GOSUB 60000
1450 RECORD#1,(NR)
1455 RECORD#1,(NR)
1460 GOSUB 60000
1470 PRINT#1,CHR$(255);
1480 GOSUB 60000
1500 GOSUB 60000
1510 CLOSE 1
1520 GOSUB 60000
9980 CLOSE 15
9990 END
59980 REM CHECK DISK SUBROUTINE
60000 IF DS>1 AND DSO50 THEN PRINT
DS,DS$:STOP
60010 RETURN
Now the file can be safely
closed
And the command chan
nel closed
Before we end the pro
gram
Error check subroutine
Ignore "RECORD NOT
PRESENT11
Select file parameters
Begin to create desired
file
Check for disk errors
Calculate length values
Position to last record
number
Send default character to
it
Now the file can be safely
closed
And the command chan
nel closed
Before we end the pro
gram
Error check subroutine
Ignore "RECORD NOT
PRESENT'1
Two lines require additional explanation. When line 1470 executes, the
disk drive will operate for up to several minutes, creating all the re
cords in the file, up to the maximum record number you selected in
line 1390. This is normal, and only needs to be done once. During the
process you may hear the drive motor turning and an occasional slight
click as the head steps from track to track. Second, line 60000 above is
59