;
; =========================================================
; PLAKAT.TXT Bo Engborg 851223 17.23
; =========================================================
;
PGMSTRT  ORG 63232
         JP PLAKAT
         JP BSAVE
;
ALLHEAPA LD A,D
         OR E
         RET Z                         ; Noll bytes
         LD (ANTAL),DE                 ; Spara f|r }terst{llande
         LD A,(ALLHEAP)
         CP 205
         JP Z,ALLHEAP                  ; Checksumma 11273
         JP ALLHEAP-9                  ; Checksumma 9913
;
NOHEAP   LD BC,(ANTAL)
         LD HL,(HEAP)
         AND A
         SBC HL,BC
         LD (HEAP),HL
         RET
;
BSAVE    LD A,(RADBRED)
         ADD A,4
         LD HL,0
         LD D,0
         LD E,A
         LD B,24
BSAVEGG  ADD HL,DE
         DJNZ BSAVEGG
         EX DE,HL
         CALL ALLHEAPA                 ; Allokera DE-bytes p} HEAP
;
         LD B,24
         CALL BDUMP
         CALL STR[NG
         PUSH IX
         CALL OUTFIL
         CALL GETFIL2                  ; Closefile
         POP IX
         CALL NOHEAP
         RET
;
PLAKAT   LD (WAIT),DE
         LD A,23
         CALL PLAKAT3
         CALL STR[NG
         LD B,C
PLAKAT1  PUSH BC                       ; BC=antal
         LD A,(HL)
         INC HL
         PUSH HL
         CALL PLAKAT3
         POP HL
         POP BC
         DJNZ PLAKAT1
         RET
;
PLAKAT3  LD C,A
         LD A,(65011)
         CP 23
         LD A,190                      ; Dotadress utanf|r sk{rmen
         JP NC,FELKOD1
         LD A,(590)
         LD B,A
         LD A,(65012)
         CP B
         LD A,190
         JP NC,FELKOD1
         LD A,C                        ; ]terst{ll ej utanf|r sk{rmen
         AND 127
         PUSH IX
         LD IX,65011
         LD HL,(65011)
         CP 13
         JR Z,CHR13
         CP 10
         JR Z,CHR10
         LD C,6
         CP 7
         JR Z,CHRGRAF2
         LD C,23
         CP 23
         JR Z,CHRGRAF2
         SUB 31
         INC H
         INC H
         INC H
         LD (RADADR),HL
         LD HL,VASTRT1-9
         LD B,A
         LD DE,9
PLAKAT3A ADD HL,DE
         DJNZ PLAKAT3A
PLAKAT3B LD B,3
PLAKAT3C PUSH BC
         CALL VIDEOW
         LD BC,3
         LDIR
         POP BC
         INC (IX)
         DJNZ PLAKAT3C
         LD HL,(RADADR)
         LD (65011),HL
PLAKEND  POP IX
         LD BC,(WAIT)
         CALL DELAY
         RET
;
CHRGRAF2 CALL CHRGRAF
         JR PLAKEND
;
CHRGRAF  LD B,3
CHRGRAF1 CALL VIDEOW
         LD A,C
         LD (DE),A
         INC (IX)
         DJNZ CHRGRAF1
         INC H
         LD (65011),HL
         RET
;
;
CHR10    INC (IX)
         INC (IX)
         INC (IX)
         JR PLAKEND
;
CHR13    LD C,6
         CALL CHRGRAF
         LD (IX+1),0
         JR CHR10
;
STR[NG   LD B,69
         LD C,11110010B                ; E$
         CALL FIND
         RET NC                        ; Funnen
         RST 16
         DEFB 128+21                   ; Hittar ej filen
;
;
FIND     LD HL,(VAROT)
         LD A,H
         OR L
         SCF
         RET Z                         ; Ingen variabellista finns
         PUSH IX
         LD IX,(VAROT)
FIND1    LD L,(IX+2)
         LD H,(IX+3)
         LD A,(IX+1)
         CP B
         JR NZ,FIND2
         LD A,(IX)
         CP C
         JR NZ,FIND2
         LD C,(IX+8)
         LD B,(IX+9)
         LD L,(IX+6)
         LD H,(IX+7)
         JR FOUND
FIND2    PUSH HL
         POP IX
         LD A,L
         OR H
         SCF
         JR Z,NOFOUND
         JR FIND1
FOUND    AND A
NOFOUND  POP IX
         RET
;
DELAY    LD A,B                        ; Delay sekunder BC*10,BC=100 10sek
         OR C
         RET Z
DELAY1   PUSH BC
         LD B,2
DELAY2   LD HL,9216
DELAY3   DEC L
         JR NZ,DELAY3
         DEC H
         JR NZ,DELAY3
         DJNZ DELAY2
         POP BC
         DEC BC
         JR DELAY
;
STRING   LD C,A
         LD A,B
         OR 0
         LD A,C
         RET Z
STRING1  LD (DE),A
         INC DE
         DJNZ STRING1
         RET
;
BDUMP    LD (BUFADR1),HL               ; Slut (r{knare)
         LD (MBUFFW),HL                ; Startbuffert
         EX DE,HL                      ; DE-->buffert
         LD A,(RADBRED)
         LD (DE),A
         INC DE
         LD A,13
         LD (DE),A
         INC DE                        ; Ladda med radbredd och CR
;
BDUMP1   PUSH IX
         LD IX,884
;
bdump2   PUSH BC
         LD L,(IX)
         LD H,(IX+1)
         INC IX
         INC IX
         LD A,(RADBRED)
         LD B,A
;
bdump3   LD A,(HL)
         AND 127
         CP 8
         JR C,bdump3A
         CP 24
         JR C,bdump3B
         CP 32
         JR NC,bdump3F
bdump3E  LD A,32
         JR bdump3F
bdump3A  LD A,6
         JR bdump3F
bdump3B  CP 17
         JR C,bdump3E
         LD A,23
bdump3F  LD (DE),A
         INC DE
         INC HL
         DJNZ bdump3
         LD A,13
         LD (DE),A
         INC DE
;
         POP BC
         DJNZ bdump2
         LD (BUFADR1),DE
         POP IX
         RET
;
;
;
; =====================================
; OPEN,PREPARE,CLOSE
; HL-->filnamn avsluta med CR
; =====================================
;
GETFIL2  LD DE,CLOSEF1
         LD (IX+5),0
         CALL FILCONTR
         RET
;
OUTFIL   LD A,1                        ; A=opentyp,B=filnummer
         LD B,127
         CALL FIL\PPN
;
OUTFIL1  LD HL,(MBUFFW)
         PUSH HL
         LD A,13
         LD BC,120
         CPIR
         LD (MBUFFW),HL
         LD DE,(BUFADR1)
         DEC HL
         SCF
         SBC HL,DE
         JR NC,outfil2a
         LD HL,120
         AND A
         SBC HL,BC
         PUSH HL
         POP BC
         POP HL
         LD DE,PRINTFIL
         CALL FILCONTR
         JR OUTFIL1
outfil2a POP HL
         RET                           ; Klart sedan close
;
;
;
FIL\PPN  LD IX,FILBESK                 ; HL-->Filnamn
         LD (IX+2),B
         LD DE,OPENCMD
         CALL FILCONTR
         RET
;
;
;
;
FILCONTR PUSH HL                       ; Rutinadress i DE
         LD HL,FELKOD
         EX (SP),HL
         LD (RUNSTACK),SP
         PUSH HL
         LD HL,feljmp
         PUSH AF
         XOR A
         LD (MIY14),A                  ; Run Mode
         LD (MIY14+1),A                  ; Notrace
         LD (MIY30),HL
         POP AF
         LD HL,filctr1
         EX (SP),HL
         PUSH DE
         RET
filctr1  POP HL
         RET                           ; Inga fel
feljmp   DEFB 4
         DEFB 0
         DEFB 1
         DEFB 145                      ; Basic-return
FELKOD   LD A,(MIY34)
FELKOD1  LD (ERROR),A
         LD SP,(RUNSTACK)
         RST 16
ERROR    DEFB 128
;
;
; 32 ( )  0000 0000/0010 0000/1010 0000
; #0:Set 5 / Pr:Set 7,5
VASTRT1  DEFB 32
         DEFB 32
         DEFB 32
         DEFB 32
         DEFB 32
         DEFB 32
         DEFB 32
         DEFB 32
         DEFB 32
; 33 (!)
         DEFB 32
         DEFB 106
         DEFB 32
         DEFB 32
         DEFB 42
         DEFB 32
         DEFB 32
         DEFB 34
         DEFB 32
; 34 (")
         DEFB 32
         DEFB 52
         DEFB 52
         DEFB 32
         DEFB 33
         DEFB 33
         DEFB 32
         DEFB 32
         DEFB 32
; 35 (#)
         DEFB 96
         DEFB 117
         DEFB 117
         DEFB 40
         DEFB 61
         DEFB 61
         DEFB 32
         DEFB 33
         DEFB 33
; 36 ($)
         DEFB 96
         DEFB 32
         DEFB 96
         DEFB 32
         DEFB 119
         DEFB 53
         DEFB 34
         DEFB 32
         DEFB 34
; 37 (%)
         DEFB 42
         DEFB 37
         DEFB 56
         DEFB 96
         DEFB 38
         DEFB 112
         DEFB 32
         DEFB 32
         DEFB 35
; 38 (&)
         DEFB 32
         DEFB 54
         DEFB 52
         DEFB 104
         DEFB 43
         DEFB 56
         DEFB 32
         DEFB 35
         DEFB 34
; 39 (')
         DEFB 32
         DEFB 96
         DEFB 37
         DEFB 32
         DEFB 32
         DEFB 32
         DEFB 32
         DEFB 32
         DEFB 32
; 40 (()
         DEFB 32
         DEFB 96
         DEFB 38
         DEFB 32
         DEFB 42
         DEFB 48
         DEFB 32
         DEFB 32
         DEFB 34
; 41 ())
         DEFB 34
         DEFB 100
         DEFB 32
         DEFB 32
         DEFB 58
         DEFB 32
         DEFB 34
         DEFB 32
         DEFB 32
; 42 (*)
         DEFB 40
         DEFB 122
         DEFB 56
         DEFB 96
         DEFB 110
         DEFB 100
         DEFB 32
         DEFB 34
         DEFB 32
; 43 (+)
         DEFB 32
         DEFB 104
         DEFB 32
         DEFB 34
         DEFB 107
         DEFB 35
         DEFB 32
         DEFB 32
         DEFB 32
; 44 (,)
         DEFB 32
         DEFB 32
         DEFB 32
         DEFB 32
         DEFB 96
         DEFB 32
         DEFB 32
         DEFB 38
         DEFB 32
; 45 (-)
         DEFB 32
         DEFB 32
         DEFB 32
         DEFB 32
         DEFB 35
         DEFB 33
         DEFB 32
         DEFB 32
         DEFB 32
; 46 (.)
         DEFB 32
         DEFB 32
         DEFB 32
         DEFB 96
         DEFB 48
         DEFB 32
         DEFB 34
         DEFB 33
         DEFB 32
; 47 (/)
         DEFB 32
         DEFB 32
         DEFB 56
         DEFB 96
         DEFB 38
         DEFB 32
         DEFB 32
         DEFB 32
         DEFB 32
; 48 (0)
         DEFB 104
         DEFB 35
         DEFB 105
         DEFB 106
         DEFB 32
         DEFB 106
         DEFB 32
         DEFB 35
         DEFB 33
; 49 (1)
         DEFB 32
         DEFB 110
         DEFB 32
         DEFB 32
         DEFB 106
         DEFB 32
         DEFB 32
         DEFB 35
         DEFB 33
; 50 (2)
         DEFB 40
         DEFB 35
         DEFB 105
         DEFB 96
         DEFB 38
         DEFB 33
         DEFB 34
         DEFB 35
         DEFB 35
; 51 (3)
         DEFB 34
         DEFB 35
         DEFB 59
         DEFB 96
         DEFB 34
         DEFB 105
         DEFB 32
         DEFB 35
         DEFB 33
; 52 (4)
         DEFB 32
         DEFB 56
         DEFB 53
         DEFB 42
         DEFB 44
         DEFB 61
         DEFB 32
         DEFB 32
         DEFB 33
; 53 (5)
         DEFB 106
         DEFB 115
         DEFB 51
         DEFB 96
         DEFB 32
         DEFB 106
         DEFB 32
         DEFB 35
         DEFB 33
; 54 (6)
         DEFB 96
         DEFB 38
         DEFB 35
         DEFB 106
         DEFB 35
         DEFB 105
         DEFB 32
         DEFB 35
         DEFB 33
; 55 (7)
         DEFB 34
         DEFB 35
         DEFB 59
         DEFB 32
         DEFB 54
         DEFB 32
         DEFB 32
         DEFB 33
         DEFB 32
; 56 (8)
         DEFB 104
         DEFB 35
         DEFB 105
         DEFB 104
         DEFB 35
         DEFB 105
         DEFB 32
         DEFB 35
         DEFB 33
; 57 (9)
         DEFB 104
         DEFB 35
         DEFB 105
         DEFB 32
         DEFB 35
         DEFB 59
         DEFB 34
         DEFB 35
         DEFB 32
; 58 (:)
         DEFB 32
         DEFB 32
         DEFB 32
         DEFB 34
         DEFB 32
         DEFB 32
         DEFB 34
         DEFB 32
         DEFB 32
; 59 (;)
         DEFB 96
         DEFB 32
         DEFB 32
         DEFB 98
         DEFB 32
         DEFB 32
         DEFB 38
         DEFB 32
         DEFB 32
; 60 (<)
         DEFB 32
         DEFB 56
         DEFB 33
         DEFB 34
         DEFB 100
         DEFB 32
         DEFB 32
         DEFB 32
         DEFB 33
; 61 (=)
         DEFB 96
         DEFB 112
         DEFB 112
         DEFB 96
         DEFB 112
         DEFB 112
         DEFB 32
         DEFB 32
         DEFB 32
; 62 (>)
         DEFB 32
         DEFB 41
         DEFB 48
         DEFB 32
         DEFB 96
         DEFB 38
         DEFB 32
         DEFB 33
         DEFB 32
; 63 (?)
         DEFB 38
         DEFB 35
         DEFB 105
         DEFB 32
         DEFB 40
         DEFB 33
         DEFB 32
         DEFB 34
         DEFB 32
; 64 (@)
         DEFB 96
         DEFB 120
         DEFB 113
         DEFB 106
         DEFB 44
         DEFB 36
         DEFB 34
         DEFB 35
         DEFB 35
; 65 (A)
         DEFB 96
         DEFB 38
         DEFB 100
         DEFB 106
         DEFB 35
         DEFB 107
         DEFB 34
         DEFB 32
         DEFB 34
; 66 (B)
         DEFB 106
         DEFB 35
         DEFB 105
         DEFB 106
         DEFB 35
         DEFB 105
         DEFB 34
         DEFB 35
         DEFB 33
; 67 (C)
         DEFB 104
         DEFB 35
         DEFB 41
         DEFB 106
         DEFB 32
         DEFB 96
         DEFB 32
         DEFB 35
         DEFB 33
; 68 (D)
         DEFB 106
         DEFB 35
         DEFB 105
         DEFB 106
         DEFB 32
         DEFB 106
         DEFB 34
         DEFB 35
         DEFB 33
; 69 (E)
         DEFB 106
         DEFB 35
         DEFB 35
         DEFB 106
         DEFB 35
         DEFB 33
         DEFB 34
         DEFB 35
         DEFB 35
; 70 (F)
         DEFB 106
         DEFB 35
         DEFB 35
         DEFB 106
         DEFB 35
         DEFB 33
         DEFB 34
         DEFB 32
         DEFB 32
; 71 (G)
         DEFB 104
         DEFB 35
         DEFB 41
         DEFB 106
         DEFB 32
         DEFB 100
         DEFB 32
         DEFB 35
         DEFB 35
; 72 (H)
         DEFB 106
         DEFB 32
         DEFB 106
         DEFB 106
         DEFB 35
         DEFB 107
         DEFB 34
         DEFB 32
         DEFB 34
; 73 (I)
         DEFB 32
         DEFB 107
         DEFB 33
         DEFB 32
         DEFB 106
         DEFB 32
         DEFB 32
         DEFB 35
         DEFB 33
; 74 (J)
         DEFB 32
         DEFB 32
         DEFB 53
         DEFB 96
         DEFB 32
         DEFB 53
         DEFB 32
         DEFB 35
         DEFB 32
; 75 (K)
         DEFB 106
         DEFB 96
         DEFB 38
         DEFB 106
         DEFB 41
         DEFB 48
         DEFB 34
         DEFB 32
         DEFB 34
; 76 (L)
         DEFB 106
         DEFB 32
         DEFB 32
         DEFB 106
         DEFB 32
         DEFB 32
         DEFB 34
         DEFB 35
         DEFB 35
; 77 (M)
         DEFB 106
         DEFB 100
         DEFB 110
         DEFB 106
         DEFB 34
         DEFB 106
         DEFB 34
         DEFB 32
         DEFB 34
; 78 (N)
         DEFB 106
         DEFB 48
         DEFB 106
         DEFB 106
         DEFB 34
         DEFB 110
         DEFB 34
         DEFB 32
         DEFB 34
; 79 (O)
         DEFB 104
         DEFB 35
         DEFB 105
         DEFB 106
         DEFB 32
         DEFB 106
         DEFB 32
         DEFB 35
         DEFB 33
; 80 (P)
         DEFB 106
         DEFB 35
         DEFB 105
         DEFB 106
         DEFB 35
         DEFB 33
         DEFB 34
         DEFB 32
         DEFB 32
; 81 (Q)
         DEFB 104
         DEFB 35
         DEFB 105
         DEFB 106
         DEFB 40
         DEFB 58
         DEFB 32
         DEFB 35
         DEFB 34
; 82 (R)
         DEFB 106
         DEFB 35
         DEFB 105
         DEFB 106
         DEFB 43
         DEFB 49
         DEFB 34
         DEFB 32
         DEFB 34
; 83 (S)
         DEFB 104
         DEFB 35
         DEFB 41
         DEFB 96
         DEFB 35
         DEFB 105
         DEFB 32
         DEFB 35
         DEFB 33
; 84 (T)
         DEFB 34
         DEFB 107
         DEFB 35
         DEFB 32
         DEFB 106
         DEFB 32
         DEFB 32
         DEFB 34
         DEFB 32
; 85 (U)
         DEFB 106
         DEFB 32
         DEFB 106
         DEFB 106
         DEFB 32
         DEFB 106
         DEFB 32
         DEFB 35
         DEFB 33
; 86 (V)
         DEFB 106
         DEFB 32
         DEFB 106
         DEFB 32
         DEFB 101
         DEFB 37
         DEFB 32
         DEFB 34
         DEFB 32
; 87 (W)
         DEFB 106
         DEFB 32
         DEFB 106
         DEFB 106
         DEFB 106
         DEFB 106
         DEFB 32
         DEFB 33
         DEFB 33
; 88 (X)
         DEFB 42
         DEFB 48
         DEFB 58
         DEFB 96
         DEFB 38
         DEFB 100
         DEFB 34
         DEFB 32
         DEFB 34
; 89 (Y)
         DEFB 42
         DEFB 48
         DEFB 58
         DEFB 32
         DEFB 106
         DEFB 32
         DEFB 32
         DEFB 34
         DEFB 32
; 90 (Z)
         DEFB 34
         DEFB 35
         DEFB 59
         DEFB 96
         DEFB 38
         DEFB 32
         DEFB 34
         DEFB 35
         DEFB 35
; 91 ([)
         DEFB 32
         DEFB 113
         DEFB 49
         DEFB 106
         DEFB 44
         DEFB 110
         DEFB 34
         DEFB 32
         DEFB 34
; 92 (\)
         DEFB 32
         DEFB 113
         DEFB 49
         DEFB 106
         DEFB 32
         DEFB 106
         DEFB 32
         DEFB 35
         DEFB 33
; 93 (])
         DEFB 32
         DEFB 114
         DEFB 48
         DEFB 106
         DEFB 44
         DEFB 110
         DEFB 34
         DEFB 32
         DEFB 34
; 94 (^)
         DEFB 96
         DEFB 33
         DEFB 97
         DEFB 106
         DEFB 32
         DEFB 106
         DEFB 32
         DEFB 35
         DEFB 33
; 95 (_)
         DEFB 32
         DEFB 32
         DEFB 32
         DEFB 32
         DEFB 32
         DEFB 32
         DEFB 34
         DEFB 35
         DEFB 35
; 96 (`) 0100 000/0110 0000/1100 0000
; #0: Set 5 / Pr: Set 7
         DEFB 32
         DEFB 120
         DEFB 49
         DEFB 106
         DEFB 44
         DEFB 46
         DEFB 32
         DEFB 35
         DEFB 33
; 97 (a)
         DEFB 32
         DEFB 112
         DEFB 48
         DEFB 96
         DEFB 44
         DEFB 110
         DEFB 32
         DEFB 35
         DEFB 35
; 98 (b)
         DEFB 106
         DEFB 112
         DEFB 48
         DEFB 106
         DEFB 32
         DEFB 106
         DEFB 34
         DEFB 35
         DEFB 33
; 99 (c)
         DEFB 32
         DEFB 112
         DEFB 112
         DEFB 106
         DEFB 32
         DEFB 32
         DEFB 34
         DEFB 35
         DEFB 35
; 100 (d)
         DEFB 32
         DEFB 112
         DEFB 122
         DEFB 106
         DEFB 32
         DEFB 106
         DEFB 32
         DEFB 35
         DEFB 35
; 101 (e)
         DEFB 32
         DEFB 112
         DEFB 48
         DEFB 106
         DEFB 44
         DEFB 38
         DEFB 32
         DEFB 35
         DEFB 33
; 102 (f)
         DEFB 32
         DEFB 104
         DEFB 33
         DEFB 32
         DEFB 107
         DEFB 33
         DEFB 32
         DEFB 34
         DEFB 32
; 103 (g)
         DEFB 32
         DEFB 112
         DEFB 112
         DEFB 106
         DEFB 32
         DEFB 106
         DEFB 32
         DEFB 115
         DEFB 59
; 104 (h)
         DEFB 106
         DEFB 112
         DEFB 48
         DEFB 106
         DEFB 32
         DEFB 106
         DEFB 34
         DEFB 32
         DEFB 34
; 105 (i)
         DEFB 32
         DEFB 114
         DEFB 32
         DEFB 32
         DEFB 106
         DEFB 32
         DEFB 32
         DEFB 35
         DEFB 33
; 106 (j)
         DEFB 32
         DEFB 114
         DEFB 32
         DEFB 32
         DEFB 106
         DEFB 32
         DEFB 32
         DEFB 38
         DEFB 32
; 107 (k)
         DEFB 106
         DEFB 32
         DEFB 48
         DEFB 106
         DEFB 102
         DEFB 32
         DEFB 34
         DEFB 32
         DEFB 33
; 108 (l)
         DEFB 34
         DEFB 53
         DEFB 32
         DEFB 32
         DEFB 53
         DEFB 32
         DEFB 34
         DEFB 35
         DEFB 32
; 109 (m)
         DEFB 96
         DEFB 48
         DEFB 112
         DEFB 106
         DEFB 106
         DEFB 106
         DEFB 34
         DEFB 34
         DEFB 34
; 110 (n)
         DEFB 96
         DEFB 112
         DEFB 48
         DEFB 106
         DEFB 32
         DEFB 106
         DEFB 34
         DEFB 32
         DEFB 34
; 111 (o)
         DEFB 32
         DEFB 112
         DEFB 48
         DEFB 106
         DEFB 32
         DEFB 106
         DEFB 32
         DEFB 35
         DEFB 33
; 112 (p)
         DEFB 96
         DEFB 112
         DEFB 48
         DEFB 106
         DEFB 32
         DEFB 106
         DEFB 106
         DEFB 35
         DEFB 33
; 113 (q)
         DEFB 32
         DEFB 112
         DEFB 112
         DEFB 106
         DEFB 32
         DEFB 106
         DEFB 32
         DEFB 35
         DEFB 107
; 114 (r)
         DEFB 32
         DEFB 48
         DEFB 112
         DEFB 32
         DEFB 55
         DEFB 32
         DEFB 32
         DEFB 33
         DEFB 32
; 115 (s)
         DEFB 32
         DEFB 112
         DEFB 112
         DEFB 34
         DEFB 44
         DEFB 100
         DEFB 34
         DEFB 35
         DEFB 33
; 116 (t)
         DEFB 32
         DEFB 122
         DEFB 48
         DEFB 32
         DEFB 106
         DEFB 32
         DEFB 32
         DEFB 32
         DEFB 33
; 117 (u)
         DEFB 96
         DEFB 32
         DEFB 96
         DEFB 106
         DEFB 32
         DEFB 106
         DEFB 32
         DEFB 35
         DEFB 35
; 118 (v)
         DEFB 96
         DEFB 32
         DEFB 96
         DEFB 34
         DEFB 52
         DEFB 54
         DEFB 32
         DEFB 34
         DEFB 32
; 119 (w)
         DEFB 96
         DEFB 32
         DEFB 96
         DEFB 106
         DEFB 96
         DEFB 106
         DEFB 32
         DEFB 33
         DEFB 33
; 120 (x)
         DEFB 96
         DEFB 32
         DEFB 96
         DEFB 32
         DEFB 57
         DEFB 49
         DEFB 34
         DEFB 32
         DEFB 34
; 121 (y)
         DEFB 96
         DEFB 32
         DEFB 96
         DEFB 106
         DEFB 32
         DEFB 106
         DEFB 32
         DEFB 115
         DEFB 59
; 122 (z)
         DEFB 96
         DEFB 112
         DEFB 112
         DEFB 32
         DEFB 56
         DEFB 33
         DEFB 34
         DEFB 35
         DEFB 35
; 123 ({)
         DEFB 32
         DEFB 113
         DEFB 49
         DEFB 96
         DEFB 44
         DEFB 110
         DEFB 32
         DEFB 35
         DEFB 35
; 124 (|)
         DEFB 32
         DEFB 113
         DEFB 49
         DEFB 106
         DEFB 32
         DEFB 106
         DEFB 32
         DEFB 35
         DEFB 33
; 125 (})
         DEFB 32
         DEFB 114
         DEFB 48
         DEFB 96
         DEFB 44
         DEFB 110
         DEFB 32
         DEFB 35
         DEFB 35
; 126 (~)
         DEFB 32
         DEFB 36
         DEFB 36
         DEFB 106
         DEFB 32
         DEFB 106
         DEFB 32
         DEFB 35
         DEFB 33
; 127 ()
         DEFB 106
         DEFB 127
         DEFB 127
         DEFB 106
         DEFB 127
         DEFB 127
         DEFB 34
         DEFB 35
         DEFB 35
VAEND1   DEFB 255
;
; =====================================
; TEXT
; =====================================
;
VASTRT2  DEFB 255
BUFADR1  DEFS 2
FILBESK  DEFS 16                       ; Filbeskrivning
MBUFFW   DEFS 2                        ; Adress till buffert
RADADR   DEFS 2
WAIT     DEFS 2                        ; Save Delaytid/10 sek
ANTAL    DEFS 2                        ; Antal HEAP-allokerade bytes
VAEND2   DEFB 255
;
; VARIABELEND
; =====================================
;
;
PGMEND   DEFB 255
;
;
; =====================================
; KONSTANTER :::::------>
; =====================================
;
; _____________________________________
TXTBUF1  EQU 65088
ALLHEAP  EQU 13172                     ; Allokera antal bytes i DE p} HEAP
CLOSEF1  EQU 2192
OPENCMD  EQU 62                        ; HL-->filnamn
                                       ; Fixa IX-reg 3 f|rsta bytes
VIDEOW   EQU 659                       ; Bildadress enl 65011,12
RADBRED  EQU 590                       ; 40/80 tkn
MIY14    EQU 65060                     ; IY+14
MIY30    EQU 65076
MIY34    EQU 65080                     ; Felkod
BOFAW    EQU 65052                     ; -->BOFA
RUNSTACK EQU 65078
HEAP     EQU 65056                     ; Ledigt f|r tolken vid exekverbasic
VAROT    EQU 65065                     ; Variabelrot
TXTBUF3  EQU 65208                     ; Radcompilebuffert
FORMFILL EQU 630                       ; CHR$(12)
PRINTFIL EQU 2198                      ; HL->txtarea,BC=n,filbeskr.IX
BKONST21 EQU 32722                     ; Felmeddelande start
KONST1   EQU 37+128
KONST2   EQU 35+128
;
; =====================================
; KONSTANTER END
; =====================================
; ---->>>>>>
;
         END
