image of READY prompt

Wang2200.org

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 $