'Delay.bas      Ray Thomas      April 2002

'Program to demonstrate delays

DIM Text AS STRING      'Text to print
DIM Count AS INTEGER    'Loop counter
DIM Start AS SINGLE     'Timer variable

Text$ = "Ray wrote this"

CLS

PRINT
PRINT "Example using a TIMER delay"
PRINT

TIMER ON
FOR Count = 1 TO LEN(Text$)
        Start = TIMER
        PRINT MID$(Text$, Count, 1);
        DO
        LOOP UNTIL TIMER > Start + .3
NEXT Count
TIMER OFF

PRINT
PRINT
PRINT
PRINT "Example using a SLEEP delay"
PRINT

FOR Count = 1 TO LEN(Text$)
        PRINT MID$(Text$, Count, 1);
        SLEEP 1
NEXT Count

PRINT
PRINT
PRINT
PRINT "Example using a delay loop"
PRINT

FOR Count = 1 TO LEN(Text$)
        Start = 0
        PRINT MID$(Text$, Count, 1);
        DO
                Start = Start + 1
        LOOP UNTIL Start = 100000
NEXT Count

PRINT
PRINT
PRINT
PRINT "Example using a WAIT delay"
PRINT

FOR Count = 1 TO LEN(Text$)
        PRINT MID$(Text$, Count, 1);
        WAIT &H3DA, 8
        WAIT &H3DA, 8, 8
NEXT Count

END