home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCICAL / MMBIOTUT / MMINIT.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  953 b   |  37 lines
  1. 100  CLS:KEY OFF:SCREEN 0,1:WIDTH 40
  2. 110  COLOR 15,1,0:LOCATE 9,11,0:PRINT "                     "
  3. 111  LOCATE 10,11:PRINT " M A T C H M A K E R "
  4. 112  LOCATE 11,11:PRINT "                     "
  5. 120  COLOR 31,0:LOCATE 14,11:PRINT "Loading  Program ..."
  6. 130  COMMON UMSEG%()
  7. 140  DIM USERMEM%(3)
  8. 150  DIM UMSEG%(5)
  9. 160  RELO% = &HF9D
  10. 170  UMF0% = 0
  11. 180  UMF1% = 0
  12. 190  UMF2% = 0
  13. 200  UMF3% = 0
  14. 210  UMSEG%(0) = 0
  15. 220  UMSEG%(1) = 64
  16. 230  UMSEG%(2) = 320
  17. 240  UMSEG%(3) = 384
  18. 250  UMSEG%(4) = 0
  19. 260  UMF1% = VARPTR(USERMEM%(0))
  20. 270  POKE(UMF1%+0),&H16
  21. 280  POKE(UMF1%+1),&H58
  22. 290  POKE(UMF1%+2),&HA3
  23. 300  UMF2% = VARPTR(UMF0%)
  24. 310  UMF3% = VARPTR(UMF2%)
  25. 320  POKE(UMF1%+3),PEEK(UMF3%+0)
  26. 330  POKE(UMF1%+4),PEEK(UMF3%+1)
  27. 340  POKE(UMF1%+5),&HCB
  28. 350  CALL UMF1%
  29. 360  UMF0% = UMF0% + 1877
  30. 370  FOR SCNT = 0 TO 4 : UMSEG%(SCNT) = UMSEG%(SCNT) + UMF0% : NEXT SCNT
  31. 380  DEF SEG=UMSEG%(0) :BLOAD "aeclogo.pic",0
  32. 390  DEF SEG=UMSEG%(1) :BLOAD "bigsym.dat",0
  33. 400  DEF SEG=UMSEG%(2) :BLOAD "smallsym.dat",0
  34. 410  DEF SEG=UMSEG%(3) :BLOAD "ibmpc&.lod",0
  35. 420  CALL RELO%(UMSEG%(0),UMSEG%(1),UMSEG%(2),UMSEG%(3),UMSEG%(4))
  36. 430  CHAIN "MMHELLO.BAS",100
  37.