标题“争得零”取数游戏

　　运行以下程序即可进行以上游戏，该程序在GWBASIC下运行通过。你不妨把它输入计算机并和计算机玩上几局，如果你不知道这个游戏的奥秘的话，你是很难赢过计算机的。
　　10 REM 争得零取数游戏
　　20 DEFINT A-X
　　25 CLS
　　30 INPUT “请输入起始数字(10-100)：”，N
　　40 IF (N<10) OR (N >100) THEN PRINT“数值超界，请重新输入！”：GOTO 30
　　50 INPUT “1.计算机先取数　2.人先取数　 请选择：”，X
　　60 IF (X< >1) AND (X< >2) THEN PRINT“选择错误，请重新选择！”： GOTO 50
　　70 IF X=2 GOTO 130
　　80 COMPUTER=N MOD 4
　　90 IF COMPUTER=0 THEN COMPUTER=1
　　100 N=N-COMPUTER
　　110 PRINT “计算机取”；COMPUTER，“还剩”；N
　　120 IF N=0 THEN PRINT “计算机赢了！” :BEEP:GOTO 180
　　130 INPUI “你取多少”；MAN
　　140 IF (MAN<1) OR (MAN>3) THEN PRINT“取数非法，请重新取！”：GOTO 130
　　150 N=N-MAN
　　160 PRINT “你取”；MAN，“还剩”；N
　　170 IF N=0 THEN PRINT “你赢了！”：BEEP ELSE GOTO 80
　　180 INPUT “再玩一次？(y/n)”，YN$
　　190 IF (YN$=“y”) OR (YN$=“Y”) GOTO 25
　　200 END