1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
x$subr t_foo () x$int i x$long l x$pntr p x$pntr p2 save begin #!# 7 i = 1 l = 1 p = 1 end