fb:porticula NoPaste
Ganz einfach doppelten Programmstart verhindern
Uploader: | AndT |
Datum/Zeit: | 13.10.2007 15:29:41 |
open "lock" for binary as #1
input #1,lmode
if lmode=0 then
PRINT "OK" : close #1:OPEN "lock" for output as #1:print #1,1 : close #1
else
Print "block"
end if
sleep
if lmode=0 then KILL "lock"