Listing of file='VID1.BAS;01' on disk='vmedia/home_video_library-sector.ccvf'
100 REM ********* VID1 - INITIAL FILE CREATION ****** 110 PLOT 12,14,18 120 PLOT 3,28,2 130 PRINT "VIDEO 1" 140 PLOT 15,23 150 PLOT 3,14,6 160 PRINT "THIS PROGRAM SHOULD ONLY BE RUN WHEN" 170 PLOT 3,13,7 180 PRINT "INITIALLY SETTING UP YOUR VIDEO LIBRARY" 185 PLOT 19 190 PLOT 3,14,11 200 PRINT "IT'S USE IS TO CREATE ALL DATA FILES" 210 FILE "T",280 220 REM 230 REM *** IF DATE DOES NOT EXIST ALREADY, CREATE FILE 240 REM 250 FILE "R",1,"DATE",1 260 FILE "C",1 270 GOTO 340 280 FILE "N","DATE",1,100,1 290 FILE "R",1,"DATE",1 300 PLOT 19,3,1,13 330 FILE "C",1 340 REM ****** MAIN START FOR EACH FILE ********* 350 PLOT 3,0,13,11,22 360 PLOT 3,16,15 370 PRINT "0: Return to Menu" 380 PLOT 3,16,17 390 PRINT "1. Create File of Program Categories" 400 PLOT 3,16,19 405 PRINT "2: Create File Of Actual Programs" 420 PLOT 3,16,21 491 FILE "T",3000 500 PLOT 3,20,30,7 510 INPUT "ENTER OPTION NUMBER ";OP$ 520 OP= VAL (OP$) 530 IF OP= 0GOTO 560 540 IF OP< 1OR OP> 2GOTO 500 550 ON OPGOTO 1000,1200 560 LOAD "0:VMENU",RUN 1000 REM 1010 REM ******************************* 1020 REM 1030 PLOT 3,22,24 1040 PRINT "CREATE PROGRAM CATEGORIES" 1050 PLOT 3,25,26 1060 PRINT "ALLOWS ONLY 16" 1070 FILE "N","VCAT",16,32,16 1080 FILE "R",1,"VCAT",1 1090 FOR A= 1TO 16 1100 A$= STR$ (A) 1110 IF LEN (A$)= 3THEN A$= RIGHT$ (A$,2) 1120 PUT 1,A,1;A$[2],"BLANK"[24],"00"[2],0 1130 NEXT A 1140 FILE "C",1 1150 GOTO 100 1200 REM 1210 REM ******************************* 1220 REM 1230 PLOT 3,20,24 1240 PRINT "CREATE PROGRAM FILE" 1250 PLOT 3,10,26,7 1260 INPUT "NO OF VIDEO PROGRAMS EXPECTED? ";TR$ 1270 TR= VAL (TR$) 1280 IF TR> 20AND TR< 1001GOTO 1310 1290 PLOT 7 1300 GOTO 1250 1310 FILE "N","VPROG",TR,128,4 1320 FILE "N","VPROG.IDX",TR,4,128 1325 FILE "N","VPROG.IDC",TR,4,128 1330 FILE "R",1,"VPROG",1 1340 PUT 1,1,1;2,"**** POINTER TO NEXT FREE RECORD ****"[124] 1350 FILE "C",1 1360 GOTO 100 3000 REM 3010 REM ******* OUT OF ROOM ******** 3020 REM 3030 PLOT 30,17,29,16,12 3040 PLOT 3,20,10,14 3050 PRINT "NO MORE SPACE LEFT ON DISK" 3060 PLOT 30,16,29,19 3070 END