JIG IS UP
FILE INFORMATION
FILENAME(S): JIG IS UP
FILE TYPE(S): PRG
FILE SIZE: 5.1K
FIRST SEEN: 2025-11-30 18:12:20
APPEARS ON: 1 disk(s)
FILE HASH
84d8b6726860388e3a0be7e8075344299994e13846d1c2349111af713d265b98
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 33 S 2 | JIG IS UP | PRG | Sailor, Ganheden | 20 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0F 08 01 00 86 20 4E 54 28 38 2C 38 29 00 |....... NT(8,8).|
00000010: 15 08 0A 00 3A 00 31 08 14 00 99 22 93 90 22 3A |....:.1...."..":|
00000020: 97 35 33 32 38 30 2C 36 3A 97 35 33 32 38 31 2C |.53280,6:.53281,|
00000030: 35 00 69 08 1E 00 81 20 43 4C B2 35 34 32 37 32 |5.i.... CL.54272|
00000040: A4 35 34 32 39 36 3A 97 20 43 4C 2C 30 3A 82 20 |.54296:. CL,0:. |
00000050: 43 4C 3A 8F 20 43 4C 45 41 52 20 53 4F 4E 49 43 |CL:. CLEAR SONIC|
00000060: 20 41 44 52 45 53 53 45 53 00 8C 08 28 00 99 20 | ADRESSES...(.. |
00000070: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 |" TH|
00000080: 45 20 4A 49 47 20 49 53 20 55 50 22 00 A7 08 32 |E JIG IS UP"...2|
00000090: 00 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." |
000000A0: 20 20 20 20 20 42 59 00 CC 08 3C 00 99 22 20 20 | BY...<.." |
000000B0: 20 20 20 20 20 20 20 50 41 55 4C 20 47 2E 20 4D | PAUL G. M|
000000C0: 55 4C 56 41 4E 45 59 2C 20 49 49 49 00 DA 08 46 |ULVANEY, III...F|
000000D0: 00 99 22 20 20 20 20 20 20 22 00 FF 08 50 00 99 |.." "...P..|
000000E0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 54 59 |" TY|
000000F0: 50 45 20 50 52 45 46 45 52 45 4E 43 45 3A 22 00 |PE PREFERENCE:".|
00000100: 25 09 5A 00 99 22 20 20 20 20 20 20 20 20 20 20 |%.Z.." |
00000110: 20 4A 49 47 53 28 4A 29 20 4F 52 20 52 45 45 4C | JIGS(J) OR REEL|
00000120: 53 28 52 29 22 00 52 09 5C 00 99 3A 99 22 20 20 |S(R)".R.\..:." |
00000130: 20 20 20 20 50 52 45 53 53 20 27 51 27 20 41 54 | PRESS 'Q' AT|
00000140: 20 41 4E 59 20 54 49 4D 45 20 54 4F 20 51 55 49 | ANY TIME TO QUI|
00000150: 54 22 00 7E 09 5F 00 41 47 24 B2 22 50 4C 45 41 |T".~._.AG$."PLEA|
00000160: 53 45 20 57 41 49 54 20 57 48 49 4C 45 20 49 20 |SE WAIT WHILE I |
00000170: 43 4F 4D 50 4F 53 45 20 59 4F 55 52 20 22 00 95 |COMPOSE YOUR "..|
00000180: 09 64 00 A1 20 49 24 3A 20 8B 20 49 24 B2 22 4A |.d.. I$: . I$."J|
00000190: 22 89 31 34 30 00 A5 09 6E 00 8B 49 24 B2 22 52 |".140...n..I$."R|
000001A0: 22 89 31 33 30 00 B7 09 73 00 8B 49 24 B2 22 51 |".130...s..I$."Q|
000001B0: 22 A7 36 30 30 30 30 00 C0 09 78 00 89 31 30 30 |".60000...x..100|
000001C0: 00 D9 09 82 00 53 B2 38 3A 54 24 B2 22 52 45 45 |.....S.8:T$."REE|
000001D0: 4C 2E 22 3A 20 89 31 35 30 00 EB 09 8C 00 53 B2 |L.": .150.....S.|
000001E0: 36 3A 54 24 B2 22 4A 49 47 2E 22 00 F5 09 96 00 |6:T$."JIG.".....|
000001F0: 99 22 93 22 3B 00 34 0A 97 00 5A B2 5A AA 31 3A |.".";.4...Z.Z.1:|
00000200: 99 22 20 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |." .............|
00000210: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000220: C0 C0 C0 C0 C0 C0 C0 C0 C0 22 3A 99 22 20 22 41 |.........":." "A|
00000230: 47 24 54 24 00 63 0A 98 00 99 22 20 C0 C0 C0 C0 |G$T$.c...." ....|
00000240: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000250: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000260: C0 C0 22 00 6F 0A A0 00 81 20 42 B2 31 A4 38 00 |..".o.... B.1.8.|
00000270: 8D 0A A5 00 99 22 13 11 11 11 11 11 11 11 11 11 |....."..........|
00000280: 11 11 11 11 11 22 A6 31 39 29 38 AB 42 00 99 0A |.....".19)8.B...|
00000290: AA 00 81 20 4E B2 31 A4 53 00 B7 0A AF 00 8B C2 |... N.1.S.......|
000002A0: 28 31 39 38 29 B3 B1 30 A7 A1 41 24 3A 8B 41 24 |(198)..0..A$:.A$|
000002B0: B2 22 51 22 A7 32 30 00 DD 0A B4 00 8F 2A 2A 2A |."Q".20......***|
000002C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 FE 0A |*************...|
000002E0: BE 00 4B 4C B2 30 3A 8F 20 50 52 45 56 45 4E 54 |..KL.0:. PREVENT|
000002F0: 53 20 45 4E 44 4C 45 53 53 20 4C 4F 4F 50 00 15 |S ENDLESS LOOP..|
00000300: 0B C8 00 4B 4C B2 4B 4C AA 31 3A 8B 4B 4C B2 32 |...KL.KL.1:.KL.2|
00000310: 35 A7 31 36 30 00 59 0B D2 00 4E 54 28 42 2C 4E |5.160.Y...NT(B,N|
00000320: 29 B2 B5 28 BB 28 30 29 AC 31 35 AA 31 29 3A 8B |)..(.(0).15.1):.|
00000330: 42 AC 4E B3 38 AC 53 A7 89 32 39 30 3A 8F 20 4E |B.N.8.S..290:. N|
00000340: 4F 54 45 20 47 45 4E 45 52 41 54 4F 52 20 26 20 |OTE GENERATOR & |
00000350: 4C 41 53 54 20 4E 4F 54 45 00 7F 0B DC 00 8F 2A |LAST NOTE......*|
00000360: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000370: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000380: AD 0B E6 00 8F 20 4C 49 4E 45 53 32 34 2D 32 36 |..... LINES24-26|
00000390: 20 50 55 54 20 4C 41 53 54 20 4E 4F 54 45 20 49 | PUT LAST NOTE I|
000003A0: 4E 20 54 4F 4E 49 43 20 43 48 4F 52 44 00 F0 0B |N TONIC CHORD...|
000003B0: F0 00 8B 4E 54 28 38 2C 53 29 B2 4E 54 28 34 2C |...NT(8,S).NT(4,|
000003C0: 53 29 B0 B6 28 4E 54 28 38 2C 53 29 AB 4E 54 28 |S)..(NT(8,S).NT(|
000003D0: 34 2C 53 29 29 B2 32 B0 B6 28 4E 54 28 38 2C 53 |4,S)).2..(NT(8,S|
000003E0: 29 AB 4E 54 28 34 2C 53 29 29 B2 34 A7 33 32 30 |).NT(4,S)).4.320|
000003F0: 00 0E 0C FA 00 8B B6 28 4E 54 28 38 2C 53 29 AB |.......(NT(8,S).|
00000400: 4E 54 28 34 2C 53 29 29 B2 37 A7 33 32 30 00 17 |NT(4,S)).7.320..|
00000410: 0C 04 01 89 32 30 30 00 3E 0C 0E 01 8F 2A 2A 2A |....200.>....***|
00000420: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000430: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 62 |**************.b|
00000440: 0C 18 01 8F 20 4C 49 4E 45 20 32 39 20 52 45 50 |.... LINE 29 REP|
00000450: 45 41 54 53 20 4F 50 45 4E 49 4E 47 20 54 48 45 |EATS OPENING THE|
00000460: 4D 45 00 86 0C 22 01 4E 54 28 35 2C 4E 29 B2 4E |ME...".NT(5,N).N|
00000470: 54 28 31 2C 4E 29 3A 4E 54 28 36 2C 4E 29 B2 4E |T(1,N):NT(6,N).N|
00000480: 54 28 32 2C 4E 29 00 AC 0C 2C 01 8F 2A 2A 2A 2A |T(2,N)...,..****|
00000490: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000004A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E9 0C 36 |************...6|
000004B0: 01 8F 20 4C 49 4E 45 53 20 33 32 2D 33 34 20 44 |.. LINES 32-34 D|
000004C0: 49 53 41 4C 4C 4F 57 20 48 55 47 45 20 49 4E 54 |ISALLOW HUGE INT|
000004D0: 45 52 56 41 4C 53 20 4F 54 48 45 52 20 54 48 41 |ERVALS OTHER THA|
000004E0: 4E 20 4F 43 54 41 56 45 53 00 09 0D 40 01 8B B6 |N OCTAVES...@...|
000004F0: 28 4E 54 28 42 2C 4E 29 AB 4E 54 28 42 2C 4E AB |(NT(B,N).NT(B,N.|
00000500: 31 29 29 B2 37 A7 35 30 30 00 2B 0D 4A 01 4B 4C |1)).7.500.+.J.KL|
00000510: B2 4B 4C AA 31 3A 8B 4B 4C B2 32 35 A7 31 36 30 |.KL.1:.KL.25.160|
00000520: 3A 8F 20 41 4E 54 49 4C 4F 43 4B 00 4B 0D 54 01 |:. ANTILOCK.K.T.|
00000530: 8B B6 28 4E 54 28 42 2C 4E 29 AB 4E 54 28 42 2C |..(NT(B,N).NT(B,|
00000540: 4E AB 31 29 29 B1 34 89 32 30 30 00 72 0D 5E 01 |N.1)).4.200.r.^.|
00000550: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00000560: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000570: 2A 2A 00 A2 0D 68 01 8F 20 4C 49 4E 45 53 20 33 |**...h.. LINES 3|
00000580: 37 2D 34 33 20 43 52 45 41 54 45 20 43 48 4F 52 |7-43 CREATE CHOR|
00000590: 44 53 20 32 30 25 20 4F 46 20 54 48 45 20 54 49 |DS 20% OF THE TI|
000005A0: 4D 45 00 AF 0D 72 01 8B 4E B2 53 89 35 30 30 00 |ME...r..N.S.500.|
000005B0: C3 0D 7C 01 8B 4E 54 28 42 2C 4E 29 B2 31 89 31 |..|..NT(B,N).1.1|
000005C0: 30 32 30 00 D8 0D 86 01 8B 4E 54 28 42 2C 4E 29 |020......NT(B,N)|
000005D0: B2 31 35 89 31 30 37 30 00 14 0E 90 01 4E 51 B2 |.15.1070.....NQ.|
000005E0: B5 28 BB 28 30 29 AC 33 30 AA 31 29 3A 91 4E 51 |.(.(0).30.1):.NQ|
000005F0: 89 35 30 30 2C 35 30 30 2C 35 30 30 2C 35 30 30 |.500,500,500,500|
00000600: 2C 35 30 30 2C 35 30 30 2C 35 30 30 2C 35 30 30 |,500,500,500,500|
00000610: 2C 35 30 30 00 36 0E 9A 01 91 4E 51 AB 39 89 38 |,500.6....NQ.9.8|
00000620: 38 30 2C 39 30 30 2C 39 32 30 2C 39 34 30 2C 39 |80,900,920,940,9|
00000630: 36 30 2C 39 38 30 00 61 0E A4 01 91 4E 51 AB 31 |60,980.a....NQ.1|
00000640: 35 89 35 30 30 2C 35 30 30 2C 35 30 30 2C 35 30 |5.500,500,500,50|
00000650: 30 2C 35 30 30 2C 35 30 30 2C 35 30 30 2C 35 30 |0,500,500,500,50|
00000660: 30 00 88 0E AE 01 91 4E 51 AB 32 33 89 35 30 30 |0......NQ.23.500|
00000670: 2C 35 30 30 2C 35 30 30 2C 35 30 30 2C 35 30 30 |,500,500,500,500|
00000680: 2C 35 30 30 2C 35 30 30 00 AF 0E B8 01 8F 2A 2A |,500,500......**|
00000690: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000006A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000006B0: F9 0E C2 01 8F 20 4C 49 4E 45 53 34 36 2D 34 39 |..... LINES46-49|
000006C0: 20 4B 45 45 50 20 43 48 4F 52 44 20 50 52 4F 47 | KEEP CHORD PROG|
000006D0: 52 45 53 53 49 4F 4E 53 20 49 4E 20 52 41 4E 47 |RESSIONS IN RANG|
000006E0: 45 20 4F 46 20 54 49 4E 57 48 49 53 54 4C 45 20 |E OF TINWHISTLE |
000006F0: 28 26 41 52 52 41 59 21 29 00 1C 0F CC 01 8B 20 |(&ARRAY!)...... |
00000700: 4E 54 28 42 2C 4E 29 B1 31 35 A7 4E 54 28 42 2C |NT(B,N).15.NT(B,|
00000710: 4E 29 B2 4E 54 28 42 2C 4E 29 AB 37 00 3D 0F D6 |N).NT(B,N).7.=..|
00000720: 01 8B 4E 54 28 42 2C 4E 29 B3 31 A7 4E 54 28 42 |..NT(B,N).1.NT(B|
00000730: 2C 4E 29 B2 4E 54 28 42 2C 4E 29 AA 37 00 65 0F |,N).NT(B,N).7.e.|
00000740: E0 01 8B 20 4E 54 28 42 2C 4E AA 31 29 B3 31 A7 |... NT(B,N.1).1.|
00000750: 4E 54 28 42 2C 4E AA 31 29 B2 4E 54 28 42 2C 4E |NT(B,N.1).NT(B,N|
00000760: AA 31 29 AA 37 00 8E 0F EA 01 8B 20 4E 54 28 42 |.1).7...... NT(B|
00000770: 2C 4E AA 31 29 B1 31 35 A7 4E 54 28 42 2C 4E AA |,N.1).15.NT(B,N.|
00000780: 31 29 B2 4E 54 28 42 2C 4E AA 31 29 AB 37 00 96 |1).NT(B,N.1).7..|
00000790: 0F F4 01 82 20 4E 00 9D 0F FE 01 82 42 00 AC 0F |.... N......B...|
000007A0: 03 02 99 22 93 22 3B 3A 4D 4D B2 30 00 D2 0F 08 |...".";:MM.0....|
000007B0: 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************|
000007C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000007D0: 2A 2A 00 F1 0F 12 02 8F 20 4C 49 4E 45 53 20 35 |**...... LINES 5|
000007E0: 34 2D 36 37 20 50 4C 41 59 20 54 55 4E 45 20 32 |4-67 PLAY TUNE 2|
000007F0: 58 00 FD 0F 1C 02 81 54 57 B2 31 A4 32 00 08 10 |X......TW.1.2...|
00000800: 26 02 81 42 B2 31 A4 38 00 13 10 30 02 81 4E B2 |&..B.1.8...0..N.|
00000810: 31 A4 53 00 34 10 3A 02 91 4E 54 28 42 2C 4E 29 |1.S.4.:..NT(B,N)|
00000820: 89 37 31 30 2C 37 32 30 2C 37 33 30 2C 37 34 30 |.710,720,730,740|
00000830: 2C 37 35 30 00 57 10 44 02 91 4E 54 28 42 2C 4E |,750.W.D..NT(B,N|
00000840: 29 AB 35 89 37 36 30 2C 37 37 30 2C 37 38 30 2C |).5.760,770,780,|
00000850: 37 39 30 2C 38 30 30 00 7B 10 4E 02 91 4E 54 28 |790,800.{.N..NT(|
00000860: 42 2C 4E 29 AB 31 30 89 38 31 30 2C 38 32 30 2C |B,N).10.810,820,|
00000870: 38 33 30 2C 38 34 30 2C 38 35 30 00 A9 10 58 02 |830,840,850...X.|
00000880: 97 35 34 32 39 36 2C 31 35 3A 97 35 34 32 37 37 |.54296,15:.54277|
00000890: 2C 31 33 36 3A 97 35 34 32 37 38 2C 31 33 36 3A |,136:.54278,136:|
000008A0: 97 35 34 32 37 36 2C 31 37 00 BE 10 62 02 8B 28 |.54276,17...b..(|
000008B0: 4D 4D B2 2E 29 AF 28 53 B2 36 29 A7 99 2C 00 EC |MM..).(S.6)..,..|
000008C0: 10 67 02 97 35 34 32 37 33 2C 48 3A 97 35 34 32 |.g..54273,H:.542|
000008D0: 37 32 2C 4C 3A 99 4E 24 2C 3A 4D 4D B2 4D 4D AA |72,L:.N$,:MM.MM.|
000008E0: 31 3A 8B 4D 4D B2 33 A7 4D 4D B2 30 00 2C 11 6C |1:.MM.3.MM.0.,.l|
000008F0: 02 8B 20 4E AD 53 B2 B5 28 4E AD 53 29 A7 99 22 |.. N.S..(N.S).."|
00000900: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000910: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000920: 2D 2D 2D 2D 2D 2D 22 3A 89 36 34 30 00 6B 11 76 |------":.640.k.v|
00000930: 02 8B 32 AC 4E AD 53 B2 B5 28 32 AC 4E AD 53 29 |..2.N.S..(2.N.S)|
00000940: A7 99 22 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |..".............|
00000950: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000960: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 00 86 11 80 02 |..........".....|
00000970: 81 51 54 B2 31 A4 31 35 3A 82 51 54 3A 97 35 34 |.QT.1.15:.QT:.54|
00000980: 32 37 36 2C 31 36 00 A4 11 85 02 8B C2 28 31 39 |276,16.......(19|
00000990: 38 29 B3 B1 30 A7 A1 41 24 3A 8B 41 24 B2 22 51 |8)..0..A$:.A$."Q|
000009A0: 22 A7 32 30 00 AB 11 8A 02 82 4E 00 B2 11 94 02 |".20......N.....|
000009B0: 82 42 00 BA 11 9E 02 82 54 57 00 C4 11 A8 02 8D |.B......TW......|
000009C0: 31 31 34 30 00 CD 11 B2 02 89 31 35 30 00 F3 11 |1140......150...|
000009D0: BC 02 8F 20 4E 4F 54 45 20 41 53 53 49 47 4E 4D |... NOTE ASSIGNM|
000009E0: 45 4E 54 53 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |ENTS************|
000009F0: 2A 2A 2A 00 0D 12 C6 02 4E 24 B2 22 44 22 3A 48 |***.....N$."D":H|
00000A00: B2 39 3A 4C B2 31 30 34 3A 89 36 30 30 00 28 12 |.9:L.104:.600.(.|
00000A10: D0 02 4E 24 B2 22 45 22 3A 48 B2 31 30 3A 4C B2 |..N$."E":H.10:L.|
00000A20: 31 34 33 3A 89 36 30 30 00 44 12 DA 02 4E 24 B2 |143:.600.D...N$.|
00000A30: 22 46 23 22 3A 48 B2 31 31 3A 4C B2 32 31 38 3A |"F#":H.11:L.218:|
00000A40: 89 36 30 30 00 5F 12 E4 02 4E 24 B2 22 47 22 3A |.600._...N$."G":|
00000A50: 48 B2 31 32 3A 4C B2 31 34 33 3A 89 36 30 30 00 |H.12:L.143:.600.|
00000A60: 79 12 EE 02 4E 24 B2 22 41 22 3A 48 B2 31 34 3A |y...N$."A":H.14:|
00000A70: 4C B2 32 34 3A 89 36 30 30 00 94 12 F8 02 4E 24 |L.24:.600.....N$|
00000A80: B2 22 42 22 3A 48 B2 31 35 3A 4C B2 32 31 30 3A |."B":H.15:L.210:|
00000A90: 89 36 30 30 00 B0 12 02 03 4E 24 B2 22 43 23 22 |.600.....N$."C#"|
00000AA0: 3A 48 B2 31 37 3A 4C B2 31 39 35 3A 89 36 30 30 |:H.17:L.195:.600|
00000AB0: 00 CC 12 0C 03 4E 24 B2 22 44 5E 22 3A 48 B2 31 |.....N$."D^":H.1|
00000AC0: 38 3A 4C B2 32 30 39 3A 89 36 30 30 00 E7 12 16 |8:L.209:.600....|
00000AD0: 03 4E 24 B2 22 45 5E 22 3A 48 B2 32 31 3A 4C B2 |.N$."E^":H.21:L.|
00000AE0: 33 31 3A 89 36 30 30 00 04 13 20 03 4E 24 B2 22 |31:.600... .N$."|
00000AF0: 46 23 5E 22 3A 48 B2 32 33 3A 4C B2 31 38 31 3A |F#^":H.23:L.181:|
00000B00: 89 36 30 30 00 1F 13 2A 03 4E 24 B2 22 47 5E 22 |.600...*.N$."G^"|
00000B10: 3A 48 B2 32 35 3A 4C B2 33 30 3A 89 36 30 30 00 |:H.25:L.30:.600.|
00000B20: 3A 13 34 03 4E 24 B2 22 41 5E 22 3A 48 B2 32 38 |:.4.N$."A^":H.28|
00000B30: 3A 4C B2 34 39 3A 89 36 30 30 00 56 13 3E 03 4E |:L.49:.600.V.>.N|
00000B40: 24 B2 22 42 5E 22 3A 48 B2 33 31 3A 4C B2 31 36 |$."B^":H.31:L.16|
00000B50: 35 3A 89 36 30 30 00 73 13 48 03 4E 24 B2 22 43 |5:.600.s.H.N$."C|
00000B60: 23 5E 22 3A 48 B2 33 35 3A 4C B2 31 33 34 3A 89 |#^":H.35:L.134:.|
00000B70: 36 30 30 00 90 13 52 03 4E 24 B2 22 44 5E 5E 22 |600...R.N$."D^^"|
00000B80: 3A 48 B2 33 37 3A 4C B2 31 36 32 3A 89 36 30 30 |:H.37:L.162:.600|
00000B90: 00 B6 13 5C 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...\..**********|
00000BA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000BB0: 2A 2A 2A 2A 2A 2A 00 F8 13 66 03 8F 20 36 20 57 |******...f.. 6 W|
00000BC0: 41 59 53 20 54 4F 20 50 4C 41 59 20 41 20 44 49 |AYS TO PLAY A DI|
00000BD0: 41 54 4F 4E 49 43 20 43 48 4F 52 44 2C 20 43 48 |ATONIC CHORD, CH|
00000BE0: 4F 53 45 4E 20 52 41 4E 44 4F 4D 4C 59 20 41 54 |OSEN RANDOMLY AT|
00000BF0: 20 4C 49 4E 45 20 34 31 00 10 14 70 03 4E 54 28 | LINE 41...p.NT(|
00000C00: 42 2C 4E 29 B2 4E 54 28 42 2C 4E AB 31 29 AA 32 |B,N).NT(B,N.1).2|
00000C10: 00 2D 14 7A 03 4E 54 28 42 2C 4E AA 31 29 B2 4E |.-.z.NT(B,N.1).N|
00000C20: 54 28 42 2C 4E 29 AA 32 3A 89 34 36 30 00 45 14 |T(B,N).2:.460.E.|
00000C30: 84 03 4E 54 28 42 2C 4E 29 B2 4E 54 28 42 2C 4E |..NT(B,N).NT(B,N|
00000C40: AB 31 29 AA 34 00 62 14 8E 03 4E 54 28 42 2C 4E |.1).4.b...NT(B,N|
00000C50: AA 31 29 B2 4E 54 28 42 2C 4E 29 AB 32 3A 89 34 |.1).NT(B,N).2:.4|
00000C60: 36 30 00 7A 14 98 03 4E 54 28 42 2C 4E 29 B2 4E |60.z...NT(B,N).N|
00000C70: 54 28 42 2C 4E AB 31 29 AA 32 00 97 14 A2 03 4E |T(B,N.1).2.....N|
00000C80: 54 28 42 2C 4E AA 31 29 B2 4E 54 28 42 2C 4E 29 |T(B,N.1).NT(B,N)|
00000C90: AB 34 3A 89 34 36 30 00 AF 14 AC 03 4E 54 28 42 |.4:.460.....NT(B|
00000CA0: 2C 4E 29 B2 4E 54 28 42 2C 4E AB 31 29 AB 32 00 |,N).NT(B,N.1).2.|
00000CB0: CC 14 B6 03 4E 54 28 42 2C 4E AA 31 29 B2 4E 54 |....NT(B,N.1).NT|
00000CC0: 28 42 2C 4E 29 AA 34 3A 89 34 36 30 00 E4 14 C0 |(B,N).4:.460....|
00000CD0: 03 4E 54 28 42 2C 4E 29 B2 4E 54 28 42 2C 4E AB |.NT(B,N).NT(B,N.|
00000CE0: 31 29 AB 32 00 01 15 CA 03 4E 54 28 42 2C 4E AA |1).2.....NT(B,N.|
00000CF0: 31 29 B2 4E 54 28 42 2C 4E 29 AB 32 3A 89 34 36 |1).NT(B,N).2:.46|
00000D00: 30 00 19 15 D4 03 4E 54 28 42 2C 4E 29 B2 4E 54 |0.....NT(B,N).NT|
00000D10: 28 42 2C 4E AB 31 29 AB 34 00 36 15 DE 03 4E 54 |(B,N.1).4.6...NT|
00000D20: 28 42 2C 4E AA 31 29 B2 4E 54 28 42 2C 4E 29 AA |(B,N.1).NT(B,N).|
00000D30: 32 3A 89 34 36 30 00 5C 15 E8 03 8F 2A 2A 2A 2A |2:.460.\....****|
00000D40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 7F 15 F2 |************....|
00000D60: 03 8F 20 53 50 45 43 49 41 4C 20 43 41 53 45 53 |.. SPECIAL CASES|
00000D70: 20 46 4F 52 20 22 44 22 20 43 48 4F 52 44 53 00 | FOR "D" CHORDS.|
00000D80: 90 15 FC 03 8B 4E B1 28 53 AB 32 29 89 35 30 30 |.....N.(S.2).500|
00000D90: 00 BC 15 06 04 51 4E B2 B5 28 BB 28 30 29 AC 31 |.....QN..(.(0).1|
00000DA0: 30 AA 31 29 3A 91 51 4E 89 35 30 30 2C 35 30 30 |0.1):.QN.500,500|
00000DB0: 2C 35 30 30 2C 35 30 30 2C 35 30 30 00 DC 15 10 |,500,500,500....|
00000DC0: 04 91 51 4E AB 35 89 35 30 30 2C 35 30 30 2C 35 |..QN.5.500,500,5|
00000DD0: 30 30 2C 31 30 35 30 2C 31 30 36 30 00 0D 16 1A |00,1050,1060....|
00000DE0: 04 4E 54 28 42 2C 4E AA 31 29 B2 4E 54 28 42 2C |.NT(B,N.1).NT(B,|
00000DF0: 4E 29 AA 32 3A 4E 54 28 42 2C 4E AA 32 29 B2 4E |N).2:NT(B,N.2).N|
00000E00: 54 28 42 2C 4E 29 AA 34 3A 89 35 30 30 00 3E 16 |T(B,N).4:.500.>.|
00000E10: 24 04 4E 54 28 42 2C 4E AA 31 29 B2 4E 54 28 42 |$.NT(B,N.1).NT(B|
00000E20: 2C 4E 29 AA 34 3A 4E 54 28 42 2C 4E AA 32 29 B2 |,N).4:NT(B,N.2).|
00000E30: 4E 54 28 42 2C 4E 29 AA 32 3A 89 35 30 30 00 4F |NT(B,N).2:.500.O|
00000E40: 16 2E 04 8B 4E B1 28 53 AB 32 29 89 35 30 30 00 |....N.(S.2).500.|
00000E50: 7B 16 38 04 51 51 B2 B5 28 BB 28 30 29 AC 31 30 |{.8.QQ..(.(0).10|
00000E60: AA 31 29 3A 91 51 51 89 35 30 30 2C 35 30 30 2C |.1):.QQ.500,500,|
00000E70: 35 30 30 2C 35 30 30 2C 35 30 30 00 9B 16 42 04 |500,500,500...B.|
00000E80: 91 51 51 AB 35 89 35 30 30 2C 35 30 30 2C 35 30 |.QQ.5.500,500,50|
00000E90: 30 2C 31 31 30 30 2C 31 31 31 30 00 CC 16 4C 04 |0,1100,1110...L.|
00000EA0: 4E 54 28 42 2C 4E AA 31 29 B2 4E 54 28 42 2C 4E |NT(B,N.1).NT(B,N|
00000EB0: 29 AB 34 3A 4E 54 28 42 2C 4E AA 32 29 B2 4E 54 |).4:NT(B,N.2).NT|
00000EC0: 28 42 2C 4E 29 AB 32 3A 89 35 30 30 00 FD 16 56 |(B,N).2:.500...V|
00000ED0: 04 4E 54 28 42 2C 4E AA 31 29 B2 4E 54 28 42 2C |.NT(B,N.1).NT(B,|
00000EE0: 4E 29 AB 32 3A 4E 54 28 42 2C 4E AA 32 29 B2 4E |N).2:NT(B,N.2).N|
00000EF0: 54 28 42 2C 4E 29 AB 34 3A 89 35 30 30 00 23 17 |T(B,N).4:.500.#.|
00000F00: 60 04 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |`..*************|
00000F10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000F20: 2A 2A 2A 00 48 17 6A 04 8F 20 50 52 49 4E 54 45 |***.H.j.. PRINTE|
00000F30: 52 20 4F 50 54 49 4F 4E 20 57 49 54 48 20 54 49 |R OPTION WITH TI|
00000F40: 4D 45 52 20 4C 4F 4F 50 00 56 17 74 04 8B 53 B2 |MER LOOP.V.t..S.|
00000F50: 36 89 31 31 36 30 00 81 17 7E 04 8B 53 B2 38 A7 |6.1160...~..S.8.|
00000F60: 99 22 50 52 49 4E 54 4F 55 54 20 54 48 49 53 20 |."PRINTOUT THIS |
00000F70: 46 49 4E 45 20 52 45 45 4C 3F 22 3A 89 31 31 37 |FINE REEL?":.117|
00000F80: 30 00 A3 17 88 04 99 22 20 50 52 49 4E 54 4F 55 |0......" PRINTOU|
00000F90: 54 20 54 48 49 53 20 4C 4F 56 45 4C 59 20 4A 49 |T THIS LOVELY JI|
00000FA0: 47 3F 22 00 DB 17 92 04 99 22 41 4E 53 57 45 52 |G?"......"ANSWER|
00000FB0: 20 27 59 27 28 59 45 53 29 20 4F 52 20 27 4E 27 | 'Y'(YES) OR 'N'|
00000FC0: 28 4E 4F 29 2C 20 27 51 27 20 51 55 49 54 53 22 |(NO), 'Q' QUITS"|
00000FD0: 3A 81 5A 54 B2 31 A4 31 30 30 30 00 F1 17 9C 04 |:.ZT.1.1000.....|
00000FE0: A1 20 50 24 3A 8B 50 24 B2 22 59 22 A7 31 32 32 |. P$:.P$."Y".122|
00000FF0: 30 00 03 18 A6 04 8B 20 50 24 B2 22 4E 22 A7 31 |0...... P$."N".1|
00001000: 35 32 30 00 12 18 AB 04 8B 50 24 B2 22 51 22 A7 |520......P$."Q".|
00001010: 32 30 00 1B 18 B0 04 82 20 5A 54 00 25 18 BA 04 |20...... ZT.%...|
00001020: 89 31 35 32 30 00 51 18 C4 04 9F 31 35 2C 34 2C |.1520.Q....15,4,|
00001030: 31 35 3A A0 31 35 3A 8B 53 54 B3 B1 30 A7 8D 35 |15:.15:.ST..0..5|
00001040: 30 30 30 30 3A 50 24 B2 22 4E 22 3A 89 31 31 39 |0000:P$."N":.119|
00001050: 30 00 6E 18 C9 04 9F 34 2C 34 3A 98 34 2C C7 28 |0.n....4,4:.4,.(|
00001060: 31 34 29 3B 54 24 3B 5A 3B C7 28 31 35 29 00 79 |14);T$;Z;.(15).y|
00001070: 18 CE 04 81 42 B2 31 A4 38 00 84 18 D8 04 81 4E |....B.1.8......N|
00001080: B2 31 A4 53 00 AC 18 E2 04 91 20 4E 54 28 42 2C |.1.S...... NT(B,|
00001090: 4E 29 20 89 31 33 36 30 2C 31 33 37 30 2C 31 33 |N) .1360,1370,13|
000010A0: 38 30 2C 31 33 39 30 2C 31 34 30 30 00 D5 18 EC |80,1390,1400....|
000010B0: 04 91 20 4E 54 28 42 2C 4E 29 AB 35 89 31 34 31 |.. NT(B,N).5.141|
000010C0: 30 2C 31 34 32 30 2C 31 34 33 30 2C 31 34 34 30 |0,1420,1430,1440|
000010D0: 2C 31 34 35 30 00 FF 18 F6 04 91 20 4E 54 28 42 |,1450...... NT(B|
000010E0: 2C 4E 29 AB 31 30 89 31 34 36 30 2C 31 34 37 30 |,N).10.1460,1470|
000010F0: 2C 31 34 38 30 2C 31 34 39 30 2C 31 35 30 30 00 |,1480,1490,1500.|
00001100: 0A 19 00 05 98 34 2C 4E 24 2C 00 45 19 0A 05 8B |.....4,N$,.E....|
00001110: 20 4E AD 53 B2 B5 28 4E AD 53 29 A7 98 34 2C 22 | N.S..(N.S)..4,"|
00001120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001140: 20 20 20 20 22 00 88 19 14 05 8B 4E AD 53 B2 B5 | "......N.S..|
00001150: 28 4E AD 53 29 A7 20 98 34 2C 22 2D 2D 2D 2D 2D |(N.S). .4,"-----|
00001160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001180: 2D 22 3A 89 31 33 33 30 00 C6 19 1E 05 8B 32 AC |-":.1330......2.|
00001190: 4E AD 53 B2 B5 28 32 AC 4E AD 53 29 A7 98 34 2C |N.S..(2.N.S)..4,|
000011A0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
000011B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000011C0: 20 20 20 20 20 22 00 08 1A 28 05 8B 32 AC 4E AD | "...(..2.N.|
000011D0: 53 B2 B5 28 32 AC 4E AD 53 29 A7 20 98 34 2C 22 |S..(2.N.S). .4,"|
000011E0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000011F0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00001200: 2E 2E 2E 2E 2E 2E 2E 22 00 1A 1A 32 05 8B 4E AC |......."...2..N.|
00001210: 42 B2 53 AC 38 89 31 35 31 30 00 21 1A 3C 05 82 |B.S.8.1510.!.<..|
00001220: 4E 00 28 1A 46 05 82 42 00 39 1A 50 05 4E 24 B2 |N.(.F..B.9.P.N$.|
00001230: 22 44 22 3A 89 31 32 38 30 00 4A 1A 5A 05 4E 24 |"D":.1280.J.Z.N$|
00001240: B2 22 45 22 3A 89 31 32 38 30 00 5C 1A 64 05 4E |."E":.1280.\.d.N|
00001250: 24 B2 22 46 23 22 3A 89 31 32 38 30 00 6D 1A 6E |$."F#":.1280.m.n|
00001260: 05 4E 24 B2 22 47 22 3A 89 31 32 38 30 00 7E 1A |.N$."G":.1280.~.|
00001270: 78 05 4E 24 B2 22 41 22 3A 89 31 32 38 30 00 8F |x.N$."A":.1280..|
00001280: 1A 82 05 4E 24 B2 22 42 22 3A 89 31 32 38 30 00 |...N$."B":.1280.|
00001290: A1 1A 8C 05 4E 24 B2 22 43 23 22 3A 89 31 32 38 |....N$."C#":.128|
000012A0: 30 00 B3 1A 96 05 4E 24 B2 22 44 5E 22 3A 89 31 |0.....N$."D^":.1|
000012B0: 32 38 30 00 C5 1A A0 05 4E 24 B2 22 45 5E 22 3A |280.....N$."E^":|
000012C0: 89 31 32 38 30 00 D8 1A AA 05 4E 24 B2 22 46 23 |.1280.....N$."F#|
000012D0: 5E 22 3A 89 31 32 38 30 00 EA 1A B4 05 4E 24 B2 |^":.1280.....N$.|
000012E0: 22 47 5E 22 3A 89 31 32 38 30 00 FC 1A BE 05 4E |"G^":.1280.....N|
000012F0: 24 B2 22 41 5E 22 3A 89 31 32 38 30 00 0E 1B C8 |$."A^":.1280....|
00001300: 05 4E 24 B2 22 42 5E 22 3A 89 31 32 38 30 00 21 |.N$."B^":.1280.!|
00001310: 1B D2 05 4E 24 B2 22 43 23 5E 22 3A 89 31 32 38 |...N$."C#^":.128|
00001320: 30 00 34 1B DC 05 4E 24 B2 22 44 5E 5E 22 3A 89 |0.4...N$."D^^":.|
00001330: 31 32 38 30 00 3B 1B E6 05 A0 34 00 41 1B F0 05 |1280.;....4.A...|
00001340: 8E 00 52 1B 50 C3 8F 20 4E 4F 20 50 52 49 4E 54 |..R.P.. NO PRINT|
00001350: 45 52 00 80 1B 5A C3 99 22 93 11 11 11 11 11 11 |ER...Z..".......|
00001360: 11 11 11 22 A6 31 30 29 22 50 52 49 4E 54 45 52 |...".10)"PRINTER|
00001370: 20 4E 4F 54 20 4F 4E 2D 4C 49 4E 45 2E 2E 2E 22 | NOT ON-LINE..."|
00001380: 00 93 1B 64 C3 81 44 4C B2 31 A4 33 30 30 30 3A |...d..DL.1.3000:|
00001390: 82 3A 8E 00 99 1B 6E C3 3A 00 A4 1B 60 EA 8F 20 |.:....n.:...`.. |
000013A0: 51 55 49 54 00 CD 1B 6A EA 99 22 93 11 11 11 11 |QUIT...j..".....|
000013B0: 20 44 4F 20 59 4F 55 20 52 45 41 4C 4C 59 20 57 | DO YOU REALLY W|
000013C0: 41 4E 54 20 54 4F 20 51 55 49 54 3F 22 00 FA 1B |ANT TO QUIT?"...|
000013D0: 74 EA 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A |t..198,0:.198,1:|
000013E0: A1 41 24 3A 8B 41 24 B3 B1 22 59 22 AF 41 24 B3 |.A$:.A$.."Y".A$.|
000013F0: B1 22 4E 22 A7 36 30 30 31 30 00 09 1C 7E EA 8B |."N".60010...~..|
00001400: 41 24 B2 22 4E 22 A7 32 30 00 0F 1C 88 EA 3A 00 |A$."N".20.....:.|
00001410: 48 1C 92 EA 9F 31 35 2C 38 2C 31 35 2C 22 52 30 |H....15,8,15,"R0|
00001420: 3A 48 45 4C 4C 4F 20 43 4F 4E 4E 45 43 54 3D 48 |:HELLO CONNECT=H|
00001430: 45 4C 4C 4F 20 43 4F 4E 4E 45 43 54 22 3A 84 31 |ELLO CONNECT":.1|
00001440: 35 2C 45 52 3A A0 31 35 00 56 1C 9C EA 8B 45 52 |5,ER:.15.V....ER|
00001450: B3 B1 36 33 A7 80 00 6D 1C A6 EA 93 22 48 45 4C |..63...m...."HEL|
00001460: 4C 4F 20 43 4F 4E 4E 45 43 54 22 2C 38 00 73 1C |LO CONNECT",8.s.|
00001470: B0 EA 80 00 00 00 |...... |
....... NT(8,8).....:.1...."..":.53280,6
:.53281,5.I.... CL.54272.54296:. CL,0:.
CL:. CLEAR SONIC ADRESSES...(.. "
THE JIG IS UP"...2.."
BY.L.<.." PAUL G. MULVANEY,
III.Z.F.." "...P.." TY
PE PREFERENCE:".%.Z.." JIGS(J)
OR REELS(R)".R.\..:." PRESS 'Q' AT
ANY TIME TO QUIT".~._.AG$."PLEASE WAIT
WHILE I COMPOSE YOUR "...D.. I$: . I$."J
".140...N..I$."R".130...S..I$."Q".60000.
..X..100.Y...S.8:T$."REEL.": .150.....S.
6:T$."JIG."......".";.4...Z.Z.1:." .....
.................................":." "A
G$T$.C...." ............................
..........".O. .. B.1.8......"..........
.....".19)8.B...... N.1.S......B(198)..0
..A$:.A$."Q".20......*******************
*************.....KL.0:. PREVENTS ENDLES
S LOOP...H.KL.KL.1:.KL.25.160.Y.R.NT(B,N
)..(.(0).15.1):.B.N.8.S..290:. NOTE GENE
RATOR & LAST NOTE.....*****************
***************...... LINES24-26 PUT LAS
T NOTE IN TONIC CHORD......NT(8,S).NT(4,
S)..(NT(8,S).NT(4,S)).2..(NT(8,S).NT(4,S
)).4.320.......(NT(8,S).NT(4,S)).7.320..
....200.>....***************************
******.B.... LINE 29 REPEATS OPENING THE
ME...".NT(5,N).NT(1,N):NT(6,N).NT(2,N)..
.,..********************************...6
.. LINES 32-34 DISALLOW HUGE INTERVALS O
THER THAN OCTAVES...@...(NT(B,N).NT(B,N.
1)).7.500.+.J.KL.KL.1:.KL.25.160:. ANTIL
OCK.K.T...(NT(B,N).NT(B,N.1)).4.200.R.^.
.*********************************...H..
LINES 37-43 CREATE CHORDS 20% OF THE TI
ME...R..N.S.500.C.|..NT(B,N).1.1020.X...
.NT(B,N).15.1070.....NQ..(.(0).30.1):.NQ
.500,500,500,500,500,500,500,500,500.6..
..NQ.9.880,900,920,940,960,980.A....NQ.1
5.500,500,500,500,500,500,500,500......N
Q.23.500,500,500,500,500,500,500......**
*******************************...B.. LI
NES46-49 KEEP CHORD PROGRESSIONS IN RANG
E OF TINWHISTLE (&ARRAY!)...L.. NT(B,N).
15.NT(B,N).NT(B,N).7.=.V..NT(B,N).1.NT(B
,N).NT(B,N).7.E.... NT(B,N.1).1.NT(B,N.1
).NT(B,N.1).7...... NT(B,N.1).15.NT(B,N.
1).NT(B,N.1).7...... N......B......".";:
MM.0.R....******************************
**...... LINES 54-67 PLAY TUNE 2X......T
W.1.2...&..B.1.8...0..N.1.S.4.:..NT(B,N)
.710,720,730,740,750.W.D..NT(B,N).5.760,
770,780,790,800.{.N..NT(B,N).10.810,820,
830,840,850...X..54296,15:.54277,136:.54
278,136:.54276,17...B..(MM..).(S.6)..,..
.G..54273,H:.54272,L:.N$,:MM.MM.1:.MM.3.
MM.0.,.L.. N.S..(N.S).."----------------
----------------------":.640.K.V..2.N.S.
.(2.N.S)..".............................
.........."......QT.1.15:.QT:.54276,16..
....B(198)..0..A$:.A$."Q".20......N.....
.B......TW.D....1140.M....150...... NOTE
ASSIGNMENTS***************...F.N$."D":H
.9:L.104:.600.(.P.N$."E":H.10:L.143:.600
.D.Z.N$."F#":H.11:L.218:.600._...N$."G":
H.12:L.143:.600.Y...N$."A":H.14:L.24:.60
0.....N$."B":H.15:L.210:.600.....N$."C#"
:H.17:L.195:.600.L...N$."D^":H.18:L.209:
.600.....N$."E^":H.21:L.31:.600... .N$."
F#^":H.23:L.181:.600...*.N$."G^":H.25:L.
30:.600.:.4.N$."A^":H.28:L.49:.600.V.>.N
$."B^":H.31:L.165:.600.S.H.N$."C#^":H.35
:L.134:.600...R.N$."D^^":H.37:L.162:.600
...\..********************************..
.F.. 6 WAYS TO PLAY A DIATONIC CHORD, CH
OSEN RANDOMLY AT LINE 41...P.NT(B,N).NT(
B,N.1).2.-.Z.NT(B,N.1).NT(B,N).2:.460.E.
..NT(B,N).NT(B,N.1).4.B...NT(B,N.1).NT(B
,N).2:.460.Z...NT(B,N).NT(B,N.1).2.....N
T(B,N.1).NT(B,N).4:.460.....NT(B,N).NT(B
,N.1).2.L...NT(B,N.1).NT(B,N).4:.460....
.NT(B,N).NT(B,N.1).2...J.NT(B,N.1).NT(B,
N).2:.460...T.NT(B,N).NT(B,N.1).4.6...NT
(B,N.1).NT(B,N).2:.460.\....************
********************..... SPECIAL CASES
FOR "D" CHORDS......N.(S.2).500.....QN.
.(.(0).10.1):.QN.500,500,500,500,500....
..QN.5.500,500,500,1050,1060.....NT(B,N.
1).NT(B,N).2:NT(B,N.2).NT(B,N).4:.500.>.
$.NT(B,N.1).NT(B,N).4:NT(B,N.2).NT(B,N).
2:.500.O....N.(S.2).500.{.8.QQ..(.(0).10
.1):.QQ.500,500,500,500,500...B..QQ.5.50
0,500,500,1100,1110.L.L.NT(B,N.1).NT(B,N
).4:NT(B,N.2).NT(B,N).2:.500...V.NT(B,N.
1).NT(B,N).2:NT(B,N.2).NT(B,N).4:.500.#.
`..********************************.H.J.
. PRINTER OPTION WITH TIMER LOOP.V.T..S.
6.1160...~..S.8.."PRINTOUT THIS FINE REE
L?":.1170......" PRINTOUT THIS LOVELY JI
G?"......"ANSWER 'Y'(YES) OR 'N'(NO), 'Q
' QUITS":.ZT.1.1000...... P$:.P$."Y".122
0...... P$."N".1520......P$."Q".20......
ZT.%....1520.Q.D..15,4,15: 15:.ST..0..5
0000:P$."N":.1190.N.I..4,4:.4,G(14);T$;Z
;G(15).Y.N..B.1.8...X..N.1.S...... NT(B,
N) .1360,1370,1380,1390,1400.U.... NT(B,
N).5.1410,1420,1430,1440,1450...... NT(B
,N).10.1460,1470,1480,1490,1500......4,N
$,.E.... N.S..(N.S)..4,"
"......N.S..(N.S). .
4,"-------------------------------------
-":.1330.F....2.N.S..(2.N.S)..4,"
"...(..2.N.
S..(2.N.S). .4,"........................
..............."...2..N.B.S.8.1510.!.<..
N.(.F..B.9.P.N$."D":.1280.J.Z.N$."E":.12
80.\.D.N$."F#":.1280.M.N.N$."G":.1280.~.
X.N$."A":.1280.....N$."B":.1280.....N$."
C#":.1280.....N$."D^":.1280.E. .N$."E^":
.1280.X...N$."F#^":.1280.....N$."G^":.12
80.....N$."A^":.1280...H.N$."B^":.1280.!
.R.N$."C#^":.1280.4...N$."D^^":.1280.;..
. 4.A.....R.PC. NO PRINTER...ZC.".......
...".10)"PRINTER NOT ON-LINE..."...DC.DL
.1.3000:.:....NC:...`.. QUIT.M.J..".....
DO YOU REALLY WANT TO QUIT?"...T..198,0
:.198,1:.A$:.A$.."Y".A$.."N".60010...~..
A$."N".20.....:.H....15,8,15,"R0:HELLO C
ONNECT=HELLO CONNECT":.15,ER: 15.V....ER
..63...M...."HELLO CONNECT",8.S.......
> CLICK IMAGE PREVIEW FOR FULL MODAL