1 REM Ins{nd av Gunnar Larsson <4876>    1986-05-10 18.47.54
100 ! Program PUGED
101 ! 1986-04-29
102 ! Ver 1.0
103 ! (c) P U G programutvecling
104 ! Gunnar Larsson
105 ! >4876<
106 ! F}r kopieras fritt inom ABC-klubben f|r ICKE-kommeriella {ndam}l
107 ! 
108 ! F|r instruktioner se PUG800.INF. OBS endast det som g{ller editorn
109 ! 
110 EXTEND : INTEGER 
112 POKE 32768,195,164,130,195,0,0,195,0,0,0,245,197,213,229,33,227
113 POKE 32784,255,126,254,1,202,217,129,254,19,202,252,129,254,23,202,124
114 POKE 32800,130,254,26,202,145,130,254,17,202,201,129,254,22,202,97,129
115 POKE 32816,254,16,202,70,128,254,9,202,31,130,254,4,202,239,128,225
116 POKE 32832,209,193,241,195,67,128,54,0,43,54,128,58,82,255,254,0
117 POKE 32848,202,178,128,17,80,0,33,0,120,58,83,255,254,0,202,101
118 POKE 32864,128,71,25,16,253,58,82,255,254,0,202,113,128,71,35,16
119 POKE 32880,253,35,205,225,128,194,175,128,43,126,254,32,194,139,128,35
120 POKE 32896,35,205,225,128,194,175,128,43,195,121,128,87,54,32,35,126
121 POKE 32912,95,35,205,225,128,194,175,128,122,43,119,83,35,122,254,32
122 POKE 32928,202,166,128,195,143,128,126,254,32,202,175,128,195,144,128,195
123 POKE 32944,63,128,58,83,255,95,62,23,147,33,80,0,40,10,71,33
124 POKE 32960,0,0,17,80,0,25,16,253,229,193,33,47,127,17,127,127
125 POKE 32976,237,184,205,3,128,235,6,80,62,32,119,35,16,252,195,175
126 POKE 32992,128,1,128,128,175,229,9,125,225,208,254,0,200,60,201,54
127 POKE 33008,0,43,54,128,58,82,255,254,0,202,55,129,205,3,128,235
128 POKE 33024,35,126,43,119,254,32,194,19,129,35,205,225,128,194,52,129
129 POKE 33040,195,0,129,205,225,128,194,52,129,84,93,35,205,225,128,194
130 POKE 33056,52,129,126,18,254,32,202,44,129,195,19,129,35,126,254,32
131 POKE 33072,43,194,19,129,195,63,128,58,83,255,95,62,24,147,71,33
132 POKE 33088,0,0,17,80,0,25,16,253,229,205,3,128,33,80,0,25
133 POKE 33104,193,237,176,33,48,127,6,80,62,32,119,35,16,252,195,52
134 POKE 33120,129,54,0,43,54,128,33,0,120,213,17,80,0,197,58,83
135 POKE 33136,255,254,0,202,122,129,71,25,16,253,58,82,255,254,0,202
136 POKE 33152,134,129,71,35,16,253,34,199,129,193,209,42,145,255,34,197
137 POKE 33168,129,33,160,129,34,145,255,42,199,129,34,195,129,195,63,128
138 POKE 33184,229,42,195,129,126,35,34,195,129,225,254,32,192,229,42,195
139 POKE 33200,129,126,254,32,194,191,129,42,197,129,34,145,255,227,201,43
140 POKE 33216,126,225,201,0,0,0,0,0,0,54,0,43,54,128,33,82
141 POKE 33232,255,54,0,35,54,0,195,63,128,54,0,43,54,128,33,82
142 POKE 33248,255,126,254,0,202,236,129,61,119,195,63,128,35,126,254,0
143 POKE 33264,202,63,128,61,119,62,79,43,119,195,63,128,54,0,43,54
144 POKE 33280,128,33,82,255,126,254,79,202,15,130,60,119,195,63,128,35
145 POKE 33296,126,254,23,202,63,128,60,119,62,0,43,119,195,63,128,54
146 POKE 33312,0,43,54,128,33,82,255,126,254,79,202,63,128,205,62,130
147 POKE 33328,254,0,194,63,128,33,82,255,126,60,119,195,63,128,33,0
148 POKE 33344,120,213,17,80,0,197,58,83,255,254,0,202,82,130,71,25
149 POKE 33360,16,253,58,82,255,254,0,202,94,130,71,35,16,253,126,254
150 POKE 33376,32,202,107,130,33,227,255,119,193,209,201,35,126,254,32,194
151 POKE 33392,119,130,62,0,195,100,130,43,126,195,100,130,54,0,43,54
152 POKE 33408,128,58,83,255,254,0,202,63,128,61,33,83,255,119,195,63
153 POKE 33424,128,54,0,43,54,128,33,83,255,126,254,23,202,63,128,60
154 POKE 33440,119,195,63,128,229,33,164,130,34,12,255,34,48,255,42,214
155 POKE 33456,255,34,68,128,33,9,128,34,214,255,241,201
156 A$=''
157 POKE VAROOT(A$),0,128,0,0,0,128
158 A=INSTR(1,A$,CHR$(58,82,255,221,190,8))-1 ! Curpos
159 POKE 32772,A,SWAP%(A)
160 A=PEEK2(65425)
161 POKE 32775,A,SWAP%(A)
162 A=CALL(32768)
163 CHAIN 'KEY.BAC'
164 END