BASIC-16A

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

3777 * PRINT STATEMENT PROCESSOR 3778 * 3779 * 3780 * STATEMENT SYNTAX: 3781 * 3782 * <PRINT STATEMENT>:=PRINT[<PRINT LIST>](0,1) 3783 * 3784 * <PRINT LIST>:=<PRINT ITEM>[[,|;]<PRINT ITEM>](0,*)[,|;](0,1) 3785 * 3786 * <PRINT ITEM>:=<EXPRESSION>|<MESSAGE>|<MESSAGE><EXPRESSION>| 3787 * TAB(<EXPRESSION>) 3788 * 3789 * <MESSAGE>:="[<ALPHABETIC CHARACTER>|<DIGIT>| 3790 * <SPECIAL CHARACTER>](1,*)" 3791 * 3792 * 3793 * 3794 04211 0 10 03047 PRNT JST GCHR TEST FOR EMPTY PRINT LIST 3795 04212 0 10 03173 JST DLCK (: OR C/R IMMEADIATLY FOLLOWING 'PRINT') 3796 04213 0 01 04222 JMP PR11 NOT EMPTY 3797 04214 0 10 00000 PR04 JST LFCR ADVANCE TO NEXT LINE ON ASR 3798 04215 0 01 04574 JMP SEX GO PROCESS NEXT STATEMENT 3799 * 3800 04216 0 10 03047 PR01 JST GCHR GET 1ST CHARACTER OF PRINT ITEM 3801 04217 0 10 03173 JST DLCK A WAS THERE A DANNGLING COMMA OR ; 3802 04220 100000 SKP NO 3803 04221 0 01 04574 JMP SEX YES...EXIT WITHOUT LINE ADVANCE 3804 04222 0 11 00407 PR11 CAS C242 TEST FOR QUOTED TEXT STRING 3805 04223 100000 SKP NO 3806 04224 0 01 04303 JMP PR02 YES...GO PRINT THE STRING 3807 04225 0 05 00503 ERA TABC TEST FOR TAB OPERATION 3808 04226 101040 SNZ X 3809 04227 0 01 04254 JMP PR03 YES...GO PROCESS TAB 3810 * 3811 * HERE TO PRINT VALUE OF AN EXPRESSION 3812 * 3813 04230 0 10 03065 JST UCHR STEP BACK OVER LEADING CHAR OF EXPR 3814 04231 140040 CRA EVALUATE THE EXPRESSION 3815 04232 0 10 02443 JST EXPA X 3816 04233 140040 CRA NO CHARACTER SURPRESSION FOR THIS 3817 04234 0 10 02154 JST PCVL PRINT THE RESULT 3818 * 3819 * HERE TO WORK ON PRINT ITEM DELIMITER 3820 * 3821 04235 0 10 03047 PR10 JST GCHR FETCH THE DELIMITING CHARACTER 3822 04236 0 10 03173 JST DLCK IS IT TERMINAL (: OR C/R) ? 3823 04237 100000 SKP NO 3824 04240 0 01 04214 JMP PR04 YES...ADVANCE TO NEXT LINE AND EXIT 3825 04241 0 11 00423 CAS C273 IS IT A SEMI-COLON ? 3826 04242 100000 SKP NO