home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / MDUTIL.ZIP / GOBBLE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-12-01  |  3.4 KB  |  106 lines
  1. 1  REM
  2. 3  KEY OFF:SCREEN 0,1:WIDTH 40:COLOR 14,0,0:CLS:LOCATE 5,19:PRINT "MDS"
  3. 5  LOCATE 7,8,0:PRINT "Micro Development Software"
  4. 6  LOCATE 8,8:COLOR 12,0,0:PRINT STRING$(26,196)
  5. 7  COLOR 10,0:LOCATE 10,9,0:PRINT CHR$(201)+STRING$(21,205)+CHR$(187)
  6. 9  LOCATE 11,9:PRINT CHR$(186)+"     GOBBLEDEGOOK    "+CHR$(186)
  7. 11  LOCATE 12,9:PRINT CHR$(186)+STRING$(21,32)+CHR$(186)
  8. 13  LOCATE 13,9:PRINT CHR$(186)+"     Version 5.2     "+CHR$(186)
  9. 15  LOCATE 14,9:PRINT CHR$(200)+STRING$(21,205)+CHR$(188)
  10. 17  LOCATE 17,10:PRINT"Written By M.D. Smith"
  11. 19  COLOR 14,0:LOCATE 19,7:PRINT "         Circa 1985"
  12. 21  COLOR 9,0:LOCATE 23,7:PRINT "Press space bar to continue"
  13. 23  POKE 106,0:REM CLEAR KYBD BUFFER
  14. 25  A$ = INKEY$:IF A$="" THEN GOTO 25
  15. 27  REM
  16. 29  REM
  17. 31  REM
  18. 110  REM
  19. 120  REM
  20. 130  REM ***********************************************************************
  21. 140  REM
  22. 150  REM        DATE OF LATEST MODIFICATION    JULY 13, 1985
  23. 160  REM
  24. 170  REM
  25. 180  REM      THIS IS A PROGRAM WRITTEN BY M.D. SMITH, IV
  26. 190  REM                                   1000 Monte Sano Blvd., S.E.
  27. 200  REM         JANUARY 26, 1985          Huntsville, AL  35801
  28. 210  REM
  29. 220  REM
  30. 230  REM          GOBBLEDEGOOK  IS WONDERFULLY USELESS
  31. 240  REM                        BUT A MARVELLOUS DEMO TOOL
  32. 250  REM ***********************************************************************
  33. 260  DIM A$(25),B$(25),C$(25)
  34. 264  FOR Y = 0 TO 15
  35. 265  READ A$(Y), B$(Y), C$(Y)
  36. 266  NEXT Y
  37. 270  WIDTH 80:CLS
  38. 280  COLOR 14,0,0
  39. 290  CLS:KEY OFF
  40. 300  BEEP
  41. 310  PRINT:PRINT:PRINT:PRINT
  42. 320  PRINT"    THE WHOLE PRINCIPLE OF GOBBLEDEGOOK IS USING PERFECTLY GOOD"
  43. 330  PRINT
  44. 340  PRINT"    ENGLISH WORDS IN A MANNER TO SOUND LOGICAL, BUT TO HAVE NO USEFUL"
  45. 350  PRINT
  46. 360  PRINT"    MEANING AT ALL. THIS IS COMMUNICATIONS AT ITS WORST. LINK THESE"
  47. 370  PRINT
  48. 380  PRINT"    PHRASES TOGETHER FOR TERRIFFIC SOUNDING, ALTHOUGH MEANINGLESS MEMOS"
  49. 390  PRINT
  50. 400  PRINT"    AND LETTERS. YOU CAN SNOW ALMOST ANYONE ABOUT YOUR SMARTS EXCEPT"
  51. 410  PRINT
  52. 420  PRINT"    ANOTHER GOBBLEDEGOOKER.  (NOTE: IF YOU CHOOSE HARDCOPY ON THE PRINTER"
  53. 430  PRINT:PRINT"    YOU WILL ONLY GET 10 PHRASES PER RUN)
  54. 440  BEEP
  55. 460  PRINT:PRINT
  56. 470  REM
  57. 480  PRINT
  58. 490  PRINT"    DO YOU WANT GOBBLEDEGOOK ON (P)RINTER OR (S)CREEN"
  59. 500  INPUT"    PLEASE ENTER  P  OR  S   ";P$
  60. 510  RANDOMIZE INT(VAL(MID$(TIME$,7,2))):REM  SEED THE RANDOM GENERATOR
  61. 520  REM ** NOTE 'RANDOMIZE TIMER' WILL WORK JUST AS WELL AS ABOVE IF
  62. 530  REM ** USING BASIC 2.0 OR LATER VERSION ***
  63. 540  REM
  64. 570  IF P$ = "P"  OR P$ = "p" THEN GOTO 630
  65. 580   WIDTH 40:COLOR 14,0,0:CLS
  66. 585  LOCATE 25,5:COLOR 10,0,0:PRINT"< PRESS SPACE BAR TO STOP >"
  67. 587  COLOR 14,0,0:LOCATE 1,1
  68. 590  PRINT A$(INT(RND*16));" ";B$(INT(RND*16));" ";C$(INT(RND*16))
  69. 600  PRINT
  70. 610  FOR D = 1 TO 1000: NEXT D
  71. 615  W$=INKEY$: IF W$ = CHR$(32) THEN WIDTH 80:CLS:GOTO 690
  72. 620  GOTO 590
  73. 630  FOR Q = 1 TO 10
  74. 640  LPRINT CHR$(27) CHR$(71) : REM  DOUBLE STRIKE COMMAND
  75. 650  LPRINT A$(INT(RND*16));" ";B$(INT(RND*16));" ";C$(INT(RND*16))
  76. 660  LPRINT
  77. 670  NEXT Q
  78. 680  LPRINT CHR$(27) CHR$(72) : REM DOUBLE STRIKE OFF
  79. 690  CLS:PRINT:PRINT:INPUT"DO YOU WANT TO CONTINUE (Y/N)";G$
  80. 691  IF G$ = "Y" OR G$ = "y" THEN GOTO 270
  81. 692  CLS:PRINT:PRINT:PRINT"GOOD COMMUNICATIONS TO YOU."
  82. 693  END
  83. 700  DATA INTEGRATED,MANAGEMENT,OPTIONS
  84. 710  DATA TOTAL,ORGANIZATIONAL,FLEXIBILITY
  85. 720  DATA SYSTEMATIZED,MONITORED,CAPABILITY
  86. 730  DATA PARALLEL,RECIPROCAL,MOBILITY
  87. 740  DATA FUNCTIONAL,DIGITAL,PROGRAMMING
  88. 750  DATA RESPONSIVE,LOGIC,CONCEPT
  89. 760  DATA OPTICAL,TRANSITIONAL,TIME-PHASE
  90. 770  DATA SYNCHRONIZED,INCREMENTAL,PROJECTION
  91. 780  DATA COMPATIBLE,THIRD-GENERATION,HARDWARE
  92. 790  DATA BALANCED,POLICY,CONTINGENCY
  93. 800  DATA SYSTEMATIC,FORE-FRONT,IMPLEMENTATION
  94. 810  DATA COMPLETE,DATA-BASED,SOLUTION
  95. 820  DATA PLANNED,ANTICIPATED,GOALS
  96. 830  DATA UNIQUE,PRECIPITATED,RESULTS
  97. 840  DATA INTERFACED, CALCULATED,CONCLUSIONS
  98. 850  DATA QUALIFIED,PRECISION,FUNCTIONALITY
  99. 49999  STOP
  100. 50000  REM ***** AUTO SAVER BELOW ***********
  101. 50005  SAVE"GOBBLE.BAS"
  102. 50010  SAVE"B:GOBBLE.BAS"
  103. 50020  STOP
  104. 50030  REM *******  THIS SETS THE PROGRAMMING KEYS ********************
  105. 50100  KEY 5,"DATA "+CHR$(34):KEY 6,"GOTO ":KEY 7,"PRINT:":KEY 8,"PRINT "+CHR$(34):KEY 9,"LPRINT:":KEY 10,"LPRINT "+CHR$(34)
  106.