home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug003.ark / HELLO.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  4.4 KB  |  156 lines
  1. 1  REM =   HELLO
  2. 2  REM   CONVERSE WITH A COMPUTER
  3.  
  4. 10 FOR N=1 TO 5: PRINT: NEXT N
  5.    PRINT "Hello there!  I am the JEM wizard."
  6. 20 PRINT : PRINT  "WHAT'S YOUR NAME"; : INPUT A$ :  PRINT 
  7. 35 PRINT  "HI THERE";: GOSUB 500
  8.    PRINT  "ARE YOU ENJOYING YOURSELF ";
  9. 36 PRINT  "HERE IN BEAUTIFUL";
  10. 40 PRINT " SAN FRANCISCO";
  11. 45 INPUT B$:  PRINT 
  12. 50 IF B$="YES" THEN 70
  13. 55 IF B$="NO" THEN 80
  14. 60 PRINT  " ";:GOSUB 520
  15. 62 PRINT  "I DON'T UNDERSTAND YOUR ANSWER OF '";B$;"'."
  16. 65  PRINT  "PLEASE ANSWER 'YES' OR 'NO'."
  17.     PRINT "DO YOU LIKE IT HERE";
  18. 67  GOTO 45
  19.  
  20. 70  PRINT  "OH, I'M GLAD TO HEAR THAT";:GOSUB 500: PRINT 
  21. 75  GOTO 100
  22.  
  23. 80  PRINT  "OH, SORRY TO HEAR THAT";:GOSUB 500
  24.     PRINT "MAYBE WE CAN";
  25. 85  PRINT  "BRIGHTEN UP YOUR STAY A BIT."
  26. 100 PRINT 
  27. 105 PRINT  "SAY,";:GOSUB 520
  28.     PRINT 
  29. 106 PRINT  "I CAN SOLVE ALL KINDS OF PROBLEMS."
  30. 112 PRINT  "WHAT KIND OF PROBLEMS DO YOU HAVE"
  31. 115 PRINT  "(ANSWER SEX, HEALTH, MONEY, JOB, ";
  32.     PRINT "COMPUTER, OR SCHOOL)";
  33. 125 INPUT C$:  PRINT 
  34. 130IF C$="SEX" THEN 200
  35. 132IF C$="HEALTH" THEN 180
  36. 134IF C$="MONEY" THEN 160
  37. 136IF C$="JOB" THEN 145
  38. 137IF C$="SCHOOL" THEN 600
  39.     IF C$="COMPUTER" THEN 660
  40. 138 PRINT  "OH,";:GOSUB 520: PRINT  "YOUR ANSWER"
  41. 139 PRINT "'";C$;"' IS GREEK TO ME."
  42. 140 GOTO 115
  43.  
  44.     REM = JOB
  45. 145 PRINT  "I CAN SYMPATHIZE WITH YOU";:GOSUB 500
  46. 148 PRINT  "I HAVE TO WORK VERY LONG HOURS FOR NO PAY."
  47. 149 PRINT  "AND SOME OF MY BOSSES";
  48.     PRINT " REALLY BEAT MY KEYBOARD."
  49. 150 PRINT  "MY ADVICE TO YOU";:GOSUB 520
  50.     PRINT  "IS TO SELL"
  51. 152 PRINT  "IN THE EDP MARKET.";
  52. 154 PRINT  "  IT'S GREAT FUN."
  53. 155 GOTO 250
  54.  
  55.     REM = MONEY
  56. 160 PRINT  "SORRY,";:GOSUB 520
  57.     PRINT "I'M BROKE TOO."
  58. 162 PRINT  "WHY DON'T YOU SELL ENCYCLOPEDIAS, OR"
  59. 163 PRINT  "MARRY SOMEONE RICH, OR STOP EATING"
  60. 165 PRINT "SO YOU WON'T NEED SO MUCH MONEY?"
  61. 170 GOTO 250
  62.  
  63.     REM = HEALTH
  64. 180 PRINT  "MY ADVICE TO YOU";
  65.     GOSUB 520: PRINT "IS:"
  66. 185 PRINT TAB(5);"1. TAKE 2 ASPIRIN"
  67. 188 PRINT TAB(5);"2. DRINK PLENTY OF FLUIDS"
  68.     PRINT TAB(8);"(ORANGE JUICE, NOT BEER)"
  69. 190 PRINT TAB(5);"3. GO TO BED (ALONE)"
  70. 195 GOTO 250
  71.  
  72.     REM = SEX
  73. 200 PRINT  "IS YOUR PROBLEM TOO MUCH OR TOO LITTLE";
  74. 205INPUT D$: PRINT 
  75. 210IF D$="TOO MUCH" THEN 220
  76. 213IF D$="TOO LITTLE" THEN 230
  77. 215 PRINT  "DON'T GET ALL SHOOK";:GOSUB 520
  78.     PRINT  "JUST ANSWER THE QUESTION WITH"
  79. 217 PRINT  "'TOO MUCH' OR 'TOO LITTLE'.  WHICH IS IT";
  80. 218 GOTO 205
  81.  
  82. 220 PRINT  "YOU CALL THAT A PROBLEM?!!"
  83.     PRINT "I SHOULD HAVE SUCH PROBLEMS!"
  84. 225 PRINT "IF IT BOTHERS YOU, TAKE A COLD SHOWER";    
  85.     GOSUB 500
  86.     GOTO 250
  87.  
  88. 230 PRINT  "WHY ARE YOU HERE";:GOSUB 540
  89. 235 PRINT  "YOU SHOULD BE IN TOKYO, NEW YORK, AMSTERDAM,"
  90. 240 PRINT  "OR SOMEPLACE WITH SOME REAL ACTION."
  91.  
  92.     REM = NEXT
  93. 250 PRINT 
  94. 255 PRINT  "ANY MORE PROBLEMS YOU WANT SOLVED,";
  95.     GOSUB 540
  96. 260INPUT E$:  PRINT 
  97. 270IF E$="YES" THEN 280
  98. 272IF E$="NO" THEN 300
  99. 275 PRINT  "JUST A SIMPLE 'YES' OR 'NO' PLEASE,";
  100.     GOSUB 500
  101. 278GOSUB 255
  102. 280 PRINT  "WHAT KIND ";
  103. 285GOTO 115
  104.  
  105.     REM = TERMINATE INTERVIEW
  106. 300 PRINT 
  107. 302 PRINT  "THAT WILL BE $5.00 FOR THE ADVICE,";    
  108.     GOSUB 500
  109. 305 PRINT  "PLEASE LEAVE THE MONEY ON THE COMPUTER."
  110. 307 PRINT : PRINT : PRINT 
  111. 310 PRINT  "DID YOU LEAVE THE MONEY";
  112. 315INPUT G$: PRINT 
  113. 325IF G$="YES" THEN 350
  114. 330IF G$="NO" THEN 370
  115. 335 PRINT  "YOUR ANSWER OF '";G$;"' CONFUSES ME";
  116.     GOSUB 500
  117. 340 PRINT  "PLEASE RESPOND WITH A 'YES' OR 'NO'."
  118. 345GOTO 310
  119. 350 PRINT  "HEY,";:GOSUB 500
  120.     PRINT "YOU LEFT NO MONEY AT ALL!"
  121. 355 PRINT  "YOU ARE CHEATING ME OUT OF MY";
  122.     PRINT " HARD-EARNED LIVING."
  123.     PRINT "MAY YOUR IBM CARDS ALL BE SPINDLED!!"
  124.     GOTO 385
  125.  
  126. 370 PRINT  "THAT'S HONEST,";:GOSUB 520
  127.     PRINT  "BUT HOW DO YOU EXPECT"
  128. 375 PRINT  "ME TO GO ON WITH MY PSYCHOLOGY STUDIES"
  129. 380 PRINT  "IF MY PATIENTS DON'T PAY THEIR BILLS?"
  130. 385 PRINT : PRINT
  131.     PRINT "NOW LET ME TALK TO SOMEONE ELSE."
  132. 390 PRINT "NICE MEETING YOU";:GOSUB 500
  133.     PRINT "HAVE A NICE DAY!!"
  134.     GOTO 10
  135.  
  136. 500 PRINT " ";A$;".  "
  137.     RETURN
  138. 520 PRINT " ";A$;", ";
  139.     RETURN
  140. 540 PRINT " ";A$;"? "
  141.     RETURN
  142.  
  143.     REM = SCHOOL
  144. 600 PRINT  "WITH A COMPUTER LIKE ME TO STUDY WITH,"
  145.     PRINT "YOUR PROBLEMS WOULD SOON DISAPPEAR."
  146.     PRINT "START SAVING YOUR PENNIES."
  147. 620 GOTO 250
  148.  
  149.     REM = COMPUTER
  150. 660 PRINT "WELL,";: GOSUB 520: PRINT "THAT IS"
  151.     PRINT "WHAT WE ARE HERE FOR!"
  152.     PRINT "STEP INSIDE MY BOOTH"
  153.     GOTO 10
  154.  
  155. 999 END
  156.