10
20 MODE7
22 DIM f%(8),u%(8)
25 *Disks
30 flag%=TRUE
50 A%=&7C00+11
60 A%?27=13:$A%=$(A%+4)
70 A%!23=&20202020:A%!24=A%!23
80 A%=&7C00+57
90 REPEAT
100 A%?15=13:$A%=$(A%+7):A%?15=32
110 A%?22=13:$(A%+8)=" "+$(A%+14)
120 A%!18=&20202020:A%?22=32
130 A%=A%+40:UNTILA%?12=32
140 :
150 F%=0:U%=0:I%=0
160 A%=&7C00+57
170 REPEAT
180 A%?5=13:f%(I%)=VAL($A%):A%?5=ASC"K":F%=F%+f%(I%)
190 A%?17=13:u%(I%)=VAL($(A%+11)):A%?17=ASC"K":U%=U%+u%(I%)
200 A%=A%+40:I%=I%+1
210 UNTILA%?5=32
220 PRINTSPC5"Total"SPC(12-LENSTR$F%);F%"K"FNd(100*F%DIV(F%+U%),3)"%"SPC(7-LENSTR$U%);U%"K"FNd(100*U%DIV(F%+U%),3)"%"
230 FOR I%=0 TO 7
240 IFflag%:PRINTTAB(24,I%+1)FNd(100*f%(I%)DIV(f%(I%)+u%(I%)),2)"%";
250 IFNOTflag%:PRINTTAB(24,I%+1)FNd(100*f%(I%)DIVF%,2)"%";
260 IFflag%:PRINTTAB(36,I%+1)FNd(100*u%(I%)DIV(f%(I%)+u%(I%)),2)"%";
270 IFNOTflag%:PRINTTAB(36,I%+1)FNd(100*u%(I%)DIVU%,2)"%";
280 NEXT
290 PRINT'
292 A%=INKEY(6000):VDU30:GOTO25
300 END
310 DEFFNd(A%,N%)=RIGHT$(" "+STR$A%,N%)