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$