1 REM Ins{nd av Gunnar Larsson <4876>    1985-10-05 22.00.27
100 ! Program DIRectory
101 ! L{ser av biblioteket utan att f|rst|ra program i internminnet
102 ! (c) Gunnar Larsson
103 ! Ver 1.02
104 ! 1985-10-05
105 ! 
106 ! K|r programmet, d{refter kan du l{sa av ditt Ufd-bibliotek genom att 
107 ! skriva 'ufd' och trycka p} 'return'.
108 ! Om du inte {r inne i ett ufd, kan du poka p} adress 65527.
109 ! t.ex poke 65527,16,0,13 -> Biblioteket p} enhet MO0:
110 ! 16,0 =Sektoradress, 13 =drive nummer. Se bit f|r bit f|r n{rmare
111 ! information.
112 ! 
113 INTEGER 
114 POKE 32768,229,33,182,129,34,12,255,34,48,255,42,125,255,34,156,128
115 POKE 32784,33,156,128,34,125,255,42,127,255,34,166,128,33,166,128,34
116 POKE 32800,127,255,42,214,255,34,132,128,33,104,128,34,214,255,245,62
117 POKE 32816,6,211,56,62,25,211,57,213,33,71,128,1,33,0,17,128
118 POKE 32832,127,237,176,209,241,225,201,84,104,101,32,110,105,99,101,32
119 POKE 32848,112,114,111,103,114,97,109,109,101,114,32,115,116,114,105,107
120 POKE 32864,101,115,32,97,103,97,105,110,245,197,213,229,17,242,255,33
121 POKE 32880,200,127,205,135,128,54,46,205,134,128,54,46,205,134,128,225
122 POKE 32896,209,193,241,195,0,0,35,26,19,14,255,12,214,10,48,251
123 POKE 32912,71,121,198,48,119,35,120,198,58,119,35,201,0,0,208,1
124 POKE 32928,187,128,189,128,194,128,0,0,208,1,176,128,178,128,183,128
125 POKE 32944,180,129,128,68,69,67,255,128,1,34,255,197,128,128,85,70
126 POKE 32960,68,255,196,128,201,245,229,213,197,58,249,255,50,1,253,42
127 POKE 32976,247,255,175,17,1,0,237,82,34,16,129,33,165,129,1,7
128 POKE 32992,0,205,233,128,193,209,225,241,201,58,84,255,254,40,194,249
129 POKE 33008,128,62,39,50,84,129,195,254,128,62,79,50,84,129,17,6
130 POKE 33024,0,205,102,96,58,21,253,203,127,194,147,129,205,11,0,33
131 POKE 33040,15,0,6,16,197,17,1,0,25,229,235,205,102,96,33,20
132 POKE 33056,245,6,15,197,126,254,93,210,158,129,1,8,0,205,11,0
133 POKE 33072,229,33,172,129,1,1,0,205,11,0,1,3,0,225,205,11
134 POKE 33088,0,229,33,175,129,1,1,0,205,11,0,225,17,5,0,25
135 POKE 33104,58,82,255,254,39,194,99,129,229,33,175,129,1,1,0,205
136 POKE 33120,11,0,225,58,82,255,254,78,194,140,129,229,33,173,129,1
137 POKE 33136,2,0,205,11,0,225,58,83,255,254,23,194,99,129,205,2
138 POKE 33152,0,254,32,202,99,129,193,225,193,195,147,129,193,16,148,225
139 POKE 33168,193,16,129,62,128,50,226,255,62,13,50,227,255,201,17,16
140 POKE 33184,0,25,195,99,129,131,85,102,100,58,13,10,46,13,10,32
141 POKE 33200,48,48,48,48,239,201
142 A=CALL(32768)