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