1 REM Ins{nd av Mikael Sj|gren <2889>    1986-10-26 22.54.14 (DUMP)
100 ! Rutin f|r sk{rmkopia. Fungerar p} ABC 80X. Sk{rmen i 80 mod. Ej HR-grafik
110 ! Efter att man har k|rt programmet s} ligger det en rutin i datorn
120 ! som ger sk{rmkopia med CTRL+P. Rutinen ligger kvar till reset.
130 OPEN 'pr:' AS FILE 1
140 CLOSE 1
150 INTEGER : EXTEND 
160 POKE 64000,229,42,180,255,34,254,250,33,15,250
170 POKE 64010,34,180,255,225,201,245,221,229,221,33
180 POKE 64020,227,250,219,34,221,203,255,126,32,10
190 POKE 64030,254,16,40,20,221,225,241,195,253,250
200 POKE 64040,254,3,32,4,221,203,255,246,221,225
210 POKE 64050,241,251,237,77,205,51,250,221,203,255
220 POKE 64060,254,213,197,229,221,229,205,178,250,221
230 POKE 64070,225,34,1,251,17,225,250,62,0,205
240 POKE 64080,0,251,205,164,250,33,0,120,6,24
250 POKE 64090,197,6,80,205,111,250,205,164,250,193
260 POKE 64100,16,244,175,50,226,250,225,193,209,24
270 POKE 64110,193,197,126,229,33,250,250,230,127,254
280 POKE 64120,127,32,2,62,32,254,32,48,2,62
290 POKE 64130,32,119,1,1,0,205,153,250,225,193
300 POKE 64140,35,58,84,255,254,41,48,2,35,5
310 POKE 64150,16,215,201,221,203,255,118,192,62,4
320 POKE 64160,205,0,251,201,62,4,1,2,0,229
330 POKE 64170,33,251,250,205,0,251,225,201,221,42
340 POKE 64180,123,255,33,222,250,1,3,0,221,126
350 POKE 64190,2,237,161,32,5,242,215,250,24,244
360 POKE 64200,221,110,0,221,102,1,124,181,40,148
370 POKE 64210,229,221,225,24,223,221,110,5,221,102
380 POKE 64220,6,201,80,82,32,32,0
390 POKE 64251,13,10,195,0,0,195,0,0
400 Start=64000
410 ; CALL(64000)
420 END