beljum = jumble


[Prev][Next][Index][Thread]

beljum = jumble



This is for the 92, it is in ASCII so everyone can enjoy it. :)
It takes a word that you enter, and re-outputs the word jumbled.

More original programs created by me can be found at http://www.europa.com/~jzs


beljum()
Prgm
Local l,x,a,w,z
Lbl b
ClrIO
Input "Length of word=",l
If l does not equal int(l):Goto b
If l is greater than10 or l is less than1:goto b
Lbl e
newMat(1,l)->x
ClrIO
For a,1,l
Lbl c
ClrIO
InputStr "Any letter=",w
If dim(w) does not equal 1:Goto c
ClrIO
Lbl a
rand(l)->z
If x[1,z] does not equal 0:Goto a
w->x[1,z]
EndFor
Disp "New word=",x
EndPrgm

________________________________
Justin Smith       j z s @ e u r o p a . c o m
________________________________