Listing of file='VID4.BAS;01' on disk='vmedia/home_video_library-sector.ccvf'
100 REM ********** START OF VID4 *************** 110 CLEAR 2000 120 DF$= "N" 130 BL$= " " 140 DIM TD$(16),RC(250) 150 PLOT 12,14,27,24 160 PLOT 3,28,1,29,18 170 PRINT "VIDEO 4" 180 PLOT 15,23 190 PLOT 3,15,3 200 PRINT "Changes & Deletions of Programs" 210 FILE "R",1,"VCAT",1 220 PLOT 19 230 FOR A= 1TO 16 240 GET 1,A,1;CN$[2],CD$[24] 250 TD$(A)= CD$ 260 IF LEFT$ (CD$,5)= "BLANK"GOTO 290 270 GOSUB 2060 280 PRINT DL$ 290 NEXT A 300 FILE "R",2,"VPROG",2 310 FILE "R",3,"VPROG.IDX",2 320 GET 2,1,1;NR 330 FOR RE= 1TO NR- 2 340 GET 3,RE,1;RC(RE) 350 NEXT RE 360 PLOT 3,48,1 370 REM ******** NEXT INPUT ********* 380 PLOT 30,16,29,22 390 PLOT 3,15,30 400 PRINT "PROG: 9999 TO FINISH " 410 PLOT 3,21,30 420 INPUT "";PX$ 430 IF PX$= "9999"GOTO 1970 440 PP= VAL (PX$)+ 1 450 IF PP> 0AND PP< NRGOTO 480 460 PLOT 7 470 GOTO 390 480 REM 490 FOR EE= 1TO NR- 2 500 IF RC(EE)= PPGOTO 530 510 EE= EE+ 1 520 GOTO 500 530 REM 540 GET 2,RC(EE),1;PP$[3],PC$[2],PT$[30],PB$[20] 550 GET 2,RC(EE),56;P1$[20],P2$[20],P3$[20],PT,PN$[3],PO$[1] 560 FOR YC= 15TO 31:PLOT 3,0,YC,11:NEXT YC 570 PLOT 3,12,15 580 PRINT "CATEGORY CODE:" 590 PLOT 3,12,17 600 PRINT "CASS # POSITION:" 610 PLOT 3,12,19 620 PRINT "PROGRAM TITLE" 630 PLOT 3,12,21 640 PRINT "RUN TIME (mins) 650 PLOT 3,12,23 660 PRINT "BRIEF COMMENT" 670 PLOT 3,12,25 680 PRINT "COMMENT..1" 690 PLOT 3,12,26 700 PRINT "COMMENT..2" 710 PLOT 3,12,27 720 PRINT "COMMENT..3" 730 PLOT 30,17,29,23 740 PLOT 3,27,15 750 PRINT PC$ 760 PC= VAL (PC$) 770 PLOT 3,31,15 780 PRINT TD$(PC) 790 PLOT 3,31,17 800 PRINT PN$ 810 PLOT 3,50,17 820 PRINT PO$ 830 PLOT 3,31,19 840 PRINT PT$ 850 TI$= " "+ STR$ (PT) 860 TI$= RIGHT$ (TI$,3) 870 PLOT 3,31,21 880 PRINT TI$ 890 PLOT 3,31,23 900 PRINT PB$ 910 PLOT 3,31,25 920 PRINT P1$ 930 PLOT 3,31,26 940 PRINT P2$ 950 PLOT 3,31,27 960 PRINT P3$ 970 REM ****** GET CHANGES ********* 980 PLOT 3,27,15 990 INPUT "";XC$ 1000 IF LEN (XC$)= 0OR XC$= "0"GOTO 1070 1010 IF PC> 0AND PC< 17GOTO 1040 1020 PLOT 7 1030 GOTO 980 1040 IF LEN (XC$)= 1THEN PC$= " "+ XC$ 1050 DF$= "Y" 1060 PC= VAL (PC$) 1070 PLOT 3,27,15,19 1080 PC$= LEFT$ ((PC$+ " "),2) 1090 PRINT PC$ 1100 PLOT 3,31,15 1110 PRINT TD$(PC) 1120 PLOT 3,31,17 1130 INPUT "";XN$ 1140 IF LEN (XN$)= 0OR XN$= "0"GOTO 1160 1150 PN$= XN$ 1160 PLOT 3,31,17 1170 PN$= LEFT$ ((PN$+ " "),3) 1180 PRINT PN$ 1190 PLOT 3,50,17 1200 INPUT "";XO$ 1210 IF LEN (XO$)= 0OR XO$= "0"GOTO 1230 1220 PO$= XO$ 1230 PLOT 3,50,17 1240 PRINT PO$ 1250 REM ***** TITLE ***** 1260 PLOT 3,31,19 1270 INPUT "";XT$ 1280 IF LEN (XT$)= 0OR XT$= "0"GOTO 1340 1290 IF LEN (XT$)< 31GOTO 1320 1300 PLOT 7 1310 GOTO 1260 1320 PT$= XT$ 1330 DF$= "Y" 1340 PLOT 3,31,19,19 1350 PT$= LEFT$ ((PT$+ " "),30) 1360 PRINT PT$ 1370 PLOT 3,31,21 1380 INPUT "";XI$ 1390 IF LEN (XI$)= 0OR XI$= "0"GOTO 1450 1400 XT= INT (VAL (XI$)) 1410 IF XT< 241GOTO 1440 1420 PLOT 7 1430 GOTO 1340 1440 TI$= XI$ 1450 PLOT 3,31,21 1460 TI$= LEFT$ ((TI$+ " "),3) 1470 PRINT TI$ 1480 PLOT 3,31,23 1490 INPUT "";XB$ 1500 IF LEN (XB$)= 0OR XB$= "0"GOTO 1520 1510 PB$= XB$ 1520 PLOT 3,31,23 1530 PB$= LEFT$ ((PB$+ " "),20) 1540 PRINT PB$ 1550 PLOT 3,31,25 1560 INPUT "";X1$ 1570 IF LEN (X1$)= 0OR X1$= "0"GOTO 1590 1580 P1$= X1$ 1590 PLOT 3,31,25 1600 P1$= LEFT$ ((P1$+ " "),20) 1610 PRINT P1$ 1620 PLOT 3,31,26 1630 INPUT "";X2$ 1640 IF LEN (X2$)= 0OR X2$= "0"GOTO 1660 1650 P2$= X2$ 1660 PLOT 3,31,26 1670 P2$= LEFT$ ((P2$+ " "),20) 1680 PRINT P2$ 1690 PLOT 3,31,27 1700 INPUT "";X3$ 1710 IF LEN (X3$)= 0OR X3$= "0"GOTO 1730 1720 P3$= X3$ 1730 PLOT 3,31,27 1740 P3$= LEFT$ ((P3$+ " "),20) 1750 PRINT P3$ 1760 PLOT 30,16,29,17 1770 PLOT 3,1,30,11 1780 PLOT 3,20,30,22 1790 PLOT 30,16,29,17 1800 INPUT "PROGRAM CORRECT (Y/N) ";XX$ 1810 IF XX$= "Y"GOTO 1910 1820 IF XX$= "N"GOTO 1850 1830 PLOT 7 1840 GOTO 1760 1850 PLOT 3,0,30,11,3,22,30,17 1860 PRINT "PROGRAM IGNORED" 1870 PLOT 7 1880 FOR A= 1TO 500 1890 NEXT A 1900 GOTO 380 1910 PP$= " "+ STR$ (NR- 1) 1920 PP$= RIGHT$ (PP$,3) 1930 PUT 2,RC(EE),1;PP$[3],PC$[2],PT$[30],PB$[20] 1940 PUT 2,RC(EE),56;P1$[20],P2$[20],P3$[20],PT,PN$[3],PO$[1]," "[4] 1950 GOTO 380 1960 REM 1970 REM *********** WIND UP PROGRAM ***************** 1980 REM 1990 FILE "C",2 2000 PLOT 27,11 2010 IF DF$= "N"THEN LOAD "0:VMENU",RUN 2020 PLOT 12,18,14 2030 PLOT 3,10,15 2040 PRINT "CHANGE OF CATEGORY OR TITLE - SORT WILL RUN NEXT" 2050 LOAD "0:VID5",RUN 2060 REM 2070 REM ****** DISPLAY CATEGORY 'A' ******* 2080 REM 2090 A$= STR$ (A) 2100 IF LEN (A$)= 3GOTO 2120 2110 A$= " "+ A$ 2120 DL$= A$+ " " 2130 DL$= DL$+ TD$(A) 2140 XC= 0:IF A> 8THEN XC= 32 2150 YC= A:IF A> 8THEN YC= A- 8 2160 PLOT 3,XC,YC+ 4 2170 RETURN