10 ! GLMENY    1990.09.20
20 EXTEND 
30 ; CHR$(12)
40 Antal=4
50 ! 
60 Z=FNMeny
70 ON ERROR GOTO 70
80 ; CUR(19,0) SPACE$(80) CUR(19,0); : INPUT 'V{lj alternativ :'Slask$
85 IF Slask$='0' CHAIN 'nul:'
90 IF Slask$='1' CHAIN 'GLBANT.BAC'
100 IF Slask$='2' CHAIN 'GLSYSTEM.BAC'
150 IF Slask$='3' Z=FNSt{llklockan
160 GOTO 80
170 ! 
180 DEF FNMeny
190   ; CUR(1,0) STRING$(80,45)
200   ; CUR(18,0) STRING$(80,45)
210   PRINT CUR(0,0) ' HUVUDMENY KALORIBER[KNING '
220   PRINT CUR(0,70) MID$(TIME$,1,10)
230   FOR Snurr=1 TO Antal
240     READ Text$
250     ; CUR(5+Snurr,27) Text$
260   NEXT Snurr 
270   DATA '1 Kaloriber{kning','2 Systemuppgifter','3 St{ll klockan','0 Avsluta'
290   RETURN 0
300 FNEND 
310 ! 
420 DEF FNSt{llklockan
430   ; CUR(19,0) SPACE$(80) CUR(19,0); : INPUT 'Ange ]]MMDD :'Datum$
440   IF LEN(Datum$)>6 GOTO 430
450   POKE -17,VAL(MID$(Datum$,1,2)),VAL(MID$(Datum$,3,2)),VAL(MID$(Datum$,5,2))
460   PRINT CUR(0,70) MID$(TIME$,1,10)
470   RETURN 0
480 FNEND