 10 PRINT"{clr}{grn}<INSERT DESCRIPTION>"
 20 A=828
 30 READB:IFB<0THENSYS828
 40 POKEA,B:A=A+1:GOTO30
100 DATA 120,162,17,169,11,172,1,144,200,200,200,200,200,204
110 DATA 4,144,208,251,141,15,144,189,87,3,202,208,237,240
120 DATA 228,11,107,43,75,139,235,91,171,59,203,155,123,219
130 DATA 187,251,27
140 DATA -1
