10 LPRINT CHR$(27); CHR$(38); CHR$(108); CHR$(48); CHR$(79);
20 LPRINT CHR$(27); CHR$(40); CHR$(49); CHR$(48); CHR$(85);
30 LPRINT CHR$(27); CHR$(40); CHR$(115); CHR$(49); CHR$(80);
40 LPRINT CHR$(27); CHR$(40); CHR$(115); CHR$(53); CHR$(86);
50 LPRINT CHR$(27); CHR$(40); CHR$(115); CHR$(48); CHR$(83);
60 LPRINT CHR$(27); CHR$(40); CHR$(115); CHR$(48); CHR$(66);
70 LPRINT CHR$(27); CHR$(40); CHR$(115); CHR$(52); CHR$(49); CHR$(48); CHR$(49); CHR$(84);
80 LPRINT CHR$(27); CHR$(40); CHR$(115); CHR$(50); CHR$(81);
90 LPRINT CHR$(&H1C); CHR$(&H25)
100 DIM X(6), Y(6): KK = .15: R = 43
110 FOR K = 1 TO 4: LPRINT "J"; K - 1
120 OX = 96 * ((K - 1) MOD 2) + 46: OY = -96 * INT((K - 1) / 2) - 46
130 LPRINT "O"; OX; ","; OY
140 FOR I = 0 TO K + 1
150 X(I) = R * SIN(8 * I * ATN(1) / (K + 2)): Y(I) = R * COS(8 * I * ATN(1) / (K + 2))
160 NEXT I
170 FOR I = 1 TO 10 + 5 * K
180 X(K + 2) = X(0): Y(K + 2) = Y(0)
190 FOR J = 0 TO K + 1
200 M1 = X(J) * 10: IF M1 - INT(M1) <= .5 THEN X1 = INT(M1) / 10 ELSE X1 = INT(M1 + 1) / 10
210 M2 = X(J + 1) * 10: IF M2 - INT(M2) <= .5 THEN X2 = INT(M2) / 10 ELSE X2 = INT(M2 + 1) / 10
220 N1 = Y(J) * 10: IF N1 - INT(N1) <= .5 THEN Y1 = INT(N1) / 10 ELSE Y1 = INT(N1 + 1) / 10
230 N2 = Y(J + 1) * 10: IF N2 - INT(N2) <= .5 THEN Y2 = INT(N2) / 10 ELSE Y2 = INT(N2 + 1) / 10
240 LPRINT "D"; X1; ","; Y1; ","; X2; ","; Y2
250 X(J) = X(J) + KK * (X(J + 1) - X(J)): Y(J) = Y(J) + KK * (Y(J + 1) - Y(J))
260 NEXT J: NEXT I: NEXT K
270 LPRINT CHR$(27); CHR$(38); CHR$(108); CHR$(48); CHR$(79);
280 LPRINT CHR$(27); CHR$(40); CHR$(49); CHR$(48); CHR$(85);
290 LPRINT CHR$(27); CHR$(40); CHR$(115); CHR$(49); CHR$(80);
300 LPRINT CHR$(27); CHR$(40); CHR$(115); CHR$(49); CHR$(48); CHR$(86);
310 LPRINT CHR$(27); CHR$(40); CHR$(115); CHR$(48); CHR$(83);
320 LPRINT CHR$(27); CHR$(40); CHR$(115); CHR$(48); CHR$(66);
330 LPRINT CHR$(27); CHR$(40); CHR$(115); CHR$(53); CHR$(50); CHR$(84);
340 LPRINT CHR$(27); CHR$(40); CHR$(115); CHR$(50); CHR$(81);
350 FOR I = 1 TO 3: LPRINT : NEXT I
360 LPRINT "Gli astri d'intorno alla leggiadra luna"
370 LPRINT "    nascondono l'immagine lucente,"
380 LPRINT "quando piena pi— risplende, bianca"
390 LPRINT "    sopra la terra."
400 LPRINT : LPRINT SPACE$(33); "<  Saffo  >"
410 LPRINT CHR$(27); CHR$(38); CHR$(108); CHR$(48); CHR$(72)