Recently there was a short listing that moved a printed message in the shape of a sine wave. This month Rafe Aldridge of Essex has written a similar one: it moves a message in a circle. 1 ' Revolving message 2 ' by Rafe Aldridge 3 ' Amstrad Action September 87 10 MODE 1: DEG: TAG: ORIGIN 200,200 20 INK 0,0: INK 1,0: INK 2,0: INK 3,0: PAPER 0: BORDER 0 30 FOR lp=1 TO 360 STEP 10: col=col+1: IF col>3 THEN col=1 40 MOVE 100*COS(lp),100*SIN(lp),col 50 PRINT "MESSAGE";: NEXT lp 60 INK 1,26: INK 1,0: INK 2,26: INK 2,0 70 INK 3,26: INK 3,0: GOTO 60AA |