10 !    CASTST.BAS - TESTS PROGRAM FOR WILKINSON ACCOUNTING SET
		     *<THIS PROGRAM CONTAINS THE CORRECT ENTRIES>*
		     *<FOR THE MARCH SET INTERNALLY IN DATA STATEMENTS>*
20 DIMA(30)
30 DIM Z(5,3),C(70,4),A$(72),B$(10)
40 OPEN "$CASE1.DAT" FOR INPUT AS FILE 1%
50 DIM #1%,A1(30),N(30),B(32),I$(28)=64
60 MAT A=A1
70 INPUT"TYPE IN YOUR NAME, CLASS, AND SECTION NUMBER"A$
80 INPUT"DO YOU WANT INSTRUCTIONS";B$
90 IF LEFT(B$,1%)="Y" THEN 100 ELSE IF LEFT(B$,1%)="N" THEN 110 ELSE
    PRINT"PLEASE ANSWER 'YES' OR 'NO'" : GOTO 80
100 PRINT I$(X) FOR X=1 TO 28
110 PRINT "PLEASE TYPE IN THE MONTH CODE AND THE ENDING"
120 INPUT"INVENTORY FIGURE SEPERATED BY COMMAS";M,P1
130 IF M=3 THEN 140 ELSE PRINT "THE MONTH CODE IS INCORRECT" :
           GOTO 110
140 A1,N3,N4,T,Z = 0
150 Z=1
160 PRINT "TRANS. ACC."
170 PRINT " NO.   NO.   DR. CR."
180 PRINT "--------------------"
190 READ N,N1,D,C
200 IF N3<>0 THEN 230
210 N3=N
220 N4=N
230 IF N=9999 THEN 290
240 FOR X=1 TO 30
250 IF N(X)=N1 THEN 290
260 NEXT X
270 PRINT N1 "IS AN INVALID ACCOUNT NO.  RE-ENTER THE ENTIRE LINE"
280 GOTO 190
290 IF N=N4 THEN 460 ELSE IF A1<=.01 AND A1>=-.01 THEN 390
300 PRINT"IN TRANSACTION NO."N4"THE DEBITS AND CREDITS ARE NOT EQUAL"
310 PRINT"TO CHANGE NO."N4"TYPE CHANGE. TO CONTINUE WITH NO."N"TYPE"
320 PRINT"CONTINUE [CAUTION: NO."N4"WILL BE BOOKED OUT OF BALANCE],"
330 PRINT"OR TYPE IN STOP TO STOP THE PROGRAM."
340 INPUT "CHANGE   CONTINUE   OR STOP";B$
350 IF LEFT(B$,3)="CON" THEN 380 ELSE IF LEFT(B$,3)="CHA" THEN 360
    ELSE IF LEFT(B$,3)="STO" THEN STOP ELSE
    PRINT "PLEASE TYPE 'CHANGE', 'CONTINUE', OR 'STOP'" : GOTO 340
360 MAT Z=ZER
370 PRINT"COMPLETELY RE-ENTER NO."N4"AND THEN START NO."N"ALL OVER" :
    T,A1=0 : GOTO 190
380 PRINT "CONTINUE WITH TRANSACTION NO."N
390 FOR X1=1 TO T : N8=Z(X1,1) : A(N8)=A(N8)+Z(X1,2)-Z(X1,3) : NEXT X1
400 Z1=1
410 FOR X1=Z TO(Z+T-1) : N8=Z(Z1,1) : C(X1,1)=N4
420 C(X1,2)=N(N8) : C(X1,3)=Z(Z1,2) : C(X1,4)=Z(Z1,3)
430 Z1=Z1+1 : NEXT X1
440 Z=Z+T : N4=N : MAT Z=ZER : T,A1=0
450 IF N=9999 THEN 480
460 T=T+1 : Z(T,1)=X : Z(T,2)=Z(T,2)+D : Z(T,3)=Z(T,3)+C : A1=A1+D-C
470 A1=INT(A1*100)/100 : GOTO 190
480 PRINT FOR X=1 TO 4 : PRINT TAB(22)"ACCOUNTING WITH THE COMPUTER" :
     PRINT TAB((72-(15+LEN(A$)))/2)"PROCESSING FOR "A$ : PRINT
490 A(19)=A(3) : A(22)=P1 : A(3)=P1
500 PRINT"THE FOLLOWING ACCOUNTS HAVE INCORRECT BALANCES:"
510 PRINT
520 FOR X=1 TO 30 : IF X= 16 THEN 550 ELSE B(X)=ABS(B(X))
530 A(X)=ABS(A(X)) : E=ABS(B(X)-A(X)) : IF E<.51 THEN 550 ELSE
     PRINT N(X);
540 C=1
550 NEXT X
560 IF C=0 THEN PRINT "NONE"
570 A1$="":A1$=A1$+CVTF$(A(X)) FOR X=1 TO 30
580 V$=SYS(CHR$(8%)+A1$)
590 PRINT FOR X=1 TO 5 : PRINT"IF YOU WANT A LISTING OF YOUR ENTRIES":
     INPUT"TYPE 'YES'; IF NOT TYPE 'NO'"B$
600 IF LEFT(B$,1)="Y" THEN 610 ELSE 800
610 PRINT"TRANS.  ACCOUNT   DEBIT    CREDIT" : PRINT"  NO.     NO." :
     PRINT"------------------------" : PRINT C(1,1);:FOR X1=1 TO Z :
     PRINT TAB(10);C(X1,2);TAB(20);C(X1,3);TAB(30);C(X1,4)
620 IF C(X1,1)=C(X1+1,1) THEN 630 ELSE IF C(X1+1,1)=0 THEN 800
     ELSE PRINT : PRINT C(X1+1,1);
630 NEXT X1
640 DATA 301,2080,4645,0,301,1010,0,4645,302,1010,5350,0,302,1110,0,5350
650 DATA 303,2020,6284,0,303,1010,0,6284,304,1010,1200,0
660 DATA 304,1720,800,0,304,1710,0,2000,305,4010,18720,0
670 DATA 305,2020,0,18720,306,1110,23100,0,306,3010,0,23100
680 DATA 307,6100,705,0,307,1010,0,705,308,3020,924,0
690 DATA 308,1110,0,924,309,1710,14400,0,309,1010,0,14400
700 DATA 310,2020,38,0,310,4020,0,38,311,6020,5500,0,311,2040,0,915
710 DATA 311,2050,0,286,311,1010,0,4299,312,6030,440,0,312,2050,0,286
720 DATA 312,2060,0,22,312,2070,0,132,313,2040,1685,0,313,2050,1056,0
730 DATA 313,1010,0,2741,314,1010,12936,0,314,3010,0,12936
740 DATA 315,6400,262,0,315,1010,0,262,316,1010,22176,0,316,1110,0,22176
750 DATA 317,6500,5,0,317,2010,500,0,317,1010,0,505,318,1010,6000,0
760 DATA 318,2010,0,6000,319,6300,2150,0,319,1010,0,2150,320,6500,40,0
770 DATA 320,2090,0,40,321,6200,137,0,321,1720,0,137,322,6020,6000,0
780 DATA 322,2040,0,1012,322,2050,0,312,322,2080,0,4676,323,6030,480,0
790 DATA 323,2050,0,312,323,2060,0,24,323,2070,0,144,9999,0,0,0
800 CHAIN "$CASE2.BAC" 20
810 END