Apple Orchard 1980 Fall v1n2 reduced

PAGE 58 THE APPLE ORCHARD FALL 1980
above example we can reduce the
likelihood of error by asking the
user to type in a NUMBER instead
of an entire name. On screen it will
look like this:
MAJOR AUTOMOBILES
Please type the number of the line
you want to see:
1) FORD
2) CHRYSLER
3) CHEVROLET
4) VOLKSWAGON
5) PACKARD
Which number
Now all we have to check for is the
validity of the number:
IF IN$ "5" THEN
GOTO REJECT
Here's what the whole program
would look like, exclusive of the
subroutines containing the modelprice
information (references to
which you would insert at line 210):
10 REM AUTO PRICING
PROGRAM
20 REM RUNS ON APPLE II
30 REM LINES 40, 60, 160,170
ARE SCREEN FORMAT
COMMANDS
40 HOME
50 1$ = "MAJOR AUTOMO
BILES"
60 HTAB 21 - LEN (1$) I 2
70 PRINT 1$
80 PRINT : PRINT
90 PRINT "PLEASE TYPE THE
NUMBER OF THE LINE YOU
WANT TO SEE:"
100 PRINT : PRINT
110 FOR X = 1 TO 5
115 READ CHOICE$(X)
120 PRINT TAB (10) X; ")";
COUNT$ (X)
130 PRINT
140 NEXT X
150 PRINT
160 VTAB 22
170 HTAB 5
180 INPUT "WHICH NUMBER";
IN$ ·
190 IF IN$< "1" OR IN$ > "5"
. THEN GOSUB 1000: GOTO
160
200 CHOICE= VAL (CHOICE$)
210 ON CHOICE GOSUB N1,
N2 .., NN
999 END
1000 REM WRONG CHOICE
1010 PRINT "NOT ON MY LIST.
NUMBERS 1 - 5 ONLY."
1020 RETURN
2000 DATA FORD, CHRYSLER,
CHEVROLET, VOLKS
WAGON, PACKARD
There are other input errors that
users can make, of course. S/he can
hit the RESET key or kick out the
plug - in fact, there is no end to
the creativity of the truly dedicated
naive computer user. All we can do
is protect against the errors we
know and constantly strive to
· devise more careful user-proof
code.
Either that or go back to CB
radios.
LOCKESMYTHE COPYRIGHT© 1980
SCOT KAMINS
ALL RIGHTS RESERVED
~ . . ~
Lower Case + Plus
by: Lazer Systems
for the Apple II $59. 95
• NORMAL AND INVERSE LOWER CASE.
• 2 CHARACTER SETS ON BOARD.
•CHARACTER SET USER DEFINABLE WITH A
2716 EPROM .
•EXPANSION SOCKET FOR RAM BASED
CHARACTER SET & CONTROL.
•HI-RES GRAPHICS ON THE TEXT PAGE.
• RESET DISABLE CAPABILITY.
Send Check or Money Order to :
LAZER SYSTEMS
P.O. Box 55518
Riverside, Calif. 92517
MIC or Visa acceptable. Include Card No., Exp. Date & Signature.
INTRODUCTORY OFFER: Send this
ad or zerox copy with $54.95 to get
$5.00 off the retail price.
Calif. res. add $3.30 sales tax.
Outside cont. U.S.A. add shipping charges.
Offer expires Dec. 31, 1980. Allow 3 weeks
lllii.. for delivery. A01 ~
INTRODUCING
for the APPLE II *
"APPLE -
SIMON SEZ"
· Challenge your wits by testing your memory .
and concentration. Repeat exactly the
sequence of colors and sounds randomly
generated by APPLE-SIMON SEZ and you
win, or program you r own sequence of
colors and sounds to baffle your friends. Play
with both. colors and sounds or just colors or
just sounds. If you lose, APPLE-SIMON
SEZ'S humilating "razz" lets you and
everyone around know.
Six game variations for your enjoyment.
Now available on cassette at the low
introductory price of ONLY $9.95, please
add $.75 shipping and handling.
SEND CHECK OR MONEY ORDER TO:
BARTON ENTERPRISES, INC.
1604 MARSH LANE
CARROLL TON, TEXAS 75006
•APPLE fl is a registered trademark
of Apple Computer, Inc.