十進BASICプログラミングについての質問や研究成果の公開にご利用ください。
メッセージ入力枠は右下をドラッグして拡大できます。 画像，URLは省略可能です。
編集/削除キーを入力しなくてもエラーにはなりませんが，何か適当な半角英数字4～8文字を指定してください。
特に，長文投稿の場合，プレビューで最後の行を確認しても，実際には途中で切れてしまうことがあるので，投稿後の確認が必要です。
world clock
- gnuutera2012文句うさぴょん URL
2025/11/05 (Wed) 01:10:24
! 世界の主な都市における時差
! DATA コード,時差,都市名
DIM A$(100),B$(100),C$(100)
DATA "UTC"," 0","<協定世界時>"
DATA "LON"," 0","ロンドン"
DATA "PAR","+1","パリ"
DATA "ATH","+2","アテネ"
DATA "JED","+3","ジェッダ"
DATA "THR","+3.5","テヘラン"
DATA "DXB","+4","ドバイ"
DATA "KBL","+4.5","カブール"
DATA "KHI","+5","カラチ"
DATA "DEL","+5.5","デリー"
DATA "DAC","+6","ダッカ"
DATA "RGN","+6.5","ヤンゴン"
DATA "BKK","+7","バンコク"
DATA "HKG","+8","香港"
DATA "TYO","+9","東京"
DATA "ADL","+9.5","アデレード"
DATA "SYD","+10","シドニー"
DATA "NOU","+11","ヌーメア"
DATA "WLG","+12","ウェリントン"
DATA "PPG","-11","パゴパゴ"
DATA "HNL","-10","ホノルル"
DATA "ANC","-9","アンカレジ"
DATA "LAX","-8","ロサンゼルス"
DATA "DEN","-7","デンバー"
DATA "CHI","-6","シカゴ"
DATA "NYC","-5","ニューヨーク"
DATA "SCL","-4","サンティアゴ"
DATA "RIO","-3","リオデジャネイロ"
DATA "FEN","-2","フェルナンド・デ・ノローニャ"
DATA "RAI","-1","プライア"
LET LENGTHA=0
LET LENGTHB=0
LET LENGTHC=0
FOR I=1 TO 100
READ IF MISSING THEN EXIT FOR : A$(I),B$(I),C$(I)
IF BLEN(A$(I))>LENGTHA THEN LET LENGTHA=BLEN(A$(I))
IF BLEN(B$(I))>LENGTHB THEN LET LENGTHB=BLEN(B$(I))
IF BLEN(C$(I))>LENGTHC THEN LET LENGTHC=BLEN(C$(I))
NEXT I
LET NUM=I-1
PRINT "┏"&REPEAT$("━",(LENGTHA)/2)&"┳"&REPEAT$("━",(LENGTHB)/2)&"┳"&REPEAT$("━",(LENGTHC)/2)&"┓"
FOR I=1 TO NUM
PRINT "┃"&A$(I)&" "&REPEAT$(" ",LENGTHA-BLEN(A$(I)))&"┃"&B$(I)&REPEAT$(" ",LENGTHB-BLEN(B$(I)))&"┃"&C$(I)&REPEAT$(" ",LENGTHC-BLEN(C$(I)))&"┃"
IF I<>NUM THEN PRINT "┣"&REPEAT$("━",(LENGTHA)/2)&"╋"&REPEAT$("━",(LENGTHB)/2)&"╋"&REPEAT$("━",(LENGTHC)/2)&"┫"
NEXT I
PRINT "┗"&REPEAT$("━",(LENGTHA)/2)&"┻"&REPEAT$("━",(LENGTHB)/2)&"┻"&REPEAT$("━",(LENGTHC)/2)&"┛"
!アナログ時計
SET TEXT JUSTIFY "center","half" !文字表示の書式
DEF t2agl(p,q)=PI/2-2*PI*p/q !Ｙ軸から時計まわり
DO
SET DRAW mode hidden !ちらつき防止（開始）
CLEAR
! 【UTC】【LON】【LIS】
LET deltaHofAtoT=-9 ! 【UTC】【LON】【LIS】は【TYO】-9
SET VIEWPORT 0,1/6,0,1/6
SET WINDOW -1.2,1.2,-1.2,1.2 !表示領域
LET t=TIME+deltaHofAtoT*3600 !次の三行削除
! 【作業中ここから】
IF t>=24*60^2 THEN LET h=INT((t-24*60^2)/3600)
IF t>=24*60^2 THEN LET m=INT(((t-24*60^2)-h*3600)/60)
IF t>=24*60^2 THEN LET s=(t-24*60^2)-h*3600-m*60
IF t>=24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)+1)
IF t>=0 AND t<24*60^2 THEN LET h=INT(t/3600)
IF t>=0 AND t<24*60^2 THEN LET m=INT((t-h*3600)/60)
IF t>=0 AND t<24*60^2 THEN LET s=t-h*3600-m*60
IF t>=0 AND t<24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100))
IF t<0 THEN LET h=INT((t+24*60^2)/3600)
IF t<0 THEN LET m=INT(((t+24*60^2)-h*3600)/60)
IF t<0 THEN LET s=(t+24*60^2)-h*3600-m*60
IF t<0 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)-1)
! 【作業中ここまで】
FOR i=1 TO 12 !文字盤
LET th=t2agl(i,12) !Ｙ軸から時計まわり
PLOT TEXT ,AT COS(th),SIN(th): STR$(i) !円周上
NEXT i
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.3: "UTC,LON" ! 【UTC】【LON】
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.6: "LIS" ! 【LIS】
! 【作業中ここから】
IF h<10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":"&"0"&STR$(m)
IF h<10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":" &STR$(m)
IF h>=10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":"&"0"&STR$(m)
IF h>=10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":" &STR$(m)
! 【作業中ここまで】
SET LINE width 8
LET th=t2agl(h + m/60,12) !長針
PLOT LINES: 0,0; 0.6*COS(th),0.6*SIN(th)
SET LINE width 4
LET th=t2agl(m,60) !短針
PLOT LINES: 0,0; 0.8*COS(th),0.8*SIN(th)
SET LINE width 1
LET th=t2agl(s,60) !秒針
PLOT LINES: 0,0; 0.9*COS(th),0.9*SIN(th)
! 【MAD】【PAR】【ROM】【BER】【STO】
LET deltaHofAtoT=-8 ! 【MAD】【PAR】【ROM】【BER】【STO】は【TYO】-8
SET VIEWPORT 1/6,2/6,0,1/6
SET WINDOW -1.2,1.2,-1.2,1.2 !表示領域
LET t=TIME+deltaHofAtoT*3600 !次の三行削除
! 【作業中ここから】
IF t>=24*60^2 THEN LET h=INT((t-24*60^2)/3600)
IF t>=24*60^2 THEN LET m=INT(((t-24*60^2)-h*3600)/60)
IF t>=24*60^2 THEN LET s=(t-24*60^2)-h*3600-m*60
IF t>=24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)+1)
IF t>=0 AND t<24*60^2 THEN LET h=INT(t/3600)
IF t>=0 AND t<24*60^2 THEN LET m=INT((t-h*3600)/60)
IF t>=0 AND t<24*60^2 THEN LET s=t-h*3600-m*60
IF t>=0 AND t<24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100))
IF t<0 THEN LET h=INT((t+24*60^2)/3600)
IF t<0 THEN LET m=INT(((t+24*60^2)-h*3600)/60)
IF t<0 THEN LET s=(t+24*60^2)-h*3600-m*60
IF t<0 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)-1)
! 【作業中ここまで】
FOR i=1 TO 12 !文字盤
LET th=t2agl(i,12) !Ｙ軸から時計まわり
PLOT TEXT ,AT COS(th),SIN(th): STR$(i) !円周上
NEXT i
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.3: "MAD,PAR" ! 【MAD】【PAR】
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.6: "ROM,BER" ! 【ROM】【BER】
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.9: "STO" ! 【STO】
! 【作業中ここから】
IF h<10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":"&"0"&STR$(m)
IF h<10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":" &STR$(m)
IF h>=10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":"&"0"&STR$(m)
IF h>=10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":" &STR$(m)
! 【作業中ここまで】
SET LINE width 8
LET th=t2agl(h + m/60,12) !長針
PLOT LINES: 0,0; 0.6*COS(th),0.6*SIN(th)
SET LINE width 4
LET th=t2agl(m,60) !短針
PLOT LINES: 0,0; 0.8*COS(th),0.8*SIN(th)
SET LINE width 1
LET th=t2agl(s,60) !秒針
PLOT LINES: 0,0; 0.9*COS(th),0.9*SIN(th)
! 【ATH】【CAI】【JRS】
LET deltaHofAtoT=-7 ! 【ATH】【CAI】【JRS】は【TYO】-7
SET VIEWPORT 2/6,3/6,0,1/6
SET WINDOW -1.2,1.2,-1.2,1.2 !表示領域
LET t=TIME+deltaHofAtoT*3600 !次の三行削除
! 【作業中ここから】
IF t>=24*60^2 THEN LET h=INT((t-24*60^2)/3600)
IF t>=24*60^2 THEN LET m=INT(((t-24*60^2)-h*3600)/60)
IF t>=24*60^2 THEN LET s=(t-24*60^2)-h*3600-m*60
IF t>=24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)+1)
IF t>=0 AND t<24*60^2 THEN LET h=INT(t/3600)
IF t>=0 AND t<24*60^2 THEN LET m=INT((t-h*3600)/60)
IF t>=0 AND t<24*60^2 THEN LET s=t-h*3600-m*60
IF t>=0 AND t<24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100))
IF t<0 THEN LET h=INT((t+24*60^2)/3600)
IF t<0 THEN LET m=INT(((t+24*60^2)-h*3600)/60)
IF t<0 THEN LET s=(t+24*60^2)-h*3600-m*60
IF t<0 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)-1)
! 【作業中ここまで】
FOR i=1 TO 12 !文字盤
LET th=t2agl(i,12) !Ｙ軸から時計まわり
PLOT TEXT ,AT COS(th),SIN(th): STR$(i) !円周上
NEXT i
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.3: "ATH,CAI" ! 【ATH】【CAI】
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.6: "JRS" ! 【JRS】
! 【作業中ここから】
IF h<10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":"&"0"&STR$(m)
IF h<10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":" &STR$(m)
IF h>=10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":"&"0"&STR$(m)
IF h>=10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":" &STR$(m)
! 【作業中ここまで】
SET LINE width 8
LET th=t2agl(h + m/60,12) !長針
PLOT LINES: 0,0; 0.6*COS(th),0.6*SIN(th)
SET LINE width 4
LET th=t2agl(m,60) !短針
PLOT LINES: 0,0; 0.8*COS(th),0.8*SIN(th)
SET LINE width 1
LET th=t2agl(s,60) !秒針
PLOT LINES: 0,0; 0.9*COS(th),0.9*SIN(th)
! 【JED】【MOW】
LET deltaHofAtoT=-6 ! 【JED】【MOW】は【TYO】-6
SET VIEWPORT 3/6,4/6,0,1/6
SET WINDOW -1.2,1.2,-1.2,1.2 !表示領域
LET t=TIME+deltaHofAtoT*3600 !次の三行削除
! 【作業中ここから】
IF t>=24*60^2 THEN LET h=INT((t-24*60^2)/3600)
IF t>=24*60^2 THEN LET m=INT(((t-24*60^2)-h*3600)/60)
IF t>=24*60^2 THEN LET s=(t-24*60^2)-h*3600-m*60
IF t>=24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)+1)
IF t>=0 AND t<24*60^2 THEN LET h=INT(t/3600)
IF t>=0 AND t<24*60^2 THEN LET m=INT((t-h*3600)/60)
IF t>=0 AND t<24*60^2 THEN LET s=t-h*3600-m*60
IF t>=0 AND t<24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100))
IF t<0 THEN LET h=INT((t+24*60^2)/3600)
IF t<0 THEN LET m=INT(((t+24*60^2)-h*3600)/60)
IF t<0 THEN LET s=(t+24*60^2)-h*3600-m*60
IF t<0 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)-1)
! 【作業中ここまで】
FOR i=1 TO 12 !文字盤
LET th=t2agl(i,12) !Ｙ軸から時計まわり
PLOT TEXT ,AT COS(th),SIN(th): STR$(i) !円周上
NEXT i
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.3: "JED,MOW" ! 【JED】【MOW】
! 【作業中ここから】
IF h<10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":"&"0"&STR$(m)
IF h<10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":" &STR$(m)
IF h>=10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":"&"0"&STR$(m)
IF h>=10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":" &STR$(m)
! 【作業中ここまで】
SET LINE width 8
LET th=t2agl(h + m/60,12) !長針
PLOT LINES: 0,0; 0.6*COS(th),0.6*SIN(th)
SET LINE width 4
LET th=t2agl(m,60) !短針
PLOT LINES: 0,0; 0.8*COS(th),0.8*SIN(th)
SET LINE width 1
LET th=t2agl(s,60) !秒針
PLOT LINES: 0,0; 0.9*COS(th),0.9*SIN(th)
! 【THR】
LET deltaHofAtoT=-5.5 ! 【THR】は【TYO】-5.5
SET VIEWPORT 4/6,5/6,0,1/6
SET WINDOW -1.2,1.2,-1.2,1.2 !表示領域
LET t=TIME+deltaHofAtoT*3600 !次の三行削除
! 【作業中ここから】
IF t>=24*60^2 THEN LET h=INT((t-24*60^2)/3600)
IF t>=24*60^2 THEN LET m=INT(((t-24*60^2)-h*3600)/60)
IF t>=24*60^2 THEN LET s=(t-24*60^2)-h*3600-m*60
IF t>=24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)+1)
IF t>=0 AND t<24*60^2 THEN LET h=INT(t/3600)
IF t>=0 AND t<24*60^2 THEN LET m=INT((t-h*3600)/60)
IF t>=0 AND t<24*60^2 THEN LET s=t-h*3600-m*60
IF t>=0 AND t<24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100))
IF t<0 THEN LET h=INT((t+24*60^2)/3600)
IF t<0 THEN LET m=INT(((t+24*60^2)-h*3600)/60)
IF t<0 THEN LET s=(t+24*60^2)-h*3600-m*60
IF t<0 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)-1)
! 【作業中ここまで】
FOR i=1 TO 12 !文字盤
LET th=t2agl(i,12) !Ｙ軸から時計まわり
PLOT TEXT ,AT COS(th),SIN(th): STR$(i) !円周上
NEXT i
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.3: "THR" ! 【THR】
! 【作業中ここから】
IF h<10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":"&"0"&STR$(m)
IF h<10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":" &STR$(m)
IF h>=10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":"&"0"&STR$(m)
IF h>=10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":" &STR$(m)
! 【作業中ここまで】
SET LINE width 8
LET th=t2agl(h + m/60,12) !長針
PLOT LINES: 0,0; 0.6*COS(th),0.6*SIN(th)
SET LINE width 4
LET th=t2agl(m,60) !短針
PLOT LINES: 0,0; 0.8*COS(th),0.8*SIN(th)
SET LINE width 1
LET th=t2agl(s,60) !秒針
PLOT LINES: 0,0; 0.9*COS(th),0.9*SIN(th)
! 【DXB】
LET deltaHofAtoT=-5 ! 【DXB】は【TYO】-5
SET VIEWPORT 5/6,6/6,0,1/6
SET WINDOW -1.2,1.2,-1.2,1.2 !表示領域
LET t=TIME+deltaHofAtoT*3600 !次の三行削除
! 【作業中ここから】
IF t>=24*60^2 THEN LET h=INT((t-24*60^2)/3600)
IF t>=24*60^2 THEN LET m=INT(((t-24*60^2)-h*3600)/60)
IF t>=24*60^2 THEN LET s=(t-24*60^2)-h*3600-m*60
IF t>=24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)+1)
IF t>=0 AND t<24*60^2 THEN LET h=INT(t/3600)
IF t>=0 AND t<24*60^2 THEN LET m=INT((t-h*3600)/60)
IF t>=0 AND t<24*60^2 THEN LET s=t-h*3600-m*60
IF t>=0 AND t<24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100))
IF t<0 THEN LET h=INT((t+24*60^2)/3600)
IF t<0 THEN LET m=INT(((t+24*60^2)-h*3600)/60)
IF t<0 THEN LET s=(t+24*60^2)-h*3600-m*60
IF t<0 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)-1)
! 【作業中ここまで】
FOR i=1 TO 12 !文字盤
LET th=t2agl(i,12) !Ｙ軸から時計まわり
PLOT TEXT ,AT COS(th),SIN(th): STR$(i) !円周上
NEXT i
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.3: "DXB" ! 【DXB】
! 【作業中ここから】
IF h<10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":"&"0"&STR$(m)
IF h<10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":" &STR$(m)
IF h>=10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":"&"0"&STR$(m)
IF h>=10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":" &STR$(m)
! 【作業中ここまで】
SET LINE width 8
LET th=t2agl(h + m/60,12) !長針
PLOT LINES: 0,0; 0.6*COS(th),0.6*SIN(th)
SET LINE width 4
LET th=t2agl(m,60) !短針
PLOT LINES: 0,0; 0.8*COS(th),0.8*SIN(th)
SET LINE width 1
LET th=t2agl(s,60) !秒針
PLOT LINES: 0,0; 0.9*COS(th),0.9*SIN(th)
! 【KBL】
LET deltaHofAtoT=-4.5 ! 【KBL】は【TYO】-4.5
SET VIEWPORT 0/6,1/6,1/6,2/6
SET WINDOW -1.2,1.2,-1.2,1.2 !表示領域
LET t=TIME+deltaHofAtoT*3600 !次の三行削除
! 【作業中ここから】
IF t>=24*60^2 THEN LET h=INT((t-24*60^2)/3600)
IF t>=24*60^2 THEN LET m=INT(((t-24*60^2)-h*3600)/60)
IF t>=24*60^2 THEN LET s=(t-24*60^2)-h*3600-m*60
IF t>=24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)+1)
IF t>=0 AND t<24*60^2 THEN LET h=INT(t/3600)
IF t>=0 AND t<24*60^2 THEN LET m=INT((t-h*3600)/60)
IF t>=0 AND t<24*60^2 THEN LET s=t-h*3600-m*60
IF t>=0 AND t<24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100))
IF t<0 THEN LET h=INT((t+24*60^2)/3600)
IF t<0 THEN LET m=INT(((t+24*60^2)-h*3600)/60)
IF t<0 THEN LET s=(t+24*60^2)-h*3600-m*60
IF t<0 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)-1)
! 【作業中ここまで】
FOR i=1 TO 12 !文字盤
LET th=t2agl(i,12) !Ｙ軸から時計まわり
PLOT TEXT ,AT COS(th),SIN(th): STR$(i) !円周上
NEXT i
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.3: "KBL" ! 【KBL】
! 【作業中ここから】
IF h<10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":"&"0"&STR$(m)
IF h<10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":" &STR$(m)
IF h>=10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":"&"0"&STR$(m)
IF h>=10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":" &STR$(m)
! 【作業中ここまで】
SET LINE width 8
LET th=t2agl(h + m/60,12) !長針
PLOT LINES: 0,0; 0.6*COS(th),0.6*SIN(th)
SET LINE width 4
LET th=t2agl(m,60) !短針
PLOT LINES: 0,0; 0.8*COS(th),0.8*SIN(th)
SET LINE width 1
LET th=t2agl(s,60) !秒針
PLOT LINES: 0,0; 0.9*COS(th),0.9*SIN(th)
! 【KHI】
LET deltaHofAtoT=-4 ! 【KHI】は【TYO】-4
SET VIEWPORT 1/6,2/6,1/6,2/6
SET WINDOW -1.2,1.2,-1.2,1.2 !表示領域
LET t=TIME+deltaHofAtoT*3600 !次の三行削除
! 【作業中ここから】
IF t>=24*60^2 THEN LET h=INT((t-24*60^2)/3600)
IF t>=24*60^2 THEN LET m=INT(((t-24*60^2)-h*3600)/60)
IF t>=24*60^2 THEN LET s=(t-24*60^2)-h*3600-m*60
IF t>=24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)+1)
IF t>=0 AND t<24*60^2 THEN LET h=INT(t/3600)
IF t>=0 AND t<24*60^2 THEN LET m=INT((t-h*3600)/60)
IF t>=0 AND t<24*60^2 THEN LET s=t-h*3600-m*60
IF t>=0 AND t<24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100))
IF t<0 THEN LET h=INT((t+24*60^2)/3600)
IF t<0 THEN LET m=INT(((t+24*60^2)-h*3600)/60)
IF t<0 THEN LET s=(t+24*60^2)-h*3600-m*60
IF t<0 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)-1)
! 【作業中ここまで】
FOR i=1 TO 12 !文字盤
LET th=t2agl(i,12) !Ｙ軸から時計まわり
PLOT TEXT ,AT COS(th),SIN(th): STR$(i) !円周上
NEXT i
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.3: "KHI" ! 【KHI】
! 【作業中ここから】
IF h<10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":"&"0"&STR$(m)
IF h<10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":" &STR$(m)
IF h>=10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":"&"0"&STR$(m)
IF h>=10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":" &STR$(m)
! 【作業中ここまで】
SET LINE width 8
LET th=t2agl(h + m/60,12) !長針
PLOT LINES: 0,0; 0.6*COS(th),0.6*SIN(th)
SET LINE width 4
LET th=t2agl(m,60) !短針
PLOT LINES: 0,0; 0.8*COS(th),0.8*SIN(th)
SET LINE width 1
LET th=t2agl(s,60) !秒針
PLOT LINES: 0,0; 0.9*COS(th),0.9*SIN(th)
! 【DEL】
LET deltaHofAtoT=-3.5 ! 【DEL】は【TYO】-3.5
SET VIEWPORT 2/6,3/6,1/6,2/6
SET WINDOW -1.2,1.2,-1.2,1.2 !表示領域
LET t=TIME+deltaHofAtoT*3600 !次の三行削除
! 【作業中ここから】
IF t>=24*60^2 THEN LET h=INT((t-24*60^2)/3600)
IF t>=24*60^2 THEN LET m=INT(((t-24*60^2)-h*3600)/60)
IF t>=24*60^2 THEN LET s=(t-24*60^2)-h*3600-m*60
IF t>=24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)+1)
IF t>=0 AND t<24*60^2 THEN LET h=INT(t/3600)
IF t>=0 AND t<24*60^2 THEN LET m=INT((t-h*3600)/60)
IF t>=0 AND t<24*60^2 THEN LET s=t-h*3600-m*60
IF t>=0 AND t<24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100))
IF t<0 THEN LET h=INT((t+24*60^2)/3600)
IF t<0 THEN LET m=INT(((t+24*60^2)-h*3600)/60)
IF t<0 THEN LET s=(t+24*60^2)-h*3600-m*60
IF t<0 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)-1)
! 【作業中ここまで】
FOR i=1 TO 12 !文字盤
LET th=t2agl(i,12) !Ｙ軸から時計まわり
PLOT TEXT ,AT COS(th),SIN(th): STR$(i) !円周上
NEXT i
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.3: "DEL" ! 【DEL】
! 【作業中ここから】
IF h<10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":"&"0"&STR$(m)
IF h<10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":" &STR$(m)
IF h>=10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":"&"0"&STR$(m)
IF h>=10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":" &STR$(m)
! 【作業中ここまで】
SET LINE width 8
LET th=t2agl(h + m/60,12) !長針
PLOT LINES: 0,0; 0.6*COS(th),0.6*SIN(th)
SET LINE width 4
LET th=t2agl(m,60) !短針
PLOT LINES: 0,0; 0.8*COS(th),0.8*SIN(th)
SET LINE width 1
LET th=t2agl(s,60) !秒針
PLOT LINES: 0,0; 0.9*COS(th),0.9*SIN(th)
! 【KTM】
LET deltaHofAtoT=-3.25 ! 【KTM】は【TYO】-3.1
SET VIEWPORT 3/6,4/6,1/6,2/6
SET WINDOW -1.2,1.2,-1.2,1.2 !表示領域
LET t=TIME+deltaHofAtoT*3600 !次の三行削除
! 【作業中ここから】
IF t>=24*60^2 THEN LET h=INT((t-24*60^2)/3600)
IF t>=24*60^2 THEN LET m=INT(((t-24*60^2)-h*3600)/60)
IF t>=24*60^2 THEN LET s=(t-24*60^2)-h*3600-m*60
IF t>=24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)+1)
IF t>=0 AND t<24*60^2 THEN LET h=INT(t/3600)
IF t>=0 AND t<24*60^2 THEN LET m=INT((t-h*3600)/60)
IF t>=0 AND t<24*60^2 THEN LET s=t-h*3600-m*60
IF t>=0 AND t<24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100))
IF t<0 THEN LET h=INT((t+24*60^2)/3600)
IF t<0 THEN LET m=INT(((t+24*60^2)-h*3600)/60)
IF t<0 THEN LET s=(t+24*60^2)-h*3600-m*60
IF t<0 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)-1)
! 【作業中ここまで】
FOR i=1 TO 12 !文字盤
LET th=t2agl(i,12) !Ｙ軸から時計まわり
PLOT TEXT ,AT COS(th),SIN(th): STR$(i) !円周上
NEXT i
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.3: "KTM" ! 【KTM】
! 【作業中ここから】
IF h<10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":"&"0"&STR$(m)
IF h<10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":" &STR$(m)
IF h>=10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":"&"0"&STR$(m)
IF h>=10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":" &STR$(m)
! 【作業中ここまで】
SET LINE width 8
LET th=t2agl(h + m/60,12) !長針
PLOT LINES: 0,0; 0.6*COS(th),0.6*SIN(th)
SET LINE width 4
LET th=t2agl(m,60) !短針
PLOT LINES: 0,0; 0.8*COS(th),0.8*SIN(th)
SET LINE width 1
LET th=t2agl(s,60) !秒針
PLOT LINES: 0,0; 0.9*COS(th),0.9*SIN(th)
! 【DAC】
LET deltaHofAtoT=-3 ! 【DAC】は【TYO】-3
SET VIEWPORT 4/6,5/6,1/6,2/6
SET WINDOW -1.2,1.2,-1.2,1.2 !表示領域
LET t=TIME+deltaHofAtoT*3600 !次の三行削除
! 【作業中ここから】
IF t>=24*60^2 THEN LET h=INT((t-24*60^2)/3600)
IF t>=24*60^2 THEN LET m=INT(((t-24*60^2)-h*3600)/60)
IF t>=24*60^2 THEN LET s=(t-24*60^2)-h*3600-m*60
IF t>=24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)+1)
IF t>=0 AND t<24*60^2 THEN LET h=INT(t/3600)
IF t>=0 AND t<24*60^2 THEN LET m=INT((t-h*3600)/60)
IF t>=0 AND t<24*60^2 THEN LET s=t-h*3600-m*60
IF t>=0 AND t<24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100))
IF t<0 THEN LET h=INT((t+24*60^2)/3600)
IF t<0 THEN LET m=INT(((t+24*60^2)-h*3600)/60)
IF t<0 THEN LET s=(t+24*60^2)-h*3600-m*60
IF t<0 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)-1)
! 【作業中ここまで】
FOR i=1 TO 12 !文字盤
LET th=t2agl(i,12) !Ｙ軸から時計まわり
PLOT TEXT ,AT COS(th),SIN(th): STR$(i) !円周上
NEXT i
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.3: "DAC" ! 【DAC】
! 【作業中ここから】
IF h<10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":"&"0"&STR$(m)
IF h<10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":" &STR$(m)
IF h>=10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":"&"0"&STR$(m)
IF h>=10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":" &STR$(m)
! 【作業中ここまで】
SET LINE width 8
LET th=t2agl(h + m/60,12) !長針
PLOT LINES: 0,0; 0.6*COS(th),0.6*SIN(th)
SET LINE width 4
LET th=t2agl(m,60) !短針
PLOT LINES: 0,0; 0.8*COS(th),0.8*SIN(th)
SET LINE width 1
LET th=t2agl(s,60) !秒針
PLOT LINES: 0,0; 0.9*COS(th),0.9*SIN(th)
! 【RGN】
LET deltaHofAtoT=-2.5 ! 【RGN】は【TYO】-2.5
SET VIEWPORT 5/6,6/6,1/6,2/6
SET WINDOW -1.2,1.2,-1.2,1.2 !表示領域
LET t=TIME+deltaHofAtoT*3600 !次の三行削除
! 【作業中ここから】
IF t>=24*60^2 THEN LET h=INT((t-24*60^2)/3600)
IF t>=24*60^2 THEN LET m=INT(((t-24*60^2)-h*3600)/60)
IF t>=24*60^2 THEN LET s=(t-24*60^2)-h*3600-m*60
IF t>=24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)+1)
IF t>=0 AND t<24*60^2 THEN LET h=INT(t/3600)
IF t>=0 AND t<24*60^2 THEN LET m=INT((t-h*3600)/60)
IF t>=0 AND t<24*60^2 THEN LET s=t-h*3600-m*60
IF t>=0 AND t<24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100))
IF t<0 THEN LET h=INT((t+24*60^2)/3600)
IF t<0 THEN LET m=INT(((t+24*60^2)-h*3600)/60)
IF t<0 THEN LET s=(t+24*60^2)-h*3600-m*60
IF t<0 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)-1)
! 【作業中ここまで】
FOR i=1 TO 12 !文字盤
LET th=t2agl(i,12) !Ｙ軸から時計まわり
PLOT TEXT ,AT COS(th),SIN(th): STR$(i) !円周上
NEXT i
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.3: "RGN" ! 【RGN】
! 【作業中ここから】
IF h<10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":"&"0"&STR$(m)
IF h<10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":" &STR$(m)
IF h>=10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":"&"0"&STR$(m)
IF h>=10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":" &STR$(m)
! 【作業中ここまで】
SET LINE width 8
LET th=t2agl(h + m/60,12) !長針
PLOT LINES: 0,0; 0.6*COS(th),0.6*SIN(th)
SET LINE width 4
LET th=t2agl(m,60) !短針
PLOT LINES: 0,0; 0.8*COS(th),0.8*SIN(th)
SET LINE width 1
LET th=t2agl(s,60) !秒針
PLOT LINES: 0,0; 0.9*COS(th),0.9*SIN(th)
! 【BKK】
LET deltaHofAtoT=-2 ! 【BKK】は【TYO】-2
SET VIEWPORT 0/6,1/6,2/6,3/6
SET WINDOW -1.2,1.2,-1.2,1.2 !表示領域
LET t=TIME+deltaHofAtoT*3600 !次の三行削除
! 【作業中ここから】
IF t>=24*60^2 THEN LET h=INT((t-24*60^2)/3600)
IF t>=24*60^2 THEN LET m=INT(((t-24*60^2)-h*3600)/60)
IF t>=24*60^2 THEN LET s=(t-24*60^2)-h*3600-m*60
IF t>=24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)+1)
IF t>=0 AND t<24*60^2 THEN LET h=INT(t/3600)
IF t>=0 AND t<24*60^2 THEN LET m=INT((t-h*3600)/60)
IF t>=0 AND t<24*60^2 THEN LET s=t-h*3600-m*60
IF t>=0 AND t<24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100))
IF t<0 THEN LET h=INT((t+24*60^2)/3600)
IF t<0 THEN LET m=INT(((t+24*60^2)-h*3600)/60)
IF t<0 THEN LET s=(t+24*60^2)-h*3600-m*60
IF t<0 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)-1)
! 【作業中ここまで】
FOR i=1 TO 12 !文字盤
LET th=t2agl(i,12) !Ｙ軸から時計まわり
PLOT TEXT ,AT COS(th),SIN(th): STR$(i) !円周上
NEXT i
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.3: "BKK" ! 【BKK】
! 【作業中ここから】
IF h<10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":"&"0"&STR$(m)
IF h<10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":" &STR$(m)
IF h>=10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":"&"0"&STR$(m)
IF h>=10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":" &STR$(m)
! 【作業中ここまで】
SET LINE width 8
LET th=t2agl(h + m/60,12) !長針
PLOT LINES: 0,0; 0.6*COS(th),0.6*SIN(th)
SET LINE width 4
LET th=t2agl(m,60) !短針
PLOT LINES: 0,0; 0.8*COS(th),0.8*SIN(th)
SET LINE width 1
LET th=t2agl(s,60) !秒針
PLOT LINES: 0,0; 0.9*COS(th),0.9*SIN(th)
! 【HKG】【TPE】【BJS】【SIN】
LET deltaHofAtoT=-1 ! 【HKG】【TPE】【BJS】【SIN】は【TYO】-1
SET VIEWPORT 1/6,2/6,2/6,3/6
SET WINDOW -1.2,1.2,-1.2,1.2 !表示領域
LET t=TIME+deltaHofAtoT*3600 !次の三行削除
! 【作業中ここから】
IF t>=24*60^2 THEN LET h=INT((t-24*60^2)/3600)
IF t>=24*60^2 THEN LET m=INT(((t-24*60^2)-h*3600)/60)
IF t>=24*60^2 THEN LET s=(t-24*60^2)-h*3600-m*60
IF t>=24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)+1)
IF t>=0 AND t<24*60^2 THEN LET h=INT(t/3600)
IF t>=0 AND t<24*60^2 THEN LET m=INT((t-h*3600)/60)
IF t>=0 AND t<24*60^2 THEN LET s=t-h*3600-m*60
IF t>=0 AND t<24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100))
IF t<0 THEN LET h=INT((t+24*60^2)/3600)
IF t<0 THEN LET m=INT(((t+24*60^2)-h*3600)/60)
IF t<0 THEN LET s=(t+24*60^2)-h*3600-m*60
IF t<0 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)-1)
! 【作業中ここまで】
FOR i=1 TO 12 !文字盤
LET th=t2agl(i,12) !Ｙ軸から時計まわり
PLOT TEXT ,AT COS(th),SIN(th): STR$(i) !円周上
NEXT i
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.3: "HKG,TPE" ! 【HKG】【TPE】
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.6: "BJS,SIN" ! 【BJS】【SIN】
! 【作業中ここから】
IF h<10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":"&"0"&STR$(m)
IF h<10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":" &STR$(m)
IF h>=10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":"&"0"&STR$(m)
IF h>=10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":" &STR$(m)
! 【作業中ここまで】
SET LINE width 8
LET th=t2agl(h + m/60,12) !長針
PLOT LINES: 0,0; 0.6*COS(th),0.6*SIN(th)
SET LINE width 4
LET th=t2agl(m,60) !短針
PLOT LINES: 0,0; 0.8*COS(th),0.8*SIN(th)
SET LINE width 1
LET th=t2agl(s,60) !秒針
PLOT LINES: 0,0; 0.9*COS(th),0.9*SIN(th)
! 【TYO】【SEL】
LET deltaHofAtoT=0 ! 【TYO】【SEL】は【TYO】-0
SET VIEWPORT 2/6,3/6,2/6,3/6
SET WINDOW -1.2,1.2,-1.2,1.2 !表示領域
LET t=TIME+deltaHofAtoT*3600 !次の三行削除
! 【作業中ここから】
IF t>=24*60^2 THEN LET h=INT((t-24*60^2)/3600)
IF t>=24*60^2 THEN LET m=INT(((t-24*60^2)-h*3600)/60)
IF t>=24*60^2 THEN LET s=(t-24*60^2)-h*3600-m*60
IF t>=24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)+1)
IF t>=0 AND t<24*60^2 THEN LET h=INT(t/3600)
IF t>=0 AND t<24*60^2 THEN LET m=INT((t-h*3600)/60)
IF t>=0 AND t<24*60^2 THEN LET s=t-h*3600-m*60
IF t>=0 AND t<24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100))
IF t<0 THEN LET h=INT((t+24*60^2)/3600)
IF t<0 THEN LET m=INT(((t+24*60^2)-h*3600)/60)
IF t<0 THEN LET s=(t+24*60^2)-h*3600-m*60
IF t<0 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)-1)
! 【作業中ここまで】
FOR i=1 TO 12 !文字盤
LET th=t2agl(i,12) !Ｙ軸から時計まわり
PLOT TEXT ,AT COS(th),SIN(th): STR$(i) !円周上
NEXT i
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.3: "TYO,SEL" ! 【TYO】【SEL】
! 【作業中ここから】
IF h<10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":"&"0"&STR$(m)
IF h<10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":" &STR$(m)
IF h>=10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":"&"0"&STR$(m)
IF h>=10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":" &STR$(m)
! 【作業中ここまで】
SET LINE width 8
LET th=t2agl(h + m/60,12) !長針
PLOT LINES: 0,0; 0.6*COS(th),0.6*SIN(th)
SET LINE width 4
LET th=t2agl(m,60) !短針
PLOT LINES: 0,0; 0.8*COS(th),0.8*SIN(th)
SET LINE width 1
LET th=t2agl(s,60) !秒針
PLOT LINES: 0,0; 0.9*COS(th),0.9*SIN(th)
! 【ADL】
LET deltaHofAtoT=0.5 ! 【ADL】は【TYO】+0.5
SET VIEWPORT 3/6,4/6,2/6,3/6
SET WINDOW -1.2,1.2,-1.2,1.2 !表示領域
LET t=TIME+deltaHofAtoT*3600 !次の三行削除
! 【作業中ここから】
IF t>=24*60^2 THEN LET h=INT((t-24*60^2)/3600)
IF t>=24*60^2 THEN LET m=INT(((t-24*60^2)-h*3600)/60)
IF t>=24*60^2 THEN LET s=(t-24*60^2)-h*3600-m*60
IF t>=24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)+1)
IF t>=0 AND t<24*60^2 THEN LET h=INT(t/3600)
IF t>=0 AND t<24*60^2 THEN LET m=INT((t-h*3600)/60)
IF t>=0 AND t<24*60^2 THEN LET s=t-h*3600-m*60
IF t>=0 AND t<24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100))
IF t<0 THEN LET h=INT((t+24*60^2)/3600)
IF t<0 THEN LET m=INT(((t+24*60^2)-h*3600)/60)
IF t<0 THEN LET s=(t+24*60^2)-h*3600-m*60
IF t<0 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)-1)
! 【作業中ここまで】
FOR i=1 TO 12 !文字盤
LET th=t2agl(i,12) !Ｙ軸から時計まわり
PLOT TEXT ,AT COS(th),SIN(th): STR$(i) !円周上
NEXT i
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.3: "ADL" ! 【ADL】
! 【作業中ここから】
IF h<10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":"&"0"&STR$(m)
IF h<10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":" &STR$(m)
IF h>=10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":"&"0"&STR$(m)
IF h>=10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":" &STR$(m)
! 【作業中ここまで】
SET LINE width 8
LET th=t2agl(h + m/60,12) !長針
PLOT LINES: 0,0; 0.6*COS(th),0.6*SIN(th)
SET LINE width 4
LET th=t2agl(m,60) !短針
PLOT LINES: 0,0; 0.8*COS(th),0.8*SIN(th)
SET LINE width 1
LET th=t2agl(s,60) !秒針
PLOT LINES: 0,0; 0.9*COS(th),0.9*SIN(th)
! 【SYD】【GUM】
LET deltaHofAtoT=1 ! 【SYD】【GUM】は【TYO】+1
SET VIEWPORT 4/6,5/6,2/6,3/6
SET WINDOW -1.2,1.2,-1.2,1.2 !表示領域
LET t=TIME+deltaHofAtoT*3600 !次の三行削除
! 【作業中ここから】
IF t>=24*60^2 THEN LET h=INT((t-24*60^2)/3600)
IF t>=24*60^2 THEN LET m=INT(((t-24*60^2)-h*3600)/60)
IF t>=24*60^2 THEN LET s=(t-24*60^2)-h*3600-m*60
IF t>=24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)+1)
IF t>=0 AND t<24*60^2 THEN LET h=INT(t/3600)
IF t>=0 AND t<24*60^2 THEN LET m=INT((t-h*3600)/60)
IF t>=0 AND t<24*60^2 THEN LET s=t-h*3600-m*60
IF t>=0 AND t<24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100))
IF t<0 THEN LET h=INT((t+24*60^2)/3600)
IF t<0 THEN LET m=INT(((t+24*60^2)-h*3600)/60)
IF t<0 THEN LET s=(t+24*60^2)-h*3600-m*60
IF t<0 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)-1)
! 【作業中ここまで】
FOR i=1 TO 12 !文字盤
LET th=t2agl(i,12) !Ｙ軸から時計まわり
PLOT TEXT ,AT COS(th),SIN(th): STR$(i) !円周上
NEXT i
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.3: "SYD,GUM" ! 【SYD】【GUM】
! 【作業中ここから】
IF h<10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":"&"0"&STR$(m)
IF h<10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":" &STR$(m)
IF h>=10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":"&"0"&STR$(m)
IF h>=10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":" &STR$(m)
! 【作業中ここまで】
SET LINE width 8
LET th=t2agl(h + m/60,12) !長針
PLOT LINES: 0,0; 0.6*COS(th),0.6*SIN(th)
SET LINE width 4
LET th=t2agl(m,60) !短針
PLOT LINES: 0,0; 0.8*COS(th),0.8*SIN(th)
SET LINE width 1
LET th=t2agl(s,60) !秒針
PLOT LINES: 0,0; 0.9*COS(th),0.9*SIN(th)
! 【NOU】
LET deltaHofAtoT=2 ! 【NOU】は【TYO】+2
SET VIEWPORT 5/6,6/6,2/6,3/6
SET WINDOW -1.2,1.2,-1.2,1.2 !表示領域
LET t=TIME+deltaHofAtoT*3600 !次の三行削除
! 【作業中ここから】
IF t>=24*60^2 THEN LET h=INT((t-24*60^2)/3600)
IF t>=24*60^2 THEN LET m=INT(((t-24*60^2)-h*3600)/60)
IF t>=24*60^2 THEN LET s=(t-24*60^2)-h*3600-m*60
IF t>=24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)+1)
IF t>=0 AND t<24*60^2 THEN LET h=INT(t/3600)
IF t>=0 AND t<24*60^2 THEN LET m=INT((t-h*3600)/60)
IF t>=0 AND t<24*60^2 THEN LET s=t-h*3600-m*60
IF t>=0 AND t<24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100))
IF t<0 THEN LET h=INT((t+24*60^2)/3600)
IF t<0 THEN LET m=INT(((t+24*60^2)-h*3600)/60)
IF t<0 THEN LET s=(t+24*60^2)-h*3600-m*60
IF t<0 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)-1)
! 【作業中ここまで】
FOR i=1 TO 12 !文字盤
LET th=t2agl(i,12) !Ｙ軸から時計まわり
PLOT TEXT ,AT COS(th),SIN(th): STR$(i) !円周上
NEXT i
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.3: "NOU" ! 【NOU】
! 【作業中ここから】
IF h<10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":"&"0"&STR$(m)
IF h<10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":" &STR$(m)
IF h>=10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":"&"0"&STR$(m)
IF h>=10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":" &STR$(m)
! 【作業中ここまで】
SET LINE width 8
LET th=t2agl(h + m/60,12) !長針
PLOT LINES: 0,0; 0.6*COS(th),0.6*SIN(th)
SET LINE width 4
LET th=t2agl(m,60) !短針
PLOT LINES: 0,0; 0.8*COS(th),0.8*SIN(th)
SET LINE width 1
LET th=t2agl(s,60) !秒針
PLOT LINES: 0,0; 0.9*COS(th),0.9*SIN(th)
! 【WLG】
LET deltaHofAtoT=3 ! 【WLG】は【TYO】+3
SET VIEWPORT 0/6,1/6,3/6,4/6
SET WINDOW -1.2,1.2,-1.2,1.2 !表示領域
LET t=TIME+deltaHofAtoT*3600 !次の三行削除
! 【作業中ここから】
IF t>=24*60^2 THEN LET h=INT((t-24*60^2)/3600)
IF t>=24*60^2 THEN LET m=INT(((t-24*60^2)-h*3600)/60)
IF t>=24*60^2 THEN LET s=(t-24*60^2)-h*3600-m*60
IF t>=24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)+1)
IF t>=0 AND t<24*60^2 THEN LET h=INT(t/3600)
IF t>=0 AND t<24*60^2 THEN LET m=INT((t-h*3600)/60)
IF t>=0 AND t<24*60^2 THEN LET s=t-h*3600-m*60
IF t>=0 AND t<24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100))
IF t<0 THEN LET h=INT((t+24*60^2)/3600)
IF t<0 THEN LET m=INT(((t+24*60^2)-h*3600)/60)
IF t<0 THEN LET s=(t+24*60^2)-h*3600-m*60
IF t<0 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)-1)
! 【作業中ここまで】
FOR i=1 TO 12 !文字盤
LET th=t2agl(i,12) !Ｙ軸から時計まわり
PLOT TEXT ,AT COS(th),SIN(th): STR$(i) !円周上
NEXT i
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.3: "WLG" ! 【WLG】
! 【作業中ここから】
IF h<10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":"&"0"&STR$(m)
IF h<10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":" &STR$(m)
IF h>=10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":"&"0"&STR$(m)
IF h>=10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":" &STR$(m)
! 【作業中ここまで】
SET LINE width 8
LET th=t2agl(h + m/60,12) !長針
PLOT LINES: 0,0; 0.6*COS(th),0.6*SIN(th)
SET LINE width 4
LET th=t2agl(m,60) !短針
PLOT LINES: 0,0; 0.8*COS(th),0.8*SIN(th)
SET LINE width 1
LET th=t2agl(s,60) !秒針
PLOT LINES: 0,0; 0.9*COS(th),0.9*SIN(th)
! 【PPG】
LET deltaHofAtoT=-20 ! 【PPG】は【TYO】-20
SET VIEWPORT 1/6,2/6,3/6,4/6
SET WINDOW -1.2,1.2,-1.2,1.2 !表示領域
LET t=TIME+deltaHofAtoT*3600 !次の三行削除
! 【作業中ここから】
IF t>=24*60^2 THEN LET h=INT((t-24*60^2)/3600)
IF t>=24*60^2 THEN LET m=INT(((t-24*60^2)-h*3600)/60)
IF t>=24*60^2 THEN LET s=(t-24*60^2)-h*3600-m*60
IF t>=24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)+1)
IF t>=0 AND t<24*60^2 THEN LET h=INT(t/3600)
IF t>=0 AND t<24*60^2 THEN LET m=INT((t-h*3600)/60)
IF t>=0 AND t<24*60^2 THEN LET s=t-h*3600-m*60
IF t>=0 AND t<24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100))
IF t<0 THEN LET h=INT((t+24*60^2)/3600)
IF t<0 THEN LET m=INT(((t+24*60^2)-h*3600)/60)
IF t<0 THEN LET s=(t+24*60^2)-h*3600-m*60
IF t<0 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)-1)
! 【作業中ここまで】
FOR i=1 TO 12 !文字盤
LET th=t2agl(i,12) !Ｙ軸から時計まわり
PLOT TEXT ,AT COS(th),SIN(th): STR$(i) !円周上
NEXT i
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.3: "PPG" ! 【PPG】
! 【作業中ここから】
IF h<10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":"&"0"&STR$(m)
IF h<10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":" &STR$(m)
IF h>=10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":"&"0"&STR$(m)
IF h>=10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":" &STR$(m)
! 【作業中ここまで】
SET LINE width 8
LET th=t2agl(h + m/60,12) !長針
PLOT LINES: 0,0; 0.6*COS(th),0.6*SIN(th)
SET LINE width 4
LET th=t2agl(m,60) !短針
PLOT LINES: 0,0; 0.8*COS(th),0.8*SIN(th)
SET LINE width 1
LET th=t2agl(s,60) !秒針
PLOT LINES: 0,0; 0.9*COS(th),0.9*SIN(th)
! 【HNL】
LET deltaHofAtoT=-19 ! 【HNL】は【TYO】-19
SET VIEWPORT 2/6,3/6,3/6,4/6
SET WINDOW -1.2,1.2,-1.2,1.2 !表示領域
LET t=TIME+deltaHofAtoT*3600 !次の三行削除
! 【作業中ここから】
IF t>=24*60^2 THEN LET h=INT((t-24*60^2)/3600)
IF t>=24*60^2 THEN LET m=INT(((t-24*60^2)-h*3600)/60)
IF t>=24*60^2 THEN LET s=(t-24*60^2)-h*3600-m*60
IF t>=24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)+1)
IF t>=0 AND t<24*60^2 THEN LET h=INT(t/3600)
IF t>=0 AND t<24*60^2 THEN LET m=INT((t-h*3600)/60)
IF t>=0 AND t<24*60^2 THEN LET s=t-h*3600-m*60
IF t>=0 AND t<24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100))
IF t<0 THEN LET h=INT((t+24*60^2)/3600)
IF t<0 THEN LET m=INT(((t+24*60^2)-h*3600)/60)
IF t<0 THEN LET s=(t+24*60^2)-h*3600-m*60
IF t<0 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)-1)
! 【作業中ここまで】
FOR i=1 TO 12 !文字盤
LET th=t2agl(i,12) !Ｙ軸から時計まわり
PLOT TEXT ,AT COS(th),SIN(th): STR$(i) !円周上
NEXT i
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.3: "HNL" ! 【HNL】
! 【作業中ここから】
IF h<10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":"&"0"&STR$(m)
IF h<10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":" &STR$(m)
IF h>=10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":"&"0"&STR$(m)
IF h>=10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":" &STR$(m)
! 【作業中ここまで】
SET LINE width 8
LET th=t2agl(h + m/60,12) !長針
PLOT LINES: 0,0; 0.6*COS(th),0.6*SIN(th)
SET LINE width 4
LET th=t2agl(m,60) !短針
PLOT LINES: 0,0; 0.8*COS(th),0.8*SIN(th)
SET LINE width 1
LET th=t2agl(s,60) !秒針
PLOT LINES: 0,0; 0.9*COS(th),0.9*SIN(th)
! 【ANC】
LET deltaHofAtoT=-18 ! 【ANC】は【TYO】-18
SET VIEWPORT 3/6,4/6,3/6,4/6
SET WINDOW -1.2,1.2,-1.2,1.2 !表示領域
LET t=TIME+deltaHofAtoT*3600 !次の三行削除
! 【作業中ここから】
IF t>=24*60^2 THEN LET h=INT((t-24*60^2)/3600)
IF t>=24*60^2 THEN LET m=INT(((t-24*60^2)-h*3600)/60)
IF t>=24*60^2 THEN LET s=(t-24*60^2)-h*3600-m*60
IF t>=24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)+1)
IF t>=0 AND t<24*60^2 THEN LET h=INT(t/3600)
IF t>=0 AND t<24*60^2 THEN LET m=INT((t-h*3600)/60)
IF t>=0 AND t<24*60^2 THEN LET s=t-h*3600-m*60
IF t>=0 AND t<24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100))
IF t<0 THEN LET h=INT((t+24*60^2)/3600)
IF t<0 THEN LET m=INT(((t+24*60^2)-h*3600)/60)
IF t<0 THEN LET s=(t+24*60^2)-h*3600-m*60
IF t<0 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)-1)
! 【作業中ここまで】
FOR i=1 TO 12 !文字盤
LET th=t2agl(i,12) !Ｙ軸から時計まわり
PLOT TEXT ,AT COS(th),SIN(th): STR$(i) !円周上
NEXT i
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.3: "ANC" ! 【ANC】
! 【作業中ここから】
IF h<10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":"&"0"&STR$(m)
IF h<10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":" &STR$(m)
IF h>=10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":"&"0"&STR$(m)
IF h>=10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":" &STR$(m)
! 【作業中ここまで】
SET LINE width 8
LET th=t2agl(h + m/60,12) !長針
PLOT LINES: 0,0; 0.6*COS(th),0.6*SIN(th)
SET LINE width 4
LET th=t2agl(m,60) !短針
PLOT LINES: 0,0; 0.8*COS(th),0.8*SIN(th)
SET LINE width 1
LET th=t2agl(s,60) !秒針
PLOT LINES: 0,0; 0.9*COS(th),0.9*SIN(th)
! 【LAX】【YVR】
LET deltaHofAtoT=-17 ! 【LAX】【YVR】は【TYO】-17
SET VIEWPORT 4/6,5/6,3/6,4/6
SET WINDOW -1.2,1.2,-1.2,1.2 !表示領域
LET t=TIME+deltaHofAtoT*3600 !次の三行削除
! 【作業中ここから】
IF t>=24*60^2 THEN LET h=INT((t-24*60^2)/3600)
IF t>=24*60^2 THEN LET m=INT(((t-24*60^2)-h*3600)/60)
IF t>=24*60^2 THEN LET s=(t-24*60^2)-h*3600-m*60
IF t>=24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)+1)
IF t>=0 AND t<24*60^2 THEN LET h=INT(t/3600)
IF t>=0 AND t<24*60^2 THEN LET m=INT((t-h*3600)/60)
IF t>=0 AND t<24*60^2 THEN LET s=t-h*3600-m*60
IF t>=0 AND t<24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100))
IF t<0 THEN LET h=INT((t+24*60^2)/3600)
IF t<0 THEN LET m=INT(((t+24*60^2)-h*3600)/60)
IF t<0 THEN LET s=(t+24*60^2)-h*3600-m*60
IF t<0 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)-1)
! 【作業中ここまで】
FOR i=1 TO 12 !文字盤
LET th=t2agl(i,12) !Ｙ軸から時計まわり
PLOT TEXT ,AT COS(th),SIN(th): STR$(i) !円周上
NEXT i
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.3: "LAX,YVR" ! 【LAX】【YVR】
! 【作業中ここから】
IF h<10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":"&"0"&STR$(m)
IF h<10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":" &STR$(m)
IF h>=10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":"&"0"&STR$(m)
IF h>=10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":" &STR$(m)
! 【作業中ここまで】
SET LINE width 8
LET th=t2agl(h + m/60,12) !長針
PLOT LINES: 0,0; 0.6*COS(th),0.6*SIN(th)
SET LINE width 4
LET th=t2agl(m,60) !短針
PLOT LINES: 0,0; 0.8*COS(th),0.8*SIN(th)
SET LINE width 1
LET th=t2agl(s,60) !秒針
PLOT LINES: 0,0; 0.9*COS(th),0.9*SIN(th)
! 【DEN】【YEA】
LET deltaHofAtoT=-16 ! 【DEN】【YEA】は【TYO】-16
SET VIEWPORT 5/6,6/6,3/6,4/6
SET WINDOW -1.2,1.2,-1.2,1.2 !表示領域
LET t=TIME+deltaHofAtoT*3600 !次の三行削除
! 【作業中ここから】
IF t>=24*60^2 THEN LET h=INT((t-24*60^2)/3600)
IF t>=24*60^2 THEN LET m=INT(((t-24*60^2)-h*3600)/60)
IF t>=24*60^2 THEN LET s=(t-24*60^2)-h*3600-m*60
IF t>=24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)+1)
IF t>=0 AND t<24*60^2 THEN LET h=INT(t/3600)
IF t>=0 AND t<24*60^2 THEN LET m=INT((t-h*3600)/60)
IF t>=0 AND t<24*60^2 THEN LET s=t-h*3600-m*60
IF t>=0 AND t<24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100))
IF t<0 THEN LET h=INT((t+24*60^2)/3600)
IF t<0 THEN LET m=INT(((t+24*60^2)-h*3600)/60)
IF t<0 THEN LET s=(t+24*60^2)-h*3600-m*60
IF t<0 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)-1)
! 【作業中ここまで】
FOR i=1 TO 12 !文字盤
LET th=t2agl(i,12) !Ｙ軸から時計まわり
PLOT TEXT ,AT COS(th),SIN(th): STR$(i) !円周上
NEXT i
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.3: "DEN,YEA" ! 【DEN】【YEA】
! 【作業中ここから】
IF h<10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":"&"0"&STR$(m)
IF h<10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":" &STR$(m)
IF h>=10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":"&"0"&STR$(m)
IF h>=10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":" &STR$(m)
! 【作業中ここまで】
SET LINE width 8
LET th=t2agl(h + m/60,12) !長針
PLOT LINES: 0,0; 0.6*COS(th),0.6*SIN(th)
SET LINE width 4
LET th=t2agl(m,60) !短針
PLOT LINES: 0,0; 0.8*COS(th),0.8*SIN(th)
SET LINE width 1
LET th=t2agl(s,60) !秒針
PLOT LINES: 0,0; 0.9*COS(th),0.9*SIN(th)
! 【CHI】【YWG】【MEX】
LET deltaHofAtoT=-15 ! 【CHI】【YWG】【MEX】は【TYO】-15
SET VIEWPORT 0/6,1/6,4/6,5/6
SET WINDOW -1.2,1.2,-1.2,1.2 !表示領域
LET t=TIME+deltaHofAtoT*3600 !次の三行削除
! 【作業中ここから】
IF t>=24*60^2 THEN LET h=INT((t-24*60^2)/3600)
IF t>=24*60^2 THEN LET m=INT(((t-24*60^2)-h*3600)/60)
IF t>=24*60^2 THEN LET s=(t-24*60^2)-h*3600-m*60
IF t>=24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)+1)
Re: 無題
- gnuutera2012文句うさぴょん URL
2025/11/05 (Wed) 01:22:38
IF t>=0 AND t<24*60^2 THEN LET h=INT(t/3600)
IF t>=0 AND t<24*60^2 THEN LET m=INT((t-h*3600)/60)
IF t>=0 AND t<24*60^2 THEN LET s=t-h*3600-m*60
IF t>=0 AND t<24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100))
IF t<0 THEN LET h=INT((t+24*60^2)/3600)
IF t<0 THEN LET m=INT(((t+24*60^2)-h*3600)/60)
IF t<0 THEN LET s=(t+24*60^2)-h*3600-m*60
IF t<0 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)-1)
! 【作業中ここまで】
FOR i=1 TO 12 !文字盤
LET th=t2agl(i,12) !Ｙ軸から時計まわり
PLOT TEXT ,AT COS(th),SIN(th): STR$(i) !円周上
NEXT i
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.3: "CHI,YWG" ! 【CHI】【YWG】
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.6: "MEX" ! 【MEX】
! 【作業中ここから】
IF h<10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":"&"0"&STR$(m)
IF h<10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":" &STR$(m)
IF h>=10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":"&"0"&STR$(m)
IF h>=10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":" &STR$(m)
! 【作業中ここまで】
SET LINE width 8
LET th=t2agl(h + m/60,12) !長針
PLOT LINES: 0,0; 0.6*COS(th),0.6*SIN(th)
SET LINE width 4
LET th=t2agl(m,60) !短針
PLOT LINES: 0,0; 0.8*COS(th),0.8*SIN(th)
SET LINE width 1
LET th=t2agl(s,60) !秒針
PLOT LINES: 0,0; 0.9*COS(th),0.9*SIN(th)
! 【NYC】【YTO】【MIA】
LET deltaHofAtoT=-14 ! 【NYC】【YTO】【MIA】は【TYO】-14
SET VIEWPORT 1/6,2/6,4/6,5/6
SET WINDOW -1.2,1.2,-1.2,1.2 !表示領域
LET t=TIME+deltaHofAtoT*3600 !次の三行削除
! 【作業中ここから】
IF t>=24*60^2 THEN LET h=INT((t-24*60^2)/3600)
IF t>=24*60^2 THEN LET m=INT(((t-24*60^2)-h*3600)/60)
IF t>=24*60^2 THEN LET s=(t-24*60^2)-h*3600-m*60
IF t>=24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)+1)
IF t>=0 AND t<24*60^2 THEN LET h=INT(t/3600)
IF t>=0 AND t<24*60^2 THEN LET m=INT((t-h*3600)/60)
IF t>=0 AND t<24*60^2 THEN LET s=t-h*3600-m*60
IF t>=0 AND t<24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100))
IF t<0 THEN LET h=INT((t+24*60^2)/3600)
IF t<0 THEN LET m=INT(((t+24*60^2)-h*3600)/60)
IF t<0 THEN LET s=(t+24*60^2)-h*3600-m*60
IF t<0 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)-1)
! 【作業中ここまで】
FOR i=1 TO 12 !文字盤
LET th=t2agl(i,12) !Ｙ軸から時計まわり
PLOT TEXT ,AT COS(th),SIN(th): STR$(i) !円周上
NEXT i
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.3: "NYC,YTO" ! 【NYC】【YTO】
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.6: "MIA" ! 【MIA】
! 【作業中ここから】
IF h<10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":"&"0"&STR$(m)
IF h<10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":" &STR$(m)
IF h>=10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":"&"0"&STR$(m)
IF h>=10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":" &STR$(m)
! 【作業中ここまで】
SET LINE width 8
LET th=t2agl(h + m/60,12) !長針
PLOT LINES: 0,0; 0.6*COS(th),0.6*SIN(th)
SET LINE width 4
LET th=t2agl(m,60) !短針
PLOT LINES: 0,0; 0.8*COS(th),0.8*SIN(th)
SET LINE width 1
LET th=t2agl(s,60) !秒針
PLOT LINES: 0,0; 0.9*COS(th),0.9*SIN(th)
! 【SCL】【YHZ】
LET deltaHofAtoT=-13 ! 【SCL】【YHZ】は【TYO】-13
SET VIEWPORT 2/6,3/6,4/6,5/6
SET WINDOW -1.2,1.2,-1.2,1.2 !表示領域
LET t=TIME+deltaHofAtoT*3600 !次の三行削除
! 【作業中ここから】
IF t>=24*60^2 THEN LET h=INT((t-24*60^2)/3600)
IF t>=24*60^2 THEN LET m=INT(((t-24*60^2)-h*3600)/60)
IF t>=24*60^2 THEN LET s=(t-24*60^2)-h*3600-m*60
IF t>=24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)+1)
IF t>=0 AND t<24*60^2 THEN LET h=INT(t/3600)
IF t>=0 AND t<24*60^2 THEN LET m=INT((t-h*3600)/60)
IF t>=0 AND t<24*60^2 THEN LET s=t-h*3600-m*60
IF t>=0 AND t<24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100))
IF t<0 THEN LET h=INT((t+24*60^2)/3600)
IF t<0 THEN LET m=INT(((t+24*60^2)-h*3600)/60)
IF t<0 THEN LET s=(t+24*60^2)-h*3600-m*60
IF t<0 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)-1)
! 【作業中ここまで】
FOR i=1 TO 12 !文字盤
LET th=t2agl(i,12) !Ｙ軸から時計まわり
PLOT TEXT ,AT COS(th),SIN(th): STR$(i) !円周上
NEXT i
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.3: "SCL,YHZ" ! 【SCL】【YHZ】
! 【作業中ここから】
IF h<10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":"&"0"&STR$(m)
IF h<10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":" &STR$(m)
IF h>=10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":"&"0"&STR$(m)
IF h>=10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":" &STR$(m)
! 【作業中ここまで】
SET LINE width 8
LET th=t2agl(h + m/60,12) !長針
PLOT LINES: 0,0; 0.6*COS(th),0.6*SIN(th)
SET LINE width 4
LET th=t2agl(m,60) !短針
PLOT LINES: 0,0; 0.8*COS(th),0.8*SIN(th)
SET LINE width 1
LET th=t2agl(s,60) !秒針
PLOT LINES: 0,0; 0.9*COS(th),0.9*SIN(th)
! 【YYT】
LET deltaHofAtoT=-12.5 ! 【YYT】は【TYO】-13
SET VIEWPORT 3/6,4/6,4/6,5/6
SET WINDOW -1.2,1.2,-1.2,1.2 !表示領域
LET t=TIME+deltaHofAtoT*3600 !次の三行削除
! 【作業中ここから】
IF t>=24*60^2 THEN LET h=INT((t-24*60^2)/3600)
IF t>=24*60^2 THEN LET m=INT(((t-24*60^2)-h*3600)/60)
IF t>=24*60^2 THEN LET s=(t-24*60^2)-h*3600-m*60
IF t>=24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)+1)
IF t>=0 AND t<24*60^2 THEN LET h=INT(t/3600)
IF t>=0 AND t<24*60^2 THEN LET m=INT((t-h*3600)/60)
IF t>=0 AND t<24*60^2 THEN LET s=t-h*3600-m*60
IF t>=0 AND t<24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100))
IF t<0 THEN LET h=INT((t+24*60^2)/3600)
IF t<0 THEN LET m=INT(((t+24*60^2)-h*3600)/60)
IF t<0 THEN LET s=(t+24*60^2)-h*3600-m*60
IF t<0 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)-1)
! 【作業中ここまで】
FOR i=1 TO 12 !文字盤
LET th=t2agl(i,12) !Ｙ軸から時計まわり
PLOT TEXT ,AT COS(th),SIN(th): STR$(i) !円周上
NEXT i
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.3: "YYT" ! 【YYT】
! 【作業中ここから】
IF h<10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":"&"0"&STR$(m)
IF h<10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":" &STR$(m)
IF h>=10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":"&"0"&STR$(m)
IF h>=10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":" &STR$(m)
! 【作業中ここまで】
SET LINE width 8
LET th=t2agl(h + m/60,12) !長針
PLOT LINES: 0,0; 0.6*COS(th),0.6*SIN(th)
SET LINE width 4
LET th=t2agl(m,60) !短針
PLOT LINES: 0,0; 0.8*COS(th),0.8*SIN(th)
SET LINE width 1
LET th=t2agl(s,60) !秒針
PLOT LINES: 0,0; 0.9*COS(th),0.9*SIN(th)
! 【RIO】
LET deltaHofAtoT=-12 ! 【RIO】は【TYO】-12
SET VIEWPORT 4/6,5/6,4/6,5/6
SET WINDOW -1.2,1.2,-1.2,1.2 !表示領域
LET t=TIME+deltaHofAtoT*3600 !次の三行削除
! 【作業中ここから】
IF t>=24*60^2 THEN LET h=INT((t-24*60^2)/3600)
IF t>=24*60^2 THEN LET m=INT(((t-24*60^2)-h*3600)/60)
IF t>=24*60^2 THEN LET s=(t-24*60^2)-h*3600-m*60
IF t>=24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)+1)
IF t>=0 AND t<24*60^2 THEN LET h=INT(t/3600)
IF t>=0 AND t<24*60^2 THEN LET m=INT((t-h*3600)/60)
IF t>=0 AND t<24*60^2 THEN LET s=t-h*3600-m*60
IF t>=0 AND t<24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100))
IF t<0 THEN LET h=INT((t+24*60^2)/3600)
IF t<0 THEN LET m=INT(((t+24*60^2)-h*3600)/60)
IF t<0 THEN LET s=(t+24*60^2)-h*3600-m*60
IF t<0 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)-1)
! 【作業中ここまで】
FOR i=1 TO 12 !文字盤
LET th=t2agl(i,12) !Ｙ軸から時計まわり
PLOT TEXT ,AT COS(th),SIN(th): STR$(i) !円周上
NEXT i
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.3: "RIO" ! 【RIO】
! 【作業中ここから】
IF h<10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":"&"0"&STR$(m)
IF h<10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":" &STR$(m)
IF h>=10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":"&"0"&STR$(m)
IF h>=10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":" &STR$(m)
! 【作業中ここまで】
SET LINE width 8
LET th=t2agl(h + m/60,12) !長針
PLOT LINES: 0,0; 0.6*COS(th),0.6*SIN(th)
SET LINE width 4
LET th=t2agl(m,60) !短針
PLOT LINES: 0,0; 0.8*COS(th),0.8*SIN(th)
SET LINE width 1
LET th=t2agl(s,60) !秒針
PLOT LINES: 0,0; 0.9*COS(th),0.9*SIN(th)
! 【FEN】
LET deltaHofAtoT=-11 ! 【FEN】は【TYO】-11
SET VIEWPORT 5/6,6/6,4/6,5/6
SET WINDOW -1.2,1.2,-1.2,1.2 !表示領域
LET t=TIME+deltaHofAtoT*3600 !次の三行削除
! 【作業中ここから】
IF t>=24*60^2 THEN LET h=INT((t-24*60^2)/3600)
IF t>=24*60^2 THEN LET m=INT(((t-24*60^2)-h*3600)/60)
IF t>=24*60^2 THEN LET s=(t-24*60^2)-h*3600-m*60
IF t>=24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)+1)
IF t>=0 AND t<24*60^2 THEN LET h=INT(t/3600)
IF t>=0 AND t<24*60^2 THEN LET m=INT((t-h*3600)/60)
IF t>=0 AND t<24*60^2 THEN LET s=t-h*3600-m*60
IF t>=0 AND t<24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100))
IF t<0 THEN LET h=INT((t+24*60^2)/3600)
IF t<0 THEN LET m=INT(((t+24*60^2)-h*3600)/60)
IF t<0 THEN LET s=(t+24*60^2)-h*3600-m*60
IF t<0 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)-1)
! 【作業中ここまで】
FOR i=1 TO 12 !文字盤
LET th=t2agl(i,12) !Ｙ軸から時計まわり
PLOT TEXT ,AT COS(th),SIN(th): STR$(i) !円周上
NEXT i
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.3: "FEN" ! 【FEN】
! 【作業中ここから】
IF h<10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":"&"0"&STR$(m)
IF h<10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":" &STR$(m)
IF h>=10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":"&"0"&STR$(m)
IF h>=10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":" &STR$(m)
! 【作業中ここまで】
SET LINE width 8
LET th=t2agl(h + m/60,12) !長針
PLOT LINES: 0,0; 0.6*COS(th),0.6*SIN(th)
SET LINE width 4
LET th=t2agl(m,60) !短針
PLOT LINES: 0,0; 0.8*COS(th),0.8*SIN(th)
SET LINE width 1
LET th=t2agl(s,60) !秒針
PLOT LINES: 0,0; 0.9*COS(th),0.9*SIN(th)
! 【RAI】
LET deltaHofAtoT=-10 ! 【RAI】は【TYO】-10
SET VIEWPORT 0/6,1/6,5/6,6/6
SET WINDOW -1.2,1.2,-1.2,1.2 !表示領域
LET t=TIME+deltaHofAtoT*3600 !次の三行削除
! 【作業中ここから】
IF t>=24*60^2 THEN LET h=INT((t-24*60^2)/3600)
IF t>=24*60^2 THEN LET m=INT(((t-24*60^2)-h*3600)/60)
IF t>=24*60^2 THEN LET s=(t-24*60^2)-h*3600-m*60
IF t>=24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)+1)
IF t>=0 AND t<24*60^2 THEN LET h=INT(t/3600)
IF t>=0 AND t<24*60^2 THEN LET m=INT((t-h*3600)/60)
IF t>=0 AND t<24*60^2 THEN LET s=t-h*3600-m*60
IF t>=0 AND t<24*60^2 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100))
IF t<0 THEN LET h=INT((t+24*60^2)/3600)
IF t<0 THEN LET m=INT(((t+24*60^2)-h*3600)/60)
IF t<0 THEN LET s=(t+24*60^2)-h*3600-m*60
IF t<0 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.2: STR$(MOD(INT(VAL(DATE$)/100),100))&"/"&STR$(MOD(VAL(DATE$),100)-1)
! 【作業中ここまで】
FOR i=1 TO 12 !文字盤
LET th=t2agl(i,12) !Ｙ軸から時計まわり
PLOT TEXT ,AT COS(th),SIN(th): STR$(i) !円周上
NEXT i
PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-0.3: "RAI" ! 【RAI】
! 【作業中ここから】
IF h<10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":"&"0"&STR$(m)
IF h<10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: "0"&STR$(h)&":" &STR$(m)
IF h>=10 AND m<10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":"&"0"&STR$(m)
IF h>=10 AND m>=10 THEN PLOT TEXT ,AT COS(t2agl(12,12)),SIN(t2agl(12,12))-1.5: STR$(h)&":" &STR$(m)
! 【作業中ここまで】
SET LINE width 8
LET th=t2agl(h + m/60,12) !長針
PLOT LINES: 0,0; 0.6*COS(th),0.6*SIN(th)
SET LINE width 4
LET th=t2agl(m,60) !短針
PLOT LINES: 0,0; 0.8*COS(th),0.8*SIN(th)
SET LINE width 1
LET th=t2agl(s,60) !秒針
PLOT LINES: 0,0; 0.9*COS(th),0.9*SIN(th)
SET DRAW mode explicit !ちらつき防止（終了）
LOOP
END