10 REM >DownLoad
   20 REM For German HangMan
   30 REM LEN James M. CavanaghEVAL11-Apr-1994EVAL06:26:31
   40 DEFFNS="HangMan"
   50 MODE1:VDU23;8202;0;0;0;
   60 *LOAD HangScr FFFF3000
   70 REPEATUNTILGET=32
   80 MODE7
   90 PRINT''"‚Please Wait. Loading Game"
  100 REM A%=0:X%=&FF:F%=USR&FFF4 DIV&100 AND 7:IF F%<3 PROCdownload
  110 CHAIN"GerHang"
  120 END
  130 DEFPROCdownload
  140 PRINT''"‚Please wait. Downloading to &E00"
  150 PRINT"‚and switching TAPE on."
  160 *K.0LO."GerHang"|M*T.|MFORL%=&E00 TO &5C00STEP4:!L%=!(L%+(PA.-&E00)):N.|MPA.=&E00|MO.|MRUN|M
  170 *FX 138 0 128
  180 END
  190 ENDPROC