1 'U•”{—¦‚l‚ΜƒOƒ‰ƒt‚π•`‰ζ‚·‚ιBASICƒvƒƒOƒ‰ƒ€
  5 '========================== ‰Šϊέ’θ =========================
 10 CLS 3: SCREEN 3
 20 XPOS = 200: YPOS = 300
 30 PAI=3.14159# : ZOOMX=80 :ZOOMY=48
 35 '===================== ƒOƒ‰ƒt‚ΜƒtƒŒ[ƒ€μ¬ ====================
 40 LINE (XPOS,YPOS)-(XPOS+3*ZOOMX, YPOS-5*ZOOMY),7,B
 50 LINE (XPOS+1*ZOOMX,YPOS)-(XPOS+1*ZOOMX,YPOS-5*ZOOMY),7,,2
 60 LINE (XPOS,YPOS-1*ZOOMY)-(XPOS+3*ZOOMX,YPOS-1*ZOOMY),7,,2
 70 LOCATE 32,20 : PRINT"U•”{—¦‚l‚ΜƒOƒ‰ƒt": LOCATE 24,15 : PRINT "1"
 80 LOCATE 24,3 : PRINT "5" : LOCATE 24,19 : PRINT "0"
 90 LOCATE 34,19 : PRINT "1" : LOCATE 54,19 :PRINT"3"
 95 '======================= ƒOƒ‰ƒt‚Μ•`‰ζ =========================
100 LOCATE 34,2 : INPUT "ŒΈŠ”δƒΔ‚Ν";Z
110 FOR A=0 TO 3 STEP .003
120 M=1/SQR((1-A^2)^2+(2*Z*A)^2)
130 IF M>5 THEN GOTO 150
140 PSET(XPOS+A*ZOOMX,YPOS-M*ZOOMY),4
150 NEXT A
160 GOTO 100
170 END