METERSTANDEN
FILE INFORMATION
FILENAME(S): METERSTANDEN
FILE TYPE(S): PRG
FILE SIZE: 3K
FIRST SEEN: 2025-11-30 21:19:49
APPEARS ON: 2 disk(s)
FILE HASH
2e13ab33ddb00e4626744ff72fbce4099b9349e949347bae1daee0549ebc3c2e
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RP M REKENH PRG | METERSTANDEN | PRG | DuncanTwain | 8 | 0 | DOWNLOAD FILE |
| RP L ADMIN PRGS | METERSTANDEN | PRG | DuncanTwain | 11 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 23 08 01 00 8F 20 48 55 49 53 56 45 52 42 |..#.... HUISVERB|
00000010: 52 55 49 4B 20 2F 20 43 4F 4D 4D 4F 44 4F 52 45 |RUIK / COMMODORE|
00000020: 2D 36 34 00 3E 08 02 00 8F 20 44 4F 4F 52 20 47 |-64.>.... DOOR G|
00000030: 45 52 52 49 54 20 4B 4F 46 46 45 4D 41 4E 00 48 |ERRIT KOFFEMAN.H|
00000040: 08 03 00 8F 20 55 52 4B 00 6E 08 04 00 8F 20 41 |.... URK.n.... A|
00000050: 41 4E 47 45 50 41 53 54 20 44 4F 4F 52 20 3C 36 |ANGEPAST DOOR <6|
00000060: 36 36 31 42 4A 38 31 3E 30 39 30 33 38 36 00 82 |661BJ81>090386..|
00000070: 08 0A 00 86 4D 24 28 31 33 29 2C 51 28 35 2C 31 |....M$(13),Q(5,1|
00000080: 33 29 00 C3 08 14 00 4D 24 28 31 29 B2 22 4A 41 |3).....M$(1)."JA|
00000090: 4E 55 41 52 49 22 3A 4D 24 28 32 29 B2 22 46 45 |NUARI":M$(2)."FE|
000000A0: 42 52 55 41 52 49 22 3A 4D 24 28 33 29 B2 22 4D |BRUARI":M$(3)."M|
000000B0: 41 41 52 54 22 3A 4D 24 28 34 29 B2 22 41 50 52 |AART":M$(4)."APR|
000000C0: 49 4C 22 00 FF 08 1E 00 4D 24 28 35 29 B2 22 20 |IL".....M$(5)." |
000000D0: 4D 45 49 22 3A 4D 24 28 36 29 B2 22 4A 55 4E 49 |MEI":M$(6)."JUNI|
000000E0: 22 3A 4D 24 28 37 29 B2 22 4A 55 4C 49 22 3A 4D |":M$(7)."JULI":M|
000000F0: 24 28 38 29 B2 22 41 55 47 55 53 54 55 53 22 00 |$(8)."AUGUSTUS".|
00000100: 4A 09 28 00 4D 24 28 39 29 B2 22 53 45 50 54 45 |J.(.M$(9)."SEPTE|
00000110: 4D 42 45 52 22 3A 4D 24 28 31 30 29 B2 22 4F 4B |MBER":M$(10)."OK|
00000120: 54 4F 42 45 52 22 3A 4D 24 28 31 31 29 B2 22 4E |TOBER":M$(11)."N|
00000130: 4F 56 45 4D 42 45 52 22 3A 4D 24 28 31 32 29 B2 |OVEMBER":M$(12).|
00000140: 22 44 45 43 45 4D 42 45 52 22 00 76 09 32 00 56 |"DECEMBER".v.2.V|
00000150: 24 28 31 29 B2 22 47 41 53 22 3A 56 24 28 32 29 |$(1)."GAS":V$(2)|
00000160: B2 22 4C 49 43 48 54 22 3A 56 24 28 33 29 B2 22 |."LICHT":V$(3)."|
00000170: 57 41 54 45 52 22 00 A9 09 3C 00 4F 50 24 B2 22 |WATER"...<.OP$."|
00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001A0: 20 20 20 20 20 20 20 20 22 00 CD 09 46 00 8F 20 | "...F.. |
000001B0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 4D 45 4E 55 |............MENU|
000001C0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 F8 09 |................|
000001D0: 50 00 99 22 93 05 22 3A 41 24 B2 22 2A 2A 2A 20 |P.."..":A$."*** |
000001E0: 20 4D 45 54 45 52 53 54 41 4E 44 45 4E 20 20 2A | METERSTANDEN *|
000001F0: 2A 2A 22 3A 8D 38 34 30 00 16 0A 5A 00 99 A3 31 |**":.840...Z...1|
00000200: 31 29 22 11 11 11 5B 20 31 20 5D 20 20 20 20 49 |1)"...[ 1 ] I|
00000210: 4E 56 4F 45 52 22 00 33 0A 64 00 99 A3 31 31 29 |NVOER".3.d...11)|
00000220: 22 11 5B 20 32 20 5D 20 20 20 20 54 4F 54 41 4C |".[ 2 ] TOTAL|
00000230: 45 4E 22 00 50 0A 6E 00 99 A3 31 31 29 22 11 5B |EN".P.n...11)".[|
00000240: 20 33 20 5D 20 20 20 20 50 52 49 4E 54 45 4E 22 | 3 ] PRINTEN"|
00000250: 00 71 0A 78 00 99 A3 31 31 29 22 11 5B 20 34 20 |.q.x...11)".[ 4 |
00000260: 5D 20 20 20 20 53 41 56 45 4E 2F 4C 41 44 45 4E |] SAVEN/LADEN|
00000270: 22 00 8E 0A 7D 00 99 A3 31 31 29 22 11 5B 20 35 |"...}...11)".[ 5|
00000280: 20 5D 20 20 20 20 53 54 4F 50 50 45 4E 22 00 AC | ] STOPPEN"..|
00000290: 0A 82 00 8D 38 38 30 3A 8B C5 28 41 24 29 B3 31 |....880:..(A$).1|
000002A0: B0 C5 28 41 24 29 B1 35 A7 31 33 30 00 CB 0A 8C |..(A$).5.130....|
000002B0: 00 91 C5 28 41 24 29 89 31 36 30 2C 33 34 30 2C |...(A$).160,340,|
000002C0: 36 38 30 2C 34 38 30 2C 39 36 30 00 F0 0A 96 00 |680,480,960.....|
000002D0: 8F 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 49 4E 56 |.............INV|
000002E0: 4F 45 52 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |OER.............|
000002F0: 00 18 0B A0 00 41 24 B2 22 2A 2A 2A 20 47 41 53 |.....A$."*** GAS|
00000300: 2C 20 4C 49 43 48 54 2C 20 57 41 54 45 52 20 2A |, LICHT, WATER *|
00000310: 2A 2A 22 3A 8D 38 34 30 00 35 0B A5 00 99 A3 31 |**":.840.5.....1|
00000320: 31 29 22 11 11 11 5B 20 31 20 5D 20 20 20 20 20 |1)"...[ 1 ] |
00000330: 20 47 41 53 22 00 52 0B AA 00 99 A3 31 31 29 22 | GAS".R.....11)"|
00000340: 11 5B 20 32 20 5D 20 20 20 20 20 20 4C 49 43 48 |.[ 2 ] LICH|
00000350: 54 22 00 6F 0B B4 00 99 A3 31 31 29 22 11 5B 20 |T".o.....11)".[ |
00000360: 33 A0 5D 20 20 20 20 20 20 57 41 54 45 52 22 00 |3.] WATER".|
00000370: 78 0B BE 00 8D 38 38 30 00 91 0B C8 00 8B C5 28 |x....880.......(|
00000380: 41 24 29 B3 31 B0 C5 28 41 24 29 B1 33 A7 31 39 |A$).1..(A$).3.19|
00000390: 30 00 A8 0B D2 00 55 B2 C5 28 41 24 29 3A 81 59 |0.....U..(A$):.Y|
000003A0: B2 31 A4 32 35 30 3A 82 00 C5 0B DC 00 41 24 B2 |.1.250:......A$.|
000003B0: 22 49 4E 56 4F 45 52 20 20 22 AA 56 24 28 55 29 |"INVOER ".V$(U)|
000003C0: 3A 8D 38 34 30 00 EF 0B E1 00 85 22 11 11 1D 1D |:.840......"....|
000003D0: 1D 1D 1D 57 45 4C 4B 45 20 4D 41 41 4E 44 20 57 |...WELKE MAAND W|
000003E0: 45 4E 53 54 20 55 20 5B 4E 52 2E 5D 22 3B 4D 00 |ENST U [NR.]";M.|
000003F0: 01 0C E6 00 8B 4D B3 31 B0 4D B1 31 32 A7 32 32 |.....M.1.M.12.22|
00000400: 30 00 31 0C F0 00 99 A3 32 39 29 22 91 12 22 4D |0.1.....29)".."M|
00000410: 24 28 4D 29 22 92 22 3A 99 22 11 22 A3 31 35 29 |$(M)".":.".".15)|
00000420: 22 4F 2E 4B 2E 20 5B 4A 2F 4E 5D 22 3A 8D 38 38 |"O.K. [J/N]":.88|
00000430: 30 00 41 0C FA 00 8B 41 24 B2 22 4E 22 A7 32 32 |0.A....A$."N".22|
00000440: 30 00 69 0C 04 01 41 24 B2 22 49 4E 56 4F 45 52 |0.i...A$."INVOER|
00000450: 20 20 22 AA 56 24 28 55 29 AA 22 20 20 22 AA 4D | ".V$(U)." ".M|
00000460: 24 28 4D 29 3A 8D 38 34 30 00 8B 0C 0E 01 85 22 |$(M):.840......"|
00000470: 11 20 47 45 45 46 20 42 45 47 49 4E 20 4D 45 54 |. GEEF BEGIN MET|
00000480: 45 52 53 54 41 4E 44 22 3B 42 53 00 AD 0C 18 01 |ERSTAND";BS.....|
00000490: 85 22 11 20 47 45 45 46 20 45 49 4E 44 20 4D 45 |.". GEEF EIND ME|
000004A0: 54 45 52 53 54 41 4E 44 20 22 3B 45 53 00 D2 0C |TERSTAND ";ES...|
000004B0: 22 01 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |".." |
000004C0: 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D | -----|
000004D0: 2D 22 00 F8 0C 2C 01 99 22 20 20 20 20 20 20 20 |-"...,.." |
000004E0: 20 20 20 20 20 20 20 56 45 52 42 52 55 49 4B 20 | VERBRUIK |
000004F0: 20 20 22 45 53 AB 42 53 00 0B 0D 36 01 51 28 55 | "ES.BS...6.Q(U|
00000500: 2C 4D 29 B2 28 45 53 AB 42 53 29 00 18 0D 40 01 |,M).(ES.BS)...@.|
00000510: 8D 38 38 30 3A 89 38 30 00 3A 0D 4A 01 8F 2E 2E |.880:.80.:.J....|
00000520: 2E 2E 2E 2E 2E 2E 2E 2E 54 4F 54 41 4C 45 4E 2E |........TOTALEN.|
00000530: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 43 0D 54 01 8D |...........C.T..|
00000540: 39 34 30 00 69 0D 5E 01 41 24 B2 22 2A 2A 2A 20 |940.i.^.A$."*** |
00000550: 54 4F 54 41 41 4C 20 56 45 52 42 52 55 49 4B 20 |TOTAAL VERBRUIK |
00000560: 2A 2A 2A 22 3A 8D 38 34 30 00 96 0D 68 01 99 22 |***":.840...h.."|
00000570: 20 20 4D 41 41 4E 44 20 20 B4 20 20 20 47 41 53 | MAAND . GAS|
00000580: 20 20 20 20 B4 20 4C 49 43 48 54 20 20 20 B4 20 | . LICHT . |
00000590: 57 41 54 45 52 22 00 C5 0D 72 01 99 22 B7 B7 B7 |WATER"...r.."...|
000005A0: B7 B7 B7 B7 B7 B7 CF B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
000005B0: B7 CF B7 B7 B7 B7 B7 B7 B7 B7 B7 CF B7 B7 B7 B7 |................|
000005C0: B7 B7 B7 B7 22 00 D1 0D 7C 01 81 49 B2 31 A4 31 |...."...|..I.1.1|
000005D0: 32 00 EF 0D 86 01 99 4D 24 28 49 29 AA C8 28 4F |2......M$(I)..(O|
000005E0: 50 24 2C 39 AB C3 28 4D 24 28 49 29 29 29 3B 00 |P$,9..(M$(I)));.|
000005F0: 0D 0E 90 01 99 A3 39 29 22 B4 22 3B A3 32 30 29 |......9)".";.20)|
00000600: 22 B4 22 3B A3 33 30 29 22 B4 22 3A 82 00 21 0E |".";.30)".":..!.|
00000610: 9A 01 81 59 B2 30 A4 33 39 3A 99 22 B7 22 3B 3A |...Y.0.39:.".";:|
00000620: 82 00 4A 0E A4 01 99 22 11 22 A3 31 32 29 51 28 |..J....".".12)Q(|
00000630: 31 2C 30 29 3B A3 32 32 29 51 28 32 2C 30 29 3B |1,0);.22)Q(2,0);|
00000640: A3 33 32 29 51 28 33 2C 30 29 00 58 0E AE 01 99 |.32)Q(3,0).X....|
00000650: 22 13 11 11 11 11 11 22 00 69 0E B8 01 81 59 B2 |"......".i....Y.|
00000660: 31 A4 31 32 3A 8D 39 31 30 00 8A 0E C2 01 99 A3 |1.12:.910.......|
00000670: 31 32 29 5A 24 3B A3 32 32 29 58 24 3B A3 33 32 |12)Z$;.22)X$;.32|
00000680: 29 43 24 3A 82 3A 8D 38 38 30 00 92 0E CC 01 89 |)C$:.:.880......|
00000690: 38 30 00 B6 0E D6 01 8F 2E 2E 2E 2E 2E 2E 2E 2E |80..............|
000006A0: 2E 2E 53 41 56 45 4E 2F 4C 41 44 45 4E 2E 2E 2E |..SAVEN/LADEN...|
000006B0: 2E 2E 2E 2E 2E 2E 00 D9 0E E0 01 41 24 B2 22 2A |...........A$."*|
000006C0: 2A 2A 4C 41 44 45 4E 20 45 4E 20 53 41 56 45 4E |**LADEN EN SAVEN|
000006D0: 2A 2A 2A 22 3A 8D 38 34 30 00 01 0F EA 01 85 22 |***":.840......"|
000006E0: 11 11 1D 1D 1D 57 49 4C 54 20 12 4C 92 41 44 45 |.....WILT .L.ADE|
000006F0: 4E 20 4F 46 20 12 53 92 41 56 45 4E 20 22 3B 41 |N OF .S.AVEN ";A|
00000700: 24 00 11 0F F4 01 8B 41 24 B2 22 4C 22 A7 35 32 |$......A$."L".52|
00000710: 30 00 21 0F FE 01 8B 41 24 B2 22 53 22 A7 36 30 |0.!....A$."S".60|
00000720: 30 00 55 0F 08 02 41 24 B2 22 4C 41 44 45 4E 22 |0.U...A$."LADEN"|
00000730: 3A 8D 38 34 30 3A 85 22 11 11 4E 41 41 4D 20 56 |:.840:."..NAAM V|
00000740: 41 4E 20 48 45 54 20 50 52 4F 47 52 41 4D 4D 41 |AN HET PROGRAMMA|
00000750: 20 22 3B 48 24 00 6F 0F 1C 02 99 22 11 22 3A 9F | ";H$.o....".":.|
00000760: 32 2C 31 2C 30 2C 22 48 24 22 3A 8D 37 39 30 00 |2,1,0,"H$":.790.|
00000770: 82 0F 26 02 81 55 B2 31 A4 33 3A 81 4D B2 31 A4 |..&..U.1.3:.M.1.|
00000780: 31 32 00 90 0F 30 02 84 32 2C 51 28 55 2C 4D 29 |12...0..2,Q(U,M)|
00000790: 00 99 0F 3A 02 8D 37 39 30 00 A1 0F 3F 02 82 3A |...:..790...?..:|
000007A0: 82 00 A8 0F 44 02 A0 32 00 B0 0F 4E 02 89 38 30 |....D..2...N..80|
000007B0: 00 E3 0F 58 02 41 24 B2 22 53 41 56 45 4E 22 3A |...X.A$."SAVEN":|
000007C0: 8D 38 34 30 3A 85 22 11 11 53 41 56 45 4E 20 4F |.840:."..SAVEN O|
000007D0: 4E 44 45 52 20 57 45 4C 4B 45 20 4E 41 41 4D 22 |NDER WELKE NAAM"|
000007E0: 3B 48 24 00 F9 0F 6C 02 99 22 11 22 3A 9F 20 32 |;H$...l..".":. 2|
000007F0: 2C 31 2C 32 2C 22 48 24 22 00 0C 10 76 02 81 55 |,1,2,"H$"...v..U|
00000800: B2 31 A4 33 3A 81 4D B2 31 A4 31 32 00 1A 10 7B |.1.3:.M.1.12...{|
00000810: 02 98 32 2C 51 28 55 2C 4D 29 00 27 10 80 02 8D |..2,Q(U,M).'....|
00000820: 37 39 30 3A 82 3A 82 00 32 10 94 02 A0 32 3A 89 |790:.:..2....2:.|
00000830: 38 30 00 58 10 9E 02 8F 2E 2E 2E 2E 2E 2E 2E 2E |80.X............|
00000840: 2E 2E 50 52 49 4E 54 45 4E 2E 2E 2E 2E 2E 2E 2E |..PRINTEN.......|
00000850: 2E 2E 2E 2E 2E 2E 2E 2E 00 77 10 A8 02 9F 34 2C |.........w....4,|
00000860: 34 3A 41 24 B2 22 54 4F 54 41 41 4C 20 56 45 52 |4:A$."TOTAAL VER|
00000870: 42 52 55 49 4B 20 22 00 8F 10 B2 02 98 34 2C 22 |BRUIK "......4,"|
00000880: 20 20 20 20 20 20 20 20 20 20 20 20 22 41 24 00 | "A$.|
00000890: C3 10 BC 02 98 34 3A 98 34 2C 22 20 20 20 4D 41 |.....4:.4," MA|
000008A0: 41 4E 44 20 20 20 20 20 20 47 41 53 20 20 20 20 |AND GAS |
000008B0: 20 20 4C 49 43 48 54 20 20 20 20 20 20 57 41 54 | LICHT WAT|
000008C0: 45 52 22 00 DB 10 C6 02 81 58 B2 30 A4 33 39 3A |ER"......X.0.39:|
000008D0: 98 34 2C 22 B7 22 3B 82 3A 98 34 00 09 11 D0 02 |.4,".";.:.4.....|
000008E0: 81 59 B2 31 A4 31 32 3A 4D 24 28 59 29 B2 4D 24 |.Y.1.12:M$(Y).M$|
000008F0: 28 59 29 AA C8 28 4F 50 2C 39 AB C3 28 4D 24 28 |(Y)..(OP,9..(M$(|
00000900: 59 29 29 29 3A 8D 39 31 30 00 33 11 DA 02 98 34 |Y))):.910.3....4|
00000910: 2C 4D 24 28 59 29 22 20 20 20 22 5A 24 22 20 20 |,M$(Y)" "Z$" |
00000920: 20 20 20 20 22 58 24 22 20 20 20 20 20 20 22 43 | "X$" "C|
00000930: 24 3A 82 00 4C 11 E4 02 81 59 B2 30 A4 33 39 3A |$:..L....Y.0.39:|
00000940: 98 34 2C 22 B7 22 3B 3A 82 3A 98 34 00 55 11 EE |.4,".";:.:.4.U..|
00000950: 02 8D 39 34 30 00 94 11 F8 02 98 34 2C 22 20 20 |..940......4," |
00000960: 20 20 20 20 20 20 20 20 20 20 22 51 28 31 2C 30 | "Q(1,0|
00000970: 29 22 20 20 20 20 20 22 51 28 32 2C 30 29 22 20 |)" "Q(2,0)" |
00000980: 20 20 20 20 20 20 22 51 28 33 2C 30 29 3A A0 34 | "Q(3,0):.4|
00000990: 3A 89 37 30 00 B8 11 02 03 8F 2E 2E 2E 2E 2E 2E |:.70............|
000009A0: 2E 2E 2E 2E 2E 47 4F 53 55 42 2E 2E 2E 2E 2E 2E |.....GOSUB......|
000009B0: 2E 2E 2E 2E 2E 2E 2E 2E 00 DA 11 0C 03 8F 2A 2A |..............**|
000009C0: 2A 20 45 52 52 4F 52 20 4C 45 5A 45 4E 20 4F 50 |* ERROR LEZEN OP|
000009D0: 20 44 49 53 4B 20 2A 2A 2A 2A 00 E0 11 16 03 8E | DISK ****......|
000009E0: 00 F5 11 17 03 84 31 35 2C 45 4E 2C 45 4D 24 2C |......15,EN,EM$,|
000009F0: 45 54 2C 45 53 00 01 12 20 03 8B 45 4E B2 30 A7 |ET,ES... ..EN.0.|
00000A00: 8E 00 1F 12 2A 03 99 22 1D 1D 1D 1D 20 45 52 52 |....*..".... ERR|
00000A10: 4F 52 20 4F 50 20 44 45 20 44 49 53 4B 20 22 00 |OR OP DE DISK ".|
00000A20: 32 12 34 03 99 20 45 4E 3B 45 4D 24 3B 45 54 3B |2.4.. EN;EM$;ET;|
00000A30: 45 53 00 3B 12 3E 03 A0 32 3A 80 00 4E 12 48 03 |ES.;.>..2:..N.H.|
00000A40: 56 B2 28 34 30 AB C3 28 41 24 29 29 AD 32 00 5B |V.(40..(A$)).2.[|
00000A50: 12 52 03 99 22 93 12 22 4F 50 24 00 7B 12 5C 03 |.R..".."OP$.{.\.|
00000A60: 99 22 12 91 22 C8 28 4F 50 24 2C 56 29 3B 41 24 |."..".(OP$,V);A$|
00000A70: 3B C8 28 4F 50 24 2C 56 AA 31 29 00 8D 12 66 03 |;.(OP$,V.1)...f.|
00000A80: 99 22 12 91 22 4F 50 24 22 92 22 3A 8E 00 CC 12 |.".."OP$".":....|
00000A90: 70 03 99 22 13 11 11 11 11 11 11 11 11 11 11 11 |p.."............|
00000AA0: 11 11 11 11 11 11 11 11 11 11 11 11 1D 1D 1D 1D |................|
00000AB0: 1D 1D 1D 1D 1D 12 20 44 52 55 4B 20 4F 50 20 45 |...... DRUK OP E|
00000AC0: 45 4E 20 54 4F 45 54 53 21 20 92 22 00 DF 12 7A |EN TOETS! ."...z|
00000AD0: 03 A1 41 24 3A 8B 41 24 B2 22 22 A7 38 39 30 00 |..A$:.A$."".890.|
00000AE0: E5 12 84 03 8E 00 0F 13 8E 03 47 24 B2 C4 28 51 |..........G$..(Q|
00000AF0: 28 31 2C 59 29 29 3A 47 B2 C3 28 47 24 29 3A 5A |(1,Y)):G..(G$):Z|
00000B00: 24 B2 C8 28 4F 50 24 2C 36 AB 47 29 AA 47 24 00 |$..(OP$,6.G).G$.|
00000B10: 39 13 98 03 48 24 B2 C4 28 51 28 32 2C 59 29 29 |9...H$..(Q(2,Y))|
00000B20: 3A 48 B2 C3 28 48 24 29 3A 58 24 B2 C8 28 4F 50 |:H..(H$):X$..(OP|
00000B30: 24 2C 36 AB 48 29 AA 48 24 00 65 13 A2 03 46 24 |$,6.H).H$.e...F$|
00000B40: B2 C4 28 51 28 33 2C 59 29 29 3A 46 B2 C3 28 46 |..(Q(3,Y)):F..(F|
00000B50: 24 29 3A 43 24 B2 C8 28 4F 50 24 2C 36 AB 46 29 |$):C$..(OP$,6.F)|
00000B60: AA 46 24 3A 8E 00 79 13 AC 03 81 55 B2 31 A4 33 |.F$:..y....U.1.3|
00000B70: 3A 51 28 55 2C 30 29 B2 30 00 A0 13 B6 03 81 58 |:Q(U,0).0......X|
00000B80: B2 31 A4 31 32 3A 51 28 55 2C 30 29 B2 51 28 55 |.1.12:Q(U,0).Q(U|
00000B90: 2C 30 29 AA 51 28 55 2C 58 29 3A 82 3A 82 3A 8E |,0).Q(U,X):.:.:.|
00000BA0: 00 D1 13 C0 03 99 22 93 11 11 1D 1D 1D 1D 1D 1D |......".........|
00000BB0: 1D 48 45 42 54 20 55 20 41 4C 4C 45 53 20 47 45 |.HEBT U ALLES GE|
00000BC0: 42 4F 45 4B 54 20 5B 4A 2F 4E 5D 22 3A 8D 38 38 |BOEKT [J/N]":.88|
00000BD0: 30 00 E0 13 CA 03 8B 41 24 B2 22 22 A7 39 37 30 |0......A$."".970|
00000BE0: 00 EF 13 D4 03 8B 41 24 B2 22 4E 22 A7 38 30 00 |......A$."N".80.|
00000BF0: 02 14 DE 03 8B 41 24 B2 22 4A 22 A7 99 22 93 22 |.....A$."J".."."|
00000C00: 3A 80 00 00 00 |:.... |
..#.... HUISVERBRUIK / COMMODORE-64.>...
. DOOR GERRIT KOFFEMAN.H.... URK.N.... A
ANGEPAST DOOR <6661BJ81>090386......M$(1
3),Q(5,13).C...M$(1)."JANUARI":M$(2)."FE
BRUARI":M$(3)."MAART":M$(4)."APRIL".....
M$(5)." MEI":M$(6)."JUNI":M$(7)."JULI":M
$(8)."AUGUSTUS".J.(.M$(9)."SEPTEMBER":M$
(10)."OKTOBER":M$(11)."NOVEMBER":M$(12).
"DECEMBER".V.2.V$(1)."GAS":V$(2)."LICHT"
:V$(3)."WATER"...<.OP$."
".M.F.. ........
....MENU................P.."..":A$."***
METERSTANDEN ***":.840...Z...11)"...[
1 ] INVOER".3.D...11)".[ 2 ] TOTAL
EN".P.N...11)".[ 3 ] PRINTEN".Q.X...1
1)".[ 4 ] SAVEN/LADEN"...}...11)".[ 5
] STOPPEN"......880:.E(A$).1.E(A$).5
.130.K....E(A$).160,340,680,480,960.....
.............INVOER................ .A$.
"*** GAS, LICHT, WATER ***":.840.5.....1
1)"...[ 1 ] GAS".R.....11)".[ 2 ]
LICHT".O.....11)".[ 3 ] WATER".
X....880...H..E(A$).1.E(A$).3.190...R.U.
E(A$):.Y.1.250:..E...A$."INVOER ".V$(U)
:.840......".......WELKE MAAND WENST U [
NR.]";M......M.1.M.12.220.1.....29)".."M
$(M)".":.".".15)"O.K. [J/N]":.880.A....A
$."N".220.I...A$."INVOER ".V$(U)." ".M
$(M):.840......". GEEF BEGIN METERSTAND"
;BS......". GEEF EIND METERSTAND ";ES.R.
".." ------"...,..
" VERBRUIK "ES.BS...6.Q(U
,M).(ES.BS)...@..880:.80.:.J............
TOTALEN............C.T..940.I.^.A$."***
TOTAAL VERBRUIK ***":.840...H.." MAAND
. GAS . LICHT . WATER".E.R.."...
......O..........O.........O........".Q.
|..I.1.12......M$(I).H(OP$,9.C(M$(I)));.
......9)".";.20)".";.30)".":..!....Y.0.3
9:.".";:..J....".".12)Q(1,0);.22)Q(2,0);
.32)Q(3,0).X...."......".I....Y.1.12:.91
0...B...12)Z$;.22)X$;.32)C$:.:.880...L..
80...V............SAVEN/LADEN..........Y
...A$."***LADEN EN SAVEN***":.840......"
.....WILT .L.ADEN OF .S.AVEN ";A$......A
$."L".520.!....A$."S".600.U...A$."LADEN"
:.840:."..NAAM VAN HET PROGRAMMA ";H$.O.
...".":.2,1,0,"H$":.790...&..U.1.3:.M.1.
12...0..2,Q(U,M)...:..790...?..:....D. 2
...N..80...X.A$."SAVEN":.840:."..SAVEN O
NDER WELKE NAAM";H$...L..".":. 2,1,2,"H$
"...V..U.1.3:.M.1.12...{..2,Q(U,M).'....
790:.:..2... 2:.80.X..............PRINTE
N................W....4,4:A$."TOTAAL VER
BRUIK "......4," "A$.C....4:.
4," MAAND GAS LICHT WAT
ER"...F..X.0.39:.4,".";.:.4...P..Y.1.12:
M$(Y).M$(Y).H(OP,9.C(M$(Y))):.910.3.Z..4
,M$(Y)" "Z$" "X$" "C$:..L...
.Y.0.39:.4,".";:.:.4.U....940......4,"
"Q(1,0)" "Q(2,0)" "Q
(3,0): 4:.70.................GOSUB......
.........Z....*** ERROR LEZEN OP DISK **
**............15,EN,EM$,ET,ES... ..EN.0.
....*..".... ERROR OP DE DISK ".2.4.. EN
;EM$;ET;ES.;.>. 2:..N.H.V.(40.C(A$)).2.[
.R..".."OP$.{.\..".."H(OP$,V);A$;H(OP$,V
.1)...F..".."OP$".":..L.P.."............
...................... DRUK OP EEN TOETS
! ."...Z..A$:.A$."".890...........G$.D(Q
(1,Y)):G.C(G$):Z$.H(OP$,6.G).G$.9...H$.D
(Q(2,Y)):H.C(H$):X$.H(OP$,6.H).H$.E...F$
.D(Q(3,Y)):F.C(F$):C$.H(OP$,6.F).F$:..Y.
...U.1.3:Q(U,0).0. ....X.1.12:Q(U,0).Q(U
,0).Q(U,X):.:.:..Q...."..........HEBT U
ALLES GEBOEKT [J/N]":.880...J..A$."".970
...T..A$."N".80......A$."J"..".":....
> CLICK IMAGE PREVIEW FOR FULL MODAL