Listing of file='FCSG114A' on disk='vmedia/701-2661A.wvd.zip'
# Sector 298, program filename = 'FCSG114A'
0010 REM FCSG114A, RELEASE 1-0, (11/13/78), THIS PROGRAM IS A COPYRIGHT PRODUC
T OF WANG LABORATORIES., UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED,
PRINTS PROFILES
0170 DIM G7$(39)1,B6(13),G8$64,G9$4,A0$10
4000 GOTO 4310
4020 % #.# +
4030 % #.##
4040 % ###
4050 % ####
4070 % ##
4120 DEFFN'90
: GOSUB '32
: Q6$=" "
: KEYIN Q6$,4160,4160
4160 IF Q6$="P"THEN GOSUB '254
: IF Q6$=HEX(1F)THEN GOSUB '31
: SELECT PRINT <I0$>(80)
: PRINT HEX(0C)
: RETURN
4220 PRINT TAB(5);"+";
: FOR B6=0TO 5*P
: PRINT "-";
: NEXT B6
: PRINT "+"
: RETURN
4310 SELECT PRINT 005(80),CO 005,P
: SELECT @PARTS0$
4340 GOSUB '235(1,0)
: IF Q$=" "THEN 4500
: GOSUB '91
: IF J0<>7THEN 5630
: GOSUB '92
: GOTO 4340
4410 SELECT PRINT 005(80),CO 005,P
4420 GOSUB '237(1,0)
: IF Q$="E"THEN 5700
: IF Q$=" "THEN 4500
: GOSUB '91
: IF J0<>7THEN 5630
: GOSUB '92
: GOTO 4420
4500 GOSUB '79(2)
: IF M1$="A"THEN 4550
: IF C5$="P"THEN 4420
4550 IF I0$=" "THEN GOSUB '31
: PRINT HEX(030A0A0A0A0A0A0A);TAB(18-.5*LEN(G1$));"* * PRINTING PROFILE "
;G1$;" * *"
: GOSUB '90
: PRINT HEX(0E);N2$
: PRINT HEX(0A0E);L2$
: PRINT HEX(0A);"ID CODE = ";G1$;TAB(59);L5$
: IF A5$<>C5$THEN 4680
: PRINT HEX(0A0A);"*** PROFILE GENERATOR HAS NOT BEEN RUN ON THIS FILE ***"
: PRINT HEX(0A0A)
: GOTO 5180
4680 GOSUB 4220
: MAT B6=ZER
: INIT("N")G7$()
: INIT(" ")G8$
: PRINT TAB(5);"! ";
: FOR B6=1TO P
: GOSUB '32
: B7=INT(B(B6)*10+.5)
: IF B7=0THEN 4920
: IF B7<39THEN 4900
: G9$="HHHH"
: IF B7>39THEN 4850
: G9$="****"
4850 PRINT TAB(5*B6+2);G9$;
: STR(G8$,5*B6-4,4)="****"
: B7=39
4900 G7$(B7)="Y"
4920 B6(B6)=B7
: NEXT B6
: PRINT TAB(7+5*P);"!"
: FOR B6=38TO 1STEP -1
: GOSUB '32
: IF B6/5<>INT(B6/5)THEN 5030
: PRINTUSING 4020,B6/10;
: G9$="+"
: GOTO 5060
5030 PRINT TAB(5);"! ";
: G9$="!"
5060 IF G7$(B6)="N"THEN 5130
: FOR B7=1TO P
: IF B6(B7)<>B6THEN 5110
: STR(G8$,5*B7-4,4)="****"
5110 NEXT B7
5130 PRINT G8$;TAB(7+5*P);G9$
: NEXT B6
: GOSUB 4220
5180 PRINT TAB(5);
: FOR B6=1TO P
: PRINTUSING 4040,P$(B6);
: NEXT B6
: PRINT
: PRINT TAB(6);
: FOR B6=1TO P
: PRINTUSING 4030,B(B6);
: NEXT B6
: PRINT
: IF L2=0THEN 5540
: CONVERT STR(L4$(1),3,2)TO B9
: PRINT HEX(0A0A);"YEAR SALES";TAB(40);"SCALE - ";L1
: CONVERT STR(L4$(1),1,2)TO Q9
: C8=L2+Q9-1
: IF MOD(C8,P)>0THEN B8=INT(C8/P)+1
: ELSE B8=INT(C8/P)
: FOR B7=1TO B8
: GOSUB '32
: PRINTUSING 4070,B9+B7-1;
: FOR B6=1TO P
5440 IF (B7-1)*P+B6<Q9OR (B7-1)*P+B6>L2+(Q9-1)THEN 5470
: PRINTUSING 4050,L(B7,B6);
: GOTO 5480
5470 PRINTUSING 4050;" ";
5480 NEXT B6
: PRINT
: NEXT B7
: IF L5<POR A5$=C5$THEN 5540
: CONVERT STR(L4$(2),1,2)TO Q9
: PRINT HEX(0A);"INDICES WERE GENERATED WITH";L5;"PERIODS OF DATA BEGINNING
- ";P$(Q9);STR(L4$(2),3,2)
5540 IF C5$="P"THEN 4410
: IF A5$=C5$THEN 5580
: C5$="P"
5580 DBACKSPACE #2,1S
: GOSUB '69(2)
: GOTO 4410
5630 GOSUB '91
: PRINT HEX(010A);"TERMINATING PROGRAM"
: PRINT "KEY RETURN(EXEC) TO RESUME"
: Q6$=" "
5670 KEYIN Q6$,5700,5700
: GOTO 5670
5700 DEFFN'31
: SELECT PRINT 005(80)
: PRINT HEX(010A);TAB(25);"** TERMINATING PROGRAM **";TAB(80)
: LOAD DC T#0,M$
5760 DEFFN'32
: Q6$=" "
: KEYIN Q6$,5790,5800
5790 RETURN
5800 IF Q6$=HEX(1F)OR Q6$=HEX(7E)THEN GOSUB '31
: RETURN