Как запустить и обеспечить полноценную работу QBasic в Windows?

;  IronFelix, 11.02.2009
;  Example of TObjectList class with its objects
; RTTI checking.
 
;  It is better to use debugger to see what code
; and data are actually made by classes package here.
 
format PE GUI 4.0
entry Main
 
CLASSES_DATA_MOVEABLE equ ; mark classes data as moveable
CLASSES_RTTI_ENABLE   equ ; enable RTTI via vtables
 
 ; FASM includes
 include "win32a.inc"
 
 ; classes package includes
 include "..\..\Classes Package\ClassesCfg.inc"
 include "..\..\Classes Package\ClassesMCode.inc"
 include "..\..\Classes Package\ClassesCore 1.8.inc"
 include "..\..\Classes Package\ClassesCode.inc"
 
 ; TWinList declaration include
 include "..\WinList\TWinList.inc"
 
 ; inherits TWinBase list in order to override
 ; Clear function
 class TObjectList : TWinList
 
  function Create ; re-implement constructor, as we changed vtable
 
  ; free objects when list is cleared
  ; Delete and Remove methods are not changed
  ; in this example
  virtual_function Clear
 
 endclass
 
 ; declare some list items types
 class TBaseItem
 
  function Free ; free instance memory
 
 endclass
 
 class TItem : TBaseItem
 
  function Create ; constructor
  function F ; just a stub
 
 endclass
 
 class TItem2 : TBaseItem
 
  function Create ; constructor
  function F2 ; just a stub too
 
 endclass
 
 ; include TWinList implementation
 include "..\WinList\TWinList.asm"
 
 ; use automatic constructor implementation
 ; with ancestor InitObject initialization
 implement_constructor TObjectList() : 0 >> InitObject
 
 ; our TObjectList implementation
 proc TObjectList.Clear  this
 
  ; loop through list and free objects
  clsfcall TObjectList([this])->GetCount()
  dec eax
  js .exit ; if no items
 .next_obj:
  push eax
  clsfcall TObjectList([this])->GetItem(eax)
  ; skip item zero check here
  ; just free object
  clsfcall TBaseItem(eax)->Free()
  pop eax
  dec eax
  jns .next_obj
 
 .exit:
  leave ; !!! just because "proc" has done a stack frame
        ; and we have done all with stack here
  ; just jump to ancestor Clear implementation
  ; without any "ret"
  inhjump TObjectList->Clear() : 1
 endp
 
 ; items classes implementation
 
 proc TBaseItem.Free  this
  ; just free instance memory
  free_instance_memory this
  ret
 endp
 
 ; use automatic constructors
 implement_constructor TItem()  : 0
 implement_constructor TItem2() : 0
 
 ; use stubs for rest of functions
 proc TItem.F ; this
  retn 4 ; as it is "this" in stack
 endp
 
 proc TItem2.F2 ; this
  retn 4 ; as it is "this" in stack
 endp
 
; ******************   PROGRAMM ENTRY POINT   ******************
proc Main
 
 local pObjList : PTObjectList ; declare pointer to TObjectList as local
 
 ; get our instance
 invoke GetModuleHandle,NULL
 mov [hInstance],eax
 
 ; get process heap
 invoke GetProcessHeap
 mov [ProcessHeap],eax
 
 ; now create our list and test it
 constrcall TObjectList->Create()
 mov [pObjList],eax
 
 ; add some objects to it
 ; first is TItem
 constrcall TItem->Create()
 objfcall pObjList->Add(eax)
 ; use TItem2
 constrcall TItem2->Create()
 objfcall pObjList->Add(eax)
 ; use TItem again
 constrcall TItem->Create()
 objfcall pObjList->Add(eax)
 
 ; check items count
 objfcall pObjList->GetCount()
 ; after this call EAX = 3
 
 ; get second item (indexes are zero-based)
 objfcall pObjList->GetItem(1)
 
 ; check item with RTTI
 is_descendant TBaseItem(eax) of TItem
 ; after this check EAX = FALSE and zero flag is set
 ; because second list item is TItem2 object and
 ; is not a descendant of TItem
 
 ; get first item (indexes are zero-based)
 objfcall pObjList->GetItem(0)
 
 ; check it
 is_descendant TBaseItem(eax) of TBaseItem
 ; after this check EAX = TRUE and zero flag is cleared
 ; because first list item is TItem object and
 ; is a descendant of TBaseItem
 
 ; you may write your own check here
 ; ...
 
 ; free our list and objects in it
 objfcall pObjList->Free()
 
; exit process
 invoke ExitProcess,NULL
endp
 
; classes data consist of TObjList vtable
; which holds TObjList.Destroy and TObjList.Clear
; addresses and additional RTTI data
insert_classes_data ; put classes data here
 
stListBox  db  "LISTBOX",0
 
; *********************   IMPORTS   ***********************
align 16
data import
 
 library kernel32,           'kernel32.dll',\
         user32,             'user32.dll'
 
 include "apia\kernel32.inc"
 include "apia\user32.inc"
 
end data 
 
ProcessHeap  dd  ?
hInstance    dd  ?
 
 classes_finalize ; done all with classes