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.
|19 - 31||Title page|
|34 - 95||Level entry|
|97 - 120||Draw screen|
|125 - 205||Scramble section|
|210 - 265||Word entry|
|270 - 285||Sound routine|
|290 - 435||Score and advancement|
|997 - end||Data words (must be typed in according to line number)|
|999 - 1009||Data for beginner|
|1999 - 2009||Data for intermediate|
|2999 - 3009||Data for expert|
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.
1 DATA 507,16,31,181,35,137,519,1,3,25 1,890,36,389,517,528,4041 25 DATA 152,951,464,517,80,376,951,238 ,335,405,740,869,566,420,670,7734 80 DATA 668,676,15,647,516,400,206,602 ,604,284,313,993,505,130,499,7058 145 DATA 386,553,106,369,136,741,227,5 69,785,79,342,56,767,683,967,6766 220 DATA 218,124,469,688,283,970,883,3 29,351,713,740,638,870,195,527,7998 285 DATA 414,669,824,612,636,704,451,2 82,136,608,467,19,565,804,942,8133 505 DATA 614,708,992,125,480,440,514,5 88,295,817,786,641,110,302,600,8012 1999 DATA 283,242,317,399,503,447,117, 114,63,121,396,915,441,768,404,5530 3003 DATA 626,69,191,992,894,292,91,31 55