1 ! SAVE UFD:KILLCJOB.BAC     Ver 1.0  1986-01-10       Bo Kullmar, 1789
1000 ! 
1010 Rubrik$='KILLCJOB.BAC      Ver 1.0'
1020 ; CHR$(12) Rubrik$
1030 ; : ; 
1040 ; 'Stopp av centralt job i LUX-NET'
1050 ! 
1060 ; CUR(5,0)
1070 INPUT 'Vill du stoppa centralt job (N) ? 'Svar$
1080 IF (ASCII(Svar$) AND 223)=74 Dummy=FNKillcjob ELSE ; : ; 'Centralt job stoppas ej!'
1090 END ! CHAIN 'STREAMER'
2000 DEF FNKillcjob
2010   ; 
2020   Ec=FNTalknet(14,19,0,0,0,0)
2030   IF Ec RETURN FNCenerr(Ec) ELSE ; 'Nedtagningen av centralt job gick bra!' : RETURN 0
2040 FNEND 
10000 ! 
10010 ! *********************************
10020 ! *
10030 ! *  Do communication with net central.
10040 ! *
10050 DEF FNTalknet(Fc,Sfc,B,C,D,E) LOCAL Z
10060   IF PEEK(PEEK2(24616))=201 RETURN -1 ! This is no Lux-net!!!
10070   POKE 64798,255 ! 0FFH -> BSAVE. => TFT. fake (use DOSBUF0).
10080   POKE 64961,Fc ! FC -> MSG.FC (Function code).
10090   POKE 64962,Sfc ! SFC -> MSG.SFC (Subfunction code).
10100   POKE 64963,C,B ! MSG.PDN, MSG.ERRB (BC register to/from central).
10110   POKE 64965,E,D ! Register DE to/from central.
10120   Z=CALL(24615) ! NETCALL. => Talk to net central
10130   RETURN PEEK(64962)
10140 FNEND 
10150 ! 
50000 DEF FNCenerr(Ecode) LOCAL I,A$=80
50010   IF Ecode=255 ; 'File not found!' : RETURN -1
50020   IF (Ecode AND 128)=0 RETURN 0
50030   I=Ecode AND 127 : RESTORE 50080
50040   READ A$ : WHILE I : READ A$ : I=I-1 : WEND : ; A$ : RETURN -1
50050   ! 
50060   ! Usual DOS traps
50070   ! 
50080   DATA 'CRC or AM error during read.'
50090   DATA 'CRC or AM error during write.'
50100   DATA 'Record format error.'
50110   DATA 'Record number out of range.'
50120   DATA 'Write protect violation.'
50130   DATA 'Delete or read protect violation.'
50140   DATA 'File space full.'
50150   DATA 'Drive off line.'
50160   DATA 'Disc write protect.'
50170   DATA 'Logical file not open.'
50180   DATA 'Invalid logical file number.'
50190   DATA 'Invalid drive number.'
50200   DATA 'Invalid trap number.'
50210   DATA 'Failure in system data.'
50220   DATA 'Invalid physical file number.'
50230   DATA '*** INVALID ERROR CODE'
50240   ! 
50250   ! Here follows specific net error codes
50260   ! 
50270   DATA 'Login please.'
50280   DATA 'You must be a superuser.'
50290   DATA 'Illegal subfunction code.'
50300   DATA 'Central task already running.'
50310   DATA 'Task not found.'
50320   DATA 'Can''t change directory.'
50330   DATA 'Bad login.'
50340   DATA 'Illegal terminal number.'
50350   DATA 'Login is not allowed at the moment.'
50360   DATA 'Can''t unmount this device.'
50370   DATA 'Someone is already exclusive.'
50380 FNEND