2 ! RESTORES INVOICE, PURCHASE ORDER, AND G. J. FILES FROM DECTAPE!
5 ! PROGRAM NAME: "RESIPG" - BY JAC.
8 ON ERROR GOTO 80
10 INPUT "IS THIS THE MIDDLE OF THE MONTH? - Y OR N";E$:IF E$="Y" THEN A$="IN1":
	B$="PO1":C$="GJ":GOTO 15
12 IF E$<>"N" THEN 10 ELSE A$="IN2":B$="PO2"
15 OPEN "DT0:ACCPAY."+B$ FOR INPUT AS FILE 1%:INPUT LINE #1%,D$:
	D%=VAL(LEFT(D$,LEN(D$)-3%))
20 OPEN "DK1:ACCPAY.PO" AS FILE 2%:DIM #2%,P$(1000%)=64%,P%(0%)
25 FOR K%=1% TO D%:INPUT LINE #1%,D$:D$=LEFT(D$,64%):P$(K%)=D$:
	NEXT K%
30 P%(0%)=D%:CLOSE 1%,2%
40 OPEN "DT0:ACCPAY."+A$ FOR INPUT AS FILE 1%:INPUT LINE #1%,D$:
	D%=VAL(LEFT(D$,LEN(D$)-3%))
45 OPEN "DK1:ACCPAY.INV" AS FILE 2%:DIM #2%,I$(600%)=128%,I%(0%)
50 FOR K%=1% TO D%:INPUT LINE #1%,D$:I$(K%)=LEFT(D$,79%):NEXT K%:I%(0%)=D%:
	CLOSE 1%,2%
55 GOTO 70 IF E$="N":OPEN "DT0:ACCPAY."+C$ FOR INPUT AS FILE 1%:INPUT LINE #1%,
	D$:D%=VAL(LEFT(D$,LEN(D$)-3%))
60 OPEN "DK1:ACCPAY.GJ" AS FILE 2%:DIM #2%,G$(50%)=128%,G%(0%)
65 FOR K%=1% TO D%:INPUT LINE #1%,D$:G$(K%)=LEFT(D$,79%):NEXT K%:G%(0%)=D%:
	CLOSE 1%,2%
70 STOP
80 IF ERR<>5% THEN ON ERROR GOTO 0 ELSE 70
90 END