 : GO 
 15388 @ - 31 AND SPACES ; 
 : ST 42 EMIT ; 
 : SST 42 EMIT SPACES 42 EMIT ; 
 : A1 3 GO ST 9 GO ST 15 GO ST CR ; 
 : A2 2 GO 1 SST 8 GO 1 SST 14 GO 1 SST CR ; 
 : A3 1 GO 3 SST 7 GO 3 SST 13 GO 3 SST CR ; 
 : A4 5 SST 12 GO 5 SST CR ; 
 : NB CLS A1 A2 A3 A4
          A3 A2 A1 
          A2 A3 A4 
          A3 A2 A1 
          A2 A3 A4 
          A3 A2 A1 
  BEGIN INKEY UNTIL ; 
 