wuxieyitongxun.bas

来自「是关于trio公司的TRIO BASIC语言的！对于trio basic中几个难」· BAS 代码 · 共 45 行

SETCOM(38400,8,1,2,1,0)
WA(10)

REPEAT
  in_again:
     WA(100)
     i=0
     WHILE f_g=0
        GET#1,VR(i)
          IF VR(i)>58 OR (VR(i)<48 AND VR(i)<>13) THEN
            error_f=1
            f_g=1
          ENDIF

          IF VR(i)=13 THEN
            f_g=1

          ELSE

            VR(i)=VR(i)-48
            WA(10)
            i=i+1
          ENDIF

     WEND
 IF error_f=0 THEN
   IF i=0 THEN
     PRINT#1,"please input the number:"
   ELSE
     FOR j=0 TO i-1
       PRINT#1,VR(j)[1,0];
     NEXT j
     PRINT#1,CHR(VR(j))
   ENDIF
 ELSE
   PRINT#1,"input error,please input again:"
   error_f=0
   f_g=0
   GOTO in_again
 ENDIF
 f_g=0
UNTIL FALSE