10 REM .  SAVE VAKNA
20 REM 
30 REM DAVID ANDERSSON
40 REM 1985-07-13
50 REM 
60 REM NYTT KOMMANDO "VAKNA" F\R
70 REM SUPER SMARTAID.
80 REM 
90 REM 
100 REM KOLLA ATT SUPER SMARTAID FINNS
110 IF PEEK(16384%)=195% GOTO 140
120 POKE 22222%,123% : IF PEEK(22222%)=123% GOTO 140
130 ; 'SUPER SMARTAID [R INTE ANSLUTEN' : STOP 
140 REM RIMLIGHETSKOLL P] ROTEN TILL KOMMANDOTABELLERNA
150 P%=PEEK(20738%)+SWAP%(PEEK(20739%))
160 IF P%=22261% ; 'KOMMANDOT "VAKNA" [R REDAN INITIERAD' : STOP 
170 IF P%>20480% ; 'N]GOT ANNAT EGET KOMMANDO [R REDAN INL[NKAT' : STOP 
180 REM LADDA PROGRAMMET TILL CMOS
190 POKE 22222%,123%,178%,32%,12%,205%,233%,86%,200%,34%,252%,86%,237%,83%,2%,81%,201%
200 POKE 22238%,205%,233%,86%,192%,42%,252%,86%,34%,2%,81%,201%,42%,2%,81%,17%,245%
210 POKE 22254%,86%,167%,229%,237%,82%,225%,201%,128%,86%,65%,75%,78%,65%,255%,0%,0%
220 POKE 22270%,2%,87%,0%,0%,126%,254%,13%,40%,50%,205%,81%,87%,213%,205%,75%,87%
230 POKE 22286%,213%,205%,75%,87%,175%,103%,111%,71%,79%,22%,50%,205%,67%,87%,209%,22%
240 POKE 22302%,184%,1%,11%,0%,205%,67%,87%,209%,22%,32%,1%,191%,2%,205%,67%,87%
250 POKE 22318%,34%,0%,87%,205%,99%,87%,235%,34%,0%,81%,201%,205%,99%,87%,33%,0%
260 POKE 22334%,0%,34%,0%,81%,201%,28%,29%,200%,146%,237%,66%,24%,249%,126%,254%,44%
270 POKE 22350%,32%,17%,223%,58%,30%,24%,254%,126%,32%,5%,205%,30%,24%,24%,3%,205%
280 POKE 22366%,28%,24%,208%,215%,159%,42%,0%,81%,17%,113%,87%,124%,181%,200%,237%,82%
290 POKE 22382%,200%,215%,179%,42%,241%,253%,237%,91%,0%,87%,167%,237%,82%,6%,8%,48%
300 POKE 22398%,58%,124%,254%,253%,56%,53%,62%,251%,211%,6%,205%,151%,87%,6%,200%,205%
310 POKE 22414%,185%,87%,205%,151%,87%,175%,211%,6%,201%,6%,22%,221%,33%,118%,3%,221%
320 POKE 22430%,110%,0%,221%,35%,221%,102%,0%,221%,35%,35%,197%,58%,111%,2%,61%,71%
330 POKE 22446%,126%,238%,128%,119%,35%,16%,249%,193%,16%,229%,201%,58%,245%,253%,167%,192%
340 POKE 22462%,219%,56%,230%,128%,192%,13%,32%,243%,16%,241%,201%
350 REM INITIERA KOMMANDOT
360 Z%=CALL(22222%)
370 REM INFORMERA
380 ; '---------------------------------------'
390 ; 'NU FINNS KOMMANDOT "VAKNA" I CMOSET'
400 ; 
410 ; ' VAKNA HH,MM,SS'
420 ; '  S[TTER DEN TID D] ALARMET SKA G]'
430 ; 
440 ; ' VAKNA'
450 ; '  ST[NGER AV ALARMET'
460 ; 
470 ; '(H[DANEFTER G\R DU CALL(22222) F\R'
480 ; ' ATT INITIERA KOMMANDOT)'
490 ; '---------------------------------------'
500 END