Compucolor.org – Virtual Media

Listing of file='VID3.BAS;01' on disk='vmedia/home_video_library-sector.ccvf'

100 REM  ********** START OF VID3 ***************
110 CLEAR 2000
120 BL$= "                                      "
130 DIM TD$(16)
140 PLOT 12,14,27,24
150 PLOT 3,28,1,18
160 PRINT "VIDEO 3"
170 PLOT 15,23
180 PLOT 3,20,3
190 PRINT "Entry Of New Programs"
200 FILE "R",1,"VCAT",1
210 PLOT 19
220 FOR A= 1TO 16
230 GET 1,A,1;CN$[2],CD$[24]
240 TD$(A)= CD$
250 IF LEFT$ (CD$,5)= "BLANK"GOTO 280
260 GOSUB 1540
270 PRINT DL$
280 NEXT A
290 FILE "R",2,"VPROG",2
300 GET 2,1,1;NR
310 PLOT 3,48,1
320 PLOT 22
330 FOR YC= 15TO 31:PLOT 3,0,YC,11:NEXT YC
340 PLOT 3,1,15
350 PRINT "PROG:"NR- 1
360 PLOT 3,10,15
370 PRINT "CATEGORY CODE:     (99 To Finish)"
380 PLOT 3,10,17
390 PRINT "CASS #            POSITION:"
400 PLOT 3,10,19
410 PRINT "PROGRAM TITLE"
420 PLOT 3,10,21
430 PRINT "RUN TIME (mins)
440 PLOT 3,10,23
450 PRINT "BRIEF COMMENT"
460 PLOT 3,10,25
470 PRINT "REMARK..1"
480 PLOT 3,10,26
490 PRINT "REMARK..2"
500 PLOT 3,10,27
510 PRINT "REMARK..3"
520 PLOT 3,25,15
530 INPUT "";PC$
540 IF LEN (PC$)= 1THEN PC$= " "+ PC$
550 PC= VAL (PC$)
560 IF PC= 99GOTO 1480
570 IF PC> 0AND PC< 17GOTO 600
580 PLOT 7
590 GOTO 520
600 PLOT 3,29,15,19
610 PRINT TD$(PC)
620 PLOT 3,20,17
630 LE= 3
640 GOSUB 2000
650 PLOT 3,20,17
660 INPUT "";PN$
670 PLOT 3,20,17
680 PRINT PN$"   "
690 PLOT 3,40,17
700 LE= 1
710 GOSUB 2000
720 PLOT 3,40,17
730 INPUT "";PO$
740 PLOT 3,40,17
750 PRINT PO$"  "
760 PLOT 3,29,19,22
770 LE= 30
780 GOSUB 2000
790 PLOT 30,16,29
800 PLOT 3,29,19
810 INPUT "";PT$
820 IF LEN (PT$)> 30GOTO 400
830 PLOT 3,29,19,19
840 PRINT PT$"                                     "
850 PLOT 3,29,21
860 LE= 3
870 GOSUB 2000
880 PLOT 3,29,21
890 INPUT "";TI$
900 PT= INT (VAL (TI$))
910 IF PT< 180GOTO 940
920 PLOT 7
930 GOTO 850
940 PLOT 3,29,21
950 PRINT TI$"      "
960 PLOT 3,29,23
970 LE= 20
980 GOSUB 2000
990 PLOT 3,29,23
1000 INPUT "";PB$
1010 PB$= LEFT$ (PB$+ BL$,LE)
1020 PLOT 3,29,23
1030 PRINT PB$
1040 PLOT 3,29,25
1050 LE= 20
1060 GOSUB 2000
1070 PLOT 3,29,25
1080 INPUT "";P1$
1090 P1$= LEFT$ (P1$+ BL$,LE)
1100 PLOT 3,29,25
1110 PRINT P1$
1120 PLOT 3,29,26
1130 LE= 20
1140 GOSUB 2000
1150 PLOT 3,29,26
1160 INPUT "";P2$
1170 P2$= LEFT$ (P2$+ BL$,LE)
1180 PLOT 3,29,26
1190 PRINT P2$
1200 PLOT 3,29,27
1210 LE= 20
1220 GOSUB 2000
1230 PLOT 3,29,27
1240 INPUT "";P3$
1250 P3$= LEFT$ (P3$+ BL$,LE)
1260 PLOT 3,29,27
1270 PRINT P3$
1280 PLOT 3,1,30,11
1290 PLOT 3,20,30,22
1300 INPUT "PROGRAM CORRECT (Y/N) ";XX$
1310 IF XX$= "Y"GOTO 1410
1320 IF XX$= "N"GOTO 1350
1330 PLOT 7
1340 GOTO 1280
1350 PLOT 3,0,30,11,3,22,30,17
1360 PRINT "PROGRAM IGNORED"
1370 PLOT 7
1380 FOR A= 1TO 500
1390 NEXT A
1400 GOTO 320
1410 PP$= "  "+ STR$ (NR- 1)
1420 PP$= RIGHT$ (PP$,3)
1430 PUT 2,NR,1;PP$[3],PC$[2],PT$[30],PB$[20]
1440 PUT 2,NR,56;P1$[20],P2$[20],P3$[20],PT,PN$[3],PO$[1]," "[4]
1450 NR= NR+ 1
1460 GOTO 320
1470 REM
1480 REM  ******** WIND UP PROGRAM ********
1490 REM
1500 PUT 2,1,1;NR
1510 FILE "C",2
1520 PLOT 27,11
1530 LOAD "0:VID5",RUN
1540 REM
1550 REM  ****** DISPLAY CATEGORY 'A' *******
1560 REM
1570 A$= STR$ (A)
1580 IF LEN (A$)= 3GOTO 1600
1590 A$= " "+ A$
1600 DL$= A$+ "   "
1610 DL$= DL$+ TD$(A)
1620 XC= 0:IF A> 8THEN XC= 32
1630 YC= A:IF A> 8THEN YC= A- 8
1640 PLOT 3,XC,YC+ 4
1650 RETURN
2000 REM  ****
2010 REM  **** DISPLAY BLUE INPUT LINE *****
2020 REM  ****
2030 PLOT 30,20
2040 PRINT LEFT$ (BL$,LE)
2050 PLOT 30,16,29,19
2060 RETURN