10,0,80,0,88,10,90,0,179,0,187,10,184,20,181,20,173,10,161,10,161,12,182,30,179,40,168,50,151,50,143,40,145,30,150,30,158,40,166,40,172,35,150,17[ 152,10,138,10,130,50,120,50,128,10,98,10,96,20,115,20,113,30,94,30,92,40,118,40,115,50,80,50,86,20,76,30,70,30,80,50,70,50,60,30,54,30,50,50,40,50 48,10,18,10,15,25,40,25,38,35,13,35,10,50,0,50,10,0,-1,-1,58,10,74,10,78,15,73,20,56,20,58,10,-1,-1,-1,-1,11,1 14,10,12,19,17,10,15,19,10,13,19,12,10,16,19,15,0,0,0,0M 12,9,10,24,11,16,13,15,16,15,17,16,17,17,16,20,10,24,0,0 100,120,100,120,100,120,10,130,10,130,10,130,10,130,10,130,100,120,100,120,100,120 34,118,35,115,29,60,29,55,30,52,31,50,32,47,33,46,35,44,38,50,39,55: 37,60,35,62,27,70,20,76,17,80,16,82,15,85,14,90,15,95,18,100,20,104 25,106,30,107,36,107,41,106,45,103,47,99,48,95,46,90,42,86,37,84 32,87,30,88,28,90,27,93,28,96,30,98,0,0 37,48,34,50,32,53,31,55,30,57,0,0$ 38,59,37,62,35,66,31,71,25,77,22,80,20,83,18,87,17,90,17,96,18,100,0,0^ 47,93,42,88,38,87,36,87,32,88,30,89,29,90,27,93,0,0o 0,0,30,117 35,45,32,68,28,70,22,78,17,88,36,86,30,117,0,0 30,54,30,55,36,62,45,90,44,89,43,88,34,87,33,87,31,87,34,85,0,0% "A","A+","B","C","C+","D","D+","E","F","F+","G","G+"` "A","A+","B","C","C+","D","D+","E","F","F+","G","G+" "A","B-","B","C","D-","D","E-","E","F","G-","G","A-" "A","B-","B","C","D-","D","E-","E","F","G-","G","A-" 7,2,10,5,0,7 62,56,-56,50,-50,44,-44,38,32,-32,26,-26,20N 154,74,-74,68,-68,62,56,-56,50,-50,44,-44,38 166,-166,160,-160,154,74,-74,68,-68,62,56,-56,50 184,-184,178,172,-172,166,-166,160,-160,154,74,-68,68 202,-202,196,190,-190,184,-184,178,172,-172,166,-166,160? 220,214,-214,208,-208,202,-202,196,190,-190,184,-184,178i "1st","2nd","3rd","4th","5th","6th"2 SH%(#),FT%(#),TU%(Z),TD%(Z),DOT%( ),S$()3 NS$(),NF$(),ST%(),YP%(, ),AX%(#)d ,: ,: : VnI$: I$"" n4x: ,: "'FRETS' is a game that will help you";e ,: "to learn the notes of the guitar.";  ,: "You will be shown a note on a staff.";  ,: "The string on which the note is to";  ,: "be played will be given and you will";4  ,: "be asked for the name of the note";h ,: "and the number of the fret at which"; ,: "the note is played on the given"; ,: "string."; ,: "(Press Any Key To Continue)";I$: I$""  : , ,: "When you enter the name of the note,";_ ,: "type a '+' if it is sharp and a '-'"; ,: "if it is flat, e.g., A+ D-"; ,: "Press the carriage return after each";  ,: "entry.";   ,: "If you miss, you will be given the";>"  ,: "correct answer and the fretboard at";q, ,: "the bottom of the screen will show";6 ,: "the proper fingering.";@ ,: "Please type the letter 'A'";JI$: I$"" J : I$"A" ^T ,: "Hit the CAPS LOCK button";,^ ,: "Thanks.";Xh ,: "(Press Any Key To Continue)";orI$: I$"" r| ,: ,::  ((((,)))) X1,Y1,X2,Y2: X1  (X1,Y1)(X2,Y2):  ( , )(,),SH%,: X1,Y1,X2,Y2: (X1,Y1)(X2,Y2): X1,Y1: (X1,Y1)E X1,Y1: X1 Z (X1,Y1): t (, )(,),FT%: ( , ),,,,,: (, )(,() ( , ): (,)(,(),TD%: ( ,(),,,,,: (, )(,() ( ,(): (, )(,,),TU%:M ( , ),: ( , ): (,)( , ),DOT%:[OX:OYq L1    X1,X2: (X1OX,L1OY)(X2OX,L1OY)&0 X1,Y1: X1 N : (X1OX,Y1OY): X1,Y1: X1 0 : (X1OX,Y1OY)D :#N X1,Y1: (X1OX,Y1OY),PX X1,Y1: X1 (X1OX,Y1OY): X|b X1,Y1: X1 (X1OX,Y1OY): bl (,)(;,),,B: ,: "FRETS"v L1  : (<,L1)(6,L1): L1< , : (L1,)(L1,):  (,)(:,),,BM  (,)(,): (,)(,): (,)(,)i  L1 : NS$(L1):  L1 : NF$(L1):  L1 : ST%(L1):  L1   L2  : YP%(L1,L2):  L1  L1 : S$(L1):2!SP%():FR%( ):SF%():FS%FR%ST%(SP%)]! SF% NT$NF$(FS%) : NT$NS$(FS%)o! SF%  ! L1 ":AX%(L1)SH%(L1):: !  L1 ":AX%(L1)FT%(L1):!X1fOX:YYYP%(SP%,FR%): (YY)d H" Y1(YY)OY: SF% YAY1 : YAY19"* SF% YY Y1Y1:YAYAg"4 (X1,Y1),TD%: YY (X1 ,YA),AX%q"> f"HY1(YY)d: SF% YAY1 : YAY1"R SF% YY Y1Y1:YAYA"\ (X1,Y1),TU%: YY (X1 ,YA),AX%#f ,: "TO BE TAKEN ON";:#p ,: "THE ";S$(SP%);" STRING";R#z ,: "NOTE";NG$v# ,: "FRET";FG$:FG%(FG$)#ER%: NG$NT$ ER%# FG%FR% ER%ER%# ER%  ,: "CORRECT!";:  $ ER%  ,: "THE NOTE IS ";NT$;: ,$  ,: NT$;" IS TAKEN AT";G$  ,: "FRET ";FR%;i$ FR% YD%:XD%8: $YD%SP%:XD%4FR%$ (XD%,YD%),DOT%$ ,: "HIT ESC TO QUIT";$ ,: "ANY OTHER FOR";$ ,: "NEXT NOTE";%I$: I$"" &% I$() LY% (YY)d (X1,Y1),TD% : (X1,Y1),TU%x%$ YY (X1 ,YA),AX%%. (XD%,YD%),DOT%%8 L1 : L1,: " ";:%B %L V: L1 :::%V::XOA:YOF&` X1,Y1: X1 %&j (X1XO,Y1YO)R&t X1,Y1: X1 ` : (X1XO,Y1YO)\&~ t}& X1,Y1: (X1XO,Y1YO),,& , : "A Game for Guitarists";& , : "By R. M. Watson";& ( , )(6,),,B&