home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 May / 64er_Magazin_87-05_1987_Markt__Technik_de.d64 / koala-change (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  1.3 KB  |  60 lines
  1. 1 :if l=1 then 20
  2. 2 :
  3. 3 :rem ********************************
  4. 4 :rem *         koala-change         *
  5. 5 :rem *                              *
  6. 6 :rem * uwe huedepohl                *
  7. 7 :rem *    scheckertstr.19           *
  8. 8 :rem *       8702 zell/am main      *
  9. 9 :rem ********************************
  10. 10 :
  11. 11 :
  12. 12 print"[147]koala-pic[146] schon absolut geladen";:input"(j/n)";a$:ifa$<>"j" then end
  13. 14 :
  14. 16 :
  15. 18 l=1:load"msp-koala",8,1
  16. 19 :
  17. 20 poke 53280,7:poke 53281,7:poke 646,9
  18. 22 hcol=peek(24576)-240
  19. 24 for i=0 to 15
  20. 26 :   read farbzuweisung
  21. 28 :   if i=hcol then hcol=fa:goto 30
  22. 29 next i
  23. 30 poke49380,hcol
  24. 32 :
  25. 34 :
  26. 36 print"[147]neuverteilung der grauwerte";:input"(j/n)";a$:if a$<>"j" then 78
  27. 38 print"[147]":poke 53281,1:poke 53280,1
  28. 39 poke 646,0:restore
  29. 40 for i=0 to 15:poke 646,i
  30. 42 :   print chr$(18);"   ";
  31. 44 :   if i<>7 and i<>15 then 56
  32. 45 :   print:print:poke 646,0
  33. 46 :   for j=(i-7)to i
  34. 48 :       read farbzuweisung
  35. 50 :       print" [157]";fa;"[157] ";
  36. 52 :   next j
  37. 53 :   print:print
  38. 56 next i
  39. 58 :
  40. 59 input">return<[146]";a$
  41. 63 add=121:print:print
  42. 64 for i=0 to 15
  43. 66 : a=peek(1024+add):a=val(chr$(a))
  44. 68 : poke(49386+i),a:add=add+3
  45. 70 : if i=7 then add=281
  46. 72 next i
  47. 73 poke 53280,7:poke 53281,7:poke 646,9:goto 36
  48. 74 :
  49. 76 :
  50. 78 print:print
  51. 79 input" ziel [146]adresse  16384[157][157][157][157][157][157][157]";z
  52. 80 zlow=z-(int(z/256)*256)
  53. 82 zhihg=int(z/256)
  54. 83 poke 49239,zlow:poke 49240,zhigh
  55. 84 :
  56. 86 sys 49152
  57. 87 print"[147] > ok < ":end
  58. 88 :
  59. 90 data 3,0,3,1,2,2,3,1,2,3,2,3,2,1,2,1
  60.