|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 26112 (0x6600)
Types: TextFile
Names: »mclproglist «
└─⟦9ccaf6601⟧ Bits:30008165 Bånd med SW8000 kildetekst/release værktøjer
└─⟦39138f30b⟧
└─⟦this⟧ »mclproglist «
*mcl operamcltxt list.yes \f tasgen mcl d.870514.114215 source file: operamcltxt 1 : -- ep 87.04.23 release 1.0 2 : -- 3 : -- Standard MCL program til brug for operatør 4 : -- og udvikling. 5 : -- 6 : AT 0 0 ERASE -- Slet skærmen 7 : 8 : WHILE <>=<> DO 9 : -- Udskriv menu'en 10 : MENU 25 1 <------ Standard operatør og udviklings menu ------> 11 : TEXT <> 12 : POINT <Job under s> 13 : AT 37 READ <med navn > 11 R 14 : LET N=<> 15 : LET A=<> 16 : WHILE A!=< > AND R!=<> DO 17 : LET N=<&N&A> 18 : LET A=R(1 1) 19 : LET R=R(2 12) 20 : ENDWHILE 21 : IF A!=< > THEN LET N=<&N&A> ENDIF 22 : IF N!=<> THEN 23 : CONVERT N 24 : ATTENTION <s> R 25 : SEND <job &N ^J> 26 : GET 13 A 27 : IF A=<ready> THEN 28 : AT 0 0 ERASE WRITE <Job &N startet> NL 29 : DIRECT A 30 : ELSE 31 : LET R=A 32 : LET A=<s> 33 : ENDIF 34 : ENDATTENTION 35 : AT 0 0 ERASE 36 : WRITE <Job &N stoppet med resultat &R (retur parameter= &A)> NL 37 : ENDIF 38 : TEXT <> 39 : POINT <Attention til proces> 40 : AT 46 READ <med navn > 11 R 41 : LET N=<> 42 : LET A=<> 43 : WHILE A!=< > AND R!=<> DO 44 : LET N=<&N&A> 45 : LET A=R(1 1) 46 : LET R=R(2 12) 47 : ENDWHILE 48 : IF N!=<> THEN 49 : CONVERT N 50 : ATTENTION N R 51 : AT 0 0 ERASE WRITE <to &N > NL 52 : DIRECT A 53 : ENDATTENTION 54 : AT 0 0 ERASE 55 : IF R!=<ok> THEN 56 : WRITE <Fejl: &R> NL 57 : ENDIF 58 : ENDIF 59 : TEXT <> 60 : POINT <S kommunikation> 61 : ATTENTION <s> R 62 : AT 0 0 ERASE WRITE <to s> NL 63 : DIRECT A 64 : ENDATTENTION 65 : AT 0 0 ERASE 66 : IF R!=<ok> THEN 67 : WRITE <S retur = &R, Stop retur = &A> NL 68 : ENDIF 69 : TEXT <> 70 : POINT <Operatør kommunikation (Tas)> 71 : ATTENTION <tas> R 72 : AT 0 0 ERASE 73 : DIRECT A 74 : ENDATTENTION 75 : AT 0 0 ERASE 76 : IF R!=<ok> THEN 77 : WRITE <Operatør ikke klar> NL 78 : ENDIF 79 : TEXT <> 80 : POINT <MCL program udførelse> 81 : AT 48 READ <navn > 11 R 82 : LET N=<> 83 : LET A=<> 84 : WHILE A!=< > AND R!=<> DO 85 : LET N=<&N&A> 86 : LET A=R(1 1) 87 : LET R=R(2 12) 88 : ENDWHILE 89 : IF N!=<> THEN 90 : CONVERT N 91 : EXECUTE N R 92 : AT 0 0 ERASE 93 : IF R=<unknown> OR R=<resources> THEN 94 : WRITE<Kan ikke starte &N (&R)> 95 : ELSE 96 : AT 0 0 ERASE WRITE <Retur = &R> NL 97 : ENDIF 98 : OUTPUT OFF 99 : ECHO OFF 100 : ENDIF 101 : TEXT < (eget MCL program)> 102 : TEXT <> 103 : POINT <Primo > 104 : EXECUTE <primomcl> R 105 : IF R=<unknown> OR R=<resources> THEN 106 : AT 0 0 ERASE 107 : WRITE<Kan ikke starte primo operatør menu (&R)> 108 : ENDIF 109 : OUTPUT OFF 110 : ECHO OFF 111 : TEXT <> 112 : POINT <Bruger opdatering> 113 : LET V=<bruger> 114 : EXECUTE <upcatmcl> V 115 : AT 0 0 WRITE V 116 : TEXT <> 117 : POINT <Frigiv terminal> 118 : LET V=<terminal> 119 : EXECUTE <upcatmcl> V 120 : AT 0 0 WRITE V 121 : TEXT <> 122 : POINT <Log ud (afmeld)> 123 : EXIT <Afsluttet> 124 : TEXT <> 125 : TEXT < operator menu 87.04.23 rel. 1.0> 126 : ENDMENU 127 : ENDWHILE mcl end code 1546 *mcl instermtxt list.yes \f tasgen mcl d.870514.114240 source file: instermtxt 1 : -- ep 87.04.23 release 1.0 2 : -- 3 : -- MCL program til installation af ny terminal 4 : -- Programmet startes ved tilmelding som bruger 'newterm' 5 : -- Dette kan kun gøres fra terminaler der ikke er kendt af Tas 6 : -- og som derfor benyttes som default terminal. 7 : -- 8 : OUTPUT OFF 9 : ECHO OFF 10 : IF U!=<newterm> THEN -- Test om det er bruger 'newterm' 11 : EXIT <Illegal bruger af installerings program> 12 : ENDIF 13 : WHILE <>=<> DO 14 : NL NL NL 15 : WRITE <*** Installering af ny terminal, rel. 1.0 ***> 16 : NL 17 : WRITE <------ Vælg terminaltype -----> NL NL 18 : WRITE <1 Hard copy terminal> NL 19 : WRITE <2 Ansi på 3600 frontend> NL 20 : WRITE <3 Ansi på CSP> NL 21 : WRITE <4 RC822 (RC851) emulator på 3600 frontend> NL 22 : WRITE <5 RC822 (RC851) emulator på CSP> NL 23 : WRITE <6 > NL 24 : WRITE <7 > NL 25 : WRITE <8 RC45 ansi på 3600 frontend> NL 26 : WRITE <9 RC45 ansi på CSP> NL 27 : WRITE <10 RC822 på 3600 frontend> NL 28 : WRITE <11 RC822 på CSP> NL 29 : WRITE <12 > NL 30 : WRITE <13 > NL 31 : READ <Indtast nummeret på terminalens type: > A 32 : NL 33 : READ <Indtast gruppenummer for terminal (1 til 95): > B 34 : IF B=< > OR B=<> THEN 35 : LOOP 36 : ENDIF 37 : NL 38 : READ <Bypass af terminal ? (j/n) > H 39 : NL 40 : READ <Indtast evt. beskrivelse af terminal: > C 41 : ATTENTION <s> R -- Send attention til s 42 : SEND <new instermproc base 0 0 buf 4 area 4 size 10000 prog fp run> 43 : GET 20 Q -- Læs svar fra s 44 : IF Q=<ready> THEN -- Hvis svar lig 'ready' så 45 : SEND <do z3.hn.y3.42.in.fp w3.hn.x3.2.in.2.in.z3, ^J> 46 : SEND < x1.104.le.12 send message wait answer, ^J> 47 : SEND < z0.x1.4.in.2 write y0.name.8 ^J> 48 : GET 27 P 49 : LET P=P(17 11) 50 : WRITE <Indsætter terminal &P > NL 51 : SEND <settascat ^J> -- Kald programmet settascat 52 : SEND <terminal &P^J> -- Angiv terminalnavn 53 : SEND <termtype &A^J> -- Angiv terminaltype 54 : SEND <termgroup &B^J> -- Angiv terminal gruppe 55 : IF H=<j> THEN SEND <bypass> ENDIF 56 : SEND <freetext &C^J> -- Angiv evt. supplerende tekst 57 : SEND <end ^J> -- Opdatering slut 58 : NL 59 : GET 80 C -- Hent svar fra settascat 60 : WRITE C -- Udskriv dette 61 : SEND<finis^J> -- FINIS til fp 62 : GET 1 W -- Vent på fp afslutning 63 : ENDIF 64 : ENDATTENTION -- Nedlæg sessions-terminal 65 : IF R!=<ok> OR Q!=<ready> THEN -- Test resultat af attention m.m 66 : WRITE<Fejl, kan ikke starte s-proces til brug for installation; &R,&Q> NL 67 : READ <Tast 'return' > R 68 : ENDIF 69 : EXIT <Terminal: &P Installering afsluttet> -- Afslut program 70 : ENDWHILE mcl end code 1172 *mcl primomcltxt list.yes \f tasgen mcl d.870514.114247 source file: primomcltxt 1 : -- ep 87.04.23 release 1.0 2 : -- 3 : ECHO ON 4 : LET D = <> 5 : LET O = <display ^J> 6 : 7 : WHILE <>=<> DO 8 : AT 0 0 ERASE 9 : 10 : MENU 15 4 <--- vælg device ---> 11 : TEXT <> 12 : 13 : -- for device specificering se venligst i: 14 : -- Primo Users Guide/Reference Manual/Installation Guide 15 : -- RCSL 31-D688 page 47 and 48 16 : 17 : POINT <1 system printer - printer -> 18 : LET D = <printer> 19 : 20 : POINT <2 angiv: process ell. device.hostno.hostid> 21 : AT 0 20 22 : ERASE READ <printer ? > D 23 : 24 : -- Valg af ny printer kan indsættes i menuen med følgende point 25 : -- printeren er tilsluttet hostid 5711 med subhost devno 21 26 : -- point <3 remote printer - ^Printer.21.5711 27 : -- let d = <@printer.21.5711> 28 : 29 : 30 : POINT <q returner> 31 : EXIT <signoff> 32 : TEXT <> 33 : TEXT <> 34 : TEXT <> 35 : TEXT <> 36 : TEXT <> 37 : TEXT <> 38 : TEXT <> 39 : TEXT <> 40 : TEXT <> 41 : TEXT <> 42 : TEXT <> 43 : TEXT <> 44 : TEXT <> 45 : TEXT < primo menu 87.04.23 rel 1.0> 46 : 47 : ENDMENU 48 : 49 : WHILE D != <> DO 50 : 51 : MENU 10 4 <--- vælg kommando ---> 52 : TEXT <> 53 : 54 : POINT <a gentag kommando> 55 : LET F = O 56 : POINT <b stop device - før kill,repeat,skip,suspend og route> 57 : LET F = <stop &D ^J> 58 : POINT <c start device> 59 : LET F = <start &D ^J> 60 : POINT <d display> 61 : LET F = <display ^J> 62 : POINT <e request> 63 : LET F = <request &D ^J> 64 : POINT <f kill af transport - husk stop> 65 : LET F = <kill &D ^J> 66 : POINT <g repeat - søg sider tilbage - husk stop> 67 : AT 0 23 68 : READ <gentag antal sider ? > E 69 : LET F = <repeat &D &E^J> 70 : POINT <h skip - søg sider frem - husk stop> 71 : AT 0 23 72 : READ <skip antal sider ? > E 73 : LET F = <skip &D &E^J> 74 : POINT <i suspend - stil udskrift i bero - husk stop> 75 : LET F = <suspend &D ^J> 76 : POINT <j route - send udskrift til anden printer - husk stop og suspend> 77 : AT 0 23 78 : READ <route til ? > E 79 : LET F = <route &D &E^J> 80 : POINT <k select - vælg papir type/prioritet> 81 : AT 0 23 82 : READ <specification ? > E 83 : LET F = <select &D &E^J> 84 : TEXT < - papir type : group.queue> 85 : TEXT < - prioritet : first/ last/ next/ previous/ suspend> 86 : POINT <l drain - stop printer når transport er færdig> 87 : LET F = <drain &D ^J> 88 : POINT <m vælg en anden printer> 89 : LET D = <> 90 : LOOP 91 : POINT <n definer egen kommando> 92 : AT 0 23 93 : READ <kommando ? > E 94 : LET F = <&E ^J> 95 : POINT <q returner> 96 : EXIT <signoff> 97 : ENDMENU 98 : 99 : IF F != <> THEN 100 : AT 0 0 ERASE 101 : ATTENTION <primo> R 102 : SEND F 103 : DIRECT P 104 : ENDATTENTION 105 : IF R!=<ok> THEN 106 : SELECT R OF 107 : CASE <unknown> 108 : WRITE <Primo er ikke startet> 109 : CASE <timeout> 110 : WRITE <Primo svarer ikke> 111 : CASE <resource> 112 : WRITE <Midlertidigt ingen adgang til primo> 113 : OTHERWISE 114 : WRITE <Forbindelse til primo afbrudt !> 115 : ENDSELECT 116 : ENDIF 117 : ENDIF 118 : 119 : LET O = F 120 : LET F = <> 121 : 122 : 123 : ENDWHILE 124 : 125 : 126 : ENDWHILE mcl end code 1656 *mcl stdmcltxt list.yes \f tasgen mcl d.870514.114303 source file: stdmcltxt 1 : -- ep 87.04.23 rel. 1.0 2 : -- 3 : -- Eksempel på mcl program til brug ved udviklingsopgaver 4 : -- 5 : AT 0 0 ERASE -- Slet skærmen 6 : LET N=<> -- Fjern blanke efter brugernavn i U 7 : LET A=<> -- Dette gøres kun af hensyn til udskrift !!! 8 : WHILE A!=< > AND U!=<> DO 9 : LET N=<&N&A> 10 : LET A=U(1 1) 11 : LET U=U(2 12) 12 : ENDWHILE 13 : IF A!=< > THEN LET N=<&N&A> ENDIF 14 : LET U=N 15 : WHILE <>=<> DO 16 : -- Udskriv menu'en 17 : MENU 25 3 < --- Vælg venligst et af følgende punkter --- > 18 : TEXT <> 19 : TEXT<> 20 : POINT <Eget job under s> 21 : AT 43 WRITE <VENT> 22 : ATTENTION <s> R -- Send attention til s via sessions-terminal 23 : SEND <job &U ^J> -- Besvar input fra s 24 : GET 13 A -- Hent svar fra s 25 : SELECT A OF -- Test det 26 : CASE <ready> 27 : AT 0 0 ERASE WRITE <Job &U startet> NL 28 : DIRECT A 29 : CASE <process exist> 30 : AT 0 0 ERASE WRITE <Job &U eksisterer i forvejen> 31 : LOOP 32 : OTHERWISE 33 : LET R=A 34 : LET A=<s> 35 : ENDSELECT 36 : ENDATTENTION 37 : AT 0 0 ERASE 38 : WRITE <Job &U stoppet med resultat &R (retur parameter= &A)> NL 39 : TEXT <> 40 : POINT <Job under s> 41 : AT 37 READ <med navn > 11 R 42 : LET N=<> 43 : LET A=<> 44 : WHILE A!=< > AND R!=<> DO 45 : LET N=<&N&A> 46 : LET A=R(1 1) 47 : LET R=R(2 12) 48 : ENDWHILE 49 : IF N!=<> THEN 50 : CONVERT N -- konverter navn til små bogstaver 51 : ATTENTION <s> R 52 : SEND <job &N ^J> 53 : GET 20 A -- læs svar fra s 54 : IF A=<ready> THEN 55 : AT 0 0 ERASE WRITE <Job &N startet> NL 56 : DIRECT A 57 : ELSE 58 : LET R=A 59 : LET A=<s> 60 : ENDIF 61 : ENDATTENTION 62 : AT 0 0 ERASE 63 : WRITE <Job &N stoppet med resultat &R (retur parameter= &A)> NL 64 : ENDIF 65 : TEXT <> 66 : POINT <Attention til proces> 67 : AT 46 READ <med navn > 11 R 68 : LET N=<> 69 : LET A=<> 70 : WHILE A!=< > AND R!=<> DO 71 : LET N=<&N&A> 72 : LET A=R(1 1) 73 : LET R=R(2 12) 74 : ENDWHILE 75 : IF N!=<> THEN 76 : CONVERT N 77 : ATTENTION N R 78 : AT 0 0 ERASE WRITE <to &N > NL 79 : DIRECT A 80 : ENDATTENTION 81 : AT 0 0 ERASE 82 : IF R!=<ok> THEN 83 : WRITE <Fejl: &R> NL 84 : ENDIF 85 : ENDIF 86 : TEXT <> 87 : POINT <S kommunikation> 88 : ATTENTION <s> R 89 : AT 0 0 ERASE WRITE <to s> NL 90 : DIRECT A 91 : ENDATTENTION 92 : AT 0 0 ERASE 93 : IF R!=<ok> THEN 94 : WRITE <S retur = &R, Stop retur = &A> NL 95 : ENDIF 96 : TEXT <> 97 : POINT <Operatør kommunikation> 98 : ATTENTION <tas> R -- send attention til tas selv 99 : AT 0 0 ERASE 100 : DIRECT A 101 : ENDATTENTION 102 : AT 0 0 ERASE 103 : IF R!=<ok> THEN 104 : WRITE <Operatør ikke klar> NL -- ikke flere ledige 105 : ENDIF 106 : TEXT <> 107 : POINT <MCL program udførelse> 108 : AT 48 READ <navn > 11 R 109 : LET N=<> 110 : LET A=<> 111 : WHILE A!=< > AND R!=<> DO 112 : LET N=<&N&A> 113 : LET A=R(1 1) 114 : LET R=R(2 12) 115 : ENDWHILE 116 : IF N!=<> THEN 117 : CONVERT N 118 : EXECUTE N R -- start nyt mcl-program 119 : IF R=<unknown> OR R=<resources> THEN 120 : AT 0 0 ERASE 121 : WRITE<Kan ikke starte &N (&R)> 122 : ELSE 123 : AT 0 0 ERASE WRITE <Retur = &R> NL 124 : ENDIF 125 : OUTPUT OFF 126 : ECHO OFF 127 : ENDIF 128 : TEXT < (eget MCL program)> 129 : ---- tekst hørende til forrige point !! 130 : TEXT <> 131 : POINT <Log ud (afmeld)> 132 : EXIT <Afsluttet> 133 : TEXT <> 134 : TEXT <> 135 : TEXT < std menu 87.04.23 rel. 1.0> 136 : ENDMENU 137 : ENDWHILE 138 : -- MCL eksempel slut mcl end code 1612 *mcl upcatmcltxt list.yes \f tasgen mcl d.870514.114325 source file: upcatmcltxt 1 : -- ep 87.04.23 release 1.0 2 : -- 3 : AT 0 0 ERASE 4 : AT 35 22 WRITE <Katalog opdaterings menu 87.04.23 rel. 1.0> 5 : AT 0 4 WRITE <Opdatering af tascat kan kun ske fra s process> 6 : LET P=< > 7 : WHILE P=< > DO AT 0 5 READ <Navn på s process > 11 P ENDWHILE 8 : 9 : SELECT V OF 10 : 11 : CASE <bruger> -- bruger opdatering 12 : WHILE <>=<> DO 13 : MENU 25 4 <- - - - - - Tascat opdateringer - - - - - - > 14 : TEXT <> 15 : POINT <Ny bruger> 16 : AT 0 0 ERASE 17 : AT 0 4 WRITE <bruger id_ password_ mandag_ tirsdag_ onsdag_ torsdag> 18 : WRITE <_ fredag_ lørdag_ søndag_ sessions_ privilege_ mclname_ mclbase_ groups_ mcltxt_ freetext> 19 : LET A=< > 20 : WHILE A=< > DO 21 : AT 12 4 READ <> 11 A 22 : ENDWHILE 23 : AT 12 4 WRITE <&A > 24 : IF A=<x> THEN AT 0 0 ERASE LOOP ENDIF 25 : AT 12 5 READ <> B 26 : IF B=<x> THEN AT 0 0 ERASE LOOP ENDIF 27 : IF B=< > THEN LET B=<> AT 12 5 28 : WRITE <ingen > ENDIF 29 : AT 0 6 READ <tidsbegrænsninger j/n> 1 C 30 : AT 0 6 WRITE <mandag > 31 : IF C=<x> THEN AT 0 0 ERASE LOOP ENDIF 32 : IF C=<j> THEN 33 : AT 10 6 READ <> 15 C 34 : IF C=<x> THEN AT 0 0 ERASE LOOP ENDIF 35 : AT 10 6 36 : IF C=< > THEN LET C=<> WRITE <ingen adgang > ELSE 37 : WRITE <&C > ENDIF 38 : AT 10 7 READ <> 15 D 39 : IF D=<x> THEN AT 0 0 ERASE LOOP ENDIF 40 : AT 10 7 41 : IF D=< > THEN LET D=<> WRITE <ingen adgang > ELSE 42 : WRITE <&D > ENDIF 43 : AT 10 8 READ <> 15 E 44 : IF E=<x> THEN AT 0 0 ERASE LOOP ENDIF 45 : AT 10 8 46 : IF E=< > THEN LET E=<> WRITE <ingen adgang > ELSE 47 : WRITE <&E > ENDIF 48 : AT 10 9 READ <> 15 F 49 : IF F=<x> THEN AT 0 0 ERASE LOOP ENDIF 50 : AT 10 9 51 : IF F=< > THEN LET F=<> WRITE <ingen adgang > ELSE 52 : WRITE <&F > ENDIF 53 : AT 10 10 READ <> 15 G 54 : IF G=<x> THEN AT 0 0 ERASE LOOP ENDIF 55 : AT 10 10 56 : IF G=< > THEN LET G=<> WRITE <ingen adgang > ELSE 57 : WRITE <&G > ENDIF 58 : AT 10 11 READ <> 15 H 59 : IF H=<x> THEN AT 0 0 ERASE LOOP ENDIF 60 : AT 10 11 61 : IF H=< > THEN LET H=<> WRITE <ingen adgang > ELSE 62 : WRITE <&H > ENDIF 63 : AT 10 12 READ <> 15 J 64 : IF J=<x> THEN AT 0 0 ERASE LOOP ENDIF 65 : AT 10 12 66 : IF J=< > THEN LET J=<> WRITE <ingen adgang > ELSE 67 : WRITE <&J > ENDIF 68 : ELSE 69 : LET C=<0 24> LET D=C LET E=C LET F=C LET G=C LET H=C 70 : LET J=C 71 : AT 10 6 WRITE <0 24> 72 : AT 10 7 WRITE <0 24> 73 : AT 10 8 WRITE <0 24> 74 : AT 10 9 WRITE <0 24> 75 : AT 10 10 WRITE <0 24> 76 : AT 10 11 WRITE <0 24> 77 : AT 10 12 WRITE <0 24> 78 : ENDIF 79 : AT 10 13 READ <> 20 L 80 : IF L=<x> THEN AT 0 0 ERASE LOOP ENDIF 81 : AT 10 13 82 : IF L=< > THEN LET L=< 9 > WRITE <9 > ELSE 83 : WRITE <&L > ENDIF 84 : AT 10 14 READ <> 20 M 85 : IF M=<x> THEN AT 0 0 ERASE LOOP ENDIF 86 : AT 10 14 87 : IF M=< > THEN LET M=<> WRITE <ingen > ELSE 88 : WRITE <&M > ENDIF 89 : AT 10 15 READ <> 11 N 90 : IF N=<x> THEN AT 0 0 ERASE LOOP ENDIF 91 : AT 10 15 92 : IF N=< > THEN LET N=<stdmcl> WRITE <stdmcl > ELSE 93 : WRITE <&N > ENDIF 94 : AT 10 16 READ <> 20 O 95 : IF O=<x> THEN AT 0 0 ERASE LOOP ENDIF 96 : AT 10 16 97 : IF O=< > THEN LET O=<> WRITE <0 0 > ELSE 98 : WRITE <&O > ENDIF 99 : AT 10 17 READ <> 20 K 100 : IF K=<x> THEN AT 0 0 ERASE LOOP ENDIF 101 : AT 10 17 102 : IF K=< > THEN LET K=< 2 > WRITE <2 > ELSE 103 : WRITE <&K > ENDIF 104 : AT 10 18 READ <> Q 105 : IF Q=<x> THEN AT 0 0 ERASE LOOP ENDIF 106 : IF Q=< > THEN LET Q=<> ENDIF 107 : AT 10 19 READ <> V 108 : IF V=<x> THEN AT 0 0 ERASE LOOP ENDIF 109 : IF V=< > THEN LET V=<> ENDIF 110 : AT 0 22 WRITE <...................> AT 0 22 111 : LET W=<> 112 : ATTENTION <s> R 113 : SEND <new &P base 0 0 perm disc 0 2 size 10000 run> 114 : GET 27 X 115 : IF X!=<ready> THEN 116 : AT 0 0 EXIT X 117 : ENDIF 118 : SEND <settascat^J> WRITE< > 119 : LET X=<123456789abcdefg> 120 : WHILE X!=<> DO 121 : LET Z=<> 122 : SELECT X OF 123 : CASE <1> LET Z=<user &A> 124 : CASE <2> IF B!=<> THEN LET Z=<password &B> ENDIF 125 : CASE <3> IF C!=<> THEN LET Z=<monday &C> ENDIF 126 : CASE <4> IF D!=<> THEN LET Z=<tuesday &D> ENDIF 127 : CASE <5> IF E!=<> THEN LET Z=<wednesday &E> ENDIF 128 : CASE <6> IF F!=<> THEN LET Z=<thursday &F> ENDIF 129 : CASE <7> IF G!=<> THEN LET Z=<friday &G> ENDIF 130 : CASE <8> IF H!=<> THEN LET Z=<saturday &H> ENDIF 131 : CASE <9> IF J!=<> THEN LET Z=<sunday &J> ENDIF 132 : CASE <a> LET Z=<sessions &L> 133 : CASE <b> IF M!=<> THEN LET Z=<privilege &M> ENDIF 134 : CASE <c> LET Z=<mclname &N> 135 : CASE <d> IF O!=<> THEN LET Z=<base &O> ENDIF 136 : CASE <e> LET Z=<groups &K> 137 : CASE <f> IF Q!=<> THEN LET Z=<mcltext &Q> ENDIF 138 : CASE <g> IF V!=<> THEN LET Z=<freetext &V> ENDIF 139 : ENDSELECT 140 : IF Z!=<> THEN 141 : SEND <&Z^J> 142 : GET 60 W 143 : IF W!=<> THEN 144 : AT 0 0 WRITE W 145 : LET X=<> 146 : ELSE 147 : WRITE < > 148 : LET X=X(2 30) 149 : ENDIF 150 : ELSE 151 : LET X=X(2 30) WRITE < > 152 : ENDIF 153 : ENDWHILE 154 : SEND <end^J> WRITE < > 155 : GET 60 V 156 : IF V!=<> THEN 157 : IF W=<> THEN AT 0 0 ENDIF 158 : WRITE V 159 : ENDIF 160 : SEND <finis^J> WRITE < > 161 : GET 1 V 162 : ENDATTENTION 163 : IF R!=<ok> THEN 164 : AT 0 0 ERASE WRITE <attention error &R> NL 165 : ENDIF 166 : AT 0 4 ERASE 167 : 168 : TEXT <> 169 : POINT <List bruger> 170 : LET Q=< > 171 : WHILE Q=< > DO AT 38 READ <id > 11 Q ENDWHILE 172 : IF Q=<x> THEN AT 0 0 ERASE LOOP ENDIF 173 : ATTENTION <s> R 174 : SEND <new &P base 0 0 perm disc 0 2 size 10000 run> 175 : GET 27 X 176 : IF X!=<ready> THEN 177 : AT 0 0 EXIT X 178 : ENDIF 179 : SEND <listtascat user.&Q^J> 180 : AT 0 0 ERASE 181 : OUTPUT ON 182 : SEND <finis^J> 183 : OUTPUT OFF 184 : GET 1 V 185 : NL READ <type cr > 1 V 186 : ENDATTENTION 187 : IF R!=<ok> THEN 188 : AT 0 0 WRITE <attention error &R> NL 189 : ENDIF 190 : AT 0 0 ERASE 191 : 192 : TEXT <> 193 : POINT <Slet bruger> 194 : LET Q=< > 195 : WHILE Q=< > DO AT 38 READ <id > 11 Q ENDWHILE 196 : IF Q=<x> THEN AT 0 0 ERASE LOOP ENDIF 197 : AT 0 0 ERASE 198 : ATTENTION <s> R 199 : SEND <new &P base 0 0 perm disc 0 2 size 10000 run> 200 : GET 27 X 201 : IF X!=<ready> THEN 202 : EXIT X 203 : ENDIF 204 : SEND <deltascat user.&Q^J> 205 : GET 60 V 206 : WRITE V 207 : SEND <finis^J> 208 : GET 1 V 209 : ENDATTENTION 210 : IF R!=<ok> THEN 211 : WRITE <attention error &R> NL 212 : ENDIF 213 : AT 0 2 ERASE 214 : 215 : TEXT <> 216 : POINT <Bruger frigives> 217 : LET Q=< > 218 : WHILE Q=< > DO AT 42 READ <id > 11 Q ENDWHILE 219 : IF Q=<x> THEN AT 0 0 ERASE LOOP ENDIF 220 : AT 65 WRITE <.....> AT 65 221 : ATTENTION <s> R 222 : SEND <new &P base 0 0 perm disc 0 2 size 10000 run> 223 : GET 27 X 224 : IF X!=<ready> THEN 225 : AT 0 0 ERASE EXIT X 226 : ENDIF 227 : SEND <settascat^J> WRITE < > 228 : GET 60 V 229 : IF V=<> THEN 230 : SEND <user &Q^J> WRITE < > 231 : GET 40 V 232 : IF V=<> THEN SEND <block 0^J> WRITE < > ELSE 233 : AT 0 0 ERASE WRITE V ENDIF 234 : ELSE 235 : AT 0 0 ERASE WRITE V 236 : ENDIF 237 : SEND <end^J> WRITE < > 238 : GET 60 V 239 : IF V!=< > THEN AT 0 0 ERASE WRITE V ENDIF 240 : SEND <finis^J> 241 : GET 1 V 242 : ENDATTENTION 243 : IF R!=<ok> THEN 244 : AT 0 0 ERASE WRITE <Attention error &R> NL 245 : ENDIF 246 : TEXT <> 247 : POINT <Retur> 248 : EXIT <end tascat opdateringer> 249 : ENDMENU 250 : ENDWHILE 251 : 252 : CASE <terminal> -- opdatering af terminal indgang 253 : AT 0 0 ERASE 254 : AT 0 10 READ <Terminal navn > 11 Q 255 : IF Q=<x> THEN AT 0 0 ERASE EXIT <> ENDIF 256 : AT 0 0 WRITE <......> AT 0 0 257 : ATTENTION <s> R 258 : SEND <new &P base 0 0 perm disc 0 2 size 10000 run> 259 : GET 27 X 260 : IF X!=<ready> THEN 261 : AT 0 0 WRITE < > EXIT X 262 : ENDIF 263 : WRITE < > 264 : SEND <settascat^J> WRITE < > 265 : GET 60 V 266 : IF V=<> THEN 267 : SEND <terminal &Q^J> WRITE < > 268 : GET 40 V 269 : IF V=<> THEN SEND <block 0^J> WRITE < > ELSE 270 : AT 0 1 WRITE V ENDIF 271 : ELSE 272 : AT 0 1 WRITE V 273 : ENDIF 274 : SEND <end^J> WRITE < > 275 : GET 60 V 276 : SEND <finis^J> 277 : GET 1 W 278 : ENDATTENTION 279 : IF R!=<ok> THEN 280 : AT 0 0 WRITE <Attention error &R> NL 281 : ENDIF 282 : AT 0 0 WRITE < > 283 : IF V=<> THEN LET V=<terminal frigivet> ENDIF 284 : EXIT V 285 : ENDSELECT mcl end code 4852 *o c ▶EOF◀