home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 03 / heimwerk / erzdatei.bas < prev    next >
Encoding:
BASIC Source File  |  1988-12-21  |  884 b   |  29 lines
  1. '* ------------------------------------------------------- *
  2. '*                    ERZDATEI.BAS                         *
  3. '*  Hilfs-Programm zu den Dateiprogrammen, nur zum Testen  *
  4. '*           Erzeugt eine Basic-Random-Datei               *
  5. '* ------------------------------------------------------- *
  6. $INCLUDE "BasDatei.INC"
  7.  
  8. CLS
  9.  
  10. CALL PufferDimensionieren
  11. CALL DateiOeffnen
  12.  
  13. Vorname$ = "John" : Nachname$ = "Wayne"
  14. Plz%     = 1234   : LongIn&   = 101001
  15. EReal!   = 1.2345 : Doppelt#  = 1.23456789
  16. CALL Datenschreiben (1)
  17.  
  18. Vorname$ = "Brigitte" : Nachname$ = "Bardot"
  19. Plz%     = 32000      : LongIn&   = 1010010
  20. EReal!   = 2.4545     : Doppelt#  = 1.987654321
  21. CALL Datenschreiben (2)
  22.  
  23. Vorname$ = "Hans" : Nachname$ = "Testmann"
  24. Plz%     = 1      : LongIn&   = 37000
  25. EReal!   = 123.12 : Doppelt#  = 1.2345
  26. CALL Datenschreiben (3)
  27.  
  28. CALL DateiSchliessen
  29.