 
ô"„‡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„7X=radius%*1.084*›²(angle%-1):Y=radius%*µ²(angle%-1)Ž9X1=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õv9ç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%#dKç 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2Üshot$=¤type(20,14,38,14)2ætake%=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6â'take$=À"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")Bgô"…Bh
ÝòmenuBrA%=¤byte(151,96,0)BtòunpromptBvò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";C0 õý§"1234F><SPDEC",½¤inkey)>0C2æ0,128:ÚC4û128:û1C6ï26C:òfinger(angle%)CDòboxCNòclock(angle%+1000)CXáFOô"…FPÝòintroFZï23,1,0,0;0;0;0;Fd1ñ"—?ÿÿw``+ÿÿw``+ÿÿw``+ÿÿw``+ÿÿw``+ÿÿw``+ÿÿ"½8Fn8ñ"—5""oÿ}0 ""oÿ}0 ""oÿ}0 ""oÿ}0 ""oÿ}0 ""oÿ}0 ""o"½8Fx1ñ"—=,,ÿÿÿ,,,ÿÿÿ,,,ÿÿÿ,,,ÿÿÿ,,,ÿÿÿ,,,ÿÿÿ,,n"½8F‚1ñ"—5_~ÿ?! _~ÿ?! _~ÿ?! _~ÿ?! _~ÿ?! _~ÿ?! _~"½8FŒ1ñ"—}ÿÿwppxÿÿwppxÿÿwppxÿÿwppxÿÿwppxÿÿwppxÿÿ"½8F–1ñ"—5<,4<,4<,4l,40‡VTR IDENT/LEADER CLOCK—j"½8F 1ñ"—57`!7+1up5zp50‡by Alan Pemberton (c) —j"½8Fª1ñ"—=,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,n"½8F´1ñ"—5†All the functions of this clock are—j"½8F¾1ñ"—5†available by pressing the          —j"½8FÈ1ñ"—5†appropriate key when the clock is  —j"½8FÒ1ñ"—5†at rest.  Alternatively, a menu is —j"½8FÜ1ñ"—5†displayed when‡ESCAPE†is pressed.———j"½8Fæ1ñ"—5‡                                   —j"½8Fð1ñ"—5†In theƒDATE/PROG/SHOT†modes, you————j"½8Fú1ñ"—5†use the machine as a video type-   —j"½8G1ñ"—5†writer, within the chosen window.  —j"½8G1ñ"—5†Use the cursor, return and delete  —j"½8G1ñ"—5†keys as normal.  To exit each box  —j"½8G"1ñ"—5†press‡SHIFT + RETURN.              —j"½8G,1ñ"—5‡    —š`````````````` ™             —j"½8G61ñ"—7ssc``s`ss3s3``c```7ss3c3c`3s3```c````k"½8G@1ñ"—5-lj jp5 5 = !—j  —5 5 uzjf = !  j    j"½8GJ1ñ"—ussrsrpqpqpsqqprpppupqpqrrpqsqqpprppppz"½8GT	ñŠ8);G^%ç¬¤yes_no("†More instructions") áGhï28,0,24,39,8,12Gr1ñ"—5†When the clock is at rest, pressing—j"½8G|1ñ"—5ƒ1†sets the clock to 10 seconds.    —j"½8G†1ñ"—5ƒ2†sets the clock to 20 seconds.    —j"½8G1ñ"—5ƒ3†sets the clock to 30 seconds.    —j"½8Gš1ñ"—5ƒ4†sets the clock to 40 seconds.    —j"½8G¤1ñ"—5ƒ>†increments the TAKE number.      —j"½8G®1ñ"—5ƒ<†decrements the TAKE number.      —j"½8G¸1ñ"—5ƒS†lets you type in the SHOT box.   —j"½8GÂ1ñ"—5ƒP†lets you type in the PROG box.   —j"½8GÌ1ñ"—5ƒD†lets you type in the DATE box.   —j"½8GÖ1ñ"—5ƒE†exits the program.               —j"½8Gà1ñ"—5ƒSPACEBAR†restarts the countdown.   —j"½8Gê1ñ"—5ƒESCAPE†displays this menu.         —j"½8Gô1ñ"—7ssc``s`ss3s3``ss``7ss3c3c`3s3```c````k"½8Gþ1ñ"—5-lj jp5 5 = !—<. —5 5 uzjf = !  j    j"½8H1ñ"—ussrsrpqpqpsqqpssppupqpqrrpqsqqpprppppz"½8H	ñŠ8);H%ç¬¤yes_no("†More instructions") áH&ï28,0,24,39,8,12H01ñ"—5†Seven logic lines are provided on  —j"½8H:1ñ"—5†the User Port for the control of   —j"½8HD1ñ"—5†external equipment.  These go to   —j"½8HN1ñ"—5†logical one as follows:            —j"½8HX1ñ"—5ƒ     †                             —j"½8Hb1ñ"—5ƒBit 0†While the clock is counting. —j"½8Hl1ñ"—5ƒBit 1†From 30s to 20s.             —j"½8Hv1ñ"—5ƒBit 2†From 20s to 15s.             —j"½8H€1ñ"—5ƒBit 3†From 10s to 0s.              —j"½8HŠ1ñ"—5ƒBit 4†From 6s to 0s.               —j"½8H”1ñ"—5ƒBit 5†From 5s to 0s.               —j"½8Hž1ñ"—5ƒBit 6†From 3s to 0s.               —j"½8H¨1ñ"—5‡                                   —j"½8Iz1ñ"—7ssc``s`ss3s3``ss``7ss3c3c`3s3```c````k"½8I„1ñ"—5-lj jp5 5 = !—(n —5 5 uzjf = !  j    j"½8IŽ1ñ"—ussrsrpqpqpsqqpssppupqpqrrpqsqqpprppppz"½8I˜'ñŠ7)"†Press‡SPACEBAR†to continue.";I¢
õý¥=32J.áJ7ô"…J8
ÝòexitJB*FX4JLA%=¤byte(151,96,0)Jbû129:û0Jdï28,31,20,39,19,12Jfï28,31,23,39,19Jj3ç ¤yes_no("Exit prog") ï22,7:ÿÀ"QUIT",os%=32):àJlû128:Û:û129Jt2ñ"SPACEBAR"'"to start"''" ESCAPE "'"for menu";J~û128:û1JˆáNô"…N ÝòcentreN*ï29,504/xs;544/ys;N4áRô"…R+Ý¤sin(angle%)=sin(((angle%+360)ƒ360)6)Uïô"…Uð+Ý¤cos(angle%)=cos(((angle%+360)ƒ360)6)Y×ô"…YØÝ¤inkeyYâêinkey%Yìinkey%=¦(0)Yö3ç inkey%>63 inkey%=inkey%€&DF ‹inkey%=inkey%„16Y÷"ç inkey%<>-1 € inkey%<>66 ï 20Z +ç inkey%>47 € inkey%<53 òfinger(angle%)Z
9ç inkey%=48 time=‘:òfinger(angle%):çangle%=150 òflashZç inkey%=48 òset_bit(0)Z8ç inkey%=49 angle%=150:òtrig(angle%):òfinger(angle%)Z8ç inkey%=50 angle%=210:òtrig(angle%):òfinger(angle%)Z(8ç inkey%=51 angle%=270:òtrig(angle%):òfinger(angle%)Z28ç inkey%=52 angle%=330:òtrig(angle%):òfinger(angle%)Z4/ç inkey%>48 € inkey%<53 start_angle%=angle%Z<)ç inkey%=70 fade%=¬fade%:òauto(fade%)ZF*ç inkey%=62 take%=take%+1:òtake:òresetZP*ç inkey%=60 take%=take%-1:òtake:òresetZZç inkey%=83 òreset:òshotZdç inkey%=80 òreset:òprogZnç inkey%=68 òreset:òdateZxç 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äõaîC%=¥:ç 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b4ç¼<top% ï31,±,bottom%b>%çC%=127 €±=left% ï31,right%,¼-1,9bHçC%>31 €C%<128 ïC%bRç±>right% ï31,left%,¼+1b\ç¼>bottom% ï31,±,top%bf(ç ±<left%+6 €¼=top% ï31,left%+6,top%bpý¦-1€¦-74bz&ï28,left%,bottom%+1,right%,top%,30b„typed$=""bŽõb¢!typed$=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"):ábò0ç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"):ác8"çangle%<=180 òbyte("X000000X")cBáeô"…eÝòset_bit(power%)ešê Y%e®*control_byte%=control_byte%„(2^power%)e¸Y%=control_byte%eÂA%=¤byte(151,96,Y%)eÌáiwô"…ixÝòclear_bit(power%)i‚ê Y%i–0control_byte%=control_byte%€(&FF-(2^power%))i Y%=control_byte%iªA%=¤byte(151,96,Y%)i´ám_ô"…m`Ýòbyte(bit$)mjê I%,I$mtãI%=1¸©bit$m~I$=Ábit$,I%,1)mˆçI$="1" òset_bit(©bit$-I%)m’ çI$="0" òclear_bit(©bit$-I%)mœím¦áqGô"…qHÝòtone(angle%)qR(çangle%=120 „angle%=114 Ô1,-10,100,2q\çangle%=108 Ô1,-15,100,10qf'çangle%=102 „angle%=96 Ô1,-10,150,2qpçangle%=90 Ô1,-15,150,10qzáu/ô"…yÝòtrig(angle%)y"(sin(((angle%+360)ƒ360)6)=µ²(angle%)y$*sin(((angle%+354)ƒ360)6)=µ²(angle%-6)y,.cos(((angle%+360)ƒ360)6)=1.084*›²(angle%)y.0cos(((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:ázCô"…zDÝòunpromptzNû128:û1zXï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~|áÿ