Try These

See all articles from T-S Horizons n20
Author(s): Daniel Richardson; Joe Jenkins; John Copps; Richard Watts; David Johnson; Bernard Bush
Publication: T-S Horizons
Pub Details: T-S Horizons n20 (Issue 20)
Date: July-August 1986
Pages: 7

TS1000/1500/ZX81

Daniel Richardson's X-RAY graphics listing
Daniel Richardson's X-RAY graphics listing
X-RAY skeleton screen
X-RAY skeleton screen

An unusual graphics program using the unique graphics of the ZX81, by Daniel Richardson. The graphics characters for each line can be accessed on the following keys:

110: _/_/6/6, _/8/6/3/5, _/8/3/4/5, _/_/Y/T
130: A/H/H/ H/H/A
150: A/G/G/G/G/A, H/□/□/□/□/H
170: _/□/5/8/□
190: _/A/A/H/H
195: □/□/□/□/□ /□/□/□/□/5/E/1/2/R/8
Note: □- Graphics- space.

TS 2068

  1 LLIST : LPRINT
4 LET a=5: LET b=75
6 INK 2
7 PRINT AT 2,6;"a=";a
8 PRINT AT 2,20;"b=";b
10 PLOT 225,90
20 DRAW a,b
30 DRAW a,-b
35 INK 4
40 DRAW -a,-b
70 DRAW -a,b
90 LET a=a-1
95 LET b=b-1
98 INK 4: PAUSE 15
100 GO TO 5
200 COPY
Screen output with a=-113, b=-43
Screen output with a=-113, b=-43

John Copps of Mooresboro TN submitted this program.


TS 2068

I’m afraid I’ve lost track of who sent in this program, but I think it was TSH author Richard Watts. It’s a very interesting music program: play the keys q,w,e,r,t,y,u,i,o,p,2,3,5,6,7,9 and 0 to play songs.

 10 LET a$="q2w3er5t6y7ui9o0p"
20 DIM b(256)
30 FOR c=1 TO 17: LET b(CODE a$(c)+1)=c
40 NEXT c
50 LET d=CODE INKEY$+1
60 IF b(d) THEN BEEP .5,b(d)-1
70 GO TO 50

TS2068

  5 REM PROGRAM FOR TS-2068 by JOEE JENKINS, [address omitted], AMARILLO,TX 79109. Date is 11-NOV-85.  W5JEN
10 REM SPIRAL , a conversion by Ted Knyszek from APPLE II to TS-2068 See CREATIVE COMPUTING FEB 1984 FEB 1984
15 REM the PI in Line 20 is the GREEK LETTER PI, A SHIFTED M , you see.
20 LET c=COS (PI/3)
30 LET s=SIN (PI/3)
40 LET c1=COS (PI/36)
50 LET s1=SIN (PI/36)
60 LET sf=.95
70 LET x=95
80 LET y=0
90 LET cx=130
100 LET cy=88
110 LET sc=1.16
120 FOR j=1 TO 43
130 FOR i=0 TO 6
140 LET sx=x*sc+cx
150 LET sy=cy+y
160 IF i=0 THEN GO TO 190
170 PLOT sx1,sy1
180 DRAW (sx-sx1),(sy-sy1)
190 LET sx1=sx: LET sy1=sy
200 LET xn=x*c-y*s
210 LET y=x*s+y*c
220 LET x=xn
230 NEXT i
240 LET xn=sf*(x*c1-y*s1)
250 LET y=sf*(x*s1+y*c1)
260 LET x=xn
270 NEXT j
280 STOP
Spiral hexagon screen
Spiral hexagon screen

This program was converted by Joe E. Jenkins from an Apple II program. For a different look change the upper limit in line 120 to something besides 43.


TS2068/Spectrum or TS1000/1500/ZX81

This little program was submitted to Try These by Dave Johnson. Listing No. 1 is written for the TS2068 with the OS-64 cartridge from Zebra Systems. We haven’t tried it on the TS1000 but the effect on the 2068 is very interesting. Also try it without line 21.

  1 REM "cool"
2 FOR a=1 TO 20
10 PRINT AT a,a;"▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
20 PRINT AT a,a;" "
21 PRINT "Hi Robby, you are in computers."
35 NEXT a
40 LET a=0: GO TO 1
50 REM By DAVID JOHNSON 1985
  1 REM "cool"
2 FOR a=1 TO 20
10 PRINT AT a,a;"▒▒▒▒▒▒▒▒▒▒▒▒"
20 PRINT AT a,a;" "
21 PRINT "Hi Robby, you are in computers,"
35 NEXT a
40 LET a=0: GO TO 1
50 REM By DAVID JOHNSON 1985

TS1000/1500/ZX81

 20 LET A=4*INT (RND*42)+1
30 LET B=4*INT (RND*42)+1
40 LET C=4*INT (RND*2)+1
50 FOR J=1 TO A STEP C
60 PLOT A,J
70 PLOT J,A
80 PLOT B,J
90 PLOT J,B
100 NEXT J
110 GOTO 20

This is an early program written by TS Horizons author Bernard Bush. We borrowed it from The Best of SYNC, Volume 1. Don’t miss next issue’s feature by Mr. Bush, a collection of TS 2068 graphics programs.

Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.