1 GOTO202:' Kermit Protocol Program 27-NOV-84 2 COMSTOP:MDMSTOP:RETURN 3 B%=0:CLOSE3:PRINTK$+" break" 4 COMON:MDMON:RETURN 5 MDMOFF:COMOFF:RETURN 6 ONCOMGOSUB110 7 ONMDMGOSUB110 8 RETURN 9 W$="67I1E":K$="kermit":T%=0:S%=0:E%=0:W%=0:A$="^S":G$=CHR$(13):U$=CHR$(34):M%=CINT(192):N%=CINT(64):O%=CINT(63):ONERRORGOTO11 10 GOTO79 11 E%=-1:IFERR=52ORERR=55ORERR=53THENRESUMENEXT 12 PRINT"Error #:";ERR;" in line:";ERL 13 LINEINPUT"Resume? (Y/N): ";C$ 14 IFC$="Y"ORC$="y"THENRESUMEELSEGOSUB156:STOP 15 GOSUB2:PRINT:LINEINPUT"Download to: ";Z$:IFASC(Z$)=3THEN4 17 OPENZ$FOROUTPUTAS3:IFE%THENE%=0:CLOSE3:RETURN 18 PRINT"Download Kermit(K) or Simple(S): ";:T$="":INPUT T$:CALLP,0,VARPTR(T$):IFT$="K"GOTO21ELSEIFT$<>"S"GOTO18 19 KEY1,CHR$(153)+CHR$(153)+CHR$(153):KEY2,"INTO":KEY3,"FILE":KEY4,": ":KEY5,LEFT$(Z$,5):KEY6,MID$(Z$,5,4):KEY7,"":KEY8,"STOP":ONKEYGOSUB,,,,,,,20:W%=-1:GOTO4 20 CLOSE3:W%=0:GOSUB94:RETURN 21 PRINT"Trigger for host Kermit":PRINT"(or null for "+I$+"): ";:LINEINPUTT$:IFT$=""THENT$=h2$+".do" 23 IFB%GOTO3 24 Z%=1:P9=0:J$=T$+G$:Y0=30:GOTO35 25 GOSUB2:PRINT:LINEINPUT"Upload file: ";Z$ 26 IFASC(Z$)=3THEN GOTO4ELSEOPENZ$FORINPUTAS3:IFE%THENE%=0:PRINT"Can't open.":GOTO4 27 GOSUB28:GOTO29 28 PRINT"Width for wordbreak":PRINT"or null for unbroken lines";:L%=0:INPUTL%:RETURN 29 PRINT"Upload Simple(S) or Kermit(K): ";:T$="":INPUTT$:CALLP,0,VARPTR(T$):IFT$="K"GOTO31ELSEIFASC(T$)=3THEN4ELSEIFT$<>"S"GOTO29 30 KEY1,CHR$(152)+CHR$(152)+CHR$(152):KEY2,"FROM":KEY3,"FILE":KEY4," :":KEY5,LEFT$(Z$,4):KEY6,MID$(Z$,5):KEY7,"":KEY8,"STOP":ONKEYGOSUB,,,,,,,109:U%=3:V%=2:GOSUB4:E1$=G$:GOSUB69:CLOSE3:GOSUB94:RETURN 31 PRINT"Host Kermit trigger":Print"(or null if "+I$+"): ";:LINEINPUTH$:IFH$=""THENH$=H1$ 33 IFB%GOTO3 34 PRINT#2,H$+G$;:GOTO135 35 IFB%GOTO3 36 IFZ%=6THEN:PRINT#2,J$:CLOSE3:GOTO155 37 GOSUB120:IFB%GOTO3 38 IFY%THENPRINT"