Click above to get retro games delivered to your door ever month!

    //-- Initialize some pages
    nPage1 := di_initHTML()
    nPage2 := di_initHTML()

    //-- Output to screen
    di_setOutput(1)
    di_BOX(19,1,23,78,single,'W+/G')
    di_SAY(20,5,'Enter Title with a Q:', ,'W/G')
    di_GET(21,8,'cTitle', , 'GR+/N',,,,,'AT('Q',UPPER(cTitle))<>0' )
    di_SAY(22,5,'Enter # between 10&20:', ,'W/G')
    di_GET(22,35,'num','###','GR+/N',,,,'10,20')

    //-- Read GETLIST from screen
    di_READ('POST','http://di.com/cgi-bin/DEMO','Press Me, Please!')

    //-- Output to first HTML device
    di_setOutput(nPage1)

    //-- Specify HTML title
    di_HTMLTitle(ALLTRIM(cTitle))

    //-- Output to first and second HTML
    di_setOutput(nPage1 + nPage2)
    di_BOX(19,1,23,78,singleframe,'W+/G')
    di_SAY(20,5,'Enter Title with a Q:', ,'W/G')
    di_GET(21,8,'cTitle', , 'GR+/N',,,,,'AT("Q",UPPER(cTitle))<>0' )
    di_SAY(22,5,'Enter # between 10&20:',,'W/G')
    di_GET(22,35,'num','###','GR+/N',,,,'10,20')

    //-- Create FORM for GETLIST
    di_READ('POST','http://di.com/cgi-bin/DEMO','Press Me, Please!')