Module

CLS
SCREEN _NEWIMAGE(800, 600, 32)
'Edit this according to your knowledge
Main$ = "prithak.bas"
Mainfile$ = "prithak.dat"
DIM mx AS INTEGER
DIM my AS INTEGER
DIM mb AS INTEGER
DIM n$(20)
IF _FILEEXISTS("project.txt") THEN
    OPEN "project.txt" FOR INPUT AS #1
    DO WHILE NOT EOF(1)
        X = X + 1
        INPUT #1, n$(X)
    LOOP
ELSE
END IF
DO
    CLS
    WHILE _MOUSEINPUT
        mx = _MOUSEX
        my = _MOUSEY
        mb = _MOUSEBUTTON(1)
        k$ = UCASE$(INKEY$)

        IF k$ = "Q" THEN GOSUB opens
        LINE (100, 0)-(100, 600), _RGB32(100, 200, 255)
        _PRINTSTRING (50, 0), "SUBS"

        LINE (100, 600)-(75, 575), _RGB32(100, 200, 255), B
        _PRINTSTRING (85, 590), "+"
        LINE (200, 100)-(500, 200), _RGB32(100, 200, 255), B
        _PRINTSTRING (250, 130), Main$
        LINE (200, 200)-(500, 300), _RGB32(100, 200, 255), B
        _PRINTSTRING (250, 230), Mainfile$

        IF mouseclick(200, 200, 500, 300) THEN SHELL _DONTWAIT "notepad++ " + Mainfile$

        FOR i = 1 TO X
            Y = Y + 15
            _PRINTSTRING (0, Y), n$(i)
            LINE (0, Y)-(100, Y + 15), _RGB32(100, 200, 255), B
            IF mouseclick(0, Y, 100, Y + 15) THEN
                IF n$(i) <> "" THEN
                    SHELL _DONTWAIT "notepad++ " + n$(i)
                END IF
            END IF
        NEXT i
        Y = 0
        IF mouseclick(75, 575, 100, 600) THEN
            INPUT "Entet the file name"; name$
            CLOSE #1
            OPEN "project.txt" FOR APPEND AS #1
            PRINT #1, name$
            CLOSE #1
            OPEN "project.txt" FOR INPUT AS #1
            X = 1
            DO WHILE NOT EOF(1)
                INPUT #1, n$(X)
                X = X + 1

            LOOP
            CLOSE #1
        END IF

        _DISPLAY
    WEND
LOOP

opens:
CLS
CLOSE #1
_AUTODISPLAY
OPEN Main$ FOR OUTPUT AS #1
PRINT #1, "PRINT " + CHR$(34) + "Made in Prithak's Module" + CHR$(34)
PRINT #1, "_DELAY 2"
PRINT #1, "'$include: '" + Mainfile$ + "'"
FOR i = 1 TO X
    PRINT #1, "'$include: '" + n$(i) + "'"
NEXT i
CLOSE #1
PRINT "Please Wait while we Compile your file..."
SHELL "qb64 -x " + Main$
PRINT "Perfectly Executed the Program!"
SHELL LEFT$(Main$, LEN(Main$) - 4) + ".exe"
_DELAY 3
RETURN
FUNCTION mouseclick (x1, y1, x2, y2)
    Mx = _MOUSEX
    My = _MOUSEY
    Mb = _MOUSEBUTTON(1)

    IF Mx >= x1 AND Mx <= x2 AND My >= y1 AND My <= y2 AND Mb THEN
        mouseclick = -1
    END IF
END FUNCTION