home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 July / 64er_Magazin_92-07_1992-12-02_Markt__Technik_de.d64 / lf.bas (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  21 lines
  1. 0 data"204560205a60203661a900a030208260a900a030209660a91d8d18d0201f61e6b7d002e6b8"
  2. 1 data"a900a038208260a900a038209660a91f8d18d0201f61e6b7d0cae6b84c096060a204a000"
  3. 2 data"a9ff84fe86ff91fec8d0fbe6ffcad0f660a204a0ac84fe86ffa20fa9f0a00f91fe38e91088"
  4. 3 data"10f8a8c8a5fe18692885fe9002e6ff98ca10e56085fe84ffa208a0009891fec8d0fbe6ffca"
  5. 4 data"d0f6608d53618c5461a0008c51618c5261a000b1fcaab1b7a8bd0070186d536185febd8070"
  6. 5 data"6d546185ffbd007111fe91fea5fc186d556185fc9002e6fda5b7186d566185b79002e6b8"
  7. 6 data"ee5161d003ee5261a5fdc973d010a5fcc980900ae90085fca5fde90285fda5b8c975d010"
  8. 7 data"a5b7c980900ae90085b7a5b8e90285b8ad5261c902d08dad5161c900d08660a5cbc90ef005"
  9. 8 data"c940d0f660a9158d18d0a90085c64c74a4a98085fca97185fda98085b7a97385b8a901"
  10. 9 data"8d5561a9018d566160":a=24576:fori=0to9:readw$:forj=1tolen(w$)step2
  11. 10 w=asc(mid$(w$,j))-48:print".";:w=w+(w>10)*7:v=asc(mid$(w$,j+1))-48:v=v+(v>10)*7:w=w*16+v
  12. 11 pokea,w:a=a+1:nextj,i:print:fori=0to127:a=(iand248)*16:b=2^(7-(iand7)):poke28672+i,aand255
  13. 12 poke28800+i,a/256:poke28928+i,b:print".";:next:print:fori=0to511:c=(NULL)*i/256:print".";
  14. 13 poke29056+i,sin(c)*59+60:poke29568+i,cos(c)*59+60:next
  15. 14 print"[147]kreisende  lissajous-figuren":print"programmiert von dirk rother"
  16. 15 input"b[146]ewegt e[146]inzelschritte";a$:print"frequenzverhaeltnis":input"fx";b$
  17. 16 input"fy";c$:poke24903,val(b$):poke24908,val(c$):a=240:ifa$="b"thena=208
  18. 17 poke24871,a:print"ende mit e[146] neustart mit run14[146]"
  19. 18 print"aktion (halten/weiter) mit taste":fori=0toti+300:i=ti:next
  20. 19 poke53280,0:poke53281,0:print"[147]":sys6*4096
  21.