1! ATG8-- WORK SHEET WITH TRIAL BALANCE AND ADJUSTING ENTRIES PRINTED
5 DEF FNK$=NUM$(ASCII(RIGHT(SYS(CHR$(6)+CHR$(9)),2%))/2%)
10!
	HEADER INFORMATION

100 INPUT"NAME";N$
110 INPUT"COMPANY";C1$
120 &"DATE";:INPUTLINE D1$
125!
	CHAIN TO RDCRD FOR TRANSACTIONS

130 V$=SYS(CHR$(8)+"ATG8"+CVT%$(192)+CVT%$(1%)+N$+"/"+C1$+"/"+D1$)
135 &:&"ENTER YOUR TRANSACTION ENTRIES":&
140 CHAIN"$RDCRD"
150!
	SUBROUTINE TO EXTRACT INFO FROM COMMON CORE

155 V$=SYS(CHR$(7))
160 K%=CVT$%(LEFT(V$,2)):V$=RIGHT(V$,3)
170 I%=INSTR(1%,V$,"/"):N$=LEFT(V$,I%-1%):V$=RIGHT(V$,I%+1%)
180 I%=INSTR(1%,V$,"/"):C1$=LEFT(V$,I%-1%):D1$=RIGHT(V$,I%+1%)
191 RETURN
192 GOSUB 155
194!
	CHAIN TO WCOMP FOR WORKSHEET COMPUTATIONS

195 &"WORKSHEET COMPUTATIONS BEING PERFORMED"
196 V$=SYS(CHR$(8)+"ATG8"+CVT%$(210)+CVT%$(K%)+N$+"/"+C1$+"/"+D1$)
200 CHAIN"$WCOMP"
210 GOSUB 155
250!
	CHAIN TO RDCRD FOR ADJUSTING ENTRIES

260 V$=SYS(CHR$(8)+"ATG8"+CVT%$(280)+CVT%$(2%)+N$+"/"+C1$+"/"+D1$)
265 &:&"ENTER YOUR ADJUSTING ENTRIES":&
270 CHAIN "$RDCRD"20
280 GOSUB 155
330!
	CHAIN TO GENJE FOR JOURNAL OF TRANSACTIONS

340 OPEN "ENTRY." + FNK$ AS FILE 4:DIM#4,A(63,1):K%=A(61,0)
350V$=SYS(CHR$(8)+"ATG8"+CVT%$(370)+CVT%$(1%)+CVT%$(1%)+CVT%$(1%)+CVT%$(K%)+N$+"/"+C1$+"/"+D1$)
355 &"JOURNAL OF TRANSACTIONS IS BEING GENERATED"
360 CHAIN"$GENJE"
370 GOSUB 155
450!
	CHAIN TO GENJE FOR JOURNAL OF ADJUSTING ENTRIES

455 OPEN"ENTRY." + FNK$ AS FILE 4:K2%=A(62,0):CLOSE 4
460V$=SYS(CHR$(8)+"ATG8"+CVT%$(480)+CVT%$(2%)+CVT%$(2%)+CVT%$(K%+1%)+       +CVT%$(K2%)+N$+"/"+C1$+"/"+D1$)
465 &"JOURNAL OF ADJUSTING ENTRIES IS BEING GENERATED"
470CHAIN"$GENJE"
480 GOSUB 155
540!
	CHAIN TO LEDGR FOR LEDGER

550 V$=SYS(CHR$(8)+"ATG8"+CVT%$(570)+CVT%$(K%)+N$+"/"+C1$+"/"+D1$)
555 &"LEDGER IS BEING GENERATED"
560 CHAIN"$LEDGR"
570 GOSUB 155
660!
	CHAIN TO WORKS FOR WORKSHEET

670 V$=SYS(CHR$(8)+"ATG8"+CVT%$(690)+CVT%$(K%)+N$+"/"+C1$+"/"+D1$)
675 &"WORKSHEET IS BEING GENERATED"
680 CHAIN"$WORKS"
690 KILL"ENTRY." + FNK$
695 KILL "SAVE."+FNK$
700 &:&"OUTPUT FILE FOR KB:"; FNK$; "IS READY FOR DUMPING":&
2000 END