SetVar(magno, 5)
TOP:
If PropEngine() THEN
GOTO PROP
Endif
If JetEngine() THEN
GOTO JET
EndIf
PROP:
      IF Vartest(Magno,4,4) THEN
  Print "CLEAR PROP!!!!"
       Play "sample\startprp.voc"
        Endif
      IF Vartest(Magno,0,0) THEN
       Setvar(Magno, 5)
       Play "sample\stopprp.voc"
        Endif
    GOTO TOP
JET:
      IF Vartest(Magno,4,4) THEN
  Print "ALL CLEAR!!!!"
       Play "sample\startjet.voc"
        Endif
      IF Vartest(Magno,0,0) THEN
       Setvar(Magno, 5)
       Play "sample\stopjet.voc"
        Endif
    GOTO TOP
    