home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 75 / 64er_Magazin_Sonderheft_75_19xx_Markt__Technik_de_Side_B.d64 / copy.basic (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  195b  |  11 lines
  1. 100 if a=0thena=1:load"copy.masch",8,1
  2. 110 poke56334,peek(56334)and254
  3. 120 poke1,peek(1)and251
  4. 130 fora=53248to57343
  5. 140 pokea-40960,peek(a)
  6. 150 next
  7. 160 poke53272,peek(53272)and240or12
  8. 170 poke1,peek(1)or4
  9. 180 poke56334,peek(56334)or1
  10. 190 poke53280,0
  11.