Vkládám pro studijní účely originál, který se zde na Poradně do podpisu nevejde:
10:CLEAR:CLS:WAIT 0
20:PRINT "Stiskni cokoliv pro ukonceni"
30:PRINT "Ano, jsem KoKoT..."
40:IF INKEY$<>"" THEN PRINT "Spatna klavesa":GOTO 20
50:GOTO 30
Program na presunutie bežiacej aplikácie do systray