POLAR-PLOT
FILE INFORMATION
FILENAME(S): POLAR-PLOT
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-11-30 21:14:26
APPEARS ON: 1 disk(s)
FILE HASH
364a29b25ca73e16f5f2b6cb31f7df0c06850f95d60078989eaa1c41dbd7e091
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| NIEUW | POLAR-PLOT | PRG | DuncanTwain | 27 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 10 08 05 00 99 22 93 22 2C C7 28 31 34 29 |.......".",.(14)| 00000010: 00 3B 08 0A 00 64 23 22 12 20 CB C5 36 C8 A0 D0 |.;...d#". ..6...| 00000020: CF CC C1 D2 A0 D0 CC CF D4 A0 CD CF C4 C5 CC C9 |................| 00000030: CE C7 A0 D0 C7 CD 20 92 22 3A 99 00 76 08 0F 00 |...... .":..v...| 00000040: 85 22 11 D0 4F 4C 41 52 49 5A 41 54 49 4F 4E 3A |."..OLARIZATION:| 00000050: 20 D6 20 4F 52 20 C8 22 3B 50 24 3A 8B 20 50 24 | . OR .";P$:. P$| 00000060: B2 22 56 22 B0 50 24 B2 22 48 22 A7 20 32 30 3A |."V".P$."H". 20:| 00000070: 64 47 3A 89 31 35 00 AD 08 14 00 85 22 25 C6 55 |dG:.15......"%.U| 00000080: 4C 4C 20 53 43 41 4C 45 20 4F 46 20 D2 45 46 20 |LL SCALE OF .EF | 00000090: C5 4C 45 4D 45 4E 54 3D 22 3B 41 31 3A 41 31 B2 |.LEMENT=";A1:A1.| 000000A0: 41 31 AC 2E 34 3A 4E B2 31 3A 89 39 30 00 C6 08 |A1..4:N.1:.90...| 000000B0: 19 00 64 23 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..d#"***********| 000000C0: 2A 2A 2A 22 3A 99 00 E7 08 1E 00 4E B2 4E AA 31 |***":......N.N.1| 000000D0: 3A 99 22 12 C5 4C 45 4D 45 4E 54 20 4E 4F 3D 22 |:."..LEMENT NO="| 000000E0: 3B 4E 3A 4E 32 B2 4E 00 14 09 28 00 85 22 11 25 |;N:N2.N...(..".%| 000000F0: 20 C6 55 4C 4C 20 53 43 41 4C 45 22 3B 41 28 4E | .ULL SCALE";A(N| 00000100: 2C 31 29 3A 42 28 4E 2C 31 29 B2 41 28 4E 2C 31 |,1):B(N,1).A(N,1| 00000110: 29 AC 2E 34 00 4F 09 32 00 85 22 D3 50 41 43 49 |)..4.O.2..".PACI| 00000120: 4E 47 20 49 4E 20 D7 41 56 45 4C 45 4E 47 48 54 |NG IN .AVELENGHT| 00000130: 53 22 3B 41 28 4E 2C 32 29 3A 42 28 4E 2C 32 29 |S";A(N,2):B(N,2)| 00000140: B2 41 28 4E 2C 32 29 AC 36 2E 32 38 33 31 39 00 |.A(N,2).6.28319.| 00000150: 92 09 3C 00 85 22 C1 4E 47 4C 45 20 54 4F 20 45 |..<..".NGLE TO E| 00000160: 4C 45 4D 2E 46 52 4F 4D 20 52 45 46 2E 28 44 45 |LEM.FROM REF.(DE| 00000170: 47 2E 29 22 3B 41 28 4E 2C 33 29 3A 42 28 4E 2C |G.)";A(N,3):B(N,| 00000180: 33 29 B2 41 28 4E 2C 33 29 AC 2E 30 31 37 34 35 |3).A(N,3)..01745| 00000190: 33 33 00 DD 09 46 00 85 22 D0 48 41 53 45 20 44 |33...F..".HASE D| 000001A0: 45 4C 41 59 28 57 41 56 45 4C 45 4E 47 48 54 53 |ELAY(WAVELENGHTS| 000001B0: 29 22 3B 41 28 4E 2C 34 29 3A 41 28 4E 2C 34 29 |)";A(N,4):A(N,4)| 000001C0: B2 41 28 4E 2C 34 29 3A 42 28 4E 2C 34 29 B2 41 |.A(N,4):B(N,4).A| 000001D0: 28 4E 2C 34 29 AC 36 2E 32 38 33 31 39 00 FF 09 |(N,4).6.28319...| 000001E0: 5A 00 99 22 CD 4F 52 45 20 45 4C 45 4D 45 4E 54 |Z..".ORE ELEMENT| 000001F0: 53 28 D9 20 4F 52 20 CE 29 22 3A 8D 38 30 30 00 |S(. OR .)":.800.| 00000200: 0F 0A 64 00 8B 20 41 24 B2 22 59 22 A7 32 35 00 |..d.. A$."Y".25.| 00000210: 26 0A 69 00 8B 41 24 B2 22 4E 22 A7 20 64 33 20 |&.i..A$."N". d3 | 00000220: 50 48 41 53 45 53 00 31 0A 90 01 99 C7 28 31 34 |PHASES.1.....(14| 00000230: 29 00 54 0A 95 01 99 22 D6 45 52 49 46 59 20 C4 |).T....".ERIFY .| 00000240: 41 54 41 20 28 20 D9 20 4F 52 20 CE 20 29 22 3A |ATA ( . OR . )":| 00000250: 8D 38 30 30 00 6E 0A 9A 01 8B 41 24 B2 22 59 22 |.800.n....A$."Y"| 00000260: A7 20 8D 35 30 30 3A 64 47 3A 89 35 36 31 00 76 |. .500:dG:.561.v| 00000270: 0A F4 01 4E B2 32 00 9E 0A F9 01 99 22 93 22 3A |...N.2......".":| 00000280: 99 22 C1 31 20 3D 20 22 3B 41 31 AC 32 2E 35 3B |.".1 = ";A1.2.5;| 00000290: 22 25 20 C6 55 4C 4C 20 D3 43 41 4C 45 22 00 AA |"% .ULL .CALE"..| 000002A0: 0A FA 01 81 4E B2 31 A4 4E 32 00 D6 0A FE 01 8D |....N.1.N2......| 000002B0: 37 30 30 3A 99 22 C1 22 3B 4E 24 22 20 3D 20 22 |700:.".";N$" = "| 000002C0: 3B 41 28 4E 2C 31 29 3B 22 25 20 46 55 4C 4C 20 |;A(N,1);"% FULL | 000002D0: 53 43 41 4C 45 22 00 10 0B 08 02 99 22 D3 22 3B |SCALE"......".";| 000002E0: 4E 24 3B 22 20 3D 20 22 3B 41 28 4E 2C 32 29 3B |N$;" = ";A(N,2);| 000002F0: 22 57 41 56 45 4C 45 4E 47 48 54 20 4F 52 22 3B |"WAVELENGHT OR";| 00000300: 42 28 4E 2C 32 29 3B 22 52 41 44 49 41 4E 53 22 |B(N,2);"RADIANS"| 00000310: 00 47 0B 12 02 99 22 D0 22 3B 4E 24 3B 22 20 3D |.G....".";N$;" =| 00000320: 20 22 3B 41 28 4E 2C 33 29 3B 22 44 45 47 52 45 | ";A(N,3);"DEGRE| 00000330: 45 53 20 4F 52 22 3B 42 28 4E 2C 33 29 3B 22 52 |ES OR";B(N,3);"R| 00000340: 41 44 49 41 4E 53 22 00 81 0B 1C 02 99 22 C4 22 |ADIANS"......"."| 00000350: 3B 4E 24 3B 22 20 3D 20 22 3B 41 28 4E 2C 34 29 |;N$;" = ";A(N,4)| 00000360: 3B 22 57 41 56 45 4C 45 4E 47 48 54 20 4F 52 22 |;"WAVELENGHT OR"| 00000370: 3B 42 28 4E 2C 34 29 3B 22 52 41 44 49 41 4E 53 |;B(N,4);"RADIANS| 00000380: 22 00 87 0B 21 02 82 00 90 0B 30 02 8D 36 30 30 |"...!.....0..600| 00000390: 00 C3 0B 31 02 99 22 D7 41 4E 54 20 54 4F 20 53 |...1..".ANT TO S| 000003A0: 45 45 20 49 54 20 41 47 41 49 4E 28 59 2F 4E 29 |EE IT AGAIN(Y/N)| 000003B0: 22 3A 8D 38 30 30 3A 8B 41 24 B2 22 59 22 A7 8D |":.800:.A$."Y"..| 000003C0: 37 32 30 00 E9 0B 32 02 99 20 C7 28 31 34 29 22 |720...2.. .(14)"| 000003D0: C3 4F 4E 54 49 4E 55 45 20 28 20 59 20 4F 52 20 |.ONTINUE ( Y OR | 000003E0: 4E 20 29 22 3A 8D 38 30 30 00 01 0C 35 02 8B 20 |N )":.800...5.. | 000003F0: 41 24 B2 22 59 22 A7 20 35 3A 64 47 3A 89 37 33 |A$."Y". 5:dG:.73| 00000400: 30 00 20 0C 3A 02 4E B2 4E AA 31 3A 8B 4E B1 4E |0. .:.N.N.1:.N.N| 00000410: 32 A7 8E 3A 64 47 3A 99 22 93 22 3A 89 35 31 30 |2..:dG:.".":.510| 00000420: 00 45 0C 58 02 99 22 D7 48 45 52 45 22 3A 99 22 |.E.X..".HERE":."| 00000430: C1 3D 53 43 41 4C 45 22 3A 99 22 D3 3D 53 50 41 |.=SCALE":.".=SPA| 00000440: 43 49 4E 47 22 00 6A 0C 5D 02 59 B2 28 28 AB 32 |CING".j.].Y.((.2| 00000450: 30 AD 49 29 AC BF 28 57 AC 2E 30 31 37 34 35 33 |0.I)..(W..017453| 00000460: 33 29 AA 37 30 29 AC 31 2E 34 00 94 0C 62 02 99 |3).70).1.4...b..| 00000470: 22 D0 3D 41 4E 47 4C 45 20 54 4F 20 45 4C 2E 46 |".=ANGLE TO EL.F| 00000480: 52 4F 4D 20 52 45 46 2E 22 3A 99 22 C4 3D 44 45 |ROM REF.":.".=DE| 00000490: 4C 41 59 22 00 9A 0C 6C 02 8E 00 C8 0C BC 02 4E |LAY"...l.......N| 000004A0: 24 B2 C4 28 4E 29 3A 8B C3 28 4E 24 29 B2 32 A7 |$..(N):..(N$).2.| 000004B0: 4E 24 B2 C9 28 4E 24 2C 31 29 3A 64 47 3A 4E 24 |N$..(N$,1):dG:N$| 000004C0: B2 C9 28 4E 24 2C 32 29 00 CE 0C C6 02 8E 00 DF |..(N$,2)........| 000004D0: 0C D0 02 64 70 32 3A 64 66 31 30 3A 64 70 30 00 |...dp2:df10:dp0.| 000004E0: E8 0C D5 02 89 35 36 32 00 F2 0C DA 02 64 01 30 |.....562.....d.0| 000004F0: 2C 31 00 1D 0D E4 02 64 6F 33 30 2C 31 30 2C 22 |,1.....do30,10,"| 00000500: 4E 49 43 45 20 54 4F 20 57 4F 52 4B 20 57 49 54 |NICE TO WORK WIT| 00000510: 48 20 59 4F 55 22 2C 31 2C 32 2C 31 32 00 45 0D |H YOU",1,2,12.E.| 00000520: EE 02 64 6F 35 30 2C 31 30 35 2C 22 53 45 45 20 |..do50,105,"SEE | 00000530: 59 4F 55 20 4E 45 58 54 20 54 49 4D 45 22 2C 31 |YOU NEXT TIME",1| 00000540: 2C 32 2C 31 32 00 68 0D F3 02 64 6F 32 30 30 2C |,2,12.h...do200,| 00000550: 31 38 30 2C 22 44 49 43 4B 2E 2E 50 41 33 43 54 |180,"DICK..PA3CT| 00000560: 4D 22 2C 31 2C 31 2C 37 00 71 0D F8 02 64 66 35 |M",1,1,7.q...df5| 00000570: 30 00 7A 0D FD 02 99 22 93 22 00 80 0D 0C 03 80 |0.z...."."......| 00000580: 00 93 0D 20 03 A1 41 24 3A 8B 41 24 B2 22 22 A7 |... ..A$:.A$."".| 00000590: 38 30 30 00 99 0D 2A 03 8E 00 A7 0D 70 17 64 31 |800...*.....p.d1| 000005A0: 20 50 48 41 53 45 53 00 B0 0D 7A 17 99 22 93 22 | PHASES...z.."."| 000005B0: 00 BA 0D 84 17 64 01 30 2C 31 00 D4 0D 8E 17 81 |.....d.0,1......| 000005C0: 49 B2 31 A4 32 3A 81 4F B2 30 A4 31 31 3A 57 B2 |I.1.2:.O.0.11:W.| 000005D0: 4F AC 33 30 00 F3 0D 98 17 58 B2 28 34 30 AD 49 |O.30.....X.(40.I| 000005E0: 29 AC BE 28 57 AC 2E 30 31 37 34 35 33 33 29 AA |)..(W..0174533).| 000005F0: 31 36 30 00 18 0E A2 17 59 B2 28 28 AB 32 30 AD |160.....Y.((.20.| 00000600: 49 29 AC BF 28 57 AC 2E 30 31 37 34 35 33 33 29 |I)..(W..0174533)| 00000610: AA 37 30 29 AC 31 2E 34 00 2A 0E AC 17 64 02 58 |.70).1.4.*...d.X| 00000620: 2C 59 2C 31 3A 82 4F 3A 82 49 00 58 0E B6 17 64 |,Y,1:.O:.I.X...d| 00000630: 6F 32 33 30 2C 31 30 30 2C 22 30 22 2C 31 2C 31 |o230,100,"0",1,1| 00000640: 2C 31 30 3A 64 6F 31 35 35 2C 35 35 2C 22 39 30 |,10:do155,55,"90| 00000650: 22 2C 31 2C 31 2C 31 30 00 89 0E C0 17 64 6F 38 |",1,1,10.....do8| 00000660: 30 2C 31 30 30 2C 22 31 38 30 22 2C 31 2C 31 2C |0,100,"180",1,1,| 00000670: 31 30 3A 64 6F 31 35 35 2C 31 34 35 2C 22 32 37 |10:do155,145,"27| 00000680: 30 22 2C 31 2C 31 2C 31 30 00 AD 0E CA 17 64 6F |0",1,1,10.....do| 00000690: 38 30 2C 35 2C 22 4B 45 36 48 20 50 4F 4C 41 52 |80,5,"KE6H POLAR| 000006A0: 20 50 4C 4F 54 22 2C 31 2C 32 2C 31 32 00 D7 0E | PLOT",1,2,12...| 000006B0: 58 1B 81 51 B2 31 A4 31 30 38 3A 5A B2 51 AC 2E |X..Q.1.108:Z.Q..| 000006C0: 30 35 38 31 37 37 37 3A 47 53 B2 30 3A 47 32 B2 |0581777:GS.0:G2.| 000006D0: 41 31 3A 47 33 B2 30 00 E4 0E 62 1B 81 20 4E B2 |A1:G3.0...b.. N.| 000006E0: 31 A4 4E 32 00 12 0F 6C 1B 47 31 B2 42 28 4E 2C |1.N2...l.G1.B(N,| 000006F0: 32 29 AC BE 28 42 28 4E 2C 33 29 AB 5A 29 AB 42 |2)..(B(N,3).Z).B| 00000700: 28 4E 2C 34 29 3A 8B 50 24 B2 22 48 22 A7 37 30 |(N,4):.P$."H".70| 00000710: 35 30 00 3C 0F 76 1B 47 32 B2 47 32 AA 42 28 4E |50.<.v.G2.G2.B(N| 00000720: 2C 31 29 AC BE 28 47 31 29 3A 47 33 B2 47 33 AA |,1)..(G1):G3.G3.| 00000730: 42 28 4E 2C 31 29 AC BF 28 47 31 29 00 5B 0F 80 |B(N,1)..(G1).[..| 00000740: 1B 82 4E 3A 47 54 B2 28 47 32 AE 32 AA 47 33 AE |..N:GT.(G2.2.G3.| 00000750: 32 29 AE 2E 35 3A 89 37 30 37 30 00 7A 0F 8A 1B |2)..5:.7070.z...| 00000760: 47 32 B2 42 28 4E 2C 31 29 AC BF 28 5A 29 3A 47 |G2.B(N,1)..(Z):G| 00000770: 33 B2 47 32 AC BE 28 47 31 29 00 9B 0F 94 1B 47 |3.G2..(G1).....G| 00000780: 53 B2 47 53 AA 47 33 3A 82 4E 3A 47 54 B2 B6 28 |S.GS.G3:.N:GT..(| 00000790: 47 53 AA 41 31 AC BF 28 5A 29 29 00 C6 0F 9E 1B |GS.A1..(Z)).....| 000007A0: 58 B2 47 54 AC BE 28 5A 29 AA 31 36 30 3A 59 B2 |X.GT..(Z).160:Y.| 000007B0: 28 2E 35 AC 28 AB 47 54 29 AC BF 28 5A 29 AA 37 |(.5.(.GT)..(Z).7| 000007C0: 30 29 AC 31 2E 34 00 DA 0F A8 1B 8B 59 B3 32 B0 |0).1.4......Y.2.| 000007D0: 59 B1 32 30 30 A7 38 30 31 30 00 EE 0F B2 1B 8B |Y.200.8010......| 000007E0: 58 B3 32 B0 58 B1 33 32 30 A7 38 30 31 30 00 FA |X.2.X.320.8010..| 000007F0: 0F 40 1F 64 02 58 2C 59 2C 31 00 01 10 4A 1F 82 |.@.d.X,Y,1...J..| 00000800: 51 00 09 10 54 1F 64 66 35 00 11 10 5E 1F 64 70 |Q...T.df5...^.dp| 00000810: 30 00 18 10 68 1F 64 34 00 00 00 |0...h.d4... |
.......".",G(14).;...D#". KE6H POLAR PLO T MODELING PGM .":..V....".POLARIZATION: V OR H";P$:. P$."V".P$."H". 20:DG:.15.. ...."%FULL SCALE OF REF ELEMENT=";A1:A1. A1..4:N.1:.90.F...D#"**************":... ...N.N.1:.".ELEMENT NO=";N:N2.N...(..".% FULL SCALE";A(N,1):B(N,1).A(N,1)..4.O.2 .."SPACING IN WAVELENGHTS";A(N,2):B(N,2) .A(N,2).6.28319...<.."ANGLE TO ELEM.FROM REF.(DEG.)";A(N,3):B(N,3).A(N,3)..01745 33...F.."PHASE DELAY(WAVELENGHTS)";A(N,4 ):A(N,4).A(N,4):B(N,4).A(N,4).6.28319... Z.."MORE ELEMENTS(Y OR N)":.800...D.. A$ ."Y".25.&.I..A$."N". D3 PHASES.1....G(14 ).T...."VERIFY DATA ( Y OR N )":.800.N.. ..A$."Y". .500:DG:.561.V...N.2......".": ."A1 = ";A1.2.5;"% FULL SCALE"......N.1. N2.V....700:."A";N$" = ";A(N,1);"% FULL SCALE"......"S";N$;" = ";A(N,2);"WAVELEN GHT OR";B(N,2);"RADIANS".G...."P";N$;" = ";A(N,3);"DEGREES OR";B(N,3);"RADIANS". ....."D";N$;" = ";A(N,4);"WAVELENGHT OR" ;B(N,4);"RADIANS"...!.....0..600.C.1.."W ANT TO SEE IT AGAIN(Y/N)":.800:.A$."Y".. 720...2.. G(14)"CONTINUE ( Y OR N )":.80 0...5.. A$."Y". 5:DG:.730. .:.N.N.1:.N.N 2..:DG:.".":.510.E.X.."WHERE":."A=SCALE" :."S=SPACING".J.].Y.((.20.I)..(W..017453 3).70).1.4...B.."P=ANGLE TO EL.FROM REF. ":."D=DELAY"...L...H...N$.D(N):.C(N$).2. N$.I(N$,1):DG:N$.I(N$,2).N.F.....P.DP2:D F10:DP0...U..562...Z.D.0,1.....DO30,10," NICE TO WORK WITH YOU",1,2,12.E...DO50,1 05,"SEE YOU NEXT TIME",1,2,12.H...DO200, 180,"DICK..PA3CTM",1,1,7.Q...DF50.Z...." ."......... ..A$:.A$."".800...*.....P.D1 PHASES...Z..".".....D.0,1.T....I.1.2:.O .0.11:W.O.30.....X.(40.I)..(W..0174533). 160.....Y.((.20.I)..(W..0174533).70).1.4 .*...D.X,Y,1:.O:.I.X...DO230,100,"0",1,1 ,10:DO155,55,"90",1,1,10.....DO80,100,"1 80",1,1,10:DO155,145,"270",1,1,10...J.DO 80,5,"KE6H POLAR PLOT",1,2,12.W.X..Q.1.1 08:Z.Q..0581777:GS.0:G2.A1:G3.0...B.. N. 1.N2...L.G1.B(N,2)..(B(N,3).Z).B(N,4):.P $."H".7050.<.V.G2.G2.B(N,1)..(G1):G3.G3. B(N,1)..(G1).[....N:GT.(G2.2.G3.2)..5:.7 070.Z...G2.B(N,1)..(Z):G3.G2..(G1).....G S.GS.G3:.N:GT..(GS.A1..(Z)).F...X.GT..(Z ).160:Y.(.5.(.GT)..(Z).70).1.4.Z....Y.2. Y.200.8010......X.2.X.320.8010...@.D.X,Y ,1...J..Q...T.DF5...^.DP0...H.D4...
> CLICK IMAGE PREVIEW FOR FULL MODAL