HUISVERBRUIK
FILE INFORMATION
FILENAME(S): HUISVERBRUIK
FILE TYPE(S): PRG
FILE SIZE: 2.8K
FIRST SEEN: 2025-11-30 21:27:57
APPEARS ON: 1 disk(s)
FILE HASH
3098dc9399a54f7f4600bba78860e592780aa584ccd520500a220b70b5b09581
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COMMODORE INFO 1 | HUISVERBRUIK | PRG | DuncanTwain | 11 | 0 | 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 4C |ERRIT KOFFEMAN.L| 00000040: 08 03 00 8F 20 55 49 54 20 55 52 4B 00 52 08 04 |.... UIT URK.R..| 00000050: 00 8F 00 66 08 0A 00 86 4D 24 28 31 33 29 2C 51 |...f....M$(13),Q| 00000060: 28 34 2C 31 33 29 00 A7 08 14 00 4D 24 28 31 29 |(4,13).....M$(1)| 00000070: B2 22 4A 41 4E 55 41 52 49 22 3A 4D 24 28 32 29 |."JANUARI":M$(2)| 00000080: B2 22 46 45 42 52 55 41 52 49 22 3A 4D 24 28 33 |."FEBRUARI":M$(3| 00000090: 29 B2 22 4D 41 41 52 54 22 3A 4D 24 28 34 29 B2 |)."MAART":M$(4).| 000000A0: 22 41 50 52 49 4C 22 00 E2 08 1E 00 4D 24 28 35 |"APRIL".....M$(5| 000000B0: 29 B2 22 4D 45 49 22 3A 4D 24 28 36 29 B2 22 4A |)."MEI":M$(6)."J| 000000C0: 55 4E 49 22 3A 4D 24 28 37 29 B2 22 4A 55 4C 49 |UNI":M$(7)."JULI| 000000D0: 22 3A 4D 24 28 38 29 B2 22 41 55 47 55 53 54 55 |":M$(8)."AUGUSTU| 000000E0: 53 22 00 2D 09 28 00 4D 24 28 39 29 B2 22 53 45 |S".-.(.M$(9)."SE| 000000F0: 50 54 45 4D 42 45 52 22 3A 4D 24 28 31 30 29 B2 |PTEMBER":M$(10).| 00000100: 22 4F 4B 54 4F 42 45 52 22 3A 4D 24 28 31 31 29 |"OKTOBER":M$(11)| 00000110: B2 22 4E 4F 56 45 4D 42 45 52 22 3A 4D 24 28 31 |."NOVEMBER":M$(1| 00000120: 32 29 B2 22 44 45 43 45 4D 42 45 52 22 00 59 09 |2)."DECEMBER".Y.| 00000130: 32 00 56 24 28 31 29 B2 22 47 41 53 22 3A 56 24 |2.V$(1)."GAS":V$| 00000140: 28 32 29 B2 22 4C 49 43 48 54 22 3A 56 24 28 33 |(2)."LICHT":V$(3| 00000150: 29 B2 22 57 41 54 45 52 22 00 8C 09 3C 00 4F 50 |)."WATER"...<.OP| 00000160: 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |$." | 00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000180: 20 20 20 20 20 20 20 20 20 20 20 22 00 B2 09 46 | "...F| 00000190: 00 8F 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 4D |.. ............M| 000001A0: 45 4E 55 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |ENU.............| 000001B0: 2E 2E 00 D1 09 50 00 99 22 93 05 22 3A 41 24 B2 |.....P.."..":A$.| 000001C0: 22 2A 2A 20 4D 45 4E 55 20 2A 2A 22 3A 8D 38 34 |"** MENU **":.84| 000001D0: 30 00 EE 09 5A 00 99 A3 35 29 22 11 11 11 5B 20 |0...Z...5)"...[ | 000001E0: 31 20 5D 20 20 20 20 49 4E 56 4F 45 52 22 00 0A |1 ] INVOER"..| 000001F0: 0A 64 00 99 A3 35 29 22 11 5B 20 32 20 5D 20 20 |.d...5)".[ 2 ] | 00000200: 20 20 54 4F 54 41 4C 45 4E 22 00 26 0A 6E 00 99 | TOTALEN".&.n..| 00000210: A3 35 29 22 11 5B 20 33 20 5D 20 20 20 20 50 52 |.5)".[ 3 ] PR| 00000220: 49 4E 54 45 4E 22 00 48 0A 78 00 99 A3 35 29 22 |INTEN".H.x...5)"| 00000230: 11 5B 20 34 20 5D 20 20 20 20 53 41 56 45 4E 20 |.[ 4 ] SAVEN | 00000240: 2F 20 4C 41 44 45 4E 22 00 66 0A 82 00 8D 38 38 |/ LADEN".f....88| 00000250: 30 3A 8B C5 28 41 24 29 B3 31 B0 C5 28 41 24 29 |0:..(A$).1..(A$)| 00000260: B1 34 A7 31 33 30 00 81 0A 8C 00 91 C5 28 41 24 |.4.130.......(A$| 00000270: 29 89 31 36 30 2C 33 34 30 2C 36 38 30 2C 34 38 |).160,340,680,48| 00000280: 30 00 A7 0A 96 00 8F 20 2E 2E 2E 2E 2E 2E 2E 2E |0...... ........| 00000290: 2E 2E 49 4E 56 4F 45 52 2E 2E 2E 2E 2E 2E 2E 2E |..INVOER........| 000002A0: 2E 2E 2E 2E 2E 2E 2E 00 DF 0A A0 00 41 24 B2 22 |............A$."| 000002B0: 47 41 53 2C 20 4C 49 43 48 54 2C 20 57 41 54 45 |GAS, LICHT, WATE| 000002C0: 52 22 3A 8D 38 34 30 3A 99 A3 35 29 22 11 11 11 |R":.840:..5)"...| 000002D0: 5B 20 31 20 5D 20 20 20 20 20 20 47 41 53 22 00 |[ 1 ] GAS".| 000002E0: FB 0A AA 00 99 A3 35 29 22 11 5B 20 32 20 5D 20 |......5)".[ 2 ] | 000002F0: 20 20 20 20 20 4C 49 43 48 54 22 00 17 0B B4 00 | LICHT".....| 00000300: 99 A3 35 29 22 11 5B 20 33 A0 5D 20 20 20 20 20 |..5)".[ 3.] | 00000310: 20 57 41 54 45 52 22 00 20 0B BE 00 8D 38 38 30 | WATER". ....880| 00000320: 00 39 0B C8 00 8B C5 28 41 24 29 B3 31 B0 C5 28 |.9.....(A$).1..(| 00000330: 41 24 29 B1 33 A7 31 39 30 00 50 0B D2 00 55 B2 |A$).3.190.P...U.| 00000340: C5 28 41 24 29 3A 81 59 B2 31 A4 32 35 30 3A 82 |.(A$):.Y.1.250:.| 00000350: 00 90 0B DC 00 41 24 B2 22 49 4E 56 4F 45 52 20 |.....A$."INVOER | 00000360: 20 22 AA 56 24 28 55 29 3A 8D 38 34 30 3A 85 22 | ".V$(U):.840:."| 00000370: 11 11 1D 1D 57 45 4C 4B 45 20 4D 41 41 4E 44 20 |....WELKE MAAND | 00000380: 57 45 4E 53 54 20 55 20 5B 4E 52 2E 5D 22 3B 4D |WENST U [NR.]";M| 00000390: 00 A2 0B E6 00 8B 4D B3 31 B0 4D B1 31 32 A7 32 |......M.1.M.12.2| 000003A0: 32 30 00 D2 0B F0 00 99 A3 32 39 29 22 91 12 22 |20.......29)".."| 000003B0: 4D 24 28 4D 29 22 92 22 3A 99 22 11 22 A3 31 35 |M$(M)".":.".".15| 000003C0: 29 22 4F 2E 4B 2E 20 5B 4A 2F 4E 5D 22 3A 8D 38 |)"O.K. [J/N]":.8| 000003D0: 38 30 00 E2 0B FA 00 8B 41 24 B2 22 4E 22 A7 32 |80......A$."N".2| 000003E0: 32 30 00 0A 0C 04 01 41 24 B2 22 49 4E 56 4F 45 |20.....A$."INVOE| 000003F0: 52 20 20 22 AA 56 24 28 55 29 AA 22 20 20 22 AA |R ".V$(U)." ".| 00000400: 4D 24 28 4D 29 3A 8D 38 34 30 00 2B 0C 0E 01 85 |M$(M):.840.+....| 00000410: 22 11 47 45 45 46 20 42 45 47 49 4E 20 4D 45 54 |".GEEF BEGIN MET| 00000420: 45 52 53 54 41 4E 44 22 3B 42 53 00 4C 0C 18 01 |ERSTAND";BS.L...| 00000430: 85 22 11 47 45 45 46 20 45 49 4E 44 20 4D 45 54 |.".GEEF EIND MET| 00000440: 45 52 53 54 41 4E 44 20 22 3B 45 53 00 70 0C 22 |ERSTAND ";ES.p."| 00000450: 01 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." | 00000460: 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 22 | ------"| 00000470: 00 93 0C 2C 01 99 22 20 20 20 20 20 20 20 20 56 |...,.." V| 00000480: 45 52 42 52 55 49 4B 20 20 20 20 20 20 22 45 53 |ERBRUIK "ES| 00000490: AB 42 53 00 A6 0C 36 01 51 28 55 2C 4D 29 B2 28 |.BS...6.Q(U,M).(| 000004A0: 45 53 AB 42 53 29 00 B3 0C 40 01 8D 38 38 30 3A |ES.BS)...@..880:| 000004B0: 89 38 30 00 D7 0C 4A 01 8F 2E 2E 2E 2E 2E 2E 2E |.80...J.........| 000004C0: 2E 2E 54 4F 54 41 4C 45 4E 2E 2E 2E 2E 2E 2E 2E |..TOTALEN.......| 000004D0: 2E 2E 2E 2E 2E 2E 2E 00 E0 0C 54 01 8D 39 34 30 |..........T..940| 000004E0: 00 FF 0C 5E 01 41 24 B2 22 54 4F 54 41 41 4C 20 |...^.A$."TOTAAL | 000004F0: 56 45 52 42 52 55 49 4B 20 22 3A 8D 38 34 30 00 |VERBRUIK ":.840.| 00000500: 2C 0D 68 01 99 22 20 20 4D 41 41 4E 44 20 20 B4 |,.h.." MAAND .| 00000510: 20 20 20 47 41 53 20 20 20 20 B4 20 4C 49 43 48 | GAS . LICH| 00000520: 54 20 20 20 B4 20 57 41 54 45 52 22 00 5B 0D 72 |T . WATER".[.r| 00000530: 01 99 22 B7 B7 B7 B7 B7 B7 B7 B7 B7 CF B7 B7 B7 |..".............| 00000540: B7 B7 B7 B7 B7 B7 B7 CF B7 B7 B7 B7 B7 B7 B7 B7 |................| 00000550: B7 CF B7 B7 B7 B7 B7 B7 B7 B7 22 00 67 0D 7C 01 |..........".g.|.| 00000560: 81 49 B2 31 A4 31 32 00 85 0D 86 01 99 4D 24 28 |.I.1.12......M$(| 00000570: 49 29 AA C8 28 4F 50 24 2C 39 AB C3 28 4D 24 28 |I)..(OP$,9..(M$(| 00000580: 49 29 29 29 3B 00 A1 0D 90 01 99 22 B4 22 3B A3 |I)));......".";.| 00000590: 32 30 29 22 B4 22 3B A3 33 30 29 22 B4 20 22 3A |20)".";.30)". ":| 000005A0: 82 00 B5 0D 9A 01 81 59 B2 30 A4 33 39 3A 99 22 |.......Y.0.39:."| 000005B0: 2D 22 3B 3A 82 00 DE 0D A4 01 99 22 11 22 A3 31 |-";:.......".".1| 000005C0: 32 29 51 28 31 2C 30 29 3B A3 32 32 29 51 28 32 |2)Q(1,0);.22)Q(2| 000005D0: 2C 30 29 3B A3 33 32 29 51 28 33 2C 30 29 00 EC |,0);.32)Q(3,0)..| 000005E0: 0D AE 01 99 22 13 11 11 11 11 11 22 00 FD 0D B8 |...."......"....| 000005F0: 01 81 59 B2 31 A4 31 32 3A 8D 39 31 30 00 1E 0E |..Y.1.12:.910...| 00000600: C2 01 99 A3 31 32 29 5A 24 3B A3 32 32 29 58 24 |....12)Z$;.22)X$| 00000610: 3B A3 33 32 29 43 24 3A 82 3A 8D 38 38 30 00 26 |;.32)C$:.:.880.&| 00000620: 0E CC 01 89 38 30 00 4C 0E D6 01 8F 2E 2E 2E 2E |....80.L........| 00000630: 2E 2E 2E 2E 2E 2E 2E 4C 41 44 45 4E 2F 53 41 56 |.......LADEN/SAV| 00000640: 45 4E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 72 0E E0 |EN...........r..| 00000650: 01 41 24 B2 22 4C 41 44 45 4E 20 45 4E 20 53 41 |.A$."LADEN EN SA| 00000660: 56 45 4E 22 3A 8D 38 34 30 3A 9F 31 35 2C 38 2C |VEN":.840:.15,8,| 00000670: 31 35 00 9C 0E EA 01 85 22 11 11 1D 1D 1D 57 49 |15......".....WI| 00000680: 4C 54 20 55 20 12 4C 92 41 44 45 4E 20 4F 46 20 |LT U .L.ADEN OF | 00000690: 12 53 92 41 56 45 4E 20 22 3B 41 24 00 AC 0E F4 |.S.AVEN ";A$....| 000006A0: 01 8B 41 24 B2 22 4C 22 A7 36 30 30 00 C6 0E FE |..A$."L".600....| 000006B0: 01 8B 41 24 B3 B1 22 53 22 A7 99 22 91 91 91 91 |..A$.."S".."....| 000006C0: 22 3A 89 34 39 30 00 E7 0E 08 02 41 24 B2 22 53 |":.490.....A$."S| 000006D0: 41 56 45 4E 22 3A 8D 38 34 30 3A 85 22 11 11 4E |AVEN":.840:."..N| 000006E0: 41 41 4D 22 3B 48 24 00 02 0F 12 02 9F 32 2C 38 |AAM";H$......2,8| 000006F0: 2C 32 2C 22 40 30 3A 22 AA 48 24 AA 22 2C 53 2C |,2,"@0:".H$.",S,| 00000700: 57 22 00 0B 0F 1C 02 8D 37 39 30 00 1E 0F 26 02 |W"......790...&.| 00000710: 81 55 B2 31 A4 33 3A 81 4D B2 31 A4 31 32 00 2C |.U.1.3:.M.1.12.,| 00000720: 0F 30 02 98 32 2C 51 28 55 2C 4D 29 00 39 0F 3A |.0..2,Q(U,M).9.:| 00000730: 02 8D 37 39 30 3A 82 3A 82 00 44 0F 44 02 A0 32 |..790:.:..D.D..2| 00000740: 3A A0 31 35 00 4C 0F 4E 02 89 38 30 00 6D 0F 58 |:.15.L.N..80.m.X| 00000750: 02 41 24 B2 22 4C 41 44 45 4E 22 3A 8D 38 34 30 |.A$."LADEN":.840| 00000760: 3A 85 22 11 11 4E 41 41 4D 22 3B 48 24 00 82 0F |:."..NAAM";H$...| 00000770: 62 02 9F 32 2C 38 2C 32 2C 48 24 AA 22 2C 53 2C |b..2,8,2,H$.",S,| 00000780: 52 22 00 8B 0F 6C 02 8D 37 39 30 00 9E 0F 76 02 |R"...l..790...v.| 00000790: 81 55 B2 31 A4 33 3A 81 4D B2 31 A4 31 32 00 AC |.U.1.3:.M.1.12..| 000007A0: 0F 80 02 84 32 2C 51 28 55 2C 4D 29 00 B9 0F 8A |....2,Q(U,M)....| 000007B0: 02 8D 37 39 30 3A 82 3A 82 00 C8 0F 94 02 A0 32 |..790:.:.......2| 000007C0: 3A A0 31 35 3A 89 38 30 00 EF 0F 9E 02 8F 2E 2E |:.15:.80........| 000007D0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 50 52 49 4E 54 45 4E |.........PRINTEN| 000007E0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 |................| 000007F0: 0E 10 A8 02 9F 34 2C 34 3A 41 24 B2 22 54 4F 54 |.....4,4:A$."TOT| 00000800: 41 41 4C 20 56 45 52 42 52 55 49 4B 20 22 00 26 |AAL VERBRUIK ".&| 00000810: 10 B2 02 98 34 2C 22 20 20 20 20 20 20 20 20 20 |....4," | 00000820: 20 20 20 22 41 24 00 5A 10 BC 02 98 34 3A 98 34 | "A$.Z....4:.4| 00000830: 2C 22 20 20 20 4D 41 41 4E 44 20 20 20 20 20 20 |," MAAND | 00000840: 47 41 53 20 20 20 20 20 20 4C 49 43 48 54 20 20 |GAS LICHT | 00000850: 20 20 20 20 57 41 54 45 52 22 00 73 10 C6 02 81 | WATER".s....| 00000860: 58 B2 30 A4 33 39 3A 98 34 2C 22 B7 22 3B 3A 82 |X.0.39:.4,".";:.| 00000870: 3A 98 34 00 A2 10 D0 02 81 59 B2 31 A4 31 32 3A |:.4......Y.1.12:| 00000880: 4D 24 28 59 29 B2 4D 24 28 59 29 AA C8 28 4F 50 |M$(Y).M$(Y)..(OP| 00000890: 24 2C 39 AB C3 28 4D 24 28 59 29 29 29 3A 8D 39 |$,9..(M$(Y))):.9| 000008A0: 31 30 00 CC 10 DA 02 98 34 2C 4D 24 28 59 29 22 |10......4,M$(Y)"| 000008B0: 20 20 20 22 5A 24 22 20 20 20 20 20 20 22 58 24 | "Z$" "X$| 000008C0: 22 20 20 20 20 20 20 22 43 24 3A 82 00 E5 10 E4 |" "C$:.....| 000008D0: 02 81 59 B2 30 A4 33 39 3A 98 34 2C 22 2D 22 3B |..Y.0.39:.4,"-";| 000008E0: 3A 82 3A 98 34 00 EE 10 EE 02 8D 39 34 30 00 2D |:.:.4......940.-| 000008F0: 11 F8 02 98 34 2C 22 20 20 20 20 20 20 20 20 20 |....4," | 00000900: 20 20 20 22 51 28 31 2C 30 29 22 20 20 20 20 20 | "Q(1,0)" | 00000910: 22 51 28 32 2C 30 29 22 20 20 20 20 20 20 20 22 |"Q(2,0)" "| 00000920: 51 28 33 2C 30 29 3A A0 34 3A 89 37 30 00 52 11 |Q(3,0):.4:.70.R.| 00000930: 02 03 8F 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 47 |... ...........G| 00000940: 4F 53 55 42 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |OSUB............| 00000950: 2E 2E 00 75 11 0C 03 8F 20 2A 2A 2A 20 45 52 52 |...u.... *** ERR| 00000960: 4F 52 20 4C 45 5A 45 4E 20 4F 50 20 44 49 53 4B |OR LEZEN OP DISK| 00000970: 20 2A 2A 2A 2A 00 8A 11 16 03 84 31 35 2C 45 4E | ****......15,EN| 00000980: 2C 45 4D 24 2C 45 54 2C 45 53 00 96 11 20 03 8B |,EM$,ET,ES... ..| 00000990: 45 4E B2 30 A7 8E 00 B4 11 2A 03 99 22 1D 1D 1D |EN.0.....*.."...| 000009A0: 1D 20 45 52 52 4F 52 20 4F 50 20 44 45 20 44 49 |. ERROR OP DE DI| 000009B0: 53 4B 20 22 00 C6 11 34 03 99 45 4E 3B 45 4D 24 |SK "...4..EN;EM$| 000009C0: 3B 45 54 3B 45 53 00 D3 11 3E 03 A0 32 3A A0 31 |;ET;ES...>..2:.1| 000009D0: 35 3A 80 00 E6 11 48 03 56 B2 28 34 30 AB C3 28 |5:....H.V.(40..(| 000009E0: 41 24 29 29 AD 32 00 F3 11 52 03 99 22 93 12 22 |A$)).2...R..".."| 000009F0: 4F 50 24 00 13 12 5C 03 99 22 12 91 22 C8 28 4F |OP$...\.."..".(O| 00000A00: 50 24 2C 56 29 3B 41 24 3B C8 28 4F 50 24 2C 56 |P$,V);A$;.(OP$,V| 00000A10: AA 31 29 00 25 12 66 03 99 22 12 91 22 4F 50 24 |.1).%.f..".."OP$| 00000A20: 22 92 22 3A 8E 00 64 12 70 03 99 22 13 11 11 11 |".":..d.p.."....| 00000A30: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00000A40: 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 |................| 00000A50: 44 52 55 4B 20 4F 50 20 45 45 4E 20 54 4F 45 54 |DRUK OP EEN TOET| 00000A60: 53 21 92 22 00 77 12 7A 03 A1 41 24 3A 8B 41 24 |S!.".w.z..A$:.A$| 00000A70: B2 22 22 A7 38 39 30 00 7D 12 84 03 8E 00 A7 12 |."".890.}.......| 00000A80: 8E 03 47 24 B2 C4 28 51 28 31 2C 59 29 29 3A 47 |..G$..(Q(1,Y)):G| 00000A90: B2 C3 28 47 24 29 3A 5A 24 B2 C8 28 4F 50 24 2C |..(G$):Z$..(OP$,| 00000AA0: 35 AB 47 29 AA 47 24 00 D1 12 98 03 48 24 B2 C4 |5.G).G$.....H$..| 00000AB0: 28 51 28 32 2C 59 29 29 3A 48 B2 C3 28 48 24 29 |(Q(2,Y)):H..(H$)| 00000AC0: 3A 58 24 B2 C8 28 4F 50 24 2C 35 AB 48 29 AA 48 |:X$..(OP$,5.H).H| 00000AD0: 24 00 FD 12 A2 03 46 24 B2 C4 28 51 28 33 2C 59 |$.....F$..(Q(3,Y| 00000AE0: 29 29 3A 46 B2 C3 28 46 24 29 3A 43 24 B2 C8 28 |)):F..(F$):C$..(| 00000AF0: 4F 50 24 2C 35 AB 46 29 AA 46 24 3A 8E 00 11 13 |OP$,5.F).F$:....| 00000B00: AC 03 81 55 B2 31 A4 33 3A 51 28 55 2C 30 29 B2 |...U.1.3:Q(U,0).| 00000B10: 30 00 38 13 B6 03 81 58 B2 31 A4 31 32 3A 51 28 |0.8....X.1.12:Q(| 00000B20: 55 2C 30 29 B2 51 28 55 2C 30 29 AA 51 28 55 2C |U,0).Q(U,0).Q(U,| 00000B30: 58 29 3A 82 3A 82 3A 8E 00 00 00 00 |X):.:.:..... |
..#.... HUISVERBRUIK / COMMODORE-64.>...
. DOOR GERRIT KOFFEMAN.L.... UIT URK.R..
...F....M$(13),Q(4,13).....M$(1)."JANUAR
I":M$(2)."FEBRUARI":M$(3)."MAART":M$(4).
"APRIL".....M$(5)."MEI":M$(6)."JUNI":M$(
7)."JULI":M$(8)."AUGUSTUS".-.(.M$(9)."SE
PTEMBER":M$(10)."OKTOBER":M$(11)."NOVEMB
ER":M$(12)."DECEMBER".Y.2.V$(1)."GAS":V$
(2)."LICHT":V$(3)."WATER"...<.OP$."
"...F
.. ............MENU................Q.P..
"..":A$."** MENU **":.840...Z...5)"...[
1 ] INVOER"...D...5)".[ 2 ] TOTALE
N".&.N...5)".[ 3 ] PRINTEN".H.X...5)"
.[ 4 ] SAVEN / LADEN".F....880:.E(A$)
.1.E(A$).4.130......E(A$).160,340,680,48
0...... ..........INVOER................
.. .A$."GAS, LICHT, WATER":.840:..5)"...
[ 1 ] GAS".......5)".[ 2 ] LIC
HT".......5)".[ 3 ] WATER". ....880
.9.H..E(A$).1.E(A$).3.190.P.R.U.E(A$):.Y
.1.250:......A$."INVOER ".V$(U):.840:."
....WELKE MAAND WENST U [NR.]";M......M.
1.M.12.220.R.....29)".."M$(M)".":.".".15
)"O.K. [J/N]":.880......A$."N".220.....A
$."INVOER ".V$(U)." ".M$(M):.840.+....
".GEEF BEGIN METERSTAND";BS.L....".GEEF
EIND METERSTAND ";ES.P.".."
------"...,.." VERBRUIK
"ES.BS...6.Q(U,M).(ES.BS)...@..880:
.80.W.J...........TOTALEN...............
..T..940...^.A$."TOTAAL VERBRUIK ":.840.
,.H.." MAAND . GAS . LICHT . WA
TER".[.R..".........O..........O........
.O........".G.|..I.1.12......M$(I).H(OP$
,9.C(M$(I)));......".";.20)".";.30)". ":
.......Y.0.39:."-";:.......".".12)Q(1,0)
;.22)Q(2,0);.32)Q(3,0)......"......"....
..Y.1.12:.910...B...12)Z$;.22)X$;.32)C$:
.:.880.&.L..80.L.V.............LADEN/SAV
EN...........R...A$."LADEN EN SAVEN":.84
0:.15,8,15......".....WILT U .L.ADEN OF
.S.AVEN ";A$......A$."L".600.F....A$.."S
".."....":.490.....A$."SAVEN":.840:."..N
AAM";H$......2,8,2,"@0:".H$.",S,W"......
790...&..U.1.3:.M.1.12.,.0..2,Q(U,M).9.:
..790:.:..D.D. 2: 15.L.N..80.M.X.A$."LAD
EN":.840:."..NAAM";H$...B..2,8,2,H$.",S,
R"...L..790...V..U.1.3:.M.1.12......2,Q(
U,M)......790:.:..H... 2: 15:.80........
.........PRINTEN.....................4,4
:A$."TOTAAL VERBRUIK ".&....4,"
"A$.Z....4:.4," MAAND GAS
LICHT WATER".S.F..X.0.39:.4,".";:.
:.4...P..Y.1.12:M$(Y).M$(Y).H(OP$,9.C(M$
(Y))):.910.L.Z..4,M$(Y)" "Z$" "X$
" "C$:.......Y.0.39:.4,"-";:.:.4...
...940.-....4," "Q(1,0)"
"Q(2,0)" "Q(3,0): 4:.70.R.... ....
.......GOSUB...............U.... *** ERR
OR LEZEN OP DISK ****......15,EN,EM$,ET,
ES... ..EN.0.....*..".... ERROR OP DE DI
SK ".F.4..EN;EM$;ET;ES.S.>. 2: 15:....H.
V.(40.C(A$)).2...R..".."OP$...\..".."H(O
P$,V);A$;H(OP$,V.1).%.F..".."OP$".":..D.
P.."....................................
DRUK OP EEN TOETS!.".W.Z..A$:.A$."".890.
}.........G$.D(Q(1,Y)):G.C(G$):Z$.H(OP$,
5.G).G$.Q...H$.D(Q(2,Y)):H.C(H$):X$.H(OP
$,5.H).H$.....F$.D(Q(3,Y)):F.C(F$):C$.H(
OP$,5.F).F$:.......U.1.3:Q(U,0).0.8....X
.1.12:Q(U,0).Q(U,0).Q(U,X):.:.:.....
> CLICK IMAGE PREVIEW FOR FULL MODAL