ASTROPHOTO
FILE INFORMATION
FILENAME(S): ASTROPHOTO
FILE TYPE(S): PRG
FILE SIZE: 3.5K
FIRST SEEN: 2025-10-20 14:30:51
APPEARS ON: 1 disk(s)
FILE HASH
5d0f4d6c4e92efa074510ea085a9ad49c3642bd10e2971d3753f62eeee31d594
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 0047ED | ASTROPHOTO | PRG | Treasure Chest - Klaus Der Suhler | 33 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 23 08 0A 00 8F 20 50 48 4F 54 4F 20 47 55 |..#.... PHOTO GU|
00000010: 49 44 45 20 46 4F 52 20 54 48 45 20 50 4C 41 4E |IDE FOR THE PLAN|
00000020: 45 54 53 00 34 08 14 00 99 22 93 22 3A 99 3A 99 |ETS.4....".":.:.|
00000030: 3A 99 3A 99 00 4E 08 1E 00 99 3A 99 3A 97 35 33 |:.:..N....:.:.53|
00000040: 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 36 00 7F |280,0:.53281,6..|
00000050: 08 28 00 99 22 9E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.(..".----------|
00000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 |--------------".|
00000080: B1 08 32 00 99 22 12 20 20 20 20 20 20 20 20 20 |..2..". |
00000090: 20 20 20 20 20 20 20 50 48 4F 54 4F 20 20 20 20 | PHOTO |
000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 92 | .|
000000B0: 22 00 E1 08 3C 00 99 22 2D 2D 2D 2D 2D 2D 2D 2D |"...<.."--------|
000000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000000E0: 22 00 E9 08 46 00 99 3A 99 00 09 09 50 00 99 A3 |"...F..:....P...|
000000F0: 39 29 3B 22 41 4E 20 41 53 54 52 4F 4E 4F 4D 59 |9);"AN ASTRONOMY|
00000100: 20 50 52 4F 47 52 41 4D 22 00 11 09 82 00 99 3A | PROGRAM"......:|
00000110: 99 00 19 09 8C 00 99 3A 99 00 3D 09 96 00 85 20 |.......:..=.... |
00000120: 22 57 41 4E 54 20 49 4E 53 54 52 55 43 54 49 4F |"WANT INSTRUCTIO|
00000130: 4E 53 3F 20 28 59 2F 4E 29 22 3B 41 24 00 52 09 |NS? (Y/N)";A$.R.|
00000140: A0 00 8B 20 41 24 B2 22 4E 22 20 A7 20 89 20 33 |... A$."N" . . 3|
00000150: 31 30 00 7B 09 AA 00 8B 20 41 24 B3 B1 22 59 22 |10.{.... A$.."Y"|
00000160: A7 99 22 49 4E 56 41 4C 49 44 20 52 45 53 50 4F |.."INVALID RESPO|
00000170: 4E 53 45 22 3B 99 3A 89 31 35 30 00 86 09 B4 00 |NSE";.:.150.....|
00000180: 99 22 93 22 3A 99 00 90 09 BE 00 99 3A 99 3A 99 |.".":.......:.:.|
00000190: 00 BC 09 C8 00 99 22 54 48 49 53 20 50 52 4F 47 |......"THIS PROG|
000001A0: 52 41 4D 20 41 53 4B 53 20 46 4F 52 20 50 41 52 |RAM ASKS FOR PAR|
000001B0: 54 49 43 55 4C 41 52 53 20 4F 46 22 00 E9 09 D2 |TICULARS OF"....|
000001C0: 00 99 22 59 4F 55 52 20 41 53 54 52 4F 50 48 4F |.."YOUR ASTROPHO|
000001D0: 54 4F 20 49 4E 53 54 41 4C 4C 41 54 49 4F 4E 20 |TO INSTALLATION |
000001E0: 41 4E 44 20 54 48 45 4E 22 00 16 0A DC 00 99 22 |AND THEN"......"|
000001F0: 43 4F 4D 50 55 54 45 53 20 54 48 45 20 53 49 5A |COMPUTES THE SIZ|
00000200: 45 20 4F 46 20 54 48 45 20 49 4D 41 47 45 20 4F |E OF THE IMAGE O|
00000210: 46 20 41 4E 59 22 00 3F 0A E6 00 99 22 53 45 4C |F ANY".?...."SEL|
00000220: 45 43 54 45 44 20 50 4C 41 4E 45 54 20 4F 4E 20 |ECTED PLANET ON |
00000230: 54 48 45 20 46 49 4C 4D 20 50 4C 41 4E 45 22 00 |THE FILM PLANE".|
00000240: 49 0A F0 00 99 3A 99 3A 99 00 72 0A FA 00 99 22 |I....:.:..r...."|
00000250: 46 4F 52 20 41 4E 20 41 53 41 20 52 41 54 49 4E |FOR AN ASA RATIN|
00000260: 47 20 57 48 49 43 48 20 59 4F 55 20 49 4E 50 55 |G WHICH YOU INPU|
00000270: 54 22 00 9B 0A 04 01 99 22 49 54 20 43 41 4C 43 |T"......"IT CALC|
00000280: 55 4C 41 54 45 53 20 41 4E 20 41 56 45 52 41 47 |ULATES AN AVERAG|
00000290: 45 20 45 58 50 4F 53 55 52 45 22 00 C4 0A 0E 01 |E EXPOSURE".....|
000002A0: 99 22 46 4F 52 20 54 48 45 20 50 4C 41 4E 45 54 |."FOR THE PLANET|
000002B0: 20 41 4E 44 20 54 48 45 20 49 4E 53 54 52 55 4D | AND THE INSTRUM|
000002C0: 45 4E 54 22 00 E8 0A 18 01 99 22 43 4F 4E 46 49 |ENT"......"CONFI|
000002D0: 52 47 55 52 41 54 49 4F 4E 20 59 4F 55 20 41 52 |RGURATION YOU AR|
000002E0: 45 20 55 53 49 4E 47 22 00 F2 0A 22 01 99 3A 99 |E USING"..."..:.|
000002F0: 3A 99 00 16 0B 2C 01 85 22 50 52 45 53 53 20 52 |:....,.."PRESS R|
00000300: 45 54 55 52 4E 20 54 4F 20 43 4F 4E 54 49 4E 55 |ETURN TO CONTINU|
00000310: 45 20 22 3B 41 24 00 23 0B 36 01 99 22 93 22 3A |E ";A$.#.6..".":|
00000320: 99 3A 99 00 46 0B 40 01 99 22 57 48 49 43 48 20 |.:..F.@.."WHICH |
00000330: 4D 45 54 48 4F 44 20 41 52 45 20 59 4F 55 20 55 |METHOD ARE YOU U|
00000340: 53 49 4E 47 3F 22 00 4E 0B 4A 01 99 3A 99 00 70 |SING?".N.J..:..p|
00000350: 0B 54 01 99 22 20 31 29 20 46 49 4C 4D 20 41 54 |.T.." 1) FILM AT|
00000360: 20 50 52 49 4D 45 20 46 4F 43 55 53 20 4F 46 22 | PRIME FOCUS OF"|
00000370: 00 91 0B 5E 01 99 22 20 20 20 20 54 45 4C 45 53 |...^.." TELES|
00000380: 43 4F 50 45 27 53 20 4F 42 4A 45 43 54 49 56 45 |COPE'S OBJECTIVE|
00000390: 22 00 97 0B 68 01 99 00 BC 0B 72 01 99 22 20 32 |"...h.....r.." 2|
000003A0: 29 20 46 49 4C 4D 20 49 4E 20 43 41 4D 45 52 41 |) FILM IN CAMERA|
000003B0: 20 41 4E 44 20 43 41 4D 45 52 41 22 00 E0 0B 7C | AND CAMERA"...||
000003C0: 01 99 22 20 20 20 20 41 54 20 45 59 45 50 49 45 |.." AT EYEPIE|
000003D0: 43 45 20 4F 46 20 54 45 4C 45 53 43 4F 50 45 22 |CE OF TELESCOPE"|
000003E0: 00 03 0C 86 01 99 22 20 20 20 20 57 49 54 48 20 |......" WITH |
000003F0: 43 41 4D 45 52 41 20 4C 45 4E 53 20 49 4E 20 55 |CAMERA LENS IN U|
00000400: 53 45 22 00 09 0C 90 01 99 00 32 0C 9A 01 99 22 |SE".......2...."|
00000410: 20 33 29 20 49 4D 41 47 45 20 50 52 4F 4A 45 43 | 3) IMAGE PROJEC|
00000420: 54 45 44 20 46 52 4F 4D 20 45 59 45 50 49 45 43 |TED FROM EYEPIEC|
00000430: 45 22 00 56 0C A4 01 99 22 20 20 20 20 4F 46 20 |E".V...." OF |
00000440: 54 45 4C 45 53 43 4F 50 45 20 49 4E 54 4F 20 43 |TELESCOPE INTO C|
00000450: 41 4D 45 52 41 22 00 77 0C AE 01 99 22 20 20 20 |AMERA".w...." |
00000460: 20 57 49 54 48 4F 55 54 20 41 20 43 41 4D 45 52 | WITHOUT A CAMER|
00000470: 41 20 4C 45 4E 53 22 00 7F 0C B8 01 99 3A 99 00 |A LENS"......:..|
00000480: 9C 0C C2 01 85 20 22 53 45 4C 45 43 54 20 31 2C |..... "SELECT 1,|
00000490: 20 32 2C 20 4F 52 20 33 20 22 3B 41 00 A9 0C CC | 2, OR 3 ";A....|
000004A0: 01 99 22 93 22 3A 99 3A 99 00 C8 0C D6 01 99 22 |..".":.:......."|
000004B0: 43 49 56 45 20 54 48 45 20 46 4F 4C 4C 4F 57 49 |CIVE THE FOLLOWI|
000004C0: 4E 47 20 44 41 54 41 22 00 CE 0C E0 01 99 00 FA |NG DATA"........|
000004D0: 0C EA 01 85 22 43 4C 45 41 52 20 41 50 45 52 54 |...."CLEAR APERT|
000004E0: 55 52 45 20 4F 46 20 4F 42 4A 45 43 54 49 56 45 |URE OF OBJECTIVE|
000004F0: 20 28 49 4E 29 20 22 3B 41 4F 00 09 0D F4 01 41 | (IN) ";AO.....A|
00000500: 4F B2 41 4F AC 33 30 2E 34 00 0F 0D FE 01 99 00 |O.AO.30.4.......|
00000510: 3A 0D 08 02 85 20 22 46 4F 43 41 4C 20 4C 45 4E |:.... "FOCAL LEN|
00000520: 47 48 54 20 4F 46 20 4F 42 4A 45 43 54 49 56 45 |GHT OF OBJECTIVE|
00000530: 20 28 49 4E 29 20 22 3B 46 4F 00 49 0D 12 02 46 | (IN) ";FO.I...F|
00000540: 4F B2 46 4F AC 33 30 2E 34 00 56 0D 1C 02 4E 46 |O.FO.30.4.V...NF|
00000550: B2 46 4F AD 41 4F 00 6A 0D 26 02 8B 20 41 20 B3 |.FO.AO.j.&.. A .|
00000560: B1 32 20 A7 20 89 20 35 38 30 00 70 0D 30 02 99 |.2 . . 580.p.0..|
00000570: 00 9A 0D 3A 02 85 22 46 4F 43 41 4C 20 4C 45 4E |...:.."FOCAL LEN|
00000580: 47 48 54 20 4F 46 20 43 41 4D 45 52 41 20 4C 45 |GHT OF CAMERA LE|
00000590: 4E 53 28 4D 4D 29 22 3B 46 43 00 AD 0D 44 02 8B |NS(MM)";FC...D..|
000005A0: 20 41 20 B2 31 20 A7 20 89 20 36 37 30 00 B3 0D | A .1 . . 670...|
000005B0: 4E 02 99 00 DD 0D 58 02 85 20 22 46 4F 43 41 4C |N.....X.. "FOCAL|
000005C0: 20 4C 45 4E 47 48 54 20 4F 46 20 45 59 45 50 49 | LENGHT OF EYEPI|
000005D0: 45 43 45 20 28 4D 4D 29 20 22 3B 46 45 00 EE 0D |ECE (MM) ";FE...|
000005E0: 62 02 8B 20 41 B2 31 A7 20 89 20 36 37 30 00 FF |b.. A.1. . 670..|
000005F0: 0D 6C 02 8B 20 41 B2 32 20 A7 20 89 36 37 30 00 |.l.. A.2 . .670.|
00000600: 05 0E 76 02 99 00 36 0E 80 02 85 20 22 44 49 53 |..v...6.... "DIS|
00000610: 54 41 4E 43 45 20 45 59 45 50 49 45 43 45 20 54 |TANCE EYEPIECE T|
00000620: 4F 20 46 49 4C 4D 20 50 4C 41 4E 45 20 28 49 4E |O FILM PLANE (IN|
00000630: 29 20 22 3B 44 45 00 45 0E 8A 02 44 45 B2 44 45 |) ";DE.E...DE.DE|
00000640: AC 32 35 2E 34 00 64 0E 94 02 8F 20 43 41 4C 43 |.25.4.d.... CALC|
00000650: 2E 20 45 46 46 45 43 54 49 56 45 20 46 20 4E 55 |. EFFECTIVE F NU|
00000660: 4D 42 45 52 00 78 0E 9E 02 8B 20 41 B2 31 20 A7 |MBER.x.... A.1 .|
00000670: 20 45 46 4C 20 B2 4E 46 00 99 0E A8 02 8B 20 41 | EFL .NF...... A|
00000680: B2 32 20 A7 20 45 46 4C 20 B2 20 4E 46 AC 46 43 |.2 . EFL . NF.FC|
00000690: AD 46 45 3A 89 20 37 30 30 00 B4 0E B2 02 8B 20 |.FE:. 700...... |
000006A0: 41 B2 33 20 A7 20 45 46 4C 20 B2 20 4E 46 AC 44 |A.3 . EFL . NF.D|
000006B0: 45 AD 46 45 00 C1 0E BC 02 99 22 93 22 3A 99 3A |E.FE......".":.:|
000006C0: 99 00 E7 0E C6 02 99 22 59 4F 55 20 4D 55 53 54 |......."YOU MUST|
000006D0: 20 4E 4F 57 20 45 4E 54 45 52 20 54 48 45 20 4E | NOW ENTER THE N|
000006E0: 41 4D 45 20 4F 46 22 00 0F 0F D0 02 99 22 54 48 |AME OF"......"TH|
000006F0: 45 20 50 4C 41 4E 45 54 20 59 4F 55 20 41 52 45 |E PLANET YOU ARE|
00000700: 20 50 48 4F 54 4F 47 52 41 50 48 49 4E 47 22 00 | PHOTOGRAPHING".|
00000710: 33 0F DA 02 99 22 41 4E 44 20 49 54 53 20 44 49 |3...."AND ITS DI|
00000720: 41 4D 45 54 45 52 20 49 4E 20 41 52 43 20 53 45 |AMETER IN ARC SE|
00000730: 43 53 22 00 39 0F E4 02 99 00 63 0F EE 02 99 22 |CS".9.....c...."|
00000740: 28 59 4F 55 20 43 41 4E 20 46 49 4E 44 20 54 48 |(YOU CAN FIND TH|
00000750: 49 53 20 46 52 4F 4D 20 4F 4E 45 20 4F 46 20 54 |IS FROM ONE OF T|
00000760: 48 45 22 00 8C 0F F8 02 99 22 20 4F 54 48 45 52 |HE"......" OTHER|
00000770: 20 50 52 4F 47 52 41 4D 53 29 20 20 20 20 20 20 | PROGRAMS) |
00000780: 20 20 20 20 20 20 20 20 20 20 20 22 00 94 0F 02 | "....|
00000790: 03 99 3A 99 00 BA 0F 0C 03 85 20 22 57 48 41 54 |..:....... "WHAT|
000007A0: 20 49 53 20 54 48 45 20 50 4C 41 4E 45 54 53 20 | IS THE PLANETS |
000007B0: 4E 41 4D 45 20 22 3B 50 4C 24 00 FA 0F 16 03 8B |NAME ";PL$......|
000007C0: 20 50 4C 24 B2 22 50 4C 55 54 4F 22 A7 20 99 22 | PL$."PLUTO". ."|
000007D0: 4E 4F 20 44 41 54 41 20 4F 4E 20 50 4C 55 54 4F |NO DATA ON PLUTO|
000007E0: 3B 50 49 43 4B 20 41 4E 4F 54 48 45 52 20 50 4C |;PICK ANOTHER PL|
000007F0: 41 4E 45 54 22 3A 89 37 38 30 00 00 10 20 03 99 |ANET":.780... ..|
00000800: 00 2D 10 2A 03 85 20 22 57 48 41 54 20 49 53 20 |.-.*.. "WHAT IS |
00000810: 54 48 45 20 44 49 41 4D 45 54 45 52 20 49 4E 20 |THE DIAMETER IN |
00000820: 41 52 43 20 53 45 43 53 20 22 3B 44 50 00 3A 10 |ARC SECS ";DP.:.|
00000830: 34 03 46 B2 45 46 4C AC 41 4F 00 49 10 3E 03 99 |4.F.EFL.AO.I.>..|
00000840: 22 93 22 3A 99 3A 99 3A 99 00 58 10 48 03 44 50 |".":.:.:..X.H.DP|
00000850: B2 44 50 AD 33 36 30 30 00 6E 10 52 03 44 50 B2 |.DP.3600.n.R.DP.|
00000860: C0 28 44 50 AD 35 37 2E 32 39 35 37 38 29 00 79 |.(DP.57.29578).y|
00000870: 10 5C 03 49 B2 46 AC 44 50 00 88 10 66 03 52 B2 |.\.I.F.DP...f.R.|
00000880: 31 34 35 30 AD 45 46 4C 00 9B 10 70 03 52 B2 C5 |1450.EFL...p.R..|
00000890: 28 C8 28 C4 28 52 29 2C 34 29 29 00 A3 10 7A 03 |(.(.(R),4))...z.|
000008A0: 99 3A 99 00 C4 10 84 03 99 22 52 45 53 4F 4C 55 |.:......."RESOLU|
000008B0: 54 49 4F 4E 20 46 4F 52 20 22 3B 50 4C 24 3B 22 |TION FOR ";PL$;"|
000008C0: 20 41 54 22 00 F0 10 8E 03 99 22 46 49 4C 4D 20 | AT"......"FILM |
000008D0: 50 4C 41 4E 45 20 57 49 4C 4C 20 42 45 20 22 3B |PLANE WILL BE ";|
000008E0: B5 28 52 29 3B 22 20 4C 49 4E 45 53 2F 4D 4D 22 |.(R);" LINES/MM"|
000008F0: 00 F8 10 98 03 99 3A 99 00 23 11 A2 03 99 22 59 |......:..#...."Y|
00000900: 4F 55 20 41 52 45 20 41 44 56 49 53 45 44 20 54 |OU ARE ADVISED T|
00000910: 4F 20 50 49 43 4B 20 41 20 46 49 4C 4D 20 57 49 |O PICK A FILM WI|
00000920: 54 48 22 00 4F 11 AC 03 99 22 41 54 20 4C 45 41 |TH".O...."AT LEA|
00000930: 53 54 20 54 48 52 45 45 20 54 49 4D 45 53 20 54 |ST THREE TIMES T|
00000940: 48 49 53 20 52 45 53 4F 4C 55 54 49 4F 4E 22 00 |HIS RESOLUTION".|
00000950: 66 11 B6 03 52 B2 C5 20 28 C8 28 C4 20 28 52 AC |f...R.. (.(. (R.|
00000960: 33 29 2C 34 29 29 00 91 11 C0 03 99 3A 99 22 4E |3),4))......:."N|
00000970: 41 4D 45 4C 59 20 22 3B B5 28 52 29 3B 22 20 4C |AMELY ";.(R);" L|
00000980: 49 4E 45 53 2F 4D 4D 20 54 4F 20 41 56 4F 49 44 |INES/MM TO AVOID|
00000990: 22 00 B1 11 CA 03 99 22 47 52 41 49 4E 20 53 50 |"......"GRAIN SP|
000009A0: 4F 49 4C 49 4E 47 20 54 48 45 20 49 4D 41 47 45 |OILING THE IMAGE|
000009B0: 22 00 BB 11 D4 03 99 3A 99 3A 99 00 EA 11 DE 03 |"......:.:......|
000009C0: 85 20 22 57 48 41 54 20 49 53 20 41 53 41 20 52 |. "WHAT IS ASA R|
000009D0: 41 54 49 4E 47 20 4F 46 20 43 48 4F 53 45 4E 20 |ATING OF CHOSEN |
000009E0: 46 49 4C 4D 3F 22 3B 41 53 41 00 F7 11 E8 03 99 |FILM?";ASA......|
000009F0: 22 93 22 3A 99 3A 99 00 12 12 F2 03 8B 20 50 4C |".":.:....... PL|
00000A00: 24 B2 22 4D 45 52 43 55 52 59 22 A7 20 4E B2 32 |$."MERCURY". N.2|
00000A10: 36 30 00 2C 12 FC 03 8B 20 50 4C 24 B2 22 56 45 |60.,.... PL$."VE|
00000A20: 4E 55 53 22 20 A7 20 4E B2 39 36 30 00 44 12 06 |NUS" . N.960.D..|
00000A30: 04 8B 20 50 4C 24 B2 22 4D 41 52 53 22 20 A7 20 |.. PL$."MARS" . |
00000A40: 4E B2 34 30 00 5F 12 10 04 8B 20 50 4C 24 20 B2 |N.40._.... PL$ .|
00000A50: 22 4A 55 50 49 54 45 52 22 A7 20 4E B2 31 32 00 |"JUPITER". N.12.|
00000A60: 79 12 1A 04 8B 20 50 4C 24 B2 22 53 41 54 55 52 |y.... PL$."SATUR|
00000A70: 4E 22 A7 20 4E B2 33 2E 35 00 93 12 24 04 8B 20 |N". N.3.5...$.. |
00000A80: 50 4C 24 B2 22 55 52 41 4E 55 53 22 A7 20 4E B2 |PL$."URANUS". N.|
00000A90: 2E 38 31 00 AF 12 2E 04 8B 20 50 4C 24 B2 22 4E |.81...... PL$."N|
00000AA0: 45 50 54 55 4E 45 22 20 A7 20 4E B2 2E 33 38 00 |EPTUNE" . N..38.|
00000AB0: BB 12 38 04 4E B2 4E AC 41 53 41 00 CA 12 42 04 |..8.N.N.ASA...B.|
00000AC0: 45 58 B2 45 46 4C AE 32 AD 4E 00 D7 12 4C 04 99 |EX.EFL.2.N...L..|
00000AD0: 22 93 22 3A 99 3A 99 00 06 13 56 04 99 22 54 4F |".":.:....V.."TO|
00000AE0: 20 50 48 4F 54 4F 47 52 41 50 48 20 22 3B 50 4C | PHOTOGRAPH ";PL|
00000AF0: 24 3B 22 20 4F 4E 20 46 49 4C 4D 20 52 41 54 45 |$;" ON FILM RATE|
00000B00: 44 20 41 54 20 22 00 17 13 60 04 99 20 41 53 41 |D AT "...`.. ASA|
00000B10: 3B 22 20 41 53 41 22 00 1D 13 6A 04 99 00 51 13 |;" ASA"...j...Q.|
00000B20: 74 04 8B 20 41 B2 20 31 20 A7 20 45 51 24 B2 22 |t.. A. 1 . EQ$."|
00000B30: 46 49 4C 4D 20 41 54 20 50 52 49 4D 45 20 46 4F |FILM AT PRIME FO|
00000B40: 43 55 53 20 4F 46 20 4F 42 4A 45 43 54 49 56 45 |CUS OF OBJECTIVE|
00000B50: 22 00 81 13 7E 04 8B 20 41 20 B2 20 32 20 A7 20 |"...~.. A . 2 . |
00000B60: 45 51 24 B2 22 43 41 4D 45 52 41 2F 45 59 45 50 |EQ$."CAMERA/EYEP|
00000B70: 49 45 43 45 20 43 4F 4D 42 49 4E 41 54 49 4F 4E |IECE COMBINATION|
00000B80: 22 00 AD 13 88 04 8B 20 41 20 B2 33 20 A7 20 45 |"...... A .3 . E|
00000B90: 51 24 B2 22 50 52 4F 4A 45 43 54 49 4F 4E 20 46 |Q$."PROJECTION F|
00000BA0: 52 4F 4D 20 45 59 45 50 49 45 43 45 22 00 BE 13 |ROM EYEPIECE"...|
00000BB0: 92 04 99 22 57 49 54 48 20 22 3B 45 51 24 00 C6 |..."WITH ";EQ$..|
00000BC0: 13 9C 04 99 3A 99 00 DE 13 A6 04 45 58 20 B2 C5 |....:......EX ..|
00000BD0: 20 28 C8 28 C4 20 28 45 58 29 2C 33 29 29 00 06 | (.(. (EX),3))..|
00000BE0: 14 B0 04 99 22 54 48 45 20 45 58 50 4F 53 55 52 |...."THE EXPOSUR|
00000BF0: 45 20 49 53 20 41 42 4F 55 54 20 22 3B 45 58 3B |E IS ABOUT ";EX;|
00000C00: 22 20 53 45 43 22 00 0C 14 BA 04 99 00 39 14 C4 |" SEC".......9..|
00000C10: 04 99 22 20 20 20 20 28 4E 4F 54 45 3A 45 58 50 |.." (NOTE:EXP|
00000C20: 4F 53 55 52 45 20 47 52 45 41 54 45 52 20 54 48 |OSURE GREATER TH|
00000C30: 41 4E 20 31 20 53 45 43 22 00 59 14 CE 04 99 22 |AN 1 SEC".Y...."|
00000C40: 20 20 20 20 20 49 53 20 4E 4F 54 20 52 45 43 4F | IS NOT RECO|
00000C50: 4D 4D 45 4E 44 45 44 29 22 00 5F 14 D8 04 99 00 |MMENDED)"._.....|
00000C60: 8E 14 E2 04 99 22 41 4E 44 20 54 48 45 20 49 4D |....."AND THE IM|
00000C70: 41 47 45 20 4F 4E 20 54 48 45 20 46 49 4C 4D 20 |AGE ON THE FILM |
00000C80: 50 4C 41 4E 45 20 57 49 4C 4C 20 42 45 22 00 A1 |PLANE WILL BE"..|
00000C90: 14 EC 04 49 B2 C5 28 C8 28 C4 28 49 29 2C 33 29 |...I..(.(.(I),3)|
00000CA0: 29 00 BA 14 F6 04 99 20 49 3B 22 4D 4D 20 49 4E |)...... I;"MM IN|
00000CB0: 20 44 49 41 4D 45 54 45 52 22 00 C0 14 00 05 99 | DIAMETER"......|
00000CC0: 00 E9 14 0A 05 99 22 20 20 20 20 28 4E 4F 54 45 |......" (NOTE|
00000CD0: 3A 49 4D 41 47 45 20 4F 4E 20 54 48 45 20 46 49 |:IMAGE ON THE FI|
00000CE0: 4C 4D 20 50 4C 41 4E 45 22 00 16 15 14 05 99 22 |LM PLANE"......"|
00000CF0: 20 20 20 20 20 53 48 4F 55 4C 44 20 45 58 43 45 | SHOULD EXCE|
00000D00: 45 44 20 33 20 4D 4D 20 54 4F 20 42 45 20 55 53 |ED 3 MM TO BE US|
00000D10: 45 46 55 4C 29 22 00 1E 15 1E 05 99 3A 99 00 48 |EFUL)"......:..H|
00000D20: 15 28 05 85 22 57 41 4E 54 20 41 4E 4F 54 48 45 |.(.."WANT ANOTHE|
00000D30: 52 20 43 41 4C 43 55 4C 41 54 49 4F 4E 3F 20 28 |R CALCULATION? (|
00000D40: 59 2F 4E 29 22 3B 41 24 00 5E 15 32 05 8B 20 41 |Y/N)";A$.^.2.. A|
00000D50: 24 B2 22 4E 22 20 A7 20 89 20 31 33 37 30 00 8B |$."N" . . 1370..|
00000D60: 15 3C 05 8B 20 41 24 B3 B1 22 59 22 20 A7 20 99 |.<.. A$.."Y" . .|
00000D70: 22 49 4E 56 41 4C 49 44 20 52 45 53 50 4F 4E 53 |"INVALID RESPONS|
00000D80: 45 22 3A 99 3A 89 20 31 33 32 30 00 95 15 46 05 |E":.:. 1320...F.|
00000D90: 89 20 33 31 30 00 9E 15 50 05 99 22 93 22 00 A4 |. 310...P.."."..|
00000DA0: 15 5A 05 80 00 00 00 1A 1A 1A 1A 1A 1A 1A 1A 1A |.Z..............|
00000DB0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
00000DC0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
00000DD0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
00000DE0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
00000DF0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
..#.... PHOTO GUIDE FOR THE PLANETS.4...
.".":.:.:.:..N....:.:.53280,0:.53281,6.
.(..".----------------------------------
------"...2..". PHOTO
."...<.."----------------
------------------------"...F..:....P...
9);"AN ASTRONOMY PROGRAM"......:.......:
..=.... "WANT INSTRUCTIONS? (Y/N)";A$.R.
.. A$."N" . . 310.{.... A$.."Y".."INVAL
ID RESPONSE";.:.150......".":.......:.:.
...H.."THIS PROGRAM ASKS FOR PARTICULARS
OF"...R.."YOUR ASTROPHOTO INSTALLATION
AND THEN"......"COMPUTES THE SIZE OF THE
IMAGE OF ANY".?...."SELECTED PLANET ON
THE FILM PLANE".I....:.:..R...."FOR AN A
SA RATING WHICH YOU INPUT"......"IT CALC
ULATES AN AVERAGE EXPOSURE".D...."FOR TH
E PLANET AND THE INSTRUMENT"......"CONFI
RGURATION YOU ARE USING"..."..:.:....,..
"PRESS RETURN TO CONTINUE ";A$.#.6..".":
.:..F.@.."WHICH METHOD ARE YOU USING?".N
.J..:..P.T.." 1) FILM AT PRIME FOCUS OF"
...^.." TELESCOPE'S OBJECTIVE"...H...
..R.." 2) FILM IN CAMERA AND CAMERA"...|
.." AT EYEPIECE OF TELESCOPE"......"
WITH CAMERA LENS IN USE".......2...."
3) IMAGE PROJECTED FROM EYEPIECE".V....
" OF TELESCOPE INTO CAMERA".W...."
WITHOUT A CAMERA LENS".....:....B.. "S
ELECT 1, 2, OR 3 ";A...L..".":.:..H.V.."
CIVE THE FOLLOWING DATA".N.........."CLE
AR APERTURE OF OBJECTIVE (IN) ";AO.....A
O.AO.30.4.......:.... "FOCAL LENGHT OF O
BJECTIVE (IN) ";FO.I...FO.FO.30.4.V...NF
.FO.AO.J.&.. A ..2 . . 580.P.0.....:.."F
OCAL LENGHT OF CAMERA LENS(MM)";FC...D..
A .1 . . 670...N.....X.. "FOCAL LENGHT
OF EYEPIECE (MM) ";FE...B.. A.1. . 670..
.L.. A.2 . .670...V...6.... "DISTANCE EY
EPIECE TO FILM PLANE (IN) ";DE.E...DE.DE
.25.4.D.... CALC. EFFECTIVE F NUMBER.X..
.. A.1 . EFL .NF...... A.2 . EFL . NF.FC
.FE:. 700...... A.3 . EFL . NF.DE.FE.A..
..".":.:....F.."YOU MUST NOW ENTER THE N
AME OF"...P.."THE PLANET YOU ARE PHOTOGR
APHING".3.Z.."AND ITS DIAMETER IN ARC SE
CS".9.....C...."(YOU CAN FIND THIS FROM
ONE OF THE"......" OTHER PROGRAMS)
"......:....... "WHAT IS THE
PLANETS NAME ";PL$...... PL$."PLUTO". ."
NO DATA ON PLUTO;PICK ANOTHER PLANET":.7
80... ...-.*.. "WHAT IS THE DIAMETER IN
ARC SECS ";DP.:.4.F.EFL.AO.I.>..".":.:.:
..X.H.DP.DP.3600.N.R.DP..(DP.57.29578).Y
.\.I.F.DP...F.R.1450.EFL...P.R.E(H(D(R),
4))...Z..:..D...."RESOLUTION FOR ";PL$;"
AT"......"FILM PLANE WILL BE ";.(R);" L
INES/MM"......:..#...."YOU ARE ADVISED T
O PICK A FILM WITH".O...."AT LEAST THREE
TIMES THIS RESOLUTION".F...R.E (H(D (R.
3),4))......:."NAMELY ";.(R);" LINES/MM
TO AVOID"...J.."GRAIN SPOILING THE IMAGE
"...T..:.:....... "WHAT IS ASA RATING OF
CHOSEN FILM?";ASA......".":.:....... PL
$."MERCURY". N.260.,.... PL$."VENUS" . N
.960.D.... PL$."MARS" . N.40._.... PL$ .
"JUPITER". N.12.Y.... PL$."SATURN". N.3.
5...$.. PL$."URANUS". N..81...... PL$."N
EPTUNE" . N..38...8.N.N.ASA.J.B.EX.EFL.2
.N.W.L..".":.:....V.."TO PHOTOGRAPH ";PL
$;" ON FILM RATED AT "...`.. ASA;" ASA".
..J...Q.T.. A. 1 . EQ$."FILM AT PRIME FO
CUS OF OBJECTIVE"...~.. A . 2 . EQ$."CAM
ERA/EYEPIECE COMBINATION"...... A .3 . E
Q$."PROJECTION FROM EYEPIECE"......"WITH
";EQ$.F....:......EX .E (H(D (EX),3))..
...."THE EXPOSURE IS ABOUT ";EX;" SEC"..
.....9.D.." (NOTE:EXPOSURE GREATER TH
AN 1 SEC".Y.N.." IS NOT RECOMMENDED)
"._.X........"AND THE IMAGE ON THE FILM
PLANE WILL BE".....I.E(H(D(I),3))......
I;"MM IN DIAMETER"............" (NOTE
:IMAGE ON THE FILM PLANE"......" SHO
ULD EXCEED 3 MM TO BE USEFUL)"......:..H
.(.."WANT ANOTHER CALCULATION? (Y/N)";A$
.^.2.. A$."N" . . 1370...<.. A$.."Y" . .
"INVALID RESPONSE":.:. 1320...F.. 310...
P.."."...Z..............................
........................................
........................
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL