REM --------------------------------------------------------------------
REM string1.bas
REM
REM CIS 120/121 Lecture Notes example: Chipmunk BASIC interpreter
REM Mike Huffman
REM Portland Community College, Computer Information Systems
REM
REM Last update: 08 MAY 2002
REM --------------------------------------------------------------------

SYS( "command.com /c cls" )         REM Chipmunk BASIC clear screen
name$ = "John Paul Jones"
PRINT "Name (First, Middle, Last): "; name$

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

PRINT "Name (Last, First, Middle): ";
PRINT last$; ", "; first$; " "; middle$     REM print last name first
EXIT                                REM return to operating system