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