home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 December / 1993-12.d64 / telephone.pp (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  282b  |  7 lines
  1. 5 print"[147]":poke53280,6:poke53281,6
  2. 10 input"number";a$:b=len(a$):dim c(b):for d=1tob: c(d)=0:next:c(b)=-1:print,,,
  3. 20 e=b:print,
  4. 30 c(e)=c(e)+1:if c(e)>2 then c(e)=0:e=e-1: on sgn(e) goto 30:end
  5. 40 for d=1tob:f$=mid$(a$,d,1):g=3*val(f$)-5:ifg<1thenprintf$;:c(d)=5:next:goto20
  6. 50 g=g+c(d):print mid$("abcdefghijklmnoprsttuvwxy",g,1);:next:goto 20
  7.