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