Random Sentences

Gallery

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*
1000 RAND 
1010 FOR I=1 TO INT (RND*10)
1020 LET X=(RND*65535)
1030 NEXT I
1039 REM *PICK RANDOM DATA*
1040 LET X=INT (RND*5)+1
1050 FOR N=1 TO LEN E$
1060 IF E$(N)="," THEN GOTO 2000
1070 NEXT N
1080 RETURN 
1999 REM *FIND SEPARATOR*
2000 LET A=A+1
2010 IF A=X THEN GOTO 3000
2020 LET M=N+1
2030 GOTO 1070
2999 REM *FIND RANDOM DATA*
3000 PRINT E$(M TO N-1);" ";
3010 LET A=0
3020 LET M=1
3030 GOTO 1080
3040 CLEAR 
3050 SAVE "1029%5"
3060 RUN