{currenthelptext} {product} {helptype} {viewcore}
Example - Input Function
Sub Main
Open "TESTFILE" For Input As #1' Open file.
Do While Not EOF(1)' Loop until end of file.
MyStr = Input(10, #1)' Get ten characters.
MsgBox MyStr
Loop
Close #1' Close file.
End Sub