Graphicomanie pour Thomson

[smague]

5 REM (c)

Stephane Crouhade10 CLS: SCREEN 7,0,020 LOCATE 10,23,0:INPUT "X = ";X30 LOCATE 20,23,0 :INPUT "Y = ";Y40 FOR I = 1 TO 50050 LET A = COS(X*I)*150 +

15060 LET B = COS(Y*I)*90 + 9065 REM tracé70 LINE -(A,B),1280 NEXT I90 END