home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1991 April / 1991-04.d64 / alarmcalc (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  920b  |  25 lines
  1. 0 rem copyright 1991 compute publications intl ltd - all rights reserved
  2. 10 ifa=0thena=1:load"alarmcalc.ml",8,1
  3. 20 poke53280,0:poke53281,0
  4. 30 tt$="[147][193]larm[195][193][204][195] (c)1991 [195][207][205][208][213][212][197] [208]ublications"
  5. 40 printchr$(14);chr$(154);tt$
  6. 50 input"hour,minute,am/pm";h,m,a$
  7. 60 h%=h/10:hh=h%*16+h-h%*10-128*(left$(a$,1)="p"):ifh=12thenhh=164-hh
  8. 65 poke56331,hh
  9. 70 m%=m/10:poke56330,(m%*16+m-m%*10):poke56329,0:poke56328,0
  10. 80 printtt$:printtab(3);"[213]se [195][210][211][210] keys to move highlight,"
  11. 85 print"[209] to quit/reset, + - [211][200][201][198][212] to set times"
  12. 90 printtab(14);"[176][192][192][192][192][192][192][192][192][192][174]"
  13. 100 printtab(14);"[221]00:00:00[193][221]"
  14. 110 printtab(14);"[173][192][192][192][192][192][192][192][192][192][189]"
  15. 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]"
  16. 130 print"[221] [211]tart *[221][212]ime [221] [211]top  *[221]    [205]emo     [221]"
  17. 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]"
  18. 150 forr=1to9
  19. 160 if(rand1)thenprint"[221]12:00[193][221][216][221]00:00[221]12:00[193][221][216][221]             [221]":goto180
  20. 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]"
  21. 180 next
  22. 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]"
  23. 200 print"  * [216]=off, [198]=[198]lash, [194]=[194]ell and [198]lash"
  24. 210 poke650,128:sys49365:poke650,0
  25.