BASIC-16A

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

4287 * VARIABLE NAME ISOLATION ROUTINE 4288 * 4289 * 4290 * CALLING SEQUENCE: 4291 * 4292 * JST PVN 4293 * ......RETURN IF SUBSCRIPTED VARIABLE 4294 * ......RETURN IF SIMPLE VARIABLE 4295 * 4296 * THE VARIABLE NAME IS ISOLATED AND LEFT 4297 * IN THE LOCATION VARN. 4298 * 4299 * 4300 * 4301 04632 0 000000 PVN DAC ** 4302 04633 0 10 03047 JST GCHR GET FIRST CHARACTER OF VARIABLE NAME 4303 04634 0 04 00107 STA VARN SAVE FOR NOW 4304 04635 0 10 03155 JST ALFA FIRST CHARACTER MUST BE ALPHABETIC 4305 04636 0 01 04655 JMP PV01 ITS NOT...REPORT IDENTIFIER ERROR 4306 04637 0 10 03047 JST GCHR NEXT CHARACTER MAY BE PART OF NAME 4307 04640 0 11 00410 CAS C250 TEST FOR START OF SUBSCRIPT 4308 04641 100000 SKP NO 4309 04642 -0 01 04632 JMP* PVN YES...TAKE FIRST RETURN 4310 04643 0 12 04632 IRS PVN BUMP FOR SIMPLE VARIABLE RETURN 4311 04644 0 10 03164 JST NUMC CURRENT CHAR MUST BE DIGIT IF PART OF NAME 4312 04645 0 01 04652 JMP PV02 NO....MAYBE WE HAVE GONE TOO FAR 4313 04646 141340 ICA PUT SECOND DIGIT OF NAME IN A(1-8) 4314 04647 0 05 00107 ERA VARN PUT FIRST CHARACTER IN A(9-16) 4315 04650 0 04 00107 STA VARN SAVE THE COMPLETED NAME 4316 04651 -0 01 04632 JMP* PVN AND RETURN 4317 04652 0 10 03155 PV02 JST ALFA TWO ALPHABETIC CHARS IN A ROW IS ILLEGAL 4318 04653 0 01 04667 JMP PV03 NO...GO STEP BACK OVER CURRENT CHARACTER 4319 04654 0 01 04660 JMP *+4 YES H.. REPORT ID ERROR 4320 * 4321 04655 0 11 00403 PV01 CAS C223 IS THE CHARACTER NORMAL? 4322 04656 0 01 04662 JMP PV04 YES ... OUTPUT 'X?' CLASS ERROR 4323 04657 000000 OCT 0 NEVER CAN EXECUTE THIS WORD 4324 04660 0 10 05243 JST ERR REPORT IDENTIFIER ERROR 4325 04661 144704 BCI 1,ID X 4326 * 4327 04662 141240 PV04 ICR BAD CHARACTER TO A(1-8) 4328 04663 0 05 00425 ERA C277 '?' TO A(9-1 4329 04664 0 04 04666 STA *+2 PUT DIAGNOSTIC IN ERR CALLING SEQUENCE 4330 04665 0 10 05243 JST ERR REPORT THE ERROR 4331 04666 154277 BCI 1,X? X 4332 * 4333 04667 0 10 03065 PV03 JST UCHR STEP BACK OVER CHARACTER NOT PART OF NAME 4334 04670 -0 01 04632 JMP* PVN TAKE SIMPLE VARIABLE RETURN 4335 * 4336 *