ô > FSSPEED (ô Test filing system transfer speeds : (file$="SCREEN" 2 num%=10 <: Fë 1 P6size%=0:in%=Ž(file$):ç in%:size%=¢#in%1024::Ù#in% Z&ç size%<5:ñ"Test file too small":à d+ñ"1: Load to I/O"'"2: Load to language" nõ A$=¾:ý§"12",A$):ñA$ x8ç A$="1" „ “<&FFFF:ç size%>20:ñ"Test file too big":à ‚ç A$="1":mem%=&FFFF3000 Œ'ç A$="2":ç “<&FFFF:mem%=&3000:A$="" –ç A$="2":Þ mem% size%*1024  file$=file$+" "+Ã~mem% ª: ´Þ T%(num%):sum0%=0:sum%=0 ¾õ ÈñŠ0,0);"LOAD ";file$ ÒT%=‘:ÿ"LOAD "+file$:T%=‘-T% ÜAVR%=0:T%(10)=T% æ6ã A%=0 ¸ num%-1:T%(A%)=T%(A%+1):AVR%=AVR%+T%(A%):í ðAVR%=AVR%num% ú_çmem%>0 „ “<&FFFF:sum%=0:ã A%=0 ¸ size%*1024-1 ˆ 4:sum%=sum%+mem%!A%:í:ç sum0%=0:sum0%=sum% ñŠ0,0);"LOAD ";file$ 1ñ"Time: ";T%;"cs";Š20);T%/size%;"cs/K";‰3 5ñ"Average: ";AVR%;"cs";Š20);AVR%/size%;"cs/K";‰3 "3ñ"Checksum: ";~sum%;" match: ";:A%=sum0%‚sum% ,#ç A%:ñ"BAD ";~A%;‰3 ‹ ñ"OK";‰12 6 A%=¦(500) @ý £ ÿ