Video-Vorspann mit dem VC 20

Einen professionellen Vorspann wie aus einem richtigen Filmstudio produziert dieses Programm.

Das »Etikett« zeigt alle wichtigen Angaben auf einen Blick

Erzeugt wird ein technischer Vorspann, ähnlich wie ihn auch Fernsehstudios verwenden. Dieser Vorspann dient einerseits der Kontrolle der richtigen Einstellungen, andererseÎits der Dokumentation der einzelnen Szenen. Darüber hinaus wird die Synchronisation einer eventuellen Nachvertonung erleichtert.

Der Vorspann besteht im einzelnen aus

einem farbfolgerichtigen Farbbalken zur Einstellkontrolle; dazu wird ein Meßton von 1000 Hz erzeugt,
einem »Etikett« (anstatt der Klappe beim Film) mit Angaben über Datum, Bandnummer, Geschwindigkeit, Aufnahmegerät, Quelle, Serienname und Titel,
schließlich einem Countdown von neun bis zwei im Sekundentakt, dazu wieder ein Meßton von 1000 Hz.

Unter dem Farbbalken und über den Zahlen des Countdowns erscheint Ihr Name beziehungsweise die Studiobezeichnung. Ersetzen Sie daher in den Zeilen 440 und 1330 »Schulz Video« durch die von Ihnen gewünschte Bezeichnung.

Nach dem Starten des Programms muß als erstes die Eingabe der Etikett-Daten erfolgen. Folgende Angaben sind notwendig:

Bandnummer (bis 9 Stellen)
Geschwindigkeit (SP oder LP)
Datum (beliebiges Format)
Aufnahmegerät (bis 13 Stellen)
Quelle (bis 13 Stellen)
Serienname (bis 19 Stellen)
Titel (bis 19 Stellen)

Jede Antwort wird mit RETURN abgeschlossen. Die Fortschaltung der Sequenzen Farbbalken/Etikett/Countdown geschieht mit der F7-Taste. Zwischen den einzelnen Sequenzen erscheint immer — bis zum erneuten Drücken von F7 — eine Schwarzblende

Nach dem Countdown bewirkt die F7-Taste wiederum das Erscheinen der Farbbalken, und die einzelnen Sequenzen werden erneut durchlaufen. Für eine neue Beschriftung des Etiketts ist STOP/RESTORE und ein erneuter Programmstart notwendig.

(Wolfgang Schulz/ev)

