COLOR 15: LOCATE 10, 12: PRINT SPACE$(20)COLOR 14: LOCATE 10, 12: INPUT "Enter your Name: ", name$
SCREENPRINT "this is all there is to it "COLOR 15: LOCATE 10, 12: PRINT SPACE$(20)COLOR 14: LOCATE 10, 12: INPUT "Enter your Name: ", name$IF UCASE$(name$) = UCASE$(name$) THEN PRINT "Hello "; name$; " Hope you enjoy this little program "'///The rest could be any program, I just did these little things, for my 'explanationPRINT " This is all there is to it , I think "PRINT "This could be the rest of the program,press anykey to continue"SLEEPPLAY " abcdefg"PRINT " 2 + 2 = "PRINT 2 + 2PRINT "Any key to exit"SLEEPIF UCASE$(name$) = UCASE$(name$) THEN PRINT "GoodBye, thank you for useing this program "; name$_DELAY 2SYSTEM
DIM na AS STRINGDIM a AS INTEGERCLSOPEN "Names.txt" FOR BINARY AS #1a = LOF(1)CLOSE #1IF (a = 0) THEN INPUT "Enter Your Name : "; na OPEN "Names.txt" FOR OUTPUT AS #1 PRINT #1, na CLOSE #1 PRINT "Hello "; naELSE OPEN "Names.txt" FOR INPUT AS #1 INPUT #1, na CLOSE #1 PRINT "Hello "; naEND IF