10 ! *********************************************************************
20 ! *                                                                   *
30 ! *              S  T  A  R  T                                        *
40 ! *              Detta program exekveras vid reset                    *
50 ! *                                                                   *
60 ! *********************************************************************
70 ; CHR$(12.)
80 ; 
90 ; 
100 ; "V{lkommen till planverkets ABC800"
110 ON ERROR GOTO 250
120 ; 
130 ; "Var v{nlig st{ll klockan!"
140 ; 
150 INPUT "Ange ]r, m}nad, dag: ";Yy.,M1.,Dd.
160 INPUT "Ange timme, minut, sekund: ";Hh.,Mm.,Ss.
170 POKE -17.,Yy.,M1.,Dd.,Hh.,Mm.,Ss.
180 ; CHR$(12.);"Klockan {r nu";TIME$
190 ; "Programmet ENORM kommer snart att starta."
200 ; "Skulle programexekveringen avslutas kan"
210 ; "programmet }terstartas med kommandot:"
220 ; "RUN ENORM"
230 CHAIN "ENORM"
240 ! 
250 ! ERROR HANDLER
260 ; 
270 ; "Skriv in talen med siffror separerade med kommatecken"
280 ; "Ex 82,12,20"
290 RESUME 130