hope Gosub can 'disassemble' (If EndIf) etc.

[gurj]

Code: Select all

;hope Gosub can 'disassemble' (If EndIf) etc.

Gosub re
k=b
EndIf:EndIf

Gosub re
h=c
EndIf:EndIf

End
re: :If a=0 And b=0 And c=d
 m=n:If t=y:Return

[DarkDragon]

You need macros, not gosub.

[gurj]

Code: Select all

Gosub re
k=b
re1:
EndIf:re2: :EndIf

End
re: :If a=0
 m=n:If t=y:Return

a judgment: Gosub cann't 'disassemble' (If EndIf), because:
If t=y:Return
so,If t<>y, Not Return, this is wrong
no
If a<>0, will automatic Goto re2
If t<>y, will automatic Goto re1
other, thanks DarkDragon for your concerns