Listing of file='SAC102CA' on disk='vmedia/701-2003.wvd.zip'
# Sector 51, program filename = 'SAC102CA' 0010 REM PROGRAM ID = SAC102CA 0020 REM SYSTEM NAME = BAS1A 0030 REM PROGRAM NAME = CUSTOMER SALES ANALYSIS FILE MAINTENANCE 0040 REM MODULE NAME = END OF JOB PROCESSING 0050 REM ************************************************* 0060 REM * THIS PROGRAM IS PART OF A GENERALIZED * 0070 REM * APPLICATION. COPYRIGHT WANG LABS INC. 1973 * 0080 REM ************************************************* 0090 REM DATE WRITTEN = NOVEMBER,1973 0100 REM REVISION DATE = 5/74 0110 REM LIBRARY NUMBER= 0120 REM 1370 REM THIS IS BLOCK 2-D4 1380 REM CHECKS IF RECORDS IN = TALLY ON INPUT "A2" RECORD 1390 REM 1400 IF C1=S THEN 1450 1410 PRINT HEX(03) 1420 GOSUB '248(3,0,0) 1430 PRINT "INPUT FILE NOT IN BALANCE" 1440 REM 1450 R1$="A2" 1460 C1$="^^^^^" 1470 N1$=" " 1480 S1=C4 1485 REM 1490 T1(1)=T4(1)+T3(1) 1500 L1(1)=L4(1)+L3(1) 1530 IF Z=0 THEN 1590 1550 L1(1)=T1(1) 1560 T1(1)=0 1580 REM 1590 GOSUB 380 1600 REM THIS IS AN "A3" RECORD, IT IS BLOCK 6-F2 1610 R1$="A3" 1620 GOSUB 580 1630 GOSUB '241(3,"EOF") 1660 PRINT HEX(03) 1670 C9=0 1680 GOSUB 620 1690 IF Z=1 THEN 2660 1700 PRINT HEX(0A) 1710 PRINTUSING 1730,C1,C2,C3,C4,C5 1720 REM 1730 % ##### RCDS IN ##### DELETED ##### INSERTED ##### RCDS OUT ##### FIELD CHANGES 1740 C8=C8+2 1750 IF C8<50 THEN 1780 1755 FOR J=1 TO 69-C8 1760 PRINT HEX(0A) 1764 NEXT J 1766 GOSUB 750 1770 REM 1780 PRINT HEX(0A0A) 1790 PRINT TAB(17);"CURRENT YEAR";TAB(64);"LAST YEAR" 1800 PRINT HEX(0A0A) 1810 PRINT " OLD BALANCE CHANGES NEW BALANCE OLD BALANCE CHANGES NEW BALANCE" 1820 PRINT HEX(0A0A) 1870 IF T3(1)<0 THEN 1930 1880 PRINTUSING 1900,T4(1),T3(1),T4(1)+T3(1); 1890 REM 1900 % ##,###,###.## ##,###,###.## ##,###,###.## 1910 GOTO 1970 1920 REM 1930 PRINTUSING 1950,T4(1),ABS(T3(1)),T4(1)+T3(1); 1940 REM 1950 % ##,###,###.## ##,###,###.## CR ##,###,###.## 1960 REM 1970 IF L3(1)<0 THEN 2010 1980 PRINTUSING 1900,L4(1),L3(1),L4(1)+L3(1) 1990 GOTO 2030 2000 REM 2010 PRINTUSING 1950,L4(1),ABS(L3(1)),L4(1)+L3(1) 2015 C8=C8+1 2020 REM 2030 PRINT HEX(0A) 2520 PRINT "END OF REPORT" 2530 SELECT PRINT 005(64) 2540 PRINT HEX(03) 2550 GOSUB '248(4,0,0) 2560 PRINT C1;"RECORDS IN" 2570 GOSUB '248(5,0,0) 2575 PRINT C2;"DELETED" 2580 GOSUB '248(6,0,0) 2585 PRINT C3;"INSERTED" 2590 GOSUB '248(7,0,0) 2595 PRINT C4;"RECORDS OUT" 2600 GOSUB '248(8,0,0) 2610 PRINT C5;"FIELD CHANGES" 2620 REM 2630 PRINT HEX(01) 2640 STOP "END OF PROGRAM" 2650 REM 2660 PRINT "END OF YEAR PROCESSING COMPLETED" 2665 SELECT PRINT 005(64) 2670 GOSUB '248(7,16,0) 2675 PRINT "END OF YEAR PROCESSING COMPLETED" 2680 GOTO 2630 3020 % 3030 REM $