Pete's QBASIC Site

Code: Select all

DECLARE FUNCTION CheckType (ctype)

TYPE sumfin
  x AS INTEGER
  y AS INTEGER
  c AS INTEGER
  t AS STRING
END TYPE

DIM SHARED wins AS sumfin

wins.x = 0:wins.y = 10: wins.c = 2: t = "dull!"

parsed = CheckType(wins)

IF PARSED = 1 THEN
   PRINT "Okay"
ELSE
   PRINT "Not okay." 'Duh!!
END IF

FUNCTION CheckType (ctype)

IF ctype.x > 0 AND ctype.x < 20 THEN
  IF ctype.y > 0 AND ctype.y < 20 THEN
    IF ctype.c > 0 AND ctype.c <= 15 THEN
      IF ctype.t <> "" THEN
        CheckType = 1
        EXIT FUNCTION
      ELSE
         CheckType =0
      END IF
   ELSE
     CheckType = 0
   END IF
  ELSE
   Checktype = 0
  END IF
ELSE
  CheckType = 0
END IF
END FUNCTION