RosettaCodeData/Task/Singly-linked-list-Traversal/Run-BASIC/singly-linked-list-traversal.basic
2023-07-01 13:44:08 -04:00

4 lines
102 B
Text

list$ = "now is the time for all good men"
for lnk = 1 to 8
print lnk;"->";word$(list$,lnk)
next lnk