10 INVERSE
20 PRINT "哈呀呀，我一个勾拳，再一个直拳，哈哈，打得老板鼻青脸肿……仙剑不出，谁与争锋！";
24 PRINT " ";
30 I$=INKEY$
40 CLS:PRINT "（我们的主角李逍遥这时正在做着美梦）"SPC (62);:I$=INKEY$
50 CLS:PRINT "突然……"SPC (90);:I$=INKEY$
60 CLS:PRINT "哐的一声…"SPC (88);:I$=INKEY$
70 CLS:PRINT "客栈老板→"SPC (86);:I$=INKEY$
80 CLS:PRINT "用铁锅→"SPC (88);:I$=INKEY$
90 CLS:PRINT "在李逍遥的头上狠狠敲了一下…"SPC (70);:I$=INKEY$
100 CLS:FLASH:PRINT "：太阳烧到屁股了，快起来给我去买鱼!":I$=INKEY$
110 PRINT " 得到20元"
120 I$=INKEY$
130 M=20
480 OPEN "PIC" FOR INPUT AS #1: FOR I=1 TO 7:INPUT #1,P$(I):NEXT :CLOSE #1
490 GRAPH:X=3:Y=2:P=1:Z=1
500 CLS:PRINT P$(P);
510 ON P GOTO 650,740,870,1400,2000,2500,3000
520 LOCATE Y,X:PRINT "";
530 I=ASC(INKEY$):YP=Y:XP=X
540 IF I=20 THEN Y=Y-1
550 IF I=21 THEN Y=Y+1
560 IF I=22 THEN X=X+2
570 IF I=23 THEN X=X-2
575 IF I=27 THEN 5000
580 T=PEEK (Y*320+X+2336)
590 IF X>19 OR X<1 OR Y>5 OR Y<1 THEN T=1
600 ON P GOTO 700,800,880,1500,2100,2600,3100
610 IF T>0 THEN Y=YP:X=XP
620 LOCATE YP,XP:PRINT " ";
630 GOTO 510
635 I$=INKEY$:X=XP:Y=YP: GOTO 500
640 IF PEEK (0)<>26 THEN POKE 802,250:POKE 803,117:PRINT ;
642 RETURN
645 IF PEEK (0)<>26 THEN POKE 802,252:POKE 803,104:PRINT ;
647 RETURN
650 GOSUB 640
660 LOCATE 5,5:PRINT "鶻";
670 LOCATE 5,15:PRINT "鶻";
680 IF Z=1 THEN LOCATE 3,3:PRINT "";
690 GOTO 520
700 IF Z=1 AND X=3 AND Y=3 THEN CLS:PRINT "：叫你去买鱼，你还楞在这儿干什么！":635
710 WHILE X=19 AND Y=1
712 CLS:PRINT "：这是通向老板的地窖的密道，我早就发现了":X=17:P=7:I$=INKEY$: GOTO 500
713 WEND
715 IF (X=5 OR X=15) AND Y=5 THEN T=0
720 IF (X=5 OR X=15) AND Y=6 THEN Y=1:P=2: GOTO 500
730 GOTO 610
740 GOSUB 640
750 LOCATE 1,5:PRINT "鶹";
760 LOCATE 1,15:PRINT "鶹";
765 LOCATE 5,11:PRINT "鶻";
770 IF Z=2 THEN LOCATE 3,13:PRINT "";
780 IF Z=2 OR Z=3 THEN LOCATE 4,13:PRINT "";
790 GOTO 520
800 WHILE Z=2 AND X=13 AND Y=3
805 CLS:PRINT "：这个叫花子死赖在这儿不走，你赶快给我把他撵走！": GOTO 635:WEND
810 WHILE Z=2 AND X=13 AND Y=4
812 CLS:PRINT "：小兄弟，给点酒喝吧。":I$=INKEY$
814 PRINT "：不行啊！要是让老板知到了非打死我不可！":I$=INKEY$
816 CLS:PRINT "：看你资质不错，你能弄点酒来，我就把我的武功全传授给你。":I$=INKEY$
818 CLS:PRINT "：此话当真？好，等老板不在，我去偷一瓶给你。": GOTO 635:WEND
820 IF Z=1 AND Y<1 THEN CLS:PRINT "：我现在得去买鱼，不然老板要骂的。":635
830 WHILE Z=3 AND X=13 AND Y=4
832 CLS:PRINT "：酒拿来了！现在可以教我功夫了吧。":I$=INKEY$
834 PRINT "：好！晚上到村北的破庙来找我。":Z=4: GOTO 635:WEND
840 IF (X=5 OR X=15) AND Y=0 THEN Y=5:P=1: GOTO 500
845 IF (X=5 OR X=15) AND Y=1 THEN T=0
850 IF X=11 AND Y=6 THEN X=9:Y=3:P=3: GOTO 500
855 IF X=11 AND Y=5 THEN T=0
860 GOTO 610
870 GOSUB 640: GOTO 520
880 IF X=9 AND Y=2 THEN X=11:Y=5:P=2:500
890 IF X=21 AND Y=3 THEN X=1:P=4:500
900 IF X<1 THEN X=19:P=5:500
910 IF Y<1 THEN Y=5:P=6:500
920 IF X=7 AND Y=4 THEN 970
930 IF X=9 AND Y=4 THEN 1000
940 IF X=15 AND Y=4 THEN 1150
950 IF X=19 AND Y=2 THEN 1220
960 GOTO 610
970 CLS:LOCATE 3,5:PRINT "【虎娃家】":I$=INKEY$:CLS
980 WHILE Z=1
982 IF Z=1 THEN PRINT "：虎娃，把你的鱼杆借我一下。":I$=INKEY$
984 PRINT "：拿去吧。":I$=INKEY$:PRINT "得到鱼杆":YG=1: GOTO 635:WEND
990 LOCATE 3,5:PRINT "虎娃不在家": GOTO 635
1000 CLS:LOCATE 3,5:PRINT "【小倩家】":I$=INKEY$:CLS
1005 J$="齕：我做了一些点心，你尝尝吧。 ：谢谢你！"
1010 IF Z<5 THEN PRINT "齕：逍遥哥，你好啊！":IF RND(1)>.5 THEN PRINT J$:DX=DX+1:635
1020 WHILE Z=5
1022 CLS:PRINT "齕：逍遥哥，我的小狗波比不知跑到哪里去了，你能帮我找一下吗？":I$=INKEY$
1026 Z=6: GOTO 635:WEND
1030 WHILE Z=7
1040 PRINT "：小倩妹妹，你的小狗找到了，给你…":I$=INKEY$
1050 CLS:PRINT "（小倩接过波比，然后从房里拿出一件毛衣…）":I$=INKEY$
1060 CLS:PRINT "齕：这是我为你织的毛衣，你穿上看看合不合身。":I$=INKEY$
1070 CLS:PRINT "（李逍遥穿上毛衣，防御力＋5）":Z=8: GOTO 635
1080 WEND
1090 WHILE Z=9
1100 PRINT "齕：逍遥哥哥，我的头今天突然很疼…":I$=INKEY$
1110 CLS:PRINT "（小倩说着便昏倒在地）":I$=INKEY$
1120 CLS:PRINT "：小倩妹妹，小倩妹妹…":I$=INKEY$
1130 CLS:PRINT "（李逍遥把小倩抱上床，替她盖上了被子）":I$=INKEY$
1135 CLS:PRINT "：我现在得赶快去找华大夫。":Z=10: GOTO 635
1140 WEND: GOTO 635
1150 CLS:LOCATE 3,5:PRINT "【李大叔家】":I$=INKEY$:CLS
1160 WHILE Z=12
1170 PRINT "：李大叔，把你的斧子借我用一下。":I$=INKEY$
1180 PRINT "：没问题，拿去吧。":I$=INKEY$
1190 PRINT "得到斧子":Z=13: GOTO 635
1200 WEND
1210 LOCATE 3,5:PRINT "李大叔不在家！": GOTO 635
1220 CLS:LOCATE 3,5:PRINT "【华大夫家】":I$=INKEY$:CLS
1230 IF Z<8 THEN PRINT "：我最近配药缺个蛇胆，你能弄到吗？":635
1240 WHILE Z=8
1250 PRINT "：华大夫，蛇胆找来了。":I$=INKEY$
1260 PRINT "：太好了，谢谢你，给你20元":I$=INKEY$
1270 PRINT "得到20元":M=M+20:Z=9: GOTO 635
1280 WEND
1290 WHILE Z=10
1300 PRINT "：华大夫，不好了！小倩突然昏倒了！":I$=INKEY$
1310 PRINT "：我们赶紧去看看！":I$=INKEY$
1320 CLS:PRINT "（李逍遥和华大夫一起来到小倩家，华大夫给小倩把了把脉）":I$=INKEY$
1330 CLS:PRINT "：小倩得了一种怪病，曾经村子里也有人得过。":I$=INKEY$
1335 CLS:PRINT "：这种病无药可治，只有到神仙岛去求神仙姊姊，或许可以救她一命。":I$=INKEY$
1337 CLS:PRINT "：好！我这就去神仙岛！":I$=INKEY$
1340 PRINT "：神仙岛险恶非常，你要小心啊！":Z=11: GOTO 635
1350 WEND
1360 GOTO 635
1400 IF PEEK (0)<>26 THEN POKE 802,250:POKE 803,165
1410 PRINT ;
1420 GOTO 520
1500 WHILE YG=1 AND Y=1 AND Z=1
1502 CLS:PRINT "（李逍遥拿出鱼杆，坐在海边钓鱼…）":I$=INKEY$
1504 PRINT "：哈！有鱼上钩了！":I$=INKEY$:PRINT "得到鱼":Z=2: GOTO 635:WEND
1510 IF X<1 THEN X=19:P=3: GOTO 500
1520 IF X=17 AND Y=3 THEN 1560
1530 IF X=13 AND Y=2 THEN 1640
1540 IF X=7 AND Y=4 THEN 1700
1550 GOTO 610
1560 CLS
1570 IF Z<11 THEN CLS:PRINT "：近日风高浪大，不可出海。":635
1580 IF Z=11 THEN PRINT "：真不巧，船破了，需要修补，可是又没有木头…":Z=12:635
1590 WHILE Z=14
1600 PRINT "：木头运来了！":I$=INKEY$
1610 PRINT "：好！我这就修！":I$=INKEY$
1620 PRINT "：修好了，我们起程吧！":I$=INKEY$: GOTO 4000
1625 PRINT "：近日风高浪大，不可出海。"
1630 GOTO 635
1640 CLS
1650 WHILE Z=1
1655 PRINT "：买鱼吗？20元一条(Y/N)"
1660 I$=INKEY$
1670 IF I$="y" THEN Z=2:LOCATE 3,5:PRINT "得到鱼":M=0:635
1680 GOTO 635:WEND
1690 PRINT "：最近天气不好，没有出海打鱼": GOTO 635
1700 CLS:LOCATE 3,5:PRINT "【铁匠家】":I$=INKEY$:CLS
1710 PRINT "：我打了一把菜刀，你要吗？(Y/N)":I$=INKEY$
1720 IF I$="y" THEN IF M=40 THEN PRINT "得到菜刀":CD=1:M=0 ELSE PRINT "：你的钱不够"
1730 GOTO 635
2000 GOSUB 645
2010 IF Z=6 THEN LOCATE 4,9:PRINT "";
2020 GOTO 520
2100 IF X>19 THEN X=1:P=3: GOTO 500
2110 WHILE Z=6 AND X=11 AND Y=4
2112 PRINT "（有一条巨蟒缠住了小狗波比）":I$=INKEY$
2114 PRINT "：波比别怕，我来了！":I$=INKEY$
2116 CLS:PRINT "（李逍遥凝神屏气，使出了碧凝指，巨蟒应声而倒）":I$=INKEY$
2118 CLS:PRINT "（李逍遥抱起波比）":Z=7: GOTO 635:WEND
2120 WHILE Z=13 AND (X=3 OR X=5) AND Y=3
2122 CLS:PRINT "（李逍遥抡起斧子，砍了几棵树）":Z=14: GOTO 635:WEND
2130 GOTO 610
2500 GOTO 520
2600 IF Y>5 THEN Y=1:P=3:500
2610 IF X=3 AND Y=4 THEN 2630
2620 GOTO 610
2630 CLS:LOCATE 3,5:PRINT "【破庙】":I$=INKEY$:CLS
2640 WHILE Z=4
2650 PRINT "：好！我下面就传授给你我的绝学—碧凝指":I$=INKEY$
2660 CLS:PRINT "（叫花子唏哩哗啦打了一阵，样子就和电脑游戏里的一样）":I$=INKEY$
2670 CLS:PRINT "李逍遥学会了碧凝指":I$=INKEY$
2680 PRINT "内力＋20 武力＋10":Z=5: GOTO 635
2690 WEND
2700 LOCATE 3,5:PRINT "破庙里没人": GOTO 635
3000 IF Z=2 THEN LOCATE 1,1:PRINT "";
3010 GOTO 520
3100 IF Z=2 AND X=1 AND Y=1 THEN LOCATE 3,5:PRINT "拿到了酒":Z=3:635
3110 IF X=19 AND Y=1 THEN P=1: GOTO 500
3120 GOTO 610
4000 CLS:PRINT "李逍遥去了神仙岛，在神仙岛上他会有什么样的经历呢？":I$=INKEY$
4010 CLS:PRINT "敬请关注《仙剑传说》第二集!":IF DX>10 THEN DX=10
4020 OPEN "SAVE" FOR OUTPUT AS #1:WRITE #1,CD,DX,M:CLOSE #1:END
5000 CLS
5010 PRINT "1.状态"
5020 PRINT "2.物品"
5030 PRINT "3.魔法"
5040 PRINT "4.退出"
5050 I$=INKEY$
5060 IF I$="g" THEN END
5070 IF I$="b" THEN 5100
5080 IF I$="n" THEN 5200
5090 IF I$="m" THEN 5300
5100 CLS
5110 PRINT "【李逍遥】"
5120 PRINT "生命：50/50"
5130 IF Z<5 THEN PRINT "武力：0" ELSE PRINT "武力：10"
5140 PRINT "内力：";
5150 IF Z<5 THEN PRINT "0" ELSE PRINT "20"
5160 PRINT "金钱：";M;
5170 LOCATE 3,13:PRINT "防御：";
5180 IF Z>7 THEN PRINT "5" ELSE PRINT "0"
5190 LOCATE 4,13:PRINT "经验：0"
5194 GOTO 635
5200 CLS
5205 IF CD=1 THEN PRINT "菜刀×1"
5210 PRINT "点心×";DX
5220 GOTO 635
5300 CLS
5305 IF Z>4 THEN PRINT "碧凝指 初级": ELSE PRINT "无"
5310 GOTO 635