home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / kim21.zip / INSTALL.KIM < prev    next >
Text File  |  1995-12-31  |  21KB  |  632 lines
  1.   
  2.   
  3.   
  4.   rem Datum          :    JUL 1995
  5.   rem Version        :    1.2
  6.   rem Programm       :    Installationsprogramm
  7.   rem Programmierer  :    JK
  8.   
  9.   deffloat a,i,t,flag,taste,ok
  10.   defstring objekt, _suchtext, _tauschtext,ostyp
  11.   deffloat _case , _tausch_key
  12.   defstring _pfad_kim , _pfad_demo
  13.   
  14.   deffloat _def_prompt_len
  15.   
  16.   _def_prompt_len=-1
  17.   
  18.   
  19.   def_palette 1,4,15
  20.   def_palette 2,1,15
  21.   
  22.   
  23.   loadfont "H10","Helv" ,24
  24.   loadfont "H8" ,"Helv",8
  25.   loadfont "T24","Times New Roman Bold Italic",12
  26.   loadfont "C8","Courier" ,8
  27.   
  28.   set_keymap "F1",10001,1
  29.   set_keymap "F2",10002,2
  30.   set_keymap "F3",10003,3
  31.   set_keymap "F4",10004,4
  32.   set_keymap "F5",10005,5
  33.   set_keymap "F6",10006,6
  34.   set_keymap "F7",10007,7
  35.   set_keymap "F8",10008,8
  36.   
  37.   call install()
  38.   
  39.   end
  40.   
  41.   rem ---------------------------------------------------------------------
  42.   rem U N T E R P R O G R A M M E
  43.   rem ---------------------------------------------------------------------
  44.   
  45.   modul install()
  46.     deffloat y,t,ok,laenge
  47.     defstring meier,kennung,version
  48.     
  49.     laenge=35
  50.     
  51.     exist "install.cfg",ok
  52.     
  53.     if ok=1 then
  54.       open 2,"install.cfg","r"
  55.       gets 2,kennung
  56.       gets 2,version
  57.       gets 2,_pfad_kim
  58.       gets 2,_pfad_demo
  59.       close 2
  60.       if kennung<>"KIM" then
  61.         msgbox "Dies ist keine KIM-Installationsdiskette !",0,ok,""
  62.         exitmod
  63.       endif
  64.     else
  65.       msgbox "Wechseln Sie zuerst auf das Installationslaufwerk",0,ok,""
  66.       exitmod
  67.     endif
  68.     
  69.     rem Laden der INSTALL.CFG
  70.     call lade_cfg("install.cfg",0)
  71.     
  72.     def_window "pfad",2,1, 70,11,"","",10;"modal","move off"
  73.     
  74.     def_border "pfad_border"
  75.     def_titel  "pfad_titel",version
  76.     def_prompt "pfad_pr1",5,1,"KIM 2.1 Installation                     ";"H10","color on"
  77.     def_button "pfad_button1",5 ,8,15,""," &Installieren"
  78.     def_button "pfad_button2",23,8,15,""," &Abbruch "
  79.     def_prompt "pfad_pr2",5,3,"KIM Programme  "
  80.     def_string "pfad_in",5,4,laenge,_pfad_kim ;"border"
  81.     def_bitmap "pfad_bild",320,1,150,200,"logo.bmp"
  82.     
  83.     def_prompt "pfad_pr3",5,5,"KIM Beispiele  "
  84.     def_string "pfad_in2",5,6,laenge,_pfad_demo ;"border"
  85.     def_prompt "pfad_pr4",42,7,"                       "
  86.     def_string "pfad_pr5",42,8,25," ";"view only","current off"
  87.     
  88.     color_item "pfad_pr1",1
  89.     
  90.     add_item "pfad",..
  91.     "pfad_pr1",..
  92.     "pfad_border",..
  93.     "pfad_titel",..
  94.     "pfad_pr2",..
  95.     "pfad_in",..
  96.     "pfad_pr3",..
  97.     "pfad_pr4",..
  98.     "pfad_in2",..
  99.     "pfad_bild",..
  100.     "pfad_button1",..
  101.     "pfad_button2",..
  102.     "pfad_pr5"
  103.     
  104.     
  105.     win_paint "pfad"
  106.     while y<>1000
  107.       win_ev y
  108.       get_item_pos meier,t
  109.       if t=13 then
  110.             if meier="pfad_button1" then
  111.         call install_start()
  112.               y=1000
  113.             endif
  114.             if meier="pfad_button2" then
  115.               y=1000
  116.             endif
  117.       endif
  118.     wend
  119.     
  120.     
  121.     event_on_item "pfad","end"
  122.     
  123.   endmod
  124.   
  125.   modul lade_cfg(char datei, float flag)
  126.     
  127.     defstring kennung,version,zeile,dummy
  128.     
  129.     dim _pfadA,1,50
  130.     dim _pfadB,1,50
  131.     deffloat _anzA, _anzB
  132.     
  133.     
  134.     open 2,datei,"r"
  135.     
  136.     gets 2,kennung
  137.     gets 2,version
  138.     if flag=0 then
  139.       gets 2,_pfad_kim
  140.       gets 2,_pfad_demo
  141.     else
  142.       gets 2,dummy
  143.       gets 2,dummy
  144.     endif
  145.     
  146.     rem Hier [1]
  147.     gets 2,zeile
  148.     
  149.     while zeile<>"[2]"
  150.       gets 2,zeile
  151.       if zeile<>"[2]" then
  152.         _anzA=_anzA+1
  153.         _pfadA[_anzA]=zeile
  154.       endif
  155.     wend
  156.     while zeile<>"EOF"
  157.       gets 2,zeile
  158.       if zeile<>"EOF" then
  159.         _anzB=_anzB+1
  160.         _pfadB[_anzB]=zeile
  161.       endif
  162.     wend
  163.     close 2
  164.     
  165.     
  166.     
  167.     
  168.   endmod
  169.   
  170.    
  171.   modul install_start()
  172.     deffloat i,ok,a
  173.     defstring quelle,ziel,zeile,drive
  174.     
  175.     
  176.     
  177.     get_item "pfad_in",_pfad_kim
  178.     get_item "pfad_in2",_pfad_demo
  179.     
  180.     mkdir _pfad_kim,ok
  181.     if ok=-1 then
  182.       msgbox "Verzeichnis konnte nicht neu erstellt werden.",0,ok,""
  183.       exitmod
  184.     endif
  185.     
  186.     mkdir _pfad_demo,ok
  187.     if ok=-1 then
  188.       msgbox "Verzeichnis 2 konnte nicht neu erstellt werden.",0,ok,""
  189.       exitmod
  190.     endif
  191.     
  192.     rem call msg_box ("Bitte legen Sie die KIM 2.1 Programmdiskette ein ",ok)
  193.     
  194.     call kopiere_disk()
  195.     
  196.     
  197.     rem Prüfen ob eine weitere Diskette kopiert werden muß
  198.     ok=0
  199.     exist "install2.cfg",a
  200.     
  201.     if a<>1 then
  202.       
  203.       i=0
  204.       while i=0
  205.         beep
  206.         call msg_box ("Bitte legen Sie die KIM 2.1 Zusatzdiskette ein ",ok)
  207.         if ok=1 then
  208.           exist "install2.cfg",a
  209.           if a=1 then
  210.             i=1
  211.             ok=0
  212.           endif
  213.         else
  214.           call msg_box ("Installation nicht vollständig",ok)
  215.           i=1
  216.           ok=-1
  217.         endif
  218.       wend
  219.       
  220.     endif
  221.     
  222.     if ok=0 then
  223.       call lade_cfg("install2.cfg",1)
  224.       call kopiere_disk()
  225.     endif
  226.     
  227.  
  228.     
  229.     exist "install.cfg",a
  230.     if a<>1 then
  231.       a=0
  232.       while a<>1
  233.         exist "install.cfg",a
  234.         msgbox "Legen Sie bitte die Programmdisk ein.",0,ok,""
  235.       wend
  236.     endif
  237.  
  238.  
  239.     rem Programmteil für REXX-Icon Erstellung
  240.     call icon()
  241.     call show_datei("read.me")
  242.     
  243.     
  244.   endmod
  245.   
  246.   modul icon()
  247.     kill "c:\tt001.cmd"
  248.     open 8,"c:\tt001.cmd"
  249.     
  250.     puts 8,"/*  KIM - Installation   */"
  251.     puts 8,"CALL Rxfuncadd 'sysloadfuncs','rexxutil','sysloadfuncs'"
  252.     puts 8,"CALL sysloadfuncs"
  253.     puts 8,"CALL SysCls"
  254.     puts 8,'SAY "***************************************************************************"'
  255.     puts 8,'SAY "*             KIM 2.1 R2.00  OS/2 WP-Installations-Progamm                *"'
  256.     puts 8,'SAY "*                                                                         *"'
  257.     puts 8,'SAY "*             ICONS + ORDNER WERDEN ANGELEGT !                            *"'
  258.     puts 8,'SAY "*                                                                         *"'
  259.     puts 8,'SAY "***************************************************************************"'
  260.     puts 8,""
  261.     puts 8,"/* Ordner erstellen */"
  262.     puts 8,""
  263.     puts 8,'titel = "KIM 2.1 Datenbanksystem"'
  264.     puts 8,"klasse = 'WPFolder'"
  265.     puts 8,"ort = '<WP_DESKTOP>'"
  266.     puts 8,"eigenschaften='OBJECTID=<KIM_21>;OPEN=default;NOVISIBLE=no;CONCURRENTVIEW=yes'1"
  267.     puts 8,'ergebnis = SysCreateObject(klasse, titel, ort, eigenschaften,"u")'
  268.     puts 8,"IF ergebnis <> 1 THEN DO"
  269.     puts 8,'    SAY ""'
  270.     puts 8,'    SAY "***************************************************************************"'
  271.     puts 8,'    SAY "*  ABRUCH           KIM/2  1.01 OS/2 WP-Installations-Programm            *"'
  272.     puts 8,'    SAY "***************************************************************************"'
  273.     puts 8,"    EXIT"
  274.     puts 8,"END"
  275.     puts 8,""
  276.     
  277.     puts 8,'ProgLW=""'
  278.     puts 8,'ProgPATH="',_pfad_kim,'\"'
  279.     puts 8,'ProgEXE="kim.exe"'
  280.     puts 8,'PROG="edit.kim"'
  281.     puts 8,"ProgICON=",'"',_pfad_kim,"\kim.ico",'"'
  282.     puts 8,""
  283.     puts 8,"filespec=",'"',_pfad_kim,"\KIM.EXE",'"'
  284.     
  285.     puts 8,"call SysFileTree filespec, 'file', 'F'"
  286.     puts 8,"  IF file.0 = 0 THEN DO"
  287.       puts 8,'    SAY file.0" ... "'
  288.       puts 8,'    SAY filespec" nicht gefunden."'
  289.       puts 8,'    SAY ""'
  290.       puts 8,'    SAY "***************************************************************************"'
  291.       puts 8,'    SAY "*  ABRUCH           KIM/2  1.01 OS/2 WP-Installations-Programm            *"'
  292.       puts 8,'    SAY "***************************************************************************"'
  293.       puts 8,"    EXIT"
  294.       puts 8,"  END"
  295.       puts 8,""
  296.       puts 8,'   titel = "KIM-Editor"'
  297.       puts 8,"   klasse = 'WPProgram'"
  298.       puts 8,"   ort = '<KIM_21>'"
  299.       puts 8,"   eigenschaften='PROGTYPE=PM;EXENAME='filespec';PARAMETERS='PROG';STARTUPDIR='ProgLW''ProgPATH';ICONFILE='ProgICON';OPEN=no;NOVISIBLE=no;CONCURRENTVIEW=yes'1"
  300.       puts 8,"   ergebnis = SysCreateObject(klasse, titel, ort, eigenschaften)"
  301.       puts 8,""
  302.       puts 8,"   ProgICON=",'"',_pfad_kim,"\kmask.ico",'"'
  303.       puts 8,'   titel = "KMASK"'
  304.       puts 8,'   PROG  = "KMASK.KIM"'
  305.       puts 8,"   eigenschaften='PROGTYPE=PM;EXENAME='filespec';PARAMETERS='PROG';STARTUPDIR='ProgLW''ProgPATH';ICONFILE='ProgICON';OPEN=no;NOVISIBLE=no;CONCURRENTVIEW=no'0"
  306.       puts 8,"   ergebnis = SysCreateObject(klasse, titel, ort, eigenschaften)"
  307.       puts 8,""
  308.       puts 8,""
  309.       puts 8,'   ProgPATHDEMO="',_pfad_demo,'\"'
  310.       puts 8,'   titel = "Produkt"'
  311.       puts 8,"   klasse = 'WPProgram'"
  312.       puts 8,"   ort = '<KIM_21>'"
  313.       puts 8,'   start ="',_pfad_demo,'\"'
  314.       puts 8,"   ProgICON=ProgLW''ProgPATHDEMO",'"produkt.ico"'
  315.       puts 8,'   PROG  = "PRODUKT.KIM"'
  316.       
  317.       puts 8,"   eigenschaften='PROGTYPE=PM;EXENAME='filespec';PARAMETERS='PROG';STARTUPDIR='ProgLW''start';ICONFILE='ProgICON';OPEN=no;NOVISIBLE=no;CONCURRENTVIEW=yes'1"
  318.       puts 8,"   ergebnis = SysCreateObject(klasse, titel, ort, eigenschaften)"
  319.       puts 8,""
  320.       puts 8,""
  321.       puts 8,""
  322.       puts 8,'   ProgPATHDEMO="',_pfad_demo,'\"'
  323.       puts 8,'   titel = "MEMO"'
  324.       puts 8,"   klasse = 'WPProgram'"
  325.       puts 8,"   ort = '<KIM_21>'"
  326.       puts 8,'   start ="',_pfad_demo,'\"'
  327.       puts 8,"   ProgICON=ProgLW''ProgPATHDEMO",'"memo.ico"'
  328.       puts 8,'   PROG  = "MEMO.KIM"'
  329.       
  330.       puts 8,"   eigenschaften='PROGTYPE=PM;EXENAME='filespec';PARAMETERS='PROG';STARTUPDIR='ProgLW''start';ICONFILE='ProgICON';OPEN=no;NOVISIBLE=no;CONCURRENTVIEW=yes'1"
  331.       puts 8,"   ergebnis = SysCreateObject(klasse, titel, ort, eigenschaften)"
  332.       puts 8,""
  333.       puts 8,""
  334.       puts 8,""
  335.       puts 8,'   ProgPATHDEMO="',_pfad_demo,'\"'
  336.       puts 8,'   titel = "KUNDEN"'
  337.       puts 8,"   klasse = 'WPProgram'"
  338.       puts 8,"   ort = '<KIM_21>'"
  339.       puts 8,'   start ="',_pfad_demo,'\"'
  340.       puts 8,"   ProgICON=ProgLW''ProgPATHDEMO",'"kunden.ico"'
  341.       puts 8,'   PROG  = "KUNDEN.KIM"'
  342.  
  343.       puts 8,"   eigenschaften='PROGTYPE=PM;EXENAME='filespec';PARAMETERS='PROG';STARTUPDIR='ProgLW''start';ICONFILE='ProgICON';OPEN=no;NOVISIBLE=no;CONCURRENTVIEW=yes'1"
  344.       puts 8,"   ergebnis = SysCreateObject(klasse, titel, ort, eigenschaften)"
  345.       puts 8,""
  346.       puts 8,""
  347.       puts 8,'   ProgPATHDEMO="',_pfad_demo,'\"'
  348.       puts 8,'   ProgEXE="kim.exe"'
  349.       puts 8,'   titel = "TERMIN"'
  350.       puts 8,"   klasse = 'WPProgram'"
  351.       puts 8,"   ort = '<KIM_21>'"
  352.       puts 8,'   start ="',_pfad_demo,'\"'
  353.       puts 8,"   ProgICON=ProgLW''ProgPATHDEMO",'"termin.ico"'
  354.       puts 8,'   PROG  = "TERMIN.KIM"'
  355.  
  356.       puts 8,"   eigenschaften='PROGTYPE=PM;EXENAME='filespec';PARAMETERS='PROG';STARTUPDIR='ProgLW''start';ICONFILE='ProgICON';OPEN=no;NOVISIBLE=no;CONCURRENTVIEW=yes'1"
  357.       puts 8,"   ergebnis = SysCreateObject(klasse, titel, ort, eigenschaften)"
  358.       puts 8,""
  359.       puts 8,'   ProgPATHDEMO="',_pfad_demo,'\"'
  360.       puts 8,'   ProgEXE="kim.exe"'
  361.       puts 8,'   titel = "BITMAP"'
  362.       puts 8,"   klasse = 'WPProgram'"
  363.       puts 8,"   ort = '<KIM_21>'"
  364.       puts 8,'   start ="',_pfad_demo,'\"'
  365.       puts 8,"   ProgICON=ProgLW''ProgPATHDEMO",'"bitmap.ico"'
  366.       puts 8,'   PROG  = "bitmap.KIM"'
  367.  
  368.       puts 8,"   eigenschaften='PROGTYPE=PM;EXENAME='filespec';PARAMETERS='PROG';STARTUPDIR='ProgLW''start';ICONFILE='ProgICON';OPEN=no;NOVISIBLE=no;CONCURRENTVIEW=yes'1"
  369.       puts 8,"   ergebnis = SysCreateObject(klasse, titel, ort, eigenschaften)"
  370.  
  371.       puts 8,""
  372.       puts 8,'   ProgPATHDEMO="',_pfad_demo,'\"'
  373.       puts 8,'   ProgEXE="kim.exe"'
  374.       puts 8,'   titel = "TIMER"'
  375.       puts 8,"   klasse = 'WPProgram'"
  376.       puts 8,"   ort = '<KIM_21>'"
  377.       puts 8,'   start ="',_pfad_demo,'\"'
  378.       puts 8,"   ProgICON=ProgLW''ProgPATHDEMO",'"allg.ico"'
  379.       puts 8,'   PROG  = "timer.KIM"'
  380.       puts 8,"   eigenschaften='PROGTYPE=PM;EXENAME='filespec';PARAMETERS='PROG';STARTUPDIR='ProgLW''start';ICONFILE='ProgICON';OPEN=no;NOVISIBLE=no;CONCURRENTVIEW=yes'1"
  381.       puts 8,"   ergebnis = SysCreateObject(klasse, titel, ort, eigenschaften)"
  382.  
  383.       puts 8,""
  384.       puts 8,'   ProgPATHDEMO="',_pfad_demo,'\"'
  385.       puts 8,'   ProgEXE="kim.exe"'
  386.       puts 8,'   titel = "NOTEBOOK"'
  387.       puts 8,"   klasse = 'WPProgram'"
  388.       puts 8,"   ort = '<KIM_21>'"
  389.       puts 8,'   start ="',_pfad_demo,'\"'
  390.       puts 8,"   ProgICON=ProgLW''ProgPATHDEMO",'"allg.ico"'
  391.       puts 8,'   PROG  = "note.KIM"'
  392.       puts 8,"   eigenschaften='PROGTYPE=PM;EXENAME='filespec';PARAMETERS='PROG';STARTUPDIR='ProgLW''start';ICONFILE='ProgICON';OPEN=no;NOVISIBLE=no;CONCURRENTVIEW=yes'1"
  393.       puts 8,"   ergebnis = SysCreateObject(klasse, titel, ort, eigenschaften)"
  394.  
  395.       puts 8,""
  396.       puts 8,'   ProgPATHDEMO="',_pfad_demo,'\"'
  397.       puts 8,'   ProgEXE="kim.exe"'
  398.       puts 8,'   titel = "TABLE"'
  399.       puts 8,"   klasse = 'WPProgram'"
  400.       puts 8,"   ort = '<KIM_21>'"
  401.       puts 8,'   start ="',_pfad_demo,'\"'
  402.       puts 8,"   ProgICON=ProgLW''ProgPATHDEMO",'"allg.ico"'
  403.       puts 8,'   PROG  = "table.KIM"'
  404.       puts 8,"   eigenschaften='PROGTYPE=PM;EXENAME='filespec';PARAMETERS='PROG';STARTUPDIR='ProgLW''start';ICONFILE='ProgICON';OPEN=no;NOVISIBLE=no;CONCURRENTVIEW=yes'1"
  405.       puts 8,"   ergebnis = SysCreateObject(klasse, titel, ort, eigenschaften)"
  406.  
  407.       puts 8,""
  408.       puts 8,'   ProgPATHDEMO="',_pfad_demo,'\"'
  409.       puts 8,'   ProgEXE="kim.exe"'
  410.       puts 8,'   titel = "DRAG&DROP"'
  411.       puts 8,"   klasse = 'WPProgram'"
  412.       puts 8,"   ort = '<KIM_21>'"
  413.       puts 8,'   start ="',_pfad_demo,'\"'
  414.       puts 8,"   ProgICON=ProgLW''ProgPATHDEMO",'"allg.ico"'
  415.       puts 8,'   PROG  = "drag.KIM"'
  416.       puts 8,"   eigenschaften='PROGTYPE=PM;EXENAME='filespec';PARAMETERS='PROG';STARTUPDIR='ProgLW''start';ICONFILE='ProgICON';OPEN=no;NOVISIBLE=no;CONCURRENTVIEW=yes'1"
  417.       puts 8,"   ergebnis = SysCreateObject(klasse, titel, ort, eigenschaften)"
  418.       
  419.       puts 8,'ProgLW=""'
  420.       puts 8,'ProgPATH="c:\os2\"'
  421.       puts 8,'ProgEXE="view.exe"'
  422.       puts 8,'PROG="kim21.inf"'
  423.       puts 8,"ProgICON=ProgLW","''ProgPATH",'"hand.ico"'
  424.       puts 8,'start ="',_pfad_kim,'\"'
  425.       puts 8,""
  426.       puts 8,"filespec=ProgLW''ProgPATH''ProgEXE"
  427.       puts 8,"call SysFileTree filespec, 'file', 'F'"
  428.       puts 8,"  IF file.0 = 0 THEN DO"
  429.         puts 8,'    SAY file.0" ... "'
  430.         puts 8,'    SAY filespec" nicht gefunden."'
  431.         puts 8,'    SAY ""'
  432.         puts 8,'    SAY "***************************************************************************"'
  433.         puts 8,'    SAY "*  ABRUCH           KIM/2.1 R2.00 OS/2 WP-Installations-Programm          *"'
  434.         puts 8,'    SAY "***************************************************************************"'
  435.         puts 8,"    EXIT"
  436.         puts 8,"  END"
  437.         puts 8,""
  438.         puts 8,'   titel = "Handbuch"'
  439.         puts 8,"   klasse = 'WPProgram'"
  440.         puts 8,"   ort = '<KIM_21>'"
  441.         puts 8,"   eigenschaften='PROGTYPE=PM;EXENAME='filespec';PARAMETERS='PROG';STARTUPDIR='ProgLW''start';ICONFILE='ProgICON';OPEN=no;NOVISIBLE=no;CONCURRENTVIEW=yes'1"
  442.         puts 8,"   ergebnis = SysCreateObject(klasse, titel, ort, eigenschaften)"
  443.         puts 8,""
  444.         
  445.         
  446.         puts 8,"CALL SysCls"
  447.         puts 8,'SAY "***************************************************************************"'
  448.         puts 8,'SAY "*             KIM 2.1 R2.00  OS/2 WP-Installations-Progamm                *"'
  449.         puts 8,'SAY "*                                                                         *"'
  450.         puts 8,'SAY "*             KIM WURDE ORDNUNGSGEMÄß INSTALLIERT !                       *"'
  451.         puts 8,'SAY "*                                                                         *"'
  452.         puts 8,'SAY "***************************************************************************"'
  453.         
  454.         close 8
  455.         
  456.         
  457.         
  458.       endmod
  459.        
  460.       modul kopiere_disk()
  461.         
  462.         deffloat i,x,ok
  463.         defstring ziel
  464.         
  465.         set_item "pfad_pr4","Kopiere ..."
  466.         for i=1 to _anzA
  467.           compress _pfadA[i]
  468.           if _pfadA[i]<>"" then
  469.             set_item "pfad_pr5",_pfadA[i]
  470.             ziel=_pfad_kim+"\"+_pfadA[i]
  471.             filecopy _pfadA[i],ziel
  472.             set_attrib ziel,0,ok
  473.           endif
  474.         next
  475.         
  476.         set_item "pfad_pr4","Kopiere ..."
  477.         for i=1 to _anzB
  478.           set_item "pfad_pr5",_pfadB[i]
  479.           ziel=_pfad_demo+"\"+_pfadB[i]
  480.           filecopy _pfadB[i],ziel
  481.           set_attrib ziel,0,ok
  482.         next
  483.       endmod
  484.       
  485.        
  486.       MODUL msg_fenster()
  487.         def_window "msg",4,12, 55,8 ;"move off","modal"
  488.         def_border "msg_border"
  489.         def_titel  "msg_titel","Meldung" ;"center"
  490.         def_button "msg_button1",5,5,20,"ok","OK";"auto size"
  491.         def_button "msg_button2",26,5,20,"x","Abbruch";"auto size"
  492.         def_prompt "msg_pr",5,1,"                                                "
  493.         def_icon "icon1",30,1,"frage2","" ;"auto size","select off","view only"
  494.         
  495.         add_item "msg",..
  496.         "msg_border",..
  497.         "msg_titel",..
  498.         "msg_pr",..
  499.         "icon1",..
  500.         "msg_button1",..
  501.         "msg_button2"
  502.         
  503.       ENDMOD
  504.       
  505.       MODUL msg_box(char text,float flag)
  506.         deffloat y,t
  507.         defstring obj
  508.         
  509.         call msg_fenster()
  510.         win_paint "msg"
  511.         set_item "msg_pr",text
  512.         while y<>1000
  513.           win_ev y
  514.           get_item_pos obj,t
  515.           if t=13 then
  516.             if obj="msg_button1" then y=1000 : flag=1 :endif
  517.             if obj="msg_button2" then y=1000 : flag=2 :endif
  518.           endif
  519.         wend
  520.         event_on_item "msg","end"
  521.         
  522.       ENDMOD
  523.        
  524.        
  525.       MODUL show_datei(char datei)
  526.         
  527.         defstring objekt,id$,i$,zeile
  528.         deffloat ok,i,taste
  529.         
  530.         def_window_st "tmp_window",10,5,30,3,"Meldung"
  531.         def_prompt    "tmp_pr",1,0,"READ.ME Datei wird geladen..."
  532.         add_item      "tmp_window","tmp_pr"
  533.         win_paint "tmp_window"
  534.         
  535.         
  536.         def_window "win_info",0,2, 91,18 ;"modal"
  537.         def_border "win_info_border"
  538.         def_titel  "win_info_titel","Ausgabe" ;"center"
  539.         def_max_button "win_max_b"
  540.         add_item "win_info","win_info_border","win_max_b","win_info_titel"
  541.         
  542.         DEF_TOOLBAR   "tool_info",0,0,0,0;"region off","border"
  543.         DEF_SCROLLBAR "scroll_info",1,0,0,0,0
  544.         DEF_BUTTON    "PushButton1",3,1,15,"","&Quit";""
  545.         DEF_BUTTON    "PushButton2",13,1,15,"","Druck LPT1";""
  546.         DEF_BUTTON    "PushButton3",23,1,15,"","Druck LPT2";""
  547.         DEF_LIST "text_info",0,1,0,87,15,0,0 ;"border","C8","select off"
  548.         
  549.         add_item "text_info","scroll_info"
  550.         add_item "tool_info","PushButton1","PushButton2","PushButton3"
  551.         ADD_ITEM "win_info","tool_info","text_info"
  552.         
  553.         i=1
  554.         open 11,datei,"r"
  555.         
  556.         gets 11,zeile
  557.         gets 11,zeile
  558.         while zeile<>"EOF"
  559.           form i,i$,0,1
  560.           id$="text"+i$
  561.           def_string id$,1,0,80,zeile
  562.           add_item "text_info",id$
  563.           rem event_on_item "text_info","redisplay"
  564.           gets 11,zeile
  565.           i=i+1
  566.         wend
  567.         close 11
  568.         
  569.         event_on_item "tmp_window","end"
  570.         
  571.         win_paint "win_info"
  572.         
  573.         while i<>1000
  574.           win_ev i
  575.           get_item_pos objekt,taste
  576.           if taste=13 and objekt="PushButton1" then
  577.             i=1000
  578.           endif
  579.           if taste=13 and objekt="PushButton2" then
  580.             call info_druck(datei,"lpt1")
  581.             i=1000
  582.           endif
  583.           if taste=13 and objekt="PushButton3" then
  584.             call info_druck(datei,"lpt2")
  585.             i=1000
  586.           endif
  587.           
  588.         wend
  589.         
  590.         event_on_item "win_info","end"
  591.         
  592.       ENDMOD
  593.        
  594.       MODUL info_druck(char datei_send,char datei_empf)
  595.         defstring zeile
  596.         
  597.         call tmp_fenster(1)
  598.         
  599.         open 11,datei_send,"r"
  600.         open 12,datei_empf
  601.         gets 11,zeile
  602.         while zeile <> "EOF"
  603.           puts 12,zeile
  604.           gets 11,zeile
  605.         wend
  606.         close 11
  607.         close 12
  608.         call tmp_fenster(0)
  609.       ENDMOD
  610.       
  611.       MODUL tmp_fenster(float flag)
  612.         
  613.         if flag=1 then
  614.           def_window "msg_be",30,7,26,6 ;"move off","modal"
  615.           def_border "msg_border_be"
  616.           def_titel  "msg_titel_be","Meldung" ;"center"
  617.           def_prompt "msg_pr1_be",1,1,"Daten werden gedruckt"
  618.           def_prompt "msg_pr2_be",5,2,"Bitte warten !"
  619.           
  620.           add_item "msg_be",..
  621.           "msg_border_be",..
  622.           "msg_titel_be",..
  623.           "msg_pr1_be",..
  624.           "msg_pr2_be"
  625.           win_paint "msg_be"
  626.         else
  627.           event_on_item "msg_be","end"
  628.         endif
  629.         
  630.       ENDMOD
  631.        
  632.