1 REM Ins{nd av Bertil Wall <4227>    1985-10-20 14.49.03
100 ! save job.bac
105 ! * Gjort av Anders Bj|rn <2619>.
110 ! *
120 ! * Jobstr|mmar
130 ! * 
140 ! * Programmet "bokar" dosb 7.
150 ! * Dosb kan g|ras ledig igen genom
160 ! * poke 64833+7*16,255
170 ! * prog JOBAVSL.BAC g|r detta.
180 ! *
190 ! * PoP & CAGB  85 06 26
200 ! ***********************************************
210 ! 
211 INTEGER 
220 ! 
230 IF PEEK2(65292)<>32849 THEN POKE 65292,81,128 : POKE 65328,81,128 : CHAIN 'job.bac'
240 DIM A$=160
250 ; 
255 A=PEEK2(44)+20
260 POKE 32768,195,26,128
270 POKE 32794,221,229,197,229,213,62,5,221,33,3,128,1,1,0,33,PEEK(65425)
280 POKE 32810,PEEK(65426),34,145,255,33,227,255,205,A,SWAP%(A),56,19,58,227,255,254
290 POKE 32826,3,40,12,33,0,128,34,145,255,209,225,193,221,225,201,209
300 POKE 32842,225,193,221,225,195,144,255
310 REM Startadress =  32768 
320 ! 
330 ON ERROR GOTO 680
340 F=-1
350 ! 
360 ; '\ppnar k{llfilen'
370 OPEN 'job.txt' AS FILE 2
380 ! 
390 ; 'Skapar jobfilen'
400 PREPARE 'job.job' AS FILE 250
410 ! 
420 ON ERROR GOTO 480
430 ; '\verf|r informationen ...'
440 INPUT LINE #2,A$
450 PUT #250,LEFT$(A$,LEN(A$)-1)
460 GOTO 440
470 ! 
480 IF ERRCODE<>34 THEN ; 'Error ' ERRCODE : STOP 
490 PUT #250,CHR$(3)
500 CLOSE 2,250
510 ! 
520 FOR A=0 TO 6
530   Z(A)=PEEK(64833+A*16)
540   POKE 64833+A*16,0
550 NEXT A 
560 POKE 64833+7*16,255
570 ! 
580 ON ERROR GOTO 630
590 F=0
600 ; '\ppnar jobfilen'
610 OPEN 'job.job' AS FILE 250
620 GOTO 650
630 F=-1
640 ! 
650 FOR A=0 TO 6
660   POKE 64833+A*16,Z(A)
670 NEXT A 
680 IF F THEN ; 'Error ' ERRCODE : STOP 
690 ! 
700 Z=PEEK2(65356)
710 IF PEEK(Z+2)<>250 THEN Z=PEEK2(Z) : GOTO 710
720 ! 
730 FOR L=0 TO 22
740   POKE 32771+L,PEEK(L+Z)
750 NEXT L 
760 ! 
770 POKE Z+3,0
780 ! 
790 ; 'Tryck <RETURN> n{r jobstr|mmen ska b|rja ! ';
800 INPUT ''A$
810 POKE 65425,0,128