home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug044.ark / FILEINIT.BAS < prev    next >
Encoding:
BASIC Source File  |  1985-02-10  |  1.0 KB  |  30 lines
  1.     REMARK        THIS PROGRAM INITIALIZES THE DATA FILES
  2.     REMARK        TO BE USED IN THE GENERAL LEDGER PROGRAMS
  3.  
  4. %INCLUDE CURSOR
  5.     DIM G2$(5),G3(5)
  6.     GOTO 1
  7.  
  8. %INCLUDE GENINFO
  9. %INCLUDE G/L-INFO
  10.  
  11.  
  12. 1    PRINT CLEAR.SCREEN$;"DATA FILE INITIALIZATION PROGRAM"
  13.     PRINT "ENTER 'RETURN' TO BEGIN, 'END' TO EXIT"
  14.     INPUT LINE A$
  15.     IF A$="END" THEN \
  16.         PRINT CLEAR.SCREEN$;"EXITING":\
  17.         STOP
  18.     PRINT:PRINT"WORKING... DO NOT INTERRUPT"
  19.     CREATE "G/L0F110.DAT" RECL 157 AS 1,"G/L0F020.DAT" RECL 36 AS 2,\
  20.     "G/L0F030.DAT" RECL 36 AS 3,"G/L0F130.DAT" AS 4,"CRT" RECL 1100 AS 5,\
  21.     "G/I0F010.DAT" AS 6
  22.     FILE.NO%=6:GOSUB 720
  23.     FILE.NO%=4:GOSUB .315
  24.     PRINT CLEAR.SCREEN$;"FILE INITIALIZE COMPLETE"
  25.  >í╔O:µ>╩ y/O>í╔:µ8╩# α═█
  26. á╔ ═╔█
  27. >╙>═█
  28. >═█
  29. >█╔AA«@«7 END) $
  30. TRANSFER COMPLETE, REBOOTIN