Enter a string of up to 12 characters, and the program prints it over and over at the bottom of the screen, shifted left and right along a sine curve, and SCROLLs it up, so the text weaves up the screen. Graphics characters give op-art patterns. It runs until you press BREAK.
Change SIN in line 20 to COS for a cosine version. For an 8K ZX80 the article adds 37 PAUSE 30.
Published in Syntax August 1982 (Sine Name).
Source Code
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 10Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.
