/* AdeptBBS Sample Questioner */

/* Used by string_input */

    /* flags */

STRF_UCASE = X2D(00000001)
STRF_LCASE = X2D(00000002)
STRF_REQUIRED = X2D(00000004)
STRF_NOECHO = X2D(00000008)
STRF_ENCRYPT = X2D(00000010)
STRF_HOT = X2D(00000020)
STRF_EDIT = X2D(00000040)
STRF_PRETTY = X2D(00000080)
STRF_MUSTHOT = X2D(00000100)
STRF_NEAT = X2D(00000200)
STRF_NOHELP = X2D(00000400)
STRF_NOQUE = X2D(00000800)
STRF_NOQUEONE = X2D(00001000)
STRF_CHATCLNT = X2D(00002000)
STRF_NOTIMECHECK = X2D(00004000)

    /* types */

STRT_ALPHA = 1
STRT_NUMERIC = 2
STRT_ALPHANUMERIC = 3
STRT_HEX = 4
STRT_FILENAME = 5
STRT_FILESPEC = 6
STRT_ALL = 7
STRT_ANY = 8
STRT_YN = 9
STRT_MULTFILES    1 = 0
STRT_MULTSPECS    1 = 1
STRT_YNQ          1 = 2
STRT_YNQS         1 = 3
STRT_JUSTFILE     1 = 4
STRT_MULTJUST     1 = 5
STRT_TELEPHONE    1 = 6
STRT_YNNUM        1 = 7

ARG line



    AdeptPrint(line,"\r\nThis questioner is 10 questions long, do you wish to proceed? [Y]\r\n")

    AdeptPrint(line, "\r\nPlease enter your REAL First and Last Name: ")
    AdeptInput(line, 3, 34, 0, STRF_REQUIRED,,,,)

    AdeptPrint(line, "\r\nHow many years have you been using computers? [  ]")
    AdeptInput(line, 1, 2, 0, 0,,,,,)

    AdeptPrint(line, "\r\nHow many years have you been calling Bulletin Boards? [  ]")
    AdeptInput(line, 1, 2, 0, 0,,,,,)

    AdeptPrint(line, "\r\nWhat operating system or enviroment are you using:\r\n")
    AdeptPrint(line, "\r\n")
    AdeptPrint(line, "[A] OS/2 v3   [B] OS/2 v2.x    [C] MS-DOS      [D] IBM DOS   [E] Novel DOS\r\n")
    AdeptPrint(line, "[F] Windows   [G] Windows NT   [H] Windows NT  [I] Desqview  [J] Desqview X\r\n")
    AdeptPrint(line, "[K] Geos      [L] System 7     [M] Other\r\n")
    AdeptPrint(line, "\r\n")
    AdeptPrint(line, "Answer: [ ]")
    AdeptInput(line, 1, 1, 0, 0,,,,,)

    AdeptPrint(line, "\r\nWhat type of computer are you using:\r\n")

    AdeptPrint(line, "[A] 8088       [B] 80286     [C] 80386     [D] 80486   [E] Pentium\r\n")
    AdeptPrint(line, "[F] Power Mac  [G] PowerPC   [H] Other\r\n")
    AdeptPrint(line, "\r\n")
    AdeptPrint(line, "Answer: [ ]")
    AdeptInput(line, 1, 1, 0, 0,,,,,)

    AdeptPrint(line, "\r\nHow much disk space does your computer have (Do not include CD-ROM):\r\n")
    AdeptPrint(line, "\r\n")
    AdeptPrint(line, "[A]  10 - 100 Megs    [B] 101 - 200 Megs   [C] 201 - 300 Megs\r\n")
    AdeptPrint(line, "[D] 301 - 400 Megs    [E] 401 - 500 Megs   [F] 501 - 600 Megs\r\n")
    AdeptPrint(line, "[G] 601 - 700 Megs    [H] 801 - 900 Mesg   [I] Other\r\n")
    AdeptPrint(line, "\r\n")
    AdeptPrint(line, "Answer: [ ]")
    AdeptInput(line, 1, 1, 0, 0,,,,,)

    AdeptPrint(line, "\r\nHow much memory does your computer have:\r\n")
    AdeptPrint(line, "\r\n")
    AdeptPrint(line, "[A] 640k     [B] 1 Meg    [C] 2-3 Megs  [D] 4 - 6 Megs  [E] 8 Megs\r\n")
    AdeptPrint(line, "[F] 12 Mesg  [G] 16 Megs  [H] 24 Megs   [I] 32 Megs     [J] Other\r\n")
    AdeptPrint(line, "\r\n")
    AdeptPrint(line, "Answer: [ ]")
    AdeptInput(line, 1, 1, 0, 0,,,,,)

    AdeptPrint(line, "\r\nWhat brand and how fast is your modem (3 Lines) enter a blank line to end:\r\n")
    AdeptPrint(line, "\r\n")
    AdeptPrint(line, ":\r\n")
    AdeptPrint(line, ":\r\n")
    AdeptPrint(line, ":\r\n")

    AdeptPrint(line, "Thanks you for your time and for taking this questioner.\r\n")

    AdeptSleep(line, 2000);