1 DEFFNA(X)=X:GOSUB32000                                                       :
10 PRINT"[147][194]ITTE RECHTEN [212]EIL EINER [198]ORMEL :":PRINT:X=1
20 INPUT A$:A$="X="+A$+":RETURN:"
30 N1=65:S1=0:N2=0:S2=128:GOSUB2000
40 AN=PEEK(AD):AD=PEEK(AD+1)+256*PEEK(AD+2)
50 ZI=512:QU=AD:GOSUB2100
60 GOSUB2300
70 FORI=0TO255:IFPEEK(512+I)=0THENAN=I-3:I=255
80 NEXT
90 ZI=2060:QU=514:GOSUB2100
95 :
100 PRINT"OK":PRINT
110 PRINT"[194]EISPIELE (0=[197]NDE) :":PRINT
120 INPUTZ$:Z=VAL(Z$)
130 PRINTFNA(Z)
140 IFZTHEN120
998 END
999 :
2000 POKE180,N1ORS1:POKE181,N2ORS2
2010 POKE69,PEEK(180):POKE70,PEEK(181):SYS45287
2020 AD=PEEK(780)+256*PEEK(782)
2030 RETURN
2100 Z=ZI:GOSUB2200:POKE53,LO:POKE54,HI
2105 Z=QU:GOSUB2200:POKE781,LO:POKE782,HI
2110 POKE780,AN+1:SYS46728
2120 RETURN
2200 HI=INT(Z/256):LO=Z-HI*256
2210 RETURN
2300 POKE781,AN:SYS43722:SYS828:RETURN
32000 DATA169,17,141,8,3,32,134,164,169,228,141,8,3,32,115,0,76,237,167
32001 FORI=1TO19:READW:POKEI+827,W:NEXT
32002 RETURN