home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MISC / HANDICAP / SIGN51_3.ZIP / INDEX1.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1991-07-20  |  2.0 KB  |  55 lines
  1. 5   DIM S$(6000):R=0
  2. 10  KEY OFF:SCREEN 0:WIDTH 80:COLOR   14,1,9:CLS:LOCATE 12,12:PRINT"LOADING MASTER INDEX, PLEASE STAND BY...":COLOR 15
  3. 20  X=1:OPEN "VOCAB.DAT" FOR INPUT AS #1:WHILE NOT EOF(1):INPUT #1,S$(X) :X=X+1:WEND:CLOSE :CLS
  4. 21  GOSUB 109
  5. 25  FOR I=1 TO X STEP 4:R=R+1
  6. 26  IF R=22 THEN R=0 :GOTO 40
  7. 30  PRINT S$(I) TAB(20)S$(I+1) TAB(50)S$(I+2):NEXT:GOTO 109
  8. 40  COLOR 14:PRINT"press key to continue <Q> to quit":COLOR 15
  9. 50  KS$=INKEY$:IF KS$="" THEN 50
  10. 55  IF KS$="Q" OR KS$="q" THEN GOSUB 109
  11. 60  CLS :GOTO 30
  12. 109  CLS:COLOR 14:R=0:LOCATE 4,14:PRINT"M A S T E R  I N D E X "
  13. 110  LOCATE 5,14:PRINT"======================"
  14. 111  COLOR 15
  15. 112  LOCATE 10,12:PRINT"<S> SEARCH FOR A WORD IN LIST"
  16. 120  LOCATE 12,12:PRINT"<L> LIST ALL THE WORDS IN SIGN FRIENDS"
  17. 125  LOCATE 14,12:PRINT"<G> GROUP OF WORDS IN CHAPTER"
  18. 130  LOCATE 16,12:PRINT"<R> RETURN TO MENU":PRINT:PRINT
  19. 140  INPUT "WHICH";Q$
  20. 150  IF Q$="S" THEN GOSUB 500
  21. 160  IF Q$=""THEN 109
  22. 170  IF Q$="R" THEN ERASE S$:CHAIN "TEST3",,ALL
  23. 180  IF Q$="L" THEN CLS:GOTO 25
  24. 185  IF Q$="G" THEN GOSUB 600
  25. 190  IF ASC(Q$)>90 THEN PRINT"Be sure caps lock is on":FOR DL =0 TO 3000+ZZ:NEXT
  26. 200  GOTO 109
  27. 205  GOTO 140
  28. 500  INPUT "WORD OR PHRASE TO LOCATE";X$
  29. 510  FOR I=1 TO X STEP 4:IF X$=S$(I) THEN PRINT S$(I+1);:PRINT TAB(40)S$(I+2):FOR DL=1 TO 4000+ZZ:NEXT:GOTO 550
  30. 520  NEXT
  31. 530  PRINTX$" IS NOT IN LIST AS TYPED.":FOR DL=1 TO 4000+ZZ:NEXT
  32. 540  RETURN
  33. 550  INPUT "Would you like to return to that chapter? (Y/N)";MV$
  34. 555  IF MV$="Y" OR MY$="y" THEN GOTO 5000
  35. 560  IF MV$="N" OR MV$="n" THEN 540
  36. 570  GOTO 550
  37. 600  INPUT "NAME OF CHAPTER";X$
  38. 610  FOR I=2 TO X STEP 4:IF X$=S$(I) THEN PP=1:PRINT S$(I-1),:FOR DL=1 TO 4000+ZZ:NEXT:
  39. 620  NEXT
  40. 630  IF PP=0 THEN PRINT X$" IS NOT IN LIST AS TYPED.":FOR DL=1 TO 4000+ZZ:NEXT
  41. 640  PP=0:RETURN
  42. 5000  ON ERROR GOTO 5003
  43. 5001  GB$=S$(I+3):XX=3:ERASE S$:CHAIN GB$,,ALL
  44. 5002  ON ERROR GOTO 0
  45. 5003  FOR I=1 TO 7:PRINT:NEXT:PRINT "This feature works best with a hard drive system."
  46. 5010  PRINT"However if using floppies, and you wish to go directly to the chapter
  47. 5020  PRINT"you must be sure to have the right disk (containing that) in your drive,"
  48. 5030  PRINT"and then press a key to continue."
  49. 5040  PRINT"The letter of the menu after the option # tells you which disk you need:
  50. 5045  PRINT"If the letter is A then you need the first disk, B then second...."
  51. 5046  PRINT:PRINT:COLOR 14:PRINT"*** Be sure the correct disk is in the drive and then ****":COLOR 12
  52. 5047  PRINT:PRINT:PRINT"                    Press key to continue."
  53. 5050  KI$=INKEY$:IF KI$="" THEN 5050
  54. 5060  CHAIN GB$,,ALL
  55.