<test>

Meine Hardware#

• 800XL - im Originalzustand
• XC12
• SDrive - Eigenbau [ mit Unterstützung ;) ]

ACTION! TRUE/FALSE Beispiel

Halle Gromit,

ich habe Deine Beispiele aus der Documentation der FORTH Worte TRUE und FALSE herausgenommen, weil der Zusammenhang nicht stimmte. In ACTION! werden Zahlenwerte als "wahr" und "falsch" interpretiert, in FORTH gibt es extra "worte" dafür.

Action#

Example:

BYTE FUNC values_match(BYTE x,y)

  BYTE rval

  rval=0                ;means FALSE
  IF x=10 AND y=20 THEN
    rval=1              ;means TRUE
  FI
RETURN(rval)


PROC main()

  BYTE v1,
       v2

  PrintE("Please give me 2 numbers.")
  Print("v1 = ")
  v1=InputB()
  Print("v2 = ")
  v2=InputB()

  IF values_match(v1,v2) THEN 
    PrintE("Your values match!!")
  FI

RETURN

Dieses Beispiel ist nicht wirklich gut. Die Funktion "values_match" scheint zu prüfen ob die beiden Eingabewerte gleich sind, aber es wir getstet ob Eingabewert x = 10 und Eingabewert y = 20 ist.

Die Benahmung der Eingabewerte X/Y suggestiert einen Punkt (X-Y Koordinate im Raum). Für zwei Byte-Werte würde ich "bval1" und "bval2" vorschlagen.

Die Routine "values_match" würde ich wie so schreiben:

BYTE FUNC values_match(BYTE bval1, bval2)
RETURN(bval1 = bval2)

Ein besseres Beispiel wäre die Prüfung on eine engegebene Zahl ungerade ist:

BYTE FUNC isOdd (Byte val)
RETURN ((val MOD 2) -1)

PROC main()

  PrintE("Please give me a number.")
  Print("v = ")
  v = InputB()
  Print("The value is ") 
  IF isOdd(v) THEN
     PrintE("odd")
  ELSE
     PrintE("even")
  FI   
RETURN