bwBASIC/C77A/CREATE_2.BAS

100 REM Purpose: Verify CREATE command
110 REM  Author: Howard Wulf, AF5NE
120 REM    Date: 2015-12-23
130 REM

200 CREATE "CREATE_2.TXT" RECL 64 AS 777
210 FOR I = 10 TO 1 STEP -1
220   LET A$ = "THIS IS LINE " + STR$(I)
230   PRINT # 777, I; A$
240 NEXT I
250 CLOSE 777
300 OPEN "CREATE_2.TXT" RECL 64 AS 333
310 FOR I = 10 TO 1 STEP -1
320   READ # 333, I; B$
330   PRINT B$
340 NEXT I
350 CLOSE 333
999 END