REFRAC
FILE INFORMATION
FILENAME(S): REFRAC
FILE TYPE(S): DEL
FILE SIZE: 1.2K
FIRST SEEN: 2025-11-30 21:10:14
APPEARS ON: 1 disk(s)
FILE HASH
c50ecf3422ebb2bfb6ecc4af8fe080e8dee9fc7e18dfcbad3b8fbf614caa24fc
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| A006 | REFRAC | DEL | DuncanTwain | 21 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 08 0A 08 01 00 89 20 31 30 00 14 08 02 00 89 |....... 10......|
00000010: 20 39 30 30 00 52 08 0A 00 43 24 B2 C7 28 31 34 | 900.R...C$..(14|
00000020: 37 29 3A 52 24 B2 C7 28 30 31 33 29 20 20 20 20 |7):R$..(013) |
00000030: 20 20 20 20 20 20 20 20 20 20 3A 47 33 24 B2 C7 | :G3$..|
00000040: 28 31 35 35 29 3A 64 1A 20 31 31 2C 30 3A 99 20 |(155):d. 11,0:. |
00000050: 43 24 00 67 08 14 00 64 74 31 2C 43 24 AA 22 4C |C$.g...dt1,C$."L|
00000060: 49 53 54 22 AA 52 24 00 7B 08 1E 00 64 74 33 2C |IST".R$.{...dt3,|
00000070: 43 24 AA 22 52 55 4E 22 AA 52 24 00 90 08 28 00 |C$."RUN".R$...(.|
00000080: 64 74 35 2C 43 24 AA 22 44 55 4D 50 22 AA 52 24 |dt5,C$."DUMP".R$|
00000090: 00 DB 08 64 00 8F 20 50 52 4F 47 2E 33 38 20 42 |...d.. PROG.38 B|
000000A0: 52 45 4B 49 4E 47 20 56 41 4E 20 4C 49 43 48 54 |REKING VAN LICHT|
000000B0: 20 55 49 54 20 20 20 20 20 20 20 20 20 20 20 2A | UIT *|
000000C0: 2A 20 34 30 20 47 52 41 46 2E 50 52 4F 47 2E 56 |* 40 GRAF.PROG.V|
000000D0: 4F 4F 52 20 43 3D 36 34 20 2A 2A 00 FC 08 6E 00 |OOR C=64 **...n.|
000000E0: 8F 20 48 45 52 5A 49 45 4E 20 44 4F 4F 52 20 4A |. HERZIEN DOOR J|
000000F0: 2E 48 2E 56 41 4E 20 52 49 4A 4E 2E 00 10 09 78 |.H.VAN RIJN....x|
00000100: 00 99 20 43 24 47 33 24 3A 64 1A 20 31 31 2C 30 |.. C$G3$:d. 11,0|
00000110: 00 28 09 82 00 85 22 20 42 52 45 4B 49 4E 47 53 |.(...." BREKINGS|
00000120: 49 4E 44 45 58 22 3B 4E 00 64 09 8C 00 58 4C B2 |INDEX";N.d...XL.|
00000130: 30 3A 58 52 B2 33 31 39 3A 59 42 B2 30 3A 59 4F |0:XR.319:YB.0:YO|
00000140: B2 31 39 39 20 20 20 20 20 20 20 20 20 20 20 20 |.199 |
00000150: 20 20 20 20 3A 8F 20 4B 41 44 45 52 47 52 45 4E | :. KADERGREN|
00000160: 5A 45 4E 2E 00 73 09 96 00 56 B2 31 30 30 3A 53 |ZEN..s...V.100:S|
00000170: 53 B2 34 00 95 09 A0 00 48 B2 30 2E 35 3A 48 51 |S.4.....H.0.5:HQ|
00000180: B2 BA 28 48 29 3A 52 44 B2 FF AD 31 38 30 3A 50 |..(H):RD...180:P|
00000190: 48 B2 FF AD 32 00 D7 09 AA 00 64 01 20 31 2C 30 |H...2.....d. 1,0|
000001A0: 3A 64 03 20 58 4C 2C 56 2C 58 52 2C 56 2C 31 20 |:d. XL,V,XR,V,1 |
000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 3A 64 08 20 | :d. |
000001C0: 58 4C 2C 59 42 2C 28 58 52 AB 58 4C 29 2C 28 59 |XL,YB,(XR.XL),(Y|
000001D0: 4F AB 59 42 29 2C 31 00 FD 09 C8 00 8F 20 53 54 |O.YB),1...... ST|
000001E0: 52 41 4C 45 4E 20 49 4E 20 53 54 4F 46 20 31 20 |RALEN IN STOF 1 |
000001F0: 45 4E 20 32 20 54 45 4B 45 4E 45 4E 2E 00 3A 0A |EN 2 TEKENEN..:.|
00000200: D2 00 8F 20 64 0D 41 4C 53 48 4F 45 4B 20 42 45 |... d.ALSHOEK BE|
00000210: 54 41 3B 20 42 3D 42 45 54 41 20 49 4E 20 47 52 |TA; B=BETA IN GR|
00000220: 41 44 45 4E 3B 20 42 31 3D 42 45 54 41 20 49 4E |ADEN; B1=BETA IN|
00000230: 20 52 41 44 49 41 4C 45 4E 2E 00 5D 0A DC 00 8F | RADIALEN..]....|
00000240: 20 42 52 45 4B 49 4E 47 53 48 4F 45 4B 20 41 4C | BREKINGSHOEK AL|
00000250: 46 41 3D 41 31 20 49 4E 20 52 41 44 2E 00 9F 0A |FA=A1 IN RAD....|
00000260: E6 00 42 52 B2 B5 28 48 AA 28 C1 28 28 58 52 AB |..BR..(H.(.((XR.|
00000270: 58 4C 29 AD 28 59 4F AB 56 29 29 AD 52 44 29 29 |XL).(YO.V)).RD))|
00000280: 20 20 20 20 20 3A 8F 20 55 49 54 45 52 53 54 45 | :. UITERSTE|
00000290: 20 48 4F 45 4B 20 56 41 4E 20 64 0D 41 4C 2E 00 | HOEK VAN d.AL..|
000002A0: DD 0A F0 00 81 20 42 B2 53 53 20 A4 20 42 52 20 |..... B.SS . BR |
000002B0: A9 20 53 53 3A 42 31 B2 42 AC 52 44 20 20 20 20 |. SS:B1.B.RD |
000002C0: 20 20 20 20 20 3A 58 4E B2 58 4C AA B5 28 48 AA | :XN.XL..(H.|
000002D0: 28 59 4F AB 56 29 AC C0 28 42 31 29 29 00 F1 0A |(YO.V)..(B1))...|
000002E0: FA 00 64 03 20 58 4C 2C 59 4F 2C 58 4E 2C 56 2C |..d. XL,YO,XN,V,|
000002F0: 31 00 33 0B 04 01 8F 20 53 3D 53 49 4E 28 41 4C |1.3.... S=SIN(AL|
00000300: 46 41 29 20 42 45 52 45 4B 45 4E 45 4E 3B 20 54 |FA) BEREKENEN; T|
00000310: 45 56 45 4E 53 20 43 4F 4E 54 52 4F 4C 45 20 4F |EVENS CONTROLE O|
00000320: 50 20 54 4F 54 41 4C 45 20 52 45 46 4C 45 43 54 |P TOTALE REFLECT|
00000330: 49 45 2E 00 4E 0B 0E 01 53 B2 4E AC BF 28 42 31 |IE..N...S.N..(B1|
00000340: 29 3A 8B 20 53 B1 B2 31 20 A7 20 33 35 30 00 78 |):. S..1 . 350.x|
00000350: 0B 2C 01 58 48 B2 58 4E AA 28 56 AB 59 42 29 AC |.,.XH.XN.(V.YB).|
00000360: 53 AD BA 28 31 AB 53 AC 53 29 3A 8B 20 58 48 B1 |S..(1.S.S):. XH.|
00000370: 58 52 20 A7 20 33 32 30 00 92 0B 36 01 64 03 20 |XR . 320...6.d. |
00000380: 58 4E 2C 56 2C 58 48 2C 59 42 2C 31 3A 89 20 33 |XN,V,XH,YB,1:. 3|
00000390: 39 30 00 AE 0B 40 01 59 57 B2 56 AB 28 58 52 AB |90...@.YW.V.(XR.|
000003A0: 58 4E 29 AC BA 28 31 AB 53 AC 53 29 AD 53 00 C8 |XN)..(1.S.S).S..|
000003B0: 0B 4A 01 64 03 20 58 4E 2C 56 2C 58 52 2C 59 57 |.J.d. XN,V,XR,YW|
000003C0: 2C 31 3A 89 20 33 39 30 00 E3 0B 5E 01 8F 20 54 |,1:. 390...^.. T|
000003D0: 4F 54 41 4C 45 20 54 45 52 55 47 4B 41 41 54 53 |OTALE TERUGKAATS|
000003E0: 49 4E 47 00 12 0C 68 01 8B 20 58 52 B1 B2 32 AC |ING...h.. XR..2.|
000003F0: 58 4E AB 58 4C 20 A7 20 64 03 20 58 4E 2C 56 2C |XN.XL . d. XN,V,|
00000400: 32 AC 58 4E AB 58 4C 2C 59 4F 2C 31 3A 89 20 33 |2.XN.XL,YO,1:. 3|
00000410: 39 30 00 37 0C 72 01 59 56 B2 56 AA B5 28 48 AA |90.7.r.YV.V..(H.|
00000420: 28 58 52 AB 58 4E 29 AC 28 59 4F AB 56 29 AD 28 |(XR.XN).(YO.V).(|
00000430: 58 4E AB 58 4C 29 29 00 4B 0C 7C 01 64 03 20 58 |XN.XL)).K.|.d. X|
00000440: 4E 2C 56 2C 58 52 2C 59 56 2C 31 00 53 0C 86 01 |N,V,XR,YV,1.S...|
00000450: 82 20 42 00 69 0C 90 01 A1 20 4B 24 3A 8B 20 4B |. B.i.... K$:. K|
00000460: 24 B2 22 22 20 A7 34 30 30 00 73 0C 9A 01 89 20 |$."" .400.s.... |
00000470: 39 39 39 00 8E 0C 84 03 9F 20 35 2C 38 2C 31 35 |999...... 5,8,15|
00000480: 2C 22 53 30 3A 52 45 46 52 41 43 2F 4F 22 00 AC |,"S0:REFRAC/O"..|
00000490: 0C 8E 03 98 35 2C 22 52 30 3A 52 45 46 52 41 43 |....5,"R0:REFRAC|
000004A0: 2F 4F 3D 30 3A 52 45 46 52 41 43 22 00 C6 0C 98 |/O=0:REFRAC"....|
000004B0: 03 98 35 2C 22 52 30 3A 52 45 46 52 41 43 3D 30 |..5,"R0:REFRAC=0|
000004C0: 3A 54 45 4D 50 22 00 CE 0C A2 03 A0 20 35 00 E7 |:TEMP"...... 5..|
000004D0: 0C AC 03 99 20 22 56 45 52 53 49 45 5A 45 54 20 |.... "VERSIEZET |
000004E0: 4B 4C 41 41 52 2E 22 00 ED 0C E7 03 80 00 00 00 |KLAAR.".........|
....... 10...... 900.R...C$.G(147):R$.G(
013) :G3$.G(155):D. 11,0:.
C$.G...DT1,C$."LIST".R$.{...DT3,C$."RUN"
.R$...(.DT5,C$."DUMP".R$...D.. PROG.38 B
REKING VAN LICHT UIT ** 40 GRA
F.PROG.VOOR C=64 **...N.. HERZIEN DOOR J
.H.VAN RIJN....X.. C$G3$:D. 11,0.(...."
BREKINGSINDEX";N.D...XL.0:XR.319:YB.0:YO
.199 :. KADERGRENZEN..S..
.V.100:SS.4... .H.0.5:HQ..(H):RD...180:P
H...2.W...D. 1,0:D. XL,V,XR,V,1
:D. XL,YB,(XR.XL),(YO.YB),1...H.. ST
RALEN IN STOF 1 EN 2 TEKENEN..:.R.. D.AL
SHOEK BETA; B=BETA IN GRADEN; B1=BETA IN
RADIALEN..].... BREKINGSHOEK ALFA=A1 IN
RAD......BR..(H.(A((XR.XL).(YO.V)).RD))
:. UITERSTE HOEK VAN D.AL....... B.
SS . BR . SS:B1.B.RD :XN.XL..(H.
(YO.V)..(B1)).....D. XL,YO,XN,V,1.3....
S=SIN(ALFA) BEREKENEN; TEVENS CONTROLE O
P TOTALE REFLECTIE..N...S.N..(B1):. S..1
. 350.X.,.XH.XN.(V.YB).S..(1.S.S):. XH.
XR . 320...6.D. XN,V,XH,YB,1:. 390...@.Y
W.V.(XR.XN)..(1.S.S).S.H.J.D. XN,V,XR,YW
,1:. 390...^.. TOTALE TERUGKAATSING...H.
. XR..2.XN.XL . D. XN,V,2.XN.XL,YO,1:. 3
90.7.R.YV.V..(H.(XR.XN).(YO.V).(XN.XL)).
K.|.D. XN,V,XR,YV,1.S.... B.I.... K$:. K
$."" .400.S.... 999...... 5,8,15,"S0:REF
RAC/O"......5,"R0:REFRAC/O=0:REFRAC".F..
..5,"R0:REFRAC=0:TEMP".N... 5...... "VE
RSIEZET KLAAR.".........
> CLICK IMAGE PREVIEW FOR FULL MODAL