JJT-5.1 #COMMAND NUMBER TR #NUM V$ #REPLACE !1 |VN!v #IF (!0>1) NUMBER !2 !3 !4 !5 !6 !7 !8 !9 #ENDIF #ENDCOMMAND
#IFSAME !1 ERROR
// MOVEINT ADDR to ONERROR (|VI31)
#IFDEF !3
!A [] $082 !3 |VI31
#CHECK !2 "GOSUB"
#ELSE
!A [] $082 |CI0 |VI31
#IFSAME !2 GOSUB
#FREF !3 !a
#ELSE
#CHECK !2 "OFF"
#ENDIF
#ENDIF
#ELSE
#SET Q$ (!0-1)
// INDICATE OK$1 AS !1 GT 0
#IFDEF OK$1
#ELSE
#REPLACE OK$1 |!C
#REPLACE OK$2 |!C
#ENDIF
#CHECK !1 _#ULGRS
!A [] $4010 !1 |CI0 OK$1 |2
// INDICATE OK$2 AS !1 LT !q
!A [] $4000 !1 |CI!q OK$2 |2
#SET Q$ (!a+2)
#IFSAME !2 GOTO
!A [OK$1 OK$2] $041 |CE(!q+!1 )
#ELSE
!A [OK$1 OK$2] $042 |CE(!q+!1 )
#ENDIF
#SET Q$ (!a+!0)
!A [] $041 |CL!q //ERROR jump around GOTOs
MULTI$ GOTO !3 !4 !5 !6 !7 !8 !9
#ENDIF