Listing of file='VMENU.BAS;01' on disk='vmedia/home_video_library-sector.ccvf'
100 REM ************** MENU (VIDEO) ***************** 110 CLEAR 1000 120 PLOT 30,16,29,20 130 PLOT 12,14,27,24 140 PLOT 3,23,1 150 PLOT 20 160 PRINT "HOME VIDEO LIBRARY" 170 PLOT 15,23 180 PLOT 3,16,3 190 PRINT "Copyright 1982 - Keith R. Ochiltree" 200 PLOT 3,23,5 210 PRINT "MELBOURNE - AUSTRALIA" 220 PLOT 18 230 PLOT 17,14 240 PLOT 3,22,9 250 PRINT "V I D E O M E N U" 260 PLOT 18,15 270 PLOT 3,10,11 280 PRINT "0: Set Date For Report Headings" 290 PLOT 3,10,13 300 PRINT "1: Initial Creation of All Files" 310 PLOT 3,10,15 320 PRINT "2: Ammendments to Program Categories" 330 PLOT 3,10,17 340 PRINT "3: Add Programs to Library" 350 PLOT 3,10,19 360 PRINT "4: Alter or Delete Programs from Library" 370 PLOT 3,10,21 380 PRINT "5: Recreate Sorted Index" 390 PLOT 3,10,23 400 PRINT "6: Print Brief Film List" 410 PLOT 3,10,25 420 PRINT "7: Print Detailed Film List" 430 PLOT 3,10,27 440 PRINT "8: Print List by Cassette Number" 450 PLOT 3,10,29 460 PRINT "9: Finish This Run" 470 PLOT 3,15,31 480 PLOT 23,7 490 PRINT "Enter Program Number "; 500 INPUT " ";OP$ 510 PLOT 15 520 OP= VAL (OP$)+ 1 530 IF OP< 11GOTO 560 540 PLOT 7 550 GOTO 470 560 PLOT 27,11 570 FOR A= 48TO 144STEP 2 580 LO= 29795+ 256* OP+ A 590 POKE LO,70 600 REM POKE LO+128,70 610 NEXT A 620 FOR B= 1TO 500:NEXT B 630 PLOT 30,16,29 640 ON OPGOTO 670,680,690,700,710,720,730,740,750,760 650 PLOT 7 660 GOTO 650 670 LOAD "0:VID0",RUN 680 LOAD "0:VID1",RUN 690 LOAD "0:VID2",RUN 700 LOAD "0:VID3",RUN 710 LOAD "0:VID4",RUN 720 LOAD "0:VID5",RUN 730 LOAD "0:VID6",RUN 740 LOAD "0:VID7",RUN 750 LOAD "0:VID8",RUN 760 PLOT 12,27,11 770 END