home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh13a.d64 / oszilloskop (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  452b  |  23 lines
  1. 10 REM ***********************
  2. 20 REM *    OSZILLOSKOP      *
  3. 30 REM ***********************
  4. 40 :
  5. 50 FORI=49152TO49177:READD:POKEI,D:S=S+D:NEXT
  6. 60 IFS<>3566THENPRINT "FEHLER IN DATAS!!":END
  7. 100 POKE56579,15
  8. 110 PRINT"[147]"
  9. 120 FORI=0TO39
  10. 130 A=0
  11. 140 FORX=3TO0STEP-1
  12. 145 A=A+2^X
  13. 150 A=A+2^X
  14. 160 POKE56577,A
  15. 170 IF (PEEK(56577)AND16)=16THENA=A-2^X
  16. 180 NEXTX
  17. 190 SYS49152,I,20-A,"."
  18. 200 NEXTI
  19. 210 GOTO110
  20. 1000 DATA32,253,174,32,158,183,138,72,32,253,174,32
  21. 1010 DATA158,183,104,168,24,32,240,255,32,253,174,76
  22. 1020 DATA164,170
  23.