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