Programmer 7500/MAX_PROGRAMMERS.iso/CLIPPER/MISC/MAX130.ZIP/BLOCK.MAX

Text File | 1988-10-30 | 942 b | 43 lines

$replace ("Function"    "define [")
$replace ("EndFunction" "] define")

$replace ("Begin"       "(")
$replace ("End"        ")")

$replace ("While"       "while {")
$replace ("EndWhile"    "} while")

$replace ("Until"       "until {")
$replace ("EndUntil"    "} until")

$replace ("For"         "for {")
$replace ("EndFor"      "} for")

$replace ("If"          "if [")
$replace ("EndIf"       "] if")

$replace ("Then"        "then {")
$replace ("EndThen"     "} then")

$replace ("Else"        "else {")
$replace ("EndElse"     "} else")

$replace ("Case"    "case {")
$replace ("EndCase"    "} case")

$replace ("Select"    "select {")
$replace ("EndSelect"    "} select")

$replace ("When"    "when {")
$replace ("EndWhen"    "} when")

$replace ("Default"    "default {")
$replace ("EndDefault"    "} default")

$replace ("Do"        "do {")
$replace ("EndDo"    "} do")

$replace ("Loop"    "loop {")
$replace ("EndLoop"    "} loop")