home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 11 / einsteig / tools2.bas < prev    next >
Encoding:
BASIC Source File  |  1990-08-09  |  3.6 KB  |  108 lines
  1. ' *********************************************************
  2. '                     Tools2.Bas
  3. '           (c) 1990 W.Kehr/Th.Frins & toolbox
  4. '
  5. '           Enthält und testet zwei andere Fassungen
  6. '               der SUBSs Rahmen und BildLoeschen
  7. ' *********************************************************
  8.  
  9. DECLARE SUB BildLoeschen (Eckdaten AS ANY)
  10. DECLARE SUB Rahmen (Eckdaten AS ANY)
  11.  
  12. TYPE RahmenDaten
  13.     ZeileLinksOben AS INTEGER
  14.     SpalteLinksOben AS INTEGER
  15.     ZeileRechtsUnten AS INTEGER
  16.     SpalteRechtsUnten AS INTEGER
  17.     RahmenZeichen AS STRING * 1
  18. END TYPE
  19.  
  20. DIM Ecken AS RahmenDaten
  21.  
  22. Ecken.ZeileLinksOben = 1
  23. Ecken.SpalteLinksOben = 1
  24. Ecken.ZeileRechtsUnten = 5
  25. Ecken.SpalteRechtsUnten = 80
  26. Ecken.RahmenZeichen = CHR$(177)
  27.  
  28. CLS
  29. CALL Rahmen(Ecken)
  30.  
  31. dummy$ = INPUT$(1)
  32.  
  33. FOR I% = 1 TO 494
  34.     PRINT "tx ";
  35. NEXT I%
  36.  
  37. dummy$ = INPUT$(1)
  38.  
  39. Ecken.ZeileLinksOben = 3
  40. Ecken.SpalteLinksOben = 5
  41. Ecken.ZeileRechtsUnten = 15
  42. Ecken.SpalteRechtsUnten = 60
  43. Ecken.RahmenZeichen = CHR$(250)
  44.  
  45. BildLoeschen Ecken
  46.  
  47. SUB BildLoeschen (Ecken AS RahmenDaten)
  48.     DIM I AS INTEGER
  49.     IF Ecken.RahmenZeichen = "" THEN Ecken.RahmenZeichen = " "
  50.     FOR I = Ecken.ZeileLinksOben TO Ecken.ZeileRechtsUnten
  51.         LOCATE I, Ecken.SpalteLinksOben
  52.         PRINT STRING$(Ecken.SpalteRechtsUnten - SpalteLinksOben + 1, Ecken.RahmenZeichen);
  53.     NEXT I
  54.     LOCATE 1, 1, 0
  55. END SUB
  56.  
  57. SUB Rahmen (Eckdaten AS RahmenDaten)
  58.     DIM I AS INTEGER
  59.     SELECT CASE Eckdaten.RahmenZeichen
  60.         CASE CHR$(201)
  61.             ZeichenLinksOben$ = CHR$(201)
  62.             ZeichenLinksUnten$ = CHR$(200)
  63.             ZeichenRechtsOben$ = CHR$(187)
  64.             ZeichenRechtsUnten$ = CHR$(188)
  65.             ZeichenWaagrecht$ = CHR$(205)
  66.             ZeichenSenkrecht$ = CHR$(186)
  67.         CASE CHR$(218)
  68.             ZeichenLinksOben$ = CHR$(218)
  69.             ZeichenLinksUnten$ = CHR$(192)
  70.             ZeichenRechtsOben$ = CHR$(191)
  71.             ZeichenRechtsUnten$ = CHR$(217)
  72.             ZeichenWaagrecht$ = CHR$(196)
  73.             ZeichenSenkrecht$ = CHR$(179)
  74.         CASE CHR$(213)
  75.             ZeichenLinksOben$ = CHR$(213)
  76.             ZeichenLinksUnten$ = CHR$(212)
  77.             ZeichenRechtsOben$ = CHR$(184)
  78.             ZeichenRechtsUnten$ = CHR$(190)
  79.             ZeichenWaagrecht$ = CHR$(205)
  80.             ZeichenSenkrecht$ = CHR$(179)
  81.         CASE CHR$(214)
  82.             ZeichenLinksOben$ = CHR$(214)
  83.             ZeichenLinksUnten$ = CHR$(211)
  84.             ZeichenRechtsOben$ = CHR$(183)
  85.             ZeichenRechtsUnten$ = CHR$(189)
  86.             ZeichenWaagrecht$ = CHR$(196)
  87.             ZeichenSenkrecht$ = CHR$(186)
  88.         CASE ELSE
  89.             ZeichenLinksOben$ = Eckdaten.RahmenZeichen
  90.             ZeichenLinksUnten$ = Eckdaten.RahmenZeichen
  91.             ZeichenRechtsOben$ = Eckdaten.RahmenZeichen
  92.             ZeichenRechtsUnten$ = Eckdaten.RahmenZeichen
  93.             ZeichenWaagrecht$ = Eckdaten.RahmenZeichen
  94.             ZeichenSenkrecht$ = Eckdaten.RahmenZeichen
  95.     END SELECT
  96.     LOCATE Eckdaten.ZeileLinksOben, Eckdaten.SpalteLinksOben
  97.     PRINT ZeichenLinksOben$; STRING$(Eckdaten.SpalteRechtsUnten - Eckdaten.SpalteLinksOben - 1, ZeichenWaagrecht$); ZeichenRechtsOben$;
  98.     FOR I = Eckdaten.ZeileLinksOben + 1 TO Eckdaten.ZeileRechtsUnten - 1
  99.         LOCATE I, Eckdaten.SpalteLinksOben
  100.         PRINT ZeichenSenkrecht$;
  101.         LOCATE I, Eckdaten.SpalteRechtsUnten
  102.         PRINT ZeichenSenkrecht$;
  103.     NEXT I
  104.     LOCATE Eckdaten.ZeileRechtsUnten, Eckdaten.SpalteLinksOben
  105.     PRINT ZeichenLinksUnten$; STRING$(Eckdaten.SpalteRechtsUnten - Eckdaten.SpalteLinksOben - 1, ZeichenWaagrecht$); ZeichenRechtsUnten$;
  106. END SUB
  107.  
  108.