Do, Loop

Psychophanta · Post by **Psychophanta** » Sat Mar 25, 2006 10:32 am

Code updated For 5.20+

A bit absurd tip, but it is a tip.

Do-Loop loops like in gfa style (but needed () like in PB style)

Macro Do
  While #True
EndMacro
Macro DoWhile(p)
  While p
EndMacro
Macro DoUntil(p)
  While Not p
EndMacro
Macro Loop
  Wend
EndMacro
Macro LoopWhile(p)
  If Not p:Break:EndIf
  Wend
EndMacro
Macro LoopUntil(p)
  If p:Break:EndIf
  Wend
EndMacro

;TEST:
con.l=0
DoUntil(con>20)
  con+1
  Debug con
LoopWhile(con<>12)