BCX Console Demonstration Program s153.bas
```
TYPE LIST
Cnt AS INTEGER
b[32] AS CHAR
nxt AS LIST PTR
prv AS LIST PTR
END TYPE

MACRO sp = 0

DIM a\$, buffer\$[40], i, j

a\$ = "this is a test"
i = SPLIT(buffer\$, a\$, " ", sp)
FOR j = 0 TO i - 1
NEXT
a\$ = "the quick brown fox jumped over the lazy dog"
i = SPLIT(buffer\$, a\$, " ", sp)
FOR j = 0 TO i - 1
NEXT
a\$ = "to error is human to really screw up requires a computer"
i = SPLIT(buffer\$, a\$, " ", sp)
FOR j = 0 TO i - 1
NEXT
a\$ = "if a function takes up more space than can fit on a screen it has an error in it"
i = SPLIT(buffer\$, a\$, " ", sp)
FOR j = 0 TO i - 1
NEXT

CALL OutPutData()
!fflush(stdout);
getchar();

SUB OutPutData
WEND
WEND
END IF
END SUB

DIM RAW PHead AS LIST PTR
DIM RAW CHead AS LIST PTR
DIM RAW NHead AS LIST PTR

EXIT SUB
END IF

ELSE
EXIT SUB
END IF
WEND

EXIT SUB
END IF

ELSE
EXIT SUB
END IF
WEND

EXIT SUB
END IF

END SUB

FUNCTION MakeRecord() AS LIST PTR
!   return (LIST*)(calloc(1, sizeof(LIST)));
END FUNCTION

```

Result:

```
a 4
an 1
brown 1
can 1
computer 1
dog 1
error 2
fit 1
fox 1
function 1
has 1
human 1
if 1
in 1
is 2
it 2
jumped 1
lazy 1
more 1
on 1
over 1
quick 1
really 1
requires 1
screen 1
screw 1
space 1
takes 1
test 1
than 1
the 2
this 1
to 2
up 2

```