[半个灌水]半仙作品！！

athlon · 发表于 2005-1-7 19:16:00

倒……
算命……

Recallinfor · 发表于 2005-1-7 19:16:00

算命软件，不愧是半仙的作品。

laugj · 发表于 2005-1-7 19:31:00

曾半仙算命,准啊~半仙

金笛 · 发表于 2005-1-7 19:58:00

半仙.....

dae · 发表于 2005-1-8 10:47:00

★★半仙测算原理及说明★★

据半仙高二时看过的许多备考资料介绍，人自出生起智力、体力、情绪都会有规律的发生波动，
曲线大致呈正弦形状，其周期分别是 33、 31、 28天。

程序可以自动完成繁琐的计算手续，由于深挖日期计算，日期函盖 18 00年直至 50 00 0 年。

示是慢了些，但界面字体很小耶。慢就慢在自己写屏上

在主界面上直接进入相应功能，如果生日没有输入过，程序自动切到生日输入；输入完成，就再
跳回去完成剩下工作。现在您的生日记录已被清除。

图示共分三个单元行，诸单元里有三个长条，分别指示智力、体力、情绪所处的具体状态，长条
伸到左面表示对应项状态不佳；明显越靠左越叉鱼

越靠右状态越是不错。每个长条右端用一个小方块指示该条的走势。实心表示行情看涨；空心则
是往左跌落了。现在显示比较快吧？处理完猛刷啦…

状态指在无较强外因干扰下的自然上下浮动，并非指绝对量。请据推算结果合理安排学习，配合
各种科学的备考书进行补助或强化训练，万莫轻视

自选对比时三大格指今天与两对比日，高考状态下，翻页前是⑦⑧⑨三天，任意键翻页后则是
⑧⑨⑩的状态 (3 +X高考 ); 20 00年前只显示⑦⑧⑨的对比情况。

如果让八卦瞎子用双关多义糊弄自己，不如用阿曾识电的计算器，看看是谁敢于算得那么到位。

大家光临后对站点程序有建议请邮 :A ZS D@ CH IN A. CO M

出生前的测算没有进行闰年修正，请勿搞笑！大家可以自由散发本软件，不过请别冒名修改，
那样就太不给 Me面子啦。新主页 :C C1 00 0. AT .C HI NA .C OM"

谢谢使用半仙告别系列程序！欢迎大家对我提些开发或创意等方面的建议，有啥好东东也别忘了
QQ我32051976
欢迎您光临 :C C1 00 0. AT .C HI NA .C OM九月份摧残无限将全面更新.....

这样大家能更清楚些。。。。。。。。。

gcafj · 发表于 2005-1-8 11:39:00

半仙前辈的东东真是厉害，这贴到底是技术贴还是水贴啊.........玉米...........

dae · 发表于 2005-1-11 11:30:00

这个BAS程序很简单的哦！！

只是拿出来怀旧！！

SAILOR-HB · 发表于 2005-1-11 20:31:00

半仙幽默的很~
（不知道说他坏话他会不会生气呀？没关系，我认识他，他不知道我啊。嘿嘿……）

wendy · 发表于 2005-1-12 17:35:00

呵呵，真搞笑啊[em01][em01][em01]

曾半仙 · 发表于 2005-1-12 18:59:00

哈哈,服了楼主这个程序我自己这里都没有了的说....

源代码2 · 发表于 2005-1-15 23:01:00

煤兄对半仙刹是敬佩，收藏好多半仙的作品哦！这里高手真如云，我都志了来灌水的啦！失礼了！

Jupiter · 发表于 2005-1-16 00:40:00

真好玩～

lw8776 · 发表于 2005-1-16 08:34:00

笑笑~根据半仙高二~~~~~~~~~~

nc300000 · 发表于 2005-1-16 09:17:00

真逗！！！

dae · 发表于 2005-1-16 16:42:00

半仙啊。。。。

这个到底准吗？？
把我算的很差哦！！！

dae · 发表于 2005-1-7 19:14:15

半仙的作品！！！

哈哈，总爱找些老的东东。。。。

这个东东使我笑了3天哦！！！

半仙真的是半仙。。。。。

大家看看源码就。。。。。。

1 IF PEEK(0)=26 THEN PRINT "NEED BASIC-HELPER!";:END
10 DIM MED(1,11)

IM DX(2,2,2)

ATA 1,0,1,1,2,2,3,4,4,5,5
11 FOR X=1 TO 11:READ P:MED(1,X)=P:MED(0,X)=P-1:NEXT X:MED(0,1)=0
20 G=57653:GOTO 100
22 GOSUB 1015:V=ASC (INKEY$ ):GOSUB 1010:RETURN
23 GOSUB 1015:GOSUB 1010:GOSUB 1015:V=ASC (INKEY$ ):GOSUB 1010:RETURN
24 GOSUB 1000:GOSUB 1010:RETURN
25 GOSUB 1000:WHILE PEEK(199)<127:GOSUB 1015:GOSUB 1010:WEND :RETURN
30 P=PEEK(932)

