10 REM ALARM for HANDY DIARY
20 COMMON date$
30 GOSUB 230:GOSUB 160
40 MEMORY &HF605:CHAIN "menu
50 c=&HC070
60 GOSUB 90
70 MEMORY &HF4F7
80 RETURN
90 POKE &HC099,i
100 POKE &HC089,0:CALL c:POKE &HC089,&HEB
110 FOR j=1 TO 8
120 READ a:POKE &HC099+j,a
130 NEXT
140 CALL c
150 RETURN
160 PRINT CHR$(27)+"E"+CHR$(27)+"H":PRINT "Creating the Alarm Set ... counting down to zero"
170 FOR i=32 TO 122:READ cn:ok=FRE(""):PRINT CHR$(27)+"Y"+CHR$(34)+CHR$(32);:PRINT USING "###";122-cn
180 i$=MID$(STR$(i),2)
190 MEMORY &HBFFE
200 GOSUB 50
210 NEXT i
220 RETURN
230 MEMORY &HBFFE
240 FOR i=&HC070 TO &HC098
250 READ d8
260 POKE i,d8
270 NEXT
280 RETURN
285 '
286 ' Disassembly:
287 ' DI ! LD A,81h ! OUT (0F1h),A ! LD A,82h ! OUT (0F2h), A 
288 ' XOR A ! LD E,A ! LD H,A
289 '
290 DATA 243,62,129,211,241,62,130,211,242,175,95,103
296 '
297 ' LD D,0B8h ! LD A,(0C099h) ! LD L,A ! ADD HL,HL ! ADD HL,HL ! ADD HL,HL
298 ' ADD HL,DE ! LD DE, 0C09Ah 
299 '
300 DATA 22,184,58,153,192,111,41,41,41,25,17,154
304 '
305 ' EX DE,HL ! LD BC,8 ! LDIR ! LD A,85h ! OUT (0F1h),A ! LD A,86h
306 '
310 DATA 192,235,1,8,0,237,176,62,133,211,241,62
314 '
315 ' OUT (0F2h),A ! EI ! RET
316 '
320 DATA 134,211,242,251,201
330 DATA 32,0,0,0,0,0,0,0,0
340 DATA 33,12,12,12,24,24,0,24,0
350 DATA 34,54,108,108,0,0,0,0,0
360 DATA 35,108,108,254,108,254,108,108,0
370 DATA 36,12,31,44,30,26,124,24,0
380 DATA 37,0,198,204,24,48,102,198,0
390 DATA 38,56,108,56,118,220,204,118,0
400 DATA 39,24,24,24,0,0,0,0,0
410 DATA 40,6,12,24,48,48,24,12,0
420 DATA 41,24,12,6,6,12,24,48,0
430 DATA 42,0,51,30,127,60,102,0,0
440 DATA 43,0,12,12,63,24,24,0,0
450 DATA 44,0,0,0,0,0,24,24,48
460 DATA 45,0,0,0,126,0,0,0,0
470 DATA 46,0,0,0,0,0,12,24,0
480 DATA 47,3,6,12,24,48,96,192,0
490 DATA 48,28,54,103,222,230,108,56,0
500 DATA 49,12,28,12,12,24,24,126,0
510 DATA 50,30,51,3,62,96,102,126,0
520 DATA 51,30,51,6,28,6,102,60,0
530 DATA 52,14,30,54,108,254,12,30,0
540 DATA 53,63,49,48,60,6,102,60,0
550 DATA 54,30,51,48,124,102,102,60,0
560 DATA 55,63,51,6,12,24,24,24,0
570 DATA 56,30,51,51,62,102,102,60,0
580 DATA 57,30,51,51,30,6,102,60,0
590 DATA 58,0,0,12,12,0,24,24,0
600 DATA 59,0,0,12,12,0,24,24,48
610 DATA 60,6,12,24,48,48,24,12,0
620 DATA 61,0,0,63,0,252,0,0,0
630 DATA 62,48,24,12,12,24,48,96,0
640 DATA 63,30,51,54,12,24,0,24,0
650 DATA 64,124,198,222,222,222,192,124,0
660 DATA 65,12,30,50,100,124,100,100,0
670 DATA 66,126,50,52,124,102,102,252,0
680 DATA 67,30,51,96,192,192,102,60,0
690 DATA 68,126,50,100,100,100,104,248,0
700 DATA 69,126,50,52,120,104,98,254,0
710 DATA 70,127,49,52,120,104,96,240,0
720 DATA 71,30,51,96,192,206,102,62,0
730 DATA 72,50,50,50,124,100,100,100,0
740 DATA 73,63,8,8,24,24,24,126,0
750 DATA 74,15,6,6,12,204,204,120,0
760 DATA 75,114,50,52,60,108,102,230,0
770 DATA 76,120,48,48,96,96,100,252,0
780 DATA 77,98,118,126,252,212,196,196,0
790 DATA 78,98,114,122,220,204,196,196,0
800 DATA 79,62,98,98,196,196,196,124,0
810 DATA 80,126,50,50,62,96,96,240,0
820 DATA 81,62,98,98,196,216,204,118,0
830 DATA 82,126,50,50,62,108,102,230,0
840 DATA 83,30,50,48,30,6,102,60,0
850 DATA 84,63,45,12,24,24,24,60,0
860 DATA 85,50,50,50,100,100,100,60,0
870 DATA 86,50,50,50,100,100,56,24,0
880 DATA 87,98,98,98,212,252,236,196,0
890 DATA 88,98,52,24,56,104,196,196,0
900 DATA 89,50,50,50,60,24,24,60,0
910 DATA 90,127,98,68,28,50,102,254,0
920 DATA 91,24,60,126,255,126,60,24,0
930 DATA 92,24,24,102,102,24,24,60,0
940 DATA 93,54,127,127,127,62,28,8,0
950 DATA 94,24,60,126,126,126,24,60,0
960 DATA 95,70,201,75,75,77,73,230,0
970 DATA 96,48,24,12,0,0,0,0,0
980 DATA 97,0,0,60,102,68,205,247,0
990 DATA 98,112,48,62,102,102,231,220,0
1000 DATA 99,0,0,30,51,48,231,189,0
1010 DATA 100,14,6,62,102,204,205,119,0
1020 DATA 101,0,0,30,51,126,225,62,0
1030 DATA 102,15,25,25,51,54,255,49,48
1040 DATA 103,0,0,31,51,51,223,102,252
1050 DATA 104,112,48,62,51,102,231,102,0
1060 DATA 105,12,0,24,24,24,153,102,0
1070 DATA 106,3,0,7,3,3,199,102,60
1080 DATA 107,112,48,51,54,120,237,231,0
1090 DATA 108,14,22,22,12,24,60,231,0
1100 DATA 109,0,0,54,127,207,215,199,0
1110 DATA 110,0,0,110,51,51,227,198,0
1120 DATA 111,0,0,30,51,102,231,60,20
1130 DATA 112,0,0,110,51,115,191,48,96
1140 DATA 113,0,0,59,102,102,191,205,30
1150 DATA 114,0,0,110,59,51,227,96,0
1160 DATA 115,0,0,30,48,254,131,60,0
1170 DATA 116,24,24,62,24,48,247,221,0
1180 DATA 117,0,0,51,51,102,231,60,0
1190 DATA 118,0,0,51,51,51,253,153,0
1200 DATA 119,0,0,99,107,107,255,109,0
1210 DATA 120,0,0,99,54,28,237,199,0
1220 DATA 121,0,0,51,51,115,223,150,28
1230 DATA 122,0,0,62,68,136,17,62,0