勛飪蚔牁

綬控   庥蕾
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ㄐㄑ
        (綬控庥蕾)
 
 