home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG089.ARK / READFILE.BAS < prev    next >
BASIC Source File  |  1984-04-29  |  907b  |  43 lines
  1.     Rem This is READFILE.BAS used to read name,date,formats and tabs.
  2.  
  3.  
  4. %INCLUDE ALL.BAS
  5.     DIM T%(20),A(16),D$(8),N(2,2),DATE1$(8)
  6.     PRINT CLEAR$
  7.     REM GET DATES
  8.     PRINT:PRINT "LOADING DATES"
  9.     OPEN "B:DATE" AS 1
  10.     READ#1;N$
  11.     CLOSE 1
  12.     Z9=1
  13.     FOR Z=1 TO 8
  14.     D$(Z)=MID$(N$,Z9,8)
  15.     DATE1$(Z)=D$(Z)
  16.     Z9=Z9+8
  17.     NEXT Z
  18.     Z9=0
  19.     REM READ FORMAT STRINGS FOR % AND VALUES
  20.     PRINT:PRINT "LOADING FORMATS"
  21.     OPEN "B:GLF" AS 1
  22.     READ#1;LLL$,PPP$
  23.     CLOSE 1
  24.     REM READ TAB VALUE
  25.     PRINT:PRINT "LOADING TABS"
  26.     OPEN "B:GLT" AS 1
  27.     READ#1;T%(1),T%(2),T%(3),T%(4),T%(5),T%(6),T%(7),T%(8),T%(9),\
  28.         T%(10),T%(11),T%(12),A(13),A(14),A(15),A(16)
  29.     CLOSE 1
  30.     REM READ NAME FILE
  31.     A5=T%(12)
  32.     PRINT:PRINT "LOADING NAMES"
  33.     OPEN "B:NM" RECL 170 AS 1
  34.     Z3=(SIZE("B:NM")*BLOCK.SIZE)/170
  35.     FOR Z2=1 TO Z3
  36.     READ#1,Z2;N(2,1),N(2,2),N$
  37.     IF N(2,1)=A5 THEN 100
  38.     NEXT Z2
  39. 100    CLOSE 1
  40.     CO.NAME$=N$
  41.     BIZMII.FLAG=1
  42.     CHAIN "BIZMII"
  43.