beljum = jumble

To: CALC-TI@LISTS.PPP.TI.COM
Subject: beljum = jumble
From: Justin Smith <jzs@EUROPA.COM>
Date: Mon, 8 Sep 1997 21:14:25 +0100
Organization: -
Reply-To: Justin Smith <jzs@EUROPA.COM>
Xref: paladin.american.edu bit.listserv.calc-ti:16473

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
________________________________

Prev: Re: 82 and 92 functions
Next: Re: TI-86 Link Question
Index(es):
- Main
- Thread