'd -------------------------------Dn XMODEM DOWNLOAD`x KERMTERM JR. BY KERMIT R. WOODALL 1985 -------------------------------5,2,0,(6):F%(255),T%(255),U%(132) X164:T%(X)X: X:T%(20)8:X6590:T%(X)X32: XD X9195:T%(X)X: X:X193218:T%(X)X128: Xp X0255:YT%(X):YF%(Y)X:F%(Y128)X X:B$" "(157):P$(175)(157):C$(0) (147)(14)"ERMTERM R. BY ERMIT OODALL - 1=/" "AYES/1670 IALER - 3=IALS, 7=BORTS":P$;8 #5,A$:B$(F%((A$C$)));:212,0:P$;Y A$:A$""5,(T%((A$)));l A$(133)260 A$(134)450 220 ::"ILENAME";FI$:"ILETYPE <>EQ OR <>RG";FT$ 8,8,8,"0:"FI$","FT$",W":": ";FI$ X1132:#5,A$::370" "CK0:X1132Q ,663,0:A$"":#5,A$:E(663):(663)8300x 6X1A$(4)"":360:8:210 @U%(X)(A$C$):CKCKU%(X): X:CKCKU%(132) JU%(132)(CK255)370:"HKSUM ":290 TBLBL1:"LOCK"BL ^X4131:8,(U%(X));: X:360:290+ h5,(6);:ER0:] rERER1:ER118:"":5,(24);:210m |5,(21);:  HAYES/1670 DIALING  500: SETUP MODEM TO DIAL "#";N$: 540:A1(N$):A$(N$,A,1): 550:  560: 210  HAYES/1670 DIALING 5,"":5,"0 0":0 5,"";:= &5,A$;:a 05,(13);:800:600:A$"1" t :5,"": 210 XE$"": INPUT FROM HAYES b 700 g A$(13) A$(141) A$E$: l D$(136) 210 vE$E$A$: 610  GET FROM HAYES3#5,A$:""A$"";: D$:A$"" D$(136) 710I D$(136) 210Ob  CLEAR BUFFERz*A1256:#5,A$::