home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib25b.dsk / CHOPPER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  56 lines
  1. 10  REM  **********************
  2. 20  REM  *      CHOPPER       *
  3. 30  REM  *   BY PAUL RAYMER   *
  4. 40  REM  * COPYRIGHT (C) 1985 *
  5. 50  REM  * BY MICROSPARC, INC *
  6. 60  REM  * CONCORD, MA. 01742 *
  7. 70  REM  **********************
  8. 80  TEXT : HOME : CLEAR 
  9. 90 B$ = "DON'T YOU AGREE THAT EVERYONE KNOWS THAT "
  10. 100 R1 =  INT(5 * RND(1)) +1
  11. 110  ON R1 GOSUB 340,350,360,370,380
  12. 120 B$ = B$ +A$
  13. 130 R2 =  INT(5 * RND(1)) +1
  14. 140  ON R2 GOSUB 400,410,420,430,440
  15. 150 B$ = B$ +A$
  16. 160 B$ = B$ +" MAKE MUCH"
  17. 170 R3 =  INT(5 * RND(1)) +1
  18. 180  ON R3 GOSUB 460,470,480,490,500
  19. 190 B$ = B$ +A$
  20. 200 R4 =  INT(5 * RND(1)) +1
  21. 210  ON R4 GOSUB 520,530,540,550,560
  22. 220 B$ = B$ +A$:A$ = B$
  23. 230 D = 39
  24. 240  IF  LEN(A$) <D  THEN  PRINT : PRINT A$: END 
  25. 250  FOR X = 1 TO  LEN(A$)
  26. 260 L$ =  MID$ (A$,X,1)
  27. 270  IF  MID$ (A$,D,1) < >" "  THEN D = D -1: GOTO 270
  28. 280  NEXT X
  29. 290 W$ =  LEFT$(A$,D)
  30. 300 N$ =  RIGHT$(A$, LEN(A$) -D)
  31. 310  PRINT : PRINT W$
  32. 320 A$ = N$: GOTO 230
  33. 330  REM === ADJECTIVES ===
  34. 340 A$ = "MOST BIG": RETURN 
  35. 350 A$ = "VERY FAT": RETURN 
  36. 360 A$ = "SOME SKINNY": RETURN 
  37. 370 A$ = "EXTREMELY SHORT": RETURN 
  38. 380 A$ = "ALMOST ALL OF THE TALL": RETURN 
  39. 390  REM === NOUNS ===
  40. 400 A$ = " PEOPLE FROM ITALY": RETURN 
  41. 410 A$ = " FOLKS FROM SASKATCHEWAN": RETURN 
  42. 420 A$ = " NATIVES OF GERMANY": RETURN 
  43. 430 A$ = " SPANIARDS": RETURN 
  44. 440 A$ = " PLAIN OLD AMERICANS": RETURN 
  45. 450  REM  === ADJECTIVES ===
  46. 460 A$ = " FASTER": RETURN 
  47. 470 A$ = " NICER AND MORE POLITE": RETURN 
  48. 480 A$ = " KINDER": RETURN 
  49. 490 A$ = " NEATER": RETURN 
  50. 500 A$ = " SEXIER": RETURN 
  51. 510  REM === NOUNS ===
  52. 520 A$ = " PROFESSIONAL ATHLETES.": RETURN 
  53. 530 A$ = " LOVERS!": RETURN 
  54. 540 A$ = " PARENTS.": RETURN 
  55. 550 A$ = " FARMERS!": RETURN 
  56. 560 A$ = " COMPUTER PROGRAMMERS?": RETURN