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