.; .; .; LB:[1,2]USER.CMD F\R K\RNING AV AMNV[NDAREDEFININERADE KOMMANDOFILER .; .; HISTORIK: .; DATUM NAMN ]TG[RD .; 870214 B-E TAPPER F[RDIGST[LLT F\R ALLM[NT BRUK .; 870302 B-E TAPPER " " I NAMN .; .; .ENABLE SUBSTITUTION .DISABLE DISPLAY .ENABLE GLOBAL .ENABLE ESCAPE .DISABLE LOWERCASE .DISABLE DECIMAL .; .SETS JLET "J" .SETS NLET "N" .SETS BLLET " " .GOTO MERA .; .EXEC: @'NAMN' .; .; .; .MERA: ; ;#6MENY f|r EGNA KOMMANDO-PROCEDURER. ; ;H=Hj{lp ! ;S=Starta egen kommandoprocedur konto '$ID' ;D=Definiera eller {ndra egen kommandoprocedur konto '$ID' ;R=Rensa bland egna procedurer konto '$ID' ;A=Avsluta (]terg} till MENY f|r -96) ; .ASKS VAD Ange bokstav> .IF EQ 0 .GOTO MERA .SETS ALET "A" .SETS DLET "D" .SETS HLET "H" .SETS RLET "R" .SETS SLET "S" .IF ALET EQ VAD[1:1] .EXIT .IF HLET EQ VAD[1:1] .GOTO HELP .; .SETF GO .SETF RENS .SETF ED .; .IF SLET EQ VAD[1:1] .SETT GO .IFT GO .GOTO EDIT .IF RLET EQ VAD[1:1] .SETT RENS .IFT RENS .GOTO EDIT .IF DLET EQ VAD[1:1] .SETT ED .IFT ED .GOTO EDIT ;'VAD' kunde jag inte f|rst}. .GOTO MERA .; .; .; .HELP: ;#6Litet HJ[LP med egna procedurer. ; ;-96 ger dig m|jlighet att skapa, lagra, ta bort och skriva ut egna procedurer. ;De lagras p} ett minne i datarummet. Staben ombes|rjer s{kerhetskopiering, ;normalt 2 g}nger i veckan. Med "procedur" menas i det h{r sammanhanget ;en MCR-kommandofil, som Du har lagrat p} "din" plats p} skivminnet. ; ;En procedur har alltid ett namn, som Du sj{lv best{mmer. Namnet best}r ;av upp till 9 tecken. Samma namnregler som f|r dokument g{ller. ;Den "fil", som datorn lagrar din procedur p} har .CMD tillagt efter namnet. ;Du ska aldrig skriva ut det sj{lv. ".CMD" anv{ndes av datorn f|r att den ska ;veta att filen inneh}ller en procedur. ; ;KOM I H]G - Det tar tid att l{ra sig g|ra egna procedurer. ;Normalt b|r Du best{lla en av staben i st{llet f|r att g|ra den sj{lv. ; ;F|ljande referensdokumentation finns att tillg} p} staben: ;Introduction to RSX-11M and RSX-11M PLUS - F}r l}nas ;MCR Operations Manual OBS ! SKALL KVITTERAS ! ;Indirect Command Processor Manual OBS ! REFERENSEXEMPLAR ! F]R EJ ; TAGAS FR]N STABEN !!!!!!!!!!!!! ; .ASKS VAD Tryck f|r }terg}ng till menyn > ; .GOTO MERA .; .; .; .EDIT: .IFT ED ;PROCEDURER - EDITERING '$ID'. Svara J f|r JA , N eller f|r NEJ. .IFT RENS ;PROCEDURER - RENSNING '$ID'. Svara J f|r JA , N eller f|r NEJ. .IFT GO ;PROCEDURER - K\RNING '$ID'. Svara J f|r JA , N eller f|r NEJ. .; .ENABLE LOWERCASE .SETS FRAG "Vill Du se procedurf|rteckning" .DISABLE LOWERCASE .GOSUB TESTA .ENABLE QUIET .IFT JA PIP *.CMD/LI/NM .DISABLE QUIET .IFT JA .IF NE 1 ;Det finns inga kommandoprocedurer. ; ; .IFT ED ;Ange nedan namnet p} en procedur. Om Du anger ett namn, som inte .IFT ED ;finns i f|rteckningen antages att Du vill skapa en ny procedur. .IFT RENS ;Ange nedan namnet p} den procedur, som Du vill rensa. .IFT GO ;Ange nedan namnet p} den procedur, som Du vill k|ra. .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 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'.CMD .ONERR .IF EQ 346 .IFT ED .GOTO NYTT .IF EQ 346 .IFT RENS ;Proceduren 'NAMN' finns inte. .IF EQ 346 .IFT RENS .GOTO NAMNFL .IF EQ 346 .IFT GO ;Proceduren 'NAMN' finns inte. .IF EQ 346 .IFT GO .GOTO NAMNFL .IF EQ 1 .IFT RENS .GOTO NIXPR .IF EQ 1 .IFT GO .GOTO EXEC .IF EQ 1 .SETS EDSTRI "'NAMN'.CMD" .IF EQ 1 .GOTO EDITA ; ;SYSTEMFEL. Felnummer ''. Kontakta datadriften tel. 120. ; .DELAY 5.s .GOTO MERA .; .; .; .NYTT: .SETS EDSTRI "'NAMN'.CMD" .; .NYTT1: ;Proceduren 'NAMN' finns inte tidigare. ;Om Du vill kan Du utg} fr}n en gammal procedur. Ange i s} fall namnet ;p} den proceduren nedan. Ange annars , s} f}r Du en tom procedur. ;Den procedur du eventuellt v{ljer att utg} fr}n finns kvar och p}verkas inte. ;Din nya procedur 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 NAMN2 Ange namn p} proceduren Du vill utg} fr}n (=]ter till menyn) > .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'.CMD .ONERR .IF EQ 346. ;Proceduren 'NAMN2' finns inte. .IF EQ 346. .GOTO NAM2FL .IF EQ 1 .SETS EDSTRI "'NAMN'.CMD='NAMN2'.CMD" .IF EQ 1 .GOTO EDITA ; ;SYSTEMFEL. Felnummer ''. Kontakta datadriften tel. 120. ; .DELAY 5.s .GOTO MERA .; .EDITA: EDT 'EDSTRI' .ENABLE LOWERCASE .SETS FRAG "Vill Du ha 'NAMN' utskriven" .DISABLE LOWERCASE .GOSUB TESTA .IFF JA .GOTO NIXPR .GOTO JOPR .; .; .JOPR: ;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 .IFT JA ;Utskrift sker p} Din egen skrivare. Den {r v{l p} ? .ENABLE QUIET .IFT JA SET /NOECHO=TI: .DISABLE QUIET .IFT JA ;W .ENABLE QUIET .IFT JA TYP 'NAMN'.CMD .DISABLE QUIET .IFT JA ; X .ENABLE QUIET .IFT JA SET /ECHO=TI: .DISABLE QUIET .IFT JA .GOTO NIXPR .ENABLE LOWERCASE .SETS FRAG "Snygg utskrift p} sk|nskrivaren" .DISABLE LOWERCASE .GOSUB TESTA .IFT JA ;Utskrift sker p} sk|nskrivaren i korridoren vid Gamlis kontor. .ENABLE QUIET .IFT JA PRI NP:='NAMN'.CMD .DISABLE QUIET .IFT JA .GOTO NIXPR ;Utskrift sker p} systemprintern hos staben. .ENABLE QUIET PRI 'NAMN'.CMD .DISABLE QUIET .; .; .NIXPR: .ENABLE LOWERCASE .SETS FRAG "Vill Du ta bort gamla versioner av 'NAMN'" .DISABLE LOWERCASE .GOSUB TESTA .ENABLE QUIET .IFT JA PIP 'NAMN'.CMD/PU/LD .DISABLE QUIET .; .ENABLE LOWERCASE .SETS FRAG "Vill Du ta bort alla versioner av prodeduren 'NAMN'" .DISABLE LOWERCASE .GOSUB TESTA .IFF JA .GOTO KVAR .; .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'.CMD;*/DE/LD .DISABLE QUIET ;'NAMN' {r nu helt borttagen fr}n Ditt konto. .GOTO MERA .; .KVAR: ;'NAMN' ligger kvar. .GOTO MERA .; .TESTA: .SETF JA .ASKS TST 'FRAG' ? .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 .;