page-1983-101-timex-sinclair-programming-tricks

More documents

Recommendations

Info

After that, it's back to line 10 for a complete new runthrough.Program Listing10 CLEAR15 LET W=JJ20 LET R=JJ25 DIM 1\.$(6,7)30 DIM P$(7)35 LET S=INT(lO*RND)40 IF S6 THEN GOTO 3060 LET A$(l)="BUTLER"70 LET A$(2)="NANNYn80 LET A$(3)=•MAID"90 LET A$(4)=•soNn100 LET A$(5)=•coACH"110 LET A$(6)=•wIFEn120 PRINT "WHO KILLED THE DUKE?n130 PRINT •wAS I~ THE ••• •140 FOR L=l TO 6145 PRINT A$(L)150 NEXT L160 INPUT P$165 CLS170 IF A$(S}=P$ THEN GOTO 200180 PRINT "NOT ";P$190 LET W=W+l195 GOTO 120200 LET R=R+l210 PRINT P$;" DID ITn220 PRINT •youR SCORE IS ••• •230 PRINT R;• RIGHT •;w;• WRONGn240 PRINT250 GOTO <strong>101</strong>6 Batting AverageOnce you know the number of times you were rightand wrong in a game, as in Tip Number 15, it's fun to30
convert those raw numbers to a batting average. Numbersright and numbers wrong take on a new meaning whenchanged to a batting average. Folks seem to be able tounderstand a batting average better.Our program, starting at line 900, is a partial listingdesigned to be tacked onto the end of your longer gameprogram to display the final results of play. It will showthe number of tries, number of right answers, percentageright, and batting average.You'll want to test load this program so add lines 10and 800 as shown. Line 800 will give you the A and Tvalues you'll need going into the program at line 900.Program Listing10 CLS800 LET R=55810 LET T=lOO900 PRINT R;n RIGHTn910 PRINT nIN •;T;n TRIESn920 LET D=R/T930 LET P=lOO*D940 LET B=lO*P950 PRINT nTHAT IS •;p;• PERCENTn960 PRINT •BATTING •;B17 Computer Rating Servic,eOf course, once you know a player's batting averageit still might need some interpretation. In this program,the computer takes a look at a batting average and makesa comment.Remember that this listing, starting here with line800, is a partial program to be tacked on the end of alonger game. Note that, at 800, you already have values forG (number right) and E (number of tries). Line 810 convertsthose raw numbers to a batting average (H).Then, the computer takes that batting average,stored in H, and compares it with values shown in lines31
Page 3: IMEX/ SJ,NCLAIRODO zx-B'IRDGRAMMING
Page 6 and 7: FIRST EDITIONFIRST PRINTING©1983 b
Page 8 and 9: TipTable of ContentsPageIntroductio
Page 10 and 11: Gee Whiz37 Gee Whiz I: Smart Adder
Page 12 and 13: 97 Draw A Line98 Box Message99 Boxe
Page 14 and 15: The 101 programs in this handbook c
Page 16 and 17: author's training in writing BASIC-
Page 19 and 20: Fun & Games
Page 21 and 22: Program Listing10 RAND100 LET A=INT
Page 23 and 24: 140 IF R
Page 25 and 26: 130 PRINT •BACKWARD:•140 FOR J=
Page 27 and 28: 110 PRINT •PRESS ANY KEY TO PLAY
Page 29 and 30: 12 60-Second TimerA one-minute time
Page 31: 210 IF A$=•• THEN GOTO 200220 I
Page 35: The program here has a temporary su
Page 38 and 39: 1 Create a QuizOne of the most fasc
Page 40 and 41: line 10 for a.word. It is looking f
Page 42 and 43: program if you. don't get it right
Page 44 and 45: 90 PRINT100 PRINT "ADDRESS";TAB lO;
Page 46 and 47: 160 LET D$(7)=•sEE YOUR ANALYST"1
Page 48 and 49: 32 Sentence WriterPractice your Eng
Page 50 and 51: 160 IF GH THEN LET H=G180 GOTO 2020
Page 52 and 53: 30 PRINT A$;40 GOTO 1036 Question &
Page 55: Gee Whiz
Page 58 and 59: 38 Gee Whiz II:Three-Digit MysteryH
Page 60 and 61: 41 Gee Whiz V: SecondAlphabet Spott
Page 63: Number Crunching
Page 66 and 67: 120 LET R::R+l125 LET W=j130 LET Z=
Page 68 and 69: 10 the computer asks for a number.
Page 70 and 71: Program Listing10 PRINT •WHAT IS
Page 72 and 73: 25 INPUT Z30 IF Z=I THEN GOTO 8035
Page 74 and 75: 70 GOTO 2080 CLS90 PRINT "THE SMALL
Page 76 and 77: 60 CLS70 PRINT "THE FRACTIONAL PORT
Page 78 and 79: 30 INPUT N35 IF N>INT N THEN GOTO 5
Page 80 and 81: Line 20 generates the numbers. Line
Page 82 and 83:
Random Numbers:Distr~butionEver won
Page 84 and 85:
110 PRINT "RANDOM NUMBERS TOTAL ";T
Page 87 and 88:
Money Matters
Page 89 and 90:
Shopper's FriendTake your computer
Page 91 and 92:
POST IS BEST BUYPOST UNIT=$0.08KELL
Page 93 and 94:
ending in 95 cents. For instance, a
Page 95 and 96:
100 LET D=l-0.0l*P110 LET R=W/D120
Page 97 and 98:
100 IF H>40 THEN GOTO 140110 LET W=
Page 99 and 100:
Unit price is total price divided b
Page 101:
The computer generates a table of r
Page 105 and 106:
80 Screen FullFill your video scree
Page 107 and 108:
gram lines to draw and seem to move
Page 109 and 110:
Program Listing10 CLS100 FOR L=g TO
Page 111 and 112:
There are a number of ways to get t
Page 113 and 114:
140 NEXT X200 LET X=INT(63*RND}210
Page 115 and 116:
Program Listing10 LET A$=• 1120 F
Page 117 and 118:
100 FOR Y=l5 TO 25 STEP 10110 FOR X
Page 119:
101 Random Bar GraphIf you don't ha
Page 123 and 124:
Appendix A:Sinclair BASIC WordsHere
Page 125:
StatementsCLEARCLSCONTCOPYDIMDIM $F
Page 129 and 130:
ooks from ARCsoft PublishersFor the
Page 132:
101 TIMEX 1000/Sinclair ZX-81Progra
show all

page-1983-101-timex-sinclair-programming-tricks

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?