10REM Downloader 20REM By Rafael Jay 30REM (C) Fast Access 1990 40: 50MODE7:PRINT 60INPUT"Filename: "F$ 70PRINT"BASIC Program (Y/N)? "; 80G%=GET:VDUG% 90IF G%=ASC"Y" ?&70=0 ELSE ?&70=&FF 100$&A00=F$:!&900=&A00 110A%=&05:X%=&00:Y%=&09 120C%=USR(&FFDD)MOD&100 130IF C%=0 PRINT"No such file":END 140IF C%=2 PRINT"Is a directory":END 150LD%=!&902:EX%=!&906:LG%=!&90A 160OSCLI"LOAD "+F$+" 2000" 170OSCLI"*K.0 *T.|MFORT%=0TO&"+STR$÷LG %+" STEP4:T%!&"+STR$÷LD%+"=T%!&2000:NEXT |MIF ?&70=&FF CALL&"+STR$÷EX%+"|MPAGE=&" +STR$÷LD%+"|MOLD|MRUN|M" 180*FX138,0,128