e the two numbers." \ & PRINT "Range of accounts <0-254>"; \ & INPUTLINE RANGE$ \ & RANGE$ = CVT$$(RANGE$,-1%) 3020 IF RANGE$ = "" & THEN FIRST% = 0% \ & LAST% = 254% \ & GOTO 4000 3030 HYPHEN% = INSTR(1%,RANGE$,"-") 3040 IF HYPHEN% = 0% & THEN HYPHEN% = INSTR(1%,RANGE$,",") 3050 IF HYPHEN% = 0% & THEN PRINT BELL$;"Range should be two numbers seperated by a hyphen" \ & GOTO 3010 3060 IF HYPHEN% = 0% & THEN FIRST% = 1% \ & LAST% = VAL(RANGE$) \ & GOTO 4000 & !error routine handles invalid numbers 3070 FIRST% = VAL( LEFT(RANGE$,HYPHEN%-1%) ) \ & LAST% = VAL( RIGHT(RANGE$,HYPHEN%+1%) ) & !error routine handles invalid numbers 4000 ! & !open up command file & !print beginning commands & ! 4010 OPEN "LOGMSG.CMD" FOR OUTPUT AS FILE #2% 4020 PRINT #2%, "RUN $PIP" 5000 ! & !print commands for each account to command file & ! 5010 FOR PROG% = FIRST% TO LAST% 5020 GOSUB 10000 5030 NEXT PROG% 5040 IF ACCTS.FOUND% = 0% & THEN PRINT BELL$;"No accounts found within given range." \ & CLOSE #1%, #2% \ & KILL "LOGMSG.CMD" \ & GOTO 32767 6000 ! & !end the file and close it & ! 6010 PRINT #2%, "^Z" 6020 PRINT #2%, "UNSAVE LOGMSG.CMD" 6030 CLOSE #2% 7000 ! & !chain to AT with this file for the command file & ! 7010 Z$ = SYS( CHR$(14%) + "AT LOGMSG" ) 9000 ! & !normal exit & ! 9990 GOTO 32767 10000 ! & ! & ! SUBROUTINE: Print the command for one account & ! & ! & !does the account exist? & ! 10010 Z$ = SYS( CHR$(6%) + CHR$(14%) + STRING$(4%,0%) + CHR$(PROG%) & + CHR$(PROJ%) + CHR$(1%+0%) ) 10020 IF ACCOUNT.NOT.FOUND% & THEN ACCOUNT.NOT.FOUND% = FALSE% \ & RETURN & !error routine sets variable 10100 ! & !see if LOGIN.MSG is already there and branch accordingly & ! 10110 PPN$ = "[" + NUM1$(PROJ%) + "," + NUM1$(PROG%) + "]" \ & OPEN PPN$ + "LOGIN.MSG" FOR INPUT AS FILE #1% 10120 IF FILE.NOT.FOUND% & THEN FILE.NOT.FOUND% = FALSE% \ & GOTO 10300 10200 ! & !account was there & ! 10210 ACCTS.FOUND% = 1% & !I don't really care how many are found, only whether any are & !found at all 10220 PRINT #2%, PPN$ + "LOGIN.MSG = " + MSGFILE$ + "," + PPN$ + "LOGIN.MSG" 10230 RETURN 10300 ! & !account was not there & ! 10310 PRINT #2%, PPN$ + "LOGIN.MSG = " + MSGFILE$ 10320 RETURN 10900 ! & !return & ! 10990 RETURN 19000 ! & ! & ! Error Routine & ! & ! 19100 ! & !^C error & ! 19110 IF ERR = 28 & THEN PRINT "Program aborted." \ & GOTO 32767 & !^C error 19200 ! & !Expected errors (by line number) & ! 19210 IF ERL = 1030 & THEN FILE.NOT.FOUND% = TRUE% \ & RESUME 1040 & !message file not found 19220 IF ERL = 3040 & OR ERL = 3050 & THEN PRINT BELL$;"Illegal number." \ & RESUME 3000 19230 IF ERL = 10010 & THEN ACCOUNT.NOT.FOUND% = TRUE% \ & RESUME 10020 & !no such account number 19240 IF ERL = 10110 & THEN FILE.NOT.FOUND% = TRUE% \ & RESUME 10120 & !no such file (LOGIN.MSG in individual account) 19600 ! & !Expected errors (by type) & 19900 ! & !Unexpected errors & ! 19910 Z$ = SYS(CHR$(6%)+CHR$(9%)+CHR$(ERR)) 19920 ERROR$ = RIGHT(Z$,3%) 19930 PRINT " ***** Whoops! *****" \ & PRINT " "; ERROR$; " at line";ERL 19990 GOTO 32767 32767 END LOGMSGBAS[.050021]LOGMSG.BAS[.050021]   X14|H [4;Ik(&'( k ߫H&P` \RrPP2PPzPP{PPPPP2P~\$\\TD 0D \~ hi) +\ ^( n ^( np\^txY\^ˀ\!kVk<\F˰<˴ˬ\VVkˤ1`@lP ABCDEFGHIJKLMNOPQRSTUVWXYZ$.?0123456789<@<SЬTЬ UQS>?\\\\\\\\\`:#@'="\abcdefghi\\\\\\\jklmnopqr\\\\\\\~stuvwxyz\\\\\\\\\\\\\\\\\\\\\\{ABCDEFGHI\\\\\\}JKLMNOPQR\\\\\\\\STUVWXYZ\\\\\\0123456789\\\\\  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~@ggh<i|o<m<4p<p<k|Zn<l fr rwx<x<x<x޺<w@]@@fjnr]Ze@@|> | |v<H|  |  |xz|  |zt f r   < &^ @&@'*/V,"?Lh:hmBmz|z{x`y~|fN|@@|@͂|@ ݃ƃ<ns