BASIC-16A

* NAME: BASIC-16A DOC 70181826000 REV A PAGE 83

3111 * GOTO STATEMENT PROCESSOR 3112 * 3113 * 3114 * STATEMENT SYNTAX: 3115 * 3116 * <GOTO STATEMENT>:=GOTO<LINE NUMBER>[:|C/R] 3117 * 3118 * 3119 * 3120 03324 0 10 04556 GOTO JST ISN GET THE STATEMENT NUMBER 3121 03325 0 10 03116 JST GDLM MAKE SURE NEXT CHARACTER IS : OR C/R 3122 03326 0 35 00034 GOT2 LDX SIP PROTECT SI PNTR DURING STMT SEARCH 3123 03327 0 10 04475 JST SISR LOOK UP THE NUMBER IN THE STATEMENT INDEX 3124 03330 0 01 03335 JMP GOT3 ERROR ... UNDEFINED STATEMENT NUMBER 3125 03331 0 02 00051 LDA SEQI SEE IF STMT SEQUENCING IS INHIBITED 3126 03332 101040 SNZ X 3127 03333 0 01 03213 JMP ESMT NO...GO EXECUTED THE REQUESTED STATEMENT 3128 03334 0 01 01000 JMP CMOD YES...IGNORE AND RETURN T0 COMMAND MODE 3129 * 3130 03335 0 15 00034 GOT3 STX SIP RESTORE SI PNTR TO CURRENT LINE 3131 03336 0 10 05243 JST ERR REPORT UNDEFINED STATEMENT NO. ERROR 3132 03337 152723 BCI 1,US X 3133 * 3134 * 3135 * 3136 EJCT