Sine Name

Print any string in the form of a vertical sine wave. Type in this program, RUN it, then enter a string of up to 12 characters. Along with letters, you can enter graphics characters for neat effects (for example, alternating spaces and solid black squares for an op-art design).

To run on an 8K ZX80, add:

  37 PAUSE 30

Change SIN in line 20 to COS for a cosine version.

   5 INPUT A$
  10 FOR A=0 TO 6.3 STEP .2
  20 LET Y=SIN A
  30 PRINT AT 21,(10*Y+10);A$
  35 SCROLL
  40 NEXT A
  50 GOTO 10
SYNTACTIC SUM: 7555, 8K