REP 16/11 ;08C1 APRID T1 ANDI T1,17777 ;GET ONLY SERIAL NUMBER CAIL T1,10000 ;SKIP IF NOT KS10 WIT MOVEI P1,1 SETZ P2, ;BIG BINARY INTEGER MOVEI P4,1 ;ONE DIGIT BYTE EXTEND P1,[CVTBDO] ;CONVERT WILL ABORT TLNN P4,200000 ;TEST EFFECT ON N SUM 112423