Create tri.tri

This commit is contained in:
George Gibson
2015-08-29 09:17:34 +01:00
parent f4cf55d081
commit a2749778fa

10
t/tri.tri Normal file
View File

@@ -0,0 +1,10 @@
inc inc psh psh psh mul sto nxt sto psh mul lst psh add
sto prn nxt zro clr inc inc inc psh psh add inc nxt pop
inc psh lst psh mul one psh add sto nxt sto lst lst psh
nxt nxt nxt add sto prn zro inc inc inc psh inc psh add
sto prn prn inc inc inc prn clr lst lst lst psh nxt psh
sub nxt sto inc prn lst one clr inc psh psh inc psh mul
nxt psh sub neg pop prn inc nxt psh nxt sto inc inc inc
inc inc inc inc inc prn lst prn nxt dec dec dec dec dec
prn dec dec dec dec dec dec prn lst dec dec dec dec dec
dec dec dec dec dec dec prn lst prn lin