home *** CD-ROM | disk | FTP | other *** search
- 10 REM **********************
- 20 REM * CHOPPER *
- 30 REM * BY PAUL RAYMER *
- 40 REM * COPYRIGHT (C) 1985 *
- 50 REM * BY MICROSPARC, INC *
- 60 REM * CONCORD, MA. 01742 *
- 70 REM **********************
- 80 TEXT : HOME : CLEAR
- 90 B$ = "DON'T YOU AGREE THAT EVERYONE KNOWS THAT "
- 100 R1 = INT(5 * RND(1)) +1
- 110 ON R1 GOSUB 340,350,360,370,380
- 120 B$ = B$ +A$
- 130 R2 = INT(5 * RND(1)) +1
- 140 ON R2 GOSUB 400,410,420,430,440
- 150 B$ = B$ +A$
- 160 B$ = B$ +" MAKE MUCH"
- 170 R3 = INT(5 * RND(1)) +1
- 180 ON R3 GOSUB 460,470,480,490,500
- 190 B$ = B$ +A$
- 200 R4 = INT(5 * RND(1)) +1
- 210 ON R4 GOSUB 520,530,540,550,560
- 220 B$ = B$ +A$:A$ = B$
- 230 D = 39
- 240 IF LEN(A$) <D THEN PRINT : PRINT A$: END
- 250 FOR X = 1 TO LEN(A$)
- 260 L$ = MID$ (A$,X,1)
- 270 IF MID$ (A$,D,1) < >" " THEN D = D -1: GOTO 270
- 280 NEXT X
- 290 W$ = LEFT$(A$,D)
- 300 N$ = RIGHT$(A$, LEN(A$) -D)
- 310 PRINT : PRINT W$
- 320 A$ = N$: GOTO 230
- 330 REM === ADJECTIVES ===
- 340 A$ = "MOST BIG": RETURN
- 350 A$ = "VERY FAT": RETURN
- 360 A$ = "SOME SKINNY": RETURN
- 370 A$ = "EXTREMELY SHORT": RETURN
- 380 A$ = "ALMOST ALL OF THE TALL": RETURN
- 390 REM === NOUNS ===
- 400 A$ = " PEOPLE FROM ITALY": RETURN
- 410 A$ = " FOLKS FROM SASKATCHEWAN": RETURN
- 420 A$ = " NATIVES OF GERMANY": RETURN
- 430 A$ = " SPANIARDS": RETURN
- 440 A$ = " PLAIN OLD AMERICANS": RETURN
- 450 REM === ADJECTIVES ===
- 460 A$ = " FASTER": RETURN
- 470 A$ = " NICER AND MORE POLITE": RETURN
- 480 A$ = " KINDER": RETURN
- 490 A$ = " NEATER": RETURN
- 500 A$ = " SEXIER": RETURN
- 510 REM === NOUNS ===
- 520 A$ = " PROFESSIONAL ATHLETES.": RETURN
- 530 A$ = " LOVERS!": RETURN
- 540 A$ = " PARENTS.": RETURN
- 550 A$ = " FARMERS!": RETURN
- 560 A$ = " COMPUTER PROGRAMMERS?": RETURN