home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCICAL / MMBIOTUT / MMLDIR.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  2.3 KB  |  60 lines
  1. 1000  SCREEN 0,1:COLOR 0,0,0:LOCATE ,,0:DEFINT A-Z
  2. 1002  COMMON UMSEG%(),LESN,PN$,NCWIN,TSC
  3. 1010  DIM LESSON$(46)
  4. 1080  OPEN "MMHOME.dir" AS #1 LEN = 95
  5. 1085  FIELD #1, 8 AS F1$, 2 AS F2$,2 AS F3$,2 AS F4$,2 AS F5$, 2 AS F6$,15 AS F7$,30 AS F8$,32 AS F9$
  6. 1170  FOR I=1 TO 45
  7. 1180    GET #1,I:LESSON$(I)=F1$
  8. 1200  NEXT
  9. 1230  SCREEN 0,1:COLOR 0,0,0:CLS:WIDTH 80:COLOR 0,15,0:LOCATE ,,0
  10. 1250  LOCATE 1,6:PRINT SPACE$(25)+"M A T C H M A K E R"+SPACE$(26)
  11. 1260  LOCATE 2,6:PRINT "     "+STRING$(19,205)+"  LESSON  DIRECTORY  "+STRING$(19,205)+SPACE$(6)
  12. 1270  LOCATE 3,6:PRINT SPACE$(70)
  13. 1280  FOR I=1 TO 15
  14. 1290    LOCATE I+3,6:PRINT USING "     ##.  ";I;:PRINT USING "\      \";LESSON$(I);
  15. 1300    PRINT SPACE$(10);:PRINT USING "##.  ";I+15;:PRINT USING "\      \";LESSON$(I+15);
  16. 1310    PRINT SPACE$(10);:PRINT USING "##.  ";I+30;:PRINT USING "\      \";LESSON$(I+30);
  17. 1320    PRINT SPACE$(6)
  18. 1330  NEXT
  19. 1350  IK$=INKEY$:IF IK$<>"" GOTO 1350
  20. 1360  LOCATE 20,6:COLOR 15,0:PRINT "CHOOSE A LESSON NUMBER THEN ";
  21. 1380  COLOR 7:PRINT "Press "+CHR$(17)+STRING$(2,196)+CHR$(217);:COLOR 15:PRINT " :"
  22. 1385  LOCATE 22,6:PRINT "(I WILL ";:COLOR 0,15:PRINT " PLAY ";:COLOR 15,0:PRINT " THE LESSON YOU SELECT)"
  23. 1390  FDLEN=2:TYPERR=1:XPOSMAX=48:XPOSMIN=47:XPOS=47:YPOS=20
  24. 1400  FDINBUF$=SPACE$(FDLEN):COLOR 6,0:LOCATE YPOS,XPOS,0:PRINT FDINBUF$
  25. 1410  COLOR 0,6:LOCATE YPOS,XPOS,1,0,7
  26. 1420  IK$=INKEY$:IF IK$="" THEN GOTO 1420
  27. 1425  IF IK$=CHR$(27) GOTO 9000
  28. 1430  L=LEN(IK$):IF L=2 THEN IK$=RIGHT$(IK$,1)
  29. 1435  IF IK$=CHR$(8) THEN GOSUB 1500:GOTO 1410
  30. 1440  IF L=2 THEN IF IK$="K" THEN GOSUB 1490:GOTO 1410 ELSE IF IK$="M" THEN GOSUB 1530:GOTO 1410
  31. 1460  IF IK$=CHR$(13) THEN IF FDINBUF$<>"  " GOTO 1620 ELSE GOTO 9000
  32. 1470  COLOR 0,0:LOCATE 23,6:PRINT SPACE$(50):COLOR 0,7:GOSUB 1580:IF XPOS < XPOSMAX THEN XPOS=XPOS+1
  33. 1480  GOTO 1410
  34. 1490  IF XPOS-XPOSMIN+1 > 0 THEN XPOS=XPOS-1
  35. 1492  IF XPOS-XPOSMIN+1 < 1 THEN BEEP:XPOS=XPOS+1
  36. 1493  RETURN
  37. 1500  IF XPOS-XPOSMIN+1 > 0 THEN XPOS=XPOS-1
  38. 1501  IF XPOS >= XPOSMIN THEN LOCATE YPOS,XPOS+1:PRINT " ":FDINBUF$=LEFT$(FDINBUF$,1)+" "
  39. 1510  IF XPOS-XPOSMIN+1 < 1 THEN BEEP:XPOS=XPOS+1
  40. 1520  RETURN
  41. 1530  REM ===================================================  CURSOR RIGHT KEY
  42. 1540  IF XPOS <= XPOSMAX THEN XPOS=XPOS+1
  43. 1550  IF XPOS > XPOSMAX THEN BEEP:XPOS=XPOS-1
  44. 1560  RETURN
  45. 1570  REM =======================================  VALIDATE ENTERED DATA AND ECHO
  46. 1580  LOCATE YPOS,XPOS,0
  47. 1590  IF (IK$ < "0" OR IK$ > "9") THEN GOTO 1610 ELSE GOTO 1600
  48. 1600  MID$(FDINBUF$,XPOS-XPOSMIN+1)=IK$:COLOR 14,0:PRINT IK$;:TYPERR=0:RETURN
  49. 1610  BEEP:XPOS=XPOS-1:TYPERR=1:RETURN
  50. 1620  LESN=VAL(FDINBUF$)
  51. 1630  IF LESN>45 OR LESN<1 THEN BEEP:TYPERR=1:XPOS=XPOSMIN:GOTO 1400
  52. 1640  IF LEFT$(LESSON$(LESN),1)="-" THEN GOSUB 1700:XPOS=XPOSMIN:GOTO 1400 ELSE GOTO 2000
  53. 1700  BEEP:COLOR 12,0:LOCATE 23,6,0:PRINT "LESSON ";LESN;" IS EMPTY, PLEASE RE-ENTER!":COLOR 0,7:RETURN
  54. 2000  COLOR 0,0,0:CLS:WIDTH 40:COLOR 31,1,0
  55. 2010  LOCATE 11,11,0:PRINT SPACE$(21)
  56. 2020  LOCATE 12,11:PRINT " LOADING  LESSON ... "
  57. 2030  LOCATE 13,11:PRINT SPACE$(21)
  58. 2040  CLOSE:CHAIN "mmplayl",1000
  59. 9000  CLOSE:LOCATE ,,0:COLOR 0,0:PRINT FRE(0):CHAIN "mmplay",1000
  60.