JRN MUT
FILE INFORMATION
FILENAME(S): JRN MUT
FILE TYPE(S): PRG
FILE SIZE: 4.1K
FIRST SEEN: 2025-11-30 21:24:39
APPEARS ON: 1 disk(s)
FILE HASH
fd39c819ac340f7ab7a8567d4703225cc7b97063ed16e6d306344f83cda4f77e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| INFORMATIEF | JRN MUT | PRG | DuncanTwain | 3 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 41 08 0A 00 86 20 47 42 28 35 30 30 29 2C |..A.... GB(500),| 00000010: 4F 24 28 38 30 30 29 2C 44 41 28 38 30 30 29 2C |O$(800),DA(800),| 00000020: 53 54 24 28 38 30 30 29 2C 44 43 24 28 38 30 30 |ST$(800),DC$(800| 00000030: 29 2C 42 44 28 38 30 30 29 2C 4A 47 28 38 30 30 |),BD(800),JG(800| 00000040: 29 00 61 08 14 00 8D 39 34 30 3A 8F 20 49 4E 4C |).a....940:. INL| 00000050: 45 5A 45 4E 20 47 52 4F 4F 54 42 4F 45 4B 4E 52 |EZEN GROOTBOEKNR| 00000060: 53 00 85 08 1E 00 8D 31 35 34 30 3A 20 8F 20 49 |S......1540: . I| 00000070: 4E 4C 45 5A 45 4E 20 4A 4F 55 52 4E 41 41 4C 50 |NLEZEN JOURNAALP| 00000080: 4F 53 54 45 4E 00 8F 08 28 00 9F 20 33 2C 34 00 |OSTEN...(.. 3,4.| 00000090: BB 08 32 00 98 33 2C C7 28 31 34 29 22 49 4E 42 |..2..3,.(14)"INB| 000000A0: 52 45 4E 47 45 4E 20 4A 4F 55 52 4E 41 41 4C 50 |RENGEN JOURNAALP| 000000B0: 4F 53 54 45 4E 22 C7 28 31 35 29 00 C8 08 3C 00 |OSTEN".(15)...<.| 000000C0: 98 33 2C C7 28 31 30 29 00 10 09 46 00 98 33 2C |.3,.(10)...F..3,| 000000D0: 22 52 45 4B 2E 4E 52 20 44 41 54 55 4D 20 20 53 |"REK.NR DATUM S| 000000E0: 54 55 4B 4E 52 20 4F 4D 53 43 48 52 20 20 20 20 |TUKNR OMSCHR | 000000F0: 20 20 20 20 20 44 2F 43 20 42 45 44 52 41 47 20 | D/C BEDRAG | 00000100: 20 20 20 20 54 45 47 2E 52 45 4B 20 42 54 57 22 | TEG.REK BTW"| 00000110: 00 19 09 50 00 99 22 93 22 00 39 09 5A 00 99 A3 |...P..".".9.Z...| 00000120: 31 33 29 22 4A 4F 55 52 4E 41 41 4C 50 4F 53 54 |13)"JOURNAALPOST| 00000130: 45 4E 20 20 20 20 22 3A 99 00 61 09 64 00 99 22 |EN ":..a.d.."| 00000140: 20 47 42 4E 52 20 20 44 41 54 55 4D 20 53 54 55 | GBNR DATUM STU| 00000150: 4B 4E 52 20 4F 4D 53 43 48 52 49 4A 56 49 4E 47 |KNR OMSCHRIJVING| 00000160: 22 00 88 09 6E 00 99 22 20 20 20 44 2F 43 20 20 |"...n.." D/C | 00000170: 20 20 42 45 44 52 41 47 20 54 45 47 45 4E 52 45 | BEDRAG TEGENRE| 00000180: 4B 20 20 42 54 57 20 22 00 B7 09 78 00 99 22 2D |K BTW "...x.."-| 00000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000001B0: 2D 2D 2D 2D 2D 2D 22 00 D6 09 82 00 99 22 20 20 |------"......" | 000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001D0: 20 22 3A 99 3A 99 00 F2 09 8C 00 85 20 22 47 42 | ":.:....... "GB| 000001E0: 2E 4E 52 2E 28 39 39 39 3D 53 54 4F 50 29 22 3B |.NR.(999=STOP)";| 000001F0: 4E 52 00 16 0A 96 00 8B 20 4E 52 B2 39 39 39 20 |NR...... NR.999 | 00000200: A7 36 32 30 3A 8F 20 4A 4F 55 52 4E 41 41 4C 20 |.620:. JOURNAAL | 00000210: 3E 20 44 49 53 4B 00 31 0A A0 00 8B 20 4E 52 B2 |> DISK.1.... NR.| 00000220: 30 20 20 20 A7 20 8D 31 37 35 30 3A 20 89 31 33 |0 . .1750: .13| 00000230: 30 00 4C 0A AA 00 8D 34 38 30 3A 20 8F 20 43 4F |0.L....480: . CO| 00000240: 4E 54 52 4F 4C 45 20 47 42 20 4E 52 00 65 0A B4 |NTROLE GB NR.e..| 00000250: 00 8B 20 49 B2 30 20 A7 20 54 31 B2 54 31 AA 31 |.. I.0 . T1.T1.1| 00000260: 3A 89 31 33 30 00 7E 0A BE 00 99 22 91 91 22 3B |:.130.~...."..";| 00000270: 3A 99 22 91 22 3B 3A 20 99 20 4E 52 3A 99 00 87 |:.".";: . NR:...| 00000280: 0A C8 00 44 54 B2 30 00 BB 0A D2 00 99 20 22 20 |...DT.0...... " | 00000290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002A0: 20 20 20 20 20 20 20 20 20 91 22 3A 85 20 22 44 | .":. "D| 000002B0: 41 54 55 4D 20 20 20 22 3B 44 54 00 D7 0A DC 00 |ATUM ";DT.....| 000002C0: 99 22 91 91 22 3B 3A 99 22 91 22 3B 3A 99 20 A3 |."..";:.".";:. .| 000002D0: 35 29 3B 44 54 3A 99 00 E2 0A E6 00 53 24 B2 22 |5);DT:......S$."| 000002E0: 3F 22 00 0D 0B F0 00 99 20 22 A0 20 20 20 20 20 |?"...... ". | 000002F0: 20 20 20 20 20 20 A0 A0 A0 A0 A0 91 22 3A 85 20 | ......":. | 00000300: 22 53 54 55 4B 4E 52 2E 20 22 3B 53 24 00 2A 0B |"STUKNR. ";S$.*.| 00000310: FA 00 99 22 91 91 22 3B 3A 99 22 91 22 3B 3A 99 |..."..";:.".";:.| 00000320: 20 A3 31 33 29 3B 53 24 3A 99 00 36 0B 04 01 4F | .13);S$:..6...O| 00000330: 4D 24 B2 22 3F 22 00 62 0B 0E 01 99 20 22 A0 20 |M$."?".b.... ". | 00000340: 20 20 20 20 20 20 20 20 20 20 A0 A0 A0 A0 A0 91 | ......| 00000350: 22 3A 85 20 22 4F 4D 53 43 48 52 2E 20 22 3B 4F |":. "OMSCHR. ";O| 00000360: 4D 24 00 8A 0B 18 01 99 20 22 91 20 20 20 20 20 |M$...... ". | 00000370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000380: 20 20 20 20 20 20 20 20 20 22 00 A8 0B 22 01 99 | "..."..| 00000390: 22 91 91 22 3B 3A 99 22 91 22 3B 3A 99 20 A3 32 |"..";:.".";:. .2| 000003A0: 30 29 3B 4F 4D 24 3A 99 00 B4 0B 2C 01 44 42 24 |0);OM$:....,.DB$| 000003B0: B2 22 3F 22 00 D6 0B 36 01 99 20 22 A0 20 20 20 |."?"...6.. ". | 000003C0: 20 20 20 91 22 3A 85 20 22 44 2F 43 20 20 20 20 | .":. "D/C | 000003D0: 20 22 3B 44 42 24 00 F2 0B 40 01 99 22 91 22 3B | ";DB$...@..".";| 000003E0: 3A 99 22 91 22 3B 3A 99 20 A3 30 34 29 3B 20 44 |:.".";:. .04); D| 000003F0: 42 24 00 FD 0B 4A 01 42 24 B2 22 30 22 00 34 0C |B$...J.B$."0".4.| 00000400: 54 01 99 20 22 20 20 20 20 20 20 20 20 20 20 20 |T.. " | 00000410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000420: 20 20 91 22 3A 85 20 22 42 45 44 52 41 47 20 20 | .":. "BEDRAG | 00000430: 22 3B 42 24 00 51 0C 5E 01 99 22 91 22 3B 3A 99 |";B$.Q.^..".";:.| 00000440: 22 91 22 3B 3A 99 20 A3 30 37 29 3B C5 28 42 24 |".";:. .07);.(B$| 00000450: 29 00 5C 0C 68 01 54 24 B2 22 30 22 00 8D 0C 72 |).\.h.T$."0"...r| 00000460: 01 99 20 22 20 20 20 20 20 20 20 20 20 20 20 20 |.. " | 00000470: 20 20 20 20 20 20 20 20 20 20 20 91 22 3A 85 20 | .":. | 00000480: 22 54 45 47 2E 52 45 4B 20 22 3B 54 24 00 A6 0C |"TEG.REK ";T$...| 00000490: 7C 01 8D 35 35 30 3A 8F 20 4B 4F 4E 54 52 4F 4C ||..550:. KONTROL| 000004A0: 45 20 47 42 4E 52 00 C3 0C 86 01 99 22 91 22 3B |E GBNR......".";| 000004B0: 3A 99 22 91 22 3B 3A 99 20 A3 31 38 29 3B C5 28 |:.".";:. .18);.(| 000004C0: 54 24 29 00 CF 0C 90 01 42 54 24 B2 22 20 22 00 |T$).....BT$." ".| 000004D0: FB 0C 9A 01 99 20 22 20 20 20 20 20 20 20 20 20 |..... " | 000004E0: 20 20 20 20 20 20 20 20 91 22 3A 85 20 22 42 54 | .":. "BT| 000004F0: 57 28 4A 2F 20 29 22 3B 42 54 24 00 16 0D A4 01 |W(J/ )";BT$.....| 00000500: 99 22 91 22 3B 3A 99 22 91 22 3B 3A 99 20 A3 33 |.".";:.".";:. .3| 00000510: 30 29 3B 42 54 24 00 35 0D AE 01 8D 31 31 30 30 |0);BT$.5....1100| 00000520: 3A 8F 20 54 45 4C 4C 45 4E 20 45 4E 20 4F 50 42 |:. TELLEN EN OPB| 00000530: 45 52 47 45 4E 00 3C 0D B8 01 98 33 00 59 0D C2 |ERGEN.<....3.Y..| 00000540: 01 54 31 B2 54 31 AA 31 3A 8B 20 54 31 B3 35 20 |.T1.T1.1:. T1.5 | 00000550: A7 20 20 20 20 89 31 33 30 00 66 0D CC 01 54 31 |. .130.f...T1| 00000560: B2 30 3A 89 38 30 00 6C 0D D6 01 80 00 7A 0D E0 |.0:.80.l.....z..| 00000570: 01 81 20 49 B2 31 A4 35 30 30 00 8D 0D EA 01 8B |.. I.1.500......| 00000580: 20 4E 52 B2 47 42 28 49 29 20 A7 20 8E 00 A0 0D | NR.GB(I) . ....| 00000590: F4 01 8B 20 47 42 28 49 29 B2 30 20 A7 35 32 30 |... GB(I).0 .520| 000005A0: 00 A8 0D FE 01 82 20 49 00 D6 0D 08 02 99 22 91 |...... I......".| 000005B0: 91 22 3B 3A 99 22 91 22 3B 3A 20 99 20 4E 52 3B |.";:.".";: . NR;| 000005C0: 3A 99 22 20 4F 4E 42 45 4B 45 4E 44 20 52 45 4B |:." ONBEKEND REK| 000005D0: 2E 4E 52 22 3A 99 00 DE 0D 12 02 49 B2 30 00 E4 |.NR":......I.0..| 000005E0: 0D 1C 02 8E 00 F2 0D 26 02 81 20 49 B2 31 A4 35 |.......&.. I.1.5| 000005F0: 30 30 00 09 0E 30 02 8B 20 C5 28 54 24 29 20 B2 |00...0.. .(T$) .| 00000600: 47 42 28 49 29 20 A7 20 8E 00 1C 0E 3A 02 8B 20 |GB(I) . ....:.. | 00000610: 47 42 28 49 29 B2 30 20 A7 35 39 30 00 24 0E 44 |GB(I).0 .590.$.D| 00000620: 02 82 20 49 00 31 0E 4E 02 54 24 B2 22 30 30 30 |.. I.1.N.T$."000| 00000630: 22 00 39 0E 58 02 49 B2 30 00 3F 0E 62 02 8E 00 |".9.X.I.0.?.b...| 00000640: 77 0E 6C 02 99 22 93 22 3A 99 3A 99 3A 99 3A 99 |w.l..".":.:.:.:.| 00000650: 22 57 45 47 53 43 48 52 49 4A 56 45 4E 20 4A 4F |"WEGSCHRIJVEN JO| 00000660: 55 52 4E 41 41 4C 50 4F 53 54 45 4E 20 4F 50 20 |URNAALPOSTEN OP | 00000670: 44 49 53 4B 20 20 22 00 97 0E 76 02 99 3A 9F 20 |DISK "...v..:. | 00000680: 31 2C 38 2C 32 2C 22 40 30 3A 4A 4F 55 52 4E 41 |1,8,2,"@0:JOURNA| 00000690: 41 4C 2C 53 2C 57 22 00 BE 0E 80 02 8F 20 57 45 |AL,S,W"...... WE| 000006A0: 47 53 43 48 52 49 4A 56 45 4E 20 4E 41 41 52 20 |GSCHRIJVEN NAAR | 000006B0: 4A 4F 55 52 4E 41 41 4C 50 4F 53 54 45 4E 00 CC |JOURNAALPOSTEN..| 000006C0: 0E 8A 02 81 20 49 B2 31 A4 38 30 30 00 DF 0E 94 |.... I.1.800....| 000006D0: 02 8B 20 4A 47 28 49 29 B2 30 20 A7 37 37 30 00 |.. JG(I).0 .770.| 000006E0: E9 0E 9E 02 98 31 2C 20 49 00 F1 0E A8 02 99 20 |.....1, I...... | 000006F0: 49 00 FF 0E B2 02 98 31 2C 20 4A 47 28 49 29 00 |I......1, JG(I).| 00000700: 0D 0F BC 02 98 31 2C 20 44 41 28 49 29 00 1C 0F |.....1, DA(I)...| 00000710: C6 02 98 31 2C 20 53 54 24 28 49 29 00 2A 0F D0 |...1, ST$(I).*..| 00000720: 02 98 31 2C 20 4F 24 28 49 29 00 39 0F DA 02 98 |..1, O$(I).9....| 00000730: 31 2C 20 44 43 24 28 49 29 00 47 0F E4 02 98 31 |1, DC$(I).G....1| 00000740: 2C 20 42 44 28 49 29 00 4F 0F EE 02 82 20 49 00 |, BD(I).O.... I.| 00000750: 65 0F F8 02 99 20 22 42 45 53 54 41 4E 44 20 3D |e.... "BESTAND =| 00000760: 20 56 4F 4C 22 00 73 0F 02 03 98 31 2C 20 4A 47 | VOL".s....1, JG| 00000770: 28 49 29 00 A6 0F 0C 03 99 20 22 54 4F 54 41 41 |(I)...... "TOTAA| 00000780: 4C 20 57 45 47 47 45 53 43 48 52 45 56 45 4E 20 |L WEGGESCHREVEN | 00000790: 4A 4F 55 52 4E 41 41 4C 50 4F 53 54 45 4E 20 3D |JOURNAALPOSTEN =| 000007A0: 20 22 3B 49 AB 31 00 B4 0F 16 03 A0 20 31 3A 99 | ";I.1...... 1:.| 000007B0: 20 22 93 22 00 D8 0F 20 03 99 22 4E 4F 47 4D 41 | "."... .."NOGMA| 000007C0: 41 4C 53 20 53 41 56 45 20 4F 50 20 44 49 53 4B |ALS SAVE OP DISK| 000007D0: 22 3B 3A 85 20 41 43 24 00 EB 0F 2A 03 8B 20 41 |";:. AC$...*.. A| 000007E0: 43 24 B2 22 4A 22 20 A7 36 33 30 00 04 10 34 03 |C$."J" .630...4.| 000007F0: 99 22 54 4F 54 41 41 4C 20 20 44 45 42 45 54 20 |."TOTAAL DEBET | 00000800: 22 3B 54 44 00 1F 10 3E 03 98 33 2C 22 54 4F 54 |";TD...>..3,"TOT| 00000810: 41 41 4C 20 20 44 45 42 45 54 20 22 3B 54 44 00 |AAL DEBET ";TD.| 00000820: 38 10 48 03 99 22 54 4F 54 41 41 4C 20 43 52 45 |8.H.."TOTAAL CRE| 00000830: 44 49 54 20 22 3B 54 43 00 53 10 52 03 98 33 2C |DIT ";TC.S.R..3,| 00000840: 22 54 4F 54 41 41 4C 20 43 52 45 44 49 54 20 22 |"TOTAAL CREDIT "| 00000850: 3B 54 43 00 61 10 5C 03 56 53 B2 20 54 44 AB 54 |;TC.a.\.VS. TD.T| 00000860: 43 00 7A 10 66 03 99 22 56 45 52 53 43 48 49 4C |C.z.f.."VERSCHIL| 00000870: 20 20 20 20 20 20 22 3B 56 53 00 95 10 70 03 98 | ";VS...p..| 00000880: 33 2C 22 56 45 52 53 43 48 49 4C 20 20 20 20 20 |3,"VERSCHIL | 00000890: 20 22 3B 56 53 00 B3 10 7A 03 8B 20 B6 28 54 44 | ";VS...z.. .(TD| 000008A0: 29 B2 B6 28 54 43 29 20 A7 20 99 20 22 4F 4B 45 |)..(TC) . . "OKE| 000008B0: 22 3A 80 00 DC 10 84 03 99 22 45 52 20 49 53 20 |":......."ER IS | 000008C0: 45 45 4E 20 56 45 52 53 43 48 49 4C 21 21 21 20 |EEN VERSCHIL!!! | 000008D0: 43 4F 4E 54 52 4F 4C 45 52 45 4E 22 00 07 11 8E |CONTROLEREN"....| 000008E0: 03 98 33 2C 22 45 52 20 49 53 20 45 45 4E 20 56 |..3,"ER IS EEN V| 000008F0: 45 52 53 43 48 49 4C 21 21 21 20 43 4F 4E 54 52 |ERSCHIL!!! CONTR| 00000900: 4F 4C 45 52 45 4E 22 00 0E 11 98 03 A0 33 00 14 |OLEREN"......3..| 00000910: 11 A2 03 80 00 39 11 AC 03 99 22 93 22 3A 99 3A |.....9....".":.:| 00000920: 99 3A 99 3A 99 22 49 4E 4C 45 5A 45 4E 20 47 52 |.:.:."INLEZEN GR| 00000930: 4F 4F 54 42 4F 45 4B 20 22 00 59 11 B6 03 99 3A |OOTBOEK ".Y....:| 00000940: 9F 20 31 2C 38 2C 32 2C 22 30 3A 47 52 4F 4F 54 |. 1,8,2,"0:GROOT| 00000950: 42 4F 45 4B 2C 53 2C 52 22 00 67 11 C0 03 81 20 |BOEK,S,R".g.... | 00000960: 49 B2 31 A4 35 30 30 00 75 11 CA 03 84 31 2C 20 |I.1.500.u....1, | 00000970: 47 42 28 49 29 00 89 11 D4 03 8B 20 47 42 28 49 |GB(I)...... GB(I| 00000980: 29 B2 30 20 A7 31 30 36 30 00 95 11 DE 03 84 31 |).0 .1060......1| 00000990: 2C 20 46 31 24 00 A0 11 E8 03 84 31 2C 20 46 32 |, F1$......1, F2| 000009A0: 00 AB 11 F2 03 84 31 2C 20 46 33 00 B6 11 FC 03 |......1, F3.....| 000009B0: 84 31 2C 20 46 34 00 C1 11 06 04 84 31 2C 20 46 |.1, F4......1, F| 000009C0: 35 00 CD 11 10 04 84 31 2C 20 46 36 24 00 D5 11 |5......1, F6$...| 000009D0: 1A 04 82 20 49 00 DD 11 24 04 A0 20 31 00 03 12 |... I...$.. 1...| 000009E0: 2E 04 99 20 22 54 4F 54 41 41 4C 20 49 4E 47 45 |... "TOTAAL INGE| 000009F0: 4C 45 5A 45 4E 20 47 42 20 4E 52 53 20 3D 22 3B |LEZEN GB NRS =";| 00000A00: 49 AB 31 00 12 12 38 04 85 22 4F 4B 45 22 3B 41 |I.1...8.."OKE";A| 00000A10: 43 24 00 18 12 42 04 8E 00 24 12 4C 04 54 32 B2 |C$...B...$.L.T2.| 00000A20: 54 32 AA 31 00 32 12 56 04 4A 47 28 54 32 29 B2 |T2.1.2.V.JG(T2).| 00000A30: 4E 52 00 3D 12 60 04 98 33 2C 4E 52 3B 00 4B 12 |NR.=.`..3,NR;.K.| 00000A40: 6A 04 44 41 28 54 32 29 B2 44 54 00 5F 12 74 04 |j.DA(T2).DT._.t.| 00000A50: 98 33 2C C7 28 31 36 29 22 30 37 22 44 54 3B 00 |.3,.(16)"07"DT;.| 00000A60: 6E 12 7E 04 53 54 24 28 54 32 29 B2 53 24 00 82 |n.~.ST$(T2).S$..| 00000A70: 12 88 04 98 33 2C C7 28 31 36 29 22 31 34 22 53 |....3,.(16)"14"S| 00000A80: 24 3B 00 91 12 92 04 4F 24 28 54 32 29 B2 4F 4D |$;.....O$(T2).OM| 00000A90: 24 00 A6 12 9C 04 98 33 2C C7 28 31 36 29 22 32 |$......3,.(16)"2| 00000AA0: 31 22 4F 4D 24 3B 00 B7 12 A6 04 44 43 24 28 54 |1"OM$;.....DC$(T| 00000AB0: 32 29 B2 20 44 42 24 00 CC 12 B0 04 98 33 2C C7 |2). DB$......3,.| 00000AC0: 28 31 36 29 22 33 37 22 44 42 24 3B 00 DD 12 BA |(16)"37"DB$;....| 00000AD0: 04 42 44 28 54 32 29 B2 C5 28 42 24 29 00 F1 12 |.BD(T2)..(B$)...| 00000AE0: C4 04 98 33 2C C7 28 31 36 29 22 34 32 22 42 24 |...3,.(16)"42"B$| 00000AF0: 3B 00 13 13 CE 04 8B 20 C8 28 44 42 24 2C 31 29 |;...... .(DB$,1)| 00000B00: B2 22 44 22 20 A7 20 54 44 B2 54 44 AA 42 44 28 |."D" . TD.TD.BD(| 00000B10: 54 32 29 00 35 13 D8 04 8B 20 C8 28 44 42 24 2C |T2).5.... .(DB$,| 00000B20: 31 29 B2 22 43 22 20 A7 20 54 43 B2 54 43 AA 42 |1)."C" . TC.TC.B| 00000B30: 44 28 54 32 29 00 47 13 E2 04 8B 20 C5 28 54 24 |D(T2).G.... .(T$| 00000B40: 29 B2 30 20 A7 20 8E 00 5F 13 EC 04 4E 52 B2 C5 |).0 . .._...NR..| 00000B50: 28 54 24 29 3A 54 24 B2 22 30 30 30 30 22 3A 00 |(T$):T$."0000":.| 00000B60: 73 13 F6 04 98 33 2C C7 28 31 36 29 22 35 34 22 |s....3,.(16)"54"| 00000B70: 4E 52 3B 00 87 13 00 05 98 33 2C C7 28 31 36 29 |NR;......3,.(16)| 00000B80: 22 36 32 22 42 54 24 00 9B 13 0A 05 8B 20 42 54 |"62"BT$...... BT| 00000B90: 24 B2 22 4A 22 20 A7 31 33 33 30 00 BE 13 14 05 |$."J" .1330.....| 00000BA0: 8B 20 C8 28 44 42 24 2C 31 29 B2 22 44 22 20 A7 |. .(DB$,1)."D" .| 00000BB0: 20 44 42 24 B2 22 43 22 3A 89 31 31 30 30 00 E1 | DB$."C":.1100..| 00000BC0: 13 1E 05 8B 20 C8 28 44 42 24 2C 31 29 B2 22 43 |.... .(DB$,1)."C| 00000BD0: 22 20 A7 20 44 42 24 B2 22 44 22 3A 89 31 31 30 |" . DB$."D":.110| 00000BE0: 30 00 E7 13 28 05 8E 00 F3 13 32 05 54 32 B2 54 |0...(.....2.T2.T| 00000BF0: 32 AA 31 00 01 14 3C 05 4A 47 28 54 32 29 B2 4E |2.1...<.JG(T2).N| 00000C00: 52 00 0F 14 46 05 44 41 28 54 32 29 B2 44 54 00 |R...F.DA(T2).DT.| 00000C10: 1E 14 50 05 53 54 24 28 54 32 29 B2 53 24 00 2D |..P.ST$(T2).S$.-| 00000C20: 14 5A 05 4F 24 28 54 32 29 B2 4F 4D 24 00 50 14 |.Z.O$(T2).OM$.P.| 00000C30: 64 05 8B 20 C8 28 44 42 24 2C 31 29 B2 22 44 22 |d.. .(DB$,1)."D"| 00000C40: 20 A7 20 44 42 24 B2 22 43 22 3A 89 31 34 30 30 | . DB$."C":.1400| 00000C50: 00 73 14 6E 05 8B 20 C8 28 44 42 24 2C 31 29 B2 |.s.n.. .(DB$,1).| 00000C60: 22 43 22 20 A7 20 44 42 24 B2 22 44 22 3A 89 31 |"C" . DB$."D":.1| 00000C70: 34 30 30 00 84 14 78 05 44 43 24 28 54 32 29 B2 |400...x.DC$(T2).| 00000C80: 20 44 42 24 00 A9 14 82 05 42 44 28 54 32 29 B2 | DB$.....BD(T2).| 00000C90: B5 28 C5 28 42 24 29 AC 31 30 30 30 30 AD 31 31 |.(.(B$).10000.11| 00000CA0: 38 AA 2E 35 29 AD 31 30 30 00 D2 14 8C 05 42 44 |8..5).100.....BD| 00000CB0: 28 54 32 AA 31 29 B2 B5 28 C5 28 42 24 29 AC 31 |(T2.1)..(.(B$).1| 00000CC0: 30 30 AB 42 44 28 54 32 29 AC 31 30 30 29 AD 31 |00.BD(T2).100).1| 00000CD0: 30 30 00 F4 14 96 05 8B 20 C8 28 44 42 24 2C 31 |00...... .(DB$,1| 00000CE0: 29 B2 22 44 22 20 A7 20 54 44 B2 54 44 AA 42 44 |)."D" . TD.TD.BD| 00000CF0: 28 54 32 29 00 16 15 A0 05 8B 20 C8 28 44 42 24 |(T2)...... .(DB$| 00000D00: 2C 31 29 B2 22 43 22 20 A7 20 54 43 B2 54 43 AA |,1)."C" . TC.TC.| 00000D10: 42 44 28 54 32 29 00 22 15 AA 05 54 32 B2 54 32 |BD(T2)."...T2.T2| 00000D20: AA 31 00 31 15 B4 05 4A 47 28 54 32 29 B2 34 36 |.1.1...JG(T2).46| 00000D30: 37 00 3F 15 BE 05 44 41 28 54 32 29 B2 44 54 00 |7.?...DA(T2).DT.| 00000D40: 4E 15 C8 05 53 54 24 28 54 32 29 B2 53 24 00 5D |N...ST$(T2).S$.]| 00000D50: 15 D2 05 4F 24 28 54 32 29 B2 4F 4D 24 00 6E 15 |...O$(T2).OM$.n.| 00000D60: DC 05 44 43 24 28 54 32 29 B2 20 44 42 24 00 90 |..DC$(T2). DB$..| 00000D70: 15 E6 05 8B 20 C8 28 44 42 24 2C 31 29 B2 22 44 |.... .(DB$,1)."D| 00000D80: 22 20 A7 20 54 44 B2 54 44 AA 42 44 28 54 32 29 |" . TD.TD.BD(T2)| 00000D90: 00 B2 15 F0 05 8B 20 C8 28 44 42 24 2C 31 29 B2 |...... .(DB$,1).| 00000DA0: 22 43 22 20 A7 20 54 43 B2 54 43 AA 42 44 28 54 |"C" . TC.TC.BD(T| 00000DB0: 32 29 00 B8 15 FA 05 8E 00 F0 15 04 06 99 22 93 |2)............".| 00000DC0: 22 3A 99 3A 99 3A 99 3A 99 22 4C 45 5A 45 4E 20 |":.:.:.:."LEZEN | 00000DD0: 4A 4F 55 52 4E 41 41 4C 50 4F 53 54 45 4E 20 56 |JOURNAALPOSTEN V| 00000DE0: 41 4E 20 44 49 53 4B 20 20 20 20 20 20 20 20 22 |AN DISK "| 00000DF0: 00 0F 16 0E 06 99 3A 9F 20 31 2C 38 2C 32 2C 22 |......:. 1,8,2,"| 00000E00: 30 3A 4A 4F 55 52 4E 41 41 4C 2C 53 2C 52 22 00 |0:JOURNAAL,S,R".| 00000E10: 38 16 18 06 8F 20 49 4E 4C 45 5A 45 4E 20 56 41 |8.... INLEZEN VA| 00000E20: 4E 20 42 45 53 54 41 4E 44 20 4A 4F 55 52 4E 41 |N BESTAND JOURNA| 00000E30: 41 4C 50 4F 53 54 45 4E 00 46 16 22 06 81 20 49 |ALPOSTEN.F.".. I| 00000E40: B2 31 A4 38 30 30 00 4F 16 2C 06 99 20 49 3B 00 |.1.800.O.,.. I;.| 00000E50: 5A 16 36 06 84 31 2C 20 54 32 00 68 16 40 06 84 |Z.6..1, T2.h.@..| 00000E60: 31 2C 20 4A 47 28 49 29 00 78 16 4A 06 99 20 22 |1, JG(I).x.J.. "| 00000E70: 20 22 3B 4A 47 28 49 29 00 8C 16 54 06 8B 20 4A | ";JG(I)...T.. J| 00000E80: 47 28 49 29 B2 30 20 A7 31 37 30 30 00 9A 16 5E |G(I).0 .1700...^| 00000E90: 06 84 31 2C 20 44 41 28 49 29 00 A9 16 68 06 84 |..1, DA(I)...h..| 00000EA0: 31 2C 20 53 54 24 28 49 29 00 B7 16 72 06 84 31 |1, ST$(I)...r..1| 00000EB0: 2C 20 4F 24 28 49 29 00 C6 16 7C 06 84 31 2C 20 |, O$(I)...|..1, | 00000EC0: 44 43 24 28 49 29 00 D4 16 86 06 84 31 2C 20 42 |DC$(I)......1, B| 00000ED0: 44 28 49 29 00 DC 16 90 06 82 20 49 00 F2 16 9A |D(I)...... I....| 00000EE0: 06 99 20 22 42 45 53 54 41 4E 44 20 3D 20 56 4F |.. "BESTAND = VO| 00000EF0: 4C 22 00 FD 16 A4 06 54 32 B2 49 AB 31 00 2C 17 |L".....T2.I.1.,.| 00000F00: AE 06 99 20 22 54 4F 54 41 41 4C 20 49 4E 47 45 |... "TOTAAL INGE| 00000F10: 4C 45 5A 45 4E 20 4A 4F 55 52 4E 41 41 4C 50 4F |LEZEN JOURNAALPO| 00000F20: 53 54 45 4E 20 3D 20 22 3B 3B 54 32 00 3C 17 B8 |STEN = ";;T2.<..| 00000F30: 06 85 20 22 4F 4B 45 22 3B 41 43 24 00 4A 17 C2 |.. "OKE";AC$.J..| 00000F40: 06 A0 20 31 3A 99 20 22 93 22 00 50 17 CC 06 8E |.. 1:. ".".P....| 00000F50: 00 64 17 D6 06 85 22 56 4F 4C 47 4E 55 4D 4D 45 |.d...."VOLGNUMME| 00000F60: 52 22 3B 4B 00 7A 17 E0 06 99 22 4F 55 44 20 47 |R";K.z...."OUD G| 00000F70: 42 4E 52 22 3B 4A 47 28 4B 29 00 8D 17 EA 06 85 |BNR";JG(K)......| 00000F80: 22 4E 49 45 55 57 22 3B 4A 47 28 4B 29 00 A9 17 |"NIEUW";JG(K)...| 00000F90: F4 06 99 22 4F 55 44 20 53 54 55 4B 4E 52 20 3D |..."OUD STUKNR =| 00000FA0: 20 22 3B 53 54 24 28 4B 29 00 BD 17 FE 06 85 22 | ";ST$(K)......"| 00000FB0: 4E 49 45 55 57 22 3B 53 54 24 28 4B 29 00 D8 17 |NIEUW";ST$(K)...| 00000FC0: 08 07 99 22 4F 55 44 45 20 44 41 54 55 4D 20 3D |..."OUDE DATUM =| 00000FD0: 20 22 3B 44 41 28 4B 29 00 EB 17 12 07 85 22 4E | ";DA(K)......"N| 00000FE0: 49 45 55 57 22 3B 44 41 28 4B 29 00 08 18 1C 07 |IEUW";DA(K).....| 00000FF0: 99 22 4F 55 44 45 20 4F 4D 53 43 48 52 2E 20 3D |."OUDE OMSCHR. =| 00001000: 20 22 3B 4F 24 28 4B 29 00 1B 18 26 07 85 22 4E | ";O$(K)...&.."N| 00001010: 49 45 55 57 22 3B 4F 24 28 4B 29 00 34 18 30 07 |IEUW";O$(K).4.0.| 00001020: 99 22 4F 55 44 20 44 2F 43 20 3D 20 22 3B 44 43 |."OUD D/C = ";DC| 00001030: 24 28 4B 29 00 48 18 3A 07 85 22 4E 49 45 55 57 |$(K).H.:.."NIEUW| 00001040: 22 3B 44 43 24 28 4B 29 00 63 18 44 07 99 22 4F |";DC$(K).c.D.."O| 00001050: 55 44 20 42 45 44 52 41 47 20 3D 20 22 3B 42 44 |UD BEDRAG = ";BD| 00001060: 28 4B 29 00 76 18 4E 07 85 22 4E 49 45 55 57 22 |(K).v.N.."NIEUW"| 00001070: 3B 42 44 28 4B 29 00 7C 18 58 07 8E 00 00 00 00 |;BD(K).|.X......|
..A.... GB(500),O$(800),DA(800),ST$(800)
,DC$(800),BD(800),JG(800).A....940:. INL
EZEN GROOTBOEKNRS......1540: . INLEZEN J
OURNAALPOSTEN...(.. 3,4...2..3,G(14)"INB
RENGEN JOURNAALPOSTEN"G(15).H.<..3,G(10)
...F..3,"REK.NR DATUM STUKNR OMSCHR
D/C BEDRAG TEG.REK BTW"...P..".
".9.Z...13)"JOURNAALPOSTEN ":..A.D.."
GBNR DATUM STUKNR OMSCHRIJVING"...N.."
D/C BEDRAG TEGENREK BTW "...X.."-
--------------------------------------".
V...." ":.:....... "GB
.NR.(999=STOP)";NR...... NR.999 .620:. J
OURNAAL > DISK.1. .. NR.0 . .1750: .13
0.L....480: . CONTROLE GB NR.E.... I.0 .
T1.T1.1:.130.~...."..";:.".";: . NR:...
.H.DT.0...R.. "
.":. "DATUM ";DT.W...."..";:.".";:. .
5);DT:......S$."?"...... "
.":. "STUKNR. ";S$.*...."..";:.".";:.
.13);S$:..6...OM$."?".B.... "
.":. "OMSCHR. ";OM$...... ".
"...".."..";:."
.";:. .20);OM$:....,.DB$."?".V.6.. "
.":. "D/C ";DB$...@..".";:.".";:.
.04); DB$...J.B$."0".4.T.. "
.":. "BEDRAG ";B$.Q.^
..".";:.".";:. .07);E(B$).\.H.T$."0"...R
.. " .":. "TEG.REK
";T$...|..550:. KONTROLE GBNR.C....".";
:.".";:. .18);E(T$).O...BT$." "...... "
.":. "BTW(J/ )";BT$.....
.".";:.".";:. .30);BT$.5....1100:. TELLE
N EN OPBERGEN.<....3.Y.B.T1.T1.1:. T1.5
. .130.F.L.T1.0:.80.L.V...Z.... I.1.5
00...... NR.GB(I) . .. .... GB(I).0 .520
...... I.V...."..";:.".";: . NR;:." ONBE
KEND REK.NR":......I.0.........&.. I.1.5
00...0.. E(T$) .GB(I) . ....:.. GB(I).0
.590.$.D.. I.1.N.T$."000".9.X.I.0.?.B...
W.L..".":.:.:.:."WEGSCHRIJVEN JOURNAALPO
STEN OP DISK "...V..:. 1,8,2,"@0:JOURNA
AL,S,W"...... WEGSCHRIJVEN NAAR JOURNAAL
POSTEN.L.... I.1.800...... JG(I).0 .770.
.....1, I...... I......1, JG(I)......1,
DA(I)...F..1, ST$(I).*.P..1, O$(I).9.Z..
1, DC$(I).G....1, BD(I).O.... I.E.... "B
ESTAND = VOL".S....1, JG(I)...... "TOTAA
L WEGGESCHREVEN JOURNAALPOSTEN = ";I.1..
... 1:. ".".X. .."NOGMAALS SAVE OP DISK
";:. AC$...*.. AC$."J" .630...4.."TOTAAL
DEBET ";TD...>..3,"TOTAAL DEBET ";TD.
8.H.."TOTAAL CREDIT ";TC.S.R..3,"TOTAAL
CREDIT ";TC.A.\.VS. TD.TC.Z.F.."VERSCHIL
";VS...P..3,"VERSCHIL ";VS...
Z.. .(TD)..(TC) . . "OKE":......."ER IS
EEN VERSCHIL!!! CONTROLEREN"......3,"ER
IS EEN VERSCHIL!!! CONTROLEREN"..... 3..
.....9....".":.:.:.:."INLEZEN GROOTBOEK
".Y....:. 1,8,2,"0:GROOTBOEK,S,R".G....
I.1.500.U.J..1, GB(I)...T.. GB(I).0 .106
0......1, F1$. ....1, F2......1, F3.....
.1, F4.A....1, F5.M....1, F6$.U.... I...
$. 1...... "TOTAAL INGELEZEN GB NRS =";
I.1...8.."OKE";AC$...B...$.L.T2.T2.1.2.V
.JG(T2).NR.=.`..3,NR;.K.J.DA(T2).DT._.T.
.3,G(16)"07"DT;.N.~.ST$(T2).S$......3,G(
16)"14"S$;.....O$(T2).OM$......3,G(16)"2
1"OM$;.....DC$(T2). DB$.L....3,G(16)"37"
DB$;.....BD(T2).E(B$)...D..3,G(16)"42"B$
;...N.. H(DB$,1)."D" . TD.TD.BD(T2).5.X.
. H(DB$,1)."C" . TC.TC.BD(T2).G.... E(T$
).0 . .._...NR.E(T$):T$."0000":.S....3,G
(16)"54"NR;......3,G(16)"62"BT$...... BT
$."J" .1330...... H(DB$,1)."D" . DB$."C"
:.1100...... H(DB$,1)."C" . DB$."D":.110
0...(.....2.T2.T2.1...<.JG(T2).NR...F.DA
(T2).DT...P.ST$(T2).S$.-.Z.O$(T2).OM$.P.
D.. H(DB$,1)."D" . DB$."C":.1400.S.N.. H
(DB$,1)."C" . DB$."D":.1400...X.DC$(T2).
DB$.....BD(T2)..(E(B$).10000.118..5).10
0.R...BD(T2.1)..(E(B$).100.BD(T2).100).1
00...... H(DB$,1)."D" . TD.TD.BD(T2)...
.. H(DB$,1)."C" . TC.TC.BD(T2)."...T2.T2
.1.1...JG(T2).467.?...DA(T2).DT.N.H.ST$(
T2).S$.].R.O$(T2).OM$.N...DC$(T2). DB$..
.... H(DB$,1)."D" . TD.TD.BD(T2)...... H
(DB$,1)."C" . TC.TC.BD(T2)............".
":.:.:.:."LEZEN JOURNAALPOSTEN VAN DISK
"......:. 1,8,2,"0:JOURNAAL,S,R".
8.... INLEZEN VAN BESTAND JOURNAALPOSTEN
.F.".. I.1.800.O.,.. I;.Z.6..1, T2.H.@..
1, JG(I).X.J.. " ";JG(I)...T.. JG(I).0 .
1700...^..1, DA(I)...H..1, ST$(I)...R..1
, O$(I).F.|..1, DC$(I).T....1, BD(I)....
.. I...... "BESTAND = VOL".....T2.I.1.,.
... "TOTAAL INGELEZEN JOURNAALPOSTEN = "
;;T2.<.... "OKE";AC$.J.B. 1:. ".".P.L..
.D.V.."VOLGNUMMER";K.Z...."OUD GBNR";JG(
K)......"NIEUW";JG(K)......"OUD STUKNR =
";ST$(K)......"NIEUW";ST$(K).X...."OUDE
DATUM = ";DA(K)......"NIEUW";DA(K).....
."OUDE OMSCHR. = ";O$(K)...&.."NIEUW";O$
(K).4.0.."OUD D/C = ";DC$(K).H.:.."NIEUW
";DC$(K).C.D.."OUD BEDRAG = ";BD(K).V.N.
."NIEUW";BD(K).|.X......
> CLICK IMAGE PREVIEW FOR FULL MODAL