=PEEK(926)

OKE 932,32

OKE 926,16
31 CP=TP:NP=TP+1:VA$="":O$="[]":GOSUB 1000
32 CP=NP:GOSUB 22:IF V=98  THEN V=1:42  ELSE IF V=110  THEN V=2:42
33 IF V=109  THEN V=3:42  ELSE IF V=103  THEN V=4:42  ELSE IF V=104  THEN V=5:42
34 IF V=106  THEN V=6:42  ELSE IF V=116  THEN V=7:42  ELSE IF V=121  THEN V=8:42
35 IF V=117  THEN V=9:42  ELSE IF V=48  THEN V=0:42  ELSE IF V=13  THEN 38
36 IF V=23  OR V=29  THEN 40  ELSE 32
37 IF VAL(VA$)>MAX  THEN 39  ELSE CP=TP+1:O$=VA$+"]":GOSUB 1020:GOTO 32
38 VA=VAL(VA$):IF VA<MIN  THEN 39  ELSE POKE 932,P

OKE 926,Q:45
39 CP=TP:O$="超限":GOSUB 1025 :GOTO 31
40 LA=LEN(VA$):IF LA>1  THEN VA$=LEFT$(VA$,LA-1):NP=NP-1:37  ELSE 31
42 IF VA$="" AND V=0  THEN 32  ELSE NP=NP+1:VA$=VA$+STR$(V):37
45 RETURN
50 P=PEEK(932):POKE 932,192:POKE 926,0:CALL G:IF VP>=LI  THEN VP=0
51 CP=VP*26+TP:GOSUB 23
52 IF V=20  THEN VP=VP-1:56  ELSE IF V=21  THEN VP=VP+1:56
53 IF V=13  THEN 55  ELSE IF V=27  THEN VP=LI:55  ELSE PLAY "O3L24ACBG":51
55 POKE 932,P:RETURN
56 IF VP=LI  THEN VP=0  ELSE IF VP<0  THEN VP=LI-1
57 GOTO 51
60 FOR X=730  TO 854  STEP 26:POKE X,3:POKE X+25,3:NEXT X:CALL G:RETURN
75 PDA=365*(Y-1800)+30*(M-1)+D-1
76 IF Y>1800  THEN PDA=PDA+INT((Y-1801)/4)-INT((Y-1801)/100)+INT((Y-1601)/400)
77 PDA=PDA+MED((Y=INT(Y/4)*4  AND NOT (Y=INT(Y/100)*100) OR (Y=INT(Y/400)*400)),M-1)
78 RETURN
80 DX(R,0,1)=33

X(R,1,1)=28:DX(R,2,1)=23:FOR S=0  TO 2
81 DX(R,S,2)=TPD-INT(TPD/DX(R,S,1))*DX(R,S,1)
82 DX(R,S,0)=INT(SIN(DX(R,S,2)*6.2832/DX(R,S,1))*67+77.5):NEXT S
84 DX(R,0,1)=NOT ((DX(R,0,2)>7.75) AND (DX(R,0,2)<24.25))
85 DX(R,1,1)=NOT ((DX(R,1,2)>6.5) AND (DX(R,1,2)<20.5))
86 DX(R,2,1)=NOT ((DX(R,2,2)>5.25) AND (DX(R,2,2)<16.75))
88 RETURN
90 POKE 1108,128:BOX 7,13,153,80,1,0:BOX 8,14,146,33:BOX 8,36,146,55:BOX 8,58,146,77
91 FOR R=0  TO 2:FOR I=0  TO 2:BOX 77,6*I+22*R+16,DX(R,I,0),6*I+22*R+19,1
92 BOX 149,6*I+22*R+16,152,6*I+22*R+19,DX(R,I,1):NEXT I:NEXT R
93 RETURN
95 V$=INKEY$ :RETURN
100 POKE 927,55:POKE 928,1:POKE 929,126:POKE 930,98:POKE 933,8:POKE 926,0:POKE 1108,128
101 GOSUB 106:GOSUB 60:GOSUB 103:GOSUB 104:GOSUB 102:GOSUB 105:GOTO 107
102 CP=704:O$="┏┄┄无敌测算告别版┄┄┓":GOSUB 1026:RETURN
103 CP=731:O$="◇今日与任选两天对比测算":GOSUB 1026:RETURN
104 CP=757:O$="◇高考期间的全面对比测算":GOSUB 1026:RETURN
105 CP=783:O$="◇重新设定您的出生年月日":GOSUB 1026:RETURN
106 CP=809:O$="◇半仙测算原理及使用说明 ||◇小字及光标显示简要剖析":GOSUB 1026:RETURN
107 VP=0
108 LI=5:TP=731:GOSUB 50
109 ON VP+1 GOTO 150,350,550,750,1250,950
110 IF BN=0  THEN 111  ELSE 118
111 CP=783:O$="请输入您阳历的生日":GOSUB 1025

