一个人机对抗的程序——间谍

Author: 贵州朱晓东 Date: 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