LEX 'HELPLEX' ID #51 MSG MSGTBL POLL POLHND ENTRY HLPx CHAR #D KEY 'HELP' TOKEN 255 ENDTXT lexmsg EQU 1 ATNFLG EQU #2F442 CRLFSD EQU #022A2 DSPCHA EQU #01C3E DSPCHC EQU #01C3C HEXASC EQU #17148 HEXDEC EQU #0ECAF LISTDC EQU #05839 LXFND EQU #0979D MFWRN EQU #093BC NXTSTM EQU #08A48 MSGTBL CON(2) lexmsg CON(2) lexmsg CON(2) (NXT)-(*) CON(2) lexmsg CON(1) 7 NIBASC 'LEX ID #' NIBHEX F2 CON(1) 12 NXT NIBHEX FF POLHND ?B=0 B GOYES hVER$0 RTNSXM hVER$0 C=R3 D1=C A=R2 D1=D1- (VER$en)-(VER$st)-2 CD1EX ?A>C A GOYES rtnsxm D1=C R3=C VER$st LCASC ' HELP:A' VER$en DAT1=C (VER$en)-(VER$st)-2 rtnsxm RTNSXM HLPd GOVLNG LISTDC HLPp RTNCC REL(5) HLPd REL(5) HLPp HLPx GOSBVL LXFND GOC NEXTEN GOTO NOMORE NEXTEN CD1EX D1=C R3=C P= 0 C=0 W C=DAT1 2 R2=C P= 0 LC(4) #5101 P= 13 LCHEX F1 P= 2 GOSBVL MFWRN C=R3 D1=C D1=D1+ 2 A=0 A A=DAT1 2 GOSUB OUT3 P= 0 LCASC '-' GOSBVL DSPCHC C=R3 D1=C D1=D1+ 4 A=0 A A=DAT1 2 GOSUB OUT3 GOSBVL CRLFSD C=R3 R0=C D1=C GOSUB DOENT GOC NOMORE C=R0 D1=C P= 0 C=DAT1 2 ?C=0 B GOYES NOMORE D1=D1+ 11 GOTO NEXTEN NOMORE GOVLNG NXTSTM DOENT P= 0 D1=D1+ 6 C=DAT1 5 R1=C D0=C D0=D0- 13 AD0EX D0=A P= 0 C=0 A C=DAT0 4 C=C+A A C=C-1 A MORE D0=C GOSUB DSPTXT GOC GDRTN CD0EX R1=C D0=(5) ATNFLG A=DAT0 P ?A#0 P GOYES STRTN C=R1 GOTO MORE GDRTN RTNCC STRTN RTNSC DSPTXT P= 0 C=0 A C=DAT0 1 D0=D0+ 1 C=C+1 A CSRB A=C A CSL A CSL A C=A B R2=C CD0EX D0=C R3=C P= 0 C=DAT0 2 C=C+1 B ?C=0 B GOYES GOTFF dsplop P= 0 C=DAT0 2 GOSBVL DSPCHC C=R2 C=C-1 B ?C=0 B GOYES GOTALL R2=C C=R3 C=C+1 A C=C+1 A R3=C D0=C GOTO dsplop GOTFF RTNSC GOTALL A=R2 ASR A ASR A P= 0 LC(2) 8 C=C-A B R2=C BLOOP P= 0 LCASC ' ' GOSBVL DSPCHC C=R2 C=C-1 B R2=C GONC BLOOP C=R3 D0=C D0=D0+ 2 A=0 A P= 0 A=DAT0 2 GOSUB OUT3 GOSBVL CRLFSD C=R3 D0=C D0=D0+ 4 RTNCC OUT3 GOSBVL HEXDEC SETHEX P= 15 LCHEX 2 P= 0 GOSBVL HEXASC R2=A LC(2) 2 CLOOP RSTK=C GOSBVL DSPCHA A=R2 ASR W ASR W R2=A C=RSTK C=C-1 B GONC CLOOP RTN END