Files
gw-basic-2026/tests/programs/file_io.bas
T

13 lines
302 B
QBasic
Raw Normal View History

10 REM File I/O test
20 OPEN "gwbasic_fio_test.txt" FOR OUTPUT AS #1
30 PRINT #1, "Hello from GW-BASIC"
40 PRINT #1, "Second line"
50 CLOSE #1
60 OPEN "gwbasic_fio_test.txt" FOR INPUT AS #1
70 LINE INPUT #1, A$
80 LINE INPUT #1, B$
90 CLOSE #1
100 PRINT A$
110 PRINT B$
120 KILL "gwbasic_fio_test.txt"