home *** CD-ROM | disk | FTP | other *** search
/ The First Hungarian Family / The_First_Hungarian_Family_CD-ROM.bin / internet / offlread / 1st200 / b / ins-1st2.mdl < prev    next >
Text File  |  1995-07-19  |  2KB  |  66 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.         ASSIGN(Scripts$,_Default$+"SCRIPTS\")
  23.         ASSIGN(Packets$,_Default$+"PACKETS\")
  24.         ASSIGN(Mme$,_Default$+"MME\")
  25.         ASSIGN(QRip$,_Default$+"QRIP\")
  26.         DISPLAY ON
  27.         IF NOT COMPARE(@DEFAULT@,"") THEN
  28.                 MKDIR Mme$
  29.                 MKDIR QRip$
  30.                 BOX(15,20,19,60,112,112,1,1)
  31.                 QPRINT("Installing @READER@ files...",17,True,True)
  32.                 LIST_MOVE("QRIP.LST",QRip$)
  33.                 LIST_MOVE("MME.LST",Mme$)
  34.                 LIST_MOVE("FILES2.LST",_Default$)
  35.                 KILL "FILES2.LST"
  36.                 KILL "QRIP.LST"
  37.                 KILL "MME.LST"
  38.                 KILL "INS-1ST2.MDL"
  39.                 KILL "GO.BAT"
  40.                 KILL "READ.ME"
  41.                 KILL "README.1ST"
  42.                 SETAPI(SP,77,"")
  43.                 PAUSE 3
  44.         END IF
  45.         IF COMPARE(InsCheck$,"Yes") THEN CLS
  46.         EXIT
  47.  
  48. :LOGO
  49.         BLINK OFF
  50.         BOX(5,8,10,30,29,15,1,1)
  51.         QPRINT("═════════════════",5,11,29,15)
  52.         QPRINT(" ▄▄▄",6,10,30,15)
  53.         QPRINT("█  █",7,10)
  54.         QPRINT("█▄▄▀",8,10)
  55.         QPRINT("    ▀",9,10)
  56.         QPRINT("mail",8,15,26,15)
  57.         QPRINT("@READER@",8,20,31,15)
  58.         QPRINT("2.00",9,25,27,15)
  59.         QPRINT("Copyright 1995 by Mark Herring",5,40,Logo$,Logo$)
  60.         QPRINT("All Rights Reserved",6,40)
  61.         QPRINT("Sparkware",8,40)
  62.         QPRINT("Post Office Box 386",9,40)
  63.         QPRINT("Hendersonville, TN  37077-0386",10,40)
  64.         RETURN
  65.  
  66.