home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh3x / sh32a.d64 / transfer.erg (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.