Try These

TS 2068

This program was printed in an old issue of Synapse, the newsletter of the Central PA User Group.

  20 PRINT "Enter 4 numbers between 1 and 20"
  30 INPUT a,b,c,d
  35 CLS
  40 LET t=0
  50 LET x1=125+125*SIN (a*t)
  60 LET y1=87+87*SIN (b*t)
  70 LET x2=125+125*SIN (c*t)
  80 LET y2=87+87*SIN (d*t)
  90 PLOT x1,y1
 100 DRAW x2-x1,y2-y1
 110 LET t=t+.01
 120 GO TO 50

---

TS1000

This program by Randy Adams of Santa Cruz CA was printed in the July/August issue of SYNC. Input numbers between 1 and 100. (Try 26, 31, 32,35,and 38).

   5 INPUT Z
   7 CLS
  10 FOR B=1 TO 20
  15 FOR N=1 TO 2*Z
  20 PLOT 31-B*COS (N/Z*PI),22+B*SIN (N/Z*PI)
  25 NEXT N
  30 NEXT B

---

TS 2068

This colorful program was submitted by subscriber Doug McRoy of Laurel MD.

1000 REM Color slash
1001 CLS : PAPER 0: CLS : BORDER 0: CLS : BORDER 0
1002 INK 7: DRAW 0,175: DRAW 255,0: DRAW 0,-175: DRAW -255,0
1003 FOR q=0 TO 7
1005 FOR l=0 TO 56 STEP 8
1007 FOR m=0 TO 56 STEP 8
1010 LET l=INT (RND*88)+0
1015 LET m=INT (RND*128)+0
1020 PLOT m,l: INK q: DRAW m,l
1030 NEXT m
1032 NEXT l
1040 NEXT q
1045 GO TO 2003
2003 FOR q=0 TO 7
2005 FOR l=175 TO 119 STEP -8
2007 FOR m=256 TO 200 STEP -8
2010 LET l=INT (RND*88)+0
2015 LET m=INT (RND*128)+0
2020 PLOT 255-m,174-l: INK q: DRAW -m,-l
2030 NEXT m
2032 NEXT l
2040 NEXT q
2045 GO TO 1003