to A3
cs pu REC
setpos [-312 0]
pd repeat 2 [fd 262 rt 90 fd 472 rt 90] pu
setpos [-308 4]
pd repeat 2 [fd 254 rt 90 fd 464 rt 90] fd 70 rt 90 pu fd 12 pd fd 440 pu seth 0
setpos [-312 -241]
pd repeat 2 [fd 230 rt 90 fd 472 rt 90] pu
setpos [-308 -237]
pd repeat 2 [fd 222 rt 90 fd 464 rt 90] pu
setpos [174 -241]
pd repeat 2 [fd 504 rt 90 fd 184 rt 90] pu
setpos [178 -237]
pd repeat 2 [fd 496 rt 90 fd 176 rt 90] pu
setpos [-296 -64] pd
end
to A4 ;TEXT
setcursor [8 6]
pr [Type one character, the whole word or Q to quit. :] setcursor [8 12] pr [POINTS:]
setcursor [8 17] pr [GRAPHICS: characters per word:]
setcursor [8 19] pr [. . . . . . . . . . . . . . . . . . . . . . VERY GOOD!!]
setcursor [8 22] pr [. . . . . . . . . . . . . . . . . . . . . . . . . GOOD!]
setcursor [8 25] pr [. . . . . . . . . . . . . . . . . . . . . . . . . BAD!!]
setcursor [8 13] rv type [40]
repeat 38 [type char 157] rvo SP 2 type [¤ TD 1989] type char 7 er [A3 A4 REC]
end
to REC
ct
setcursor [73 2] rv pr [* ANAGRAM *] rvo
setcursor [74 4] pr [CHAMPION :] make "AL count :RH
setcursor [65 6] SP 13 - :AL / 2 pr :RH make "AL count :RP
setcursor [65 8] SP 13 - :AL / 2 pr :RP
setcursor [68 10] pr [(CHARACTERS per WORD)]
setcursor [71 18] pr [today's player:] make "AL count :NM
setcursor [65 20] SP 13 - :AL / 2 pr :NM
setcursor [68 24] pr [(CHARACTERS per WORD)]
end
u
setpos [178 -23