l L0 MDM(C)MDM 1983 RFS paged ROM HIlIh`h`HIh`*BELLS$#$ *KEY10"OLD|MRUN|M" 7:*FX11,0 223;8202;0;0;0;:15:N1 P:A1=0:B1=0:T=0:Q=0:V=0:K1=0:K%=0:P1=0:J1=0:N1=160:V%=0:W1=0:Q2=0:R2=0:11,2)141"BELL PRACTISE":11,3)141"BELL PRACTISE"::141" TRIPLES(7) AND MAJOR(8)":141" TRIPLES(7) #AND MAJOR(8)"' nb"WOULD YOU LIKE TO RING ONE OR TWO BELLS YOURSELF?:-":" ONE=O __ TWO=T __ NO=N": H$=:H$="O"Q=1:K%=1:tt@ H$="T"Q=1:K%=1:t~@ H$="N"TDA !H$<>"O"H$<>"T"H$<>"N"tB@ S"WHICH BELL WOULD YOU LIKE TO RING?P#"''" ==== 1 TO 8 ===="':K1=1:dH@ I"WHICH BELLS WOULD YOU LIKE TO RING?"''" ==== 1 TO 8 ===="' J1=:K1=1dp@ J1<49J1>56dH@ P1=:P1<49P1>56d\@dz@ "O.K. YOU RING NO.";(J1);" IN YOUR RIGHT HAND"':TDA:"O.K. YK#OU RING NO.";(J1);" IN YOUR RIGHT HAND AND NO.";(P1);" IN YOUR LEFT HAND"' " SELECT:_"':" (_H_) ORIGINAL/PLAINHUNT"':" (_G_) GRANDSIRE (_S_) STEDMAN"':" OR (_B_) PLAINBOB." ,D$=:D$="H"_P_H1 @D$=#"G"_P_G1 JD$="B"_P_B1 TD$="S"_P_S1TlA ^__P_B1::B1=1:10,2)141"PLAINBOB MAJOR":10,3)141"PLAINBOB MAJOR"':_P_TOUCH:_SEL_B: Y_P_S1::B1=1:10,2)141"STEDMAN_TRIPLES":10,3)141"STEDMAN_TRIPLES"'':K%=1tZA _P_TOUCH:_SEL_S:# X_P_G1::10,2)141"GRANDSIRE_TRIPLES":10,3)141"GRANDSIRE_TRIPLES"'':K%=1dBA _P_TOUCH:_SEL_G: %_SEL_B:S1$="A=PLAINCOURSE":S1$ $S$=:S$="A"N1=3190:Z$=S1$:DvL S$<>"A"dtA  \_SEL_H:" A=ORIGINAL TRIPLES ___ B=REPEATEB#D"':" C=ORIGINAL MAJOR ___ D=REPEATED" :S$=:S$="B"S$="D"R2=1 D6S$="A"S$="B"N1=3210:Z$=" ORIGINAL TRIPLES":tJL N4S$="C"S$="D"N1=3220:Z$=" ORIGINAL MAJOR":tTL X)S$<>"A"S$<>"B"S$<>"C"S$<>"D"TzB b l%_SEL_S:S1$="A=PLAINCOURSE":S#1$ $S$=:S$="A"N1=3200:Z$=S1$:t@L S$<>"A"tJB 9A1=0:B1=0:T=0:Q=0:V=0:K1=0:K%=0:P1=0:J1=0:V%=0:W1=0: k_P_H1::B1=1:13,2)141"PLAINHUNT":13,3)141"PLAINHUNT"':" ON 7 OR 8 BELLS?"':_SEL_H: 7_P_TOUCH:" WHICH TOUCH WO#ULD YOU LIKE?"::  _SEL_G:A1$="PLAINCOURSE":B1$="3BOBS":C1$="4(BOB_SINGLE_BOB_PLAIN)":D1$="2(BOB_SINGLE_BOB)":E1$="OWN CALL":R1$="ROUNDS":S1$="STEDMAN_PLAINCOURSE":M1$="PLAIN BOB MAJOR" f"A=PLAINCOURSE"'"B=3BOBS"'"C=4(BOB_SINGLE_BOB_PLAIN)"'"D=2(BOU#B_SINGLE_BOB)"'"E=OWN CALL:_"'" B=BOB."'" S=SINGLE."'" R=ROUNDS."'" H=STAND."'"R=ROUNDS" p#N$=:N$="A"N1=970:Z$=A1$:dJC N$="B"N1=980:Z$=B1$:dTC N$="C"N1=990:Z$=C1$:d^C N$="D"N1=1000:Z$=D1$:di#hC N$="E"N1=2940:Z$=E1$:D|K N$="R"N1=3470:Z$=R1$:tNM 9N$<>"A"N$<>"B"N$<>"C"N$<>"D"N$<>"E"N$<>"R"DpC  _FOOT:_GS_PLAINCOURSE: _FOOT:_GS_3BOBS: _FOOT:_GS_4(B_S_B_P)  _FOOT:_GS_B_SINGLE_B_TWICE =_GS_PLAINCOURSy#E::ROUNDS::_NORMAL:_PLAINCOURSE:: BROUNDS:A=1:B=2:C=3:D=4:E=5:F=6:G=7:H=8:J=0:X=0:Z=-1:W=0:O=12:X=A:_PAUSE:_SOUND:V%=1X=J1-48V%=1X=P1-489)" ";X; j=X=B:_PAUSE:_SOUND:V%=1X=J1-48V%=1X=P1-48;" ";;X; t=X=C:_PAUSE:_SOUND:V%l#=1X=J1-48V%=1X=P1-48;" ";;X; ~=X=D:_PAUSE:_SOUND:V%=1X=J1-48V%=1X=P1-48;" ";;X; =X=E:_PAUSE:_SOUND:V%=1X=J1-48V%=1X=P1-48;" ";;X; =X=F:_PAUSE:_SOUND:V%=1X=J1-48V%=1X=P1-48;" ";;X; =X=G:_PAUSE:_SOUND:V%=1X=J1-48V+#%=1X=P1-48;" ";;X; >X=H:_PAUSE:_SOUND:V%=1X=J1-48V%=1X=P1-4816);"";X -O:;" ________":(Z<1)(136);Z Z=Z+1:V=1 P=1U5:P:Q2=1:_FOOT: CHOLD_3:J=A:A=B:B=J:C=C:J=D:D=E:E=J:J=F:F=G:G=J:H=H:_P:_CR: 2MHOLD_1:A=A:w #J=B:B=C:C=J:J=D:D=E:E=J:J=F:F=G:G=J:H=H:_P:A1=1DnEDZE ZA=1DdEDnE dF(A=1B=2C=3D=4E=5F=6G=7H=8)" ________ ";Z n_CR:V=1 D$="S"tVE  P=1U5: Q=2:_FOOT: CHOLD_7:J=A:A=B:B=J:J=C:C=D:D=J:J=E:E=F:F=J#:G=G:H=H:_P:_CR: H_P:X=A:_PAUSE:_SOUND:V%=1X=J1-48V%=1X=P1-489);" ";9);X; =X=B:_PAUSE:_SOUND:V%=1X=J1-48V%=1X=P1-48;" ";;X; =X=C:_PAUSE:_SOUND:V%=1X=J1-48V%=1X=P1-48;" ";;X; =X=D:_PAUSE:_SOUND:V%=1X=J1-48V%=1#X=P1-48;" ";;X; =X=E:_PAUSE:_SOUND:V%=1X=J1-48V%=1X=P1-48;" ";;X; =X=F:_PAUSE:_SOUND:V%=1X=J1-48V%=1X=P1-48;" ";;X; "=X=G:_PAUSE:_SOUND:V%=1X=J1-48V%=1X=P1-48;" ";;X; ,>X=H:_PAUSE:_SOUND:V%=1X=J1-48V%=1X=P1-4816)3#;"";X 6QZ=Z+1:A=1B=2C=3D=4E=5F=6G=7H=8X<>0" ________ "136;Z J T_CR:R2=1 ^qA=1B=2C=3D=4E=5F=6G=7H=8'':" PRESS ESCAPE TO RE_RUN"''" PRESS BREAK TO RE_PROGRAM"DrF hL=:L=32Z$DhF r |>_aC#PLAINCOURSE:"PLAIN";:HOLD_7:HOLD_1:HOLD_7:HOLD_1: 2_B:"BOB";:HOLD_7:HOLD_1:HOLD_3:HOLD_1: ;_SINGLE:"SINGLE";:HOLD_7:HOLD_1:HOLD_3:HOLD1_3: N[HOLD1_3:A=A:B=B:C=C:J=D:D=E:E=J:J=F:F=G:G=J:H=H:_P:A=1" ________ ";Z I#v _CR: 0_GS_3BOBS::ROUNDS::_NORMAL:_B:A=10: k_GS_4(B_S_B_P)::ROUNDS::_NORMAL:_B:_NORMAL:_SINGLE:_NORMAL:_B:_NORMAL:_PLAINCOURSE:A=10: f6_NORMAL:HOLD_3:HOLD_1::HOLD_7:HOLD_1:D=1: Z_GS_B_SINGLE_B_TWICE::ROUNDS:r#:_NORMAL:_B:_NORMAL:_SINGLE:_NORMAL:_B:A=10: .Y_S_P_S:ROUNDS::_NORMAL:_SINGLE:_NORMAL:_PLAINCOURSE:_NORMAL:_SINGLE:A=10: m_GS_P_S_B_S_5:ROUNDS::_NORMAL:_PLAINCOURSE:_NORMAL:_SINGLE:_NORMAL:_B:_NORMAL:_SINGLE:A=10: *l#_SOUND:W1=(1)320+2:T=1t~JT|J <X=1W=W1+48:_RINGBELL FX=2W=W1+44:_RINGBELL PX=3W=W1+36:_RINGBELL ZX=4W=W1+28:_RINGBELL dX=5W=W1+20:_RINGBELL nX=6W=W1+16:_RINGBELL xX=7W=W1+8:_RINGBELL X=8W=W1:_RINGBELL V%=#1 j1,1,0,0,0,0,0,0,126,-1,0,-3,126,126:2,3,0,0,2,-2,2,10,126,-2,2,-1,126,10:&0112,1,W,1:&0111,2,W-1,1  7_PAUSE:U4=(4)55:U2=(2)64:U5=1000-U2:Q=0dzJ P1-48=XJ1-48=X V=1TbKTNK P=1U5+(U4): " ,&_CKCH:A$=(20):A$#="R"ROUNDS: JA$="B"_B: TA$="S"_SINGLE: ^ A$="H" h2A$<>"R"A$<>"B"A$<>"S"A$<>"H"_PLAINCOURSE r |._FOOT:ROUNDS::_NORMAL:_CKCH:A=10:: w_STEDMAN:A1=1:_FOOT::ROUNDS:HOLD_3:HOLD_1:P=1U5:P:" ________ # ";Z::SLOW_6:QUICK_6:A=10 SLOW_6:HOLD_7:_CR:HOLD_3:P=1U5:P:_CR:HOLD_1:_CR:HOLD_3:P=1U5:P:_CR:HOLD_1:_CR:HOLD_3:P=1U5:P:_CR:" ________ ";Z: v_B_MAJOR: _STEDMAN: _HUNT_7: _HUNT_8: QUICK_Hh#6:HOLD_7:_CR:HOLD_1:P=1U5:P:_CR:HOLD_3:_CR:HOLD_1:P=1U5:P:_CR:HOLD_3:_CR:HOLD_1:P=1U5:P:_CR:" ________ ";Z: _RINGBELL:V%=0:Q=0 P1-48=XJ1-48=XT`M S%=0:U3=((3)+3500)550 4S%=S%+1:S%=9+U3V%=1: HDUZ#=(0)3:U=1X=J1-48U=3X=J1-48U=2X=P1-48U=3X=P1-48TtM \ f0_MISS:V%=1X=J1-48V%=1X=P1-48;" ";;X z: #:_FOOT::ROUNDS:(-85)d@M  Z$=:="G"tNM  K_ALLCHANGE:J=A:A=B:B=J:J=C:C=D:D=J:J=E:E=F:F=J:J=G:G=H:H=J:_O#P:_CR: _B_MAJOR::_FOOT:ROUNDS .$:_ALLCHANGE:A=1_HOLD_2:TnN LHOLD_1: `|_HOLD_2:A=A:B=B:J=C:C=D:D=J:J=E:E=F:F=J:J=G:G=H:H=J:(A=1B=2C=3D=4E=5F=6G=7H=8)" ________ ";Z ~_P:_CR: _FOOT:Q2=1dvN  :h#Q=0 10,17)Z$:3,24)(141)"PRESS FOOT_SWITCH to GO_or_STAND":3.25)(141)"PRESS FOOT_SWITCH to GO_or_STAND":?&FE62=0:P%=&FE60 ?P%=127ۋdbN:  ?P%=127tjO   9_HUNT_8::_FOOT:ROUNDS::_ALLCHANGE:HOLD_1:: Z5_HUNT_7::_F*BELLS$#_OOT:ROUNDS::HOLD_7:HOLD_1:: `'" STAND":'" PRESS ESCAPE TO RE_RUN"''" PRESS BREAK TO RE_PROGRAM":Q2=0 Z=:Z>1t~O +