home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / CONV2PAS.ZIP / MSPBAS1.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-11-25  |  522 b   |  16 lines
  1. 70  DRIVE$ = "A"
  2. 80  DPATH$ = "\"
  3. 110  OPEN "R",1,DRIVE$ + ":" + DPATH$ + "MASTER",53
  4. 120  FIELD 1,53 AS F$
  5. 130  GET 1,1
  6. 140  NUMFILES = CVI(F$)
  7. 150  CLS
  8. 170  FIELD 1,1 AS A$,2 AS B$,1 AS C$,1 AS D$,1 AS E$,1 AS F$,16 AS G$,2 AS H$,4 AS I$,4 AS J$,1 AS K$,2 AS L$,16 AS M$
  9. 171  PRINT "Rec.Num";TAB(10);"Name";TAB(30);"File";TAB(40);"Beg-Date";TAB(50);"End-Date";TAB(60);"Fields"
  10. 190  FOR LOOP = 1 TO NUMFILES
  11. 200   GET 1, LOOP + 1
  12. 210   IF ASC(G$)=0 THEN LOOP=NUMFILES: GOTO 280
  13. 220  PRINT LOOP;TAB(10);G$;TAB(30);ASC(A$);".DAT";TAB(40);CVS(I$);TAB(50);CVS(J$);TAB(60);ASC(D$)
  14. 270  NEXT LOOP
  15. 280  CLOSE 1
  16.