0 'GFCLK.BA - BY T.W.Hansch, 4/83 2 DIMEY%(7),PCH%(4):DEFINTI,N:R$=CHR$(27)+"p":N$=CHR$(27)+"q":FORN=1TO4:READPCH(N):NEXT:DATA4968,5586,6269,8368:FORI=0TO7:READEY%(I):NEXT:DATA8,5,0,-5,-8,-5,0,5:DIMXM%(60),YM%(60) 3 DIMXH%(60),YH%(60),XR%(60),YR%(60):PI=3.14159:CLS:PRINT@173,R$" Please wait... "N$:FORI=0TO59:READX,Y:XM%(I)=50+18*X:YM%(I)=32+18*Y:XH%(I)=50+13*X:YH%(I)=32+13*Y:XR%(I)=50+23*X:YR%(I)=32+23*Y:NEXT:CLS:LINE(20,4)-(80,61),1,B:LINE(23,7)-(77,58),1,B: 4 LINE(20,2)-(4,33):LINE-(20,63):LINE-(20,2):LINE(80,15)-(200,53),1,B::FORQ=0TO9:LINE(8+Q,33+2*Q)-(8+Q,33-2*Q):NEXT:LINE(82,20)-(195,48),1,BF:LINE(200,10)-(215,58),1,B::FORV=13TO53STEP4:LINE(204,V)-(211,V+2),1,B:NEXT 5 FORC=82TO120STEP2:PRESET(C,42):NEXT:LINE(120,41)-(135,43),0,BF::PRESET(136,42):FORC=82TO100STEP2:PRESET(C,26):NEXT::LINE(100,25)-(102,27),0,B:LINE(216,5)-(223,63),1,B:FORI=0TO59:PSET(XR%(I),YR%(I)):IFIMOD5=0THENLINE(XR%(I),YR%(I))-(XM%(I),YM%(I)) 6 NEXT:T$=TIME$:M=VAL(MID$(T$,4,2)):H=VAL(LEFT$(T$,2))MOD12::H=H*5+INT(M/12):LINE(50,32)-(XM%(M),YM%(M)),1::LINE(50,32)-(XH%(H),YH%(H)),1:LINE(51,31)-(49,33),1,BF 7 T$=TIME$:V=VAL(RIGHT$(T$,2)):KEY(8)ON:ONKEYGOSUB,,,,,,,33:IFS=VTHENGOTO7ELSEGOSUB15 8 S=V:IFS>0ANDS<>(M+1)GOTO7ELSEIFS=0THENGOTO9ELSEGOTO14 9 IFM<>14ANDM<>29ANDM<>44ANDM<>59GOTO14 10 IFM=14THENGOSUB23:GOTO14 11 IFM=29THENGOSUB25:GOSUB27:GOTO14 12 IFM=44THENGOSUB29:GOSUB31:GOSUB23:GOTO14 13 GOSUB25:GOSUB27:GOSUB29:GOSUB31:GOSUB21 14 LINE(50,32)-(XM%(M),YM%(M)),0:LINE(50,32)-(XH%(H),YH%(H)),0:M=VAL(MID$(T$,4,2)):H=VAL(LEFT$(T$,2))MOD12:H=H*5+INT(M/12):S=V:LINE(50,32)-(XM%(M),YM%(M)):LINE(50,32)-(XH%(H),YH%(H)):LINE(49,31)-(51,33),1,B:GOTO7 15 SOUND8000+4000*(SMOD2),1:FORL%=0TO3:F%=1:LINE(81,33)-(180,33+E%),F%:LINE(180,36+E%)-(186,30+E%),F%,B:F%=0:EC%=(EC%+1)MOD8:E%=EY%(EC%):LINE(81,33)-(180,33+E%),F%:LINE(180,36+E%)-(186,30+E%),F%,B:FORK%=0TO1:NEXT:NEXT:RETURN 16 DATA-1.,0.:DATA-.995,-.105:DATA-.978,-.208:DATA-.951,-.309:DATA-.914,-.407:DATA-.866,-.500:DATA-.809,-.588:DATA-.743,-.669:DATA-.669,-.743:DATA-.588,-.809:DATA-.500,-.866:DATA-.407,-.914:DATA-.309,-.951:DATA-.208,-.978:DATA-.105,-.995:DATA0.,-1. 17 DATA.105,-.995:DATA.208,-.978:DATA.309,-.951:DATA.407,-.914:DATA.500,-.866:DATA.588,-.809:DATA.669,-.743:DATA.743,-.669:DATA.809,-.588:DATA.866,-.500:DATA.914,-.407:DATA.951,-.309:DATA.978,-.208:DATA.995,-.105:DATA1.,0.:DATA.995,.105:DATA.978,.208 18 DATA.951,.309:DATA.914,.407:DATA.866,.500:DATA.809,.588:DATA.743,.669:DATA.669,.743:DATA.588,.809:DATA.500,.866:DATA.407,.914 19 DATA.309,.951:DATA.208,.978:DATA.105,.995:DATA0.,1.:DATA-.105,.995:DATA-.208,.978:DATA-.309,.951:DATA-.407,.914:DATA-.500,.866:DATA-.588,.809:DATA-.669,.743:DATA-.743,.669:DATA-.809,.588:DATA-.866,.500:DATA-.914,.407:DATA-.951,.309:DATA-.978,.208 20 DATA-.995,.105 21 H=VAL(LEFT$(TIME$,2))MOD12:IFH=0THENH=12:FORI=1TO1000:NEXT 22 FORI=1TOH:SOUND16383,30:FORN=1TO1000:NEXT:NEXT:RETURN 23 RESTORE24:FORI=1TO4:READN:SOUNDPCH(N),25:NEXT:FORI=1TO1000:NEXT 24 DATA1,2,3,4:RETURN 25 RESTORE26:FORI=1TO4:READN:SOUNDPCH(N),25:NEXT:FORI=1TO1000:NEXT 26 DATA3,1,2,4:RETURN 27 RESTORE28:FORI=1TO4:READN:SOUNDPCH(N),25:NEXT:FORI=1TO1000:NEXT 28 DATA3,2,1,3:RETURN 29 RESTORE30:FORI=1TO4:READN:SOUNDPCH(N),25:NEXT:FORI=1TO1000:NEXT 30 DATA1,3,2,4:RETURN 31 RESTORE32:FORI=1TO4:READN:SOUNDPCH(N),25:NEXT:FORI=1TO1000:NEXT 32 DATA4,2,1,3:RETURN 33 MENU