home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
utl
/
files.200
< prev
next >
Wrap
File List
|
2006-10-19
|
844b
|
26 lines
1 '************************
2 '* S/FILE.CO *
3 '* by Paul Globman *
4 '* Copyright (c) 1988 *
5 '************************
10 FOR I = 63700 TO 63815
20 READ X:POKE I,X:SM=SM+X
30 NEXT
40 IF SM = 16488 THEN 60
50 PRINT"Error in Data":STOP
60 SAVEM"S/FILE",63700,63815,63700
100 DATA 205,77,79,6,0,205,246,248,205
110 DATA 62,249,6,4,205,246,248,205,62
120 DATA 249,6,8,205,246,248,175,50,30
130 DATA 253,205,247,18,195,164,103,33
140 DATA 181,242,205,30,0,205,55,249
150 DATA 254,255,200,254,240,202,12,249
160 DATA 230,128,194,19,249,17,11,0,25
170 DATA 195,252,248,35,35,35,205,55
180 DATA 249,231,62,8,61,202,46,249,50
190 DATA 27,249,254,2,194,21,249,62,46
200 DATA 231,195,21,249,62,8,50,27,249
210 DATA 35,195,249,248,243,205,177,155
220 DATA 251,122,201,6,39,62,241,231,5
230 DATA 194,66,249,201