[原创]本人第一个成品BAS，测试反应速度

sohumaoggh

我把原程序也贴上来算了



1 GRAPH : CLEAR : CLS : PRINT " SB             应"
2 LOCATE 5,2: PRINT "反             快";
3 CIRCLE 80,40,36,1,1: CIRCLE 80,50,23,1,0
4 BOX 55,20,105,50,1,1
5 LINE 50,30,63,20,0: LINE 63,20,75,30,0: LINE 85,30,98,20,0: LINE 98,20,111,30,0
6 BOX 68,50,73,55: BOX 78,50,84,58: BOX 92,50,96,55
7 INKEY$
8 CLS : CLEAR
10 LOCATE 2,1: PRINT "Copyright c2005-2010";
11 LOCATE 1,1: PRINT "厚道亚太地区注册商标";
12 LOCATE 4,1: PRINT "   www.HouDao.org           Co.Ltd.";
13 CIRCLE 83,24,5
14 LOCATE 3,1: PRINT " All Rights Recived";
16 INKEY$
18 CLS : CLEAR : GRAPH
20 BOX 2,8,158,38,1,1: BOX 7,15,153,32,1,0
22 LOCATE 2,2: PRINT "★厚 道 工 作 室☆";
24 LOCATE 4,6: PRINT "♂V 1.08♀";
26 LOCATE 5,3: PRINT "Press Enter Key!";
28 GOSUB 35
30 BOX 2,65,158,79,1,0
32 GOSUB 35
33 GOTO 26
35 FOR A =1  TO 200
37 IF PEEK(193) =247  THEN 45
39 NEXT : RETURN
45 CLS : CLEAR
50 CIRCLE 35,48,30: CIRCLE 35,48,27: CIRCLE 35,33,10: LINE 35,48,60,60: LINE 35,33,37,24
52 BOX 30,16,40,20: BOX 34,10,38,16: CIRCLE 35,6,9
53 BOX 0,0,160,7,1,1
54 LOCATE 2,10: PRINT "速度": LOCATE 3,10: PRINT " &": LOCATE 4,10: PRINT "激情"
56 LOCATE 2,16: PRINT "开始";: LOCATE 3,16: PRINT "帮助";: LOCATE 4,16: PRINT "团队";
58 LOCATE 5,14: PRINT "V 1.08";
60 XA =115:XB =155:YA =13:YB =30
65 BOX XA,YA,XB,YB
66 IF PEEK(195) =247  THEN 400
68 IF PEEK(193) =247  AND YA =13  THEN 100
70 IF PEEK(193) =247  AND YA =31  THEN 200
72 IF PEEK(193) =247  AND YA =47  THEN 300
76 GOTO 65
100 CLS : CLEAR : PRINT "OK,Let's begin!";: INKEY$: CLS
105 INKEY$:R =RND(2) *7000: FOR T =1  TO R
107 IF PEEK(194) =247  THEN 180
110 NEXT
115 CIRCLE 80,40,35,1,1
120 FOR X =1  TO 2000
125 IF PEEK(194) =247  THEN 140
130 NEXT
135 CLS : PRINT "按〖帮助〗键查询脑积水急救方案。": INPUT Q: GOTO 1
140 IF X <200  THEN 150
142 IF X <300  THEN 155
144 IF X <400  THEN 160
146 IF X <500  THEN 165  ELSE 170
148 GOTO 430
150 CLS : PRINT X,"快得甲亢了！;-P": INPUT Q: GOTO 100
155 CLS : PRINT X,"地球人都这样。": INPUT Q: GOTO 100
160 CLS : PRINT X,"大脑酶失活……(**)!": INPUT Q: GOTO 100
165 CLS : PRINT X,"还犹豫什么？快播打120送自己去良田！": INPUT Q: GOTO 100
170 CLS : PRINT X,"把你先人都羞干净了＃№★※▲……": INPUT Q: GOTO 100
180 CLS : PRINT "提前按键者人人得而猪之！！！！": INPUT Q: END
200 CLS : GRAPH
202 LOCATE 1,12: PRINT "黄金会员";: LOCATE 2,12: PRINT "300KB/S";
204 LOCATE 3,12: PRINT "白金会员";: LOCATE 4,12: PRINT "700KB/S";
206 LOCATE 5,9: PRINT "→现在支付!";
208 LOCATE 2,2: PRINT "21CN": LOCATE 3,2: PRINT "影院": LOCATE 5,1: PRINT "13";
210 CIRCLE 25,32,22: CIRCLE 47,9,6: BOX 1,1,56,80: BOX 2,65,53,77
212 LINE 43,3,51,12: LINE 51,3,43,12: BOX 80,63,155,79: INKEY$
214 CLS : CLEAR : GRAPH
216 PRINT "       Google": LOCATE 3,3: PRINT "新的生活       搜";
218 LOCATE 5,5: PRINT "享受增值服务!";
220 BOX 5,31,125,47: BOX 135,31,153,47: INKEY$
222 CLS : CLEAR : GRAPH
224 PRINT " SINA 新浪网 门户网";
226 LOCATE 2,1: PRINT "新闻 财经 时政 股市";
228 LOCATE 3,1: PRINT "娱乐 游戏 音乐 博客";
230 LOCATE 4,1: PRINT "天气 旅游 购物 房产";
232 LOCATE 5,1: PRINT "邮箱 美女 香车 手机";: INKEY$
234 CLS : LOCATE 3,8: PRINT " eBay!": LOCATE 1,5: PRINT "五亿人爱上的"
236 LOCATE 5,1: PRINT "在eBay搜索SB反应快";
238 ELLIPSE 80,40,35,15
240 INKEY$
242 CLS
244 LOCATE 5,1: PRINT "上网助手6  立即更新";: BOX 83,63,155,79
246 CIRCLE 32,18,7,1,1: CIRCLE 50,10,6,1,1: CIRCLE 70,7,5,1,1: CIRCLE 86,8,4,1,1
248 CIRCLE 102,13,3,1,1: CIRCLE 115,18,2,1,1
250 LINE 40,26,55,26: LINE 55,26,42,38: LINE 42,38,56,37: LINE 56,37,43,58: REM 3
253 LINE 62,26,79,26: LINE 79,26,59,59: LINE 82,26,100,26: LINE 100,26,81,57: REM 72
254 LINE 81,57,102,56: LINE 113,26,105,58: REM 21
256 INKEY$
258 CLS : CLEAR
260 LOCATE 5,7: PRINT "汇聚你世界";
262 LINE 22,18,22,40: LINE 22,18,38,40: LINE 38,40,38,18: REM N
264 LINE 43,21,43,36: LINE 58,21,58,36: LINE 48,16,55,16: LINE 48,40,55,40: REM O
266 LINE 43,21,48,16: LINE 43,36,48,40: LINE 55,16,58,21: LINE 55,40,58,36: REM O
268 LINE 66,18,66,40: LINE 77,18,66,31: LINE 66,31,77,40: REM K
270 LINE 87,18,87,40: REM I
272 LINE 108,18,97,40: LINE 108,18,119,40: LINE 102,30,114,30: REM A
274 INKEY$
276 CLS
278 LOCATE 3,5: PRINT "SHANDA": LOCATE 5,8: PRINT "Network";
280 BOX 30,30,82,50: BOX 82,30,130,50,1,1
285 INKEY$
286 CLS : PRINT "本程序由以上赞助商赞助。": INKEY$
288 CLS : CLEAR
290 PRINT "你老母，都没把你笨死。不会去问云飞。"
292 INKEY$
294 GOTO 8
300 CLS : CLEAR : INVERSE : BOX 1,1,160,80,1,1
302 PRINT "                    ","                    ","                    ";: GOSUB 366
304 PRINT "                    ","                    ","                    ": GOSUB 366
308 PRINT "STAFF               ": GOSUB 366
310 PRINT "                    ": GOSUB 366
312 PRINT "总设计师:Fantasy    ": GOSUB 366
314 PRINT "创意:Fantasy,吴昊   ": GOSUB 366
316 PRINT "制作:Fantasy,吴昊   ": GOSUB 366
318 PRINT "监制:吴昊           ": GOSUB 366
320 PRINT "顾问:吴昊           ": GOSUB 366
322 PRINT "录入:Fantasy        ": GOSUB 366
324 PRINT "硬件:金远见公司     ": GOSUB 366
326 PRINT "外形设计:Fantasy    ": GOSUB 366
328 PRINT "美工:吴昊           ": GOSUB 366
330 PRINT "教学支持:Fantasy    ": GOSUB 366
332 PRINT "法律顾问:吴昊       ": GOSUB 366
334 PRINT "                    ": GOSUB 366
336 PRINT "                    ": GOSUB 366
338 PRINT "                    ": GOSUB 366
340 PRINT "HouDao Soft 2005    ": GOSUB 366
342 PRINT "                    ": GOSUB 366
344 PRINT "                    ": GOSUB 366
348 PRINT "                    ": GOSUB 366
350 PRINT "厚道工作室          ": GOSUB 366
352 PRINT "                    ": GOSUB 366
354 PRINT "                    ": GOSUB 366
356 PRINT "                    ": GOSUB 366
358 PRINT "                    ": GOSUB 366
360 PRINT "END                 ": GOTO 8
366 FOR PP =1  TO 5000
368 NEXT
370 RETURN
400 IF YA =13  THEN 430
410 IF YA =31  THEN 440
420 IF YA =47  THEN 450  ELSE 65
430 YA =31:YB =46: BOX 115,13,155,30,0,0: GOTO 460
440 YA =47:YB =64: BOX 115,31,155,46,0,0: GOTO 460
450 YA =13:YB =30: BOX 115,47,155,64,0,0
460 FOR AB =1  TO 500
470 NEXT AB
480 GOTO 65

