BASIC-16A

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

1806 01777 0 01 01534 JMP IL22 NO....GO STORE THE IDENTIFIER CODES 1807 * 1808 * HERE TO RUN THROUGH A REMARK STATEMENT 1809 * 1810 02000 0 10 03133 JST SCHR STORE CHARACTER OF THE REMARK 1811 02001 0 10 03047 JST GCHR GET THE NEXT CHARACTER 1812 02002 0 10 03173 JST DLCK END OF REMARK ^ 1813 02003 0 01 02000 JMP *-3 NO...CONTINUE SCAN 1814 02004 0 01 01534 JMP IL22 YES...REVERT TO NORMAL COMPRESSION 1815 * 1816 02005 0 10 05243 IL08 JST ERR UNCLOSED TEXT STRING 1817 02006 152330 BCI 1,TX X 1818 * 1819 * 1820 * 1821 EJCT