曾经记得高一的时候，自已有一个文曲星电子词典，上面我最感兴趣的一个功能就是GVbasic语言平台。有了它，我们可以自己做一些小的程序，可以锻炼我们的动脑和动手能力。曾记得自己用了一个学期，在完全没有编程基础的环境下，只是出于对那部小说的热爱，制作了一个名叫《爱丽丝漫游奇境记》的小型basic游戏。那部电子词典我似乎已经丢失了。凭记忆写在这里一些。有兴趣的网友可以过来看看

具体GVBASIC开发平台介绍见下面网址
http://baike.baidu.com/view/1509475.htm

不懂！

1 print "那是个金色的午后"
2 print "我们悠闲泛舟水上"
3 print "手臂摇桨不停使唤"
4 print "桨叶无力前后摇荡"
5 print "伸出小手胡乱指点"
6 I$=INKEY$
7 PRINT "指示小船要去的方向"
8 print "倦意融融呼吸轻缓"
9 print "这是真是梦境一般"
10 print "唉，怎奈三个调皮顽童"
11 print "想听故事实在难缠"
12 I$=INKEY$
13 GRAPH
14 ELLIPSE 80,40,60,30,1
15 I$=INKEY$
16 GRAPH : BOX 0,0,160,80,1,1:A$="【爱丽丝漫游奇境记】"
17 print "★爱丽丝漫游奇境记★"
18 I$=INKEY$
19 FOR N=0 TO 16 STEP 1: LINE N,N/2,N 160-N/2,160-N,160-N/20: NEXT
20 FOR N=1 TO 16 STEP 0.1:LINE N,N/1,N 160-N/1,160-N,160-N/1: NEXT
21 I$=INKEY$
22 GRAPH
23 BOX 40,1,140,80
24 LOCATE 3,5: PRINT"★Alice's advantures in the wonder land★"
25 I$=INKEY$
26 PRINT "★爱丽丝漫游奇境记★"TAB(6);"1.进入游戏"TAB(6);"2.退出游戏""
作者：结界の泡沫"
27 PRINT "紫电剑→"
28 FOR N=40 19 STEP 3: LOCATE 3,6:PRINT A$: BOX N,32,N+15,40,1,0: NEXT
29 A$=INKEY$ : IF A$='b' THEN 29 ELSE IF A$='n' THEN END ELSE BEEP
30 CLS : PRINT " CHAPTER 1 掉进兔子洞";: INPUT "";RS: IF RS=0 THEN 27  
ELSE IF RS=1 THEN 31 NEXT
31 PRINT "使用紫电剑"
32 I$=INKEY$
33 CLS
34 PRINT "1.攻击→→"
35 INPUT "";RS: IF RS=B THEN 39 ELSE IF RS=N THEN END NEXT
36 FOR N=1 TO 16 STEP 1: LINE N,N/4,160-N/1,160-N,160-N/1: NEXT
37 I$=INKEY$
38 CLS
39 PRINT "一阵狂风过后，兔子倒在了地上"
38 I$=INKEY$
39 PRINT "打败兔子"
40 I$=INKEY$
41 CLS
42 PRINT "↓按下此键（.） 进入第二章"
43 I$=INKEY$
44 CLS : INPUT "";RS: IF RS=. THEN 45 ELSE
45 CLS
46 PRINT "第二章 眼泪潭 "
47 i$=inkey$
48 GRAPH
49 ELLIPSE 40,40,40,40,0
50 I$=INKEY$
51 CLS
52 PRINT "爱丽丝在眼泪潭中等待":W$=INKEY$
53 IF W$='b' THEN 55
54 IF W$='n' THEN 2000
55 PRINT "按1变小"
56 IF W$='b' THEN 57
57 PRINT "△△△△△△△"
58 IS=INKEY$
59 PRINT "见到老鼠"
60 I$=INKEY$
61 CLS
62 PRINT "水潭里落下许多鸟兽，拥挤不堪了，里面有一只鸭子，一只渡渡鸟，
一只小鹰"

高中时代的gvbasic 令人怀念。
load
list
run
点计算两下然后按5就进入了。