'*************************'* SPLASH SCREEN CREATOR *'*************************'DIM strdata$DIM filename$DIM splashfile$DIM count&DIM outputfile$DIM yesno$strdata$ = ""CLSPRINT "SPLASH SCREEN CREATOR"PRINTPRINT "Enter file name of image to convert."PRINT "(enter nothing to quit)"PRINTLINE INPUT "> "; filename$IF filename$ = "" THEN ENDIF NOT _FILEEXISTS(filename$) THEN PRINT PRINT "FILE NOT FOUND!" ENDEND IFPRINTPRINT "Enter file name of output (ex: splash1.bas)"PRINT "(enter nothing to quit)"PRINTLINE INPUT "> "; outputfile$IF outputfile$ = "" THEN ENDPRINTPRINT "Include QB64 viewer code in output?"PRINT "(Y = include viewing code)"PRINT "(N = just output the string data)"PRINTDO LINE INPUT "(Y/N)> "; yesno$ yesno$ = LEFT$(UCASE$(yesno$), 1)LOOP UNTIL yesno$ = "Y" OR yesno$ = "N"PRINTPRINT "Creating "; outputfile$; "... one moment please"IF INSTR(filename$, ".") THEN splashfile$ = LEFT$(filename$, INSTR(filename$, ".") - 1) + RIGHT$(filename$, LEN(filename$) - INSTR(filename$, "."))ELSE splashfile$ = filename$END IFOPEN outputfile$ FOR OUTPUT AS #2IF yesno$ = "Y" THEN PRINT #2, "'************************" PRINT #2, "'* SPLASH SCREEN VIEWER *" PRINT #2, "'************************" PRINT #2, "" PRINT #2, "DIM "; splashfile$; "$" PRINT #2, "DIM byte~%%" PRINT #2, "DIM count&" PRINT #2, "DIM splash&" PRINT #2, "DIM "; splashfile$; "_bin$" PRINT #2, ""END IFPRINT #2, splashfile$; "$ = "; CHR$(34);OPEN filename$ FOR BINARY AS #1strdata$ = SPACE$(LOF(1))GET #1, , strdata$CLOSE #1FOR count& = 1 TO LEN(strdata$) PRINT #2, RIGHT$("0" + HEX$(ASC(strdata$, count&)), 2);NEXT count&PRINT #2, CHR$(34)IF yesno$ = "Y" THEN PRINT #2, "" PRINT #2, splashfile$; "_bin$ = SPACE$(LEN("; splashfile$; "$) \ 2)" PRINT #2, "FOR count& = 1 TO LEN("; splashfile$; "_bin$)" PRINT #2, " ASC("; splashfile$; "_bin$, count&) = VAL("; CHR$(34); "&H"; CHR$(34); " + MID$("; splashfile$; "$, (count& - 1) * 2 + 1, 2))" PRINT #2, "NEXT count&" PRINT #2, "OPEN "; CHR$(34); "splash_"; filename$; CHR$(34); " FOR BINARY AS #1" PRINT #2, "PUT #1, , "; splashfile$; "_bin$" PRINT #2, "CLOSE #1" PRINT #2, "" PRINT #2, "splash& = _LOADIMAGE("; CHR$(34); "splash_"; filename$; CHR$(34); ", 32)" PRINT #2, "SCREEN splash&" PRINT #2, "_DELAY 5" PRINT #2, "SCREEN _NEWIMAGE(640, 480, 32)" PRINT #2, "KILL "; CHR$(34); "splash_"; filename$; CHR$(34) PRINT #2, "_FREEIMAGE splash&" PRINT #2, "PRINT "; CHR$(34); "CONTINUE YOUR PROGRAM HERE"; CHR$(34)END IFCLOSE #2PRINTPRINT outputfile$; " has been successfully created."PRINT "NOW all you need do is compile the .bas file you just created!"