home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 03 / heimwerk / basdatei.inc next >
Encoding:
Text File  |  1988-12-18  |  1.7 KB  |  80 lines
  1. ' Include-File für RANDOM-Dateien
  2. ' Version 1.03 vom 18.12.1988 
  3.  
  4. ' globale Variable  Puffer$ () = Puffervariable
  5. '-------------------------------------------------
  6. SUB PufferDimensionieren
  7. ' diese Prozedur darf nur einmal beim Programmstart
  8. ' aufgerufen werden !
  9.  
  10. LOCAL  Max%
  11. SHARED Puffer$ ()
  12.  
  13.    Max% =  6
  14.    DIM Puffer$ (1 : Max%)
  15.  
  16. END SUB    ' PufferDimensionieren
  17. '-------------------------------------------------
  18. SUB DateiOeffnen
  19.  
  20. SHARED Puffer$ ()
  21.  
  22.    OPEN "BasDatei.Dat" FOR RANDOM AS # 1 LEN =  48
  23.    FIELD # 1,_
  24.     10 AS Puffer$ ( 1),_
  25.     20 AS Puffer$ ( 2),_
  26.     2 AS Puffer$ ( 3),_
  27.     4 AS Puffer$ ( 4),_
  28.     4 AS Puffer$ ( 5),_
  29.     8 AS Puffer$ ( 6)
  30.  
  31. END SUB    ' DateiOeffnen
  32. '-------------------------------------------------
  33. SUB DatenSchreiben (SatzNr%)
  34.  
  35. SHARED_
  36.    Puffer$ (),_
  37.    Vorname$,_
  38.    Nachname$,_
  39.    PLZ%,_
  40.    LongIn&,_
  41.    EReal!,_
  42.    Doppelt#
  43.  
  44.    LSet Puffer$ ( 1) = (Vorname$)
  45.    LSet Puffer$ ( 2) = (Nachname$)
  46.    LSet Puffer$ ( 3) = MKI$ (PLZ%)
  47.    LSet Puffer$ ( 4) = MKL$ (LongIn&)
  48.    LSet Puffer$ ( 5) = MKS$ (EReal!)
  49.    LSet Puffer$ ( 6) = MKD$ (Doppelt#)
  50.  
  51.    PUT # 1, SatzNr%
  52.  
  53. END SUB
  54. '-------------------------------------------------
  55. SUB DatenLesen (SatzNr%)
  56.  
  57. SHARED_
  58.    Puffer$ (),_
  59.    Vorname$,_
  60.    Nachname$,_
  61.    PLZ%,_
  62.    LongIn&,_
  63.    EReal!,_
  64.    Doppelt#
  65.  
  66.    GET # 1, SatzNr%
  67.  
  68.    Vorname$ = (Puffer$ ( 1))
  69.    Nachname$ = (Puffer$ ( 2))
  70.    PLZ% = CVI (Puffer$ ( 3))
  71.    LongIn& = CVL (Puffer$ ( 4))
  72.    EReal! = CVS (Puffer$ ( 5))
  73.    Doppelt# = CVD (Puffer$ ( 6))
  74. END SUB
  75. '-------------------------------------------------
  76. SUB DateiSchliessen
  77.    CLOSE # 1
  78. END SUB
  79. '-------------------------------------------------
  80.