0 P=P+1:PRINT"[147]":POKE53280,0:POKE53281,0
1 IFP=1THENLOAD"EUROPEAN05",8,1
3 IFP<3THEN310
9 POKE53280,0:POKE53281,0
10 PRINT"[147][144]P[207]43,1:P[207]44,65:P[207]16640,0:NEW"
11 PRINT"L[207]"CHR$(34)"EUROPEAN02"CHR$(34)",8"
12 PRINT"RUN"
13 PRINT"";
14 POKE198,3:POKE631,13:POKE632,13:POKE633,13:NEW
310 POKE53265,PEEK(53265)AND239
320 POKE53272,PEEK(53272)OR8
330 POKE53265,PEEK(53265)OR32
340 POKE53270,PEEK(53270)OR16
342 POKE53281,PEEK(17193)
420 D=1024:S=8000+8192
421 E=55296:T=8000+8192+16+1000:X=53280
430 FORI=0TO999:POKEX,0:POKED+I,PEEK(S+I):POKEX,1:POKEE+I,PEEK(T+I):NEXT
440 POKE53280,PEEK(17192)
640 POKE53265,PEEK(53265)OR16
650 POKE198,0:WAIT198,1
651 POKE53265,PEEK(53265)AND239:PRINT"[147]"
652 POKE53265,PEEK(53265)AND223
653 POKE53272,PEEK(53272)AND247
654 POKE53265,PEEK(53265)OR16
660 GOTO0