home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / 001 / moc20_zip / MOCINST.OPL < prev    next >
Text File  |  1993-12-31  |  3KB  |  90 lines
  1. PROC mocinst:
  2.     GLOBAL dn$(128),mt%,it%,dt%,st%,fl%
  3.     dn$="" :mt%=1 :it%=1 :fl%=1 :dt%=1 :st%=1
  4.     CLS
  5.     PRINT "    MoC Installation Program"
  6.     PRINT "    ========================"
  7.     PRINT "Insert source SSD or connect PC Link."
  8.     PRINT "Ensure files unpacked to a PC Directory"
  9.     PRINT "Insert destination SSD or ensure enough"
  10.     PRINT "space available in internal RAM."
  11.     PRINT "Space Required: S3:42kb; S3a:51kb."
  12.     PRINT "======================================="
  13.     PRINT "PRESS ANY KEY THEN ESC IF NOT READY YET"
  14.     GET
  15.     rept::
  16.     dINIT "MoC Installation Options"
  17.     dCHOICE mt%,"Machine Type:","SERIES 3,SERIES 3a"
  18.     dFILE dn$,"Files from:",4
  19.     dCHOICE it%,"Program files to:","Internal,A,B"
  20.     dCHOICE dt%,"Manual file to:","Internal,A,B"
  21.     dCHOICE st%,"Sample file to:","Internal,A,B"
  22.     IF DIALOG=0 :RETURN :ENDIF
  23.     IF NOT EXIST(dn$+"MOC.OPA")
  24.         GIPRINT "MoC Files not available"
  25.         GOTO rept::
  26.     ENDIF
  27.     BUSY "Installing MoC...",3
  28.     TRAP MKDIR dir$:(dt%)+"WRD"
  29.     TRAP MKDIR dir$:(st%)+"MOC"
  30.     TRAP MKDIR dir$:(it%)+"APP\LIB"
  31.     TRAP MKDIR dir$:(it%)+"APP\MOC"
  32.     IF mt%=1
  33.         IF EXIST(dir$:(it%)+"LIB\FRAMELIB.OPO")
  34.             LOADM dir$:(it%)+"LIB\FRAMELIB.OPO"
  35.             IF fVer%:<303
  36.                 fl%=0
  37.             ENDIF
  38.             UNLOADM dir$:(it%)+"LIB\FRAMELIB.OPO"
  39.         ENDIF
  40.         IF fl%=1
  41.             COPY dn$+"FRAMELIB.OPO",dir$:(it%)+"APP\LIB\"
  42.         ENDIF
  43.         COPY dn$+"MOCLIB.OPO",dir$:(it%)+"APP\MOC\"
  44.         COPY dn$+"MOCS3.OPO",dir$:(it%)+"APP\MOC\"
  45.         COPY dn$+"MOC.OPA",dir$:(it%)+"APP\"
  46.         COPY dn$+"MOC.WRD",dir$:(dt%)+"WRD\"
  47.     ELSE
  48.         IF EXIST(dir$:(it%)+"LIB\FRAMELBA.OPO")
  49.             LOADM dir$:(it%)+"LIB\FRAMELBA.OPO"
  50.             IF fVer%:<303
  51.                 fl%=0
  52.             ENDIF
  53.             UNLOADM dir$:(it%)+"LIB\FRAMELBA.OPO"
  54.         ENDIF
  55.         IF fl%=1
  56.             COPY dn$+"FRAMELBA.OPO",dir$:(it%)+"APP\LIB\"
  57.         ENDIF
  58.         COPY dn$+"MOCLIBA.OPO",dir$:(it%)+"APP\MOC\"
  59.         COPY dn$+"MOCS3A.OPO",dir$:(it%)+"APP\MOC\"
  60.         COPY dn$+"MOCA.OPA",dir$:(it%)+"APP\MOC.OPA"
  61.         COPY dn$+"MOCA.WRD",dir$:(dt%)+"WRD\MOC.WRD"
  62.         COPY dn$+"CUT*.PIC",dir$:(it%)+"APP\MOC\"
  63.         COPY dn$+"WIND*.PIC",dir$:(it%)+"APP\MOC\"
  64.     ENDIF
  65.     COPY dn$+"EXAMPLE.MOC",dir$:(st%)+"MOC\"
  66.     BUSY OFF
  67.     CLS
  68.     PRINT "    MoC Installation Program"
  69.     PRINT "    ========================"
  70.     PRINT "Files installed correctly. Now, at the"
  71.     PRINT "system level, press PSION-I, select the"
  72.     PRINT "drive which you selected for Program"
  73.     PRINT "files and pick 'Moc.opa'. The MoC icon"
  74.     PRINT "will appear with an example schedule in"
  75.     PRINT "its filelist. The MoC manual is in the"
  76.     PRINT "Word filelist.  PRESS A KEY TO END PGM."
  77.     GET
  78. ENDP
  79.  
  80. PROC dir$:(i%)
  81.     IF i%=1
  82.         RETURN "LOC::M:\"
  83.     ELSEIF i%=2
  84.         RETURN "LOC::A:\"
  85.     ELSE
  86.         RETURN "LOC::B:\"
  87.     ENDIF
  88. ENDP
  89.  
  90.