Composing with Tandy Model 102 BASIC!

I'm making music people. Here is my debut single available now to download:

https://sweetjehosavan.bandzoogle.com/

I am using my Tandy Model 102 to help me transcribe what I created with the guitar to tabs and sheet music. It's helping me make sure I'm getting all the notes written down and that the timing is correct. Here is the source code so far. I'm not done transcribing the song yet.

 1 'WINDY NIGHT BY JOVAN TRUJILLO
5 G1 = 12538 : G2 = 6269 : G3 = 3134 : G4 = 1567 : G5 = 83
10 N1 = 11836 : N2 = 5918 : N3 = 2959 : N4 = 1479 : N5 = 739
20 BPM = 120
30 BPS = BPM / 60
40 NQ = INT(50/BPS)
50 N8 = NQ/2
60 NH = NQ*2
70 NW = NH * 2
80 A1 = 11172 : A2 = 5586 : A3 = 2793 : A4 = 1396 : A5 = 698
90 H1 = 10544 : H2 = 5272 : H3 = 2636 : H4 = 1318 : H5 = 659
100 B1 = 9952 : B2 = 4976 : B3 = 2488 : B4 = 1244 : B5 = 62
110 C1 = 9394 : C2 = 4697 : C3 = 2348 : C4 = 1174 : C5 = 587
119 ' J IS C#
120 J1 = 8866 : J2 = 4433 : J3 = 2216 : J4 = 1108 : J5 = 554
130 D1 = 8368 : D2 = 4184 : D3 = 2092 : D4 = 1046 : D5 = 523
140 K1 = 7900 : K2 = 3950 : K3 = 1975 : K4 = 987 : K5 = 493
150 E1 = 7456 : E2 = 3728 : E3 = 1864 : E4 = 932 : E5 = 466
160 F1 = 7032 : F2 = 3516 : F3 = 1758 : F4 = 879 : F5 = 439
170 M1 = 6642 : M2 = 3321 : M3 = 1660 : M4 = 830 : M5 = 415
190 FOR X = 1 TO 2
200 SOUND B1, NQ
210 SOUND D2, NQ
220 SOUND B1, N8
230 SOUND A1, NQ
240 SOUND J2, NQ
245 IF X=2 THEN SOUND J2, N8
250 SOUND A1, N8
260 SOUND E1, NQ
270 SOUND G2, NQ
280 SOUND E1, N8
290 SOUND A1, N8
300 SOUND J2, N8
310 SOUND H1, N8
320 SOUND J2, N8
400 NEXT X
405 FOR X = 1 TO 2
410 SOUND B1, NQ
420 SOUND D2, NQ
425 SOUND B1, N8
430 SOUND M3, N8
440 SOUND B2, N8
450 SOUND M2, N8
460 SOUND B1, N8
470 SOUND A1, NQ
480 SOUND J2, NQ
485 SOUND A1, N8
490 SOUND M3, N8
500 SOUND B2, N8
510 SOUND M2, N8
520 SOUND A1, N8
530 SOUND E1, NQ
540 SOUND G2,NQ
545 SOUND G1, N8
550 SOUND M3, N8
560 SOUND B2, N8
570 SOUND M2, N8
580 SOUND A1, NQ
590 SOUND J2, NQ
600 SOUND M3, NH
610 SOUND B1, NQ
620 SOUND D2, N8
630 SOUND B1, N8
640 SOUND B3, N8
650 SOUND B2, N8
660 SOUND M2, N8
670 SOUND B1, N8
680 SOUND A1, NQ
690 SOUND J2, NQ
700 SOUND A1, N8
710 SOUND A3, N8
720 SOUND B2, N8
730 SOUND M2, N8
740 SOUND A1, N8
750 SOUND E1, NQ
760 SOUND G2, NQ
770 SOUND G1, N8
780 SOUND G3, N8
790 SOUND B2, N8
800 SOUND M2, N8
810 SOUND G1, N8
820 SOUND A3, NQ
830 SOUND A3, N8
840 SOUND A3, N8
850 SOUND A3, N8
860 SOUND G3, N8
870 SOUND M3, N8
880 SOUND D2, NQ
890 SOUND B1, NQ
900 SOUND B1, NQ
910 SOUND D2, NQ
915 SOUND B1, N8
920 SOUND B3, N8
930 SOUND M3, N8
935 SOUND B1, N8
940 SOUND A1, NQ
950 SOUND J2, NQ
955 SOUND A1, N8
960 SOUND A3, N8
970 SOUND M3, N8
980 SOUND A1, N8
990 SOUND E1, NQ
1000 SOUND G2, NQ
1010 SOUND G1, N8
1020 SOUND G3, N8
1030 SOUND M3, N8
1035 SOUND A3, NQ
1040 FOR Y = 1 TO 3
1050 SOUND A3, N8
1060 NEXT Y
1070 SOUND G3, N8
1080 SOUND M3, N8
1090 SOUND D2, N8
1100 SOUND B2, N8
1110 SOUND B1, NQ
1120 REM I'm Halfway through this song now! - 5/14/2020