BCX Console Demonstration Program s113.bas

 DIM A$ * 5000
 
 OPEN "JUNK.BIN" FOR BINARY NEW AS FP1  ' ************************** 
 A$ = REPEAT$(500, CHR$(248)) & "Hello" '     Create a data file 
 PUT$ FP1, A$, LEN(A$)                  '         to explore 
 CLOSE FP1                              ' ************************** 
 
 CLS
 OPEN "JUNK.BIN" FOR INPUT AS FP1      ' ************************** 
 SEEK  FP1,500                         '  Now lets read it, 
 GET$  FP1,A$,6                        '  starting at the end 
 PRINT A$                              '  of the file then 
 SEEK  FP1,0                           '  go back to the beginning 
 GET$  FP1,A$,1000                     '  of the file 
 PRINT
 PRINT A$                              '  and clean up after 
 CLOSE FP1                             '  ourselves. 
 KILL  "JUNK.BIN"                      ' **************************