Source Code
10 LET M=1
20 LET A=0
30 SCROLL
40 RAND 0
99 REM *SENTENCE SUBJECT*
100 LET A$="DENNIS,GREG,SCOTTY,KENNY,HAL,DONALD,"
110 LET E$=A$
120 GOSUB 1000
199 REM *VERB OR PHRASE*
200 LET B$="SPITS ALL OVER,HATES,KISSES,SITS ON,DROPS,"
210 LET E$=B$
220 GOSUB 1000
299 REM *OBJECT OR PHRASE*
300 LET C$="TOENAILS,DOG,COMPUTER,T.V.,PIZZA PAN,"
310 PRINT "HIS "
320 SCROLL
330 LET E$=C$
340 GOSUB 1000
399 REM *PREDICATE*
400 LET D$="WHILE DRINKING BEER.,LIKE A MANIAC., AND ENJOYS IT.,BUT IS SORRY LATER.,WITH A VENGEANCE.,"
410 LET E$=D$
420 GOSUB 1000
430 SCROLL
439 REM *RESEED TANDOM GENERATOR ROUTINE*
440 IF INT (RND*100)<>5 THEN GOTO 440
450 RUN
999 REM *RANDOM GENERATOR*
\n1000 RAND
\n1010 FOR I=1 TO INT (RND*10)
\n1020 LET X=(RND*65535)
\n1030 NEXT I
\n1039 REM *PICK RANDOM DATA*
\n1040 LET X=INT (RND*5)+1
\n1050 FOR N=1 TO LEN E$
\n1060 IF E$(N)="," THEN GOTO 2000
\n1070 NEXT N
\n1080 RETURN
\n1999 REM *FIND SEPARATOR*
\n2000 LET A=A+1
\n2010 IF A=X THEN GOTO 3000
\n2020 LET M=N+1
\n2030 GOTO 1070
\n2999 REM *FIND RANDOM DATA*
\n3000 PRINT E$(M TO N-1);" ";
\n3010 LET A=0
\n3020 LET M=1
\n3030 GOTO 1080
\n3040 CLEAR
\n3050 SAVE "1029%5"
\n3060 RUN
