BASIC-16A

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

3827 04243 0 01 04216 JMP PR01 YES...NO SPECIAL SPACEING REQUIRED 3828 04244 0 05 00414 ERA C254 IT MUST BE COMMA, 3829 04245 100040 SZE OR ELSE AN ERROR 3830 04246 0 01 04323 JMP PR05 GO REPORT FIELD DELIMITER ERROR 3831 04247 0 06 00375 ADD C16 FIND NEXT TAB POSITION 3832 04250 0 11 00045 CAS CPOS IS COLUMN IN A > CURRENT CARRIAGE POSITION 3833 04251 0 01 04266 JMP PR06 YES...GO ADVANCE TO POSITION IN A 3834 04252 0 01 04216 JMP PR01 NO TAB REQUIRED...PROCESS NEXT LIST ITEM 3835 04253 0 01 04247 JMP *-4 NO...TRY NEXT TAB POSITION 3836 * 3837 * HERE TO HANDLE 'TAB' FUNCTION 3838 * 3839 04254 0 10 02443 PR03 JST EXPA EVALUATE THE EXPRESSION 3840 04255 0 02 00411 LDA C251 MAKE SURE IT ENDS WITH A 3841 04256 0 10 03104 JST GCCK RIGHT PAREN 3842 04257 0 10 03047 JST GCHR IF NEXT CHARACTER IS : OR C/R, THEN NO POINT 3843 04260 0 10 03173 JST DLCK IN DOING A 'TAB', AS HE 3844 04261 100000 SKP WILL GET A C/R ANYWAY 3845 04262 0 01 04214 JMP PR04 X 3846 04263 0 10 03203 JST LCVL GET RESULT OF THE EXPRESSION 3847 04264 0 10 00000 JST IFLT CONVERT TO INTEGER 3848 04265 0 01 04301 JMP PR07 TOO BIG...GO TO NEXT LINE 3849 04266 0 11 00473 PR06 CAS MCOL IS IT TAB TO BEYOND END OF LINE ? 3850 04267 0 01 04301 JMP PR07 YES...ADVANCE TO NEXT LINE 3851 04270 101000 NOP NO 3852 04271 0 04 00312 STA PRT1 SAVE TARGET COLUMN NUMBER 3853 04272 0 11 00045 PR09 CAS CPOS COMPARE WITH CURRENT POSITION 3854 04273 0 01 04276 JMP *+3 NOT THERE YET 3855 04274 0 01 04216 JMP PR01 AT PROPER C 3856 04275 0 01 04216 JMP PR01 PAST IT...SO WHAT 3857 04276 0 10 02764 JST SPAC MOVE OVER A SPACE 3858 04277 0 02 00312 LDA PRT1 RETRIEVE TARGET COLUMN NUMBER 3859 04300 0 01 04272 JMP PR09 GO TEST FOR COMPLETION 3860 * 3861 04301 0 10 00000 PR07 JST LFCR ADVANCE TO NEXT LINE 3862 04302 0 01 04216 JMP PR01 GO LOOK AT NEXT ITEM 3863 * 3864 * HERE TO OUTPUT TEXT STRING 3865 * 3866 04303 0 10 03047 PR02 JST GCHR GET THE NEXT CHARACTER OF THE STRING 3867 04304 0 11 00407 CAS C242 END OF STRING ? 3868 04305 100000 SKP NO 3869 04306 0 01 04311 JMP PR08 YES...GO CLOSE UP 3870 04307 0 10 00000 JST OTA1 OUTPUT THE CHARACTER 3871 04310 0 01 04303 JMP PR02 CONTINUE 3872 * 3873 04311 0 10 03047 PR08 JST GCHR LOOK AT CHARACTER FOLLOWING '"' 3874 04312 0 11 00414 CAS C254 IF COMMA OR SEMI COLON, 3875 04313 100000 SKP PERFORM STANDARD INTERITEM PROCESSING 3876 04314 0 01 04236 JMP PR10+1 IT'S A COMMA