Compucolor.org – Virtual Media

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