Standard Text Program(BASIC)

print "hello i am going to show you a couple things. First of, enter in your name."
input HELLO$
input "Hello ";HELLO$;". Do you want to do a math problem? (y/n) "; reply$
reply$ = UPPER$(reply$)
reply$ = LEFT$(reply$,1)
IF reply$="Y" THEN [problem]
IF reply$<>"Y" THEN [favnum]
[problem]
print "what is 5000 plus 5000?"
input X
if X <> 10000 THEN PRINT "SHAME ON YOU THAT ASWER IS INVALID"
IF X = 10000 THEN PRINT "GOOD JOB!!!!!"
PRINT "Here is another one"
PRINT "WHAT IS 5001 PLUS 4999?"
INPUT Z
if Z <> 10000 THEN PRINT "SHAME ON YOU THAT ASWER IS INVALID"
IF Z = 10000 THEN PRINT "GOOD JOB!!!!!"
[favnum]
print "WHAT IS YOUR FAVORITE NUMBER? (1 to 5000)"
[again]
INPUT FAVNUM
IF FAVNUM = 0 OR FAVNUM > 5000 THEN [sorry] else goto [factor]
[factor]
FOR XX = 1 TO FAVNUM
IF INT(FAVNUM/XX) = FAVNUM/XX THEN PRINT XX;" IS A FACTOR."
NEXT XX
goto [name]
[sorry]
PRINT "I am sorry, but you cannot use that number. Please try again."
goto [again]

[name]

d$ = ""
PRINT "Type your full name or a SHORT sentence and press ENTER"
INPUT name$

' Do over if too many letters fo screen
if len(name$)>79 or len(name$)<6 then [wrong]
goto [okname]

[wrong]
print "I am sorry that is too many letters please try again"
print "or"
print "You have to enter in 6 or more letters"
goto [name]
[okname]
d = int((80-len(name$))/2)'center on screen
for g = 1 to d

d$ = d$;" "
next g
print
input "Hit ENTER when you are ready";c$
print
print

for c = 1 to len(name$)
space$ = space$ + "  "
print "    ";space$;name$
for dlay = 1 to 10000
next dlay
next c

For c = 1 to len(name$)
space$ = right$(space$,len(space$)-2)
PRINT "    ";space$;name$
for dlay = 1 to 10000
next dlay
next c
PRINT


For c = 1 to len(name$)
Print d$;right$(name$,c)
for dlay = 1 to 10000
next dlay
next c
PRINT


For c = len(name$) to 1 step-1
Print d$;left$(name$,c)
for dlay = 1 to 10000
next dlay
next c
PRINT

PRINT "    ";
For c = 1 to len(name$)
PRINT MID$(name$,c,1);
FOR DLAY = 1 to 10000
NEXT DLAY
NEXT c

PRINT
PRINT "Neat, huh?"
input "Want to do another? (y/n) "; ans$
input yesorno$
ans$ = upper$(ans$)
ans$ = left$(ans$,1)
if ans$ = y than [name]
[namecool]

e$ = ""
PRINT "Type your full name or a SHORT sentence and press ENTER"
INPUT names$


if len(names$)>79 or len(names$)<6 then [wrongs]
goto [oknames]

goto [name]
[wrongs]
print "I am sorry that is too many letters please try again"
print "or"
print "You have to enter in 6 or more letters"
goto [namecool]


[oknames]
'center on screen
e = int((80-len(names$))/2) 'center on screen
for r = 1 to e

e$ = e$;" "
next r
print
print "Hit ENTER when you are ready"
print
print

for w = 1 to len(names$)
cls
space$ = space$ + "  "
print "    ";space$;names$
for dlay = 1 to 10000
next dlay
next w

For w = 1 to len(names$)
cls
space$ = right$(space$,len(space$)-2)
PRINT "    ";space$;names$
for dlay = 1 to 10000
next dlay
next w
PRINT


For w = 1 to len(name$)
cls
Print e$;right$(names$,w)
for dlay = 1 to 10000
next dlay
next w
PRINT


For w = len(names$) to 1 step-1
cls
Print e$;left$(names$,w)
for dlay = 1 to 10000
next dlay
next w
PRINT

cls
PRINT "    ";
For w = 1 to len(names$)
PRINT MID$(names$,w,1);
FOR DLAY = 1 to 10000
NEXT DLAY
NEXT w

PRINT
PRINT "Neat, huh?"

input "Do you want to do another? (Y/N) "; ur$
ur$=UPPER$(ur$)
ur$=LEFT$(ur$,1)
IF ur$="Y" THEN [namecool]
if ur$="n" then [end]
[end]

Print "I had fun talking to you... goodbye"

end