home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / pb / library1 / rmex085.bas < prev    next >
Encoding:
BASIC Source File  |  1990-08-30  |  559 b   |  21 lines
  1. OPEN "R", #1, "CVISLD1.DTA", 18
  2. 'Set up random-access file fields
  3. MAP #1, 2 AS IntVar$$, 4 AS LongIntVar$$,_
  4.     4 AS SinglePreVar$$, 8 AS DoublePreVar$$
  5.  
  6. 'Write data to file, convert it, and assign it
  7. 'to the buffer before writing it to the data file
  8. FOR I% = 1 TO 5
  9.   IntVar$$ = MKI$(I%)
  10.   LongIntVar$$ = MKL$(20^I%)
  11.   SinglePreVar$$ = MKS$(COS(I%))
  12.   DoublePreVar$$ = MKD$(COS(I%)^I%)
  13.   PUT #1,I%
  14. NEXT I%
  15. FOR I% = 1 TO 5
  16.   GET #1, I%
  17.   PRINT CVI(IntVar$$);CVL(LongIntVar$$),_
  18.     CVS(SinglePreVar$$), CVD(DoublePreVar$$)
  19. NEXT I%
  20. CLOSE #1
  21. END