ten kod kterej máš v Basicu vypadá na GWBasic/TurboBasic nebo něco podobnýho bohužel pod moderním PC s Windows 7 a výše to už nefunguje ... myslim příkazy POKE a PEEK .. musel bys to programovat v C++ pro MSDOS třeba Watcom C++ nebo Borland C++ vše z éry MSDOSu a samozřejmě takový program pujde spustit zase jen pod MSDOS max. do verze 7.1 tedy Windows ME.
jinak zkus poslat dotaz na programujte.com...
pokud programuješ pod MSDOSem třeba v Borland C++ tak tam ti na to stačí vestavěmý assembler příkaz asm{ ... } a příkazy MOV pro přesun něčeho někam na určitou adresu..........