Thread:IAmAPersson/@comment-16045798-20131127230009/@comment-14486980-20131129202443

Ok, at the beginning, you need add 3 more lines. Right before: GOSUB @READCOMM add: VARCOUNT=100 'this is changeable DIM VARNAME$(100) DIM VARVAL$(100) Ok, now here's the actual code: @ASK SHOWTEXT=0 FOR K=0 TO LEN(LINE$(I))-1 IF MID$(LINE$(I),K,1)==CHR$(34) THEN SHOWTEXT=!SHOWTEXT:K=K+1 IF SHOWTEXT==1 THEN ?MID$(LINE$(I),K,1); IF SHOWTEXT==0 AND MID$(LINE$(I),K,1)=="=" THEN SWAP K,L:K=LEN(LINE$(I)) NEXT ?"" L=L+1 UTS$=MID$(LINE$(I),L,LEN(LINE$(I))-L) FOR K=0 TO VARCOUNT-1 IF VARNAME$(K)=="" THEN VARNAME$(K)=UTS$ IF VARNAME$(K)==UTS$ THEN LINPUT VARVAL$(K):K=VARCOUNT-1 NEXT RETURN And one more thing. Where you see in your code: @READLINE FOR I=0 TO 9 LINPUT LINE$(I) NEXT Add this to the end of that: FOR I=0 TO VARCOUNT-1 VARNAME$(I)="" VARVAL$(I)="" NEXT And you're done! The official syntax: ASK "question"=VARIABLE 'can be any variable and any length!