Word Scramble

16K Cassette or 24K Disk
by Steven T. Murphy

Word Scramble is an amusing game for verbalists, in which one or more persons try to unscramble words scrambled by the computer.

There are three hundred words in the computer's memory, each coinciding with a particular skill level. After the title screen, you will be prompted to enter a level of difficulty. Beginner level has three to four letters in each word; intermediate has five to six per word; and expert has anywhere from seven to twelve letters per word. Once you have selected the level, the computer will start scrambling a word at random so that, if a word appears twice, the letters may not appear in the same order. To get back to the level entry menu, just hold OPTION while the computer is scrambling a word.

If you make a mistake typing in a word, simply hit the backspace key, and the word will disappear.

I hope you will have hours of fun with Word Scramble; I know I have. I've noticed that, even though I put in the words to be scrambled, I still have a very hard time unscrambling words from the expert level.

Program Outline
19 - 31Title page
34 - 95Level entry
97 - 120Draw screen
125 - 205Scramble section
210 - 265Word entry
270 - 285Sound routine
290 - 435Score and advancement
997 - endData words (must be typed in according to line number)
999 - 1009Data for beginner
1999 - 2009Data for intermediate
2999 - 3009Data for expert

Adding words

To add more words to your Word Scramble, first select ten words for each skill level. It is necessary to have thirty words because of the random selection. Next, locate the corresponding data statements for the skill level of the chosen words, and enter the words in a data statement, incrementing by one line number. There can be only ten words per data line. Then, in Line 135:

135 RESTORE ((J*1000)+INT(RND(0)*10));

For every thirty words you enter (ten for each skill level), add one to the ten in the first random statement only. For example, you add thirty more words to the list, ten for each skill level. Line 135 would look like this:

135 RESTORE ((J*1000)+INT(RND(0)*11));

It's that simple.

WRDSCRAM.LST is available in ATASCII format.

This BASIC listing uses an image to display special characters

Checksum Data
1 DATA 507,16,31,181,35,137,519,1,3,25
25 DATA 152,951,464,517,80,376,951,238
80 DATA 668,676,15,647,516,400,206,602
145 DATA 386,553,106,369,136,741,227,5
220 DATA 218,124,469,688,283,970,883,3
285 DATA 414,669,824,612,636,704,451,2
505 DATA 614,708,992,125,480,440,514,5
1999 DATA 283,242,317,399,503,447,117,
3003 DATA 626,69,191,992,894,292,91,31

Previous | Contents | Next

Original text copyright 1984 by ANALOG Computing. Reprinted with permission by the Digital ANALOG Archive.