100'SAVE"¼Þ¬Ý¹Ý
110CLEAR :DIM PS(3):DIM GT$(3):DIM CM(3):DIM SH(3):CN=3
120PS(0)=33:PS(1)=33:PS(2)=33:CM(0)=1:CM(1)=1:CM(2)=1
130GT$(0)="¸Þ-":GT$(1)="Á®·":GT$(2)="Êß-"
140CLS :PRINT "¼Þ¬Ý¹Ý¹Þ-Ñ"
150CG=-1:MG=-1:CT= INT ( RND 1*100)
160IF CT<=PS(0) THEN CG=2
170IF CG=-1 AND CT<=(PS(0)+PS(2)) THEN CG=0
180IF CG=-1 THEN CG=1
190LOCATE 0,1:PRINT "¼Þ¬Ý¹Ý..(3ÃÞµÜØ)"
200PRINT "0)¸Þ- 1)Á®· 2)Êß-:";:MG= ASC ( INKEY$ )-48
210IF MG=3 GOTO 350
220IF MG<0 OR MG>2 GOTO 190
230PRINT GT$(MG)
240PRINT "COM:";GT$(CG);" YOU:";GT$(MG)
250IF MG=CG PRINT "˷ܹ":SH(0)=SH(0)+1:GOTO 290
260IF MG=0 THEN MG=3
270IF (CG-MG)=-1 PRINT "COMɶÁ":SH(1)=SH(1)+1 ELSE PRINT "YOUɶÁ":SH(2)=SH(2)+1
280IF MG=3 THEN MG=0
290CN=CN+1:CM(MG)=CM(MG)+1
300PS(0)=CM(0)/CN*100
310PS(1)=CM(1)/CN*100
320PS(2)=CM(2)/CN*100
330Z$= INKEY$ :IF Z$="" OR Z$= STR$ (MG) GOTO 330
340CLS :GOTO 140
350PRINT :PRINT "±ÅÀɾ²¾·":PRINT STR$ (SH(2));"¼®³ "; STR$ (SH(1));"ʲ "; STR$ (SH(0));"˷ܹ"
360PRINT "ÊÞ²ÊÞ²ÏÀÈ(^^)/~":END