%IFANY   X?,X??=X&1 %GOTO 32000 HELP                                   00000010
 %DEFAULT WORK=,DEBUG=DEBUG,GO=YES                                      00000020
 %SET     NOXOFF,VT100,NOFILTER                                         00000030
 %SET     TEMP,LW=244,NOEJECT,NOMSG,NOFOLD                              00000040
 %IF      &LINE(1,1)=T %SET TEMP,LC=0                                   00000050
 %CREATE  &WORK/K10W0         -- CREATE A TEMPORARY WORKAREA --         00000060
 %TSFILE  DEBUG,&DEBUG,REP                                              00000070
 %INVOKE  GUTSXTSO,KERMIT                                               00000080
 %IF      &GO=NO %PERFORM WRITE Execute with /ENDRUN                    00000090
 %ENDRUN                                                                00000100
 %SET     FILTER                                                        00000110
 %EXIT                                                                  00000120
 %TARGET  HELP -- GIVE HIM SOM HELP --                                  00032000
0%IF      X??=X&1 %LET MSGLEN=LONG                                      00032010
 %IF      &LANG=SWE %GOTO 32080 HELPSWE                                 00032020
 %GOTO    32220 HELPENG                                                 00032030
 KERMIT   - RUN THE KERMIT-GUTS PROGRAM                                 00032040
 RESPONSIBLE - STEFAN LUNDBERG                                          00032050
 VERSION - 84-10-16                                                     00032060
 DOCUMENTATION REFERENCE - KERMIT USERS MANUAL                          00032070
 %TARGET  HELPSWE                                                       00032080
 %WRLINE   /KERMIT                                                      00032090
 %IF      &MSGLEN=SHORT %EXIT                                           00032100
 %WRLINE                                                                00032110
 %WRLINE            /KERMIT {r en procedur som startar programmet       00032120
 %WRLINE            KERMIT. KERMIT kan man anv{nda f:r att f:ra :ver    00032130
 %WRLINE            filer mellan en mikrodator och GUTS.                00032140
 %WRLINE            KERMIT-GUTS kan bara skicka och ta emot OS-filer.   00032150
 %WRLINE            En GUTS-fil kan kopieras till en OS-fil med hj{lp   00032160
 %WRLINE            av proceduren /TSOS. Med proceduren /OSTS kan man   00032170
 %WRLINE            kopiera en OS-fil till en GUTS-fil.                 00032180
 %WRLINE            F:r vidare information g:r /INFO KERMIT i GUTS      00032190
 %WRLINE            eller titta i kermit users manual.                  00032200
 %EXIT                                                                  00032210
 %TARGET  HELPENG                                                       00032220
 %WRLINE   /KERMIT                                                      00032230
 %IF      &MSGLEN=SHORT %EXIT                                           00032240
 %WRLINE                                                                00032250
 %WRLINE            /KERMIT is a procedure which will run the KERMIT    00032260
 %WRLINE            program. KERMIT is a program that can be used to    00032270
 %WRLINE            transfer files between GUTS and a microcomputer.    00032280
 %WRLINE            KERMIT-GUTS (which is the name of the GUTS version  00032290
 %WRLINE            of KERMIT) can only send and receive OS-files.      00032300
 %WRLINE            If you want to send a GUTS file you will have to    00032310
 %WRLINE            copy if first to a OS-file. You can do that with    00032320
 %WRLINE            the /TSOS procedure. You can use the /OSTS procedure00032330
 %WRLINE            to copy a OS file to a GUTS file.                   00032340
 %WRLINE            For further information issue /INFO KERMIT or       00032350
 %WRLINE            look in the KERMIT users manuals.                   00032360
 %EXIT                                                                  00032370