 
ô"„‡CLOCK.BAS  œ ô"ƒVTR Ident/Leader Clock #ô"„ƒV 8.0ƒ02.04.86„„ƒOS1.2 (tô" ’<,,,,,,,,,,,,,,,,,,,,,,,,,,l          ’5‡(C) 1986’’’’’’’’’’’’’’’’’j          ’5‡(C) 1986’’’’’’’’’’’’’’’’’j 2œô"’5‡Alan Pemberton      ’’’’’j          ’5‡Alan Pemberton      ’’’’’j          ’5‡alan@pemberton.u-net.com’j          ’5‡alan@pemberton.u-net.com’j <tô"’5‡www.pemberton.u-net.com ’j          ’5‡www.pemberton.u-net.com’’j           ’-,,,,,,,,,,,,,,,,,,,,,,,,,,. Fî…åPJ} Zë7 d
òintro në4 pÞcos(60),sin(60) x4ï23,0,10,102,0;0;0;23,0,11,6,0;0;0;23,1,0;0;0;0; ‚*FX151,96,0 Œ*FX151,98,127 –control_byte%=0  fade%=£ ªdate$="DATE: "+Ä13," ") ´prog$="PROG: "+Ä184," ") ¾shot$="SHOT: "+Ä13," ") Ètake$="TAKE: "+Ä13," ") Êstart_angle%=330 Ò
ï26,12 Üç¤cfs òslate ‹ òload_screen Þòcentre æ	òlogo ðò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) á·	ô"… ¸Ý òlogoÌ+òdouble(9,29,"www.pemberton.u-net.com")Ö&ñŠ8,31)"alan@pemberton.u-net.com";¢á«ô"…¬Ý òdouble(x%,y%,string$)¶êA%,X%,Y%,M%ÀñŠx%,y%);ÊA%=&A:X%=&70:Y%=&0:M%=&70ÔãL%=1¸©(string$)Þ?M%=—Ástring$,L%,1)è
Ö&FFF1ò3ï23,224,M%?1,M%?1,M%?2,M%?2,M%?3,M%?3,M%?4,M%?4ü3ï23,225,M%?5,M%?5,M%?6,M%?6,M%?7,M%?7,M%?8,M%?8ï224,8,10,225,11í–áŸ	ô"…  *Ý òarc(start%,end%,inc%,radius%,wall%)ªê X,Y,angle%´#X=1.084*›²(start%):Y=µ²(start%)¾?ì X*radius%,Y*radius%:ß X*(radius%+wall%),Y*(radius%+wall%)È&ã angle%=start%+inc% ¸ end% ˆ inc%Ò#X=1.084*›²(angle%):Y=µ²(angle%)ÜFð 85,X*radius%,Y*radius%:ð 85, X*(radius%+wall%),Y*(radius%+wall%)æíðá‡	ô"… ˆÝ ògrad’ê angle%,A%œ2ã angle%=90 ¸ 180 ˆ 6:òspoke(angle%,424,-24):í¦2ã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,Y:ß X3,Y3Àð 85,X1,Y1:ð 85,X2,Y2Êá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î ñŠ0,0)"SPACEBAR"'"to stop ";øò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Rõý(‘-time)ƒ100=0\ý(¦0=32)„(angle%<=90)fòclear_bit(0)pýangle%<=90z*FX151,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,Y*120:ß X*400,Y*400|á#'ô"…#(Ý ò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,1008:ð21,1276,1008'L,ð 21,1276,466:ð 21,628,466:ð 21,628,1008'Vì 628,944:ð 21,1276,944'`ì 628,592:ð 21,1276,592'jì 628,528:ð 21,1276,528'tòcentre'~á*÷	ô"… *øÝ òdate+*FX 15 0+ò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) ?";>ž*FX 15 0>¨õ>²reply$=½(¥ € &DF)>¼ý reply$="Y" „ reply$="N">Æ=(reply$="Y")Bgô"…BhÝ òmenuBr*FX151,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;474;1268;1000;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ñ'"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¢
õý¦-99J.áJ7ô"…J8Ý òexitJB
*FX4,0JL*FX151,96,0Jbû129:û0Jdï28,31,20,39,19,12Jfï28,31,23,39,19Jj*ç ¤yes_no("Exit prog") ï22,7:Ó=&7C00:àJlû128:Û:û129Jt2ñ"SPACEBAR"'"to start"''" ESCAPE "'"for menu";J~û128:û1JˆáNô"…N Ý òcentreN*ï29,504;544;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ö2çinkey%>63 inkey%=inkey%€&DF ‹inkey%=inkey%„16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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%=¥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˜
A%=135b¢*typed$=typed$+½((º(&FFF4)€&FFFF)&100)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šê A%,X%,Y%e¤A%=151:X%=&60e®*control_byte%=control_byte%„(2^power%)e¸Y%=control_byte%eÂ
Ö&FFF4eÌáiwô"…ixÝ òclear_bit(power%)i‚ê A%,X%,Y%iŒA%=151:X%=&60i–0control_byte%=control_byte%€(&FF-(2^power%))i Y%=control_byte%iª
Ö&FFF4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/ô"…u0
Ý ¤cfsu:ê X%,Y%,A%,fs%uD
X%=&80uNY%=0uXA%=0ubfs%=(º&FFDA)€&Ful=(fs%=1 „fs%=2)yô"…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;{á{ô"…{Ý òload_screen{ê C%{ C%=Ž"CLOCKSCR"{*çC%>0 Œ*LOAD CLOCKSCR{,’çC%=0 òdouble(20,3,"The Screen Dump"):òdouble(20,5,"is not on this disc"):òdouble(20,8,"- drawing it from"):òdouble(22,10,"memory !!!"):òslate{4Ù#C%{fá{oô"…{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,0}2*FX151,96,0}<
çŸ=17à}Fï31,0,10}Pö}Zñ"ƒat lineˆ";ž}dñ}nC$="LIST"+Ãž+½11+½13}x
A%=138}‚X%=0}ŒãL%=1¸©C$}–Y%=—(ÁC$,L%))} 
Ö&FFF4}ªí}´ñ}¾àê