10 REM A KIND OF MAGIC
20 IFA=0THENA=1:LOAD"D.TITLE",8,1
30 IFA=1THENA=2:LOAD"D.MUSIX",8,1
40 IFA=2THENA=3:SYS2560:SYS15872
42 POKE53280,0:POKE53281,0:PRINTCHR$(14)"[147][158][194]ITTE WARTEN..."
43 IFA=3THENA=4:LOAD"D.DATA",8,1
46 IFA=4THENA=5:LOAD"D.MAIN",8,1
50 PRINT"[144][147]NEW"CHR$(13)"LOAD"CHR$(34)"D.GO"CHR$(34);:POKE53290,11
53 FORI=0TO24:POKE54272+I,0:NEXT:POKE54272+24,15:POKE659,152:POKE660,86
55 PRINT",8":POKE2043,58
60 PRINT"RUN":POKE631,19:POKE632,13:POKE633,13:POKE634,13:POKE198,4