' test.bas version 47 CLS ' q$ = "This" x$ = "is" y$ = "a" z$ = "test" w$ = "record" rec% = 1 ' OPEN "R", #1, "test.txt", 50 FIELD #1, 10 AS A$, 10 AS B$, 10 AS C$, 10 AS D$, 10 AS E$ FOR x% = 1 TO 5 STEP 1 LSET A$ = q$ LSET B$ = x$ LSET C$ = y$ LSET D$ = z$ RSET E$ = w$ ' PUT 1, rec% rec% = rec% + 1 NEXT x% CLOSE 1 CLEAR ' OPEN "R", #1, "test.txt", 50 FIELD 1, 10 AS A$, 10 AS B$, 10 AS C$, 10 AS D$, 10 AS E$ GET 1, 2 ' PRINT A$ PRINT B$ PRINT C$ PRINT D$ PRINT E$ CLOSE 1 ' ------------------------------------------ TheEnd: END ' ------------------------------------------