nasmjf

1 ( -*- text -*- ) 2 3 : 2DROP INLINE DROP INLINE DROP ;CODE 4 5 : C@++ INLINE DUP INLINE 1+ INLINE SWAP INLINE C@ ;CODE 6 7 : TEST 8 ." 2DROP: " 1 2 3 4 2DROP . . CR 9 10 S" testing" DROP 11 C@++ EMIT CR 12 C@++ EMIT CR 13 C@++ EMIT CR 14 C@++ EMIT CR 15 C@++ EMIT CR 16 C@++ EMIT CR 17 C@++ EMIT CR 18 DROP 19 ;