home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCICAL / MMBIOTUT / MMEDITOR.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  1.5 KB  |  45 lines
  1. 100  CLEAR:DEFINT A-Z:KEY OFF:SCREEN 0,1:CLS:WIDTH 80
  2. 101  COMMON UMSEG%()
  3. 110  FOR I=1 TO 10:KEY I,"":NEXT
  4. 330  COLOR 0,0,0:CLS:WIDTH 40:COLOR 0,14
  5. 340  IK$=INKEY$:IF IK$<>"" GOTO 340
  6. 350  LOCATE 5,6:PRINT STRING$(8,4)+"  MATCHMAKER  "+STRING$(8,4)
  7. 360  LOCATE 6,6:PRINT CHR$(4)+STRING$(28,32)+CHR$(4)
  8. 365  LOCATE 7,6: PRINT CHR$(4)+"    ---  E D I T O R  ---   "+CHR$(4)
  9. 370  LOCATE 8,6:PRINT CHR$(4)+STRING$(28,32)+CHR$(4)
  10. 380  LOCATE 9,6: PRINT CHR$(4)+"    1.  CREATE NEW LESSON   "+CHR$(4)
  11. 390  LOCATE 10,6:PRINT CHR$(4)+"    2.  EDIT LESSON         "+CHR$(4)
  12. 400  LOCATE 11,6:PRINT CHR$(4)+"    3.  ERASE LESSON        "+CHR$(4)
  13. 410  LOCATE 12,6:PRINT CHR$(4)+"    4.  RENAME LESSON       "+CHR$(4)
  14. 420  LOCATE 13,6:PRINT CHR$(4)+"    5.  RUN MATCHMAKER      "+CHR$(4)
  15. 430  LOCATE 14,6:PRINT CHR$(4)+"    6.  EXIT                "+CHR$(4)
  16. 440  LOCATE 15,6:PRINT CHR$(4)+STRING$(28,32)+CHR$(4)
  17. 450  LOCATE 16,6:PRINT CHR$(4)+"       MAKE  SELECTION      "+CHR$(4)
  18. 460  LOCATE 17,6:PRINT CHR$(4)+STRING$(28,32)+CHR$(4)
  19. 470  LOCATE 18,6:PRINT CHR$(4)+"      (THEN PRESS "+CHR$(17)+STRING$(2,196)+CHR$(217)+")     "+CHR$(4)
  20. 480  LOCATE 19,6:PRINT CHR$(4)+STRING$(28,32)+CHR$(4)
  21. 500  LOCATE 20,6:PRINT STRING$(30,4)
  22. 510  TYPERR=1
  23. 520  COLOR 0,14:LOCATE 16,11,1,0,7
  24. 530  IK$=INKEY$:IF IK$="" THEN GOTO 530
  25. 540  IF IK$=CHR$(13) THEN IF TYPERR=0 GOTO 589 ELSE GOSUB 620:GOTO 520
  26. 550  PRINT RIGHT$(IK$,1)
  27. 560  COLOR 0,0:LOCATE 23,1,0:PRINT STRING$(30,32):LOCATE 16,11,1
  28. 570  IF IK$<="6" AND IK$>="1" THEN S$=IK$:TYPERR=0:ELSE TYPERR=1
  29. 580  GOTO 520
  30. 589  MSG$="LOADING LESSON DIRECTORY..."
  31. 590  IF S$="1" THEN GOSUB 700:CHAIN "MMCREATE",1000
  32. 591  IF S$="2" THEN GOSUB 700:CHAIN "MMEDIT",1000
  33. 592  IF S$="3" THEN GOSUB 700:CHAIN "MMERASE",1000
  34. 593  IF S$="4" THEN GOSUB 700:CHAIN "MMRENAME",1000
  35. 594  IF S$="5" THEN CHAIN "MMPLAY",1000
  36. 595  IF S$="6" THEN CHAIN "MMHELLO",1000
  37. 620  COLOR 12,0:BEEP:LOCATE 23,1,0:PRINT "INVALID SELECTION, RE-ENTER!":RETURN
  38. 700  COLOR 0,0,0:CLS:WIDTH 40:COLOR 23,1
  39. 720  L=LEN(MSG$)+2:P=(40-L)\2+1
  40. 730  LOCATE 12,P,0:PRINT SPACE$(L)
  41. 740  LOCATE 13,P,0:PRINT " "+MSG$+" "
  42. 750  LOCATE 14,P,0:PRINT SPACE$(L)
  43. 760  RETURN
  44. 1000  GOTO 100
  45.