home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug043.ark / FILEINIT.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  1.2 KB  |  41 lines
  1.     REMARK    THIS PROGRAM INITIALIZES THE DATA FILES TO BE USED
  2.     REMARK      IN THE ACCOUNTS PAYABLE & RECEIVABLE PROGRAMS.
  3.  
  4. %INCLUDE CURSOR
  5.     DIM R$(10),R1(10),R2(10),P(6),G2$(5),G3(5)
  6.     GOTO 1
  7.  
  8. %INCLUDE A/P-INFO
  9. %INCLUDE GENINFO
  10. %INCLUDE A/RTAX
  11. %INCLUDE A/R-INFO
  12. %INCLUDE G/L-INFO
  13.  
  14.  
  15. 1    PRINT CLEAR.SCREEN$;"DATA FILE INITIALIZATION PROGRAM"
  16.     PRINT "ENTER 'RETURN' TO BEGIN, 'END' TO EXIT"
  17.     INPUT LINE A$
  18.     IF A$="END" THEN \
  19.         PRINT CLEAR.SCREEN$;"EXITING":\
  20.         STOP
  21.     INPUT"OPEN THE G/L FILES ALSO (Y/N)?";GL$
  22.     PRINT:PRINT "WORKING... DO NOT INTERRUPT"
  23.     CREATE "A/P0F020.DAT" RECL 580 AS 1,"A/P0F030.DAT" RECL 86 AS 2,\
  24.     "A/P0F030.PST" AS 3,"A/P0F110.DAT" RECL 162 AS 4,\
  25.     "A/P0F120.DAT" RECL 580 AS 5,"CRT" RECL 1100 AS 6,"A/P0F130.DAT" AS 7,\
  26.     "G/I0F010.DAT" AS 8,"A/R0F020.DAT" RECL 226 AS 9,\
  27.     "A/R0F110.DAT" RECL 162 AS 10,"A/R0F120.DAT" RECL 226 AS 11,\
  28.     "A/R0F030.DAT" AS 12,"A/R0F130.DAT" AS 13
  29.     IF GL$="Y" THEN \
  30.         CREATE "G/L0F020.DAT" RECL 36 AS 15,\
  31.         "G/L0F110.DAT" RECL 157 AS 16,"G/L0F130.DAT" AS 17
  32.     PRINT #3;0
  33.     X0=7:GOSUB 3350
  34.     Y9=8:GOSUB 720
  35.     A1=12:GOSUB 3750
  36.     FILE.NO=13:GOSUB 3.15
  37.     IF GL$="Y" THEN \
  38.         FILE.NO%=17:GOSUB .315
  39.     PRINT CLEAR.SCREEN$;"FILE INITIALIZE COMPLETE"
  40.     STOP
  41.