10 REM ******************************
11 REM *   PAL-GEN                  *
12 REM * ERZEUGT CODE FUER PAL      *
13 REM *     IM GRAPHIK-MPS 802     *
14 REM * IM RAM VON $6000 BIS $7FFF *
15 REM * SOWIE AUF DISK ALS MPS-PAL *
16 REM * LAUFZEIT CA 3 MINUTEN      *
17 REM ******************************
18 REM
100 FOR I=6*4096 TO 6*4096+4*256
101 POKE I,255
102 NEXTI
110 FOR I=6*4096+4*256 TO 8*4096 STEP 2
111 POKE I,253
112 NEXT I
120 FOR I=6*4096+4*256 TO 6*4096+10*256 STEP 4
121 POKE I+1,249:POKE I+3,254
122 NEXT I
130 FOR I=6*4096+10*256 TO 7*4096+15*256 STEP 8
131 POKE I+1,249:POKE I+3,249
132 POKE I+5,254:POKE I+7,254
133 NEXTI
140 FOR I=7*4096+15*256 TO 7*4096+15*256+14*16 STEP 16
141 POKE I+1,249:POKE I+3,249
142 POKE I+5,249:POKE I+7,249
143 POKE I+9,254:POKE I+11,254
144 POKE I+13,254:POKE I+15,254
145 NEXTI
150 FOR I=7*4096+15*256+14*16 TO 7*4096+15*256+15*16 STEP 2
151 POKE I+1,249
152 NEXTI
160 FOR I=7*4096+15*256+15*16 TO 8*4096 STEP 2
161 POKE I+1,254
162 NEXTI
200 OPEN1,8,2,"MPS-PAL,P,W":PRINT#1,CHR$(0)CHR$(96);
210 FORI=6*4096TO8*4096-1:PRINT#1,CHR$(PEEK(I));:NEXT:CLOSE1