10 EIN=49241 :REM  GRAFIK EIN
20 AUS=49252 :REM  GRAFIK AUS
30 NEU=49152 :REM  LOESCHEN + FARBE
40 GSV=49271 :REM  SAVE
50 GLD=49333 :REM  LOAD
60 ROT=50316 :REM  ROTATIONSKOERPER
70 XY =50672 :REM  X.Y-GRAFIK
80 :
100 POKE53280,6:POKE53281,5:SYSNEU,5
110 DEFFNR(X)=COS(X)+COS(3*X)+COS(5*X)
120 PRINT"[147][144]+++++++  ROTATIONSKOERPER-DEMO  ++++++++":UU=(null)/180
130 U=-10:INPUT"DREHWINKEL (-45 BIS 90) .. ";U:IFU<-45ORU>90THEN130
140 L=160:MY=99:MX=159:SN=SIN(UU*U):CS=COS(UU*U)
150 V=70:INPUT"AUFSICHTSWINKEL (0 BIS 90) ";V:IFV>90ORV<0THEN150
160 SM=SIN(V*UU)
165 XX%=MX-L/SQR(2)*SIN((45-U)*UU)+.5:YY%=MY+L/SQR(2)*COS((45-U)*UU)*SM+.5
170 NN%=20:INPUT"ANZAHL DER LINIEN ........ ";NN%:IFNN%>60ORNN%<3THEN170
180 KK%=NN%/2+.5
190 A=L*CS/NN%:B=-L*SN/NN%:CC%=A*SM+.5:EE%=B*SM+.5:DD=COS(V*UU)*30
200 AA%=A+.5:BB%=B+.5
220 PP=2:INPUT"MAXIMALES X .............. ";PP:PP=2*PP/NN%
230 SYSROT
240 PRINT"[147]":WAIT198,1:POKE198,0:SYSAUS