| Routines

2070: THE 'ALTER STREAM' SUBROUTINE

Used by the routines at LIST and PR_ITEM_1. This subroutine is called whenever there is the need to consider whether the user wishes to use a different stream.
Input
A | Code of the current character
Output
F | Carry flag set if the character is not '#'
STR_ALTER | 2070 | CP "#" | Unless the present character is a '#' return with the carry flag set.
| 2072 | SCF
| 2073 | RET NZ
| 2074 | RST $20 | Advance CH-ADD.
| 2075 | CALL CLASS_06 | Pass the parameter to the calculator stack.
| 2078 | AND A | Clear the carry flag.
| 2079 | CALL UNSTACK_Z | Return now if checking syntax.
| 207C | CALL FIND_INT1 | The value is passed to the A register.
| 207F | CP $10 | Give report O if the value is over +0F.
| 2081 | JP NC,REPORT_O
| 2084 | CALL CHAN_OPEN | Use the channel for the stream in question.
| 2087 | AND A | Clear the carry flag and return.
| 2088 | RET