20 REM ** MINI-PHASENGENERATOR **
25 REM ** C 64 + SIMONS BASIC  **
30 :
100 REM *** DATEN LESEN ***
110 FOR I= 1 TO 4
120 READ X(I):READ Y(I)
130 NEXT
140 FOR I=1 TO 3
150 READ AP(I):READ EP(I)
160 NEXT
170 :
180 INPUT "STARTKOORDINATEN X,Y ";SX,SY
190 INPUT "STARTWINKEL          ";SW
200 INPUT "ZIELKOORDINATEN X,Y  ";ZX,ZY
210 INPUT "ZIELWINKEL           ";ZW
220 INPUT "ANZAHL DER SCHRITTE  ";N
230 SW=SW*(null)/180:ZW=ZW*(null)/180
235 REM *** SCHRITTWEITEN ***
240 DX=(ZX-SX)/N:REM SCHRITTWEITE X
250 DY=(ZY-SY)/N:REM SCHRITTWEITE Y
260 DW=(ZW-SW)/N:REM SCHRITTWEITE WINKEL
290 REM *** ISTWERTE=STARTWERTE ***
300 IW=SW:IX=SX:IY=SY
330 d
 7,6
350 FOR NN=0 TO N
360 SI=SIN(IW):CO=COS(IW)
370 FOR P=1 TO 4
375 REM *** PUNKTE d	IEREN ***
380 XR= X(P)*CO+Y(P)*SI
390 YR=-X(P)*SI+Y(P)*CO
395 REM *** PUNKTE VERSCHIEBEN ***
400 XR(P)=XR+IX
410 YR(P)=YR+IY
420 NEXT P
425 REM *** dYIEN ZIEHEN ***
430 FOR I=1 TO 3
440 d 160+XR(AP(I)),99-YR(AP(I)),160+XR(EP(I)),99-YR(EP(I)),1
450 NEXT
455 REM *** ISTWERTE NEU BEdHNEN ***
460 IX=IX+DX
470 IY=IY+DY
480 IW=IW+DW
490 NEXT NN
500 WAIT 198,1:GET A$
510 END
950 :
1000 REM *** DATEN DER dYIEN ***
1050 DATA 0,-20:REM PUNKT 1
1060 DATA 0,20:REM:PUNKT 2
1070 DATA -20,0:REM PUNKT 3
1080 DATA 20,0:REM PUNKT 4
1090 DATA 1,2:REM LINIE 1
1100 DATA 3,2:REM LINIE 2
1110 DATA 4,2:REM LINIE 3