＋キーで１個づつ増やしていって
エンターを押したらその注文表を出力しようと考えました。
プログラムのエラーはよくわかって直すのですが
アクセス違反と出ます。
これについてご教示いただけるような方がいらしゃいましたらぜひ
お教えください。
草々
コード: 全て選択
#N88BASIC
Dim dat[ELM(24)] as String
Dim han[ELM(24)] as Long
Dim t as Long
Dim lp as Long
dat[ 1]=" １． 欲しいもののタイトル "
dat[ 2]=" ２． 欲しいもののタイトル "
dat[ 3]=" ３． 欲しいもののタイトル "
dat[ 4]=" ４． 欲しいもののタイトル "
dat[ 5]=" ７． 欲しいもののタイトル "
dat[ 6]=" ８． 欲しいもののタイトル "
dat[ 7]=" ９． 欲しいもののタイトル "
dat[ 8]="１１． 欲しいもののタイトル "
dat[ 9]="１２． 欲しいもののタイトル "
dat[10]="１３． 欲しいもののタイトル "
dat[11]="１４． 欲しいもののタイトル "
dat[12]="１６． 欲しいもののタイトル "
dat[13]="１７． 欲しいもののタイトル "
dat[14]="１９． 欲しいもののタイトル "
dat[15]="２０． 欲しいもののタイトル "
dat[16]="２１． 欲しいもののタイトル "
dat[17]="２２． 欲しいもののタイトル "
dat[18]="２４． 欲しいもののタイトル "
dat[19]="２６． 欲しいもののタイトル "
dat[20]="３０． 欲しいもののタイトル "
dat[21]="３３． 欲しいもののタイトル "
dat[22]="３５． 欲しいもののタイトル "
dat[23]="３７． 欲しいもののタイトル "
dat[24]="３８． 欲しいもののタイトル "
Color 7,0
for lp=1 to 24
Locate 5,lp: Print dat[lp]
Next
'-------------------------------------------------------------------------------------------------
Dim temp As String
Dim y As Long
Dim cs As Long
'-------------------------------------------------------------------------------------------------
cs=1
'-------------------------------------------------------------------------------------------------
for lp=1 to 24
Color 7,0
If lp=cs then Color 7,1
Locate 5,lp: Print dat[lp],han[lp];"冊"
Next
'-------------------------------------------------------------------------------------------------
80 temp=Inkey$()
if Asc(temp)=0 then 80
if Asc(temp)=38 then cs=cs-1
If cs=0 then cs=24
Color 7,1:Locate 5,lp: Print dat[lp],han[lp];"冊"
if Asc(temp)=40 then cs=cs+1
If cs=25 then cs=1
Color 7,1:Locate 5,lp: Print dat[lp],han[lp];"冊"
if Asc(temp)=13 then goto 100
if Asc(temp)=107 then han[cs]=han[cs]+1
Color 7,1:Locate 5,cs: Print dat[cs],han[cs];"冊"
'-------------------------------------------------------------------------------------------------
for lp=1 to 24
Color 7,0
If lp=cs then Color 7,1
Locate 5,lp: Print dat[lp],han[lp];"冊"
Next
goto 80
'-------------------------------------------------------------------------------------------------
100
Color 7,0
for lp=1 to 24
Locate 5,lp: Print dat[lp],han[lp];"冊"
Next