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

More documents

Recommendations

Info

50 INPUT B60 CLS70 PRINT 0 1981 PROFITS"80 INPUT c90 CLS100 LET X$= 0 "110 PRINT TAB 9;"PROFITS"200 PRINT AT 3,Sf;"l979 n ,•210 FOR L=l TO A220 LET X$=X$+CHR$ 128230 NEXT L240 PRINT X$250 LET X$= 0 "300 PRINT AT 5,Sf; 0 1980 ,II •310 FOR L=l TO B320 LET X$=X$+CHR$ 128330 NEXT L340 PRINT X$350 LET X$=• 11400 PRINT AT 7,SJ;•l981 n ,•410 FOR L=l TO C420 LET X$=X$+CHR$ 128430 NEXT L440 PRINT X$Sample RunPROFITS1979 -19801981116
<strong>101</strong> Random Bar GraphIf you don't have any particular data to display, butwould like to see how these bar graphs work, try thisprogram.It uses a random number generator in line 400 toprovide data.Program Listing10 RAND20 LET X$=""30 PRINT TAB 9;"PROFITS"40 PRINT AT 3,j;"l978 ";50 GOSUB 40060 PRINT AT 5,j;•1979 ";70 GOSUB 40080 PRINT AT 7,j;"l980 ";90 GOSUB 400100 STOP400 FOR L=l TO INT(27*RND)410 LET X$=X$+CHR$ 128420 NEXT L430 PRINT X$440 LET X$=• 11450 RETURN117
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 and 32:
210 IF A$=•• THEN GOTO 200220 I
Page 33 and 34:
convert those raw numbers to a batt
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: 100 FOR Y=l5 TO 25 STEP 10110 FOR X
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

Create successful ePaper yourself

Delete template?

Save as template?