home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9006a.d64 / 61090instr (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  161b  |  4 lines
  1. 61090 REM 61080INSTR       UI$,UP,US$/UP/UA,UB
  2. 61091 UP=UP-(UP=0):FORUA=UPTOLEN(US$):UB=(MID$(US$,UA,LEN(UI$))=UI$):UP=UA
  3. 61092 UA=UA*-NOT(UB)+LEN(US$)*-UB:NEXT:UP=UP*-(UP<LEN(US$)):RETURN
  4.