LICHTB.3
FILE INFORMATION
FILENAME(S): LICHTB.3
FILE TYPE(S): PRG
FILE SIZE: 1K
FIRST SEEN: 2025-11-30 21:10:14
APPEARS ON: 1 disk(s)
FILE HASH
1a743f7cd42d5787e742c4a97c73833d2e4b00aaf2f22bbc4adb4ba7291cd8e0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| A006 | LICHTB.3 | PRG | DuncanTwain | 16 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 20 31 30 00 22 08 0A 00 43 |....... 10."...C| 00000010: 24 B2 C7 28 31 34 37 29 3A 52 24 B2 C7 28 30 31 |$..(147):R$..(01| 00000020: 33 29 00 3E 08 14 00 47 33 24 B2 C7 28 31 35 35 |3).>...G3$..(155| 00000030: 29 3A 64 1A 20 31 31 2C 30 3A 99 20 43 24 00 53 |):d. 11,0:. C$.S| 00000040: 08 1E 00 64 74 31 2C 43 24 AA 22 4C 49 53 54 22 |...dt1,C$."LIST"| 00000050: AA 52 24 00 67 08 28 00 64 74 33 2C 43 24 AA 22 |.R$.g.(.dt3,C$."| 00000060: 52 55 4E 22 AA 52 24 00 7C 08 32 00 64 74 35 2C |RUN".R$.|.2.dt5,| 00000070: 43 24 AA 22 44 55 4D 50 22 AA 52 24 00 A0 08 64 |C$."DUMP".R$...d| 00000080: 00 8F 20 50 52 4F 47 2E 33 38 20 42 52 45 4B 49 |.. PROG.38 BREKI| 00000090: 4E 47 20 56 41 4E 20 4C 49 43 48 54 20 55 49 54 |NG VAN LICHT UIT| 000000A0: 00 C6 08 6E 00 8F 20 20 2A 2A 20 34 30 20 47 52 |...n.. ** 40 GR| 000000B0: 41 46 2E 50 52 4F 47 2E 56 4F 4F 52 20 43 3D 36 |AF.PROG.VOOR C=6| 000000C0: 34 20 2A 2A 20 2E 00 E7 08 78 00 8F 20 48 45 52 |4 ** ....x.. HER| 000000D0: 5A 49 45 4E 20 44 4F 4F 52 20 4A 2E 48 2E 56 41 |ZIEN DOOR J.H.VA| 000000E0: 4E 20 52 49 4A 4E 2E 00 FB 08 82 00 99 20 43 24 |N RIJN....... C$| 000000F0: 47 33 24 3A 64 1A 20 31 31 2C 30 00 13 09 8C 00 |G3$:d. 11,0.....| 00000100: 85 22 20 42 52 45 4B 49 4E 47 53 49 4E 44 45 58 |." BREKINGSINDEX| 00000110: 22 3B 4E 00 2F 09 96 00 58 4C B2 30 3A 58 52 B2 |";N./...XL.0:XR.| 00000120: 33 31 39 3A 59 42 B2 30 3A 59 4F B2 31 39 39 00 |319:YB.0:YO.199.| 00000130: 3E 09 A0 00 56 B2 31 30 30 3A 53 53 B2 34 00 51 |>...V.100:SS.4.Q| 00000140: 09 AA 00 48 B2 30 2E 35 3A 52 44 B2 FF AD 31 38 |...H.0.5:RD...18| 00000150: 30 00 6B 09 B4 00 64 01 20 31 2C 30 3A 64 03 20 |0.k...d. 1,0:d. | 00000160: 58 4C 2C 56 2C 58 52 2C 56 2C 31 00 8A 09 BE 00 |XL,V,XR,V,1.....| 00000170: 64 08 20 58 4C 2C 59 42 2C 28 58 52 AB 58 4C 29 |d. XL,YB,(XR.XL)| 00000180: 2C 28 59 4F AB 59 42 29 2C 31 00 B0 09 C8 00 8F |,(YO.YB),1......| 00000190: 20 53 54 52 41 4C 45 4E 20 49 4E 20 53 54 4F 46 | STRALEN IN STOF| 000001A0: 20 31 20 45 4E 20 32 20 54 45 4B 45 4E 45 4E 2E | 1 EN 2 TEKENEN.| 000001B0: 00 CE 09 D2 00 8F 20 64 0D 41 4C 53 48 4F 45 4B |...... d.ALSHOEK| 000001C0: 20 42 45 54 41 3D 42 20 4F 46 20 42 31 2E 00 F1 | BETA=B OF B1...| 000001D0: 09 DC 00 8F 20 42 20 49 4E 20 47 52 41 44 45 4E |.... B IN GRADEN| 000001E0: 3B 20 42 31 20 49 4E 20 52 41 44 49 41 4C 45 4E |; B1 IN RADIALEN| 000001F0: 2E 00 14 0A E6 00 8F 20 42 52 45 4B 49 4E 47 53 |....... BREKINGS| 00000200: 48 4F 45 4B 20 41 4C 46 41 3D 41 31 20 49 4E 20 |HOEK ALFA=A1 IN | 00000210: 52 41 44 2E 00 37 0A F0 00 42 52 B2 B5 28 48 AA |RAD..7...BR..(H.| 00000220: 28 C1 28 28 58 52 AB 58 4C 29 AD 28 59 4F AB 56 |(.((XR.XL).(YO.V| 00000230: 29 29 AD 52 44 29 29 00 54 0A FA 00 81 20 42 B2 |)).RD)).T.... B.| 00000240: 53 53 20 A4 20 42 52 20 A9 20 53 53 3A 42 31 B2 |SS . BR . SS:B1.| 00000250: 42 AC 52 44 00 70 0A 04 01 58 4E B2 58 4C AA B5 |B.RD.p...XN.XL..| 00000260: 28 48 AA 28 59 4F AB 56 29 AC C0 28 42 31 29 29 |(H.(YO.V)..(B1))| 00000270: 00 84 0A 0E 01 64 03 20 58 4C 2C 59 4F 2C 58 4E |.....d. XL,YO,XN| 00000280: 2C 56 2C 31 00 C6 0A 18 01 8F 20 53 3D 53 49 4E |,V,1...... S=SIN| 00000290: 28 41 4C 46 41 29 20 42 45 52 45 4B 45 4E 45 4E |(ALFA) BEREKENEN| 000002A0: 3B 20 54 45 56 45 4E 53 20 43 4F 4E 54 52 4F 4C |; TEVENS CONTROL| 000002B0: 45 20 4F 50 20 54 4F 54 41 4C 45 20 52 45 46 4C |E OP TOTALE REFL| 000002C0: 45 43 54 49 45 2E 00 E1 0A 22 01 53 B2 4E AC BF |ECTIE....".S.N..| 000002D0: 28 42 31 29 3A 8B 20 53 B1 B2 31 20 A7 20 33 35 |(B1):. S..1 . 35| 000002E0: 30 00 10 0B 2C 01 58 48 B2 58 4E AA B5 28 48 AA |0...,.XH.XN..(H.| 000002F0: 28 56 AB 59 42 29 AC 53 AD BA 28 31 AB 53 AC 53 |(V.YB).S..(1.S.S| 00000300: 29 29 3A 8B 20 58 48 B1 58 52 20 A7 20 33 32 30 |)):. XH.XR . 320| 00000310: 00 2A 0B 36 01 64 03 20 58 4E 2C 56 2C 58 48 2C |.*.6.d. XN,V,XH,| 00000320: 59 42 2C 31 3A 89 20 33 39 30 00 4B 0B 40 01 59 |YB,1:. 390.K.@.Y| 00000330: 57 B2 56 AB B5 28 48 AA 28 58 52 AB 58 4E 29 AC |W.V..(H.(XR.XN).| 00000340: BA 28 31 AB 53 AC 53 29 AD 53 29 00 65 0B 4A 01 |.(1.S.S).S).e.J.| 00000350: 64 03 20 58 4E 2C 56 2C 58 52 2C 59 57 2C 31 3A |d. XN,V,XR,YW,1:| 00000360: 89 20 33 39 30 00 80 0B 5E 01 8F 20 54 4F 54 41 |. 390...^.. TOTA| 00000370: 4C 45 20 54 45 52 55 47 4B 41 41 54 53 49 4E 47 |LE TERUGKAATSING| 00000380: 00 AF 0B 68 01 8B 20 58 52 B1 B2 32 AC 58 4E AB |...h.. XR..2.XN.| 00000390: 58 4C 20 A7 20 64 03 20 58 4E 2C 56 2C 32 AC 58 |XL . d. XN,V,2.X| 000003A0: 4E AB 58 4C 2C 59 4F 2C 31 3A 89 20 33 39 30 00 |N.XL,YO,1:. 390.| 000003B0: D4 0B 72 01 59 56 B2 56 AA B5 28 48 AA 28 58 52 |..r.YV.V..(H.(XR| 000003C0: AB 58 4E 29 AC 28 59 4F AB 56 29 AD 28 58 4E AB |.XN).(YO.V).(XN.| 000003D0: 58 4C 29 29 00 E8 0B 7C 01 64 03 20 58 4E 2C 56 |XL))...|.d. XN,V| 000003E0: 2C 58 52 2C 59 56 2C 31 00 F0 0B 86 01 82 20 42 |,XR,YV,1...... B| 000003F0: 00 07 0C 90 01 A1 20 4B 24 3A 8B 20 4B 24 B2 22 |...... K$:. K$."| 00000400: 22 20 A7 20 34 30 30 00 0D 0C 9A 01 80 00 00 00 |" . 400.........|
....... 10."...C$.G(147):R$.G(013).>...G 3$.G(155):D. 11,0:. C$.S...DT1,C$."LIST" .R$.G.(.DT3,C$."RUN".R$.|.2.DT5,C$."DUMP ".R$. .D.. PROG.38 BREKING VAN LICHT UIT .F.N.. ** 40 GRAF.PROG.VOOR C=64 ** ... .X.. HERZIEN DOOR J.H.VAN RIJN....... C$ G3$:D. 11,0......" BREKINGSINDEX";N./... XL.0:XR.319:YB.0:YO.199.>. .V.100:SS.4.Q ...H.0.5:RD...180.K...D. 1,0:D. XL,V,XR, V,1.....D. XL,YB,(XR.XL),(YO.YB),1...H.. STRALEN IN STOF 1 EN 2 TEKENEN..N.R.. D .ALSHOEK BETA=B OF B1....... B IN GRADEN ; B1 IN RADIALEN....... BREKINGSHOEK ALF A=A1 IN RAD..7...BR..(H.(A((XR.XL).(YO.V )).RD)).T.... B.SS . BR . SS:B1.B.RD.P.. .XN.XL..(H.(YO.V)..(B1)).....D. XL,YO,XN ,V,1.F.... S=SIN(ALFA) BEREKENEN; TEVENS CONTROLE OP TOTALE REFLECTIE....".S.N.. (B1):. S..1 . 350...,.XH.XN..(H.(V.YB).S ..(1.S.S)):. XH.XR . 320.*.6.D. XN,V,XH, YB,1:. 390.K.@.YW.V..(H.(XR.XN)..(1.S.S) .S).E.J.D. XN,V,XR,YW,1:. 390...^.. TOTA LE TERUGKAATSING...H.. XR..2.XN.XL . D. XN,V,2.XN.XL,YO,1:. 390.T.R.YV.V..(H.(XR .XN).(YO.V).(XN.XL))...|.D. XN,V,XR,YV,1 ...... B...... K$:. K$."" . 400.........
> CLICK IMAGE PREVIEW FOR FULL MODAL