Try This

“Try This” features short programs to show off your computer, impress your family and friends, and tickle your imagination when SYNC arrives at your place. Send your contributions to: Try This, SYNC, 39 E. Hanover Ave., Morris Plains, NJ 07950.

TS1000/ZX81 (1K RAM or more)

Type in the following lines. Make sure the computer is in SLOW mode, press RUN and ENTER. Type in any character or string of characters and press ENTER. Notice the cursor response. When the screen is full, hit CONT, ENTER, and continue typing.

10 POKE 16390,INT (RND*256)
20 INPUT A$
30 PRINT A$
40 GOTO 10

TS2068

Change the 16390 in line 10 to 23617. Notice the difference from the TS1000.

10 POKE 23617,INT (RND*256)
20 INPUT A$
30 PRINT A$
40 GOTO 10

Our thanks to:

Christopher D. Marsh
[address omitted]
Greensburg, PA

---

TS1000/ZX81 (2K RAM)

Type in the lines below, press RUN and ENTER. The BREAK key will stop the program at any value of X (degrees).

5 FAST
10 FOR A=0 TO 63
20 PLOT A,21
30 NEXT A
40 FOR B=0 TO 43
50 PLOT 0,B
60 NEXT B
65 SLOW
70 FOR X=0 TO 62
80 PRINT AT 18,10;"Y= 20 SINE X"
85 PRINT AT 20,10;"X=";X*360/62
90 LET Y=20+20*SIN (X/31*PI)
95 PRINT AT 21,10;"Y=";(Y-20)
100 PLOT X,Y
110 NEXT X

TS2068

Delete lines 5 and 65 in the above listing and type in. Notice the difference from the TS1000.

Our thanks to:

Ted A. Pozyski
[address omitted]
Houston, TX

---

TS1000/ZX81 (1K RAM)

Carefully examine the lines below. Decide what the computer should PRINT. Now type in the lines:

1 REM BOVEE
10 IF .02+.03=.05 THEN PRINT "THEY ARE EQUAL"
20 PRINT .02+.03

Press RUN and ENTER. Did you get what you expected? Our thanks to:

Chris BoVee
[address omitted]
Pembroke Pines, FL

---

TS2068

Type in the lines below, RUN, and ENTER. Observe the results.

10 FOR d=95 TO 255 STEP 10
15 PLOT 65,27: DRAW 100,100,PI*d
20 PAUSE 30: CLS : NEXT d

10 OVER 1
15 FOR n=1 TO 2
20 PLOT 65,27: DRAW 100,100,PI*255
25 NEXT n

Our thanks to:

Sharon Zardetto Aker
[address omitted]
Sussex, NJ

---

TS1000/ZX81 (2K RAM)

Type in the lines below. RUN in SLOW mode. Try to follow the pattern.

10 FOR A=0 TO 10
20 FOR C=A TO 31-A
30 PRINT AT A,C;"''"
40 IF C>(29-A) THEN GOTO 60
50 PRINT AT 21-A,C+1;".."
60 NEXT C
70 FOR L=A+1 TO 20-A
80 PRINT AT L,31-A;" :";AT 21-L,A;": "
90 NEXT L
100 PRINT AT 0,1;"''";AT L,31-A;".:";AT A,A-1;":'";AT L,A;":.";AT A,31-A;"':";AT 11,9;"[inv TIMEX]SINCLAIR"
110 NEXT A

Our thanks to:

Carlos Gonzalez
[address omitted]
Miami, FL