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