Compucolor.org – Virtual Media

Listing of file='MENU.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 3,0,8
240 PLOT 18
250 PRINT "     This  System  consists of a set of programs to handle the"
260 PRINT " cataloguing  of programs in a home video library and  produce"
270 PRINT " reports  to enable quick search to find what  programs are in"
280 PRINT " the library."
290 PRINT
300 PRINT "    It will keep the programs listed in categories -  which are"
310 PRINT " defined by the user - with these categories capable of being"
320 PRINT "  altered, or added to at any time."
330 PRINT
340 PRINT " It is designed to run on a single disk system with a printer"
350 PRINT " being a necessity by 'definition'."
360 PRINT
370 PRINT "  ........But if you don't have one then a friend Will!"
380 PLOT 3,15,27
390 PRINT "ENTER BAUD RATE OF PRINTER 1-7       "
400 PLOT 7
410 PLOT 3,48,27
420 INPUT "";BR
430 IF BR> 0AND BR< 8GOTO 460
440 PLOT 7
450 GOTO 380
460 PLOT 27,18,BR
470 PLOT 3,20,30,19
480 PRINT "Press any key to continue";
490 POKE 33278,0
500 IF PEEK (33278)= 0GOTO 500
510 LOAD "VMENU",RUN