38 lines
393 B
Plaintext
38 lines
393 B
Plaintext
10 A=1
|
|
20 L=2
|
|
30 :1)=1
|
|
40 I=2
|
|
50 :I)=0
|
|
60 I=I+1
|
|
70 #=L>I*50
|
|
80 ?=""
|
|
90 ?=""
|
|
100 ?=A
|
|
110 ?="! ="
|
|
120 ?=""
|
|
130 I=L+1
|
|
140 I=I-1
|
|
150 #=:I)=0*140
|
|
160 ?=:I)
|
|
170 I=I-1
|
|
180 #=I=0*220
|
|
190 ?=:I)/10
|
|
200 ?=%
|
|
210 #=170
|
|
220 A=A+1
|
|
230 I=1
|
|
240 C=0
|
|
250 X=:I)
|
|
260 :I)=A*X
|
|
270 #=:I)<X*320
|
|
280 :I)=:I)+C
|
|
290 C=:I)/100
|
|
300 :I)=%
|
|
310 I=I+1
|
|
320 #=L>I*250
|
|
330 #=C=0*80
|
|
340 L=L+1
|
|
350 #=*-&/2<L*380
|
|
360 :I)=C
|
|
370 #=290
|