27 lines
354 B
Text
27 lines
354 B
Text
1000 I=1
|
|
1010 M=0
|
|
1020 R=0
|
|
1040 Z=0
|
|
1050 D=('/24)*0+(%/4)+1
|
|
1060 Z=Z+1
|
|
1070 R=R+D
|
|
1080 M=D<M*D+(D<M=0)*M
|
|
1090 #=Z<4*1050
|
|
1100 :I)=R-M
|
|
1110 I=I+1
|
|
1120 #=I<7*1010
|
|
1130 I=1
|
|
1140 S=0
|
|
1150 M=0
|
|
1160 S=:I)+S
|
|
1170 M=:I)>15+M
|
|
1180 I=I+1
|
|
1190 #=I<7*1160
|
|
1200 #=S>75*(M>2)=0*1000
|
|
1210 I=1
|
|
1220 ?=:I)
|
|
1230 ?=", ";
|
|
1240 I=I+1
|
|
1250 #=I<7*1220
|
|
1260 ?="sum: ";
|
|
1270 ?=S
|