月齢カレンダーの修正(二度目) - gnuutera2012or文句うさびょん URL

2025/06/01 (Sun) 00:42:52

!!月齢カレンダーの修正(二度目)!!

!' カレンダー
!'
!' 投稿者：しばっち
!' 投稿日：2014年 9月 2日(火)19時16分5秒 　 通報 返信・引用
!'
!' ----------------------------------------------------------------------------------------------------
!' 加筆修正者：gnuutera2012
!' ※新元号が令和となり、あちこち加筆修正させていただきました。
!' (例)
!' ▼▼▼▼▼▼▼▼▼▼ここから▼▼▼▼▼▼▼▼▼▼
!' 加筆修正加筆修正加筆修正加筆修正加筆修正加筆修正
!' ▲▲▲▲▲▲▲▲▲▲ここまで▲▲▲▲▲▲▲▲▲▲
!' ----------------------------------------------------------------------------------------------------
DECLARE EXTERNAL FUNCTION SHUKU28$
DECLARE EXTERNAL FUNCTION CALC_ETO60$
!' ▼▼▼▼▼▼▼▼▼▼ここから▼▼▼▼▼▼▼▼▼▼
DECLARE EXTERNAL FUNCTION TYOKU12$
DECLARE EXTERNAL FUNCTION CALC_ETO61$
!' ▲▲▲▲▲▲▲▲▲▲ここまで▲▲▲▲▲▲▲▲▲▲
PUBLIC STRING SEKKI24$(0 TO 23, 0 TO 1),QROKUYOU$,QJUKKAN$,Z$
PUBLIC NUMERIC QYEAR,QURUU,QMONTH,QDAY,QMAGE,QMAGENOON,QILLUMI,QMPHASE,RM_SUN0
LET A4=297/210
!' LET B5=257/182
!' LET B4=364/257
LET XSIZE=800
LET YSIZE=INT(XSIZE*A4)
LET XS=XSIZE*75/800
LET YS=YSIZE*250/800
CALL GINIT(XSIZE,YSIZE)
LET HEIGHT=XSIZE*50/800
SET TEXT HEIGHT HEIGHT

!' ▼▼▼▼▼▼▼▼▼▼ここから▼▼▼▼▼▼▼▼▼▼
!' センター数学(BASIC)による「ゲームプログラミングの宝箱」をダウンロードして、実例\ユーティリティー\時間・日付\カレンダー.BASを開く。
!' https://hp.vector.co.jp/authors/VA008683/QA_Primary.htmも参照。
FUNCTION IsLeapYear(y) ! うるう年の判定
LET IsLeapYear=0
IF (MOD(y,4)=0 AND MOD(y,100)<>0) OR MOD(y,400)=0 THEN LET IsLeapYear=1 ! うるう年
END FUNCTION
!' ▲▲▲▲▲▲▲▲▲▲ここまで▲▲▲▲▲▲▲▲▲▲

DIM DD(12),MON$(12)
MAT READ DD
DATA 31,28,31,30,31,30,31,31,30,31,30,31

MAT READ MON$
DATA "睦月","如月","弥生","卯月","皐月","水無月","文月","葉月","長月","神無月","霜月","師走"
!' ▼▼▼▼▼▼▼▼▼▼ここから▼▼▼▼▼▼▼▼▼▼
!' LET YEAR = INT(VAL(DATE$)/10000)
!' LET MONTH = MOD(INT(VAL(DATE$)/100),100)
!' ▲▲▲▲▲▲▲▲▲▲ここまで▲▲▲▲▲▲▲▲▲▲
INPUT PROMPT "西暦=":YEAR$
IF YEAR$<>"" THEN LET YEAR=VAL(YEAR$)
INPUT PROMPT "月=":MONTH$
IF MONTH$<>"" THEN LET MONTH=VAL(MONTH$)
!' ▼▼▼▼▼▼▼▼▼▼ここから▼▼▼▼▼▼▼▼▼▼
IF IsLeapYear(YEAR)<>0 THEN LET DD(2)=29 !うるう年なら
!' ▲▲▲▲▲▲▲▲▲▲ここまで▲▲▲▲▲▲▲▲▲▲
LET TM = YMDT2JD(YEAR, MONTH, 1, 0, 0, 0)
LET R=MOD(TM+2,7)
SET LINE COLOR "BLACK"
LET XX=R*XSIZE/8

!' ▼▼▼▼▼▼▼▼▼▼ここから▼▼▼▼▼▼▼▼▼▼
IF ((YEAR= 2019 AND MONTH>= 5) AND (YEAR= 2019 AND MONTH=<12)) OR (YEAR>=2020 AND MONTH>= 1) THEN LET M$=" 令和"&STR$(YEAR-2018)&"年" !' 令和元年は2019年5月1日から。
IF ((YEAR>=1989 AND MONTH>= 1) AND (YEAR=<2018 AND MONTH=<12)) OR ((YEAR= 2019 AND MONTH>= 1) AND (YEAR= 2019 AND MONTH=< 4)) THEN LET M$=" 平成"&STR$(YEAR-1988)&"年" !' IF YEAR=<2018 AND YEAR>=1989 THEN LET GENGOUNEN$=STR$(YEAR-1988)
IF ((YEAR>=1926 AND MONTH>= 1) AND (YEAR=<1988 AND MONTH=<12)) THEN LET M$=" 昭和"&STR$(YEAR-1925)&"年" !' IF YEAR=<1988 AND YEAR>=1926 THEN LET GENGOUNEN$=STR$(YEAR-1925)
IF ((YEAR= 1912 AND MONTH>= 8) AND (YEAR= 1912 AND MONTH=<12)) OR ((YEAR>=1913 AND MONTH>= 1) AND (YEAR=<1925 AND MONTH=<12)) THEN LET M$=" 大正"&STR$(YEAR-1911)&"年" !' IF YEAR=<1925 AND YEAR>=1912 THEN LET GENGOUNEN$=STR$(YEAR-1911)
IF ((YEAR= 1868 AND MONTH>= 9) AND (YEAR= 1868 AND MONTH=<12)) OR ((YEAR>=1869 AND MONTH>= 1) AND (YEAR=<1911 AND MONTH=<12)) OR ((YEAR= 1912 AND MONTH>= 1) AND (YEAR= 1912 AND MONTH=< 7)) THEN LET M$=" 明治"&STR$(YEAR-1867)&"年" !' IF YEAR=<1911 AND YEAR>=1868 THEN LET GENGOUNEN$=STR$(YEAR-1867)
!' IF YEAR<1989 AND YEAR>=1926 THEN LET M$=" 昭和"&STR$(YEAR-1925)&"年"
!' IF YEAR<1926 AND YEAR>=1912 THEN LET M$=" 大正"&STR$(YEAR-1911)&"年"
!' IF YEAR<1912 AND YEAR>=1868 THEN LET M$=" 明治"&STR$(YEAR-1867)&"年"
!' ▲▲▲▲▲▲▲▲▲▲ここまで▲▲▲▲▲▲▲▲▲▲

!' ▼▼▼▼▼▼▼▼▼▼ここから▼▼▼▼▼▼▼▼▼▼
IF ((YEAR= 2019 AND MONTH>= 5) AND (YEAR= 2019 AND MONTH=<12)) OR (YEAR>=2020 AND MONTH>= 1) THEN LET ERA$="令和"&RIGHT$(" "&STR$(YEAR-2018),2)&"年" ! 令和元年は2019年5月1日から。
IF ((YEAR>=1989 AND MONTH>= 1) AND (YEAR=<2018 AND MONTH=<12)) OR ((YEAR= 2019 AND MONTH>= 1) AND (YEAR= 2019 AND MONTH=< 4)) THEN LET ERA$="平成"&RIGHT$(" "&STR$(YEAR-1988),2)&"年"
IF ((YEAR>=1926 AND MONTH>= 1) AND (YEAR=<1988 AND MONTH=<12)) THEN LET ERA$="昭和"&RIGHT$(" "&STR$(YEAR-1925),2)&"年"
IF ((YEAR= 1912 AND MONTH>= 8) AND (YEAR= 1912 AND MONTH=<12)) OR ((YEAR>=1913 AND MONTH>= 1) AND (YEAR=<1925 AND MONTH=<12)) THEN LET ERA$="大正"&RIGHT$(" "&STR$(YEAR-1911),2)&"年"
IF ((YEAR= 1868 AND MONTH>= 9) AND (YEAR= 1868 AND MONTH=<12)) OR ((YEAR>=1869 AND MONTH>= 1) AND (YEAR=<1911 AND MONTH=<12)) OR ((YEAR= 1912 AND MONTH>= 1) AND (YEAR= 1912 AND MONTH=< 7)) THEN LET ERA$="明治"&RIGHT$(" "&STR$(YEAR-1867),2)&"年"
!' ▲▲▲▲▲▲▲▲▲▲ここまで▲▲▲▲▲▲▲▲▲▲
CALL SYMBOL(XSIZE/2-HEIGHT*3,YSIZE/8,"BLACK",STR$(YEAR)&"年"&" "&STR$(MONTH)&"月")
SET TEXT HEIGHT HEIGHT/2
CALL SYMBOL(XSIZE/2+HEIGHT*4,YSIZE/9,"BLACK",M$)
CALL SYMBOL(XSIZE/2+HEIGHT*5,YSIZE/9+HEIGHT*2/3,"BLACK",CALC_ETO60$(YEAR))
CALL SYMBOL(XSIZE/2+HEIGHT*5,YSIZE/9+HEIGHT*4/3,"BLACK",MON$(MONTH))
SET TEXT HEIGHT HEIGHT
FOR I=0 TO 6
READ A$,COL$
DATA "日","RED","月","BLACK","火","BLACK","水","BLACK","木","BLACK","金","BLACK","土","BLUE"
CALL SYMBOL(XS+I*XSIZE/8,YSIZE/4,COL$,A$)
NEXT I
CALL CALC_SEKKI24(YEAR)
!' ▼▼▼▼▼▼▼▼▼▼ここから▼▼▼▼▼▼▼▼▼▼
! メモ帳に用いる場合に使う。
PRINT USING ">######## >######## ":RIGHT$(" "&YEAR$,4)&"年",RIGHT$(" "&MONTH$,2)&"月"
PRINT USING ">######## >######## ":ERA$,MON$(MONTH)
PRINT USING ">######## ":CALC_ETO60$(YEAR)
PRINT USING " ######## #### ################ ########## ######## ######## ###### #### #### #### ######## ###### ######## ##########":"新暦","曜日","祝祭日","旧暦","零時月齢","正午月齢","輝面比","月相","六曜","干支","九星","十二直","二十八宿","二十四節気"
!' ▲▲▲▲▲▲▲▲▲▲ここまで▲▲▲▲▲▲▲▲▲▲
FOR I=1 TO DD(MONTH)
LET FL=0
SET TEXT HEIGHT HEIGHT
LET COL$=DAYCOLOR$(YEAR,MONTH,I,R)
CALL SYMBOL(XS+XX,YS+YY,COL$,USING$("##",I))
CALL CALC_KYUREKI(YEAR,MONTH,I)
IF QURUU<>0 THEN LET N$="閏" ELSE LET N$=""
!' ▼▼▼▼▼▼▼▼▼▼ここから▼▼▼▼▼▼▼▼▼▼
IF QMONTH=1 AND QDAY=1 THEN LET Z$="旧正月"
!' ▲▲▲▲▲▲▲▲▲▲ここまで▲▲▲▲▲▲▲▲▲▲
LET TM = YMDT2JD(YEAR, MONTH, I, 0, 0, 0)
LET A$=CALC_JUKKAN$(TM)
LET B$=QSEI$(TM)
!' ▼▼▼▼▼▼▼▼▼▼ここから▼▼▼▼▼▼▼▼▼▼
! メモ帳に用いる場合に使う。
LET C$=MEMO_JUKKAN$(TM)
!' ▲▲▲▲▲▲▲▲▲▲ここまで▲▲▲▲▲▲▲▲▲▲
!' ▼▼▼▼▼▼▼▼▼▼ここから▼▼▼▼▼▼▼▼▼▼
! メモ帳に用いる場合に使う。
IF MONTH=1 OR MONTH=2 THEN LET ye=YEAR-1
IF MONTH=1 THEN LET mo=13
IF MONTH=2 THEN LET mo=14
IF MONTH<>1 AND MONTH<>2 THEN LET ye=YEAR
IF MONTH<>1 AND MONTH<>2 THEN LET mo=MONTH
LET c=INT(ye/100)
LET n=ye-INT(ye/100)*100
LET NIJYUUHASSHUKU=MOD(INT(12.25*c)+INT(1.25*n)+INT(2.6*(mo+1))+16+I,28)
!' ▲▲▲▲▲▲▲▲▲▲ここまで▲▲▲▲▲▲▲▲▲▲

!' ▼▼▼▼▼▼▼▼▼▼ここから▼▼▼▼▼▼▼▼▼▼
DIM SEKKIOF24$(31)
FOR K=0 TO 23
IF VAL(SEKKI24$(K, 0)(6:7))=MONTH AND VAL(SEKKI24$(K, 0)(9:10))=I THEN
IF Z$<>"" THEN
LET SEKKIOF24$(I)=SEKKI24$(K, 1)
LET FL=1
ELSE
LET SEKKIOF24$(I)=SEKKI24$(K, 1)
LET FL=2
END IF
EXIT FOR
END IF
NEXT K
!' ▲▲▲▲▲▲▲▲▲▲ここまで▲▲▲▲▲▲▲▲▲▲

!' ▼▼▼▼▼▼▼▼▼▼ここから▼▼▼▼▼▼▼▼▼▼
LET JDSHOUKANN=YMDT2JD(YEAR, VAL(SEKKI24$(0, 0)(6:6))*10+VAL(SEKKI24$(0, 0)(7:7)), VAL(SEKKI24$(0, 0)(9:9))*10+VAL(SEKKI24$(0, 0)(10:10)), 0, 0, 0)
FOR JUSHI=1 TO 12 !' Jではなく、JUSHIとする。
LET JDSHOUKANNUSHIKOUHO=JDSHOUKANN+JUSHI !' Jではなく、JUSHIとする。
LET DATEOFSHOUKANNUSHIKOUHO$=JD2YMDT$(JDSHOUKANNUSHIKOUHO)
LET SHOUKANNUSHIKOUHOMONTH=VAL(DATEOFSHOUKANNUSHIKOUHO$(6:6))*10+VAL(DATEOFSHOUKANNUSHIKOUHO$(7:7))
LET SHOUKANNUSHIKOUHODAY=VAL(DATEOFSHOUKANNUSHIKOUHO$(9:9))*10+VAL(DATEOFSHOUKANNUSHIKOUHO$(10:10))
LET TM=YMDT2JD(YEAR,SHOUKANNUSHIKOUHOMONTH,SHOUKANNUSHIKOUHODAY, 0, 0, 0)
IF SHOUKANNUSHIKOUHOMONTH=1 OR SHOUKANNUSHIKOUHOMONTH=2 THEN LET ye=YEAR-1
IF SHOUKANNUSHIKOUHOMONTH=1 THEN LET mo=13
IF SHOUKANNUSHIKOUHOMONTH=2 THEN LET mo=14
IF SHOUKANNUSHIKOUHOMONTH<>1 AND SHOUKANNUSHIKOUHOMONTH<>2 THEN LET ye=YEAR
IF SHOUKANNUSHIKOUHOMONTH<>1 AND SHOUKANNUSHIKOUHOMONTH<>2 THEN LET mo=SHOUKANNUSHIKOUHOMONTH
LET c=INT(ye/100)
LET n=ye-INT(ye/100)*100
LET JYUUNISHIJOUYOKEI=MOD(INT(44.25*c)+INT(5.25*n)+INT(30.6*(mo+1))+6+SHOUKANNUSHIKOUHODAY,12)
LET ETOMOJIWATASHI$=CALC_ETO61$(JYUUNISHIJOUYOKEI) !' IF SHOUKANNUSHIKOUHODAY>SD THENは不要かも?結局削除した。
IF ETOMOJIWATASHI$(2:2)="丑" THEN LET SHOUKANNUSHIMONTH=SHOUKANNUSHIKOUHOMONTH
IF ETOMOJIWATASHI$(2:2)="丑" THEN LET SHOUKANNUSHIDAY=SHOUKANNUSHIKOUHODAY
IF ETOMOJIWATASHI$(2:2)="丑" THEN EXIT FOR
NEXT JUSHI !' Jではなく、JUSHIとする。
LET JDRISSHUNN=YMDT2JD(YEAR, VAL(SEKKI24$(2, 0)(6:6))*10+VAL(SEKKI24$(2, 0)(7:7)), VAL(SEKKI24$(2, 0)(9:9))*10+VAL(SEKKI24$(2, 0)(10:10)), 0, 0, 0)
FOR JTORA=1 TO 12 !' Jではなく、JTORAとする。
LET JDRISSHUNNTORAKOUHO=JDRISSHUNN+JTORA !' Jではなく、JTORAとする。
LET DATEOFRISSHUNNTORAKOUHO$=JD2YMDT$(JDRISSHUNNTORAKOUHO)
LET RISSHUNNTORAKOUHOMONTH=VAL(DATEOFRISSHUNNTORAKOUHO$(6:6))*10+VAL(DATEOFRISSHUNNTORAKOUHO$(7:7))
LET RISSHUNNTORAKOUHODAY=VAL(DATEOFRISSHUNNTORAKOUHO$(9:9))*10+VAL(DATEOFRISSHUNNTORAKOUHO$(10:10))
LET TM=YMDT2JD(YEAR,RISSHUNNTORAKOUHOMONTH,RISSHUNNTORAKOUHODAY, 0, 0, 0)
IF RISSHUNNTORAKOUHOMONTH=1 OR RISSHUNNTORAKOUHOMONTH=2 THEN LET ye=YEAR-1
IF RISSHUNNTORAKOUHOMONTH=1 THEN LET mo=13
IF RISSHUNNTORAKOUHOMONTH=2 THEN LET mo=14
IF RISSHUNNTORAKOUHOMONTH<>1 AND RISSHUNNTORAKOUHOMONTH<>2 THEN LET ye=YEAR
IF RISSHUNNTORAKOUHOMONTH<>1 AND RISSHUNNTORAKOUHOMONTH<>2 THEN LET mo=RISSHUNNTORAKOUHOMONTH
LET c=INT(ye/100)
LET n=ye-INT(ye/100)*100
LET JYUUNISHIJOUYOKEI=MOD(INT(44.25*c)+INT(5.25*n)+INT(30.6*(mo+1))+6+RISSHUNNTORAKOUHODAY,12)
LET ETOMOJIWATASHI$=CALC_ETO61$(JYUUNISHIJOUYOKEI) !' IF RISSHUNNTORAKOUHODAY>SD THENは不要かも?結局削除した。
IF ETOMOJIWATASHI$(2:2)="寅" THEN LET RISSHUNNTORAMONTH=RISSHUNNTORAKOUHOMONTH
IF ETOMOJIWATASHI$(2:2)="寅" THEN LET RISSHUNNTORADAY=RISSHUNNTORAKOUHODAY
IF ETOMOJIWATASHI$(2:2)="寅" THEN EXIT FOR
NEXT JTORA !' Jではなく、JTORAとする。
LET JDKEICHITU=YMDT2JD(YEAR, VAL(SEKKI24$(4, 0)(6:6))*10+VAL(SEKKI24$(4, 0)(7:7)), VAL(SEKKI24$(4, 0)(9:9))*10+VAL(SEKKI24$(4, 0)(10:10)), 0, 0, 0)
FOR JUU=1 TO 12 !' Jではなく、JUUとする。
LET JDKEICHITUUUKOUHO=JDKEICHITU+JUU !' Jではなく、JUUとする。
LET DATEOFKEICHITUUUKOUHO$=JD2YMDT$(JDKEICHITUUUKOUHO)
LET KEICHITUUUKOUHOMONTH=VAL(DATEOFKEICHITUUUKOUHO$(6:6))*10+VAL(DATEOFKEICHITUUUKOUHO$(7:7))
LET KEICHITUUUKOUHODAY=VAL(DATEOFKEICHITUUUKOUHO$(9:9))*10+VAL(DATEOFKEICHITUUUKOUHO$(10:10))
LET TM=YMDT2JD(YEAR,KEICHITUUUKOUHOMONTH,KEICHITUUUKOUHODAY, 0, 0, 0)
IF KEICHITUUUKOUHOMONTH=1 OR KEICHITUUUKOUHOMONTH=2 THEN LET ye=YEAR-1
IF KEICHITUUUKOUHOMONTH=1 THEN LET mo=13
IF KEICHITUUUKOUHOMONTH=2 THEN LET mo=14
IF KEICHITUUUKOUHOMONTH<>1 AND KEICHITUUUKOUHOMONTH<>2 THEN LET ye=YEAR
IF KEICHITUUUKOUHOMONTH<>1 AND KEICHITUUUKOUHOMONTH<>2 THEN LET mo=KEICHITUUUKOUHOMONTH
LET c=INT(ye/100)
LET n=ye-INT(ye/100)*100
LET JYUUNISHIJOUYOKEI=MOD(INT(44.25*c)+INT(5.25*n)+INT(30.6*(mo+1))+6+KEICHITUUUKOUHODAY,12)
LET ETOMOJIWATASHI$=CALC_ETO61$(JYUUNISHIJOUYOKEI) !' IF KEICHITUUUKOUHODAY>SD THENは不要かも?結局削除した。
IF ETOMOJIWATASHI$(2:2)="卯" THEN LET KEICHITUUUMONTH=KEICHITUUUKOUHOMONTH
IF ETOMOJIWATASHI$(2:2)="卯" THEN LET KEICHITUUUDAY=KEICHITUUUKOUHODAY
IF ETOMOJIWATASHI$(2:2)="卯" THEN EXIT FOR
NEXT JUU !' Jではなく、JUUとする。
LET JDSEIMEI=YMDT2JD(YEAR, VAL(SEKKI24$(6, 0)(6:6))*10+VAL(SEKKI24$(6, 0)(7:7)), VAL(SEKKI24$(6, 0)(9:9))*10+VAL(SEKKI24$(6, 0)(10:10)), 0, 0, 0)
FOR JTATSU=1 TO 12 !' Jではなく、JTATSUとする。
LET JDSEIMEITATSUKOUHO=JDSEIMEI+JTATSU !' Jではなく、JTATSUとする。
LET DATEOFSEIMEITATSUKOUHO$=JD2YMDT$(JDSEIMEITATSUKOUHO)
LET SEIMEITATSUKOUHOMONTH=VAL(DATEOFSEIMEITATSUKOUHO$(6:6))*10+VAL(DATEOFSEIMEITATSUKOUHO$(7:7))
LET SEIMEITATSUKOUHODAY=VAL(DATEOFSEIMEITATSUKOUHO$(9:9))*10+VAL(DATEOFSEIMEITATSUKOUHO$(10:10))
LET TM=YMDT2JD(YEAR,SEIMEITATSUKOUHOMONTH,SEIMEITATSUKOUHODAY, 0, 0, 0)
IF SEIMEITATSUKOUHOMONTH=1 OR SEIMEITATSUKOUHOMONTH=2 THEN LET ye=YEAR-1
IF SEIMEITATSUKOUHOMONTH=1 THEN LET mo=13
IF SEIMEITATSUKOUHOMONTH=2 THEN LET mo=14
IF SEIMEITATSUKOUHOMONTH<>1 AND SEIMEITATSUKOUHOMONTH<>2 THEN LET ye=YEAR
IF SEIMEITATSUKOUHOMONTH<>1 AND SEIMEITATSUKOUHOMONTH<>2 THEN LET mo=SEIMEITATSUKOUHOMONTH
LET c=INT(ye/100)
LET n=ye-INT(ye/100)*100
LET JYUUNISHIJOUYOKEI=MOD(INT(44.25*c)+INT(5.25*n)+INT(30.6*(mo+1))+6+SEIMEITATSUKOUHODAY,12)
LET ETOMOJIWATASHI$=CALC_ETO61$(JYUUNISHIJOUYOKEI) !' IF SEIMEITATSUKOUHODAY>SD THENは不要かも?結局削除した。
IF ETOMOJIWATASHI$(2:2)="辰" THEN LET SEIMEITATSUMONTH=SEIMEITATSUKOUHOMONTH
IF ETOMOJIWATASHI$(2:2)="辰" THEN LET SEIMEITATSUDAY=SEIMEITATSUKOUHODAY
IF ETOMOJIWATASHI$(2:2)="辰" THEN EXIT FOR
NEXT JTATSU !' Jではなく、JTATSUとする。
LET JDRIKKA=YMDT2JD(YEAR, VAL(SEKKI24$(8, 0)(6:6))*10+VAL(SEKKI24$(8, 0)(7:7)), VAL(SEKKI24$(8, 0)(9:9))*10+VAL(SEKKI24$(8, 0)(10:10)), 0, 0, 0)
FOR JMI=1 TO 12 !' Jではなく、JMIとする。
LET JDRIKKAMIKOUHO=JDRIKKA+JMI !' Jではなく、JMIとする。
LET DATEOFRIKKAMIKOUHO$=JD2YMDT$(JDRIKKAMIKOUHO)
LET RIKKAMIKOUHOMONTH=VAL(DATEOFRIKKAMIKOUHO$(6:6))*10+VAL(DATEOFRIKKAMIKOUHO$(7:7))
LET RIKKAMIKOUHODAY=VAL(DATEOFRIKKAMIKOUHO$(9:9))*10+VAL(DATEOFRIKKAMIKOUHO$(10:10))
LET TM=YMDT2JD(YEAR,RIKKAMIKOUHOMONTH,RIKKAMIKOUHODAY, 0, 0, 0)
IF RIKKAMIKOUHOMONTH=1 OR RIKKAMIKOUHOMONTH=2 THEN LET ye=YEAR-1
IF RIKKAMIKOUHOMONTH=1 THEN LET mo=13
IF RIKKAMIKOUHOMONTH=2 THEN LET mo=14
IF RIKKAMIKOUHOMONTH<>1 AND RIKKAMIKOUHOMONTH<>2 THEN LET ye=YEAR
IF RIKKAMIKOUHOMONTH<>1 AND RIKKAMIKOUHOMONTH<>2 THEN LET mo=RIKKAMIKOUHOMONTH
LET c=INT(ye/100)
LET n=ye-INT(ye/100)*100
LET JYUUNISHIJOUYOKEI=MOD(INT(44.25*c)+INT(5.25*n)+INT(30.6*(mo+1))+6+RIKKAMIKOUHODAY,12)
LET ETOMOJIWATASHI$=CALC_ETO61$(JYUUNISHIJOUYOKEI) !' IF RIKKAMIKOUHODAY>SD THENは不要かも?結局削除した。
IF ETOMOJIWATASHI$(2:2)="巳" THEN LET RIKKAMIMONTH=RIKKAMIKOUHOMONTH
IF ETOMOJIWATASHI$(2:2)="巳" THEN LET RIKKAMIDAY=RIKKAMIKOUHODAY
IF ETOMOJIWATASHI$(2:2)="巳" THEN EXIT FOR
NEXT JMI !' Jではなく、JMIとする。
LET JDBOUSHU=YMDT2JD(YEAR, VAL(SEKKI24$(10, 0)(6:6))*10+VAL(SEKKI24$(10, 0)(7:7)), VAL(SEKKI24$(10, 0)(9:9))*10+VAL(SEKKI24$(10, 0)(10:10)), 0, 0, 0)
FOR JUMA=1 TO 12 !' Jではなく、JUMAとする。
LET JDBOUSHUUMAKOUHO=JDBOUSHU+JUMA !' Jではなく、JUMAとする。
LET DATEOFBOUSHUUMAKOUHO$=JD2YMDT$(JDBOUSHUUMAKOUHO)
LET BOUSHUUMAKOUHOMONTH=VAL(DATEOFBOUSHUUMAKOUHO$(6:6))*10+VAL(DATEOFBOUSHUUMAKOUHO$(7:7))
LET BOUSHUUMAKOUHODAY=VAL(DATEOFBOUSHUUMAKOUHO$(9:9))*10+VAL(DATEOFBOUSHUUMAKOUHO$(10:10))
LET TM=YMDT2JD(YEAR,BOUSHUUMAKOUHOMONTH,BOUSHUUMAKOUHODAY, 0, 0, 0)
IF BOUSHUUMAKOUHOMONTH=1 OR BOUSHUUMAKOUHOMONTH=2 THEN LET ye=YEAR-1
IF BOUSHUUMAKOUHOMONTH=1 THEN LET mo=13
IF BOUSHUUMAKOUHOMONTH=2 THEN LET mo=14
IF BOUSHUUMAKOUHOMONTH<>1 AND BOUSHUUMAKOUHOMONTH<>2 THEN LET ye=YEAR
IF BOUSHUUMAKOUHOMONTH<>1 AND BOUSHUUMAKOUHOMONTH<>2 THEN LET mo=BOUSHUUMAKOUHOMONTH
LET c=INT(ye/100)
LET n=ye-INT(ye/100)*100
LET JYUUNISHIJOUYOKEI=MOD(INT(44.25*c)+INT(5.25*n)+INT(30.6*(mo+1))+6+BOUSHUUMAKOUHODAY,12)
LET ETOMOJIWATASHI$=CALC_ETO61$(JYUUNISHIJOUYOKEI) !' IF BOUSHUUMAKOUHODAY>SD THENは不要かも?結局削除した。
IF ETOMOJIWATASHI$(2:2)="午" THEN LET BOUSHUUMAMONTH=BOUSHUUMAKOUHOMONTH
IF ETOMOJIWATASHI$(2:2)="午" THEN LET BOUSHUUMADAY=BOUSHUUMAKOUHODAY
IF ETOMOJIWATASHI$(2:2)="午" THEN EXIT FOR
NEXT JUMA !' Jではなく、JUMAとする。
LET JDSHOUSHO=YMDT2JD(YEAR, VAL(SEKKI24$(12, 0)(6:6))*10+VAL(SEKKI24$(12, 0)(7:7)), VAL(SEKKI24$(12, 0)(9:9))*10+VAL(SEKKI24$(12, 0)(10:10)), 0, 0, 0)
FOR JHITUJI=1 TO 12 !' Jではなく、JHITUJIとする。
LET JDSHOUSHOHITUJIKOUHO=JDSHOUSHO+JHITUJI !' Jではなく、JHITUJIとする。
LET DATEOFSHOUSHOHITUJIKOUHO$=JD2YMDT$(JDSHOUSHOHITUJIKOUHO)
LET SHOUSHOHITUJIKOUHOMONTH=VAL(DATEOFSHOUSHOHITUJIKOUHO$(6:6))*10+VAL(DATEOFSHOUSHOHITUJIKOUHO$(7:7))
LET SHOUSHOHITUJIKOUHODAY=VAL(DATEOFSHOUSHOHITUJIKOUHO$(9:9))*10+VAL(DATEOFSHOUSHOHITUJIKOUHO$(10:10))
LET TM=YMDT2JD(YEAR,SHOUSHOHITUJIKOUHOMONTH,SHOUSHOHITUJIKOUHODAY, 0, 0, 0)
IF SHOUSHOHITUJIKOUHOMONTH=1 OR SHOUSHOHITUJIKOUHOMONTH=2 THEN LET ye=YEAR-1
IF SHOUSHOHITUJIKOUHOMONTH=1 THEN LET mo=13
IF SHOUSHOHITUJIKOUHOMONTH=2 THEN LET mo=14
IF SHOUSHOHITUJIKOUHOMONTH<>1 AND SHOUSHOHITUJIKOUHOMONTH<>2 THEN LET ye=YEAR
IF SHOUSHOHITUJIKOUHOMONTH<>1 AND SHOUSHOHITUJIKOUHOMONTH<>2 THEN LET mo=SHOUSHOHITUJIKOUHOMONTH
LET c=INT(ye/100)
LET n=ye-INT(ye/100)*100
LET JYUUNISHIJOUYOKEI=MOD(INT(44.25*c)+INT(5.25*n)+INT(30.6*(mo+1))+6+SHOUSHOHITUJIKOUHODAY,12)
LET ETOMOJIWATASHI$=CALC_ETO61$(JYUUNISHIJOUYOKEI) !' IF SHOUSHOHITUJIKOUHODAY>SD THENは不要かも?結局削除した。
IF ETOMOJIWATASHI$(2:2)="未" THEN LET SHOUSHOHITUJIMONTH=SHOUSHOHITUJIKOUHOMONTH
IF ETOMOJIWATASHI$(2:2)="未" THEN LET SHOUSHOHITUJIDAY=SHOUSHOHITUJIKOUHODAY
IF ETOMOJIWATASHI$(2:2)="未" THEN EXIT FOR
NEXT JHITUJI !' Jではなく、JHITUJIとする。
LET JDRISSHUU=YMDT2JD(YEAR, VAL(SEKKI24$(14, 0)(6:6))*10+VAL(SEKKI24$(14, 0)(7:7)), VAL(SEKKI24$(14, 0)(9:9))*10+VAL(SEKKI24$(14, 0)(10:10)), 0, 0, 0)
FOR JSARU=1 TO 12 !' Jではなく、JSARUとする。
LET JDRISSHUUSARUKOUHO=JDRISSHUU+JSARU !' Jではなく、JSARUとする。
LET DATEOFRISSHUUSARUKOUHO$=JD2YMDT$(JDRISSHUUSARUKOUHO)
LET RISSHUUSARUKOUHOMONTH=VAL(DATEOFRISSHUUSARUKOUHO$(6:6))*10+VAL(DATEOFRISSHUUSARUKOUHO$(7:7))
LET RISSHUUSARUKOUHODAY=VAL(DATEOFRISSHUUSARUKOUHO$(9:9))*10+VAL(DATEOFRISSHUUSARUKOUHO$(10:10))
LET TM=YMDT2JD(YEAR,RISSHUUSARUKOUHOMONTH,RISSHUUSARUKOUHODAY, 0, 0, 0)
IF RISSHUUSARUKOUHOMONTH=1 OR RISSHUUSARUKOUHOMONTH=2 THEN LET ye=YEAR-1
IF RISSHUUSARUKOUHOMONTH=1 THEN LET mo=13
IF RISSHUUSARUKOUHOMONTH=2 THEN LET mo=14
IF RISSHUUSARUKOUHOMONTH<>1 AND RISSHUUSARUKOUHOMONTH<>2 THEN LET ye=YEAR
IF RISSHUUSARUKOUHOMONTH<>1 AND RISSHUUSARUKOUHOMONTH<>2 THEN LET mo=RISSHUUSARUKOUHOMONTH
LET c=INT(ye/100)
LET n=ye-INT(ye/100)*100
LET JYUUNISHIJOUYOKEI=MOD(INT(44.25*c)+INT(5.25*n)+INT(30.6*(mo+1))+6+RISSHUUSARUKOUHODAY,12)
LET ETOMOJIWATASHI$=CALC_ETO61$(JYUUNISHIJOUYOKEI) !' IF RISSHUUSARUKOUHODAY>SD THENは不要かも?結局削除した。
IF ETOMOJIWATASHI$(2:2)="申" THEN LET RISSHUUSARUMONTH=RISSHUUSARUKOUHOMONTH
IF ETOMOJIWATASHI$(2:2)="申" THEN LET RISSHUUSARUDAY=RISSHUUSARUKOUHODAY
IF ETOMOJIWATASHI$(2:2)="申" THEN EXIT FOR
NEXT JSARU !' Jではなく、JSARUとする。
LET JDHAKURO=YMDT2JD(YEAR, VAL(SEKKI24$(16, 0)(6:6))*10+VAL(SEKKI24$(16, 0)(7:7)), VAL(SEKKI24$(16, 0)(9:9))*10+VAL(SEKKI24$(16, 0)(10:10)), 0, 0, 0)
FOR JTORI=1 TO 12 !' Jではなく、JTORIとする。
LET JDHAKUROTORIKOUHO=JDHAKURO+JTORI !' Jではなく、JTORIとする。
LET DATEOFHAKUROTORIKOUHO$=JD2YMDT$(JDHAKUROTORIKOUHO)
LET HAKUROTORIKOUHOMONTH=VAL(DATEOFHAKUROTORIKOUHO$(6:6))*10+VAL(DATEOFHAKUROTORIKOUHO$(7:7))
LET HAKUROTORIKOUHODAY=VAL(DATEOFHAKUROTORIKOUHO$(9:9))*10+VAL(DATEOFHAKUROTORIKOUHO$(10:10))
LET TM=YMDT2JD(YEAR,HAKUROTORIKOUHOMONTH,HAKUROTORIKOUHODAY, 0, 0, 0)
IF HAKUROTORIKOUHOMONTH=1 OR HAKUROTORIKOUHOMONTH=2 THEN LET ye=YEAR-1
IF HAKUROTORIKOUHOMONTH=1 THEN LET mo=13
IF HAKUROTORIKOUHOMONTH=2 THEN LET mo=14
IF HAKUROTORIKOUHOMONTH<>1 AND HAKUROTORIKOUHOMONTH<>2 THEN LET ye=YEAR
IF HAKUROTORIKOUHOMONTH<>1 AND HAKUROTORIKOUHOMONTH<>2 THEN LET mo=HAKUROTORIKOUHOMONTH
LET c=INT(ye/100)
LET n=ye-INT(ye/100)*100
LET JYUUNISHIJOUYOKEI=MOD(INT(44.25*c)+INT(5.25*n)+INT(30.6*(mo+1))+6+HAKUROTORIKOUHODAY,12)
LET ETOMOJIWATASHI$=CALC_ETO61$(JYUUNISHIJOUYOKEI) !' IF RISSHUUSARUKOUHODAY>SD THENは不要かも?結局削除した。
IF ETOMOJIWATASHI$(2:2)="酉" THEN LET HAKUROTORIMONTH=HAKUROTORIKOUHOMONTH
IF ETOMOJIWATASHI$(2:2)="酉" THEN LET HAKUROTORIDAY=HAKUROTORIKOUHODAY
IF ETOMOJIWATASHI$(2:2)="酉" THEN EXIT FOR
NEXT JTORI !' Jではなく、JTORIとする。
LET JDKANNRO=YMDT2JD(YEAR, VAL(SEKKI24$(18, 0)(6:6))*10+VAL(SEKKI24$(18, 0)(7:7)), VAL(SEKKI24$(18, 0)(9:9))*10+VAL(SEKKI24$(18, 0)(10:10)), 0, 0, 0)
FOR JINU=1 TO 12 !' Jではなく、JINUとする。
LET JDKANNROINUKOUHO=JDKANNRO+JINU !' Jではなく、JINUとする。転記ミス発見。LET JDKANNROINUKOUHO=JDHAKURO+JINUをLET JDKANNROINUKOUHO=JDKANNRO+JINUに直した。
LET DATEOFKANNROINUKOUHO$=JD2YMDT$(JDKANNROINUKOUHO)
LET KANNROINUKOUHOMONTH=VAL(DATEOFKANNROINUKOUHO$(6:6))*10+VAL(DATEOFKANNROINUKOUHO$(7:7))
LET KANNROINUKOUHODAY=VAL(DATEOFKANNROINUKOUHO$(9:9))*10+VAL(DATEOFKANNROINUKOUHO$(10:10))
LET TM=YMDT2JD(YEAR,KANNROINUKOUHOMONTH,KANNROINUKOUHODAY, 0, 0, 0)
IF KANNROINUKOUHOMONTH=1 OR KANNROINUKOUHOMONTH=2 THEN LET ye=YEAR-1
IF KANNROINUKOUHOMONTH=1 THEN LET mo=13
IF KANNROINUKOUHOMONTH=2 THEN LET mo=14
IF KANNROINUKOUHOMONTH<>1 AND KANNROINUKOUHOMONTH<>2 THEN LET ye=YEAR
IF KANNROINUKOUHOMONTH<>1 AND KANNROINUKOUHOMONTH<>2 THEN LET mo=KANNROINUKOUHOMONTH
LET c=INT(ye/100)
LET n=ye-INT(ye/100)*100
LET JYUUNISHIJOUYOKEI=MOD(INT(44.25*c)+INT(5.25*n)+INT(30.6*(mo+1))+6+KANNROINUKOUHODAY,12)
LET ETOMOJIWATASHI$=CALC_ETO61$(JYUUNISHIJOUYOKEI) !' IF KANNROINUKOUHODAY>SD THENは不要かも?結局削除した。
IF ETOMOJIWATASHI$(2:2)="戌" THEN LET KANNROINUMONTH=KANNROINUKOUHOMONTH
IF ETOMOJIWATASHI$(2:2)="戌" THEN LET KANNROINUDAY=KANNROINUKOUHODAY
IF ETOMOJIWATASHI$(2:2)="戌" THEN EXIT FOR
NEXT JINU !' Jではなく、JINUとする。
LET JDRITTOU=YMDT2JD(YEAR, VAL(SEKKI24$(20, 0)(6:6))*10+VAL(SEKKI24$(20, 0)(7:7)), VAL(SEKKI24$(20, 0)(9:9))*10+VAL(SEKKI24$(20, 0)(10:10)), 0, 0, 0)
FOR JII=1 TO 12 !' Jではなく、JIIとする。
LET JDRITTOUIIKOUHO=JDRITTOU+JII !' Jではなく、JIIとする。
LET DATEOFRITTOUIIKOUHO$=JD2YMDT$(JDRITTOUIIKOUHO)
LET RITTOUIIKOUHOMONTH=VAL(DATEOFRITTOUIIKOUHO$(6:6))*10+VAL(DATEOFRITTOUIIKOUHO$(7:7))
LET RITTOUIIKOUHODAY=VAL(DATEOFRITTOUIIKOUHO$(9:9))*10+VAL(DATEOFRITTOUIIKOUHO$(10:10))
LET TM=YMDT2JD(YEAR,RITTOUIIKOUHOMONTH,RITTOUIIKOUHODAY, 0, 0, 0)
IF RITTOUIIKOUHOMONTH=1 OR RITTOUIIKOUHOMONTH=2 THEN LET ye=YEAR-1
IF RITTOUIIKOUHOMONTH=1 THEN LET mo=13
IF RITTOUIIKOUHOMONTH=2 THEN LET mo=14
IF RITTOUIIKOUHOMONTH<>1 AND RITTOUIIKOUHOMONTH<>2 THEN LET ye=YEAR
IF RITTOUIIKOUHOMONTH<>1 AND RITTOUIIKOUHOMONTH<>2 THEN LET mo=RITTOUIIKOUHOMONTH
LET c=INT(ye/100)
LET n=ye-INT(ye/100)*100
LET JYUUNISHIJOUYOKEI=MOD(INT(44.25*c)+INT(5.25*n)+INT(30.6*(mo+1))+6+RITTOUIIKOUHODAY,12)
LET ETOMOJIWATASHI$=CALC_ETO61$(JYUUNISHIJOUYOKEI) !' IF RITTOUIIKOUHODAY>SD THENは不要かも?結局削除した。
IF ETOMOJIWATASHI$(2:2)="亥" THEN LET RITTOUIIMONTH=RITTOUIIKOUHOMONTH
IF ETOMOJIWATASHI$(2:2)="亥" THEN LET RITTOUIIDAY=RITTOUIIKOUHODAY
IF ETOMOJIWATASHI$(2:2)="亥" THEN EXIT FOR
NEXT JII !' Jではなく、JIIとする。
LET JDDAISETSU=YMDT2JD(YEAR, VAL(SEKKI24$(22, 0)(6:6))*10+VAL(SEKKI24$(22, 0)(7:7)), VAL(SEKKI24$(22, 0)(9:9))*10+VAL(SEKKI24$(22, 0)(10:10)), 0, 0, 0)
FOR JNE=1 TO 12 !' Jではなく、JNEとする。
LET JDDAISETSUNEKOUHO=JDDAISETSU+JNE !' Jではなく、JNEとする。
LET DATEOFDAISETSUNEKOUHO$=JD2YMDT$(JDDAISETSUNEKOUHO)
LET DAISETSUNEKOUHOMONTH=VAL(DATEOFDAISETSUNEKOUHO$(6:6))*10+VAL(DATEOFDAISETSUNEKOUHO$(7:7))
LET DAISETSUNEKOUHODAY=VAL(DATEOFDAISETSUNEKOUHO$(9:9))*10+VAL(DATEOFDAISETSUNEKOUHO$(10:10))
LET TM=YMDT2JD(YEAR,DAISETSUNEKOUHOMONTH,DAISETSUNEKOUHODAY, 0, 0, 0)
IF DAISETSUNEKOUHOMONTH=1 OR DAISETSUNEKOUHOMONTH=2 THEN LET ye=YEAR-1
IF DAISETSUNEKOUHOMONTH=1 THEN LET mo=13
IF DAISETSUNEKOUHOMONTH=2 THEN LET mo=14
IF DAISETSUNEKOUHOMONTH<>1 AND DAISETSUNEKOUHOMONTH<>2 THEN LET ye=YEAR
IF DAISETSUNEKOUHOMONTH<>1 AND DAISETSUNEKOUHOMONTH<>2 THEN LET mo=DAISETSUNEKOUHOMONTH
LET c=INT(ye/100)
LET n=ye-INT(ye/100)*100
LET JYUUNISHIJOUYOKEI=MOD(INT(44.25*c)+INT(5.25*n)+INT(30.6*(mo+1))+6+DAISETSUNEKOUHODAY,12)
LET ETOMOJIWATASHI$=CALC_ETO61$(JYUUNISHIJOUYOKEI) !' IF DAISETSUNEKOUHODAY>SD THENは不要かも?結局削除した。
IF ETOMOJIWATASHI$(2:2)="子" THEN LET DAISETSUNEMONTH=DAISETSUNEKOUHOMONTH
IF ETOMOJIWATASHI$(2:2)="子" THEN LET DAISETSUNEDAY=DAISETSUNEKOUHODAY
IF ETOMOJIWATASHI$(2:2)="子" THEN EXIT FOR
NEXT JNE !' Jではなく、JNEとする。
!' ▲▲▲▲▲▲▲▲▲▲ここまで▲▲▲▲▲▲▲▲▲▲

!' ▼▼▼▼▼▼▼▼▼▼ここから▼▼▼▼▼▼▼▼▼▼
DIM TYOKUOF12$(42)
IF MONTH=SHOUKANNUSHIMONTH AND I <SHOUKANNUSHIDAY-JUSHI AND I>0 THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-SHOUKANNUSHIDAY+1,12))
IF MONTH=SHOUKANNUSHIMONTH AND I=>SHOUKANNUSHIDAY-JUSHI AND I=<DD(SHOUKANNUSHIMONTH) THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-SHOUKANNUSHIDAY,12))
IF MONTH=RISSHUNNTORAMONTH AND I <RISSHUNNTORADAY AND I>0 THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-SHOUKANNUSHIDAY +DD(SHOUKANNUSHIMONTH),12))
IF MONTH=RISSHUNNTORAMONTH AND I=>RISSHUNNTORADAY-JTORA AND I<RISSHUNNTORADAY THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-SHOUKANNUSHIDAY +DD(SHOUKANNUSHIMONTH)-1,12))
IF MONTH=RISSHUNNTORAMONTH AND I=>RISSHUNNTORADAY THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-RISSHUNNTORADAY,12))
IF MONTH=KEICHITUUUMONTH AND I <KEICHITUUUDAY AND I>0 THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-RISSHUNNTORADAY +DD(RISSHUNNTORAMONTH),12))
IF MONTH=KEICHITUUUMONTH AND I=>KEICHITUUUDAY-JUU AND I<KEICHITUUUDAY THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-RISSHUNNTORADAY +DD(RISSHUNNTORAMONTH)-1,12))
IF MONTH=KEICHITUUUMONTH AND I=>KEICHITUUUDAY THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-KEICHITUUUDAY,12))
IF MONTH=SEIMEITATSUMONTH AND I <SEIMEITATSUDAY AND I>0 THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-KEICHITUUUDAY +DD(KEICHITUUUMONTH),12))
IF MONTH=SEIMEITATSUMONTH AND I=>SEIMEITATSUDAY-JTATSU AND I<SEIMEITATSUDAY THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-KEICHITUUUDAY +DD(KEICHITUUUMONTH)-1,12))
IF MONTH=SEIMEITATSUMONTH AND I=>SEIMEITATSUDAY THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-SEIMEITATSUDAY,12))
IF MONTH=RIKKAMIMONTH AND I <RIKKAMIDAY AND I>0 THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-SEIMEITATSUDAY +DD(SEIMEITATSUMONTH),12))
IF MONTH=RIKKAMIMONTH AND I=>RIKKAMIDAY-JMI AND I<RIKKAMIDAY THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-SEIMEITATSUDAY +DD(SEIMEITATSUMONTH)-1,12))
IF MONTH=RIKKAMIMONTH AND I=>RIKKAMIDAY THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-RIKKAMIDAY,12))
IF MONTH=BOUSHUUMAMONTH AND I <BOUSHUUMADAY AND I>0 THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-RIKKAMIDAY +DD(RIKKAMIMONTH),12))
IF MONTH=BOUSHUUMAMONTH AND I=>BOUSHUUMADAY-JUMA AND I<BOUSHUUMADAY THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-RIKKAMIDAY +DD(RIKKAMIMONTH)-1,12))
IF MONTH=BOUSHUUMAMONTH AND I=>BOUSHUUMADAY THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-BOUSHUUMADAY,12))
IF MONTH=SHOUSHOHITUJIMONTH AND I <SHOUSHOHITUJIDAY AND I>0 THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-BOUSHUUMADAY +DD(BOUSHUUMAMONTH),12))
IF MONTH=SHOUSHOHITUJIMONTH AND I=>SHOUSHOHITUJIDAY-JHITUJI AND I<SHOUSHOHITUJIDAY THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-BOUSHUUMADAY +DD(BOUSHUUMAMONTH)-1,12))
IF MONTH=SHOUSHOHITUJIMONTH AND I=>SHOUSHOHITUJIDAY THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-SHOUSHOHITUJIDAY,12))
IF MONTH=RISSHUUSARUMONTH AND I <RISSHUUSARUDAY AND I>0 THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-SHOUSHOHITUJIDAY +DD(SHOUSHOHITUJIMONTH),12))
IF MONTH=RISSHUUSARUMONTH AND I=>RISSHUUSARUDAY-JSARU AND I<RISSHUUSARUDAY THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-SHOUSHOHITUJIDAY +DD(SHOUSHOHITUJIMONTH)-1,12)) !' RISSHUUSARUDAY-JSARU =< I < RISSHUUSARUDAY を満たす日だけはRISSHUUSARUDAY-JSARUの日はRISSHUUSARUDAY-JSARU-1の十二直を一日だけ繰り返したあとで、さらに規則を続ける。
IF MONTH=RISSHUUSARUMONTH AND I=>RISSHUUSARUDAY THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-RISSHUUSARUDAY,12))
IF MONTH=HAKUROTORIMONTH AND I <HAKUROTORIDAY AND I>0 THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-RISSHUUSARUDAY +DD(RISSHUUSARUMONTH),12))
IF MONTH=HAKUROTORIMONTH AND I=>HAKUROTORIDAY-JTORI AND I<HAKUROTORIDAY THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-RISSHUUSARUDAY +DD(RISSHUUSARUMONTH)-1,12))
IF MONTH=HAKUROTORIMONTH AND I=>HAKUROTORIDAY THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-HAKUROTORIDAY,12))
IF MONTH=KANNROINUMONTH AND I <KANNROINUDAY AND I>0 THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-HAKUROTORIDAY +DD(HAKUROTORIMONTH),12))
IF MONTH=KANNROINUMONTH AND I=>KANNROINUDAY-JINU AND I<KANNROINUDAY THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-HAKUROTORIDAY +DD(HAKUROTORIMONTH)-1,12))
IF MONTH=KANNROINUMONTH AND I=>KANNROINUDAY THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-KANNROINUDAY,12))
IF MONTH=RITTOUIIMONTH AND I <RITTOUIIDAY AND I>0 THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-KANNROINUDAY +DD(KANNROINUMONTH),12))
IF MONTH=RITTOUIIMONTH AND I=>RITTOUIIDAY-JII AND I<RITTOUIIDAY THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-KANNROINUDAY +DD(KANNROINUMONTH)-1,12))
IF MONTH=RITTOUIIMONTH AND I=>RITTOUIIDAY THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-RITTOUIIDAY,12))
IF MONTH=DAISETSUNEMONTH AND I <DAISETSUNEDAY AND I>0 THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-RITTOUIIDAY +DD(RITTOUIIMONTH),12))
IF MONTH=DAISETSUNEMONTH AND I=>DAISETSUNEDAY-JNE AND I<DAISETSUNEDAY THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-RITTOUIIDAY +DD(RITTOUIIMONTH)-1,12))
IF MONTH=DAISETSUNEMONTH AND I=>DAISETSUNEDAY THEN LET TYOKUOF12$(I)=TYOKU12$(MOD(I-DAISETSUNEDAY,12))
!' ▲▲▲▲▲▲▲▲▲▲ここまで▲▲▲▲▲▲▲▲▲▲

!' ▼▼▼▼▼▼▼▼▼▼ここから▼▼▼▼▼▼▼▼▼▼
SET TEXT HEIGHT HEIGHT*.2
CALL MOON(XS+XX+HEIGHT*.6,YS+YY+HEIGHT*.5,HEIGHT*.5,QMAGENOON-.5,QILLUMI/100)
CALL SYMBOL(XS+XX,YS+YY+HEIGHT*.25,COL$,QROKUYOU$&" "&N$&STR$(QMONTH)&"/"&STR$(QDAY))
CALL SYMBOL(XS+XX,YS+YY+HEIGHT*.5,COL$,A$)
CALL SYMBOL(XS+XX,YS+YY+HEIGHT*.75,COL$,B$)
CALL SYMBOL(XS+XX,YS+YY+HEIGHT*1.0,COL$,TYOKUOF12$(I))
CALL SYMBOL(XS+XX,YS+YY+HEIGHT*1.25,COL$,SHUKU28$(NIJYUUHASSHUKU))
IF Z$<>"" THEN CALL SYMBOL(XS+XX,YS+YY+HEIGHT*1.5,"GREEN",Z$)
FOR K=0 TO 23
IF VAL(SEKKI24$(K, 0)(6:7))=MONTH AND VAL(SEKKI24$(K, 0)(9:10))=I THEN
IF Z$<>"" THEN
CALL SYMBOL(XS+XX,YS+YY+HEIGHT*1.75,"MAGENTA",SEKKI24$(K, 1))
LET FL=1
ELSE
CALL SYMBOL(XS+XX,YS+YY+HEIGHT*1.5,"MAGENTA",SEKKI24$(K, 1))
LET FL=2
END IF
EXIT FOR
END IF
NEXT K
!' ▲▲▲▲▲▲▲▲▲▲ここまで▲▲▲▲▲▲▲▲▲▲

!' ▼▼▼▼▼▼▼▼▼▼ここから▼▼▼▼▼▼▼▼▼▼
FOR K=0 TO 23
IF VAL(SEKKI24$(K, 0)(6:7))=MONTH THEN
IF VAL(SEKKI24$(K, 0)(9:10))= I THEN
IF MOD(I+R-1,7)=0 THEN
PRINT USING ">######## ####>################>########## --.# --.#>######>####>####>####>########>######>########>##########" : RIGHT$(" "&MONTH$,2)&"月"&RIGHT$(" "&STR$(I),2)&"日","日",Z$,RIGHT$(" "&N$&STR$(QMONTH),3)&"月"&RIGHT$(" "&STR$(QDAY),2)&"日",QMAGE,QMAGENOON,QILLUMI,QMPHASE,QROKUYOU$,C$,B$,TYOKUOF12$(I),SHUKU28$(NIJYUUHASSHUKU),SEKKIOF24$(I)
END IF
IF MOD(I+R-1,7)=1 THEN
PRINT USING ">######## ####>################>########## --.# --.#>######>####>####>####>########>######>########>##########" : RIGHT$(" "&MONTH$,2)&"月"&RIGHT$(" "&STR$(I),2)&"日","月",Z$,RIGHT$(" "&N$&STR$(QMONTH),3)&"月"&RIGHT$(" "&STR$(QDAY),2)&"日",QMAGE,QMAGENOON,QILLUMI,QMPHASE,QROKUYOU$,C$,B$,TYOKUOF12$(I),SHUKU28$(NIJYUUHASSHUKU),SEKKIOF24$(I)
END IF
IF MOD(I+R-1,7)=2 THEN
PRINT USING ">######## ####>################>########## --.# --.#>######>####>####>####>########>######>########>##########" : RIGHT$(" "&MONTH$,2)&"月"&RIGHT$(" "&STR$(I),2)&"日","火",Z$,RIGHT$(" "&N$&STR$(QMONTH),3)&"月"&RIGHT$(" "&STR$(QDAY),2)&"日",QMAGE,QMAGENOON,QILLUMI,QMPHASE,QROKUYOU$,C$,B$,TYOKUOF12$(I),SHUKU28$(NIJYUUHASSHUKU),SEKKIOF24$(I)
END IF
IF MOD(I+R-1,7)=3 THEN
PRINT USING ">######## ####>################>########## --.# --.#>######>####>####>####>########>######>########>##########" : RIGHT$(" "&MONTH$,2)&"月"&RIGHT$(" "&STR$(I),2)&"日","水",Z$,RIGHT$(" "&N$&STR$(QMONTH),3)&"月"&RIGHT$(" "&STR$(QDAY),2)&"日",QMAGE,QMAGENOON,QILLUMI,QMPHASE,QROKUYOU$,C$,B$,TYOKUOF12$(I),SHUKU28$(NIJYUUHASSHUKU),SEKKIOF24$(I)
END IF
IF MOD(I+R-1,7)=4 THEN
PRINT USING ">######## ####>################>########## --.# --.#>######>####>####>####>########>######>########>##########" : RIGHT$(" "&MONTH$,2)&"月"&RIGHT$(" "&STR$(I),2)&"日","木",Z$,RIGHT$(" "&N$&STR$(QMONTH),3)&"月"&RIGHT$(" "&STR$(QDAY),2)&"日",QMAGE,QMAGENOON,QILLUMI,QMPHASE,QROKUYOU$,C$,B$,TYOKUOF12$(I),SHUKU28$(NIJYUUHASSHUKU),SEKKIOF24$(I)
END IF
IF MOD(I+R-1,7)=5 THEN
PRINT USING ">######## ####>################>########## --.# --.#>######>####>####>####>########>######>########>##########" : RIGHT$(" "&MONTH$,2)&"月"&RIGHT$(" "&STR$(I),2)&"日","金",Z$,RIGHT$(" "&N$&STR$(QMONTH),3)&"月"&RIGHT$(" "&STR$(QDAY),2)&"日",QMAGE,QMAGENOON,QILLUMI,QMPHASE,QROKUYOU$,C$,B$,TYOKUOF12$(I),SHUKU28$(NIJYUUHASSHUKU),SEKKIOF24$(I)
END IF
IF MOD(I+R-1,7)=6 THEN
PRINT USING ">######## ####>################>########## --.# --.#>######>####>####>####>########>######>########>##########" : RIGHT$(" "&MONTH$,2)&"月"&RIGHT$(" "&STR$(I),2)&"日","土",Z$,RIGHT$(" "&N$&STR$(QMONTH),3)&"月"&RIGHT$(" "&STR$(QDAY),2)&"日",QMAGE,QMAGENOON,QILLUMI,QMPHASE,QROKUYOU$,C$,B$,TYOKUOF12$(I),SHUKU28$(NIJYUUHASSHUKU),SEKKIOF24$(I)
END IF
ELSE
IF MOD(I+R-1,7)=0 THEN
PRINT USING ">######## ####>################>########## --.# --.#>######>####>####>####>########>######>########>##########" : RIGHT$(" "&MONTH$,2)&"月"&RIGHT$(" "&STR$(I),2)&"日","日",Z$,RIGHT$(" "&N$&STR$(QMONTH),3)&"月"&RIGHT$(" "&STR$(QDAY),2)&"日",QMAGE,QMAGENOON,QILLUMI,QMPHASE,QROKUYOU$,C$,B$,TYOKUOF12$(I),SHUKU28$(NIJYUUHASSHUKU),SEKKIOF24$(I)
END IF
IF MOD(I+R-1,7)=1 THEN
PRINT USING ">######## ####>################>########## --.# --.#>######>####>####>####>########>######>########>##########" : RIGHT$(" "&MONTH$,2)&"月"&RIGHT$(" "&STR$(I),2)&"日","月",Z$,RIGHT$(" "&N$&STR$(QMONTH),3)&"月"&RIGHT$(" "&STR$(QDAY),2)&"日",QMAGE,QMAGENOON,QILLUMI,QMPHASE,QROKUYOU$,C$,B$,TYOKUOF12$(I),SHUKU28$(NIJYUUHASSHUKU),SEKKIOF24$(I)
END IF
IF MOD(I+R-1,7)=2 THEN
PRINT USING ">######## ####>################>########## --.# --.#>######>####>####>####>########>######>########>##########" : RIGHT$(" "&MONTH$,2)&"月"&RIGHT$(" "&STR$(I),2)&"日","火",Z$,RIGHT$(" "&N$&STR$(QMONTH),3)&"月"&RIGHT$(" "&STR$(QDAY),2)&"日",QMAGE,QMAGENOON,QILLUMI,QMPHASE,QROKUYOU$,C$,B$,TYOKUOF12$(I),SHUKU28$(NIJYUUHASSHUKU),SEKKIOF24$(I)
END IF
IF MOD(I+R-1,7)=3 THEN
PRINT USING ">######## ####>################>########## --.# --.#>######>####>####>####>########>######>########>##########" : RIGHT$(" "&MONTH$,2)&"月"&RIGHT$(" "&STR$(I),2)&"日","水",Z$,RIGHT$(" "&N$&STR$(QMONTH),3)&"月"&RIGHT$(" "&STR$(QDAY),2)&"日",QMAGE,QMAGENOON,QILLUMI,QMPHASE,QROKUYOU$,C$,B$,TYOKUOF12$(I),SHUKU28$(NIJYUUHASSHUKU),SEKKIOF24$(I)
END IF
IF MOD(I+R-1,7)=4 THEN
PRINT USING ">######## ####>################>########## --.# --.#>######>####>####>####>########>######>########>##########" : RIGHT$(" "&MONTH$,2)&"月"&RIGHT$(" "&STR$(I),2)&"日","木",Z$,RIGHT$(" "&N$&STR$(QMONTH),3)&"月"&RIGHT$(" "&STR$(QDAY),2)&"日",QMAGE,QMAGENOON,QILLUMI,QMPHASE,QROKUYOU$,C$,B$,TYOKUOF12$(I),SHUKU28$(NIJYUUHASSHUKU),SEKKIOF24$(I)
END IF
IF MOD(I+R-1,7)=5 THEN
PRINT USING ">######## ####>################>########## --.# --.#>######>####>####>####>########>######>########>##########" : RIGHT$(" "&MONTH$,2)&"月"&RIGHT$(" "&STR$(I),2)&"日","金",Z$,RIGHT$(" "&N$&STR$(QMONTH),3)&"月"&RIGHT$(" "&STR$(QDAY),2)&"日",QMAGE,QMAGENOON,QILLUMI,QMPHASE,QROKUYOU$,C$,B$,TYOKUOF12$(I),SHUKU28$(NIJYUUHASSHUKU),SEKKIOF24$(I)
END IF
IF MOD(I+R-1,7)=6 THEN
PRINT USING ">######## ####>################>########## --.# --.#>######>####>####>####>########>######>########>##########" : RIGHT$(" "&MONTH$,2)&"月"&RIGHT$(" "&STR$(I),2)&"日","土",Z$,RIGHT$(" "&N$&STR$(QMONTH),3)&"月"&RIGHT$(" "&STR$(QDAY),2)&"日",QMAGE,QMAGENOON,QILLUMI,QMPHASE,QROKUYOU$,C$,B$,TYOKUOF12$(I),SHUKU28$(NIJYUUHASSHUKU),SEKKIOF24$(I)
END IF
END IF
EXIT FOR
END IF
NEXT K
!' ▲▲▲▲▲▲▲▲▲▲ここまで▲▲▲▲▲▲▲▲▲▲
IF QMPHASE=14 THEN
LET S$="満月"
ELSEIF QMPHASE=0 THEN
LET S$="新月"
ELSE
!'LET S$=USING$("##.#",QILLUMI)&"%"
LET S$=""
END IF
!' ▼▼▼▼▼▼▼▼▼▼ここから▼▼▼▼▼▼▼▼▼▼
IF S$<>"" THEN
IF Z$="" AND FL<>2 THEN
CALL SYMBOL(XS+XX,YS+YY+HEIGHT*1.6,"BLUE",S$)
ELSEIF FL<>1 THEN
CALL SYMBOL(XS+XX,YS+YY+HEIGHT*1.8,"BLUE",S$)
ELSE
CALL SYMBOL(XS+XX,YS+YY+HEIGHT*2.0,"BLUE",S$)
END IF
END IF
!' ▲▲▲▲▲▲▲▲▲▲ここまで▲▲▲▲▲▲▲▲▲▲
LET XX=XX+XSIZE/8
IF MOD(R+I,7)=0 THEN
LET XX=0
LET YY=YY+YSIZE/8
END IF
NEXT I
END

EXTERNAL SUB GINIT(XSIZE,YSIZE)
SET BITMAP SIZE XSIZE,YSIZE
SET WINDOW 0,XSIZE-1,YSIZE-1,0
SET POINT STYLE 1
SET COLOR MODE "REGULAR"
CLEAR
END SUB

EXTERNAL SUB SYMBOL(X,Y,COL$,A$)
SET TEXT COLOR COL$
PLOT TEXT,AT X,Y:A$
END SUB

EXTERNAL FUNCTION DAYCOLOR$(Y,M,N,R)
LET DAYCOLOR$="BLACK"
LET Z$=""
IF MOD(N+R,7)=1 THEN LET DAYCOLOR$="RED"
IF MOD(N+R,7)=0 THEN LET DAYCOLOR$="BLUE"
IF M=1 AND N=1 THEN
LET DAYCOLOR$="RED"
LET Z$="元日"
END IF
IF Y>=1973 AND M=1 AND N=2 AND MOD(N+R-1,7)=1 THEN
LET DAYCOLOR$="RED"
LET Z$="振替休日"
END IF
IF Y>=2000 THEN
IF M=1 AND ((R<=1 AND R+N=9) OR (R>1 AND R+N=16)) THEN
LET DAYCOLOR$="RED"
LET Z$="成人の日"
END IF
ELSE
IF M=1 AND N=15 THEN
LET DAYCOLOR$="RED"
LET Z$="成人の日"
END IF
IF Y>=1973 AND M=1 AND N=16 AND MOD(N+R-1,7)=1 THEN
LET DAYCOLOR$="RED"
LET Z$="振替休日"
END IF
END IF
IF M=2 AND N=11 THEN
LET DAYCOLOR$="RED"
LET Z$="建国記念の日"
END IF
IF Y>=1973 AND M=2 AND N=12 AND MOD(N+R-1,7)=1 THEN
LET DAYCOLOR$="RED"
LET Z$="振替休日"
END IF
!' ▼▼▼▼▼▼▼▼▼▼ここから▼▼▼▼▼▼▼▼▼▼
IF Y>=2020 THEN
IF M=2 AND N=23 THEN
LET DAYCOLOR$="RED"
LET Z$="天皇誕生日"
END IF
IF M=2 AND N=24 AND MOD(N+R-1,7)=1 THEN
LET DAYCOLOR$="RED"
LET Z$="振替休日"
END IF
END IF
!' ▲▲▲▲▲▲▲▲▲▲ここまで▲▲▲▲▲▲▲▲▲▲
IF Y>=1900 AND Y<1980 THEN
IF M=3 AND N=INT(20.8357+0.242194*(Y-1980)-INT((Y-1983)/4)) THEN
LET DAYCOLOR$="RED"
LET Z$="春分の日"
END IF
IF Y>=1973 AND M=3 AND N=INT(20.8357+0.242194*(Y-1980)-INT((Y-1983)/4))+1 AND MOD(N+R-1,7)=1 THEN
LET DAYCOLOR$="RED"
LET Z$="振替休日"
END IF
IF M=9 AND N=INT(23.2588+0.242194*(Y-1980)-INT((Y-1983)/4)) THEN
LET DAYCOLOR$="RED"
LET Z$="秋分の日"
END IF
IF Y>=1973 AND M=9 AND N=INT(23.2588+0.242194*(Y-1980)-INT((Y-1983)/4))+1 AND MOD(N+R-1,7)=1 THEN
LET DAYCOLOR$="RED"
LET Z$="振替休日"
END IF
ELSEIF Y>=1980 AND Y<2100 THEN
IF M=3 AND N=INT(20.8431 + 0.242194 * (Y - 1980)) - INT((Y - 1980)/4) THEN
LET DAYCOLOR$="RED"
LET Z$="春分の日"
END IF
IF M=3 AND N=INT(20.8431 + 0.242194 * (Y - 1980)) - INT((Y - 1980)/4)+1 AND MOD(N+R-1,7)=1 THEN
LET DAYCOLOR$="RED"
LET Z$="振替休日"
END IF
IF M=9 AND N=INT(23.2488 + 0.242194 * (Y - 1980)) - INT((Y - 1980)/4) THEN
LET DAYCOLOR$="RED"
LET Z$="秋分の日"
END IF
IF M=9 AND N=INT(23.2488 + 0.242194 * (Y - 1980)) - INT((Y - 1980)/4)+1 AND MOD(N+R-1,7)=1 THEN
LET DAYCOLOR$="RED"
LET Z$="振替休日"
END IF
ELSEIF Y>=2100 AND Y<2150 THEN
IF M=3 AND N=INT(21.8510+0.242194*(Y-1980)-INT((Y-1980)/4)) THEN
LET DAYCOLOR$="RED"
LET Z$="春分の日"
END IF
IF M=3 AND N=INT(21.8510+0.242194*(Y-1980)-INT((Y-1980)/4))+1 AND MOD(N+R-1,7)=1 THEN
LET DAYCOLOR$="RED"
LET Z$="振替休日"
END IF
IF M=9 AND N=INT(24.2488+0.242194*(Y-1980)-INT((Y-1980)/4)) THEN
LET DAYCOLOR$="RED"
LET Z$="秋分の日"
END IF
IF M=9 AND N=INT(24.2488+0.242194*(Y-1980)-INT((Y-1980)/4))+1 AND MOD(N+R-1,7)=1 THEN
LET DAYCOLOR$="RED"
LET Z$="振替休日"
END IF
END IF
IF M=4 AND N=29 THEN
LET DAYCOLOR$="RED"
IF Y>=2007 THEN
LET Z$="昭和の日"
ELSEIF Y>=1989 AND Y<2007 THEN
LET Z$="みどりの日"
ELSEIF Y>1948 THEN
LET Z$="天皇誕生日"
END IF
END IF
IF Y>=1973 AND M=4 AND N=30 AND MOD(N+R-1,7)=1 THEN
LET DAYCOLOR$="RED"
LET Z$="振替休日"
END IF
IF Y=2019 AND M=4 AND N=30 AND MOD(N+R-1,7)<>1 THEN ! 令和元年昭和の日は2019年4月29日、即位の日は2019年5月1日。
LET DAYCOLOR$="RED" ! 間の2019年4月30日は振替休日でなくても公休日。
LET Z$="公休日"
END IF
IF Y=2019 AND M=5 AND N=1 THEN ! 令和元年即位の日は2019年5月1日。
LET DAYCOLOR$="RED"
LET Z$="即位の日"
END IF
IF Y=2019 AND M=5 AND N=2 AND MOD(N+R-1,7)=1 THEN ! 2019年5月2日が月曜なら振替休日とする。
LET DAYCOLOR$="RED"
LET Z$="振替休日"
END IF
IF Y=2019 AND M=5 AND N=2 AND MOD(N+R-1,7)<>1 THEN ! 令和元年即位の日は2019年5月1日、憲法記念日は西暦何年であっても5月3日。
LET DAYCOLOR$="RED" ! 間の2019年5月2日は振替休日でなくても公休日。
LET Z$="公休日"
END IF
IF M=5 AND N=3 THEN
LET DAYCOLOR$="RED"
LET Z$="憲法記念日"
END IF
IF Y>=2007 THEN
IF M=5 AND N=4 THEN
LET DAYCOLOR$="RED"
LET Z$="みどりの日"
END IF
ELSEIF Y>=1988 AND Y<2007 THEN
IF M=5 AND N=4 THEN
LET DAYCOLOR$="RED"
LET Z$="国民の休日"
END IF
END IF
IF M=5 AND N=5 THEN
LET DAYCOLOR$="RED"
LET Z$="こどもの日"
END IF
!' ▼▼▼▼▼▼▼▼▼▼ここから▼▼▼▼▼▼▼▼▼▼
! IF Y>=1973 AND M=5 AND N=6 AND MOD(N+R-1,7)=1 THEN
! LET DAYCOLOR$="RED"
! LET Z$="振替休日"
! END IF
!' ▲▲▲▲▲▲▲▲▲▲ここまで▲▲▲▲▲▲▲▲▲▲
!' ▼▼▼▼▼▼▼▼▼▼ここから▼▼▼▼▼▼▼▼▼▼
IF Y>=1948 AND M=5 AND N=6 AND MOD(N+R-1,7)=1 THEN ! 5月6日が月曜なら5月6日を振替休日とする。
LET DAYCOLOR$="RED"
LET Z$="振替休日"
END IF
!(!!)以下同様に、(!!)
IF Y>=1948 AND M=5 AND N=6 AND MOD(N+R-1,7)=2 THEN ! 5月6日が火曜なら5月6日を振替休日とする。
LET DAYCOLOR$="RED"
LET Z$="振替休日"
END IF
!(!!)以下同様に、(!!)
IF Y>=1948 AND M=5 AND N=6 AND MOD(N+R-1,7)=3 THEN ! 5月6日が水曜なら5月6日を振替休日とする。
LET DAYCOLOR$="RED"
LET Z$="振替休日"
END IF
!' ▲▲▲▲▲▲▲▲▲▲ここまで▲▲▲▲▲▲▲▲▲▲
!' ▼▼▼▼▼▼▼▼▼▼ここから▼▼▼▼▼▼▼▼▼▼
IF Y>=2003 THEN
IF Y=2021 AND M=7 AND N=22 THEN
LET DAYCOLOR$="RED"
LET Z$="海の日"
END IF
IF Y=2020 AND M=7 AND N=23 THEN
LET DAYCOLOR$="RED"
LET Z$="海の日"
END IF
IF Y<>2020 AND Y<>2021 AND M=7 AND ((R<=1 AND R+N=16) OR (R>1 AND R+N=23)) THEN
LET DAYCOLOR$="RED"
LET Z$="海の日"
END IF
ELSEIF Y>=1996 AND Y<2003 THEN
IF M=7 AND N=20 THEN
LET DAYCOLOR$="RED"
LET Z$="海の日"
END IF
IF M=7 AND N=21 AND MOD(N+R-1,7)=1 THEN
LET DAYCOLOR$="RED"
LET Z$="振替休日"
END IF
END IF
!' ▲▲▲▲▲▲▲▲▲▲ここまで▲▲▲▲▲▲▲▲▲▲
!' ▼▼▼▼▼▼▼▼▼▼ここから▼▼▼▼▼▼▼▼▼▼
IF Y>=2016 THEN
IF Y<>2020 AND Y<>2021 AND M=8 AND N=11 THEN
LET DAYCOLOR$="RED"
LET Z$="山の日"
END IF
IF Y<>2020 AND Y<>2021 AND M=8 AND N=12 AND MOD(N+R-1,7)=1 THEN
LET DAYCOLOR$="RED"
LET Z$="振替休日"
END IF
IF Y=2021 AND M=8 AND N=8 THEN
LET DAYCOLOR$="RED"
LET Z$="山の日"
END IF
IF Y=2021 AND M=8 AND N=9 AND MOD(N+R-1,7)=1 THEN
LET DAYCOLOR$="RED"
LET Z$="振替休日"
END IF
IF Y=2020 AND M=8 AND N=10 THEN
LET DAYCOLOR$="RED"
LET Z$="山の日"
END IF
IF Y=2020 AND M=8 AND N=11 AND MOD(N+R-1,7)=1 THEN
LET DAYCOLOR$="RED"
LET Z$="振替休日"
END IF
END IF
!' ▲▲▲▲▲▲▲▲▲▲ここまで▲▲▲▲▲▲▲▲▲▲
IF Y>=2003 THEN
IF M=9 AND ((R<=1 AND R+N=16) OR (R>1 AND R+N=23)) THEN
LET DAYCOLOR$="RED"
LET Z$="敬老の日"
END IF
ELSEIF Y>=1966 AND Y<2003 THEN
IF M=9 AND N=15 THEN
LET DAYCOLOR$="RED"
LET Z$="敬老の日"
END IF
IF Y>=1973 AND M=9 AND N=16 AND MOD(N+R-1,7)=1 THEN
LET DAYCOLOR$="RED"
LET Z$="振替休日"
END IF
END IF
!' ▼▼▼▼▼▼▼▼▼▼ここから▼▼▼▼▼▼▼▼▼▼
IF Y=2019 AND M=10 AND N=22 THEN ! 令和元年即位礼正殿の儀は2019年10月22日に執り行われる。
LET DAYCOLOR$="RED"
LET Z$="即位礼正殿の儀"
END IF
IF Y=2019 AND M=10 AND N=23 AND MOD(N+R-1,7)=1 THEN ! 2019年10月23日が月曜なら振替休日とする。
LET DAYCOLOR$="RED"
LET Z$="振替休日"
END IF
!' ▲▲▲▲▲▲▲▲▲▲ここまで▲▲▲▲▲▲▲▲▲▲
!' ▼▼▼▼▼▼▼▼▼▼ここから▼▼▼▼▼▼▼▼▼▼
IF Y>=2022 THEN
IF M=10 AND ((R<=1 AND R+N=9) OR (R>1 AND R+N=16)) THEN
LET DAYCOLOR$="RED"
LET Z$="体育の日"
END IF
END IF
IF Y=2021 THEN
IF M=7 AND N=23 THEN
LET DAYCOLOR$="RED"
LET Z$="スポーツの日"
END IF
IF M=7 AND N=24 AND MOD(N+R-1,7)=1 THEN
LET DAYCOLOR$="RED"
LET Z$="振替休日"
END IF
END IF
IF Y=2020 THEN
IF M=7 AND N=24 THEN
LET DAYCOLOR$="RED"
LET Z$="スポーツの日"
END IF
IF M=7 AND N=25 AND MOD(N+R-1,7)=1 THEN
LET DAYCOLOR$="RED"
LET Z$="振替休日"
END IF
END IF
IF Y>=2000 AND Y<2020 THEN
IF M=10 AND ((R<=1 AND R+N=9) OR (R>1 AND R+N=16)) THEN
LET DAYCOLOR$="RED"
LET Z$="体育の日"
END IF
ELSEIF Y>=1966 AND Y<2000 THEN
IF M=10 AND N=10 THEN
LET DAYCOLOR$="RED"
LET Z$="体育の日"
END IF
IF Y>=1973 AND M=10 AND N=11 AND MOD(N+R-1,7)=1 THEN
LET DAYCOLOR$="RED"
LET Z$="振替休日"
END IF
END IF
!' ▲▲▲▲▲▲▲▲▲▲ここまで▲▲▲▲▲▲▲▲▲▲
IF M=11 AND N=3 THEN
LET DAYCOLOR$="RED"
LET Z$="文化の日"
END IF
IF M=11 AND N=23 THEN
LET DAYCOLOR$="RED"
!' ▼▼▼▼▼▼▼▼▼▼ここから▼▼▼▼▼▼▼▼▼▼
LET Z$="勤労感謝の日"
!' ▲▲▲▲▲▲▲▲▲▲ここまで▲▲▲▲▲▲▲▲▲▲
END IF
IF Y>=1973 AND M=11 AND (N=4 OR N=24) AND MOD(N+R-1,7)=1 THEN
LET DAYCOLOR$="RED"
LET Z$="振替休日"
END IF
!' ▼▼▼▼▼▼▼▼▼▼ここから▼▼▼▼▼▼▼▼▼▼
IF Y=2019 THEN
IF M=12 AND N=23 THEN
LET DAYCOLOR$="BLACK" ! 祝日にならない模様。∴LET DAYCOLOR$="BLACK"
LET Z$="平成の天皇誕生日"
END IF
END IF
IF Y>=1989 AND Y<=2018 THEN
!' ▲▲▲▲▲▲▲▲▲▲ここまで▲▲▲▲▲▲▲▲▲▲
IF M=12 AND N=23 THEN
LET DAYCOLOR$="RED"
LET Z$="天皇誕生日"
END IF
IF M=12 AND N=24 AND MOD(N+R-1,7)=1 THEN
LET DAYCOLOR$="RED"
LET Z$="振替休日"
END IF
END IF
LET D$=DATE$
!' ▼▼▼▼▼▼▼▼▼▼ここから▼▼▼▼▼▼▼▼▼▼
! IF Y=VAL(D$(1:4)) AND M=VAL(D$(5:6)) AND N=VAL(D$(7:8)) THEN LET DAYCOLOR$="CYAN" ! ← 当日の日付の色がシアンになる。
!' ▲▲▲▲▲▲▲▲▲▲ここまで▲▲▲▲▲▲▲▲▲▲
END FUNCTION

EXTERNAL FUNCTION QSEI$(TM)
DIM A$(9)
MAT READ A$
LET QSEI$=A$(MOD(TM-1,9)+1)
!' ▼▼▼▼▼▼▼▼▼▼ここから▼▼▼▼▼▼▼▼▼▼
!' DATA 九紫火星
!' DATA 八白土星
!' DATA 七赤金星
!' DATA 六白金星
!' DATA 五黄土星
!' DATA 四緑木星
!' DATA 三碧木星
!' DATA 二黒土星
!' DATA 一白水星
DATA " "
DATA " "
DATA " "
DATA " "
DATA " "
DATA " "
DATA " "
DATA " "
DATA " "
END FUNCTION
!' ▲▲▲▲▲▲▲▲▲▲ここまで▲▲▲▲▲▲▲▲▲▲

投稿者削除 - (削除)

2025/05/31 (Sat) 11:50:10

(投稿者により削除されました)

ダーツの結果をDATA処理してみた。 - gnuutera2012or文句うさびょん URL

2025/06/01 (Sun) 00:29:29

1000 DECLARE EXTERNAL PICTURE circle
1010 DECLARE EXTERNAL PICTURE bar
1020 OPTION ANGLE DEGREES
1030 SET WINDOW -1,1,-1,1
1040 DRAW circle WITH ROTATE(0)*SCALE(0.05)*SHIFT(0,0)
1050 DRAW circle WITH ROTATE(0)*SCALE(0.15)*SHIFT(0,0)
1060 DRAW circle WITH ROTATE(0)*SCALE(0.46)*SHIFT(0,0)
1070 DRAW circle WITH ROTATE(0)*SCALE(0.49)*SHIFT(0,0)
1080 DRAW circle WITH ROTATE(0)*SCALE(0.76)*SHIFT(0,0)
1090 DRAW circle WITH ROTATE(0)*SCALE(0.79)*SHIFT(0,0)
1100 DRAW circle WITH ROTATE(0)*SCALE(1)*SHIFT(0,0)
1110 FOR g=1 TO 20
1120 DRAW bar WITH ROTATE(18*g+9)*SCALE(0.64)*SHIFT(0.15*COS(18*g+9),0.15*SIN(18*g+9))
1130 NEXT g
1140 SET TEXT BACKGROUND "TRANSPARENT"
1150 SET TEXT FONT "ＭＳ ゴシック" , 10
1160 SET TEXT COLOR 1
1170 PLOT TEXT ,AT 0.9*COS(18*0+90), 0.9*SIN(18*0+90) : "20"
1180 PLOT TEXT ,AT 0.9*COS(18*(-19)+90), 0.9*SIN(18*(-19)+90) : "5"
1190 PLOT TEXT ,AT 0.9*COS(18*(-18)+90), 0.9*SIN(18*(-18)+90) : "12"
1200 PLOT TEXT ,AT 0.9*COS(18*(-17)+90), 0.9*SIN(18*(-17)+90) : "9"
1210 PLOT TEXT ,AT 0.9*COS(18*(-16)+90), 0.9*SIN(18*(-16)+90) : "14"
1220 PLOT TEXT ,AT 0.9*COS(18*(-15)+90), 0.9*SIN(18*(-15)+90) : "11"
1230 PLOT TEXT ,AT 0.9*COS(18*(-14)+90), 0.9*SIN(18*(-14)+90) : "8"
1240 PLOT TEXT ,AT 0.9*COS(18*(-13)+90), 0.9*SIN(18*(-13)+90) : "16"
1250 PLOT TEXT ,AT 0.9*COS(18*(-12)+90), 0.9*SIN(18*(-12)+90) : "7"
1260 PLOT TEXT ,AT 0.9*COS(18*(-11)+90), 0.9*SIN(18*(-11)+90) : "19"
1270 PLOT TEXT ,AT 0.9*COS(18*(-10)+90), 0.9*SIN(18*(-10)+90) : "3"
1280 PLOT TEXT ,AT 0.9*COS(18*(-9)+90), 0.9*SIN(18*(-9)+90) : "17"
1290 PLOT TEXT ,AT 0.9*COS(18*(-8)+90), 0.9*SIN(18*(-8)+90) : "2"
1300 PLOT TEXT ,AT 0.9*COS(18*(-7)+90), 0.9*SIN(18*(-7)+90) : "15"
1310 PLOT TEXT ,AT 0.9*COS(18*(-6)+90), 0.9*SIN(18*(-6)+90) : "10"
1320 PLOT TEXT ,AT 0.9*COS(18*(-5)+90), 0.9*SIN(18*(-5)+90) : "6"
1330 PLOT TEXT ,AT 0.9*COS(18*(-4)+90), 0.9*SIN(18*(-4)+90) : "13"
1340 PLOT TEXT ,AT 0.9*COS(18*(-3)+90), 0.9*SIN(18*(-3)+90) : "4"
1350 PLOT TEXT ,AT 0.9*COS(18*(-2)+90), 0.9*SIN(18*(-2)+90) : "18"
1360 PLOT TEXT ,AT 0.9*COS(18*(-1)+90), 0.9*SIN(18*(-1)+90) : "1"
!1370 SET AREA COLOR 0
!1380 FOR h=1 TO 10
!1390 PAINT 0.48*COS(36*h),0.48*SIN(36*h)
!1400 PAINT 0.78*COS(36*h),0.78*SIN(36*h)
!1410 PAINT 0,0
!1420 NEXT h
!1430 SET AREA COLOR 0
!1440 FOR h=1 TO 10
!1450 PAINT 0.48*COS(36*h+18),0.48*SIN(36*h+18)
!1460 PAINT 0.78*COS(36*h+18),0.78*SIN(36*h+18)
!1470 PAINT 0.1,0.1
!1480 NEXT h
!1490 SET AREA COLOR 0
!1500 FOR h=1 TO 10
!1510 PAINT 0.2*COS(36*h),0.2*SIN(36*h)
!1520 PAINT 0.6*COS(36*h),0.6*SIN(36*h)
!1530 NEXT h
!1540 SET AREA COLOR 0
!1550 FOR h=1 TO 10
!1560 PAINT 0.2*COS(36*h+18),0.2*SIN(36*h+18)
!1570 PAINT 0.6*COS(36*h+18),0.6*SIN(36*h+18)
!1580 NEXT h
1590 SET POINT STYLE 5
1600 SET POINT COLOR 4
1610 DIM x(100)
1620 DIM y(100)
1630 DIM P(100)
1631 DIM P$(100)
1640 PRINT "i";"x(i)";"y(i)";"P(i)";"P$(i)"
SET POINT STYLE 5
SET WINDOW -1,1,-1,1
FOR i=1 TO 100
READ X(i),Y(i)
PLOT POINTS : X(i),Y(i)
PLOT TEXT ,AT X(i),Y(i): STR$(i)
WAIT DELAY 0.5
NEXT i
DATA .136,-.108
DATA .216,-.016
DATA .512,-.488
DATA .356,-.44
DATA .116,.348
DATA .132,.624
DATA -.236,-.172
DATA -.196,-.328
DATA -.068,-.06
DATA .336,-.38
DATA .296,-.268
DATA .356,-.264
DATA .32,.536
DATA .216,.348
DATA -.056,.512
DATA .256,.728
DATA -.388,.224
DATA .28,.608
DATA -.028,-.292
DATA .408,.152
DATA -.088,-.272
DATA .86,.196
DATA .476,.024
DATA .252,-.092
DATA .252,-.092
DATA .748,-.472
DATA .684,-.552
DATA .336,-.868
DATA .34,-.856
DATA .4,-.352
DATA -.92,-.952
! 1660 GET POINT: x(i),y(i)
! 1670 PLOT POINTS: x(i),y(i)
1650 FOR i=1 TO 100
1680 PLOT TEXT ,AT x(i),y(i): STR$(i)
1690 IF x(i)^2+y(i)^2<0.05^2 THEN GOTO 1700
1691 IF x(i)^2+y(i)^2>0.05^2 THEN GOTO 1720
1692 IF x(i)^2+y(i)^2=0.05^2 THEN GOTO 4190
1700 LET P(i)=50
1710 LET P$(i)="Double Bull"
1715 GOTO 4210
1720 IF 0.05^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.15^2 THEN GOTO 1730
1721 IF 0.05^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.15^2 THEN GOTO 1750
1722 IF 0.05^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.15^2 THEN GOTO 4190
1730 LET P(i)=25
1740 LET P$(i)="Bull"
1745 GOTO 4210
1750 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(81)<y(i) AND x(i)*TAN(-81)<y(i) THEN GOTO 1760
1751 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(81)>y(i) OR x(i)*TAN(-81)>y(i) THEN GOTO 1780
1752 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(81)=y(i) OR x(i)*TAN(-81)=y(i) THEN GOTO 4190
1760 LET P(i)=20
1770 LET P$(i)="S20"
1775 GOTO 4210
1780 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(81) THEN GOTO 1790
1781 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(81) THEN GOTO 1810
1782 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(81) THEN GOTO 4190
1790 LET P(i)=1
1800 LET P$(i)="S1"
1805 GOTO 4210
1810 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 1820
1811 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 1840
1812 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
1820 LET P(i)=18
1830 LET P$(i)="S18"
1835 GOTO 4210
1840 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 1850
1841 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 1870
1842 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
1850 LET P(i)=4
1860 LET P$(i)="S4"
1865 GOTO 4210
1870 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 1880
1871 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 1900
1872 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
1880 LET P(i)=13
1890 LET P$(i)="S13"
1895 GOTO 4210
1900 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 1910
1901 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 1930
1902 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
1910 LET P(i)=6
1920 LET P$(i)="S6"
1925 GOTO 4210
1930 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 1940
1931 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 1960
1932 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
1940 LET P(i)=10
1950 LET P$(i)="S10"
1955 GOTO 4210
1960 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 1970
1961 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 1990
1962 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
1970 LET P(i)=15
1980 LET P$(i)="S15"
1985 GOTO 4210
1990 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 2000
1991 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 2020
1992 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
2000 LET P(i)=2
2010 LET P$(i)="S2"
2015 GOTO 4210
2020 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-81)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 2030
2021 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-81)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 2050
2022 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-81)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
2030 LET P(i)=17
2040 LET P$(i)="S17"
2045 GOTO 4210
2050 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND y(i)<x(i)*TAN(81) AND y(i)<x(i)*TAN(-81) THEN GOTO 2060
2051 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR y(i)>x(i)*TAN(81) OR y(i)>x(i)*TAN(-81) THEN GOTO 2080
2052 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR y(i)=x(i)*TAN(81) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
2060 LET P(i)=3
2070 LET P$(i)="S3"
2075 GOTO 4210
2080 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(81)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 2090
2081 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(81)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 2110
2082 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(81)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
2090 LET P(i)=19
2100 LET P$(i)="S19"
2105 GOTO 4210
2110 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 2120
2111 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 2140
2112 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
2120 LET P(i)=7
2130 LET P$(i)="S7"
2135 GOTO 4210
2140 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 2150
2141 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 2170
2142 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
2150 LET P(i)=16
2160 LET P$(i)="S16"
2165 GOTO 4210
2170 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 2180
2171 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 2200
2172 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
2180 LET P(i)=8
2190 LET P$(i)="S8"
2195 GOTO 4210
!2/4
2200 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 2210
2201 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 2230
2202 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
2210 LET P(i)=11
2220 LET P$(i)="S11"
2225 GOTO 4210
2230 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 2240
2231 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 2260
2232 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
2240 LET P(i)=14
2250 LET P$(i)="S14"
2255 GOTO 4210
2260 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 2270
2261 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 2290
2262 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
2270 LET P(i)=9
2280 LET P$(i)="S9"
2285 GOTO 4210
2290 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 2300
2291 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 2320
2292 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
2300 LET P(i)=12
2310 LET P$(i)="S12"
2315 GOTO 4210
2320 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-81) THEN GOTO 2330
2321 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-81) THEN GOTO 2360
2322 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
2330 LET P(i)=5
2340 LET P$(i)="S5"
2345 GOTO 4210
!2350
2360 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(81)<y(i) AND x(i)*TAN(-81)<y(i) THEN GOTO 2370
2361 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(81)>y(i) OR x(i)*TAN(-81)>y(i) THEN GOTO 2390
2362 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(81)=y(i) OR x(i)*TAN(-81)=y(i) THEN GOTO 4190
2370 LET P(i)=60
2380 LET P$(i)="T20"
2385 GOTO 4210
2390 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(81) THEN GOTO 2400
2391 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(81) THEN GOTO 2420
2392 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(81) THEN GOTO 4190
2400 LET P(i)=3
2410 LET P$(i)="T1"
2415 GOTO 4210
2420 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 2430
2421 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 2450
2422 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
2430 LET P(i)=54
2440 LET P$(i)="T18"
2445 GOTO 4210
2450 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 2460
2451 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 2480
2452 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
2460 LET P(i)=12
2470 LET P$(i)="T4"
2475 GOTO 4210
2480 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 2490
2481 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 2510
2482 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
2490 LET P(i)=39
2500 LET P$(i)="T13"
2505 GOTO 4210
2510 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 2520
2511 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 2540
2512 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
2520 LET P(i)=18
2530 LET P$(i)="T6"
2535 GOTO 4210
2540 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 2550
2541 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 2570
2542 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
2550 LET P(i)=30
2560 LET P$(i)="T10"
2565 GOTO 4210
2570 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 2580
2571 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 2600
2572 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
2580 LET P(i)=45
2590 LET P$(i)="T15"
2595 GOTO 4210
2600 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 2610
2601 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 2630
2602 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
2610 LET P(i)=6
2620 LET P$(i)="T2"
2625 GOTO 4210
2630 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-81)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 2640
2631 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-81)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 2660
2632 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-81)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
2640 LET P(i)=51
2650 LET P$(i)="T17"
2655 GOTO 4210
2660 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND y(i)<x(i)*TAN(81) AND y(i)<x(i)*TAN(-81) THEN GOTO 2670
2661 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR y(i)>x(i)*TAN(81) OR y(i)>x(i)*TAN(-81) THEN GOTO 2690
2662 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR y(i)=x(i)*TAN(81) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
2670 LET P(i)=9
2680 LET P$(i)="T3"
2685 GOTO 4210
2690 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(81)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 2700
2691 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(81)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 2720
2692 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(81)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
2700 LET P(i)=57
2710 LET P$(i)="T19"
2715 GOTO 4210
2720 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 2730
2721 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 2750
2722 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
2730 LET P(i)=21
2740 LET P$(i)="T7"
2745 GOTO 4210
2750 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 2760
2751 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 2780
2752 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
2760 LET P(i)=48
2770 LET P$(i)="T16"
2775 GOTO 4210
2780 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 2790
2781 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 2810
2782 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
2790 LET P(i)=24
2800 LET P$(i)="T8"
2805 GOTO 4210
2810 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 2820
2811 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 2840
2812 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
2820 LET P(i)=33
2830 LET P$(i)="T11"
2835 GOTO 4210
2840 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 2850
2841 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 2870
2842 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
2850 LET P(i)=42
2860 LET P$(i)="T14"
2865 GOTO 4210
2870 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 2880
2871 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 2900
2872 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
2880 LET P(i)=27
2890 LET P$(i)="T9"
2895 GOTO 4210
2900 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 2910
2901 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 2930
2902 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
2910 LET P(i)=36
2920 LET P$(i)="T12"
2925 GOTO 4210
2930 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-81) THEN GOTO 2940
!3/4
2931 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-81) THEN GOTO 2970
2932 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
2940 LET P(i)=15
2950 LET P$(i)="T5"
2955 GOTO 4210
!2960
2970 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(81)<y(i) AND x(i)*TAN(-81)<y(i) THEN GOTO 2980
2971 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(81)>y(i) OR x(i)*TAN(-81)>y(i) THEN GOTO 3000
2972 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(81)=y(i) OR x(i)*TAN(-81)=y(i) THEN GOTO 4190
2980 LET P(i)=20
2990 LET P$(i)="S20"
2995 GOTO 4210
3000 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(81) THEN GOTO 3010
3001 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(81) THEN GOTO 3030
3002 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(81) THEN GOTO 4190
3010 LET P(i)=1
3020 LET P$(i)="S1"
3025 GOTO 4210
3030 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 3040
3031 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 3060
3032 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
3040 LET P(i)=18
3050 LET P$(i)="S18"
3055 GOTO 4210
3060 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 3070
3061 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 3090
3062 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
3070 LET P(i)=4
3080 LET P$(i)="S4"
3085 GOTO 4210
3090 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 3100
3091 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 3120
3092 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
3100 LET P(i)=13
3110 LET P$(i)="S13"
3115 GOTO 4210
3120 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 3130
3121 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 3150
3122 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
3130 LET P(i)=6
3140 LET P$(i)="S6"
3145 GOTO 4210
3150 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 3160
3151 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 3180
3152 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
3160 LET P(i)=10
3170 LET P$(i)="S10"
3175 GOTO 4210
3180 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 3190
3181 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 3210
3182 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
3190 LET P(i)=15
3200 LET P$(i)="S15"
3205 GOTO 4210
3210 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 3220
3211 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 3240
3212 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
3220 LET P(i)=2
3230 LET P$(i)="S2"
3235 GOTO 4210
3240 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-81)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 3250
3241 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-81)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 3270
3242 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-81)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
3250 LET P(i)=17
3260 LET P$(i)="S17"
3265 GOTO 4210
3270 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND y(i)<x(i)*TAN(81) AND y(i)<x(i)*TAN(-81) THEN GOTO 3280
3271 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR y(i)>x(i)*TAN(81) OR y(i)>x(i)*TAN(-81) THEN GOTO 3300
3272 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR y(i)=x(i)*TAN(81) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
3280 LET P(i)=3
3290 LET P$(i)="S3"
3295 GOTO 4210
3300 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(81)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 3310
3301 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(81)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 3330
3302 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(81)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
3310 LET P(i)=19
3320 LET P$(i)="S19"
3325 GOTO 4210
3330 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 3340
3331 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 3360
3332 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
3340 LET P(i)=7
3350 LET P$(i)="S7"
3355 GOTO 4210
3360 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 3370
3361 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 3390
3362 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
3370 LET P(i)=16
3380 LET P$(i)="S16"
3385 GOTO 4210
3390 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 3400
3391 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 3420
3392 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
3400 LET P(i)=8
3410 LET P$(i)="S8"
3415 GOTO 4210
3420 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 3430
3421 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 3450
3422 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
3430 LET P(i)=11
3440 LET P$(i)="S11"
3445 GOTO 4210
3450 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 3460
3451 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 3480
3452 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
3460 LET P(i)=14
3470 LET P$(i)="S14"
3475 GOTO 4210
3480 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 3490
3481 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 3510
3482 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
3490 LET P(i)=9
3500 LET P$(i)="S9"
3505 GOTO 4210
3510 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 3520
3511 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 3540
3512 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
3520 LET P(i)=12
3530 LET P$(i)="S12"
3535 GOTO 4210
3540 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-81) THEN GOTO 3550
3541 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-81) THEN GOTO 3580
3542 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
3550 LET P(i)=5
3560 LET P$(i)="S5"
3565 GOTO 4210
!3570
3580 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(81)<y(i) AND x(i)*TAN(-81)<y(i) THEN GOTO 3590
3581 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(81)>y(i) OR x(i)*TAN(-81)>y(i) THEN GOTO 3610
3582 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(81)=y(i) OR x(i)*TAN(-81)=y(i) THEN GOTO 4190
3590 LET P(i)=40
3600 LET P$(i)="D20"
3605 GOTO 4210
3610 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(81) THEN GOTO 3620
3611 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(81) THEN GOTO 3640
3612 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(81) THEN GOTO 4190
3620 LET P(i)=2
3630 LET P$(i)="D1"
3635 GOTO 4210
3640 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 3650
3641 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 3670
3642 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
3650 LET P(i)=36
3660 LET P$(i)="D18"
3665 GOTO 4210
3670 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 3680
3671 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 3700
3672 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
3680 LET P(i)=8
3690 LET P$(i)="D4"
3695 GOTO 4210
!4/4
3700 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 3710
3701 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 3730
3702 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
3710 LET P(i)=26
3720 LET P$(i)="D13"
3725 GOTO 4210
3730 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 3740
3731 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 3760
3732 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
3740 LET P(i)=12
3750 LET P$(i)="D6"
3755 GOTO 4210
3760 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 3770
3761 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 3790
3762 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
3770 LET P(i)=20
3780 LET P$(i)="D10"
3785 GOTO 4210
3790 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 3800
3791 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 3820
3792 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
3800 LET P(i)=30
3810 LET P$(i)="D15"
3815 GOTO 4210
3820 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 3830
3821 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 3850
3822 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
3830 LET P(i)=4
3840 LET P$(i)="D2"
3845 GOTO 4210
3850 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-81)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 3860
3851 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-81)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 3880
3852 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-81)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
3860 LET P(i)=34
3870 LET P$(i)="D17"
3875 GOTO 4210
3880 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND y(i)<x(i)*TAN(81) AND y(i)<x(i)*TAN(-81) THEN GOTO 3890
3881 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR y(i)>x(i)*TAN(81) OR y(i)>x(i)*TAN(-81) THEN GOTO 3910
3882 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR y(i)=x(i)*TAN(81) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
3890 LET P(i)=6
3900 LET P$(i)="D3"
3915 GOTO 4210
3910 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(81)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 3920
3911 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(81)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 3940
3912 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(81)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
3920 LET P(i)=38
3930 LET P$(i)="D19"
3935 GOTO 4210
3940 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 3950
3941 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 3970
3942 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
3950 LET P(i)=14
3960 LET P$(i)="D7"
3965 GOTO 4210
3970 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 3980
3971 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 4000
3972 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
3980 LET P(i)=32
3990 LET P$(i)="D16"
3995 GOTO 4210
4000 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 4010
4001 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 4030
4002 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
4010 LET P(i)=16
4020 LET P$(i)="D8"
4025 GOTO 4210
4030 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 4040
4031 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 4060
4032 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
4040 LET P(i)=22
4050 LET P$(i)="D11"
4055 GOTO 4210
4060 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 4070
4061 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 4090
4062 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
4070 LET P(i)=28
4080 LET P$(i)="D14"
4085 GOTO 4210
4090 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 4100
4091 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 4120
4092 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
4100 LET P(i)=18
4110 LET P$(i)="D9"
4115 GOTO 4210
4120 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 4130
4121 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 4150
4122 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
4130 LET P(i)=24
4140 LET P$(i)="D12"
4145 GOTO 4210
4150 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-81) THEN GOTO 4160
4151 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-81) THEN GOTO 4180
4152 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
4160 LET P(i)=10
4170 LET P$(i)="D5"
4175 GOTO 4210
4180 IF 0.79^2<x(i)^2+y(i)^2 THEN GOTO 4190
4190 LET P(i)=0
4200 LET P$(i)="foul"
4210 PRINT i;x(i);y(i);P(i);P$(i)
4220 NEXT i
4230 END
!4240
4250 EXTERNAL PICTURE circle
4260 OPTION ANGLE DEGREES
4270 FOR j=0 TO 360 STEP 4
4280 PLOT LINES:COS(j*360/360),SIN(j*360/360);
4290 NEXT j
4300 END PICTURE
4310
4320 EXTERNAL PICTURE bar
4330 OPTION ANGLE DEGREES
4340 FOR k=0 TO 1
4350 PLOT LINES:k,0;
4360 NEXT k
4370 END PICTURE

ダーツ count up 御一人様練習用 - gnuutera2012or文句うさびょん URL

2025/06/01 (Sun) 00:27:31

REM 十進BASIC DARTS ダーツ count up お一人様練習用(COUNT UP GAME練習用)
REM 十進BASIC 2進法モードで開くと大吉。
REM 十進BASIC 10進法モードで開くと中吉。遅いから(^^)。
REM 1人用01game練習用に作りました。
REM グラフィックスにてダーツボードを描画。
REM グラフィックスが見られないときは表示タブのグラフィックスを選択すれば閲覧可能です。
REM いきなりグラフィックスもテキストウィンドウも現れないことがありますが、十進BASICのウィンドウを小さくすると表示されるようです。
REM グラフィックスをクリックすることにより位置情報を保存可能。
REM グラフィックスはオプション->サイズ->BitMapサイズのラジオボタンを押下してサイズ変更してください。
REM バーストは1point処理、マイナス処理すべてに対応。
REM シングルアウト対応。
REM 4人対戦には未対応。
REM Dドライブに自動的に練習結果「DARTS RESULT」を作成します。
REM ちなみにx座標、y座標は練習の向上につながりますので、データをとっておくことをお勧めします。
REM 要らない方は2箇所ある該当箇所を確実に削除ください。
!▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
! LET G$="D:\DARTS RESULT"
! LET H$=".TXT"
! LET I$=G$&H$
! OPEN #1:NAME I$
! SET #1: POINTER END
! PRINT #1: DATE$&" "&TIME$
! PRINT #1: "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
! PRINT #1:TAB(10),PLAYERANAME$&"さん",B;" GAME"
! PRINT #1:TAB(10),,,"合計","x座標","y座標"
! FOR k=1 TO i
! IF MOD(k,3)<>1 THEN GOTO 5600
! IF MOD(k,3)=1 THEN GOTO 5500
!5500 PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
!5600 PRINT #1:TAB(10);"第";k;"投",P$(k),P(k),z(k),x(k),y(k)
! NEXT k
! PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
! PRINT #1:"△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"
! CLOSE #1
! GOTO 6700
!▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
!と、
!▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
!LET G$="D:\DARTS RESULT"
! LET H$=".TXT"
! LET I$=G$&H$
! OPEN #1:NAME I$
! SET #1: POINTER END
! PRINT #1: DATE$&" "&TIME$
! PRINT #1: "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
! PRINT #1:TAB(10),PLAYERANAME$&"さん",B;" GAME"
! PRINT #1:TAB(10),,,"合計","x座標","y座標"
! FOR k=1 TO i
! IF MOD(k,3)<>1 THEN GOTO 6600
! IF MOD(k,3)=1 THEN GOTO 6500
!6500 PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
!6600 PRINT #1:TAB(10);"第";k;"投",P$(k),P(k),z(k),x(k),y(k)
! NEXT k
! PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
! PRINT #1:" Quit!!"
! PRINT #1:"△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"
! CLOSE #1
!▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
OPTION BASE 0
DIM x(24)
DIM y(24)
DIM z(24)
DIM P(24)
DIM P$(24)
LET LL=3 ! D1の色 0白,1黒,2青,3緑,4赤,5水色,6黄色,7赤紫,8灰色,9濃い青,10濃い緑,11青緑,12えび茶,13オリーブ色,14 濃い紫,15銀色
LET MM=4 ! D20の色 0白,1黒,2青,3緑,4赤,5水色,6黄色,7赤紫,8灰色,9濃い青,10濃い緑,11青緑,12えび茶,13オリーブ色,14 濃い紫,15銀色
LET NN=0 ! S1の色 0白,1黒,2青,3緑,4赤,5水色,6黄色,7赤紫,8灰色,9濃い青,10濃い緑,11青緑,12えび茶,13オリーブ色,14 濃い紫,15銀色
LET OO=2 ! S20の色 0白,1黒,2青,3緑,4赤,5水色,6黄色,7赤紫,8灰色,9濃い青,10濃い緑,11青緑,12えび茶,13オリーブ色,14 濃い紫,15銀色
PRINT "プレイヤーの氏名を入力して下さい。(全角、半角で入力して下さい。)"
INPUT PLAYERANAME$
PRINT TAB(10),PLAYERANAME$&"さん","COUNT UP GAME"
PRINT "i","P$(i)","P(i)","合計","x(i)","y(i)"
LET A=0
LET SHOTS=24 ! ターン数*3 ここでは8ターン。
1000 DECLARE EXTERNAL PICTURE circle
1010 DECLARE EXTERNAL PICTURE bar
1020 OPTION ANGLE DEGREES
1030 SET WINDOW -1,1,-1,1
1031 DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-0.9)
1032 DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-0.8)
1033 DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-1,-0.9)
1034 DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-0.85,-0.9)
1040 DRAW circle WITH ROTATE(0)*SCALE(0.05)*SHIFT(0,0)
1050 DRAW circle WITH ROTATE(0)*SCALE(0.15)*SHIFT(0,0)
1060 DRAW circle WITH ROTATE(0)*SCALE(0.46)*SHIFT(0,0)
1070 DRAW circle WITH ROTATE(0)*SCALE(0.49)*SHIFT(0,0)
1080 DRAW circle WITH ROTATE(0)*SCALE(0.76)*SHIFT(0,0)
1090 DRAW circle WITH ROTATE(0)*SCALE(0.79)*SHIFT(0,0)
1100 DRAW circle WITH ROTATE(0)*SCALE(1)*SHIFT(0,0)
1110 FOR g=1 TO 20
1120 DRAW bar WITH ROTATE(18*g+9)*SCALE(0.64)*SHIFT(0.15*COS(18*g+9),0.15*SIN(18*g+9))
1121 NEXT g
1122 DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-1)
1123 DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-0.9)
1124 DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-1,-1)
1125 DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-0.85,-1)
1140 SET TEXT BACKGROUND "TRANSPARENT"
1150 SET TEXT FONT "ＭＳ ゴシック" , 10
1160 SET TEXT COLOR 1
1170 PLOT TEXT ,AT 0.9*COS(18*0+90), 0.9*SIN(18*0+90) : "20"
1180 PLOT TEXT ,AT 0.9*COS(18*(-19)+90), 0.9*SIN(18*(-19)+90) : "5"
1190 PLOT TEXT ,AT 0.9*COS(18*(-18)+90), 0.9*SIN(18*(-18)+90) : "12"
1200 PLOT TEXT ,AT 0.9*COS(18*(-17)+90), 0.9*SIN(18*(-17)+90) : "9"
1210 PLOT TEXT ,AT 0.9*COS(18*(-16)+90), 0.9*SIN(18*(-16)+90) : "14"
1220 PLOT TEXT ,AT 0.9*COS(18*(-15)+90), 0.9*SIN(18*(-15)+90) : "11"
1230 PLOT TEXT ,AT 0.9*COS(18*(-14)+90), 0.9*SIN(18*(-14)+90) : "8"
1240 PLOT TEXT ,AT 0.9*COS(18*(-13)+90), 0.9*SIN(18*(-13)+90) : "16"
1250 PLOT TEXT ,AT 0.9*COS(18*(-12)+90), 0.9*SIN(18*(-12)+90) : "7"
1260 PLOT TEXT ,AT 0.9*COS(18*(-11)+90), 0.9*SIN(18*(-11)+90) : "19"
1270 PLOT TEXT ,AT 0.9*COS(18*(-10)+90), 0.9*SIN(18*(-10)+90) : "3"
1280 PLOT TEXT ,AT 0.9*COS(18*(-9)+90), 0.9*SIN(18*(-9)+90) : "17"
1290 PLOT TEXT ,AT 0.9*COS(18*(-8)+90), 0.9*SIN(18*(-8)+90) : "2"
1300 PLOT TEXT ,AT 0.9*COS(18*(-7)+90), 0.9*SIN(18*(-7)+90) : "15"
1310 PLOT TEXT ,AT 0.9*COS(18*(-6)+90), 0.9*SIN(18*(-6)+90) : "10"
1320 PLOT TEXT ,AT 0.9*COS(18*(-5)+90), 0.9*SIN(18*(-5)+90) : "6"
1330 PLOT TEXT ,AT 0.9*COS(18*(-4)+90), 0.9*SIN(18*(-4)+90) : "13"
1340 PLOT TEXT ,AT 0.9*COS(18*(-3)+90), 0.9*SIN(18*(-3)+90) : "4"
1350 PLOT TEXT ,AT 0.9*COS(18*(-2)+90), 0.9*SIN(18*(-2)+90) : "18"
1360 PLOT TEXT ,AT 0.9*COS(18*(-1)+90), 0.9*SIN(18*(-1)+90) : "1"
1361 PLOT TEXT ,AT -0.99,-0.99 : "quit"
1362 PLOT TEXT ,AT -0.99,-0.89 : STR$(z(i))
1370 SET AREA COLOR LL
1380 FOR h=1 TO 10
1390 PAINT 0.48*COS(36*h),0.48*SIN(36*h)
1400 PAINT 0.78*COS(36*h),0.78*SIN(36*h)
1410 PAINT 0,0
1420 NEXT h
1430 SET AREA COLOR MM
1440 FOR h=1 TO 10
1450 PAINT 0.48*COS(36*h+18),0.48*SIN(36*h+18)
1460 PAINT 0.78*COS(36*h+18),0.78*SIN(36*h+18)
1470 PAINT 0.1,0.1
1480 NEXT h
1490 SET AREA COLOR NN
1500 FOR h=1 TO 10
1510 PAINT 0.2*COS(36*h),0.2*SIN(36*h)
1520 PAINT 0.6*COS(36*h),0.6*SIN(36*h)
1530 NEXT h
1540 SET AREA COLOR OO
1550 FOR h=1 TO 10
1560 PAINT 0.2*COS(36*h+18),0.2*SIN(36*h+18)
1570 PAINT 0.6*COS(36*h+18),0.6*SIN(36*h+18)
1580 NEXT h
SET AREA COLOR 2
PAINT 0.8,0.8
PAINT -0.8,0.8
PAINT 0.8,-0.8
PAINT -0.8,-0.8
SET TEXT COLOR 6
SET TEXT FONT "ＭＳ 明朝",15 ! ボード表示
PLOT TEXT ,AT -0.99,0.9 : "COUNT UP GAME"
SET TEXT COLOR 1
SET TEXT FONT "ＭＳ 明朝",10 ! ボード表示
1590 SET POINT STYLE 5
1600 SET POINT COLOR 4

1650 FOR i=1 TO SHOTS
1660 GET POINT: x(i),y(i)
1670 PLOT POINTS: x(i),y(i)
1680 PLOT TEXT ,AT x(i),y(i): STR$(i)
1681 IF -1<x(i) AND x(i)<-0.85 AND -1<y(i) AND y(i)<-0.9 THEN GOTO 6000
1690 IF x(i)^2+y(i)^2<0.05^2 THEN GOTO 1700
1691 IF x(i)^2+y(i)^2>0.05^2 THEN GOTO 1720
1692 IF x(i)^2+y(i)^2=0.05^2 THEN GOTO 4190
1700 LET P(i)=50
1710 LET P$(i)="Double Bull"
1715 GOTO 4201
1720 IF 0.05^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.15^2 THEN GOTO 1730
1721 IF 0.05^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.15^2 THEN GOTO 1750
1722 IF 0.05^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.15^2 THEN GOTO 4190
1730 LET P(i)=25
1740 LET P$(i)="Bull"
1745 GOTO 4201
1750 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(81)<y(i) AND x(i)*TAN(-81)<y(i) THEN GOTO 1760
1751 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(81)>y(i) OR x(i)*TAN(-81)>y(i) THEN GOTO 1780
1752 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(81)=y(i) OR x(i)*TAN(-81)=y(i) THEN GOTO 4190
1760 LET P(i)=20
1770 LET P$(i)="S20"
1775 GOTO 4201
1780 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(81) THEN GOTO 1790
1781 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(81) THEN GOTO 1810
1782 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(81) THEN GOTO 4190
1790 LET P(i)=1
1800 LET P$(i)="S1"
1805 GOTO 4201
1810 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 1820
1811 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 1840
1812 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
1820 LET P(i)=18
1830 LET P$(i)="S18"
1835 GOTO 4201
1840 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 1850
1841 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 1870
1842 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
1850 LET P(i)=4
1860 LET P$(i)="S4"
1865 GOTO 4201
1870 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 1880
1871 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 1900
1872 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
1880 LET P(i)=13
1890 LET P$(i)="S13"
1895 GOTO 4201
1900 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 1910
1901 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 1930
1902 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
1910 LET P(i)=6
1920 LET P$(i)="S6"
1925 GOTO 4201
1930 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 1940
1931 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 1960
1932 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
1940 LET P(i)=10
1950 LET P$(i)="S10"
1955 GOTO 4201
1960 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 1970
1961 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 1990
1962 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
1970 LET P(i)=15
1980 LET P$(i)="S15"
1985 GOTO 4201
1990 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 2000
1991 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 2020
1992 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
2000 LET P(i)=2
2010 LET P$(i)="S2"
2015 GOTO 4201
2020 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-81)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 2030
2021 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-81)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 2050
2022 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-81)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
2030 LET P(i)=17
2040 LET P$(i)="S17"
2045 GOTO 4201
2050 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND y(i)<x(i)*TAN(81) AND y(i)<x(i)*TAN(-81) THEN GOTO 2060
2051 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR y(i)>x(i)*TAN(81) OR y(i)>x(i)*TAN(-81) THEN GOTO 2080
2052 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR y(i)=x(i)*TAN(81) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
2060 LET P(i)=3
2070 LET P$(i)="S3"
2075 GOTO 4201
2080 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(81)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 2090
2081 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(81)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 2110
2082 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(81)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
2090 LET P(i)=19
2100 LET P$(i)="S19"
2105 GOTO 4201
2110 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 2120
2111 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 2140
2112 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
2120 LET P(i)=7
2130 LET P$(i)="S7"
2135 GOTO 4201
2140 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 2150
2141 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 2170
2142 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
2150 LET P(i)=16
2160 LET P$(i)="S16"
2165 GOTO 4201
2170 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 2180
2171 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 2200
2172 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
2180 LET P(i)=8
2190 LET P$(i)="S8"
2195 GOTO 4201
2200 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 2210
2201 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 2230
2202 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
2210 LET P(i)=11
2220 LET P$(i)="S11"
2225 GOTO 4201
2230 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 2240
2231 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 2260
2232 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
2240 LET P(i)=14
2250 LET P$(i)="S14"
2255 GOTO 4201
2260 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 2270
2261 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 2290
2262 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
2270 LET P(i)=9
2280 LET P$(i)="S9"
2285 GOTO 4201
2290 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 2300
2291 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 2320
2292 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
2300 LET P(i)=12
2310 LET P$(i)="S12"
2315 GOTO 4201
2320 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-81) THEN GOTO 2330
2321 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-81) THEN GOTO 2360
2322 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
2330 LET P(i)=5
2340 LET P$(i)="S5"
2345 GOTO 4201
!2350
2360 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(81)<y(i) AND x(i)*TAN(-81)<y(i) THEN GOTO 2370
2361 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(81)>y(i) OR x(i)*TAN(-81)>y(i) THEN GOTO 2390
2362 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(81)=y(i) OR x(i)*TAN(-81)=y(i) THEN GOTO 4190
2370 LET P(i)=60
2380 LET P$(i)="T20"
2385 GOTO 4201
2390 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(81) THEN GOTO 2400
2391 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(81) THEN GOTO 2420
2392 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(81) THEN GOTO 4190
2400 LET P(i)=3
2410 LET P$(i)="T1"
2415 GOTO 4201
2420 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 2430
2421 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 2450
2422 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
2430 LET P(i)=54
2440 LET P$(i)="T18"
2445 GOTO 4201
2450 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 2460
2451 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 2480
2452 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
2460 LET P(i)=12
2470 LET P$(i)="T4"
2475 GOTO 4201
2480 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 2490
2481 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 2510
2482 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
2490 LET P(i)=39
2500 LET P$(i)="T13"
2505 GOTO 4201
2510 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 2520
2511 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 2540
2512 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
2520 LET P(i)=18
2530 LET P$(i)="T6"
2535 GOTO 4201
2540 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 2550
2541 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 2570
2542 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
2550 LET P(i)=30
2560 LET P$(i)="T10"
2565 GOTO 4201
2570 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 2580
2571 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 2600
2572 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
2580 LET P(i)=45
2590 LET P$(i)="T15"
2595 GOTO 4201
2600 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 2610
2601 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 2630
2602 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
2610 LET P(i)=6
2620 LET P$(i)="T2"
2625 GOTO 4201
2630 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-81)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 2640
2631 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-81)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 2660
2632 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-81)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
2640 LET P(i)=51
2650 LET P$(i)="T17"
2655 GOTO 4201
2660 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND y(i)<x(i)*TAN(81) AND y(i)<x(i)*TAN(-81) THEN GOTO 2670
2661 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR y(i)>x(i)*TAN(81) OR y(i)>x(i)*TAN(-81) THEN GOTO 2690
2662 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR y(i)=x(i)*TAN(81) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
2670 LET P(i)=9
2680 LET P$(i)="T3"
2685 GOTO 4201
2690 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(81)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 2700
2691 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(81)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 2720
2692 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(81)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
2700 LET P(i)=57
2710 LET P$(i)="T19"
2715 GOTO 4201
2720 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 2730
2721 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 2750
2722 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
2730 LET P(i)=21
2740 LET P$(i)="T7"
2745 GOTO 4201
2750 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 2760
2751 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 2780
2752 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
2760 LET P(i)=48
2770 LET P$(i)="T16"
2775 GOTO 4201
2780 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 2790
2781 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 2810
2782 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
2790 LET P(i)=24
2800 LET P$(i)="T8"
2805 GOTO 4201
2810 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 2820
2811 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 2840
2812 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
2820 LET P(i)=33
2830 LET P$(i)="T11"
2835 GOTO 4201
2840 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 2850
2841 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 2870
2842 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
2850 LET P(i)=42
2860 LET P$(i)="T14"
2865 GOTO 4201
2870 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 2880
2871 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 2900
2872 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
2880 LET P(i)=27
2890 LET P$(i)="T9"
2895 GOTO 4201
2900 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 2910
2901 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 2930
2902 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
2910 LET P(i)=36
2920 LET P$(i)="T12"
2925 GOTO 4201
2930 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-81) THEN GOTO 2940
2931 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-81) THEN GOTO 2970
2932 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
2940 LET P(i)=15
2950 LET P$(i)="T5"
2955 GOTO 4201
!2960
2970 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(81)<y(i) AND x(i)*TAN(-81)<y(i) THEN GOTO 2980
2971 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(81)>y(i) OR x(i)*TAN(-81)>y(i) THEN GOTO 3000
2972 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(81)=y(i) OR x(i)*TAN(-81)=y(i) THEN GOTO 4190
2980 LET P(i)=20
2990 LET P$(i)="S20"
2995 GOTO 4201
3000 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(81) THEN GOTO 3010
3001 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(81) THEN GOTO 3030
3002 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(81) THEN GOTO 4190
3010 LET P(i)=1
3020 LET P$(i)="S1"
3025 GOTO 4201
3030 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 3040
3031 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 3060
3032 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
3040 LET P(i)=18
3050 LET P$(i)="S18"
3055 GOTO 4201
3060 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 3070
3061 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 3090
3062 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
3070 LET P(i)=4
3080 LET P$(i)="S4"
3085 GOTO 4201
3090 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 3100
3091 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 3120
3092 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
3100 LET P(i)=13
3110 LET P$(i)="S13"
3115 GOTO 4201
3120 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 3130
3121 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 3150
3122 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
3130 LET P(i)=6
3140 LET P$(i)="S6"
3145 GOTO 4201
3150 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 3160
3151 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 3180
3152 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
3160 LET P(i)=10
3170 LET P$(i)="S10"
3175 GOTO 4201
3180 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 3190
3181 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 3210
3182 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
3190 LET P(i)=15
3200 LET P$(i)="S15"
3205 GOTO 4201
3210 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 3220
3211 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 3240
3212 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
3220 LET P(i)=2
3230 LET P$(i)="S2"
3235 GOTO 4201
3240 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-81)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 3250
3241 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-81)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 3270
3242 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-81)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
3250 LET P(i)=17
3260 LET P$(i)="S17"
3265 GOTO 4201
3270 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND y(i)<x(i)*TAN(81) AND y(i)<x(i)*TAN(-81) THEN GOTO 3280
3271 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR y(i)>x(i)*TAN(81) OR y(i)>x(i)*TAN(-81) THEN GOTO 3300
3272 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR y(i)=x(i)*TAN(81) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
3280 LET P(i)=3
3290 LET P$(i)="S3"
3295 GOTO 4201
3300 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(81)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 3310
3301 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(81)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 3330
3302 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(81)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
3310 LET P(i)=19
3320 LET P$(i)="S19"
3325 GOTO 4201
3330 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 3340
3331 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 3360
3332 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
3340 LET P(i)=7
3350 LET P$(i)="S7"
3355 GOTO 4201
3360 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 3370
3361 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 3390
3362 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
3370 LET P(i)=16
3380 LET P$(i)="S16"
3385 GOTO 4201
3390 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 3400
3391 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 3420
3392 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
3400 LET P(i)=8
3410 LET P$(i)="S8"
3415 GOTO 4201
3420 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 3430
3421 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 3450
3422 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
3430 LET P(i)=11
3440 LET P$(i)="S11"
3445 GOTO 4201
3450 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 3460
3451 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 3480
3452 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
3460 LET P(i)=14
3470 LET P$(i)="S14"
3475 GOTO 4201
3480 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 3490
3481 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 3510
3482 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
3490 LET P(i)=9
3500 LET P$(i)="S9"
3505 GOTO 4201
3510 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 3520
3511 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 3540
3512 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
3520 LET P(i)=12
3530 LET P$(i)="S12"
3535 GOTO 4201
3540 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-81) THEN GOTO 3550
3541 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-81) THEN GOTO 3580
3542 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
3550 LET P(i)=5
3560 LET P$(i)="S5"
3565 GOTO 4201
!3570
3580 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(81)<y(i) AND x(i)*TAN(-81)<y(i) THEN GOTO 3590
3581 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(81)>y(i) OR x(i)*TAN(-81)>y(i) THEN GOTO 3610
3582 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(81)=y(i) OR x(i)*TAN(-81)=y(i) THEN GOTO 4190
3590 LET P(i)=40
3600 LET P$(i)="D20"
3605 GOTO 4201
3610 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(81) THEN GOTO 3620
3611 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(81) THEN GOTO 3640
3612 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(81) THEN GOTO 4190
3620 LET P(i)=2
3630 LET P$(i)="D1"
3635 GOTO 4201
3640 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 3650
3641 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 3670
3642 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
3650 LET P(i)=36
3660 LET P$(i)="D18"
3665 GOTO 4201
3670 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 3680
3671 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 3700
3672 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
3680 LET P(i)=8
3690 LET P$(i)="D4"
3695 GOTO 4201
3700 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 3710
3701 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 3730
3702 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
3710 LET P(i)=26
3720 LET P$(i)="D13"
3725 GOTO 4201
3730 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 3740
3731 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 3760
3732 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
3740 LET P(i)=12
3750 LET P$(i)="D6"
3755 GOTO 4201
3760 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 3770
3761 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 3790
3762 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
3770 LET P(i)=20
3780 LET P$(i)="D10"
3785 GOTO 4201
3790 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 3800
3791 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 3820
3792 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
3800 LET P(i)=30
3810 LET P$(i)="D15"
3815 GOTO 4201
3820 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 3830
3821 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 3850
3822 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
3830 LET P(i)=4
3840 LET P$(i)="D2"
3845 GOTO 4201
3850 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-81)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 3860
3851 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-81)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 3880
3852 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-81)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
3860 LET P(i)=34
3870 LET P$(i)="D17"
3875 GOTO 4201
3880 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND y(i)<x(i)*TAN(81) AND y(i)<x(i)*TAN(-81) THEN GOTO 3890
3881 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR y(i)>x(i)*TAN(81) OR y(i)>x(i)*TAN(-81) THEN GOTO 3910
3882 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR y(i)=x(i)*TAN(81) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
3890 LET P(i)=6
3900 LET P$(i)="D3"
3915 GOTO 4201
3910 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(81)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 3920
3911 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(81)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 3940
3912 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(81)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
3920 LET P(i)=38
3930 LET P$(i)="D19"
3935 GOTO 4201
3940 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 3950
3941 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 3970
3942 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
3950 LET P(i)=14
3960 LET P$(i)="D7"
3965 GOTO 4201
3970 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 3980
3971 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 4000
3972 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
3980 LET P(i)=32
3990 LET P$(i)="D16"
3995 GOTO 4201
4000 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 4010
4001 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 4030
4002 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
4010 LET P(i)=16
4020 LET P$(i)="D8"
4025 GOTO 4201
4030 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 4040
4031 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 4060
4032 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
4040 LET P(i)=22
4050 LET P$(i)="D11"
4055 GOTO 4201
4060 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 4070
4061 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 4090
4062 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
4070 LET P(i)=28
4080 LET P$(i)="D14"
4085 GOTO 4201
4090 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 4100
4091 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 4120
4092 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
4100 LET P(i)=18
4110 LET P$(i)="D9"
4115 GOTO 4201
4120 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 4130
4121 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 4150
4122 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
4130 LET P(i)=24
4140 LET P$(i)="D12"
4145 GOTO 4201
4150 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-81) THEN GOTO 4160
4151 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-81) THEN GOTO 4180
4152 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
4160 LET P(i)=10
4170 LET P$(i)="D5"
4175 GOTO 4201
4180 IF 0.79^2<x(i)^2+y(i)^2 THEN GOTO 4190
4190 LET P(i)=0
4200 LET P$(i)="Outboard"

4201 SET TEXT FONT "ＭＳ 明朝",15 ! ボード表示
SET TEXT COLOR 6
PLOT TEXT ,AT 0.7,0.9-MOD(i+2,3)/10 : STR$(P(i))
SET TEXT COLOR 4
PLOT TEXT ,AT 0.8,0.9-MOD(i+2,3)/10 : STR$(A+P(i))
SET TEXT FONT "ＭＳ 明朝",10
SET TEXT COLOR 1

4214 LET A=A+P(i) ! エラーが起こるなら、A-P(i)-P(i+1)-P(i+2)、か、A-P(i)-P(i-1)-P(i-2)に正すこと。
4215 LET z(i)=A
4700 PRINT i,P$(i),P(i),z(i),x(i),y(i)
4701 IF MOD(i,3)<>0 THEN GOTO 4800
4702 IF MOD(i,3)=0 THEN GOTO 4703
4703 WAIT DELAY 1
CLEAR
DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-0.9)
DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-0.8)
DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-1,-0.9)
DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-0.85,-0.9)
DRAW circle WITH ROTATE(0)*SCALE(0.05)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.15)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.46)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.49)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.76)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.79)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(1)*SHIFT(0,0)
FOR g=1 TO 20
DRAW bar WITH ROTATE(18*g+9)*SCALE(0.64)*SHIFT(0.15*COS(18*g+9),0.15*SIN(18*g+9))
NEXT g
DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-1)
DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-0.9)
DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-1,-1)
DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-0.85,-1)
SET TEXT BACKGROUND "TRANSPARENT"
SET TEXT FONT "ＭＳ ゴシック" , 10
SET TEXT COLOR 1
PLOT TEXT ,AT 0.9*COS(18*0+90), 0.9*SIN(18*0+90) : "20"
PLOT TEXT ,AT 0.9*COS(18*(-19)+90), 0.9*SIN(18*(-19)+90) : "5"
PLOT TEXT ,AT 0.9*COS(18*(-18)+90), 0.9*SIN(18*(-18)+90) : "12"
PLOT TEXT ,AT 0.9*COS(18*(-17)+90), 0.9*SIN(18*(-17)+90) : "9"
PLOT TEXT ,AT 0.9*COS(18*(-16)+90), 0.9*SIN(18*(-16)+90) : "14"
PLOT TEXT ,AT 0.9*COS(18*(-15)+90), 0.9*SIN(18*(-15)+90) : "11"
PLOT TEXT ,AT 0.9*COS(18*(-14)+90), 0.9*SIN(18*(-14)+90) : "8"
PLOT TEXT ,AT 0.9*COS(18*(-13)+90), 0.9*SIN(18*(-13)+90) : "16"
PLOT TEXT ,AT 0.9*COS(18*(-12)+90), 0.9*SIN(18*(-12)+90) : "7"
PLOT TEXT ,AT 0.9*COS(18*(-11)+90), 0.9*SIN(18*(-11)+90) : "19"
PLOT TEXT ,AT 0.9*COS(18*(-10)+90), 0.9*SIN(18*(-10)+90) : "3"
PLOT TEXT ,AT 0.9*COS(18*(-9)+90), 0.9*SIN(18*(-9)+90) : "17"
PLOT TEXT ,AT 0.9*COS(18*(-8)+90), 0.9*SIN(18*(-8)+90) : "2"
PLOT TEXT ,AT 0.9*COS(18*(-7)+90), 0.9*SIN(18*(-7)+90) : "15"
PLOT TEXT ,AT 0.9*COS(18*(-6)+90), 0.9*SIN(18*(-6)+90) : "10"
PLOT TEXT ,AT 0.9*COS(18*(-5)+90), 0.9*SIN(18*(-5)+90) : "6"
PLOT TEXT ,AT 0.9*COS(18*(-4)+90), 0.9*SIN(18*(-4)+90) : "13"
PLOT TEXT ,AT 0.9*COS(18*(-3)+90), 0.9*SIN(18*(-3)+90) : "4"
PLOT TEXT ,AT 0.9*COS(18*(-2)+90), 0.9*SIN(18*(-2)+90) : "18"
PLOT TEXT ,AT 0.9*COS(18*(-1)+90), 0.9*SIN(18*(-1)+90) : "1"
PLOT TEXT ,AT -0.99,-0.99 : "quit"
PLOT TEXT ,AT -0.99,-0.89 : STR$(z(i))
SET AREA COLOR LL
FOR h=1 TO 10
PAINT 0.48*COS(36*h),0.48*SIN(36*h)
PAINT 0.78*COS(36*h),0.78*SIN(36*h)
PAINT 0,0
NEXT h
SET AREA COLOR MM
FOR h=1 TO 10
PAINT 0.48*COS(36*h+18),0.48*SIN(36*h+18)
PAINT 0.78*COS(36*h+18),0.78*SIN(36*h+18)
PAINT 0.1,0.1
NEXT h
SET AREA COLOR NN
FOR h=1 TO 10
PAINT 0.2*COS(36*h),0.2*SIN(36*h)
PAINT 0.6*COS(36*h),0.6*SIN(36*h)
NEXT h
SET AREA COLOR OO
FOR h=1 TO 10
PAINT 0.2*COS(36*h+18),0.2*SIN(36*h+18)
PAINT 0.6*COS(36*h+18),0.6*SIN(36*h+18)
NEXT h
SET AREA COLOR 2
PAINT 0.8,0.8
PAINT -0.8,0.8
PAINT 0.8,-0.8
PAINT -0.8,-0.8
SET TEXT COLOR 6
SET TEXT FONT "ＭＳ 明朝",15 ! ボード表示
PLOT TEXT ,AT -0.99,0.9 : "COUNT UP GAME"
SET TEXT COLOR 1
SET TEXT FONT "ＭＳ 明朝",10 ! ボード表示
4800 GOTO 4900
4900 NEXT i

5000 PRINT "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
PRINT TAB(10),PLAYERANAME$&"さん";" ";"COUNT UP GAME"
PRINT " 合計";" x座標";" y座標"
FOR d=1 TO SHOTS
IF MOD(d,3)<>1 THEN GOTO 5200
IF MOD(d,3)=1 THEN GOTO 5100
5100 PRINT "――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
REM PRINT TAB(10);"第";d;"投",P(d),P$(d),z(d),x(d),y(d)
5200 PRINT "第";d;"投",P$(d)
PRINT USING " ###### ###### #.##### #.#####": P(d),z(d),x(d),y(d)
NEXT d
PRINT "――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
PRINT " COUNT UP FINISHED!!"
PRINT "△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"

LET G$="D:\DARTS RESULT"
LET H$=".TXT"
LET I$=G$&H$
OPEN #1:NAME I$
SET #1: POINTER END
PRINT #1: DATE$&" "&TIME$
PRINT #1: "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
PRINT #1:TAB(10),PLAYERANAME$&"さん","COUNT UP GAME"
PRINT #1:TAB(10),,,"合計","x座標","y座標"
FOR k=1 TO SHOTS
IF MOD(k,3)<>1 THEN GOTO 5600
IF MOD(k,3)=1 THEN GOTO 5500
5500 PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
5600 PRINT #1:TAB(10);"第";k;"投",P$(k),P(k),z(k),x(k),y(k)
NEXT k
PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
PRINT #1:" COUNT UP FINISHED!!"
PRINT #1:"△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"
CLOSE #1
GOTO 6700

6000 PRINT "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
PRINT TAB(10),PLAYERANAME$&"さん";" ";"COUNT UP GAME"
PRINT " 合計";" x座標";" y座標"
FOR d=1 TO SHOTS
IF MOD(d,3)<>1 THEN GOTO 6200
IF MOD(d,3)=1 THEN GOTO 6100
6100 PRINT "――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
REM PRINT TAB(10);"第";d;"投",P(d),P$(d),z(d),x(d),y(d)
6200 PRINT "第";d;"投",P$(d)
PRINT USING " ###### ###### #.##### #.#####": P(d),z(d),x(d),y(d)
NEXT d
PRINT "――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
PRINT " Quit!!"
PRINT "△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"

LET G$="D:\DARTS RESULT"
LET H$=".TXT"
LET I$=G$&H$
OPEN #1:NAME I$
SET #1: POINTER END
PRINT #1: DATE$&" "&TIME$
PRINT #1: "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
PRINT #1:TAB(10),PLAYERANAME$&"さん","COUNT UP GAME"
PRINT #1:TAB(10),,,"合計","x座標","y座標"
FOR k=1 TO SHOTS
IF MOD(k,3)<>1 THEN GOTO 6600
IF MOD(k,3)=1 THEN GOTO 6500
6500 PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
6600 PRINT #1:TAB(10);"第";k;"投",P$(k),P(k),z(k),x(k),y(k)
NEXT k
PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
PRINT #1:" Quit!!"
PRINT #1:"△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"
CLOSE #1
6700 END
EXTERNAL PICTURE circle
OPTION ANGLE DEGREES
FOR j=0 TO 360 STEP 4
PLOT LINES:COS(j*360/360),SIN(j*360/360);
NEXT j
END PICTURE

EXTERNAL PICTURE bar
OPTION ANGLE DEGREES
FOR k=0 TO 1
PLOT LINES:k,0;
NEXT k
END PICTURE

01GAME multi in multi out - gnuutera2012or文句うさびょん URL

2025/06/01 (Sun) 00:25:51

REM 十進BASIC DARTS ダーツ 01GAME multi-in multi-out お一人様練習用(01GAME練習用 7投目改)
REM 十進BASIC 2進法モードで開くと大吉。
REM 十進BASIC 10進法モードで開くと中吉。遅いから(^^)。
REM 1人用01game練習用に作りました。
REM グラフィックスにてダーツボードを描画。
REM グラフィックスが見られないときは表示タブのグラフィックスを選択すれば閲覧可能です。
REM いきなりグラフィックスもテキストウィンドウも現れないことがありますが、十進BASICのウィンドウを小さくすると表示されるようです。
REM グラフィックスをクリックすることにより位置情報を保存可能。
REM グラフィックスはオプション->サイズ->BitMapサイズのラジオボタンを押下してサイズ変更してください。
REM バーストは1point処理、マイナス処理すべてに対応。
REM マルチインマルチアウト対応。
REM 4人対戦には未対応。
REM 十進BASIC 2進法モードで開くと大吉。
REM 十進BASIC 10進法モードで開くと中吉。遅いから(^^)。
REM D25にしてしまった箇所をDouble Bullに直しました。
REM BullはOUTER BULLの呼称に変えようか検討中。
REM Double BullはINNER BULLの呼称に変えようか検討中。
REM Dドライブに自動的に練習結果「DARTS RESULT」を作成します。
REM ちなみにx座標、y座標は練習の向上につながりますので、データをとっておくことをお勧めします。
REM 要らない方は2箇所ある該当箇所を確実に削除ください。
!▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
! LET G$="D:\DARTS RESULT"
! LET H$=".TXT"
! LET I$=G$&H$
! OPEN #1:NAME I$
! SET #1: POINTER END
! PRINT #1: DATE$&" "&TIME$
! PRINT #1: "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
! PRINT #1:TAB(10),PLAYERANAME$&"さん",B;" GAME"
! PRINT #1:TAB(10),,,"あと","x座標","y座標"
! FOR k=1 TO i
! IF MOD(k,3)<>1 THEN GOTO 5600
! IF MOD(k,3)=1 THEN GOTO 5500
!5500 PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
!5600 PRINT #1:TAB(10);"第";k;"投",P$(k),P(k),Z(k),x(k),y(k)
! NEXT k
! PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
! PRINT #1:" Doubleout!!"
! PRINT #1:"△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"
! CLOSE #1
!▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
!と、
!▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
! LET G$="D:\DARTS RESULT"
! LET H$=".TXT"
! LET I$=G$&H$
! OPEN #1:NAME I$
! SET #1: POINTER END
! PRINT #1: DATE$&" "&TIME$
! PRINT #1: "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
! PRINT #1:TAB(10),PLAYERANAME$&"さん",B;" GAME"
! PRINT #1:TAB(10),,,"あと","x座標","y座標"
! FOR k=1 TO i
! IF MOD(k,3)<>1 THEN GOTO 6600
! IF MOD(k,3)=1 THEN GOTO 6500
!6500 PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
!6600 PRINT #1:TAB(10);"第";k;"投",P$(k),P(k),Z(k),x(k),y(k)
! NEXT k
! PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
! PRINT #1:" Quit!!"
! PRINT #1:"△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"
! CLOSE #1
!▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
OPTION BASE 0
DIM x(1000)
DIM y(1000)
DIM z(1000)
DIM P(1000)
DIM P$(1000)
LET LL=3 ! D1の色 0白,1黒,2青,3緑,4赤,5水色,6黄色,7赤紫,8灰色,9濃い青,10濃い緑,11青緑,12えび茶,13オリーブ色,14 濃い紫,15銀色
LET MM=4 ! D20の色 0白,1黒,2青,3緑,4赤,5水色,6黄色,7赤紫,8灰色,9濃い青,10濃い緑,11青緑,12えび茶,13オリーブ色,14 濃い紫,15銀色
LET NN=0 ! S1の色 0白,1黒,2青,3緑,4赤,5水色,6黄色,7赤紫,8灰色,9濃い青,10濃い緑,11青緑,12えび茶,13オリーブ色,14 濃い紫,15銀色
LET OO=2 ! S20の色 0白,1黒,2青,3緑,4赤,5水色,6黄色,7赤紫,8灰色,9濃い青,10濃い緑,11青緑,12えび茶,13オリーブ色,14 濃い紫,15銀色
PRINT "何点からスタートしますか?(半角英数で入力して下さい。)"
INPUT A
LET B=A
LET Z(1)=A
PRINT "プレイヤーの氏名を入力して下さい。(全角、半角で入力して下さい。)"
INPUT PLAYERANAME$
PRINT TAB(10),PLAYERANAME$&"さん",B;" GAME"
PRINT "i","P$(i)","P(i)","あと","x(i)","y(i)"
1000 DECLARE EXTERNAL PICTURE circle
1010 DECLARE EXTERNAL PICTURE bar
1020 OPTION ANGLE DEGREES
1030 SET WINDOW -1,1,-1,1
1031 DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-0.9)
1032 DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-0.8)
1033 DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-1,-0.9)
1034 DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-0.85,-0.9)
1040 DRAW circle WITH ROTATE(0)*SCALE(0.05)*SHIFT(0,0)
1050 DRAW circle WITH ROTATE(0)*SCALE(0.15)*SHIFT(0,0)
1060 DRAW circle WITH ROTATE(0)*SCALE(0.46)*SHIFT(0,0)
1070 DRAW circle WITH ROTATE(0)*SCALE(0.49)*SHIFT(0,0)
1080 DRAW circle WITH ROTATE(0)*SCALE(0.76)*SHIFT(0,0)
1090 DRAW circle WITH ROTATE(0)*SCALE(0.79)*SHIFT(0,0)
1100 DRAW circle WITH ROTATE(0)*SCALE(1)*SHIFT(0,0)
1110 FOR g=1 TO 20
1120 DRAW bar WITH ROTATE(18*g+9)*SCALE(0.64)*SHIFT(0.15*COS(18*g+9),0.15*SIN(18*g+9))
1121 NEXT g
1122 DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-1)
1123 DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-0.9)
1124 DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-1,-1)
1125 DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-0.85,-1)
1140 SET TEXT BACKGROUND "TRANSPARENT"
1150 SET TEXT FONT "ＭＳ ゴシック" , 10
1160 SET TEXT COLOR 1
1170 PLOT TEXT ,AT 0.9*COS(18*0+90), 0.9*SIN(18*0+90) : "20"
1180 PLOT TEXT ,AT 0.9*COS(18*(-19)+90), 0.9*SIN(18*(-19)+90) : "5"
1190 PLOT TEXT ,AT 0.9*COS(18*(-18)+90), 0.9*SIN(18*(-18)+90) : "12"
1200 PLOT TEXT ,AT 0.9*COS(18*(-17)+90), 0.9*SIN(18*(-17)+90) : "9"
1210 PLOT TEXT ,AT 0.9*COS(18*(-16)+90), 0.9*SIN(18*(-16)+90) : "14"
1220 PLOT TEXT ,AT 0.9*COS(18*(-15)+90), 0.9*SIN(18*(-15)+90) : "11"
1230 PLOT TEXT ,AT 0.9*COS(18*(-14)+90), 0.9*SIN(18*(-14)+90) : "8"
1240 PLOT TEXT ,AT 0.9*COS(18*(-13)+90), 0.9*SIN(18*(-13)+90) : "16"
1250 PLOT TEXT ,AT 0.9*COS(18*(-12)+90), 0.9*SIN(18*(-12)+90) : "7"
1260 PLOT TEXT ,AT 0.9*COS(18*(-11)+90), 0.9*SIN(18*(-11)+90) : "19"
1270 PLOT TEXT ,AT 0.9*COS(18*(-10)+90), 0.9*SIN(18*(-10)+90) : "3"
1280 PLOT TEXT ,AT 0.9*COS(18*(-9)+90), 0.9*SIN(18*(-9)+90) : "17"
1290 PLOT TEXT ,AT 0.9*COS(18*(-8)+90), 0.9*SIN(18*(-8)+90) : "2"
1300 PLOT TEXT ,AT 0.9*COS(18*(-7)+90), 0.9*SIN(18*(-7)+90) : "15"
1310 PLOT TEXT ,AT 0.9*COS(18*(-6)+90), 0.9*SIN(18*(-6)+90) : "10"
1320 PLOT TEXT ,AT 0.9*COS(18*(-5)+90), 0.9*SIN(18*(-5)+90) : "6"
1330 PLOT TEXT ,AT 0.9*COS(18*(-4)+90), 0.9*SIN(18*(-4)+90) : "13"
1340 PLOT TEXT ,AT 0.9*COS(18*(-3)+90), 0.9*SIN(18*(-3)+90) : "4"
1350 PLOT TEXT ,AT 0.9*COS(18*(-2)+90), 0.9*SIN(18*(-2)+90) : "18"
1360 PLOT TEXT ,AT 0.9*COS(18*(-1)+90), 0.9*SIN(18*(-1)+90) : "1"
1361 PLOT TEXT ,AT -0.99,-0.99 : "quit"
1362 PLOT TEXT ,AT -0.99,-0.89 : STR$(z(i))
1370 SET AREA COLOR LL
1380 FOR h=1 TO 10
1390 PAINT 0.48*COS(36*h),0.48*SIN(36*h)
1400 PAINT 0.78*COS(36*h),0.78*SIN(36*h)
1410 PAINT 0,0
1420 NEXT h
1430 SET AREA COLOR MM
1440 FOR h=1 TO 10
1450 PAINT 0.48*COS(36*h+18),0.48*SIN(36*h+18)
1460 PAINT 0.78*COS(36*h+18),0.78*SIN(36*h+18)
1470 PAINT 0.1,0.1
1480 NEXT h
1490 SET AREA COLOR NN
1500 FOR h=1 TO 10
1510 PAINT 0.2*COS(36*h),0.2*SIN(36*h)
1520 PAINT 0.6*COS(36*h),0.6*SIN(36*h)
1530 NEXT h
1540 SET AREA COLOR OO
1550 FOR h=1 TO 10
1560 PAINT 0.2*COS(36*h+18),0.2*SIN(36*h+18)
1570 PAINT 0.6*COS(36*h+18),0.6*SIN(36*h+18)
1580 NEXT h
SET AREA COLOR 2
PAINT 0.8,0.8
PAINT -0.8,0.8
PAINT 0.8,-0.8
PAINT -0.8,-0.8
SET TEXT COLOR 6
SET TEXT FONT "ＭＳ 明朝",15 ! ボード表示
PLOT TEXT ,AT -0.99,0.8 : STR$(B)&" GAME"
SET TEXT COLOR 1
SET TEXT FONT "ＭＳ 明朝",10 ! ボード表示
1590 SET POINT STYLE 5
1600 SET POINT COLOR 4
1640 LET gate=0
1650 FOR i=1 TO 1000
1660 GET POINT: x(i),y(i)
1670 PLOT POINTS: x(i),y(i)
1680 PLOT TEXT ,AT x(i),y(i): STR$(i)
1681 IF -1<x(i) AND x(i)<-0.85 AND -1<y(i) AND y(i)<-0.9 THEN GOTO 6000 ! quit達成条件。

1690 IF x(i)^2+y(i)^2<0.05^2 THEN GOTO 1700
1691 IF x(i)^2+y(i)^2>0.05^2 THEN GOTO 1720
1692 IF x(i)^2+y(i)^2=0.05^2 THEN GOTO 4190
1700 LET P(i)=50
1710 LET P$(i)="Double Bull"
1715 GOTO 4201
1720 IF 0.05^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.15^2 THEN GOTO 1730
1721 IF 0.05^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.15^2 THEN GOTO 1750
1722 IF 0.05^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.15^2 THEN GOTO 4190
1730 LET P(i)=25
1740 LET P$(i)="Bull"
1745 GOTO 4201
1750 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(81)<y(i) AND x(i)*TAN(-81)<y(i) THEN GOTO 1760
1751 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(81)>y(i) OR x(i)*TAN(-81)>y(i) THEN GOTO 1780
1752 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(81)=y(i) OR x(i)*TAN(-81)=y(i) THEN GOTO 4190
1760 LET P(i)=20
1770 LET P$(i)="S20"
1775 GOTO 4201
1780 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(81) THEN GOTO 1790
1781 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(81) THEN GOTO 1810
1782 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(81) THEN GOTO 4190
1790 LET P(i)=1
1800 LET P$(i)="S1"
1805 GOTO 4201
1810 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 1820
1811 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 1840
1812 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
1820 LET P(i)=18
1830 LET P$(i)="S18"
1835 GOTO 4201
1840 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 1850
1841 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 1870
1842 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
1850 LET P(i)=4
1860 LET P$(i)="S4"
1865 GOTO 4201
1870 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 1880
1871 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 1900
1872 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
1880 LET P(i)=13
1890 LET P$(i)="S13"
1895 GOTO 4201
1900 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 1910
1901 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 1930
1902 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
1910 LET P(i)=6
1920 LET P$(i)="S6"
1925 GOTO 4201
1930 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 1940
1931 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 1960
1932 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
1940 LET P(i)=10
1950 LET P$(i)="S10"
1955 GOTO 4201
1960 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 1970
1961 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 1990
1962 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
1970 LET P(i)=15
1980 LET P$(i)="S15"
1985 GOTO 4201
1990 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 2000
1991 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 2020
1992 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
2000 LET P(i)=2
2010 LET P$(i)="S2"
2015 GOTO 4201
2020 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-81)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 2030
2021 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-81)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 2050
2022 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-81)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
2030 LET P(i)=17
2040 LET P$(i)="S17"
2045 GOTO 4201
2050 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND y(i)<x(i)*TAN(81) AND y(i)<x(i)*TAN(-81) THEN GOTO 2060
2051 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR y(i)>x(i)*TAN(81) OR y(i)>x(i)*TAN(-81) THEN GOTO 2080
2052 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR y(i)=x(i)*TAN(81) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
2060 LET P(i)=3
2070 LET P$(i)="S3"
2075 GOTO 4201
2080 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(81)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 2090
2081 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(81)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 2110
2082 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(81)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
2090 LET P(i)=19
2100 LET P$(i)="S19"
2105 GOTO 4201
2110 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 2120
2111 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 2140
2112 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
2120 LET P(i)=7
2130 LET P$(i)="S7"
2135 GOTO 4201
2140 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 2150
2141 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 2170
2142 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
2150 LET P(i)=16
2160 LET P$(i)="S16"
2165 GOTO 4201
2170 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 2180
2171 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 2200
2172 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
2180 LET P(i)=8
2190 LET P$(i)="S8"
2195 GOTO 4201
2200 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 2210
2201 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 2230
2202 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
2210 LET P(i)=11
2220 LET P$(i)="S11"
2225 GOTO 4201
2230 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 2240
2231 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 2260
2232 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
2240 LET P(i)=14
2250 LET P$(i)="S14"
2255 GOTO 4201
2260 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 2270
2261 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 2290
2262 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
2270 LET P(i)=9
2280 LET P$(i)="S9"
2285 GOTO 4201
2290 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 2300
2291 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 2320
2292 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
2300 LET P(i)=12
2310 LET P$(i)="S12"
2315 GOTO 4201
2320 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-81) THEN GOTO 2330
2321 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-81) THEN GOTO 2360
2322 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
2330 LET P(i)=5
2340 LET P$(i)="S5"
2345 GOTO 4201
!2350
2360 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(81)<y(i) AND x(i)*TAN(-81)<y(i) THEN GOTO 2370
2361 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(81)>y(i) OR x(i)*TAN(-81)>y(i) THEN GOTO 2390
2362 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(81)=y(i) OR x(i)*TAN(-81)=y(i) THEN GOTO 4190
2370 LET P(i)=60
2380 LET P$(i)="T20"
2385 GOTO 4201
2390 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(81) THEN GOTO 2400
2391 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(81) THEN GOTO 2420
2392 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(81) THEN GOTO 4190
2400 LET P(i)=3
2410 LET P$(i)="T1"
2415 GOTO 4201
2420 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 2430
2421 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 2450
2422 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
2430 LET P(i)=54
2440 LET P$(i)="T18"
2445 GOTO 4201
2450 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 2460
2451 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 2480
2452 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
2460 LET P(i)=12
2470 LET P$(i)="T4"
2475 GOTO 4201
2480 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 2490
2481 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 2510
2482 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
2490 LET P(i)=39
2500 LET P$(i)="T13"
2505 GOTO 4201
2510 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 2520
2511 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 2540
2512 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
2520 LET P(i)=18
2530 LET P$(i)="T6"
2535 GOTO 4201
2540 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 2550
2541 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 2570
2542 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
2550 LET P(i)=30
2560 LET P$(i)="T10"
2565 GOTO 4201
2570 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 2580
2571 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 2600
2572 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
2580 LET P(i)=45
2590 LET P$(i)="T15"
2595 GOTO 4201
2600 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 2610
2601 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 2630
2602 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
2610 LET P(i)=6
2620 LET P$(i)="T2"
2625 GOTO 4201
2630 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-81)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 2640
2631 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-81)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 2660
2632 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-81)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
2640 LET P(i)=51
2650 LET P$(i)="T17"
2655 GOTO 4201
2660 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND y(i)<x(i)*TAN(81) AND y(i)<x(i)*TAN(-81) THEN GOTO 2670
2661 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR y(i)>x(i)*TAN(81) OR y(i)>x(i)*TAN(-81) THEN GOTO 2690
2662 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR y(i)=x(i)*TAN(81) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
2670 LET P(i)=9
2680 LET P$(i)="T3"
2685 GOTO 4201
2690 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(81)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 2700
2691 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(81)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 2720
2692 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(81)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
2700 LET P(i)=57
2710 LET P$(i)="T19"
2715 GOTO 4201
2720 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 2730
2721 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 2750
2722 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
2730 LET P(i)=21
2740 LET P$(i)="T7"
2745 GOTO 4201
2750 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 2760
2751 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 2780
2752 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
2760 LET P(i)=48
2770 LET P$(i)="T16"
2775 GOTO 4201
2780 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 2790
2781 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 2810
2782 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
2790 LET P(i)=24
2800 LET P$(i)="T8"
2805 GOTO 4201
2810 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 2820
2811 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 2840
2812 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
2820 LET P(i)=33
2830 LET P$(i)="T11"
2835 GOTO 4201
2840 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 2850
2841 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 2870
2842 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
2850 LET P(i)=42
2860 LET P$(i)="T14"
2865 GOTO 4201
2870 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 2880
2871 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 2900
2872 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
2880 LET P(i)=27
2890 LET P$(i)="T9"
2895 GOTO 4201
2900 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 2910
2901 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 2930
2902 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
2910 LET P(i)=36
2920 LET P$(i)="T12"
2925 GOTO 4201
2930 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-81) THEN GOTO 2940
2931 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-81) THEN GOTO 2970
2932 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
2940 LET P(i)=15
2950 LET P$(i)="T5"
2955 GOTO 4201
!2960
2970 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(81)<y(i) AND x(i)*TAN(-81)<y(i) THEN GOTO 2980
2971 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(81)>y(i) OR x(i)*TAN(-81)>y(i) THEN GOTO 3000
2972 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(81)=y(i) OR x(i)*TAN(-81)=y(i) THEN GOTO 4190
2980 LET P(i)=20
2990 LET P$(i)="S20"
2995 GOTO 4201
3000 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(81) THEN GOTO 3010
3001 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(81) THEN GOTO 3030
3002 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(81) THEN GOTO 4190
3010 LET P(i)=1
3020 LET P$(i)="S1"
3025 GOTO 4201
3030 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 3040
3031 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 3060
3032 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
3040 LET P(i)=18
3050 LET P$(i)="S18"
3055 GOTO 4201
3060 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 3070
3061 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 3090
3062 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
3070 LET P(i)=4
3080 LET P$(i)="S4"
3085 GOTO 4201
3090 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 3100
3091 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 3120
3092 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
3100 LET P(i)=13
3110 LET P$(i)="S13"
3115 GOTO 4201
3120 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 3130
3121 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 3150
3122 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
3130 LET P(i)=6
3140 LET P$(i)="S6"
3145 GOTO 4201
3150 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 3160
3151 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 3180
3152 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
3160 LET P(i)=10
3170 LET P$(i)="S10"
3175 GOTO 4201
3180 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 3190
3181 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 3210
3182 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
3190 LET P(i)=15
3200 LET P$(i)="S15"
3205 GOTO 4201
3210 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 3220
3211 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 3240
3212 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
3220 LET P(i)=2
3230 LET P$(i)="S2"
3235 GOTO 4201
3240 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-81)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 3250
3241 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-81)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 3270
3242 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-81)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
3250 LET P(i)=17
3260 LET P$(i)="S17"
3265 GOTO 4201
3270 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND y(i)<x(i)*TAN(81) AND y(i)<x(i)*TAN(-81) THEN GOTO 3280
3271 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR y(i)>x(i)*TAN(81) OR y(i)>x(i)*TAN(-81) THEN GOTO 3300
3272 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR y(i)=x(i)*TAN(81) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
3280 LET P(i)=3
3290 LET P$(i)="S3"
3295 GOTO 4201
3300 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(81)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 3310
3301 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(81)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 3330
3302 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(81)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
3310 LET P(i)=19
3320 LET P$(i)="S19"
3325 GOTO 4201
3330 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 3340
3331 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 3360
3332 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
3340 LET P(i)=7
3350 LET P$(i)="S7"
3355 GOTO 4201
3360 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 3370
3361 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 3390
3362 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
3370 LET P(i)=16
3380 LET P$(i)="S16"
3385 GOTO 4201
3390 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 3400
3391 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 3420
3392 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
3400 LET P(i)=8
3410 LET P$(i)="S8"
3415 GOTO 4201
3420 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 3430
3421 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 3450
3422 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
3430 LET P(i)=11
3440 LET P$(i)="S11"
3445 GOTO 4201
3450 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 3460
3451 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 3480
3452 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
3460 LET P(i)=14
3470 LET P$(i)="S14"
3475 GOTO 4201
3480 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 3490
3481 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 3510
3482 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
3490 LET P(i)=9
3500 LET P$(i)="S9"
3505 GOTO 4201
3510 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 3520
3511 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 3540
3512 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
3520 LET P(i)=12
3530 LET P$(i)="S12"
3535 GOTO 4201
3540 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-81) THEN GOTO 3550
3541 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-81) THEN GOTO 3580
3542 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
3550 LET P(i)=5
3560 LET P$(i)="S5"
3565 GOTO 4201
!3570
3580 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(81)<y(i) AND x(i)*TAN(-81)<y(i) THEN GOTO 3590
3581 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(81)>y(i) OR x(i)*TAN(-81)>y(i) THEN GOTO 3610
3582 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(81)=y(i) OR x(i)*TAN(-81)=y(i) THEN GOTO 4190
3590 LET P(i)=40
3600 LET P$(i)="D20"
3605 GOTO 4201
3610 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(81) THEN GOTO 3620
3611 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(81) THEN GOTO 3640
3612 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(81) THEN GOTO 4190
3620 LET P(i)=2
3630 LET P$(i)="D1"
3635 GOTO 4201
3640 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 3650
3641 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 3670
3642 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
3650 LET P(i)=36
3660 LET P$(i)="D18"
3665 GOTO 4201
3670 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 3680
3671 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 3700
3672 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
3680 LET P(i)=8
3690 LET P$(i)="D4"
3695 GOTO 4201
3700 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 3710
3701 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 3730
3702 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
3710 LET P(i)=26
3720 LET P$(i)="D13"
3725 GOTO 4201
3730 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 3740
3731 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 3760
3732 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
3740 LET P(i)=12
3750 LET P$(i)="D6"
3755 GOTO 4201
3760 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 3770
3761 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 3790
3762 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
3770 LET P(i)=20
3780 LET P$(i)="D10"
3785 GOTO 4201
3790 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 3800
3791 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 3820
3792 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
3800 LET P(i)=30
3810 LET P$(i)="D15"
3815 GOTO 4201
3820 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 3830
3821 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 3850
3822 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
3830 LET P(i)=4
3840 LET P$(i)="D2"
3845 GOTO 4201
3850 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-81)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 3860
3851 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-81)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 3880
3852 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-81)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
3860 LET P(i)=34
3870 LET P$(i)="D17"
3875 GOTO 4201
3880 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND y(i)<x(i)*TAN(81) AND y(i)<x(i)*TAN(-81) THEN GOTO 3890
3881 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR y(i)>x(i)*TAN(81) OR y(i)>x(i)*TAN(-81) THEN GOTO 3910
3882 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR y(i)=x(i)*TAN(81) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
3890 LET P(i)=6
3900 LET P$(i)="D3"
3915 GOTO 4201
3910 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(81)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 3920
3911 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(81)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 3940
3912 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(81)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
3920 LET P(i)=38
3930 LET P$(i)="D19"
3935 GOTO 4201
3940 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 3950
3941 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 3970
3942 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
3950 LET P(i)=14
3960 LET P$(i)="D7"
3965 GOTO 4201
3970 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 3980
3971 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 4000
3972 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
3980 LET P(i)=32
3990 LET P$(i)="D16"
3995 GOTO 4201
4000 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 4010
4001 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 4030
4002 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
4010 LET P(i)=16
4020 LET P$(i)="D8"
4025 GOTO 4201
4030 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 4040
4031 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 4060
4032 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
4040 LET P(i)=22
4050 LET P$(i)="D11"
4055 GOTO 4201
4060 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 4070
4061 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 4090
4062 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
4070 LET P(i)=28
4080 LET P$(i)="D14"
4085 GOTO 4201
4090 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 4100
4091 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 4120
4092 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
4100 LET P(i)=18
4110 LET P$(i)="D9"
4115 GOTO 4201
4120 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 4130
4121 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 4150
4122 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
4130 LET P(i)=24
4140 LET P$(i)="D12"
4145 GOTO 4201
4150 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-81) THEN GOTO 4160
4151 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-81) THEN GOTO 4180
4152 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
4160 LET P(i)=10
4170 LET P$(i)="D5"
4175 GOTO 4201
4180 IF 0.79^2<x(i)^2+y(i)^2 THEN GOTO 4190
4190 LET P(i)=0
4200 LET P$(i)="Outboard"

4201 SET TEXT FONT "ＭＳ 明朝",15 ! ボード表示
SET TEXT COLOR 6
PLOT TEXT ,AT 0.7,0.9-MOD(i+2,3)/10 : STR$(P(i))
SET TEXT COLOR 4
PLOT TEXT ,AT 0.8,0.9-MOD(i+2,3)/10 : STR$(A-P(i))
SET TEXT FONT "ＭＳ 明朝",10
SET TEXT COLOR 1
IF gate=1 THEN GOTO 4210
4202 IF gate=0 THEN GOTO 4203

4203 IF P$(i)="D1" OR P$(i)="D2" OR P$(i)="D3" OR P$(i)="D4" OR P$(i)="D5" OR P$(i)="D6" OR P$(i)="D7" OR P$(i)="D8" OR P$(i)="D9" OR P$(i)="D10" OR P$(i)="D11" OR P$(i)="D12" OR P$(i)="D13" OR P$(i)="D14" OR P$(i)="D15" OR P$(i)="D16" OR P$(i)="D17" OR P$(i)="D18" OR P$(i)="D19" OR P$(i)="D20" OR P$(i)="Double Bull" OR P$(i)="T1" OR P$(i)="T2" OR P$(i)="T3" OR P$(i)="T4" OR P$(i)="T5" OR P$(i)="T6" OR P$(i)="T7" OR P$(i)="T8" OR P$(i)="T9" OR P$(i)="T10" OR P$(i)="T11" OR P$(i)="T12" OR P$(i)="T13" OR P$(i)="T14" OR P$(i)="T15" OR P$(i)="T16" OR P$(i)="T17" OR P$(i)="T18" OR P$(i)="T19" OR P$(i)="T20" THEN LET gate=1
4204 IF P$(i)="D1" OR P$(i)="D2" OR P$(i)="D3" OR P$(i)="D4" OR P$(i)="D5" OR P$(i)="D6" OR P$(i)="D7" OR P$(i)="D8" OR P$(i)="D9" OR P$(i)="D10" OR P$(i)="D11" OR P$(i)="D12" OR P$(i)="D13" OR P$(i)="D14" OR P$(i)="D15" OR P$(i)="D16" OR P$(i)="D17" OR P$(i)="D18" OR P$(i)="D19" OR P$(i)="D20" OR P$(i)="Double Bull" OR P$(i)="T1" OR P$(i)="T2" OR P$(i)="T3" OR P$(i)="T4" OR P$(i)="T5" OR P$(i)="T6" OR P$(i)="T7" OR P$(i)="T8" OR P$(i)="T9" OR P$(i)="T10" OR P$(i)="T11" OR P$(i)="T12" OR P$(i)="T13" OR P$(i)="T14" OR P$(i)="T15" OR P$(i)="T16" OR P$(i)="T17" OR P$(i)="T18" OR P$(i)="T19" OR P$(i)="T20" THEN GOTO 4210 ! Multi in達成条件。
4205 IF P$(i)<>"D1" OR P$(i)<>"D2" OR P$(i)<>"D3" OR P$(i)<>"D4" OR P$(i)<>"D5" OR P$(i)<>"D6" OR P$(i)<>"D7" OR P$(i)<>"D8" OR P$(i)<>"D9" OR P$(i)<>"D10" OR P$(i)<>"D11" OR P$(i)<>"D12" OR P$(i)<>"D13" OR P$(i)<>"D14" OR P$(i)<>"D15" OR P$(i)<>"D16" OR P$(i)<>"D17" OR P$(i)<>"D18" OR P$(i)<>"D19" OR P$(i)<>"D20" OR P$(i)<>"Double Bull" OR P$(i)<>"T1" OR P$(i)<>"T2" OR P$(i)<>"T3" OR P$(i)<>"T4" OR P$(i)<>"T5" OR P$(i)<>"T6" OR P$(i)<>"T7" OR P$(i)<>"T8" OR P$(i)<>"T9" OR P$(i)<>"T10" OR P$(i)<>"T11" OR P$(i)<>"T12" OR P$(i)<>"T13" OR P$(i)<>"T14" OR P$(i)<>"T15" OR P$(i)<>"T16" OR P$(i)<>"T17" OR P$(i)<>"T18" OR P$(i)<>"T19" OR P$(i)<>"T20" THEN GOTO 4510 ! Multi in未達成条件。

4210 IF A-P(i)=0 THEN GOTO 4220 ! エラーが起こるなら、A-P(i)-P(i+1)-P(i+2)、か、A-P(i)-P(i-1)-P(i-2)に正すこと。
4211 IF A-P(i)=1 THEN GOTO 4500 ! エラーが起こるなら、A-P(i)-P(i+1)-P(i+2)、か、A-P(i)-P(i-1)-P(i-2)に正すこと。
4212 IF A-P(i)<0 THEN GOTO 4500 ! エラーが起こるなら、A-P(i)-P(i+1)-P(i+2)、か、A-P(i)-P(i-1)-P(i-2)に正すこと。
4213 IF A-P(i)>0 THEN GOTO 4214 ! エラーが起こるなら、A-P(i)-P(i+1)-P(i+2)、か、A-P(i)-P(i-1)-P(i-2)に正すこと。
4214 LET A=A-P(i) ! エラーが起こるなら、A-P(i)-P(i+1)-P(i+2)、か、A-P(i)-P(i-1)-P(i-2)に正すこと。
4215 LET Z(i)=A
4216 GOTO 4700

4220 IF P$(i)="D1" OR P$(i)="D2" OR P$(i)="D3" OR P$(i)="D4" OR P$(i)="D5" OR P$(i)="D6" OR P$(i)="D7" OR P$(i)="D8" OR P$(i)="D9" OR P$(i)="D10" OR P$(i)="D11" OR P$(i)="D12" OR P$(i)="D13" OR P$(i)="D14" OR P$(i)="D15" OR P$(i)="D16" OR P$(i)="D17" OR P$(i)="D18" OR P$(i)="D19" OR P$(i)="D20" OR P$(i)="Double Bull" OR P$(i)="T1" OR P$(i)="T2" OR P$(i)="T3" OR P$(i)="T4" OR P$(i)="T5" OR P$(i)="T6" OR P$(i)="T7" OR P$(i)="T8" OR P$(i)="T9" OR P$(i)="T10" OR P$(i)="T11" OR P$(i)="T12" OR P$(i)="T13" OR P$(i)="T14" OR P$(i)="T15" OR P$(i)="T16" OR P$(i)="T17" OR P$(i)="T18" OR P$(i)="T19" OR P$(i)="T20" THEN GOTO 5000 ! Multi out達成条件。
4221 IF P$(i)<>"D1" OR P$(i)<>"D2" OR P$(i)<>"D3" OR P$(i)<>"D4" OR P$(i)<>"D5" OR P$(i)<>"D6" OR P$(i)<>"D7" OR P$(i)<>"D8" OR P$(i)<>"D9" OR P$(i)<>"D10" OR P$(i)<>"D11" OR P$(i)<>"D12" OR P$(i)<>"D13" OR P$(i)<>"D14" OR P$(i)<>"D15" OR P$(i)<>"D16" OR P$(i)<>"D17" OR P$(i)<>"D18" OR P$(i)<>"D19" OR P$(i)<>"D20" OR P$(i)<>"Double Bull" OR P$(i)<>"T1" OR P$(i)<>"T2" OR P$(i)<>"T3" OR P$(i)<>"T4" OR P$(i)<>"T5" OR P$(i)<>"T6" OR P$(i)<>"T7" OR P$(i)<>"T8" OR P$(i)<>"T9" OR P$(i)<>"T10" OR P$(i)<>"T11" OR P$(i)<>"T12" OR P$(i)<>"T13" OR P$(i)<>"T14" OR P$(i)<>"T15" OR P$(i)<>"T16" OR P$(i)<>"T17" OR P$(i)<>"T18" OR P$(i)<>"T19" OR P$(i)<>"T20" THEN GOTO 4500 ! Multi out未達成条件。

4500 IF MOD(i,3)=0 THEN GOTO 4520 ! 3投目でBURSTになる場合、つまり、"ヒット、ヒット、バースト"の処理に回す。
IF MOD(i,3)=1 THEN GOTO 4510 ! 1投目でBURSTになる場合、つまり、"バースト"の処理に回す。
IF MOD(i,3)=2 THEN GOTO 4501 ! 2投目でBURSTになる場合、つまり、"ヒット、バースト"の処理に回す。
4501 ! ヒット、バースト CHECK OK!!
LET Z(i)=A+P(i-1) ! i投目で「あと...」で表示される残り点数をそのターンの1投目のヒットのために4214行で引かれた点数分だけ元に戻す。
LET Z(i+1)=A+P(i-1) ! i+1投目で「あと...」で表示される残り点数をそのターンの1投目のヒットのために4214行で引かれた点数分だけ元に戻す。
LET A=A+P(i-1) ! 持ち点をそのターンの1投目のヒットのために4214行で引かれた点数分だけ元に戻す。
LET P(i-1)=0
LET P(i)=0
LET P$(i)=P$(i)&"BURST"
LET P$(i+1)="no count"&"BURST"
LET i=i+1 ! 2投目でバーストなので、1投分スキップした後、4900行で、そのまま次のターンの1投目に行く。
GOTO 4700
4510 !バースト CHECK OK!! ここは、そのターンの1投目のバーストだから、4214行で点数を引かれていない。
4511 LET Z(i)=A ! i投目で「あと...」で表示される残り点数はそのまま。
LET A=A ! i投目の持ち点もそのまま。
LET P(i)=0
LET P(i+1)=0
LET P(i+2)=0
LET P$(i)=P$(i)&"BURST"
LET P$(i+1)="no count"&"BURST"
LET P$(i+2)="no count"&"BURST"
LET Z(i+1)=A ! i+1投目で「あと...」で表示される残り点数はそのまま。
LET Z(i+2)=A ! i+2投目で「あと...」で表示される残り点数はそのまま。
LET Z(i+3)=A ! i+3投目で「あと...」で表示される残り点数はそのまま。
LET i=i+2 ! 1投目でバーストなので、2投分スキップした後、4900行で、そのまま次のターンの1投目に行く。
GOTO 4700
4520 !ヒット、ヒット、バースト CHECK OK!!
4521 LET Z(i)=A+P(i-1)+P(i-2) ! i投目で「あと...」で表示される残り点数をそのターンの1投目と2投目のヒットのために4214行で引かれた点数分だけ元に戻す。
LET A=A+P(i-1)+P(i-2) ! 持ち点をそのターンの1投目と2投目のヒットのために4214行で引かれた点数分だけ元に戻す。
LET P(i)=0
LET P(i-1)=0
LET P(i-2)=0
LET P$(i)=P$(i)&"BURST"
LET i=i ! 3投目でバーストなので、0投分スキップした後、4900行で、そのまま次のターンの1投目に行ける。
GOTO 4700
4700 PRINT i,P$(i),P(i),Z(i),x(i),y(i)
4701 IF MOD(i,3)<>0 THEN GOTO 4800
4702 IF MOD(i,3)=0 THEN GOTO 4703
4703 WAIT DELAY 1
CLEAR
DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-0.9)
DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-0.8)
DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-1,-0.9)
DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-0.85,-0.9)
DRAW circle WITH ROTATE(0)*SCALE(0.05)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.15)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.46)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.49)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.76)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.79)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(1)*SHIFT(0,0)
FOR g=1 TO 20
DRAW bar WITH ROTATE(18*g+9)*SCALE(0.64)*SHIFT(0.15*COS(18*g+9),0.15*SIN(18*g+9))
NEXT g
DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-1)
DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-0.9)
DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-1,-1)
DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-0.85,-1)
SET TEXT BACKGROUND "TRANSPARENT"
SET TEXT FONT "ＭＳ ゴシック" , 10
SET TEXT COLOR 1
PLOT TEXT ,AT 0.9*COS(18*0+90), 0.9*SIN(18*0+90) : "20"
PLOT TEXT ,AT 0.9*COS(18*(-19)+90), 0.9*SIN(18*(-19)+90) : "5"
PLOT TEXT ,AT 0.9*COS(18*(-18)+90), 0.9*SIN(18*(-18)+90) : "12"
PLOT TEXT ,AT 0.9*COS(18*(-17)+90), 0.9*SIN(18*(-17)+90) : "9"
PLOT TEXT ,AT 0.9*COS(18*(-16)+90), 0.9*SIN(18*(-16)+90) : "14"
PLOT TEXT ,AT 0.9*COS(18*(-15)+90), 0.9*SIN(18*(-15)+90) : "11"
PLOT TEXT ,AT 0.9*COS(18*(-14)+90), 0.9*SIN(18*(-14)+90) : "8"
PLOT TEXT ,AT 0.9*COS(18*(-13)+90), 0.9*SIN(18*(-13)+90) : "16"
PLOT TEXT ,AT 0.9*COS(18*(-12)+90), 0.9*SIN(18*(-12)+90) : "7"
PLOT TEXT ,AT 0.9*COS(18*(-11)+90), 0.9*SIN(18*(-11)+90) : "19"
PLOT TEXT ,AT 0.9*COS(18*(-10)+90), 0.9*SIN(18*(-10)+90) : "3"
PLOT TEXT ,AT 0.9*COS(18*(-9)+90), 0.9*SIN(18*(-9)+90) : "17"
PLOT TEXT ,AT 0.9*COS(18*(-8)+90), 0.9*SIN(18*(-8)+90) : "2"
PLOT TEXT ,AT 0.9*COS(18*(-7)+90), 0.9*SIN(18*(-7)+90) : "15"
PLOT TEXT ,AT 0.9*COS(18*(-6)+90), 0.9*SIN(18*(-6)+90) : "10"
PLOT TEXT ,AT 0.9*COS(18*(-5)+90), 0.9*SIN(18*(-5)+90) : "6"
PLOT TEXT ,AT 0.9*COS(18*(-4)+90), 0.9*SIN(18*(-4)+90) : "13"
PLOT TEXT ,AT 0.9*COS(18*(-3)+90), 0.9*SIN(18*(-3)+90) : "4"
PLOT TEXT ,AT 0.9*COS(18*(-2)+90), 0.9*SIN(18*(-2)+90) : "18"
PLOT TEXT ,AT 0.9*COS(18*(-1)+90), 0.9*SIN(18*(-1)+90) : "1"
PLOT TEXT ,AT -0.99,-0.99 : "quit"
PLOT TEXT ,AT -0.99,-0.89 : STR$(Z(i))
SET AREA COLOR LL
FOR h=1 TO 10
PAINT 0.48*COS(36*h),0.48*SIN(36*h)
PAINT 0.78*COS(36*h),0.78*SIN(36*h)
PAINT 0,0
NEXT h
SET AREA COLOR MM
FOR h=1 TO 10
PAINT 0.48*COS(36*h+18),0.48*SIN(36*h+18)
PAINT 0.78*COS(36*h+18),0.78*SIN(36*h+18)
PAINT 0.1,0.1
NEXT h
SET AREA COLOR NN
FOR h=1 TO 10
PAINT 0.2*COS(36*h),0.2*SIN(36*h)
PAINT 0.6*COS(36*h),0.6*SIN(36*h)
NEXT h
SET AREA COLOR OO
FOR h=1 TO 10
PAINT 0.2*COS(36*h+18),0.2*SIN(36*h+18)
PAINT 0.6*COS(36*h+18),0.6*SIN(36*h+18)
NEXT h
SET AREA COLOR 2
PAINT 0.8,0.8
PAINT -0.8,0.8
PAINT 0.8,-0.8
PAINT -0.8,-0.8
SET TEXT COLOR 6
SET TEXT FONT "ＭＳ 明朝",15 ! ボード表示
PLOT TEXT ,AT -0.99,0.8 : STR$(B)&" GAME"
SET TEXT COLOR 1
SET TEXT FONT "ＭＳ 明朝",10 ! ボード表示
4800 GOTO 4900
4900 NEXT i

5000 PRINT "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
PRINT TAB(10),PLAYERANAME$&"さん";" ";B;" GAME"
PRINT " あと";" x座標";" y座標"
FOR d=1 TO i
IF MOD(d,3)<>1 THEN GOTO 5200
IF MOD(d,3)=1 THEN GOTO 5100
5100 PRINT "――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
REM PRINT TAB(10);"第";d;"投",P(d),P$(d),Z(d),x(d),y(d)
5200 PRINT "第";d;"投",P$(d)
PRINT USING " ###### ###### #.##### #.#####": P(d),Z(d),x(d),y(d)
NEXT d
PRINT "――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
PRINT " Multiin & Multiout!!"
PRINT "△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"

LET G$="D:\DARTS RESULT"
LET H$=".TXT"
LET I$=G$&H$
OPEN #1:NAME I$
SET #1: POINTER END
PRINT #1: DATE$&" "&TIME$
PRINT #1: "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
PRINT #1:TAB(10),PLAYERANAME$&"さん",B;" GAME"
PRINT #1:TAB(10),,,"あと","x座標","y座標"
FOR k=1 TO i
IF MOD(k,3)<>1 THEN GOTO 5600
IF MOD(k,3)=1 THEN GOTO 5500
5500 PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
5600 PRINT #1:TAB(10);"第";k;"投",P$(k),P(k),Z(k),x(k),y(k)
NEXT k
PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
PRINT #1:" Multiin & Multiout!!"
PRINT #1:"△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"
CLOSE #1
GOTO 6700

6000 PRINT "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
PRINT TAB(10),PLAYERANAME$&"さん";" ";B;" GAME"
PRINT " あと";" x座標";" y座標"
FOR d=1 TO i
IF MOD(d,3)<>1 THEN GOTO 6200
IF MOD(d,3)=1 THEN GOTO 6100
6100 PRINT "――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
REM PRINT TAB(10);"第";d;"投",P(d),P$(d),Z(d),x(d),y(d)
6200 PRINT "第";d;"投",P$(d)
PRINT USING " ###### ###### #.##### #.#####": P(d),Z(d),x(d),y(d)
NEXT d
PRINT "――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
PRINT "

01GAME double in double out - gnuutera2012or文句うさびょん URL

2025/06/01 (Sun) 00:21:45

REM 十進BASIC DARTS ダーツ 01GAME double out お一人様練習用(01GAME練習用 7投目改)
REM 十進BASIC 2進法モードで開くと大吉。
REM 十進BASIC 10進法モードで開くと中吉。遅いから(^^)。
REM 1人用01game練習用に作りました。
REM グラフィックスにてダーツボードを描画。
REM グラフィックスが見られないときは表示タブのグラフィックスを選択すれば閲覧可能です。
REM いきなりグラフィックスもテキストウィンドウも現れないことがありますが、十進BASICのウィンドウを小さくすると表示されるようです。
REM グラフィックスをクリックすることにより位置情報を保存可能。
REM グラフィックスはオプション->サイズ->BitMapサイズのラジオボタンを押下してサイズ変更してください。
REM バーストは1point処理、マイナス処理すべてに対応。
REM ダブルインダブルアウト対応。
REM 4人対戦には未対応。
REM 十進BASIC 2進法モードで開くと大吉。
REM 十進BASIC 10進法モードで開くと中吉。遅いから(^^)。
REM D25にしてしまった箇所をDouble Bullに直しました。
REM BullはOUTER BULLの呼称に変えようか検討中。
REM Double BullはINNER BULLの呼称に変えようか検討中。
REM Dドライブに自動的に練習結果「DARTS RESULT」を作成します。
REM ちなみにx座標、y座標は練習の向上につながりますので、データをとっておくことをお勧めします。
REM 要らない方は2箇所ある該当箇所を確実に削除ください。
!▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
! LET G$="D:\DARTS RESULT"
! LET H$=".TXT"
! LET I$=G$&H$
! OPEN #1:NAME I$
! SET #1: POINTER END
! PRINT #1: DATE$&" "&TIME$
! PRINT #1: "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
! PRINT #1:TAB(10),PLAYERANAME$&"さん",B;" GAME"
! PRINT #1:TAB(10),,,"あと","x座標","y座標"
! FOR k=1 TO i
! IF MOD(k,3)<>1 THEN GOTO 5600
! IF MOD(k,3)=1 THEN GOTO 5500
!5500 PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
!5600 PRINT #1:TAB(10);"第";k;"投",P$(k),P(k),Z(k),x(k),y(k)
! NEXT k
! PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
! PRINT #1:" Doubleout!!"
! PRINT #1:"△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"
! CLOSE #1
!▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
!と、
!▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
! LET G$="D:\DARTS RESULT"
! LET H$=".TXT"
! LET I$=G$&H$
! OPEN #1:NAME I$
! SET #1: POINTER END
! PRINT #1: DATE$&" "&TIME$
! PRINT #1: "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
! PRINT #1:TAB(10),PLAYERANAME$&"さん",B;" GAME"
! PRINT #1:TAB(10),,,"あと","x座標","y座標"
! FOR k=1 TO i
! IF MOD(k,3)<>1 THEN GOTO 6600
! IF MOD(k,3)=1 THEN GOTO 6500
!6500 PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
!6600 PRINT #1:TAB(10);"第";k;"投",P$(k),P(k),Z(k),x(k),y(k)
! NEXT k
! PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
! PRINT #1:" Quit!!"
! PRINT #1:"△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"
! CLOSE #1
!▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
OPTION BASE 0
DIM x(1000)
DIM y(1000)
DIM z(1000)
DIM P(1000)
DIM P$(1000)
LET LL=3 ! D1の色 0白,1黒,2青,3緑,4赤,5水色,6黄色,7赤紫,8灰色,9濃い青,10濃い緑,11青緑,12えび茶,13オリーブ色,14 濃い紫,15銀色
LET MM=4 ! D20の色 0白,1黒,2青,3緑,4赤,5水色,6黄色,7赤紫,8灰色,9濃い青,10濃い緑,11青緑,12えび茶,13オリーブ色,14 濃い紫,15銀色
LET NN=0 ! S1の色 0白,1黒,2青,3緑,4赤,5水色,6黄色,7赤紫,8灰色,9濃い青,10濃い緑,11青緑,12えび茶,13オリーブ色,14 濃い紫,15銀色
LET OO=2 ! S20の色 0白,1黒,2青,3緑,4赤,5水色,6黄色,7赤紫,8灰色,9濃い青,10濃い緑,11青緑,12えび茶,13オリーブ色,14 濃い紫,15銀色
PRINT "何点からスタートしますか?(半角英数で入力して下さい。)"
INPUT A
LET B=A
LET Z(1)=A
PRINT "プレイヤーの氏名を入力して下さい。(全角、半角で入力して下さい。)"
INPUT PLAYERANAME$
PRINT TAB(10),PLAYERANAME$&"さん",B;" GAME"
PRINT "i","P$(i)","P(i)","あと","x(i)","y(i)"
1000 DECLARE EXTERNAL PICTURE circle
1010 DECLARE EXTERNAL PICTURE bar
1020 OPTION ANGLE DEGREES
1030 SET WINDOW -1,1,-1,1
1031 DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-0.9)
1032 DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-0.8)
1033 DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-1,-0.9)
1034 DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-0.85,-0.9)
1040 DRAW circle WITH ROTATE(0)*SCALE(0.05)*SHIFT(0,0)
1050 DRAW circle WITH ROTATE(0)*SCALE(0.15)*SHIFT(0,0)
1060 DRAW circle WITH ROTATE(0)*SCALE(0.46)*SHIFT(0,0)
1070 DRAW circle WITH ROTATE(0)*SCALE(0.49)*SHIFT(0,0)
1080 DRAW circle WITH ROTATE(0)*SCALE(0.76)*SHIFT(0,0)
1090 DRAW circle WITH ROTATE(0)*SCALE(0.79)*SHIFT(0,0)
1100 DRAW circle WITH ROTATE(0)*SCALE(1)*SHIFT(0,0)
1110 FOR g=1 TO 20
1120 DRAW bar WITH ROTATE(18*g+9)*SCALE(0.64)*SHIFT(0.15*COS(18*g+9),0.15*SIN(18*g+9))
1121 NEXT g
1122 DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-1)
1123 DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-0.9)
1124 DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-1,-1)
1125 DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-0.85,-1)
1140 SET TEXT BACKGROUND "TRANSPARENT"
1150 SET TEXT FONT "ＭＳ ゴシック" , 10
1160 SET TEXT COLOR 1
1170 PLOT TEXT ,AT 0.9*COS(18*0+90), 0.9*SIN(18*0+90) : "20"
1180 PLOT TEXT ,AT 0.9*COS(18*(-19)+90), 0.9*SIN(18*(-19)+90) : "5"
1190 PLOT TEXT ,AT 0.9*COS(18*(-18)+90), 0.9*SIN(18*(-18)+90) : "12"
1200 PLOT TEXT ,AT 0.9*COS(18*(-17)+90), 0.9*SIN(18*(-17)+90) : "9"
1210 PLOT TEXT ,AT 0.9*COS(18*(-16)+90), 0.9*SIN(18*(-16)+90) : "14"
1220 PLOT TEXT ,AT 0.9*COS(18*(-15)+90), 0.9*SIN(18*(-15)+90) : "11"
1230 PLOT TEXT ,AT 0.9*COS(18*(-14)+90), 0.9*SIN(18*(-14)+90) : "8"
1240 PLOT TEXT ,AT 0.9*COS(18*(-13)+90), 0.9*SIN(18*(-13)+90) : "16"
1250 PLOT TEXT ,AT 0.9*COS(18*(-12)+90), 0.9*SIN(18*(-12)+90) : "7"
1260 PLOT TEXT ,AT 0.9*COS(18*(-11)+90), 0.9*SIN(18*(-11)+90) : "19"
1270 PLOT TEXT ,AT 0.9*COS(18*(-10)+90), 0.9*SIN(18*(-10)+90) : "3"
1280 PLOT TEXT ,AT 0.9*COS(18*(-9)+90), 0.9*SIN(18*(-9)+90) : "17"
1290 PLOT TEXT ,AT 0.9*COS(18*(-8)+90), 0.9*SIN(18*(-8)+90) : "2"
1300 PLOT TEXT ,AT 0.9*COS(18*(-7)+90), 0.9*SIN(18*(-7)+90) : "15"
1310 PLOT TEXT ,AT 0.9*COS(18*(-6)+90), 0.9*SIN(18*(-6)+90) : "10"
1320 PLOT TEXT ,AT 0.9*COS(18*(-5)+90), 0.9*SIN(18*(-5)+90) : "6"
1330 PLOT TEXT ,AT 0.9*COS(18*(-4)+90), 0.9*SIN(18*(-4)+90) : "13"
1340 PLOT TEXT ,AT 0.9*COS(18*(-3)+90), 0.9*SIN(18*(-3)+90) : "4"
1350 PLOT TEXT ,AT 0.9*COS(18*(-2)+90), 0.9*SIN(18*(-2)+90) : "18"
1360 PLOT TEXT ,AT 0.9*COS(18*(-1)+90), 0.9*SIN(18*(-1)+90) : "1"
1361 PLOT TEXT ,AT -0.99,-0.99 : "quit"
1362 PLOT TEXT ,AT -0.99,-0.89 : STR$(z(i))
1370 SET AREA COLOR LL
1380 FOR h=1 TO 10
1390 PAINT 0.48*COS(36*h),0.48*SIN(36*h)
1400 PAINT 0.78*COS(36*h),0.78*SIN(36*h)
1410 PAINT 0,0
1420 NEXT h
1430 SET AREA COLOR MM
1440 FOR h=1 TO 10
1450 PAINT 0.48*COS(36*h+18),0.48*SIN(36*h+18)
1460 PAINT 0.78*COS(36*h+18),0.78*SIN(36*h+18)
1470 PAINT 0.1,0.1
1480 NEXT h
1490 SET AREA COLOR NN
1500 FOR h=1 TO 10
1510 PAINT 0.2*COS(36*h),0.2*SIN(36*h)
1520 PAINT 0.6*COS(36*h),0.6*SIN(36*h)
1530 NEXT h
1540 SET AREA COLOR OO
1550 FOR h=1 TO 10
1560 PAINT 0.2*COS(36*h+18),0.2*SIN(36*h+18)
1570 PAINT 0.6*COS(36*h+18),0.6*SIN(36*h+18)
1580 NEXT h
SET AREA COLOR 2
PAINT 0.8,0.8
PAINT -0.8,0.8
PAINT 0.8,-0.8
PAINT -0.8,-0.8
SET TEXT COLOR 6
SET TEXT FONT "ＭＳ 明朝",15 ! ボード表示
PLOT TEXT ,AT -0.99,0.8 : STR$(B)&" GAME"
SET TEXT COLOR 1
SET TEXT FONT "ＭＳ 明朝",10 ! ボード表示
1590 SET POINT STYLE 5
1600 SET POINT COLOR 4
1640 LET gate=0
1650 FOR i=1 TO 1000
1660 GET POINT: x(i),y(i)
1670 PLOT POINTS: x(i),y(i)
1680 PLOT TEXT ,AT x(i),y(i): STR$(i)
1681 IF -1<x(i) AND x(i)<-0.85 AND -1<y(i) AND y(i)<-0.9 THEN GOTO 6000 ! quit達成条件。
1690 IF x(i)^2+y(i)^2<0.05^2 THEN GOTO 1700
1691 IF x(i)^2+y(i)^2>0.05^2 THEN GOTO 1720
1692 IF x(i)^2+y(i)^2=0.05^2 THEN GOTO 4190
1700 LET P(i)=50
1710 LET P$(i)="Double Bull"
1715 GOTO 4201
1720 IF 0.05^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.15^2 THEN GOTO 1730
1721 IF 0.05^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.15^2 THEN GOTO 1750
1722 IF 0.05^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.15^2 THEN GOTO 4190
1730 LET P(i)=25
1740 LET P$(i)="Bull"
1745 GOTO 4201
1750 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(81)<y(i) AND x(i)*TAN(-81)<y(i) THEN GOTO 1760
1751 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(81)>y(i) OR x(i)*TAN(-81)>y(i) THEN GOTO 1780
1752 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(81)=y(i) OR x(i)*TAN(-81)=y(i) THEN GOTO 4190
1760 LET P(i)=20
1770 LET P$(i)="S20"
1775 GOTO 4201
1780 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(81) THEN GOTO 1790
1781 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(81) THEN GOTO 1810
1782 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(81) THEN GOTO 4190
1790 LET P(i)=1
1800 LET P$(i)="S1"
1805 GOTO 4201
1810 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 1820
1811 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 1840
1812 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
1820 LET P(i)=18
1830 LET P$(i)="S18"
1835 GOTO 4201
1840 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 1850
1841 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 1870
1842 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
1850 LET P(i)=4
1860 LET P$(i)="S4"
1865 GOTO 4201
1870 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 1880
1871 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 1900
1872 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
1880 LET P(i)=13
1890 LET P$(i)="S13"
1895 GOTO 4201
1900 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 1910
1901 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 1930
1902 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
1910 LET P(i)=6
1920 LET P$(i)="S6"
1925 GOTO 4201
1930 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 1940
1931 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 1960
1932 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
1940 LET P(i)=10
1950 LET P$(i)="S10"
1955 GOTO 4201
1960 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 1970
1961 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 1990
1962 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
1970 LET P(i)=15
1980 LET P$(i)="S15"
1985 GOTO 4201
1990 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 2000
1991 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 2020
1992 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
2000 LET P(i)=2
2010 LET P$(i)="S2"
2015 GOTO 4201
2020 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-81)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 2030
2021 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-81)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 2050
2022 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-81)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
2030 LET P(i)=17
2040 LET P$(i)="S17"
2045 GOTO 4201
2050 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND y(i)<x(i)*TAN(81) AND y(i)<x(i)*TAN(-81) THEN GOTO 2060
2051 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR y(i)>x(i)*TAN(81) OR y(i)>x(i)*TAN(-81) THEN GOTO 2080
2052 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR y(i)=x(i)*TAN(81) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
2060 LET P(i)=3
2070 LET P$(i)="S3"
2075 GOTO 4201
2080 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(81)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 2090
2081 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(81)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 2110
2082 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(81)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
2090 LET P(i)=19
2100 LET P$(i)="S19"
2105 GOTO 4201
2110 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 2120
2111 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 2140
2112 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
2120 LET P(i)=7
2130 LET P$(i)="S7"
2135 GOTO 4201
2140 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 2150
2141 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 2170
2142 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
2150 LET P(i)=16
2160 LET P$(i)="S16"
2165 GOTO 4201
2170 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 2180
2171 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 2200
2172 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
2180 LET P(i)=8
2190 LET P$(i)="S8"
2195 GOTO 4201
2200 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 2210
2201 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 2230
2202 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
2210 LET P(i)=11
2220 LET P$(i)="S11"
2225 GOTO 4201
2230 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 2240
2231 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 2260
2232 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
2240 LET P(i)=14
2250 LET P$(i)="S14"
2255 GOTO 4201
2260 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 2270
2261 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 2290
2262 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
2270 LET P(i)=9
2280 LET P$(i)="S9"
2285 GOTO 4201
2290 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 2300
2291 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 2320
2292 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
2300 LET P(i)=12
2310 LET P$(i)="S12"
2315 GOTO 4201
2320 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-81) THEN GOTO 2330
2321 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-81) THEN GOTO 2360
2322 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
2330 LET P(i)=5
2340 LET P$(i)="S5"
2345 GOTO 4201
!2350
2360 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(81)<y(i) AND x(i)*TAN(-81)<y(i) THEN GOTO 2370
2361 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(81)>y(i) OR x(i)*TAN(-81)>y(i) THEN GOTO 2390
2362 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(81)=y(i) OR x(i)*TAN(-81)=y(i) THEN GOTO 4190
2370 LET P(i)=60
2380 LET P$(i)="T20"
2385 GOTO 4201
2390 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(81) THEN GOTO 2400
2391 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(81) THEN GOTO 2420
2392 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(81) THEN GOTO 4190
2400 LET P(i)=3
2410 LET P$(i)="T1"
2415 GOTO 4201
2420 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 2430
2421 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 2450
2422 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
2430 LET P(i)=54
2440 LET P$(i)="T18"
2445 GOTO 4201
2450 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 2460
2451 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 2480
2452 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
2460 LET P(i)=12
2470 LET P$(i)="T4"
2475 GOTO 4201
2480 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 2490
2481 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 2510
2482 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
2490 LET P(i)=39
2500 LET P$(i)="T13"
2505 GOTO 4201
2510 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 2520
2511 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 2540
2512 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
2520 LET P(i)=18
2530 LET P$(i)="T6"
2535 GOTO 4201
2540 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 2550
2541 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 2570
2542 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
2550 LET P(i)=30
2560 LET P$(i)="T10"
2565 GOTO 4201
2570 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 2580
2571 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 2600
2572 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
2580 LET P(i)=45
2590 LET P$(i)="T15"
2595 GOTO 4201
2600 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 2610
2601 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 2630
2602 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
2610 LET P(i)=6
2620 LET P$(i)="T2"
2625 GOTO 4201
2630 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-81)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 2640
2631 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-81)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 2660
2632 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-81)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
2640 LET P(i)=51
2650 LET P$(i)="T17"
2655 GOTO 4201
2660 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND y(i)<x(i)*TAN(81) AND y(i)<x(i)*TAN(-81) THEN GOTO 2670
2661 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR y(i)>x(i)*TAN(81) OR y(i)>x(i)*TAN(-81) THEN GOTO 2690
2662 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR y(i)=x(i)*TAN(81) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
2670 LET P(i)=9
2680 LET P$(i)="T3"
2685 GOTO 4201
2690 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(81)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 2700
2691 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(81)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 2720
2692 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(81)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
2700 LET P(i)=57
2710 LET P$(i)="T19"
2715 GOTO 4201
2720 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 2730
2721 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 2750
2722 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
2730 LET P(i)=21
2740 LET P$(i)="T7"
2745 GOTO 4201
2750 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 2760
2751 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 2780
2752 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
2760 LET P(i)=48
2770 LET P$(i)="T16"
2775 GOTO 4201
2780 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 2790
2781 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 2810
2782 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
2790 LET P(i)=24
2800 LET P$(i)="T8"
2805 GOTO 4201
2810 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 2820
2811 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 2840
2812 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
2820 LET P(i)=33
2830 LET P$(i)="T11"
2835 GOTO 4201
2840 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 2850
2841 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 2870
2842 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
2850 LET P(i)=42
2860 LET P$(i)="T14"
2865 GOTO 4201
2870 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 2880
2871 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 2900
2872 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
2880 LET P(i)=27
2890 LET P$(i)="T9"
2895 GOTO 4201
2900 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 2910
2901 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 2930
2902 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
2910 LET P(i)=36
2920 LET P$(i)="T12"
2925 GOTO 4201
2930 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-81) THEN GOTO 2940
2931 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-81) THEN GOTO 2970
2932 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
2940 LET P(i)=15
2950 LET P$(i)="T5"
2955 GOTO 4201
!2960
2970 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(81)<y(i) AND x(i)*TAN(-81)<y(i) THEN GOTO 2980
2971 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(81)>y(i) OR x(i)*TAN(-81)>y(i) THEN GOTO 3000
2972 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(81)=y(i) OR x(i)*TAN(-81)=y(i) THEN GOTO 4190
2980 LET P(i)=20
2990 LET P$(i)="S20"
2995 GOTO 4201
3000 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(81) THEN GOTO 3010
3001 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(81) THEN GOTO 3030
3002 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(81) THEN GOTO 4190
3010 LET P(i)=1
3020 LET P$(i)="S1"
3025 GOTO 4201
3030 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 3040
3031 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 3060
3032 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
3040 LET P(i)=18
3050 LET P$(i)="S18"
3055 GOTO 4201
3060 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 3070
3061 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 3090
3062 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
3070 LET P(i)=4
3080 LET P$(i)="S4"
3085 GOTO 4201
3090 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 3100
3091 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 3120
3092 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
3100 LET P(i)=13
3110 LET P$(i)="S13"
3115 GOTO 4201
3120 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 3130
3121 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 3150
3122 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
3130 LET P(i)=6
3140 LET P$(i)="S6"
3145 GOTO 4201
3150 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 3160
3151 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 3180
3152 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
3160 LET P(i)=10
3170 LET P$(i)="S10"
3175 GOTO 4201
3180 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 3190
3181 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 3210
3182 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
3190 LET P(i)=15
3200 LET P$(i)="S15"
3205 GOTO 4201
3210 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 3220
3211 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 3240
3212 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
3220 LET P(i)=2
3230 LET P$(i)="S2"
3235 GOTO 4201
3240 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-81)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 3250
3241 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-81)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 3270
3242 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-81)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
3250 LET P(i)=17
3260 LET P$(i)="S17"
3265 GOTO 4201
3270 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND y(i)<x(i)*TAN(81) AND y(i)<x(i)*TAN(-81) THEN GOTO 3280
3271 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR y(i)>x(i)*TAN(81) OR y(i)>x(i)*TAN(-81) THEN GOTO 3300
3272 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR y(i)=x(i)*TAN(81) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
3280 LET P(i)=3
3290 LET P$(i)="S3"
3295 GOTO 4201
3300 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(81)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 3310
3301 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(81)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 3330
3302 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(81)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
3310 LET P(i)=19
3320 LET P$(i)="S19"
3325 GOTO 4201
3330 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 3340
3331 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 3360
3332 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
3340 LET P(i)=7
3350 LET P$(i)="S7"
3355 GOTO 4201
3360 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 3370
3361 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 3390
3362 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
3370 LET P(i)=16
3380 LET P$(i)="S16"
3385 GOTO 4201
3390 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 3400
3391 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 3420
3392 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
3400 LET P(i)=8
3410 LET P$(i)="S8"
3415 GOTO 4201
3420 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 3430
3421 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 3450
3422 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
3430 LET P(i)=11
3440 LET P$(i)="S11"
3445 GOTO 4201
3450 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 3460
3451 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 3480
3452 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
3460 LET P(i)=14
3470 LET P$(i)="S14"
3475 GOTO 4201
3480 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 3490
3481 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 3510
3482 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
3490 LET P(i)=9
3500 LET P$(i)="S9"
3505 GOTO 4201
3510 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 3520
3511 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 3540
3512 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
3520 LET P(i)=12
3530 LET P$(i)="S12"
3535 GOTO 4201
3540 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-81) THEN GOTO 3550
3541 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-81) THEN GOTO 3580
3542 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
3550 LET P(i)=5
3560 LET P$(i)="S5"
3565 GOTO 4201
!3570
3580 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(81)<y(i) AND x(i)*TAN(-81)<y(i) THEN GOTO 3590
3581 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(81)>y(i) OR x(i)*TAN(-81)>y(i) THEN GOTO 3610
3582 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(81)=y(i) OR x(i)*TAN(-81)=y(i) THEN GOTO 4190
3590 LET P(i)=40
3600 LET P$(i)="D20"
3605 GOTO 4201
3610 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(81) THEN GOTO 3620
3611 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(81) THEN GOTO 3640
3612 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(81) THEN GOTO 4190
3620 LET P(i)=2
3630 LET P$(i)="D1"
3635 GOTO 4201
3640 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 3650
3641 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 3670
3642 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
3650 LET P(i)=36
3660 LET P$(i)="D18"
3665 GOTO 4201
3670 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 3680
3671 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 3700
3672 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
3680 LET P(i)=8
3690 LET P$(i)="D4"
3695 GOTO 4201
3700 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 3710
3701 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 3730
3702 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
3710 LET P(i)=26
3720 LET P$(i)="D13"
3725 GOTO 4201
3730 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 3740
3731 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 3760
3732 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
3740 LET P(i)=12
3750 LET P$(i)="D6"
3755 GOTO 4201
3760 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 3770
3761 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 3790
3762 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
3770 LET P(i)=20
3780 LET P$(i)="D10"
3785 GOTO 4201
3790 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 3800
3791 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 3820
3792 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
3800 LET P(i)=30
3810 LET P$(i)="D15"
3815 GOTO 4201
3820 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 3830
3821 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 3850
3822 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
3830 LET P(i)=4
3840 LET P$(i)="D2"
3845 GOTO 4201
3850 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-81)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 3860
3851 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-81)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 3880
3852 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-81)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
3860 LET P(i)=34
3870 LET P$(i)="D17"
3875 GOTO 4201
3880 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND y(i)<x(i)*TAN(81) AND y(i)<x(i)*TAN(-81) THEN GOTO 3890
3881 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR y(i)>x(i)*TAN(81) OR y(i)>x(i)*TAN(-81) THEN GOTO 3910
3882 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR y(i)=x(i)*TAN(81) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
3890 LET P(i)=6
3900 LET P$(i)="D3"
3915 GOTO 4201
3910 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(81)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 3920
3911 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(81)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 3940
3912 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(81)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
3920 LET P(i)=38
3930 LET P$(i)="D19"
3935 GOTO 4201
3940 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 3950
3941 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 3970
3942 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
3950 LET P(i)=14
3960 LET P$(i)="D7"
3965 GOTO 4201
3970 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 3980
3971 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 4000
3972 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
3980 LET P(i)=32
3990 LET P$(i)="D16"
3995 GOTO 4201
4000 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 4010
4001 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 4030
4002 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
4010 LET P(i)=16
4020 LET P$(i)="D8"
4025 GOTO 4201
4030 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 4040
4031 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 4060
4032 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
4040 LET P(i)=22
4050 LET P$(i)="D11"
4055 GOTO 4201
4060 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 4070
4061 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 4090
4062 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
4070 LET P(i)=28
4080 LET P$(i)="D14"
4085 GOTO 4201
4090 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 4100
4091 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 4120
4092 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
4100 LET P(i)=18
4110 LET P$(i)="D9"
4115 GOTO 4201
4120 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 4130
4121 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 4150
4122 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
4130 LET P(i)=24
4140 LET P$(i)="D12"
4145 GOTO 4201
4150 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-81) THEN GOTO 4160
4151 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-81) THEN GOTO 4180
4152 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
4160 LET P(i)=10
4170 LET P$(i)="D5"
4175 GOTO 4201
4180 IF 0.79^2<x(i)^2+y(i)^2 THEN GOTO 4190
4190 LET P(i)=0
4200 LET P$(i)="Outboard"

4201 SET TEXT FONT "ＭＳ 明朝",15 ! ボード表示
SET TEXT COLOR 6
PLOT TEXT ,AT 0.7,0.9-MOD(i+2,3)/10 : STR$(P(i))
SET TEXT COLOR 4
PLOT TEXT ,AT 0.8,0.9-MOD(i+2,3)/10 : STR$(A-P(i))
SET TEXT FONT "ＭＳ 明朝",10
SET TEXT COLOR 1
IF gate=1 THEN GOTO 4210
4202 IF gate=0 THEN GOTO 4203
4203 IF P$(i)="D1" OR P$(i)="D2" OR P$(i)="D3" OR P$(i)="D4" OR P$(i)="D5" OR P$(i)="D6" OR P$(i)="D7" OR P$(i)="D8" OR P$(i)="D9" OR P$(i)="D10" OR P$(i)="D11" OR P$(i)="D12" OR P$(i)="D13" OR P$(i)="D14" OR P$(i)="D15" OR P$(i)="D16" OR P$(i)="D17" OR P$(i)="D18" OR P$(i)="D19" OR P$(i)="D20" OR P$(i)="Double Bull" THEN LET gate=1
4204 IF P$(i)="D1" OR P$(i)="D2" OR P$(i)="D3" OR P$(i)="D4" OR P$(i)="D5" OR P$(i)="D6" OR P$(i)="D7" OR P$(i)="D8" OR P$(i)="D9" OR P$(i)="D10" OR P$(i)="D11" OR P$(i)="D12" OR P$(i)="D13" OR P$(i)="D14" OR P$(i)="D15" OR P$(i)="D16" OR P$(i)="D17" OR P$(i)="D18" OR P$(i)="D19" OR P$(i)="D20" OR P$(i)="Double Bull" THEN GOTO 4210 ! Double in達成条件。
4205 IF P$(i)<>"D1" OR P$(i)<>"D2" OR P$(i)<>"D3" OR P$(i)<>"D4" OR P$(i)<>"D5" OR P$(i)<>"D6" OR P$(i)<>"D7" OR P$(i)<>"D8" OR P$(i)<>"D9" OR P$(i)<>"D10" OR P$(i)<>"D11" OR P$(i)<>"D12" OR P$(i)<>"D13" OR P$(i)<>"D14" OR P$(i)<>"D15" OR P$(i)<>"D16" OR P$(i)<>"D17" OR P$(i)<>"D18" OR P$(i)<>"D19" OR P$(i)<>"D20" OR P$(i)<>"Double Bull" THEN GOTO 4510 ! Double in未達成条件。
4210 IF A-P(i)=0 THEN GOTO 4220 ! エラーが起こるなら、A-P(i)-P(i+1)-P(i+2)、か、A-P(i)-P(i-1)-P(i-2)に正すこと。
4211 IF A-P(i)=1 THEN GOTO 4500 ! エラーが起こるなら、A-P(i)-P(i+1)-P(i+2)、か、A-P(i)-P(i-1)-P(i-2)に正すこと。
4212 IF A-P(i)<0 THEN GOTO 4500 ! エラーが起こるなら、A-P(i)-P(i+1)-P(i+2)、か、A-P(i)-P(i-1)-P(i-2)に正すこと。
4213 IF A-P(i)>0 THEN GOTO 4214 ! エラーが起こるなら、A-P(i)-P(i+1)-P(i+2)、か、A-P(i)-P(i-1)-P(i-2)に正すこと。
4214 LET A=A-P(i) ! エラーが起こるなら、A-P(i)-P(i+1)-P(i+2)、か、A-P(i)-P(i-1)-P(i-2)に正すこと。
4215 LET Z(i)=A
4216 GOTO 4700

4220 IF P$(i)="D1" OR P$(i)="D2" OR P$(i)="D3" OR P$(i)="D4" OR P$(i)="D5" OR P$(i)="D6" OR P$(i)="D7" OR P$(i)="D8" OR P$(i)="D9" OR P$(i)="D10" OR P$(i)="D11" OR P$(i)="D12" OR P$(i)="D13" OR P$(i)="D14" OR P$(i)="D15" OR P$(i)="D16" OR P$(i)="D17" OR P$(i)="D18" OR P$(i)="D19" OR P$(i)="D20" OR P$(i)="Double Bull" THEN GOTO 5000 ! Double out達成条件。
4221 IF P$(i)<>"D1" OR P$(i)<>"D2" OR P$(i)<>"D3" OR P$(i)<>"D4" OR P$(i)<>"D5" OR P$(i)<>"D6" OR P$(i)<>"D7" OR P$(i)<>"D8" OR P$(i)<>"D9" OR P$(i)<>"D10" OR P$(i)<>"D11" OR P$(i)<>"D12" OR P$(i)<>"D13" OR P$(i)<>"D14" OR P$(i)<>"D15" OR P$(i)<>"D16" OR P$(i)<>"D17" OR P$(i)<>"D18" OR P$(i)<>"D19" OR P$(i)<>"D20" OR P$(i)<>"Double Bull" THEN GOTO 4500 ! Double out未達成条件。

4500 IF MOD(i,3)=0 THEN GOTO 4520 ! 3投目でBURSTになる場合、つまり、"ヒット、ヒット、バースト"の処理に回す。
IF MOD(i,3)=1 THEN GOTO 4510 ! 1投目でBURSTになる場合、つまり、"バースト"の処理に回す。
IF MOD(i,3)=2 THEN GOTO 4501 ! 2投目でBURSTになる場合、つまり、"ヒット、バースト"の処理に回す。
4501 ! ヒット、バースト CHECK OK!!
LET Z(i)=A+P(i-1) ! i投目で「あと...」で表示される残り点数をそのターンの1投目のヒットのために4214行で引かれた点数分だけ元に戻す。
LET Z(i+1)=A+P(i-1) ! i+1投目で「あと...」で表示される残り点数をそのターンの1投目のヒットのために4214行で引かれた点数分だけ元に戻す。
LET A=A+P(i-1) ! 持ち点をそのターンの1投目のヒットのために4214行で引かれた点数分だけ元に戻す。
LET P(i-1)=0
LET P(i)=0
LET P$(i)=P$(i)&"BURST"
LET P$(i+1)="no count"&"BURST"
LET i=i+1 ! 2投目でバーストなので、1投分スキップした後、4900行で、そのまま次のターンの1投目に行く。
GOTO 4700
4510 !バースト CHECK OK!! ここは、そのターンの1投目のバーストだから、4214行で点数を引かれていない。
4511 LET Z(i)=A ! i投目で「あと...」で表示される残り点数はそのまま。
LET A=A ! i投目の持ち点もそのまま。
LET P(i)=0
LET P(i+1)=0
LET P(i+2)=0
LET P$(i)=P$(i)&"BURST"
LET P$(i+1)="no count"&"BURST"
LET P$(i+2)="no count"&"BURST"
LET Z(i+1)=A ! i+1投目で「あと...」で表示される残り点数はそのまま。
LET Z(i+2)=A ! i+2投目で「あと...」で表示される残り点数はそのまま。
LET Z(i+3)=A ! i+3投目で「あと...」で表示される残り点数はそのまま。
LET i=i+2 ! 1投目でバーストなので、2投分スキップした後、4900行で、そのまま次のターンの1投目に行く。
GOTO 4700
4520 !ヒット、ヒット、バースト CHECK OK!!
4521 LET Z(i)=A+P(i-1)+P(i-2) ! i投目で「あと...」で表示される残り点数をそのターンの1投目と2投目のヒットのために4214行で引かれた点数分だけ元に戻す。
LET A=A+P(i-1)+P(i-2) ! 持ち点をそのターンの1投目と2投目のヒットのために4214行で引かれた点数分だけ元に戻す。
LET P(i)=0
LET P(i-1)=0
LET P(i-2)=0
LET P$(i)=P$(i)&"BURST"
LET i=i ! 3投目でバーストなので、0投分スキップした後、4900行で、そのまま次のターンの1投目に行ける。
GOTO 4700
4700 PRINT i,P$(i),P(i),Z(i),x(i),y(i)
4701 IF MOD(i,3)<>0 THEN GOTO 4800
4702 IF MOD(i,3)=0 THEN GOTO 4703
4703 WAIT DELAY 1
CLEAR
DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-0.9)
DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-0.8)
DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-1,-0.9)
DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-0.85,-0.9)
DRAW circle WITH ROTATE(0)*SCALE(0.05)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.15)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.46)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.49)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.76)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.79)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(1)*SHIFT(0,0)
FOR g=1 TO 20
DRAW bar WITH ROTATE(18*g+9)*SCALE(0.64)*SHIFT(0.15*COS(18*g+9),0.15*SIN(18*g+9))
NEXT g
DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-1)
DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-0.9)
DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-1,-1)
DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-0.85,-1)
SET TEXT BACKGROUND "TRANSPARENT"
SET TEXT FONT "ＭＳ ゴシック" , 10
SET TEXT COLOR 1
PLOT TEXT ,AT 0.9*COS(18*0+90), 0.9*SIN(18*0+90) : "20"
PLOT TEXT ,AT 0.9*COS(18*(-19)+90), 0.9*SIN(18*(-19)+90) : "5"
PLOT TEXT ,AT 0.9*COS(18*(-18)+90), 0.9*SIN(18*(-18)+90) : "12"
PLOT TEXT ,AT 0.9*COS(18*(-17)+90), 0.9*SIN(18*(-17)+90) : "9"
PLOT TEXT ,AT 0.9*COS(18*(-16)+90), 0.9*SIN(18*(-16)+90) : "14"
PLOT TEXT ,AT 0.9*COS(18*(-15)+90), 0.9*SIN(18*(-15)+90) : "11"
PLOT TEXT ,AT 0.9*COS(18*(-14)+90), 0.9*SIN(18*(-14)+90) : "8"
PLOT TEXT ,AT 0.9*COS(18*(-13)+90), 0.9*SIN(18*(-13)+90) : "16"
PLOT TEXT ,AT 0.9*COS(18*(-12)+90), 0.9*SIN(18*(-12)+90) : "7"
PLOT TEXT ,AT 0.9*COS(18*(-11)+90), 0.9*SIN(18*(-11)+90) : "19"
PLOT TEXT ,AT 0.9*COS(18*(-10)+90), 0.9*SIN(18*(-10)+90) : "3"
PLOT TEXT ,AT 0.9*COS(18*(-9)+90), 0.9*SIN(18*(-9)+90) : "17"
PLOT TEXT ,AT 0.9*COS(18*(-8)+90), 0.9*SIN(18*(-8)+90) : "2"
PLOT TEXT ,AT 0.9*COS(18*(-7)+90), 0.9*SIN(18*(-7)+90) : "15"
PLOT TEXT ,AT 0.9*COS(18*(-6)+90), 0.9*SIN(18*(-6)+90) : "10"
PLOT TEXT ,AT 0.9*COS(18*(-5)+90), 0.9*SIN(18*(-5)+90) : "6"
PLOT TEXT ,AT 0.9*COS(18*(-4)+90), 0.9*SIN(18*(-4)+90) : "13"
PLOT TEXT ,AT 0.9*COS(18*(-3)+90), 0.9*SIN(18*(-3)+90) : "4"
PLOT TEXT ,AT 0.9*COS(18*(-2)+90), 0.9*SIN(18*(-2)+90) : "18"
PLOT TEXT ,AT 0.9*COS(18*(-1)+90), 0.9*SIN(18*(-1)+90) : "1"
PLOT TEXT ,AT -0.99,-0.99 : "quit"
PLOT TEXT ,AT -0.99,-0.89 : STR$(Z(i))
SET AREA COLOR LL
FOR h=1 TO 10
PAINT 0.48*COS(36*h),0.48*SIN(36*h)
PAINT 0.78*COS(36*h),0.78*SIN(36*h)
PAINT 0,0
NEXT h
SET AREA COLOR MM
FOR h=1 TO 10
PAINT 0.48*COS(36*h+18),0.48*SIN(36*h+18)
PAINT 0.78*COS(36*h+18),0.78*SIN(36*h+18)
PAINT 0.1,0.1
NEXT h
SET AREA COLOR NN
FOR h=1 TO 10
PAINT 0.2*COS(36*h),0.2*SIN(36*h)
PAINT 0.6*COS(36*h),0.6*SIN(36*h)
NEXT h
SET AREA COLOR OO
FOR h=1 TO 10
PAINT 0.2*COS(36*h+18),0.2*SIN(36*h+18)
PAINT 0.6*COS(36*h+18),0.6*SIN(36*h+18)
NEXT h
SET AREA COLOR 2
PAINT 0.8,0.8
PAINT -0.8,0.8
PAINT 0.8,-0.8
PAINT -0.8,-0.8
SET TEXT COLOR 6
SET TEXT FONT "ＭＳ 明朝",15 ! ボード表示
PLOT TEXT ,AT -0.99,0.8 : STR$(B)&" GAME"
SET TEXT COLOR 1
SET TEXT FONT "ＭＳ 明朝",10 ! ボード表示
4800 GOTO 4900
4900 NEXT i

5000 PRINT "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
PRINT TAB(10),PLAYERANAME$&"さん";" ";B;" GAME"
PRINT " あと";" x座標";" y座標"
FOR d=1 TO i
IF MOD(d,3)<>1 THEN GOTO 5200
IF MOD(d,3)=1 THEN GOTO 5100
5100 PRINT "――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
REM PRINT TAB(10);"第";d;"投",P(d),P$(d),Z(d),x(d),y(d)
5200 PRINT "第";d;"投",P$(d)
PRINT USING " ###### ###### #.##### #.#####": P(d),Z(d),x(d),y(d)
NEXT d
PRINT "――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
PRINT " Doublein & Doubleout!!"
PRINT "△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"

LET G$="D:\DARTS RESULT"
LET H$=".TXT"
LET I$=G$&H$
OPEN #1:NAME I$
SET #1: POINTER END
PRINT #1: DATE$&" "&TIME$
PRINT #1: "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
PRINT #1:TAB(10),PLAYERANAME$&"さん",B;" GAME"
PRINT #1:TAB(10),,,"あと","x座標","y座標"
FOR k=1 TO i
IF MOD(k,3)<>1 THEN GOTO 5600
IF MOD(k,3)=1 THEN GOTO 5500
5500 PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
5600 PRINT #1:TAB(10);"第";k;"投",P$(k),P(k),Z(k),x(k),y(k)
NEXT k
PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
PRINT #1:" Doublein & Doubleout!!"
PRINT #1:"△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"
CLOSE #1
GOTO 6700

6000 PRINT "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
PRINT TAB(10),PLAYERANAME$&"さん";" ";B;" GAME"
PRINT " あと";" x座標";" y座標"
FOR d=1 TO i
IF MOD(d,3)<>1 THEN GOTO 6200
IF MOD(d,3)=1 THEN GOTO 6100
6100 PRINT "――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
REM PRINT TAB(10);"第";d;"投",P(d),P$(d),Z(d),x(d),y(d)
6200 PRINT "第";d;"投",P$(d)
PRINT USING " ###### ###### #.##### #.#####": P(d),Z(d),x(d),y(d)
NEXT d
PRINT "――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
PRINT " Quit!!"
PRINT "△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"

LET G$="D:\DARTS RESULT"
LET H$=".TXT"
LET I$=G$&H$
OPEN #1:NAME I$
SET #1: POINTER END
PRINT #1: DATE$&" "&TIME$
PRINT #1: "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
PRINT #1:TAB(10),PLAYERANAME$&"さん",B;" GAME"
PRINT #1:TAB(10),,,"あと","x座標","y座標"
FOR k=1 TO i
IF MOD(k,3)<>1 THEN GOTO 6600
IF MOD(k,3)=1 THEN GOTO 6500
6500 PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
6600 PRINT #1:TAB(10);"第";k;"投",P$(k),P(k),Z(k),x(k),y(k)
NEXT k
PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
PRINT #1:" Quit!!"
PRINT #1:"△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"
CLOSE #1
6700 END

EXTERNAL PICTURE circle
OPTION ANGLE DEGREES
FOR j=0 TO 360 STEP 4
PLOT LINES:COS(j*360/360),SIN(j*360/360);
NEXT j
END PICTURE

EXTERNAL PICTURE bar
OPTION ANGLE DEGREES
FOR k=0 TO 1
PLOT LINES:k,0;
NEXT k
END PICTURE

ダーツ 01GAME multi out 御一人様練習用 - gnuutera2012or文句うさびょん URL

2025/06/01 (Sun) 00:19:49

REM 十進BASIC DARTS ダーツ 01GAME multi out お一人様練習用(01GAME練習用 7投目改)
REM 十進BASIC 2進法モードで開くと大吉。
REM 十進BASIC 10進法モードで開くと中吉。遅いから(^^)。
REM 1人用01game練習用に作りました。
REM グラフィックスにてダーツボードを描画。
REM グラフィックスが見られないときは表示タブのグラフィックスを選択すれば閲覧可能です。
REM いきなりグラフィックスもテキストウィンドウも現れないことがありますが、十進BASICのウィンドウを小さくすると表示されるようです。
REM グラフィックスをクリックすることにより位置情報を保存可能。
REM グラフィックスはオプション->サイズ->BitMapサイズのラジオボタンを押下してサイズ変更してください。
REM バーストは1point処理、マイナス処理すべてに対応。
REM マルチアウト対応。
REM 4人対戦には未対応。
REM D25にしてしまった箇所をDouble Bullに直した。
REM BullはOUTER BULLの呼称に変えようか検討中。
REM Double BullはINNER BULLの呼称に変えようか検討中。
REM Dドライブに自動的に練習結果「DARTS RESULT」を作成します。
REM ちなみにx座標、y座標は練習の向上につながりますので、データをとっておくことをお勧めします。
REM 要らない方は2箇所ある該当箇所を確実に削除ください。
!▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
! LET G$="D:\DARTS RESULT"
! LET H$=".TXT"
! LET I$=G$&H$
! OPEN #1:NAME I$
! SET #1: POINTER END
! PRINT #1: DATE$&" "&TIME$
! PRINT #1: "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
! PRINT #1:TAB(10),PLAYERANAME$&"さん",B;" GAME"
! PRINT #1:TAB(10),,,"あと","x座標","y座標"
! FOR k=1 TO i
! IF MOD(k,3)<>1 THEN GOTO 5600
! IF MOD(k,3)=1 THEN GOTO 5500
!5500 PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
!5600 PRINT #1:TAB(10);"第";k;"投",P$(k),P(k),Z(k),x(k),y(k)
! NEXT k
! PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
! PRINT #1:" Multiout!!"
! PRINT #1:"△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"
! CLOSE #1
! GOTO 6700
!▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
!と、
!▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
! LET G$="D:\DARTS RESULT"
! LET H$=".TXT"
! LET I$=G$&H$
! OPEN #1:NAME I$
! SET #1: POINTER END
! PRINT #1: DATE$&" "&TIME$
! PRINT #1: "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
! PRINT #1:TAB(10),PLAYERANAME$&"さん",B;" GAME"
! PRINT #1:TAB(10),,,"あと","x座標","y座標"
! FOR k=1 TO i
! IF MOD(k,3)<>1 THEN GOTO 6600
! IF MOD(k,3)=1 THEN GOTO 6500
!6500 PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
!6600 PRINT #1:TAB(10);"第";k;"投",P$(k),P(k),Z(k),x(k),y(k)
! NEXT k
! PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
! PRINT #1:" Quit!!"
! PRINT #1:"△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"
! CLOSE #1
!▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲

1000 DECLARE EXTERNAL PICTURE circle
1010 DECLARE EXTERNAL PICTURE bar
1020 OPTION ANGLE DEGREES
1030 SET WINDOW -1,1,-1,1
1040 DRAW circle WITH ROTATE(0)*SCALE(0.05)*SHIFT(0,0)
1050 DRAW circle WITH ROTATE(0)*SCALE(0.15)*SHIFT(0,0)
1060 DRAW circle WITH ROTATE(0)*SCALE(0.46)*SHIFT(0,0)
1070 DRAW circle WITH ROTATE(0)*SCALE(0.49)*SHIFT(0,0)
1080 DRAW circle WITH ROTATE(0)*SCALE(0.76)*SHIFT(0,0)
1090 DRAW circle WITH ROTATE(0)*SCALE(0.79)*SHIFT(0,0)
1100 DRAW circle WITH ROTATE(0)*SCALE(1)*SHIFT(0,0)
1110 FOR g=1 TO 20
1120 DRAW bar WITH ROTATE(18*g+9)*SCALE(0.64)*SHIFT(0.15*COS(18*g+9),0.15*SIN(18*g+9))
1121 NEXT g
1122 DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-1)
1123 DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-0.9)
1124 DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-1,-1)
1125 DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-0.85,-1)
1140 SET TEXT BACKGROUND "TRANSPARENT"
1150 SET TEXT FONT "ＭＳ ゴシック" , 10
1160 SET TEXT COLOR 1
1170 PLOT TEXT ,AT 0.9*COS(18*0+90), 0.9*SIN(18*0+90) : "20"
1180 PLOT TEXT ,AT 0.9*COS(18*(-19)+90), 0.9*SIN(18*(-19)+90) : "5"
1190 PLOT TEXT ,AT 0.9*COS(18*(-18)+90), 0.9*SIN(18*(-18)+90) : "12"
1200 PLOT TEXT ,AT 0.9*COS(18*(-17)+90), 0.9*SIN(18*(-17)+90) : "9"
1210 PLOT TEXT ,AT 0.9*COS(18*(-16)+90), 0.9*SIN(18*(-16)+90) : "14"
1220 PLOT TEXT ,AT 0.9*COS(18*(-15)+90), 0.9*SIN(18*(-15)+90) : "11"
1230 PLOT TEXT ,AT 0.9*COS(18*(-14)+90), 0.9*SIN(18*(-14)+90) : "8"
1240 PLOT TEXT ,AT 0.9*COS(18*(-13)+90), 0.9*SIN(18*(-13)+90) : "16"
1250 PLOT TEXT ,AT 0.9*COS(18*(-12)+90), 0.9*SIN(18*(-12)+90) : "7"
1260 PLOT TEXT ,AT 0.9*COS(18*(-11)+90), 0.9*SIN(18*(-11)+90) : "19"
1270 PLOT TEXT ,AT 0.9*COS(18*(-10)+90), 0.9*SIN(18*(-10)+90) : "3"
1280 PLOT TEXT ,AT 0.9*COS(18*(-9)+90), 0.9*SIN(18*(-9)+90) : "17"
1290 PLOT TEXT ,AT 0.9*COS(18*(-8)+90), 0.9*SIN(18*(-8)+90) : "2"
1300 PLOT TEXT ,AT 0.9*COS(18*(-7)+90), 0.9*SIN(18*(-7)+90) : "15"
1310 PLOT TEXT ,AT 0.9*COS(18*(-6)+90), 0.9*SIN(18*(-6)+90) : "10"
1320 PLOT TEXT ,AT 0.9*COS(18*(-5)+90), 0.9*SIN(18*(-5)+90) : "6"
1330 PLOT TEXT ,AT 0.9*COS(18*(-4)+90), 0.9*SIN(18*(-4)+90) : "13"
1340 PLOT TEXT ,AT 0.9*COS(18*(-3)+90), 0.9*SIN(18*(-3)+90) : "4"
1350 PLOT TEXT ,AT 0.9*COS(18*(-2)+90), 0.9*SIN(18*(-2)+90) : "18"
1360 PLOT TEXT ,AT 0.9*COS(18*(-1)+90), 0.9*SIN(18*(-1)+90) : "1"
1361 PLOT TEXT ,AT -0.99,-0.99 : "quit"
1590 SET POINT STYLE 5
1600 SET POINT COLOR 4
1601 OPTION BASE 0
1610 DIM x(1000)
1620 DIM y(1000)
1625 DIM z(1000)
1630 DIM P(1000)
1631 DIM P$(1000)
1632 PRINT "何点からスタートしますか?(半角英数で入力して下さい。)"
1633 INPUT A
1634 LET B=A
1635 PRINT "プレイヤーの氏名を入力して下さい。(全角、半角で入力して下さい。)"
1636 INPUT PLAYERANAME$
1637 PRINT TAB(10),PLAYERANAME$&"さん",B;" GAME"
1640 PRINT "i","P$(i)","P(i)","あと","x(i)","y(i)"
1650 FOR i=1 TO 1000
1660 GET POINT: x(i),y(i)
1670 PLOT POINTS: x(i),y(i)
1680 PLOT TEXT ,AT x(i),y(i): STR$(i)
1681 IF -1<x(i) AND x(i)<-0.85 AND -1<y(i) AND y(i)<-0.9 THEN GOTO 6000
1690 IF x(i)^2+y(i)^2<0.05^2 THEN GOTO 1700
1691 IF x(i)^2+y(i)^2>0.05^2 THEN GOTO 1720
1692 IF x(i)^2+y(i)^2=0.05^2 THEN GOTO 4190
1700 LET P(i)=50
1710 LET P$(i)="Double Bull"
1715 GOTO 4210
1720 IF 0.05^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.15^2 THEN GOTO 1730
1721 IF 0.05^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.15^2 THEN GOTO 1750
1722 IF 0.05^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.15^2 THEN GOTO 4190
1730 LET P(i)=25
1740 LET P$(i)="Bull"
1745 GOTO 4210
1750 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(81)<y(i) AND x(i)*TAN(-81)<y(i) THEN GOTO 1760
1751 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(81)>y(i) OR x(i)*TAN(-81)>y(i) THEN GOTO 1780
1752 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(81)=y(i) OR x(i)*TAN(-81)=y(i) THEN GOTO 4190
1760 LET P(i)=20
1770 LET P$(i)="S20"
1775 GOTO 4210
1780 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(81) THEN GOTO 1790
1781 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(81) THEN GOTO 1810
1782 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(81) THEN GOTO 4190
1790 LET P(i)=1
1800 LET P$(i)="S1"
1805 GOTO 4210
1810 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 1820
1811 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 1840
1812 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
1820 LET P(i)=18
1830 LET P$(i)="S18"
1835 GOTO 4210
1840 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 1850
1841 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 1870
1842 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
1850 LET P(i)=4
1860 LET P$(i)="S4"
1865 GOTO 4210
1870 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 1880
1871 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 1900
1872 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
1880 LET P(i)=13
1890 LET P$(i)="S13"
1895 GOTO 4210
1900 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 1910
1901 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 1930
1902 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
1910 LET P(i)=6
1920 LET P$(i)="S6"
1925 GOTO 4210
1930 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 1940
1931 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 1960
1932 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
1940 LET P(i)=10
1950 LET P$(i)="S10"
1955 GOTO 4210
1960 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 1970
1961 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 1990
1962 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
1970 LET P(i)=15
1980 LET P$(i)="S15"
1985 GOTO 4210
1990 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 2000
1991 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 2020
1992 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
2000 LET P(i)=2
2010 LET P$(i)="S2"
2015 GOTO 4210
2020 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-81)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 2030
2021 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-81)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 2050
2022 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-81)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
2030 LET P(i)=17
2040 LET P$(i)="S17"
2045 GOTO 4210
2050 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND y(i)<x(i)*TAN(81) AND y(i)<x(i)*TAN(-81) THEN GOTO 2060
2051 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR y(i)>x(i)*TAN(81) OR y(i)>x(i)*TAN(-81) THEN GOTO 2080
2052 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR y(i)=x(i)*TAN(81) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
2060 LET P(i)=3
2070 LET P$(i)="S3"
2075 GOTO 4210
2080 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(81)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 2090
2081 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(81)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 2110
2082 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(81)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
2090 LET P(i)=19
2100 LET P$(i)="S19"
2105 GOTO 4210
2110 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 2120
2111 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 2140
2112 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
2120 LET P(i)=7
2130 LET P$(i)="S7"
2135 GOTO 4210
2140 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 2150
2141 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 2170
2142 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
2150 LET P(i)=16
2160 LET P$(i)="S16"
2165 GOTO 4210
2170 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 2180
2171 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 2200
2172 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
2180 LET P(i)=8
2190 LET P$(i)="S8"
2195 GOTO 4210
2200 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 2210
2201 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 2230
2202 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
2210 LET P(i)=11
2220 LET P$(i)="S11"
2225 GOTO 4210
2230 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 2240
2231 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 2260
2232 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
2240 LET P(i)=14
2250 LET P$(i)="S14"
2255 GOTO 4210
2260 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 2270
2261 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 2290
2262 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
2270 LET P(i)=9
2280 LET P$(i)="S9"
2285 GOTO 4210
2290 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 2300
2291 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 2320
2292 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
2300 LET P(i)=12
2310 LET P$(i)="S12"
2315 GOTO 4210
2320 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-81) THEN GOTO 2330
2321 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-81) THEN GOTO 2360
2322 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
2330 LET P(i)=5
2340 LET P$(i)="S5"
2345 GOTO 4210
!2350
2360 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(81)<y(i) AND x(i)*TAN(-81)<y(i) THEN GOTO 2370
2361 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(81)>y(i) OR x(i)*TAN(-81)>y(i) THEN GOTO 2390
2362 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(81)=y(i) OR x(i)*TAN(-81)=y(i) THEN GOTO 4190
2370 LET P(i)=60
2380 LET P$(i)="T20"
2385 GOTO 4210
2390 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(81) THEN GOTO 2400
2391 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(81) THEN GOTO 2420
2392 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(81) THEN GOTO 4190
2400 LET P(i)=3
2410 LET P$(i)="T1"
2415 GOTO 4210
2420 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 2430
2421 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 2450
2422 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
2430 LET P(i)=54
2440 LET P$(i)="T18"
2445 GOTO 4210
2450 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 2460
2451 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 2480
2452 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
2460 LET P(i)=12
2470 LET P$(i)="T4"
2475 GOTO 4210
2480 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 2490
2481 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 2510
2482 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
2490 LET P(i)=39
2500 LET P$(i)="T13"
2505 GOTO 4210
2510 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 2520
2511 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 2540
2512 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
2520 LET P(i)=18
2530 LET P$(i)="T6"
2535 GOTO 4210
2540 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 2550
2541 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 2570
2542 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
2550 LET P(i)=30
2560 LET P$(i)="T10"
2565 GOTO 4210
2570 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 2580
2571 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 2600
2572 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
2580 LET P(i)=45
2590 LET P$(i)="T15"
2595 GOTO 4210
2600 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 2610
2601 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 2630
2602 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
2610 LET P(i)=6
2620 LET P$(i)="T2"
2625 GOTO 4210
2630 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-81)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 2640
2631 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-81)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 2660
2632 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-81)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
2640 LET P(i)=51
2650 LET P$(i)="T17"
2655 GOTO 4210
2660 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND y(i)<x(i)*TAN(81) AND y(i)<x(i)*TAN(-81) THEN GOTO 2670
2661 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR y(i)>x(i)*TAN(81) OR y(i)>x(i)*TAN(-81) THEN GOTO 2690
2662 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR y(i)=x(i)*TAN(81) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
2670 LET P(i)=9
2680 LET P$(i)="T3"
2685 GOTO 4210
2690 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(81)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 2700
2691 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(81)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 2720
2692 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(81)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
2700 LET P(i)=57
2710 LET P$(i)="T19"
2715 GOTO 4210
2720 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 2730
2721 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 2750
2722 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
2730 LET P(i)=21
2740 LET P$(i)="T7"
2745 GOTO 4210
2750 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 2760
2751 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 2780
2752 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
2760 LET P(i)=48
2770 LET P$(i)="T16"
2775 GOTO 4210
2780 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 2790
2781 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 2810
2782 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
2790 LET P(i)=24
2800 LET P$(i)="T8"
2805 GOTO 4210
2810 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 2820
2811 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 2840
2812 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
2820 LET P(i)=33
2830 LET P$(i)="T11"
2835 GOTO 4210
2840 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 2850
2841 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 2870
2842 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
2850 LET P(i)=42
2860 LET P$(i)="T14"
2865 GOTO 4210
2870 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 2880
2871 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 2900
2872 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
2880 LET P(i)=27
2890 LET P$(i)="T9"
2895 GOTO 4210
2900 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 2910
2901 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 2930
2902 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
2910 LET P(i)=36
2920 LET P$(i)="T12"
2925 GOTO 4210
2930 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-81) THEN GOTO 2940
2931 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-81) THEN GOTO 2970
2932 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
2940 LET P(i)=15
2950 LET P$(i)="T5"
2955 GOTO 4210
!2960
2970 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(81)<y(i) AND x(i)*TAN(-81)<y(i) THEN GOTO 2980
2971 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(81)>y(i) OR x(i)*TAN(-81)>y(i) THEN GOTO 3000
2972 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(81)=y(i) OR x(i)*TAN(-81)=y(i) THEN GOTO 4190
2980 LET P(i)=20
2990 LET P$(i)="S20"
2995 GOTO 4210
3000 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(81) THEN GOTO 3010
3001 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(81) THEN GOTO 3030
3002 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(81) THEN GOTO 4190
3010 LET P(i)=1
3020 LET P$(i)="S1"
3025 GOTO 4210
3030 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 3040
3031 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 3060
3032 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
3040 LET P(i)=18
3050 LET P$(i)="S18"
3055 GOTO 4210
3060 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 3070
3061 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 3090
3062 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
3070 LET P(i)=4
3080 LET P$(i)="S4"
3085 GOTO 4210
3090 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 3100
3091 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 3120
3092 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
3100 LET P(i)=13
3110 LET P$(i)="S13"
3115 GOTO 4210
3120 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 3130
3121 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 3150
3122 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
3130 LET P(i)=6
3140 LET P$(i)="S6"
3145 GOTO 4210
3150 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 3160
3151 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 3180
3152 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
3160 LET P(i)=10
3170 LET P$(i)="S10"
3175 GOTO 4210
3180 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 3190
3181 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 3210
3182 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
3190 LET P(i)=15
3200 LET P$(i)="S15"
3205 GOTO 4210
3210 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 3220
3211 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 3240
3212 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
3220 LET P(i)=2
3230 LET P$(i)="S2"
3235 GOTO 4210
3240 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-81)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 3250
3241 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-81)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 3270
3242 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-81)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
3250 LET P(i)=17
3260 LET P$(i)="S17"
3265 GOTO 4210
3270 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND y(i)<x(i)*TAN(81) AND y(i)<x(i)*TAN(-81) THEN GOTO 3280
3271 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR y(i)>x(i)*TAN(81) OR y(i)>x(i)*TAN(-81) THEN GOTO 3300
3272 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR y(i)=x(i)*TAN(81) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
3280 LET P(i)=3
3290 LET P$(i)="S3"
3295 GOTO 4210
3300 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(81)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 3310
3301 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(81)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 3330
3302 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(81)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
3310 LET P(i)=19
3320 LET P$(i)="S19"
3325 GOTO 4210
3330 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 3340
3331 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 3360
3332 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
3340 LET P(i)=7
3350 LET P$(i)="S7"
3355 GOTO 4210
3360 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 3370
3361 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 3390
3362 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
3370 LET P(i)=16
3380 LET P$(i)="S16"
3385 GOTO 4210
3390 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 3400
3391 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 3420
3392 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
3400 LET P(i)=8
3410 LET P$(i)="S8"
3415 GOTO 4210
3420 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 3430
3421 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 3450
3422 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
3430 LET P(i)=11
3440 LET P$(i)="S11"
3445 GOTO 4210
3450 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 3460
3451 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 3480
3452 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
3460 LET P(i)=14
3470 LET P$(i)="S14"
3475 GOTO 4210
3480 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 3490
3481 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 3510
3482 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
3490 LET P(i)=9
3500 LET P$(i)="S9"
3505 GOTO 4210
3510 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 3520
3511 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 3540
3512 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
3520 LET P(i)=12
3530 LET P$(i)="S12"
3535 GOTO 4210
3540 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-81) THEN GOTO 3550
3541 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-81) THEN GOTO 3580
3542 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
3550 LET P(i)=5
3560 LET P$(i)="S5"
3565 GOTO 4210
!3570
3580 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(81)<y(i) AND x(i)*TAN(-81)<y(i) THEN GOTO 3590
3581 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(81)>y(i) OR x(i)*TAN(-81)>y(i) THEN GOTO 3610
3582 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(81)=y(i) OR x(i)*TAN(-81)=y(i) THEN GOTO 4190
3590 LET P(i)=40
3600 LET P$(i)="D20"
3605 GOTO 4210
3610 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(81) THEN GOTO 3620
3611 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(81) THEN GOTO 3640
3612 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(81) THEN GOTO 4190
3620 LET P(i)=2
3630 LET P$(i)="D1"
3635 GOTO 4210
3640 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 3650
3641 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 3670
3642 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
3650 LET P(i)=36
3660 LET P$(i)="D18"
3665 GOTO 4210
3670 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 3680
3671 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 3700
3672 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
3680 LET P(i)=8
3690 LET P$(i)="D4"
3695 GOTO 4210
3700 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 3710
3701 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 3730
3702 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
3710 LET P(i)=26
3720 LET P$(i)="D13"
3725 GOTO 4210
3730 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 3740
3731 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 3760
3732 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
3740 LET P(i)=12
3750 LET P$(i)="D6"
3755 GOTO 4210
3760 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 3770
3761 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 3790
3762 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
3770 LET P(i)=20
3780 LET P$(i)="D10"
3785 GOTO 4210
3790 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 3800
3791 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 3820
3792 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
3800 LET P(i)=30
3810 LET P$(i)="D15"
3815 GOTO 4210
3820 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 3830
3821 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 3850
3822 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
3830 LET P(i)=4
3840 LET P$(i)="D2"
3845 GOTO 4210
3850 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-81)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 3860
3851 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-81)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 3880
3852 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-81)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
3860 LET P(i)=34
3870 LET P$(i)="D17"
3875 GOTO 4210
3880 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND y(i)<x(i)*TAN(81) AND y(i)<x(i)*TAN(-81) THEN GOTO 3890
3881 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR y(i)>x(i)*TAN(81) OR y(i)>x(i)*TAN(-81) THEN GOTO 3910
3882 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR y(i)=x(i)*TAN(81) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
3890 LET P(i)=6
3900 LET P$(i)="D3"
3915 GOTO 4210
3910 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(81)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 3920
3911 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(81)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 3940
3912 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(81)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
3920 LET P(i)=38
3930 LET P$(i)="D19"
3935 GOTO 4210
3940 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 3950
3941 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 3970
3942 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
3950 LET P(i)=14
3960 LET P$(i)="D7"
3965 GOTO 4210
3970 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 3980
3971 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 4000
3972 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
3980 LET P(i)=32
3990 LET P$(i)="D16"
3995 GOTO 4210
4000 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 4010
4001 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 4030
4002 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
4010 LET P(i)=16
4020 LET P$(i)="D8"
4025 GOTO 4210
4030 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 4040
4031 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 4060
4032 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
4040 LET P(i)=22
4050 LET P$(i)="D11"
4055 GOTO 4210
4060 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 4070
4061 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 4090
4062 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
4070 LET P(i)=28
4080 LET P$(i)="D14"
4085 GOTO 4210
4090 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 4100
4091 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 4120
4092 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
4100 LET P(i)=18
4110 LET P$(i)="D9"
4115 GOTO 4210
4120 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 4130
4121 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 4150
4122 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
4130 LET P(i)=24
4140 LET P$(i)="D12"
4145 GOTO 4210
4150 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-81) THEN GOTO 4160
4151 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-81) THEN GOTO 4180
4152 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
4160 LET P(i)=10
4170 LET P$(i)="D5"
4175 GOTO 4210
4180 IF 0.79^2<x(i)^2+y(i)^2 THEN GOTO 4190
4190 LET P(i)=0
4200 LET P$(i)="Outboard"
4210 IF A-P(i)=0 THEN GOTO 4220 ! エラーが起こるなら、A-P(i)-P(i+1)-P(i+2)、か、A-P(i)-P(i-1)-P(i-2)に正すこと。
4211 IF A-P(i)=1 THEN GOTO 4500 ! エラーが起こるなら、A-P(i)-P(i+1)-P(i+2)、か、A-P(i)-P(i-1)-P(i-2)に正すこと。
4212 IF A-P(i)<0 THEN GOTO 4500 ! エラーが起こるなら、A-P(i)-P(i+1)-P(i+2)、か、A-P(i)-P(i-1)-P(i-2)に正すこと。
4213 IF A-P(i)>0 THEN GOTO 4214 ! エラーが起こるなら、A-P(i)-P(i+1)-P(i+2)、か、A-P(i)-P(i-1)-P(i-2)に正すこと。
4214 LET A=A-P(i) ! エラーが起こるなら、A-P(i)-P(i+1)-P(i+2)、か、A-P(i)-P(i-1)-P(i-2)に正すこと。
4215 LET Z(i)=A
4216 GOTO 4700
4220 IF P$(i)="D1" OR P$(i)="D2" OR P$(i)="D3" OR P$(i)="D4" OR P$(i)="D5" OR P$(i)="D6" OR P$(i)="D7" OR P$(i)="D8" OR P$(i)="D9" OR P$(i)="D10" OR P$(i)="D11" OR P$(i)="D12" OR P$(i)="D13" OR P$(i)="D14" OR P$(i)="D15" OR P$(i)="D16" OR P$(i)="D17" OR P$(i)="D18" OR P$(i)="D19" OR P$(i)="D20" OR P$(i)="Double Bull" OR P$(i)="T1" OR P$(i)="T2" OR P$(i)="T3" OR P$(i)="T4" OR P$(i)="T5" OR P$(i)="T6" OR P$(i)="T7" OR P$(i)="T8" OR P$(i)="T9" OR P$(i)="T10" OR P$(i)="T11" OR P$(i)="T12" OR P$(i)="T13" OR P$(i)="T14" OR P$(i)="T15" OR P$(i)="T16" OR P$(i)="T17" OR P$(i)="T18" OR P$(i)="T19" OR P$(i)="T20" THEN GOTO 5000
4221 IF P$(i)<>"D1" OR P$(i)<>"D2" OR P$(i)<>"D3" OR P$(i)<>"D4" OR P$(i)<>"D5" OR P$(i)<>"D6" OR P$(i)<>"D7" OR P$(i)<>"D8" OR P$(i)<>"D9" OR P$(i)<>"D10" OR P$(i)<>"D11" OR P$(i)<>"D12" OR P$(i)<>"D13" OR P$(i)<>"D14" OR P$(i)<>"D15" OR P$(i)<>"D16" OR P$(i)<>"D17" OR P$(i)<>"D18" OR P$(i)<>"D19" OR P$(i)<>"D20" OR P$(i)<>"Double Bull" OR P$(i)<>"T1" OR P$(i)<>"T2" OR P$(i)<>"T3" OR P$(i)<>"T4" OR P$(i)<>"T5" OR P$(i)<>"T6" OR P$(i)<>"T7" OR P$(i)<>"T8" OR P$(i)<>"T9" OR P$(i)<>"T10" OR P$(i)<>"T11" OR P$(i)<>"T12" OR P$(i)<>"T13" OR P$(i)<>"T14" OR P$(i)<>"T15" OR P$(i)<>"T16" OR P$(i)<>"T17" OR P$(i)<>"T18" OR P$(i)<>"T19" OR P$(i)<>"T20" THEN GOTO 4500

4500 IF MOD(i,3)=0 THEN GOTO 4520 ! 3投目でBURSTになる場合、つまり、"ヒット、ヒット、バースト"の処理に回す。
IF MOD(i,3)=1 THEN GOTO 4510 ! 1投目でBURSTになる場合、つまり、"バースト"の処理に回す。
IF MOD(i,3)=2 THEN GOTO 4501 ! 2投目でBURSTになる場合、つまり、"ヒット、バースト"の処理に回す。
4501 ! ヒット、バースト CHECK OK!!
LET Z(i)=A+P(i-1) ! i投目で「あと...」で表示される残り点数をそのターンの1投目のヒットのために4214行で引かれた点数分だけ元に戻す。
LET Z(i+1)=A+P(i-1) ! i+1投目で「あと...」で表示される残り点数をそのターンの1投目のヒットのために4214行で引かれた点数分だけ元に戻す。
LET A=A+P(i-1) ! 持ち点をそのターンの1投目のヒットのために4214行で引かれた点数分だけ元に戻す。
LET P(i-1)=0
LET P(i)=0
LET P$(i)=P$(i)&"BURST"
LET P$(i+1)="no count"&"BURST"
LET i=i+1 ! 2投目でバーストなので、1投分スキップした後、4900行で、そのまま次のターンの1投目に行く。
GOTO 4700
4510 !バースト CHECK OK!! ここは、そのターンの1投目のバーストだから、4214行で点数を引かれていない。
4512 LET Z(i)=A ! i投目で「あと...」で表示される残り点数はそのまま。
LET A=A ! i投目の持ち点もそのまま。
LET P(i)=0
LET P(i+1)=0
LET P(i+2)=0
LET P$(i)=P$(i)&"BURST"
LET P$(i+1)="no count"&"BURST"
LET P$(i+2)="no count"&"BURST"
LET Z(i+1)=A ! i+1投目で「あと...」で表示される残り点数はそのまま。
LET Z(i+2)=A ! i+2投目で「あと...」で表示される残り点数はそのまま。
LET Z(i+3)=A ! i+3投目で「あと...」で表示される残り点数はそのまま。
LET i=i+2 ! 1投目でバーストなので、2投分スキップした後、4900行で、そのまま次のターンの1投目に行く。
GOTO 4700
4520 !ヒット、ヒット、バースト CHECK OK!!
4521 LET Z(i)=A+P(i-1)+P(i-2) ! i投目で「あと...」で表示される残り点数をそのターンの1投目と2投目のヒットのために4214行で引かれた点数分だけ元に戻す。
LET A=A+P(i-1)+P(i-2) ! 持ち点をそのターンの1投目と2投目のヒットのために4214行で引かれた点数分だけ元に戻す。
LET P(i)=0
LET P(i-1)=0
LET P(i-2)=0
LET P$(i)=P$(i)&"BURST"
LET i=i ! 3投目でバーストなので、0投分スキップした後、4900行で、そのまま次のターンの1投目に行ける。
GOTO 4700
4700 PRINT i,P$(i),P(i),Z(i),x(i),y(i)
4701 IF MOD(i,3)<>0 THEN GOTO 4800
4702 IF MOD(i,3)=0 THEN GOTO 4703
4703 WAIT DELAY 1
CLEAR
DRAW circle WITH ROTATE(0)*SCALE(0.05)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.15)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.46)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.49)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.76)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.79)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(1)*SHIFT(0,0)
FOR g=1 TO 20
DRAW bar WITH ROTATE(18*g+9)*SCALE(0.64)*SHIFT(0.15*COS(18*g+9),0.15*SIN(18*g+9))
NEXT g
DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-1)
DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-0.9)
DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-1,-1)
DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-0.85,-1)
SET TEXT BACKGROUND "TRANSPARENT"
SET TEXT FONT "ＭＳ ゴシック" , 10
SET TEXT COLOR 1
PLOT TEXT ,AT 0.9*COS(18*0+90), 0.9*SIN(18*0+90) : "20"
PLOT TEXT ,AT 0.9*COS(18*(-19)+90), 0.9*SIN(18*(-19)+90) : "5"
PLOT TEXT ,AT 0.9*COS(18*(-18)+90), 0.9*SIN(18*(-18)+90) : "12"
PLOT TEXT ,AT 0.9*COS(18*(-17)+90), 0.9*SIN(18*(-17)+90) : "9"
PLOT TEXT ,AT 0.9*COS(18*(-16)+90), 0.9*SIN(18*(-16)+90) : "14"
PLOT TEXT ,AT 0.9*COS(18*(-15)+90), 0.9*SIN(18*(-15)+90) : "11"
PLOT TEXT ,AT 0.9*COS(18*(-14)+90), 0.9*SIN(18*(-14)+90) : "8"
PLOT TEXT ,AT 0.9*COS(18*(-13)+90), 0.9*SIN(18*(-13)+90) : "16"
PLOT TEXT ,AT 0.9*COS(18*(-12)+90), 0.9*SIN(18*(-12)+90) : "7"
PLOT TEXT ,AT 0.9*COS(18*(-11)+90), 0.9*SIN(18*(-11)+90) : "19"
PLOT TEXT ,AT 0.9*COS(18*(-10)+90), 0.9*SIN(18*(-10)+90) : "3"
PLOT TEXT ,AT 0.9*COS(18*(-9)+90), 0.9*SIN(18*(-9)+90) : "17"
PLOT TEXT ,AT 0.9*COS(18*(-8)+90), 0.9*SIN(18*(-8)+90) : "2"
PLOT TEXT ,AT 0.9*COS(18*(-7)+90), 0.9*SIN(18*(-7)+90) : "15"
PLOT TEXT ,AT 0.9*COS(18*(-6)+90), 0.9*SIN(18*(-6)+90) : "10"
PLOT TEXT ,AT 0.9*COS(18*(-5)+90), 0.9*SIN(18*(-5)+90) : "6"
PLOT TEXT ,AT 0.9*COS(18*(-4)+90), 0.9*SIN(18*(-4)+90) : "13"
PLOT TEXT ,AT 0.9*COS(18*(-3)+90), 0.9*SIN(18*(-3)+90) : "4"
PLOT TEXT ,AT 0.9*COS(18*(-2)+90), 0.9*SIN(18*(-2)+90) : "18"
PLOT TEXT ,AT 0.9*COS(18*(-1)+90), 0.9*SIN(18*(-1)+90) : "1"
PLOT TEXT ,AT -0.99,-0.99 : "quit"
4800 GOTO 4900
4900 NEXT i

5000 PRINT "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
PRINT TAB(10),PLAYERANAME$&"さん";" ";B;" GAME"
PRINT " あと";" x座標";" y座標"
FOR d=1 TO i
IF MOD(d,3)<>1 THEN GOTO 5200
IF MOD(d,3)=1 THEN GOTO 5100
5100 PRINT "――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
REM PRINT TAB(10);"第";d;"投",P(d),P$(d),Z(d),x(d),y(d)
5200 PRINT "第";d;"投",P$(d)
PRINT USING " ###### ###### #.##### #.#####": P(d),Z(d),x(d),y(d)
NEXT d
PRINT "――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
PRINT " Multiout!!"
PRINT "△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"

LET G$="D:\DARTS RESULT"
LET H$=".TXT"
LET I$=G$&H$
OPEN #1:NAME I$
SET #1: POINTER END
PRINT #1: DATE$&" "&TIME$
PRINT #1: "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
PRINT #1:TAB(10),PLAYERANAME$&"さん",B;" GAME"
PRINT #1:TAB(10),,,"あと","x座標","y座標"
FOR k=1 TO i
IF MOD(k,3)<>1 THEN GOTO 5600
IF MOD(k,3)=1 THEN GOTO 5500
5500 PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
5600 PRINT #1:TAB(10);"第";k;"投",P$(k),P(k),Z(k),x(k),y(k)
NEXT k
PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
PRINT #1:" Multiout!!"
PRINT #1:"△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"
CLOSE #1
GOTO 6700

6000 PRINT "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
PRINT TAB(10),PLAYERANAME$&"さん";" ";B;" GAME"
PRINT " あと";" x座標";" y座標"
FOR d=1 TO i
IF MOD(d,3)<>1 THEN GOTO 6200
IF MOD(d,3)=1 THEN GOTO 6100
6100 PRINT "――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
REM PRINT TAB(10);"第";d;"投",P(d),P$(d),Z(d),x(d),y(d)
6200 PRINT "第";d;"投",P$(d)
PRINT USING " ###### ###### #.##### #.#####": P(d),Z(d),x(d),y(d)
NEXT d
PRINT "――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
PRINT " Quit!!"
PRINT "△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"

LET G$="D:\DARTS RESULT"
LET H$=".TXT"
LET I$=G$&H$
OPEN #1:NAME I$
SET #1: POINTER END
PRINT #1: DATE$&" "&TIME$
PRINT #1: "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
PRINT #1:TAB(10),PLAYERANAME$&"さん",B;" GAME"
PRINT #1:TAB(10),,,"あと","x座標","y座標"
FOR k=1 TO i
IF MOD(k,3)<>1 THEN GOTO 6600
IF MOD(k,3)=1 THEN GOTO 6500
6500 PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
6600 PRINT #1:TAB(10);"第";k;"投",P$(k),P(k),Z(k),x(k),y(k)
NEXT k
PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
PRINT #1:" Quit!!"
PRINT #1:"△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"
CLOSE #1
6700 END

EXTERNAL PICTURE circle
OPTION ANGLE DEGREES
FOR j=0 TO 360 STEP 4
PLOT LINES:COS(j*360/360),SIN(j*360/360);
NEXT j
END PICTURE

EXTERNAL PICTURE bar
OPTION ANGLE DEGREES
FOR k=0 TO 1
PLOT LINES:k,0;
NEXT k
END PICTURE

ダーツ 01GAME double out 御一人様練習用 - gnuutera2012or文句うさびょん URL

2025/06/01 (Sun) 00:18:21

REM 十進BASIC DARTS ダーツ 01GAME double out お一人様練習用(01GAME練習用 7投目改)
REM 十進BASIC 2進法モードで開くと大吉。
REM 十進BASIC 10進法モードで開くと中吉。遅いから(^^)。
REM 1人用01game練習用に作りました。
REM グラフィックスにてダーツボードを描画。
REM グラフィックスが見られないときは表示タブのグラフィックスを選択すれば閲覧可能です。
REM いきなりグラフィックスもテキストウィンドウも現れないことがありますが、十進BASICのウィンドウを小さくすると表示されるようです。
REM グラフィックスをクリックすることにより位置情報を保存可能。
REM グラフィックスはオプション->サイズ->BitMapサイズのラジオボタンを押下してサイズ変更してください。
REM バーストは1point処理、マイナス処理すべてに対応。
REM ダブルアウト対応。
REM 4人対戦には未対応。
REM 十進BASIC 2進法モードで開くと大吉。
REM 十進BASIC 10進法モードで開くと中吉。遅いから(^^)。
REM D25にしてしまった箇所をDouble Bullに直しました。
REM BullはOUTER BULLの呼称に変えようか検討中。
REM Double BullはINNER BULLの呼称に変えようか検討中。
REM Dドライブに自動的に練習結果「DARTS RESULT」を作成します。
REM ちなみにx座標、y座標は練習の向上につながりますので、データをとっておくことをお勧めします。
REM 要らない方は2箇所ある該当箇所を確実に削除ください。
!▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
! LET G$="D:\DARTS RESULT"
! LET H$=".TXT"
! LET I$=G$&H$
! OPEN #1:NAME I$
! SET #1: POINTER END
! PRINT #1: DATE$&" "&TIME$
! PRINT #1: "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
! PRINT #1:TAB(10),PLAYERANAME$&"さん",B;" GAME"
! PRINT #1:TAB(10),,,"あと","x座標","y座標"
! FOR k=1 TO i
! IF MOD(k,3)<>1 THEN GOTO 5600
! IF MOD(k,3)=1 THEN GOTO 5500
!5500 PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
!5600 PRINT #1:TAB(10);"第";k;"投",P$(k),P(k),Z(k),x(k),y(k)
! NEXT k
! PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
! PRINT #1:" Doubleout!!"
! PRINT #1:"△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"
! CLOSE #1
!▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
!と、
!▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
! LET G$="D:\DARTS RESULT"
! LET H$=".TXT"
! LET I$=G$&H$
! OPEN #1:NAME I$
! SET #1: POINTER END
! PRINT #1: DATE$&" "&TIME$
! PRINT #1: "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
! PRINT #1:TAB(10),PLAYERANAME$&"さん",B;" GAME"
! PRINT #1:TAB(10),,,"あと","x座標","y座標"
! FOR k=1 TO i
! IF MOD(k,3)<>1 THEN GOTO 6600
! IF MOD(k,3)=1 THEN GOTO 6500
!6500 PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
!6600 PRINT #1:TAB(10);"第";k;"投",P$(k),P(k),Z(k),x(k),y(k)
! NEXT k
! PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
! PRINT #1:" Quit!!"
! PRINT #1:"△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"
! CLOSE #1
!▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲

1000 DECLARE EXTERNAL PICTURE circle
1010 DECLARE EXTERNAL PICTURE bar
1020 OPTION ANGLE DEGREES
1030 SET WINDOW -1,1,-1,1
1040 DRAW circle WITH ROTATE(0)*SCALE(0.05)*SHIFT(0,0)
1050 DRAW circle WITH ROTATE(0)*SCALE(0.15)*SHIFT(0,0)
1060 DRAW circle WITH ROTATE(0)*SCALE(0.46)*SHIFT(0,0)
1070 DRAW circle WITH ROTATE(0)*SCALE(0.49)*SHIFT(0,0)
1080 DRAW circle WITH ROTATE(0)*SCALE(0.76)*SHIFT(0,0)
1090 DRAW circle WITH ROTATE(0)*SCALE(0.79)*SHIFT(0,0)
1100 DRAW circle WITH ROTATE(0)*SCALE(1)*SHIFT(0,0)
1110 FOR g=1 TO 20
1120 DRAW bar WITH ROTATE(18*g+9)*SCALE(0.64)*SHIFT(0.15*COS(18*g+9),0.15*SIN(18*g+9))
1121 NEXT g
1122 DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-1)
1123 DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-0.9)
1124 DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-1,-1)
1125 DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-0.85,-1)
1140 SET TEXT BACKGROUND "TRANSPARENT"
1150 SET TEXT FONT "ＭＳ ゴシック" , 10
1160 SET TEXT COLOR 1
1170 PLOT TEXT ,AT 0.9*COS(18*0+90), 0.9*SIN(18*0+90) : "20"
1180 PLOT TEXT ,AT 0.9*COS(18*(-19)+90), 0.9*SIN(18*(-19)+90) : "5"
1190 PLOT TEXT ,AT 0.9*COS(18*(-18)+90), 0.9*SIN(18*(-18)+90) : "12"
1200 PLOT TEXT ,AT 0.9*COS(18*(-17)+90), 0.9*SIN(18*(-17)+90) : "9"
1210 PLOT TEXT ,AT 0.9*COS(18*(-16)+90), 0.9*SIN(18*(-16)+90) : "14"
1220 PLOT TEXT ,AT 0.9*COS(18*(-15)+90), 0.9*SIN(18*(-15)+90) : "11"
1230 PLOT TEXT ,AT 0.9*COS(18*(-14)+90), 0.9*SIN(18*(-14)+90) : "8"
1240 PLOT TEXT ,AT 0.9*COS(18*(-13)+90), 0.9*SIN(18*(-13)+90) : "16"
1250 PLOT TEXT ,AT 0.9*COS(18*(-12)+90), 0.9*SIN(18*(-12)+90) : "7"
1260 PLOT TEXT ,AT 0.9*COS(18*(-11)+90), 0.9*SIN(18*(-11)+90) : "19"
1270 PLOT TEXT ,AT 0.9*COS(18*(-10)+90), 0.9*SIN(18*(-10)+90) : "3"
1280 PLOT TEXT ,AT 0.9*COS(18*(-9)+90), 0.9*SIN(18*(-9)+90) : "17"
1290 PLOT TEXT ,AT 0.9*COS(18*(-8)+90), 0.9*SIN(18*(-8)+90) : "2"
1300 PLOT TEXT ,AT 0.9*COS(18*(-7)+90), 0.9*SIN(18*(-7)+90) : "15"
1310 PLOT TEXT ,AT 0.9*COS(18*(-6)+90), 0.9*SIN(18*(-6)+90) : "10"
1320 PLOT TEXT ,AT 0.9*COS(18*(-5)+90), 0.9*SIN(18*(-5)+90) : "6"
1330 PLOT TEXT ,AT 0.9*COS(18*(-4)+90), 0.9*SIN(18*(-4)+90) : "13"
1340 PLOT TEXT ,AT 0.9*COS(18*(-3)+90), 0.9*SIN(18*(-3)+90) : "4"
1350 PLOT TEXT ,AT 0.9*COS(18*(-2)+90), 0.9*SIN(18*(-2)+90) : "18"
1360 PLOT TEXT ,AT 0.9*COS(18*(-1)+90), 0.9*SIN(18*(-1)+90) : "1"
1361 PLOT TEXT ,AT -0.99,-0.99 : "quit"
!1370 SET AREA COLOR 0
!1380 FOR h=1 TO 10
!1390 PAINT 0.48*COS(36*h),0.48*SIN(36*h)
!1400 PAINT 0.78*COS(36*h),0.78*SIN(36*h)
!1410 PAINT 0,0
!1420 NEXT h
!1430 SET AREA COLOR 0
!1440 FOR h=1 TO 10
!1450 PAINT 0.48*COS(36*h+18),0.48*SIN(36*h+18)
!1460 PAINT 0.78*COS(36*h+18),0.78*SIN(36*h+18)
!1470 PAINT 0.1,0.1
!1480 NEXT h
!1490 SET AREA COLOR 0
!1500 FOR h=1 TO 10
!1510 PAINT 0.2*COS(36*h),0.2*SIN(36*h)
!1520 PAINT 0.6*COS(36*h),0.6*SIN(36*h)
!1530 NEXT h
!1540 SET AREA COLOR 0
!1550 FOR h=1 TO 10
!1560 PAINT 0.2*COS(36*h+18),0.2*SIN(36*h+18)
!1570 PAINT 0.6*COS(36*h+18),0.6*SIN(36*h+18)
!1580 NEXT h
1590 SET POINT STYLE 5
1600 SET POINT COLOR 4
1601 OPTION BASE 0
1610 DIM x(1000)
1620 DIM y(1000)
1625 DIM z(1000)
1630 DIM P(1000)
1631 DIM P$(1000)
1632 PRINT "何点からスタートしますか?(半角英数で入力して下さい。)"
1633 INPUT A
1634 LET B=A
1635 PRINT "プレイヤーの氏名を入力して下さい。(全角、半角で入力して下さい。)"
1636 INPUT PLAYERANAME$
1637 PRINT TAB(10),PLAYERANAME$&"さん",B;" GAME"
1640 PRINT "i","P$(i)","P(i)","あと","x(i)","y(i)"
1650 FOR i=1 TO 1000
1660 GET POINT: x(i),y(i)
1670 PLOT POINTS: x(i),y(i)
1680 PLOT TEXT ,AT x(i),y(i): STR$(i)
1681 IF -1<x(i) AND x(i)<-0.85 AND -1<y(i) AND y(i)<-0.9 THEN GOTO 6000
1690 IF x(i)^2+y(i)^2<0.05^2 THEN GOTO 1700
1691 IF x(i)^2+y(i)^2>0.05^2 THEN GOTO 1720
1692 IF x(i)^2+y(i)^2=0.05^2 THEN GOTO 4190
1700 LET P(i)=50
1710 LET P$(i)="Double Bull"
1715 GOTO 4210
1720 IF 0.05^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.15^2 THEN GOTO 1730
1721 IF 0.05^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.15^2 THEN GOTO 1750
1722 IF 0.05^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.15^2 THEN GOTO 4190
1730 LET P(i)=25
1740 LET P$(i)="Bull"
1745 GOTO 4210
1750 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(81)<y(i) AND x(i)*TAN(-81)<y(i) THEN GOTO 1760
1751 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(81)>y(i) OR x(i)*TAN(-81)>y(i) THEN GOTO 1780
1752 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(81)=y(i) OR x(i)*TAN(-81)=y(i) THEN GOTO 4190
1760 LET P(i)=20
1770 LET P$(i)="S20"
1775 GOTO 4210
1780 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(81) THEN GOTO 1790
1781 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(81) THEN GOTO 1810
1782 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(81) THEN GOTO 4190
1790 LET P(i)=1
1800 LET P$(i)="S1"
1805 GOTO 4210
1810 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 1820
1811 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 1840
1812 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
1820 LET P(i)=18
1830 LET P$(i)="S18"
1835 GOTO 4210
1840 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 1850
1841 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 1870
1842 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
1850 LET P(i)=4
1860 LET P$(i)="S4"
1865 GOTO 4210
1870 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 1880
1871 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 1900
1872 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
1880 LET P(i)=13
1890 LET P$(i)="S13"
1895 GOTO 4210
1900 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 1910
1901 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 1930
1902 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
1910 LET P(i)=6
1920 LET P$(i)="S6"
1925 GOTO 4210
1930 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 1940
1931 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 1960
1932 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
1940 LET P(i)=10
1950 LET P$(i)="S10"
1955 GOTO 4210
1960 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 1970
1961 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 1990
1962 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
1970 LET P(i)=15
1980 LET P$(i)="S15"
1985 GOTO 4210
1990 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 2000
1991 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 2020
1992 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
2000 LET P(i)=2
2010 LET P$(i)="S2"
2015 GOTO 4210
2020 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-81)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 2030
2021 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-81)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 2050
2022 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-81)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
2030 LET P(i)=17
2040 LET P$(i)="S17"
2045 GOTO 4210
2050 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND y(i)<x(i)*TAN(81) AND y(i)<x(i)*TAN(-81) THEN GOTO 2060
2051 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR y(i)>x(i)*TAN(81) OR y(i)>x(i)*TAN(-81) THEN GOTO 2080
2052 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR y(i)=x(i)*TAN(81) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
2060 LET P(i)=3
2070 LET P$(i)="S3"
2075 GOTO 4210
2080 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(81)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 2090
2081 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(81)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 2110
2082 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(81)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
2090 LET P(i)=19
2100 LET P$(i)="S19"
2105 GOTO 4210
2110 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 2120
2111 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 2140
2112 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
2120 LET P(i)=7
2130 LET P$(i)="S7"
2135 GOTO 4210
2140 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 2150
2141 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 2170
2142 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
2150 LET P(i)=16
2160 LET P$(i)="S16"
2165 GOTO 4210
2170 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 2180
2171 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 2200
2172 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
2180 LET P(i)=8
2190 LET P$(i)="S8"
2195 GOTO 4210
2200 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 2210
2201 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 2230
2202 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
2210 LET P(i)=11
2220 LET P$(i)="S11"
2225 GOTO 4210
2230 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 2240
2231 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 2260
2232 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
2240 LET P(i)=14
2250 LET P$(i)="S14"
2255 GOTO 4210
2260 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 2270
2261 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 2290
2262 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
2270 LET P(i)=9
2280 LET P$(i)="S9"
2285 GOTO 4210
2290 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 2300
2291 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 2320
2292 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
2300 LET P(i)=12
2310 LET P$(i)="S12"
2315 GOTO 4210
2320 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-81) THEN GOTO 2330
2321 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-81) THEN GOTO 2360
2322 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
2330 LET P(i)=5
2340 LET P$(i)="S5"
2345 GOTO 4210
!2350
2360 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(81)<y(i) AND x(i)*TAN(-81)<y(i) THEN GOTO 2370
2361 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(81)>y(i) OR x(i)*TAN(-81)>y(i) THEN GOTO 2390
2362 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(81)=y(i) OR x(i)*TAN(-81)=y(i) THEN GOTO 4190
2370 LET P(i)=60
2380 LET P$(i)="T20"
2385 GOTO 4210
2390 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(81) THEN GOTO 2400
2391 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(81) THEN GOTO 2420
2392 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(81) THEN GOTO 4190
2400 LET P(i)=3
2410 LET P$(i)="T1"
2415 GOTO 4210
2420 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 2430
2421 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 2450
2422 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
2430 LET P(i)=54
2440 LET P$(i)="T18"
2445 GOTO 4210
2450 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 2460
2451 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 2480
2452 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
2460 LET P(i)=12
2470 LET P$(i)="T4"
2475 GOTO 4210
2480 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 2490
2481 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 2510
2482 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
2490 LET P(i)=39
2500 LET P$(i)="T13"
2505 GOTO 4210
2510 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 2520
2511 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 2540
2512 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
2520 LET P(i)=18
2530 LET P$(i)="T6"
2535 GOTO 4210
2540 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 2550
2541 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 2570
2542 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
2550 LET P(i)=30
2560 LET P$(i)="T10"
2565 GOTO 4210
2570 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 2580
2571 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 2600
2572 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
2580 LET P(i)=45
2590 LET P$(i)="T15"
2595 GOTO 4210
2600 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 2610
2601 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 2630
2602 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
2610 LET P(i)=6
2620 LET P$(i)="T2"
2625 GOTO 4210
2630 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-81)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 2640
2631 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-81)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 2660
2632 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-81)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
2640 LET P(i)=51
2650 LET P$(i)="T17"
2655 GOTO 4210
2660 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND y(i)<x(i)*TAN(81) AND y(i)<x(i)*TAN(-81) THEN GOTO 2670
2661 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR y(i)>x(i)*TAN(81) OR y(i)>x(i)*TAN(-81) THEN GOTO 2690
2662 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR y(i)=x(i)*TAN(81) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
2670 LET P(i)=9
2680 LET P$(i)="T3"
2685 GOTO 4210
2690 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(81)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 2700
2691 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(81)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 2720
2692 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(81)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
2700 LET P(i)=57
2710 LET P$(i)="T19"
2715 GOTO 4210
2720 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 2730
2721 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 2750
2722 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
2730 LET P(i)=21
2740 LET P$(i)="T7"
2745 GOTO 4210
2750 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 2760
2751 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 2780
2752 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
2760 LET P(i)=48
2770 LET P$(i)="T16"
2775 GOTO 4210
2780 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 2790
2781 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 2810
2782 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
2790 LET P(i)=24
2800 LET P$(i)="T8"
2805 GOTO 4210
2810 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 2820
2811 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 2840
2812 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
2820 LET P(i)=33
2830 LET P$(i)="T11"
2835 GOTO 4210
2840 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 2850
2841 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 2870
2842 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
2850 LET P(i)=42
2860 LET P$(i)="T14"
2865 GOTO 4210
2870 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 2880
2871 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 2900
2872 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
2880 LET P(i)=27
2890 LET P$(i)="T9"
2895 GOTO 4210
2900 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 2910
2901 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 2930
2902 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
2910 LET P(i)=36
2920 LET P$(i)="T12"
2925 GOTO 4210
2930 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-81) THEN GOTO 2940
2931 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-81) THEN GOTO 2970
2932 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
2940 LET P(i)=15
2950 LET P$(i)="T5"
2955 GOTO 4210
!2960
2970 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(81)<y(i) AND x(i)*TAN(-81)<y(i) THEN GOTO 2980
2971 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(81)>y(i) OR x(i)*TAN(-81)>y(i) THEN GOTO 3000
2972 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(81)=y(i) OR x(i)*TAN(-81)=y(i) THEN GOTO 4190
2980 LET P(i)=20
2990 LET P$(i)="S20"
2995 GOTO 4210
3000 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(81) THEN GOTO 3010
3001 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(81) THEN GOTO 3030
3002 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(81) THEN GOTO 4190
3010 LET P(i)=1
3020 LET P$(i)="S1"
3025 GOTO 4210
3030 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 3040
3031 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 3060
3032 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
3040 LET P(i)=18
3050 LET P$(i)="S18"
3055 GOTO 4210
3060 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 3070
3061 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 3090
3062 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
3070 LET P(i)=4
3080 LET P$(i)="S4"
3085 GOTO 4210
3090 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 3100
3091 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 3120
3092 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
3100 LET P(i)=13
3110 LET P$(i)="S13"
3115 GOTO 4210
3120 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 3130
3121 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 3150
3122 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
3130 LET P(i)=6
3140 LET P$(i)="S6"
3145 GOTO 4210
3150 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 3160
3151 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 3180
3152 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
3160 LET P(i)=10
3170 LET P$(i)="S10"
3175 GOTO 4210
3180 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 3190
3181 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 3210
3182 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
3190 LET P(i)=15
3200 LET P$(i)="S15"
3205 GOTO 4210
3210 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 3220
3211 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 3240
3212 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
3220 LET P(i)=2
3230 LET P$(i)="S2"
3235 GOTO 4210
3240 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-81)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 3250
3241 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-81)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 3270
3242 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-81)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
3250 LET P(i)=17
3260 LET P$(i)="S17"
3265 GOTO 4210
3270 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND y(i)<x(i)*TAN(81) AND y(i)<x(i)*TAN(-81) THEN GOTO 3280
3271 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR y(i)>x(i)*TAN(81) OR y(i)>x(i)*TAN(-81) THEN GOTO 3300
3272 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR y(i)=x(i)*TAN(81) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
3280 LET P(i)=3
3290 LET P$(i)="S3"
3295 GOTO 4210
3300 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(81)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 3310
3301 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(81)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 3330
3302 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(81)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
3310 LET P(i)=19
3320 LET P$(i)="S19"
3325 GOTO 4210
3330 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 3340
3331 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 3360
3332 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
3340 LET P(i)=7
3350 LET P$(i)="S7"
3355 GOTO 4210
3360 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 3370
3361 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 3390
3362 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
3370 LET P(i)=16
3380 LET P$(i)="S16"
3385 GOTO 4210
3390 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 3400
3391 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 3420
3392 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
3400 LET P(i)=8
3410 LET P$(i)="S8"
3415 GOTO 4210
3420 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 3430
3421 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 3450
3422 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
3430 LET P(i)=11
3440 LET P$(i)="S11"
3445 GOTO 4210
3450 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 3460
3451 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 3480
3452 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
3460 LET P(i)=14
3470 LET P$(i)="S14"
3475 GOTO 4210
3480 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 3490
3481 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 3510
3482 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
3490 LET P(i)=9
3500 LET P$(i)="S9"
3505 GOTO 4210
3510 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 3520
3511 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 3540
3512 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
3520 LET P(i)=12
3530 LET P$(i)="S12"
3535 GOTO 4210
3540 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-81) THEN GOTO 3550
3541 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-81) THEN GOTO 3580
3542 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
3550 LET P(i)=5
3560 LET P$(i)="S5"
3565 GOTO 4210
!3570
3580 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(81)<y(i) AND x(i)*TAN(-81)<y(i) THEN GOTO 3590
3581 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(81)>y(i) OR x(i)*TAN(-81)>y(i) THEN GOTO 3610
3582 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(81)=y(i) OR x(i)*TAN(-81)=y(i) THEN GOTO 4190
3590 LET P(i)=40
3600 LET P$(i)="D20"
3605 GOTO 4210
3610 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(81) THEN GOTO 3620
3611 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(81) THEN GOTO 3640
3612 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(81) THEN GOTO 4190
3620 LET P(i)=2
3630 LET P$(i)="D1"
3635 GOTO 4210
3640 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 3650
3641 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 3670
3642 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
3650 LET P(i)=36
3660 LET P$(i)="D18"
3665 GOTO 4210
3670 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 3680
3671 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 3700
3672 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
3680 LET P(i)=8
3690 LET P$(i)="D4"
3695 GOTO 4210
3700 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 3710
3701 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 3730
3702 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
3710 LET P(i)=26
3720 LET P$(i)="D13"
3725 GOTO 4210
3730 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 3740
3731 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 3760
3732 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
3740 LET P(i)=12
3750 LET P$(i)="D6"
3755 GOTO 4210
3760 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 3770
3761 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 3790
3762 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
3770 LET P(i)=20
3780 LET P$(i)="D10"
3785 GOTO 4210
3790 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 3800
3791 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 3820
3792 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
3800 LET P(i)=30
3810 LET P$(i)="D15"
3815 GOTO 4210
3820 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 3830
3821 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 3850
3822 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
3830 LET P(i)=4
3840 LET P$(i)="D2"
3845 GOTO 4210
3850 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-81)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 3860
3851 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-81)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 3880
3852 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-81)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
3860 LET P(i)=34
3870 LET P$(i)="D17"
3875 GOTO 4210
3880 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND y(i)<x(i)*TAN(81) AND y(i)<x(i)*TAN(-81) THEN GOTO 3890
3881 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR y(i)>x(i)*TAN(81) OR y(i)>x(i)*TAN(-81) THEN GOTO 3910
3882 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR y(i)=x(i)*TAN(81) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
3890 LET P(i)=6
3900 LET P$(i)="D3"
3915 GOTO 4210
3910 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(81)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 3920
3911 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(81)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 3940
3912 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(81)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
3920 LET P(i)=38
3930 LET P$(i)="D19"
3935 GOTO 4210
3940 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 3950
3941 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 3970
3942 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
3950 LET P(i)=14
3960 LET P$(i)="D7"
3965 GOTO 4210
3970 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 3980
3971 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 4000
3972 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
3980 LET P(i)=32
3990 LET P$(i)="D16"
3995 GOTO 4210
4000 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 4010
4001 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 4030
4002 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
4010 LET P(i)=16
4020 LET P$(i)="D8"
4025 GOTO 4210
4030 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 4040
4031 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 4060
4032 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
4040 LET P(i)=22
4050 LET P$(i)="D11"
4055 GOTO 4210
4060 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 4070
4061 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 4090
4062 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
4070 LET P(i)=28
4080 LET P$(i)="D14"
4085 GOTO 4210
4090 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 4100
4091 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 4120
4092 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
4100 LET P(i)=18
4110 LET P$(i)="D9"
4115 GOTO 4210
4120 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 4130
4121 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 4150
4122 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
4130 LET P(i)=24
4140 LET P$(i)="D12"
4145 GOTO 4210
4150 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-81) THEN GOTO 4160
4151 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-81) THEN GOTO 4180
4152 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
4160 LET P(i)=10
4170 LET P$(i)="D5"
4175 GOTO 4210
4180 IF 0.79^2<x(i)^2+y(i)^2 THEN GOTO 4190
4190 LET P(i)=0
4200 LET P$(i)="Outboard"

4210 IF A-P(i)=0 THEN GOTO 4220 ! エラーが起こるなら、A-P(i)-P(i+1)-P(i+2)、か、A-P(i)-P(i-1)-P(i-2)に正すこと。
4211 IF A-P(i)=1 THEN GOTO 4500 ! エラーが起こるなら、A-P(i)-P(i+1)-P(i+2)、か、A-P(i)-P(i-1)-P(i-2)に正すこと。
4212 IF A-P(i)<0 THEN GOTO 4500 ! エラーが起こるなら、A-P(i)-P(i+1)-P(i+2)、か、A-P(i)-P(i-1)-P(i-2)に正すこと。
4213 IF A-P(i)>0 THEN GOTO 4214 ! エラーが起こるなら、A-P(i)-P(i+1)-P(i+2)、か、A-P(i)-P(i-1)-P(i-2)に正すこと。
4214 LET A=A-P(i) ! エラーが起こるなら、A-P(i)-P(i+1)-P(i+2)、か、A-P(i)-P(i-1)-P(i-2)に正すこと。
4215 LET Z(i)=A
4216 GOTO 4700
4220 IF P$(i)="D1" OR P$(i)="D2" OR P$(i)="D3" OR P$(i)="D4" OR P$(i)="D5" OR P$(i)="D6" OR P$(i)="D7" OR P$(i)="D8" OR P$(i)="D9" OR P$(i)="D10" OR P$(i)="D11" OR P$(i)="D12" OR P$(i)="D13" OR P$(i)="D14" OR P$(i)="D15" OR P$(i)="D16" OR P$(i)="D17" OR P$(i)="D18" OR P$(i)="D19" OR P$(i)="D20" OR P$(i)="Double Bull" THEN GOTO 5000
4221 IF P$(i)<>"D1" OR P$(i)<>"D2" OR P$(i)<>"D3" OR P$(i)<>"D4" OR P$(i)<>"D5" OR P$(i)<>"D6" OR P$(i)<>"D7" OR P$(i)<>"D8" OR P$(i)<>"D9" OR P$(i)<>"D10" OR P$(i)<>"D11" OR P$(i)<>"D12" OR P$(i)<>"D13" OR P$(i)<>"D14" OR P$(i)<>"D15" OR P$(i)<>"D16" OR P$(i)<>"D17" OR P$(i)<>"D18" OR P$(i)<>"D19" OR P$(i)<>"D20" OR P$(i)<>"Double Bull" THEN GOTO 4500

4500 IF MOD(i,3)=0 THEN GOTO 4520 ! 3投目でBURSTになる場合、つまり、"ヒット、ヒット、バースト"の処理に回す。
IF MOD(i,3)=1 THEN GOTO 4510 ! 1投目でBURSTになる場合、つまり、"バースト"の処理に回す。
IF MOD(i,3)=2 THEN GOTO 4501 ! 2投目でBURSTになる場合、つまり、"ヒット、バースト"の処理に回す。
4501 ! ヒット、バースト CHECK OK!!
LET Z(i)=A+P(i-1) ! i投目で「あと...」で表示される残り点数をそのターンの1投目のヒットのために4214行で引かれた点数分だけ元に戻す。
LET Z(i+1)=A+P(i-1) ! i+1投目で「あと...」で表示される残り点数をそのターンの1投目のヒットのために4214行で引かれた点数分だけ元に戻す。
LET A=A+P(i-1) ! 持ち点をそのターンの1投目のヒットのために4214行で引かれた点数分だけ元に戻す。
LET P(i-1)=0
LET P(i)=0
LET P$(i)=P$(i)&"BURST"
LET P$(i+1)="no count"&"BURST"
LET i=i+1 ! 2投目でバーストなので、1投分スキップした後、4900行で、そのまま次のターンの1投目に行く。
GOTO 4700
4510 !バースト CHECK OK!! ここは、そのターンの1投目のバーストだから、4214行で点数を引かれていない。
4511 LET Z(i)=A ! i投目で「あと...」で表示される残り点数はそのまま。
LET A=A ! i投目の持ち点もそのまま。
LET P(i)=0
LET P(i+1)=0
LET P(i+2)=0
LET P$(i)=P$(i)&"BURST"
LET P$(i+1)="no count"&"BURST"
LET P$(i+2)="no count"&"BURST"
LET Z(i+1)=A ! i+1投目で「あと...」で表示される残り点数はそのまま。
LET Z(i+2)=A ! i+2投目で「あと...」で表示される残り点数はそのまま。
LET Z(i+3)=A ! i+3投目で「あと...」で表示される残り点数はそのまま。
LET i=i+2 ! 1投目でバーストなので、2投分スキップした後、4900行で、そのまま次のターンの1投目に行く。
GOTO 4700
4520 !ヒット、ヒット、バースト CHECK OK!!
4521 LET Z(i)=A+P(i-1)+P(i-2) ! i投目で「あと...」で表示される残り点数をそのターンの1投目と2投目のヒットのために4214行で引かれた点数分だけ元に戻す。
LET A=A+P(i-1)+P(i-2) ! 持ち点をそのターンの1投目と2投目のヒットのために4214行で引かれた点数分だけ元に戻す。
LET P(i)=0
LET P(i-1)=0
LET P(i-2)=0
LET P$(i)=P$(i)&"BURST"
LET i=i ! 3投目でバーストなので、0投分スキップした後、4900行で、そのまま次のターンの1投目に行ける。
GOTO 4700
4700 PRINT i,P$(i),P(i),Z(i),x(i),y(i)
4701 IF MOD(i,3)<>0 THEN GOTO 4800
4702 IF MOD(i,3)=0 THEN GOTO 4703
4703 WAIT DELAY 1
CLEAR
DRAW circle WITH ROTATE(0)*SCALE(0.05)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.15)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.46)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.49)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.76)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.79)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(1)*SHIFT(0,0)
FOR g=1 TO 20
DRAW bar WITH ROTATE(18*g+9)*SCALE(0.64)*SHIFT(0.15*COS(18*g+9),0.15*SIN(18*g+9))
NEXT g
DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-1)
DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-0.9)
DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-1,-1)
DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-0.85,-1)
SET TEXT BACKGROUND "TRANSPARENT"
SET TEXT FONT "ＭＳ ゴシック" , 10
SET TEXT COLOR 1
PLOT TEXT ,AT 0.9*COS(18*0+90), 0.9*SIN(18*0+90) : "20"
PLOT TEXT ,AT 0.9*COS(18*(-19)+90), 0.9*SIN(18*(-19)+90) : "5"
PLOT TEXT ,AT 0.9*COS(18*(-18)+90), 0.9*SIN(18*(-18)+90) : "12"
PLOT TEXT ,AT 0.9*COS(18*(-17)+90), 0.9*SIN(18*(-17)+90) : "9"
PLOT TEXT ,AT 0.9*COS(18*(-16)+90), 0.9*SIN(18*(-16)+90) : "14"
PLOT TEXT ,AT 0.9*COS(18*(-15)+90), 0.9*SIN(18*(-15)+90) : "11"
PLOT TEXT ,AT 0.9*COS(18*(-14)+90), 0.9*SIN(18*(-14)+90) : "8"
PLOT TEXT ,AT 0.9*COS(18*(-13)+90), 0.9*SIN(18*(-13)+90) : "16"
PLOT TEXT ,AT 0.9*COS(18*(-12)+90), 0.9*SIN(18*(-12)+90) : "7"
PLOT TEXT ,AT 0.9*COS(18*(-11)+90), 0.9*SIN(18*(-11)+90) : "19"
PLOT TEXT ,AT 0.9*COS(18*(-10)+90), 0.9*SIN(18*(-10)+90) : "3"
PLOT TEXT ,AT 0.9*COS(18*(-9)+90), 0.9*SIN(18*(-9)+90) : "17"
PLOT TEXT ,AT 0.9*COS(18*(-8)+90), 0.9*SIN(18*(-8)+90) : "2"
PLOT TEXT ,AT 0.9*COS(18*(-7)+90), 0.9*SIN(18*(-7)+90) : "15"
PLOT TEXT ,AT 0.9*COS(18*(-6)+90), 0.9*SIN(18*(-6)+90) : "10"
PLOT TEXT ,AT 0.9*COS(18*(-5)+90), 0.9*SIN(18*(-5)+90) : "6"
PLOT TEXT ,AT 0.9*COS(18*(-4)+90), 0.9*SIN(18*(-4)+90) : "13"
PLOT TEXT ,AT 0.9*COS(18*(-3)+90), 0.9*SIN(18*(-3)+90) : "4"
PLOT TEXT ,AT 0.9*COS(18*(-2)+90), 0.9*SIN(18*(-2)+90) : "18"
PLOT TEXT ,AT 0.9*COS(18*(-1)+90), 0.9*SIN(18*(-1)+90) : "1"
PLOT TEXT ,AT -0.99,-0.99 : "quit"
4800 GOTO 4900
4900 NEXT i

5000 PRINT "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
PRINT TAB(10),PLAYERANAME$&"さん";" ";B;" GAME"
PRINT " あと";" x座標";" y座標"
FOR d=1 TO i
IF MOD(d,3)<>1 THEN GOTO 5200
IF MOD(d,3)=1 THEN GOTO 5100
5100 PRINT "――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
REM PRINT TAB(10);"第";d;"投",P(d),P$(d),Z(d),x(d),y(d)
5200 PRINT "第";d;"投",P$(d)
PRINT USING " ###### ###### #.##### #.#####": P(d),Z(d),x(d),y(d)
NEXT d
PRINT "――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
PRINT " Doubleout!!"
PRINT "△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"

LET G$="D:\DARTS RESULT"
LET H$=".TXT"
LET I$=G$&H$
OPEN #1:NAME I$
SET #1: POINTER END
PRINT #1: DATE$&" "&TIME$
PRINT #1: "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
PRINT #1:TAB(10),PLAYERANAME$&"さん",B;" GAME"
PRINT #1:TAB(10),,,"あと","x座標","y座標"
FOR k=1 TO i
IF MOD(k,3)<>1 THEN GOTO 5600
IF MOD(k,3)=1 THEN GOTO 5500
5500 PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
5600 PRINT #1:TAB(10);"第";k;"投",P$(k),P(k),Z(k),x(k),y(k)
NEXT k
PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
PRINT #1:" Doubleout!!"
PRINT #1:"△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"
CLOSE #1
GOTO 6700

6000 PRINT "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
PRINT TAB(10),PLAYERANAME$&"さん";" ";B;" GAME"
PRINT " あと";" x座標";" y座標"
FOR d=1 TO i
IF MOD(d,3)<>1 THEN GOTO 6200
IF MOD(d,3)=1 THEN GOTO 6100
6100 PRINT "――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
REM PRINT TAB(10);"第";d;"投",P(d),P$(d),Z(d),x(d),y(d)
6200 PRINT "第";d;"投",P$(d)
PRINT USING " ###### ###### #.##### #.#####": P(d),Z(d),x(d),y(d)
NEXT d
PRINT "――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
PRINT " Quit!!"
PRINT "△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"

LET G$="D:\DARTS RESULT"
LET H$=".TXT"
LET I$=G$&H$
OPEN #1:NAME I$
SET #1: POINTER END
PRINT #1: DATE$&" "&TIME$
PRINT #1: "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
PRINT #1:TAB(10),PLAYERANAME$&"さん",B;" GAME"
PRINT #1:TAB(10),,,"あと","x座標","y座標"
FOR k=1 TO i
IF MOD(k,3)<>1 THEN GOTO 6600
IF MOD(k,3)=1 THEN GOTO 6500
6500 PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
6600 PRINT #1:TAB(10);"第";k;"投",P$(k),P(k),Z(k),x(k),y(k)
NEXT k
PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
PRINT #1:" Quit!!"
PRINT #1:"△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"
CLOSE #1
6700 END

EXTERNAL PICTURE circle
OPTION ANGLE DEGREES
FOR j=0 TO 360 STEP 4
PLOT LINES:COS(j*360/360),SIN(j*360/360);
NEXT j
END PICTURE

EXTERNAL PICTURE bar
OPTION ANGLE DEGREES
FOR k=0 TO 1
PLOT LINES:k,0;
NEXT k
END PICTURE

ダーツ 01GAME single out 御一人様練習用 - gnuutera2012or文句うさびょん URL

2025/06/01 (Sun) 00:14:34

REM 十進BASIC DARTS ダーツ 01GAME single out お一人様練習用(01GAME練習用 6投目改)
REM 十進BASIC 2進法モードで開くと大吉。
REM 十進BASIC 10進法モードで開くと中吉。遅いから(^^)。
REM 1人用01game練習用に作りました。
REM グラフィックスにてダーツボードを描画。
REM グラフィックスが見られないときは表示タブのグラフィックスを選択すれば閲覧可能です。
REM いきなりグラフィックスもテキストウィンドウも現れないことがありますが、十進BASICのウィンドウを小さくすると表示されるようです。
REM グラフィックスをクリックすることにより位置情報を保存可能。
REM グラフィックスはオプション->サイズ->BitMapサイズのラジオボタンを押下してサイズ変更してください。
REM バーストは1point処理、マイナス処理すべてに対応。
REM シングルアウト対応。
REM 4人対戦には未対応。
REM Dドライブに自動的に練習結果「DARTS RESULT」を作成します。
REM ちなみにx座標、y座標は練習の向上につながりますので、データをとっておくことをお勧めします。
REM 要らない方は2箇所ある該当箇所を確実に削除ください。
!▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
! LET G$="D:\DARTS RESULT"
! LET H$=".TXT"
! LET I$=G$&H$
! OPEN #1:NAME I$
! SET #1: POINTER END
! PRINT #1: DATE$&" "&TIME$
! PRINT #1: "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
! PRINT #1:TAB(10),PLAYERANAME$&"さん",B;" GAME"
! PRINT #1:TAB(10),,,"あと","x座標","y座標"
! FOR k=1 TO i
! IF MOD(k,3)<>1 THEN GOTO 5600
! IF MOD(k,3)=1 THEN GOTO 5500
!5500 PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
!5600 PRINT #1:TAB(10);"第";k;"投",P$(k),P(k),Z(k),x(k),y(k)
! NEXT k
! PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
! PRINT #1:"△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"
! CLOSE #1
! GOTO 6700
!▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
!と、
!▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
!LET G$="D:\DARTS RESULT"
! LET H$=".TXT"
! LET I$=G$&H$
! OPEN #1:NAME I$
! SET #1: POINTER END
! PRINT #1: DATE$&" "&TIME$
! PRINT #1: "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
! PRINT #1:TAB(10),PLAYERANAME$&"さん",B;" GAME"
! PRINT #1:TAB(10),,,"あと","x座標","y座標"
! FOR k=1 TO i
! IF MOD(k,3)<>1 THEN GOTO 6600
! IF MOD(k,3)=1 THEN GOTO 6500
!6500 PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
!6600 PRINT #1:TAB(10);"第";k;"投",P$(k),P(k),Z(k),x(k),y(k)
! NEXT k
! PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
! PRINT #1:" Quit!!"
! PRINT #1:"△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"
! CLOSE #1
!▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
OPTION BASE 0
DIM x(1000)
DIM y(1000)
DIM z(1000)
DIM P(1000)
DIM P$(1000)
LET LL=3 ! D1の色 0白,1黒,2青,3緑,4赤,5水色,6黄色,7赤紫,8灰色,9濃い青,10濃い緑,11青緑,12えび茶,13オリーブ色,14 濃い紫,15銀色
LET MM=4 ! D20の色 0白,1黒,2青,3緑,4赤,5水色,6黄色,7赤紫,8灰色,9濃い青,10濃い緑,11青緑,12えび茶,13オリーブ色,14 濃い紫,15銀色
LET NN=0 ! S1の色 0白,1黒,2青,3緑,4赤,5水色,6黄色,7赤紫,8灰色,9濃い青,10濃い緑,11青緑,12えび茶,13オリーブ色,14 濃い紫,15銀色
LET OO=2 ! S20の色 0白,1黒,2青,3緑,4赤,5水色,6黄色,7赤紫,8灰色,9濃い青,10濃い緑,11青緑,12えび茶,13オリーブ色,14 濃い紫,15銀色
PRINT "何点からスタートしますか?(半角英数で入力して下さい。)"
INPUT A
LET B=A
LET Z(1)=A
PRINT "プレイヤーの氏名を入力して下さい。(全角、半角で入力して下さい。)"
INPUT PLAYERANAME$
PRINT TAB(10),PLAYERANAME$&"さん",B;" GAME"
PRINT "i","P$(i)","P(i)","あと","x(i)","y(i)"
1000 DECLARE EXTERNAL PICTURE circle
1010 DECLARE EXTERNAL PICTURE bar
1020 OPTION ANGLE DEGREES
1030 SET WINDOW -1,1,-1,1
1031 DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-0.9)
1032 DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-0.8)
1033 DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-1,-0.9)
1034 DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-0.85,-0.9)
1040 DRAW circle WITH ROTATE(0)*SCALE(0.05)*SHIFT(0,0)
1050 DRAW circle WITH ROTATE(0)*SCALE(0.15)*SHIFT(0,0)
1060 DRAW circle WITH ROTATE(0)*SCALE(0.46)*SHIFT(0,0)
1070 DRAW circle WITH ROTATE(0)*SCALE(0.49)*SHIFT(0,0)
1080 DRAW circle WITH ROTATE(0)*SCALE(0.76)*SHIFT(0,0)
1090 DRAW circle WITH ROTATE(0)*SCALE(0.79)*SHIFT(0,0)
1100 DRAW circle WITH ROTATE(0)*SCALE(1)*SHIFT(0,0)
1110 FOR g=1 TO 20
1120 DRAW bar WITH ROTATE(18*g+9)*SCALE(0.64)*SHIFT(0.15*COS(18*g+9),0.15*SIN(18*g+9))
1121 NEXT g
1122 DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-1)
1123 DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-0.9)
1124 DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-1,-1)
1125 DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-0.85,-1)
1140 SET TEXT BACKGROUND "TRANSPARENT"
1150 SET TEXT FONT "ＭＳ ゴシック" , 10
1160 SET TEXT COLOR 1
1170 PLOT TEXT ,AT 0.9*COS(18*0+90), 0.9*SIN(18*0+90) : "20"
1180 PLOT TEXT ,AT 0.9*COS(18*(-19)+90), 0.9*SIN(18*(-19)+90) : "5"
1190 PLOT TEXT ,AT 0.9*COS(18*(-18)+90), 0.9*SIN(18*(-18)+90) : "12"
1200 PLOT TEXT ,AT 0.9*COS(18*(-17)+90), 0.9*SIN(18*(-17)+90) : "9"
1210 PLOT TEXT ,AT 0.9*COS(18*(-16)+90), 0.9*SIN(18*(-16)+90) : "14"
1220 PLOT TEXT ,AT 0.9*COS(18*(-15)+90), 0.9*SIN(18*(-15)+90) : "11"
1230 PLOT TEXT ,AT 0.9*COS(18*(-14)+90), 0.9*SIN(18*(-14)+90) : "8"
1240 PLOT TEXT ,AT 0.9*COS(18*(-13)+90), 0.9*SIN(18*(-13)+90) : "16"
1250 PLOT TEXT ,AT 0.9*COS(18*(-12)+90), 0.9*SIN(18*(-12)+90) : "7"
1260 PLOT TEXT ,AT 0.9*COS(18*(-11)+90), 0.9*SIN(18*(-11)+90) : "19"
1270 PLOT TEXT ,AT 0.9*COS(18*(-10)+90), 0.9*SIN(18*(-10)+90) : "3"
1280 PLOT TEXT ,AT 0.9*COS(18*(-9)+90), 0.9*SIN(18*(-9)+90) : "17"
1290 PLOT TEXT ,AT 0.9*COS(18*(-8)+90), 0.9*SIN(18*(-8)+90) : "2"
1300 PLOT TEXT ,AT 0.9*COS(18*(-7)+90), 0.9*SIN(18*(-7)+90) : "15"
1310 PLOT TEXT ,AT 0.9*COS(18*(-6)+90), 0.9*SIN(18*(-6)+90) : "10"
1320 PLOT TEXT ,AT 0.9*COS(18*(-5)+90), 0.9*SIN(18*(-5)+90) : "6"
1330 PLOT TEXT ,AT 0.9*COS(18*(-4)+90), 0.9*SIN(18*(-4)+90) : "13"
1340 PLOT TEXT ,AT 0.9*COS(18*(-3)+90), 0.9*SIN(18*(-3)+90) : "4"
1350 PLOT TEXT ,AT 0.9*COS(18*(-2)+90), 0.9*SIN(18*(-2)+90) : "18"
1360 PLOT TEXT ,AT 0.9*COS(18*(-1)+90), 0.9*SIN(18*(-1)+90) : "1"
1361 PLOT TEXT ,AT -0.99,-0.99 : "quit"
1362 PLOT TEXT ,AT -0.99,-0.89 : STR$(z(i))
1370 SET AREA COLOR LL
1380 FOR h=1 TO 10
1390 PAINT 0.48*COS(36*h),0.48*SIN(36*h)
1400 PAINT 0.78*COS(36*h),0.78*SIN(36*h)
1410 PAINT 0,0
1420 NEXT h
1430 SET AREA COLOR MM
1440 FOR h=1 TO 10
1450 PAINT 0.48*COS(36*h+18),0.48*SIN(36*h+18)
1460 PAINT 0.78*COS(36*h+18),0.78*SIN(36*h+18)
1470 PAINT 0.1,0.1
1480 NEXT h
1490 SET AREA COLOR NN
1500 FOR h=1 TO 10
1510 PAINT 0.2*COS(36*h),0.2*SIN(36*h)
1520 PAINT 0.6*COS(36*h),0.6*SIN(36*h)
1530 NEXT h
1540 SET AREA COLOR OO
1550 FOR h=1 TO 10
1560 PAINT 0.2*COS(36*h+18),0.2*SIN(36*h+18)
1570 PAINT 0.6*COS(36*h+18),0.6*SIN(36*h+18)
1580 NEXT h
SET AREA COLOR 2
PAINT 0.8,0.8
PAINT -0.8,0.8
PAINT 0.8,-0.8
PAINT -0.8,-0.8
SET TEXT COLOR 6
SET TEXT FONT "ＭＳ 明朝",15 ! ボード表示
PLOT TEXT ,AT -0.99,0.8 : STR$(B)&" GAME"
SET TEXT COLOR 1
SET TEXT FONT "ＭＳ 明朝",10 ! ボード表示
1590 SET POINT STYLE 5
1600 SET POINT COLOR 4

1650 FOR i=1 TO 1000
1660 GET POINT: x(i),y(i)
1670 PLOT POINTS: x(i),y(i)
1680 PLOT TEXT ,AT x(i),y(i): STR$(i)
1681 IF -1<x(i) AND x(i)<-0.85 AND -1<y(i) AND y(i)<-0.9 THEN GOTO 6000
1690 IF x(i)^2+y(i)^2<0.05^2 THEN GOTO 1700
1691 IF x(i)^2+y(i)^2>0.05^2 THEN GOTO 1720
1692 IF x(i)^2+y(i)^2=0.05^2 THEN GOTO 4190
1700 LET P(i)=50
1710 LET P$(i)="Double Bull"
1715 GOTO 4201
1720 IF 0.05^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.15^2 THEN GOTO 1730
1721 IF 0.05^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.15^2 THEN GOTO 1750
1722 IF 0.05^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.15^2 THEN GOTO 4190
1730 LET P(i)=25
1740 LET P$(i)="Bull"
1745 GOTO 4201
1750 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(81)<y(i) AND x(i)*TAN(-81)<y(i) THEN GOTO 1760
1751 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(81)>y(i) OR x(i)*TAN(-81)>y(i) THEN GOTO 1780
1752 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(81)=y(i) OR x(i)*TAN(-81)=y(i) THEN GOTO 4190
1760 LET P(i)=20
1770 LET P$(i)="S20"
1775 GOTO 4201
1780 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(81) THEN GOTO 1790
1781 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(81) THEN GOTO 1810
1782 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(81) THEN GOTO 4190
1790 LET P(i)=1
1800 LET P$(i)="S1"
1805 GOTO 4201
1810 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 1820
1811 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 1840
1812 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
1820 LET P(i)=18
1830 LET P$(i)="S18"
1835 GOTO 4201
1840 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 1850
1841 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 1870
1842 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
1850 LET P(i)=4
1860 LET P$(i)="S4"
1865 GOTO 4201
1870 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 1880
1871 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 1900
1872 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
1880 LET P(i)=13
1890 LET P$(i)="S13"
1895 GOTO 4201
1900 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 1910
1901 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 1930
1902 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
1910 LET P(i)=6
1920 LET P$(i)="S6"
1925 GOTO 4201
1930 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 1940
1931 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 1960
1932 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
1940 LET P(i)=10
1950 LET P$(i)="S10"
1955 GOTO 4201
1960 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 1970
1961 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 1990
1962 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
1970 LET P(i)=15
1980 LET P$(i)="S15"
1985 GOTO 4201
1990 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 2000
1991 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 2020
1992 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
2000 LET P(i)=2
2010 LET P$(i)="S2"
2015 GOTO 4201
2020 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-81)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 2030
2021 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-81)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 2050
2022 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-81)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
2030 LET P(i)=17
2040 LET P$(i)="S17"
2045 GOTO 4201
2050 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND y(i)<x(i)*TAN(81) AND y(i)<x(i)*TAN(-81) THEN GOTO 2060
2051 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR y(i)>x(i)*TAN(81) OR y(i)>x(i)*TAN(-81) THEN GOTO 2080
2052 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR y(i)=x(i)*TAN(81) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
2060 LET P(i)=3
2070 LET P$(i)="S3"
2075 GOTO 4201
2080 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(81)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 2090
2081 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(81)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 2110
2082 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(81)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
2090 LET P(i)=19
2100 LET P$(i)="S19"
2105 GOTO 4201
2110 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 2120
2111 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 2140
2112 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
2120 LET P(i)=7
2130 LET P$(i)="S7"
2135 GOTO 4201
2140 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 2150
2141 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 2170
2142 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
2150 LET P(i)=16
2160 LET P$(i)="S16"
2165 GOTO 4201
2170 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 2180
2171 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 2200
2172 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
2180 LET P(i)=8
2190 LET P$(i)="S8"
2195 GOTO 4201
2200 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 2210
2201 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 2230
2202 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
2210 LET P(i)=11
2220 LET P$(i)="S11"
2225 GOTO 4201
2230 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 2240
2231 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 2260
2232 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
2240 LET P(i)=14
2250 LET P$(i)="S14"
2255 GOTO 4201
2260 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 2270
2261 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 2290
2262 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
2270 LET P(i)=9
2280 LET P$(i)="S9"
2285 GOTO 4201
2290 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 2300
2291 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 2320
2292 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
2300 LET P(i)=12
2310 LET P$(i)="S12"
2315 GOTO 4201
2320 IF 0.15^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.46^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-81) THEN GOTO 2330
2321 IF 0.15^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.46^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-81) THEN GOTO 2360
2322 IF 0.15^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.46^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
2330 LET P(i)=5
2340 LET P$(i)="S5"
2345 GOTO 4201
!2350
2360 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(81)<y(i) AND x(i)*TAN(-81)<y(i) THEN GOTO 2370
2361 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(81)>y(i) OR x(i)*TAN(-81)>y(i) THEN GOTO 2390
2362 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(81)=y(i) OR x(i)*TAN(-81)=y(i) THEN GOTO 4190
2370 LET P(i)=60
2380 LET P$(i)="T20"
2385 GOTO 4201
2390 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(81) THEN GOTO 2400
2391 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(81) THEN GOTO 2420
2392 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(81) THEN GOTO 4190
2400 LET P(i)=3
2410 LET P$(i)="T1"
2415 GOTO 4201
2420 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 2430
2421 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 2450
2422 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
2430 LET P(i)=54
2440 LET P$(i)="T18"
2445 GOTO 4201
2450 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 2460
2451 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 2480
2452 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
2460 LET P(i)=12
2470 LET P$(i)="T4"
2475 GOTO 4201
2480 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 2490
2481 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 2510
2482 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
2490 LET P(i)=39
2500 LET P$(i)="T13"
2505 GOTO 4201
2510 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 2520
2511 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 2540
2512 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
2520 LET P(i)=18
2530 LET P$(i)="T6"
2535 GOTO 4201
2540 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 2550
2541 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 2570
2542 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
2550 LET P(i)=30
2560 LET P$(i)="T10"
2565 GOTO 4201
2570 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 2580
2571 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 2600
2572 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
2580 LET P(i)=45
2590 LET P$(i)="T15"
2595 GOTO 4201
2600 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 2610
2601 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 2630
2602 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
2610 LET P(i)=6
2620 LET P$(i)="T2"
2625 GOTO 4201
2630 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-81)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 2640
2631 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-81)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 2660
2632 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-81)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
2640 LET P(i)=51
2650 LET P$(i)="T17"
2655 GOTO 4201
2660 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND y(i)<x(i)*TAN(81) AND y(i)<x(i)*TAN(-81) THEN GOTO 2670
2661 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR y(i)>x(i)*TAN(81) OR y(i)>x(i)*TAN(-81) THEN GOTO 2690
2662 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR y(i)=x(i)*TAN(81) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
2670 LET P(i)=9
2680 LET P$(i)="T3"
2685 GOTO 4201
2690 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(81)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 2700
2691 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(81)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 2720
2692 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(81)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
2700 LET P(i)=57
2710 LET P$(i)="T19"
2715 GOTO 4201
2720 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 2730
2721 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 2750
2722 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
2730 LET P(i)=21
2740 LET P$(i)="T7"
2745 GOTO 4201
2750 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 2760
2751 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 2780
2752 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
2760 LET P(i)=48
2770 LET P$(i)="T16"
2775 GOTO 4201
2780 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 2790
2781 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 2810
2782 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
2790 LET P(i)=24
2800 LET P$(i)="T8"
2805 GOTO 4201
2810 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 2820
2811 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 2840
2812 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
2820 LET P(i)=33
2830 LET P$(i)="T11"
2835 GOTO 4201
2840 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 2850
2841 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 2870
2842 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
2850 LET P(i)=42
2860 LET P$(i)="T14"
2865 GOTO 4201
2870 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 2880
2871 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 2900
2872 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
2880 LET P(i)=27
2890 LET P$(i)="T9"
2895 GOTO 4201
2900 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 2910
2901 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 2930
2902 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
2910 LET P(i)=36
2920 LET P$(i)="T12"
2925 GOTO 4201
2930 IF 0.46^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.49^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-81) THEN GOTO 2940
2931 IF 0.46^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.49^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-81) THEN GOTO 2970
2932 IF 0.46^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.49^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
2940 LET P(i)=15
2950 LET P$(i)="T5"
2955 GOTO 4201
!2960
2970 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(81)<y(i) AND x(i)*TAN(-81)<y(i) THEN GOTO 2980
2971 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(81)>y(i) OR x(i)*TAN(-81)>y(i) THEN GOTO 3000
2972 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(81)=y(i) OR x(i)*TAN(-81)=y(i) THEN GOTO 4190
2980 LET P(i)=20
2990 LET P$(i)="S20"
2995 GOTO 4201
3000 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(81) THEN GOTO 3010
3001 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(81) THEN GOTO 3030
3002 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(81) THEN GOTO 4190
3010 LET P(i)=1
3020 LET P$(i)="S1"
3025 GOTO 4201
3030 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 3040
3031 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 3060
3032 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
3040 LET P(i)=18
3050 LET P$(i)="S18"
3055 GOTO 4201
3060 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 3070
3061 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 3090
3062 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
3070 LET P(i)=4
3080 LET P$(i)="S4"
3085 GOTO 4201
3090 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 3100
3091 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 3120
3092 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
3100 LET P(i)=13
3110 LET P$(i)="S13"
3115 GOTO 4201
3120 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 3130
3121 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 3150
3122 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
3130 LET P(i)=6
3140 LET P$(i)="S6"
3145 GOTO 4201
3150 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 3160
3151 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 3180
3152 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
3160 LET P(i)=10
3170 LET P$(i)="S10"
3175 GOTO 4201
3180 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 3190
3181 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 3210
3182 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
3190 LET P(i)=15
3200 LET P$(i)="S15"
3205 GOTO 4201
3210 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 3220
3211 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 3240
3212 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
3220 LET P(i)=2
3230 LET P$(i)="S2"
3235 GOTO 4201
3240 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-81)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 3250
3241 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-81)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 3270
3242 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-81)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
3250 LET P(i)=17
3260 LET P$(i)="S17"
3265 GOTO 4201
3270 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND y(i)<x(i)*TAN(81) AND y(i)<x(i)*TAN(-81) THEN GOTO 3280
3271 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR y(i)>x(i)*TAN(81) OR y(i)>x(i)*TAN(-81) THEN GOTO 3300
3272 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR y(i)=x(i)*TAN(81) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
3280 LET P(i)=3
3290 LET P$(i)="S3"
3295 GOTO 4201
3300 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(81)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 3310
3301 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(81)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 3330
3302 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(81)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
3310 LET P(i)=19
3320 LET P$(i)="S19"
3325 GOTO 4201
3330 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 3340
3331 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 3360
3332 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
3340 LET P(i)=7
3350 LET P$(i)="S7"
3355 GOTO 4201
3360 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 3370
3361 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 3390
3362 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
3370 LET P(i)=16
3380 LET P$(i)="S16"
3385 GOTO 4201
3390 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 3400
3391 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 3420
3392 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
3400 LET P(i)=8
3410 LET P$(i)="S8"
3415 GOTO 4201
3420 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 3430
3421 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 3450
3422 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
3430 LET P(i)=11
3440 LET P$(i)="S11"
3445 GOTO 4201
3450 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 3460
3451 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 3480
3452 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
3460 LET P(i)=14
3470 LET P$(i)="S14"
3475 GOTO 4201
3480 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 3490
3481 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 3510
3482 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
3490 LET P(i)=9
3500 LET P$(i)="S9"
3505 GOTO 4201
3510 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 3520
3511 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 3540
3512 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
3520 LET P(i)=12
3530 LET P$(i)="S12"
3535 GOTO 4201
3540 IF 0.49^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.76^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-81) THEN GOTO 3550
3541 IF 0.49^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.76^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-81) THEN GOTO 3580
3542 IF 0.49^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.76^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
3550 LET P(i)=5
3560 LET P$(i)="S5"
3565 GOTO 4201
!3570
3580 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(81)<y(i) AND x(i)*TAN(-81)<y(i) THEN GOTO 3590
3581 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(81)>y(i) OR x(i)*TAN(-81)>y(i) THEN GOTO 3610
3582 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(81)=y(i) OR x(i)*TAN(-81)=y(i) THEN GOTO 4190
3590 LET P(i)=40
3600 LET P$(i)="D20"
3605 GOTO 4201
3610 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(81) THEN GOTO 3620
3611 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(81) THEN GOTO 3640
3612 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(81) THEN GOTO 4190
3620 LET P(i)=2
3630 LET P$(i)="D1"
3635 GOTO 4201
3640 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 3650
3641 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 3670
3642 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
3650 LET P(i)=36
3660 LET P$(i)="D18"
3665 GOTO 4201
3670 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 3680
3671 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 3700
3672 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
3680 LET P(i)=8
3690 LET P$(i)="D4"
3695 GOTO 4201
3700 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 3710
3701 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 3730
3702 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
3710 LET P(i)=26
3720 LET P$(i)="D13"
3725 GOTO 4201
3730 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 3740
3731 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 3760
3732 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
3740 LET P(i)=12
3750 LET P$(i)="D6"
3755 GOTO 4201
3760 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 3770
3761 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 3790
3762 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
3770 LET P(i)=20
3780 LET P$(i)="D10"
3785 GOTO 4201
3790 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 3800
3791 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 3820
3792 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
3800 LET P(i)=30
3810 LET P$(i)="D15"
3815 GOTO 4201
3820 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 3830
3821 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 3850
3822 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
3830 LET P(i)=4
3840 LET P$(i)="D2"
3845 GOTO 4201
3850 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-81)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 3860
3851 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-81)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 3880
3852 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-81)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
3860 LET P(i)=34
3870 LET P$(i)="D17"
3875 GOTO 4201
3880 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND y(i)<x(i)*TAN(81) AND y(i)<x(i)*TAN(-81) THEN GOTO 3890
3881 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR y(i)>x(i)*TAN(81) OR y(i)>x(i)*TAN(-81) THEN GOTO 3910
3882 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR y(i)=x(i)*TAN(81) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
3890 LET P(i)=6
3900 LET P$(i)="D3"
3915 GOTO 4201
3910 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(81)<y(i) AND y(i)<x(i)*TAN(63) THEN GOTO 3920
3911 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(81)>y(i) OR y(i)>x(i)*TAN(63) THEN GOTO 3940
3912 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(81)=y(i) OR y(i)=x(i)*TAN(63) THEN GOTO 4190
3920 LET P(i)=38
3930 LET P$(i)="D19"
3935 GOTO 4201
3940 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(63)<y(i) AND y(i)<x(i)*TAN(45) THEN GOTO 3950
3941 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(63)>y(i) OR y(i)>x(i)*TAN(45) THEN GOTO 3970
3942 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(63)=y(i) OR y(i)=x(i)*TAN(45) THEN GOTO 4190
3950 LET P(i)=14
3960 LET P$(i)="D7"
3965 GOTO 4201
3970 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(45)<y(i) AND y(i)<x(i)*TAN(27) THEN GOTO 3980
3971 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(45)>y(i) OR y(i)>x(i)*TAN(27) THEN GOTO 4000
3972 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(45)=y(i) OR y(i)=x(i)*TAN(27) THEN GOTO 4190
3980 LET P(i)=32
3990 LET P$(i)="D16"
3995 GOTO 4201
4000 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(27)<y(i) AND y(i)<x(i)*TAN(9) THEN GOTO 4010
4001 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(27)>y(i) OR y(i)>x(i)*TAN(9) THEN GOTO 4030
4002 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(27)=y(i) OR y(i)=x(i)*TAN(9) THEN GOTO 4190
4010 LET P(i)=16
4020 LET P$(i)="D8"
4025 GOTO 4201
4030 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(9)<y(i) AND y(i)<x(i)*TAN(-9) THEN GOTO 4040
4031 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(9)>y(i) OR y(i)>x(i)*TAN(-9) THEN GOTO 4060
4032 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(9)=y(i) OR y(i)=x(i)*TAN(-9) THEN GOTO 4190
4040 LET P(i)=22
4050 LET P$(i)="D11"
4055 GOTO 4201
4060 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-9)<y(i) AND y(i)<x(i)*TAN(-27) THEN GOTO 4070
4061 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-9)>y(i) OR y(i)>x(i)*TAN(-27) THEN GOTO 4090
4062 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-9)=y(i) OR y(i)=x(i)*TAN(-27) THEN GOTO 4190
4070 LET P(i)=28
4080 LET P$(i)="D14"
4085 GOTO 4201
4090 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-27)<y(i) AND y(i)<x(i)*TAN(-45) THEN GOTO 4100
4091 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-27)>y(i) OR y(i)>x(i)*TAN(-45) THEN GOTO 4120
4092 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-27)=y(i) OR y(i)=x(i)*TAN(-45) THEN GOTO 4190
4100 LET P(i)=18
4110 LET P$(i)="D9"
4115 GOTO 4201
4120 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-45)<y(i) AND y(i)<x(i)*TAN(-63) THEN GOTO 4130
4121 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-45)>y(i) OR y(i)>x(i)*TAN(-63) THEN GOTO 4150
4122 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-45)=y(i) OR y(i)=x(i)*TAN(-63) THEN GOTO 4190
4130 LET P(i)=24
4140 LET P$(i)="D12"
4145 GOTO 4201
4150 IF 0.76^2<x(i)^2+y(i)^2 AND x(i)^2+y(i)^2<0.79^2 AND x(i)*TAN(-63)<y(i) AND y(i)<x(i)*TAN(-81) THEN GOTO 4160
4151 IF 0.76^2>x(i)^2+y(i)^2 OR x(i)^2+y(i)^2>0.79^2 OR x(i)*TAN(-63)>y(i) OR y(i)>x(i)*TAN(-81) THEN GOTO 4180
4152 IF 0.76^2=x(i)^2+y(i)^2 OR x(i)^2+y(i)^2=0.79^2 OR x(i)*TAN(-63)=y(i) OR y(i)=x(i)*TAN(-81) THEN GOTO 4190
4160 LET P(i)=10
4170 LET P$(i)="D5"
4175 GOTO 4201
4180 IF 0.79^2<x(i)^2+y(i)^2 THEN GOTO 4190
4190 LET P(i)=0
4200 LET P$(i)="Outboard"

4201 SET TEXT FONT "ＭＳ 明朝",15 ! ボード表示
SET TEXT COLOR 6
PLOT TEXT ,AT 0.7,0.9-MOD(i+2,3)/10 : STR$(P(i))
SET TEXT COLOR 4
PLOT TEXT ,AT 0.8,0.9-MOD(i+2,3)/10 : STR$(A-P(i))
SET TEXT FONT "ＭＳ 明朝",10
SET TEXT COLOR 1

4210 IF A-P(i)=0 THEN GOTO 5000 ! エラーが起こるなら、A-P(i)-P(i+1)-P(i+2)、か、A-P(i)-P(i-1)-P(i-2)に正すこと。
REM 4211 IF A-P(i)=1 THEN GOTO 4500 ! エラーが起こるなら、A-P(i)-P(i+1)-P(i+2)、か、A-P(i)-P(i-1)-P(i-2)に正すこと。
4212 IF A-P(i)<0 THEN GOTO 4500 ! エラーが起こるなら、A-P(i)-P(i+1)-P(i+2)、か、A-P(i)-P(i-1)-P(i-2)に正すこと。
4213 IF A-P(i)>0 THEN GOTO 4214 ! エラーが起こるなら、A-P(i)-P(i+1)-P(i+2)、か、A-P(i)-P(i-1)-P(i-2)に正すこと。
4214 LET A=A-P(i) ! エラーが起こるなら、A-P(i)-P(i+1)-P(i+2)、か、A-P(i)-P(i-1)-P(i-2)に正すこと。
4215 LET Z(i)=A
4216 GOTO 4700

4500 IF MOD(i,3)=0 THEN GOTO 4520 ! 3投目でBURSTになる場合、つまり、"ヒット、ヒット、バースト"の処理に回す。
IF MOD(i,3)=1 THEN GOTO 4510 ! 1投目でBURSTになる場合、つまり、"バースト"の処理に回す。
IF MOD(i,3)=2 THEN GOTO 4501 ! 2投目でBURSTになる場合、つまり、"ヒット、バースト"の処理に回す。
4501 !ヒット、バースト CHECK OK!!
LET Z(i)=A+P(i-1) ! i投目で「あと...」で表示される残り点数をそのターンの1投目のヒットのために4214行で引かれた点数分だけ元に戻す。
LET Z(i+1)=A+P(i-1) ! i+1投目で「あと...」で表示される残り点数をそのターンの1投目のヒットのために4214行で引かれた点数分だけ元に戻す。
LET A=A+P(i-1) ! 持ち点をそのターンの1投目のヒットのために4214行で引かれた点数分だけ元に戻す。
LET P(i-1)=0
LET P(i)=0
LET P$(i)=P$(i)&"BURST"
LET P$(i+1)="no count"&"BURST"
LET i=i+1 ! 2投目でバーストなので、1投分スキップした後、4900行で、そのまま次のターンの1投目に行く。
GOTO 4700
4510 !バースト CHECK OK!! ここは、そのターンの1投目のバーストだから、4214行で点数を引かれていない。
4512 LET Z(i)=A ! i投目で「あと...」で表示される残り点数はそのまま。
LET A=A ! i投目の持ち点もそのまま。
LET P(i)=0
LET P(i+1)=0
LET P(i+2)=0
LET P$(i)=P$(i)&"BURST"
LET P$(i+1)="no count"&"BURST"
LET P$(i+2)="no count"&"BURST"
LET Z(i+1)=A ! i+1投目で「あと...」で表示される残り点数はそのまま。
LET Z(i+2)=A ! i+2投目で「あと...」で表示される残り点数はそのまま。
LET Z(i+3)=A ! i+3投目で「あと...」で表示される残り点数はそのまま。
LET i=i+2 ! 1投目でバーストなので、2投分スキップした後、4900行で、そのまま次のターンの1投目に行く。
GOTO 4700
4520 !ヒット、ヒット、バースト CHECK OK!!
4521 LET Z(i)=A+P(i-1)+P(i-2) ! i投目で「あと...」で表示される残り点数をそのターンの1投目と2投目のヒットのために4214行で引かれた点数分だけ元に戻す。
LET A=A+P(i-1)+P(i-2) ! 持ち点をそのターンの1投目と2投目のヒットのために4214行で引かれた点数分だけ元に戻す。
LET P(i)=0
LET P(i-1)=0
LET P(i-2)=0
LET P$(i)=P$(i)&"BURST"
LET i=i ! 3投目でバーストなので、0投分スキップした後、4900行で、そのまま次のターンの1投目に行ける。
GOTO 4700
4700 PRINT i,P$(i),P(i),Z(i),x(i),y(i)
4701 IF MOD(i,3)<>0 THEN GOTO 4800
4702 IF MOD(i,3)=0 THEN GOTO 4703
4703 WAIT DELAY 1
CLEAR
DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-0.9)
DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-0.8)
DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-1,-0.9)
DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-0.85,-0.9)
DRAW circle WITH ROTATE(0)*SCALE(0.05)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.15)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.46)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.49)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.76)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.79)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(1)*SHIFT(0,0)
FOR g=1 TO 20
DRAW bar WITH ROTATE(18*g+9)*SCALE(0.64)*SHIFT(0.15*COS(18*g+9),0.15*SIN(18*g+9))
NEXT g
DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-1)
DRAW bar WITH ROTATE(0)*SCALE(0.15)*SHIFT(-1,-0.9)
DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-1,-1)
DRAW bar WITH ROTATE(90)*SCALE(0.1)*SHIFT(-0.85,-1)
SET TEXT BACKGROUND "TRANSPARENT"
SET TEXT FONT "ＭＳ ゴシック" , 10
SET TEXT COLOR 1
PLOT TEXT ,AT 0.9*COS(18*0+90), 0.9*SIN(18*0+90) : "20"
PLOT TEXT ,AT 0.9*COS(18*(-19)+90), 0.9*SIN(18*(-19)+90) : "5"
PLOT TEXT ,AT 0.9*COS(18*(-18)+90), 0.9*SIN(18*(-18)+90) : "12"
PLOT TEXT ,AT 0.9*COS(18*(-17)+90), 0.9*SIN(18*(-17)+90) : "9"
PLOT TEXT ,AT 0.9*COS(18*(-16)+90), 0.9*SIN(18*(-16)+90) : "14"
PLOT TEXT ,AT 0.9*COS(18*(-15)+90), 0.9*SIN(18*(-15)+90) : "11"
PLOT TEXT ,AT 0.9*COS(18*(-14)+90), 0.9*SIN(18*(-14)+90) : "8"
PLOT TEXT ,AT 0.9*COS(18*(-13)+90), 0.9*SIN(18*(-13)+90) : "16"
PLOT TEXT ,AT 0.9*COS(18*(-12)+90), 0.9*SIN(18*(-12)+90) : "7"
PLOT TEXT ,AT 0.9*COS(18*(-11)+90), 0.9*SIN(18*(-11)+90) : "19"
PLOT TEXT ,AT 0.9*COS(18*(-10)+90), 0.9*SIN(18*(-10)+90) : "3"
PLOT TEXT ,AT 0.9*COS(18*(-9)+90), 0.9*SIN(18*(-9)+90) : "17"
PLOT TEXT ,AT 0.9*COS(18*(-8)+90), 0.9*SIN(18*(-8)+90) : "2"
PLOT TEXT ,AT 0.9*COS(18*(-7)+90), 0.9*SIN(18*(-7)+90) : "15"
PLOT TEXT ,AT 0.9*COS(18*(-6)+90), 0.9*SIN(18*(-6)+90) : "10"
PLOT TEXT ,AT 0.9*COS(18*(-5)+90), 0.9*SIN(18*(-5)+90) : "6"
PLOT TEXT ,AT 0.9*COS(18*(-4)+90), 0.9*SIN(18*(-4)+90) : "13"
PLOT TEXT ,AT 0.9*COS(18*(-3)+90), 0.9*SIN(18*(-3)+90) : "4"
PLOT TEXT ,AT 0.9*COS(18*(-2)+90), 0.9*SIN(18*(-2)+90) : "18"
PLOT TEXT ,AT 0.9*COS(18*(-1)+90), 0.9*SIN(18*(-1)+90) : "1"
PLOT TEXT ,AT -0.99,-0.99 : "quit"
PLOT TEXT ,AT -0.99,-0.89 : STR$(Z(i))
SET AREA COLOR LL
FOR h=1 TO 10
PAINT 0.48*COS(36*h),0.48*SIN(36*h)
PAINT 0.78*COS(36*h),0.78*SIN(36*h)
PAINT 0,0
NEXT h
SET AREA COLOR MM
FOR h=1 TO 10
PAINT 0.48*COS(36*h+18),0.48*SIN(36*h+18)
PAINT 0.78*COS(36*h+18),0.78*SIN(36*h+18)
PAINT 0.1,0.1
NEXT h
SET AREA COLOR NN
FOR h=1 TO 10
PAINT 0.2*COS(36*h),0.2*SIN(36*h)
PAINT 0.6*COS(36*h),0.6*SIN(36*h)
NEXT h
SET AREA COLOR OO
FOR h=1 TO 10
PAINT 0.2*COS(36*h+18),0.2*SIN(36*h+18)
PAINT 0.6*COS(36*h+18),0.6*SIN(36*h+18)
NEXT h
SET AREA COLOR 2
PAINT 0.8,0.8
PAINT -0.8,0.8
PAINT 0.8,-0.8
PAINT -0.8,-0.8
SET TEXT COLOR 6
SET TEXT FONT "ＭＳ 明朝",15 ! ボード表示
PLOT TEXT ,AT -0.99,0.8 : STR$(B)&" GAME"
SET TEXT COLOR 1
SET TEXT FONT "ＭＳ 明朝",10 ! ボード表示
4800 GOTO 4900
4900 NEXT i

5000 PRINT "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
PRINT TAB(10),PLAYERANAME$&"さん";" ";B;" GAME"
PRINT " あと";" x座標";" y座標"
FOR d=1 TO i
IF MOD(d,3)<>1 THEN GOTO 5200
IF MOD(d,3)=1 THEN GOTO 5100
5100 PRINT "――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
REM PRINT TAB(10);"第";d;"投",P(d),P$(d),Z(d),x(d),y(d)
5200 PRINT "第";d;"投",P$(d)
PRINT USING " ###### ###### #.##### #.#####": P(d),Z(d),x(d),y(d)
NEXT d
PRINT "――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
PRINT " Singleout!!"
PRINT "△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"

LET G$="D:\DARTS RESULT"
LET H$=".TXT"
LET I$=G$&H$
OPEN #1:NAME I$
SET #1: POINTER END
PRINT #1: DATE$&" "&TIME$
PRINT #1: "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
PRINT #1:TAB(10),PLAYERANAME$&"さん",B;" GAME"
PRINT #1:TAB(10),,,"あと","x座標","y座標"
FOR k=1 TO i
IF MOD(k,3)<>1 THEN GOTO 5600
IF MOD(k,3)=1 THEN GOTO 5500
5500 PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
5600 PRINT #1:TAB(10);"第";k;"投",P$(k),P(k),Z(k),x(k),y(k)
NEXT k
PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
PRINT #1:" Singleout!!"
PRINT #1:"△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"
CLOSE #1
GOTO 6700

6000 PRINT "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
PRINT TAB(10),PLAYERANAME$&"さん";" ";B;" GAME"
PRINT " あと";" x座標";" y座標"
FOR d=1 TO i
IF MOD(d,3)<>1 THEN GOTO 6200
IF MOD(d,3)=1 THEN GOTO 6100
6100 PRINT "――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
REM PRINT TAB(10);"第";d;"投",P(d),P$(d),Z(d),x(d),y(d)
6200 PRINT "第";d;"投",P$(d)
PRINT USING " ###### ###### #.##### #.#####": P(d),Z(d),x(d),y(d)
NEXT d
PRINT "――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
PRINT " Quit!!"
PRINT "△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"

LET G$="D:\DARTS RESULT"
LET H$=".TXT"
LET I$=G$&H$
OPEN #1:NAME I$
SET #1: POINTER END
PRINT #1: DATE$&" "&TIME$
PRINT #1: "▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽練習結果▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽▽"
PRINT #1:TAB(10),PLAYERANAME$&"さん",B;" GAME"
PRINT #1:TAB(10),,,"あと","x座標","y座標"
FOR k=1 TO i
IF MOD(k,3)<>1 THEN GOTO 6600
IF MOD(k,3)=1 THEN GOTO 6500
6500 PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
6600 PRINT #1:TAB(10);"第";k;"投",P$(k),P(k),Z(k),x(k),y(k)
NEXT k
PRINT #1:"――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――"
PRINT #1:" Quit!!"
PRINT #1:"△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△△"
CLOSE #1
6700 END
EXTERNAL PICTURE circle
OPTION ANGLE DEGREES
FOR j=0 TO 360 STEP 4
PLOT LINES:COS(j*360/360),SIN(j*360/360);
NEXT j
END PICTURE

EXTERNAL PICTURE bar
OPTION ANGLE DEGREES
FOR k=0 TO 1
PLOT LINES:k,0;
NEXT k
END PICTURE

ダーツボード - gnuutera2012or文句うさびょん URL

2025/06/01 (Sun) 00:08:39

!black,blue,redで彩られたダーツボードです。
DECLARE EXTERNAL PICTURE circle
DECLARE EXTERNAL PICTURE bar
OPTION ANGLE DEGREES
SET WINDOW -1,1,-1,1
DRAW circle WITH ROTATE(0)*SCALE(0.05)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.15)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.46)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.49)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.76)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(0.79)*SHIFT(0,0)
DRAW circle WITH ROTATE(0)*SCALE(1)*SHIFT(0,0)
FOR i=1 TO 20
DRAW bar WITH ROTATE(18*i+9)*SCALE(0.64)*SHIFT(0.15*COS(18*i+9),0.15*SIN(18*i+9))
NEXT i
SET TEXT BACKGROUND "TRANSPARENT"
SET TEXT FONT "ＭＳ ゴシック" , 10
SET TEXT COLOR 1
PLOT TEXT ,AT COS(18*0+90)*0.9, SIN(18*0+90)*0.9 : "20"
PLOT TEXT ,AT COS(18*(-1)+90)*0.9, SIN(18*(-1)+90)*0.9 : "1"
PLOT TEXT ,AT COS(18*(-2)+90)*0.9, SIN(18*(-2)+90)*0.9 : "18"
PLOT TEXT ,AT COS(18*(-3)+90)*0.9, SIN(18*(-3)+90)*0.9 : "4"
PLOT TEXT ,AT COS(18*(-4)+90)*0.9, SIN(18*(-4)+90)*0.9 : "13"
PLOT TEXT ,AT COS(18*(-5)+90)*0.9, SIN(18*(-5)+90)*0.9 : "6"
PLOT TEXT ,AT COS(18*(-6)+90)*0.9, SIN(18*(-6)+90)*0.9 : "10"
PLOT TEXT ,AT COS(18*(-7)+90)*0.9, SIN(18*(-7)+90)*0.9 : "15"
PLOT TEXT ,AT COS(18*(-8)+90)*0.9, SIN(18*(-8)+90)*0.9 : "2"
PLOT TEXT ,AT COS(18*(-9)+90)*0.9, SIN(18*(-9)+90)*0.9 : "17"
PLOT TEXT ,AT COS(18*(-10)+90)*0.9, SIN(18*(-10)+90)*0.9 : "3"
PLOT TEXT ,AT COS(18*(-11)+90)*0.9, SIN(18*(-11)+90)*0.9 : "19"
PLOT TEXT ,AT COS(18*(-12)+90)*0.9, SIN(18*(-12)+90)*0.9 : "7"
PLOT TEXT ,AT COS(18*(-13)+90)*0.9, SIN(18*(-13)+90)*0.9 : "16"
PLOT TEXT ,AT COS(18*(-14)+90)*0.9, SIN(18*(-14)+90)*0.9 : "8"
PLOT TEXT ,AT COS(18*(-15)+90)*0.9, SIN(18*(-15)+90)*0.9 : "11"
PLOT TEXT ,AT COS(18*(-16)+90)*0.9, SIN(18*(-16)+90)*0.9 : "14"
PLOT TEXT ,AT COS(18*(-17)+90)*0.9, SIN(18*(-17)+90)*0.9 : "9"
PLOT TEXT ,AT COS(18*(-18)+90)*0.9, SIN(18*(-18)+90)*0.9 : "12"
PLOT TEXT ,AT COS(18*(-19)+90)*0.9, SIN(18*(-19)+90)*0.9 : "5"
SET AREA COLOR 2
FOR i=1 TO 10
PAINT 0.48*COS(36*i),0.48*SIN(36*i)
PAINT 0.78*COS(36*i),0.78*SIN(36*i)
PAINT 0,0
NEXT i
SET AREA COLOR 4
FOR i=1 TO 10
PAINT 0.48*COS(36*i+18),0.48*SIN(36*i+18)
PAINT 0.78*COS(36*i+18),0.78*SIN(36*i+18)
PAINT 0.1,0.1
NEXT i
SET AREA COLOR 0
FOR i=1 TO 10
PAINT 0.2*COS(36*i),0.2*SIN(36*i)
PAINT 0.6*COS(36*i),0.6*SIN(36*i)
NEXT i
SET AREA COLOR 1
FOR i=1 TO 10
PAINT 0.2*COS(36*i+18),0.2*SIN(36*i+18)
PAINT 0.6*COS(36*i+18),0.6*SIN(36*i+18)
NEXT i
SET POINT STYLE 4
LET n=100
DIM x(n)
DIM y(n)
PRINT "i";"x(i)";"y(i)"
FOR i=1 TO n
GET POINT: x(i),y(i)
PLOT POINTS: x(i),y(i)
PLOT TEXT ,AT x(i),y(i): STR$(i)
PRINT i;x(i);y(i)
NEXT i

END

EXTERNAL PICTURE circle
OPTION ANGLE DEGREES
FOR i=0 TO 1440
PLOT LINES:COS(i*360/1440),SIN(i*360/1440);
NEXT i
END PICTURE

EXTERNAL PICTURE bar
OPTION ANGLE DEGREES
FOR i=0 TO 1
PLOT LINES:i,0;
NEXT i
END PICTURE

背景色と文字色によっては描画されません - しばっち

2025/05/25 (Sun) 07:27:16

Windows 64bit版Lazarus版BASICで背景色によって
文字が描画されません。

動作モード(2進、10進、複素数など)によっても挙動が
若干異なるようです。



SET WINDOW 0,10,10,0
SET TEXT HEIGHT 1.5
FOR I=0 TO 9
SET AREA COLOR I
PLOT AREA :0,0;10,0;10,10;0,10
FOR J=0 TO 9
SET TEXT COLOR J
PLOT TEXT ,AT J,5:STR$(J)
NEXT J
WAIT DELAY 3
NEXT I
END

オセロゲーム - しばっち

2025/05/05 (Mon) 07:41:03

オセロゲームの移植版です。

キー入力による操作です。マウスは使用しません。


DECLARE EXTERNAL FUNCTION INKEY$
DECLARE EXTERNAL FUNCTION INPUT$
10 DIM V(8,8),N$(2),P(10),M(10)
CALL GINIT(640,400)
CALL GCOLOR(7)
40 CLEAR
GOSUB 660
50 CALL BOXFULL(0,0,639,399,4)
CALL BOXFULL(10,10,190*2,190*2,6)
FOR A=0 TO 7
FOR B=0 TO 7
60 CALL BOX(15+(A*20+10)*2,10+(B*20+10)*2,15+(A*20+30)*2,10+(B*20+30)*2,0)
NEXT B
NEXT A
70 CALL GPRINT(6,0,"1")
CALL GPRINT(11,0,"2")
CALL GPRINT(16,0,"3")
CALL GPRINT(21,0,"4")
CALL GPRINT(26,0,"5")
CALL GPRINT(31,0,"6")
CALL GPRINT(36,0,"7")
CALL GPRINT(41,0,"8")
CALL GPRINT(48,0,"--- COMPUTER OTHELLO ---")
80 FOR A=1 TO 8
CALL GPRINT(0,A*2.5+1,CHR$(48+A))
NEXT A
90 RESTORE 100
FOR A=1 TO 4
READ X,Y,CO
GOSUB 630
LET V(X,Y)=CO+1
NEXT A
100 DATA 4,4,7,5,4,0,4,5,0,5,5,7
110 CALL GPRINT(54,2,"先手(黒) ")
CALL GPRINT(54,4,"後手(白) ")
120 CALL GPRINT(52,6," --- 順番 ---")
130 CALL GPRINT(51,8,"対戦(0) / 先手(1) / 後手(2)")
DO
LET X$=INKEY$
LOOP WHILE X$=""
140 LET J=VAL(X$)
IF J>2 THEN LET J=2
150 IF J=0 THEN
LET N$(1)="PLAYER-1 "
LET N$(2)="PLAYER-2 "
GOTO 170
END IF
IF J=2 THEN LET JN=J-1 ELSE LET JN=J+1
160 LET N$(J)="PLAYER-1 "
LET N$(JN)="COMPUTER "
170 CALL GPRINT(63,2,N$(1))
CALL GPRINT(63,4,N$(2))
180 CALL GPRINT(52,6,"--- キー入力 ---")
CALL GPRINT(55,15,"--- パス ---")
190 CALL GPRINT(51,8," [E] 終了 ")
CALL GPRINT(54,17,N$(1)&" "&STR$(P(1)))
200 CALL GPRINT(54,9,"[P] パス")
LET E=0
CALL GPRINT(54,19,N$(2)&" "&STR$(P(2)))
210 IF E=60 THEN
GOTO 540
ELSE
LET F=1
GOTO 300
END IF
220 LET CO=0
LET K=8
IF J+1=1 OR J+1=2 THEN GOSUB 250
IF J+1=3 THEN GOSUB 380
IF KK=0 THEN
GOTO 210
ELSE
LET E=E+1
END IF
230 IF E=60 THEN
GOTO 540
ELSE
LET F=2
GOTO 300
END IF
240 LET CO=7
LET K=1
IF J+1=1 OR J+1=3 THEN GOSUB 250
IF J+1=2 THEN GOSUB 380
IF KK=0 THEN
GOTO 230
ELSE
LET E=E+1
GOTO 210
END IF
250 LET KX=X
LET KY=Y
FOR AX=-1 TO 1
FOR AY=-1 TO 1
IF AX=0 AND AY=0 THEN CALL GCOLOR(0) ELSE LET N=2
260 LET A=KX+AX*N
LET B=KY+AY*N
IF A<1 OR A>8 OR B<1 OR B>8 OR KX+AX>8 OR KX+AX<1 OR KY+AY<1 OR KY+AY>8 THEN
GOTO 290
ELSE
IF V(KX+AX*(N-1),KY+AY*(N-1))<>K THEN 290
END IF
270 IF V(A,B)<>CO+1 THEN
LET N=N+1
GOTO 260
ELSE
LET CO=CO
LET KK=1
END IF
280 FOR I=0 TO N
LET X=KX+AX*I
LET Y=KY+AY*I
GOSUB 630
LET V(X,Y)=CO+1
NEXT I
LET X=KX
LET Y=KY
GOSUB 630
290 NEXT AY
NEXT AX
RETURN
300 FOR Z=0 TO 5
NEXT Z
CALL GPRINT(52,11,N$(F)&"の番です｡ ")
LET KK=0
CALL GPRINT(55,13," ")
310 IF J+F=3 THEN 370
320 FOR Z=0 TO 5
NEXT Z
CALL GPRINT(55,13," ")
CALL GPRINT(55,13,"横=")
DO
LET X$=INKEY$
LOOP WHILE X$=""
CALL GPRINT(59,13,X$)
FOR Z=0 TO 1500
NEXT Z
330 IF X$="E" OR X$="e" THEN
GOTO 540
ELSE
IF X$="P" OR X$="p" THEN 490
END IF
340 LET X=VAL(X$)
IF X=0 OR X=9 THEN 320
350 CALL GPRINT(64,13," ")
CALL GPRINT(64,13,"縦=")
DO
LET X$=INKEY$
LOOP WHILE X$=""
LET Y=VAL(X$)
CALL GPRINT(68,13,STR$(Y))
360 IF Y=0 OR Y=9 THEN
GOTO 350
ELSE
IF V(X,Y)<>0 THEN 320
END IF
370 IF F=1 THEN 220
IF F=2 THEN 240
380 RESTORE 430
390 READ X,Y
IF X=9 THEN 490
400 IF V(X,Y)<>0 THEN 390
IF JN=2 THEN LET CO=7 ELSE LET CO=0
410 GOSUB 250
420 IF KK=0 THEN
GOTO 390
ELSE
RETURN
END IF
430 DATA 1,8,8,1,1,1,8,8,3,3,6,3,3,6,6,6,1,6,8,3
440 DATA 3,1,6,8,8,6,1,3,6,1,3,8,2,6,2,3,3,2,6,2
450 DATA 7,3,7,6,3,7,6,7,4,3,5,6,3,4,6,5,3,5,5,3
460 DATA 4,6,6,4,4,7,5,7,4,2,7,5,2,4,2,5,7,4,1,5
470 DATA 4,1,5,2,5,8,8,5,4,8,1,4,5,1,8,4,2,2,7,1
480 DATA 7,8,2,7,1,2,7,2,8,7,1,7,2,1,8,2,2,8,7,7,9,0
490 CALL GPRINT(54,13,N$(F)&" パス ")
FOR Z=0 TO 2000
NEXT Z
500 LET P(F)=P(F)+1
IF P(F)=3 THEN 540
510 FOR I=0 TO 1000
NEXT I
CALL GPRINT(54,2*F+15,N$(F)&" "&STR$(P(F)))
520 CALL GPRINT(54,13,REPEAT$(" ",18))
IF J+F=3 THEN
LET E=E-1
LET KK=1
RETURN
END IF
IF F=1 THEN 230
IF F=2 THEN 210
540 CALL GCOLOR(2)
CALL GPRINT(53,15,"-- GAME END --")
CALL GCOLOR(0)
550 FOR A=1 TO 8
FOR B=1 TO 8
LET M(V(A,B))=M(V(A,B))+1
NEXT B
NEXT A
560 CALL GPRINT(54,17,N$(1)&" "&STR$(M(1)))
570 CALL GPRINT(54,19,N$(2)&" "&STR$(M(8)))
580 LET SS=ABS(M(1)-M(8))
IF M(1)>M(8) THEN LET F=1 ELSE LET F=2
590 IF SS>0 THEN CALL GPRINT(52,11,N$(F)&"の勝ちです ") ELSE CALL GPRINT(52,11,"ひきわけです ")
600 CALL GPRINT(52,13,"HIT [RETURN] KEY")
610 LET A$=INPUT$(1)
IF A$=CHR$(13) THEN 40 ELSE 600
630 CALL CIRCLEFULL(X*20*2+15,Y*20*2+10,15,CO)
640 RETURN
660 FOR C=1 TO 7
670 CALL GCOLOR(C)
CALL GPRINT(27,5,"COMPUTER OTHELLO")
680 CALL GCOLOR(C-1)
CALL GPRINT(25,18,"PUSH [SPACE] KEY TO START!")
690 LET I$=INKEY$
700 IF I$=" " THEN RETURN
710 NEXT C
GOTO 660
END

EXTERNAL SUB GINIT(XSIZE,YSIZE)
SET BITMAP SIZE XSIZE,YSIZE
SET WINDOW 0,XSIZE-1,YSIZE-1,0
SET POINT STYLE 1
SET COLOR MODE "REGULAR"
SET COLOR MIX(0) 0,0,0
SET COLOR MIX(1) 0,0,1
SET COLOR MIX(2) 1,0,0
SET COLOR MIX(3) 1,0,1
SET COLOR MIX(4) 0,1,0
SET COLOR MIX(5) 0,1,1
SET COLOR MIX(6) 1,1,0
SET COLOR MIX(7) 1,1,1
CLEAR
SET TEXT JUSTIFY "LEFT","TOP"
SET TEXT FONT "ＭＳ ゴシック",0
SET TEXT HEIGHT 12
END SUB

EXTERNAL SUB GPRINT(X,Y,A$)
FOR I=1 TO LEN(A$)
LET AA$=MID$(A$,I,1)
ASK TEXT COLOR C
ASK PIXEL VALUE(XX+INT(X)*8,INT(Y)*16) CC
IF BLEN(AA$)<>LEN(AA$) THEN
CALL BOXFULL(XX+INT(X)*8,INT(Y)*16,XX+INT(X)*8+15,INT(Y)*16+15,CC)
ELSE
CALL BOXFULL(XX+INT(X)*8,INT(Y)*16,XX+INT(X)*8+7,INT(Y)*16+15,CC)
END IF
SET COLOR C
PLOT TEXT,AT XX+INT(X)*8,INT(Y)*16:AA$
IF BLEN(AA$)<>LEN(AA$) THEN LET XX=XX+16 ELSE LET XX=XX+8
NEXT I
END SUB

EXTERNAL SUB GCOLOR(C)
SET TEXT COLOR C
END SUB

EXTERNAL SUB LINE(XS,YS,XE,YE,C)
SET COLOR C
PLOT LINES
PLOT LINES:XS,YS;XE,YE
END SUB

EXTERNAL SUB BOXFULL(X1,Y1,X2,Y2,C)
SET COLOR C
PLOT AREA:X1,Y1;X2,Y1;X2,Y2;X1,Y2;X1,Y1
END SUB

EXTERNAL SUB CIRCLEFULL(X,Y,RR,C)
SET COLOR C
DRAW DISK WITH SCALE(RR)*SHIFT(X,Y)
END SUB

EXTERNAL FUNCTION INKEY$
SET ECHO "OFF"
LET S$=""
CHARACTER INPUT NOWAIT:S$
LET INKEY$=S$
END FUNCTION

EXTERNAL FUNCTION INPUT$(N)
SET ECHO "OFF"
FOR I=1 TO N
DO
LET X$=""
CHARACTER INPUT NOWAIT:X$
LOOP WHILE X$=""
LET S$=S$&X$
NEXT I
LET INPUT$=S$
END FUNCTION

EXTERNAL SUB BOX(XS,YS,XE,YE,C)
CALL LINE(XS,YS,XE,YS,C)
CALL LINE(XE,YS,XE,YE,C)
CALL LINE(XE,YE,XS,YE,C)
CALL LINE(XS,YE,XS,YS,C)
END SUB