100 REM Purpose: Verify CREATE command
110 REM  Author: Howard Wulf, AF5NE
120 REM    Date: 2015-12-23
130 REM
200 CREATE "CREATE_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 CLOSE 777
300 OPEN "CREATE_1.TXT" AS 333
310 FOR I = 1 TO 10
320   READ # 333; B$
330   PRINT B$
340 NEXT I
350 CLOSE 333
999 END

