DEEL-4040
FILE INFORMATION
FILENAME(S): DEEL-4040
FILE TYPE(S): PRG
FILE SIZE: 1.3K
FIRST SEEN: 2025-11-30 21:23:48
APPEARS ON: 1 disk(s)
FILE HASH
fbcd05437def361be119ad9bf872b66f29a9687d06403da4855fe8118d8c2ec9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| THERMO4040 | DEEL-4040 | PRG | DuncanTwain | 9 | 9 | 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 5C 0A 84 1D 4D 24 |..(B$,LT).\...M$| 00000230: B2 22 52 22 AA 4B 24 AA 22 3A 22 AA 42 42 24 AA |."R".K$.":".BB$.| 00000240: 22 3D 22 AA C8 28 42 42 24 28 4C 29 2C 4C 54 29 |"="..(BB$(L),LT)| 00000250: 3A 9F 31 35 2C 38 2C 31 35 2C 4D 24 00 7C 0A 85 |:.15,8,15,M$.|..| 00000260: 1D 84 31 35 2C 44 53 2C 47 31 24 3A 8B 44 53 B2 |..15,DS,G1$:.DS.| 00000270: 30 B0 44 53 B2 35 30 89 37 35 35 39 00 B2 0A 86 |0.DS.50.7559....| 00000280: 1D 99 22 13 20 20 12 20 20 20 20 20 20 20 20 20 |..". . | 00000290: 20 20 20 20 20 20 20 22 3A 99 22 13 1D 1D 12 22 | ":."...."| 000002A0: 3B 47 31 24 3A 97 31 39 38 2C 30 3A 92 31 39 38 |;G1$:.198,0:.198| 000002B0: 2C 31 00 F0 0A BA 27 8B 58 31 24 B2 22 50 22 A7 |,1....'.X1$."P".| 000002C0: 98 31 2C 56 24 3B 22 53 48 49 46 54 20 2B 20 3D |.1,V$;"SHIFT + =| 000002D0: 20 4F 50 56 52 41 47 45 4E 20 56 45 52 42 4F 52 | OPVRAGEN VERBOR| 000002E0: 47 45 4E 20 49 4E 53 54 52 55 43 54 49 45 53 22 |GEN INSTRUCTIES"| 000002F0: 00 0F 0B CC 2F 8B C3 28 43 24 29 B3 32 31 A7 43 |..../..(C$).21.C| 00000300: 24 B2 43 24 AA 22 2D 22 3A 89 31 32 32 33 36 00 |$.C$."-":.12236.| 00000310: 39 0B B3 65 98 31 35 2C 22 42 2D 50 22 3B 32 3B |9..e.15,"B-P";2;| 00000320: 32 35 33 3A A1 23 32 2C 41 24 3A 8B 41 24 B2 22 |253:.#2,A$:.A$."| 00000330: 22 A7 41 24 B2 C7 28 30 29 00 53 0B B8 65 A1 23 |".A$..(0).S..e.#| 00000340: 32 2C 42 24 3A 8B 42 24 B2 22 22 A7 42 24 B2 C7 |2,B$:.B$."".B$..| 00000350: 28 30 29 00 67 0B D6 65 98 31 35 2C 22 49 30 22 |(0).g..e.15,"I0"| 00000360: 3A A0 32 3A A0 31 35 00 80 0B E0 65 8B 59 B2 C6 |:.2:.15....e.Y..| 00000370: 28 41 24 29 AA C6 28 42 24 29 AC 32 35 36 A7 8E |(A$)..(B$).256..| 00000380: 00 8B 0B F4 65 89 31 31 37 35 30 00 C7 0B 58 66 |....e.11750...Xf| 00000390: 99 22 93 50 4C 41 41 54 53 20 44 49 53 4B 45 54 |.".PLAATS DISKET| 000003A0: 54 45 20 4D 45 54 20 54 48 45 52 4D 4F 2D 42 49 |TE MET THERMO-BI| 000003B0: 42 4C 2D 34 30 34 30 20 20 20 20 49 4E 20 44 52 |BL-4040 IN DR| 000003C0: 49 56 45 20 30 11 22 00 F7 0B 5D 66 99 22 12 20 |IVE 0."...]f.". | 000003D0: 47 45 45 46 20 38 20 4B 41 52 41 4B 54 45 52 53 |GEEF 8 KARAKTERS| 000003E0: 20 56 4F 4F 52 20 4E 49 45 55 57 20 50 41 53 53 | VOOR NIEUW PASS| 000003F0: 57 4F 52 44 20 11 22 00 09 0C 62 66 99 22 5E 20 |WORD ."...bf."^ | 00000400: 3D 20 54 45 52 55 47 11 22 00 1F 0C 6C 66 85 50 |= TERUG."...lf.P| 00000410: 24 3A 8B 50 24 B2 22 5E 22 89 31 31 35 30 30 00 |$:.P$."^".11500.| 00000420: 33 0C 76 66 8B C3 28 50 24 29 B3 B1 38 89 32 36 |3.vf..(P$)..8.26| 00000430: 32 30 30 00 56 0C 80 66 59 B2 30 3A 81 58 B2 31 |200.V..fY.0:.X.1| 00000440: A4 38 3A 59 B2 59 AA C6 28 CA 28 50 24 2C 58 2C |.8:Y.Y..(.(P$,X,| 00000450: 31 29 29 3A 82 58 00 78 0C 85 66 4B 24 B2 22 30 |1)):.X.x..fK$."0| 00000460: 22 3A 4B B2 30 3A 8D 32 30 30 30 30 3A 8B 46 54 |":K.0:.20000:.FT| 00000470: B2 31 89 32 36 32 30 30 00 94 0C 8A 66 48 42 B2 |.1.26200....fHB.| 00000480: B5 28 59 AD 32 35 36 29 3A 4C 42 B2 59 AB 48 42 |.(Y.256):LB.Y.HB| 00000490: AC 32 35 36 00 C4 0C 94 66 9F 31 35 2C 38 2C 31 |.256....f.15,8,1| 000004A0: 35 2C 22 49 30 22 3A 9F 32 2C 38 2C 32 2C 22 23 |5,"I0":.2,8,2,"#| 000004B0: 22 3A 98 31 35 2C 22 55 31 22 3B 32 3B 30 3B 31 |":.15,"U1";2;0;1| 000004C0: 38 3B 31 38 00 D8 0C 99 66 98 31 35 2C 22 42 2D |8;18....f.15,"B-| 000004D0: 50 22 3B 32 3B 32 35 33 00 09 0D 9E 66 98 32 2C |P";2;253....f.2,| 000004E0: C7 28 4C 42 29 3B C7 28 48 42 29 3A 98 31 35 2C |.(LB);.(HB):.15,| 000004F0: 22 55 32 22 3B 32 3B 30 3B 31 38 3B 31 38 3A 98 |"U2";2;0;18;18:.| 00000500: 31 35 2C 22 49 22 AA 4B 24 00 1B 0D A8 66 A0 32 |15,"I".K$....f.2| 00000510: 3A A0 31 35 3A 89 31 31 35 30 30 00 00 00 |:.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).\...M$
."R".K$.":".BB$."=".H(BB$(L),LT):.15,8,1
5,M$.|....15,DS,G1$:.DS.0.DS.50.7559....
..". . ":."....";G1$:.19
8,0:.198,1....'.X1$."P"..1,V$;"SHIFT + =
OPVRAGEN VERBORGEN INSTRUCTIES"...L/.C(
C$).21.C$.C$."-":.12236.9..E.15,"B-P";2;
253:.#2,A$:.A$."".A$.G(0).S..E.#2,B$:.B$
."".B$.G(0).G.VE.15,"I0": 2: 15....E.Y.F
(A$).F(B$).256......E.11750.G.XF.".PLAAT
S DISKETTE MET THERMO-BIBL-4040 IN DR
IVE 0."...]F.". GEEF 8 KARAKTERS VOOR NI
EUW PASSWORD ."...BF."^ = TERUG."...LF.P
$:.P$."^".11500.3.VF.C(P$)..8.26200.V..F
Y.0:.X.1.8:Y.Y.F(J(P$,X,1)):.X.X..FK$."0
":K.0:.20000:.FT.1.26200....FHB..(Y.256)
:LB.Y.HB.256.D..F.15,8,15,"I0":.2,8,2,"#
":.15,"U1";2;0;18;18.X..F.15,"B-P";2;253
....F.2,G(LB);G(HB):.15,"U2";2;0;18;18:.
15,"I".K$....F 2: 15:.11500...
> CLICK IMAGE PREVIEW FOR FULL MODAL