10 REM Downloader
   20 REM By Rafael Jay
   30 REM (C) Fast Access 1990
   40 :
   50 MODE7:PRINT
   60 INPUT"Filename: "F$
   70 PRINT"BASIC Program (Y/N)? ";
   80 G%=GET:VDUG%
   90 IF G%=ASC"Y" ?&70=0 ELSE ?&70=&FF
  100 $&A00=F$:!&900=&A00
  110 A%=&05:X%=&00:Y%=&09
  120 C%=USR(&FFDD)MOD&100
  130 IF C%=0 PRINT"No such file":END
  140 IF C%=2 PRINT"Is a directory":END
  150 LD%=!&902:EX%=!&906:LG%=!&90A
  160 OSCLI"LOAD "+F$+" 2000"
  170 OSCLI"*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