1 REM Ins{nt av 3176
10 ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20 ! %%                                     %%
30 ! %%  Program....: Kontkl.800            %%
40 ! %%  Ins{nt av..: Stefan Rundgren.      %%
50 ! %%  Medlemsnr..: 3176.                 %%
60 ! %%                                     %%
70 ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
80 ! 
90 EXTEND 
100 FLOAT 
110 ! 
120 ! Rutinen st{ngs av med POKE 65494%,PEEK(64513%),PEEK(64514%)
130 ! DOS Buf 7 frist{lls med POKE 7%*16%-703%,255%
140 ! 
150 ! Om datorn {r en 802 eller 800M och man fortvarande vill ha utskriften p} 
160 ! den 25 raden m}ste f|ljande l{ggas in:
170 ! DIM Text$=0
180 ! OUT 56%,6%,57%,25%
190 ! POKE VAROOT (Text$),80%,0%,128%,127%,0%,0%
200 ! Text$=SPACE$(80%)
210 ! 
220 ! Har du en 800C s} m}ste du {ndra Adress%  till att peka p} den adress 
230 ! i bildminnet d{r du vill ha klockan
240 ! 
250 ! 
260 Inter%=PEEK2(65494%)
270 Adress%=30792%
280 POKE 7%*16%-703%,194% ! Sp{rra Dosbuf 7
290 POKE 64512%,205%,Inter%,SWAP%(Inter%),245%,197%,213%,229%,17%,242%,255%,33%,Adress%,SWAP%(Adress%),205%,32%,252%
300 POKE 64528%,54%,46%,205%,31%,252%,54%,46%,205%,31%,252%,225%,209%,193%,241%,201%,35%
310 POKE 64544%,26%,19%,14%,255%,12%,214%,10%,48%,251%,71%,121%,198%,48%,119%,35%,120%
320 POKE 64560%,198%,58%,119%,35%,201%
330 POKE 65494%,0%,252%