Где взять QBasic для Windows 7

'All variables will be of type LONG unless explicitly defined
DEFLNG A-Z
 
deleteThis$="testAutoBuildProcessGitHub"
 
'All arrays will be dynamically allocated so they can be REDIM-ed
'$DYNAMIC
 
'We need console access to support command-line compilation via the -x command line compile option
$CONSOLE
 
'Initially the "SCREEN" will be hidden, if the -x option is used it will never be created
$SCREENHIDE
 
'$INCLUDE:'global\version.bas'
'$INCLUDE:'global\settings.bas'
'$INCLUDE:'global\constants.bas'
'$INCLUDE:'subs_functions\extensions\opengl\opengl_global.bas'
 
'-------- Optional IDE Component (1/2) --------
'$INCLUDE:'ide\ide_global.bas'
 
REDIM SHARED OName(0) AS STRING 'Operation Name
REDIM SHARED PL(0) AS INTEGER 'Priority Level
DIM SHARED QuickReturn AS INTEGER
Set_OrderOfOperations 'This will also make certain our directories are valid, and if not make them.
 
DIM SHARED MakeAndroid 'build an Android project (refer to SUB UseAndroid)
 
REDIM EveryCaseSet(100), SelectCaseCounter AS _UNSIGNED LONG
DIM ExecLevel(255), ExecCounter AS INTEGER
REDIM SHARED UserDefine(1, 100) AS STRING '0 element is the name, 1 element is the string value
REDIM SHARED InValidLine(10000) AS _BIT
DIM DefineElse(255) AS _BYTE
DIM SHARED UserDefineCount AS INTEGER
UserDefine(0, 0) = "WINDOWS": UserDefine(0, 1) = "WIN"
UserDefine(0, 2) = "LINUX"
UserDefine(0, 3) = "MAC": UserDefine(0, 4) = "MACOSX"
UserDefine(0, 5) = "32BIT": UserDefine(0, 6) = "64BIT"
IF INSTR(_OS$, "WIN") THEN UserDefine(1, 0) = "-1": UserDefine(1, 1) = "-1" ELSE UserDefine(1, 0) = "0": UserDefine(1, 1) = "0"
IF INSTR(_OS$, "LINUX") THEN UserDefine(1, 2) = "-1" ELSE UserDefine(1, 2) = "0"
IF INSTR(_OS$, "MAC") THEN UserDefine(1, 3) = "-1": UserDefine(1, 4) = "-1" ELSE UserDefine(1, 3) = "0": UserDefine(1, 4) = "0"
IF INSTR(_OS$, "32BIT") THEN UserDefine(1, 5) = "-1": UserDefine(1, 6) = "0" ELSE UserDefine(1, 5) = "0": UserDefine(1, 6) = "-1"
 
 
 
'refactor patch
DIM SHARED Refactor_Source AS STRING
DIM SHARED Refactor_Dest AS STRING
IF _FILEEXISTS("refactor.txt") THEN
    fh = FREEFILE
    OPEN "refactor.txt" FOR BINARY AS #fh
    LINE INPUT #fh, Refactor_Source
    LINE INPUT #fh, Refactor_Dest
    CLOSE fh
END IF
 
IF _DIREXISTS("internal") = 0 THEN
    _SCREENSHOW
    PRINT "QB64 cannot locate the 'internal' folder"
    PRINT
    PRINT "Check that QB64 has been extracted properly."
    PRINT "For MacOSX, launch 'qb64_start.command' or enter './qb64' in Terminal."
    PRINT "For Linux, in the console enter './qb64'."