VIEW ,0
*HAZIME
 IF MOUSE(3,0)=1 THEN GOTO *OWARI
  A=A+1
  IF A>1 AND A<255 THEN PALETTE 1,[A,0,0]:LINE (547,308)-(619,327),PSET,%1,BF
 GOTO *HAZIME
*OWARI
END