home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / guts / guts.pro < prev   
Text File  |  2020-01-01  |  4KB  |  51 lines
  1.  %IFANY   X?,X??=X&1 %GOTO 32000 HELP                                   00000010
  2.  %DEFAULT WORK=,DEBUG=DEBUG,GO=YES                                      00000020
  3.  %SET     NOXOFF,VT100,NOFILTER                                         00000030
  4.  %SET     TEMP,LW=244,NOEJECT,NOMSG,NOFOLD                              00000040
  5.  %IF      &LINE(1,1)=T %SET TEMP,LC=0                                   00000050
  6.  %CREATE  &WORK/K10W0         -- CREATE A TEMPORARY WORKAREA --         00000060
  7.  %TSFILE  DEBUG,&DEBUG,REP                                              00000070
  8.  %INVOKE  GUTSXTSO,KERMIT                                               00000080
  9.  %IF      &GO=NO %PERFORM WRITE Execute with /ENDRUN                    00000090
  10.  %ENDRUN                                                                00000100
  11.  %SET     FILTER                                                        00000110
  12.  %EXIT                                                                  00000120
  13.  %TARGET  HELP -- GIVE HIM SOM HELP --                                  00032000
  14. 0%IF      X??=X&1 %LET MSGLEN=LONG                                      00032010
  15.  %IF      &LANG=SWE %GOTO 32080 HELPSWE                                 00032020
  16.  %GOTO    32220 HELPENG                                                 00032030
  17.  KERMIT   - RUN THE KERMIT-GUTS PROGRAM                                 00032040
  18.  RESPONSIBLE - STEFAN LUNDBERG                                          00032050
  19.  VERSION - 84-10-16                                                     00032060
  20.  DOCUMENTATION REFERENCE - KERMIT USERS MANUAL                          00032070
  21.  %TARGET  HELPSWE                                                       00032080
  22.  %WRLINE   /KERMIT                                                      00032090
  23.  %IF      &MSGLEN=SHORT %EXIT                                           00032100
  24.  %WRLINE                                                                00032110
  25.  %WRLINE            /KERMIT {r en procedur som startar programmet       00032120
  26.  %WRLINE            KERMIT. KERMIT kan man anv{nda f:r att f:ra :ver    00032130
  27.  %WRLINE            filer mellan en mikrodator och GUTS.                00032140
  28.  %WRLINE            KERMIT-GUTS kan bara skicka och ta emot OS-filer.   00032150
  29.  %WRLINE            En GUTS-fil kan kopieras till en OS-fil med hj{lp   00032160
  30.  %WRLINE            av proceduren /TSOS. Med proceduren /OSTS kan man   00032170
  31.  %WRLINE            kopiera en OS-fil till en GUTS-fil.                 00032180
  32.  %WRLINE            F:r vidare information g:r /INFO KERMIT i GUTS      00032190
  33.  %WRLINE            eller titta i kermit users manual.                  00032200
  34.  %EXIT                                                                  00032210
  35.  %TARGET  HELPENG                                                       00032220
  36.  %WRLINE   /KERMIT                                                      00032230
  37.  %IF      &MSGLEN=SHORT %EXIT                                           00032240
  38.  %WRLINE                                                                00032250
  39.  %WRLINE            /KERMIT is a procedure which will run the KERMIT    00032260
  40.  %WRLINE            program. KERMIT is a program that can be used to    00032270
  41.  %WRLINE            transfer files between GUTS and a microcomputer.    00032280
  42.  %WRLINE            KERMIT-GUTS (which is the name of the GUTS version  00032290
  43.  %WRLINE            of KERMIT) can only send and receive OS-files.      00032300
  44.  %WRLINE            If you want to send a GUTS file you will have to    00032310
  45.  %WRLINE            copy if first to a OS-file. You can do that with    00032320
  46.  %WRLINE            the /TSOS procedure. You can use the /OSTS procedure00032330
  47.  %WRLINE            to copy a OS file to a GUTS file.                   00032340
  48.  %WRLINE            For further information issue /INFO KERMIT or       00032350
  49.  %WRLINE            look in the KERMIT users manuals.                   00032360
  50.  %EXIT                                                                  00032370
  51.