1 '位相角φのグラフを描画するBASICプログラム
  5 '========================== 初期設定 =========================
 10 CLS 3: SCREEN 3
 20 XPOS = 200: YPOS = 300
 30 PAI=3.14159#: ZOOMX=80 : ZOOMY=240/PAI
 35 '===================== グラフのフレーム作成 ====================
 40 LINE (XPOS,YPOS)-(XPOS+3*ZOOMX, YPOS-PAI*ZOOMY),7,B
 50 LINE (XPOS+1*ZOOMX,YPOS)-(XPOS+1*ZOOMX,YPOS-PAI*ZOOMY),7,,2
 60 LINE (XPOS,YPOS-PAI/2*ZOOMY)-(XPOS+3*ZOOMX,YPOS-PAI/2*ZOOMY),7,,2
 70 LOCATE 32,20 : PRINT"位相角φのグラフ" : LOCATE 20,11 : PRINT "π/2"
 80 LOCATE 23,3 : PRINT "π" :LOCATE 24,19 : PRINT "0"
 90 LOCATE 34,19 : PRINT "1" :LOCATE 54,19 :PRINT"3"
 95 '======================= グラフの描画 =========================
100 LOCATE 33,2 : INPUT "減衰比ζは";Z
110 FOR A=0 TO 3 STEP .003
120 FAI=ATN((2*Z*A)/(1-A^2))
130 IF A>1 THEN FAI=FAI+PAI
140 PSET(XPOS+A*ZOOMX,YPOS-FAI*ZOOMY),4
150 NEXT A
160 GOTO 100
170 END