Cloty

我的是NC3000，不下了。

不过怎么会还有经济人？？

“286 CLS : PRINT "本程序由以上赞助商赞助。": INKEY$”

sohumaoggh

胡搞一下而已，显得比较正经

vbff

也可以说是键盘毁坏工具

jason911

新手嘛，支持！[em02]

wqx1

其实

ＮＣ３０００可以用的（测试了）

进入后的ＰＥＥＫ弄太快了，都看不见帮助等等

速度：１６０（上下＋－２０范围内浮动）

jason911

第一次见广告比内容还多，像新上演的电视剧。

sohumaoggh

软件名称：速度与激情（汗！！）软件类别：BAS软件大小：4531字节（看清楚，是字节）

运行平台：tc1000/s(我是在tc1000s上写的，用到了peek）
相关说明：上传上来的是一个txt文件，下载了之后自己bas转化一下（原bas文件怎么也上传不到电脑上。。。 。。。）


主要的特色就是搞了很多的广告，在帮助信息里。开发团队里的fantasy就是我啦（吴昊是我的经纪人，狂汗！！！），不是fantasy DR，人家可是前辈阿。本程序算不上游戏，只是用来测试反应速度。

当选择开始之后，屏幕上什么都没有，随便按两下字母键，过一段随即的时间后，屏幕上会出现一个圆，当你看见这个圆后，就用你最快的数度按“P”键。然后根据你看到这个圆到按下P键的时间，给你一个评价。你可以一直都不按P键，也可以还没看到圆就按P键。

当一轮测试结束后，再算便按两下字母键就开始新的一轮。

个人感觉，整个程序里面，就是那些广告做得最好。

我是新手，程序里有很多不足之处，还请高手指教。