try-me.bas

'Pointless code, made just for testing vWATCH64
'After you compile vWATCH64, drag this .bas file into vwatch.exe
'to trace its execution, run it line by line and also monitor
'the values of the variables below in real time.
'
DECLARE LIBRARY
    FUNCTION getpid ()
END DECLARE

_DEFINE A-Z AS LONG
$IF WIN THEN
    CONST PathSep$ = "\"
$ELSE
    CONST PathSep$="/"
$END IF
CONST True = -1: CONST False = NOT True

DIM yname AS STRING
DIM SHARED a AS STRING, fe(0 TO 5) AS STRING * 10

my_pid = getpid
CLS
RANDOMIZE TIMER
DO: _LIMIT 60
    RESTORE Names
    tempo = TIMER
    LeftForLOOP = False
    FOR j = 1 TO 10: _LIMIT 10
        READ a
        yname = Revert(a)
        used$6 = a
        PRINT a;
        PRINT PathSep$; 'But why? :)
        x = CSRLIN: y = POS(1)
        LOCATE 1, 70
        PRINT my_pid
        LOCATE x, y
        i = _CEIL(RND * 100000)
        k$ = INKEY$
        fe(temp) = a
        temp = temp + 1: IF temp > UBOUND(fe) THEN temp = 0: _
            used$6 = "RESET!": _
            tempo = 0
        IF k$ = CHR$(27) THEN EXIT DO
    NEXT j
    LeftForLOOP = True
    'VWATCH64:OFF
    used`8 = tiempo#
    strayDog = strayDog + 1
    PRINT strayDog
    tiempo# = TIMER
    PRINT
    PRINT tiempo# - tempo
    'VWATCH64:ON
    TakeABreak
LOOP

Names:
DATA "qb64 ","is ","one "
DATA "cool ","project ","which "
DATA "i ","really ","love ",playing with

'$include:'try-me-routines.bas'