Listing of file='SALES.BAS;01' on disk='vmedia/isc_demos-sector.ccvf'
10 REM KY SALES 20 L= 0:OUT 8,199:POKE 33278,0:GOTO 60 30 PLOT 27,88,15,3,63,31,6,6,31,46,15,6,0,3,64,0:OUT 8,207 35 IF L= 0THEN L= 1:GOTO 37 36 IF L= 1THEN L= 0 37 REM 40 FOR I= 1TO 200:A= PEEK (33278):IF A= 13THEN PLOT 27,88,15,6,0,3,63,31,32,3,64,0:LOAD "MENU;1":RUN 45 IF A= 32THEN RUN 46 IF A= 72OR A= 104THEN OUT 8,199:PLOT 6,2,12,15,29:PRINT "LOADING DEMO INSTRUCTIONS...":PLOT 3,64,0:LOAD "HELP":RUN 50 NEXT I 52 IF L= 0AND PEEK (33284)= 1THEN PLOT 27,88,15,6,0,3,63,31,3,64,0:LOAD "COLORS":RUN 55 IF A< > 13THEN OUT 8,199:GOTO 70 60 DIM S(16),CM(16),CL(16),GP(16),ES(16),EA(16),RD(16),BT(16) 70 IF L= 0THEN PLOT 6,6,12,15,27,88 71 IF L= 1THEN PLOT 6,6,12,15,27,88 80 YB= 246:Y= 8 90 DATA 1600,0,0,2040,130,0,2310,470,0,2380,600,0,2433,974,6 100 DATA 2668,552,155,2540,857,251,3255,755,343,3600,1000,450 110 DATA 3900,750,400,3900,750,400,4200,1150,450,4500,1000,600 120 RESTORE 90 130 FOR I= 1TO 12 140 READ GP(I),BT(I),CM(I):S(I)= GP(I)+ BT(I)+ CM(I) 150 NEXT I 160 R= 1500 170 R= R/ 20:Z= INT (MIN/ R/ 20) 180 Z= Z* 75 190 IF L= 0THEN PLOT 6,6,12 191 IF L= 1THEN PLOT 6,6,12 200 Z1= Z 210 FOR J= 8TO 118STEP 20 220 PLOT 3,0,31- J/ 4 230 Z9= Z1/ 1000+ 10.001 240 PRINT MID$ (STR$ (Z9),3,3);TAB( 4) 250 FOR I= 4TO 63 260 PRINT "_";:NEXT I 270 PRINT :Z1= Z1+ 20* R 280 NEXT J 290 PLOT 2,YB,8,7,118,255 300 FOR I= 1TO 12 310 COL= 3 320 IF L= 0THEN PLOT 6,6 321 IF L= 1THEN PLOT 6,COL 330 Y1= S(I):Y0= 0:X= 6 340 PLOT 3,(X+ 10* I)/ 2- 3 350 PLOT 31- (Y+ 2+ Y1/ R)/ 4 360 PY= Y1/ 1000+ 10.001 370 PRINT MID$ (STR$ (PY),3,4) 380 X= 4:GOSUB 640 390 COL= 5 400 Y1= GP(I):Y0= 0:X= 4 410 X= 2 420 GOSUB 640 430 COL= 1 440 Y1= BT(I):Y0= 0:X= 2 450 X= 0 460 IF Y1< 0THEN Y0= Y1:Y1= - 1 470 GOSUB 640 480 COL= 2 490 Y1= CM(I):Y0= 0:X= - 2 500 GOSUB 640 510 NEXT I 520 IF L= 0THEN PLOT 6,6,3,5,30 521 IF L= 1THEN PLOT 6,6,3,5,30 530 PRINT "2-Q 3-Q 4-Q 1-Q 2-Q 3-Q 4-Q 1-Q 2-Q 3-Q 4-Q 1-Q "; 540 PLOT 3,0,0 550 PRINT :PLOT 3,5,31 560 PRINT " 1978 1979 1980"; 570 PLOT 3,0,0:PRINT 580 PLOT 3,16,6 590 PRINT "SCALE IS IN MILLIONS OF DOLLARS" 600 PLOT 14,3,5,3,6,2 610 IF L= 0THEN PRINT " TOTAL SALES PRODUCT A PRODUCT B PRODUCT C " 612 IF L= 1THEN PRINT " TOTAL SALES PRODUCT A PRODUCT B PRODUCT C " 620 PLOT 6,2,15 630 GOTO 30 640 IF L= 0THEN PLOT 6,6:IF Y0< 0THEN PLOT 6,COL+ 1 641 IF L= 1THEN PLOT 6,COL 642 IF Y0< 0THEN PLOT 6,COL+ 1 650 PLOT 2,YB,Y+ Y0/ R 660 PLOT X+ 10* I,Y+ Y1/ R 670 PLOT 1+ X+ 10* I,Y+ Y1/ R 680 PLOT 255:RETURN 690 FOR I= 2TO 11STEP 3 700 PRINT S(I- 1)+ S(I)+ S(I+ 1),CM(I- 1)+ CM(I)+ CM(I+ 1),CL(I- 1)+ CL(I)+ CL(I+ 1),; 710 PRINT ES(I- 1)+ ES(I)+ ES(I+ 1),EA(I- 1)+ EA(I)+ EA(I+ 1),RD(I- 1)+ RD(I)+ RD(I+ 1) 720 NEXT