100 READA
110 READB$:IFB$="*"THEN100
120 IFB$="**"THEN300
130 V=VAL(B$):POKEA,V:A=A+1:Z=Z+V:GOTO110
300 IFZ<>18512THENPRINTCHR$(147);"ERROR IN DATA STATMENTS":END
301 SYS976
310 NEW
1040 DATA828
1050 DATA169,3,72,169,75,72,8,72,165,197
1060 DATA72,72,76,49,234,120,160,,165,203
1070 DATA201,64,208,88,169,255,141,,220,140
1080 DATA47,208,173,1,220,201,255,240,73,134
1090 DATA197,169,254,72,162,8,141,47,208,173
1100 DATA1,220,205,1,220,208,248,74,176,9
1110 DATA72,185,183,3,240,2,133,203,104,200
1120 DATA202,208,240,104,56,42,192,23,144,219
1130 DATA165,203,201,64,240,26,162,129,160,
1140 DATA144,8,41,127,133,203,162,194,160,1
1150 DATA169,235,140,141,2,134,245,133,246,32
1160 DATA224,234,169,255,141,47,208,32,66,235
1170 DATA76,129,234,,27,16,,59,11,24
1180 DATA56,,40,43,,1,19,32,8,
1190 DATA35,44,135,7,130,2,
1200 DATA*
1210 DATA976
1220 DATA120,169,60,141,20,3,169,3,141,21
1230 DATA3,88,96
1240 DATA**