10REM Sender 20DIM osfile 20 30DIM File 31 40*CAT 50INPUT LINE "File: " File$ 60IF File$="" THEN END 70PRINT"Loading ";File$ 80OSCLI("LOAD "+File$+" 3000") 90PROCinfo 100GOTO 40 110DEFPROCinfo 120$File=File$ 130!osfile=File 131A%=5:X%=osfile MOD 256:Y%=osfile DIV 256 140A%=USR(&FFDD) AND 255 150IF A%<>1 THEN PRINT"Can't read ";File$:ERROR 160$&2800="SAVE "+File$+" 3000 +"+STR$~(osfile!10)+" "+STR$~(osfile!6)+" "+STR$~(osfile!2) 170PRINT$&2800 180ENDPROC