home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 24 / 64er_Magazin_Sonderheft_24_19xx_Markt__Technik_de_Side_A.d64 / pic.lader (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  938b  |  26 lines

  1. 10 rem*******************************
  2. 20 rem*                             *
  3. 30 rem*  laden von hi-eddi-bildern  *
  4. 40 rem*     in  basicprogrammen     *
  5. 50 rem*                             *
  6. 60 rem*******************************
  7. 100 input"filename";n$
  8. 110 poke781,8:rem  geraeteadresse
  9. 120 poke782,0:rem  sekundaeradresse
  10. 130 sys65466:rem  fileparameter setzen
  11. 140 poke780,len(n$)
  12. 150 poke781,192:poke782,2:rem  pointer auf filenamen
  13. 160 fori=1tolen(n$):poke703+i,asc(mid$(n$,i)):next:rem  filename
  14. 170 sys65469:rem  namensparameter setzen
  15. 180 poke780,0:rem  load-flag
  16. 190 poke781,0:poke782,224:rem  adresse=$e000
  17. 200 sys65493:rem  load
  18. 210 rem  grafik einschalten
  19. 220 m1=peek(56576):poke56576,m1 and 252:rem  vic-adressbereich ab $c000
  20. 230 m2=peek(53272):poke53272,8:rem  videoram- und grafik-adressen
  21. 240 m3=peek(53265):poke53265,m3or32:rem  hires einschalten
  22. 250 f=16*7+6:rem  16*vordergrundfarbe+hintergrundfarbe
  23. 260 fori=49152to50152:pokei,f:next
  24. 270 poke198,0:wait198,1:rem  auf taste warten
  25. 280 poke56576,m1:poke53272,m2:poke53265,m3:rem  wieder normalzustand
  26.