0 REM COPYRIGHT 1991 COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
10 IFA=0THENA=1:LOAD"ALARMCALC.ML",8,1
20 POKE53280,0:POKE53281,0
30 TT$="[147][193]LARM[195][193][204][195] (C)1991 [195][207][205][208][213][212][197] [208]UBLICATIONS"
40 PRINTCHR$(14);CHR$(154);TT$
50 INPUT"HOUR,MINUTE,AM/PM";H,M,A$
60 H%=H/10:HH=H%*16+H-H%*10-128*(LEFT$(A$,1)="P"):IFH=12THENHH=164-HH
65 POKE56331,HH
70 M%=M/10:POKE56330,(M%*16+M-M%*10):POKE56329,0:POKE56328,0
80 PRINTTT$:PRINTTAB(3);"[213]SE [195][210][211][210] KEYS TO MOVE HIGHLIGHT,"
85 PRINT"[209] TO QUIT/RESET, + - [211][200][201][198][212] TO SET TIMES"
90 PRINTTAB(14);"[176][192][192][192][192][192][192][192][192][192][174]"
100 PRINTTAB(14);"[221]00:00:00[193][221]"
110 PRINTTAB(14);"[173][192][192][192][192][192][192][192][192][192][189]"
120 PRINT"[176][192][192][192][192][192][192][192][192][178][192][192][192][192][192][178][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
130 PRINT"[221] [211]TART *[221][212]IME [221] [211]TOP  *[221]    [205]EMO     [221]"
140 PRINT"[171][192][192][192][192][192][192][178][192][219][192][192][192][192][192][219][192][192][192][192][192][192][178][192][219][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
150 FORR=1TO9
160 IF(RAND1)THENPRINT"[221]12:00[193][221][216][221]00:00[221]12:00[193][221][216][221]             [221]":GOTO180
170 PRINT"[171][192][192][192][192][192][192][219][192][219][192][192][192][192][192][219][192][192][192][192][192][192][219][192][219][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
180 NEXT
190 PRINT"[173][192][192][192][192][192][192][177][192][177][192][192][192][192][192][177][192][192][192][192][192][192][177][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
200 PRINT"  * [216]=OFF, [198]=[198]LASH, [194]=[194]ELL AND [198]LASH"
210 POKE650,128:SYS49365:POKE650,0