home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 32 / 64er_Magazin_Sonderheft_32_19xx_Markt__Technik_de_Side_A.d64 / transfer.erg (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  213b  |  8 lines
  1. 10 a=828:if a=peek(806)+256*peek(807) then 70
  2. 20 for n=0 to 16:readx:poke a+n,x:next
  3. 30 data 201,255,208,2,169,126,201,233
  4. 40 data 176,6,201,193,144,2,233,96,76
  5. 50 poke a+n,peek(806):pokea+n+1,peek(807)
  6. 60 poke 807,a/256:poke 806,a-256*peek(807)
  7. 70 :
  8.