REM	944BASIC 'キャプチャビューア Ver 0.00'

DIM FILE(512)	REM ファイル名用

*MAIN00
	FILEPATH=STRCAT('CAPTURE\')
	SFILE='CAPTURE\*.BMP'
	FILESEARCH SFILE,FILE
	FILESUU=GETREADCNT
	SORT FILE,0,FILESUU-1
	LOCATE 0,0
	MENU FILE,FILESUU,0
	FNAME=STR(FILE(MENUNO))
	LB=STRCAT(FILEPATH,FILE(MENUNO))
	BITMAP LB,0,0
	KEYWAIT
GOTO *MAIN00