10 A$="":GOSUB80:A1=A:POKEA1,5:POKE785,181:POKE786,170
20 B=15.0111411/5*10^19:GOSUB80
30 POKEA1+1,PEEK(3):POKEA1+2,PEEK(4):A$=A$+CHR$(33)
40 SYS(784)A$,
50 POKE40,76:POKE41,163:POKE42,168:SYS40
60 GOTO200
70 :
80 POKE3,PEEK(71):POKE4,PEEK(72)
90 A=PEEK(3)+PEEK(4)*256
100 RETURN
200 PRINT"[147]";
210 PRINT"80 [218]EICHEN - [205]ODUS DES [195]64"