P=783:GOSUB 130
116 GOSUB 75:GOSUB 105:BPD=PDA
118 BN=1:RETURN
130 CP=LP:O$="◆年 : ":GOSUB 1025:TP=CP+5:MAX=50000:MIN=1800:GOSUB 30:Y=VA
132 CP=LP:O$="◆月 : ":GOSUB 1025:TP=CP+5:MAX=12:MIN=1:GOSUB 30:M=VA
134 CP=LP:O$="◆日 : ":GOSUB 1025:TP=CP+5:MAX=31:GOSUB 30:D=VA
138 RETURN
150 GOSUB 110:Y=PEEK(1132)+1881:M=PEEK(1133)+1:D=PEEK(1134)+1:R=0:GOSUB 75:TPD=PDA-BPD
152 CP=731:O$="请输入第一个对比日":GOSUB 1025 :R=0
153 GOSUB 80

P=731:GOSUB 130:GOSUB 75:TPD=PDA-BPD:R=1
154 CP=731:O$="请输入第二个对比日":GOSUB 1025
156 GOSUB 80

P=731:GOSUB 130:GOSUB 75:TPD=PDA-BPD:R=2:GOSUB 80
160 GOSUB 103
250 GOSUB 90:GOSUB 95:GOTO 108
350 GOSUB 110:CP=757:O$="◆高考年份:":GOSUB 1000::TP=768:MIN=1800:MAX=50000
352 GOSUB 30:GOSUB 104
354 Y=VA:M=7:D=7:GOSUB 75:TPD=PDA-BPD
356 IF Y<2000  THEN GOSUB 360:GOTO 400  ELSE GOSUB 360:GOSUB 90:GOTO 362
360 R=0:GOSUB 80:TPD=TPD+1:R=1:GOSUB 80:TPD=TPD+1:R=2:GOSUB 80:RETURN
362 FOR I=0  TO 2:DX(0,I,0)=DX(1,I,0):DX(0,I,1)=DX(1,I,1):DX(1,I,0)=DX(2,I,0)
364 DX(1,I,1)=DX(1,I,1):NEXT I:R=2:TPD=TPD+1:GOSUB 80:V$=INKEY$
400 GOSUB 90:GOSUB 95:GOTO 108
550 GOSUB 111:GOSUB 105:GOTO 108
750 GOSUB 1010
752 CP=704:O$="★★半仙测算原理及说明★★":GOSUB 1030:CALL G
754 O$="据半仙高二时看过的许多备考资料介绍，人自出生起智力、体力、情绪都会有规律的发生波动，"
755 O$=O$+"曲线大致呈正弦形状，其周期分别是 33、 31、 28天。"
756 CP=730:GOSUB 1030:CLEAR:GOSUB 1035
757 O$="程序可以自动完成繁琐的计算手续，由于深挖日期计算，日期函盖 18 00年直至 50 00 0 年。显"
758 O$=O$+"示是慢了些，但界面字体很小耶。慢就慢在自己写屏上。"
759 CP=730:GOSUB 1030:V$=INKEY$ :CLEAR:GOSUB 1035
760 O$="在主界面上直接进入相应功能，如果生日没有输入过，程序自动切到生日输入；输入完成，就再"
761 O$=O$+"跳回去完成剩下工作。现在您的生日记录已被清除。"
762 CP=730:GOSUB 1030:V$=INKEY$ :CLEAR:GOSUB 1035
763 O$="图示共分三个单元行，诸单元里有三个长条，分别指示智力、体力、情绪所处的具体状态，长条"
764 O$=O$+"伸到左面表示对应项状态不佳；明显越靠左越叉鱼；"
765 CP=730:GOSUB 1030:V$=INKEY$ :CLEAR:GOSUB 1035
766 O$="越靠右状态越是不错。每个长条右端用一个小方块指示该条的走势。实心表示行情看涨；空心则"
768 O$=O$+"是往左跌落了。现在显示比较快吧？处理完猛刷啦…"
769 CP=730:GOSUB 1030:V$=INKEY$ :CLEAR:GOSUB 1035
770 O$="状态指在无较强外因干扰下的自然上下浮动，并非指绝对量。请据推算结果合理安排学习，配合"
772 O$=O$+"各种科学的备考书进行补助或强化训练，万莫轻视て"
773 CP=730:GOSUB 1030:V$=INKEY$ :CLEAR:GOSUB 1035
774 O$="自选对比时三大格指今天与两对比日，高考状态下，翻页前是⑦⑧⑨三天，任意键翻页后则是"
776 O$=O$+"⑧⑨⑩的状态 (3 +X高考 ); 20 00年前只显示⑦⑧⑨的对比情况。"
777 CP=730:GOSUB 1030:V$=INKEY$ :CLEAR:GOSUB 1035
778 O$="如果让八卦瞎子用双关多义糊弄自己，不如用阿曾识电的计算器，看看是谁敢于算得那么到位。"
780 O$=O$+"大家光临后对站点程序有建议请邮 :A ZS D@ CH IN A. CO M "
781 CP=730:GOSUB 1030:V$=INKEY$ :CLEAR:GOSUB 1035
782 O$="出生前的测算没有进行闰年修正，请勿搞笑！大家可以自由散发本软件，不过请别冒名修改，"
784 O$=O$+"那样就太不给 Me面子啦。新主页 :C C1 00 0. AT .C HI NA .C OM"
785 CP=730:GOSUB 1030:V$=INKEY$ :CLEAR:GOSUB 1035
850 V$=INKEY$ :GOTO 10
950 O$="谢谢使用半仙告别系列程序！欢迎大家对我提些开发或创意等方面的建议，有啥好东东也别忘了"
951 PRINT O$+"QQ我32051976ぉ";:CALL G
952 O$="！欢迎您光临 :C C1 00 0. AT .C HI NA .C OM九月份摧残无限将全面更新！"
965 CP=802:GOSUB 1030:CALL G:V$=INKEY$ :POKE 199,155
1000 W=INT((CP-678)/26)*26+703:X=CP:WHILE X<W:POKE X,0:X=X+1:WEND
1001 X=0:T=1:L=LEN(O$):WHILE T<=L
1002 IF ASC (MID$(O$,T,1))=31  THEN IF ASC (MID$(O$,T+1,1))>160  THEN 1004
1003 POKE CP+X,ASC (MID$(O$,T,1)):X=X+1:T=T+1:GOTO 1008
1004 POKE CP+X,ASC (MID$(O$,T+1,1)):POKE CP+X+1,ASC (MID$(O$,T+2,1)):X=X+2:T=T+3
1008 WEND :CALL G:RETURN
1010 POKE 1079,0:POKE 1080,0:POKE 1081,0:POKE 1082,0:POKE 1083,0:POKE 1084,0:POKE 1085,0
1011 POKE 1086,0:POKE 1087,0:POKE 1088,0:POKE 1089,0:POKE 1090,0:POKE 1091,0:POKE 1092,0
1012 POKE 1093,0:POKE 1094,0:POKE 1095,0:POKE 1096,0:POKE 1097,0:POKE 1098,0:GOTO 1018
1015 POKE INT((CP-704)/8)+1079,(2^(INT((CP-704)/8)*8-CP+711)+0.5)
1018 CALL G:RETURN
1020 W=CP+LEN(O$)+1:X=CP:WHILE X<W:POKE X,0:X=X+1:WEND
1022 L=LEN(O$):FOR X=1  TO L:POKE CP+X-1,ASC (MID$(O$,X,1)):NEXT X:RETURN
1025 W=INT((CP-678)/26)*26+703:X=CP:WHILE X<W:POKE X,0:X=X+1:WEND
1026 X=0:T=1:L=LEN(O$):WHILE T<=L
1027 POKE CP+X,ASC (MID$(O$,T+1,1)):POKE CP+X+1,ASC (MID$(O$,T+2,1)):X=X+2:T=T+3
1028 WEND :CALL G:RETURN
1030 X=0:T=1:L=LEN(O$):WHILE T<=L
1032 POKE CP+X,ASC (MID$(O$,T+1,1)):POKE CP+X+1,ASC (MID$(O$,T+2,1)):X=X+2:T=T+3
1034 WEND :RETURN
1035 G=57653:CALL G:RETURN
1250 GOSUB 1010
1252 CP=704:O$="★★小字与光标显示说明★★":GOSUB 1030:CALL G
1254 O$="字符缓冲区写好后 CA LL不同的地址，如  5 26 75 /5 76 41，便可分别显示 BI G5或"
1256 O$=O$+" GB码。反选缓冲写好后一 CA LL便可刷新；如果总是循环容易按跳出中断。"
1258 CP=730:GOSUB 1030:CALL G
1260 O$="显示只和调用有关，但在北京版本下无法显示大五码的特殊字符，国标码则是通用两种内码。"
1262 O$=O$+"不过很可惜，扩展码不显示也罢，图标字也不能显示！"
1270 CP=730:GOSUB 1030:V$=INKEY$ :CALL G:V$=INKEY$ :GOTO 100

半仙哦，这个东东不会很准吧。。。。

它把我算的N差。。。我复读中哦！！！郁闷！！！

哈哈！！

这是PC1000的BAS软件。。。。。

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