在Business Basic中傳遞變量似乎不工作

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

使用LEN選項而非SIZ限制輸入

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