#$ !A [] $41 |CI0 //jump over else code. #XPOP !n S$ // GET GOTO LINE NUMBER FROM LAST IF. #XPUSH 1 !a // Save line number of ELSE jump. #XPUSH 0 !n // Save static nest level. #FREF (!a+1) !s // Modify goto line number with ELSE command !1 !2 !3 !4 !5 !6 !7 !8 !9 #XPOP 0 Q$ // Restore static nest level to Q. #XPOP 1 S$ // Restore line number of else jump. #IF (!n>!q) #FREF END$!r !s // Modify ELSE jump to after BEGIN block. #ELSE #FREF (!a+1) !s // Modify ELSE jump to after the ELSE command. #ENDIF