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