home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / progc / itcmar91.arj / BASIC1.BAS next >
Encoding:
BASIC Source File  |  1991-09-07  |  855 b   |  29 lines
  1. 100 '*********************************************************************'
  2. 110 '  BASIC1.BAS -- create a random file named "BASIC.IN"                '
  3. 120 '*********************************************************************'
  4. 130 '
  5. 140 open "R", 1, "BASIC.IN",34
  6. 150 field 1,2 as n1$, 20 as n2$, 4 as n3$, 8 as n4$
  7. 160 '
  8. 170 ' Write some records in it
  9. 180 '
  10. 190 for i=1 to 5
  11. 200    read a$, n!, o#
  12. 210    print I,A$,N!,o#
  13. 220    lset n1$ = mki$(i)
  14. 230    lset n2$ = a$
  15. 240    lset n3$ = mks$(n!)
  16. 250    lset n4$ = mkd$(o#)
  17. 260    put 1
  18. 270 next i
  19. 280 close 1
  20. 290 '
  21. 300 ' The data to write
  22. 310 '
  23. 320 data "Marco",    -4.3,        7.654321987654321
  24. 330 data "Blake",     9.407745,  -3.1415E6
  25. 340 data "Joe",      -17300.65,   1.414
  26. 350 data "Jeff",      1048577,    16.39999900002
  27. 360 data "Tony",      10995,     -999
  28. 370 end
  29.