home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 August / 64er_Magazin_88-08_1988_Markt__Technik_de_Side_A.d64 / multi-fn (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  766b  |  33 lines
  1. 1 deffna(x)=x:gosub32000                                                       :
  2. 10 print"[147][194]itte rechten [212]eil einer [198]ormel :":print:x=1
  3. 20 input a$:a$="x="+a$+":return:"
  4. 30 n1=65:s1=0:n2=0:s2=128:gosub2000
  5. 40 an=peek(ad):ad=peek(ad+1)+256*peek(ad+2)
  6. 50 zi=512:qu=ad:gosub2100
  7. 60 gosub2300
  8. 70 fori=0to255:ifpeek(512+i)=0thenan=i-3:i=255
  9. 80 next
  10. 90 zi=2060:qu=514:gosub2100
  11. 95 :
  12. 100 print"ok":print
  13. 110 print"[194]eispiele (0=[197]nde) :":print
  14. 120 inputz$:z=val(z$)
  15. 130 printfna(z)
  16. 140 ifzthen120
  17. 998 end
  18. 999 :
  19. 2000 poke180,n1ors1:poke181,n2ors2
  20. 2010 poke69,peek(180):poke70,peek(181):sys45287
  21. 2020 ad=peek(780)+256*peek(782)
  22. 2030 return
  23. 2100 z=zi:gosub2200:poke53,lo:poke54,hi
  24. 2105 z=qu:gosub2200:poke781,lo:poke782,hi
  25. 2110 poke780,an+1:sys46728
  26. 2120 return
  27. 2200 hi=int(z/256):lo=z-hi*256
  28. 2210 return
  29. 2300 poke781,an:sys43722:sys828:return
  30. 32000 data169,17,141,8,3,32,134,164,169,228,141,8,3,32,115,0,76,237,167
  31. 32001 fori=1to19:readw:pokei+827,w:next
  32. 32002 return
  33.