Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Path: utzoo!mnetor!seismo!brl-adm!adm!A-PIRARD%BLIULG12.BITNET@wiscvm.wisc.edu From: A-PIRARD%BLIULG12.BITNET@wiscvm.wisc.edu (Andre PIRARD) Newsgroups: comp.sys.misc Subject: Triggering SIMTEL20 Message-ID: <1165@brl-adm.ARPA> Date: Fri, 28-Nov-86 05:01:33 EST Article-I.D.: brl-adm.1165 Posted: Fri Nov 28 05:01:33 1986 Date-Received: Fri, 28-Nov-86 19:37:36 EST Sender: news@brl-adm.ARPA Lines: 96 Jim Kelleher writes: >I've been able to get stuff from simtel20 but... >I've asked for uudecode and unarc and they have been sent uuencoded & arc'ed >is there any kind soul out there who could send me the two programs or >point the way to getting access to them ? email please. > ... I drew SIMTEL20's attention on the problem he describes. I ran into the same difficulty. The directory PD: is supposed to contain the triggering stuff. PD: should be its CPM counterpart. But they only contain binary files of no use to those with no binary retrieval. Even the only source piece which is supposed to uudecode does not work with the otherwise welcome added M SIMTEL20 adds to each record. So I modified it for my own use and posted it to SIMTEL20. I got no answer so don't know it it is there. In the meantime I got an ARC on diskette, so I did not experiment the whole triggering process. But at least the following program does uudecode, slow etc..., is easily convertible and a first step. Here it goes.... 1000 KEY OFF 1001 DEFINT A-Z 1010 REM Trap error opening input file 1020 ON ERROR GOTO 1600 1030 CLS 1040 LOCATE 5,11 1050 PRINT STRING$(40," ") 1060 LOCATE 5,11 1070 INPUT "Enter name of input file: ", INFILE$ 1080 OPEN INFILE$ FOR INPUT AS #1 1090 LOCATE 8,10 1100 PRINT STRING$(40," ") 1110 REM Trap error opening output file 1120 ON ERROR GOTO 1640 1130 LOCATE 8,10 1140 INPUT "Enter name of output file: ", OUTFILE$ 1150 OPEN "R", #2,OUTFILE$, 1 1160 FIELD #2, 1 AS N$ 1170 REM Trap error at end of file 1180 ON ERROR GOTO 1680 1190 REM Search for header line 1200 LINE INPUT #1,A$ 1210 IF LEFT$(A$,5) <>"begin" THEN 1200 1220 LOCATE 11,10 1230 PRINT "Header = ";A$ 1240 SP = ASC(" ") 1250 DIM BUF(100) 1260 RECNO# = 1 1270 REM Main loop 1280 LINE INPUT #1, A$ 1290 P = 0 1300 BYTES = ASC(LEFT$(A$,1)) - SP 1310 IF BYTES = 64 THEN BYTES = 0 1320 IF BYTES = 0 THEN 1560 1330 COUNT% = INT(BYTES/3+.9): COUNT%=COUNT%*4 1340 FOR I = 2 TO COUNT% STEP 4 1350 X1 = ASC(MID$(A$,I,I)) - SP 1360 IF X1 = 64 THEN X1 = 0 1370 X2 = ASC(MID$(A$,I+1,I+1)) - SP 1380 IF X2 = 64 THEN X2 = 0 1390 X3 = ASC(MID$(A$,I+2,I+2)) - SP 1400 IF X3 = 64 THEN X3 = 0 1410 X4 = ASC(MID$(A$,I+3,I+3)) - SP 1420 IF X4 = 64 THEN X4 = 0 1440 IF P