SET PUSH, 0x0000 :LABEL0BEGIN_WHILE IFG 0x001A, PEEK SET PC, LABEL1ELSE SET PC, LABEL2END :LABEL1ELSE SET B, PEEK SET A, 0x8000 ADD A, B SET C, PEEK SET B, 0x0041 ADD B, C SET [A], B SET A, PEEK ADD A, 0x0001 SET PEEK, A SET PC, LABEL0BEGIN_WHILE :LABEL2END BRK