to LABEL;(c)TD '88
label "x E1 KDR P E2 R1 E3 BL if rc = "\* [] ts ct type [AGAIN? (y / n)] if not rc = "n[go "x] erall fs
end
to E1
cs make "NR 1 make "nr 1 make "K [] ht ts ct pr word char 27 "0 Y make "B 0 make "Bd 0
pr [Title of disc..:] make "NM rq
pr [Text for side I ? (max. 4 lines/20 characters)] label "x type :NR make "I rq if emptyp :I [make "I "— go "y] make "W count :I if :W - 20 > 0 [BL go "x] label "y make "K se :K :I make "NR :NR + 1 if :NR = 5 [pr [Text for side II? (max. 4 lines)]] if :NR = 9 [make "NR 1 pr [Bold? (y / n)] if rq = "y [make "Bd 1] setsplit 1 ct fs stop] go "x
end
to E2
E23 if :Bd = 1 [P R fd 1 L make "NR 1 E23]
end
to E3
E23 if :Bd = 1 [R1 R fd 1 L make "NR 5 E23]
end
to E23
make "W item :NR :K make "AL count :W S1 W
make "NR :NR + 1 if or (:NR = 5) (:NR = 9) [stop] E23
end
to S1
make "L lc item :nr :W make "A ascii :L
if :A = 32 [R fd 19 L make "B :B + 1 go "x] 
if :A = 48[X make "L "o]
if :A = 49[Z H J L A bk 3.2 R U B0]
if :A = 50[Z L G H F R D Q L D L F R pu K T]
if :A = 51[Z L H G R D L F G R D L F R pu K T]
if :A = 52[Z D H D bk 8 Q L D K S]
if :A = 53[X make "L "s]
if :A = 54[Z H repeat 2[D Q R] J R B C L K T]
if :A = 55[Z F H B Q L K S]
if :A = 56[Z H V D Q L bk 8 S]
if :A = 57[Z D H repeat 2[D Q R] Q R D R B C R S]
if :A = 58[H A pu fd 5.4 pd A pu U B0]
if or (:A <97)(:A > 122)[go "x]
run (list :L) label "x Y
make "nr :nr + 1 if :nr - :AL > 0 [make "nr 1 stop] S1
end
to KDR
pu setpos [-202 -137]
pd repeat 4 [fd 379 repeat 6 [rt 15 fd 3]] fd 170
repeat 2 [fd 30 R fd 402 R] setpos [-194 37] seth 0 label "x rt 30 pd repeat 3 [fd 25 rt 120] pu if :nr = 2 [make "nr 1 ct go "y]
setpos [196 59] make "nr 2 seth 180 go "x label "y
setpos [142 33] seth 0 pd fd 30 C R B pu B pd fill pu
setpos [-140 33] seth 0 pd fd 30 C L B pu B pd fill pu
setcursor [25 12] type word char 27 "p type [I] setcursor [64 12] type [II] type word char 27 "q setcursor [30 12] pr :NM ct
end
to a
H repeat 4 [F R] pu J R A pd B L K S
end
to b
H O V T
end
to c
H J Q pu R J R pd F R T
end
to d
H V Q L O S
end
to e
H B repeat 4 [F R] C Q L S
end
to f
H N R B C R D L F G L K T
end
to g
H V Q L G L B C Q S
end
to h
H N bk 8 Q L K S
end
to i
H I pu B pd A pu bk 22.4 S B0
end
to j
H G L B C Q i B0 B0
end
to k
H N K rt 60 I pu C R pd I pu bk 12.8 R B lt 240 bk 8 T
end
to l
H O S B0
end
to m
H J R D R I bk 12.8 L D L U make "B :B + 0.3
end
to n
H J Q L K S
end
to o
H V T
end
to p
H V G F T
end
to q
H V Q L G L bk 3.2 A Q S
end
to r
H J Q L pu K S
end
to s
H Q L D L F R D Q L pu K S
end
to t
H N bk 8 L A G B R K Q L S
end
to u
H J K Q L J K S
end
to v
J H rt 150 M lt 120 M lt 30 pu U make "B :B + 0.5
end
to w
v ht L M R v B0 B0
end
to x
J rt 150 H M pu G lt 120 pd F bk 19.2 lt 30 T
end
to y
J H rt 150 M lt 120 M bk 32 pu fd 32 lt 30 U make "B :B + 0.5
end
to z
J H Q rt 124 M lt 124 F L S
end
to B0
make "B :B - 0.5
end
to BL
type char 7
end
to A
fd 3.2
end
to B
fd 6.4
end
to C
bk 6.4
end
to D
fd 8
end
to F
fd 9.6
end
to G
bk 9.6
end
to H
make "B :B + 1 pd
end
to I
fd 12.8
end
to J
fd 16
end
to K
bk 16
end
to L
lt 90
end
to M
fd 19.2
end
to N
fd 24
end
to O
fd 24 bk 24
end
to P
pu setpos [-180 216] seth 0
end
to Q
R F
end
to R
rt 90
end
to R1
pu setpos [180 -116] seth 180
end
to S
pu Q L
end
to T
pu R M L
end
to U
K S
end
to V
repeat 2[J Q R]
end
to W
bk 38 L fd :B * 19.2 R make "B 0
end
to X
Z make "A 97
end
to Y
setscrunch .49
end
to Z
setscrunch .75
end
                                                                                             