Function ChooseOS$ ()

Function ChooseOS$ ()
	If Exist(DOS) Then
	        Do
	                DoEvents
	        Loop Until Not Exist(DOS)
	End If

	If Trim$(Windows95$) = Windows$ Then
		If Val(OS2$) = O Then
			Do
				Run WindowsNT$
				If Performance(WindowsNT$) < TOLERABLE Then
					NTVersion! = NTVersion! + 1
				Else
					ChooseOS$ = WindowsNT$
					Exit Function
				End If
			Loop Until NTVersion! > OS2Version!
			'-- Fall through to Windows 95
		Else
			Do
				If Shell(OS2$) = MACINTOSH Then
					Call FTC()
					ChooseOS$ = Windows95$
					Exit Function
				Else
					If Exist(OS2_Device_Drivers) Then
						If Exist(OS2_Applications) Then
							Dim OS2Apps(3)
							For I = 1 To 3
								Run OS2Apps(I)
	                                        	Next
	                                        	If IBM Is StillInBusiness Then
	                                                	ChooseOS$ = OS2$
								Exit Function
		                                        End If
						End If
					End If
				End If
	        		Loop Until Now = Windows95_ReleaseDate
	        		'-- Fall through to Windows 95
		End If
	End If

	If RamRequired(Windows95$) > FreeMemory() Then
	        Call RamSupplier
	        Get More_Ram
	End If

	Run Windows95$

	If Not GPF(Windows95$) Then
	        ChooseOS$ = Window95$
	Else
	        '-- Last resort
	        Flavor = Int(Rnd(999999) + 1) * 999999
	        ChooseOS$ = Unix$(Flavor)
	End If
End Function