     10 REM randomr.bas
     20 REM
     30 OPEN "random.dat" FOR RANDOM AS #1 LEN=14
     40 FIELD #1, 2 AS i$, 4 AS s$, 8 AS d$
     50 REM
     60 FOR i= 1 TO 9
     70         GET #1
     80         PRINT CVI (i$), CVS (s$), CVD (d$)
     90 NEXT
    100 REM
    110 CLOSE 1
    120 REM
    130 END
    140 REM
    150 REM End of randomr.bas
