home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib21a.dsk / SEPTEMBER.1984 / TITLE.MAKER.bas < prev   
Encoding:
BASIC Source File  |  2012-11-11  |  993 b   |  36 lines
  1. 10  REM  **********************
  2. 20  REM  *    TITLE.MAKER     *
  3. 30  REM  *   BY PAUL RAYMER   *
  4. 40  REM  * COPYRIGHT (C) 1984 *
  5. 50  REM  * BY MICROSPARC, INC *
  6. 60  REM  * LINCOLN, MA. 01773 *
  7. 70  REM  **********************
  8. 80  TEXT : HOME : CLEAR 
  9. 90  DIM T$(100),N$(20)
  10. 100  FOR X = 1 TO 20
  11. 110  READ N$(X)
  12. 120  NEXT X
  13. 130 P$ = "PAUL'S "
  14. 140 A = 1
  15. 150  FOR B = 1 TO 10
  16. 160  FOR C = 1 TO 10
  17. 170 T$(A) = N$(B) + CHR$(32) +N$(C +10)
  18. 180 A = A +1
  19. 190  NEXT C
  20. 200  NEXT B
  21. 210  SPEED= 176
  22. 220 RR =  INT(100 * RND(1)) +1
  23. 230  FOR X = 1 TO 100
  24. 240 R =  INT(100 * RND(1)) +1
  25. 250  IF RR = X  THEN  INVERSE 
  26. 260  IF T$(R) = "DONE"  THEN G = G +1: GOTO 240
  27. 270  PRINT X;" => ";P$ +T$(R);
  28. 280  REM  HTAB 36:?G
  29. 290  PRINT : REM  DELETE THIS LINE IF 400 IS USED
  30. 300  NORMAL 
  31. 310 T$(R) = "DONE":G = 0
  32. 320  NEXT X
  33. 330  SPEED= 255
  34. 340  END 
  35. 350  DATA  APPLE,TIDBIT,NIBLET,TINY,ONE-MINUTE,PROGRAM,LITTLE,SHORT,QUICK,EASY
  36. 360  DATA  SLICES,CORNER,SECTION,DEPARTMENT,TUTOR,QUICKIES,WHATEVERS,PRIMER,EFFORTS,TUTOR