home *** CD-ROM | disk | FTP | other *** search
/ The First Hungarian Family / The_First_Hungarian_Family_CD-ROM.bin / internet / offlread / 1st200 / d / ins-mme.mdl < prev    next >
Text File  |  1995-07-19  |  2KB  |  59 lines
  1.         SPARKWARE
  2.  
  3.         DISPLAY OFF
  4.         ASSIGN(InsCheck$,"")
  5.         ASSIGN(_Default$,Target$)
  6.         IF COMPARE(Target$,"") THEN
  7.                 ASSIGN(_Default$,@API$(5))
  8.                 IF COMPARE(_Default$,"") THEN ASSIGN(_Default$,_Current$)
  9.                 FILLSCRN(1,1,25,80,32,48,112)
  10.                 IF COLOR THEN
  11.                         BOX(3,5,23,75,143,7,1,1)
  12.                         ASSIGN(Logo$,"142")
  13.                 ELSE
  14.                         BOX(3,5,23,76,143,7,1,1)
  15.                         ASSIGN(Logo$,"15")
  16.                 END IF
  17.                 GOSUB LOGO
  18.                 ASSIGN(InsCheck$,"Yes")
  19.         ELSE
  20.                 SCREEN(2,RESTORE)
  21.         END IF
  22.         DISPLAY ON
  23.         IF NOT COMPARE(@DEFAULT@,"") THEN
  24.                 ASSIGN(SubDir$,_Default$+"MME\")
  25.                 MKDIR SubDir$
  26.                 BOX(15,20,19,60,112,112,1,1)
  27.                 QPRINT("Installing sound files...",17,True,True)
  28.                 MOVE("$$MME",@DEFAULT@)
  29.                 LIST_MOVE("FILES4.LST",SubDir$)
  30.                 KILL "FILES4.LST"
  31.                 KILL "INS-MME.MDL"
  32.                 KILL "GO.BAT"
  33.                 KILL "READ.ME"
  34.                 KILL "README.1ST"
  35.                 SETAPI(SP,77,"")
  36.                 PAUSE 3
  37.         END IF
  38.         IF COMPARE(InsCheck$,"Yes") THEN CLS
  39.         EXIT
  40.  
  41. :LOGO
  42.         BLINK OFF
  43.         BOX(5,8,10,30,29,15,1,1)
  44.         QPRINT("═════════════════",5,11,29,15)
  45.         QPRINT(" ▄▄▄",6,10,30,15)
  46.         QPRINT("█  █",7,10)
  47.         QPRINT("█▄▄▀",8,10)
  48.         QPRINT("    ▀",9,10)
  49.         QPRINT("mail",8,15,26,15)
  50.         QPRINT("@READER@",8,20,31,15)
  51.         QPRINT("2.00",9,25,27,15)
  52.         QPRINT("Copyright 1995 by Mark Herring",5,40,Logo$,Logo$)
  53.         QPRINT("All Rights Reserved",6,40)
  54.         QPRINT("Sparkware",8,40)
  55.         QPRINT("Post Office Box 386",9,40)
  56.         QPRINT("Hendersonville, TN  37077-0386",10,40)
  57.         RETURN
  58.  
  59.