1 CLS
2 OPEN "h:\bas\drop.bas" FOR INPUT AS #1
3 DO UNTIL EOF(1)
4 LINE INPUT #1, dd$: PRINT dd$
5 LOOP
6 CLOSE 1
10 FOR y = 1 TO 24
20 FOR q = 1 TO 80
30 CR$ = CHR$(SCREEN(y, q))
40 RANDOMIZE q + y + f * TIMER + VAL(DATE$)
50 f = INT(RND * 8) - 4
55 IF f + y > 23 THEN f = f - (f * 2)
56 IF f + y < 1 THEN f = f - (f * 2)
'57 LOCATE y, q: PRINT "Û";
58 IF f > 0 THEN d = f - (f * 2)
59 IF d + q < 1 THEN d = d - (d * 2)
60 LOCATE ((y + f) MOD 25) + 1, ((q + d) MOD 80) + 1
70 PRINT CR$;
80 NEXT q
90 NEXT y