to ANAGRAM
A1 load "A3 A3 A4 A5 d setcursor [8 8] type [AGAIN? (y / n) :] if rc = "y [ANAGRAM] erall fs
end
to A1
setscrunch 0.468 type word char 27 "0 make "X -296 ht setsplit 1 ct
type [YOUR NAME:...] make "NM rq
make "A .examine 64504 repeat :A / 4 [make "A random :A]
make "S 0 make "PT 40 make "BT 1 make "SCR 0 make "A 15
ct make "nr random 6 fs
if :nr = 1 [load "WW1]
if :nr = 2 [load "WW2]
if :nr = 2 [load "WW3]
if :nr = 3 [load "WW4]
if :nr = 4 [load "WW4]
if :nr = 5 [load "WW5]
if :nr = 0 [load "WW6] B make "G count :B make "nr 1
end
to A5
A51 A6 
 if :L = "Q [stop] 
 if or (:X > 180) (:PT < 0) [A7 stop]
make "nr :nr + 1 
 if :nr = :G [A2 make "nr 1]
make "BT :BT + 1 make "AL :A
A5
end
to A6
setcursor [8 8]
make "L rq
setcursor [8 9] 
 if :L = "Q [stop]
make "NR 1 
 if :L = :W [setcursor [8 2] (type [YES! THE WORD.:] :W) make "SCR (40 - :PT) / :BT LINE b PNTS stop]
make "PT :PT - 1 Z PNTS
A6
end
to Z
if item :NR :W = :L [make "P se :NR * 2 + 6 4 setcursor :P type :L] if :NR = :A [stop] make "NR :NR + 1 Z
end
to SP :x
repeat :x [type char 32]
end
to b
setcursor [8 4] SP :A * 2 setcursor [8 4]
end
to d
setcursor [8 8] SP :A
end
to rv
type word char 27 "p
end
to rvo
type word char 27 "q
end
to PNTS
make "CX 47 - :PT make "SC se :CX 13 setcursor [70 22] type :SCR setcursor [34 12] SP 2 type se [WORDNR. :] :BT setcursor :SC type char 151 rv type :PT rvo d
end
to LINE
if :SCR > 5 [make "SCR 5]
make "X :X + 10 make "Y :SCR * -32 - 64
setpos se :X :Y
end
to A7
if :SCR - :RP < 0 [make "RP :SCR make "RH :NM ern [B W1 SCR X Y] erasefile "ANAGRAM save "ANAGRAM]
end
to A51
make "W item :nr :B make "W1 [] make "A count :W make "NR 1
label "x
make "W1 se item :NR :W :W1 make "NR :NR + 1 if :NR - :A > 0 [make "W1 shuffle :W1 go "y] go "x
label "y
setcursor [8 2] SP 20 + :AL setcursor [8 2] type :W1
setcursor [8 4] repeat :A [type [.] type char 32]
end
make "RP "2.34567
make "RH "William\ Shakespeare
L [make "P se :NR * 2 + 6 4 setcursor :P type :L