Ramblings From The Ridge
by D. Sage
    Every issue things seem to change. Due to other commitments, I am no longer available by phone at least not for the next couple of months. In addition, I will be forced to miss the Summer Consumer Electronics Show in Chicago. Although this will have little bearing on the ADAM, I do like to keep in touch with what is going on in the industry. If any of you who live in the Chicago area plan on attending, I would appreciate hearing any news on new products (a copy of appropriate brochures would be helpful, in case I need to contact the company).
    I recently received a letter from J.P. Dayton, Manager of Consumer Service at Coleco. He has indicated that Jeopardy, Best of Electronic Arts, and a version of SmartBasic II have never been released by Coleco. He further indicates that if such products do not carry the Coleco trademark, and "it does not delude to Coleco in any way, we have no problem with its disbursement." This statement while positive is a long way from placing such products officially in the public domain.
    On another note, at a time when illegal copying of software seems to be on the increase, sales of legal ADAM products have begun to decline. Oddly enough, software sales seem to be more affected than sales of hardware and supplies. If this decline continues, it is unlikely that you will see much in the way of new products. We are hopeful that this is only a temporary phenomena, but have placed future projects on the back burner for the time being.
    This issue has suffered a relatively large decline in advertising. As I indicated when ECN was started, the basic length of articles and other information will not be affected by the presence or absence of advertising. Essentially, ECN will continue to have approximately 20 pages of text regardless of the presence of advertising.
    I have repeatedly indicated that we try to print your reviews. When possible we try to include multiple reviews of products where there is some divergence of opinion about a product, but try to impart the overall general feeling when too many reviews are received to print them all. If we receive a number of positive reviews of a product then those will be given the most weight. Your opinions can only be printed when they are received by us. In the last issue we carried a review of PrintShop/PrintShop Extra, by CME Software. Some of you have indicated that you feel this product is better than the review indicated. Since I have not seen the product I cannot express my opinion. If you feel it deserves another look, then send in your review and we will publish it, remember this applies to all products. Always try to remember not to judge a product by just one review. Different people have different preferences and will evaluate products in terms of those prefer­ences. Try to do the best job you can in writing the review so that it is clear and understandable. If you rate a product high and then pick it apart or rate a product low and then praise it, your review is unlikely to be printed.
    Now for some good news. I have been advised by Don Perlman (201/867-7038) that he has access to disk drives, modems and other hard to find ADAM products. Send a SASE to Don Perlman, 620 Harmon Cove Towers, Secaucus, NJ 07094, for more informa­tion.
    The COMPUTER SHOPPER. P.O. Box F, Titusville, FL 32781, still lists the ADAM USERS of AMERICA, P.O. Box 6307, Huntington Beach, CA 92615 as well as the FIRST SOUTHERN CALIFORNIA ADAM UG with the same address.
    The last time I talked to Strategic Software, they indicated that Multi-Write was near comple­tion. Steve Jacoby, P.O. Box 11205, Clearwater, FL 33516, has available a speech synthesizer and software for the ADAM.
    This issue contains some differences. We have added a column on LOGO, a beginner's column on SmartBasic and one rather long program. Jim Guenzel has submitted a lengthy LOGO program. We will try to alternate between long and short programs in order to satisfy your requests. It is difficult to satisfy everyone. Some of you want more technical articles and long programs, some of you want more elementary articles and shorter programs, so I have tried to reach a compromise by periodically offering both. I hope that all of you will find this issue enjoyable.
    Remember, the number on your address label indicates the last issue of ECN you will receive unless you renew. We will send only one renewal notice. We hope that you will stay with us and help keep ECN alive through another interesting year. Return to Top

Industry Observations
by D. Sage
    Amstrad has apparently closed its Chicago offices now that they have reached an agreement for Sears to be the exclusive distributor of their computers in the U.S. and Canada. At the same time it has been announced that Amstrad has purchased ailing Sinclair Research Ltd. The result of this purchase gives Amstrad between 60 and 80 percent of the installed base of home computers in England. Amstrad has indicated that they intend to continue some of the Sinclair line, but it is likely that the QL will not be among those products retained.
    Amstrad has announced plans to sell the PCW8256 through Sears. The 8256 has some similarities to the CPC6128 that was reviewed last time, but has a number of enhancements. It comes packaged with a high resolution monitor (90 x 32 characters) and a letter quality dot-matrix printer. An RS-232 and Centronics interface is optional as is a second disk drive. The system runs CPM+, extended Locomotive Basic and OR LOGO and is said to include superb word processing software (where did Coleco go wrong). Essentially the system appears to be fully compatible with the 6128.
    Look for Sears to list the Amstrad products in the August released Christmas catalog. I do not expect to see an earlier introduction outside of the major metropolitan areas.
    Meanwhile, back on the home front Atari's 520 ST continues to sell successfully, despite all of the predictions seen in the press. Meanwhile Commodore cut the price of the Amiga by $500 in order to increase sales. Some reports indicate that the ST may be substantially outselling the Amiga. Now that Amstrad has made a formal move in the U.S. and Canadian markets, will Commodore and Atari sit idly by pushing their higher end products and ignoring the lower end? All we can do is watch and report on future developments.
    For those of you wanting to contact INTV (owners of the Intellivision). Their address is: INTV Corp., 21535 Hawthorne Blvd., Torrance, CA 90503. Return to Top

