Try These

The following program was submitted by Bernard Bush of Mansfield MO.

  5 REM MOSAIC
  6 REM B BUSH DEC 82
 10 LET T=0
 20 LET A=.5
 30 LET B=96.5
 40 LET C=.005
 50 LET D=8
 60 FAST
 70 PRINT A,,B,,C,,D
 80 LET T=T+C
 85 IF T>=4.2 THEN GOTO 200
 90 LET X=20+D*COS (A*T*PI)
100 LET Y=20-20*SIN (B*T*PI)
110 PLOT X+14,Y
120 PLOT Y+14,X
130 IF INKEY$="F" THEN FAST
140 IF INKEY$="S" THEN SLOW
150 GOTO 80
200 SLOW
210 FOR L=1 TO 600
220 NEXT L
230 LET T=0
240 LET A=A+1
250 CLS
260 GOTO 60

 10 SLOW
 20 FAST
 30 GOTO 10

This 3-line program appeared in the October ’83 issue of Syntax and was submitted by Billy Casebeer.

---

TSH regular John Bell submitted the following.

 10 LET s1=0
 20 LET s2=100
 30 SOUND 0,s1;1,0;2,s2;3,s1;7,60;8,10;9,10
 40 LET s1=s1+2+INT s2/100
 50 LET s2=s2+INT s2/50
 60 PAUSE 10
 70 GO TO 30

---

This program was submitted by Kevin Steltman, age 11, of Vista, CA. (Note: In lines 30 and 40 all letters in quotes should be typed in the graphics mode.)

 10 FOR r=0 TO 47: READ a: POKE 65368+r,a: NEXT r
 15 DATA 56,62,56,40,36,68,132,67
 20 DATA 0,0,56,48,56,56,16,56
 25 DATA 56,62,56,56,32,32,32,48
 27 DATA 0,0,28,12,28,28,8,28
 28 DATA 28,124,28,28,4,4,4,12
 29 DATA 28,124,28,20,36,34,33,194
 30 FOR r=0 TO 31: PRINT AT 20,r;"B";AT 21,r;"C": PAUSE 4: PRINT AT 20,r;"B";AT 21,r;"A": PAUSE 7: PRINT AT 20,r;" ";AT 21,r;" ": NEXT r
 40 FOR r=31 TO 0 STEP -1: PRINT AT 20,r;"D";AT 21,r;"E": PAUSE 4: PRINT AT 20,r;"D";AT 21,r;"F": PAUSE 7: PRINT AT 20,r;" ";AT 21,r;" ": NEXT r
 50 GO TO 20

---

Submissions for “Try These” should be mailed to: Try These, 2002 Summit St., Portsmouth, OH 45662.