1: DECLARE SUB Delay (n!) 2: DIM B, D, E AS INTEGER 3: DIM a AS STRING 4: D = 0 5: PRINT "Type your string now" 6: B = (CSRLIN) 7: COLOR 15 8: LINE INPUT a 9: TOP: 10: COLOR 7 11: Delay 100 12: LOCATE B, 1 13: PRINT a; 14: Delay 100 15: COLOR 8 16: LOCATE B, 1 17: PRINT a; 18: COLOR 0 19: Delay 100 20: LOCATE B, 1 21: PRINT a; 22: Delay 400 23: E = LEN(a) 24: DIM c AS STRING 25: DO 26: IF E = LEN(a) THEN c = MID$(a, LEN(a), 1) ELSE c = c + MID$(a, E, 1) 27: E = E - 1 28: LOOP UNTIL E = 0 29: COLOR 8 30: LOCATE B, 1 31: PRINT c; 32: Delay 100 33: COLOR 7 34: Delay 100 35: LOCATE B, 1 36: PRINT c; 37: COLOR 15 38: Delay 100 39: LOCATE B, 1 40: PRINT c; 41: ENDD: 42: END 'Stops Processing (end of program) 43: 44: SUB Delay (n) 45: n = n / 1000 46: a = TIMER + n 47: DO UNTIL TIMER >= a: LOOP 48: END SUB 49: |