5 PRINT"[147]":POKE53280,11:POKE53281,.:POKE211,33:POKE214,11:SYS58640:PRINT"[155]SCORE:"
6 PRINT"[159]ROHRBRUCH                       [146][145][157][157](C)[213][219][215][215][192][192][157][157][157][157][157][157][157][180] [219][213][201][176][201][157][157][157][157][157][157][157][180][202]"
7 PRINT"[157][157][157][157][157][157][203][202][203][177][202][157][157][157][157][157][157][157][180][213][192][201][213][219][157][157][157][157][157][157][157][180][202][201][213][201][219][194][157][157][157][157][157][157][157][180][192][203][202][203][194][202][157][157][157][157][157][157][157][180] G.P.[157][157][157][157][157]";
8 FORP=.TO17:PRINT"[157][180]";:NEXT:POKE211,.:POKE214,24:SYS58640:FORP=.TO31:PRINT"[155][166]";:NEXT
10 V=53248:POKEV,24:POKEV+1,221:POKEV+39,9:POKEV+40,6:POKE2040,13:POKE2041,14
20 POKEV+27,3:J=56320:POKEV+28,1:POKEV+37,5:POKEV+38,10
21 FORP=.TO41:POKE896+P,.:NEXT:FORN=.TO20:READQ:POKE938+N,Q:NEXT
22 FORN=.TO62:READQ:POKE832+N,Q:NEXT:POKEV+21,3:W$="[146][146][146][146][146][146][146][175][146][146][146][162][146][146][183][146][146] [146][145][175][146][145][162][145][183]"
23 W=INT(30+RND(1)*(255-30)):POKEV+2,W:FORY=50TO221STEP4:POKEV+21,3:POKEV+3,Y
24 IFPEEK(J)=123THENX=X-5:DATA.,16,.,.,16,.,.,56,.,.,56,.,.,124,.,.,124,.
25 IFPEEK(J)=119THENX=X+5:DATA.,56,.,.,5,85,8,5,85,42,5,85,175,5,85,190,197,85
26 IFX<24THENX=24:DATA191,197,85,175,5,85,47,13,85,12,29,85,21,81,84,21,81,84
27 IFX>255THENX=255:DATA21,64,.,21,64,.,21,64,.,42,128,.,21,64,.,21,64,.,21,64
28 IFY=206ANDX>W-12ANDX<W+2THENPOKEV+21,1:S=S+1:POKE211,33:POKE214,13:SYS58640:PRINT"[146]"S:GOTO23
98 POKEV,X:NEXTY:W$=RIGHT$(W$,LEN(W$)-4):POKE211,.:POKE214,23:SYS58640
99 FORT=.TO31:PRINT""LEFT$(W$,4);:NEXT:IFW$=""GOTO500:DATA.,80,80,.,80,80,.,168
100 GOTO23:DATA168,.
500 POKE211,.:POKE214,23:SYS58640:FORT=.TO31:PRINT"[145] ";:NEXT:POKE211,(X-24)/8
501 POKE214,18:SYS58640:PRINT"[146][213][192][192][192][192][192][192][201][157][157][157][157][157][157][157][157][194]GLUCKS[194][157][157][157][157][157][157][157][157][202][178][192][192][192][192][192][203]"
502 POKEV+21,.:WAIT56320,16,16:RUN