BASIC-16A

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

4223 * COMMON STATEMENT EXIT 4224 * 4225 * 4226 * 4227 04574 0 10 03065 SEX JST UCHR REFETCH LAST CHARACTER TO BE SAFE 4228 04575 0 10 03047 JST GCHR SEE IF AT END OF LINE 4229 04576 0 11 00401 CAS C215 X 4230 04577 0 01 03213 JMP ESMT NO....GO EXECUTE NEXT STMT ON THIS LINE 4231 04600 0 02 00034 ASQ LDA SIP SEE IF WE ARE IN COMMAND MODE 4232 04601 101040 SNZ X 4233 04602 0 01 01000 JMP CMOD YES...GET NEXT COMMAND FROM CONSOLE 4234 04603 0 10 04440 JST ADVS ADVANCE POINTERS TO NEXT LINE 4235 04604 0 01 04430 JMP EXT1 RAN OUT OF PROGRAM 4236 04605 0 01 03213 JMP ESMT GO EXECUTE FIRST STMT ON NEW LINE 4237 * 4238 * 4239 EJCT