2026-02-10 12:11:25 -05:00
|
|
|
10 REM Random-access file I/O test
|
2026-02-10 15:53:57 -05:00
|
|
|
20 OPEN "R", #1, "gwbasic_random.dat", 32
|
2026-02-10 12:11:25 -05:00
|
|
|
30 FIELD #1, 20 AS N$, 4 AS A$, 8 AS S$
|
|
|
|
|
40 LSET N$ = "Alice"
|
|
|
|
|
50 LSET A$ = MKI$(25) + " "
|
|
|
|
|
60 LSET S$ = MKD$(50000.5)
|
|
|
|
|
70 PUT #1, 1
|
|
|
|
|
80 LSET N$ = "Bob"
|
|
|
|
|
90 LSET A$ = MKI$(30) + " "
|
|
|
|
|
100 LSET S$ = MKD$(75000.25)
|
|
|
|
|
110 PUT #1, 2
|
|
|
|
|
120 GET #1, 1
|
|
|
|
|
130 PRINT LEFT$(N$, 5); CVI(A$);
|
|
|
|
|
140 GET #1, 2
|
|
|
|
|
150 PRINT LEFT$(N$, 3); CVI(A$)
|
|
|
|
|
160 CLOSE #1
|
2026-02-10 15:53:57 -05:00
|
|
|
170 KILL "gwbasic_random.dat"
|
