home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 04 / tricks / zeigtext.inc < prev   
Encoding:
Text File  |  1989-01-10  |  2.2 KB  |  89 lines
  1. '* ------------------------------------------------------- *
  2. '*                    ZEIGTEXT.INC                         *
  3. '*       Basic-Routinen zum Thema "Bildschirmkosmetik"     *
  4. '*            (c) 1989 Gerd Kraus  &  TOOLBOX              *
  5. '* ------------------------------------------------------- *
  6. SUB Einzeln (Text$, X%, Y%)
  7. ' schreibt einen String im "Telegramm-Stil"
  8.  
  9. LOCAL  i%
  10.  
  11.   LOCATE X%, Y%
  12.   FOR i% = 1 TO LEN(Text$)
  13.     LOCATE ,Y% + i%
  14.     PRINT MID$ (Text$,i%,1); "█";
  15.     DELAY (0.15) : SOUND 500, 0.35
  16.   NEXT i%
  17.   LOCATE X%, Y% + LEN(Text$) :  PRINT "  ";
  18.  
  19. END SUB
  20. '* ------------------------------------------------------- *
  21. SUB MidText (Text$, X%, Y%)
  22. ' schreibt einen String "von innen nach aussen"
  23.  
  24. LOCAL  XPos%, Temp%, i%
  25.  
  26.   COLOR 3,1
  27.   LOCATE X%, Y%
  28.  
  29.   XPos% = INT ((80 - LEN (Text$))/2) - 1
  30.   Temp% = LEN (Text$) / 2 + 1
  31.   FOR i% = Temp% TO 1 STEP - 1
  32.     DELAY (0.1)
  33.     LOCATE  ,XPos% + i%
  34.     PRINT LEFT$ (Text$, Temp%-i%);
  35.     LOCATE  ,XPos% + Temp%
  36.     PRINT RIGHT$ (Text$, Temp%-i%);
  37.   NEXT i%
  38.   COLOR 14,0
  39.  
  40. END SUB
  41. '* ------------------------------------------------------- *
  42. SUB RechtsText (Text$, X%, Y%)
  43. ' schiebt einen String von der rechten Seite nach links
  44.  
  45. LOCAL  i%
  46.  
  47.   LOCATE X%, 80 - LEN (Text$)
  48.   FOR i% = 1 TO Y%
  49.     DELAY (0.02)
  50.     LOCATE ,80 - LEN (Text$) - i%
  51.     PRINT Text$;
  52.     DELAY (0.05)
  53.   NEXT i%
  54.  
  55. END SUB
  56. '* ------------------------------------------------------- *
  57. SUB LinksText (Text$, X%, Y%)
  58. ' schiebt einen String von der linken Seite nach rechts
  59.  
  60. LOCAL  i%
  61.  
  62.   LOCATE X%, 1
  63.   FOR i% = 1 TO Y%
  64.     DELAY (0.02)
  65.     LOCATE ,1 + i%
  66.     PRINT Text$;
  67.     DELAY (0.05)
  68.   NEXT i%
  69.  
  70. END SUB
  71. '* ------------------------------------------------------- *
  72. SUB LaufSchrift (Text$, Y%)
  73.  
  74. LOCAL i%, Hilf$, Dummy%, Eingabe$
  75.  
  76.   DO
  77.     FOR i% = 1 TO LEN (Text$)
  78.       Hilf$ = MID$ (Text$,i%,80) +_
  79.               MID$ (Text$,1,80 - LEN (MID$(Text$,i%,80)))
  80.       LOCATE Y%,1 : PRINT Hilf$;
  81.       EINGABE$ = INKEY$ : IF EINGABE$ <> "" THEN EXIT LOOP
  82.       DELAY (.083)
  83.     NEXT i%
  84. LOOP UNTIL DUMMY% = 1
  85.  
  86. END SUB
  87. '* ------------------------------------------------------- *
  88. '*                Ende von ZEIGTEXT.INC                    *
  89.