10 REM LADEPROGRAMM
20 ON(A+1)GOTO25,30,40,50,60,70
25 A=1:LOAD"M7",8,1
30 A=2:SYS8*4096:LOAD"M2",8,1
40 A=3:SYS8*4096+3:PRINT"[147]":POKE53272,21:IFPEEK(828)>0THENPOKE816,215:POKE817,200
45 LOAD"M3",8,1
50 A=4:POKE249,0:POKE250,7*16:POKE251,0:POKE252,8*16:POKE253,0:POKE254,13*16
55 SYS23808+3:LOAD"M4",8,1
60 A=5:LOAD"M5",8,1
70 A=6:LOAD"M6",8,1