home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / basic.exe / CHIP / Programme.Bas / Beispiele_3 / BSP29.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-08-29  |  201 b   |  20 lines
  1. DEFINE anzahl 3
  2.  
  3. PRINT   "Beispiel 26"
  4.  
  5. OPEN# FOR WRITE
  6.  
  7. IF FILEFREE >= anzahl THEN GOSUB schreiben
  8. GOTO  ende
  9.  
  10. #schreiben
  11.    PRINT 1
  12.    PRINT 2
  13.    PRINT 3
  14. RETURN
  15.  
  16. CLOSE#
  17.  
  18. #ende
  19. END
  20.