5 SET BITMAP SIZE 1200,1200 10 SET WINDOW -550,550,-550,550 15 SET POINT STYLE 1 20 INPUT PROMPT "角数は？": a 25 INPUT PROMPT "半径は？": f 30 LET a=200/a 40 FOR b=0 TO 200 STEP 0.1 42 LET c=PI*2*b/200 44 LET x=f*COS(c) 46 LET y=f*SIN(c) 48 PLOT POINTS: X,Y 49 NEXT b 50 FOR b=0 TO 200 STEP a 55 LET c=PI*2*b/200 60 LET x=f*COS(c) 70 LET y=f*SIN(c) 80 FOR d=0 TO 200 STEP 0.1 90 LET e=PI*2*d/200 100 LET x1=f*COS(e)+x 110 LET y1=f*SIN(e)+y 115 PLOT POINTS: X1,Y1 120 NEXT d 122 FOR d=0 TO 200 STEP a 130 LET e=PI*2*d/200 200 LET x1=f*COS(e)+x 210 LET y1=f*SIN(e)+y 215 FOR g=0 TO 200 STEP 0.1 280 LET h=PI*2*g/200 290 LET x2=f*COS(h)+x1 300 LET y2=f*SIN(h)+y1 310 PLOT POINTS: X2,Y2 320 NEXT g 400 FOR g=0 TO 200 STEP a 410 LET h=PI*2*g/200 420 LET x2=f*COS(h)+x1 430 LET y2=f*SIN(h)+y1 440 FOR i=0 TO 200 STEP 0.1 450 LET j=PI*2*i/200 460 LET x3=f*COS(j)+x2 470 LET y3=f*SIN(j)+y2 480 PLOT POINTS: X3,Y3 490 NEXT i 500 FOR i=0 TO 200 STEP a 510 LET j=PI*2*i/200 520 LET x3=f*COS(j)+x2 530 LET y3=f*SIN(j)+y2 540 FOR k=0 TO 200 STEP 0.1 550 LET l=PI*2*k/200 560 LET x4=f*COS(l)+x3 570 LET y4=f*SIN(l)+y3 580 PLOT POINTS: X4,Y4 590 NEXT k 600 NEXT i 700 NEXT g 730 NEXT d 800 NEXT b END
・Wｱﾝﾁﾛｰﾘﾝｸﾞﾐﾂｳﾛｺ ｱｰｷﾃｸﾁｬｰ渦巻き ﾌﾄﾏﾆ星形Wﾐﾂｳﾛｺ2段 ﾌﾟﾛｸﾞﾗﾑ for 十進BASICｼｽﾃﾑ ※9050エラーで動かない場合は、PC再起動後、十進BASICｼｽﾃﾑのみを立ち上げ、 他のアプリやネットブラウザ等は立ち上げず実行してください。 また、パソコンによっては実行できない場合もありますので、 ご了承ください。
PICTURE shikaku3 REM ひふみ文字渦巻き(反時計回り) LET kaiten=0 FOR I=360 TO 719 STEP 45 LET F=I/1.35 LET LX=F*COS(I) LET LY=F*SIN(I) READ C$ CALL futomani1(C$,LX,LY,kaiten) NEXT I
FOR I=720 TO 1079 STEP 22.5 LET F=I/1.35 LET LX=F*COS(I) LET LY=F*SIN(I) READ C$ CALL futomani1(C$,LX,LY,kaiten) NEXT I
FOR I=1080 TO 1439 STEP 15 LET F=I/1.35 LET LX=F*COS(I) LET LY=F*SIN(I) READ C$ CALL futomani1(C$,LX,LY,kaiten) NEXT I END PICTURE
PICTURE shikaku5 LET kaiten=-90 REM いろは文字渦巻き(時計回り) FOR I=360 TO 719 STEP 45 LET F=I/1.35 LET LX=F*SIN(I) LET LY=F*COS(I) READ C$ CALL futomani1(C$,LX,LY,kaiten) NEXT I
FOR I=720 TO 1079 STEP 22.5 LET F=I/1.35 LET LX=F*SIN(I) LET LY=F*COS(I) READ C$ CALL futomani1(C$,LX,LY,kaiten) NEXT I
FOR I=1080 TO 1439 STEP 15 LET F=I/1.35 LET LX=F*SIN(I) LET LY=F*COS(I) READ C$ CALL futomani1(C$,LX,LY,kaiten) NEXT I END PICTURE
PICTURE shikaku10 REM 中心にひふみ三角 DRAW shikaku3 DRAW CIRCLE WITH SCALE(1170) PLOT LINES: 2026,-1170;-2026,-1170 PLOT LINES: 2026,-1170;0,2339 PLOT LINES: -2026,-1170;0,2339 END PICTURE
PICTURE shikaku12 REM ひふみの逆三角化/底辺をY軸0 DRAW shikaku10 WITH ROTATE(180)*SHIFT(0,-1170) END PICTURE
PICTURE shikaku15 REM 中心にいろは三角 DRAW shikaku5 WITH ROTATE(90) DRAW CIRCLE WITH SCALE(1170) PLOT LINES: 2026,-1170;-2026,-1170 PLOT LINES: 2026,-1170;0,2339 PLOT LINES: -2026,-1170;0,2339 END PICTURE
PICTURE shikaku17 REM いろはの底辺をY軸0 DRAW shikaku15 WITH ROTATE(0)*SHIFT(0,1170) END PICTURE
SET BITMAP SIZE 14200,14200 SET WINDOW -7100,7100,-7100,7100 OPTION ANGLE DEGREES SET POINT STYLE 1 SET LINE COLOR 1 SET LINE WIDTH 1
DRAW shikaku17 WITH SHIFT(0,3509)
DRAW shikaku12 WITH SHIFT(0,3509) RESTORE DRAW shikaku17 WITH SHIFT(2026,0) DRAW shikaku12 WITH SHIFT(4052,3509) RESTORE DRAW shikaku17 WITH SHIFT(-2026,0) DRAW shikaku12 WITH SHIFT(-4052,3509) RESTORE
DRAW shikaku17 WITH SHIFT(0,-3509) DRAW shikaku12 WITH SHIFT(2026,0) RESTORE DRAW shikaku17 WITH SHIFT(4052,-3509) DRAW shikaku12 WITH SHIFT(-2026,0) RESTORE DRAW shikaku17 WITH SHIFT(-4052,-3509)
DRAW shikaku12 WITH SHIFT(0,-3509)
REM DATA文の文字順 REM いろはにほへとち REM りぬるをわかよた REM れそつねならむう REM ゐ(yi)のおくやまけふ REM こえてあさきゆめ REM みしゑ(ye)ひもせすん(←代用wu)
DATA "ｲ","ﾛ","ﾊ","ﾆ","ﾎ","ﾍ","ﾄ","ﾁ" DATA "ﾘ","ﾇ","ﾙ","ｦ","ﾜ","ｶ","ﾖ","ﾀ" DATA "ﾚ","ｿ","ﾂ","ﾈ","ﾅ","ﾗ","ﾑ","ｳ" DATA "ｧ","ﾉ","ｵ","ｸ","ﾔ","ﾏ","ｹ","ﾌ" DATA "ｺ","ｴ","ﾃ","ｱ","ｻ","ｷ","ﾕ","ﾒ" DATA "ﾐ","ｼ","ｫ","ﾋ","ﾓ","ｾ","ｽ","ｩ"
REM DATA文の文字順 REM ひふみよいむなや REM こともちろらねし REM きるゆゐ(yi)つわぬそ REM をたはくめかうお REM ゑ(ye)にさりへてのま REM すあせえほれけん(←代用wu)
DATA "ﾋ","ﾌ","ﾐ","ﾖ","ｲ","ﾑ","ﾅ","ﾔ" DATA "ｺ","ﾄ","ﾓ","ﾁ","ﾛ","ﾗ","ﾈ","ｼ" DATA "ｷ","ﾙ","ﾕ","ｧ","ﾂ","ﾜ","ﾇ","ｿ" DATA "ｦ","ﾀ","ﾊ","ｸ","ﾒ","ｶ","ｳ","ｵ" DATA "ｫ","ﾆ","ｻ","ﾘ","ﾍ","ﾃ","ﾉ","ﾏ" DATA "ｽ","ｱ","ｾ","ｴ","ﾎ","ﾚ","ｹ","ｩ"
END
EXTERNAL SUB futomani1(C$,LX,LY,kaiten) OPTION ANGLE DEGREES
DIM X(5),Y(5)
PICTURE shikaku30 SET TEXT FONT "TCM Hotsuma Character Large" ,60 SET TEXT ANGLE E PLOT TEXT,AT 0,A:C$ END PICTURE
PICTURE shikaku32 SET TEXT FONT "TCM Hotsuma Character Large" ,13 READ B$ SET TEXT ANGLE E PLOT TEXT,AT 0,A:B$ END PICTURE
PICTURE shikaku33 LET F=0/150 LET XX=F*COS(0) LET YY=F*SIN(0) FOR I=2 TO 1080 STEP 2 LET F=I/150 LET XX2=F*COS(I) LET YY2=F*SIN(I) PLOT LINES: XX,YY;XX2,YY2 LET XX=XX2 LET YY=YY2 NEXT I END PICTURE
PICTURE shikaku34 LET F=0/150 LET XX=F*SIN(0) LET YY=F*COS(0) FOR I=2 TO 1080 STEP 2 LET F=I/150 LET XX2=F*SIN(I) LET YY2=F*COS(I) PLOT LINES: XX,YY;XX2,YY2 LET XX=XX2 LET YY=YY2 NEXT I END PICTURE
PICTURE shikaku40 FOR I=42 TO 102 STEP 15 DRAW CIRCLE WITH SCALE(I) NEXT I
FOR I=0 TO 360 STEP 45 FOR J=1 TO 5 STEP 1 LET K=J-1 LET D=42+15*K LET X(J)=D*COS(I) LET Y(J)=D*SIN(I) NEXT J PLOT LINES: X(2),Y(2);X(5),Y(5) NEXT I
FOR I=22.5 TO 360 STEP 45 FOR J=1 TO 5 STEP 1 LET K=J-1 LET D=42+15*K LET X(J)=D*COS(I) LET Y(J)=D*SIN(I) NEXT J PLOT LINES: X(1),Y(1);X(2),Y(2) PLOT LINES: X(3),Y(3);X(5),Y(5) NEXT I
SET TEXT JUSTIFY "center" , "bottom" LET A=41 LET E=0 FOR I=0 TO 7 LET C=-I*360/8 DRAW shikaku32 WITH ROTATE(C) NEXT I
SET TEXT JUSTIFY "center" , "top" LET A=54 LET E=180 FOR I=0 TO 7 LET C=-I*360/8-22.5 DRAW shikaku32 WITH ROTATE(C) NEXT I
SET TEXT JUSTIFY "center" , "top" LET A=69 LET E=180 FOR I=0 TO 15 LET C=-I*360/16-11.25 DRAW shikaku32 WITH ROTATE(C) NEXT I
SET TEXT JUSTIFY "center" , "top" LET A=84 LET E=180 FOR I=0 TO 15 LET C=-I*360/16-11.25 DRAW shikaku32 WITH ROTATE(C) NEXT I
SET TEXT JUSTIFY "center" , "half" LET A=0 LET E=0 DRAW shikaku30 WITH SHIFT(0,0)
END PICTURE
SET POINT STYLE 1 SET LINE COLOR 1 SET LINE WIDTH 1
DRAW shikaku40 WITH ROTATE(kaiten)*SHIFT(LX,LY) RESTORE
DATA "ﾄ","ﾋ","ｶ","ﾒ","ｫ","ﾎ","ﾀ","ﾐ" DATA "ｲ","ﾓ","ｼ","ﾌ","ｦ","ｱ","ﾍ","ｽ" DATA "ｷ","ﾁ","ｺ","ｵ","ｧ","ﾅ","ﾇ","ﾑ","ﾖ","ｿ","ﾔ","ﾊ","ｴ","ﾈ","ﾕ","ﾂ" DATA "ﾆ","ﾘ","ｹ","ﾚ","ｻ","ﾜ","ｳ","ｸ","ﾛ","ﾉ","ﾏ","ﾗ","ﾃ","ｾ","ｩ","ﾙ"
・Wｱﾝﾁﾛｰﾘﾝｸﾞﾐﾂｳﾛｺ ｱｰｷﾃｸﾁｬｰ渦巻き ﾌﾄﾏﾆ星形Wﾐﾂｳﾛｺ2段 ﾌﾟﾛｸﾞﾗﾑ for 十進BASICｼｽﾃﾑ ※9050エラーで動かない場合は、PC再起動後、十進BASICｼｽﾃﾑのみを立ち上げ、 他のアプリやネットブラウザ等は立ち上げず実行してください。 また、パソコンによっては実行できない場合もありますので、 ご了承ください。
PICTURE shikaku3 REM ひふみ文字渦巻き(反時計回り) FOR I=360 TO 719 STEP 45 LET F=I/1.35 LET LX=F*COS(I) LET LY=F*SIN(I) READ C$ CALL futomani1(C$,LX,LY) NEXT I
FOR I=720 TO 1079 STEP 22.5 LET F=I/1.35 LET LX=F*COS(I) LET LY=F*SIN(I) READ C$ CALL futomani1(C$,LX,LY) NEXT I
FOR I=1080 TO 1439 STEP 15 LET F=I/1.35 LET LX=F*COS(I) LET LY=F*SIN(I) READ C$ CALL futomani1(C$,LX,LY) NEXT I END PICTURE
PICTURE shikaku5 REM いろは文字渦巻き(時計回り) FOR I=360 TO 719 STEP 45 LET F=I/1.35 LET LX=F*SIN(I) LET LY=F*COS(I) READ C$ CALL futomani1(C$,LX,LY) NEXT I
FOR I=720 TO 1079 STEP 22.5 LET F=I/1.35 LET LX=F*SIN(I) LET LY=F*COS(I) READ C$ CALL futomani1(C$,LX,LY) NEXT I
FOR I=1080 TO 1439 STEP 15 LET F=I/1.35 LET LX=F*SIN(I) LET LY=F*COS(I) READ C$ CALL futomani1(C$,LX,LY) NEXT I END PICTURE
PICTURE shikaku10 REM 中心にひふみ三角 DRAW shikaku3 DRAW CIRCLE WITH SCALE(1170) PLOT LINES: 2026,-1170;-2026,-1170 PLOT LINES: 2026,-1170;0,2339 PLOT LINES: -2026,-1170;0,2339 END PICTURE
PICTURE shikaku12 REM ひふみの逆三角化/底辺をY軸0 DRAW shikaku10 WITH ROTATE(180)*SHIFT(0,-1170) END PICTURE
PICTURE shikaku15 REM 中心にいろは三角 DRAW shikaku5 DRAW CIRCLE WITH SCALE(1170) PLOT LINES: 2026,-1170;-2026,-1170 PLOT LINES: 2026,-1170;0,2339 PLOT LINES: -2026,-1170;0,2339 END PICTURE
PICTURE shikaku17 REM いろはの底辺をY軸0 DRAW shikaku15 WITH ROTATE(0)*SHIFT(0,1170) END PICTURE
SET BITMAP SIZE 14200,14200 SET WINDOW -7100,7100,-7100,7100 OPTION ANGLE DEGREES SET POINT STYLE 1 SET LINE COLOR 1 SET LINE WIDTH 1
DRAW shikaku17 WITH SHIFT(0,3509)
DRAW shikaku12 WITH SHIFT(0,3509) RESTORE DRAW shikaku17 WITH SHIFT(2026,0) DRAW shikaku12 WITH SHIFT(4052,3509) RESTORE DRAW shikaku17 WITH SHIFT(-2026,0) DRAW shikaku12 WITH SHIFT(-4052,3509) RESTORE
DRAW shikaku17 WITH SHIFT(0,-3509) DRAW shikaku12 WITH SHIFT(2026,0) RESTORE DRAW shikaku17 WITH SHIFT(4052,-3509) DRAW shikaku12 WITH SHIFT(-2026,0) RESTORE DRAW shikaku17 WITH SHIFT(-4052,-3509)
DRAW shikaku12 WITH SHIFT(0,-3509)
REM DATA文の文字順 REM いろはにほへとち REM りぬるをわかよた REM れそつねならむう REM ゐ(yi)のおくやまけふ REM こえてあさきゆめ REM みしゑ(ye)ひもせすん(←代用wu)
DATA "ｲ","ﾛ","ﾊ","ﾆ","ﾎ","ﾍ","ﾄ","ﾁ" DATA "ﾘ","ﾇ","ﾙ","ｦ","ﾜ","ｶ","ﾖ","ﾀ" DATA "ﾚ","ｿ","ﾂ","ﾈ","ﾅ","ﾗ","ﾑ","ｳ" DATA "ｧ","ﾉ","ｵ","ｸ","ﾔ","ﾏ","ｹ","ﾌ" DATA "ｺ","ｴ","ﾃ","ｱ","ｻ","ｷ","ﾕ","ﾒ" DATA "ﾐ","ｼ","ｫ","ﾋ","ﾓ","ｾ","ｽ","ｩ"
REM DATA文の文字順 REM ひふみよいむなや REM こともちろらねし REM きるゆゐ(yi)つわぬそ REM をたはくめかうお REM ゑ(ye)にさりへてのま REM すあせえほれけん(←代用wu)
DATA "ﾋ","ﾌ","ﾐ","ﾖ","ｲ","ﾑ","ﾅ","ﾔ" DATA "ｺ","ﾄ","ﾓ","ﾁ","ﾛ","ﾗ","ﾈ","ｼ" DATA "ｷ","ﾙ","ﾕ","ｧ","ﾂ","ﾜ","ﾇ","ｿ" DATA "ｦ","ﾀ","ﾊ","ｸ","ﾒ","ｶ","ｳ","ｵ" DATA "ｫ","ﾆ","ｻ","ﾘ","ﾍ","ﾃ","ﾉ","ﾏ" DATA "ｽ","ｱ","ｾ","ｴ","ﾎ","ﾚ","ｹ","ｩ"
END
EXTERNAL SUB futomani1(C$,LX,LY) OPTION ANGLE DEGREES
DIM X(5),Y(5)
PICTURE shikaku30 SET TEXT FONT "TCM Hotsuma Character Large" ,60 SET TEXT ANGLE E PLOT TEXT,AT 0,A:C$ END PICTURE
PICTURE shikaku32 SET TEXT FONT "TCM Hotsuma Character Large" ,13 READ B$ SET TEXT ANGLE E PLOT TEXT,AT 0,A:B$ END PICTURE
PICTURE shikaku33 LET F=0/150 LET XX=F*COS(0) LET YY=F*SIN(0) FOR I=2 TO 1080 STEP 2 LET F=I/150 LET XX2=F*COS(I) LET YY2=F*SIN(I) PLOT LINES: XX,YY;XX2,YY2 LET XX=XX2 LET YY=YY2 NEXT I END PICTURE
PICTURE shikaku34 LET F=0/150 LET XX=F*SIN(0) LET YY=F*COS(0) FOR I=2 TO 1080 STEP 2 LET F=I/150 LET XX2=F*SIN(I) LET YY2=F*COS(I) PLOT LINES: XX,YY;XX2,YY2 LET XX=XX2 LET YY=YY2 NEXT I END PICTURE
PICTURE shikaku40 FOR I=42 TO 102 STEP 15 DRAW CIRCLE WITH SCALE(I) NEXT I
FOR I=0 TO 360 STEP 45 FOR J=1 TO 5 STEP 1 LET K=J-1 LET D=42+15*K LET X(J)=D*COS(I) LET Y(J)=D*SIN(I) NEXT J PLOT LINES: X(2),Y(2);X(5),Y(5) NEXT I
FOR I=22.5 TO 360 STEP 45 FOR J=1 TO 5 STEP 1 LET K=J-1 LET D=42+15*K LET X(J)=D*COS(I) LET Y(J)=D*SIN(I) NEXT J PLOT LINES: X(1),Y(1);X(2),Y(2) PLOT LINES: X(3),Y(3);X(5),Y(5) NEXT I
SET TEXT JUSTIFY "center" , "bottom" LET A=41 LET E=0 FOR I=0 TO 7 LET C=-I*360/8 DRAW shikaku32 WITH ROTATE(C) NEXT I
SET TEXT JUSTIFY "center" , "top" LET A=54 LET E=180 FOR I=0 TO 7 LET C=-I*360/8-22.5 DRAW shikaku32 WITH ROTATE(C) NEXT I
SET TEXT JUSTIFY "center" , "top" LET A=69 LET E=180 FOR I=0 TO 15 LET C=-I*360/16-11.25 DRAW shikaku32 WITH ROTATE(C) NEXT I
SET TEXT JUSTIFY "center" , "top" LET A=84 LET E=180 FOR I=0 TO 15 LET C=-I*360/16-11.25 DRAW shikaku32 WITH ROTATE(C) NEXT I
SET TEXT JUSTIFY "center" , "half" LET A=0 LET E=0 DRAW shikaku30 WITH SHIFT(0,0)
END PICTURE
SET POINT STYLE 1 SET LINE COLOR 1 SET LINE WIDTH 1
DRAW shikaku40 WITH SHIFT(LX,LY) RESTORE
DATA "ﾄ","ﾋ","ｶ","ﾒ","ｫ","ﾎ","ﾀ","ﾐ" DATA "ｲ","ﾓ","ｼ","ﾌ","ｦ","ｱ","ﾍ","ｽ" DATA "ｷ","ﾁ","ｺ","ｵ","ｧ","ﾅ","ﾇ","ﾑ","ﾖ","ｿ","ﾔ","ﾊ","ｴ","ﾈ","ﾕ","ﾂ" DATA "ﾆ","ﾘ","ｹ","ﾚ","ｻ","ﾜ","ｳ","ｸ","ﾛ","ﾉ","ﾏ","ﾗ","ﾃ","ｾ","ｩ","ﾙ"
SET BITMAP SIZE 16900,16900 SET WINDOW -8450,8450,-8450,8450 SET POINT STYLE 1 SET LINE COLOR 1 SET LINE WIDTH 1 OPTION ANGLE DEGREES
PICTURE shikaku2s REM 他のフォント使用時はSET TEXT FONT文の所を変えてください、 REM そして、フォントの大きさと"ん"の字があるかに注意してください。 REM "ん"の字がない場合、わ行の"う(wu)"を代用します。 REM SET TEXT FONT "フォントのファイル名" ,フォントの大きさの値
REM SET TEXT FONT "TCM Daiichi Shoji Character" ,16 REM SET TEXT FONT "TCM Kuiboku Character" ,14 SET TEXT FONT "TCM Hotsuma Character Large" ,14 READ B$ SET TEXT ANGLE E PLOT TEXT,AT 0,A:B$ END PICTURE
PICTURE shikaku3 REM ひふみ文字渦巻き(反時計回り) FOR I=360 TO 719 STEP 45 LET F=I/18 LET XX=F*COS(I) LET YY=F*SIN(I) DRAW shikaku2s WITH SHIFT(XX,YY) NEXT I
FOR I=720 TO 1079 STEP 22.5 LET F=I/18 LET XX=F*COS(I) LET YY=F*SIN(I) DRAW shikaku2s WITH SHIFT(XX,YY) NEXT I
FOR I=1080 TO 1439 STEP 15 LET F=I/18 LET XX=F*COS(I) LET YY=F*SIN(I) DRAW shikaku2s WITH SHIFT(XX,YY) NEXT I END PICTURE
PICTURE shikaku13 REM いろは文字渦巻き(時計回り) FOR I=360 TO 719 STEP 45 LET F=I/18 LET XX=F*SIN(I) LET YY=F*COS(I) DRAW shikaku2s WITH SHIFT(XX,YY) NEXT I
FOR I=720 TO 1079 STEP 22.5 LET F=I/18 LET XX=F*SIN(I) LET YY=F*COS(I) DRAW shikaku2s WITH SHIFT(XX,YY) NEXT I
FOR I=1080 TO 1439 STEP 15 LET F=I/18 LET XX=F*SIN(I) LET YY=F*COS(I) DRAW shikaku2s WITH SHIFT(XX,YY) NEXT I END PICTURE
LET XX=D*COS(0) LET YY=D*SIN(0) FOR I=0 TO 360 STEP 0.2 LET XX2=D*COS(I) LET YY2=D*SIN(I) PLOT LINES: XX,YY;XX2,YY2 LET XX=XX2 LET YY=yy2 NEXT I END PICTURE
PICTURE shikaku60 REM ひふみ小三角完成(下向き/反時計回り) LET A=0 LET E=-135-180 DRAW shikaku3 WITH ROTATE(135) DRAW shikaku52 END PICTURE
PICTURE shikaku62 REM いろは小三角完成(上向き/時計回り) LET A=0 LET E=-135 DRAW shikaku13 WITH ROTATE(135) DRAW shikaku52 WITH ROTATE(180) END PICTURE
PICTURE shikaku64 REM ﾀﾞｲﾔﾓﾝﾄﾞ(Wﾐﾂｳﾛｺ 上下8三角) DRAW shikaku60 WITH SHIFT(0,176) DRAW shikaku62 WITH SHIFT(0,352) RESTORE DRAW shikaku60 WITH SHIFT(153,-88) DRAW shikaku62 WITH SHIFT(153,88) RESTORE DRAW shikaku60 WITH SHIFT(-153,-88) DRAW shikaku62 WITH SHIFT(-153,88) RESTORE DRAW shikaku60 WITH SHIFT(0,-352) DRAW shikaku62 WITH SHIFT(0,-176) RESTORE END PICTURE
PICTURE shikaku66 REM 上ﾀﾞｲﾔﾓﾝﾄﾞ(Wﾐﾂｳﾛｺ 上4三角) DRAW shikaku60 WITH SHIFT(0,176) DRAW shikaku62 WITH SHIFT(0,352) RESTORE DRAW shikaku62 WITH SHIFT(153,88) DRAW shikaku62 WITH SHIFT(-153,88) RESTORE END PICTURE
PICTURE shikaku68 REM 下ﾀﾞｲﾔﾓﾝﾄﾞ(Wﾐﾂｳﾛｺ 下4三角) DRAW shikaku60 WITH SHIFT(-153,-88) DRAW shikaku60 WITH SHIFT(153,-88) RESTORE DRAW shikaku60 WITH SHIFT(0,-352) DRAW shikaku62 WITH SHIFT(0,-176) RESTORE END PICTURE
PICTURE shikaku70 FOR J=306 TO 2142 STEP 612 !3回 DRAW shikaku68 WITH SHIFT(J,-4224) !下三角のみ DRAW shikaku68 WITH SHIFT(-J,-4224) !下三角のみ NEXT J
DRAW shikaku64 WITH SHIFT(0,-4752) FOR J=612 TO 1836 STEP 612 !3回 その前に真ん中に1個書いているので! DRAW shikaku64 WITH SHIFT(J,-4752) DRAW shikaku64 WITH SHIFT(-J,-4752) NEXT J
FOR J=306 TO 1530 STEP 612 !2回 DRAW shikaku64 WITH SHIFT(J,-5280) DRAW shikaku64 WITH SHIFT(-J,-5280) NEXT J
DRAW shikaku64 WITH SHIFT(0,-5808) FOR J=612 TO 1224 STEP 612 !2回 その前に真ん中に1個書いているので! DRAW shikaku64 WITH SHIFT(J,-5808) DRAW shikaku64 WITH SHIFT(-J,-5808) NEXT J
FOR J=306 TO 918 STEP 612 !1回 DRAW shikaku64 WITH SHIFT(J,-6336) DRAW shikaku64 WITH SHIFT(-J,-6336) NEXT J
DRAW shikaku64 WITH SHIFT(0,-6864) DRAW shikaku64 WITH SHIFT(612,-6864) DRAW shikaku64 WITH SHIFT(-612,-6864)
DRAW shikaku64 WITH SHIFT(306,-7392) DRAW shikaku64 WITH SHIFT(-306,-7392)
DRAW shikaku64 WITH SHIFT(0,-7920) END PICTURE
PICTURE shikaku72 FOR J=306 TO 2142 STEP 612 !3回 DRAW shikaku66 WITH SHIFT(J,4224) !上三角のみ DRAW shikaku66 WITH SHIFT(-J,4224) !上三角のみ NEXT J
DRAW shikaku64 WITH SHIFT(0,4752) FOR J=612 TO 1836 STEP 612 !3回 その前に真ん中に1個書いているので! DRAW shikaku64 WITH SHIFT(J,4752) DRAW shikaku64 WITH SHIFT(-J,4752) NEXT J
FOR J=306 TO 1530 STEP 612 !2回 DRAW shikaku64 WITH SHIFT(J,5280) DRAW shikaku64 WITH SHIFT(-J,5280) NEXT J
DRAW shikaku64 WITH SHIFT(0,5808) FOR J=612 TO 1224 STEP 612 !2回 その前に真ん中に1個書いているので! DRAW shikaku64 WITH SHIFT(J,5808) DRAW shikaku64 WITH SHIFT(-J,5808) NEXT J
FOR J=306 TO 918 STEP 612 !1回 DRAW shikaku64 WITH SHIFT(J,6336) DRAW shikaku64 WITH SHIFT(-J,6336) NEXT J
DRAW shikaku64 WITH SHIFT(0,6864) DRAW shikaku64 WITH SHIFT(612,6864) DRAW shikaku64 WITH SHIFT(-612,6864)
DRAW shikaku64 WITH SHIFT(306,7392) DRAW shikaku64 WITH SHIFT(-306,7392)
DRAW shikaku64 WITH SHIFT(0,7920) END PICTURE
SET POINT STYLE 1 SET LINE COLOR 1 REM SET TEXT JUSTIFY文↓を追加してみました SET TEXT JUSTIFY "center" , "half"
REM DRAW shikaku66 WITH SHIFT(-1500,-1500) REM DRAW shikaku68 WITH SHIFT(-1500,-1500)
REM Y軸正軸側
FOR J=306 TO 4590 STEP 612 !7回 DRAW shikaku64 WITH SHIFT(J,0) DRAW shikaku64 WITH SHIFT(-J,0) NEXT J
DRAW shikaku64 WITH SHIFT(0,528) FOR J=612 TO 4284 STEP 612 !7回 その前に真ん中に1個書いているので! DRAW shikaku64 WITH SHIFT(J,528) DRAW shikaku64 WITH SHIFT(-J,528) NEXT J
FOR J=306 TO 3978 STEP 612 !6回 DRAW shikaku64 WITH SHIFT(J,1056) DRAW shikaku64 WITH SHIFT(-J,1056) NEXT J
DRAW shikaku64 WITH SHIFT(0,1584) FOR J=612 TO 3672 STEP 612 !6回 その前に真ん中に1個書いているので! DRAW shikaku64 WITH SHIFT(J,1584) DRAW shikaku64 WITH SHIFT(-J,1584) NEXT J
FOR J=306 TO 3366 STEP 612 !5回 DRAW shikaku64 WITH SHIFT(J,2112) DRAW shikaku64 WITH SHIFT(-J,2112) NEXT J
DRAW shikaku64 WITH SHIFT(0,2640) FOR J=612 TO 3060 STEP 612 !5回 その前に真ん中に1個書いているので! DRAW shikaku64 WITH SHIFT(J,2640) DRAW shikaku64 WITH SHIFT(-J,2640) NEXT J
FOR J=306 TO 2754 STEP 612 !4回 DRAW shikaku64 WITH SHIFT(J,3168) DRAW shikaku64 WITH SHIFT(-J,3168) NEXT J
DRAW shikaku64 WITH SHIFT(0,3696) FOR J=612 TO 2448 STEP 612 !4回 その前に真ん中に1個書いているので! DRAW shikaku64 WITH SHIFT(J,3696) DRAW shikaku64 WITH SHIFT(-J,3696) NEXT J
FOR J=306 TO 2142 STEP 612 !3回 DRAW shikaku64 WITH SHIFT(J,4224) DRAW shikaku64 WITH SHIFT(-J,4224) NEXT J
DRAW shikaku64 WITH SHIFT(0,4752) FOR J=612 TO 1836 STEP 612 !3回 その前に真ん中に1個書いているので! DRAW shikaku64 WITH SHIFT(J,4752) DRAW shikaku64 WITH SHIFT(-J,4752) NEXT J
FOR J=306 TO 1530 STEP 612 !2回 DRAW shikaku64 WITH SHIFT(J,5280) DRAW shikaku64 WITH SHIFT(-J,5280) NEXT J
DRAW shikaku64 WITH SHIFT(0,5808) FOR J=612 TO 1224 STEP 612 !2回 その前に真ん中に1個書いているので! DRAW shikaku64 WITH SHIFT(J,5808) DRAW shikaku64 WITH SHIFT(-J,5808) NEXT J
FOR J=306 TO 918 STEP 612 !1回 DRAW shikaku64 WITH SHIFT(J,6336) DRAW shikaku64 WITH SHIFT(-J,6336) NEXT J
DRAW shikaku64 WITH SHIFT(0,6864) DRAW shikaku64 WITH SHIFT(612,6864) DRAW shikaku64 WITH SHIFT(-612,6864)
DRAW shikaku64 WITH SHIFT(306,7392) DRAW shikaku64 WITH SHIFT(-306,7392)
DRAW shikaku64 WITH SHIFT(0,7920)
REM Y軸負軸側
DRAW shikaku64 WITH SHIFT(0,-528) FOR J=612 TO 4284 STEP 612 !7回 その前に真ん中に1個書いているので! DRAW shikaku64 WITH SHIFT(J,-528) DRAW shikaku64 WITH SHIFT(-J,-528) NEXT J
FOR J=306 TO 3978 STEP 612 !6回 DRAW shikaku64 WITH SHIFT(J,-1056) DRAW shikaku64 WITH SHIFT(-J,-1056) NEXT J
DRAW shikaku64 WITH SHIFT(0,-1584) FOR J=612 TO 3672 STEP 612 !6回 その前に真ん中に1個書いているので! DRAW shikaku64 WITH SHIFT(J,-1584) DRAW shikaku64 WITH SHIFT(-J,-1584) NEXT J
FOR J=306 TO 3366 STEP 612 !5回 DRAW shikaku64 WITH SHIFT(J,-2112) DRAW shikaku64 WITH SHIFT(-J,-2112) NEXT J
DRAW shikaku64 WITH SHIFT(0,-2640) FOR J=612 TO 3060 STEP 612 !5回 その前に真ん中に1個書いているので! DRAW shikaku64 WITH SHIFT(J,-2640) DRAW shikaku64 WITH SHIFT(-J,-2640) NEXT J
FOR J=306 TO 2754 STEP 612 !4回 DRAW shikaku64 WITH SHIFT(J,-3168) DRAW shikaku64 WITH SHIFT(-J,-3168) NEXT J
DRAW shikaku64 WITH SHIFT(0,-3696) FOR J=612 TO 2448 STEP 612 !4回 その前に真ん中に1個書いているので! DRAW shikaku64 WITH SHIFT(J,-3696) DRAW shikaku64 WITH SHIFT(-J,-3696) NEXT J
FOR J=306 TO 2142 STEP 612 !3回 DRAW shikaku64 WITH SHIFT(J,-4224) DRAW shikaku64 WITH SHIFT(-J,-4224) NEXT J
DRAW shikaku64 WITH SHIFT(0,-4752) FOR J=612 TO 1836 STEP 612 !3回 その前に真ん中に1個書いているので! DRAW shikaku64 WITH SHIFT(J,-4752) DRAW shikaku64 WITH SHIFT(-J,-4752) NEXT J
FOR J=306 TO 1530 STEP 612 !2回 DRAW shikaku64 WITH SHIFT(J,-5280) DRAW shikaku64 WITH SHIFT(-J,-5280) NEXT J
DRAW shikaku64 WITH SHIFT(0,-5808) FOR J=612 TO 1224 STEP 612 !2回 その前に真ん中に1個書いているので! DRAW shikaku64 WITH SHIFT(J,-5808) DRAW shikaku64 WITH SHIFT(-J,-5808) NEXT J
FOR J=306 TO 918 STEP 612 !1回 DRAW shikaku64 WITH SHIFT(J,-6336) DRAW shikaku64 WITH SHIFT(-J,-6336) NEXT J
DRAW shikaku64 WITH SHIFT(0,-6864) DRAW shikaku64 WITH SHIFT(612,-6864) DRAW shikaku64 WITH SHIFT(-612,-6864)
DRAW shikaku64 WITH SHIFT(306,-7392) DRAW shikaku64 WITH SHIFT(-306,-7392)
DRAW shikaku64 WITH SHIFT(0,-7920)
REM Y軸正軸側のダイヤモンドの左右に三角!! DRAW shikaku70 WITH SHIFT(4896,8448) DRAW shikaku70 WITH SHIFT(-4896,8448)
REM Y軸負軸側のダイヤモンドの左右に三角!! DRAW shikaku72 WITH SHIFT(4896,-8448) DRAW shikaku72 WITH SHIFT(-4896,-8448)
REM DATA文の文字順 REM ひふみよいむなや REM こともちろらねし REM きるゆゐ(yi)つわぬそ REM をたはくめかうお REM ゑ(ye)にさりへてのま REM すあせえほれけん(←代用wu)
DATA "ﾋ","ﾌ","ﾐ","ﾖ","ｲ","ﾑ","ﾅ","ﾔ" DATA "ｺ","ﾄ","ﾓ","ﾁ","ﾛ","ﾗ","ﾈ","ｼ" DATA "ｷ","ﾙ","ﾕ","ｧ","ﾂ","ﾜ","ﾇ","ｿ" DATA "ｦ","ﾀ","ﾊ","ｸ","ﾒ","ｶ","ｳ","ｵ" DATA "ｫ","ﾆ","ｻ","ﾘ","ﾍ","ﾃ","ﾉ","ﾏ" DATA "ｽ","ｱ","ｾ","ｴ","ﾎ","ﾚ","ｹ","ｩ"
REM DATA文の文字順 REM いろはにほへとち REM りぬるをわかよた REM れそつねならむう REM ゐ(yi)のおくやまけふ REM こえてあさきゆめ REM みしゑ(ye)ひもせすん(←代用wu)
DATA "ｲ","ﾛ","ﾊ","ﾆ","ﾎ","ﾍ","ﾄ","ﾁ" DATA "ﾘ","ﾇ","ﾙ","ｦ","ﾜ","ｶ","ﾖ","ﾀ" DATA "ﾚ","ｿ","ﾂ","ﾈ","ﾅ","ﾗ","ﾑ","ｳ" DATA "ｧ","ﾉ","ｵ","ｸ","ﾔ","ﾏ","ｹ","ﾌ" DATA "ｺ","ｴ","ﾃ","ｱ","ｻ","ｷ","ﾕ","ﾒ" DATA "ﾐ","ｼ","ｫ","ﾋ","ﾓ","ｾ","ｽ","ｩ"
・Wｱﾝﾁﾛｰﾘﾝｸﾞﾐﾂｳﾛｺ ｱｰｷﾃｸﾁｬｰ渦巻き 超大容量Wﾐﾂｳﾛｺ34段 ﾌﾟﾛｸﾞﾗﾑ for 十進BASICｼｽﾃﾑ ※9050エラーで動かない場合は、PC再起動後、十進BASICｼｽﾃﾑのみを立ち上げ、 他のアプリやネットブラウザ等は立ち上げず実行してください。 また、パソコンによっては実行できない場合もありますので、 ご了承ください。
SET BITMAP SIZE 18000,18000 SET WINDOW -9000,9000,-9000,9000 SET POINT STYLE 1 SET LINE COLOR 1 SET LINE WIDTH 1 OPTION ANGLE DEGREES
PICTURE shikaku2s REM 他のフォント使用時はSET TEXT FONT文の所を変えてください、 REM そして、フォントの大きさと"ん"の字があるかに注意してください。 REM "ん"の字がない場合、わ行の"う(wu)"を代用します。 REM SET TEXT FONT "フォントのファイル名" ,フォントの大きさの値
REM SET TEXT FONT "TCM Daiichi Shoji Character" ,16 SET TEXT FONT "TCM Kuiboku Character" ,14 READ B$ SET TEXT ANGLE E PLOT TEXT,AT 0,A:B$ END PICTURE
PICTURE shikaku3 REM ひふみ文字渦巻き(反時計回り) FOR I=360 TO 719 STEP 45 LET F=I/18 LET XX=F*COS(I) LET YY=F*SIN(I) DRAW shikaku2s WITH SHIFT(XX,YY) NEXT I
FOR I=720 TO 1079 STEP 22.5 LET F=I/18 LET XX=F*COS(I) LET YY=F*SIN(I) DRAW shikaku2s WITH SHIFT(XX,YY) NEXT I
FOR I=1080 TO 1439 STEP 15 LET F=I/18 LET XX=F*COS(I) LET YY=F*SIN(I) DRAW shikaku2s WITH SHIFT(XX,YY) NEXT I END PICTURE
PICTURE shikaku13 REM いろは文字渦巻き(時計回り) FOR I=360 TO 719 STEP 45 LET F=I/18 LET XX=F*SIN(I) LET YY=F*COS(I) DRAW shikaku2s WITH SHIFT(XX,YY) NEXT I
FOR I=720 TO 1079 STEP 22.5 LET F=I/18 LET XX=F*SIN(I) LET YY=F*COS(I) DRAW shikaku2s WITH SHIFT(XX,YY) NEXT I
FOR I=1080 TO 1439 STEP 15 LET F=I/18 LET XX=F*SIN(I) LET YY=F*COS(I) DRAW shikaku2s WITH SHIFT(XX,YY) NEXT I END PICTURE
LET XX=D*COS(0) LET YY=D*SIN(0) FOR I=0 TO 360 STEP 0.2 LET XX2=D*COS(I) LET YY2=D*SIN(I) PLOT LINES: XX,YY;XX2,YY2 LET XX=XX2 LET YY=yy2 NEXT I END PICTURE
PICTURE shikaku60 REM ひふみ小三角完成(下向き/反時計回り) LET A=0 LET E=-325 DRAW shikaku3 WITH ROTATE(145) DRAW shikaku52 END PICTURE
PICTURE shikaku62 REM いろは小三角完成(下向き/反時計回り) LET A=0 LET E=-125 DRAW shikaku13 WITH ROTATE(125) DRAW shikaku52 WITH ROTATE(180) END PICTURE
PICTURE shikaku64 REM ﾀﾞｲﾔﾓﾝﾄﾞ(Wﾐﾂｳﾛｺ 上下8三角) DRAW shikaku60 WITH SHIFT(0,176) DRAW shikaku62 WITH SHIFT(0,352) RESTORE DRAW shikaku60 WITH SHIFT(153,-88) DRAW shikaku62 WITH SHIFT(153,88) RESTORE DRAW shikaku60 WITH SHIFT(-153,-88) DRAW shikaku62 WITH SHIFT(-153,88) RESTORE DRAW shikaku60 WITH SHIFT(0,-352) DRAW shikaku62 WITH SHIFT(0,-176) RESTORE END PICTURE
PICTURE shikaku66 REM 上ﾀﾞｲﾔﾓﾝﾄﾞ(Wﾐﾂｳﾛｺ 上4三角) DRAW shikaku60 WITH SHIFT(0,176) DRAW shikaku62 WITH SHIFT(0,352) RESTORE DRAW shikaku62 WITH SHIFT(153,88) DRAW shikaku62 WITH SHIFT(-153,88) RESTORE END PICTURE
PICTURE shikaku68 REM 下ﾀﾞｲﾔﾓﾝﾄﾞ(Wﾐﾂｳﾛｺ 下4三角) DRAW shikaku60 WITH SHIFT(-153,-88) DRAW shikaku60 WITH SHIFT(153,-88) RESTORE DRAW shikaku60 WITH SHIFT(0,-352) DRAW shikaku62 WITH SHIFT(0,-176) RESTORE END PICTURE
SET POINT STYLE 1 SET LINE COLOR 1 REM SET TEXT JUSTIFY文↓を追加してみました SET TEXT JUSTIFY "center" , "half"
REM DRAW shikaku66 WITH SHIFT(-1500,-1500) REM DRAW shikaku68 WITH SHIFT(-1500,-1500)
REM Y軸正軸側
DRAW shikaku64 WITH SHIFT(0,0) FOR J=612 TO 4896 STEP 612 !8回 その前に真ん中に1個書いているので! DRAW shikaku64 WITH SHIFT(J,0) DRAW shikaku64 WITH SHIFT(-J,0) NEXT J
FOR J=306 TO 4590 STEP 612 !7回 DRAW shikaku64 WITH SHIFT(J,528) DRAW shikaku64 WITH SHIFT(-J,528) NEXT J
DRAW shikaku64 WITH SHIFT(0,1056) FOR J=612 TO 4284 STEP 612 !7回 その前に真ん中に1個書いているので! DRAW shikaku64 WITH SHIFT(J,1056) DRAW shikaku64 WITH SHIFT(-J,1056) NEXT J
FOR J=306 TO 3978 STEP 612 !6回 DRAW shikaku64 WITH SHIFT(J,1584) DRAW shikaku64 WITH SHIFT(-J,1584) NEXT J
DRAW shikaku64 WITH SHIFT(0,2112) FOR J=612 TO 3672 STEP 612 !6回 その前に真ん中に1個書いているので! DRAW shikaku64 WITH SHIFT(J,2112) DRAW shikaku64 WITH SHIFT(-J,2112) NEXT J
FOR J=306 TO 3366 STEP 612 !5回 DRAW shikaku64 WITH SHIFT(J,2640) DRAW shikaku64 WITH SHIFT(-J,2640) NEXT J
DRAW shikaku64 WITH SHIFT(0,3152) FOR J=612 TO 3060 STEP 612 !5回 その前に真ん中に1個書いているので! DRAW shikaku64 WITH SHIFT(J,3152) DRAW shikaku64 WITH SHIFT(-J,3152) NEXT J
FOR J=306 TO 2754 STEP 612 !4回 DRAW shikaku64 WITH SHIFT(J,3680) DRAW shikaku64 WITH SHIFT(-J,3680) NEXT J
DRAW shikaku64 WITH SHIFT(0,4208) FOR J=612 TO 2448 STEP 612 !4回 その前に真ん中に1個書いているので! DRAW shikaku64 WITH SHIFT(J,4208) DRAW shikaku64 WITH SHIFT(-J,4208) NEXT J
FOR J=306 TO 2142 STEP 612 !3回 DRAW shikaku64 WITH SHIFT(J,4736) DRAW shikaku64 WITH SHIFT(-J,4736) NEXT J
DRAW shikaku64 WITH SHIFT(0,5264) FOR J=612 TO 1836 STEP 612 !3回 その前に真ん中に1個書いているので! DRAW shikaku64 WITH SHIFT(J,5264) DRAW shikaku64 WITH SHIFT(-J,5264) NEXT J
FOR J=306 TO 1530 STEP 612 !2回 DRAW shikaku64 WITH SHIFT(J,5792) DRAW shikaku64 WITH SHIFT(-J,5792) NEXT J
DRAW shikaku64 WITH SHIFT(0,6320) FOR J=612 TO 1224 STEP 612 !2回 その前に真ん中に1個書いているので! DRAW shikaku64 WITH SHIFT(J,6320) DRAW shikaku64 WITH SHIFT(-J,6320) NEXT J
FOR J=306 TO 918 STEP 612 !1回 DRAW shikaku64 WITH SHIFT(J,6848) DRAW shikaku64 WITH SHIFT(-J,6848) NEXT J
DRAW shikaku64 WITH SHIFT(0,7376) DRAW shikaku64 WITH SHIFT(612,7376) DRAW shikaku64 WITH SHIFT(-612,7376)
DRAW shikaku64 WITH SHIFT(306,7904) DRAW shikaku64 WITH SHIFT(-306,7904)
DRAW shikaku64 WITH SHIFT(0,8432)
REM Y軸負軸側 FOR J=306 TO 4590 STEP 612 !7回 DRAW shikaku64 WITH SHIFT(J,-528) DRAW shikaku64 WITH SHIFT(-J,-528) NEXT J
DRAW shikaku64 WITH SHIFT(0,-1056) FOR J=612 TO 4284 STEP 612 !7回 その前に真ん中に1個書いているので! DRAW shikaku64 WITH SHIFT(J,-1056) DRAW shikaku64 WITH SHIFT(-J,-1056) NEXT J
FOR J=306 TO 3978 STEP 612 !6回 DRAW shikaku64 WITH SHIFT(J,-1584) DRAW shikaku64 WITH SHIFT(-J,-1584) NEXT J
DRAW shikaku64 WITH SHIFT(0,-2112) FOR J=612 TO 3672 STEP 612 !6回 その前に真ん中に1個書いているので! DRAW shikaku64 WITH SHIFT(J,-2112) DRAW shikaku64 WITH SHIFT(-J,-2112) NEXT J
FOR J=306 TO 3366 STEP 612 !5回 DRAW shikaku64 WITH SHIFT(J,-2640) DRAW shikaku64 WITH SHIFT(-J,-2640) NEXT J
DRAW shikaku64 WITH SHIFT(0,-3152) FOR J=612 TO 3060 STEP 612 !5回 その前に真ん中に1個書いているので! DRAW shikaku64 WITH SHIFT(J,-3152) DRAW shikaku64 WITH SHIFT(-J,-3152) NEXT J
FOR J=306 TO 2754 STEP 612 !4回 DRAW shikaku64 WITH SHIFT(J,-3680) DRAW shikaku64 WITH SHIFT(-J,-3680) NEXT J
DRAW shikaku64 WITH SHIFT(0,-4208) FOR J=612 TO 2448 STEP 612 !4回 その前に真ん中に1個書いているので! DRAW shikaku64 WITH SHIFT(J,-4208) DRAW shikaku64 WITH SHIFT(-J,-4208) NEXT J
FOR J=306 TO 2142 STEP 612 !3回 DRAW shikaku64 WITH SHIFT(J,-4736) DRAW shikaku64 WITH SHIFT(-J,-4736) NEXT J
DRAW shikaku64 WITH SHIFT(0,-5264) FOR J=612 TO 1836 STEP 612 !3回 その前に真ん中に1個書いているので! DRAW shikaku64 WITH SHIFT(J,-5264) DRAW shikaku64 WITH SHIFT(-J,-5264) NEXT J
FOR J=306 TO 1530 STEP 612 !2回 DRAW shikaku64 WITH SHIFT(J,-5792) DRAW shikaku64 WITH SHIFT(-J,-5792) NEXT J
DRAW shikaku64 WITH SHIFT(0,-6320) FOR J=612 TO 1224 STEP 612 !2回 その前に真ん中に1個書いているので! DRAW shikaku64 WITH SHIFT(J,-6320) DRAW shikaku64 WITH SHIFT(-J,-6320) NEXT J
FOR J=306 TO 918 STEP 612 !1回 DRAW shikaku64 WITH SHIFT(J,-6848) DRAW shikaku64 WITH SHIFT(-J,-6848) NEXT J
DRAW shikaku64 WITH SHIFT(0,-7376) DRAW shikaku64 WITH SHIFT(612,-7376) DRAW shikaku64 WITH SHIFT(-612,-7376)
DRAW shikaku64 WITH SHIFT(306,-7904) DRAW shikaku64 WITH SHIFT(-306,-7904)
DRAW shikaku64 WITH SHIFT(0,-8432)
REM DATA文の文字順 REM ひふみよいむなや REM こともちろらねし REM きるゆゐ(yi)つわぬそ REM をたはくめかうお REM ゑ(ye)にさりへてのま REM すあせえほれけん
DATA "ﾋ","ﾌ","ﾐ","ﾖ","ｲ","ﾑ","ﾅ","ﾔ" DATA "ｺ","ﾄ","ﾓ","ﾁ","ﾛ","ﾗ","ﾈ","ｼ" DATA "ｷ","ﾙ","ﾕ","ｧ","ﾂ","ﾜ","ﾇ","ｿ" DATA "ｦ","ﾀ","ﾊ","ｸ","ﾒ","ｶ","ｳ","ｵ" DATA "ｫ","ﾆ","ｻ","ﾘ","ﾍ","ﾃ","ﾉ","ﾏ" DATA "ｽ","ｱ","ｾ","ｴ","ﾎ","ﾚ","ｹ","ﾝ"
REM DATA文の文字順 REM いろはにほへとち REM りぬるをわかよた REM れそつねならむう REM ゐ(yi)のおくやまけふ REM こえてあさきゆめ REM みしゑ(ye)ひもせすん
DATA "ｲ","ﾛ","ﾊ","ﾆ","ﾎ","ﾍ","ﾄ","ﾁ" DATA "ﾘ","ﾇ","ﾙ","ｦ","ﾜ","ｶ","ﾖ","ﾀ" DATA "ﾚ","ｿ","ﾂ","ﾈ","ﾅ","ﾗ","ﾑ","ｳ" DATA "ｧ","ﾉ","ｵ","ｸ","ﾔ","ﾏ","ｹ","ﾌ" DATA "ｺ","ｴ","ﾃ","ｱ","ｻ","ｷ","ﾕ","ﾒ" DATA "ﾐ","ｼ","ｫ","ﾋ","ﾓ","ｾ","ｽ","ﾝ"
