10 PRINT CHR$(147);
20 PRINT "*** FARBTEXT-DEMO ***"
30 PRINT
40 PRINT "VON StEFFEN StEIGERWAlD"
50 PRINT
60 PRINT "DIESES PROGRAMM ZEIGT TEXT MITTIG"
70 PRINT "UND MIT FARBVERLAUF AN."
80 PRINT
90 PRINT "BITTE DREI TEXTE EINGEBEN!"
100 PRINT
110 INPUT "ZEILE 1"; A$
120 INPUT "ZEILE 2"; B$
130 INPUT "ZEILE 3"; C$
140 COLOR 0, 1, 0
150 COLOR 4, 1, 0
160 PRINT CHR$(147);
170 SA = INT((40 - LEN(A$)) / 2)
180 PRINT CHR$(19);
190 FOR IA = 1 TO 10 : PRINT CHR$(17); : NEXT IA
200 PRINT SPC(SA);
210 LA = LEN(A$)
220 FOR X = 1 TO LA
230 HA = INT(7 * SIN(3.14159 * (X - 1) / (LA - 1)))
240 COLOR 1, 3, HA
250 PRINT MID$(A$, X, 1);
260 NEXT X
270 SB = INT((40 - LEN(B$)) / 2)
280 PRINT CHR$(19);
290 FOR IB = 1 TO 12 : PRINT CHR$(17); : NEXT IB
300 PRINT SPC(SB);
310 LB = LEN(B$)
320 FOR Y = 1 TO LB
330 HB = INT(7 * SIN(3.14159 * (Y - 1) / (LB - 1)))
340 COLOR 1, 6, HB
350 PRINT MID$(B$, Y, 1);
360 NEXT Y
370 SC = INT((40 - LEN(C$)) / 2)
380 PRINT CHR$(19);
390 FOR IC = 1 TO 14 : PRINT CHR$(17); : NEXT IC
400 PRINT SPC(SC);
410 LC = LEN(C$)
420 FOR Z = 1 TO LC
430 HC = INT(7 * SIN(3.14159 * (Z - 1) / (LC - 1)))
440 COLOR 1, 7, HC
450 PRINT MID$(C$, Z, 1);
460 NEXT Z
470 COLOR 1, 2, 5
480 PRINT CHR$(19);
490 E$ = "RETURN TO EXIT"
500 SE = INT((40 - LEN(E$)) / 2)
510 FOR ID = 1 TO 24 : PRINT CHR$(17); : NEXT ID
520 PRINT SPC(SE); E$;
530 GET K$
540 IF K$ <> CHR$(13) THEN GOTO 530
550 COLOR 0, 2, 7
560 COLOR 1, 1, 0
570 COLOR 4, 15, 6
580 PRINT CHR$(147);
590 END