add all BASIC source files and folders

63 Name/README.md

@@ -0,0 +1,7 @@
+### Name
+
+As published in Basic Computer Games (1978)
+https://www.atariarchives.org/basicgames/showpage.php?page=116
+
+Downloaded from Vintage Basic at
+http://www.vintage-basic.net/games.html

63 Name/name.bas

@@ -0,0 +1,25 @@
+1 PRINT TAB(34);"NAME"
+2 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+3 PRINT: PRINT: PRINT
+5 DIM B$(40)
+10 PRINT "HELLO.": PRINT "MY NAME IS CREATIVE COMPUTER."
+20 PRINT "WHAT'S YOUR NAME (FIRST AND LAST";: INPUT A$: L=LEN(A$)
+30 PRINT: PRINT "THANK YOU, ";
+40 FOR I=1 TO L: B$(I)=MID$(A$,I,1): NEXT I
+50 FOR I=L TO 1 STEP -1: PRINT B$(I);: NEXT I
+60 PRINT ".": PRINT "OOPS!  I GUESS I GOT IT BACKWARDS.  A SMART"
+70 PRINT "COMPUTER LIKE ME SHOULDN'T MAKE A MISTAKE LIKE THAT!": PRINT
+80 PRINT "BUT I JUST NOTICED YOUR LETTERS ARE OUT OF ORDER."
+90 PRINT "LET'S PUT THEM IN ORDER LIKE THIS: ";
+100 FOR J=2 TO L: I=J-1: T$=B$(J)
+110 IF T$>B$(I) THEN 130
+120 B$(I+1)=B$(I): I=I-1: IF I>0 THEN 110
+130 B$(I+1)=T$: NEXT J
+140 FOR I=1 TO L: PRINT B$(I);: NEXT I: PRINT: PRINT
+150 PRINT "DON'T YOU LIKE THAT BETTER";: INPUT D$
+160 IF D$="YES" THEN 180
+170 PRINT: PRINT "I'M SORRY YOU DON'T LIKE IT THAT WAY.": GOTO 200
+180 PRINT: PRINT "I KNEW YOU'D AGREE!!"
+200 PRINT: PRINT "I REALLY ENJOYED MEETING YOU ";A$;"."
+210 PRINT "HAVE A NICE DAY!"
+999 END