home *** CD-ROM | disk | FTP | other *** search
/ back2roots/filegate / filegate.zip / filegate / gamesnet / g_amiga / AE1CRTVC.ZIP / AE1CRTVC.LHA / NAME.BAS < prev    next >
BASIC Source File  |  1980-01-01  |  1KB  |  26 lines
  1. 1 PRINT CHR$(26):WIDTH 80:PRINT TAB(34);"NAME":PRINT
  2. 2 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
  3. 3 PRINT: PRINT: PRINT
  4. 5 DIM B$(40)
  5. 10 PRINT "HELLO.": PRINT "MY NAME IS CREATIVE COMPUTER."
  6. 20 PRINT "WHAT'S YOUR NAME (FIRST AND LAST";: INPUT A$: L=LEN(A$)
  7. 30 PRINT: PRINT "THANK YOU, ";
  8. 40 FOR I=1 TO L: B$(I)=MID$(A$,I,1): NEXT I
  9. 50 FOR I=L TO 1 STEP -1: PRINT B$(I);: NEXT I
  10. 60 PRINT ".": PRINT "OOPS!  I GUESS I GOT IT BACKWARDS.  A SMART"
  11. 70 PRINT "COMPUTER LIKE ME SHOULDN'T MAKE A MISTAKE LIKE THAT!": PRINT
  12. 80 PRINT "BUT I JUST NOTICED YOUR LETTERS ARE OUT OF ORDER."
  13. 90 PRINT "LET'S PUT THEM IN ORDER LIKE THIS: ";
  14. 100 FOR J=2 TO L: I=J-1: T$=B$(J)
  15. 110 IF T$>B$(I) THEN 130
  16. 120 B$(I+1)=B$(I): I=I-1: IF I>0 THEN 110
  17. 130 B$(I+1)=T$: NEXT J
  18. 140 FOR I=1 TO L: PRINT B$(I);: NEXT I: PRINT: PRINT
  19. 150 PRINT "DON'T YOU LIKE THAT BETTER";: INPUT D$
  20. 160 IF D$="YES" THEN 180
  21. 170 PRINT: PRINT "I'M SORRY YOU DON'T LIKE IT THAT WAY.": GOTO 200
  22. 180 PRINT: PRINT "I KNEW YOU'D AGREE!!"
  23. 200 PRINT: PRINT "I REALLY ENJOYED MEETING YOU ";A$;"."
  24. 210 PRINT "HAVE A NICE DAY!"
  25. 999 RUN "MENU"
  26.