home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / CONV2PAS.ZIP / MSPBAS2.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-11-25  |  591 b   |  20 lines
  1. 70  DRIVE$ = "A"
  2. 80  DPATH$ = "\"
  3. 90  FILENAME$ = "F7.DAT"
  4. 95  NUMFIELDS = 7
  5. 120  OPEN "R",1,DRIVE$ + ":" + DPATH$ + FILENAME$, 4*NUMFIELDS
  6. 130  FIELD 1, 4 * NUMFIELDS AS A$
  7. 140  GET 1,1
  8. 150  NUMRECS = CVI(MID$(A$,3))
  9. 160  PRINT "There are "; NUMRECS; " in this file"
  10. 180  IF NUMFIELDS = 7 THEN GOTO 196
  11. 190  FIELD 1, 4 AS DT$, 4 AS HIGH$, 4 AS LOW$, 4 AS CLSE$, 4 AS VOL$
  12. 194  GOTO 200
  13. 196  FIELD 1, 4 AS DT$, 4 AS OPN$, 4 AS HIGH$, 4 AS LOW$, 4 AS CLSE$, 4 AS VOL$, 4 AS OI$
  14. 200  REM
  15. 220  FOR LOOP = 2 TO NUMRECS
  16. 230    GET 1, LOOP
  17. 240  PRINT LOOP;TAB(10);CVS(DT$);TAB(20);CVS(HIGH$);TAB(30);CVS(LOW$);TAB(40);CVS(CLSE$);TAB(50);CVS(VOL$)
  18. 300  NEXT LOOP
  19. 310  CLOSE 1
  20.