home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 June / 64er_Magazin_90-06_1990_Markt__Technik_de_Side_A.d64 / 61060duplicate (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  123b  |  4 lines
  1. 61060 rem 61060duplicate   us$,ux/us$/ua$,ua
  2. 61061 ua$=us$:us$="":ua=int(255/len(ua$)):ifua<uxthenux=ua
  3. 61062 forua=1toux:us$=us$+ua$:next:return
  4.