100 REM Purpose: Verify CREATE command
110 REM  Author: Howard Wulf, AF5NE
120 REM    Date: 2015-12-23
130 REM
200 CREATE "DELETE_1.TXT" AS 777
210 FOR I = 1 TO 10
220   LET A$ = "THIS IS LINE " + STR$(I)
230   PRINT # 777; A$
240 NEXT I
250 DELETE 777
300 IF END 333 THEN 500
310 OPEN "DELETE_1.TXT" AS 333
320 PRINT "TEST FAILED - FILE NOT DELETED"
330 GOTO 999
500 PRINT "TEST PASSED"
999 END
