10!
   JOURNAL, LEDGER, TRIAL BALANCE

19!
   HEADER INFORMATION

20 INPUT"NAME";N$
30 INPUT"COMPANY";C1$
40 &"DATE";:INPUT LINE D1$
49!
   PREPARE TO GO TO RDCRD

50 V$=SYS(CHR$(8)+"ATG5"+CVT%$(70)+CVT%$(1%)+N$+"/"+C1$+"/"+D1$)
60 CHAIN"$RDCRD"
70 GOSUB270
79!
   PREPARE TO GO TO GENJE

80 V$=SYS(CHR$(8)+"ATG5"+CVT%$(110)+CVT%$(1%)+CVT%$(2%)+CVT%$(1%)+
    CVT%$(K%)+N$+"/"+C1$+"/"+D1$)
90 &"JOURNAL IS BEING GENERATED"
100 CHAIN"$GENJE"
110 GOSUB 270
119!
    PREPARE TO GO TO LEDGER

120 V$=SYS(CHR$(8)+"ATG5"+CVT%$(150)+CVT%$(K%)+N$+"/"+C1$+"/"+D1$)
130 &"LEDGER IS BEING GENERATED"
140 CHAIN"$LEDGR"
150 GOSUB 270
159!
    PREPARE TO GO TO TRBAL

160 V$=SYS(CHR$(8)+"ATG5"+CVT%$(190)+CVT%$(1%)+CVT%$(K%)+N$+"/"+C1$+"/"+
    D1$)
170 &"TRIAL BALANCE IS BEING GENERATED"
180 CHAIN"$TRBAL"
190 ON ERROR GOTO 230
200 DEF FNK$=NUM$(ASCII(RIGHT(SYS(CHR$(6)+CHR$(9)),2%))/2%)
210 OPEN"Z."+FNK$ FOR INPUT AS FILE 1: CLOSE 1
220 KILL "Z."+FNK$ : CHAIN "$ATG6"90
230 IF ERR<>5% THEN RESUME 240 ELSE RESUME 250
240 ON ERROR GOTO 0
245 KILL "SAVE."+FNK$
250 &:&"OUTPUT FILE FOR KB:";FNK$;"IS READY FOR DUMPING":&:GOTO300
260!
    REMOVING INFORMATION FROM COMMON CORE

270 V$=SYS(CHR$(7))
271 K%=CVT$%(LEFT(V$,2))
272 V$=RIGHT(V$,3) : I%=INSTR(1%,V$,"/")
273 N$=LEFT(V$,I%-1%) : V$=RIGHT(V$,I%+1%)
274 I%=INSTR(1%,V$,"/") : C1$=LEFT(V$,I%-1%)
275 D1$=RIGHT(V$,I%+1%)
290 RETURN
300 END