1 DATA169,21,141,24,3,169,192,141,25,3,169,129,141,13,221,169,17,141,14,221,96
2 DATA72,138,72,152,72,173,13,221,41,1,208,3,76,86,254,165,2,208,8,169,15
3 DATA141,24,212,76,188,254,169,15,73,4,141,24,212,141,49,192,76,188,254
4 DATA169,71,141,24,3,169,254,141,25,3,96
9 PRINT"> STIMME #4 < ":A=0
10 FORB=0TO71:READQ:POKE49152+B,Q:A=A+Q:NEXT
11 IFA<>7897THENPRINT"> FEHLER !! <":END
12 PRINT"> AKTIVIERT <":SYS49152
13 POKE56581,7:FORB=0TO2:POKE2,1:FORA=0TO50:NEXTA:POKE2,0:FORA=0TO20:NEXTA,B
14 SYS49213
15 REM
16 REM      STIMME #4 VERSION 1.0
17 REM               VON
18 REM         CHRISTOPH  JOCH
19 REM