Nach ~30 Jahren habe ich wieder Gefallen an BASIC auf dem C64 gefunden.
Zu Anfang wollte ich einen Text ausgeben und ihn mit einem Farbverlauf versehen.
Es funktioniert soweit so wie ich mir das in etwa vorgestellt habe.
Dennoch denke ich, daß ich platzsparender arbeiten könnte.
Hat jemand von den Profis einen Vorschlag etwas zu vereinfachen ?
Ab Zeilennummer 340 wird es etwas viel.... Hilfe 
100 rem clear screen
110 sys58692:poke53280,0:poke53281,0:fr=55792
120 poke646,14:z=0:w=0
130 rem animation
140 rem zeichen
150 poke1024,112:poke2023,125
160 for i= 0to37
170 poke1025+i,64
180 poke2022-i,64
190 nexti
200 poke1984,109:poke1063,110
210 l=1944:r=1103
220 fori=1to23
230 pokel,66:poker,66
240 l=l-40:r=r+40
250 nexti
260 fort=0to7
270 read s
280 if s=999 then restore:goto270
290 poke55792+t,0:poke1520+t,s
300 nextt
310 data 20,8,15,18,13,15,4,20
320 data 16,18,5,19,5,14,20,19
330 data 999
340 z=z+1
350 ifz=1 then gosub 710
360 ifz=2 then gosub 750
370 ifz=3 then gosub 790
380 ifz=4 then gosub 830
390 ifz=5 then gosub 870
400 ifz=6 then gosub 910
410 ifz=7 then gosub 950
420 ifz=8 then gosub 990
430 ifz=9 then gosub 1030
440 ifz=10 then gosub 1070
450 ifz=11 then gosub 1110
460 ifz=12 then gosub 1150
470 ifz=13 then gosub 1190
480 ifz=14 then gosub 1230
490 ifz=15 then gosub 1270
500 ifz=16 then gosub 1310
510 ifz=17 then gosub 1270
520 ifz=18 then gosub 1230
530 ifz=19 then gosub 1190
540 ifz=20 then gosub 1150
550 ifz=21 then gosub 1110
560 ifz=22 then gosub 1070
570 ifz=23 then gosub 1030
580 ifz=24 then gosub 990
590 ifz=25 then gosub 950
600 ifz=26 then gosub 910
610 ifz=27 then gosub 870
620 ifz=28 then gosub 830
630 ifz=29 then gosub 790
640 ifz=30 then gosub 750
650 ifz=31 then gosub 710
660 ifz=32 then gosub 1310
670 ifz=33 then z=0:goto260
680 geta$:ifa$=""then goto340
690 end
700 rem +++++++++++++++++++++++++++++++
710 pokefr,11:pokefr+1,0:pokefr+2,0
720 pokefr+3,0:pokefr+4,0:pokefr+5,0
730 pokefr+6,0:pokefr+7,0:return
740 rem +++++++++++++++++++++++++++++++
750 pokefr,12:pokefr+1,11:pokefr+2,0
760 pokefr+3,0:pokefr+4,0:pokefr+5,0
770 pokefr+6,0:pokefr+7,0:return
780 rem +++++++++++++++++++++++++++++++
790 pokefr,15:pokefr+1,12:pokefr+2,11
800 pokefr+3,0:pokefr+4,0:pokefr+5,0
810 pokefr+6,0:pokefr+7,0:return
820 rem +++++++++++++++++++++++++++++++
830 pokefr,1:pokefr+1,15:pokefr+2,12
840 pokefr+3,11:pokefr+4,0:pokefr+5,0
850 pokefr+6,0:pokefr+7,0:return
860 rem +++++++++++++++++++++++++++++++
870 pokefr,1:pokefr+1,1:pokefr+2,15
880 pokefr+3,12:pokefr+4,11:pokefr+5,0
890 pokefr+6,0:pokefr+7,0:return
900 rem +++++++++++++++++++++++++++++++
910 pokefr,15:pokefr+1,1:pokefr+2,1
920 pokefr+3,15:pokefr+4,12:pokefr+5,11
930 pokefr+6,0:pokefr+7,0:return
940 rem +++++++++++++++++++++++++++++++
950 pokefr,12:pokefr+1,15:pokefr+2,1
960 pokefr+3,1:pokefr+4,15:pokefr+5,12
970 pokefr+6,11:pokefr+7,0:return
980 rem +++++++++++++++++++++++++++++++
990 pokefr,11:pokefr+1,12:pokefr+2,15
1000 pokefr+3,1:pokefr+4,1:pokefr+5,15
1010 pokefr+6,12:pokefr+7,11:return
1020 rem +++++++++++++++++++++++++++++++
1030 pokefr,0:pokefr+1,11:pokefr+2,12
1040 pokefr+3,15:pokefr+4,1:pokefr+5,1
1050 pokefr+6,15:pokefr+7,12:return
1060 rem +++++++++++++++++++++++++++++++
1070 pokefr,0:pokefr+1,0:pokefr+2,11
1080 pokefr+3,12:pokefr+4,15:pokefr+5,1
1090 pokefr+6,1:pokefr+7,15:return
1100 rem +++++++++++++++++++++++++++++++
1110 pokefr,0:pokefr+1,0:pokefr+2,0
1120 pokefr+3,11:pokefr+4,12:pokefr+5,15
1130 pokefr+6,1:pokefr+7,1:return
1140 rem +++++++++++++++++++++++++++++++
1150 pokefr,0:pokefr+1,0:pokefr+2,0
1160 pokefr+3,0:pokefr+4,11:pokefr+5,12
1170 pokefr+6,15:pokefr+7,1:return
1180 rem +++++++++++++++++++++++++++++++
1190 pokefr,0:pokefr+1,0:pokefr+2,0
1200 pokefr+3,0:pokefr+4,0:pokefr+5,11
1210 pokefr+6,12:pokefr+7,15:return
1220 rem +++++++++++++++++++++++++++++++
1230 pokefr,0:pokefr+1,0:pokefr+2,0
1240 pokefr+3,0:pokefr+4,0:pokefr+5,0
1250 pokefr+6,11:pokefr+7,12:return
1260 rem +++++++++++++++++++++++++++++++
1270 pokefr,0:pokefr+1,0:pokefr+2,0
1280 pokefr+3,0:pokefr+4,0:pokefr+5,0
1290 pokefr+6,0:pokefr+7,11:return
1300 rem +++++++++++++++++++++++++++++++
1310 pokefr,0:pokefr+1,0:pokefr+2,0
1320 pokefr+3,0:pokefr+4,0:pokefr+5,0
1330 pokefr+6,0:pokefr+7,0:return