home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh13a.d64
/
oszilloskop
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
452b
|
23 lines
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