Compucolor.org – Virtual Media

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