home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / cpm / utils / a / bascom.arc / RANTEST.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-03-28  |  1.4 KB  |  22 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###.##   ";1000*i,102.34*i*i
  18. 00600      put 1,i
  19. 00700    next i
  20. 00800    for i=1 to 20
  21. 00900      get 1,i
  22. 01000      line input #1, pricesσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσ