TS1000/1500/ZX81


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

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

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.