http://www.hristogueorguiev.com/the-not ... s-example/
This is a rough attempt to port it to FreeBasic. On DosBox it doesn't seem to work. Anyone wants to try on a real DOS machine?
Code: Select all
#include "dos\dos.bi"
do
do while(inp(&h3da) and 8):loop
do until(inp(&h3da) and 8):loop
for i as integer=1 to 20
do while(inp(&h3da) and 1):loop
do until(inp(&h3da) and 1):loop
next
out &h3c8, &h0
out &h3c9, 100
out &h3c9, 10
out &h3c9, &h99
delay(1)
out &h3c8, &h0
out &h3c9, &h00
out &h3c9, &h00
out &h3c9, &h00
loop until multikey (1)