#include once "windows.bi"

''virtual-key codes
#define f5key      &h74
#define f6key      &h75
#define f12key     &h7B

'' Checks in real time if keys are up or down.
#define keydown(kcode) iif((GetAsyncKeyState(kcode) And &h8000), 1, 0)
#define keyup(kcode)   iif((GetAsyncKeyState(kcode) And &h8000), 0, 1)

f5down = false
f6down = false
f12down = false


print "Press f5 and f6 to add and remove walls, f12 to quit."
sleep 3000
cls
Do
   Sleep 25
   If keydown(f5key) And Not f5down Then
      f5down  = true
   End If

   If keydown(f6key) And Not f6down Then
      f6down  = true
   End If
   
   If keydown(f12key) And Not f12down Then
      f12down  = true
   End If

   If keyup(f5key) Then f5down = false
   If keyup(f6key) Then f6down = false
   
   if f5down = true then
       CLS
       shell "granite.exe"
   end if
   if f6down = true then
       CLS
       shell "floor.exe"
   end if
   Locate 1,1

Loop While f12down = false