비즈니스 기본에서 변수 전달이 작동하지 않는 것처럼 보입니다.

Question

다음 코드는 어느 길이로든 양쪽에 대괄호가있는 입력 필드를 자동으로 생성하는 프로그램을 호출합니다.

C$은 비즈니스의 모든 프로그램에서 사용하는 표준 변수입니다. 길이는 10입니다. Age:은 레이블입니다. x 좌표는 1입니다. y 좌표 1 및 IN$는 다음 프로그램이 입력 라인하게 입력 문

3020 CALL "SCOINPUT",C$,10,"AGE: ",1,1,IN$ 

위한 변수이다

라인이 인쇄

0100 REM 100 - SCOINPUT - CREATES AN INPUT LINE WITH BRACKETS AND TO A CERTAIN 
0100: SIZE 
0150 SETERR 15000 
0155 ENTER C$,INSIZE,LABEL$,X,Y,IN$ 
0160 LET LABEL$=CVS(LABEL$,7) 
0170 LET EBRAK=X+LEN(LABEL$)+SIZE+2 
0300 IF INSIZE<>0 THEN GOTO 0400 ELSE GOTO 0500 
0400 PRINT @(X,Y),LABEL$+" [",@(EBRAK,Y),"]", 
0410 INPUT (0,SIZ=INSIZE)@(X+LEN(LABEL$)+2,Y),"",IN$ 
15000 SETERR 15010; EXIT 
15010 END 

모든 올바른 장소이다 , 그러나 길이가 10이어야하는 것처럼 제한되지 않습니다 ... 누구든지 어떤 제안이 있습니까?

Answer 1

입력

0410 INPUT (0,LEN=INSIZE)@(X+LEN(LABEL$)+2,Y),"",IN$ 

을 제한하는 SIZ보다는 LEN 옵션을 사용하여