Listing of file='3DCOST.BAS;01' on disk='vmedia/ncc_15-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 2000 FOR I= 1TO 5000:NEXT 2020 LOAD "MENU":RUN