Dim を使った変数宣言

質問

知識がないので困っています

シャープポケコンPC1248のBASICプログラムを
Ｎ88ｂａｓｉｃで動作確認したら

ＤＩＭ　H$(0)*10
の行ででエラーが出ました

どのように書き換えたらよろしいのでしょうか？
ワラにもすがる思いです

回答No.3

mars180sx · ベストアンサー

お待たせしました。
1行目は以下のように書き換え、
1 CLS : DIM K(5),H$(0)

19行目でエラーが出る件は以下のように書き換えると
19 B= LEN(H$(0))

エラーは出なくなります。
19行目は「RETU:1234=?」と表示されたときに入力された「文字数」を
「B」という変数に
入れる命令です。

以上、どういった処理をするプログラムなのかを理解できていないので
当を得た回答では無いかもしれませんが、また分からなくなったら質問して
見て下さい。
N88Basicを検証できる環境を作りましたのでｗ

お礼

ありがとうございます
１９行目エラー解消できました
本当に助かりました

ポケコンとＮ88ＢＡＳＩＣで
ちょっと違うので
エラーが出るとお手上げでした

感謝します<(_ _)>

回答No.2

mars180sx

お力になれず申し訳ありません。
可能であれば最初のソースコードをここに記載して頂くことは出来ます
でしょうか？

補足

お手数をおかけします
H$(0)*10はもとのままです

1:CLS : DIM K(5),H$(0)*10
3:INPUT "SIN=1:KYU=2",D
5:IF D=1 OR D=2 THEN 9
7:GOTO 1
9:INPUT "A=1:B=2",P
11:IF P=1 OR P=2 THEN 15
13:GOTO 9
15:IF D=2 THEN 29
17:INPUT "RETU:1234=?",H$(0)
19:B= LEN H$(0)
21:IF B=4 THEN 43
23:GOTO 17
29:INPUT "KAZU=?",V
31:IF V>=5 AND V<=18 THEN 35
32:IF V<5 THEN 273
33:GOTO 29
35:INPUT "SS:12345=?",H$(0)
37:B= LEN H$(0)
39:IF B=10 THEN 49
41:GOTO 35
43:Q$= MID$ (H$(0),1,1):W$= MID$ (H$(0),2,1):E$= MID$ (H$(0),3,1):R$= MID$ (H$(0),4,1)
45:Q= VAL Q$:W= VAL W$:E=VAL E$:R= VAL R$
47:K(0)=Q:L=R:M=E:N=W: GOTO 133
49:Q$= MID$ (H$(0),1,2):W$= MID$ (H$(0),3,2):E$= MID$ (H$(0),5,2):R$= MID$ (H$(0),7,2)
51:T$= MID$ (H$(0),9,2)
53:Q= VAL Q$:W= VAL W$:E= VAL E$:R= VAL R$:T= VAL T$
55:K(1)=Q:K(2)=W:K(3)=E:K(4)=R:K(5)=T
57:IF V<9 THEN 131
59:IF V=9 THEN LET S=9
61:IF V=10 THEN LET S=8
63:IF V=11 THEN LET S=7
65:IF V=12 THEN LET S=6
67:IF V=13 THEN LET S=5
69:IF V=14 THEN LET S=4
71:IF V=15 THEN LET S=3
73:IF V=16 OR V=17 OR V=18 THEN LET S=2
75:FOR B=1 TO 5
77:I=B
以下略

回答No.1

mars180sx

DIM H$(10)

ではありませんか？

お礼

早速のご回答感謝します
H$(0)を全部H$(10)に変えましたが
変更後　B=LEN H$(10)　でエラーが出ます

ヒントありがとうございました