Listing of file='VID0.BAS;01' on disk='vmedia/home_video_library-sector.ccvf'
100 CLEAR 1000 110 DIM M$(12) 120 DIM M(12) 130 DIM D$(13) 140 GOSUB 1000 150 GOSUB 1130 160 GOSUB 1260 170 PLOT 12,14,29,17 180 PLOT 3,26,5 190 PRINT "VIDEO 0" 200 PLOT 22 210 PLOT 3,16,9 220 PRINT "ENTRY OF DATE FOR REPORTS" 230 PLOT 15,3,16,14 240 PRINT "ENTER DATE (DD,MM,YY)"; 250 INPUT " ";DD,MM,YY 260 DD= INT (DD) 270 MM= INT (MM) 280 YY= INT (YY) 290 IF DD< 1OR DD> 31GOTO 170 300 IF MM< 1OR MM> 12GOTO 170 310 IF YY< 1OR YY> 99GOTO 170 320 DA$= M$(MM)+ STR$ (DD)+ ", 19" 330 YY$= RIGHT$ (STR$ (YY),2) 340 DA$= DA$+ YY$ 350 ND= YY* 365 360 NL= INT (YY/ 4) 370 ND= ND+ NL 380 NY= 4* NL 390 IF NY= YYTHEN ND= ND- 1:REM NO LEAP YEAR DAY....YET 400 ED= 0 410 IF MM= 1GOTO 450 420 FOR XX= 1TO MM- 1 430 ED= ED+ M(XX) 440 NEXT XX 450 ED= ED+ DD 460 ND= ND+ ED 470 IF MM< 3GOTO 510 480 NY= 4* NL 490 IF NY< YYGOTO 510 500 ND= ND+ 1 510 WD= ND- 7* INT (ND/ 7)+ 1 520 WD= WD- 6 530 IF WD< 1THEN WD= WD+ 7 540 DA$= D$(WD)+ ", "+ DA$ 550 PLOT 14,3,15,18 560 PRINT "Today is "DA$ 570 PLOT 15,3,19,22 580 PRINT "OK TO WRITE Y OR N ?"; 590 INPUT " ";OK$ 600 IF LEFT$ (OK$,1)< > "Y"GOTO 170 610 FILE "R",1,"DATE",1 620 PUT 1,1,1;DD,MM,YY,DA$[38] 630 FILE "C",1 640 LOAD "0:VMENU",RUN 1000 M$(1)= "January" 1010 M$(2)= "February" 1020 M$(3)= "March" 1030 M$(4)= "April" 1040 M$(5)= "May" 1050 M$(6)= "June" 1060 M$(7)= "July" 1070 M$(8)= "August" 1080 M$(9)= "September" 1090 M$(10)= "October" 1100 M$(11)= "November" 1110 M$(12)= "December" 1120 RETURN 1130 M(1)= 31 1140 M(2)= 28 1150 M(3)= 31 1160 M(4)= 30 1170 M(5)= 31 1180 M(6)= 30 1190 M(7)= 31 1200 M(8)= 31 1210 M(9)= 30 1220 M(10)= 31 1230 M(11)= 30 1240 M(12)= 31 1250 RETURN 1260 D$(1)= "Saturday" 1270 D$(2)= "Sunday" 1280 D$(3)= "Monday" 1290 D$(4)= "Tuesday" 1300 D$(5)= "Wednesday" 1310 D$(6)= "Thursday" 1320 D$(7)= "Friday" 1390 RETURN