Beginning Basic
by D. Sage
    Many of you are novices when it comes to using a computer and have generally confined your use of the ADAM to SmartWriter. As the result of a number of requests for a beginner's column on SmartBasic, I will try to fill this need with this column.
    When you first turn ADAM on, it comes up in the typewriter mode. If you press the ESCAPE/WP key, SmartWriter comes up. But, your ADAM can do more, it can run a variety of programs that are loaded by pulling the computer reset switch or play Colecovision cartridges by pulling the cartridge reset switch. It can also load various languages such as SmartLOGO and SmartBASIC that are loaded by inserting the appropriate disk or data pack and then pulling the computer reset switch. These languages include a number of commands, but essentially, by themselves these languages do nothing. To use them you must either have a program that is already written or you must use them to write a program.
    Some of you will only use these languages to load and run programs written by others and will never write a program of your own. In this issue I will cover the instructions for loading, running and listing Basic programs and for accessing the directory of data packs and disks.
    Once SmartBasic is loaded, you can list the directory of any data pack or disk that contains SmartBasic compatible files and programs. To do this simply insert the ddp or disk you want to "catalog" in the appropriate drive. To list the catalog, type in the following command:

CATALOG, dn [RETURN]

PR#1 [RETURN] CATALOG, dn [RETURN] PR#0 [RETURN]

RUN PROGA, d1	 [RETURN]

LOAD PROGA, d1 [RETURN]

PR#1 [RETURN] LIST [RETURN] PR#0 [RETURN]

More On SmartWriter
by David L. Weldy
    My hearty thanks to Robert Keefer for his tips in "Using SmartWriter Effectively"; however, there are several facets to SmartWriter that I have not seen mentioned in any newsletter.
    Like Mr. Keefer, I also wrote my Ph.D. disserta­tion on ADAM's SmartWriter - all except the final draft. But I'll get to that in a bit. I agree wholeheartedly that files need to be kept short. It has already been mentioned by many that access is easier and if something goes wrong, you lose less with short files. In addition, when you edit a file and store it to the same file name, the revised version is stored before the oldest backup is deleted. If you already had a file and a backup file by the same name on your storage media, you must always have enough room for a third copy. If the file is large, there may not be enough room, whereas if it is broken up into smaller pieces there may be plenty of room. In addition my ADAM has difficulty saving long files (e.g. 20 pages) to tape or disk. I try to keep files to 5-10 pages in length and end at the bottom of a page or at a new heading so printing is easier.
    The reason that the final copy of my dissertation was done on another machine was that variable line spacing is very difficult (not impossible) on SmartWriter, and the problem with extra line feeds with the hard carriage returns makes life difficult at best on a 114 page document.
    In the process of transferring the files by modem, I discovered another idiosyncrasy of SmartWriter. When you delete a section of text, it is not really deleted. SmartWriter simply places a transparent control character before and after the text to make it invisible to the print (to screen or printer) routine. These characters can make themselves known by telling the receiving computer to quit accepting data or to end the transmission. I finally had to transfer the files to CP/M before transmission could be accomplished.
    You should note that SmartWriter was never intended for writing dissertations (not a normal home function and some would debate that it is simply not normal). It is quite satisfactory for home use and works well.
    Again, thanks to Mr. Keefer for his tips. I hope these additional comments will help others avoid some of the pitfalls I encountered. Return to Top

Using SmartLogo
by Mike Degner
    As many owners of SmartLOGO, who have used other versions of LOGO, know the SmartLOGO package is one of the best implementations of LOGO available. LOGO is different from Basic and other languages, in that the programmer creates new commands or primitives, which can be used by just calling the procedure name.
    People often buy LOGO because of its easy graphics capabilities, so we will start off with the graphics part, then proceed to other aspects of LOGO. By now most of you have experimented with the drawing commands, so we will proceed without reviewing them.
    To make a new procedure, you have to start out by calling the editor with the command:

TO (name of the procedure)

