10 SCREEN 0 : WIDTH 80
20 COLOR 0, 7 : CLS
30 PRINT "*** Farbtext-Demo ***"
40 PRINT
50 PRINT "von Steffen Steigerwald"
60 PRINT
70 PRINT "Dieses Programm zeigt Text mittig"
80 PRINT "und mit Farbverlauf an."
90 PRINT
100 PRINT "Bitte drei Texte eingeben!"
110 PRINT
120 INPUT "Zeile 1: ", A$
130 INPUT "Zeile 2: ", B$
140 INPUT "Zeile 3: ", C$
150 COLOR 7, 0 : CLS
160 SA = INT((80 - LEN(A$)) / 2) + 1
170 LA = LEN(A$)
180 FOR X = 1 TO LA
190 IF LA > 1 THEN HA = 1 + INT(14 * SIN(3.14159 * (X - 1) / (LA - 1))) ELSE HA = 15
200 COLOR HA, 0
210 LOCATE 10, SA + X - 1 : PRINT MID$(A$, X, 1);
220 NEXT X
230 SB = INT((80 - LEN(B$)) / 2) + 1
240 LB = LEN(B$)
250 FOR Y = 1 TO LB
260 IF LB > 1 THEN HB = 1 + INT(14 * SIN(3.14159 * (Y - 1) / (LB - 1))) ELSE HB = 15
270 COLOR HB, 0
280 LOCATE 12, SB + Y - 1 : PRINT MID$(B$, Y, 1);
290 NEXT Y
300 SC = INT((80 - LEN(C$)) / 2) + 1
310 LC = LEN(C$)
320 FOR Z = 1 TO LC
330 IF LC > 1 THEN HC = 1 + INT(14 * SIN(3.14159 * (Z - 1) / (LC - 1))) ELSE HC = 15
340 COLOR HC, 0
350 LOCATE 14, SC + Z - 1 : PRINT MID$(C$, Z, 1);
360 NEXT Z
370 COLOR 7, 0
380 E$ = "RETURN TO EXIT"
390 SE = INT((80 - LEN(E$)) / 2) + 1
400 LOCATE 24, SE : PRINT E$;
410 K$ = INKEY$
420 IF K$ <> CHR$(13) THEN GOTO 410
430 COLOR 7, 0 : CLS
440 END