File 如何运行旧的.BAS文件

我有一个旧的.BAS文件，我正试图启动它。我只需要程序工作-我不需要编辑或做任何与代码。有没有人知道如何运行它，这样我就可以看到程序了？这是一个旧的纸牌游戏，我用它作为例子来说明代码是如何编写的。我可以通过VisualStudio2010运行它吗？如果可以，如何运行？或者我应该使用程序来启动它

  Public Class Form1
  SCREEN 9,0 'medium resolution'
  FORGRUND%=4
  BAGGRUND%=63
  PILE%=9
  DUG%=2
  RUNDE%=1
  ANTFLYT%=0
  ANTKONGER%=0
  KONGE13%=0
  COLOR FORGRUND%,BAGGRUND%:CLS:KEY OFF
  OPTION BASE 1 'laveste v‘rdi i tabeller s‘ttes til 1'
'*********************************************************'
' en lille startmelodi til at komme ignag med'
'*********************************************************'
'PLAY "mb o3 l8 ffffafffafdfe4.l8 eeeegeeedefed4" kattekilling
  PLAY "mb o3 t255 l8 df+ga2df+ga2df+gl4af+df+e2l8f+f+ed4.df+4aaag2f+gl4af+ded2"
'*********************************************************'
'lav en konverteringstabel'
'*********************************************************'
  GOSUB 2060
'*********************************************************'
'lav kasser s† de er flotte'
'*********************************************************'
  GOSUB 2260
'*********************************************************'
'2 tabeller: randomizer, kort'
'randomizer initieres med vilk†rlige tal'
'*********************************************************'
  GOSUB 2640
'*********************************************************'
'vi skal putte kortet p† rette plads p† bordet/sk‘rmen'
'*********************************************************'
  GOSUB 2840
'*********************************************************'
'l‘s bord og flyt til sk‘rm'
'*********************************************************'
  GOSUB 2950
'*********************************************************'
'pr›v at l‘se F fra sk‘rm'
'*********************************************************'
  X=6
  Y=3
  FRASKARMX%=0 'initier fra-koordinat til brug ved mark›rbev‘gelser'
  FRASKARMY%=0 'initier fra-koordinat til brug ved mark›rbev‘gelser'
  COLOR PILE%,BAGGRUND%
  LOCATE X,Y:PRINT CHR$(24)
  COLOR FORGRUND%,BAGGRUND%
  LOCATE 23,2:PRINT"V‘lg kort der skal flyttes ved at       
  taste                                    "
  FUNDET=1
  WHILE FUNDET 's†l‘nge F ikke er indtastet'
  FT$=INKEY$:IF FT$="" THEN LOCATE 1,72:PRINT TIME$:GOTO 510
  IF LEN(FT$)=1 GOTO 630
  IF LEN(FT$)=2 GOTO 560 'evt. mark›r bev‘gelse'
  GOTO 680 'til endwhile'
      'find mark›r-bev‘gelse'
  FT$=RIGHT$(FT$,1)
  IF ASC(FT$)=77 THEN GOSUB 1660 'pil til h›jre'
  IF ASC(FT$)=75 THEN GOSUB 1750 'pil til venstre'
  IF ASC(FT$)=72 THEN GOSUB 1850 'pil op'
  IF ASC(FT$)=80 THEN GOSUB 1940 'pil ned'
  GOTO 680
      'find bogstav'
  IF (FT$<>"f") AND (FT$<>"F") AND (FT$<>"a") AND (FT$<>"A") AND (FT$<>"N") AND       
  (FT$<>"n") AND (FT$<>"b") AND (FT$<>"B") GOTO 680
  FUNDET=0
  WEND

公共类表单1
屏幕9,0“中等分辨率”
放弃%=4
BAGGRUND%=63
桩%=9
百分比=2
RUNDE%=1
ANTFLYT%=0
ANTKONGER%=0
孔隙率13%=0
颜色Forground%，BAGGRUND%：CLS:关闭
选项基础1“laveste v'rdi i i tabeller s'ttes直到1”
'*********************************************************'
“在komme ignag med之前，在lille startmelodi”
'*********************************************************'
“播放”mb o3 l8 fffffffafdfe4.l8 eeeegeeedefe4“kattekilling
播放“mb o3 t255 l8 df+ga2df+ga2df+gl4af+df+e2l8f+f+ed4.df+4aaag2f+gl4af+ded2”
'*********************************************************'
“lav en konverteringstabel”
'*********************************************************'
GOSUB 2060
'*********************************************************'
“lav kasser s†de er flotte”
'*********************************************************'
GOSUB 2260
'*********************************************************'
“2泰伯勒：随机发生器，科特”
“随机数发生器初始值med vilk†rlige tal”
'*********************************************************'
GOSUB 2640
'*********************************************************'
“vi skal putte kortet p†rette plads p†bordet/sk'rmen”
'*********************************************************'
GOSUB 2840
'*********************************************************'
“我是bord og flyt直到sk'rm”
'*********************************************************'
GOSUB 2950
'*********************************************************'
“pr›v在l'se F fra sk'rm”
'*********************************************************'
X=6
Y=3
FRASKARMX%=0'初始fra Koordina直到brug ved mark›rbev'gelser'
FRASKARMY%=0'初始fra Koordina直到brug ved mark›rbev'gelser'
颜色堆%，BAGGRUND%
定位X，Y:打印CHR$（24）
颜色锻件%，袋装锻件%
定位23,2：打印“V'lg kort der skal Flytes”，地址为
品味”
FUNDET=1
而FUNDET的†l'nge F ike er indtastet'
FT$=INKEY$：如果FT$=“”则定位1,72：打印时间$：转到510
如果LEN（英尺$）=1转到630
如果长度（英尺$）=2，则转到560’evt。标记›r bev'gelse'
转到680'直到结束'
“找到马克›r-bev'gelse”
英尺$=右$（英尺$，1）
如果ASC（英尺$）=77，则GOSUB 1660“pil直到h›jre”
如果ASC（英尺$）=75，则GOSUB 1750‘pil til venstre’
如果ASC（英尺$）=72，则GOSUB 1850“pil op”
如果ASC（英尺$）=80，则GOSUB 1940“pil ned”
后藤680
“找到博格斯塔夫”
如果（英尺$“f”）和（英尺$“f”）和（英尺$“a”）和（英尺$“a”）和（英尺$“N”），以及
（英尺$“n”）和（英尺$“b”）和（英尺$“b”）转到680
FUNDET=0
温德

---

etc

VB2005 Express有一个升级向导。当您尝试打开VB6项目时，它会自动打开。

看起来像VB6，它与VB.Net不兼容（谷歌很乐意列出关于该主题的所有flamewars）。