hello.tal (374B)
1 ( init ) 2 3 |00 @System &vector $2 &expansion $2 &wst $1 &rst $1 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &state $1 4 5 %emit ( byte -- ) { ( hey ) #18 DEO } 6 7 |0100 @program 8 9 #1234 SWP 10 #010e DEO 11 #010f DEO 12 13 #1234 #5678 SWP2 14 15 ;hello-word 16 17 &while 18 ( send ) LDAk emit 19 ( loop ) INC2 LDAk ?&while 20 POP2 21 22 #010f DEO 23 24 BRK 25 26 @program/extend BRK 27 28 @hello-word "Hello 20 "World? 00