ChipMaster's bwBASIC This also includes history going back to v2.10. *WARN* some binary files might have been corrupted by CRLF.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

hello.bas 3.3 KiB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283
  1. 2 PRINT TAB(33);"HELLO"
  2. 4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
  3. 6 PRINT: PRINT: PRINT
  4. 10 PRINT "HELLO. MY NAME IS CREATIVE COMPUTER."
  5. 20 PRINT: PRINT: INPUT "WHAT'S YOUR NAME";N$: PRINT
  6. 30 PRINT "HI THERE, ";N$;", ARE YOU ENJOYING YOURSELF HERE";
  7. 40 INPUT B$: PRINT
  8. 50 IF B$="YES" THEN 70
  9. 55 IF B$="NO" THEN 80
  10. 60 PRINT N$;", I DON'T UNDERSTAND YOUR ANSWER OF '";B$;"'."
  11. 65 PRINT "PLEASE ANSWER 'YES' OR 'NO'. DO YOU LIKE IT HERE";: GOTO 40
  12. 70 PRINT "I'M GLAD TO HEAR THAT, ";N$;".": PRINT
  13. 75 GOTO 100
  14. 80 PRINT "OH, I'M SORRY TO HEAR THAT, ";N$;". MAYBE WE CAN"
  15. 85 PRINT "BRIGHTEN UP YOUR VISIT A BIT."
  16. 100 PRINT
  17. 105 PRINT "SAY, ";N$;", I CAN SOLVE ALL KINDS OF PROBLEMS EXCEPT"
  18. 110 PRINT "THOSE DEALING WITH GREECE. WHAT KIND OF PROBLEMS DO"
  19. 120 PRINT "YOU HAVE (ANSWER SEX, HEALTH, MONEY, OR JOB)";
  20. 125 INPUT C$
  21. 126 PRINT
  22. 130 IF C$="SEX" THEN 200
  23. 132 IF C$="HEALTH" THEN 180
  24. 134 IF C$="MONEY" THEN 160
  25. 136 IF C$="JOB" THEN 145
  26. 138 PRINT "OH, ";N$;", YOUR ANSWER OF ";C$;" IS GREEK TO ME."
  27. 140 GOTO 250
  28. 145 PRINT "I CAN SYMPATHIZE WITH YOU ";N$;". I HAVE TO WORK"
  29. 148 PRINT "VERY LONG HOURS FOR NO PAY -- AND SOME OF MY BOSSES"
  30. 150 PRINT "REALLY BEAT ON MY KEYBOARD. MY ADVICE TO YOU, ";N$;","
  31. 153 PRINT "IS TO OPEN A RETAIL COMPUTER STORE. IT'S GREAT FUN."
  32. 155 GOTO 250
  33. 160 PRINT "SORRY, ";N$;", I'M BROKE TOO. WHY DON'T YOU SELL"
  34. 162 PRINT "ENCYCLOPEADIAS OR MARRY SOMEONE RICH OR STOP EATING"
  35. 164 PRINT "SO YOU WON'T NEED SO MUCH MONEY?"
  36. 170 GOTO 250
  37. 180 PRINT "MY ADVICE TO YOU ";N$;" IS:"
  38. 185 PRINT " 1. TAKE TWO ASPRIN"
  39. 188 PRINT " 2. DRINK PLENTY OF FLUIDS (ORANGE JUICE, NOT BEER!)"
  40. 190 PRINT " 3. GO TO BED (ALONE)"
  41. 195 GOTO 250
  42. 200 INPUT "IS YOUR PROBLEM TOO MUCH OR TOO LITTLE";D$: PRINT
  43. 210 IF D$="TOO MUCH" THEN 220
  44. 212 IF D$="TOO LITTLE" THEN 230
  45. 215 PRINT "DON'T GET ALL SHOOK, ";N$;", JUST ANSWER THE QUESTION"
  46. 217 INPUT "WITH 'TOO MUCH' OR 'TOO LITTLE'. WHICH IS IT";D$:GOTO 210
  47. 220 PRINT "YOU CALL THAT A PROBLEM?!! I SHOULD HAVE SUCH PROBLEMS!"
  48. 225 PRINT "IF IT BOTHERS YOU, ";N$;", TAKE A COLD SHOWER."
  49. 228 GOTO 250
  50. 230 PRINT "WHY ARE YOU HERE IN SUFFERN, ";N$;"? YOU SHOULD BE"
  51. 235 PRINT "IN TOKYO OR NEW YORK OR AMSTERDAM OR SOMEPLACE WITH SOME"
  52. 240 PRINT "REAL ACTION."
  53. 250 PRINT
  54. 255 PRINT "ANY MORE PROBLEMS YOU WANT SOLVED, ";N$;
  55. 260 INPUT E$: PRINT
  56. 270 IF E$="YES" THEN 280
  57. 273 IF E$="NO" THEN 300
  58. 275 PRINT "JUST A SIMPLE 'YES' OR 'NO' PLEASE, ";N$;"."
  59. 277 GOTO 255
  60. 280 PRINT "WHAT KIND (SEX, MONEY, HEALTH, JOB)";
  61. 282 GOTO 125
  62. 300 PRINT
  63. 302 PRINT "THAT WILL BE $5.00 FOR THE ADVICE, ";N$;"."
  64. 305 PRINT "PLEASE LEAVE THE MONEY ON THE TERMINAL."
  65. 307 FOR I=1 TO 2000: NEXT I
  66. 310 PRINT: PRINT: PRINT
  67. 315 PRINT "DID YOU LEAVE THE MONEY";
  68. 320 INPUT G$: PRINT
  69. 325 IF G$="YES" THEN 350
  70. 330 IF G$="NO" THEN 370
  71. 335 PRINT "YOUR ANSWER OF '";G$;"' CONFUSES ME, ";N$;"."
  72. 340 PRINT "PLEASE RESPOND WITH 'YES' OR 'NO'.": GOTO 315
  73. 350 PRINT "HEY, ";N$;"??? YOU LEFT NO MONEY AT ALL!"
  74. 355 PRINT "YOU ARE CHEATING ME OUT OF MY HARD-EARNED LIVING."
  75. 360 PRINT:PRINT "WHAT A RIP OFF, ";N$;"!!!":PRINT
  76. 365 GOTO 385
  77. 370 PRINT "THAT'S HONEST, ";N$;", BUT HOW DO YOU EXPECT"
  78. 375 PRINT "ME TO GO ON WITH MY PSYCHOLOGY STUDIES IF MY PATIENTS"
  79. 380 PRINT "DON'T PAY THEIR BILLS?"
  80. 385 PRINT:PRINT "TAKE A WALK, ";N$;".":PRINT:PRINT:GOTO 999
  81. 390 PRINT "NICE MEETING YOU, ";N$;", HAVE A NICE DAY."
  82. 400 REM
  83. 999 END