( CLS )
 HEX
 CODE CLS
 XSAVE STX,
 0 # LDX,
 20 # LDA,
 BEGIN,
 200 ,X STA,
 300 ,X STA,
 DEX, 0=
 UNTIL,
 XSAVE LDX,
 NEXT JMP,
 END-CODE
 DECIMAL
 ;S