home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Boston 2
/
boston-2.iso
/
DOS
/
PROGRAM
/
BASIC
/
POWBASIC
/
LIBRARY1
/
EXAMP1.ZIP
/
RMEX085.BAS
< prev
next >
Wrap
BASIC Source File
|
1990-08-30
|
559b
|
21 lines
OPEN "R", #1, "CVISLD1.DTA", 18
'Set up random-access file fields
MAP #1, 2 AS IntVar$$, 4 AS LongIntVar$$,_
4 AS SinglePreVar$$, 8 AS DoublePreVar$$
'Write data to file, convert it, and assign it
'to the buffer before writing it to the data file
FOR I% = 1 TO 5
IntVar$$ = MKI$(I%)
LongIntVar$$ = MKL$(20^I%)
SinglePreVar$$ = MKS$(COS(I%))
DoublePreVar$$ = MKD$(COS(I%)^I%)
PUT #1,I%
NEXT I%
FOR I% = 1 TO 5
GET #1, I%
PRINT CVI(IntVar$$);CVL(LongIntVar$$),_
CVS(SinglePreVar$$), CVD(DoublePreVar$$)
NEXT I%
CLOSE #1
END