home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 13 / 64er_Magazin_Sonderheft_13_19xx_Markt__Technik_de_Side_A.d64 / oszilloskop (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.