10 REM ***********************
20 REM *    OSZILLOSKOP      *
30 REM ***********************
40 :
50 FORI=49152TO49177:READD:POKEI,D:S=S+D:NEXT
60 IFS<>3566THENPRINT "FEHLER IN DATAS!!":END
100 POKE56579,15
110 PRINT"[147]"
120 FORI=0TO39
130 A=0
140 FORX=3TO0STEP-1
145 A=A+2^X
150 A=A+2^X
160 POKE56577,A
170 IF (PEEK(56577)AND16)=16THENA=A-2^X
180 NEXTX
190 SYS49152,I,20-A,"."
200 NEXTI
210 GOTO110
1000 DATA32,253,174,32,158,183,138,72,32,253,174,32
1010 DATA158,183,104,168,24,32,240,255,32,253,174,76
1020 DATA164,170