Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
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
You can’t perform that action at this time.