tests/programs/write_input.bas

10 REM WRITE#/INPUT# and EOF test
20 OPEN "gwbasic_wi_test.txt" FOR OUTPUT AS #1
30 WRITE #1, "Alice", 25
40 WRITE #1, "Bob", 30
50 CLOSE #1
60 OPEN "gwbasic_wi_test.txt" FOR INPUT AS #1
70 WHILE NOT EOF(1)
80 INPUT #1, N$, A
90 PRINT N$; A
100 WEND
110 CLOSE #1
120 KILL "gwbasic_wi_test.txt"
Phase 3: file I/O, PRINT USING, SAVE/LOAD, MID$ assignment, graphics stubs 2026-02-10 11:53:28 -05:00			`10 REM WRITE#/INPUT# and EOF test`
Add README, implement KILL/NAME, use relative paths in tests 2026-02-10 15:53:57 -05:00			`20 OPEN "gwbasic_wi_test.txt" FOR OUTPUT AS #1`
Phase 3: file I/O, PRINT USING, SAVE/LOAD, MID$ assignment, graphics stubs 2026-02-10 11:53:28 -05:00			`30 WRITE #1, "Alice", 25`
			`40 WRITE #1, "Bob", 30`
			`50 CLOSE #1`
Add README, implement KILL/NAME, use relative paths in tests 2026-02-10 15:53:57 -05:00			`60 OPEN "gwbasic_wi_test.txt" FOR INPUT AS #1`
Phase 3: file I/O, PRINT USING, SAVE/LOAD, MID$ assignment, graphics stubs 2026-02-10 11:53:28 -05:00			`70 WHILE NOT EOF(1)`
			`80 INPUT #1, N$, A`
			`90 PRINT N$; A`
			`100 WEND`
			`110 CLOSE #1`
Add README, implement KILL/NAME, use relative paths in tests 2026-02-10 15:53:57 -05:00			`120 KILL "gwbasic_wi_test.txt"`