Page 1 of 1

Do, Loop

Posted: Sat Mar 25, 2006 10:32 am
by Psychophanta
Code updated For 5.20+

A bit absurd tip, but it is a tip. :wink:
Do-Loop loops like in gfa style (but needed () like in PB style)

Code: Select all

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)