ab.com コミュニティ

僕が書いた物ではありませんが、
http://dbp.cool.ne.jp/patio/patio.cgi?mode=view&no=159
等が参考になるかと思います。

おそれいります。

プログラムの大半は修正できましたが、結果をプリントしようとしておりまして

ＡＢ２６２のときはプリント関数があったのに
ＡＢ４１３では、プリントができなくなってしまいました。

ＬＰＲＩＮＴのようなことはできないのでしょうか？

配列数を増やしてみましたが同じエラーがでます。
おかしいですね。

意味不明で、エラーが出てしまうとその先、ＳＴＯＰしてしまいます。
ひたすら眺めていますが、なかなか見つかりません。

確保していない領域に対して読み書きしているためだと思います。
Dim A[ELM(10)] As Long
と宣言すると、
A配列の0～9までが使用可能になることになります。
つまり、A[10]は使用されることを想定していません。

#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

画面に欲しいタイトルを表示して、カーソルの上下で選択し
＋キーで１個づつ増やしていって
エンターを押したらその注文表を出力しようと考えました。

プログラムのエラーはよくわかって直すのですが
アクセス違反と出ます。

これについてご教示いただけるような方がいらしゃいましたらぜひ
お教えください。

草々


[code]
#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
[/code]