10 REM *********************
20 REM *      SAVEM        *
30 REM * BY GENCO LUDOVICO *
40 REM *********************
130 REM *************
140 REM SYS 680
150 REM SAVE"FILE",8,1,START,END
160 REM *************
190 DATA 165,20,24,105,16,141,50,3,165
200 DATA 21,105,0,141,51,3,96,32,253
210 DATA 174,32,107,169,165,20,164,21
220 DATA 133,193,132,194,32,253,174,32
230 DATA 107,169,166,20,164,21,232,208
240 DATA 1,200,134,174,132,175,173,50
250 DATA 3,24,105,55,133,34,173,51,3
260 DATA 105,0,133,35,169,7,32,36,171
270 DATA 76,237,245,158,83,65,87,69,77
280 DATA 154,0
290 A=0:FORX=0TO78:READY:POKE680+X,Y:A=A+Y:NEXT
300 IFA<>8032THENPRINT"ERROR IN DATA STA$EMENTS"
310 END
320 :