 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,105,15,202,208,238,240,229
120 DATA -1
