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