;Denna fil inneh}ller i ordning k{llkoden
         ;till programmen GOLV S[NK & S[NKIF
         ;
         ;GOLV
         ;
        ORG 49152   ;***
    FBB: DEFB FBS-FBB   ;RADL[NGD
         DEFB 1         ;RADNUM START
         DEFB 0
         DEFB 135
    LLB: DEFB LLS-LLB
         DEFB 187       ;STEP VID LIST
         DEFB 203
         DEFB 163
         DEFB BS-BB
     BB: EX DE,HL
         LD BC,-(LLS-LLB)
         ADD HL,BC
         EX DE,HL
         LD C,-(LLS-RUBR)
         ADD HL,BC
         LD BC,BS-RUBR
         LDIR
         LD C,TRE-BS
         ADD HL,BC     ;B=0 : HL PEK 13
         RET
   RUBR: DEFM 'GOLV+'
     BS: DEFB 203
         DEFB 13
         DEFB 0
         DEFB 187
    LLS: DEFB 131
         DEFB 203
         DEFB 255
         DEFB SS-SB    ;SEKVENSL[NGD
     SB: POP BC        ;B=0
   KILL: PUSH DE       ;ADR I PROG
         LD HL,-(TRE-KILL)
         ADD HL,DE
         LD (HL),201   ;KILL THIS LINE
         ;
         LD DE,(65052) ;GOLVET
         LD HL,(65054) ;EOFA
         PUSH HL       ;EOFA
         PUSH HL
         AND A
         SBC HL,DE     ;FLYTT L[NGD-1
         INC HL
         LD B,H
         LD C,L        ;FLYTTL[NGD
         POP HL        ;EOFA
         POP DE        ;EOFA
         LD A,5        ;5 BLOCK
         PUSH AF
         ADD A,H
         LD H,A
         LD (65054),HL ;NY EOFA
         EX DE,HL
         LDDR          ;FLYTTA
         INC DE
         LD (65052),DE ;NYTT GOLV
         ;
         LD A,(2689)
         CP 221
         PUSH AF
         CALL Z,2689   ;CLEAR
         POP AF
         CALL NZ,2688
         CALL 3694     ;FIX PGM
         POP AF
         POP DE
         ADD A,D
         LD D,A
         RET           ;RET TILL BASIC
     SS: DEFB 186
    TRE: DEFB 13
    FBS: DEFB 1
   ZEND: END
         ;           :S[NK TAKET
         ;S[NK       :TILL 244
         ;
        ORG 49152   ;***
    FBB: DEFB FBS-FBB   ;RADL[NGD
         DEFB 1         ;RADNUM START
         DEFB 0
         DEFB 135
    LLB: DEFB LLS-LLB
         DEFB 187       ;STEP VID LIST
         DEFB 203
         DEFB 163
         DEFB BS-BB
     BB: EX DE,HL
         LD BC,-(LLS-LLB)
         ADD HL,BC
         EX DE,HL
         LD C,-(LLS-RUBR)
         ADD HL,BC     ;HL PEK P] RUBR
         LD BC,BS-RUBR
         LDIR
         LD C,TRE-BS
         ADD HL,BC     ;B=0 : HL PEK 13
         RET
   RUBR: DEFM 'TAK-'
     BS: DEFB 203
         DEFB 13
         DEFB 0
         DEFB 187
    LLS: DEFB 131
         DEFB 203
         DEFB 255
         DEFB SS-SB    ;SEKVENSL[NGD
     SB: POP AF        ;SEKV L[NGD
         POP IX        ;ADR I TOLKEN
         POP BC        ;ADR I TOLKEN
         POP AF        ;ERR 29
         LD H,244      ;L=0  BLOCK 244
         LD (65063),HL ;TAKET
         LD SP,HL
         PUSH AF
         PUSH BC
         JP (IX)       ;'RET' TILL BASIC
     SS: DEFB 186
    TRE: DEFB 13
    FBS: DEFB 1
   ZEND: END
         ;            :KOLL OM DISK
         ;S[NKIF      :FINNS
         ;            :=> S[NK TAKET
        ORG 49152   ;***
    FBB: DEFB FBS-FBB   ;RADL[NGD
         DEFB 1         ;RADNUM START
         DEFB 0
         DEFB 135
    LLB: DEFB LLS-LLB
         DEFB 187       ;STEP VID LIST
         DEFB 203
         DEFB 163
         DEFB BS-BB
     BB: EX DE,HL
         LD BC,-(LLS-LLB)
         ADD HL,BC
         EX DE,HL
         LD C,-(LLS-RUBR)
         ADD HL,BC     ;HL PEK P] RUBR
         LD BC,BS-RUBR
         LDIR
         LD C,TRE-BS
         ADD HL,BC     ;B=0 : HL PEK 13
         RET
   RUBR: DEFM 'TAK-'
     BS: DEFB 203
         DEFB 13
         DEFB 0
         DEFB 187
    LLS: DEFB 131
         DEFB 203
         DEFB 255
         DEFB SS-SB    ;SEKVENSL[NGD
     SB: POP AF
         LD A,(24576)  ;EJ DOS => 255
         INC A
         RET NZ
         POP IX        ;ADR I TOLKEN
         POP BC        ;ADR I TOLKEN
         POP AF        ;ERR 29
         LD H,248      ;L=0
         LD (65063),HL ;TAKET
         LD SP,HL
         PUSH AF
         PUSH BC
         JP (IX)       ;'RET' TILL BASIC
     SS: DEFB 186
    TRE: DEFB 13
    FBS: DEFB 1
   ZEND: END