home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 75 / 64er_Magazin_Sonderheft_75_19xx_Markt__Technik_de_Side_B.d64 / bildlader (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  345b  |  16 lines
  1. 0 ifa=1then7
  2. 1 ifa=2then8
  3. 2 ifa=3then50
  4. 3 gosub100
  5. 6 ifa=0thena=1:load"graphicclr",8,1
  6. 7 ifa=1thena=2:load"bitmapon",8,1
  7. 8 sys58692:sys28700:sys28726
  8. 9 fori=1024to2023:pokei,fb:next
  9. 10 ifa=2thena=3:loadbl$,8,1
  10. 50 poke198,0:wait198,1
  11. 60 poke53265,27:poke53272,21:sys58692:end
  12. 100 print"[147]bildname";:inputbl$
  13. 110 print"farbe hintergrund (0-15)";:inputhg
  14. 120 print"farbe vordergrund (0-15)";:inputvg
  15. 130 fb=16*vg+hg:return
  16.