home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 April / 64er_Magazin_93-04_1993_Markt__Technik_de_Side_A.d64 / bild-lader (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  520b  |  24 lines
  1. 10 rem dieses prg laedt mit
  2. 20 rem "fractal-factory" erstellte
  3. 30 rem bilder und stellt sie dar.
  4. 40 rem nach einem tastendruck wird das
  5. 50 rem bild wieder ausgeschaltet.
  6. 60 rem in zeile 90 muss der bildname
  7. 70 rem eingetragen werden.
  8. 80 rem
  9. 90 ifa=0thena=1:load"fpic <name>",8,1
  10. 100 poke53265,59
  11. 110 poke53270,216
  12. 120 poke53272,29
  13. 130 poke53281,peek(16249)
  14. 140 f1=peek(16248)
  15. 150 f=(peek(16246)and15)*16or(peek(16247)and15)
  16. 160 forb=0to1023:poke55296+b,f1
  17. 170 poke1024+b,f:next
  18. 180 poke198,0:wait198,1
  19. 190 rem bild ausschalten
  20. 200 poke53265,27
  21. 210 poke53270,200
  22. 220 poke53272,21
  23. 230 print"[147]"
  24.