![]() |
BCX Console Demonstration Program S10.bas |
DIM
a$DIM
z a$=
"Test"
OPEN
a$FOR
OUTPUT
AS
fp1 ?"Creating test file ..."
FOR
z=
1
TO
1000
FPRINT
fp1,"This is line no."
,STR$
(
z)
NEXT
zCLOSE
fp1OPEN
a$FOR
INPUT
AS
fp1WHILE
NOT
EOF
(
fp1)
LINE
INPUT
fp1, a$ ? a$WEND
CLOSE
fp1CLS
?"Removing Test file"
KILL
"test"