1 COM Q$[55] 7 REM EBAP14 7/8/74 10 Q$="$EBAP14" 20 CHAIN "$EBAU11",100 100 REM PROGRAM TO PERFORM FISCAL YEAR CLOSING PROCEDURES 101 REM ON INVOICE FILE 200 DIM W$[61],Y$[10],Z$[72] 210 DIM N[40],O[40],P[40],Q[40],R[40],S[40] 220 Y$="0123456789" 230 ENTER #J9 240 PRINT "THIS PROGRAM PERFORMS FISCAL YEAR CLOSING PROCEDURES ON" 250 PRINT "THE INVOICE FILE." 260 PRINT LIN(1),"DO YOU REALLY WANT THESE PROCEDURES PERFORMED"; 270 INPUT Z$ 280 IF Z$[1,1]#"Y" THEN 1130 300 FILES * 310 PRINT LIN(1),"ENTER INVOICE FILE NAME" 320 INPUT Z$ 330 ASSIGN Z$,1,Z0,Q$[26,31] 340 IF Z0=0 THEN 370 350 PRINT LIN(1),"REQUESTED FILE UNAVAILABLE OR NON-EXISTENT" 360 GOTO 310 370 IF TYP(1)#2 THEN 400 380 READ #1;Z$ 390 IF Z$="INVOICE" THEN 420 400 PRINT LIN(1),"INVALID INVOICE FILE" 410 GOTO 310 420 READ #1;W0,W1,D9 430 IF D9=0 THEN 460 440 PRINT LIN(1),"DIRTY BIT SET IN INVOICE FILE" 450 STOP  460 W2=2 470 W3=0 1000 REM MAIN DRIVER 1010 Z0=BRK(0) 1020 PRINT #1,1;"INVOICE",W0,W1,-4,J9,0," " 1030 GOSUB 3000 1040 IF W3#0 THEN 1080 1050 W$[33,33]="1" 1060 GOSUB 3100 1070 GOTO 1030 1080 PRINT #1,1;"INVOICE",W0,W1,0,0,0," " 1090 IF W1=1 THEN 1110 1100 READ #1,2 1110 Z0=BRK(1) 1120 REM TERMINATE PROGRAM 1130 STOP  3000 REM READ INV 3005 IF W2"4" THEN 5090 5060 FOR Y3=0 TO 4 5070 IF Z$[Y1,Y1]=Y$[Y3+1,Y3+1] THEN 5120 5080 NEXT Y3 5090 FOR Y3=5 TO 9 5100 IF Z$[Y1,Y1]=Y$[Y3+1,Y3+1] THEN 5120 5110 NEXT Y3 5120 Z=Z+Y3*10^Y2 5130 Y2=Y2+1 5140 NEXT Y1 5150 RETURN  6000 END