[笑话]一个BASIC而且没嵌入汇编的破程序也要收费？

十七·烈行风

貌似还是一个斑竹－ －

116205035

估计能卖5分钱，HOHO````
--------------------------------------
其实收费也可以，收易码币好了，不但对大家没什么损失，还能活跃论坛，哈哈~

十七·烈行风

10 REM
20 GRAPH:BOX 1,1,160,80,1,1
27 FOR N=1 TO 80 STEP 2INE N,N/2,N,80-N/2,0INE 160-N,N/2,160-N,80-N/2,0:NEXT N
28 FOR I=1 TO 18 STEP 1:ELLIPSE 80,40,3*I,I,1,0 :NEXT I
29 FOR I=38 TO 110 STEP 3OCATE 3,5
30 PRINT "?窗氡诰稣进?";:BOX I,30,I+15,45,1,0
40 NEXT I:LOCATE 3,5RINT "?窗氡诰稣进?";
45 IF PEEK(3000)<>170 OR PEEK(3001)<>170 OR PEEK(3002)<>128 THEN CLSRINT "NO NC1020":END
50 FOR I=40 TO 1 STEP -1:BOX 1,I,160,80-I,1,0:NEXT I:GOTO 700
60 CLEARIM HB(8,4,3),B%(32),CH%(14,30)
70 LOCATE 4,1RINT ">":GOSUB 900
80 LOCATE 4,3
90 FOR I=1 TO 100
100 SWAP B%(INT(RND(2)*32+1)),B%(INT(RND(2)*32+1))
110 IF I=33 OR I=66 THEN PRINT ">";
120 NEXT I:PRINT ">"
130 N=1
140 FOR J=1 TO 4
150 FOR I=1 TO 8
160 HB(I,J,1)=1
170 HB(I,J,2)=1+(B%(N)>10)
180 HB(I,J,3)=B%(N)-10*(B%(N)>10):N=N+1
190 NEXT I:NEXT J:GOSUB 1000:GRAPH
200 FOR I=15 TO 143 STEP 16
210 LINE I,4,I,68
220 IF I<80 THEN LINE 15,I-11,143,I-11
230 NEXT I
240 FOR X=23 TO 143 STEP 16
250 FOR Y=12 TO 68 STEP 16
260 CIRCLE X,Y,6,1,1
270 NEXT Y:NEXT X
280 X=4:Y=2:O=0:WC=-5:FI=1
285 BOX 15,70,143,80,0,1
290 BOX 16*X-1+FI,16*Y-12+FI,16*X+15-FI,16*Y+4-FI,FI,2:O=1-O:I=0
320 I=I+1:M=PEEK(199)
330 IF M>0 THEN POKE 199,0:GOTO 350
340 IF I>70 THEN 290 ELSE GOTO 320
350 XA=X:YA=Y:Y=Y+(M=149)-(M=148):Y=Y+4*(Y=0)-(Y=5)*4:X=X+(M=150)-(M=151):X=X+8*(X=0)-(X=9)*8
360 N=(M=247 OR M=225 OR M=243 OR M=228 OR M=141)
370 IF O THEN O=1-O:BOX 16*XA-1+FI,16*YA-12+FI,16*XA+15-FI,16*YA+4-FI,FI,2
380 IF M=154 THEN FI=1-FI
390 IF N GOTO 410
400 GOTO 290
410 IF M=141 AND HB(X,Y,1) THEN 560
420 I=X:J=Y:I=I+(M=228)-(M=225):J=J+(M=243)-(M=247)
430 IF I<1 OR I>8 OR J<1 OR J>4 THEN 290
440 IF HB(X,Y,1) OR HB(I,J,1) THEN 290
450 IF HB(X,Y,2)<>WC THEN 290
460 IF HB(I,J,2)<>0 AND HB(I,J,2)<>3-WC THEN 290
470 IF HB(X,Y,3)=7 AND HB(I,J,3)=1 THEN 290
480 IF HB(X,Y,3)=1 AND HB(I,J,3)=7 THEN 500
490 IF HB(X,Y,3)<HB(I,J,3) THEN 290
500 FOR N=2 TO 3
510 HB(I,J,N)=HB(X,Y,N):HB(X,Y,N)=0
520 NEXT N
530 BOX 16*X,16*Y-11,16*X+14,16*Y+3,1,0
540 X=I:Y=J
560 RE=HB(X,Y,3)+7*(HB(X,Y,2)=2):HB(X,Y,1)=0
570 S=2256+2*X+320*Y
590 FOR N=1 TO 15
600 POKE S+20*N,CH%(RE,N*2-1)
610 POKE S+1+20*N,CH%(RE,2*N)+1
620 NEXT N
630 IF WC<0 THEN WC=1+(RE>7)
650 WC=3-WC:BOX 16,71,142,78,1,WC-1
670 GOTO 290
700 TEXT
710 PRINT "====【半壁决战】====  ";CHR$(144);"进入游戏","  ";CHR$(145);"热线帮助"
720 PRINT "  ";CHR$(146);"退出游戏","     2004/11/8";:LO=1
730 LOCATE LO+1,6:IN=ASC (INKEY$ ):LO=LO+(IN=21)-(IN=20):LO=LO+(LO=0)*3-(LO=4)*3
740 IM=(IN=13 OR IN=98 OR IN=110 OR IN=109)
750 IF NOT IM THEN 730
770 LO=(IN=98)+(IN=110)*2+(IN=109)*3+LO*(IN=13)
780 ON LO GOTO 850,800,790
790 END
800 GRAPH
810 PRINT "***** 热线帮助 *****";"欢迎使用本程序，本程序适用于NC1020,NC1020n。";
815 PRINT "作者：中国广西桂平市浔州高中学子也!";:M$=INKEY$ :CLS
816 PRINT "04年11月8日是个美好的日子.此时此刻,千千万万人激动不已。为表达对百年名校的";
817 PRINT "祝贺，特别推出<半壁决战>";:M$=INKEY$
820 CLS:PRINT "<方向键>====移动光标"
830 PRINT "  W??      ?礎 S?矰??==移动棋子<中英数>====切换光标(ivws02@126.com)";
840 M$=INKEY$ :GOTO 700
850 CLS
860 LOCATE 2,1:PRINT "?赋跏蓟?数据..."
870 GOTO 60
900 FOR I=1 TO 32
910 READ B%(I)
920 NEXT I:LOCATE 4,2:PRINT ">"
930 DATA 1,1,1,1,1,2,2,3,3,4,4,5,5,6,6,7,11,11,11,11,11,12,12,13,13,14,14,15,15,16,16,17
940 RETURN
1000 FOR I=1 TO 14
1010 FOR J=1 TO 30
1020 READ CH%(I,J)
1030 NEXT J:LOCATE 4,I+5:PRINT ">":NEXT I
1040 RETURN
1050 DATA 31,240,32,8,64,196,143,2,136,2,143,242,136,66,136,66,136,66,191,250,132
1055 DATA 66,136
1060 DATA 50,112,20,32,8,31,240,31,240,32,8,73,4,137,242,141,18,171,210,169,82,169,82,137
1065 DATA 210,141
1070 DATA 50,147,10,145,10,65,244,32,8,31,240,31,240,32,8,95,228,128,34,132,34,132,66,136
1075 DATA 66,143
1080 DATA 242,128,18,191,210,128,18,128,18,64,228,32,8,31,240,31,240,32,8,65,4,159,242,129
1085 DATA 2,143
1090 DATA 226,137,34,143,226,137,34,143,226,129,2,191,250,65,4,32,8,31,240,31,240,32,8
1095 DATA 72,4,136
1100 DATA 250,136,138,190,138,136,250,156,138,154,250,168,138,168,138,136,250,72,140,32,8
1105 DATA 31,240
1110 DATA 31,240,32,8,68,68,132,66,136,66,136,66,155,250,168,66,136,66,136,66,136,66,137
1115 DATA 242,64,4
1120 DATA 32,8,31,240,31,240,32,8,68,68,132,66,149,250,149,74,149,74,149,74,149,74,149,74
1125 DATA 137,90
1130 DATA 144,66,96,68,32,8,31,240,31,240,63,248,126,252,224,14,251,190,251,190,245,94
1135 DATA 238,238
1140 DATA 254,254,192,6,254,254,254,254,126,252,63,248,31,240,31,240,63,248,126,252,194
1145 DATA 14,238
1150 DATA 238,236,46,226,174,202,174,234,46,234,206,224,246,234,246,126,12,63,248,31,240
1155 DATA 31,240
1160 DATA 63,248,96,28,255,222,251,222,251,190,247,190,240,14,255,238,192,46,255,238,255
1165 DATA 238,127
1170 DATA 28,63,248,31,240,31,240,63,248,126,252,224,14,254,254,240,30,246,222,240,30,246,222
1180 DATA 240,30,254,254,192,6,126,252,63,248,31,240,31,240,63,248,120,60,247,126,192,14
1185 DATA 246,238
1190 DATA 240,14,250,238,229,94,250,162,229,94,251,102,68,124,63,248,31,240,31,240,63,248,126
1200 DATA 252,254,254,254,254,254,254,192,6,254,254,254,254,254,254,254,254,254,254,96,12
1205 DATA 63,248
1210 DATA 31,240,31,240,63,248,119,124,247,6,214,238,229,94,247,190,247,110,224
1220 DATA 6,214,238,247,110,247,110,119,140,63,248,31,240
1230 END
－－－－－－－－
EPC拢来的

