home *** CD-ROM | disk | FTP | other *** search
/ PC Action 1997 January / PCA0197.ISO / special / baskurs / kurs0031.bas < prev    next >
BASIC Source File  |  1996-02-10  |  308b  |  18 lines
  1. 'Parameter-Demo
  2. DECLARE SUB DruckeText (Text AS STRING, Anzahl AS INTEGER)
  3.  
  4. DEFINT A-Z
  5. 'Beispielprogramm
  6. COLOR 15, 1
  7. CLS
  8. CALL DruckeText("QBasic ist super!", 20)
  9.  
  10. DEFINT A-Z
  11. 'Eigentliche SUB
  12. SUB DruckeText (Text AS STRING, Anzahl AS INTEGER)
  13.  FOR i = 1 TO Anzahl
  14.   PRINT Text
  15.  NEXT
  16. END SUB
  17.  
  18.