home *** CD-ROM | disk | FTP | other *** search
/ Profi Club / Profi_Club_1_1992_-_de.d64 / w-text (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  750b  |  33 lines
  1. 0 if a=1 then goto 150
  2. 1 poke53280,15:poke53281,15:print"[147]";
  3. 5 poke 56,128:clr:rem speichergrenze!
  4. 6 a=1
  5. 10 poke 56578,peek(56578)or3:rem ausgabe
  6. 20 def fn vb (x)=((peek(56576)and 252)or(3-x)):rem videobank nr x
  7. 30 def fn bs (x)=(peek(53272) and 15)or(16*x):rem bildschirm x
  8. 40 def fn cr (x)=(peek(53272)and 240)or(2*x):rem chracter-ram
  9. 100 poke 56576, fn vb(2): rem v-bank 2
  10. 110 poke 53272, fn bs(1): rem bildsch 1
  11. 120 poke 53272, fn cr(1): rem ch-ram 1
  12. 130 load"w-t.prg",8,1
  13. 140 :
  14. 150 poke 648,132:rem betr-system video
  15. 160 :
  16. 170 for i=0 to 4
  17. 180 poke 53280+i,peek(33780+i)
  18. 190 next
  19. 191 :
  20. 195 poke 53270,peek(33786)
  21. 196 poke 53265,peek(33787)
  22. 199 :
  23. 200 for i=0 to 499
  24. 210 poke 55296+2*i,peek(33280+i)/16
  25. 220 poke 55296+2*i+1,peek(33280+i)
  26. 230 next
  27. 235 :
  28. 240 wait 198,15
  29. 250 poke 56576, fn vb(0)
  30. 260 poke 53272, fn bs(1): rem alter
  31. 270 poke 53272, fn cr(2): rem bildschirm
  32. 280 poke 648,4
  33.