INTERMOD
FILE INFORMATION
FILENAME(S): INTERMOD
FILE TYPE(S): PRG
FILE SIZE: 3.4K
FIRST SEEN: 2025-10-20 14:30:51
APPEARS ON: 1 disk(s)
FILE HASH
8cf497fd30e58f2e24f21160557633a897285812d7c583a9d91066d827672e8b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 0047ED | INTERMOD | PRG | Treasure Chest - Klaus Der Suhler | 28 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 45 08 64 00 8F 20 49 4E 54 45 52 4D 4F 44 |..E.d.. INTERMOD| 00000010: 20 42 59 3A 20 57 49 4C 4C 49 41 4D 20 53 54 49 | BY: WILLIAM STI| 00000020: 4E 53 4F 4E 2E 20 20 20 20 20 20 20 20 20 20 20 |NSON. | 00000030: 20 43 36 34 20 4D 4F 44 53 20 31 39 38 33 20 42 | C64 MODS 1983 B| 00000040: 59 20 57 49 4D 00 6B 08 6E 00 97 35 33 32 38 30 |Y WIM.k.n..53280| 00000050: 2C 31 3A 97 35 33 32 38 31 2C 31 3A 97 35 33 32 |,1:.53281,1:.532| 00000060: 37 32 2C 32 31 3A 99 22 98 93 22 00 99 08 78 00 |72,21:.".."...x.| 00000070: 99 22 20 20 20 20 20 20 20 12 49 4E 54 45 52 4D |." .INTERM| 00000080: 4F 44 55 4C 41 54 49 4F 4E 20 44 49 53 54 4F 52 |ODULATION DISTOR| 00000090: 54 49 4F 4E 22 3A 99 3A 99 00 C4 08 82 00 99 22 |TION":.:......."| 000000A0: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 43 41 | THIS PROGRAM CA| 000000B0: 4C 43 55 4C 41 54 45 53 20 49 4D 20 50 52 4F 44 |LCULATES IM PROD| 000000C0: 55 43 54 53 00 F1 08 8C 00 99 22 46 4F 52 20 41 |UCTS......"FOR A| 000000D0: 4C 4C 20 43 4F 4D 42 49 4E 41 54 49 4F 4E 20 4F |LL COMBINATION O| 000000E0: 46 20 46 52 45 51 55 45 4E 43 49 45 53 20 59 4F |F FREQUENCIES YO| 000000F0: 55 00 1E 09 96 00 99 22 49 4E 50 55 54 2E 20 54 |U......"INPUT. T| 00000100: 48 45 20 4D 41 58 49 4D 55 4D 20 46 52 45 51 55 |HE MAXIMUM FREQU| 00000110: 45 4E 43 49 45 53 20 59 4F 55 20 43 41 4E 00 36 |ENCIES YOU CAN.6| 00000120: 09 A0 00 99 22 49 4E 50 55 54 20 41 52 45 20 31 |...."INPUT ARE 1| 00000130: 35 30 2E 22 3A 99 00 5F 09 AA 00 99 22 20 54 48 |50.":.._...." TH| 00000140: 45 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 54 |E PROGRAM WILL T| 00000150: 48 45 4E 20 41 53 4B 20 46 4F 52 20 54 48 45 00 |HEN ASK FOR THE.| 00000160: 8C 09 B4 00 99 22 46 52 45 51 55 45 4E 43 49 45 |....."FREQUENCIE| 00000170: 53 20 54 48 41 54 20 59 4F 55 20 57 41 4E 54 20 |S THAT YOU WANT | 00000180: 54 4F 20 43 48 45 43 4B 20 46 4F 52 00 BA 09 BE |TO CHECK FOR....| 00000190: 00 99 22 49 4D 20 50 52 4F 44 55 43 54 53 2E 20 |.."IM PRODUCTS. | 000001A0: 54 48 45 59 20 43 41 4E 20 42 45 20 41 4E 59 20 |THEY CAN BE ANY | 000001B0: 46 52 45 51 55 45 4E 43 59 2C 00 E8 09 C8 00 99 |FREQUENCY,......| 000001C0: 22 45 49 54 48 45 52 20 49 4E 2D 42 41 4E 44 20 |"EITHER IN-BAND | 000001D0: 4F 52 20 4F 55 54 2D 4F 46 2D 42 41 4E 44 2C 20 |OR OUT-OF-BAND, | 000001E0: 41 4E 44 20 57 49 4C 4C 00 0F 0A D2 00 99 22 42 |AND WILL......"B| 000001F0: 45 20 54 48 45 20 4F 4E 4C 59 20 4F 4E 45 53 20 |E THE ONLY ONES | 00000200: 50 52 49 4E 54 45 44 20 4F 55 54 2E 22 3A 99 00 |PRINTED OUT.":..| 00000210: 3B 0A DC 00 99 22 20 59 4F 55 20 57 49 4C 4C 20 |;...." YOU WILL | 00000220: 54 48 45 4E 20 42 45 20 41 53 4B 45 44 20 48 4F |THEN BE ASKED HO| 00000230: 57 20 43 4C 4F 53 45 20 54 48 45 00 61 0A E6 00 |W CLOSE THE.a...| 00000240: 99 22 48 41 52 4D 4F 4E 49 43 20 4D 55 53 54 20 |."HARMONIC MUST | 00000250: 42 45 20 49 4E 20 4F 52 44 45 52 20 54 4F 20 42 |BE IN ORDER TO B| 00000260: 45 00 76 0A F0 00 99 22 43 4F 4E 53 49 44 45 52 |E.v...."CONSIDER| 00000270: 45 44 2E 22 3A 99 00 A0 0A FA 00 99 22 20 20 20 |ED.":......." | 00000280: 20 20 20 28 50 55 53 48 20 41 4E 59 20 4B 45 59 | (PUSH ANY KEY| 00000290: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 29 22 3A 99 | TO CONTINUE)":.| 000002A0: 00 B3 0A 04 01 A1 41 24 3A 8B 41 24 B2 22 22 A7 |......A$:.A$."".| 000002B0: 32 36 30 00 E5 0A 0E 01 99 22 93 20 20 44 4F 20 |260......". DO | 000002C0: 59 4F 55 20 57 41 4E 54 20 54 4F 20 53 41 56 45 |YOU WANT TO SAVE| 000002D0: 20 54 48 45 20 52 45 53 55 4C 54 53 2E 20 59 20 | THE RESULTS. Y | 000002E0: 4F 52 20 4E 22 00 21 0B 18 01 85 53 24 3A 99 22 |OR N".!....S$:."| 000002F0: 11 4F 4E 20 54 41 50 45 20 4F 52 20 44 49 53 4B |.ON TAPE OR DISK| 00000300: 2E 20 54 20 4F 52 20 44 22 3A 44 56 B2 31 3A 85 |. T OR D":DV.1:.| 00000310: 44 56 24 3A 8B 44 56 24 B2 22 44 22 A7 44 56 B2 |DV$:.DV$."D".DV.| 00000320: 38 00 3C 0B 22 01 8B 53 24 B2 22 59 22 A7 53 24 |8.<."..S$."Y".S$| 00000330: B2 22 53 41 56 45 22 3A 89 33 31 30 00 45 0B 2C |."SAVE":.310.E.,| 00000340: 01 89 33 32 30 00 82 0B 36 01 99 22 57 48 41 54 |..320...6.."WHAT| 00000350: 20 49 53 20 54 48 45 20 46 49 4C 45 20 4E 41 4D | IS THE FILE NAM| 00000360: 45 22 3B 3A 85 54 24 3A 8B 44 56 B2 31 A7 9F 31 |E";:.T$:.DV.1..1| 00000370: 2C 31 2C 31 2C 54 24 3A 98 31 2C 54 24 3A 89 33 |,1,1,T$:.1,T$:.3| 00000380: 31 38 00 9D 0B 3B 01 9F 31 2C 38 2C 37 2C 54 24 |18...;..1,8,7,T$| 00000390: AA 22 2C 50 2C 57 22 3A 98 31 2C 54 24 00 A7 0B |.",P,W":.1,T$...| 000003A0: 3E 01 8D 31 33 33 30 00 B3 0B 40 01 86 46 28 31 |>..1330...@..F(1| 000003B0: 35 30 29 00 EC 0B 4A 01 41 B2 31 3A 50 B2 30 3A |50)...J.A.1:P.0:| 000003C0: 4A 24 B2 22 2A 2A 2A 2A 20 4E 4F 20 48 49 54 53 |J$."**** NO HITS| 000003D0: 20 2A 2A 2A 2A 22 3A 48 B2 31 3A 4A B2 31 35 30 | ****":H.1:J.150| 000003E0: 3A 4B B2 30 3A 4C B2 32 3A 4D B2 33 00 0A 0C 54 |:K.0:L.2:M.3...T| 000003F0: 01 53 B2 2E 35 3A 42 31 B2 32 30 3A 86 57 28 34 |.S..5:B1.20:.W(4| 00000400: 30 29 3A 4F B2 31 30 30 30 30 00 3E 0C 5E 01 43 |0):O.10000.>.^.C| 00000410: 31 B2 34 30 3A 99 22 93 49 4E 50 55 54 20 41 4C |1.40:.".INPUT AL| 00000420: 4C 20 46 52 45 51 55 45 4E 43 49 45 53 20 54 4F |L FREQUENCIES TO| 00000430: 20 42 45 20 43 4F 4E 53 49 44 45 52 45 44 00 65 | BE CONSIDERED.e| 00000440: 0C 68 01 99 22 28 49 4E 20 4D 48 5A 2E 29 2C 28 |.h.."(IN MHZ.),(| 00000450: 31 35 30 20 46 52 45 51 55 45 4E 43 49 45 53 20 |150 FREQUENCIES | 00000460: 4D 41 58 29 2E 00 85 0C 72 01 99 22 4D 41 4B 45 |MAX)....r.."MAKE| 00000470: 20 59 4F 55 52 20 4C 41 53 54 20 45 4E 54 52 59 | YOUR LAST ENTRY| 00000480: 20 27 30 27 2E 00 B4 0C 7C 01 85 46 28 41 29 3A | '0'....|..F(A):| 00000490: 54 24 B2 C4 28 46 28 41 29 29 3A 8D 31 34 32 30 |T$..(F(A)):.1420| 000004A0: 3A 8B 46 28 41 29 B3 B1 30 A7 41 B2 41 AA 48 3A |:.F(A)..0.A.A.H:| 000004B0: 89 33 38 30 00 DB 0C 86 01 99 3A 99 22 20 50 4C |.380......:." PL| 000004C0: 45 41 53 45 20 45 4E 54 45 52 20 54 48 45 20 48 |EASE ENTER THE H| 000004D0: 41 52 4D 4F 4E 49 43 53 20 4F 52 00 03 0D 90 01 |ARMONICS OR.....| 000004E0: 99 22 46 52 45 51 55 45 4E 43 49 45 53 20 59 4F |."FREQUENCIES YO| 000004F0: 55 20 41 52 45 20 49 4E 54 45 52 45 53 54 45 44 |U ARE INTERESTED| 00000500: 20 49 4E 00 19 0D 9A 01 99 22 28 30 20 57 48 45 | IN......"(0 WHE| 00000510: 4E 20 44 4F 4E 45 20 29 2E 00 26 0D A4 01 81 45 |N DONE )..&....E| 00000520: 31 B2 48 A4 43 31 00 43 0D AE 01 85 57 28 45 31 |1.H.C1.C....W(E1| 00000530: 29 3A 54 24 B2 C4 28 57 28 45 31 29 29 3A 8D 31 |):T$..(W(E1)):.1| 00000540: 34 32 30 00 54 0D B8 01 8B 57 28 45 31 29 B2 4B |420.T....W(E1).K| 00000550: 89 34 36 30 00 5C 0D C2 01 82 45 31 00 93 0D CC |.460.\....E1....| 00000560: 01 99 3A 85 22 57 49 54 48 49 4E 20 48 4F 57 20 |..:."WITHIN HOW | 00000570: 4D 41 4E 59 20 4B 48 5A 2E 22 3B 51 3A 54 24 B2 |MANY KHZ.";Q:T$.| 00000580: C4 28 51 29 3A 8D 31 34 32 30 3A 51 B2 51 AC 2E |.(Q):.1420:Q.Q..| 00000590: 30 30 31 00 BB 0D D6 01 99 3A 99 22 20 20 57 4F |001......:." WO| 000005A0: 52 4B 49 4E 47 2D 2D 2D 2D 22 3A 99 3A 54 49 24 |RKING----":.:TI$| 000005B0: B2 22 30 30 30 30 30 30 22 3A 99 00 E2 0D E0 01 |."000000":......| 000005C0: 99 22 46 52 45 51 55 45 4E 43 59 20 20 A5 20 50 |."FREQUENCY . P| 000005D0: 52 4F 44 55 43 54 20 20 A5 20 46 4F 52 4D 55 4C |RODUCT . FORMUL| 000005E0: 41 22 00 09 0E EA 01 99 22 A3 A3 A3 A3 A3 A3 A3 |A"......".......| 000005F0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................| 00000600: A3 A3 A3 A3 A3 A3 A3 A3 22 00 14 0E F4 01 81 42 |........"......B| 00000610: B2 48 A4 4A 00 23 0E FE 01 81 43 B2 28 42 AA 48 |.H.J.#....C.(B.H| 00000620: 29 A4 4A 00 33 0E 08 02 8B 46 28 42 29 B2 4B A7 |).J.3....F(B).K.| 00000630: 37 30 30 00 42 0E 12 02 8B 46 28 43 29 B2 4B A7 |700.B....F(C).K.| 00000640: 82 42 00 5D 0E 1C 02 8B 46 28 42 29 B1 46 28 43 |.B.]....F(B).F(C| 00000650: 29 A7 58 B2 46 28 43 29 3A 89 35 36 30 00 6F 0E |).X.F(C):.560.o.| 00000660: 26 02 58 B2 46 28 43 29 3A 59 B2 46 28 42 29 00 |&.X.F(C):Y.F(B).| 00000670: 8C 0E 30 02 4E B2 28 4C AC 58 29 AB 59 3A 8D 38 |..0.N.(L.X).Y:.8| 00000680: 32 30 3A 50 37 B2 31 3A 8D 39 36 30 00 AD 0E 3A |20:P7.1:.960...:| 00000690: 02 4E B2 28 4D AC 58 29 AB 28 4C AC 59 29 3A 8D |.N.(M.X).(L.Y):.| 000006A0: 38 32 30 3A 50 37 B2 32 3A 8D 39 36 30 00 CA 0E |820:P7.2:.960...| 000006B0: 44 02 4E B2 28 4C AC 59 29 AB 58 3A 8D 38 32 30 |D.N.(L.Y).X:.820| 000006C0: 3A 50 37 B2 33 3A 8D 39 36 30 00 EB 0E 4E 02 4E |:P7.3:.960...N.N| 000006D0: B2 28 4C AC 58 29 AA 28 4D AC 59 29 3A 8D 38 32 |.(L.X).(M.Y):.82| 000006E0: 30 3A 50 37 B2 34 3A 8D 39 36 30 00 0C 0F 58 02 |0:P7.4:.960...X.| 000006F0: 4E B2 28 4D AC 59 29 AB 28 4C AC 58 29 3A 8D 38 |N.(M.Y).(L.X):.8| 00000700: 32 30 3A 50 37 B2 35 3A 8D 39 36 30 00 2D 0F 62 |20:P7.5:.960.-.b| 00000710: 02 4E B2 28 4C AC 58 29 AB 28 4D AC 59 29 3A 8D |.N.(L.X).(M.Y):.| 00000720: 38 32 30 3A 50 37 B2 36 3A 8D 39 36 30 00 4A 0F |820:P7.6:.960.J.| 00000730: 6C 02 4E B2 28 4C AC 58 29 AA 59 3A 8D 38 32 30 |l.N.(L.X).Y:.820| 00000740: 3A 50 37 B2 37 3A 8D 39 36 30 00 59 0F 76 02 81 |:P7.7:.960.Y.v..| 00000750: 44 B2 28 43 AA 48 29 A4 4A 00 6C 0F 80 02 5A B2 |D.(C.H).J.l...Z.| 00000760: 46 28 44 29 3A 8B 5A B2 30 A7 82 43 00 88 0F 8A |F(D):.Z.0..C....| 00000770: 02 4E B2 58 AA 59 AB 5A 3A 8D 38 32 30 3A 50 37 |.N.X.Y.Z:.820:P7| 00000780: B2 38 3A 8D 31 31 34 30 00 A4 0F 94 02 4E B2 58 |.8:.1140.....N.X| 00000790: AA 5A AB 59 3A 8D 38 32 30 3A 50 37 B2 39 3A 8D |.Z.Y:.820:P7.9:.| 000007A0: 31 31 34 30 00 C1 0F 9E 02 4E B2 58 AA 59 AA 5A |1140.....N.X.Y.Z| 000007B0: 3A 8D 38 32 30 3A 50 37 B2 31 30 3A 8D 31 31 34 |:.820:P7.10:.114| 000007C0: 30 00 DE 0F A8 02 4E B2 5A AA 59 AB 58 3A 8D 38 |0.....N.Z.Y.X:.8| 000007D0: 32 30 3A 50 37 B2 31 31 3A 8D 31 31 34 30 00 E5 |20:P7.11:.1140..| 000007E0: 0F B2 02 82 44 00 F2 0F BC 02 8B 50 B2 48 89 37 |....D......P.H.7| 000007F0: 35 30 00 FF 0F C6 02 81 54 31 B2 31 A4 32 30 00 |50......T1.1.20.| 00000800: 12 10 D0 02 99 4A 24 3A 81 54 B2 31 A4 32 30 3A |.....J$:.T.1.20:| 00000810: 82 54 00 2E 10 DA 02 99 22 91 12 22 3B 4A 24 3B |.T......"..";J$;| 00000820: 22 92 22 3A 81 54 B2 31 A4 32 30 3A 82 54 00 3C |".":.T.1.20:.T.<| 00000830: 10 E4 02 99 22 91 22 3B 3A 82 54 31 00 6A 10 EE |....".";:.T1.j..| 00000840: 02 54 31 24 B2 C8 28 54 49 24 2C 32 29 3A 54 32 |.T1$..(TI$,2):T2| 00000850: 24 B2 CA 28 54 49 24 2C 33 2C 32 29 3A 54 33 24 |$..(TI$,3,2):T3$| 00000860: B2 C9 28 54 49 24 2C 32 29 3A 00 9C 10 F8 02 4E |..(TI$,2):.....N| 00000870: B2 28 C5 28 54 31 24 29 AC 36 30 29 AA 28 C5 28 |.(.(T1$).60).(.(| 00000880: 54 32 24 29 29 AA 28 C5 28 54 33 24 29 AD 36 30 |T2$)).(.(T3$).60| 00000890: 29 3A 4F B2 31 30 30 3A 8D 38 32 30 00 C7 10 02 |):O.100:.820....| 000008A0: 03 99 22 11 54 4F 54 41 4C 20 54 49 4D 45 20 3D |..".TOTAL TIME =| 000008B0: 22 3B 4E 3B 22 4D 49 4E 2E 22 3A 85 22 41 47 41 |";N;"MIN.":."AGA| 000008C0: 49 4E 20 22 3B 59 24 00 DF 10 0C 03 8B C8 28 59 |IN ";Y$.......(Y| 000008D0: 24 2C 31 29 B2 22 59 22 A7 9C 3A 89 33 33 30 00 |$,1)."Y"..:.330.| 000008E0: F3 10 16 03 8B 53 24 B3 B1 22 53 41 56 45 22 A7 |.....S$.."SAVE".| 000008F0: 38 31 30 00 03 11 20 03 98 31 2C 22 45 4E 44 22 |810... ..1,"END"| 00000900: 3A A0 31 00 09 11 2A 03 80 00 29 11 34 03 8F 20 |:.1...*...).4.. | 00000910: 52 4F 55 4E 44 20 54 4F 20 33 20 44 45 43 49 4D |ROUND TO 3 DECIM| 00000920: 41 4C 20 50 4C 41 43 45 53 00 3A 11 3E 03 4E B2 |AL PLACES.:.>.N.| 00000930: B5 28 4E AC 4F AA 53 29 AD 4F 00 40 11 48 03 8E |.(N.O.S).O.@.H..| 00000940: 00 5A 11 52 03 59 24 B2 22 9D 20 40 20 28 32 41 |.Z.R.Y$.". @ (2A| 00000950: 2D 42 29 22 3A 99 59 24 3A 8E 00 75 11 5C 03 59 |-B)":.Y$:..u.\.Y| 00000960: 24 B2 22 9D 20 40 20 28 33 41 2D 32 42 29 22 3A |$.". @ (3A-2B)":| 00000970: 99 59 24 3A 8E 00 8F 11 66 03 59 24 B2 22 9D 20 |.Y$:....f.Y$.". | 00000980: 40 20 28 32 42 2D 41 29 22 3A 99 59 24 3A 8E 00 |@ (2B-A)":.Y$:..| 00000990: AA 11 70 03 59 24 B2 22 9D 20 40 20 28 32 41 2B |..p.Y$.". @ (2A+| 000009A0: 33 42 29 22 3A 99 59 24 3A 8E 00 C5 11 7A 03 59 |3B)":.Y$:....z.Y| 000009B0: 24 B2 22 9D 20 40 20 28 33 42 2D 32 41 29 22 3A |$.". @ (3B-2A)":| 000009C0: 99 59 24 3A 8E 00 E0 11 84 03 59 24 B2 22 9D 20 |.Y$:......Y$.". | 000009D0: 40 20 28 32 41 2D 33 42 29 22 3A 99 59 24 3A 8E |@ (2A-3B)":.Y$:.| 000009E0: 00 FA 11 8E 03 59 24 B2 22 9D 20 40 20 28 32 41 |.....Y$.". @ (2A| 000009F0: 2B 42 29 22 3A 99 59 24 3A 8E 00 15 12 98 03 59 |+B)":.Y$:......Y| 00000A00: 24 B2 22 9D 20 40 20 28 41 2B 42 2D 43 29 22 3A |$.". @ (A+B-C)":| 00000A10: 99 59 24 3A 8E 00 30 12 A2 03 59 24 B2 22 9D 20 |.Y$:..0...Y$.". | 00000A20: 40 20 28 41 2B 43 2D 42 29 22 3A 99 59 24 3A 8E |@ (A+C-B)":.Y$:.| 00000A30: 00 4B 12 AC 03 59 24 B2 22 9D 20 40 20 28 41 2B |.K...Y$.". @ (A+| 00000A40: 42 2B 43 29 22 3A 99 59 24 3A 8E 00 66 12 B6 03 |B+C)":.Y$:..f...| 00000A50: 59 24 B2 22 9D 20 40 20 28 42 2B 43 2D 41 29 22 |Y$.". @ (B+C-A)"| 00000A60: 3A 99 59 24 3A 8E 00 83 12 C0 03 8F 20 43 48 45 |:.Y$:....... CHE| 00000A70: 43 4B 20 46 4F 52 20 42 41 44 20 48 41 52 4D 4F |CK FOR BAD HARMO| 00000A80: 4E 49 43 00 90 12 CA 03 81 44 31 B2 48 A4 43 31 |NIC......D1.H.C1| 00000A90: 00 A4 12 D4 03 8B 57 28 44 31 29 B2 4B A7 3A 89 |......W(D1).K.:.| 00000AA0: 31 30 31 30 00 C6 12 DE 03 8B 4E B1 28 57 28 44 |1010......N.(W(D| 00000AB0: 31 29 AB 51 29 AF 4E B3 28 57 28 44 31 29 AA 51 |1).Q).N.(W(D1).Q| 00000AC0: 29 89 31 30 32 30 00 CE 12 E8 03 82 44 31 00 D4 |).1020......D1..| 00000AD0: 12 F2 03 8E 00 DA 12 FC 03 8F 00 F4 12 06 04 99 |................| 00000AE0: 22 12 22 3B 57 28 44 31 29 3B 22 9D 20 3C 3D 3E |".";W(D1);". <=>| 00000AF0: 22 3B 4E 3B 00 28 13 10 04 91 50 37 8D 38 35 30 |";N;.(....P7.850| 00000B00: 2C 38 36 30 2C 38 37 30 2C 38 38 30 2C 38 39 30 |,860,870,880,890| 00000B10: 2C 39 30 30 2C 39 31 30 2C 39 32 30 2C 39 33 30 |,900,910,920,930| 00000B20: 2C 39 34 30 2C 39 35 30 00 44 13 1A 04 99 22 20 |,940,950.D...." | 00000B30: 20 20 20 20 20 20 22 58 3B 22 9D 20 C0 22 3B 59 | "X;". .";Y| 00000B40: 3A 50 B2 31 00 59 13 24 04 8B 53 24 B3 B1 22 53 |:P.1.Y.$..S$.."S| 00000B50: 41 56 45 22 A7 31 30 31 30 00 78 13 2E 04 98 31 |AVE".1010.x....1| 00000B60: 2C 57 28 44 31 29 3A 54 24 B2 C4 28 57 28 44 31 |,W(D1):T$..(W(D1| 00000B70: 29 29 3A 8D 31 33 33 30 00 8F 13 38 04 98 31 2C |)):.1330...8..1,| 00000B80: 4E 3A 54 24 B2 C4 28 4E 29 3A 8D 31 33 33 30 00 |N:T$..(N):.1330.| 00000B90: A5 13 42 04 98 31 2C 59 24 3A 54 24 B2 59 24 3A |..B..1,Y$:T$.Y$:| 00000BA0: 8D 31 33 33 30 00 BC 13 4C 04 98 31 2C 58 3A 54 |.1330...L..1,X:T| 00000BB0: 24 B2 C4 28 58 29 3A 8D 31 33 33 30 00 D3 13 56 |$..(X):.1330...V| 00000BC0: 04 98 31 2C 59 3A 54 24 B2 C4 28 59 29 3A 8D 31 |..1,Y:T$..(Y):.1| 00000BD0: 33 33 30 00 EA 13 60 04 98 31 2C 5A 3A 54 24 B2 |330...`..1,Z:T$.| 00000BE0: C4 28 5A 29 3A 8D 31 33 33 30 00 F4 13 6A 04 89 |.(Z):.1330...j..| 00000BF0: 31 30 31 30 00 11 14 74 04 8F 20 43 48 45 43 4B |1010...t.. CHECK| 00000C00: 20 46 4F 52 20 42 41 44 20 48 41 52 4D 4F 4E 49 | FOR BAD HARMONI| 00000C10: 43 00 1E 14 7E 04 81 44 31 B2 48 A4 43 31 00 32 |C...~..D1.H.C1.2| 00000C20: 14 88 04 8B 57 28 44 31 29 B2 4B A7 3A 89 31 31 |....W(D1).K.:.11| 00000C30: 39 30 00 54 14 92 04 8B 4E B1 28 57 28 44 31 29 |90.T....N.(W(D1)| 00000C40: AB 51 29 AF 4E B3 28 57 28 44 31 29 AA 51 29 89 |.Q).N.(W(D1).Q).| 00000C50: 31 32 30 30 00 5C 14 9C 04 82 44 31 00 62 14 A6 |1200.\....D1.b..| 00000C60: 04 8E 00 68 14 B0 04 8F 00 79 14 BA 04 55 B2 B6 |...h.....y...U..| 00000C70: 28 57 28 44 31 29 AB 4E 29 00 93 14 C4 04 99 22 |(W(D1).N)......"| 00000C80: 12 22 3B 57 28 44 31 29 3B 22 9D 20 3C 3D 3E 22 |.";W(D1);". <=>"| 00000C90: 3B 4E 3B 00 C7 14 CE 04 91 50 37 8D 38 35 30 2C |;N;......P7.850,| 00000CA0: 38 36 30 2C 38 37 30 2C 38 38 30 2C 38 39 30 2C |860,870,880,890,| 00000CB0: 39 30 30 2C 39 31 30 2C 39 32 30 2C 39 33 30 2C |900,910,920,930,| 00000CC0: 39 34 30 2C 39 35 30 00 EB 14 D8 04 99 22 20 20 |940,950......" | 00000CD0: 20 20 20 20 20 22 58 3B 22 9D 20 C0 22 3B 59 3B | "X;". .";Y;| 00000CE0: 22 9D 20 C0 22 3B 5A 3A 50 B2 31 00 00 15 E2 04 |". .";Z:P.1.....| 00000CF0: 8B 53 24 B3 B1 22 53 41 56 45 22 A7 31 31 39 30 |.S$.."SAVE".1190| 00000D00: 00 1F 15 EC 04 98 31 2C 57 28 44 31 29 3A 54 24 |......1,W(D1):T$| 00000D10: B2 C4 28 57 28 44 31 29 29 3A 8D 31 33 33 30 00 |..(W(D1)):.1330.| 00000D20: 36 15 F6 04 98 31 2C 4E 3A 54 24 B2 C4 28 4E 29 |6....1,N:T$..(N)| 00000D30: 3A 8D 31 33 33 30 00 4C 15 00 05 98 31 2C 59 24 |:.1330.L....1,Y$| 00000D40: 3A 54 24 B2 59 24 3A 8D 31 33 33 30 00 63 15 0A |:T$.Y$:.1330.c..| 00000D50: 05 98 31 2C 58 3A 54 24 B2 C4 28 58 29 3A 8D 31 |..1,X:T$..(X):.1| 00000D60: 33 33 30 00 7A 15 14 05 98 31 2C 59 3A 54 24 B2 |330.z....1,Y:T$.| 00000D70: C4 28 59 29 3A 8D 31 33 33 30 00 91 15 1E 05 98 |.(Y):.1330......| 00000D80: 31 2C 5A 3A 54 24 B2 C4 28 5A 29 3A 8D 31 33 33 |1,Z:T$..(Z):.133| 00000D90: 30 00 9B 15 28 05 89 31 31 39 30 00 A1 15 32 05 |0...(..1190...2.| 00000DA0: 8E 00 A7 15 8C 05 8E 00 00 00 |.......... |
..E.D.. INTERMOD BY: WILLIAM STINSON.
C64 MODS 1983 BY WIM.K.N..53280
,1:.53281,1:.53272,21:.".."...X.."
.INTERMODULATION DISTORTION":.:..D...."
THIS PROGRAM CALCULATES IM PRODUCTS....
.."FOR ALL COMBINATION OF FREQUENCIES YO
U......"INPUT. THE MAXIMUM FREQUENCIES Y
OU CAN.6. .."INPUT ARE 150.":.._...." TH
E PROGRAM WILL THEN ASK FOR THE......"FR
EQUENCIES THAT YOU WANT TO CHECK FOR....
.."IM PRODUCTS. THEY CAN BE ANY FREQUENC
Y,...H.."EITHER IN-BAND OR OUT-OF-BAND,
AND WILL...R.."BE THE ONLY ONES PRINTED
OUT.":..;...." YOU WILL THEN BE ASKED HO
W CLOSE THE.A...."HARMONIC MUST BE IN OR
DER TO BE.V...."CONSIDERED.":.. ...."
(PUSH ANY KEY TO CONTINUE)":.......A$
:.A$."".260......". DO YOU WANT TO SAVE
THE RESULTS. Y OR N".!....S$:.".ON TAPE
OR DISK. T OR D":DV.1:.DV$:.DV$."D".DV.
8.<."..S$."Y".S$."SAVE":.310.E.,..320...
6.."WHAT IS THE FILE NAME";:.T$:.DV.1..1
,1,1,T$:.1,T$:.318...;..1,8,7,T$.",P,W":
.1,T$...>..1330...@..F(150)...J.A.1:P.0:
J$."**** NO HITS ****":H.1:J.150:K.0:L.2
:M.3...T.S..5:B1.20:.W(40):O.10000.>.^.C
1.40:.".INPUT ALL FREQUENCIES TO BE CONS
IDERED.E.H.."(IN MHZ.),(150 FREQUENCIES
MAX)....R.."MAKE YOUR LAST ENTRY '0'....
|..F(A):T$.D(F(A)):.1420:.F(A)..0.A.A.H:
.380......:." PLEASE ENTER THE HARMONICS
OR......"FREQUENCIES YOU ARE INTERESTED
IN......"(0 WHEN DONE )..&....E1.H.C1.C
....W(E1):T$.D(W(E1)):.1420.T....W(E1).K
.460.\.B..E1...L..:."WITHIN HOW MANY KHZ
.";Q:T$.D(Q):.1420:Q.Q..001...V..:." WO
RKING----":.:TI$."000000":......."FREQUE
NCY . PRODUCT . FORMULA"......".......
........................"......B.H.J.#..
..C.(B.H).J.3....F(B).K.700.B....F(C).K.
.B.]....F(B).F(C).X.F(C):.560.O.&.X.F(C)
:Y.F(B)...0.N.(L.X).Y:.820:P7.1:.960...:
.N.(M.X).(L.Y):.820:P7.2:.960.J.D.N.(L.Y
).X:.820:P7.3:.960...N.N.(L.X).(M.Y):.82
0:P7.4:.960...X.N.(M.Y).(L.X):.820:P7.5:
.960.-.B.N.(L.X).(M.Y):.820:P7.6:.960.J.
L.N.(L.X).Y:.820:P7.7:.960.Y.V..D.(C.H).
J.L...Z.F(D):.Z.0..C.....N.X.Y.Z:.820:P7
.8:.1140.....N.X.Z.Y:.820:P7.9:.1140.A..
.N.X.Y.Z:.820:P7.10:.1140.....N.Z.Y.X:.8
20:P7.11:.1140......D......P.H.750...F..
T1.1.20...P..J$:.T.1.20:.T...Z.."..";J$;
".":.T.1.20:.T.<....".";:.T1.J...T1$.H(T
I$,2):T2$.J(TI$,3,2):T3$.I(TI$,2):.....N
.(E(T1$).60).(E(T2$)).(E(T3$).60):O.100:
.820.G....".TOTAL TIME =";N;"MIN.":."AGA
IN ";Y$......H(Y$,1)."Y"..:.330......S$.
."SAVE".810... ..1,"END": 1...*...).4..
ROUND TO 3 DECIMAL PLACES.:.>.N..(N.O.S)
.O.@.H...Z.R.Y$.". @ (2A-B)":.Y$:..U.\.Y
$.". @ (3A-2B)":.Y$:....F.Y$.". @ (2B-A)
":.Y$:....P.Y$.". @ (2A+3B)":.Y$:..E.Z.Y
$.". @ (3B-2A)":.Y$:......Y$.". @ (2A-3B
)":.Y$:......Y$.". @ (2A+B)":.Y$:......Y
$.". @ (A+B-C)":.Y$:..0...Y$.". @ (A+C-B
)":.Y$:..K...Y$.". @ (A+B+C)":.Y$:..F...
Y$.". @ (B+C-A)":.Y$:....... CHECK FOR B
AD HARMONIC...J..D1.H.C1...T..W(D1).K.:.
1010.F....N.(W(D1).Q).N.(W(D1).Q).1020.N
....D1.T.....Z..........".";W(D1);". <=>
";N;.(....P7.850,860,870,880,890,900,910
,920,930,940,950.D...." "X;". .";Y
:P.1.Y.$..S$.."SAVE".1010.X....1,W(D1):T
$.D(W(D1)):.1330...8..1,N:T$.D(N):.1330.
..B..1,Y$:T$.Y$:.1330...L..1,X:T$.D(X):.
1330.S.V..1,Y:T$.D(Y):.1330...`..1,Z:T$.
D(Z):.1330...J..1010...T.. CHECK FOR BAD
HARMONIC...~..D1.H.C1.2....W(D1).K.:.11
90.T....N.(W(D1).Q).N.(W(D1).Q).1200.\..
..D1.B.....H.....Y...U..(W(D1).N)...D.."
.";W(D1);". <=>";N;.G.N..P7.850,860,870,
880,890,900,910,920,930,940,950...X.."
"X;". .";Y;". .";Z:P.1......S$.."SA
VE".1190......1,W(D1):T$.D(W(D1)):.1330.
6....1,N:T$.D(N):.1330.L....1,Y$:T$.Y$:.
1330.C....1,X:T$.D(X):.1330.Z....1,Y:T$.
D(Y):.1330......1,Z:T$.D(Z):.1330...(..1
190...2...........
> CLICK IMAGE PREVIEW FOR FULL MODAL