史上最贱的BAS程序

tl2655600 · 发表于 2008-10-9 22:56:08

http://ishare.iask.sina.com.cn/cgi-bin/fileid.cgi?fileid=4452399

这是史上最贱的BAS程序，有我编写，贱到让你吐血！

吞食天地II · 发表于 2008-10-9 23:21:49

问什么是pac格式，难道楼主有不可告人的阴谋？

dragon_ · 发表于 2008-10-9 23:59:53

无聊，建议发到水区。

吞食天地II · 发表于 2008-10-10 00:06:40

10 PRINT "HELLO","我是tl2655600 ":W$=INKEY$:CLS
20 PRINT "想知道我为什么把这个程序叫做有史以来最贱的程序吗…":W$=INKEY$:CLS
30 LOCATE 3,6 :PRINT "因为…":W$=INKEY$:CLS
40 FOR I=1 TO 10 :PRINT "你":CLS:NEXT
50 FOR I=1 TO 10 :PRINT "退":CLS:NEXT
60 FOR I=1 TO 10 :PRINT "不":CLS:NEXT
70 FOR I=1 TO 10 :PRINT "出":CLS:NEXT
80 FOR I=1 TO 10 :PRINT "来":CLS:NEXT
90 FOR I=1 TO 15 :PRINT "啦":CLS:NEXT
100 PRINT "天":LOCATE 1,19 :PRINT "下":LOCATE 4,1 :PRINT "最":LOCATE 4,19 :PRINT "贱"
110 FOR I=1 TO 60 :CIRCLE 80,40,I,1 :BEEP:NEXT
120 FOR I=1 TO 60 :CIRCLE 80,40,61-I,0,0 :BEEP:NEXT
130 GOTO 110

复制代码

我想楼主一定是个菜鸟，我轻轻点一下跳出，就万事大吉了。

Still4 · 发表于 2008-10-10 05:03:36

好无聊啊，记得以前有位仁兄研究病毒来着。这种水平也来招摇也太自大了

epcdiy · 发表于 2008-10-10 09:40:59

太无聊了,我还以为用了汇编呢

我提示LZ,想不退出可以POKE
BAS虚拟机判断按键的一个地址

听不听得懂我就不管了

vbff · 发表于 2008-10-10 12:06:24

楼主的ＢＡＳＩＣ已经略有小成，终于会使用ＰＲＩＮＴ了

whypro · 发表于 2008-10-10 21:35:32

这不算贱～

dragon_ · 发表于 2008-10-10 22:51:19

支持LS的说法。

真正要贱，还是要用GVBASIC+才行啊。

tl2655600 · 发表于 2008-10-11 12:53:32

可惜没有呀

dragon_ · 发表于 2008-10-11 13:23:49

错，有。

真-血翼 · 发表于 2008-10-11 16:35:55

史上最傻的LZ......

滴鱼 · 发表于 2008-10-11 20:40:19

直接关机，不行拔电池。。。

西湖绿雨 · 发表于 2008-10-12 09:10:48

楼主的跳出键是不是失灵啦,所以退不出来了

轩航55 · 发表于 2008-10-12 13:15:05

..................相当无语

vbff · 发表于 2008-10-12 17:34:24

如果是ＰＣ系列，要真退不出我干脆拨动那电池锁

红色激情 · 发表于 2008-10-13 14:17:13

提示: 作者被禁止或删除内容自动屏蔽

sharpapple · 发表于 2008-10-23 17:01:20

真的是最简的BAS程序.
我建议研究一下汇编,以及NAND操作,然后,赫赫,你才能做出名副其实的
程序.

飞蓬 · 发表于 2008-10-26 02:01:20

LZ啊，你应该先拿到WQX上试验下再发帖嘛……

wcxbo · 发表于 2008-11-1 09:15:12

lz刚学会用死循环

		自动登录	找回密码
密码			加入易码

红色激情红色激情当前离线注册时间 2005-4-17 最后登录 1970-1-1	发表于 2008-10-13 14:17:13 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
红色激情红色激情当前离线注册时间 2005-4-17 最后登录 1970-1-1
	回复支持反对举报