home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 26 / CD_ASCQ_26_1295.iso / vrac / shwtxt19.zip / CLOCK.ST < prev    next >
Text File  |  1995-02-17  |  909b  |  22 lines
  1. '       Digital Clock
  2.         COPY(CLOCK,1)\CLS 7,0\VIRT 2\CLS 
  3.         BFILL0( 9,21, 9,64)220 6\BFILL0(17,21,17,64)220 6
  4.         BFILL0(10,21,17,21)219 6\BFILL0(10,64,17,64)219 6
  5.         BCOPY 1 TO 0 (12,33,14,48)\V9=9\V10=22
  6. :LOOP\  V1=[HR]\V2=[MIN]\V3=[SEC]
  7.         IF V1<13 LBL0\V1=V1-12
  8. :LBL0\  IF V1<10 LBL1\BFILL0(12,24,15,24)219 12\POKE 0(11,24)220 12
  9.         V1=V1-10\GOTO LBL2
  10. :LBL1\  BFILL0(11,24,16,24)32 7
  11. :LBL2\  V4=27\GOSUB SHOW
  12.         V1=V2/10\V2=[X]\V4=35\GOSUB SHOW\V1=V2\V4=42\GOSUB SHOW
  13.         V1=V3/10\V3=[X]\V4=50\GOSUB SHOW\V1=V3\V4=57\GOSUB SHOW
  14.         VIRT 0\BCOPY 2 TO 0 (9,21,17,64)(V9,V10)\VIRT 2
  15.         V6=V7\V7=V3\IF V6=V7 LBL3
  16.         IF V7~5<>0 GOTO LBL3
  17.         V9=[RND 1 TO 15]\V10=[RND 1 TO 35]\VIRT 0\CLS\VIRT 2
  18. :LBL3\  WAITKEY 0,LOOP
  19.         IF NOT KEY ESC LOOP\VIRT 0\EXITC
  20. :SHOW\  V1=V1*7\V1=V1+2\V5=V1+4\BCOPY 1 TO 0 (1,V1,5,V5)(11,V4)\RETURN
  21.  
  22.