HSPTV!掲示板

現在、DirectXを用いたリバーシのソフトを作っている最中なのですが、
メニュー画面で矢印キーを押しても項目が移動しない状態です。
下キーを押すと矢印が下へ（一番下なら一番上の項目へ）、
上キーを押すと矢印が上へ（一番上なら一番下の項目へ）いく形にしていく予定です。
矢印キーの挙動はif文でそれぞれやっています。
以下はソースです。

*initialize
	#include "hmm.as"

	title "ReversiInGensokyo～限界への挑戦～"
	diinit
	ddinit
	ddscreen 640,480,1,2

	; タイトル表示
	await 16
	color 0,0,30
	boxf 0,0,640,480
	color 255,0,0
	font "ＭＳ ゴシック",32
	pos 70,100
	mes "ReversiInGensokyo～限界への挑戦～"
	color 255,255,255
	font "ＭＳ ゴシック",32
	pos 238,330
	mes "Push Z Key"
	goto *Wait_Z
	redraw
*main_title
	gosub *Clear_Screen
	await 16
	color 0,0,30
	boxf 0,0,640,480
	color 255,0,0
	font "ＭＳ ゴシック",32
	pos 61,95
	mes "ReversiInGensokyo～限界への挑戦～"
	color 255,255,255
	font "ＭＳ ゴシック",25
	pos 263,330
	mes "Start"
	pos 263,380
	mes "???"
	pos 263,430
	mes "Versus"
	goto *select
	redraw 0
*Wait_Z
	await 16
	digetkeystate k,0
	if k!1024 {
		goto *Wait_Z
	}else{
		goto *main_title
	}
*Clear_Screen
	ddcolor 0,0,0
	ddboxf 0,0,640,480
	return
*select
	await 16
	font "ＭＳ ゴシック",25
	a=0
	pos 235,330+50*a
	mes "⇒"
	digetkeystate k,0
	if k&2!0{a++}
	;if k&1!0{a--}
	if a>3{a=0}
	if a<0{a=2}
	goto *select

メニューにある2つ目の項目は、
セーブデータが1つでもないと表示されないシステムにする予定です。

何がしたいのかよくわからなかったので

*initialize

	title "ReversiInGensokyo～限界への挑戦～"
	screen 0,640,480,
	
	; タイトル表示

	color 0,0,30
	boxf 0,0,640,480
	color 255,0,0
	font "ＭＳ ゴシック",32
	pos 70,100
	mes "ReversiInGensokyo～限界への挑戦～"
	color 255,255,255
	font "ＭＳ ゴシック",32
	pos 238,330
	mes "Push Z Key"
	
	repeat
		getkey key,90
		if key : break
		wait 10
	loop
	
	color 
	boxf 230,330,420,370
	color 255,255,255

	font "ＭＳ ゴシック",25
	pos 263,330
	mes "Start"
	pos 263,380
	mes "???"
	pos 263,430
	mes "Versus"
	
	repeat
		redraw 0
	
		stick houkou
		
		if houkou = 2 {
			if a = 0 {
				a = 2
			} else {
				a--
			}
		}

		if houkou = 8{
			if a = 2{
				a = 0
			} else {
				a++
			}
		}
		
		color 
		boxf 230,330,260,480
		color 255,255,255
		
		pos 235,330+50*a
		mes "⇒"
	
		redraw 1
		await 16
	
		if houkou = 32:break
	loop
	
	cls
	mes "aは"+a+"です"
	

hmm.dllの機能を全く使っていなかった(使う意味がなかった)ので使ってないです

一応かいてみたとおりにはやってみましたが、実行時に白い画面のままになっていました。
（本来は紺色の予定でした）
本来は、上下キーを押したときに矢印が動くはずでしたが、
押しても全く動かなかったので、一か八かここへ質問へ来た次第です。

*initialize
	#include "hmm.as"
	title "ReversiInGensokyo～限界への挑戦～"
	screen 640,480,1,2

	; タイトル表示
	color 0,0,30 ←1つ目の画面ここから
	boxf 0,0,640,480
	color 255,0,0 
	font "ＭＳ ゴシック",32
	pos 70,100
	mes "ReversiInGensokyo～限界への挑戦～"
	color 255,255,255
	font "ＭＳ ゴシック",32
	pos 238,330
	mes "Push Z Key" ←1つ目の画面ここまで

	repeat
		getkey key,90 
		if key:break;
		wait 10
	loop
	
	color 0,0,0 ←ここから2つ目の画面
	boxf 230,330,420,370
	color 255,255,255
	font "ＭＳ ゴシック",25
	pos 263,330
	mes "Start" ←案内人が出てきてオープニングステージスタート
	pos 263,380
	mes "???" ←セーブデータが0のときに選択するとエラーを出す
	pos 263,430
	mes "Versus" ←ネット通信による2人対戦

	repeat
		redraw 0
		stick houkou
		if houkou=2{
				if a=0{
					a=2
				}else{
					a--
				}
		}
		if houkou=8{
				if a=2{
					a=0
				}else{
					a++
				}
		}
		color 0,0,0
		boxf 230,330,260,480
		color 255,255,0
		pos 235,330+50*a 
		mes "⇒"
		redraw 1
		await 16
		if houkou=32:break
	loop

あまりにも質問し過ぎるとクレクレに思われますので、これでだめなら後は自分でやります。

screen 640,480,1,2
スクリーンID 640

確かに、HSPリファレンスのscreen関数の項を参照したところ、正常動作を確認しました。
以降は自力で製作していこうと思います。
ご回答ありがとうございました。