Listing of file='VID3.BAS;01' on disk='vmedia/home_video_library-sector.ccvf'
100 REM ********** START OF VID3 *************** 110 CLEAR 2000 120 BL$= " " 130 DIM TD$(16) 140 PLOT 12,14,27,24 150 PLOT 3,28,1,18 160 PRINT "VIDEO 3" 170 PLOT 15,23 180 PLOT 3,20,3 190 PRINT "Entry Of New Programs" 200 FILE "R",1,"VCAT",1 210 PLOT 19 220 FOR A= 1TO 16 230 GET 1,A,1;CN$[2],CD$[24] 240 TD$(A)= CD$ 250 IF LEFT$ (CD$,5)= "BLANK"GOTO 280 260 GOSUB 1540 270 PRINT DL$ 280 NEXT A 290 FILE "R",2,"VPROG",2 300 GET 2,1,1;NR 310 PLOT 3,48,1 320 PLOT 22 330 FOR YC= 15TO 31:PLOT 3,0,YC,11:NEXT YC 340 PLOT 3,1,15 350 PRINT "PROG:"NR- 1 360 PLOT 3,10,15 370 PRINT "CATEGORY CODE: (99 To Finish)" 380 PLOT 3,10,17 390 PRINT "CASS # POSITION:" 400 PLOT 3,10,19 410 PRINT "PROGRAM TITLE" 420 PLOT 3,10,21 430 PRINT "RUN TIME (mins) 440 PLOT 3,10,23 450 PRINT "BRIEF COMMENT" 460 PLOT 3,10,25 470 PRINT "REMARK..1" 480 PLOT 3,10,26 490 PRINT "REMARK..2" 500 PLOT 3,10,27 510 PRINT "REMARK..3" 520 PLOT 3,25,15 530 INPUT "";PC$ 540 IF LEN (PC$)= 1THEN PC$= " "+ PC$ 550 PC= VAL (PC$) 560 IF PC= 99GOTO 1480 570 IF PC> 0AND PC< 17GOTO 600 580 PLOT 7 590 GOTO 520 600 PLOT 3,29,15,19 610 PRINT TD$(PC) 620 PLOT 3,20,17 630 LE= 3 640 GOSUB 2000 650 PLOT 3,20,17 660 INPUT "";PN$ 670 PLOT 3,20,17 680 PRINT PN$" " 690 PLOT 3,40,17 700 LE= 1 710 GOSUB 2000 720 PLOT 3,40,17 730 INPUT "";PO$ 740 PLOT 3,40,17 750 PRINT PO$" " 760 PLOT 3,29,19,22 770 LE= 30 780 GOSUB 2000 790 PLOT 30,16,29 800 PLOT 3,29,19 810 INPUT "";PT$ 820 IF LEN (PT$)> 30GOTO 400 830 PLOT 3,29,19,19 840 PRINT PT$" " 850 PLOT 3,29,21 860 LE= 3 870 GOSUB 2000 880 PLOT 3,29,21 890 INPUT "";TI$ 900 PT= INT (VAL (TI$)) 910 IF PT< 180GOTO 940 920 PLOT 7 930 GOTO 850 940 PLOT 3,29,21 950 PRINT TI$" " 960 PLOT 3,29,23 970 LE= 20 980 GOSUB 2000 990 PLOT 3,29,23 1000 INPUT "";PB$ 1010 PB$= LEFT$ (PB$+ BL$,LE) 1020 PLOT 3,29,23 1030 PRINT PB$ 1040 PLOT 3,29,25 1050 LE= 20 1060 GOSUB 2000 1070 PLOT 3,29,25 1080 INPUT "";P1$ 1090 P1$= LEFT$ (P1$+ BL$,LE) 1100 PLOT 3,29,25 1110 PRINT P1$ 1120 PLOT 3,29,26 1130 LE= 20 1140 GOSUB 2000 1150 PLOT 3,29,26 1160 INPUT "";P2$ 1170 P2$= LEFT$ (P2$+ BL$,LE) 1180 PLOT 3,29,26 1190 PRINT P2$ 1200 PLOT 3,29,27 1210 LE= 20 1220 GOSUB 2000 1230 PLOT 3,29,27 1240 INPUT "";P3$ 1250 P3$= LEFT$ (P3$+ BL$,LE) 1260 PLOT 3,29,27 1270 PRINT P3$ 1280 PLOT 3,1,30,11 1290 PLOT 3,20,30,22 1300 INPUT "PROGRAM CORRECT (Y/N) ";XX$ 1310 IF XX$= "Y"GOTO 1410 1320 IF XX$= "N"GOTO 1350 1330 PLOT 7 1340 GOTO 1280 1350 PLOT 3,0,30,11,3,22,30,17 1360 PRINT "PROGRAM IGNORED" 1370 PLOT 7 1380 FOR A= 1TO 500 1390 NEXT A 1400 GOTO 320 1410 PP$= " "+ STR$ (NR- 1) 1420 PP$= RIGHT$ (PP$,3) 1430 PUT 2,NR,1;PP$[3],PC$[2],PT$[30],PB$[20] 1440 PUT 2,NR,56;P1$[20],P2$[20],P3$[20],PT,PN$[3],PO$[1]," "[4] 1450 NR= NR+ 1 1460 GOTO 320 1470 REM 1480 REM ******** WIND UP PROGRAM ******** 1490 REM 1500 PUT 2,1,1;NR 1510 FILE "C",2 1520 PLOT 27,11 1530 LOAD "0:VID5",RUN 1540 REM 1550 REM ****** DISPLAY CATEGORY 'A' ******* 1560 REM 1570 A$= STR$ (A) 1580 IF LEN (A$)= 3GOTO 1600 1590 A$= " "+ A$ 1600 DL$= A$+ " " 1610 DL$= DL$+ TD$(A) 1620 XC= 0:IF A> 8THEN XC= 32 1630 YC= A:IF A> 8THEN YC= A- 8 1640 PLOT 3,XC,YC+ 4 1650 RETURN 2000 REM **** 2010 REM **** DISPLAY BLUE INPUT LINE ***** 2020 REM **** 2030 PLOT 30,20 2040 PRINT LEFT$ (BL$,LE) 2050 PLOT 30,16,29,19 2060 RETURN