home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 10_11 / tbtest.bas < prev   
Encoding:
BASIC Source File  |  1988-07-07  |  2.0 KB  |  62 lines
  1. ' Test-Programm: Profi-Tools f. TURBO-BASIC
  2.  
  3. $INCLUDE "Init.INC"
  4. $INCLUDE "StrLib.INC"
  5. $INCLUDE "StdIO.INC"
  6.  
  7. ' ---------------------------------------------------------
  8. ' Test : PrintF-PROCEDURE
  9. ' a. - PRINT - benoetigt ca. 8 (17) Sek. (Memory)
  10. CLS
  11. FOR Zeile% = 1 TO 20
  12.     FOR Spalte% = 1 TO 80
  13.       LOCATE Zeile%, Spalte%
  14.       PRINT  "A";
  15.     NEXT
  16. NEXT
  17.  
  18. CALL Taste (Keyy$, Esc)   ' Warten auf Tastendruck
  19.            ' normale Tasten und Sondertasten
  20. ' Vorsicht ! - Nicht die auf S. 65 angegebene
  21. ' Variable Key$ verwenden    --> Syntax Error !
  22. ' b. - PrintF - benoetigt ca. 2 Sek.
  23. CLS
  24. FOR Zeile% = 1 TO 20
  25.     FOR Spalte% = 1 TO 80
  26.       CALL PrintF (Spalte%, Zeile%, "A", Normal)
  27.     NEXT
  28. NEXT
  29. ' --------------------------------------------------------
  30. ' Meldung(en) in Window + warten auf Taste
  31. Texte% = 2 :
  32. ' DIM Text$ (Texte%) <-- bereits in Init.INC dimensioniert!
  33. Text$ (1) = " Ende Test 1 "
  34. Text$ (2) = " Weiter mit beliebiger Taste "
  35. CALL Warten (Text$ (), Texte%, Invers)
  36. ' --------------------------------------------------------
  37. ' Eingabe-Routine in einem Window
  38. Texte% = 1
  39. Text$ (1) = "Groß- u. Kleinbuchstaben"
  40. Comment$ = "Nachname : " : NachName$ = "Pascal" : Max% = 12
  41. Char$ = Alpha$
  42. Back$ = zEsc$ + zReturn$
  43. CALL StandInput (Text$ (), Texte%, Comment$, NachName$,_
  44.                  Max%, Char$, Back$, Last$)
  45. ' ---------------------------------------------------------
  46. ' Allgemeine Eingabe-Routine mit komfortablen
  47.                                      Editier-Moeglichkeiten
  48.  
  49. Spalte% = 5 : Zeile% = 5
  50. Insert% = FALSE
  51. Attr%   = Normal
  52. CLS
  53. CALL LInput (NachName$, Spalte%, Zeile%, Max%, Char$,_
  54.                    Back$, Insert%, Attr%, Last$, EditFlag)
  55. ' ----------------------------------------------------------
  56. ' Datei-Auswahl in Window, die Files sind alphab. sortiert
  57.  
  58. Maske$ = "*.BAS"
  59. CALL Selekt (Maske$, FileName$, Ende$)
  60. ' mit beliebiger Taste kann neuer Maske$ eingegeben werden!
  61. ' ----------------------------------------------------------
  62.