1 REM *******  S C H O C K E R  *******
2 REM NACH <RUN> BITTE 20 SEK. WARTEN !
3 REM DANN START MIT     SYS 49152
4 DIMC(75):FORA=0TO9:C(48+A)=A:C(65+A)=10+A:NEXT:FORA=0TO13:READA$:FORB=1TO32:
5 B$=MID$(A$,B*2-1,2)
6 POKE49152+A*32+B-1,C(ASC(LEFT$(B$,1)))*16+C(ASC(RIGHT$(B$,1))):NEXTB,A
7 DATA"78A9338501A900855FA9D08560A900855AA9D8855BA9008558A9D0855920BFA3"
8 DATA"A93785012098C1A200A007B900C8488810F9A007689900C88810F9AD2CC01869"
9 DATA"088D2CC08D36C09006EE2DC0EE37C0CAD0D7A000B900C8A2074829019DA4C168"
10 DATA"6ACA10F59848A203A004BDA4C18502B9A4C19DA4C1A50299A4C1C8CA10EC68A8"
11 DATA"A900AA48BDA4C14A682AE8E00890F49900C888D0BFEE91C0EE56C0AD56C0C9D0"
12 DATA"90B0A208BDAEC19D0080CA10F75860EEACC1D00AEEADC1ADADC1C950B00AAD8D"
13 DATA"02C907F0034C31EAA9008DACC18DADC18D8D02782059C1A200A0FFBD000499E8"
14 DATA"C688E8D0F6EEDDC0CEE0C0ADDDC0C90890E5AD02DD09038D02DDAD00DD25FC8D"
15 DATA"00DDA9138D18D0A9048DDDC0A9C68DE0C0A20AA0FF20B3EE88D0FACAD0F52059"
16 DATA"C1AD00DD25FC09038D00DDA9158D18D0584C31EA782015FD20A3FD2018E52098"
17 DATA"C14C7BE38E16D020A3FD2050FD2015FD205BFF2098C16C00A0AD20D08502A900"
18 DATA"8D20D0AD11D029EF8D11D02087C1A20020B3EECAD0FA2087C1A5028D20D0AD11"
19 DATA"D009108D11D060A210A000CE20D0EE20D088D0F7CAD0F260A9AF8D1403A9C08D"
20 DATA"150358600000000000000000000044C134C1C3C2CD3830C2CD3830FFFFFFFF00"