TO SQUARE
CS (to clear the screen, could be ommitted, could also use HT to hide the turtle)
PD (puts the turtle's pen down, the following is the main part of the procedure)
FD 40 (moves turtle forward 40 spaces)
RT 90 (turns right 90 degrees)
FD 40
RT 90
FD 40
RT 90
FD 40
END

TO SQUARE1 :SIZE (the variable name must have a colon in front of it)
PD
REPEAT 4 [FD :SIZE RT 90]
END

return
return
return
return
return
[first name] [last name]
[address]
[city],[state] [zip code]

Glitches, Bugs, Errata, Etc.
 John Moore has advised me of an error he made in "CP/M Games On ADAM" which appeared in issue #13. Two bytes were left out of the Infocom Game listing by mistake. Unfortunately they are crucial. The number of characters per line goes at 103H. If you have a good monitor, use 1E. Most televisions are overscanned, so 1D will work better. The number of usable lines per screen is at 104H. Use 17 here. All changes with DDT along with the others and you will have everything working all right. (NOTE: This has been corrected in Issue #13 online).
 From Clint Wormsbecker: I have talked to a service representative at Coleco Canada regarding the issuance of the carrier signal on the modem prior to the completion of the ADAMLink dialing. I was informed that this is due to a bug in the software programs, both ADAMLink I and II. To avoid this problem I use the two-way adapter supplied with the modem. I connect my phone to the adapter. I then enter the number I want to call into the ADAM and start the dialing procedure as per the ADAMLink software - Note: the modem is not plugged into the adapter yet. I then use my telephone to dial the number I want to reach and listen for the call to be answered. I then plug the modem line into the adapter, ADAM is then on line. Norm Vienneau sent in a similar solution to the one listed above from Clint Wormsbecker.
 Bert Cook sends this tip for SmartLogo: When playing music the garbage collection causes problems. This can be remedied somewhat by using the "RECYCLE" command at a convenient spot such as the end of a bar. It's better to have the hitch occur when you want it than in the middle of a bar. It can also be done during a rest in the music.
 Timothy Ferdinand points out that when using the Eve SP-1 with another printer occassionally his printer will print in condensed mode because of control characters. To restore normal print all you have to do is turn the printer off and back on. Return to Top

Bulletin Board
 WANTED: to buy different types of accessories, hardware & software for the ADAM computer. Send list, condition, and price to: Steve, P.O. Box 4323, Midd, Rl 02840.
 WANTED: To buy or trade for Spy Hunter and One-on-One. Also need a copy of the disk drive instruction manual. Also would like to hear from other ADAM owners in my area. Contact: Hector Sanchez, 3606 Swiss, Corpus Christi, TX 78415, ph. 512/854-9754.
 WANTED: Super Action Football, Star Trek and Illusions game cartridges. Contact: Jim Biggs, 7016 Putt Lane, Fort Wayne, IN 46815.
 FOR SALE: Original Cartridges, Data-Packs and Disks for Colecovision or ADAM. Like NEW, in the box, with instructions. Send SASE for list and prices to Stanley M. Siembor, 378 Sunningdale Dr., Inkster, MI 48141.
 FOR SALE: I have the following items still for sale: Cartridges - The Heist, Keystone Kapers, Sir Lancelot and Squish 'Em $5 each. Woodgrain Coleco or Atari 2600 cartridge holders (2) $12 each. Public domain programs $5 per disk or $7.50 per DDP: #1 Basic Utilities/Demos, #2 Basic Games (both disks use both sides), #3 MEX CP/M Communica­tions, #4 LOGO programs. I'm workin on other combinations as well. Send SASE for list. Joe Blenkle, P.O. Box 41746, Sacramento, CA 95841.
 FOR SALE: Nintendo Game System, includes 4 carts-Excitebike, Gyronrite, Duck Hunt, Hogan's Alley. Also includes robot, light gun, and all accesso­ries. Excellent condition, $180 plus $10 shipping. Coleco Auto Dialer, with Address Book software (ddp), $20 plus $3 shipping. Dragon's Lair (ddp), $10 plus $1.50 shipping. Contact: Lee Smith, 105 Donna Drive, Box 338, Terre Hill, PA 17581.
 FOR SALE: New Super Action Football (never opened) send SASE to Scott Gordon, 12503 Kingslake Dr., Reston, VA 22091.
 FOR SALE: ADAM cartridge games, books, data pack software, and some hardware. Items to numerous to list. Send SASE for details. Contact John Bonavita, 1113 Bedford, Grosse Pte. Pk., MI 48230.
 NOTICE: I have written a program in Basic to balance water flow in a water distribution system. It is based on the Hardy Cross method of analysis. I have tried it on three textbook problems and it gives the correct answers. Since I am a civil engineer, I use it in my work. I will be happy to send a copy to anyone who wants one if they will send me a legal sized SASE. Owen McNulty, 2205 Peach Tree Street, Florence, SC 29501.
 WANTED: Aquattack, Q'Bert's Qubes, Dragonfire, Tournament Tennis, Wing War, and Quest for Quintana Roo. Contact: Clint Wormsbecker, 97 Arnason Cres., Saskatoon, Saskatchewan, CANADA S7H 4M7. Return to Top

Product Review: More Games For Nintendo
by D. Sage
    Since a number of you have expressed an interest in the Nintendo Entertainment System. I will continue to provide brief reviews of some of the games that are available.
    After trying out "GOLF" from Nintendo, I am sure any of you who play golf and even those who don't will enjoy this one. It is an eighteen hole course that is at times unbelievable. Off the green you select the club you want to use and control the strength of your swing as well as any hook or slice. You will occassionally wonder how some of these holes managed to have such a low par score. The only shortcoming is that out-of-bounds shots are played over from where you hit the ball instead of with a drop where it went out. Since some of the fairways are rather narrow this can present a problem and you can easily drop a half-dozen strokes on one hole.
    Baseball is entertaining but has a number of annoying problems. When playing the computer it is relatively difficult to win. It picks its team first and you pick from what is left. Each team seems to be somewhat different with most differ­ences showing up in the quality of fielding. Fielding is the part you have no control over and when a ball is hit into the outfield you may find yourself watching your team wander aimlessly around looking for a ball that landed in front of one of them. In the meantime the opposing team has scored all of its base runners. If you get a lead, you can almost forget it. The computer will ultimately outscore you. The best way to win is to keep the game close and hope you get a break near the end.
    Tennis is great but tough. You can play against the computer by yourself or with a partner. You can lob, play the net, or play back. At the lower levels you have a chance. If you win a match you precede to the next level and a much more skilled opponent. Eventually, you will probably give up. Points at the higher level require a great deal of skill. If you rush the net too early the computer opponent automatically hits a lob. If your opponent rushes the net, you better lob or the ball will be hit cross court from your position.
    Next time more reviews. Return to Top

?POFILE "FRTNWHL
TO ; :COMMENT
END

TO LETTER.GUESS
MAKE "VOWEL.FLAG "CONSONANT
SETCURSOR [2 5] TYPE :P.VAL * 100 TYPE CHAR 32
SETCURSOR [1 15] TYPE [BUY VOWEL Y/N?]
MAKE "ANS RC
SETCURSOR [1 15] REPEAT 17 [TYPE CHAR 32]
IF :ANS = "Y [MAKE "VOWEL.FLAG "VOWEL]
IF NOT OR :ANS = "N : ANS = "Y [BEEP LETTER.GUESS]
SETCUKSOK [3 15] TYPE SE [YOUR] :VOWEL.FLAG
SETCURSOR [7 17]
MAKE "GUESS RW
SETCURSOR [7 17] TYPE CHAR 32
CHECK.LETTER
END

TO BEEP
TOOT 0 440 15 15
END

TO WELCOME
INIT.TURTLE HT
PRINT [WHEEL OP FORTUNE]
TYPE [HOW MANY PLAYERS  \(1 TO 4\)?] TYPE CHAR 32
MAKE "ANS ASCII FIRST RL
IF OR :ANS<49 :ANS>52 [BEEP CS WELCOME]
MAKE "NUM CHAR :ANS
PRINT [ENTER THE NUMBER OR LETTER] PRINT [OF THE WORDSLIST TO USE]
    PRINT [(1 TO 9 OR A TO Z )] MAKE "WORDSLIST WORD "WORDSLIST RC
CS SETCURSOR [4 4] TYPE SE :NUM "PLAYERS
SETCURSOR [4 6] TYPE :WORDSLIST
SETCURSOR [6 8]  TYPE [(Y / N)?]
MAKE "ANS RC
IF :ANS = "Y [PLAYERS.NAMES :NUM]
BEEP WELCOME
END

TO RW
OP FIRST RL
END

TO PLAYERS.NAMES :NUM
CS MAKE "CNT 1
PRINT SE :WORDSLIST [WILL BE LOADED] PR []
PRINT [ENTER PLAYER NAMES.]
PRINT [] MAKE "PLAYER.LIST []
REPEAT :NUM [PRINT SE [PLAYER NUMBER] :CNT MAKE "ANS RW MAKE "PLAYER.LIST
     LPUT :ANS  :PLAYER.LIST MAKE "CNT :CNT+1 PPROP "SCORE :ANS 0]
DRAW.SCREEN
END

TO INIT.TURTLE
ERDS THAW
TELL ALL
CS HT SETSH 36
SETC 15
SETPC 15 PD
SETBG 5
TELL 0 ST
SETTEXT 0
END

TO DRAW.SCREEN
INIT.TURTLE SETTEXT 23
WRAP CS HT TELL 0 ST SETC 1 SETPC 12
PU FD 25 LT 9 PD FD 70 BK 70
RT 18 FD 70 BK 70
REPEAT 4 [RT 36 FD 70 BK 70]
RT 18 FD 70 BK 70
REPEAT 4 [RT 36 FD 70 BK 70] PU
SETHEADING 0
FD 70 SETHEADING 270 PD CIRCLEL 70 PU SETHEADING 0 BK 70

SETCURSOR [2 0] PRINT [PLAYER]
SETCURSOR [24 0] PRINT [TYPE]
SETCURSOR [2 4] PRINT [VALUE:]
TELL 7 SETSH 7 PU FD 80 LT 90 FD 123 PD SETPC 15 REPEAT 10 [STAMP BK 8] PU BK 90 PD
     REPEAT 10 [STAMP BK 8] PU HOME
FD 50 LT 90 FD 105 PD REPEAT 6 [STAMP BK 6] PU HOME
BK 30 LT 90 FD 123 SETPC 7 PD REPEAT 20 [STAMP BK 14 STAMP] PU HOME
BK 46 LT 90 FD 123 SETPC 15 PD REPEAT 20 [STAMP BK 14] PU HOME
BK 87 LT 90 FD 123 SETPC 11 PD REPEAT 20 [STAMP BK 14] RT 90 FD 15 LT
90 REPEAT 20 [STAMP BK 14] PU HOME
SETCURSOR [14 1] TYPE "BR SETCURSOR [10 2] TYPE "200 SETCURSOR [17 2]
TYPE "300 SETCURSOR [8 5] TYPE "400 SETCURSOR [20 5] TYPE "500 SETCURSOR [7 9]
     TYPE "600 SETCURSOK [20 9] TYPE "700 BETCURSOR [8 13] TYPE "800
     SETCURSOR [19 13] TYPE "900 SETCURSOR [12  14] TYPE "1000 SETCURSOR [16 13]
     TYPE "L SETCURSOR [17 14] TYPE "T
TELL 0 COLOR.CIR
DISPLAY.PLAYERS
END

TO CIRCLEL :RADIUS
MAKE "STEP 2 * :RADIUS * 3.1416 / 36
REPEAT 36 [LT 5 FD :STEP LT 5]
END
 
TO COLOR.CIR
MAKE "C 1
REPEAT 6 [PU PD 20 SETPC :C PD FILL MAKE "C :C+2 BK 20 RT 32]
MAKE "C 10 SETHEADING 180
REPEAT 5 [PU FD 20 SETPC :C PD FILL MAKE "C :C-2 BK 20 RT 36]
PU
SETHEADING 0
END

TO DISPLAY.PLAYERS
MAKE "CNT 1 MAKE "C 2 MAKE "R 21
REPEAT :NUM [SETCURSOR SE :C :R TYPE ITEM :CNT :PLAYER.LIST MAKE "C :C+7 MAKE "CNT :CNT+1]
SETCURSOR [27 23]
RECYCLE PLAYFN
END

TO PLAYFN
ERPS
RECYCLE
SETCURSOR [0 15] TYPE [LOADING DATA] SETCURSOR [23 23]
LOAD :WORDSLIST
LOAD "PLAYFN
END

MAKE "STARTUP [WELCOME]
MAKE "ANS 51
MAKE "STEP 12.217333
MAKE "PLAYER.LIST []
MAKE "NUM "3
MAKE "R 21
MAKE "C 2
MAKE "CNT 1
MAKE "WORDSLIST "WORDSLIST1

NOPRINTER

?POFILE "PLAYFN
TO CHECKANS
RECYCLE
MAKE "LN 1
IF :N > :LENGTH [SETCURSOR [0 23] MAKE "N 1 MAKE "C 1 MAKE "R 17 ADD.SCORE]
REPEAT GPROP "COUNT WORD "LENGTH :N [IF EQUALP :GUESS ( ITEM :LN ITEM :N :WORD )
     [G.BEEP SETCURSOR SE :C :R TYPE :GUESS MAKE "SCR.CNT :SCR.CNT+1 MAKE "C
     :C+1 MAKE "LN :LN+1] [MAKE "LN :LN+1 MAKE "C :C+1]]
MAKE "N :N+1
MAKE "C :C+1
IF :C>27 [MAKE "C 1 MAKE "R 18]
CHECKANS
END

TO PROP.SCORE
MAKE "PLAYER ITEM :THIS :PLAYER.LIST
PPROP "SCORE :PLAYER :NEW.SCR
MAKE "C 2+7 * (-1+ :THIS)
SETCURSOR SE :C [22] TYPE :NEW.SCR REPEAT 6-COUNT :NEW.SCR [TYPE CHAR 32]
MAKE "C 1 MAKE "R 17
END

TO ADD.SCORE
IF :SCR.CNT=0 [LOSE.TURN]
IF :VOWEL.FLAG = "VOWEL [MAKE "P.VAL -0.5]
MAKE "GIVEN LPUT :GUESS :GIVEN
MAKE "PLAYER ITEM :THIS :PLAYER.LIST
MAKE "NEW.SCR ( GPROP "SCORE :PLAYER ) + ( :P.VAL * 100 * :SCR.CNT )
MAKE "SCR.CNT 0
PROP.SCORE
SPIN.POINTER
END
 
TO BUZZER :PREQ
IF :PREQ < 128 [STOP]
IF :PREQ > 9999 [STOP]
TOOT 2 :FREQ 15  6
NOISE 3 15 0 12 1
BUZZER :FREQ / :DV
END

TO SPIN.POINTER
IF RBUTTONP 0 [SOLVE.IT]
BEEP G.BEEP
SETCURSOR [0 23] TYPE [KEY TO SPIN. BUTTON TO SOLVE] RECYCLE
IF NOT KEYP [CT SPIN.POINTER]
MAKE "ANS RC
REPEAT 20 [SETH 1 + RANDOM 360]
FD 35 CT RECYCLE
POINTER.VAL
END

TO BANKRUPT
MAKE "DV 1.4
BUZZER 6000
MAKE "NEW.SCR 0
PROP.SCORE
MAKE "THIS :THIS + 1
DISPLAY.PLAYER :THIS
END

TO POINTER.VAL
MAKE "P.VAL COLOR.OVER BK 35
IF :P.VAL = 1 [BANKRUPT]
IF :P.VAL = 11 [LOSE.TURN]
IF :P.VAL > 11 [RT 5 FD 35 POINTER.VAL]
LETTER.GUESS
END

TO LOSE.TURN
MAKE "DV 1.7
BUZZER 8092
MAKE "THIS :THIS + 1
DISPLAY.PLAYER :THIS
END

TO SOLVE.IT
SETCURSOR [4 15] TYPE [ENTER YOUR SOLUTION:] BEEP G.BEEP SETCURSOR [1 19]
RECYCLE
MAKE "ANS RL
SETCURSOR [4 15] REPEAT 21 [TYPE CHAR 32]
IF NOT :ANS = :WORD [SETCURSOR [0 19] REPEAT 56 [TYPE CHAR 32] SETCURSOR [1 15]
     REPEAT 20 [TYPE CHAR 32] LOSE.TURN]
RECYCLE REPEAT 15 [G.BEEP]
SETCURSOR [4 15] TYPE SE ITEM :THIS :PLAYER.LIST [YOU WIN!!] REPEAT  10 [TYPE CHAR 32]
WAIT 200 RECYCLE SETCURSOR [0 15] REPEAT 56 [TYPE CHAR 32] SETCURSOR [.1 15]
G.BEEP TYPE  [PLAY ANOTHER ROUND Y / N?]
MAKE "ANS RC
IP :ANS = "Y [SETCURSOR [0 15] REPEAT 27 [TYPE CHAR 32] SETCURSOR [0 17] REPEAT 56
     [TYPE CHAR 32] MAKE "THIS :THIS +  1 INIT]
IF :ANS = "N [SETTEXT 0 CS OP]
BEEP SETCURSOR [1 15] TYPE [< Y > OR < N >] WAIT 120 SOLVE.IT
END

TO WORDS
SETCURSOR [0 18] REPEAT 56 [TYPE CHAR 32] SETCURSOR [27 23]
MAKE "WORD.NUM ( 1 + RANDOM COUNT :WORDS )
IF 0 = REMAINDER :WORD.NUM 2 [MAKE "WORD.NUM :WORD.NUM - 1]
MAKE "NTYPE ITEM :WORD.NUM :WORDS
MAKE "NWORD ITEM :WORD.NUM + 1 :WORDS
IF :NWORD = :WORD [OP WORDS]
OP :NWORD
END

TO GIVEN
IF MEMBERP :GUESS :GIVEN [BEEP SETCURSOR [2 15] TYPE [ALREADY PICKED!!]
     WAIT 100 SETCURSOR [2 15] REPEAT 17 [TYPE CHAR 32] BEEP BEEP LOSE.TURN]
CHECK ANS
END

TO G.BEEP
TOOT 0 370 10 8
TOOT 1 500 10 10
END

TO DISPLAY.PLAYER :THIS
IF :THIS > :NUM [MAKE "THIS 1]
RECYCLE G.BEEP SETCURSOR [2 2] TYPE ITEM :THIS :PLAYER.LIST
REPEAT ( 6 - COUNT ITEM :THIS :PLAYER.LIST ) [TYPE CHAR 32]
SPIN.POINTER
END

TO DISPLAY.WORD
MAKE "LN 1
IF :N > :LENGTH [SETCURSOR [25 23] MAKE "N 1 DISPLAY.PLAYER :THIS]
REPEAT GPROP "COUNT WORD "LENGTH :N [IF OR ( ITEM :LN ITEM :N :WORD )
     ="- ( ITEM :LN ITEM :N :WORD ) = "' [TYPE ( ITEM :LN ITEM :N :WORD )
     MAKE "LN :LN + 1] [TYPE "* MAKE "LN :LN + 1]]
TYPE CHAR 32
MAKE "N :N + 1 G.BEEP
DISPLAY.WORD
END

TO DISPLAY.NTYPE
SETCURSOR [21 2] TYPE :NTYPE REPEAT 2 [TYPE CHAR 32]
SETCURSOR [1 17]
MAKE "N 1
DISPLAY.WORD
END

TO INIT
RECYCLE
MAKE "GIVEN []
MAKE "C 1
MAKE "R 17
MAKE "SCR.CNT 0
MAKE "N 1
MAKE "WORD WORDS
MAKE "LENGTH COUNT :WORD
REPEAT :LENGTH [PPROP "COUNT WORD "LENGTH :N COUNT ITEM :N :WORD MAKE "N :N + 1]
MAKE "N 1
SETCURSOR [0 15] REPEAT 110 [TYPE CHAR 32] SETCURSOR [0 15]
DISPLAY.NTYPE
END

TO FIRST.INIT
WORDS.LIST
MAKE "THIS 1
MAKE "WORD "
ERASE ["WORDS.LIST "FIRST.INIT]
INIT
END

TO ; :COMMENT
END

TO LETTER.GUESS
RECYCLE
MAKE "VOWEL.FLAG "CONSONANT
BEEP BEEP SETCURSOR [2 5] TYPE  :P.VAL * 100 TYPE CHAR 32
SETCURSOR [8 15] TYPE [BUY VOWEL Y / N?] RECYCLE
MAKE "ANS RC
SETCURSOR [8 15] REPEAT 17 [TYPE CHAR 32]
IF :ANS = "Y [MAKE "VOWEL.FLAG "VOWEL RECYCLE]
IF NOT OR :ANS =  "N :ANS = "Y [BEEP LETTER.GUESS]
SETCURSOR [8 15] G.BEEP TYPE SE [YOUR] :VOWEL.FLAG G.BEEP RECYCLE
SETCURSOR [14 16]
MAKE "GUESS RW
SETCURSOR [14 16] TYPE CHAR 32
IF AND MEMBERP :GUESS [A E I 0 U] :VOWEL.FLAG = "CONSONANT [BEEP SETCURSOR [8 15]
     TYPE  [CONSONANT PLEASE.] WAIT  120 SETCURSOR [8 15] REPEAT 18
     [TYPE CHAR 32] LETTER.GUESS]
RECYCLE
IF AND NOT MEMBERP :GUESS [A E I 0 U] :VOWEL.FLAG = "VOWEL [BEEP SETCURSOR [8 15]
     TYPE [VOWEL PLEASE.] WAIT 100 LETTER.GUESS]
RECYCLE
GIVEN
END
 
TO BEEP
TOOT 0 440 11 20
END

TO RW
OP FIRST RL
END

MAKE "STARTUP [FIRST.INIT]

?POFILE "WORDSLIST1
TO WORDS.LIST
MAKE "WORDS [QUOTE [PLAY IT AGAIN SAM] THING [LABORATORY] PHRASE [ALL ABOARD]
     PHRASE [FASTEN SEATBELTS] PHRASE [COME AND GET IT] PERSON [PAUL ANKA]
     THING [FROSTY THE SNOWMAN] PLACE [HERNANDO'S HIDEAWAY]
     PHRASE [GOOD TO THE LAST DROP] THING [CROSSWORD PUZZLE] PERSON [JOHNNY SPPLESEED]
     PERSON [CHRISTMAS TREE FARMER] PHRASE [UNAFE AT ANY SPEED] THING [COLOR TELEVISION]
     THING [MARRIAGE LICENSE] THING [FLUORESCENT LIGHT] THING [FLOWERING HOUSE PLANT]
     TITLE [THE PRIVATE LIFE OF HENRY VII] TITLE [FIBBER MCGEE AND MOLLY]
     PHRASE [TOAST OF THE TOWN] THING [KEY TO THE CITY] TITLE [THE THIN MAN]
     PERSON [ED SULLIVAN] THING [JIGSAW PUZZLE] PHRASE [THE WHOLE TRUTH AND NOTHING
     BUT THE TRUTH] THING [SOCIAL SECURITY] PHRASE [THE GRASS IS GREENER ON THE OTHER
     SIDE OF THE FENCE] PHRASE [GOOD THINGS COME IN SMALL PACKAGES] PHRASE [CLOTHES
     MAKE THE MAN] PERSON [ROBERT REDFORD] PHRASE [VOID WHERE PROHIBITED] 
     THING [SIGNATURE] THING [CHARGE CARD]]
END

Turn your ADAM computer into an indoor planetarium. Calculate for any dates / Locations of all planets / 5 Comets including Halley Display 42 constellations with data Find distances between two objects, dates of FULL/NEW MOONS, ZODIAC and STAR DATABASE. Convert between Julian and Gregorian calender dates. RETURN THIS AD FOR SPECIAL DISCOUNT! SAVE $7 ON EACH ORDER! $29 FOR DISK...$32 FOR DATAPACK! GUARANTEED to work or it will be replaced immediately. Cost includes shipping. Hanania Enterprises, Ltd. P.O. Box 356 Tinley Park, IL 60477

ADAM DATA PACK (Adam).....1/$3.95 - 10/$37.50 RIBBON CART.....1/$5.50 - 3/$15.00 DISKS (Adam)......30/$35.95 - 10/$14.95 DAISY WHEEL (Adam) - Italic, Script, Elite, etc. 1/$5.50 ADAM COVERS - Set with logo for system......$18.95 ADAM DISK COVER - To match above......$7.99 64K MEMORY EXPANDER.......$69.95 DIGITAL DATA DRIVE........SPECIAL PRICE......$29.95 TRACTOR FEED for Adam printer.....$79.95 PRINTER STAND - Front on/off switch......$19.95 POWER PACK - To separate printer/use CPU alone.....$69.95 ADAM AIR CONDITIONER - Stop heat buildup with this super quiet computer fan. Will help eliminate the problem with the computer crashing (freeze).....$19.95 SERIAL/PARALLEL INTERFACE UNIT - This opens a whole new world for the Adam owner. Now you can connect a dot matrix hi/speed printer/use standard modem (300-1200 baud). Comes w/software used with SmartBASIC or CP/M etc. Serial or Parallel......$139.95 SPEECH SYNTHESIZER UNIT/CLOCK CALENDER - Now add VOICE capabilities to Adam. Software included. $109.95 Disk Holder - Holds up to 50 disks-anti static.....$15.95 Monitor/TV Stand-360 rotation, up to 12.5 angle.....$22.95 Adam Monitor Cable.....$10.95 Panasonic 1091 Printer.....$279.95 Panasonic Ribbon....$9.95 PACKCOPY - Backup SmartBASIC, etc. .....$29.95 DIABLO - Mind Challenge - Graphic.....$19.95 BLACK GOLD - Look for oil. Survey-profits-fun.....$19.95 The STOCK MARKET GAME - Fun & educational.....$19.95 BOUNTY HUNT - Text adventure.....$20.95 ADAM ENTERTAINER - Book (sound, graphic, etc.).....$12.95 ADAM'S COMPANION - Book (updated).....$9.95 LEARNING TOGETHER WITH ADAM - Book w/LOGO.....$9.95 DataCALC - Spreadsheet.....$24.95 SmartSPELLER - Electronic Dictionary (D or DP).....$39.95 EBU - SmartBASIC - Data Pack or Disk.....$21.95 HACKER'S GUIDE TO ADAM - Disk or DP.....$17.95 TurboLOAD - Revolutionary new product. Speeds up loading programs, a must for Adam owners. Also includes the FILE ORGANIZER.....$28.95 PaintMASTER - HI-Res graphic design system primarily written in Z80 machine language. Load or save your creation to either D or DP.....$23.95 MultiWRITE - The only 64 column word processor, no need for moving windows. What you type on the screen will be printed. On screen R & L justification, on screen centering and so much more.....$38.95 VIDEO TUNES - Compose, play, save music.....$34.95 AUTOAID - Enhances SmartBASIC. Generate new line numbers as you type. Defines function keys to be any command or character string & so much more.....$29.95 MULTI-CART BACKUP - Backup cartridges.....$19.95 S&H - $2.50 US     $4.50 CN      US $'s only     VISA/MC Free catalog - We stock what we sell for FAST DELIVERY. M.W. RUTH CO., Dept. S26 510 Rhode Island Ave. Cherry Hill, NJ 08002

Las Vegas ADAM CLUB presents Archives I 10 Unique SmartBASIC programs SNAKE EYES (a graphic dice game for 1 to 4 players) MATCH 'EM (Concentration type game) LETTER MATCH (MasterMind with 3 levels) MORSE CODE (learn & practice morse code) CATALOG P/O (create catalogs for future reference) COLOR POKES (teaches the use of color with text) CARD TRICK (cards are graphically displayed in text) I.Q. TEST (measaure your I.Q. accurately) TRIVIA GAME (comes with 50 T.V. questions) TRIVIA MAKER (create your own questions for TRIVIA GAME) Send Check or Money Order L.V.A.C. P.O. Box 81146 Las Vegas, NV 89103 Join the leading ADAM users' group #1 ADAM USERS' GROUP Receive "SPRITE CHASER" newsletter. Advanced updating, evaluations on programs & hardware, technical information direct from Coleco. Problem solving - program exchange - discount buying service - etc.  Send $15  for membership to: #1 ADAM USERS' GROUP P.O. Box 3761 - Attn: Jay Forman Cherry Hill, NJ 08034 (609) 667-2526 * VISA/MASTER-ADD $1 DATA PACKS Adam Right Directory Data Packs 2 for $8.00 These are ADAM data packs. Most contain Buck Roger's Super game, but can be INITed and used as blank right directory data packs. Great for backing up other Super Games. Send check/money order to: Sage Enterprises Rt. 2, Box 211, Russellville, MO 65074 SUPPLY LIMITED