.; .; LB:[1,2]ED.CMD F\R TAXKONTROLLERAD EDITERING .; .; O B S ! .SAT-FIL FINNES !; IPP-FIL ANV[NDES ! K\R @SAT ! .; .; .; HISTORIK: .; DATUM NAMN ]TG[RD .; 870212 B-E TAPPER F[RDIGST[LLT F\R ALLM[NT BRUK .; 870213 B-E TAPPER BUG MED QL .; 870216 B-E TAPPER STORA F\RB[TTRINGAR .; 870218 B-E TAPPER STANDARDADRESSER .; 870302 B-E TAPPER KOLL P] " " I NAMN .; 870303 B-E TAPPER Kvittenser och PF-tangenter .; 871230 B-E TAPPER Laserprinter, foldrar .; 880224 B-E TAPPER Time-out .; 880720 B-E TAPPER Annan ordning p} printer-fr}gorna + .SAT .; 880729 B-E TAPPER NEW i USERDEF .; .; .ENABLE TIMEOUT .ENABLE SUBSTITUTION .DISABLE DISPLAY .ENABLE GLOBAL .ENABLE ESCAPE .DISABLE LOWERCASE .DISABLE DECIMAL .; .SETS $USER P1 .SETS $PUSER P2 .; @LB:[1,2]USERDEF .; .SETS ALET "A" .SETS DLET "D" .SETS FLET "F" .SETS GLET "G" .SETS HLET "H" .SETS ILET "I" .SETS JLET "J" .SETS KLET "K" .SETS LLET "L" .SETS MLET "M" .SETS NLET "N" .SETS PLET "P" .SETS QLET "Q" .SETS RLET "R" .SETS SLET "S" .SETS TLET "T" .SETS ULET "U" .SETS AALET "a" .SETS BLLET " " .GOTO MERA .; .PROFIL: @LB:[1,2]PROF .GOTO MERA .; .ADRSES: @LB:[1,2]ADR .GOTO MERA .; .USER: @LB:[1,2]USER .GOTO MERA .; .MAIL: @LB:[1,2]MAIL .GOTO MERA .; .RQL: .ENABLE QUIET QLM .DISABLE QUIET .GOTO MERA .; .TANG: @LB:[1,2]PFT .; .MERA: ; ;#3MENY f|r -96 , mail och textbehandling. ;#4MENY f|r -96 , mail och textbehandling. ; ;#6Konto '$ID', anv{ndare '$ANVND' ; ;H = Hj{lp ! ;Q = K|ra Mimer-QL ;L = Skriva ut listor fr}n MIMER-QL p} skrivare ;M = Hantera MAIL och cirkul{r till/fr}n andra medarbetare ;D = Hantera dokument och brev f|r '$ID' ;I = Inl{ggning av dokument och brev i mappar '$ID' ;F = Framtagning av dokument och brev ur mappar '$ID' ;U = Utskrift av dokument och brev p} skrivare f|r '$ID' ;S = Hantera standardadress-register f|r '$ID' ;R = Rensa dokument eller mappar ur l}dan f|r '$ID' ;T = Ta bort MIMER-QL listfiler ;P = [ndra i profiler f|r '$ANVND', hantering av mallar f|r '$ID' ;K = Hantering av egna kommandoprocedurer f|r '$ID' ;G = Standardord f|r '$ANVND' (Programmering av PF-tangenter) ;A = Avsluta (till bussen) .ASKS [0:10::30M] VAD Ange bokstav> .IFT .EXIT .IF EQ 0 .GOTO MERA .IF ALET EQ VAD[1:1] .EXIT .IF AALET EQ VAD[1:1] .EXIT .IF ILET EQ VAD[1:1] .GOTO ARKIV .IF FLET EQ VAD[1:1] .GOTO TAFRAM .IF GLET EQ VAD[1:1] .GOTO TANG .IF HLET EQ VAD[1:1] .GOTO HELP .IF KLET EQ VAD[1:1] .GOTO USER .IF MLET EQ VAD[1:1] .GOTO MAIL .IF PLET EQ VAD[1:1] .GOTO PROFIL .IF QLET EQ VAD[1:1] .GOTO RQL .IF SLET EQ VAD[1:1] .GOTO ADRSES .SETF RENS .SETF PRT .SETF ED .SETF LETTER .SETF FULPOS .SETF QL .SETF QLR .SETS FVER ";*" .SETS FTYP ".LS" .ENABLE LOWERCASE .SETS DTYP "listfilen" .DISABLE LOWERCASE .SETS NAMN "QLPRI" .IF LLET EQ VAD[1:1] .SETT QL .IF TLET EQ VAD[1:1] .SETT QLR .IFT QL .GOTO EDIT .IFT QLR .GOTO EDIT .SETS FVER ";0" .SETS FUTYP ".UX" .SETS FTYP ".TX" .SETS ETYP ".TXT" .SETS LTYP ".TXT" .ENABLE LOWERCASE .SETS DTYP "dokumentet/brevet" .SETS TTYP "dokument" .DISABLE LOWERCASE .IF RLET EQ VAD[1:1] .SETT RENS .IFT RENS .GOTO EDIT .IF ULET EQ VAD[1:1] .SETT PRT .IFT PRT .GOTO EDIT .IF DLET EQ VAD[1:1] .SETT ED .IFT ED .GOTO EDIT ;'VAD' kunde jag inte f|rst}. .GOTO MERA .; .ARKIV: .TAFRAM: .GOTO MERA .; .; .HELP: ;#6Litet HJ[LP med -96. ; ;-96 ger dig m|jlighet att skapa, lagra, ta bort och skriva ut egna dokument. ;De lagras i ett "mappsk}p med l}dor". Staben ombes|rjer s{kerhetskopiering, ;normalt 2 g}nger i veckan. Med "dokument" menas i det h{r sammanhanget s}ledes ;ett stycke text, som Du har lagrat i din "l}da" i mappsk}pet. En del av ;anv{ndarna delar p} samma "l}da", t.ex. alla inom Gamlis. ; ;Ett dokument har alltid ett namn, som Du sj{lv best{mmer. Namnet best}r ;av upp till 9 tecken. Alla siffror och bokst{ver utom ],[ och \ {r till}tna. ;Specialtecken och ][\ {r f|rbjudna. I dokumentnamn skiljer datorn inte p} ;stora och sm} bokst{ver. Den "fil", som datorn lagrar ditt dokument p} har .TXx ;tillagt efter namnet. Du ska aldrig skriva ut .TXx sj{lv utom n{r Du anv{nder ;INCLUDE. x kan vara T,B,R eller S. TXx talar om typ av dokument f|r datorn. ; ;-96 till}ter {ven att Du kan ta emot , ta bort och s{nda MAIL till/fr}n andra ;anv{ndare av -96. Med MAIL menas ett stycke text avsett att l{sas och/eller ;hanteras av en annan anv{ndare. Avses ALLA anv{ndare kallas det 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. Mer hj{lp i MAIL. ; .ASKS [0:10::5M] VAD Tryck f|r }terg}ng till menyn, f|r mera hj{lp > .IFF .GOTO HELP1 ; .GOTO MERA .; .HELP1: ;#6Litet HJ[LP med brev kontra dokument. ; ;Ordbehandlingssystemet kan skapa s}v{l vanliga dokument (texter) som brev. ;Ett brev {r litet speciellt. Det passar p} n}got f|rtryckt papper, t.ex. ;brevpapper och skapas delvis automatiskt. Du kan om Du vill betrakta ett brev ;som ett vanligt dokument n{r det v{l {r skapat. Normalt b|r Du dock hantera ;det som ett brev. Skillnaden {r att ett brev har vissa best{mda format, som ;regleras av papprets storlek och svensk standard. Om Du hanterar ett dokument ;som brev har Du ocks} f|rdelen att sidombrytningen ske i stort sett ;automatiskt. F|r att Du ska kunna skapa brev m}ste Du ha minst en profil. ;Du kan ha upp till 10 olika profiler. En profil talar om vilket brevpapper Du ;anv{nder, vilka standardtexter som ska f|rekomma och hur brevet ska ;undertecknas. ;Ett dokument, som inte {r ett brev skiljer sig fr{mst p} det s{ttet, att Du har ;tillg}ng till hela pappret och att Du inte kan f} hj{lp med ;automatisk sidombrytning. ;Om ett dokument har f|rsvunnit eller om Du har gjort en st|rre felaktig ;{ndring av ett dokument och vill ha tillbaka en tidigare version, v{nd dig ;till staben, tel. 120. ;Varje g}ng Du har {ndrat p} ett dokument skapas n{mligen en ny version av det. ;Om Du inte s{ger till om att ta bort gamla versioner av dokumentet s} finns ;det kvar och kan }terf}s. .ASKS [0:10::5M] VAD Tryck f|r }terg}ng till menyn, f|r mera hj{lp > .IFF .GOTO HELP2 ; .GOTO MERA .; .HELP2: ;#6Litet tips f|r programmet EDT ; ;Man kan g|ra v{ldigt mycket med EDT, det program, som Du anv{nder n{r du ;{ndrar i dina dokument. Om Du beh|ver hj{lp med funtkionerna, anv{nd i f|rsta ;hand tangenten F2, eller, om det g{ller hj{lp med ett radkommando: Tryck F1 7 ;p} h|gra tangentbordet. N{r datorn skriver Command: skriver ;Du HELP "namnet p} kommadot" eller bara HELP. ; ;Tre funktioner b|r Du s{rskilt l{gga m{rke till, n{mligen INCLUDE, som man ;anv{nder f|r att skarva in annan text i sitt dokument, CUT/PASTE som man ;anv{nder f|r att stuva om text och FILL som man anv{nder f|r att automatiskt ;bryta om text. Om Du vill underl{tta f|r Dig, ta som regel att aldrig avstava ;n}got ord. Om Du f|ljer den regeln kommer Du att kunna arbeta mycket snabbare ;med maskinen (FILL fungerar). Om Du avstavar ord fungerar inte FILL. Om Du vill ;kan Du dock anv{nda halvautomatisk avstavning med "$ ". Fr}ga staben hur. ;F|ljande referensdokumentation finns att l}na p} staben: ;RSX-11M Mini-Reference (Del av Utilities-kapitlet) ;Introduction to RSX-11M and RSX-11M PLUS (Kapitel 2) ;EDT Editor Manual OBS ! SKALL KVITTERAS ! ; ;All dokumentation {r f.n. p} engelska. Svensk version unders|ks av Digital. ; .ASKS [0:10::5M] VAD Tryck f|r }terg}ng till menyn, f|r mera hj{lp > .IFF .GOTO HELP3 ; .GOTO MERA .; .HELP3: ;#6Litet hj{lp med begreppetMAPP ; ;Man kan ha sina dokument och brev liggande l|sa i "l}dan" eller samla dem i ;"mappar". En mapp {r en namngiven del av en l}da. Mapparna har alltid namn, ;som Du sj{lv best{mmer. Namnet best}r av upp till 9 tecken. Alla siffror och ;bokst{ver utom ],[ och \ {r till}tna. Specialtecken och ][\ {r f|rbjudna. ;I mappnamn skiljer datorn inte p} stora och sm} bokst{ver. Den "fil", som ;datorn lagrar ditt dokument p} har .UXx tillagt efter namnet. Du ska aldrig ;skriva ut .UXx sj{lv. UXx talar om typ av mapp f|r datorn. ; ;F|r att hantera ett brev eller ett dokument, som finns i en mapp m}ste det ;f|rst tas ut ur mappen. (Man kan ju inte stoppa en mapp i en skrivmaskin). ;Att l{gga ett dokument i en mapp kallas att arkivera dokumentet. ; ;N{r du tar bort dokument eller p} annat s{tt hanterar dokument, observera att ;dokumentet kan finnas b}de i l}dan (l|st) och i mappen. ; ; ; ; .ASKS [0:10::5M] VAD Tryck f|r }terg}ng till menyn > ; .GOTO MERA .; .; .; .EDIT: .IFT QL ;MIMER-QL listutskrift '$ID'. Svara J f|r JA , N eller f|r NEJ. .IFT QL ;MIMER-QL RENSNING '$ID'. Svara J f|r JA , N eller f|r NEJ. .IFT QL .GOTO MIMER .IFT QLR .GOTO MIMER .IFT ED ;DOKUMENT - EDITERING '$ID'. Svara J f|r JA , N eller f|r NEJ. .IFT RENS ;DOKUMENT - RENSNING '$ID'. Svara J f|r JA , N eller f|r NEJ. .IFT PRT ;DOKUMENT - UTSKRIFT '$ID'. Svara J f|r JA , N eller f|r NEJ. .; .IFF ED .GOTO NXXT .; .ENABLE LOWERCASE .SETS FRAG "Vill Du arbeta i brevformat" .DISABLE LOWERCASE .GOSUB TESTA .IFT JA .SETT LETTER .IFT JA .SETS ETYP ".TXR" .IFT JA .SETS LTYP ".TXB" .ENABLE LOWERCASE .IFT JA .SETS TTYP "brev" .DISABLE LOWERCASE .IFT JA .GOTO NXXT .; .ENABLE LOWERCASE .SETS FRAG "Vill Du arbeta med 98 positioner (NEJ=80)" .DISABLE LOWERCASE .GOSUB TESTA .IFT JA .SETT FULPOS .; .NXXT: .ENABLE LOWERCASE .SETS FRAG "Vill Du se f|rteckning |ver 'TTYP' i l}dan hos '$ID'" .DISABLE LOWERCASE .GOSUB TESTA .SETF LISTA .IFT JA .SETT LISTA .IFF LISTA .GOTO NXXXT .; .ENABLE LOWERCASE .SETS FRAG "Sorterad lista" .DISABLE LOWERCASE .GOSUB TESTA .ENABLE QUIET .IFT JA .IFT LISTA DIR *'LTYP' .IFF JA .IFT LISTA PIP *'LTYP'/LI/NM .DISABLE QUIET .IFT JA .IF NE 1 ;Det finns inga 'TTYP' i '$ID's l}da" .; .NXXXT: ; ;Om Du vill arbeta med ett 'TTYP' i en mapp m}ste du f|rst TA UT ;'TTYP'et ur mappen. .IFT ED ;Ange nedan namnet p} ett l|st 'TTYP'. Om Du anger ett namn, som inte .IFT ED ;finns i f|rteckningen antages att Du vill skapa ett nytt 'TTYP'. .IFT RENS ;Ange nedan namnet p} det dokument/brev, som Du vill rensa ur l}dan. .IFT PRT ;Ange nedan namnet p} det dokument/brev, som Du vill skriva ut. .GOTO NAMNFL .; .NAMNSY: ;Namnet 'NAMN' inneh}ller felaktiga tecken. .;S}dana fel kan jag dessv{rre inte hantera. G} in igen och stava r{tt. .;.EXIT .; .NAMNFL: .SETS NAMN "" ; .ASKS [0:20::5M] NAMN Ange [6#namn (=]ter till menyn) > .IF EQ 0 .GOTO MERA .IF GT 9. ;Namnet 'NAMN' {r f|r l}ngt. .IF GT 9. .GOTO NAMNFL .IF BLLET EQ NAMN[:] .GOTO NAMNSY .PARSE NAMN BLLET A B .IF NE 1 .GOTO NAMNSY .ONERR NAMNSY .SETN 3 .TESTFILE 'NAMN''LTYP' .ONERR .IF EQ 346 .IFT ED .GOTO NYTT .IF EQ 346 .IFT RENS ;Dokumentet 'NAMN' finns inte. .IF EQ 346 .IFT RENS .GOTO NAMNFL .IF EQ 346 .IFT PRT ;Dokumentet 'NAMN' finns inte. .IF EQ 346 .IFT PRT .GOTO NAMNFL .IF EQ 1 .IFT RENS .GOTO NIXPR .IF EQ 1 .IFT PRT .GOTO JOPR .IF EQ 1 .SETS EDSTRI "'NAMN''ETYP'" .IF EQ 1 .IFT LETTER .GOTO EDITA .IF EQ 1 .IFF LETTER .GOTO TXRFNS ; ;SYSTEMFEL. Felnummer ''. Kontakta datadriften tel. 120. ; .DELAY 5.s .GOTO MERA .; .TXRFNS: .TESTFILE 'NAMN'.TXR .IF EQ 346 .GOTO EDITA ;VARNING - DOKUMENTET [R ETT BREV. ;Om Du arbetar med det i Dokumentformat och sedan }ter arbetar ;med det i Brevformat tappar Du bort alla {ndringar Du gjorde ;n{r Du arbetade i Dokumentformat. .ENABLE LOWERCASE .SETS FRAG "Vill Du forts{tta i alla fall" .DISABLE LOWERCASE .GOSUB TESTA .IFF JA .GOTO MERA .GOTO EDITA .; .; .NYTT: ;Tidigare finns inte 'TTYP'et 'NAMN' hos '$ID'. .SETS EDSTRI "'NAMN''ETYP'" .IFT LETTER .GOTO LETT1 .; .ENABLE LOWERCASE ;Du arbetar i dokumentformat. .SETS FRAG "Vill Du g|ra ett brev {nd}" .DISABLE LOWERCASE .GOSUB TESTA .IFF JA .GOTO NYTT1 .; .LETT1: .ENABLE DECIMAL .ASKN [0:9:0:10M] PNUM Vilken profil avser Du att anv{nda > .IFT .GOTO MERA .TESTFILE PR'PNUM''$PUSER'.PRF .IF NE 1 ;Profil 'PNUM' finns inte f|r '$ANVND'. .IF NE 1 .GOTO LETT1 @LB:[1,2]ORG 'NAMN' 'PNUM' 'LETTER' !SKAPAR NAMN.TXB+NAMN.TXS el NAMN.TXT .DISABLE DECIMAL .IF NE 1 .GOTO MERA .IFF LETTER .GOTO EDITA .; .NYTT1: ;Om Du vill kan Du utg} fr}n ett gammalt 'TTYP'. Ange i s} fall namnet ;p} det 'TTYP'et nedan. Ange annars , s} f}r Du en tom sida. ;Det 'TTYP' du eventuellt v{ljer att utg} fr}n finns kvar och p}verkas inte. ;Ditt nya 'TTYP' kommer att heta 'NAMN' oavsett vad du v{ljer. .GOTO NAM2FL .; .NAM2SY: ;Namnet 'NAMN2' inneh}ller felaktiga tecken. .;S}dana fel kan jag dessv{rre inte hantera. G} in igen och stava r{tt. .;.EXIT .; .NAM2FL: .SETS NAMN2 "" .ASKS [0:20::5M] NAMN2 Ange namn p} 'TTYP'et Du vill utg} fr}n (=]ter till menyn) > .IFT .GOTO MERA .IFT .GOTO MERA .IF EQ 0 .GOTO EDITA .IF GT 9. ;Namnet 'NAMN2' {r f|r l}ngt. .IF GT 9. .GOTO NAM2FL .IF BLLET EQ NAMN2[:] .GOTO NAM2SY .PARSE NAMN2 BLLET A B .IF NE 1 .GOTO NAM2SY .ONERR NAM2SY .SETN 3 .TESTFILE 'NAMN2'.TXT .ONERR .IF EQ 346. ;Inget 'TTYP' med namnet 'NAMN2' finns. .IF EQ 346. .GOTO NAM2FL .IF EQ 1 .SETS EDSTRI "'NAMN''ETYP'='NAMN2''ETYP'" .IF EQ 1 .GOTO EDITA ; ;SYSTEMFEL. Felnummer ''. Kontakta datadriften tel. 120. ; .DELAY 5.s .GOTO MERA .; .EDITA: .ENABLE QUIET .IFT LETTER SET /BUF=TI:66. .IFT FULPOS SET /BUF=TI:98. .DISABLE QUIET EDT 'EDSTRI' .SETN EXSTAT .; .ENABLE QUIET SET /BUF=TI:80. .DISABLE QUIET ;[?3l ; .IF EXSTAT NE 1 ;SYSTEMFEL. EDT exit status ''. Kontakta datadriften tel. 120. .IF EXSTAT NE 1 .GOTO MERA .IFF LETTER .GOTO UTSK .ENABLE QUIET LTR 'NAMN',3 .DISABLE QUIET .IF NE 1 ;SYSTEMFEL. LTR exit status ''. Kontakta datadriften tel. 120. .IF NE 1 .GOTO MERA ; ;Kom ih}g att utskrift av brev b|r ske p} sk|nskrivaren eller hos ANNIKA. .; .UTSK: .ENABLE LOWERCASE .SETS FRAG "Vill Du ha 'NAMN' utskrivet" .DISABLE LOWERCASE .GOSUB TESTA .IFF JA .GOTO NIXPR .GOTO JOPR .; .; .MIMER: .TESTFILE QLPRI.LST .IF NE 1 ;Det finns ingen listfil fr}n MIMER. .IF NE 1 .GOTO MERA .IFT QLR .GOTO NIXPR .; .JOPR: .ENABLE LOWERCASE .SETS FRAG "Snygg utskrift p} sk|nskrivaren" .DISABLE LOWERCASE .GOSUB TESTA 'IF'.IFT JA ;Utskrift sker p} laserskrivaren i planavd/charters korridor. .ENABLE QUIET PIP *'FTYP'M;*/DE/NM PIP 'NAMN''FTYP'M/NV='NAMN''FTYP'T'FVER' PIP 'NAMN''FTYP'M/AP=LB:[1,2]FF.TXT PRI NP:='NAMN''FTYP'M .DISABLE QUIET 'ELSE' ;V{lj absolut inte lokal utskrift om Du inte har egen skrivare. .ENABLE LOWERCASE .SETS FRAG "Lokal utskrift p} Din egen skrivare" .DISABLE LOWERCASE .GOSUB TESTA 'IF'.IFT JA ;Utskrift sker p} Din egen skrivare. Den {r v{l p} ? .ENABLE QUIET SET /NOECHO=TI: .DISABLE QUIET ;W .ENABLE QUIET TYP 'NAMN''FTYP'T'FVER' .DISABLE QUIET ; X .ENABLE QUIET SET /ECHO=TI: .DISABLE QUIET 'ELSE' ;Utskrift sker p} systemprintern hos staben. .ENABLE QUIET PRI 'NAMN''FTYP'T'FVER' .DISABLE QUIET 'ENDIF' 'ENDIF' .; .; .NIXPR: .ENABLE LOWERCASE .SETS FRAG "Vill Du ta bort gamla versioner av 'NAMN'" .DISABLE LOWERCASE .GOSUB TESTA .ENABLE QUIET .IFT JA PIP 'NAMN''FTYP'%/PU/LD .DISABLE QUIET .; .ENABLE LOWERCASE .SETS FRAG "Vill Du ta bort alla versioner av 'DTYP' 'NAMN'" .DISABLE LOWERCASE .GOSUB TESTA .IFF JA .GOTO KVAR .IFT QL .GOTO EJKVAR .IFT QLR .GOTO EJKVAR .; .ENABLE LOWERCASE .SETS FRAG "[r Du stens{ker p} att 'NAMN' ska totalf|rst|ras" .DISABLE LOWERCASE .GOSUB TESTA .IFF JA .GOTO KVAR .; .EJKVAR: .ENABLE QUIET PIP 'NAMN''FTYP'%;*/DE/LD .DISABLE QUIET ;'NAMN' {r nu helt borttaget fr}n Ditt konto. .GOTO MERA .; .KVAR: ;'NAMN' ligger kvar. .GOTO MERA .; .TESTA: .SETF JA .ASKS [0:10::5M] TST 'FRAG' ? .IFT .EXIT .IF EQ 0 .RETURN .IF NLET EQ TST[1:1] .RETURN .IF JLET EQ TST[1:1] .SETT JA .IFT JA .RETURN ;Vad} "'TST'" ? .GOTO TESTA .; .; ED.CMD .;