116205035

别说是那个要卖的程序？
偶随便写写也比这多啦~

epcdiy

RPG巨著:青龙剑3G(gvbasic版) 2006年4月23日正式发售!!!
开发制作: starsoft(R)2005-2006
游戏版本: Ver 3.5 正式版
硬件平台:带有GVBASIC的所有机型
游戏大小:约 31 KB
类型:收费 5.00元/套
联系咨询:starsoft2005@sina.com.cn或短消息发至13305691268(本人繁忙无法接电话)
游戏简介:这是一个需要很强思维能力的RPG,只有勇于探索和富有智慧的你才能感受到乐趣!!!
汇款卡号交通银行) 601428 3025 8686302
采用网上发货,请将您的电子邮箱地址告之即可
发售方式:一星期一发(按款到时间算)
欢迎大家加入我的电子小组-starsoft

我发的那个是预览版，正式版没人会买的

leecong1p

呵呵,很早就看见他发了,到现在下载数还是1.
一只刚出来见世面的鸟,坐井观天,不知道外面世界有多大.
这样的程序也敢开了WQX的先河.......
实在对不起WQX界的前辈们啊!

叉烧饭

真是高啊！官网就是混乱，什么鸟都有。那下载数一估计是EPC下来看的吧。
什么垃圾程序，我写的化学分子量计算（是分子量，不是原子量）都不好意思上传！

jason911

星界又出现了一位“强”人 [s:2]

epcdiy

http://bbs.ggv.com.cn/wqxbbs/read.php?tid=65982
http://bbs.ggv.com.cn/wqxbbs/read.php?tid=61390
那个starsoft的终于看不下去了，要求版主封自己的贴

Eastsun

starsoft...非常怀疑这个star是指火星

dfl

牛人忒多。。。。

澜心飞扬

想起来原来NC1020的记事本

十七·烈行风

记事本还是个汇编。。。。

澜心飞扬

呵呵 是啊 不过收费的确是困难的

叉烧饭

貌似那个STARSOFT就是以前的说是立体声的BASIC播放的作者啊。真是强人！！！

epcdiy

再说那个记事本即使收费了后来也有破解阿

天琊

路过~~~~

bqq00

牛人越来越多

第JJ天堂

很可笑,不是么?
这个人的软件与当年的"记事本"相比那可是相形见绌啊.

E路客

这样的软件卖5元，那我们不就发财了？哈哈。当然这是不可能的。