home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / f / g-l.lbr / FILEINIT.BZS / FILEINIT.BAS
Encoding:
BASIC Source File  |  1993-10-26  |  768 b   |  26 lines
  1.     REMARK        THIS PROGRAM INITIALIZES THE DATA FILES
  2.     REMARK        TO BE USED IN THE GENERAL LEDGER PROGRAMS
  3.     REMARK  MODIFIED BY J.A.WOOLLEY, 12/81
  4.  
  5. %INCLUDE CURSOR
  6.     DIM G2$(5),G3(5)
  7.     GOTO 1
  8.  
  9. %INCLUDE GENINFO
  10. %INCLUDE G/L-INFO
  11.  
  12.  
  13. 1    PRINT CLEAR.SCREEN$;"DATA FILE INITIALIZATION PROGRAM"
  14.     PRINT "ENTER 'RETURN' TO BEGIN, 'END' TO EXIT"
  15.     INPUT LINE A$
  16.     IF A$="END" THEN \
  17.         PRINT CLEAR.SCREEN$;"EXITING":\
  18.         STOP
  19.     PRINT:PRINT"WORKING... DO NOT INTERRUPT"
  20.     CREATE "G/L0F110.DAT" RECL 157 AS 1,"G/L0F020.DAT" RECL 36 AS 2,\
  21.     "G/L0F030.DAT" RECL 36 AS 3,"G/L0F130.DAT" AS 4,"CRT" RECL 1100 AS 5,\
  22.     "G/I0F010.DAT" AS 6
  23.     Y9=6:GOSUB 720
  24.     FILE.NO%=4:GOSUB .315
  25.     PRINT CLEAR.SCREEN$;"FILE INITIALIZE COMPLETE"
  26.