home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 123 / Tiger_Disk_123_20xx_Tiger-Crew-Disk_de_Side_B.d64 / hires-loader.of (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  37 lines
  1. 10 rem hires-loader.of =============c64
  2. 20 rem written by a. mittelmeyer
  3. 30 rem ================================
  4. 100 rem ---- bereichswahl -----
  5. 110 rem evtl basicende verlegen
  6. 120 rem poke 56,92:clr
  7. 130 vb=3:rem vic-bereich
  8. 140 gb=8:rem grafik-bereich
  9. 150 vr=3:rem video-ram-bereich
  10. 160 goto380:rem hauptprogramm
  11. 170 rem ============
  12. 180 rem  routinen
  13. 190 rem ============
  14. 200 rem ---- grafik-an ----
  15. 210 poke56576,peek(56576)and252or(3-vb):rem vic-bereich
  16. 220 poke53265,peek(53265)or32:rem grafik-ein
  17. 230 poke53272,vr*16+gb:rem grafik-bereich, video-ram-bereich
  18. 240 return
  19. 250 rem ---- grafik-aus ----
  20. 260 poke56576,peek(56576)and252or3:rem vic-bereich
  21. 270 poke53265,peek(53265)and223:rem grafik-aus
  22. 280 poke53272,21:rem grafik-bereich, video-ram-bereich
  23. 290 return
  24. 300 rem ---- farbe klaeren ----
  25. 310 poke648,vb*64+4*vr:printchr$(147);:poke648,4:return
  26. 320 rem ---- grafik laden ----
  27. 330 sys57812fi$,8,0:poke780,0:poke781,0
  28. 340 poke782,64*vb+4*gb:sys65493:return
  29. 350 rem ====================
  30. 360 rem  hauptprogramm
  31. 370 rem ====================
  32. 380 printchr$(147):input"name der grafik:";fi$
  33. 390 gosub310:gosub210
  34. 400 gosub330
  35. 410 geta$:ifa$=""then410
  36. 420 gosub260
  37.