LIJST PRG.P
FILE INFORMATION
FILENAME(S): LIJST PRG.P
FILE TYPE(S): SEQ
FILE SIZE: 3.7K
FIRST SEEN: 2025-11-30 21:27:45
APPEARS ON: 2 disk(s)
FILE HASH
cd09dcd0b4d61cbd9a15a2859e81196b2bbdba2061c5101f303fcad35c93d1d2
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| S C N SCHIJF | LIJST PRG.P | SEQ | DuncanTwain | 23 | 12 | DOWNLOAD FILE |
| S C N SCHIJF | LIJST PRG.P | SEQ | DuncanTwain | 23 | 12 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 53 42 31 32 1C 5A 00 8F 20 2A 2A 2A 20 49 4E 49 |SB12.Z.. *** INI|
00000010: 54 49 41 4C 49 53 41 54 49 45 20 22 53 59 53 54 |TIALISATIE "SYST|
00000020: 45 45 4D 22 2D 56 41 52 49 41 42 45 4C 45 4E 20 |EEM"-VARIABELEN |
00000030: 2A 2A 2A 00 66 1C 64 00 50 4C B2 37 32 3A 54 4D |***.f.d.PL.72:TM|
00000040: B2 31 3A 48 4C B2 34 3A 48 4D B2 30 3A 46 4D B2 |.1:HL.4:HM.0:FM.|
00000050: 30 3A 46 4C B2 31 3A 42 4D B2 31 3A 21 50 22 44 |0:FL.1:BM.1:!P"D|
00000060: 41 54 55 4D 2E 53 22 00 89 1C 6E 00 21 52 22 30 |ATUM.S"...n.!R"0|
00000070: 31 4A 41 4E 38 37 22 2C 4E 3A 21 50 22 4D 41 41 |1JAN87",N:!P"MAA|
00000080: 4E 44 4E 41 4D 45 4E 2E 53 22 00 AB 1C 78 00 21 |NDNAMEN.S"...x.!|
00000090: 35 31 3A 21 31 38 30 3A 21 50 22 50 52 49 4E 54 |51:!180:!P"PRINT|
000000A0: 45 52 20 44 45 46 41 55 4C 54 53 22 00 DB 1C 7D |ER DEFAULTS"...}|
000000B0: 00 8F 20 2A 2A 2A 20 49 4E 49 54 49 41 4C 49 53 |.. *** INITIALIS|
000000C0: 41 54 49 45 20 41 4C 4C 45 52 4C 45 49 20 56 41 |ATIE ALLERLEI VA|
000000D0: 52 49 41 42 45 4C 45 4E 20 2A 2A 2A 00 FF 1C 82 |RIABELEN ***....|
000000E0: 00 53 50 24 B2 53 50 24 AA 22 20 20 20 20 20 22 |.SP$.SP$." "|
000000F0: 3A 21 39 C3 28 53 50 24 29 B3 36 38 A7 31 33 30 |:!9.(SP$).68.130|
00000100: 00 24 1D 8C 00 55 4C 24 B2 55 4C 24 AA 22 3D 2D |.$...UL$.UL$."=-|
00000110: 3D 2D 3D 2D 22 3A 21 39 C3 28 55 4C 24 29 B3 36 |=-=-":!9.(UL$).6|
00000120: 38 A7 31 34 30 00 93 1D 96 00 21 15 40 30 40 31 |8.140.....!.@0@1|
00000130: 2C 31 22 D3 45 4C 45 43 54 45 52 45 4E 20 56 41 |,1".ELECTEREN VA|
00000140: 4E 41 46 20 53 4C 45 55 54 45 4C 4C 49 4A 53 54 |NAF SLEUTELLIJST|
00000150: 20 28 CA 2F CE 29 20 CE 22 3A 21 3A 26 31 40 33 | (./.) .":!:&1@3|
00000160: 37 2C 31 3B 53 4C 24 3A 53 4C B2 B5 28 D4 28 22 |7,1;SL$:SL..(.("|
00000170: 20 4E CE 4A CA 22 2C 53 4C 24 29 AD 32 29 AB 31 | N.J.",SL$).2).1|
00000180: 3A 21 39 53 4C B2 AB 31 A7 31 39 30 3A D5 3A 8D |:!9SL..1.190:.:.|
00000190: 31 30 37 30 00 A2 1D A0 00 21 39 53 4C B2 30 A7 |1070.....!9SL.0.|
000001A0: 31 38 30 00 E2 1D AA 00 21 15 40 30 40 31 2C 31 |180.....!.@0@1,1|
000001B0: 22 D3 4C 45 55 54 45 4C 4C 49 4A 53 54 20 20 20 |".LEUTELLIJST |
000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 21 | ":!|
000001D0: 3A 26 31 36 40 31 34 2C 31 3B 53 46 24 3A 8D 31 |:&16@14,1;SF$:.1|
000001E0: 30 37 30 00 5E 1E B4 00 21 15 40 30 40 31 2C 31 |070.^...!.@0@1,1|
000001F0: 22 D5 49 54 56 4F 45 52 20 4F 50 20 50 52 49 4E |".ITVOER OP PRIN|
00000200: 54 45 52 20 4F 46 20 42 45 45 4C 44 53 43 48 45 |TER OF BEELDSCHE|
00000210: 52 4D 20 28 D0 2F C2 29 20 C2 22 3A 21 3A 26 31 |RM (./.) .":!:&1|
00000220: 40 34 31 2C 31 3B 50 42 24 3A 50 42 B2 B5 28 D4 |@41,1;PB$:PB..(.|
00000230: 28 22 20 42 C2 50 D0 22 2C 50 42 24 29 AD 32 29 |(" B.P.",PB$).2)|
00000240: AB 31 3A 21 39 50 42 B2 AB 31 A7 31 38 30 3A D5 |.1:!9PB..1.180:.|
00000250: 3A 8D 31 30 37 30 3A 21 39 50 42 A7 32 30 30 00 |:.1070:!9PB.200.|
00000260: C9 1E BE 00 21 15 40 30 40 31 2C 31 22 D0 41 55 |....!.@0@1,1".AU|
00000270: 5A 45 20 42 49 4A 20 56 4F 4C 20 53 43 48 45 52 |ZE BIJ VOL SCHER|
00000280: 4D 20 28 CA 2F CE 29 20 CA 22 3A 21 3A 26 31 40 |M (./.) .":!:&1@|
00000290: 32 38 2C 31 3B 46 53 24 3A 46 53 B2 B5 28 D4 28 |28,1;FS$:FS..(.(|
000002A0: 22 20 4E CE 4A CA 22 2C 46 53 24 29 AD 32 29 AB |" N.J.",FS$).2).|
000002B0: 31 3A 21 39 46 53 B2 AB 31 A7 31 39 30 3A D5 3A |1:!9FS..1.190:.:|
000002C0: 8D 31 30 37 30 3A 89 32 35 30 00 37 1F C8 00 21 |.1070:.250.7...!|
000002D0: 15 40 30 40 31 2C 31 22 D6 45 4C 4C 45 4E 20 4F |.@0@1,1".ELLEN O|
000002E0: 46 20 CB 45 54 54 49 4E 47 46 4F 52 4D 55 4C 49 |F .ETTINGFORMULI|
000002F0: 45 52 45 4E 20 28 D6 2F CB 29 20 CB 22 3A 21 3A |EREN (./.) .":!:|
00000300: 26 31 40 33 36 2C 31 3B 56 4B 24 3A 56 4B B2 B5 |&1@36,1;VK$:VK..|
00000310: 28 D4 28 22 20 56 D6 4B CB 22 2C 56 4B 24 29 AD |(.(" V.K.",VK$).|
00000320: 32 29 AB 31 3A 21 39 56 4B B2 AB 31 A7 32 30 30 |2).1:!9VK..1.200|
00000330: 3A D5 3A 8D 31 30 37 30 00 52 1F D2 00 21 39 56 |:.:.1070.R...!9V|
00000340: 4B B2 30 A7 50 4C B2 35 37 3A 54 4D B2 30 3A 42 |K.0.PL.57:TM.0:B|
00000350: 4D B2 30 00 9A 1F DC 00 21 32 50 4C 3A 21 33 50 |M.0.....!2PL:!3P|
00000360: 4C 3A 48 52 B2 31 AA 54 4D 3A 54 52 B2 48 52 AA |L:HR.1.TM:TR.HR.|
00000370: 48 4C AA 48 4D 3A 46 52 B2 50 4C AB 42 4D AB 46 |HL.HM:FR.PL.BM.F|
00000380: 4C AA 31 3A 54 4C B2 50 4C AB 54 4D AB 48 4C AB |L.1:TL.PL.TM.HL.|
00000390: 48 4D AB 46 4D AB 46 4C AB 42 4D 00 F6 1F E6 00 |HM.FM.FL.BM.....|
000003A0: 21 15 40 30 40 31 2C 31 22 C2 45 53 54 41 4E 44 |!.@0@1,1".ESTAND|
000003B0: 53 20 44 41 54 55 4D 20 28 44 41 54 55 4D 20 4F |S DATUM (DATUM O|
000003C0: 50 20 41 46 44 52 55 4B 29 22 44 44 24 40 30 3A |P AFDRUK)"DD$@0:|
000003D0: 21 3A 26 37 40 33 34 2C 31 3B 42 44 24 3A 21 52 |!:&7@34,1;BD$:!R|
000003E0: 42 44 24 2C 4E 3A 21 39 4E B2 30 A7 32 33 30 3A |BD$,N:!9N.0.230:|
000003F0: D5 3A 8D 31 30 37 30 00 27 20 F0 00 42 44 24 B2 |.:.1070.' ..BD$.|
00000400: CA 28 C4 28 C5 28 42 44 24 29 29 2C 32 29 AA 22 |.(.(.(BD$)),2)."|
00000410: 20 22 AA 4D 4E 24 28 4E 29 AA 22 20 31 39 22 AA | ".MN$(N)." 19".|
00000420: C9 28 42 44 24 2C 32 29 00 4B 20 F5 00 8F 20 2A |.(BD$,2).K ... *|
00000430: 2A 2A 20 53 54 41 52 54 20 56 41 4E 20 46 49 4C |** START VAN FIL|
00000440: 45 2D 41 43 43 45 53 53 20 2A 2A 2A 00 98 20 FA |E-ACCESS ***.. .|
00000450: 00 4D 58 B2 31 35 3A 86 50 24 28 4D 58 29 2C 53 |.MX.15:.P$(MX),S|
00000460: 4E 24 28 4D 58 AA 31 29 2C 53 45 28 4D 58 29 2C |N$(MX.1),SE(MX),|
00000470: 53 4F 28 4D 58 29 2C 45 45 28 4D 58 29 2C 45 4F |SO(MX),EE(MX),EO|
00000480: 28 4D 58 29 2C 43 24 28 4D 58 29 2C 57 45 28 4D |(MX),C$(MX),WE(M|
00000490: 58 29 2C 57 4F 28 4D 58 29 00 B3 20 04 01 21 39 |X),WO(MX).. ..!9|
000004A0: 53 4C B2 30 A7 21 02 46 49 52 53 54 3A 21 47 89 |SL.0.!.FIRST:!G.|
000004B0: 31 30 33 30 00 CC 20 0E 01 21 39 53 4C A7 21 02 |1030.. ..!9SL.!.|
000004C0: 21 1D 53 46 24 3A 21 48 89 31 30 33 30 00 F7 20 |!.SF$:!H.1030.. |
000004D0: 13 01 8F 20 2A 2A 2A 20 53 54 41 52 54 20 56 41 |... *** START VA|
000004E0: 4E 20 48 45 52 48 41 4C 45 4E 44 20 47 45 44 45 |N HERHALEND GEDE|
000004F0: 45 4C 54 45 20 2A 2A 2A 00 24 21 18 01 8F 20 2B |ELTE ***.$!... +|
00000500: 2B 2B 20 48 45 54 20 47 45 57 45 4E 53 54 45 20 |++ HET GEWENSTE |
00000510: 52 45 43 4F 52 44 20 53 54 41 41 54 20 56 4F 4F |RECORD STAAT VOO|
00000520: 52 20 2B 2B 2B 00 80 21 22 01 8F 20 2A 2A 2A 20 |R +++..!".. *** |
00000530: 49 4E 20 42 49 4A 56 4F 4F 52 42 45 45 4C 44 20 |IN BIJVOORBEELD |
00000540: 44 45 20 56 41 52 49 41 42 45 4C 45 20 27 41 49 |DE VARIABELE 'AI|
00000550: 27 20 48 45 54 20 41 41 4E 54 41 4C 20 52 45 47 |' HET AANTAL REG|
00000560: 45 4C 53 20 57 41 54 20 41 46 47 45 44 52 55 4B |ELS WAT AFGEDRUK|
00000570: 54 20 4D 4F 45 54 20 57 4F 52 44 45 4E 20 2A 2A |T MOET WORDEN **|
00000580: 2A 00 C5 21 2C 01 8F 20 2A 2A 2A 20 49 4E 43 4C |*..!,.. *** INCL|
00000590: 55 53 49 45 46 20 45 45 4E 20 45 56 45 4E 54 55 |USIEF EEN EVENTU|
000005A0: 45 4C 45 20 4F 4E 44 45 52 53 54 52 45 50 49 4E |ELE ONDERSTREPIN|
000005B0: 47 20 4F 4E 44 45 52 20 45 4C 4B 20 52 45 43 4F |G ONDER ELK RECO|
000005C0: 52 44 20 2A 2A 2A 00 E2 21 D0 02 21 39 28 4C AA |RD ***..!..!9(L.|
000005D0: 41 49 29 B2 B1 32 32 A7 4C B2 30 3A 21 39 46 53 |AI)..22.L.0:!9FS|
000005E0: A7 21 2A 00 2F 22 D5 02 8F 20 2A 2A 2A 20 44 52 |.!*./"... *** DR|
000005F0: 55 4B 20 53 43 48 45 52 4D 2D 48 45 41 44 45 52 |UK SCHERM-HEADER|
00000600: 20 41 46 20 57 41 4E 4E 45 45 52 20 53 43 48 45 | AF WANNEER SCHE|
00000610: 52 4D 2D 52 45 47 45 4C 2D 54 45 4C 4C 45 52 20 |RM-REGEL-TELLER |
00000620: 4F 50 20 4E 55 4C 20 53 54 41 41 54 20 2A 2A 2A |OP NUL STAAT ***|
00000630: 00 6E 22 DA 02 21 39 4C B2 30 A7 21 15 C7 28 31 |.n"..!9L.0.!..(1|
00000640: 34 37 29 40 30 40 31 22 C8 45 41 44 45 52 20 56 |47)@0@1".EADER V|
00000650: 4F 4F 52 20 53 43 48 45 52 4D 22 40 31 3B C8 28 |OOR SCHERM"@1;.(|
00000660: 55 4C 24 AA 55 4C 24 2C 35 37 29 3A 4C B2 32 00 |UL$.UL$,57):L.2.|
00000670: 9D 22 DF 02 8F 20 2A 2A 2A 20 45 56 45 4E 54 55 |."... *** EVENTU|
00000680: 45 45 4C 20 44 45 20 48 45 41 44 45 52 20 4F 4E |EEL DE HEADER ON|
00000690: 44 45 52 53 54 52 45 50 45 4E 20 2A 2A 2A 00 E9 |DERSTREPEN ***..|
000006A0: 22 E0 02 8F 20 2A 2A 2A 20 5A 45 54 20 56 41 52 |"... *** ZET VAR|
000006B0: 49 41 42 45 4C 45 20 27 4C 27 20 4F 50 20 41 41 |IABELE 'L' OP AA|
000006C0: 4E 54 41 4C 20 52 45 47 45 4C 53 20 44 41 54 20 |NTAL REGELS DAT |
000006D0: 48 45 41 44 45 52 20 49 4E 20 42 45 53 4C 41 47 |HEADER IN BESLAG|
000006E0: 20 4E 45 45 4D 54 20 2A 2A 2A 00 F8 22 E4 02 21 | NEEMT ***.."..!|
000006F0: 39 50 42 B2 30 A7 38 30 30 00 40 23 E9 02 8F 20 |9PB.0.800.@#... |
00000700: 2A 2A 2A 20 49 4E 44 49 45 4E 20 52 45 47 45 4C |*** INDIEN REGEL|
00000710: 53 20 45 52 20 4E 49 45 54 20 4D 45 45 52 20 4F |S ER NIET MEER O|
00000720: 50 50 41 53 53 45 4E 2C 20 44 52 55 4B 20 45 45 |PPASSEN, DRUK EE|
00000730: 52 53 54 20 46 4F 4F 54 45 52 20 41 46 20 2A 2A |RST FOOTER AF **|
00000740: 2A 00 57 23 EE 02 21 39 28 52 54 AA 41 49 29 B1 |*.W#..!9(RT.AI).|
00000750: 54 4C A7 8D 31 30 35 30 00 64 23 F8 02 21 39 52 |TL..1050.d#..!9R|
00000760: 54 A7 38 30 30 00 B3 23 FD 02 8F 20 2A 2A 2A 20 |T.800..#... *** |
00000770: 44 52 55 4B 20 50 52 49 4E 54 45 52 2D 48 45 41 |DRUK PRINTER-HEA|
00000780: 44 45 52 20 41 46 20 57 41 4E 4E 45 45 52 20 50 |DER AF WANNEER P|
00000790: 52 49 4E 54 45 52 2D 52 45 47 45 4C 2D 54 45 4C |RINTER-REGEL-TEL|
000007A0: 4C 45 52 20 4F 50 20 4E 55 4C 20 53 54 41 41 54 |LER OP NUL STAAT|
000007B0: 20 2A 2A 2A 00 D7 23 02 03 21 17 40 31 32 2C 48 | ***..#..!.@12,H|
000007C0: 52 3B 50 42 24 28 35 29 AA 22 C8 45 41 44 45 52 |R;PB$(5).".EADER|
000007D0: 22 AA 50 42 24 28 36 29 00 25 24 07 03 8F 20 2A |".PB$(6).%$... *|
000007E0: 2A 2A 20 4D 41 41 4B 20 45 56 45 4E 54 55 45 45 |** MAAK EVENTUEE|
000007F0: 4C 20 47 45 42 52 55 49 4B 20 56 41 4E 20 44 45 |L GEBRUIK VAN DE|
00000800: 20 50 52 49 4E 54 45 52 20 42 45 53 54 55 52 49 | PRINTER BESTURI|
00000810: 4E 47 53 20 43 4F 44 45 53 20 27 50 42 24 28 58 |NGS CODES 'PB$(X|
00000820: 29 27 20 2A 2A 2A 00 5D 24 0C 03 21 17 40 31 3A |)' ***.]$..!.@1:|
00000830: 21 17 22 D7 59 4B 20 C1 2F D3 20 D4 4F 54 20 C1 |!.".YK ./. .OT .|
00000840: 41 4E 20 D3 54 52 41 41 54 4E 41 41 4D 22 40 34 |AN .TRAATNAAM"@4|
00000850: 31 22 C8 55 49 53 4E 55 4D 4D 45 52 53 22 00 AA |1".UISNUMMERS"..|
00000860: 24 11 03 8F 20 2A 2A 2A 20 4C 45 4E 47 54 45 20 |$... *** LENGTE |
00000870: 50 52 49 4E 54 45 52 2D 48 45 41 44 45 52 20 4F |PRINTER-HEADER O|
00000880: 50 47 45 56 45 4E 20 49 4E 20 45 45 52 53 54 45 |PGEVEN IN EERSTE|
00000890: 20 52 45 47 45 4C 20 50 52 4F 47 52 41 4D 4D 41 | REGEL PROGRAMMA|
000008A0: 20 28 27 48 4C 27 29 20 2A 2A 2A 00 ED 24 12 03 | ('HL') ***..$..|
000008B0: 8F 20 2A 2A 2A 20 44 52 55 4B 20 45 56 54 20 4F |. *** DRUK EVT O|
000008C0: 4E 44 45 52 53 54 52 45 50 49 4E 47 20 41 46 20 |NDERSTREPING AF |
000008D0: 45 4E 20 53 4B 49 50 20 4E 41 41 52 20 31 45 20 |EN SKIP NAAR 1E |
000008E0: 54 45 58 54 2D 52 45 47 45 4C 20 2A 2A 2A 00 1B |TEXT-REGEL ***..|
000008F0: 25 16 03 21 17 C8 28 55 4C 24 AA 55 4C 24 2C 35 |%..!..(UL$.UL$,5|
00000900: 37 29 3A 21 17 40 31 2C 54 52 3B 3A 46 4B 24 B2 |7):!.@1,TR;:FK$.|
00000910: 5B 57 49 4A 4B 4E 55 4D 4D 45 52 5D 00 4A 25 1B |[WIJKNUMMER].J%.|
00000920: 03 8F 20 2A 2A 2A 20 53 4C 41 20 31 45 20 4B 45 |.. *** SLA 1E KE|
00000930: 59 20 56 41 4E 20 48 55 49 44 49 47 45 20 50 41 |Y VAN HUIDIGE PA|
00000940: 47 49 4E 41 20 4F 50 20 2A 2A 2A 00 7A 25 20 03 |GINA OP ***.z% .|
00000950: 8F 20 2A 2A 2A 20 42 45 57 45 52 4B 20 45 56 45 |. *** BEWERK EVE|
00000960: 4E 54 55 45 45 4C 20 4E 4F 47 20 57 41 54 20 47 |NTUEEL NOG WAT G|
00000970: 45 47 45 56 45 4E 53 20 2A 2A 2A 00 C8 25 2A 03 |EGEVENS ***..%*.|
00000980: 8F 20 2A 2A 2A 20 44 52 55 4B 20 47 45 47 45 56 |. *** DRUK GEGEV|
00000990: 45 4E 53 20 41 46 20 4F 50 20 53 43 48 45 52 4D |ENS AF OP SCHERM|
000009A0: 20 45 4E 20 56 45 52 48 4F 4F 47 20 42 49 4A 20 | EN VERHOOG BIJ |
000009B0: 45 4C 4B 45 20 52 45 47 45 4C 20 54 45 4C 4C 45 |ELKE REGEL TELLE|
000009C0: 52 20 27 4C 27 20 2A 2A 2A 00 DF 25 8E 03 21 15 |R 'L' ***..%..!.|
000009D0: 22 47 45 47 45 56 45 4E 53 22 3A 4C B2 4C AA 31 |"GEGEVENS":L.L.1|
000009E0: 00 2F 26 93 03 8F 20 2A 2A 2A 20 44 52 55 4B 20 |./&... *** DRUK |
000009F0: 47 45 47 45 56 45 4E 53 20 41 46 20 4F 50 20 50 |GEGEVENS AF OP P|
00000A00: 52 49 4E 54 45 52 20 45 4E 20 56 45 52 48 4F 4F |RINTER EN VERHOO|
00000A10: 47 20 42 49 4A 20 45 4C 4B 45 20 52 45 47 45 4C |G BIJ ELKE REGEL|
00000A20: 20 54 45 4C 4C 45 52 20 27 52 54 27 20 2A 2A 2A | TELLER 'RT' ***|
00000A30: 00 4D 26 98 03 21 39 50 42 A7 21 17 22 47 45 47 |.M&..!9PB.!."GEG|
00000A40: 45 56 45 4E 53 22 3A 52 54 B2 52 54 AA 31 00 75 |EVENS":RT.RT.1.u|
00000A50: 26 A2 03 8F 20 2A 2A 2A 20 45 56 45 4E 54 55 45 |&... *** EVENTUE|
00000A60: 45 4C 20 4D 45 45 52 44 45 52 45 20 52 45 47 45 |EL MEERDERE REGE|
00000A70: 4C 53 20 2A 2A 2A 00 BA 26 A7 03 8F 20 2A 2A 2A |LS ***..&... ***|
00000A80: 20 44 52 55 4B 20 54 4F 54 20 53 4C 4F 54 20 45 | DRUK TOT SLOT E|
00000A90: 45 4E 20 4F 4E 44 45 52 4C 49 4A 4E 49 4E 47 20 |EN ONDERLIJNING |
00000AA0: 41 46 20 4F 50 20 50 52 49 4E 54 45 4E 20 4F 46 |AF OP PRINTEN OF|
00000AB0: 20 53 43 48 45 52 4D 20 2A 2A 2A 00 F6 26 AC 03 | SCHERM ***..&..|
00000AC0: 21 15 C8 28 55 4C 24 AA 55 4C 24 2C 35 37 29 3A |!..(UL$.UL$,57):|
00000AD0: 4C B2 4C AA 31 3A 21 39 50 42 A7 21 17 C8 28 55 |L.L.1:!9PB.!..(U|
00000AE0: 4C 24 AA 55 4C 24 2C 35 37 29 3A 52 54 B2 52 54 |L$.UL$,57):RT.RT|
00000AF0: AA 31 3A D5 39 39 30 00 33 27 B1 03 8F 20 2A 2A |.1:.990.3'... **|
00000B00: 2A 20 43 4F 4E 54 52 4F 4C 45 45 52 20 4F 46 20 |* CONTROLEER OF |
00000B10: 47 45 42 52 55 49 4B 45 52 20 4F 50 20 53 50 41 |GEBRUIKER OP SPA|
00000B20: 54 49 45 2D 42 41 4C 4B 20 27 48 41 4E 47 54 27 |TIE-BALK 'HANGT'|
00000B30: 20 2A 2A 2A 00 4B 27 B6 03 A1 4B 49 24 3A 21 39 | ***.K'...KI$:!9|
00000B40: 4B 49 24 B3 B1 22 20 22 A7 39 39 30 00 72 27 BB |KI$.." ".990.r'.|
00000B50: 03 8F 20 2A 2A 2A 20 56 52 41 41 47 20 47 45 42 |.. *** VRAAG GEB|
00000B60: 52 55 49 4B 45 52 20 4F 4D 20 41 43 54 49 45 20 |RUIKER OM ACTIE |
00000B70: 2A 2A 2A 00 D8 27 C0 03 E0 31 2C 30 2C 32 34 2C |***..'...1,0,24,|
00000B80: 22 C1 46 42 52 45 4B 45 4E 2C 20 D0 41 47 49 4E |".FBREKEN, .AGIN|
00000B90: 41 20 4F 50 4E 49 45 55 57 20 4F 46 20 D6 45 52 |A OPNIEUW OF .ER|
00000BA0: 44 45 52 20 28 C1 2F D0 2F D6 29 22 3A A1 F9 41 |DER (././.)":..A|
00000BB0: 43 24 3A 41 43 B2 B5 28 D4 28 22 20 41 C1 50 D0 |C$:AC..(.(" A.P.|
00000BC0: 56 D6 22 2C 41 43 24 29 AD 32 29 AB 31 3A 21 39 |V.",AC$).2).1:!9|
00000BD0: 41 43 B2 AB 31 A7 39 36 30 00 FA 27 CA 03 E0 31 |AC..1.960..'...1|
00000BE0: 2C 30 2C 32 34 2C C8 28 53 50 24 2C 34 32 29 3A |,0,24,.(SP$,42):|
00000BF0: 21 39 41 43 B2 30 A7 31 30 33 30 00 22 28 D4 03 |!9AC.0.1030."(..|
00000C00: 4C B2 30 3A 21 39 41 43 B2 31 A7 21 17 40 30 3B |L.0:!9AC.1.!.@0;|
00000C10: 3A 8D 31 30 38 30 3A 52 54 B2 30 3A 21 2A 3A 89 |:.1080:RT.0:!*:.|
00000C20: 32 38 30 00 4A 28 D9 03 8F 20 2A 2A 2A 20 53 45 |280.J(... *** SE|
00000C30: 4C 45 43 54 45 45 52 20 56 4F 4C 47 45 4E 44 45 |LECTEER VOLGENDE|
00000C40: 20 52 45 43 4F 52 44 20 2A 2A 2A 00 52 28 DE 03 | RECORD ***.R(..|
00000C50: 21 02 82 00 79 28 E3 03 8F 20 2A 2A 2A 20 54 45 |!...y(... *** TE|
00000C60: 53 54 20 45 4E 44 20 4F 46 20 46 49 4C 45 20 4F |ST END OF FILE O|
00000C70: 46 20 4C 49 53 54 20 2A 2A 2A 00 93 28 E8 03 21 |F LIST ***..(..!|
00000C80: 39 53 4C B2 30 A7 21 47 3A 8D 31 30 34 30 3A 89 |9SL.0.!G:.1040:.|
00000C90: 31 30 33 30 00 AB 28 F2 03 21 39 53 4C A7 21 48 |1030..(..!9SL.!H|
00000CA0: 3A 8D 31 30 34 30 3A 89 31 30 33 30 00 B4 28 FC |:.1040:.1030..(.|
00000CB0: 03 89 32 38 30 00 DF 28 01 04 8F 20 2A 2A 2A 20 |..280..(... *** |
00000CC0: 45 58 49 54 20 56 41 4E 55 49 54 20 44 49 56 45 |EXIT VANUIT DIVE|
00000CD0: 52 53 45 20 4C 4F 43 41 54 49 45 53 20 2A 2A 2A |RSE LOCATIES ***|
00000CE0: 00 E9 28 06 04 21 15 3A 21 12 00 29 29 0B 04 8F |..(..!.:!..))...|
00000CF0: 20 2A 2A 2A 20 46 4F 4F 54 45 52 2D 41 46 44 52 | *** FOOTER-AFDR|
00000D00: 55 4B 20 52 4F 55 54 49 4E 45 20 45 56 45 4E 54 |UK ROUTINE EVENT|
00000D10: 55 45 45 4C 20 5A 45 4C 46 53 20 56 4F 4F 52 20 |UEEL ZELFS VOOR |
00000D20: 53 43 48 45 52 4D 20 2A 2A 2A 00 35 29 10 04 21 |SCHERM ***.5)..!|
00000D30: 39 46 53 A7 21 2A 00 5E 29 15 04 8F 20 2A 2A 2A |9FS.!*.^)... ***|
00000D40: 20 55 49 54 56 4F 45 52 20 41 4C 4C 45 45 4E 20 | UITVOER ALLEEN |
00000D50: 4E 41 41 52 20 53 43 48 45 52 4D 20 2A 2A 2A 00 |NAAR SCHERM ***.|
00000D60: 6B 29 1A 04 21 39 50 42 B2 30 A7 8E 00 92 29 1F |k)..!9PB.0....).|
00000D70: 04 8F 20 2A 2A 2A 20 55 49 54 56 4F 45 52 20 4F |.. *** UITVOER O|
00000D80: 4F 4B 20 4E 41 41 52 20 50 52 49 4E 54 45 52 20 |OK NAAR PRINTER |
00000D90: 2A 2A 2A 00 EE 29 24 04 50 4E B2 50 4E AA 31 3A |***..)$.PN.PN.1:|
00000DA0: 21 17 40 31 2C 46 52 3B 22 D0 41 47 49 4E 41 20 |!.@1,FR;".AGINA |
00000DB0: 22 AA CA 28 C4 28 50 4E 29 2C 32 29 AA 22 20 28 |"..(.(PN),2)." (|
00000DC0: 22 AA 42 44 24 AA 22 29 22 3A 52 54 B2 30 3A 21 |".BD$.")":RT.0:!|
00000DD0: 39 56 4B B2 30 A7 21 17 24 37 3B 40 30 3B 3A 21 |9VK.0.!.$7;@0;:!|
00000DE0: 2A 3A 8E 3A D5 3A 21 17 40 31 2C 31 3B 3A 8E 00 |*:.:.:!.@1,1;:..|
00000DF0: 0E 2A 2E 04 21 15 40 30 40 31 2C 31 3B C8 28 53 |.*..!.@0@1,1;.(S|
00000E00: 50 24 AA 53 50 24 2C 38 30 29 3B 40 30 3A 8E 00 |P$.SP$,80);@0:..|
00000E10: 4C 2A 33 04 8F 20 2A 2A 2A 20 46 4F 4F 54 45 52 |L*3.. *** FOOTER|
00000E20: 20 4C 45 4E 47 54 45 20 4F 50 47 45 56 45 4E 20 | LENGTE OPGEVEN |
00000E30: 49 4E 20 45 45 52 53 54 45 20 52 45 47 45 4C 20 |IN EERSTE REGEL |
00000E40: 50 52 4F 47 52 41 4D 4D 41 20 2A 2A 2A 00 81 2A |PROGRAMMA ***..*|
00000E50: 34 04 8F 20 2A 2A 2A 20 4F 50 48 41 4C 45 4E 20 |4.. *** OPHALEN |
00000E60: 52 45 43 4F 52 44 20 42 49 4A 20 48 45 52 48 41 |RECORD BIJ HERHA|
00000E70: 4C 45 4E 20 56 41 4E 20 50 41 47 49 4E 41 20 2A |LEN VAN PAGINA *|
00000E80: 2A 2A 00 94 2A 38 04 21 39 53 4C B2 30 A7 21 02 |**..*8.!9SL.0.!.|
00000E90: 46 4B 24 3A 8E 00 A3 2A 42 04 21 58 3A 21 02 21 |FK$:...*B.!X:!.!|
00000EA0: 1D 53 46 24 00 C8 2A 4C 04 21 39 5B 57 49 4A 4B |.SF$..*L.!9[WIJK|
00000EB0: 4E 55 4D 4D 45 52 5D B2 46 4B 24 A7 8E 3A D5 3A |NUMMER].FK$..:.:|
00000EC0: 21 02 82 3A 89 31 31 30 30 00 00 00 |!..:.1100... |
SB12.Z.. *** INITIALISATIE "SYSTEEM"-VAR
IABELEN ***.F.D.PL.72:TM.1:HL.4:HM.0:FM.
0:FL.1:BM.1:!P"DATUM.S"...N.!R"01JAN87",
N:!P"MAANDNAMEN.S"...X.!51:!180:!P"PRINT
ER DEFAULTS"...}.. *** INITIALISATIE ALL
ERLEI VARIABELEN ***.....SP$.SP$." "
:!9C(SP$).68.130.$...UL$.UL$."=-=-=-":!9
C(UL$).68.140.....!.@0@1,1"SELECTEREN VA
NAF SLEUTELLIJST (J/N) N":!:&1@37,1;SL$:
SL..(T(" NNJJ",SL$).2).1:!9SL..1.190:U:.
1070... .!9SL.0.180.....!.@0@1,1"SLEUTEL
LIJST ":!:&16@14,1;SF$:.1
070.^...!.@0@1,1"UITVOER OP PRINTER OF B
EELDSCHERM (P/B) B":!:&1@41,1;PB$:PB..(T
(" BBPP",PB$).2).1:!9PB..1.180:U:.1070:!
9PB.200.I...!.@0@1,1"PAUZE BIJ VOL SCHER
M (J/N) J":!:&1@28,1;FS$:FS..(T(" NNJJ",
FS$).2).1:!9FS..1.190:U:.1070:.250.7.H.!
.@0@1,1"VELLEN OF KETTINGFORMULIEREN (V/
K) K":!:&1@36,1;VK$:VK..(T(" VVKK",VK$).
2).1:!9VK..1.200:U:.1070.R.R.!9VK.0.PL.5
7:TM.0:BM.0.....!2PL:!3PL:HR.1.TM:TR.HR.
HL.HM:FR.PL.BM.FL.1:TL.PL.TM.HL.HM.FM.FL
.BM.....!.@0@1,1"BESTANDS DATUM (DATUM O
P AFDRUK)"DD$@0:!:&7@34,1;BD$:!RBD$,N:!9
N.0.230:U:.1070.' ..BD$.J(D(E(BD$)),2)."
".MN$(N)." 19".I(BD$,2).K ... *** START
VAN FILE-ACCESS ***.. ..MX.15:.P$(MX),S
N$(MX.1),SE(MX),SO(MX),EE(MX),EO(MX),C$(
MX),WE(MX),WO(MX).. ..!9SL.0.!.FIRST:!G.
1030.L ..!9SL.!.!.SF$:!H.1030.. ... ***
START VAN HERHALEND GEDEELTE ***.$!... +
++ HET GEWENSTE RECORD STAAT VOOR +++..!
".. *** IN BIJVOORBEELD DE VARIABELE 'AI
' HET AANTAL REGELS WAT AFGEDRUKT MOET W
ORDEN ***.E!,.. *** INCLUSIEF EEN EVENTU
ELE ONDERSTREPING ONDER ELK RECORD ***..
!P.!9(L.AI)..22.L.0:!9FS.!*./"U.. *** DR
UK SCHERM-HEADER AF WANNEER SCHERM-REGEL
-TELLER OP NUL STAAT ***.N"Z.!9L.0.!.G(1
47)@0@1"HEADER VOOR SCHERM"@1;H(UL$.UL$,
57):L.2.."... *** EVENTUEEL DE HEADER ON
DERSTREPEN ***.."... *** ZET VARIABELE '
L' OP AANTAL REGELS DAT HEADER IN BESLAG
NEEMT ***.."..!9PB.0.800.@#... *** INDI
EN REGELS ER NIET MEER OPPASSEN, DRUK EE
RST FOOTER AF ***.W#..!9(RT.AI).TL..1050
.D#..!9RT.800..#... *** DRUK PRINTER-HEA
DER AF WANNEER PRINTER-REGEL-TELLER OP N
UL STAAT ***.W#..!.@12,HR;PB$(5)."HEADER
".PB$(6).%$... *** MAAK EVENTUEEL GEBRUI
K VAN DE PRINTER BESTURINGS CODES 'PB$(X
)' ***.]$..!.@1:!."WYK A/S TOT AAN STRAA
TNAAM"@41"HUISNUMMERS"..$... *** LENGTE
PRINTER-HEADER OPGEVEN IN EERSTE REGEL P
ROGRAMMA ('HL') ***..$... *** DRUK EVT O
NDERSTREPING AF EN SKIP NAAR 1E TEXT-REG
EL ***..%..!.H(UL$.UL$,57):!.@1,TR;:FK$.
[WIJKNUMMER].J%... *** SLA 1E KEY VAN HU
IDIGE PAGINA OP ***.Z% .. *** BEWERK EVE
NTUEEL NOG WAT GEGEVENS ***.H%*.. *** DR
UK GEGEVENS AF OP SCHERM EN VERHOOG BIJ
ELKE REGEL TELLER 'L' ***..%..!."GEGEVEN
S":L.L.1./&... *** DRUK GEGEVENS AF OP P
RINTER EN VERHOOG BIJ ELKE REGEL TELLER
'RT' ***.M&..!9PB.!."GEGEVENS":RT.RT.1.U
&... *** EVENTUEEL MEERDERE REGELS ***..
&... *** DRUK TOT SLOT EEN ONDERLIJNING
AF OP PRINTEN OF SCHERM ***..&..!.H(UL$.
UL$,57):L.L.1:!9PB.!.H(UL$.UL$,57):RT.RT
.1:U990.3'... *** CONTROLEER OF GEBRUIKE
R OP SPATIE-BALK 'HANGT' ***.K'...KI$:!9
KI$.." ".990.R'... *** VRAAG GEBRUIKER O
M ACTIE ***.X'...1,0,24,"AFBREKEN, PAGIN
A OPNIEUW OF VERDER (A/P/V)":..AC$:AC..(
T(" AAPPVV",AC$).2).1:!9AC..1.960..'J..1
,0,24,H(SP$,42):!9AC.0.1030."(T.L.0:!9AC
.1.!.@0;:.1080:RT.0:!*:.280.J(Y.. *** SE
LECTEER VOLGENDE RECORD ***.R(..!...Y(..
. *** TEST END OF FILE OF LIST ***..(..!
9SL.0.!G:.1040:.1030..(..!9SL.!H:.1040:.
1030..(...280..(... *** EXIT VANUIT DIVE
RSE LOCATIES ***..(..!.:!..))... *** FOO
TER-AFDRUK ROUTINE EVENTUEEL ZELFS VOOR
SCHERM ***.5)..!9FS.!*.^)... *** UITVOER
ALLEEN NAAR SCHERM ***.K)..!9PB.0....).
.. *** UITVOER OOK NAAR PRINTER ***..)$.
PN.PN.1:!.@1,FR;"PAGINA ".J(D(PN),2)." (
".BD$.")":RT.0:!9VK.0.!.$7;@0;:!*:.:U:!.
@1,1;:...*..!.@0@1,1;H(SP$.SP$,80);@0:..
L*3.. *** FOOTER LENGTE OPGEVEN IN EERST
E REGEL PROGRAMMA ***..*4.. *** OPHALEN
RECORD BIJ HERHALEN VAN PAGINA ***..*8.!
9SL.0.!.FK$:...*B.!X:!.!.SF$.H*L.!9[WIJK
NUMMER].FK$..:U:!..:.1100...
> CLICK IMAGE PREVIEW FOR FULL MODAL