前 次 新10 1- 板
552:仕様書無しさん / :
10 DATA "ﾇﾘｴﾆﾎﾟｲﾝﾄﾂｲﾀﾗｲｲﾅｰﾄｵﾓｯﾃｲﾙﾔｼ-＞(108)"
20 DATA 1,14,5,6,0
30 READ A$:B$=""
A$="ﾇﾘｴﾆﾎﾟｲﾝﾄﾂｲﾀﾗｲｲﾅｰﾄｵﾓｯﾃｲﾙﾔｼ-＞(108)"
B$=""
40 READ I:IF I=0 THEN 60
I=1
50 B$=B$+MID$(A$,I,1):GOTO 40
B$="ﾇ"
40 READ I:IF I=0 THEN 60
I=14
50 B$=B$+MID$(A$,I,1):GOTO 40
B$="ﾇｰ"
40 READ I:IF I=0 THEN 60
I=5
50 B$=B$+MID$(A$,I,1):GOTO 40
B$="ﾇｰﾎ"
40 READ I:IF I=0 THEN 60
I=6
50 B$=B$+MID$(A$,I,1):GOTO 40
B$="ﾇｰﾎﾟ"
40 READ I:IF I=0 THEN 60
I=0
60 PRINT B$
ﾇｰﾎﾟ
ﾅｸﾞﾚﾅｲｼﾞｬﾝ
前 次
ir ver 1.0 beta2.2 (03/10/22)