[TODATX_2]
*ST
 Z36=13:DATE::IF Z36=13 THEN:GOTO *終了:ENDIF:  *Ｍ１以下では使えません m(_ _)m
 V2=Z36: IF Z36<10 THEN:V2="0"+V2:ENDIF:
 V3=Z37: IF Z37<10 THEN:V3="0"+V3:ENDIF:
 IF Z35<1900 THEN:
    IF Z35>88 THEN:Z35=Z35+1900:ELSE:Z35=Z35+2000:ENDIF:
    GOSUB *英語:
    X:
      F:年月日:8:4:4:4::年:月:日:曜:Z35:Z36:Z37::\:\:\::ESC:
      C:DR:0:2:C1*10000+C2*100+C3=W1:YMD[W1-S630101]=W2:(W2+5)MOD7=C4:
        C1-1988=C1,T:ESC:
      CTP:1:::1:
      SHU:::Y:1$    :平成:$  :０::
      Z35=[6,1]:Z36=[6,2]:Z37=[6,3]:Z38=[6,4]:
      V1=[6,1]+"年"+[6,2]+"月"+[6,3]+"日":
      V2=[7,1]+"年"+[7,2]+"月"+[7,3]+"日":
    X:
   ELSE:
    GOSUB *英語:
    TOKANJI:V1年V2月V3日:"V1":
    V4=Z35-1988: IF (Z35-1988)<10 THEN:V4="0"+V4:ENDIF:
    TOKANJI:平成V4年V2月V3日:"V2":
 ENDIF:
*曜日
 RESTORE *曜日:
 FOR Z10=0 TO Z38:
     ACCP:今日は何曜日  :%:V3=V0:
     ACCP:V3曜日を英語で:%:V4=V0:
 NEXT Z10:
 DATA "日","Sunday":
 DATA "月","Monday":
 DATA "火","Tuesday":
 DATA "水","Wednesday":
 DATA "木","Thursday":
 DATA "金","Friday":
 DATA "土","Saturday":
*おまけ
*数字
 IF Z37>29 THEN:V6="三十":
           ELSE:IF Z37>19 THEN:V6="二十":
                          ELSE:IF Z37>9 THEN:V6="十":ELSE:V6="":ENDIF:
                ENDIF:
 ENDIF:
 Z11=Z37MOD10:
 RESTORE *数字:
 FOR Z10=0 TO Z11:
     ACCP:Z10を漢数字では:%:
 NEXT Z10:
 V6=V6+V0+"日":
 DATA "",一,二,三,四,五,六,七,八,九:
*雅月
 RESTORE *雅月:
 FOR Z10=1 TO Z36:
     ACCP:Z10月は別名:%:
 NEXT Z10:
 V6=V0+V6:
 DATA 睦月,如月,弥生,卯月,皐月,水無月,文月,葉月,長月,神無月,霜月,師走:
*十二支
 RESTORE *十二支:
 Z11=(Z35-4)MOD12:
 FOR Z10=0 TO Z11:
     ACCP:Z10番目の十二支は:%:
 NEXT Z10:
 V6=V0+"年"+V6:
 DATA 子,丑,寅,卯,辰,巳,午,未,申,酉,戌,亥:
*十干
 RESTORE *十干:
 Z11=(Z35+6)MOD10:
 FOR Z10=0 TO Z11:
     ACCP:Z10番目の十干は:%:
 NEXT Z10:
 V6="平成"+V0+V6:
 DATA 甲,乙,丙,丁,戊,己,庚,辛,壬,癸:
*終了
 STOP:

*英語
 V1=Z35:
 RESTORE *英語:
 FOR Z10=1 TO Z36:
     ACCP:Z10月は英語で:%:
 NEXT Z10:
 DATA " Jan. "," Feb. "," Mar. "," Apr. "," May. "," Jun. ":
 DATA " Jul. "," Aug. "," Sep. "," Oct. "," Nov. "," Dec. ":
 V5=V3+V0+V1:
 RETURN: