Listing of file='3DCOST.BAS;01' on disk='vmedia/ncc_5-sector.ccvf'
100 PLOT 12 101 PLOT 15 102 FOR I= 1TO 100:Q= RND (1):NEXT 105 PLOT 6,4 110 A= 6 120 B= 25 125 PRINT "" 130 PLOT 3,127,A,B,4 140 PLOT 30,126,29 150 A= A+ 1 160 B= B- 1 170 IF B< 4THEN 190 180 GOTO 130 190 A= A- 16 200 B= 25 210 X= X+ 1 220 IF X> 6THEN 240 230 GOTO 130 240 PRINT 250 C= 5 260 D= 25 270 E= 45 280 P= PEEK (28672+ C* 2+ D* 128) 290 IF P= 30THEN 350 300 PLOT 3,127,C,D,4 310 PLOT 30,101,29 320 C= C+ 1 330 GOTO 280 340 D= D- 3 350 PLOT 30,122,29 360 C= C+ 1 370 Z= Z+ 1 380 IF Z= 7THEN 400 390 GOTO 300 400 C= C- 35 410 D= D- 3 420 Z= 0 430 IF D< 4THEN 450 440 GOTO 280 450 CLEAR 500 C= 8 505 H1= 21 510 CC= 1 530 Y= 23 535 W= Y 540 X= 10 545 X1= 40 550 S= 126 555 H= INT (RND (1)* 4+ H1) 560 PLOT 3,X,Y 570 REM 580 PLOT 6,C,30,101,111,S,29 590 IF Y< WTHEN 610 600 PLOT 3,X+ 2,Y,6,C,126 610 Y= Y- 1 620 IF Y< HTHEN 650 630 S= 126 640 GOTO 560 650 REM 660 PLOT 6,CC 670 PLOT 3,X,Y 680 PLOT 126,6,C,32,30,S,29 690 X= X+ 6 700 Y= W 705 H= INT (RND (1)* 4+ H1) 710 IF X> X1THEN 730 720 GOTO 550 730 PLOT 6,2 740 C= C+ 8 750 CC= CC+ 1 760 Y= Y- 3 770 X= X- 33 775 H1= H1- 3 776 H= INT (RND (1)* 4+ H1) 780 W= Y 785 X1= X1+ 3 790 IF Y< 4THEN 1000 800 GOTO 560 1000 REM 1010 CLEAR 1015 C= 1 1020 Y= 23 1030 A$= "PROD." 1050 PLOT 3,X,Y 1055 PLOT 6,C 1060 PRINT A$;C 1070 C= C+ 1 1080 X= X+ 3 1085 Y= Y- 3 1090 IF C> 7THEN 1100 1095 GOTO 1050 1100 REM 1110 CLEAR 1120 D= 1974 1130 X= 6:Y= 26 1140 PLOT 6,7 1150 PLOT 3,X,Y 1160 PRINT D 1170 X= X+ 6 1180 D= D+ 1 1190 IF D> 1979THEN 1200 1195 GOTO 1150 1200 PLOT 6,2 1210 X= 0 1220 Y= 1 1240 PLOT 3,X,Y 1250 PLOT 27,10 1260 PRINT "$ PER UNIT" 1270 PLOT 27,11 1300 REM 1310 V= 5 1320 X= 3 1330 Y= 9 1340 PLOT 3,X,Y 1350 PRINT V 1355 IF V= 5THEN X= X- 1 1360 V= V+ 5 1370 Y= Y- 1 1380 IF V> 30THEN 1400 1390 GOTO 1340 1400 REM 1410 X= 6 1420 Y= 9 1430 C$= "eo~" 1432 D$= "eo~" 1434 E$= "~ ~" 1450 PLOT 3,X,Y 1460 IF Y= 9THEN PRINT C$:GOTO 1470 1462 IF Y> 3THEN PRINT D$:GOTO 1470 1464 PRINT E$ 1470 Y= Y- 1 1480 IF Y< 3THEN 1500 1490 GOTO 1450 1500 REM 1510 PLOT 14 1520 PLOT 3,15,29 1530 PRINT "PRODUCT COST PER UNIT" 1540 PLOT 15 1600 REM 1610 PLOT 3,64,0 1620 GOTO 1610 2000 END