home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 30 / Commodore_Disc_30_19xx_-_de.d64 / lader.basic (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  780b  |  36 lines
  1. 0 if a=1 then goto 150
  2. 1 poke53280,15:poke53281,15:print"";
  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. 50 input"name";g$
  10. 60 if g$="" then end
  11. 70 :
  12. 100 poke 56576, fn vb(2): rem v-bank 2
  13. 110 poke 53272, fn bs(1): rem bildsch 1
  14. 120 poke 53272, fn cr(1): rem ch-ram 1
  15. 130 load g$,8,1
  16. 140 :
  17. 150 poke 648,132:rem betr-system video
  18. 160 :
  19. 170 for i=0 to 4
  20. 180 poke 53280+i,peek(33780+i)
  21. 190 next
  22. 191 :
  23. 195 poke 53270,peek(33786)
  24. 196 poke 53265,peek(33787)
  25. 199 :
  26. 200 for i=0 to 499
  27. 210 poke 55296+2*i,peek(33280+i)/16
  28. 220 poke 55296+2*i+1,peek(33280+i)
  29. 230 next
  30. 235 :
  31. 240 wait 198,15
  32. 250 poke 56576, fn vb(0)
  33. 260 poke 53272, fn bs(1): rem alter
  34. 270 poke 53272, fn cr(2): rem bildschirm
  35. 280 poke 648,4
  36.