10 DIM A(10)
20 ERASE A
30 DIM A(20)

> a$="DIR"

> SYSTEM a$

'a$' is not recognized as an internal or external command,

operable program or batch file.

Error: Command could not be run

SYSTEM DIR
Volume in drive C is....

Do
Line Input Chr$(175)+ " ", a$
System "" + a$
Loop While Len(a$)

INPUT ["prompt string$";] list of variables

do
line input chr$(175)+" ", a$
if len(a$)<1 then EXIT DO
system a$
loop while len(a$)

Do
Line Input Chr$(175)+" ", a$
If Len(a$)<1 then
Exit Do
Else
System a$
EndIf
Loop

Function IntToChr(iVal As Integer,nChrs As Integer) As String
' Converts an unsigned integer to a character string of length nChrs
' little-endian
Local As Integer iTmp=iVal
Local As Integer iRmndr
Local i As Integer
For i=1 to nChrs
iRmndr = iTmp MOD 256
iTmp = iTmp \ 256
IntToChr = Chr$(iRmndr) + IntToChr
Next i
End Function

Function ChrToInt(sVal As String) As Integer
' Inverse function of IntToChr (little-endian)
Local i As Integer
For i=1 To Len(sVal)
ChrToInt = 256*ChrToInt + Asc(Mid$(sVal,i,1))
Next i
End Function

Sub Tst
Local a$
? ChrToInt(IntToChr(23000,2));" - OK is 23000 as expected"
? ChrToInt(IntToChr(23000000,4));" - OK is 23 million as expected"
? ChrToInt(IntToChr(23,4));" - Bad is 0 - should be 23"
a$=IntToChr(23,4)
? ChrToInt(a$); " - but is OK when putting intermediate value in a variable"
End Sub
Tst