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