ô > Video ver$="0.11":*TV255 ë&87:ï23;2,53;0;0;0:òinit (î…:ç¤err:òend:à 2õý¤menu:òend:à <: FÝ¤err:ö:ï26 Pçin%:A%=in%:in%=0:Ù#A% Zçout%:A%=out%:out%=0:Ù#A% d"ê A$:A$=¿(1000 € (Ÿ<>17)):=¦-1 n: xÝòinit:in%=0:out%=0:F$="" ‚ver%=1:nv%=2:nd%=3:nl%=0 Œ Þ V$(10),D%(10),L$(24),C$(7) –ãn%=0 ¸ 7:ó C$(n%):í &Ü ,Library Tape - do not overwrite ª,Ü Timeshift Viewing - May be overwritten ´Ü ,,,,,,,,, ¾òclear:á È: Ò Ýòend Üá æ: ð7Ýòd(X%,Y%,T$):ñŠX%,Y%);½141;T$;ŠX%,Y%+1);½141;T$;:á ú: 8Ý¤menu:Û:òd(9,0,"Video Titler "+ver$):ï23,1,1;0;0;0; ñ'‰(9)"(C)1996 J.G.Harston" ñ‰(13-©F$/2);"Last file: "F$ "ñ'‰5"1 : Clear settings" ,ñ'‰5"2 : Edit settings" 6ñ'‰5"3 : Save settings" @ñ'‰5"4 : Load settings" J!ñ'‰5"5 : Run through quickly" T$ñ'‰5"6 : Run through full speed" ^ñ''‰5"0 : Exit"'' hñ‰5"Press a key: ";:õ r.õA$=¾:ý§"0123456*"+½13+½0,A$):çA$<>"*" ñA$ |#çA$="*" è†"*"A$:ÿA$:A$="":ñ":"; †iç A$=½0 €?(¸P-3):ñ"Saving...";:ÿ"SAVE "+Á$(+4),§$(+4),">")+1)+" "+Ã~+" "+Ã~¸P+" FFFF0000 FFFFFB00" çA$="1" òclear šçA$="2" òedit ¤çA$="3" òsave ®çA$="4" òload ¸çA$="5" òrun(¹) ÂçA$="6" òrun(£) ÌýA$<>"":=A$="0" Ö: àWÝòsave:ñ'"Save settings":è"Filename: "F$:out%=®(F$):çout%=0:ñ"Can't open "F$:A%=¥:á ê/ñ#out%,ver%,nv%:ãn%=0 ¸ nv%:ñ#out%,V$(n%):í ô*ñ#out%,nd%:ãn%=0 ¸ nd%:ñ#out%,D%(n%):í þ*ñ#out%,nl%:ãn%=0 ¸ nl%:ñ#out%,L$(n%):í Ù#out%:out%=0:á : UÝòload:ñ'"Load settings":è"Filename: "F$:in%=Ž(F$):çin%=0:ñF$;" not found":A%=¥:á &-è#in%,ver%,nv%:ãn%=0 ¸ nv%:è#in%,V$(n%):í 0(è#in%,nd%:ãn%=0 ¸ nd%:è#in%,D%(n%):í :(è#in%,nl%:ãn%=0 ¸ nl%:è#in%,L$(n%):í DÙ#in%:in%=0:á N: XXÝòclear:V$(0)="Video":V$(1)="":V$(2)="":ãn%=0 ¸ 24:L$(n%)="0:"+Ã(n%*10+10)+":00":í:á b: l/Ýòedit:ê A$:Û:òd(9,0,"Edit Video Settings") vñ''"Main title: ";V$(0) €ñ''"Subtitle:"'V$(1) Šñ'"Listing Title: "V$(2) ”#ñŠ0,12)"Cassette size: E";D%(0) ž:ñ'"Lead-in time: ";:çD%(3):ñ;D%(3)/100"s" ‹ ñ"In-line" ¨ñ'"Text size: ";D%(1) ²ñ'"Number of lines: ";nl%+1 ¼&ñ'"Comment line: ";D%(2)'C$(D%(2)) ÆLõ:è†Š12,4);""A$:çA$<>"":V$(0)=A$:ñŠ12,3);A$;‰(79-±);:çV$(0)=" ":V$(0)="" ÐHè†Š0,8);""A$:çA$<>"":V$(1)=A$:ñŠ0,7);A$;‰(79-±);:çV$(1)=" ":V$(1)="" ÚKè†Š15,10);""A$:çA$<>"":V$(2)=A$:ñŠ15,9);A$;‰(79-±);:çV$(2)=" ":V$(2)="" ä<èŠ25,12);"E"A$:çA$<>"":D%(0)=»A$:ñŠ16,12);D%(0);‰(39-±); îièŠ25,14);""A$:çA$<>"":D%(3)=100*»A$:ñŠ14,14);ÀÃ(D%(3)/100)+"s",D%(3)<>0);À"In-line",D%(3)=0);‰(39-±); øZèŠ25,16);""A$:çA$<>"":D%(1)=»A$:nl%=19/D%(1):ñŠ11,16);D%(1);‰(39-±);Š17,18);1+nl%;" "; 7èŠ25,18);""A$:çA$<>"":nl%=»A$-1:ñŠ17,18);1+nl%;" "; TèŠ25,20);""A$:çA$<>"":D%(2)=»A$:ñŠ16,20);D%(2);‰(39-±);Š0,18);C$(D%(2));‰(39-±); /ñŠ0,24);"Press RETURN to edit lines";:ý¥=13 Û:çD%(1)<1:D%(1)=3 *Vnl%=19/D%(1):çD%(1)<2:ãn%=0 ¸ nl%:ñL$(n%):í ‹ ã n%=0 ¸ nl%:òd(0,n%*D%(1),L$(n%)):í 4bõ:ãn%=0 ¸ nl%:ñŠ0,21);L$(n%);‰(119-©L$(n%));:ï28,0,24,39,21:è†Š0,2);""A$:ï26:çA$<>"":L$(n%)=A$ >;çD%(1)<2:ñŠ0,n%);L$(n%);‰(39-±) ‹ òd(0,n%*D%(1),L$(n%)) HñŠ0,21);‰(159);:í R+ñŠ0,21);"Press RETURN to finish";:ý¥=13 \á f: pÝòrun(F%):ï23,1;0;0;0;0;12 zQTime%=D%(3):çTime%=0:Time%=100*(3600*»ÀL$(0),1)+60*»ÁL$(0),3,2)+»ÁL$(0),6,2)) „8çF%ñŠ0,15)"Press SPACE to step through timed stages" Ž&òd(8,10,"Press SPACE to start"):ç¥ ˜*Û:òd(7,10,"Get ready to press RECORD") ¢zñ''''" There will be 10 seconds of black, then"‰8;Time%100-20;" seconds of information"'‰9;"then 10 seconds of black" ¬CT%=‘+1000:õòd(19,12,Ã((T%-‘+100)100)+" "):ý‘>T% „(F% € ¦(0)>¹) ¶$Start%=‘:Û:T%=‘+1000:õý‘>T% „ F% Àòd(19-©V$(0)2,10,V$(0)) ÊñŠ19-©V$(1)2,13);V$(1) Ô$T%=‘+1000:õý‘>T% „ (F% € ¦(0)>¹) ÞÛ:T%=‘+10:õý‘>T% èçD%(1)<1:D%(1)=3 ò>çV$(2)="":H$=" Start Title" ‹ H$=Ä19-©V$(2)2," ")+V$(2) üeçD%(1)<2:ñH$:ãn%=0 ¸ nl%:ñL$(n%):í ‹ òd(0,0,H$):ã n%=0 ¸ nl%:òd(0,2+n%*D%(1)-(©L$(4)<2),L$(n%)):í 7ô IFD%(1)>1:FORn%=3TO21:PRINTTAB(0,n%)CHR$141;:NEXT ñŠ4,23);C$(D%(2)); .T%=Start%+Time%-1000:õý‘>T% „(F% € ¦(0)>¹) $Û:T%=‘+2000:õý‘>T% „ F% .á ÿ