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