10 REM *********************
20 REM *      SAVEP        *
30 REM * BY GENCO LUDOVICO *
130 REM *****************
140 REM SYS 820
150 REM SAVE"FILE",8,1,LINE1,LINE2
160 REM *****************
190 DATA 165,20,24,105,16,141,50,3,165
200 DATA 21,105,0,141,51,3,96,173,50
210 DATA 3,24,105,117,141,0,3,173,51,3
220 DATA 105,0,141,1,3,32,253,174,32
230 DATA 107,169,32,19,166,165,95,133
240 DATA 193,165,96,133,194,32,253,174
250 DATA 32,107,169,32,19,166,160,0,177
260 DATA 95,133,251,165,95,133,253,165
270 DATA 96,133,254,152,145,95,230,95
280 DATA 208,2,230,96,177,95,133,252
290 DATA 152,145,95,230,95,208,2,230
300 DATA 96,165,95,133,174,165,96,133
310 DATA 175,173,50,3,24,105,110,133,34
320 DATA 173,51,3,105,0,133,35,169,7
330 DATA 32,36,171,76,237,245,158,83,65
340 DATA 87,69,80,154,32,83,228,32,138,255
350 DATA 160,0,165,251,145,253,200,165
360 DATA 252,145,253,76,134,227
370 A=0:FORX=0TO152:READY:POKE820+X,Y:A=A+Y:NEXT
380 IFA<>17745THENPRINT"ERROR IN DATA STATEMENTS"
390 END