Listing of file='ENERGY.BAS;01' on disk='vmedia/demos-sector.ccvf'
1 PLOT 12 2 PLOT 2,0,0,242,0,0,0,127,127,127,127,0,0,0,255 5 N= 50 6 A= 10 7 S= 1 10 KO= .5 20 K1= 2.5 30 K2= .15 40 K3= .05 50 K4= 1.6 60 K5= .0109 70 K6= 0 80 K7= 1E- 5 90 K8= .005 100 K9= .056 110 J= 1.1 120 N0= 1 130 F= 25000 140 R= 2 145 X1= .0132 150 X2= 1.4E- 4 155 X3= 2.55E- 3 160 X4= 0 170 X5= 0 200 I= J/ (1+ K0* N) 202 DF= - X5* F 205 DN= N0- K3* N- K4* N* I+ X2* A 207 DS= K1* I* N- K2* S- K6* S- K7* S* A 209 DA= X5* F+ (X4* S+ X3* A)* R+ K8* S* A- K9* A- K5* A- X1* A- X3* A 210 A= A+ DA 212 IF A< 1THEN A= 1 215 N= N+ DN 217 IF N< 0THEN N= 0 220 S= S+ DS 225 IF S< 1THEN S= 1 227 F= F+ DF 228 IF F< 0THEN F= 0 230 T= T+ 1 235 IF Z= 1THEN GOTO 238 237 IF T> 60THEN R= 7:X4= 40:K6= 1 238 IF T> 120THEN R= 2 239 X5= X5+ 1E- 4 240 PLOT 29,23 242 IF R< 0THEN R= 0 250 PLOT 2,T,N+ 5,255 260 PLOT 29,18 270 PLOT 2,T,S,255 280 PLOT 29,17 290 PLOT 2,T,A/ 500,255 310 PLOT 29,19 320 PLOT 2,T,F/ 250,255 350 IF T< 127GOTO 200 400 END 405 PLOT 2,0,0,242,0,0,0,127,127,127,127,0,0,255 410 GOTO 430 420 X4= 0:K6= 0 426 X1= 0 430 T= 0 435 Z= 1 440 GOTO 200