吃豆游戏

Author: 湖北魏立 Date: 1993-03-26

        本游戏在中华机上运行通过，用Q、A、O、P键控制上、下、左、右的移动。
        10GR：COLOR=3
        20HLIN0，39AT0：HLIN0，

        39AT39：VLIN0，39AT39：
        VLIN0，39AT0
        40FORI=1TO10
        50X=INT(RND(1)36＋1)：Y
        =INT(RND38＋1)
        60PLOTX，Y：NEXT
        80COLOR=15
        90FORI=1TO10
        100X=INT(RND(1)36＋1)：
        Y=INT(RND(1)38＋1)
        110PLOTX，Y：NEXT
        125COLOR=5
        130A=1：B=1：X=1：Y=1
        140PLOTX，Y
        150K=PEEK(16384)
        160IFK=209THENA=X：B
        =Y：Y=Y1
        170IFK=193THENA=X：B
        =Y：Y=Y＋1
        180IFK=207THENA
        =X：B=Y：X=X1
        190IFK=208THENA
        =X：B=Y：X=X＋1
        200IFSCRN(X，Y)=3
        THEN270
        210
        IFSCRN
        (X，Y)=15THENT=T＋1：FORU=0TO
        15：P=PEEK(16336)：NEXT
        230IFT=10THEN10
        240FORI=1TO50：NEXT
        250COLOR=5：PLOTX，Y
        260COLOR=0：PLOTA，B：
        GOTO150
        270TEXT：HOME：PRINT
        ＂LOSE！＂
        (湖北魏立)