home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 07 / einsteig / fortab.bas < prev    next >
Encoding:
BASIC Source File  |  1990-06-05  |  1.0 KB  |  32 lines
  1. 5  REM ********* Listing ForTab.bas ************************
  2. 10 CLS
  3. 20 DIM TEXTE$(3)
  4. 30 TEXTE$(0) = "Nachnamen"
  5. 40 TEXTE$(1) = "Vornamen"
  6. 50 TEXTE$(2) = "Geburtstag"
  7. 60 TEXTE$(3) = "Wohnort"
  8. 70 LOCATE 2,10: PRINT "Tabelle füllen, Eingabe <= 15 Zeich."
  9. 80 DIM SCHULTAB$(10, 4)
  10. 90 FOR zeile = 1 TO 5
  11. 100     FOR spalte = 1 TO 4
  12. 110         LOCATE 5, 5
  13. 120         PRINT "Bitte "; STR$(zeile); ". "; TEXTE$(spalte - 1); " eingeben: ";
  14. 130         INPUT "", SCHULTAB$(zeile, spalte)
  15. 140         LOCATE 5, 5: PRINT SPACE$(70)
  16. 150     NEXT spalte
  17. 160 NEXT zeile
  18. 170 LOCATE 10, 20: PRINT "< TASTE >"
  19. 180 WARTEN$ = INPUT$(1)
  20. 190 CLS
  21. 200 LOCATE 2, 10: PRINT "Ausgabe der Tabelle am Bildschirm"
  22. 210 LOCATE 5, 1
  23. 220 PRINT "Nachname"; TAB(21); "Vorname"; TAB(41); "Geburtstag"; TAB(61); "Wohnort"
  24. 230 PRINT STRING$(75, "-")
  25. 240 FOR zeile = 1 TO 5
  26. 250    FOR spalte = 1 TO 4
  27. 260        LOCATE 5 + zeile * 2, spalte + (spalte - 1) * 19
  28. 270        PRINT SCHULTAB$(zeile, spalte)
  29. 280    NEXT spalte
  30. 290 NEXT zeile
  31. 300 END
  32.