100 CLS
110 LINE INPUT "Device driver filename: ",F$
120 IF LEN(F$)=0 THEN STOP
130 IF F$=SPACE$(LEN(F$)) THEN GOTO 260
140 ON ERROR GOTO 280
150 OPEN F$ FOR INPUT AS #1
160 CLOSE
170 OPEN F$ AS #1 LEN=1
180 FIELD 1,1 AS BYTE$
190 LINE INPUT "Enter the number of devices to support: ",N$
200 GET 1,6
210 IF BYTE$<CHR$(128) THEN 230
220 PRINT "This is a character device!":BEEP:GOTO 260
230 '
240 N=VAL(N$):LSET BYTE$=CHR$(N)
250 PUT 1,11
260 CLOSE
270 SYSTEM
280 PRINT :PRINT "File not found":BEEP
290 RESUME 100