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 $