; ************************************************ ; *THIS COMMAND-FILE HAS BEEN GENERATED FROM A * ; *STRUCTURED SAT-FILE. * ; *YOU SHOULD NOT EDIT THIS FILE , BUT USE THE * ; *CORRESPONDING SAT-FILE. * ; ************************************************ ; *THIS FILE WAS GENERATED AT 01-AUG-88 10:48:20 * ; *FROM MAIL.SAT ; ************************************************ ; ; LB:[1,2]MAIL.CMD f|r mottagning och s{ndning av MAIL och CIRKUL[R ; ; HISTORIK: ; DATUM NAMN ]TG[RD ; 870212 B-E TAPPER F[RDIGST[LLT F\R ALLM[NT BRUK ; 870302 B-E TAPPER " " I NAMN ; 880728 B-E TAPPER DECIMALA FILNAMNSVERSIONER + .SAT ; 880801 B-E TAPPER 346 OKTALT = 230 DEDCIMALT !! ; ; ; V A R N I N G ! ! ! .SAT-FIL FINNES, .CMF-FIL ANV[NDS. K\R @SAT ! ; .ENABLE SUBSTITUTION .DISABLE DISPLAY .ENABLE GLOBAL .ENABLE ESCAPE .DISABLE LOWERCASE .ENABLE DECIMAL ; .SETS ALET "A" .SETS BLET "B" .SETS CLET "C" .SETS DLET "D" .SETS HLET "H" .SETS JLET "J" .SETS KLET "K" .SETS MLET "M" .SETS NLET "N" .SETS SLET "S" .SETS BLLET " " ; L0001: .IFT .GOTO L0002 .GOTO L0003 L0002: ; ; ;MENY f|r hantering av MAIL och CIRKUL[R ; ;H=Hj{lp ! ;D=DEC-MAIL (Endast vissa anv{ndare) ;C=L{sa eller h{mta in cirkul{r ;B=L{sa, h{mta in eller makulera MAIL ;S=Skicka MAIL eller cirkul{r ;K=Kolla egen avs{nd MAIL (Kvittof|rteckning) ;M=F|rteckning |ver m|jliga mottagare ;A=Avsluta (]terg} till menyn f|r -96) ; .ASKS VAD Ange bokstav> .IF EQ 0 .GOTO L0004 ; .IF ALET EQ VAD[1:1] .GOTO L0003 .IF HLET EQ VAD[1:1] .GOTO L0006 .GOTO L0007 L0006: .GOSUB HELP .GOTO L0008 L0007: .IF DLET EQ VAD[1:1] .GOTO L0010 .GOTO L0009 L0010: .IFDF $MAI11 .GOTO L0011 .GOTO L0012 L0011: MAI .GOTO L0013 L0012: MAI DU [R INTE BEH\RIG ATT K\RA DEC-MAIL - KONTAKTA DATADRIFTEN TEL. 120 L0013: .GOTO L0008 L0009: .IF MLET EQ VAD[1:1] .GOTO L0015 .GOTO L0014 L0015: .GOSUB ANVAND .GOTO L0008 L0014: .IF KLET EQ VAD[1:1] .GOTO L0017 .GOTO L0016 L0017: .GOSUB KOLLA .GOTO L0008 L0016: .SETS UICS "" .SETF ALLA .ENABLE LOWERCASE .SETS BTYP "MAIL" .DISABLE LOWERCASE .IF BLET EQ VAD[1:1] .GOTO L0018 .GOTO L0019 L0018: .GOSUB MAIL .GOTO L0020 L0019: .IF SLET EQ VAD[1:1] .GOTO L0022 .GOTO L0021 L0022: .GOSUB SKICK .GOTO L0020 L0021: .SETS UICS "DU:[200,50]" .SETT ALLA .ENABLE LOWERCASE .SETS BTYP "cirkul{r" .DISABLE LOWERCASE .IF CLET EQ VAD[1:1] .GOTO L0023 .GOTO L0024 L0023: .GOSUB MAIL .GOTO L0025 L0024: ;'VAD' kunde jag inte f|rst}. L0025: L0020: L0008: ; .GOTO L0005 L0004: L0005: ; .GOTO L0001 L0003: ; ; ; .DISABLE DECIMAL .EXIT ; HELP: ;#6Litet HJ[LP med MAILhantering. ; ;Med MAIL kan Du kan ta emot , tabort och s{nda MAIL till/fr}n andra ;anv{ndare av -96. Med MAIL menas i detta sammanhang ett stycke text avsett att ;l{sas eller hanteras av en annan anv{ndare. MAIL som r|r ALLA kallas cirkul{r. ;N{r Du "tar emot" ett MAIL f|rvandlar Du det till ett "dokument" och kan sedan ;hantera det som vanligt. Om Du vill s{nda ett MAIL ska Du f|rst skapa ett ;dokument p} vanligt s{tt och sedan g} in i MAILhanteringen. ; ;#6S[NDNING ;MAILs{ndning tillg}r s}, att datorn kopierar ditt dokument och l{gger det p} ;mottagarnas konton. Varje g}ng mottagaren g}r in i eller ut ur systemet kollar ;det om MAIL finns p} hans/hennes konto. MAIL k{nns igen p} att namnet avslutas ;med .BRV . Detta beh|ver Du inte t{nka p} - systemet sk|ter det. ;Ett cirkul{r s{ndes p} samma s{tt som ett MAIL. Dock f}r inte mottagarna veta ;i TRATTEN att det har kommit ett nytt cirkul{r. Vilka cirkul{r, som finnes kan ;man bara f}r reda p} genom att titta i cirkul{rf|rteckningen. V{lj C i menyn. ; ;Mottagarf|rteckning kan du f} via menyn. V{lj M. ;Mottagare f|r cirkul{r {r "ALLA". De lagras p} ett s{rskilt st{lle, och allts} ;inte som ett MAIL f|r varje anv{ndare. ; ; .ASKS VAD Tryck f|r }terg}ng till menyn, f|r mera hj{lp > .IFT .GOTO L0026 ; ;#6Mera HJ[LP med MAILhantering. ; ;#6MOTTAGNING ;F|rst kan du skumma MAILet. Det inneb{r att texten i MAILet snabbt rullar fram. ;Du kan stoppa f|rbifarten genom att trycka p} och starta den igen ;med en ny tryckning p} . ;Efter den snabba genoml{sningen kan Du f} MAILet utskrivet om Du vill. ; ;Du har sedan 3 m|jligheter: ; 1. L}ta MAILet vara kvar f|r senare hantering. ; 2. Kasta MAILet i papperskorgen ; 3. F|rvandla MAILet till ett "dokument". I s} fall ska du ange det namn ; som Du vill att dokumentet ska f} p} ditt konto. ;Om du v{ljer 2) f|rsvinner MAILet. Om Du v{ljer 3) f|rvandlas MAILet till ett ;dokument med det namn Du har gett det. Det kan sedan hanteras som alla andra ;dokument. Hos avs{ndaren loggas vilket Du gjorde och n{r Du gjorde det. ;EXEMPEL p} anv{ndning: Skapa brevet KALLE. Skicka det som MAIL till ANNIKA ;f|r renskrift. ANNIKA r{ttar stavfel m.m., }s{tter diarienummer och skickar ;KALLE som MAIL tillbaka till Dig f|r godk{nnande. Du skapar dokumentet KALLEOK ;med ditt godk{nnande och s{nder det som MAIL till henne. Hon skriver ut det med ;ordbehandlaren snyggt och prydligt p} Uppsalabuss brevpapper och diarief|r det ;samt ombes|rjer postbfodran. (Det stod t.ex. i KALLEOK hur Du ville ha det.) .ASKS VAD Tryck f|r }terg}ng till menyn > ; .GOTO L0027 L0026: L0027: ; ; ; .RETURN ; KOLLA: ; ;Kvittof|rteckning |ver avs{nt mail samt kvittenser. ; .TESTFILE MAI'$PUSER'.FNS;-1 ![LDSTA FILEN .IF NE 1 .GOTO L0028 ; .PARSE ";" A B .SETN JNUM 'B' .TESTFILE MAI'$PUSER'.FNS;0 !NYASTE FILEN .IF NE 1 .GOTO L0028 .PARSE ";" A B .SETN MNUM 'B' ; L0030: .IF JNUM LE MNUM .GOTO L0031 .GOTO L0032 L0031: .TESTFILE MAI'$PUSER'.FNS;'JNUM' .IF EQ 1 .GOTO L0033 .GOTO L0034 L0033: .ENABLE QUIET TYP MAI'$PUSER'.FNS;'JNUM' .DISABLE QUIET ; .ENABLE LOWERCASE .SETS FRAG "Vill du kontrollera hos mottagaren" .DISABLE LOWERCASE .GOSUB TESTA .IFT JA .GOTO L0036 .GOTO L0037 L0036: ; .OPENR MAI'$PUSER'.FNS;'JNUM' .SETS DISSPC .READ FILSPC .CLOSE ; .OPENA MAI'$PUSER'.FNS;'JNUM' .TESTFILE 'FILSPC' .IF EQ 1 .GOTO L0039 .GOTO L0040 L0039: .OPENR #1 'FILSPC' .READ #1 FILSPC .CLOSE #1 ; .IF FILSPC EQ DISSPC .GOTO L0042 .GOTO L0043 L0042: ;Mailet ligger kvar i inkorgen hos mottagaren. .DATA '' '