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