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
6 ! F|r ABC800M ABC800C
7 ! F|r disk , 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