2 ! +++++++++++++++++++++++++++++++++++ 3 ! Program .... SYSTIME.800 4 ! Utg}va 1.0 1983-05-29 5 ! av (c) Niklas Notteman 8 ! Ins{nt av Niklas Notteman, 995. 9 ! +++++++++++++++++++++++++++++++++++ 100 ! Systemtid visas kontinuerligt 120 ! 130 ! ABC 800 M : P} rad 25 "ABC 800 Systemtid : xx.xx.xx" 140 ! ABC 800 C : P} rad 0, kolumn 30 "xx.xx.xx" 150 ! 160 ! Inter - adress till klockrutinen 170 ! Adress- d{r systemtiden ska visas 180 ! 190 ! St{ng av med POKE 65494,peek(65025),peek(65026) 200 ! 205 EXTEND : FLOAT 210 Inter%=PEEK2(65494%) 220 ! 230 IF PEEK(65364%)<>80% THEN 330 240 ! 250 Adress%=30720%+24%*80%+70% ! P} 25e raden ! 260 OUT 56%,6%,57%,25% ! St{ll om till 25 rader 270 DIM Temp$=0% 280 POKE VAROOT(Temp$),80%,0%,128%,127%,0%,0% 290 Temp$=SPACE$(80%) 300 MID$(Temp$,51%,19%)='ABC 800 Systemtid :' 310 GOTO 350 320 ! 330 Adress%=31744%+30% 340 ! 350 POKE 65024%,205%,Inter%,SWAP%(Inter%),245%,197%,213%,229%,17%,242%,255%,33%,Adress%,SWAP%(Adress%),205%,32% 360 POKE 65039%,254%,54%,46%,205%,31%,254%,54%,46%,205%,31%,254%,225%,209%,193%,241% 370 POKE 65054%,201%,35%,26%,19%,14%,255%,12%,214%,10%,48%,251%,71%,121%,198%,48% 380 POKE 65069%,119%,35%,120%,198%,58%,119%,35%,201% 390 POKE 65494%,0%,254% 400 END