
 ô"„‡CLOCK2  œ ô"ƒVTR Ident/Leader Clock# ô"„ƒV 8.0ƒ02.04.86„„ƒOS1.2I# ô"„ƒV 8.1ƒ12.12.06„„ƒ                „ƒJGH: Tweeked for Windowst( ô" ’<,,,,,,,,,,,,,,,,,,,,,,,,,,l          ’5‡(C) 1986 Alan Pemberton ’j          ’5‡(C) 1986 Alan Pemberton ’jt< ô"’5‡pembers.freeserve.co.uk ’j          ’5‡pembers.freeserve.co.uk’’j           ’-,,,,,,,,,,,,,,,,,,,,,,,,,,.E os%=¤byte(0,1,0)F î…åPJ}Z ë7:òintron ë4:òdisp:õbot%=¼:ñ:ýbot%=¼p Þcos(60),sin(60)‚ A%=¤byte(151,96,0)Œ A%=¤byte(151,98,127)– control_byte%=0  fade%=£ª date$="DATE: "+Ä13," ")´ prog$="PROG: "+Ä184," ")¾ shot$="SHOT: "+Ä13," ")È take$="TAKE: "+Ä13," ")Ê start_angle%=330
Ò ï26,12
Ü òslateÞ òcentreð òboxú î…åP@}	òdate	òprog	òshot"òclock(1330),àçô"…èô"ƒDATA FOR MARKERSòô"ƒ@ 40,20,15,3,0üÜ 90,108,180,210,330ô"ƒDATA FOR LEGENDSÜ "FADE",7,0,"IDENT",0,17AÜ "5",10,6,"1O",6,9,"15",4,14,"2O",6,20,"3O",15,25,"4O",24,20$Ü "",0,0Ïô"…ÐÝòslateÚæ0,1äòcentreîòlegend	øògradòarc(180,90,-6,424,16)òarc(210,330,6,424,16)òarc(360,0,-12,120,-16) á·ô"…Ÿô"…) Ýòarc(start%,end%,inc%,radius%,wall%)ªê X,Y,angle%#´X=1.084*›²(start%):Y=µ²(start%)K¾ì X*radius%/xs,Y*radius%/ys:ß X*(radius%+wall%)/xs,Y*(radius%+wall%)/ys&Èã angle%=start%+inc% ¸ end% ˆ inc%#ÒX=1.084*›²(angle%):Y=µ²(angle%)QÜð 85,X*radius%/xs,Y*radius%/ys:ð 85,X*(radius%+wall%)/xs,Y*(radius%+wall%)/ysæíðá‡ô"…
ˆÝògrad’ê angle%,A%2œã angle%=90 ¸ 180 ˆ 6:òspoke(angle%,424,-24):í3¦ã angle%=90 ¸ 330 ˆ 30:òspoke(angle%,424,-48):í2°ã angle%=180 ¸ 210 ˆ 6:òspoke(angle%,424,16):í	º÷d|C/Äã A%=1 ¸ 5:ó angle%:òspoke(angle%,424,48):íÎáoô"…#pÝòspoke(angle%,radius%,length%)zê X,Y,X1,Y17„X=radius%*1.084*›²(angle%-1):Y=radius%*µ²(angle%-1)9ŽX1=radius%*1.084*›²(angle%+1):Y1=radius%*µ²(angle%+1)'˜cos=1.084*›²(angle%):sin=µ²(angle%)'¢X2=X1+length%*cos:Y2=Y1+length%*sin%¬X3=X+length%*cos:Y3=Y+length%*sin¶ì X/xs,Y/ys:ß X3/xs,Y3/ys%Àð 85,X1/xs,Y1/ys:ð 85,X2/xs,Y2/ysÊáWô"…XÝòclock(start%)bê angle%dangle%=start%lõ9vçangle%>1000 angle%=angle%-1000 ‹ angle%=start_angle%xòtrig(angle%)	€æ 3,1Šòfinger(angle%):ô ON”õ	–*FX15˜õžï28,31,23,39,19¨û129:û07²ñŠ0,0)"SPACEBAR"'"to start"''" ESCAPE "'"for menu";¼û128:û1Ðý¤inkey=48Úï28,31,23,39,19,12äû129:û0øòlogic_control(angle%)õý(‘-time)ƒ100=0õ&òfinger(angle%):çangle%=156 òflashòfinger(angle%-6):ô ‡/ì/îçangle%=96 ï19,1,7;0; angle%=angle%-64òlogic_control(angle%)>òtone(angle%)Hòtrig(angle%)Jçfade%=¹ € angle%=108 òfadeQt=‘+50:õý‘>tRõý(‘-time)ƒ100=0\ý(¦0=32)„(angle%<=90)fòclear_bit(0)pýangle%<=90zA%=¤byte(151,96,0)„òfinger(angle%):ô OFFŽtake%=take%+1	˜òtake¢ï19,1,7;0;¬ý£¶á?ô"…@Ýòfinger(angle%)	Jê X,YTæ3,1!^X=¤cos(angle%):Y=¤sin(angle%)	h*FX19+rì X*120/xs,Y*120/ys:ß X*400/xs,Y*400/ys|á'#ô"…(#Ýòlegend2#ê X,Y,legend$<#down$=½8+½10	F#÷TPDP#õZ#ó legend$,X%,Y%Kd#ç legend$="IDENT" Œ legend$="I"+down$+"D"+down$+"E"+down$+"N"+down$+"T"n#ñŠX%,Y%);legend$x#ý legend$=""‚#á'ô"…	'Ýòbox'ï29,0;0;$'ï28,20,17,38,03.'ñŠ0,1)date$;Š0,3)prog$;Š0,14)shot$;Š0,16)take$;8'æ0,1(B'ì 628/xs,1008/ys:ð21,1276/xs,1008/ys>L'ð 21,1276/xs,466/ys:ð 21,628/xs,466/ys:ð 21,628/xs,1008/ys'V'ì 628/xs,944/ys:ð 21,1276/xs,944/ys'`'ì 628/xs,592/ys:ð 21,1276/xs,592/ys'j'ì 628/xs,528/ys:ð 21,1276/xs,528/yst'òcentre~'á÷*ô"…
ø*Ýòdate	+*FX15+òprompt+û128:û1+òbox +date$=¤type(20,1,38,1)"+òunprompt*+òbox4+áß.ô"…
à.Ýòprogâ.òpromptê.òboxô.prog$=¤type(20,12,38,3)ö.òunpromptþ.òbox/áÇ2ô"…
È2ÝòshotÊ2òpromptÒ2òboxÜ2shot$=¤type(20,14,38,14)æ2take%=1è2òunprompt	ð2òtakeú2òbox3á¯6ô"…
°6Ýòtakeº6ï23,1,0,0;0;0;0;Ä6û128:û1Î6ï28,20,16,38,16Ø6çtake%<1 take%=1'â6take$=À"TAKE: "+Ãtake%+Ä13," "),18)ì6ñŠ0,0)take$;ö6ï30	 7*FX15
7á—:ô"…˜:ÝòresetE¢:òfinger(angle%):angle%=start_angle%:òtrig(angle%):òfinger(angle%)¬:á>ô"…€>Ý¤yes_no(A$)Š>ê reply$”>ñ A$" (Y/N) ?";	ž>*FX15¨>õ²>reply$=½(¥ € &DF)¼>ý reply$="Y" „ reply$="N"Æ>=(reply$="Y")gBô"…
hBÝòmenurBA%=¤byte(151,96,0)tBòunpromptvBòfinger(angle%)|Bû128:û1†Bï28,31,23,39,19,12Bï28,21,16,39,1‘Bï29,0;0;&’Bï24,636/xs;474/ys;1268/xs;1000/ys;
”Bæ0,129–BÚšBï23,1,0,0;0;0;0;¤Bû128:û1®Bñ"Now press:"'°Bû129:û0¸Bñ"1 Reset to 10 Sec."ÂBñ"2          20"ÌBñ"3          30"ÖBñ"4          40"àBñ"> Increment Take"êBñ"< Decrement Take"ôBñ"D Re-type DATE"þBñ"P    ""    PROG"Cñ"S    ""    SHOT"Cñ"F Auto/Manual Fade"Cñ"B Blank display"Cñ'"C Continue"&Cñ"E Exit program"; 0Cõý§"1234F><SPDEC",½¤inkey)>02Cæ0,128:Ú4Cû128:û16Cï26:Còfinger(angle%)DCòboxNCòclock(angle%+1000)XCáOFô"…PFÝòintroZFï23,1,0,0;0;0;0;1dFñ"—?ÿÿw``+ÿÿw``+ÿÿw``+ÿÿw``+ÿÿw``+ÿÿw``+ÿÿ"½88nFñ"—5""oÿ}0 ""oÿ}0 ""oÿ}0 ""oÿ}0 ""oÿ}0 ""oÿ}0 ""o"½81xFñ"—=,,ÿÿÿ,,,ÿÿÿ,,,ÿÿÿ,,,ÿÿÿ,,,ÿÿÿ,,,ÿÿÿ,,n"½81‚Fñ"—5_~ÿ?! _~ÿ?! _~ÿ?! _~ÿ?! _~ÿ?! _~ÿ?! _~"½81ŒFñ"—}ÿÿwppxÿÿwppxÿÿwppxÿÿwppxÿÿwppxÿÿwppxÿÿ"½81–Fñ"—5<,4<,4<,4l,40‡VTR IDENT/LEADER CLOCK—j"½81 Fñ"—57`!7+1up5zp50‡by Alan Pemberton (c) —j"½81ªFñ"—=,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,n"½81´Fñ"—5†All the functions of this clock are—j"½81¾Fñ"—5†available by pressing the          —j"½81ÈFñ"—5†appropriate key when the clock is  —j"½81ÒFñ"—5†at rest.  Alternatively, a menu is —j"½81ÜFñ"—5†displayed when‡ESCAPE†is pressed.———j"½81æFñ"—5‡                                   —j"½81ðFñ"—5†In theƒDATE/PROG/SHOT†modes, you————j"½81úFñ"—5†use the machine as a video type-   —j"½81Gñ"—5†writer, within the chosen window.  —j"½81Gñ"—5†Use the cursor, return and delete  —j"½81Gñ"—5†keys as normal.  To exit each box  —j"½81"Gñ"—5†press‡SHIFT + RETURN.              —j"½81,Gñ"—5‡    —š`````````````` ™             —j"½816Gñ"—7ssc``s`ss3s3``c```7ss3c3c`3s3```c````k"½81@Gñ"—5-lj jp5 5 = !—j  —5 5 uzjf = !  j    j"½81JGñ"—ussrsrpqpqpsqqprpppupqpqrrpqsqqpprppppz"½8	TGñŠ8);%^Gç¬¤yes_no("†More instructions") áhGï28,0,24,39,8,121rGñ"—5†When the clock is at rest, pressing—j"½81|Gñ"—5ƒ1†sets the clock to 10 seconds.    —j"½81†Gñ"—5ƒ2†sets the clock to 20 seconds.    —j"½81Gñ"—5ƒ3†sets the clock to 30 seconds.    —j"½81šGñ"—5ƒ4†sets the clock to 40 seconds.    —j"½81¤Gñ"—5ƒ>†increments the TAKE number.      —j"½81®Gñ"—5ƒ<†decrements the TAKE number.      —j"½81¸Gñ"—5ƒS†lets you type in the SHOT box.   —j"½81ÂGñ"—5ƒP†lets you type in the PROG box.   —j"½81ÌGñ"—5ƒD†lets you type in the DATE box.   —j"½81ÖGñ"—5ƒE†exits the program.               —j"½81àGñ"—5ƒSPACEBAR†restarts the countdown.   —j"½81êGñ"—5ƒESCAPE†displays this menu.         —j"½81ôGñ"—7ssc``s`ss3s3``ss``7ss3c3c`3s3```c````k"½81þGñ"—5-lj jp5 5 = !—<. —5 5 uzjf = !  j    j"½81Hñ"—ussrsrpqpqpsqqpssppupqpqrrpqsqqpprppppz"½8	HñŠ8);%Hç¬¤yes_no("†More instructions") á&Hï28,0,24,39,8,1210Hñ"—5†Seven logic lines are provided on  —j"½81:Hñ"—5†the User Port for the control of   —j"½81DHñ"—5†external equipment.  These go to   —j"½81NHñ"—5†logical one as follows:            —j"½81XHñ"—5ƒ     †                             —j"½81bHñ"—5ƒBit 0†While the clock is counting. —j"½81lHñ"—5ƒBit 1†From 30s to 20s.             —j"½81vHñ"—5ƒBit 2†From 20s to 15s.             —j"½81€Hñ"—5ƒBit 3†From 10s to 0s.              —j"½81ŠHñ"—5ƒBit 4†From 6s to 0s.               —j"½81”Hñ"—5ƒBit 5†From 5s to 0s.               —j"½81žHñ"—5ƒBit 6†From 3s to 0s.               —j"½81¨Hñ"—5‡                                   —j"½81zIñ"—7ssc``s`ss3s3``ss``7ss3c3c`3s3```c````k"½81„Iñ"—5-lj jp5 5 = !—(n —5 5 uzjf = !  j    j"½81ŽIñ"—ussrsrpqpqpsqqpssppupqpqrrpqsqqpprppppz"½8'˜IñŠ7)"†Press‡SPACEBAR†to continue.";
¢Iõý¥=32.Já7Jô"…
8JÝòexitBJ*FX4LJA%=¤byte(151,96,0)bJû129:û0dJï28,31,20,39,19,12fJï28,31,23,39,193jJç ¤yes_no("Exit prog") ï22,7:ÿÀ"QUIT",os%=32):àlJû128:Û:û1292tJñ"SPACEBAR"'"to start"''" ESCAPE "'"for menu";~Jû128:û1ˆJáNô"… NÝòcentre*Nï29,504/xs;544/ys;4NáRô"…+RÝ¤sin(angle%)=sin(((angle%+360)ƒ360)6)ïUô"…+ðUÝ¤cos(angle%)=cos(((angle%+360)ƒ360)6)×Yô"…ØYÝ¤inkeyâYêinkey%ìYinkey%=¦(0)3öYç inkey%>63 inkey%=inkey%€&DF ‹inkey%=inkey%„16"÷Yç inkey%<>-1 € inkey%<>66 ï 20+ Zç inkey%>47 € inkey%<53 òfinger(angle%)9
Zç inkey%=48 time=‘:òfinger(angle%):çangle%=150 òflashZç inkey%=48 òset_bit(0)8Zç inkey%=49 angle%=150:òtrig(angle%):òfinger(angle%)8Zç inkey%=50 angle%=210:òtrig(angle%):òfinger(angle%)8(Zç inkey%=51 angle%=270:òtrig(angle%):òfinger(angle%)82Zç inkey%=52 angle%=330:òtrig(angle%):òfinger(angle%)/4Zç inkey%>48 € inkey%<53 start_angle%=angle%)<Zç inkey%=70 fade%=¬fade%:òauto(fade%)*FZç inkey%=62 take%=take%+1:òtake:òreset*PZç inkey%=60 take%=take%-1:òtake:òresetZZç inkey%=83 òreset:òshotdZç inkey%=80 òreset:òprognZç inkey%=68 òreset:òdatexZç inkey%=69 òexitzZç inkey%=66 ï 19,1,0,0,0,0‚Z=inkey%¿]ô"…À]Ýòauto(fade%)Ê]ï28,0,31,39,0"Ô]çfade% ñŠ2,0)"AUTO-" ‹ñŠ2,0)‰5Þ]á§aô"…%¨aÝ¤type(left%,bottom%,right%,top%)²aê A%,C%,typed$¼aï23,1,1,0;0;0;0;Æaï28,0,31,39,0Ðaï31,left%+6,top%
Úa*FX4,1äaõîaC%=¥:ç C%=8:C%=127øaçC%=13 ï31,left%,¼+1bçC%=136 ï8bçC%=137 ï9bçC%=138 ï10 bçC%=139 ï11*bç±<left% ï31,right%,¼-14bç¼<top% ï31,±,bottom%%>bçC%=127 €±=left% ï31,right%,¼-1,9HbçC%>31 €C%<128 ïC%Rbç±>right% ï31,left%,¼+1\bç¼>bottom% ï31,±,top%(fbç ±<left%+6 €¼=top% ï31,left%+6,top%pbý¦-1€¦-74&zbï28,left%,bottom%+1,right%,top%,30„btyped$=""Žbõ!¢btyped$=typed$+½¤byte(135,0,0)¬bï9¶bý±=0€¼=bottom%-top%+1Àbï28,0,31,39,0Êbï23,1,0,0;0;0;0;Ôb=typed$ÞbÝòlogic_control(angle%)#èbçangle%>270 òbyte("X000000X"):á0òbçangle%<=270 €angle%>210 òbyte("X000001X"):á/übçangle%<=210 €angle%>180òbyte("X000010X"):á#cçangle%<=90 òbyte("X0000000"):á$cçangle%<=108 òbyte("X111100X"):á$cçangle%<=120 òbyte("X011100X"):á$$cçangle%<=126 òbyte("X001100X"):á$.cçangle%<=150 òbyte("X000100X"):á"8cçangle%<=180 òbyte("X000000X")Bcáeô"…eÝòset_bit(power%)šeê Y%*®econtrol_byte%=control_byte%„(2^power%)¸eY%=control_byte%ÂeA%=¤byte(151,96,Y%)Ìeáwiô"…xiÝòclear_bit(power%)‚iê Y%0–icontrol_byte%=control_byte%€(&FF-(2^power%)) iY%=control_byte%ªiA%=¤byte(151,96,Y%)´iá_mô"…`mÝòbyte(bit$)jmê I%,I$tmãI%=1¸©bit$~mI$=Ábit$,I%,1)ˆmçI$="1" òset_bit(©bit$-I%) ’mçI$="0" òclear_bit(©bit$-I%)œmí¦máGqô"…HqÝòtone(angle%)(Rqçangle%=120 „angle%=114 Ô1,-10,100,2\qçangle%=108 Ô1,-15,100,10'fqçangle%=102 „angle%=96 Ô1,-10,150,2pqçangle%=90 Ô1,-15,150,10zqá/uô"…yÝòtrig(angle%)("ysin(((angle%+360)ƒ360)6)=µ²(angle%)*$ysin(((angle%+354)ƒ360)6)=µ²(angle%-6).,ycos(((angle%+360)ƒ360)6)=1.084*›²(angle%)0.ycos(((angle%+354)ƒ360)6)=1.084*›²(angle%-6)Öyáßyô"…àyÝòpromptâyû128:û1äyï28,31,23,39,19,12êyï28,31,23,38,19ìyû129:û0:Û.ôyñ"Press"'"SHIFT+"'"RETURN"'"to leavebox.";þyû128:û1:záCzô"…DzÝòunpromptNzû128:û1Xzï28,31,23,38,19,12žzá§zô"…¨zÝòflash	²z*FX19¼zï19,0,7;0;19,1,0;0;	Æz*FX19Ðzï19,0,0;0;19,1,7;0;{á{ô"…
p{Ýòfadez{ê colour%,colour$,C%|{colour$="73625140"„{ãC%=1¸©colour$Ž{colour%=»Ácolour$,C%,1)	˜{*FX19¢{ï19,1,colour%;0;	¤{*FX19¬{íÊ{áÓ{ô"…ö|áÿ|ô"… }çŸ=17òmenu
}î…‡}ë7}ï3(}*FX42}A%=¤byte(151,96,0)<}çŸ=17:ÿÀ"QUIT",os%=32):àF}ï31,0,10P}ö:ñ"ƒat lineˆ";ž¾}àÈ}Ý¤byte(A%,X%,Y%)*Ò}ços%=6:	 "XOS_Byte",A%,X%,Y% ¸ ,X%:=X%Ü}=((º&FFF4)€&FF00)256
,~Ýòdisp6~xs=1:ys=1:ç os%<>32:á&@~	 "GetSystemMetrics", 0 ¸ xscreen%&J~	 "GetSystemMetrics", 1 ¸ yscreen%-T~	 "SetWindowLong", @hwnd%, -16, &16000000=^~	 "SetWindowPos", @hwnd%, -1, 0, 0, xscreen%, yscreen%, 0<h~ï 26,23,22,xscreen%;yscreen%;xscreen%40,yscreen%32,2,0)r~xs=1280/xscreen%/2:ys=1024/yscreen%/2|~á ÿÿ