61090 REM 61080INSTR       UI$,UP,US$/UP/UA,UB
61091 UP=UP-(UP=0):FORUA=UPTOLEN(US$):UB=(MID$(US$,UA,LEN(UI$))=UI$):UP=UA
61092 UA=UA*-NOT(UB)+LEN(US$)*-UB:NEXT:UP=UP*-(UP<LEN(US$)):RETURN