Stuff

DO
INPUT "Please enter your name: "; name$
[again]
PRINT "Are you attending the party?"
PRINT "     Yes=Y"
PRINT "     No=N"
PRINT "     Maybe=M"
PRINT "     Exit=E"
INPUT "Answer? (Y/N/M/E) "; response$
reply$=UPPER$(LEFT$(response$,1))
IF reply$="E" THEN EXIT DO

IF NOT (reply$="Y" OR reply$="N" OR reply$="M") THEN
    NOTICE "Error!  Error!  Ouch!"+CHR$(13)+_
    "You entered an invalid response."+CHR$(13)+_
    "Please try again!"
    GOTO [again]
END IF

report$=report$+name$+" "+response$+" "
LOOP UNTIL LEFT$(response$,1)="E"
tkn$="*"

[finish]
CLS
WHILE tkn$<>""
    q=q+1
    tkn$=WORD$(report$,q)
    PRINT tkn$;
    q=q+1
    tkn$=WORD$(report$,q)
    PRINT TAB(20); tkn$
WEND

PRINT
PRINT "Program terminated."

END