100 REM LISSAJOUS-FIGUREN
110 IF FLAG=0 THEN FLAG=1:LOAD "GRAPHTOOL.OBJ",8,1
120 INPUT "[147]PHASENVERSCHIEBUNG IN GRAD : ";PV:PV=PV*(null)/360
130 INPUT "FREQUENZVERHAELTNIS (1:?)  : ";FV
140 SYS49152:SYS49158,1,0:REM GRAPHIK INITIALISIEREN
150 T=0:X0=160+SIN(T)*100:Y0=100-SIN(FV*T+PV)*100
160 T=T+.05:X1=160+SIN(T)*100:Y1=100-SIN(FV*T+PV)*100
170 REM NEUEN PUNKT MIT ZULETZT GEZEICHNETEM VERBINDEN
180 SYS49173,X0,Y0,X1,Y1:X0=X1:Y0=Y1
190 GETA$:IFA$="" GOTO 160
200 SYS49155:GOTO 120