BASIC-16A

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

4190 * INPUT STATEMENT NUMBER 4191 * 4192 * 4193 * CALLING SEQUENCE: 4194 * 4195 * JST ISN 4196 * ......RETURN STMT NO. IN A AND SNUM 4197 * 4198 * THIS ROUTINE CHECKS TO INSURE THAT A STATEMENT 4199 * NUMBER IS NEXT IN THE SQURCE TEXT, AND IF SO FORMS 4200 * THE SINGLE WQRD BINARY REPRESENTATION AND LEAVES 4201 * IT IN A AND SNUMU. IF NOT, A 'SN' ERROR IS REPORTED 4202 * TO THE USER. 4203 * 4204 * 4205 04556 0 000000 ISN DAC ** 4206 04557 0 10 03047 JST GCHR TEST NEXT CHARACTER FOR INTEGER FLAG 4207 04560 0 05 00455 ERA INTF (STMT NUMBERS ALWAYS LOOK LIKE INTEGERS) 4208 04561 100040 SZE SKIP IF IT IS 4209 04562 0 01 04572 JMP ISN1 NOT STMT NO. ... SOMETHING IS WRONG 4210 04563 0 10 03077 JST GCPK PACK THE INTEGER 4211 04564 0 04 00050 STA SNUM LEAVE IT IN SNUM 4212 04565 100040 SZE ZERO IS NOT A LEAGL STMT NO. 4213 04566 0 11 00501 CAS SNMX MAKE SURE NUMBER IS NOT TOO BIG 4214 04567 0 01 04572 JMP ISN1 TOO BAD ... NUMBER = 0 OR > 9999 4215 04570 -0 01 04556 JMP* ISN ...OK... RETURN 4216 04571 -0 01 04556 JMP* ISN ...OK... RETURN 4217 04572 0 10 05243 ISN1 JST ERR REPORT STATEMENT NUMBER ERROR 4218 04573 151716 BCI 1,SN X 4219 * 4220 * 4221 * 4222 EJCT