10 X1=250 @ Y1=279
20 X2=10250 @ Y2=7479
30 C$=','
50 INPUT 'FELDZAHL IN X-RICHTUNG (1-10) ';X
60 X=INT(ABS(X))
70 IF X<1 THEN 50
80 IF X>10 THEN 50
90 X3=(X2-X1)/X
100 INPUT 'FELDZAHL IN Y-RICHTUNG (1-10) ';Y
110 Y=INT(ABS(Y))
120 IF Y<1 THEN 100
130 IF Y>10 THEN 100
140 Y3=(Y2-Y1)/Y
150 INPUT 'ABSTAND ';C
160 C=INT(ABS(C))
170 IF C<1 THEN 160
180 IF C>20 THEN 160
190 PRINT 'IN;SP1;SC-50,50,-50,50'
200 FOR Y4=Y-1 TO 0 STEP -1
210 FOR X4=0 TO X-1
220 X6=INT(X4*X3+X1) @ Y6=INT(Y4*Y3+Y1)
230 X7=INT(X4*X3+X3+X1) @ Y7=INT(Y4*Y3+Y3+Y1)
240 PRINT 'IP';X6;C$;Y6;C$;X7;C$;Y7
250 FOR A=-50 TO 50 STEP C
260 B=A
270 PRINT 'PU;PA0,0;PD;PA';A;',50'
280 NEXT A
290 FOR A=100-B-C TO -50 STEP -C
300 B=A
310 PRINT 'PU;PA0,0;PD;PA50,';A
320 NEXT A
330 FOR A=100+B-C TO -50 STEP -C
340 PRINT 'PU;PA0,0;PD;PA';A;',-50'
350 B=A
360 NEXT A
370 FOR A=-100-B+C TO 50 STEP C
380 PRINT 'PU;PA0,0;PD-50,';A
390 NEXT A
400 NEXT X4
410 NEXT Y4
420 END
