Compucolor.org – Virtual Media

Listing of file='3DCOST.BAS;01' on disk='vmedia/isc_demos-sector.ccvf'

10 REM
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 40
37 IF L= 1THEN L= 0
40 FOR I= 1TO 200:A= PEEK (33278):IF A= 13THEN OUT 8,207:PLOT 27,88,6,0,15,3,63,31,32,3,64,0:LOAD "MENU":RUN
45 IF A= 32THEN OUT 8,199:GOTO 10
47 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:OUT 8,199:IF L= 0AND PEEK (33284)= 1THEN PLOT 3,64,0:LOAD "REACTR":RUN
60 IF L= 0THEN PLOT 6,6
61 IF L= 1THEN PLOT 6,4
62 PLOT 12,15,30:FOR I= 1TO 7:PRINT :PLOT 3,6* I,25
70 FOR J= 1TO 22:PRINT "~";:NEXT J,I
80 FOR I= 1TO 8:PRINT :PLOT 3,2+ 3* I,28- 3* I:PRINT "ez";
90 FOR J= 1TO 6:PRINT "eeeeez";:NEXT J,I
100 IF L= 0THEN C= 6
101 IF L= 1THEN C= 8
102 H1= 21:CC= 1:Y= 23:W= Y:X= 10:X1= 40
110 S= 126:H= INT (RND (1)* 4+ H1)
120 PLOT 3,X,Y
121 IF L= 0THEN PLOT 6,48,30,101,111,S,29:IF Y< WTHEN 140
122 IF L= 1THEN PLOT 6,C,30,101,111,S,29:IF Y< WTHEN 140
130 PLOT 3,X+ 2,Y
131 IF L= 0THEN PLOT 6,48
132 IF L= 1THEN PLOT 6,C
133 PLOT 126
140 Y= Y- 1:IF Y< HTHEN 160
150 S= 126:GOTO 120
160 IF L= 0THEN PLOT 6,6
161 IF L= 1THEN PLOT 6,CC
162 PLOT 3,X,Y,126
164 IF L= 0THEN PLOT 6,48,32,30,S,29
165 IF L= 1THEN PLOT 6,C,32,30,S,29
170 X= X+ 6:Y= W:H= INT (RND (1)* 4+ H1):IF X> X1THEN 190
180 GOTO 110
190 IF L= 0THEN PLOT 6,48
191 IF L= 1THEN PLOT 6,8
192 C= C+ 8:CC= CC+ 1:Y= Y- 3:X= X- 33:H1= H1- 3
200 H= INT (RND (1)* 4+ H1):W= Y:X1= X1+ 3:IF Y< 4THEN 220
210 GOTO 120
220 X= 0:Y= 0:C= 1:Y= 23:A$= "PROD."
230 PLOT 3,X,Y,6,6:PRINT A$;C:C= C+ 1:X= X+ 3:Y= Y- 3
240 IF C> 7THEN 260
250 GOTO 230
260 D= 1974:X= 6:Y= 26
261 IF L= 0THEN PLOT 6,6
262 IF L= 1THEN PLOT 6,6
270 PLOT 3,X,Y:PRINT D:X= X+ 6:D= D+ 1:IF D> 1979THEN 290
280 GOTO 270
290 IF L= 0THEN PLOT 6,6
291 IF L= 1THEN PLOT 6,3
292 PLOT 3,0,1,27,10:PRINT "$ PER UNIT":PLOT 6,6,27,11
300 V= 5:X= 3:Y= 9
310 PLOT 3,X,Y:PRINT V:IF V= 5THEN X= X- 1
320 V= V+ 5:Y= Y- 1:IF V> 30THEN 340
330 GOTO 310
340 IF L= 0THEN C$= "eo~"
341 IF L= 1THEN C$= "eo~"
350 IF L= 0THEN D$= "eo~"
351 IF L= 1THEN D$= "eo~"
360 IF L= 0THEN X= 6:Y= 9:E$= "~  "
361 IF L= 1THEN X= 6:Y= 9:E$= "~  "
370 PLOT 3,X,Y
380 IF Y= 9THEN PRINT C$:GOTO 410
390 IF Y> 3THEN PRINT D$:GOTO 410
400 PRINT E$
410 Y= Y- 1:IF Y< 3THEN 430
420 GOTO 370
430 PLOT 14,3,15,29
431 IF L= 0THEN PLOT 6,6
432 IF L= 1THEN PLOT 6,3
433 PRINT "PRODUCT COST PER UNIT":PLOT 6,6
450 REM
452 REM
460 GOTO 30