File "DosPrint+ example.bas"

Path: /DosPrint+/DosPrint+ example.bas
File size: 931 bytes
MIME-type:
Charset: utf-8

' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'     After compilation, drag & drop this executable onto "setdos.exe"    !
' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

#COMPILE EXE "DosPrint+.exe"
#DIM ALL
#INCLUDE ONCE "DosPrint+.inc"

FUNCTION PBMAIN () AS LONG
    LOCAL lRes AS LONG
    LOCAL fc, bc AS WORD

    IF COMMAND$ = "" THEN
        CALL FreeConsole() ' Win32 mode -> hide console
        ?"This is a normal windows dialog."+$CRLF _
        +"Now drag and drop any file onto "+$DQ+EXE.NAMEX$+$DQ+" and see the change..." _
        , %MB_ICONINFORMATION, "example"
        EXIT FUNCTION
    END IF

    DO
        fc = (fc + 1) MOD 16
        IF fc = 0 THEN bc = (bc + 1) MOD 16
        lRes = DosPrint("["+FORMAT$(fc)+","+FORMAT$(bc)+"]Now this is a console program...")
        SLEEP 100
    LOOP UNTIL lRes <> 0

END FUNCTION