set display mode 800,600,32
sync on
sync rate 0
sync
sync
randomize timer()
 
 
 ` YOU can enter any filename here:
a$="filename.txt"
originalname$=a$
print a$
 
 ` this chops off the file extension
for t=1 to len(a$)
 if mid$(a$,t)="." then exit
next t
a$=left$(a$,t-1)
 
print a$
 
 ` this builds the name up to at least 13 characters long
b$=""
repeat
b$=b$+a$
until len(b$)>12
 
print b$
 
 ` this computes number values based on the ascii values of the name
c$=""
for t=1 to len(b$)
 a=asc(mid$(b$,t))
 print a;"    "+str$(t+(a*(2+t)*t))
 c$=c$+str$(t+(a*(2+t)*t))
next t
 
print c$
print len(c$)
 
 ` this multiplies each digit within the string by an ever-increasing number.
d$=""
for t=1 to len(c$)
 a=val(mid$(c$,t))*(t+1)
 d$=d$+str$(a)
next t
c$=d$
print
print d$
print len(d$)
 
 ` this removes zeroes.
for x=1 to 10
 a=len(c$)
 for t=1 to a
  d$=mid$(c$,t)
  if d$="0"
   e$=left$(c$,t-1)
   f$=right$(c$,a-t)
   c$=e$+f$
   dec a
  endif
 next t
next x
 
print
print c$
print len(c$)
 
 ` shorten c$ to an even number
a=len(c$)
if a mod 2>0
 c$=left$(c$,a-1)
endif
print
print c$
print len(c$)
 
`write to clipboard c$
 
 
a$=originalname$
 ` this chops off the file extension
for t=1 to len(a$)
 if mid$(a$,t)="." then exit
next t
a$=left$(a$,t-1)
a$=str$(rnd(99))+a$+".kee"
 
open to write 1,a$
write string 1,c$
 
 
 ` this makes the multiplication key:
 
dim key$(100) as string
 
a=len(c$)/2
if a>99 then a=98
for t=1 to a step 2
 a$=mid$(c$,t)
 b$=mid$(c$,t+1)
 key$(t)=a$+b$
 write string 1,key$(t)
next t
keylen=a/2
write string 1,"+"+str$(keylen)
 ` this makes the nonsense insertion key:
 
dim non(10)
 
n=1
a=3+val(mid$(c$,1))
for t=a to a+10
 b=val(mid$(c$,t))+2
 non(n)=b
 inc n
 write string 1,str$(b)
next t
 
close file 1
 
sync
wait key
 
end