0 IF A=1 THEN GOTO 150
1 POKE53280,15:POKE53281,15:PRINT"[147]";
5 POKE 56,128:CLR:REM SPEICHERGRENZE!
6 A=1
10 POKE 56578,PEEK(56578)OR3:REM AUSGABE
20 DEF FN VB (X)=((PEEK(56576)AND 252)OR(3-X)):REM VIDEOBANK NR X
30 DEF FN BS (X)=(PEEK(53272) AND 15)OR(16*X):REM BILDSCHIRM X
40 DEF FN CR (X)=(PEEK(53272)AND 240)OR(2*X):REM CHRACTER-RAM
100 POKE 56576, FN VB(2): REM V-BANK 2
110 POKE 53272, FN BS(1): REM BILDSCH 1
120 POKE 53272, FN CR(1): REM CH-RAM 1
130 LOAD"W-T.PRG",8,1
140 :
150 POKE 648,132:REM BETR-SYSTEM VIDEO
160 :
170 FOR I=0 TO 4
180 POKE 53280+I,PEEK(33780+I)
190 NEXT
191 :
195 POKE 53270,PEEK(33786)
196 POKE 53265,PEEK(33787)
199 :
200 FOR I=0 TO 499
210 POKE 55296+2*I,PEEK(33280+I)/16
220 POKE 55296+2*I+1,PEEK(33280+I)
230 NEXT
235 :
240 WAIT 198,15
250 POKE 56576, FN VB(0)
260 POKE 53272, FN BS(1): REM ALTER
270 POKE 53272, FN CR(2): REM BILDSCHIRM
280 POKE 648,4