home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / pg / pgxos / paste.200 < prev    next >
Text File  |  2006-10-19  |  1KB  |  36 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.  
  6. 1 '************************
  7. 2 '*  PASTE.CO            *
  8. 3 '*    by Paul Globman   *
  9. 4 '*  Copyright (c) 1988  *
  10. 5 '************************
  11. 10 FOR I = 63900 TO 64041 
  12. 20 READ X:POKE I,X:SM=SM+X
  13. 30 NEXT
  14. 40 IF SM = 18117 THEN 60
  15. 50 PRINT"error in data":STOP
  16. 60 SAVEM"PASTE.CO",63900,64041,63900
  17. 1000 DATA 33,3,105,205,204,17,205,247
  18. 1010 DATA 18,231,214,48,71,62,1,7
  19. 1020 DATA 5,194,171,249,230,12,50,234
  20. 1030 DATA 249,50,23,250,50,17,250,71
  21. 1040 DATA 219,216,230,12,184,202,164,103
  22. 1050 DATA 50,0,250,56,0,33,4,250
  23. 1060 DATA 235,217,42,160,242,229,205,104
  24. 1070 DATA 130,193,8,202,16,250,34,247
  25. 1080 DATA 249,33,233,249,84,93,1,26
  26. 1090 DATA 0,243,205,21,250,62,0,211
  27. 1100 DATA 216,49,112,248,205,213,45,205
  28. 1110 DATA 71,76,1,0,0,42,160,242
  29. 1120 DATA 205,168,130,62,0,211,216,49
  30. 1130 DATA 0,0,220,69,79,235,42,160
  31. 1140 DATA 242,212,21,250,14,0,195,144
  32. 1150 DATA 155,197,6,0,213,86,227,205
  33. 1160 DATA 176,155,209,235,193,35,19,11
  34. 1170 DATA 121,176,194,21,250,201
  35. 1180 REM        END OF DATA
  36.