home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 26 / 64er_Magazin_Sonderheft_26_19xx_Markt__Technik_de_Side_B.d64 / testbild-lader (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  588b  |  20 lines
  1. 100 for x=1 to 3
  2. 105 b$(1)="gitter":b$(2)="balken":b$(3)="testbild"
  3. 110 n$=b$(x)
  4. 115 poke 781,8:rem geraeteadresse
  5. 120 poke782,1:rem  sekundaeradresse
  6. 130 sys65466:rem  fileparameter setzen
  7. 140 poke780,len(n$)
  8. 150 poke781,192:poke782,2:rem p.name
  9. 160 fori=1tolen(n$):poke703+i,asc(mid$(n$,i)):next:rem  filename
  10. 170 sys65469:rem  namensparameter
  11. 180 poke780,0:rem  load-flag
  12. 190 poke781,0:poke782,92:rem  adr=$5c00
  13. 200 sys65493:rem  load
  14. 220 m1=peek(56576):poke56576,(peek(56576)and252)or2:rem   vic-ab $4000
  15. 230 m2=peek(53272):poke53272,121:rem video-ram
  16. 240 m3=peek(53265):poke53265,m3or32:rem  hires einschalten
  17. 270 poke198,0:wait198,1:rem taste
  18. 275 next x
  19. 280 poke56576,m1:poke53272,m2:poke53265,m3:
  20.