BCX Console Demonstration Program s83.bas

 
DIM a$
DIM b$
DIM i

a$ = "Demonstration of copying a string by using pointer arithmetic."

WHILE *(a + i)
  *(b + i) = *(a + i)
  i++
WEND

?  b$

Result:

Demonstration of copying a string by using pointer arithmetic.