|0000 @x $1 @y $1 @z $1 |0100 ;on-input #10 DEO2 #0123 INC2 #45 INC POP2 POP LIT "h #18 DEO LIT "e #18 DEO LIT "l #18 DEO LIT "l #18 DEO LIT "o #18 DEO #0a18 DEO ;skip1 JMP2 LIT "n #18 DEO LIT "o #18 DEO LIT "t #18 DEO #2018 DEO @skip1 LIT "o #18 DEO LIT "k #18 DEO LIT "1 #18 DEO #0a18 DEO ,skip2 JMP LIT "n #18 DEO LIT "o #18 DEO LIT "t #18 DEO #2018 DEO @skip2 LIT "o #18 DEO LIT "k #18 DEO LIT "2 #18 DEO #0a18 DEO #01 ;skip3 JCN2 LIT "n #18 DEO LIT "o #18 DEO LIT "t #18 DEO #2018 DEO @skip3 LIT "o #18 DEO LIT "k #18 DEO LIT "3 #18 DEO #0a18 DEO #01 ,skip4 JCN LIT "n #18 DEO LIT "o #18 DEO LIT "t #18 DEO #2018 DEO @skip4 LIT "o #18 DEO LIT "k #18 DEO LIT "4 #18 DEO #0a18 DEO #01 ?{ LIT "n #18 DEO LIT "o #18 DEO LIT "t #18 DEO #2018 DEO } LIT "o #18 DEO LIT "k #18 DEO LIT "5 #18 DEO #0a18 DEO ;print-ok JSR2 LIT "6 #18 DEO #0a18 DEO print-ok LIT "7 #18 DEO #0a18 DEO LIT "o .x STZ LIT "k .y STZ LIT "8 .z STZ .x LDZ #18 DEO .y LDZ #18 DEO .z LDZ #18 DEO #0a18 DEO #0a DUP INC MUL INC #18 DEO LIT "k #18 DEO LIT "9 #18 DEO #0a18 DEO !skip10 LIT "n #18 DEO LIT "o #18 DEO LIT "t #18 DEO #2018 DEO @skip10 LIT "o #18 DEO LIT "k #18 DEO LIT "1 #18 DEO LIT "0 #18 DEO #0a18 DEO LIT "k LIT "o DUP2 NIP2 #18 DEO #18 DEO LIT "1 #18 DEOk DEO #0a18 DEO !&skip12 LIT "n #18 DEO LIT "o #18 DEO LIT "t #18 DEO #2018 DEO &skip12 LIT "o #18 DEO LIT "k #18 DEO LIT "1 #18 DEO LIT "2 #18 DEO #0a18 DEO LIT "o .x STZ LIT "k .y STZ .x LDZk #18 DEO INC LDZ #18 DEO LIT "1 #18 DEO LIT "3 #18 DEO #0a18 DEO LIT "o .x STZ LIT "k .y STZ ;x LDAk #18 DEO INC2 LDA #18 DEO LIT "1 #18 DEO LIT "4 #18 DEO #0a18 DEO ;string/c1 LDA #18 DEO ;string/c2 LDA #18 DEO LIT "1 #18 DEO LIT "9 #18 DEO #0a18 DEO ,string/c1 LDR #18 DEO ,string/c2 LDR #18 DEO LIT "2 #18 DEO LIT "0 #18 DEO #0a18 DEO ( #830f DEO ) BRK @string "abc &c1 "o &c2 "k "xyz @print-ok LIT "o #18 DEO LIT "k #18 DEO JMP2r @on-input #17 DEI LIT "0 ADD #18 DEO #12 DEI #18 DEO BRK