1 REM Ins{nt av 3917
2 ! **********************************************************************
3 ! Program          KLOCKAN.800      Utg}va  1.0      1984-01-02
4 ! av T.Andersson
5 ! Ins{nd av T.Andersson <ABC-3917>
6 ! F|r ABC800M ABC800C
7 ! F|r disk <CR>, utan superdoset
8 ! Testad p} ABC800M
9 ! **********************************************************************
10 EXTEND : FLOAT 
20 ; CHR$(12%)
30 ; CUR(0%,15%) "ST[LLA KLOCKAN P] ABC-800            Fr|ken Ur har tel:90 510"
40 ; CUR(1%,15%) ""
50 ; 
55 ; 
60 INPUT "]]",]%
70 ; 
80 INPUT "MM",M%
90 ; 
100 INPUT "DD",D%
110 ; 
120 INPUT "HH",H%
130 ; 
140 INPUT "MM",M1%
150 ; 
160 INPUT "SS",S%
170 ; 
180 ; "Tryck RETURN vid r{tt tidpunkt" : ; : ; 
190 GET A$
200 POKE -17,]%,M%,D%,H%,M1%,S%
210 ; 
220 ; "ABC-800's  internklocka visar nu",TIME$
230 ; 
240 ; "[r inst{llningen ok   (J/N)",
250 GET A$
260 IF A$="J" OR A$="j" THEN CHAIN "LIB"
270 IF A$="N" OR A$="n" THEN 20
280 END