isp "MAIN PROGRAM
:For(L,-1,0:If L:Goto S:End
isp "MAIN AGAIN
:For(L,-1,0:If L:Goto S:End
isp "BACK IN MAIN
top
:Lbl S
isp "IN SUBROUTINE
:End
isp "N.B.

Argggh des Goto dans des boucles, vive les erreurs de mémoire x_x