1 REM Ins{nd av Gunnar Larsson <4876>    1985-04-14 11.41.09
100 REM ********************************
101 REM *                              *
102 REM * Bibloteksprogram f|r ABC800  *
103 REM *                              *
104 REM * Superdos                     *
105 REM * (finns {ven f|r gammalt dos) *
106 REM *                              *
107 REM * Provat p} ABC800 C           *
108 REM *           ABC802             *
109 REM * Klockan f|ljer med GRATIS    *
110 REM * (flyttas p} sk{rmen med poke *
111 REM * (32809,adr ex.32720,swap%(32 *
112 REM * (720)                        *
113 REM * Ins{nt av Gunnar Larsson     *
114 REM *           Hagebygatan 163    *
115 REM *           603 62 Norrk|ping  *
116 REM *           <4876>             *
117 REM *           Tele: 011-142965   *
118 REM *                              *
119 REM * K|r programmet.              *
120 REM *                              *
121 REM * Sedan g{ller :               *
122 REM * Drive 0: = PF1               *
123 REM * Drive 1: = PF2               *
124 REM *                              *
125 REM * Endast namn samt ext skrivs  *
126 REM * ut                           *
127 REM *                              *
128 REM * Om DU {r intresserad av      *
129 REM * liknande program kontakta    *
130 REM * mig s} skall vi diskutera    *
131 REM * ditt problem                 *
132 REM *                              *
133 REM ********************************
134 REM 
135 INTEGER 
136 POKE 32770,42,214,255,34,86,128,33,14,128,34,214,255,243,229,197,213
137 POKE 32786,245,58,35,255,254,0,202,40,128,58,227,255,254,192,204,88
138 POKE 32802,128,254,193,204,112,128,17,39,120,58,245,255,198,0,194,80
139 POKE 32818,128,1,244,255,10,205,189,130,62,46,18,27,11,10,205,189
140 POKE 32834,130,11,62,46,18,27,10,205,189,130,98,107,54,3,241,209
141 POKE 32850,193,225,251,195,0,0,62,128,50,226,255,62,13,50,227,255
142 POKE 32866,62,12,50,1,253,1,5,0,33,168,130,195,131,128,62,128
143 POKE 32882,50,226,255,62,13,50,227,255,50,1,253,1,5,0,33,173
144 POKE 32898,130,62,0,50,142,130,50,143,130,205,11,0,17,6,0,205
145 POKE 32914,102,96,6,160,33,0,245,17,1,0,126,254,255,202,18,129
146 POKE 32930,203,70,194,176,128,229,42,142,130,25,34,142,130,225,203,78
147 POKE 32946,194,190,128,229,42,142,130,25,34,142,130,225,203,86,194,204
148 POKE 32962,128,229,42,142,130,25,34,142,130,225,203,94,194,218,128,229
149 POKE 32978,42,142,130,25,34,142,130,225,203,102,194,232,128,229,42,142
150 POKE 32994,130,25,34,142,130,225,203,110,194,246,128,229,42,142,130,25
151 POKE 33010,34,142,130,225,203,118,194,4,129,229,42,142,130,25,34,142
152 POKE 33026,130,225,203,126,194,18,129,229,42,142,130,25,34,142,130,225
153 POKE 33042,35,5,120,254,0,194,156,128,22,100,30,0,42,142,130,6
154 POKE 33058,8,175,237,82,35,242,44,129,25,43,41,16,244,124,254,100
155 POKE 33074,250,56,129,44,214,100,34,164,130,50,142,130,62,0,50,143
156 POKE 33090,130,22,10,30,0,42,142,130,6,8,175,237,82,35,242,85
157 POKE 33106,129,25,43,41,16,244,124,254,10,250,97,129,44,214,10,34
158 POKE 33122,166,130,50,142,130,62,0,50,143,130,58,142,130,198,48,50
159 POKE 33138,145,130,58,166,130,198,48,50,144,130,58,164,130,198,48,50
160 POKE 33154,142,130,33,140,130,1,24,0,205,11,0,17,7,0,62,0
161 POKE 33170,50,182,130,50,183,130,205,102,96,33,0,245,17,8,0,6
162 POKE 33186,160,126,254,0,32,9,229,42,182,130,25,34,182,130,225,35
163 POKE 33202,16,239,62,100,87,30,0,42,182,130,6,8,175,237,82,35
164 POKE 33218,242,199,129,25,43,41,16,244,124,254,100,250,211,129,44,214
165 POKE 33234,100,34,164,130,50,182,130,62,0,50,183,130,62,10,87,30
166 POKE 33250,0,42,182,130,6,8,175,237,82,35,242,241,129,25,43,41
167 POKE 33266,16,244,124,254,10,250,253,129,44,214,10,50,182,130,62,0
168 POKE 33282,50,183,130,34,166,130,58,182,130,198,48,50,185,130,58,166
169 POKE 33298,130,198,48,50,184,130,58,164,130,198,48,50,182,130,33,182
170 POKE 33314,130,1,7,0,205,11,0,33,15,0,6,8,197,17,1,0
171 POKE 33330,25,229,235,205,102,96,33,20,245,6,15,197,126,254,93,210
172 POKE 33346,133,130,1,8,0,205,11,0,229,33,180,130,1,1,0,205
173 POKE 33362,11,0,1,3,0,225,205,11,0,229,33,181,130,1,1,0
174 POKE 33378,205,11,0,225,17,5,0,25,58,82,255,254,39,194,125,130
175 POKE 33394,229,33,178,130,1,2,0,205,11,0,225,193,16,189,225,193
176 POKE 33410,16,170,201,17,16,0,25,195,125,130,132,32,0,0,32,32
177 POKE 33426,32,83,101,107,116,111,114,101,114,32,107,118,97,114,32,97
178 POKE 33442,118,32,0,0,0,0,131,77,79,48,58,131,77,79,49,58
179 POKE 33458,13,10,46,32,48,48,48,13,10,13,10,38,0,10,111,62
180 POKE 33474,10,197,79,6,8,41,124,145,56,2,103,44,16,247,124,198
181 POKE 33490,48,18,125,198,48,27,18,193,27,201
182 POKE 65292,220,130
183 POKE 65328,220,130
184 Z=CALL(32770)