1 rem****************
2 rem*video-vorspann*
3 rem*von           *
4 rem*wolfgang r.   *
5 rem*schulz        *
6 rem*theodor-      *
7 rem*koerner-weg 5 *
8 rem*2000 hamburg61*
9 rem****************
10 poke36879,8:print"{clr}"
20 print"{wht}bandnummer eingeben{grn}"
30 print:print:print:print
40 inputbn$:print"{wht}{down}{down}{down}geschwindigkeit sp/lp"
50 print"{down}{down}{grn}":input gs$
60 gosub1360
70 print:print:print"{clr}{wht}aufzeichnungsgeraet{grn}"
80 print:print:print
90 input g$
100 print:print:print"{clr}{wht}serien-name{grn}"
110 print:print:print
120 inputse$
130 print:print:print"{wht}titel{grn}"
140 print:print:print:inputt$
150 print:print:print"{wht}quelle{grn}"
160 print:print
170 inputq$
180 gosub1490:gosub1280:print"{clr}":gosub1280
190 gosub 1300
200 print"{clr}":gosub1280
210 bn$=left$(bn$,6):gs$=left$(gs$,2)
220 print"{wht}band-nr. {grn}"bn$;:printtab(19)"{blu}"gs$
230 print"{down}{red}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P"
240 print"{CBM-G}                   {CBM-M}"
250 print"L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}"
260 print" {grn}{up}{up}{grn} "dt$
270 g$=left$(g$,13)
280 print"{down}{down}{down}{wht}geraet: {yel}"g$
290 q$=left$(q$,13)
300 print:print"{wht}quelle:{yel} "q$
310 print:print
320 print"{cyn}{rvon}{CBM-D}{rvof}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{rvon}{CBM-F}"
330 fors=1to7:print"{CBM-J}                   {CBM-L}"
340 nexts
350 print"{rvon}{CBM-C}{rvof}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{rvon}{CBM-V}"
360 print"{rght}{up}{up}{up}{up}{up}{up}{up}{up}{wht}serie:{yel}"
370 se$=left$(se$,19)
380 print"{rght}{down}"se$
390 print"{down}{rght}{wht}titel:{yel}"
400 t$=left$(t$,19)
410 print"{down}{rght}"t$
420 gosub1280
430 print"{clr}":gosub1280
440 print"{clr}{grn}    schulz   video"
450 print"{red}    {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}"
460 print"{yel}":print
470 fori=1to3
480 print"       {rvon}        "
490 nexti
500 form=1to4
510 print"       {rvon}  {rght}{rght}{rght}{rght}  "
520 next m
530 forz=1to3
540 print"       {rvon}        "
550 nextz
560 forb=1to7
570 print"       {rvon}{rght}{rght}{rght}{rght}{rght}{rght}  "
580 nextb
590 gosub1410
600 print"{up}{up}{up}{up}{up}{up}{up}{up}"
610 forp=1to4
620 print"       {rvon}  {rght}{rght}{rght}{rght}  "
630 nextp
640 foro=1to3
650 print"       {rvon}        "
660 nexto
670 gosub1410
680 print"{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}"
690 foru=1to4
700 print"          "
710 nextu
720 fork=1to10                       
730 print"             "
740 nextk
750 print"{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}"
760 gosub1410
770 forb=1to3
780 print"       {rvon}       "
790 nextb
800 forl=1to4
810 print"       {rvon}  {rvof}       "
820 nextl
830 forj=1to3
840 print"       {rvon}        "
850 nextj
860 forx=1to4
870 print"       {rvon}  "
880 nextx
890 forz=1to3
900 print"       {rvon}       "
910 nextz
920 gosub1410
930 print"{up}{up}{up}{up}{up}{up}{up}{up}"
940 forv=1to4
950 print"          "
960 nextv
970 forj=1to55:nextj
980 gosub1410
990 print"{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}"
1000 fora=1to7
1010 print"       {rvon}  {rvof}    {rvon}  "
1020 nexta
1030 print"{down}{down}{down}{down}{down}{down}"
1040 fort=1to3
1050 print "             "
1060 nextt
1070 gosub1410
1080 print"{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}"
1090 forx=1to3
1100 print"       {rvon}      "
1110 nextx
1120 forq=1to4
1130 print"             {rvon} "
1140 nextq
1150 print"{down}{down}{down}{down}{down}{down}"
1160 forj=1to3
1170 print"       {rvon}      ":nextj
1180 gosub1410
1190 poke36876,0
1200 print"{up}{up}{up}{up}{up}{up}{up}{up}"
1210 fork=1to4
1220 print"       {rvon}  {rght}{rght}{rght}{rvof}   "    "
1230 nextk
1240 forj=1to300:next
1250 poke36878,0
1260 print"{clr}":gosub1280
1270 goto1300
1280 getf$:iff$<>"{f7}"thengoto1280
1290 return
1300 forj=1to19:poke36876,239:poke36878,7
1310 print"{rvon}{wht}   {yel}   {cyn}   {grn}   {pur}   {red}   {blu}   "
1320 nextj
1330 print:print"{wht}   schulz    video"
1340 gosub1280:print"{clr}":poke36876,0
1350 goto200
1360 print:print:print"{clr}{wht}datum"
1370 print:print"{grn}":inputdt$
1380 print:print"{grn}"
1390 return
1400 end
1410 rem messton
1420 forpiep=1to15
1430 poke36878,7
1440 poke36876,239
1450 nextpiep
1460 poke36878,1
1470 forn=1to625:next
1480 return
1490 print"{clr}"
1500 print"{grn}starte jedes element"
1510 print:print"mit der (f-7)-taste."
1520 print:print
1530 print"{wht}die sequenzen sind:"
1540 print:print"{cyn}1. schwarz/stumm"
1550 print:print"2. farbbalken/messton"
1560 print:print"3. schwarz/stumm"
1570 print:print"4. etikett"
1580 print:print"5. schwarz/stumm"
1590 print:print"6. countdown"
1600 print:print"7. schwarz/stumm"
1610 return

Listing »Video-Vorspann«