'$CONSOLE:ONLY
'_DEST _CONSOLE
DIM AS STRING email
, dates
, other
, form
, birthday
, firstname
, lastname
'form = pipecom_lite("zenity --forms --add-entry=" + CHR$(34) + "Email" + CHR$(34) + _
' " --add-calendar=" + CHR$(34) + "Pick date" + CHR$(34) + _
' " --text=" + CHR$(34) + "This is a form made in zenity" + CHR$(34) + _
' " --add-entry=" + CHR$(34) + "Ultimate Haxxor" + CHR$(34) _
' )
form = pipecom_lite( _
"zenity --forms --add-entry=" + CHR$(34) + "First Name" + CHR$(34) + _
"--add-calendar=" + CHR$(34) + "Birthday" + CHR$(34) + _
"--text=" + CHR$(34) + "Enter information about your friend." + CHR$(34) + _
"--add-entry=" + CHR$(34) + "Last Name" + CHR$(34) + _
"--add-entry=" + CHR$(34) + "Email" + CHR$(34) _
)
'email = MID$(form, 1, INSTR(form, "|") - 1)
'PRINT email
'form = MID$(form, INSTR(form, "|") + 1)
'dates = MID$(form, 1, INSTR(form, "|") - 1)
'PRINT dates
'other = MID$(form, INSTR(form, "|") + 1)
'PRINT other
'$INCLUDE:'pipecomqb64.bas'