77 lines
1.1 KiB
Plaintext
77 lines
1.1 KiB
Plaintext
|
10 #=365
|
||
|
|
20 S=Y<F*Y+(Y=0*E)+(Y=F)-1*O+(X<Q*X+(X=0*O)+(X=Q))
|
||
|
|
25 :S)=:S)+2
|
||
|
|
30 X=X+1-(J<X*3)+(J-1=X*(Y=I))
|
||
|
|
40 Y=J-1=X+Y
|
||
|
|
50 #=I+1>Y*20
|
||
|
|
70 #=90
|
||
|
|
80 #=:I-1*O+J)/2*0+%*20
|
||
|
|
90 J=J+1-(O=J*O)
|
||
|
|
100 I=J=1+I
|
||
|
|
110 ?="";
|
||
|
|
120 X=J-1
|
||
|
|
130 Y=I-1
|
||
|
|
140 #=I<F*80
|
||
|
|
150 I=1
|
||
|
|
160 J=1
|
||
|
|
180 $=27
|
||
|
|
182 #=G=0*188
|
||
|
|
184 ?="[0;0H";
|
||
|
|
186 #=190
|
||
|
|
188 ?="[2J";
|
||
|
|
190 P=0
|
||
|
|
200 K=I-1*O+J
|
||
|
|
210 :K)=:K)<5+(:K)>8)=0
|
||
|
|
220 P=P+:K)
|
||
|
|
230 $=:K)*B+32
|
||
|
|
240 J=J+1-(J=O*O)
|
||
|
|
250 #=1<J*200
|
||
|
|
260 ?=""
|
||
|
|
270 I=I+1
|
||
|
|
280 #=I<F*200
|
||
|
|
290 ?="GEN = ";
|
||
|
|
300 ?=G
|
||
|
|
310 G=G+1
|
||
|
|
320 ?=" POP = ";
|
||
|
|
330 ?=P
|
||
|
|
335 ?=" ";
|
||
|
|
340 I=1
|
||
|
|
350 J=1
|
||
|
|
360 #=0<P*110+(P=0*650)
|
||
|
|
365 I=1
|
||
|
|
385 $=27
|
||
|
|
387 ?="[2J "
|
||
|
|
388 B=0
|
||
|
|
389 G=0
|
||
|
|
390 ?="SIZE? ";
|
||
|
|
400 O=?
|
||
|
|
410 Q=O+1
|
||
|
|
420 ?="BY? ";
|
||
|
|
430 E=?
|
||
|
|
432 $=27
|
||
|
|
434 ?="[2J ";
|
||
|
|
435 $=13
|
||
|
|
440 F=E+1
|
||
|
|
450 J=O*E+2
|
||
|
|
460 #=J*2+&>**390
|
||
|
|
470 :I)=0
|
||
|
|
480 I=I+1
|
||
|
|
490 #=J>I*470
|
||
|
|
500 I=1
|
||
|
|
510 ?=""
|
||
|
|
520 J=1
|
||
|
|
530 #=1>10*550
|
||
|
|
540 ?=" ";
|
||
|
|
550 ?=I
|
||
|
|
560 ?=" ";
|
||
|
|
570 L=$
|
||
|
|
575 A=L=13+(L=32)+(L=95)+(L=64)+(L=8)=0
|
||
|
|
576 B=B>1*B+(B=0*A*(L-32))
|
||
|
|
580 :I-1*O+J)=A*6
|
||
|
|
590 J=J+1-(L=95+(L=8)*2)
|
||
|
|
600 #=L=13*620+(L=64*510)
|
||
|
|
610 #=J<Q*570
|
||
|
|
620 I=I+1
|
||
|
|
625 #=I<F*510
|
||
|
|
627 #=150
|