home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
txt
/
zipsub.100
< prev
next >
Wrap
Text File
|
2006-10-19
|
1KB
|
14 lines
0 'ZIPSUB.100 (c)1989 Wilson Van Alst v5.00 All rights reserved.
1 'Run this program to make ZIPSUB.CO,
2 ' a machine language Search/Replace
3 ' utility that runs in the AltLCD
4 ' buffer and works on RAM files
5 ' in place.
6 'See ZIPSUB.DOC for details.
7 '
10 READT,E,X:FORR=TTOE:PRINT@90,R:READY:POKER,Y:C=C+Y:NEXT:READK:IFC-KTHENPRINT"Bad Data":BEEPELSESAVEM"ZIPSUB",T,E,X:MENU:DATA64704,64977,64704,205,49,66,205,58,31,205,187,253,70,105,108,101,0,200,235,33,192,252,34,82,246,229,235,95,205,11,76
11 DATA205,160,32,200,205,187,253,27,106,70,105,110,100,0,208,17,224,252,213,50,96,253,17,233,246,205,195,101,205,187,253,32,83,117,98,0,218,17,253,192,205,160,253,68,101,108,101,116,101,7,0,200,175,50,97,253,205,160,253,27,77,65,115,107,0
12 DATA254,81,200,50,52,253,205,15,34,235,33,233,246,205,63,92,208,205,118,118,105,96,62,0,167,202,95,253,229,205,49,66,223,204,143,253,26,254,26,202,78,253,231,19,254,10,194,61,253,205,160,253,83,117,98,0,225,194,95,253,167,192,35,195,38,253
13 DATA1,0,0,120,167,202,137,253,17,133,246,26,119,5,35,19,202,136,253,13,194,106,253,72,6,0,213,205,109,107,209,218,167,96,65,205,105,52,195,38,253,13,205,159,107,195,38,253,58,72,246,47,50,72,246,167,200,58,96,253,79,6,0,9,201,227,205,162
14 DATA17,227,33,202,253,205,162,17,205,100,93,254,81,200,214,78,200,254,11,194,165,253,167,201,227,205,162,17,227,205,62,70,35,5,120,200,254,80,201,63,32,89,47,78,47,81,0,036842