Version 1.12 and 2.03 Swedish -- 2006-02-19
529 or 822 + about 450 calculator bytes
This is a good anagram generator, but of course without a wordlist. Now there are two versions! One international and one optimized for swedish. The swedish one avoids two vocals after each other, so it gets better anagrams! With 1.12 or 2.02 your privacy is even better. I think it's totally impossible to see anything about the word you have written when you have deleted it.
version 2.03: Small bug fixed.
1 When you have started the main program, just type the word as usual, and then press EXE. The program can handle 63 letters (3 lines), then it continues automatically. Only write letters or symbols those you have in the " TEXT" program!
2 To show a new anagram, press EXE again.
3 Select a new word by restarting with AC and EXE.
4 Delete the word by restarting and directly press EXE.
-> means right arrow.
=> means the right arrow in the "jump" menu.
\= means the “not equal to” symbol.
_ means the display symbol.
BOTH VERSIONS:
File name: ” TEXT”
Int ((N-21)/21)+E->C
N-21(C-E)->D
B=76=>Locate D,C,”A”
B=66=>Locate D,C,”B”
B=56=>Locate D,C,"C"
And so on…
INTERNATIONAL VERSION:
File name: “ANAGRAM“
'VER 1.12
ClrText
Locate 7,5,”~ANAGRAM~”
Locate 8,6,”BY OLLE”
Locate 7,7,”EXE=READY”
{63,1}->Dim Mat N
{79,1}->Dim Mat Q
0->A
2->E
Do
Getkey->B
Do
LpWhile Getkey=B
Do
Getkey->B
LpWhile B=0
B=31=>Break
Isz A
B->Mat N[A,1]
Mat Q[B,1]+<->Mat Q[B,1]
A->N
Prog “ TEXT”
LpWhile A<63
A=0=>Goto 9
Locate 7,5,” (9 spaces) ”
Locate 8,6,” (7 spaces) “
Locate 1,1,”WAIT…”
Locate 1,7,”NUMBER: (10 spaces) ”
A!->F
For 1->N To 79
F/Mat Q[N,1]!->F
Next
Log F>10=>Sci 5
Locate 10,7,F
Norm
Lbl 1
Locate 1,1,“WAIT...“
{A,1}->Dim Mat O
For 1->N To A
Do
Int ARan#+1->C
LpWhile Mat O[C,1]
Mat N[N,1]->Mat O[C,1]
Next
For 1->N To A
Mat O[N,1]->B
5->E
Prog” TEXT”
Next
“”_
Goto 1
Lbl 9
[[0]]->Mat N
Mat N->Mat O
Mat N->Mat Q
0->A~F
0->N
ClrText
"DELETED!"
SWEDISH VERSION:
File name: "ANAGRAM2"
'VER 2.03 SWE
ClrText
Locate 5,5,”~ANAGRAM SWE~”
Locate 8,6,”BY OLLE”
Locate 7,7,”EXE=READY”
{63,1}->Dim Mat N
{79,1}->Dim Mat Q
0->A
2->E
Do
Getkey->B
Do
LpWhile Getkey=B
Do
Getkey->B
LpWhile B=0
B=31=>Break
Isz A
B->Mat N[A,1]
Mat Q[B,1]+<->Mat Q[B,1]
A->N
Prog “ TEXT”
LpWhile A<63
A=0=>Goto 9
Locate 5,5,” (13 spaces) ”
Locate 8,6,” (7 spaces) “
Locate 1,1,”WAIT…”
Locate 1,7,”NUMBER: (10 spaces) ”
A!->F
For 1->N To 79
F/Mat Q[N,1]!->F
Next
Log F>10=>Sci 5
Locate 10,7,F
Norm
{A,1}->Dim Mat P
0->G
For 1->N To A
Mat N[N,1]->B
If B=76 Or B=36 Or B=55 Or B=54 Or B=72 Or B=32
Then 1->Mat P[N,1]
Isz G
IfEnd
Next
Lbl 1
Locate 1,1,“WAIT...“
{A,2}->Dim Mat O
G->H
A->J
For 1->N To A
Mat N[N,1]->B
Mat P[N,1]->D
Do
Int ARan#+1->C
Mat O[C,1]->E
Mat O[C,2]->F
J=0=>LpWhile E
J=>LpWhile E Or (D And F)
F=0=>J-1->J
1->Mat O[C,2]
If D
Then If C\=1
Then Mat O[C-1,2]=0=>J-1->J
1->Mat O[C-1,2]
IfEnd
If C\=A
Then Mat O[C+1,2]=0=>J-1->J
1->Mat O[C+1,2]
IfEnd
IfEnd
B->Mat O[C,1]
H-D->H
Next
For 1->N To A
Mat O[N,1]->B
5->E
Prog” TEXT”
Next
“”_
Goto 1
Lbl 9
[[0]]->Mat N
Mat N->Mat O
Mat N->Mat P
Mat N->Mat Q
ClrText
0->A~J
0->N
"DELETED!"