home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 55 / 64er_Magazin_Sonderheft_55_19xx_Markt__Technik_de_Side_A.d64 / load.blockbild (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  294 b   |  13 lines
  1. 1 rem block-konverterlader
  2. 2 ifa=1then20
  3. 6 ifa=2then40
  4. 7 printchr$(147)
  5. 8 poke19,64:input"konvertierter bildblock:";bl$:poke19,0:print
  6. 9 poke251,peek(53265):poke53265,11
  7. 10 ifa=0thena=1:load"fnt."+bl$,8,1
  8. 20 ifa=1thena=2:load"scn."+bl$,8,1
  9. 40 poke252,peek(53272):poke53272,24
  10. 50 poke53265,peek(251)
  11. 60 poke198,0:wait198,1
  12. 70 printchr$(147):poke53272,peek(252)
  13.