Skip to content

Instantly share code, notes, and snippets.

@shirriff
Created September 7, 2019 21:24
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save shirriff/9aa707ddb4c418a2758fb49b439b9963 to your computer and use it in GitHub Desktop.
Save shirriff/9aa707ddb4c418a2758fb49b439b9963 to your computer and use it in GitHub Desktop.
Music program for the IBM 1401, along with frequency cards. Courtesy of Ron Mak.
,008015,022033L067135,1050291001/099H104C104135B101/,0011/001199199 0001MUSIC
,109116,121125,126133/101099 0002MUSIC
,008015,022029,036040,047054,061068,072/061039 ,00100110400003MUSIC
0000000000000,001/000H099L/49089 L032118,092097,100104,10811210400004MUSIC
L/490941C003/53B334SM0996J5B165DL/54354L039157,126127,134139,14615110400005MUSIC
M0756J1A/56094M0660?0H0991L0660?0H099 L037194,165172,179183,18419110400006MUSIC
A/57089C089/59B126U.100 L023217,202209,214040,04004010400007MUSIC
M585099/332/,0052011N372M002005 L031364,341345,346353,35435810400008MUSIC
M/60002B564001XB353001 B503001RL/49089 L038402,372380,388396,04004010400009MUSIC
C0036/1B438SA/56089C089094B403U.100 L035437,410415,422429,43404010400010MUSIC
L6/80?7L/49089A005089A005089A005089 L035472,445452,459466,04004010400011MUSIC
A005089L8‡90A1A/62099B564AB353,002 L034506,480487,494499,50304010400012MUSIC
L/49089A002089A002089A002089A002089⌑002L039545,514521,528535,54204010400013MUSIC
L‡/60?4A/63099B494L5890?4,0?5L/64/99 L036581,553560,564571,57504010400014MUSIC
B/99B590B599B.582B334CB582N L027608,586590,595599,60460810400015MUSIC
1 L0003322 L0003323 L0003324 L033641,612619,622629,63263910400016MUSIC
L0003325 L0003326 L0003327 L000332 L037678,649652,659662,66967210400017MUSIC
8 L0003329 L000332010L000332011 L033711,682689,692699,70270910400018MUSIC
L000332012L000332013L000332014L000332 L037748,719722,729732,73974210400019MUSIC
015L000332016L000332017L000332018 L033781,752759,762769,77277910400020MUSIC
L000332019L000332020L000332NB846 L032813,789792,799802,80981010400021MUSIC
B862B878B894B910B926B942B958 L028841,818822,826830,83483810400022MUSIC
B974H099B854H‡07B994H099B870 L028869,846850,854858,86286610400023MUSIC
H‡07B993H099B886H‡07B992H099 L028897,874878,882886,89089410400024MUSIC
B902H‡07B991H099B918H‡07B990 L028925,902906,910914,91892210400025MUSIC
H099B934H‡07B989H099B950H‡07 L028953,930934,938942,94695010400026MUSIC
B988H099B966H‡07B987H099B982 L028981,958962,966970,97497810400027MUSIC
H‡07222222 L010991,986987,988989,99099110400028MUSIC
222B‡04GB‡08B000FJ L018‡09,993994,995‡00,‡04‡0810400029MUSIC
FJB0?0NB‡53B‡68B‡83B‡98 L023‡32,‡12‡16,‡17‡21,‡25‡2910400030MUSIC
B‡98B/13B/13B/13B/13H099?/67/71 L031‡63,‡37‡41,‡45‡49,‡53‡5710400031MUSIC
B/24H099?/74/71B/24H099?/77/71B/24 L034‡97,‡68‡72,‡79‡83,‡87‡9410400032MUSIC
H099?/81/71B/24H099?/85/71S/86/71 L033/30,/02/09,/13/17,/2404010400033MUSIC
C/50/71B/24UB0?0000AENDB10 L026/56,/38/43,/47/51,/54/5510400034MUSIC
121 114N25? L011/67,/58/60,/61/63,/64/6510400035MUSIC
50?75?100?200?A L019/86,/72/75,/78/82,/8604010400036MUSIC
/100080 0037MUSIC
U I K * T 1 C3 130
1 M 9 ⌑ L 2 C3 130
1 CS3 138
16#UZKP*E&38 2 CS3 138
$ T D X . 1 D3 146
1 K 3 P 0 2 D3 146
K U 3 C M 1 DS3 155
1⌑ * K / 1 B 2 DS3 155
M P * A D I & 1 E3 164
1 / U X ‡ J 2 E3 164
F $ O J M , 1 F3 174
1 / 6 . F A 2 F3 174
A V S F X . 1 FS3 185
1 ⌑ M 5 R O 0 2 FS3 185
H Q Y X 7 E 1 G3 196
1 ⌑ - ‡ Z 9 I 2 G3 196
O F J $ . # , $ 1 GS3 207
1 / J $ 1 # F 6 W 2 GS3 207
$ M V 9 ⌑ E P 1 A3 220
1 2 C Q , ‡ T 4 I 2 A3 220
4 A Q P S M / 0 1 AS3 233
1 Q N S M # 0 7 D 2 AS3 233
- / B V T F X & , 1 B3 246
1 . % 1 O 7 Q Q 9 2 B3 246
# A Y & N 7 * S 1 C4 261
1 & L 5 - @ G Z 4 O 2 C4 261
50TYJO$DI27 1 CS4 277
16#UZKP*E&38 2 CS4 277
$ % T 3 D P X 8 . R 1 D4 293
1 $ K T S 3 F P X 0 . 2 D4 293
P % Z U 8 3 H C - K Z 1 DS4 311
1 E - P K U / 6 1 H * 2 DS4 311
M 2 P - T A DY Z I &K 1 E4 329
1 Q R/ *U V E F‡ J . 2 E4 329
6 F $ M J # 4 . F M , 1 F4 349
1 A O , / Y 6 . F O A , W # 2 F4 349
V 8& A M X9 ⌑ C OY # 2 E 1 FS4 369
1C O Z 2 G ‡ - / 4 G $ K 2 FS4 369
1 HA Q LY T X@ 7 E 2 * 1 G4 392
1 5 ⌑E- N‡ K ZS 9 4I 2 G4 392
O$ F. M J $ F. 6#U , O$ 1 GS4 415
16 /W JO$ F 16# W AF. 6 /W, 2 GS4 415
$7 M V . * 9N ⌑ ZE @ P3 1 A4 440
1 ⌑Y C# 0 Q 3, ‡F R T 4 - , I U 2 A4 440
1 2 Q S . N S H M # G K 0 D J 7 D 2 AS4 466
‡ 4 A X 2 Q W. P S & M / G M 0 D 1 AS4 466
- / A U B V C W V F U G X & Y 1 , 1 B4 493
1 J . % ⌑ L 1 O 4 P 7 Q P 8 Q 9 P @ 2 B4 493
& I *UL 6-I L TK6 I * R % T 1 C5 526
1@ & MCX W 9A⌑M L7W A⌑ J* 7W 2 C5 526
50TYJO$DI27 O$DI27@V‡LQ 1 CS5 554
16#UZKP*E&38 KP*E&38/W,M 2 CS5 554
$6 % F T R1 ‡ D 0 P 1V B 8 K .T R 1 D5 587
1V $3 8 K 0 HT R 3 % F0 P 1 X D8 K . V 2 D5 587
P 7KI Z F U$ 8 O 3 JH V C @ -5 K 2Z 1 DS5 622
1Y 2E - V 7 P 4 KI W D / $6 L 1 ‡ HT * 0 2 DS5 622
MT2 I HPW . Z * A%4 X 5DL ‡ Z 0I &K/ 1 E5 689
1 UH G V Q RY⌑ T 1*U J X6E F‡9 0BJ . 2 E5 689
O 6, F W$ 6M / . D J # 4 A , O.U F#M 6, 1 F5 698
1W A# O 1, F /$ Y 6 O. W F# O A6, . W$ # 2 F5 698
$V K8& V A &M AX9 ⌑OY C # OY2 N#E 2 ‡ E 1 FS5 739
1CZ ⌑O@ CZ O 2 Z /G ‡4- /G 4-% G T $ 6 K I 2 FS5 739
U J # 16 HA Q LY 0T 5&C - N X@ 7 E 2 * K ZS 9 1 G5 783
1 &CQ LY T 5 ⌑E- N‡ X@ 7 2G B MRS , 9 4I $ O 2 G5 783
O$D .5 @ ‡ X N *E& 50 V M J $ F.4 #U , R O E ⌑ 1 GS5 860
16 2 /W JO$ F 4 1 # X% Y P*E ⌑ 0 7 V %N AF. 6 U / , 2 GS5 860
Y$ 9 E/M VQ. B5J 9NH ⌑T$ 6ZE JI@ 3WR 1 A5 880
1U & Y$7 4C#K 8 VQ.S *3, Y7‡F N R⌑TO 4XC * JI@ 1UP 2 A5 880
‡/4 H AMX0 2 Q G J W. 0 DP‡ S 7&AM ‡/4G * MX0 D 3 1 AS5 932
1 @EQ4S J 8. N D ‡ S H 7 AM Y#2 G- KV . 0 D Q S J 7& N D 2 AS5 932
,- 2/%1& A ULB1 VMC 4W VPF5U G - 8XR &9YP * 0 1 ,- 1 B5 987
1@ - J . % T A⌑ UL 1 D S C O 4T PF U 7 Q PI8X Q&9 P ‡ 1@ 2 B5 987
&9 $& VM8 I *UL 7$&K V I8* L UH7 KA TK6 I * SJ H7 %$ 1 C6 1046
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment