home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine Extra: Special 1 / run-special-1.zip / DIGITIME.BAS < prev    next >
BASIC Source File  |  1992-03-06  |  4KB  |  60 lines
  1. 100 REM DIGITALE KLOK DOOR KOOS VAN EGMOND (C) RUN FLAGAZINE
  2. 110 CLS:KEY OFF:GOSUB 570:WINDOW SCREEN (0,0)-(281,251)
  3. 120 CL1=2:CL2=3:CL3=14:CL4=13:CL5=5:CL6=4:CL7=7:IF MD<8 OR MD=10 THEN CL1=1:CL2=1:CL3=1:CL4=1:CL5=1:CL6=1:CL7=1
  4. 130 DIM V%(300),H%(200),D%(6,7,1)
  5. 140 LINE(10,10)-(8,40),CL1:LINE-(10,42),CL1:LINE-(12,40),CL1:LINE-(14,10),CL1
  6. 150 LINE-(12,8),CL1:LINE-(10,10),CL1:PAINT(12,10),CL1:GET(8,8)-(14,42),V%:CLS
  7. 160 LINE(13,7)-(15,9),CL1:LINE-(36,9),CL1:LINE-(38,7),CL1:LINE-(36,5),CL1
  8. 170 LINE-(15,5),CL1:LINE-(13,7),CL1:PAINT(14,7),CL1:GET(13,5)-(38,9),H%:CLS:GOSUB 490
  9. 180 LINE(0,0)-(280,250),CL2,B:LINE(0,97)-(280,97),CL2:LINE(1,1)-(279,96),CL3,B
  10. 190 CIRCLE(92,48),2,CL1:PAINT(92,48),CL1:CIRCLE(187,48),2,CL1:PAINT(187,48),CL1
  11. 200 CIRCLE(90,86),2,CL1:PAINT(90,86),CL1:CIRCLE(185,86),2,CL1:PAINT(185,86),CL1
  12. 210 LINE(70,97)-(70,250),CL2:FOR L=0 TO 150 STEP 12.5
  13. 220 LINE(1,100+L)-(69,100+L),CL4:LINE(2,106.25+L)-(10,106.25+L),CL5:NEXT L
  14. 230 FOR L=0 TO 2:LINE(9+20*L,100)-(21+20*L,250),0,BF:NEXT L
  15. 240 T$=TIME$:T$=LEFT$(T$,2)+MID$(T$,4,2)+RIGHT$(T$,2):C=0:IF TT$=T$ THEN 240
  16. 250 H=VAL(LEFT$(T$,2)):M=VAL(MID$(T$,3,2)):S=VAL(RIGHT$(T$,2))
  17. 260 FOR D2=0 TO 190 STEP 95:FOR D1=0 TO 40 STEP 40:C=C+1:G=VAL(MID$(T$,C,1))
  18. 270 IF INKEY$=CHR$(27) THEN 560
  19. 280 IF TT$="" THEN 300
  20. 290 IF G=VAL(MID$(TT$,C,1)) THEN 440
  21. 300 IF G=1 OR G=2 OR G=3 OR G=7 THEN D%(C,1,1)=0 ELSE D%(C,1,1)=1
  22. 310 IF D%(C,1,0)<>D%(C,1,1) THEN PUT(7+D1+D2,12),V%:D%(C,1,0)=D%(C,1,1)
  23. 320 IF G=5 OR G=6 THEN D%(C,2,1)=0 ELSE D%(C,2,1)=1
  24. 330 IF D%(C,2,0)<>D%(C,2,1) THEN PUT(36+D1+D2,12),V%:D%(C,2,0)=D%(C,2,1)
  25. 340 IF G MOD 2 =1 OR G=4 THEN D%(C,3,1)=0 ELSE D%(C,3,1)=1
  26. 350 IF D%(C,3,0)<>D%(C,3,1) THEN PUT(5+D1+D2,50),V%:D%(C,3,0)=D%(C,3,1)
  27. 360 IF G=2 THEN D%(C,4,1)=0 ELSE D%(C,4,1)=1
  28. 370 IF D%(C,4,0)<>D%(C,4,1) THEN PUT(34+D1+D2,50),V%:D%(C,4,0)=D%(C,4,1)
  29. 380 IF G=1 OR G=4 THEN D%(C,5,1)=0 ELSE D%(C,5,1)=1
  30. 390 IF D%(C,5,0)<>D%(C,5,1) THEN PUT(13+D1+D2,8),H%:D%(C,5,0)=D%(C,5,1)
  31. 400 IF G=1 OR G=7 OR G=0 THEN D%(C,6,1)=0 ELSE D%(C,6,1)=1
  32. 410 IF D%(C,6,0)<>D%(C,6,1) THEN PUT(11+D1+D2,46),H%:D%(C,6,0)=D%(C,6,1)
  33. 420 IF G=1 OR G=4 OR G=7 THEN D%(C,7,1)=0 ELSE D%(C,7,1)=1
  34. 430 IF D%(C,7,0)<>D%(C,7,1) THEN PUT(9+D1+D2,84),H%:D%(C,7,0)=D%(C,7,1)
  35. 440 NEXT D1,D2:TT$=T$
  36. 450 IF H THEN LINE(10,250-6.25*H)-(20,250),CL2,BF ELSE LINE(10,100)-(20,250),0,BF
  37. 460 IF M THEN LINE(30,250-2.5*M)-(40,250),CL2,BF ELSE LINE(30,100)-(40,250),0,BF
  38. 470 IF S THEN LINE(50,250-2.5*S)-(60,250),CL2,BF ELSE LINE(50,100)-(60,250),0,BF
  39. 480 GOTO 240
  40. 490 LINE(90,111)-(135,176),CL6,BF:LINE(95,121)-(125,166),0,BF
  41. 500 LINE(85,111)-(95,236),CL6,BF:LINE(105,175)-(125,236),CL6
  42. 510 LINE-(135,236),CL6:LINE-(115,175),CL6:PAINT(115,180),CL6
  43. 520 LINE(150,111)-(200,236),CL7,BF:LINE(160,110)-(190,226),0,BF
  44. 530 LINE(215,111)-(225,236),1,BF:LINE(255,111)-(265,236),1,BF
  45. 540 LINE(220,126)-(255,236),1:LINE(225,111)-(260,221),1:PAINT(240,175),1
  46. 550 RETURN
  47. 560 SCREEN 0,0,0,0:CLS:END
  48. 570 SCREEN 0,0,0:MD=12:ON ERROR GOTO 590
  49. 580 SCREEN MD:IF MD=0 THEN 560 ELSE 600
  50. 590 MD=MD-1:RESUME 580
  51. 600 WINDOW SCREEN(0,0)-(1,1):GH%=PMAP(1,0)+1:GV%=PMAP(1,1)+1:WINDOW
  52. 610 ON ERROR GOTO 0:RETURN
  53. 620 REM /* 51/.3010,6314,1425,4053,4149,3903,4657,4019,4400,4400
  54. 630 REM /*/....2598,3845,2973,4106,3442,3897,1525,0926,1781,3056
  55. 640 REM /*/....3457,2374,3511,2644,3465,2028,3519,2374,3461,2720
  56. 650 REM /*/....3513,2726,3478,1041,4036,4000,4020,0463,3063,3037
  57. 660 REM /*/....3196,3137,3008,3602,0480,1329,2123,1953,1125,3784
  58. 670 REM /*/....1450
  59. 680 REM Checksum...............:  152596
  60.