home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCICAL / MMBIOTUT / MMPLAY.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  2.5 KB  |  69 lines
  1. 1000  DEFINT A-Z:KEY OFF:SCREEN 0,1:COLOR 0,0,0:CLS
  2. 1001  COMMON UMSEG%(),NCWIN,TSCR,LESN,PN$
  3. 1010  FOR I=1 TO 10:KEY I,"":NEXT
  4. 1220  COLOR 0,0,0:CLS:WIDTH 40:COLOR 15,1
  5. 1230  IK$=INKEY$:IF IK$<>"" GOTO 1230
  6. 1240  LOCATE 5,6,0:PRINT STRING$(30,4)
  7. 1250  LOCATE 6,6:PRINT CHR$(4)+STRING$(28,32)+CHR$(4)
  8. 1260  LOCATE 7,6:PRINT CHR$(4)+"     M A T C H M A K E R    "+CHR$(4)
  9. 1270  LOCATE 8,6:PRINT CHR$(4)+STRING$(28,32)+CHR$(4)
  10. 1280  LOCATE 9,6:PRINT CHR$(4)+STRING$(28,32)+CHR$(4)
  11. 1290  LOCATE 10,6:PRINT CHR$(4)+"      TYPE  YOUR  NAME:     "+CHR$(4)
  12. 1300  LOCATE 11,6:PRINT CHR$(4)+STRING$(28,32)+CHR$(4)
  13. 1310  LOCATE 12,6:PRINT CHR$(4)+STRING$(28,32)+CHR$(4)
  14. 1320  LOCATE 13,6:PRINT CHR$(4)+STRING$(28,32)+CHR$(4)
  15. 1330  LOCATE 14,6:PRINT CHR$(4)+"         ----------         "+CHR$(4)
  16. 1340  LOCATE 15,6:PRINT CHR$(4)+"    (10  CHARACTER MAX.)    "+CHR$(4)
  17. 1350  LOCATE 16,6:PRINT CHR$(4)+STRING$(28,32)+CHR$(4)
  18. 1360  LOCATE 17,6:PRINT CHR$(4)+"      (THEN PRESS "+CHR$(17)+STRING$(2,196)+CHR$(217)+")     "+CHR$(4)
  19. 1370  LOCATE 18,6:PRINT CHR$(4)+STRING$(28,32)+CHR$(4)
  20. 1380  LOCATE 19,6:PRINT CHR$(4)+STRING$(28,32)+CHR$(4)
  21. 1390  LOCATE 20,6:PRINT STRING$(30,4)
  22. 1400  IK$=INKEY$:IF IK$<>"" THEN GOTO 1400
  23. 1410  COLOR 7,0:FDLEN=10:TYPERR=0:XPOSMAX=25:XPOSMIN=16:XPOS=16:YPOS=13
  24. 1420  FDINBUF$=SPACE$(FDLEN):LOCATE YPOS,XPOS,0:PRINT FDINBUF$
  25. 1430  LOCATE YPOS,XPOS,1,7,0
  26. 1440  IK$=INKEY$:IF IK$="" THEN GOTO 1440
  27. 1450  L=LEN(IK$):IF L=2 THEN IK$=RIGHT$(IK$,1)
  28. 1453  IF IK$=CHR$(27) THEN CLOSE:CHAIN "MMHELLO",1000
  29. 1455  IF IK$=CHR$(8) THEN GOSUB 1540:GOTO 1430
  30. 1460  IF L=2 THEN IF IK$="K" THEN GOSUB 1510:GOTO 1430 ELSE IF IK$="M" THEN GOSUB 1550:GOTO 1430
  31. 1470  IF L=2 THEN IF IK$="S" THEN GOSUB 1590:GOTO 1430 ELSE IF IK$="R" THEN GOSUB 1650:GOTO 1430
  32. 1480  IF IK$=CHR$(13) THEN IF FDINBUF$=SPACE$(10) THEN CHAIN "mmEDITOR",1000 ELSE GOTO 1810
  33. 1490  GOSUB 1750:IF XPOS < XPOSMAX THEN XPOS=XPOS+1
  34. 1500  GOTO 1430
  35. 1510  IF XPOS-XPOSMIN+1 > 0 THEN XPOS=XPOS-1
  36. 1530  IF XPOS-XPOSMIN+1 < 1 THEN PRINT CHR$(7):XPOS=XPOS+1
  37. 1538  RETURN
  38. 1540  IF XPOS-XPOSMIN+1 > 0 THEN XPOS=XPOS-1
  39. 1541  IF XPOS>=XPOSMIN THEN LOCATE YPOS,XPOS+1,0:PRINT " ":MID$(FDINBUF$,XPOS-XPOSMIN+2,1)=" "
  40. 1542  IF XPOS-XPOSMIN+1 < 1 THEN PRINT CHR$(7):XPOS=XPOS+1
  41. 1543  RETURN
  42. 1550  IF XPOS <= XPOSMAX THEN XPOS=XPOS+1
  43. 1570  IF XPOS > XPOSMAX THEN PRINT CHR$(7):XPOS=XPOS-1
  44. 1580  RETURN
  45. 1590  PTR=XPOS-XPOSMIN+1:RESTBUF$=MID$(FDINBUF$,PTR+1)+SPACE$(1)
  46. 1610  LOCATE ,,0
  47. 1620  PRINT RESTBUF$;:FDINBUF$=LEFT$(FDINBUF$,PTR-1)+RESTBUF$
  48. 1630  TYPERR=0
  49. 1640  RETURN
  50. 1650  LOCATE YPOS,XPOS,1,4,7:IK$=INKEY$:IF IK$="" THEN GOTO 1650
  51. 1670  L=LEN(IK$):IF L=2 THEN IK$=RIGHT$(IK$,1)
  52. 1675  IF IK$=CHR$(8) THEN GOTO 1455
  53. 1680  IF L=2 THEN IF IK$="K" OR IK$="M" THEN GOTO 1460 ELSE IF IK$="S" THEN GOTO 1470 ELSE IF IK$="R" THEN RETURN
  54. 1690  IF IK$=CHR$(13) THEN GOTO 1480
  55. 1700  PTR=XPOS-XPOSMIN+1:RESTBUF$=MID$(FDINBUF$,PTR,FDLEN-PTR)
  56. 1710  GOSUB 1750:LOCATE ,,0:PRINT RESTBUF$;:XPOS=XPOS+1
  57. 1720  IF XPOS > XPOSMAX THEN PRINT CHR$(7):XPOS=XPOS-1:RETURN
  58. 1730  IF TYPERR=0 THEN FDINBUF$=LEFT$(FDINBUF$,PTR)+RESTBUF$
  59. 1740  GOTO 1650
  60. 1750  LOCATE ,,0
  61. 1765  IF IK$=" " OR IK$="-" THEN 1780
  62. 1770  IF (IK$ < "A") OR (IK$ > "Z" AND IK$ < "a") OR (IK$ > "z") THEN 1790
  63. 1780  MID$(FDINBUF$,XPOS-XPOSMIN+1)=IK$:PRINT IK$;:TYPERR=0:RETURN
  64. 1790  COLOR 23:PRINT CHR$(7);:XPOS=XPOS-1:TYPERR=1:COLOR 7:RETURN
  65. 1810  N$=FDINBUF$
  66. 1820  IF RIGHT$(N$,1)=" " THEN N$=LEFT$(N$,LEN(N$)-1):GOTO 1820
  67. 1840  IF N$="" THEN PN$="???" ELSE PN$=N$
  68. 1850  CHAIN "MMldir",1000
  69.