用F BASIC编写的优秀游戏程序——超级扑克机

F BASIC语言和其它BASIC语言相比,计算能力较弱,但是由于它的运算速度快,有一系列专门用于处理游戏的语句,用它来编写游戏程序确实再好不过。下面这个程序是用 F BASIC编写的仿街机“扑克机”的游戏程序。虽然它的牌面和出牌选择性方面不能和街机相相比,但是仅在这么短的程序内就模仿了街机的大部分功能,也算相当不错了。同时,该程序使用了FBASIC讲座介绍的一些技巧,也值得借鉴。 游戏方法: RUN运行后,先输入一定的分数作为资本,然后按M键押分(最多押20分),随时按空格键都可开牌。开牌后,如认为某张牌应该留下,按对应的数字键。如留错了牌,按N键消除。随时按空格键可将没留住的牌翻成别的牌。按最后形成的5张牌是否满足十种得分条件而决定是否得分。十种得分条件是:1.“BETTER”,两张相同牌,本程序规定“J”以上的牌得分,可同时调整250及310语句,调整得分范围。2.“2 PAIR”,两对分别相同的牌(指大小相同,下同)。