home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 10_11 / eingdemo.bas < prev    next >
BASIC Source File  |  1988-06-26  |  2KB  |  63 lines
  1. '* ---------------------------------------------------------------------- *
  2. '*                           EINGDEMO.BAS                                 *
  3. '*         Demonstrationsprogramm zur erweiterten Input-Routine           *
  4. '*                 (c) 1988 by K.E.Rauch und TOOLBOX                      *
  5. '* ---------------------------------------------------------------------- *
  6.  
  7. $INCLUDE "EINGABE.INC"
  8. '* ---------------------------------------------------------------------- *
  9. '* EINGABE.INC beinhaltet die Funktion Eingabe                            *
  10. '* PARAMETER:                                                             *
  11. '*      feldlen% FÜR FELDLÄNGE                                            *
  12. '*    spos%    FÜR SPALTE                                               *
  13. '*    zpos%    FÜR ZEILE                                                *
  14. '*    vartyp$  FÜR VARIABLENTYP ( w=Wert oder t=Text)                   *
  15. '* ---------------------------------------------------------------------- *
  16. CLS
  17. COLOR 15,1
  18. CALL Rahmen(1,1,24,79)
  19. CALL Rahmen(4,22,6,57)
  20. LOCATE 5,23
  21. PRINT " A D R E S S E N - E I N G A B E ";
  22. COLOR 15,1
  23. LOCATE 10,14
  24. PRINT "Name :";
  25. COLOR 0,15
  26. namen$ = FNEingabe$(20,21,10,"t")
  27. COLOR 15,1
  28. LOCATE 12,11
  29. PRINT "Adresse :";
  30. COLOR 0,15
  31. adresse$ = FNEingabe$(30,21,12,"t")
  32. COLOR 15,1
  33. LOCATE 15,15
  34. PRINT "PLZ :";
  35. COLOR 0,15
  36. plz% = VAL(FNEingabe$(4,21,15,"w"))
  37. COLOR 15,1
  38. LOCATE 15,28
  39. PRINT "Ort :" ;
  40. COLOR 0,15
  41. ort$ = FNEingabe$(20,32,15,"t")
  42. COLOR 15,1
  43. CALL Rahmen (20,10,22,72)
  44. LOCATE 21,11
  45. PRINT " Demonstrationsprogramm zur Include-datei 'EINGABE.BAS' "
  46. END
  47.  
  48. '* ---------------------------------------------------------------------- *
  49. SUB Rahmen (zlinks%, splinks%, zrechts%, sprechts%)
  50.  
  51. LOCAL i%
  52.  
  53. LOCATE zlinks%, splinks%
  54. PRINT CHR$(201); STRING$(sprechts%-splinks%-2,205); CHR$(187)
  55. FOR i% = (zlinks% + 1) to (zrechts% - 1)
  56.   LOCATE i%, splinks%
  57.   PRINT CHR$(186); SPACE$(sprechts%-splinks%-2); CHR$(186)
  58. NEXT i%
  59. LOCATE i%, splinks%
  60. PRINT CHR$(200); STRING$(sprechts%-splinks%-2,205); CHR$(188);
  61.  
  62. END SUB
  63. '* ---------------------------------------------------------------------- *