Listing of file='SAC101AA' on disk='vmedia/701-2003.wvd.zip'
# Sector 137, program filename = 'SAC101AA' 0010 REM PROGRAM ID = SAC101AA 0020 REM SYSTEM NAME = BAS1A 0030 REM PROGRAM NAME = CUSTOMER SALES ANALYSIS FILE INITIALIZATION 0040 REM MODULE NAME = SOURCE 0050 REM ************************************************* 0060 REM * THIS PROGRAM IS PART OF A GENERALIZED * 0070 REM * APPLICATION. COPY RIGHT 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 DIM R$2,C$5,N$18,T(12),L(12) 0140 PRINT HEX(03) 0150 GOSUB '240(2,"SAC1F010",14,1) 0160 N$=" " 0170 S=0 0180 REM THIS IS AN "A1" RECORD 0190 C$="ZZZZZ" 0200 R$="A1" 0210 GOSUB 360 0220 REM THIS IS AN "A2" RECORD 0230 S=1 0240 C$="^^^^^" 0250 R$="A2" 0260 GOSUB 360 0270 REM THIS IS AN "A3" RECORD 0280 R$="A3" 0290 GOSUB 360 0300 GOSUB '241(2,"EOF") 0320 GOSUB '248(0,22,0) 0330 STOP "END OF PROGRAM" 0340 REM THIS SUBROUTINE IS A DATASAVE #2 0350 REM 0360 DATA SAVE DC $ #2,R$,C$,N$,S,T(),L() 0370 RETURN 0380 REM $