METERSTAND
FILE INFORMATION
FILENAME(S): METERSTAND
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-11-30 21:25:36
APPEARS ON: 2 disk(s)
FILE HASH
32a9d2f5a44a05d794f1e5a3f282737ac6600ee6e76703b00a35887735ef7c83
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C INFO LISTBOEK | METERSTAND | PRG | DuncanTwain | 14 | 14 | DOWNLOAD FILE |
| C INFO LISTBOEK | METERSTAND | PRG | DuncanTwain | 14 | 14 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 11 08 01 00 8F 20 4D 45 54 52 53 54 41 4E |....... METRSTAN|
00000010: 44 00 26 08 02 00 8F 20 44 4F 4F 52 20 41 20 4A |D.&.... DOOR A J|
00000020: 41 4E 53 53 45 4E 00 39 08 03 00 8F 20 55 49 54 |ANSSEN.9.... UIT|
00000030: 20 44 45 56 45 4E 54 45 52 00 3F 08 04 00 8F 00 | DEVENTER.?.....|
00000040: 73 08 0A 00 99 22 93 11 20 20 4D 45 54 45 52 53 |s....".. METERS|
00000050: 54 41 4E 44 20 42 59 20 28 43 29 43 4F 4D 4D 4F |TAND BY (C)COMMO|
00000060: 44 4F 52 45 2D 49 4E 46 4F 22 3A 97 38 30 38 2C |DORE-INFO":.808,|
00000070: 32 33 39 00 BE 08 14 00 86 4D 24 28 31 32 29 2C |239......M$(12),|
00000080: 45 28 31 32 29 2C 57 28 31 32 29 2C 47 28 31 32 |E(12),W(12),G(12|
00000090: 29 3A 99 22 11 11 20 57 49 4C 54 20 55 20 56 4F |):.".. WILT U VO|
000000A0: 52 49 47 45 20 47 45 47 45 56 45 4E 53 20 4F 50 |RIGE GEGEVENS OP|
000000B0: 48 41 4C 45 4E 20 3F 20 28 4A 2F 4E 29 22 00 D2 |HALEN ? (J/N)"..|
000000C0: 08 1E 00 8D 33 39 30 3A 8B 41 24 B2 22 4A 22 A7 |....390:.A$."J".|
000000D0: 35 30 00 DE 08 28 00 41 B2 30 3A 89 37 30 00 05 |50...(.A.0:.70..|
000000E0: 09 32 00 9F 32 2C 38 2C 32 2C 22 53 54 41 4E 44 |.2..2,8,2,"STAND|
000000F0: 2C 53 2C 52 22 3A 84 32 2C 55 3A 81 49 B2 30 A4 |,S,R":.2,U:.I.0.|
00000100: 28 55 AB 31 29 00 26 09 3C 00 84 32 2C 4D 24 28 |(U.1).&.<..2,M$(|
00000110: 49 29 2C 45 28 49 29 2C 57 28 49 29 2C 47 28 49 |I),E(I),W(I),G(I|
00000120: 29 3A 82 3A A0 32 00 5B 09 46 00 99 22 93 2A 2A |):.:.2.[.F..".**|
00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 49 4E |************* IN|
00000140: 56 4F 45 52 45 4E 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |VOEREN *********|
00000150: 2A 2A 2A 2A 2A 20 22 3A 49 B2 55 00 7E 09 50 00 |***** ":I.U.~.P.|
00000160: 85 22 20 20 12 4D 45 54 45 52 53 54 41 4E 44 20 |." .METERSTAND |
00000170: 20 20 4D 41 41 4E 44 22 3B 4D 24 28 49 29 00 A0 | MAAND";M$(I)..|
00000180: 09 5A 00 85 22 20 20 12 4D 45 54 45 52 53 54 41 |.Z.." .METERSTA|
00000190: 4E 44 20 45 4C 45 4B 54 52 41 22 3B 45 28 49 29 |ND ELEKTRA";E(I)|
000001A0: 00 C2 09 64 00 85 22 20 20 12 4D 45 54 45 52 53 |...d.." .METERS|
000001B0: 54 41 4E 44 20 20 20 57 41 54 45 52 22 3B 57 28 |TAND WATER";W(|
000001C0: 49 29 00 E4 09 6E 00 85 22 20 20 12 4D 45 54 45 |I)...n.." .METE|
000001D0: 52 53 54 41 4E 44 20 20 20 20 20 47 41 53 22 3B |RSTAND GAS";|
000001E0: 47 28 49 29 00 10 0A 78 00 99 22 11 11 11 20 20 |G(I)...x.."... |
000001F0: 20 20 5A 49 4A 4E 20 44 45 20 47 45 47 45 56 45 | ZIJN DE GEGEVE|
00000200: 4E 53 20 4A 55 49 53 54 20 3F 20 28 4A 2F 4E 29 |NS JUIST ? (J/N)|
00000210: 00 45 0A 82 00 8D 33 39 30 3A 8B 41 24 B2 22 4E |.E....390:.A$."N|
00000220: 22 A7 20 99 22 20 20 20 20 4F 56 45 52 4E 49 45 |". ." OVERNIE|
00000230: 55 57 20 20 22 3A 81 58 B2 31 A4 31 30 20 20 3A |UW ":.X.1.10 :|
00000240: 82 3A 89 38 30 00 7B 0A 8C 00 49 B2 49 AA 31 3A |.:.80.{...I.I.1:|
00000250: 99 22 93 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.".*************|
00000260: 2A 2A 20 55 49 54 56 4F 45 52 20 2A 2A 2A 2A 2A |** UITVOER *****|
00000270: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 A6 0A 96 00 |**********".....|
00000280: 99 22 20 4D 41 41 4E 44 20 20 20 20 45 4C 45 4B |." MAAND ELEK|
00000290: 54 52 41 20 20 20 20 57 41 54 45 52 20 20 20 20 |TRA WATER |
000002A0: 20 20 47 41 53 22 00 D7 0A A0 00 81 55 B2 30 A4 | GAS"......U.0.|
000002B0: 28 49 AB 31 29 3A 99 22 20 22 AA 4D 24 28 55 29 |(I.1):." ".M$(U)|
000002C0: 2C 3A 99 45 28 55 29 2C 3A 99 57 28 55 29 2C 3A |,:.E(U),:.W(U),:|
000002D0: 99 47 28 55 29 3A 82 00 FA 0A AA 00 8B 49 B1 30 |.G(U):.......I.0|
000002E0: A7 9F 32 2C 38 2C 32 2C 22 40 3A 53 54 41 4E 44 |..2,8,2,"@:STAND|
000002F0: 2C 53 2C 57 22 3A 89 31 39 30 00 11 0B B4 00 9F |,S,W":.190......|
00000300: 32 2C 38 2C 32 2C 22 53 54 41 4E 44 2C 53 2C 57 |2,8,2,"STAND,S,W|
00000310: 22 00 23 0B BE 00 98 32 2C 49 3A 81 55 B2 30 A4 |".#....2,I:.U.0.|
00000320: 49 AB 31 00 30 0B C8 00 98 32 2C 4D 24 28 55 29 |I.1.0....2,M$(U)|
00000330: 00 3C 0B D2 00 98 32 2C 45 28 55 29 00 48 0B DC |.<....2,E(U).H..|
00000340: 00 98 32 2C 57 28 55 29 00 59 0B E6 00 98 32 2C |..2,W(U).Y....2,|
00000350: 47 28 55 29 3A 82 3A A0 32 00 89 0B F0 00 99 22 |G(U):.:.2......"|
00000360: 2D 2D 2D 2D 2D 2D 2D 2D 56 45 52 42 52 55 49 4B |--------VERBRUIK|
00000370: 20 4F 56 45 52 20 44 45 20 4D 41 41 4E 44 3A 20 | OVER DE MAAND: |
00000380: 2D 2D 2D 2D 2D 2D 2D 2D 22 00 B4 0B FA 00 99 22 |--------"......"|
00000390: 20 4D 41 41 4E 44 20 20 20 20 45 4C 45 4B 54 52 | MAAND ELEKTR|
000003A0: 41 20 20 20 57 41 54 45 52 20 20 20 20 20 47 41 |A WATER GA|
000003B0: 53 22 3A 99 00 DD 0B 04 01 8B 55 B3 B2 31 A7 99 |S":.......U..1..|
000003C0: 22 20 4E 4F 47 20 47 45 45 4E 20 56 45 52 42 52 |" NOG GEEN VERBR|
000003D0: 55 49 4B 20 42 45 4B 45 4E 54 22 3A 80 00 EC 0B |UIK BEKENT":....|
000003E0: 0E 01 81 58 B2 31 A4 28 55 AB 31 29 00 1D 0C 18 |...X.1.(U.1)....|
000003F0: 01 45 31 B2 45 28 58 29 AB 45 28 58 AB 31 29 3A |.E1.E(X).E(X.1):|
00000400: 57 31 B2 57 28 58 29 AB 57 28 58 AB 31 29 3A 47 |W1.W(X).W(X.1):G|
00000410: 31 B2 47 28 58 29 AB 47 28 58 AB 31 29 00 3F 0C |1.G(X).G(X.1).?.|
00000420: 22 01 99 22 20 22 AA 4D 24 28 58 AB 31 29 2C 3A |".." ".M$(X.1),:|
00000430: 99 45 31 2C 3A 99 57 31 2C 3A 99 47 31 3A 82 00 |.E1,:.W1,:.G1:..|
00000440: 7F 0C 2C 01 99 22 20 20 20 20 20 20 20 2D 2D 2D |..,.." ---|
00000450: 3E 20 50 52 49 4E 54 45 52 20 3F 20 3C 2D 2D 2D |> PRINTER ? <---|
00000460: 22 3A 8D 33 39 30 3A 8B 41 24 B2 22 4E 22 A7 99 |":.390:.A$."N"..|
00000470: 22 93 20 54 4F 54 20 5A 49 45 4E 53 22 3A 80 00 |". TOT ZIENS":..|
00000480: BE 0C 36 01 9F 31 2C 34 2C 37 3A A0 31 3A 8B 53 |..6..1,4,7:.1:.S|
00000490: 54 B2 AB 31 32 38 A7 99 22 20 12 20 2D 2D 2D 3E |T..128.." . --->|
000004A0: 50 52 49 4E 54 45 52 20 41 41 4E 5A 45 54 54 45 |PRINTER AANZETTE|
000004B0: 4E 20 21 21 20 3C 2D 2D 22 3A 89 33 30 30 00 E7 |N !! <--":.300..|
000004C0: 0C 40 01 9F 31 2C 34 3A 98 31 2C 22 4D 45 54 45 |.@..1,4:.1,"METE|
000004D0: 52 53 54 41 4E 44 20 42 59 20 4A 41 4B 41 2D 53 |RSTAND BY JAKA-S|
000004E0: 4F 46 54 22 3A 98 31 00 2B 0D 4A 01 98 31 2C 22 |OFT":.1.+.J..1,"|
000004F0: 4D 41 41 4E 44 20 20 20 20 45 4C 45 4B 54 41 20 |MAAND ELEKTA |
00000500: 20 20 57 41 54 45 52 20 20 20 47 41 53 20 20 20 | WATER GAS |
00000510: 56 45 52 42 52 55 49 4B 20 45 4C 45 4B 54 52 41 |VERBRUIK ELEKTRA|
00000520: 20 57 41 54 45 52 20 47 41 53 22 00 54 0D 54 01 | WATER GAS".T.T.|
00000530: 81 55 B2 30 A4 28 49 AB 31 29 3A 4D 31 24 B2 C8 |.U.0.(I.1):M1$..|
00000540: 28 4D 24 28 55 29 AA 22 20 20 20 20 20 20 20 20 |(M$(U)." |
00000550: 22 2C 38 29 00 95 0D 5E 01 98 31 2C 4D 31 24 22 |",8)...^..1,M1$"|
00000560: 20 22 45 28 55 29 22 20 22 57 28 55 29 22 20 22 | "E(U)" "W(U)" "|
00000570: 47 28 55 29 3B 3A 8B 55 B2 30 A7 98 31 2C 22 2D |G(U);:.U.0..1,"-|
00000580: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000590: 2D 2D 22 3A 82 00 E2 0D 68 01 45 50 B2 45 28 55 |--":....h.EP.E(U|
000005A0: 29 AB 45 28 55 AB 31 29 3A 57 50 B2 57 28 55 29 |).E(U.1):WP.W(U)|
000005B0: AB 57 28 55 AB 31 29 3A 47 50 B2 47 28 55 29 AB |.W(U.1):GP.G(U).|
000005C0: 47 28 55 AB 31 29 3A 4D 32 24 B2 C8 28 4D 24 28 |G(U.1):M2$..(M$(|
000005D0: 55 AB 31 29 AA 22 20 20 20 20 20 20 20 20 22 2C |U.1)." ",|
000005E0: 38 29 00 03 0E 72 01 98 31 2C 22 20 22 4D 32 24 |8)...r..1," "M2$|
000005F0: 22 20 22 45 50 22 20 20 22 57 50 22 20 20 22 20 |" "EP" "WP" " |
00000600: 47 50 22 00 42 0E 7C 01 82 3A 98 31 3A A0 31 3A |GP".B.|..:.1:.1:|
00000610: 99 22 93 54 4F 54 20 44 45 20 56 4F 4C 47 45 4E |.".TOT DE VOLGEN|
00000620: 44 45 20 4B 45 45 52 2C 20 4E 49 45 54 20 56 45 |DE KEER, NIET VE|
00000630: 52 47 45 54 45 4E 20 48 4F 4F 52 20 58 58 58 22 |RGETEN HOOR XXX"|
00000640: 3A 80 00 5F 0E 86 01 A1 41 24 3A 8B 41 24 B3 B1 |:.._....A$:.A$..|
00000650: 22 4E 22 AF 41 24 B3 B1 22 4A 22 A7 33 39 30 00 |"N".A$.."J".390.|
00000660: 65 0E 90 01 8E 00 00 00 00 |e........ |
....... METRSTAND.&.... DOOR A JANSSEN.9
.... UIT DEVENTER.?.....S....".. METERS
TAND BY (C)COMMODORE-INFO":.808,239.....
.M$(12),E(12),W(12),G(12):.".. WILT U VO
RIGE GEGEVENS OPHALEN ? (J/N)".R....390:
.A$."J".50...(.A.0:.70...2..2,8,2,"STAND
,S,R":.2,U:.I.0.(U.1).&.<..2,M$(I),E(I),
W(I),G(I):.: 2.[.F..".*************** IN
VOEREN ************** ":I.U.~.P.." .MET
ERSTAND MAAND";M$(I). .Z.." .METERSTA
ND ELEKTRA";E(I).B.D.." .METERSTAND W
ATER";W(I)...N.." .METERSTAND GAS";
G(I)...X.."... ZIJN DE GEGEVENS JUIST
? (J/N).E....390:.A$."N". ." OVERNIE
UW ":.X.1.10 :.:.80.{...I.I.1:.".*****
********** UITVOER ***************".....
." MAAND ELEKTRA WATER GAS".W
. ..U.0.(I.1):." ".M$(U),:.E(U),:.W(U),:
.G(U):.......I.0..2,8,2,"@:STAND,S,W":.1
90......2,8,2,"STAND,S,W".#....2,I:.U.0.
I.1.0.H..2,M$(U).<.R..2,E(U).H....2,W(U)
.Y....2,G(U):.: 2......"--------VERBRUIK
OVER DE MAAND: --------"......" MAAND
ELEKTRA WATER GAS":.......U..1..
" NOG GEEN VERBRUIK BEKENT":.......X.1.(
U.1).....E1.E(X).E(X.1):W1.W(X).W(X.1):G
1.G(X).G(X.1).?.".." ".M$(X.1),:.E1,:.W1
,:.G1:...,.." ---> PRINTER ? <---
":.390:.A$."N"..". TOT ZIENS":....6..1,4
,7: 1:.ST..128.." . --->PRINTER AANZETTE
N !! <--":.300...@..1,4:.1,"METERSTAND B
Y JAKA-SOFT":.1.+.J..1,"MAAND ELEKTA
WATER GAS VERBRUIK ELEKTRA WATER G
AS".T.T..U.0.(I.1):M1$.H(M$(U)."
",8)...^..1,M1$" "E(U)" "W(U)" "G(U);:.U
.0..1,"-------------------":....H.EP.E(U
).E(U.1):WP.W(U).W(U.1):GP.G(U).G(U.1):M
2$.H(M$(U.1)." ",8)...R..1," "M2$
" "EP" "WP" " GP".B.|..:.1: 1:.".TOT D
E VOLGENDE KEER, NIET VERGETEN HOOR XXX"
:.._....A$:.A$.."N".A$.."J".390.E.......
.
> CLICK IMAGE PREVIEW FOR FULL MODAL