'Parameter-Demo
DECLARE SUB DruckeText (Text AS STRING, Anzahl AS INTEGER)

DEFINT A-Z
'Beispielprogramm
COLOR 15, 1
CLS
CALL DruckeText("QBasic ist super!", 20)

DEFINT A-Z
'Eigentliche SUB
SUB DruckeText (Text AS STRING, Anzahl AS INTEGER)
 FOR i = 1 TO Anzahl
  PRINT Text
 NEXT
END SUB