Listing of file='SAC102AA' on disk='vmedia/701-2003.wvd.zip'
# Sector 189, program filename = 'SAC102AA' 0010 REM PROGRAM ID = SAC102AA 0020 REM SYSTEM NAME = BAS1A 0030 REM PROGRAM NAME = CUSTOMER SALES ANALYSIS FILE MAINTENANCE 0040 REM MODULE NAME = SUBROUTINES AND START 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 0130 COM R2$,C$5,N$18,T(12),L(12),T1(12),L1(12),T3(1),L3(1),T4(1),L4(1),R1 $2,C1$5,N1$18,T$1,B$5,A$5,N2$18 0140 COM B,C,C1,C2,C3,C4,C5,C7,C8,C9,E,F,G,H,M,P,S,S1,T,W,X,Y,Z 0150 GOTO 1400 0160 REM THIS IS THE "GET RECORD" SUBROUTINE 0170 REM 0180 IF B<>0 THEN 230 0190 REM THIS IS AN "A1" RECORD 0200 B=1 0210 GOSUB '250(2,"SAC1F010",1) 0220 REM 0230 DATA LOAD DC #2, R$, C$,N$,S,T(),L() 0240 IF R$="A3" THEN 280 0250 B=B+1 0260 RETURN 0270 REM 0280 GOSUB '251(2) 0290 IF Q5$="R" THEN 340 0300 PRINT HEX(03) 0310 STOP "SEQ-ERROR INPUT FILE" 0330 REM 0340 B=1 0350 GOTO 230 0360 REM THIS IS THE "PUT RECORD" SUBROUTINE 0370 REM 0380 IF C=0 THEN 540 0390 REM 0400 IF C=900 THEN 460 0410 REM 0420 GOSUB 580 0430 C=C+1 0440 RETURN 0450 REM 0460 P$=R1$ 0470 R1$="A3" 0480 GOSUB 580 0490 GOSUB '241 (3,"EOR") 0500 R1$=P$ 0510 C=1 0520 GOTO 420 0530 REM 0540 C=1 0550 GOSUB '240(3,"SAC1F010",14,1) 0560 GOTO 400 0570 REM 0580 DATA SAVE DC $ #3,R1$,C1$,N1$,S1,T1(),L1() 0590 RETURN 0600 REM THIS IS THE "END OF PAGE" SUBROUTINE 0610 REM 0620 IF C7=0 THEN 940 0630 IF C8>60 THEN 700 0640 REM 0650 C8=C8+1 0660 SELECT PRINT 215(132) 0670 RETURN 0680 REM THIS IS BLOCK 4-C2 0690 REM 0700 SELECT PRINT 215(132) 0710 PRINT HEX(0C) 0720 IF P=1 THEN 910 0730 REM THIS IS BLOCK 4-E1 0740 REM 0750 C7=C7+1 0760 C8=8 0770 REM HEADINGS 0780 SELECT PRINT 215(132) 0790 PRINT HEX(0D0A0A) 0800 PRINT TAB(40);"COMPANY NAME";TAB(78);"DATE";TAB(86);"PAGE" 0810 PRINTUSING 830,Q1$,C7 0820 REM 0830 % CUSTOMER SALES ANALYSIS MASTER FILE MAINTENANCE REPORT ######## #### 0840 IF C9=0 THEN 650 0850 PRINT HEX(0A) 0860 PRINT " CUST ID FUNCTION MNEMONIC OLD FIELD NEW FIELD" 0870 PRINT HEX(0A) 0880 C8=C8+3 0890 GOTO 650 0900 REM 0910 P=0 0920 REM THIS IS BLOCK 4-D3 0930 REM 0940 SELECT PRINT 005(64) 0950 GOSUB '243("MOUNT PAPER INTO PRINTER. KEY RETURN(EXEC) TO RESUME",1) 0990 GOTO 750 1000 REM THIS SUBROUTINE TOTALS THE MONTHLY AMOUNTS FOR EACH RECORD 1010 REM 1020 FOR I=1 TO 12 1030 T4(1)=T4(1)+T(I) 1040 L4(1)=L4(1)+L(I) 1050 NEXT I 1060 RETURN 1070 REM THIS IS BLOCK 3-F1 1080 REM 1090 IF T$="D" THEN 1220 1100 IF T$="R" THEN 3020 1110 IF T$="I" THEN 1180 1120 GOSUB '248(3,0,1) 1130 PRINT "INVALID TRANS-CODE" 1140 GOTO 1490 1170 REM 1180 GOSUB '248(3,0,1) 1190 PRINT "ALREADY ON FILE" 1200 GOTO 1450 1210 REM 1220 IF C1$<>"ZZZZZ" THEN 1260 1230 GOSUB '248(3,0,1) 1240 PRINT "CANNOT DELETE WASH ACCOUNT" 1250 GOTO 1450 1255 REM 1260 W=0 1270 C9=1 1280 GOSUB 620 1290 PRINTUSING 1310,C1$,"DELETE","NAME"," ",N1$ 1300 REM 1310 % ##### ####### #### ## -##,###,###,###.## -##,## #,###,###.## 1320 SELECT PRINT 005(64) 1330 C2=C2+1 1340 FOR I =1 TO 12 1350 T3(1)=T3(1)-T1(I) 1360 L3(1)=L3(1)-L1(I) 1370 NEXT I 1380 REM THIS IS THE START OF THE MAIN LINE PROGRAM 1390 REM 1400 PRINT HEX(03) 1410 REM CHECK "EOYSW" 1420 IF Z=0 THEN 1490 1425 GOSUB '248(4,0,1) 1426 PRINT "BEGIN NEW FISCAL YEAR" 1430 T=1 1440 C9=0 1445 REM 1450 GOSUB 620 1460 PRINT HEX(0D);TAB(35);"BEGIN NEW FISCAL YEAR" 1470 SELECT PRINT 005(64) 1480 REM 1490 T3(1),L3(1)=0 1495 GOSUB 180 1500 IF R$="A2" THEN 1550 1510 GOSUB 1020 1520 C1=C1+1 1530 GOTO 1570 1540 REM 1550 M=1 1560 REM 1570 LOAD DC F"SAC102BA" 1400,8499 3020 % 3030 REM $