1 REM
2 REM   DEMOPOGRAMM FUER 'STIMME #4'
3 REM        VON CHRISTOPH JOCH
4 REM
5 REM      ES STEHEN IHNEN NOCH 3
6 REM     STIMMEN ZUR VERFUEGUNG !
7 REM
10 IFPEEK(49153)<>21THENPRINT"ERST 'STIMME #4' LADEN !!":END
20 SYS49152:POKE49203,8:POKE49201,0
30 READHI,LO,D:IFHI=0THENGOTO60
40 POKE56580,LO:POKE56581,HI:POKE2,1:FORB=0TOD*4:NEXT:POKE2,0:FORB=0TO10:NEXT
50 GOTO30
60 SYS49213
100 DATA4,232,50,4,232,50,4,95,50,4,95,50
110 DATA4,232,75,5,130,25,5,214,100
120 DATA4,232,50,4,232,50,4,95,50,4,95,50
130 DATA4,232,75,5,130,25,5,214,100
140 DATA4,232,50,4,232,50,4,95,50,3,229,50
150 DATA3,173,100,3,70,100
160 DATA3,229,100,3,229,25,4,95,25,3,229,25,4,95,25
170 DATA4,232,100,4,95,50,3,229,50
180 DATA3,173,100,3,229,50,4,95,50
190 DATA4,232,200
200 DATA4,95,100,4,232,50,5,130,50
210 DATA5,214,200
220 DATA4,232,50,4,232,50,7,91,50,5,130,50
230 DATA5,214,100,6,141,100
240 DATA7,91,200
999 DATA0,0,0