DECLARE EXTERNAL FUNCTION YesNoBox$ 
PRINT
PRINT "仏像名称付け"
PRINT
DIM B1$(5),BB1$(5),B2$(6),BB2$(6),B3$(4),BB3$(4),B4$(8),BB4$(8),B$(5),BB$(5),C$(4),CC$(4),K$(7),KK$(7)
MAT READ C$
DATA "立像","座像","半跏像","その他"
MAT READ B$
DATA "如来","菩薩","明王","天","その他"
MAT READ B1$
DATA "釈迦","阿弥陀","薬師","大日","その他"
MAT READ B2$
DATA "観音","文殊","勢至","地蔵","弥勒","その他"
MAT READ B3$
DATA "不動","愛染","金剛夜叉","その他"
MAT READ B4$
DATA "弁財","大黒","毘沙門","吉祥","韋駄","帝釈","梵","その他"
MAT READ K$
DATA "聖","千手","馬頭","十一面","不空羂索","如意輪","その他"
LET CC$(1)="       立像 "
LET CC$(2)="       座像 "
LET CC$(3)="       半跏像 "
LET CC$(4)="       その他 "
LET BB$(1)="       如来 "
LET BB$(2)="       菩薩 "
LET BB$(3)="       明王 "
LET BB$(4)="       天 "
LET BB$(5)="       その他 "
LET BB1$(1)="       釈迦 "
LET BB1$(2)="       阿弥陀 "
LET BB1$(3)="       薬師 "
LET BB1$(4)="       大日 "
LET BB1$(5)="       その他 "
LET BB2$(1)="       観音 "
LET BB2$(2)="       文殊 "
LET BB2$(3)="       勢至 "
LET BB2$(4)="       地蔵 "
LET BB2$(5)="       弥勒 "
LET BB2$(6)="       その他 "
LET BB3$(1)="       不動 "
LET BB3$(2)="       愛染 "
LET BB3$(3)="       金剛夜叉 "
LET BB3$(4)="       その他 "
LET BB4$(1)="       弁財 "
LET BB4$(2)="       大黒 "
LET BB4$(3)="       毘沙門 "
LET BB4$(4)="       吉祥 "
LET BB4$(5)="       韋駄 "
LET BB4$(6)="       帝釈 "
LET BB4$(7)="       梵 "
LET BB4$(8)="       その他 "
LET KK$(1)="       聖 "
LET KK$(2)="       千手 "
LET KK$(3)="       馬頭 "
LET KK$(4)="       十一面 "
LET KK$(5)="       不空羂索 "
LET KK$(6)="       如意輪 "
LET KK$(7)="       その他 "

SELECT CASE YesNoBox$("仏像の姿勢が解りますか")
CASE "Y"
   GOTO 10
CASE "N"
   LET CCC$="不明"
   GOTO 20
END SELECT

10 LOCATE CHOICE(CC$):C
   LET CCC$=C$(C)
   IF C=4 THEN
      INPUT PROMPT "仏像の姿勢を入力→ ":CCC$
   END IF
20 LET Z$=CCC$
   PRINT
   PRINT "姿勢：";Z$
   PRINT
    
   SELECT CASE YesNoBox$("仏の種類が解りますか？")
   CASE "Y"
      GOTO 30
   CASE "N"
      LET Y$="不明"
      LET ST=1
      PRINT "仏の種類: 不明"
      GOTO 900
   END SELECT
    
30 LOCATE CHOICE(BB$):B
   LET Y$=B$(B)
   IF B=5 THEN
      INPUT PROMPT "仏の種類を入力→ ":Y$
   END IF
   PRINT "仏の種類: ";Y$
   PRINT
   IF B=1 THEN GOTO 100
   IF B=2 THEN GOTO 200
   IF B=3 THEN GOTO 300
   IF B=4 THEN GOTO 400
   IF B=5 THEN GOTO 900
    
100 SELECT CASE YesNoBox$("如来の種類が解りますか？")
    CASE "Y"
       GOTO 110
    CASE "N"
       LET BBB1$="不明"
       LET ST=1
       GOTO 120
    END SELECT
110 LOCATE CHOICE(BB1$):B1
    LET BBB1$=B1$(B1)
    IF B1=5 THEN
       INPUT PROMPT "如来の名前を入力→ ":BBB1$
    END IF
120 LET X$=BBB1$
    PRINT "如来の名前：";BBB1$
    PRINT
     
200 SELECT CASE YesNoBox$("菩薩の種類が解りますか？")
    CASE "Y"
       GOTO 210
    CASE "N"
       LET BBB2$="不明"
       GOTO 220
    END SELECT
210 LOCATE CHOICE(BB2$):B2
    LET BBB2$=B2$(B2)
220 LET X$=BBB2$
    PRINT "菩薩の名前：";BBB2$
    PRINT
    IF B2=1 THEN
       LET KKK$="不明"
250    SELECT CASE YesNoBox$("観音菩薩の名前が解りますか？")
       CASE "Y"
          GOTO 260
       CASE "N"
          LET TS=1
          GOTO 270
       END SELECT
260    LOCATE CHOICE(KK$):K
       LET KKK$=KK$(K)
       IF K=7 THEN
          INPUT PROMPT "観音菩薩の名前を入力→ ":KKK$
       END IF
        
        
        
270    LET R$=KKK$
       PRINT "観音菩薩の名前：";KKK$
       PRINT
    END IF   
    GOTO 900    
     
300 SELECT CASE YesNoBox$("明王の名前が解りますか？")
    CASE "Y"
       GOTO 310
    CASE "N"
       LET BBB3$="不明"
       LET ST=1
       GOTO 320
    END SELECT
310 LOCATE CHOICE(BB3$):B3
    LET BBB3$=B3$(B3)
    IF B3=4 THEN
       INPUT PROMPT "明王の名前を入力→ ":BBB3$
    END IF
320 LET X$=BBB3$
    PRINT "明王の名前：";BBB3$
    GOTO 900
     
400 SELECT CASE YesNoBox$("天の名前が解りますか？")
    CASE "Y"
       GOTO 410
    CASE "N"
       LET BBB4$="不明"
       LET ST=1
       GOTO 420
    END SELECT
410 LOCATE CHOICE(BB4$):B4
    LET BBB4$=B4$(B4)
    IF B4=8 THEN
       INPUT PROMPT "天の名前を入力→ ":BBB4$
    END IF
420 LET X$=BBB4$
    PRINT "天の名前：";BBB4$
    PRINT
     
900 PRINT
    IF ST=1 THEN 
       PRINT "→  仏像名は不明です。"
    ELSE
       IF TS=1 THEN
          PRINT "→  ";X$;Y$;Z$;"   が仏像の名称になります。"
       ELSE
          PRINT "→  ";R$;X$;Y$;Z$;"   が仏像の名称になります。"
       END IF
    END IF
    PRINT
    PRINT
 END
  
 MERGE "MSGBOX.LIB"