home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 June / 64er_Magazin_90-06_1990_Markt__Technik_de_Side_A.d64 / 61090instr (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  161 b   |  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.