home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCICAL / MMBIOTUT / MMGEND.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  1.1 KB  |  29 lines
  1. 1000  DEFINT A-Z
  2. 1001  COMMON UMSEG%()
  3. 1002  DIM HNAME$(10),HSCORE$(10)
  4. 1010  CLS:SCREEN 1,0:COLOR 0,0
  5. 1030  CL=3:CO=6:FI=27:INV=30:OV=36:PC=39:RS=42:SP=45:SY=48:TN=51:TX=57:B=0:P=0
  6. 1080  OPEN "MMHONOR.ROL" AS #1 LEN = 15
  7. 1085  FIELD #1, 10 AS F1$, 5 AS F2$
  8. 1090  FOR I=1 TO 10:GET #1,I:HNAME$(I)=F1$:HSCORE$(I)=F2$:NEXT
  9. 1200  GOSUB 2000
  10. 1325  IF IDX>0 THEN LOCATE IDX+7,10:DEF SEG:POKE &H4E,1:PRINT USING "##.";IDX;:PRINT " "+HNAME$(IDX)+"   "+HSCORE$(IDX)
  11. 1330  DEF SEG=UMSEG%(3):CALL INV:Z=255:CALL SP(Z):F=3:CALL CO(B,P,F)
  12. 1340  X=6:Y=23:CALL PC(X,Y):T$=" PRESS ANY KEY TO CONTINUE ...":CALL TX(T$):CALL INV
  13. 1350  A$=INKEY$:IF A$<>"" GOTO 1350
  14. 1360  A$=INKEY$:IF A$="" GOTO 1360
  15. 1400  CLOSE:CHAIN "MMPLAY",1000
  16. 2000  SCREEN 1,0:COLOR 0,0:DEF SEG=UMSEG%(3)
  17. 2010  LOCATE 1,3,0:PRINT "*****   M A T C H  M A K E R   *****"
  18. 2020  Z=110:CALL CL(Z):Z=1:CALL SY(Z):F=1:CALL CO(B,P,F):Z=250:CALL SP(Z)
  19. 2030  X=6:Y=2:CALL PC(X,Y):T$="HONOR ROLL":CALL TX(T$)
  20. 2040  F=2:CALL CO(B,P,F):CALL PC(X,Y):Z=1:CALL OV(Z):Z=0:CALL CL(Z):T$="__________":CALL TX(T$):Z=0:CALL OV(Z)
  21. 2050  F=3:CALL CO(B,P,F):Z=255:CALL SP(Z):Z=2:CALL SY(Z):CALL INV:Y=6:X=10:CALL PC(X,Y):T$=" NAME:":CALL TX(T$)
  22. 2065  Y=6:X=26:CALL PC(X,Y):T$=" SCORE:":CALL TX(T$):CALL INV
  23. 2070  FOR I=1 TO 10
  24. 2080    LOCATE I+7,10:PRINT USING "##.";I;:PRINT " "+HNAME$(I)+"   "+HSCORE$(I)
  25. 2090  NEXT
  26. 2100  F=2:CALL CO(B,P,F):Z=255:CALL SP(Z)
  27. 2115  X=(40-LEN(MSG$))\2+1:Y=20:CALL PC(X,Y):T$=MSG$:CALL TX(T$)
  28. 2130  RETURN
  29.