home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1991 April
/
1991-04.d64
/
alarmcalc
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
920b
|
25 lines
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