DEEL-1541
FILE INFORMATION
FILENAME(S): DEEL-1541
FILE TYPE(S): PRG
FILE SIZE: 1.3K
FIRST SEEN: 2025-11-30 21:23:48
APPEARS ON: 1 disk(s)
FILE HASH
d7cefbf09e17452656d40206d8f45012013d8c73d3db14e95f62c54bfff5bda7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| THERMO4040 | DEEL-1541 | PRG | DuncanTwain | 7 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 21 08 C8 0E 53 46 24 B2 CA 28 44 24 2C 35 |..!...SF$..(D$,5|
00000010: 2C 32 29 3A 41 46 B2 C6 28 C9 28 44 24 2C 31 29 |,2):AF..(.(D$,1)|
00000020: 29 00 52 08 83 0F 48 42 B2 C6 28 CA 28 42 42 24 |).R...HB..(.(BB$|
00000030: 28 4C 29 2C 32 30 29 29 3A 4C 42 B2 C6 28 CA 28 |(L),20)):LB..(.(|
00000040: 42 42 24 28 4C 29 2C 32 31 29 29 3A 8D 37 30 3A |BB$(L),21)):.70:|
00000050: A0 32 00 92 08 3D 10 42 42 24 B2 C8 28 42 42 24 |.2...=.BB$..(BB$|
00000060: 2C 59 29 3A 99 22 13 1D 1D 12 20 5A 45 4B 45 52 |,Y):.".... ZEKER|
00000070: 20 3F 20 28 4A 2F 4E 29 20 20 20 20 20 20 12 22 | ? (J/N) ."|
00000080: 3B 42 42 24 3A 97 31 39 38 2C 30 3A 92 31 39 38 |;BB$:.198,0:.198|
00000090: 2C 31 00 D5 08 74 1D 81 58 B2 30 A4 32 30 30 30 |,1...t..X.0.2000|
000000A0: 3A 82 58 3A 99 22 13 22 3B 47 24 3B 22 3A 12 20 |:.X:.".";G$;":. |
000000B0: 4E 49 45 55 57 45 20 4E 41 41 4D 20 3A 20 20 1D |NIEUWE NAAM : .|
000000C0: 1D 1D 1D 20 20 20 20 20 20 20 20 20 20 20 20 20 |... |
000000D0: 20 20 20 20 22 00 01 09 75 1D 99 22 13 22 3B 51 | "...u..".";Q|
000000E0: 53 24 3B 22 20 20 22 3B 3A 9F 35 2C 30 3A 84 35 |S$;" ";:.5,0:.5|
000000F0: 2C 42 42 24 3A 99 3A A0 35 3A 99 22 13 11 12 41 |,BB$:.:.5:."...A|
00000100: 22 00 12 09 76 1D 8B 47 24 B2 22 4A 22 89 37 35 |"...v..G$."J".75|
00000110: 36 30 00 39 09 77 1D 4C 54 B2 31 36 3A 42 24 B2 |60.9.w.LT.16:B$.|
00000120: 42 42 24 3A 8B C3 28 42 24 29 B1 31 36 A7 42 24 |BB$:..(B$).16.B$|
00000130: B2 C8 28 42 24 2C 31 36 29 00 48 09 78 1D 8B 4C |..(B$,16).H.x..L|
00000140: 54 B2 30 89 37 35 37 30 00 83 09 79 1D 8B 4C 54 |T.0.7570...y..LT|
00000150: B1 30 AF 28 CA 28 42 24 2C 4C 54 2C 31 29 B2 22 |.0.(.(B$,LT,1)."|
00000160: 20 22 B0 CA 28 42 24 2C 4C 54 2C 31 29 B2 C7 28 | "..(B$,LT,1)..(|
00000170: 31 36 30 29 29 A7 4C 54 B2 4C 54 AB 31 3A 89 37 |160)).LT.LT.1:.7|
00000180: 35 34 34 00 94 09 7A 1D 42 42 24 B2 C8 28 42 24 |544...z.BB$..(B$|
00000190: 2C 4C 54 29 00 A5 09 7C 1D 8B 47 24 B2 22 4A 22 |,LT)...|..G$."J"|
000001A0: 89 37 35 36 30 00 CF 09 7D 1D 4C 54 B2 31 36 3A |.7560...}.LT.16:|
000001B0: 42 24 B2 42 42 24 28 4C 29 3A 8B C3 28 42 24 29 |B$.BB$(L):..(B$)|
000001C0: B1 31 36 A7 42 24 B2 C8 28 42 24 2C 31 36 29 00 |.16.B$..(B$,16).|
000001D0: DE 09 7E 1D 8B 4C 54 B2 30 89 37 35 37 30 00 19 |..~..LT.0.7570..|
000001E0: 0A 7F 1D 8B 4C 54 B1 30 AF 28 CA 28 42 24 2C 4C |....LT.0.(.(B$,L|
000001F0: 54 2C 31 29 B2 22 20 22 B0 CA 28 42 24 2C 4C 54 |T,1)." "..(B$,LT|
00000200: 2C 31 29 B2 C7 28 31 36 30 29 29 A7 4C 54 B2 4C |,1)..(160)).LT.L|
00000210: 54 AB 31 3A 89 37 35 35 30 00 29 0A 80 1D 42 24 |T.1:.7550.)...B$|
00000220: B2 C8 28 42 24 2C 4C 54 29 00 5F 0A 84 1D 4B B2 |..(B$,LT)._...K.|
00000230: C5 28 4B 24 29 3A 4D 24 B2 22 52 30 3A 22 AA 42 |.(K$):M$."R0:".B|
00000240: 42 24 AA 22 3D 22 AA C8 28 42 42 24 28 4C 29 2C |B$."="..(BB$(L),|
00000250: 4C 54 29 3A 9F 31 35 2C 4B 2C 31 35 2C 4D 24 00 |LT):.15,K,15,M$.|
00000260: 7F 0A 85 1D 84 31 35 2C 44 53 2C 47 31 24 3A 8B |.....15,DS,G1$:.|
00000270: 44 53 B2 30 B0 44 53 B2 35 30 89 37 35 35 39 00 |DS.0.DS.50.7559.|
00000280: B5 0A 86 1D 99 22 13 20 20 12 20 20 20 20 20 20 |.....". . |
00000290: 20 20 20 20 20 20 20 20 20 20 22 3A 99 22 13 1D | ":."..|
000002A0: 1D 12 22 3B 47 31 24 3A 97 31 39 38 2C 30 3A 92 |..";G1$:.198,0:.|
000002B0: 31 39 38 2C 31 00 F3 0A BA 27 8B 58 31 24 B2 22 |198,1....'.X1$."|
000002C0: 50 22 A7 98 31 2C 56 24 3B 22 53 48 49 46 54 20 |P"..1,V$;"SHIFT |
000002D0: 2B 20 3D 20 4F 50 56 52 41 47 45 4E 20 56 45 52 |+ = OPVRAGEN VER|
000002E0: 42 4F 52 47 45 4E 20 49 4E 53 54 52 55 43 54 49 |BORGEN INSTRUCTI|
000002F0: 45 53 22 00 12 0B CC 2F 8B C3 28 43 24 29 B3 32 |ES"..../..(C$).2|
00000300: 31 A7 43 24 B2 43 24 AA 22 2D 22 3A 89 31 32 32 |1.C$.C$."-":.122|
00000310: 33 36 00 3C 0B B3 65 98 31 35 2C 22 42 2D 50 22 |36.<..e.15,"B-P"|
00000320: 3B 32 3B 32 35 33 3A A1 23 32 2C 41 24 3A 8B 41 |;2;253:.#2,A$:.A|
00000330: 24 B2 22 22 A7 41 24 B2 C7 28 30 29 00 56 0B B8 |$."".A$..(0).V..|
00000340: 65 A1 23 32 2C 42 24 3A 8B 42 24 B2 22 22 A7 42 |e.#2,B$:.B$."".B|
00000350: 24 B2 C7 28 30 29 00 6A 0B D6 65 98 31 35 2C 22 |$..(0).j..e.15,"|
00000360: 49 30 22 3A A0 32 3A A0 31 35 00 83 0B E0 65 8B |I0":.2:.15....e.|
00000370: 59 B2 C6 28 41 24 29 AA C6 28 42 24 29 AC 32 35 |Y..(A$)..(B$).25|
00000380: 36 A7 8E 00 8E 0B F4 65 89 31 31 37 35 30 00 CA |6......e.11750..|
00000390: 0B 58 66 99 22 93 50 4C 41 41 54 53 20 44 49 53 |.Xf.".PLAATS DIS|
000003A0: 4B 45 54 54 45 20 4D 45 54 20 54 48 45 52 4D 4F |KETTE MET THERMO|
000003B0: 2D 42 49 42 4C 2D 31 35 34 31 20 20 20 20 49 4E |-BIBL-1541 IN|
000003C0: 20 44 52 49 56 45 20 38 11 22 00 FA 0B 5D 66 99 | DRIVE 8."...]f.|
000003D0: 22 12 20 47 45 45 46 20 38 20 4B 41 52 41 4B 54 |". GEEF 8 KARAKT|
000003E0: 45 52 53 20 56 4F 4F 52 20 4E 49 45 55 57 20 50 |ERS VOOR NIEUW P|
000003F0: 41 53 53 57 4F 52 44 20 11 22 00 0C 0C 62 66 99 |ASSWORD ."...bf.|
00000400: 22 5E 20 3D 20 54 45 52 55 47 11 22 00 22 0C 6C |"^ = TERUG.".".l|
00000410: 66 85 50 24 3A 8B 50 24 B2 22 5E 22 89 31 31 35 |f.P$:.P$."^".115|
00000420: 30 30 00 36 0C 76 66 8B C3 28 50 24 29 B3 B1 38 |00.6.vf..(P$)..8|
00000430: 89 32 36 32 30 30 00 59 0C 80 66 59 B2 30 3A 81 |.26200.Y..fY.0:.|
00000440: 58 B2 31 A4 38 3A 59 B2 59 AA C6 28 CA 28 50 24 |X.1.8:Y.Y..(.(P$|
00000450: 2C 58 2C 31 29 29 3A 82 58 00 7B 0C 85 66 4B 24 |,X,1)):.X.{..fK$|
00000460: B2 22 30 22 3A 4B B2 30 3A 8D 32 30 30 30 30 3A |."0":K.0:.20000:|
00000470: 8B 46 54 B2 31 89 32 36 32 30 30 00 97 0C 8A 66 |.FT.1.26200....f|
00000480: 48 42 B2 B5 28 59 AD 32 35 36 29 3A 4C 42 B2 59 |HB..(Y.256):LB.Y|
00000490: AB 48 42 AC 32 35 36 00 C7 0C 94 66 9F 31 35 2C |.HB.256....f.15,|
000004A0: 38 2C 31 35 2C 22 49 30 22 3A 9F 32 2C 38 2C 32 |8,15,"I0":.2,8,2|
000004B0: 2C 22 23 22 3A 98 31 35 2C 22 55 31 22 3B 32 3B |,"#":.15,"U1";2;|
000004C0: 30 3B 31 38 3B 31 38 00 DB 0C 99 66 98 31 35 2C |0;18;18....f.15,|
000004D0: 22 42 2D 50 22 3B 32 3B 32 35 33 00 0A 0D 9E 66 |"B-P";2;253....f|
000004E0: 98 32 2C C7 28 4C 42 29 3B C7 28 48 42 29 3A 98 |.2,.(LB);.(HB):.|
000004F0: 31 35 2C 22 55 32 00 3B 32 3B 30 3B 31 38 3B 31 |15,"U2.;2;0;18;1|
00000500: 38 3A 98 31 35 2C 22 49 30 22 00 1C 0D A8 66 A0 |8:.15,"I0"....f.|
00000510: 32 3A A0 31 35 3A 89 31 31 35 30 30 00 00 00 |2:.15:.11500... |
..!.H.SF$.J(D$,5,2):AF.F(I(D$,1)).R...HB
.F(J(BB$(L),20)):LB.F(J(BB$(L),21)):.70:
2...=.BB$.H(BB$,Y):.".... ZEKER ? (J/N)
.";BB$:.198,0:.198,1.U.T..X.0.2000
:.X:.".";G$;":. NIEUWE NAAM : ....
"...U..".";QS$;" ";:.5,0:.5
,BB$:.: 5:."...A"...V..G$."J".7560.9.W.L
T.16:B$.BB$:.C(B$).16.B$.H(B$,16).H.X..L
T.0.7570...Y..LT.0.(J(B$,LT,1)." ".J(B$,
LT,1).G(160)).LT.LT.1:.7544...Z.BB$.H(B$
,LT)...|..G$."J".7560.O.}.LT.16:B$.BB$(L
):.C(B$).16.B$.H(B$,16)...~..LT.0.7570..
...LT.0.(J(B$,LT,1)." ".J(B$,LT,1).G(16
0)).LT.LT.1:.7550.)...B$.H(B$,LT)._...K.
E(K$):M$."R0:".BB$."=".H(BB$(L),LT):.15,
K,15,M$.....15,DS,G1$:.DS.0.DS.50.7559.
.....". . ":."....";G1$:
.198,0:.198,1....'.X1$."P"..1,V$;"SHIFT
+ = OPVRAGEN VERBORGEN INSTRUCTIES"...L/
.C(C$).21.C$.C$."-":.12236.<..E.15,"B-P"
;2;253:.#2,A$:.A$."".A$.G(0).V..E.#2,B$:
.B$."".B$.G(0).J.VE.15,"I0": 2: 15....E.
Y.F(A$).F(B$).256......E.11750.J.XF.".PL
AATS DISKETTE MET THERMO-BIBL-1541 IN
DRIVE 8."...]F.". GEEF 8 KARAKTERS VOOR
NIEUW PASSWORD ."...BF."^ = TERUG.".".L
F.P$:.P$."^".11500.6.VF.C(P$)..8.26200.Y
..FY.0:.X.1.8:Y.Y.F(J(P$,X,1)):.X.{..FK$
."0":K.0:.20000:.FT.1.26200....FHB..(Y.2
56):LB.Y.HB.256.G..F.15,8,15,"I0":.2,8,2
,"#":.15,"U1";2;0;18;18....F.15,"B-P";2;
253....F.2,G(LB);G(HB):.15,"U2.;2;0;18;1
8:.15,"I0"....F 2: 15:.11500...
> CLICK IMAGE PREVIEW FOR FULL MODAL