41 lines
497 B
Text
41 lines
497 B
Text
1110 N=0
|
|
1120 #=3000
|
|
1130 N=N+1
|
|
1140 #=N<26*1120
|
|
1150 ?=" "
|
|
1210 N=250
|
|
1220 #=3000
|
|
1230 N=N+1
|
|
1240 #=N<266*1220
|
|
1250 ?=" "
|
|
1310 N=1000
|
|
1320 #=3000
|
|
1330 N=N+1
|
|
1340 #=N<1026*1320
|
|
1350 ?=" "
|
|
1400 #=9999
|
|
2000 R=!
|
|
2010 S=116
|
|
2020 T=104
|
|
2030 M=N/100*0+%
|
|
2040 #=M<20+(M>4)=2*R
|
|
2050 M=N/10*0+%
|
|
2060 #=M=1=0*2100
|
|
2070 S=115
|
|
2080 T=116
|
|
2090 #=R
|
|
2100 #=M=2=0*2140
|
|
2110 S=110
|
|
2120 T=100
|
|
2130 #=R
|
|
2140 #=M=3=0*R
|
|
2150 S=114
|
|
2160 T=100
|
|
2170 #=R
|
|
3000 Z=!
|
|
3010 $=32
|
|
3020 ?=N
|
|
3030 #=2000
|
|
3040 $=S
|
|
3050 $=T
|
|
3060 #=Z
|