Infinity-Profan

print "Hallo Welt"

cls
print "Hallo Welt"

cls rgb(0,196,0)
print "Hallo Welt"

cls
print "Hallo Welt"

proc event id data

    print "Event:"+id
    case data : print data
    case id==1 : end

endproc

cls rgb 0 196 0