微信公众号 
图码生活

每天发布有五花八门的文章,各种有趣的知识等,期待您的订阅与参与
电脑报 1992-2001 十年文章全集
电脑报 1992-2001 十年文章全集
包含从 1992 年 - 2001 年间,两万余篇期刊文章,查询最少输入两个字符
随便看看
读取中
读取中
标题一个人机对抗的程序——间谍
栏目软件操作与技巧
作者贵州 朱晓东
发布1992-10-23
  运行后你将成为盗文件的间谍,用I、M、J、K控制上、下、左、右去偷取十份黄色的文件。小心房间里的卫兵和带电的墙。
  本程序在CEC-Ⅰ机上通过
  5 F=.5
  10 GR:COLOR=1:HLIN 0,39 AT 0;HLIN 0,39 AT 39:VLIN 1,38 AT 0:VLIN 1,38 AT 3915 X=2:Y=2:U=15:V=12:COLOR=5:PLOT X,Y:COLOR=15:PLOT U,V:Z=10
  20 FOR I=0 TO 9:COLOR=13:PLOT 1+36*RND(1),1+36*RND(1):NEXT I
  25 DX=U-X:DY=V-Y:S=SQR(DX*DX+DY*DY):CO=DX/S:SI=DY/S
  30 X1=X+F*CO:Y1=F*SI+Y
  35 COLOR=5:PLOT X1,XY:COLOR=0:PLOT X,Y:X=X1:Y=Y1
  40 P=PEEK(49152)-200:COLOR=0:PLOT  U,V:U=U-(P=2)+(P=3):V=V-(P=1)+(P=5):N=SCRN(U,V):COLOR=15:PLOT U,V
  45 IF N=5 OR N=1 THEN PRINT "您牺牲了!!!”
  50 IF N=13 THEN Z=Z-1
  55 IF Z=0 THEN PRINT "你胜利了!!!":F=F+.2:GOTO 10
  60 GOTO 25