川下りを改造して、逆スクロールにした。
V A の位置を入れ替え *の出現位置を0行目にした。
23行目にプリントすることでスクロールしていたので、
55 SCROLL 2
で下にスクロールさせています。
1 'カワノボリ 10 CLS 20 X=15 30 @LP 40 LOCATE X,20 50 PRINT "A" 55 SCROLL 2 60 LOCATE RND(31),0 70 PRINT "*" 80 WAIT 5 90 X=X-BTN(LEFT) 100 X=X+BTN(RIGHT) 110 IF SCR(X,20) THEN END 120 GOTO @LP