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