home *** CD-ROM | disk | FTP | other *** search
/ norge.freeshell.org (192.94.73.8) / 192.94.73.8.tar / 192.94.73.8 / pub / computers / cpm / alphatronic / BASCOM.ZIP / RANTEST.BAS < prev    next >
BASIC Source File  |  2000-08-07  |  384b  |  17 lines
  1. 00100    defint i-n
  2. 00200    recsiz%=32
  3. 00300    open "R",1,"B:RANTEST.ASC",recsiz%
  4. 00400    for i=1 to 20
  5. 00500      print #1, using "$$#,###.##   ";1000*i,102.34*i*i
  6. 00600      put 1,i
  7. 00700    next i
  8. 00800    for i=1 to 20
  9. 00900      get 1,i
  10. 01000      line input #1, prices$
  11. 01100      print i,prices$
  12. 01200    next i
  13. 01300    close 1
  14. 01400    end
  15. r i=1 to 20
  16. 00900      get 1,i
  17. 01000      line input #1, prices