Listing of file='VID2.BAS;01' on disk='vmedia/home_video_library-sector.ccvf'
100 REM ********** START OF VID2 *************** 110 CLEAR 2000 120 DIM TD$(30) 130 DIM TP$(30) 140 DIM VA(30) 150 PLOT 12,14,27,24 160 PLOT 3,28,3 170 PRINT "VIDEO 2" 180 PLOT 15,23 190 PLOT 3,14,6 200 PRINT "ADD OR AMMEND VIDEO CATEGORIES" 210 PLOT 3,22,8,17 220 PRINT "(ALLOWS ONLY 16)" 230 FILE "R",1,"VCAT",1 240 FOR A= 1TO 16 250 GET 1,A,1;CN$[2],CD$[24] 260 TD$(A)= CD$ 270 TP$(A)= PC$ 280 VA(A)= VA 290 NEXT A 300 FOR A= 1TO 8 310 GOSUB 1000 320 IF LEFT$ (TD$(A),5)= "BLANK"GOTO 350 330 PLOT 22 340 PRINT DL$ 350 NEXT A 360 FOR A= 9TO 16 370 GOSUB 1000 380 IF LEFT$ (TD$(A),5)= "BLANK"GOTO 410 390 PLOT 22 400 PRINT DL$ 410 NEXT A 415 GOTO 460 420 REM 430 REM ******* MAIN ROUTINE TO TAKE INPUT ********* 440 REM 450 FOR XX= 14TO 31:PLOT 3,0,XX,11:NEXT XX 460 PLOT 22 470 PLOT 3,14,11 480 PRINT "Category Number (99 TO FINISH)" 490 PLOT 3,14,13 500 PRINT "Description" 510 PLOT 3,30,13,30,20 520 PRINT " "; 530 PLOT 30,16,29,19 540 PLOT 7,3,30,11 550 INPUT " ";DN$ 560 A= VAL (DN$) 570 IF A= 99GOTO 2000 580 IF A< 1OR A> 16GOTO 470 590 PLOT 3,30,13,30,20 600 PRINT " "; 610 PLOT 30,16,29 620 PRINT " " 630 PLOT 3,29,13 640 INPUT " ";DE$ 650 IF LEN (DE$)> 24GOTO 590 660 IF LEN (DE$)= 24GOTO 690 670 DE$= DE$+ " " 680 GOTO 660 690 PLOT 3,30,13 700 PRINT DE$ 710 TD$(A)= DE$ 720 PLOT 3,20,15,17 730 INPUT "IS ENTRY OK ? ";OK$ 740 IF OK$= "Y"GOTO 780 750 IF OK$= "N"GOTO 460 760 PLOT 7 770 GOTO 720 780 GOSUB 1000 790 PLOT 17 800 PRINT DL$ 810 GOTO 460 1000 REM 1010 REM ****** DISPLAY CATEGORY 'A' ******* 1020 REM 1030 A$= STR$ (A) 1040 IF LEN (A$)= 3GOTO 1060 1050 A$= " "+ A$ 1060 DL$= A$+ " " 1070 XP$= STR$ (100- VAL (TP$(A))) 1080 IF LEN (XP$)= 4THEN XP$= RIGHT$ (XP$,3) 1090 IF OP= 2THEN DL$= DL$+ XP$+ "% " 1100 DL$= DL$+ TD$(A) 1110 XC= 0:IF A> 8THEN XC= 32 1120 YC= A:IF A> 8THEN YC= YC- 8 1130 PLOT 19 1140 PLOT 3,XC,YC+ 16 1150 RETURN 2000 REM 2010 REM ******* FINISH & REWRITE FILE ******** 2020 REM 2030 FOR A= 1TO 16 2040 PUT 1,A,3;TD$(A)[24]," "[4] 2050 NEXT A 2060 FILE "C",1 2070 PLOT 27,11 2080 LOAD "0:VMENU",RUN