'-----------------------------------------------------------------------
' STRING1.BAS
'
' CIS 120 Lecture Notes example
' Mike Huffman
' Portland Community College, Computer Information Systems
'
' Last update: 08 MAY 2002
'-----------------------------------------------------------------------

CLS
name$ = "John Paul Jones"
PRINT "Name (First, Middle, Last): "; name$

first$ = MID$(name$, 1, 4)      ' start at pos 1, get 4 characters
middle$ = MID$(name$, 6, 4)     ' start at pos 6, get 4 characters
last$ = MID$(name$, 11, 5)      ' start at pos 11, get 5 characters

PRINT "Name (Last, First, Middle): ";
PRINT last$; ", "; first$; " "; middle$     ' print last name first