100 REM *****************************
110 REM * Vielfarbeffekt in GR.0
120 REM *     BASIC-Loader
130 REM * P. FINZEL             1986
140 REM *****************************
200 MPGM=1536:FARBTAB=1540
220 GOSUB 500
230 X=USR(MPGM)
300 FOR I=0 TO 23
310 X=PEEK(FARBTAB+I)
320 POKE FARBTAB+I,14
330 FOR T=0 TO 50:NEXT T
340 POKE FARBTAB+I,X
350 NEXT I
360 GOTO 300
500 REM * Vielfarbeffekt installieren
510 S=0:RESTORE 600
520 FOR A=1536 TO 1664:READ D:POKE A,D:S=S+D:NEXT A
530 IF S<>14129 THEN ? "DATEN-FEHLER !":STOP
590 RETURN
600 DATA 104,76,29,6,20,34,52,66,84,98,116,130,148,162,180,194,212
610 DATA 226,244,2,20,34,52,66,84,98,116,130,0,173,48,2,172,49,2,133
620 DATA 212,132,213,160,2,177,212,9,128,145,212,200,177,212,9,128
630 DATA 145,212,200,200,200,177,212,9,128,145,212,192,27,208,245
640 DATA 169,0,141,14,212,169,98,141,0,2,169,6,141,1,2,169,121,141
650 DATA 34,2,169,6,141,35,2,169,192,141,14,212,96,72,138,72,174,28
660 DATA 6,189,4,6,141,10,212,141,24,208,232,142,28,6,104,170,104
670 DATA 64,169,0,141,28,6,76,95,228