home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCICAL / MMBIOTUT / MMHELLO.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  2.0 KB  |  55 lines
  1. 100  DEFINT A-Z:COLOR 0,0,0:SCREEN 1,0
  2. 101  COMMON UMSEG%()
  3. 116  DEF SEG=UMSEG%(3):CL=3:CO=6:DE=9:DP=15:PC=39:SP=45:TX=57
  4. 120  B=1:P=1:F=3:CALL CO(B,P,F)
  5. 121  T$="M A T C H":X=2:Y=2:CALL PC(X,Y):CALL TX(T$)
  6. 122  F=3:CALL CO(B,P,F):T$="M A K E R":X=6:Y=3:CALL PC(X,Y):CALL TX(T$)
  7. 123  LOCATE 6,30:PRINT "TM"
  8. 126  F=1:CALL CO(B,P,F):X=256:Y=0:OFSET=&H0:CALL DP(OFSET,X,Y)
  9. 130  F=3:CALL CO(B,P,F)
  10. 170  LOCATE 19,2:PRINT "AMERICAN  EDUCATIONAL  COMPUTER,  INC."
  11. 180  LOCATE 20,2:PRINT "COPYRIGHT 1984      PALO  ALTO, CALIF."
  12. 200  F=2:CALL CO(B,P,F):Z=50:CALL CL(Z):S=255:CALL SP(S)
  13. 201  OPEN "MMHDR.TXT" AS #1 LEN = 15
  14. 202  FIELD #1, 15 AS FD$: GET #1,1: Z=16
  15. 203  Z=Z-1:IF ((Z > 0) AND (MID$(FD$,Z,1) = " ")) THEN GOTO 203 ELSE T$ = LEFT$(FD$,Z)
  16. 210  CLOSE:X=(20-LEN(T$))\2+1:Y=7:CALL PC(X,Y):CALL TX(T$)
  17. 220  LOCATE 15,(X-1)*2+1:PRINT STRING$(LEN(T$)*2,"=")
  18. 266  DEF SEG
  19. 290  IK$=INKEY$:IF IK$<>"" THEN GOTO 290
  20. 295  DEF SEG:POKE &H4E,1
  21. 300  LOCATE 23,2:PRINT "*****  PRESS  "+CHR$(17)+STRING$(2,45)+CHR$(39)+"  TO CONTINUE  *****"
  22. 310  IK$=INKEY$:IF IK$<>CHR$(13) THEN GOTO 310
  23. 325  SCREEN 0,1:COLOR 0,0,0   '*** CLEAR LINE 25
  24. 330  WIDTH 40:COLOR 0,14
  25. 340  IK$=INKEY$:IF IK$<>"" GOTO 340
  26. 350  LOCATE 5,6:PRINT STRING$(8,4)+"  MATCHMAKER  "+STRING$(8,4)
  27. 360  LOCATE 6,6:PRINT CHR$(4)+STRING$(28,32)+CHR$(4)
  28. 370  LOCATE 7,6:PRINT CHR$(4)+STRING$(28,32)+CHR$(4)
  29. 380  LOCATE 8,6: PRINT CHR$(4)+"    1.  INSTRUCTIONS        "+CHR$(4)
  30. 390  LOCATE 9,6:PRINT CHR$(4)+STRING$(28,32)+CHR$(4)
  31. 400  LOCATE 10,6:PRINT CHR$(4)+"    2.  PLAY MATCHMAKER     "+CHR$(4)
  32. 410  LOCATE 11,6:PRINT CHR$(4)+STRING$(28,32)+CHR$(4)
  33. 420  LOCATE 12,6:PRINT CHR$(4)+"    3.  BYE                 "+CHR$(4)
  34. 430  LOCATE 13,6:PRINT CHR$(4)+STRING$(28,32)+CHR$(4)
  35. 440  LOCATE 14,6:PRINT CHR$(4)+STRING$(28,32)+CHR$(4)
  36. 450  LOCATE 15,6:PRINT CHR$(4)+"       MAKE  SELECTION      "+CHR$(4)
  37. 460  LOCATE 16,6:PRINT CHR$(4)+STRING$(28,32)+CHR$(4)
  38. 470  LOCATE 17,6:PRINT CHR$(4)+"      (THEN PRESS "+CHR$(17)+STRING$(2,196)+CHR$(217)+")     "+CHR$(4)
  39. 480  LOCATE 18,6:PRINT CHR$(4)+STRING$(28,32)+CHR$(4)
  40. 490  LOCATE 19,6:PRINT CHR$(4)+STRING$(28,32)+CHR$(4)
  41. 500  LOCATE 20,6:PRINT STRING$(30,4)
  42. 510  TYPERR=1
  43. 520  COLOR 0,14:LOCATE 15,11,1,0,7
  44. 530  IK$=INKEY$:IF IK$="" THEN GOTO 530
  45. 540  IF IK$=CHR$(13) THEN IF TYPERR=0 GOTO 590 ELSE GOSUB 620:GOTO 520
  46. 550  PRINT RIGHT$(IK$,1)
  47. 560  COLOR 0,0:LOCATE 23,1,0:PRINT STRING$(30,32):LOCATE 15,11,1
  48. 570  IF IK$<="3" AND IK$>="1" THEN S$=IK$:TYPERR=0:ELSE TYPERR=1
  49. 580  GOTO 520
  50. 590  IF S$="1" THEN CHAIN "MMINSTRU",1000
  51. 600  IF S$="2" THEN CHAIN "MMPLAY",1000
  52. 610  IF S$="3" THEN COLOR 7,0:WIDTH 80:SYSTEM
  53. 620  COLOR 12,0:BEEP:LOCATE 23,1,0:PRINT "INVALID SELECTION, RE-ENTER!":RETURN
  54. 1000  GOTO 325
  55.