home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / paste.200 < prev    next >
Text File  |  2006-10-19  |  1KB  |  33 lines
  1. Use PASTE.CO to switch banks (instead of the function key) and move the PASTE
  2. buffer into the destination bank.  Makes it possible to CUT from one bank and
  3. PASTE to another, without a lot of unnecessary steps.........Paul Globman
  4. ---------------------------------------
  5. 1 '************************
  6. 2 '*  PASTE.CO            *
  7. 3 '*    by Paul Globman   *
  8. 4 '*  Copyright (c) 1988  *
  9. 5 '************************
  10. 10 FOR I = 63900 TO 64041 
  11. 20 READ X:POKE I,X:SM=SM+X
  12. 30 NEXT
  13. 40 IF SM = 18117 THEN 60
  14. 50 PRINT"Error in Data":STOP
  15. 60 SAVEM"PASTE",63900,64041,63900
  16. 100 DATA 33,3,105,205,204,17,205,247
  17. 110 DATA 18,231,214,48,71,62,1,7,5,194
  18. 120 DATA 171,249,230,12,50,234,249,50
  19. 130 DATA 23,250,50,17,250,71,219,216
  20. 140 DATA 230,12,184,202,164,103,50,0
  21. 150 DATA 250,56,0,33,4,250,235,217,42
  22. 160 DATA 160,242,229,205,104,130,193,8
  23. 170 DATA 202,16,250,34,247,249,33,233
  24. 180 DATA 249,84,93,1,26,0,243,205,21
  25. 190 DATA 250,62,0,211,216,49,112,248
  26. 200 DATA 205,213,45,205,71,76,1,0,0,42
  27. 210 DATA 160,242,205,168,130,62,0,211
  28. 220 DATA 216,49,0,0,220,69,79,235,42
  29. 230 DATA 160,242,212,21,250,14,0,195
  30. 240 DATA 144,155,197,6,0,213,86,227
  31. 250 DATA 205,176,155,209,235,193,35
  32. 260 DATA 19,11,121,176,194,21,250,201
  33.