REM 944BASIC 'メテオ' *MAIN00 CLS FONT 64 P=0 X=20 D=2 GX=X*6+6 GY=5*12+6 *MAIN01 SYNC C=POINT(X*6+6,GY) IF C=0 THEN GOTO *MAIN02 COLORFG 255,0,0 PRINT '▽' FOR I=1 TO 8-INT(P/20) WAIT 1 SYNC KP=PADA IF KP=1 THEN D=-D NEXT IFBLK X=0 D=1 ELSEIF X=32 D=-1 ENDIF X=X+D P=P+1 LOCATE INT(RND%16)*2,15 COLORFG 0,0,0 PRINT '●●' BOXMOVE 0,0,0,12,240,240 :REM 上にスクロール LOCATE 34,0 COLORFG 0,0,255 PRINT 'SC:'; PRINT P LOCATE X,5 GOTO *MAIN01 *MAIN02 PRINT '※' KEYWAIT GOTO *MAIN00