DIABASE
FILE INFORMATION
FILENAME(S): DIABASE
FILE TYPE(S): PRG
FILE SIZE: 5.5K
FIRST SEEN: 2025-11-30 21:28:18
APPEARS ON: 1 disk(s)
FILE HASH
caa5f9fe16b7fc3cff4057a652ad250fe72127304da9b5c1971f368e95995763
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RON 64 A | DIABASE | PRG | DuncanTwain | 14 | 15 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 47 08 0A 00 8F 20 12 20 20 2A 2A 2A 20 48 |..G.... . *** H|
00000010: 45 4E 4B 20 53 54 45 45 4E 48 41 52 54 20 2F 20 |ENK STEENHART / |
00000020: 48 45 45 52 48 55 47 4F 57 41 41 52 44 20 2F 20 |HEERHUGOWAARD / |
00000030: 30 32 32 30 37 2D 31 30 38 38 39 20 2F 20 41 55 |02207-10889 / AU|
00000040: 47 2E 20 31 39 38 36 00 7F 08 0B 00 99 C7 28 31 |G. 1986.......(1|
00000050: 34 37 29 3A 97 35 33 32 38 30 2C 31 3A 97 35 33 |47):.53280,1:.53|
00000060: 32 38 31 2C 31 3A 97 36 35 30 2C 32 35 30 3A 97 |281,1:.650,250:.|
00000070: 36 34 36 2C 36 3A 86 53 49 24 28 31 30 30 29 00 |646,6:.SI$(100).|
00000080: A4 08 0C 00 43 24 B2 22 C2 20 20 20 44 20 49 20 |....C$.". D I |
00000090: 41 20 42 20 41 20 53 20 45 20 20 20 C2 22 3A 8D |A B A S E .":.|
000000A0: 35 39 3A 8F 00 E9 08 0D 00 50 50 24 B2 22 20 20 |59:......PP$." |
000000B0: 20 20 20 20 20 20 20 20 20 22 3A 99 50 50 24 22 | ":.PP$"|
000000C0: 11 11 12 31 92 2E 20 4E 49 45 55 57 45 20 49 4E |...1.. NIEUWE IN|
000000D0: 56 4F 45 52 22 3A 99 50 50 24 22 11 12 32 92 2E |VOER":.PP$"..2..|
000000E0: 20 49 4E 4C 45 5A 45 4E 22 00 24 09 0E 00 99 50 | INLEZEN".$....P|
000000F0: 50 24 22 11 12 33 92 2E 20 53 41 56 45 4E 20 44 |P$"..3.. SAVEN D|
00000100: 41 54 41 22 3A 99 50 50 24 22 11 12 34 92 2E 20 |ATA":.PP$"..4.. |
00000110: 56 45 52 41 4E 44 45 52 45 4E 20 50 45 52 20 44 |VERANDEREN PER D|
00000120: 4F 4F 53 22 00 61 09 0F 00 99 50 50 24 22 11 12 |OOS".a....PP$"..|
00000130: 35 92 2E 20 4E 41 4B 49 4A 4B 45 4E 20 50 45 52 |5.. NAKIJKEN PER|
00000140: 20 44 4F 4F 53 22 3A 99 50 50 24 22 11 12 36 92 | DOOS":.PP$"..6.|
00000150: 2E 20 45 54 49 4B 45 54 20 50 45 52 20 44 4F 4F |. ETIKET PER DOO|
00000160: 53 00 A1 09 10 00 99 50 50 24 22 11 12 37 92 2E |S......PP$"..7..|
00000170: 20 41 4C 46 41 42 45 54 2E 20 4C 49 4A 53 54 20 | ALFABET. LIJST |
00000180: 44 49 41 27 53 22 3A 99 50 50 24 22 11 12 38 92 |DIA'S":.PP$"..8.|
00000190: 2E 20 5A 4F 45 4B 20 4F 4E 44 45 52 57 45 52 50 |. ZOEK ONDERWERP|
000001A0: 22 00 E2 09 11 00 99 50 50 24 22 11 12 39 92 2E |"......PP$"..9..|
000001B0: 20 42 49 4A 57 45 52 4B 45 4E 20 44 49 41 42 45 | BIJWERKEN DIABE|
000001C0: 53 54 41 4E 44 22 3A 99 50 50 24 22 11 12 30 92 |STAND":.PP$"..0.|
000001D0: 2E 20 45 49 4E 44 45 20 50 52 4F 47 52 41 4D 4D |. EINDE PROGRAMM|
000001E0: 41 22 00 0D 0A 12 00 97 31 39 38 2C 30 3A 92 31 |A"......198,0:.1|
000001F0: 39 38 2C 31 3A A1 4D 24 3A 4D B2 C5 28 4D 24 29 |98,1:.M$:M..(M$)|
00000200: 3A 8B 4D B3 30 B0 4D B1 39 20 A7 31 38 00 40 0A |:.M.0.M.9 .18.@.|
00000210: 13 00 91 20 4D 20 89 20 31 30 30 2C 32 30 30 2C |... M . 100,200,|
00000220: 33 30 30 2C 34 30 30 2C 35 30 30 2C 36 30 30 2C |300,400,500,600,|
00000230: 37 30 30 2C 38 30 30 2C 37 30 30 3A 89 39 30 30 |700,800,700:.900|
00000240: 00 58 0A 32 00 8F 20 20 20 2A 2A 2A 20 53 55 42 |.X.2.. *** SUB|
00000250: 52 4F 55 54 49 4E 45 53 00 93 0A 33 00 99 22 11 |ROUTINES...3..".|
00000260: 20 20 20 20 20 20 20 20 20 20 20 20 20 12 1C 44 | ..D|
00000270: 52 55 4B 20 20 46 37 2D 54 4F 45 54 53 1F 92 22 |RUK F7-TOETS.."|
00000280: 3A A1 46 54 24 3A 8B 46 54 24 B2 C7 28 31 33 36 |:.FT$:.FT$..(136|
00000290: 29 A7 8E 00 A2 0A 34 00 99 22 91 91 91 22 3A 89 |).....4.."...":.|
000002A0: 35 31 00 D0 0A 35 00 84 31 35 2C 45 4E 2C 45 4D |51...5..15,EN,EM|
000002B0: 24 2C 45 54 2C 45 53 3A 8B 45 4D 24 B3 B1 22 46 |$,ET,ES:.EM$.."F|
000002C0: 49 4C 45 20 4E 4F 54 20 46 4F 55 4E 44 22 A7 8E |ILE NOT FOUND"..|
000002D0: 00 EC 0A 36 00 8B 42 57 B2 31 32 A7 A0 31 3A A0 |...6..BW.12..1:.|
000002E0: 31 35 3A 42 57 B2 30 3A 89 37 31 31 00 0C 0B 37 |15:BW.0:.711...7|
000002F0: 00 4E B2 4E AA 31 3A 8B 4E B2 31 30 30 30 20 A7 |.N.N.1:.N.1000 .|
00000300: 20 A0 31 3A A0 31 35 3A 89 37 31 31 00 22 0B 38 | .1:.15:.711.".8|
00000310: 00 8B 20 54 B2 38 A7 54 B2 31 3A 53 4C B2 53 4C |.. T.8.T.1:SL.SL|
00000320: AA 31 00 5A 0B 39 00 44 4E 24 B2 C8 28 CA 28 C4 |.1.Z.9.DN$..(.(.|
00000330: 28 44 4E 29 2C 32 29 AA 22 20 20 20 22 2C 34 29 |(DN),2)." ",4)|
00000340: 3A 53 4C 24 B2 C8 28 CA 28 C4 28 53 4C 29 2C 32 |:SL$..(.(.(SL),2|
00000350: 29 AA 22 20 20 20 22 2C 32 29 00 8F 0B 3A 00 50 |)." ",2)...:.P|
00000360: 24 28 4E 29 B2 CA 28 59 24 2C 37 29 AA 22 20 20 |$(N)..(Y$,7)." |
00000370: 22 AA 44 4E 24 AA 22 20 20 20 22 AA 53 4C 24 AA |".DN$." ".SL$.|
00000380: 22 20 20 20 22 AA C8 28 59 24 2C 35 29 3A 8E 00 |" "..(Y$,5):..|
00000390: B3 0B 3B 00 99 22 93 22 A3 31 30 29 22 D5 C0 C0 |..;..".".10)"...|
000003A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000003B0: C0 C9 22 00 D0 0B 3C 00 99 20 20 20 A3 31 30 29 |.."...<.. .10)|
000003C0: 43 24 3A 8B 41 4B B2 31 30 A7 41 4B B2 30 3A 8E |C$:.AK.10.AK.0:.|
000003D0: 00 F6 0B 3D 00 99 20 20 20 A3 31 30 29 22 CA C0 |...=.. .10)"..|
000003E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000003F0: C0 C0 CB 22 3A 8E 00 17 0C 41 00 44 24 B2 C9 28 |...":....A.D$..(|
00000400: 22 30 30 30 22 AA 28 CA 28 C4 28 44 25 29 2C 32 |"000".(.(.(D%),2|
00000410: 29 29 2C 33 29 3A 8E 00 3C 0C 64 00 43 24 B2 22 |)),3):..<.d.C$."|
00000420: C2 20 20 20 4E 49 45 55 57 45 20 49 4E 56 4F 45 |. NIEUWE INVOE|
00000430: 52 20 20 20 C2 22 3A 8D 35 39 3A 8F 00 67 0C 65 |R .":.59:..g.e|
00000440: 00 85 22 11 11 11 11 20 20 20 20 20 20 20 20 20 |..".... |
00000450: 20 44 4F 4F 53 20 4E 52 2E 20 20 20 20 20 22 3B | DOOS NR. ";|
00000460: 44 25 3A 8D 20 36 35 00 A1 0C 66 00 44 25 B2 C5 |D%:. 65...f.D%..|
00000470: 28 44 24 29 3A 85 22 11 11 11 20 20 20 20 20 20 |(D$):."... |
00000480: 20 20 20 20 41 41 4E 54 41 4C 20 53 4C 45 44 45 | AANTAL SLEDE|
00000490: 53 22 3B 41 53 24 3A 41 53 25 B2 C5 28 41 53 24 |S";AS$:AS%..(AS$|
000004A0: 29 00 D1 0C 67 00 8B 41 53 25 B3 31 B0 41 53 25 |)...g..AS%.1.AS%|
000004B0: B1 31 30 B0 41 53 25 AD 32 B3 B1 B5 28 41 53 25 |.10.AS%.2...(AS%|
000004C0: AD 32 29 A7 99 22 91 91 91 91 91 22 3A 89 31 30 |.2)..".....":.10|
000004D0: 32 00 12 0D 68 00 41 50 25 B2 41 53 25 AC 37 3A |2...h.AP%.AS%.7:|
000004E0: 81 58 B2 31 A4 41 50 25 3A 53 49 24 28 58 29 B2 |.X.1.AP%:SI$(X).|
000004F0: 22 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |"* |
00000500: 20 20 20 20 20 22 3A 82 58 3A 53 4C B2 31 3A 54 | ":.X:SL.1:T|
00000510: B2 30 00 21 0D 69 00 81 5A B2 30 A4 41 50 25 AB |.0.!.i..Z.0.AP%.|
00000520: 31 00 50 0D 6A 00 53 4E 24 B2 C8 28 22 53 4C 45 |1.P.j.SN$..("SLE|
00000530: 45 20 22 AA C4 28 53 4C 29 AA 22 20 20 20 20 20 |E "..(SL)." |
00000540: 20 20 20 20 20 20 20 20 20 20 20 22 2C 32 30 29 | ",20)|
00000550: 00 7E 0D 6B 00 99 22 93 22 53 4E 24 22 20 5F 5F |.~.k.."."SN$" __|
00000560: 20 3D 20 45 49 4E 44 45 20 49 4E 56 4F 45 52 22 | = EINDE INVOER"|
00000570: 3A 99 22 3D 3D 3D 3D 3D 3D 3D 3D 11 11 22 00 AF |:."========.."..|
00000580: 0D 6C 00 99 22 56 41 4E 20 20 20 20 54 2F 4D 22 |.l.."VAN T/M"|
00000590: 3A 99 22 44 49 41 20 20 20 20 44 49 41 20 20 20 |:."DIA DIA |
000005A0: 2D 4F 4D 53 43 48 52 49 4A 56 49 4E 47 2D 22 00 |-OMSCHRIJVING-".|
000005B0: DB 0D 6D 00 99 22 3D 3D 3D 20 20 20 20 3D 3D 3D |..m.."=== ===|
000005C0: 20 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D | =============|
000005D0: 3D 22 3A 20 97 20 31 39 2C 36 34 00 08 0E 6E 00 |=": . 19,64...n.|
000005E0: 99 3A 85 20 56 31 24 3A 8B C3 28 56 31 24 29 B3 |.:. V1$:..(V1$).|
000005F0: B1 32 B0 56 31 24 B2 C7 28 31 34 31 29 A7 99 22 |.2.V1$..(141).."|
00000600: 91 91 22 3A 89 31 31 30 00 35 0E 6F 00 8B C8 28 |..":.110.5.o...(|
00000610: 56 31 24 2C 31 29 B2 C7 28 39 35 29 A7 53 4C B2 |V1$,1)..(95).SL.|
00000620: 53 4C AA 31 3A 5A B2 5A AA 37 AB 54 3A 54 B2 30 |SL.1:Z.Z.7.T:T.0|
00000630: 3A 89 31 31 36 00 6B 0E 70 00 99 3A 85 22 91 1D |:.116.k.p..:."..|
00000640: 1D 1D 1D 1D 1D 1D 22 3B 56 32 24 3A 8B C3 28 56 |......";V2$:..(V|
00000650: 32 24 29 B3 B1 32 B0 56 32 24 B2 C7 28 31 34 31 |2$)..2.V2$..(141|
00000660: 29 A7 99 22 91 22 3A 89 31 31 32 00 A3 0E 71 00 |)..".":.112...q.|
00000670: 99 3A 85 22 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.:."............|
00000680: 1D 1D 22 3B 48 24 3A 48 24 B2 C8 28 48 24 AA 22 |..";H$:H$..(H$."|
00000690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2C | ",|
000006A0: 31 34 29 00 E3 0E 72 00 5A B2 5A AA 31 3A 54 B2 |14)...r.Z.Z.1:T.|
000006B0: 54 AA 31 3A 53 49 24 28 5A 29 B2 56 31 24 AA 22 |T.1:SI$(Z).V1$."|
000006C0: 2D 22 AA 56 32 24 AA 22 A0 22 AA 48 24 3A 8B 54 |-".V2$.".".H$:.T|
000006D0: B2 37 A7 54 B2 30 3A 53 4C B2 53 4C AA 31 3A 89 |.7.T.0:SL.SL.1:.|
000006E0: 31 31 36 00 EC 0E 73 00 89 31 31 30 00 04 0F 74 |116...s..110...t|
000006F0: 00 5A B2 5A AB 31 3A 82 5A 3A 97 31 39 2C 30 3A |.Z.Z.1:.Z:.19,0:|
00000700: 89 35 30 30 00 29 0F C8 00 43 24 B2 22 C2 20 20 |.500.)...C$.". |
00000710: 20 49 20 4E 20 4C 20 45 20 5A 20 45 20 4E 20 20 | I N L E Z E N |
00000720: 20 C2 22 3A 8D 35 39 3A 8F 00 58 0F C9 00 85 22 | .":.59:..X...."|
00000730: 11 11 11 20 20 20 20 20 20 20 20 20 20 20 20 20 |... |
00000740: 20 44 4F 4F 53 20 4E 52 2E 20 22 3B 44 25 3A 8D | DOOS NR. ";D%:.|
00000750: 20 36 35 3A 4B 4C B2 31 00 9D 0F CA 00 44 25 B2 | 65:KL.1.....D%.|
00000760: C5 28 44 24 29 3A 49 4E 24 B2 22 44 49 41 2D 44 |.(D$):IN$."DIA-D|
00000770: 4F 4F 53 20 22 AA 44 24 3A 9F 31 35 2C 38 2C 31 |OOS ".D$:.15,8,1|
00000780: 35 2C 22 49 30 22 3A 9F 31 2C 38 2C 32 2C 22 30 |5,"I0":.1,8,2,"0|
00000790: 3A 22 AA 49 4E 24 AA 22 2C 53 2C 52 22 00 CD 0F |:".IN$.",S,R"...|
000007A0: CB 00 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C |...15,EN,EM$,ET,|
000007B0: 45 53 3A 8B 45 4D 24 B3 B1 22 46 49 4C 45 20 4E |ES:.EM$.."FILE N|
000007C0: 4F 54 20 46 4F 55 4E 44 22 A7 32 30 35 00 04 10 |OT FOUND".205...|
000007D0: CC 00 99 22 11 22 A3 31 30 29 22 1C 46 49 4C 45 |...".".10)".FILE|
000007E0: 20 4E 49 45 54 20 42 45 53 43 48 49 4B 42 41 41 | NIET BESCHIKBAA|
000007F0: 52 1F 22 3A 81 53 59 B2 31 A4 32 30 30 30 3A 82 |R.":.SY.1.2000:.|
00000800: 53 59 3A 8A 00 28 10 CD 00 84 31 2C 44 25 3A 84 |SY:..(....1,D%:.|
00000810: 31 2C 41 50 25 3A 81 58 B2 31 A4 41 50 25 3A 84 |1,AP%:.X.1.AP%:.|
00000820: 31 2C 53 49 24 28 58 29 00 4E 10 CE 00 99 22 13 |1,SI$(X).N....".|
00000830: 11 11 11 11 11 11 22 A3 31 33 29 22 44 4F 4F 53 |......".13)"DOOS|
00000840: 20 22 44 24 22 20 28 22 58 22 9D 20 29 22 00 60 | "D$" ("X". )".`|
00000850: 10 CF 00 82 58 3A A0 31 3A A0 31 35 3A 89 31 32 |....X:.1:.15:.12|
00000860: 00 97 10 2C 01 43 24 B2 22 C2 20 20 20 20 53 41 |...,.C$.". SA|
00000870: 56 45 4E 20 20 44 41 54 41 20 20 20 20 C2 22 3A |VEN DATA .":|
00000880: 8D 35 39 3A 99 22 11 11 11 22 A3 31 36 29 22 44 |.59:."...".16)"D|
00000890: 4F 4F 53 20 22 44 24 00 D3 10 2D 01 49 4E 24 B2 |OOS "D$...-.IN$.|
000008A0: 22 44 49 41 2D 44 4F 4F 53 20 22 AA 44 24 3A 9F |"DIA-DOOS ".D$:.|
000008B0: 31 35 2C 38 2C 31 35 2C 22 49 30 22 3A 98 31 35 |15,8,15,"I0":.15|
000008C0: 2C 22 52 3A 56 45 52 56 41 4C 4C 45 4E 3D 22 AA |,"R:VERVALLEN=".|
000008D0: 49 4E 24 00 FB 10 2E 01 9F 31 2C 38 2C 32 2C 22 |IN$......1,8,2,"|
000008E0: 30 3A 22 AA 49 4E 24 AA 22 2C 53 2C 57 22 3A 98 |0:".IN$.",S,W":.|
000008F0: 31 2C 44 25 3A 98 31 2C 41 50 25 00 3A 11 30 01 |1,D%:.1,AP%.:.0.|
00000900: 81 58 B2 31 A4 41 50 25 3A 98 31 2C 53 49 24 28 |.X.1.AP%:.1,SI$(|
00000910: 58 29 52 24 3A 99 22 13 11 11 11 11 11 11 22 A3 |X)R$:.".......".|
00000920: 31 33 29 22 44 4F 4F 53 20 22 44 24 22 20 28 22 |13)"DOOS "D$" ("|
00000930: 58 22 9D 20 29 22 3A 82 20 58 00 5C 11 31 01 98 |X". )":. X.\.1..|
00000940: 31 35 2C 22 53 30 3A 56 45 52 56 41 4C 4C 45 4E |15,"S0:VERVALLEN|
00000950: 22 3A A0 31 3A A0 31 35 3A 89 31 32 00 99 11 90 |":.1:.15:.12....|
00000960: 01 43 24 B2 22 C2 20 20 44 41 54 41 20 56 45 52 |.C$.". DATA VER|
00000970: 41 4E 44 45 52 45 4E 20 20 C2 22 3A 8D 35 39 3A |ANDEREN .":.59:|
00000980: 99 22 11 11 11 22 A3 31 36 29 22 44 4F 4F 53 20 |."...".16)"DOOS |
00000990: 22 44 24 22 11 11 22 3A 8F 00 D5 11 91 01 81 5A |"D$"..":.......Z|
000009A0: B2 31 A4 20 41 50 25 3A 99 22 20 20 22 53 49 24 |.1. AP%:." "SI$|
000009B0: 28 5A 29 3B 3A 99 22 20 20 1C 57 49 4A 5A 2E 20 |(Z);:." .WIJZ. |
000009C0: 4A 2F 4E 20 3F 1F 22 3A 97 31 39 38 2C 30 3A 92 |J/N ?.":.198,0:.|
000009D0: 31 39 38 2C 31 00 ED 11 92 01 A1 20 57 59 24 3A |198,1...... WY$:|
000009E0: 8B 57 59 24 B3 B1 22 4A 22 A7 34 30 35 00 F7 11 |.WY$.."J".405...|
000009F0: 93 01 85 20 50 4C 24 00 3F 12 94 01 53 49 24 28 |... PL$.?...SI$(|
00000A00: 5A 29 B2 C8 28 50 4C 24 AA 22 20 20 20 20 20 20 |Z)..(PL$." |
00000A10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00000A20: 2C 32 30 29 3A 50 4C 24 B2 22 2A 20 20 20 20 20 |,20):PL$."* |
00000A30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00000A40: 47 12 95 01 82 20 5A 00 6C 12 F4 01 43 24 B2 22 |G.... Z.l...C$."|
00000A50: C2 4F 56 45 52 5A 49 43 48 54 20 50 45 52 20 53 |.OVERZICHT PER S|
00000A60: 4C 45 44 45 C2 22 3A 8D 35 39 3A 8F 00 A8 12 F5 |LEDE.":.59:.....|
00000A70: 01 54 B2 30 3A 53 4C B2 31 3A 81 42 B2 31 A4 41 |.T.0:SL.1:.B.1.A|
00000A80: 50 25 3A 99 22 13 11 11 11 11 22 A3 31 31 29 22 |P%:.".....".11)"|
00000A90: 44 4F 4F 53 A0 22 44 24 22 20 2F 20 53 4C 45 45 |DOOS."D$" / SLEE|
00000AA0: A0 22 53 4C 22 11 11 22 00 DB 12 F6 01 99 A3 31 |."SL"..".......1|
00000AB0: 31 29 53 49 24 28 42 29 22 11 22 3A 54 B2 54 AA |1)SI$(B)".":T.T.|
00000AC0: 31 3A 8B 54 B2 37 A7 54 B2 30 3A 53 4C B2 53 4C |1:.T.7.T.0:SL.SL|
00000AD0: AA 31 3A 8D 35 31 3A 89 35 30 34 00 EA 12 F7 01 |.1:.51:.504.....|
00000AE0: 42 B2 42 AA 31 3A 89 35 30 32 00 27 13 F8 01 82 |B.B.1:.502.'....|
00000AF0: 42 3A 85 22 11 47 45 47 45 56 45 4E 53 20 57 45 |B:.".GEGEVENS WE|
00000B00: 47 53 43 48 52 49 4A 56 45 4E 20 4A 2F 4E 20 20 |GSCHRIJVEN J/N |
00000B10: 4A 20 9D 9D 9D 9D 22 3B 4A 41 24 3A 8B 4A 41 24 |J ....";JA$:.JA$|
00000B20: B2 22 4E 22 A7 31 32 00 38 13 F9 01 8B 4A 41 24 |."N".12.8....JA$|
00000B30: B2 22 4A 22 A7 33 30 30 00 48 13 FA 01 99 22 91 |."J".300.H....".|
00000B40: 91 91 22 3A 89 35 30 35 00 78 13 58 02 43 24 B2 |..":.505.x.X.C$.|
00000B50: 22 C2 20 20 20 20 44 4F 4F 53 2D 45 54 49 4B 45 |". DOOS-ETIKE|
00000B60: 54 20 20 20 20 C2 22 3A 41 4B B2 31 30 3A 8D 35 |T .":AK.10:.5|
00000B70: 39 3A 53 4C B2 31 3A 8F 00 9B 13 59 02 43 24 B2 |9:SL.1:....Y.C$.|
00000B80: 22 C2 20 20 57 4F 52 44 54 20 20 20 47 45 50 52 |". WORDT GEPR|
00000B90: 49 4E 54 20 20 C2 22 3A 8D 36 30 00 D6 13 5A 02 |INT .":.60...Z.|
00000BA0: 9F 31 2C 34 3A 47 52 24 B2 C7 28 38 29 3A 4E 4C |.1,4:GR$..(8):NL|
00000BB0: 24 B2 C7 28 31 35 29 3A 47 4C 24 B2 C7 28 31 34 |$..(15):GL$..(14|
00000BC0: 29 3A 53 50 24 B2 22 20 20 20 20 20 20 20 20 20 |):SP$." |
00000BD0: 20 20 20 20 20 22 00 ED 13 5B 02 81 20 58 20 B2 | "...[.. X .|
00000BE0: 20 31 20 A4 20 41 50 25 3A 58 44 B2 30 00 2B 14 | 1 . AP%:XD.0.+.|
00000BF0: 5C 02 98 31 2C 4E 4C 24 53 50 24 22 CF B7 B7 B7 |\..1,NL$SP$"....|
00000C00: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00000C10: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00000C20: B7 B7 B7 B7 B7 B7 D0 22 47 52 24 00 67 14 5D 02 |......."GR$.g.].|
00000C30: 98 31 2C 4E 4C 24 53 50 24 22 B4 44 4F 4F 53 22 |.1,NL$SP$".DOOS"|
00000C40: C7 28 31 36 29 22 31 39 22 44 25 C7 28 31 36 29 |.(16)"19"D%.(16)|
00000C50: 22 32 35 53 4C 45 45 22 53 4C C7 28 31 36 29 22 |"25SLEE"SL.(16)"|
00000C60: 33 35 22 4E 4C 24 3B 00 A6 14 5E 02 98 31 2C C7 |35"NL$;...^..1,.|
00000C70: 28 31 36 29 22 33 35 B4 44 4F 4F 53 22 C7 28 31 |(16)"35.DOOS".(1|
00000C80: 36 29 22 34 31 22 44 25 C7 28 31 36 29 22 34 36 |6)"41"D%.(16)"46|
00000C90: 53 4C 45 45 22 53 4C AA 31 C7 28 31 36 29 22 35 |SLEE"SL.1.(16)"5|
00000CA0: 36 AA 22 47 52 24 00 E4 14 5F 02 98 31 2C 4E 4C |6."GR$..._..1,NL|
00000CB0: 24 53 50 24 22 CC A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |$SP$"...........|
00000CC0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000CD0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 BA |................|
00000CE0: 22 47 52 24 00 22 15 60 02 98 31 2C 4E 4C 24 53 |"GR$.".`..1,NL$S|
00000CF0: 50 24 22 B4 20 20 20 20 20 20 20 20 20 20 20 20 |P$". |
00000D00: 20 20 20 20 20 20 20 20 B4 20 20 20 20 20 20 20 | . |
00000D10: 20 20 20 20 20 20 20 20 20 20 20 20 20 AA 22 47 | ."G|
00000D20: 52 24 00 5D 15 61 02 98 31 2C 4E 4C 24 53 50 24 |R$.].a..1,NL$SP$|
00000D30: 22 B4 22 53 49 24 28 58 29 22 B4 22 53 49 24 28 |"."SI$(X)"."SI$(|
00000D40: 58 AA 37 29 22 AA 22 47 52 24 3A 58 44 B2 58 44 |X.7)"."GR$:XD.XD|
00000D50: AA 31 3A 8B 58 B2 41 50 25 A7 36 31 32 00 9B 15 |.1:.X.AP%.612...|
00000D60: 62 02 98 31 2C 4E 4C 24 53 50 24 22 B4 20 20 20 |b..1,NL$SP$". |
00000D70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000D80: 20 B4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | . |
00000D90: 20 20 20 20 20 20 AA 22 47 52 24 00 AF 15 63 02 | ."GR$...c.|
00000DA0: 58 B2 58 AA 31 3A 8B 58 44 B3 37 A7 36 30 39 00 |X.X.1:.XD.7.609.|
00000DB0: C5 15 64 02 53 4C B2 53 4C AA 32 3A 58 B2 58 AA |..d.SL.SL.2:X.X.|
00000DC0: 36 3A 82 20 58 00 00 16 65 02 98 31 2C 4E 4C 24 |6:. X...e..1,NL$|
00000DD0: 53 50 24 22 CC A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |SP$"............|
00000DE0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000DF0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 BA 22 |..............."|
00000E00: 00 1F 16 66 02 81 58 B2 31 A4 41 52 AB 36 37 3A |...f..X.1.AR.67:|
00000E10: 98 31 3A 82 58 3A 98 31 3A A0 31 3A 89 31 32 00 |.1:.X:.1:.1:.12.|
00000E20: 5F 16 BC 02 43 24 B2 22 C2 20 41 4C 46 2E 20 4C |_...C$.". ALF. L|
00000E30: 49 4A 53 54 20 44 49 41 27 53 20 20 C2 22 3A 41 |IJST DIA'S .":A|
00000E40: 4B B2 31 30 3A 8D 35 39 3A 97 37 30 30 2C 4D 3A |K.10:.59:.700,M:|
00000E50: 9C 3A 86 50 24 28 31 30 30 30 29 3A 4E B2 30 00 |.:.P$(1000):N.0.|
00000E60: 9A 16 BD 02 43 24 B2 22 C2 20 20 49 20 4E 20 4C |....C$.". I N L|
00000E70: 20 45 20 5A 20 45 20 4E 20 20 20 20 C2 22 3A 8D | E Z E N .":.|
00000E80: 36 30 3A 8B C2 28 37 30 30 29 B2 39 A7 44 25 B2 |60:..(700).9.D%.|
00000E90: 31 3A 8D 36 35 3A 89 37 30 35 00 A7 16 BE 02 99 |1:.65:.705......|
00000EA0: 22 11 11 11 11 11 22 00 D0 16 BF 02 85 22 20 20 |"....."......" |
00000EB0: 20 20 20 20 20 20 20 20 20 20 56 41 4E 41 46 20 | VANAF |
00000EC0: 44 4F 4F 53 20 4E 52 22 3B 44 25 3A 8D 20 36 35 |DOOS NR";D%:. 65|
00000ED0: 00 03 17 C0 02 85 22 91 20 20 20 20 20 20 20 50 |......". P|
00000EE0: 41 50 49 45 52 4C 45 4E 47 54 45 20 49 4E 20 52 |APIERLENGTE IN R|
00000EF0: 45 47 45 4C 53 20 20 37 32 20 9D 9D 9D 9D 9D 22 |EGELS 72 ....."|
00000F00: 3B 41 52 00 13 17 C1 02 58 54 B2 44 25 3A 44 4E |;AR.....XT.D%:DN|
00000F10: B2 58 54 00 38 17 C2 02 5A 44 24 B2 22 44 49 41 |.XT.8...ZD$."DIA|
00000F20: 2D 44 4F 4F 53 20 22 AA 44 24 3A 9F 31 35 2C 38 |-DOOS ".D$:.15,8|
00000F30: 2C 31 35 2C 22 49 30 22 00 73 17 C3 02 9F 31 2C |,15,"I0".s....1,|
00000F40: 38 2C 32 2C 22 30 3A 22 AA 5A 44 24 AA 22 2C 53 |8,2,"0:".ZD$.",S|
00000F50: 2C 52 22 3A 42 57 B2 31 32 3A 8D 35 33 3A 84 31 |,R":BW.12:.53:.1|
00000F60: 2C 44 25 3A 84 31 2C 41 50 25 3A 53 4C B2 31 3A |,D%:.1,AP%:SL.1:|
00000F70: 54 B2 30 00 A6 17 C4 02 81 58 B2 31 A4 41 50 25 |T.0......X.1.AP%|
00000F80: 3A 99 22 13 11 11 11 11 11 11 11 22 A3 31 33 29 |:."........".13)|
00000F90: 22 44 4F 4F 53 20 22 44 24 22 20 28 22 20 58 22 |"DOOS "D$" (" X"|
00000FA0: 9D 20 29 20 20 22 00 C8 17 C5 02 84 31 2C 59 24 |. ) "......1,Y$|
00000FB0: 3A 54 B2 54 AA 31 3A 8B C8 28 59 24 2C 31 29 B3 |:T.T.1:..(Y$,1).|
00000FC0: B1 22 2A 22 A7 8D 35 35 00 FE 17 C6 02 82 58 3A |."*"..55......X:|
00000FD0: A0 31 3A A0 31 35 3A 44 4E B2 44 4E AA 31 3A 44 |.1:.15:DN.DN.1:D|
00000FE0: 24 B2 C9 28 22 30 30 30 22 AA 28 CA 28 C4 28 44 |$..("000".(.(.(D|
00000FF0: 4E 29 2C 32 29 29 2C 33 29 3A 89 37 30 36 00 0E |N),2)),3):.706..|
00001000: 18 C7 02 8B 20 58 54 B3 B1 31 A7 37 31 37 00 41 |.... XT..1.717.A|
00001010: 18 C8 02 99 22 11 11 11 11 11 20 20 20 20 1C 48 |...."..... .H|
00001020: 45 54 20 44 49 41 2D 42 45 53 54 41 4E 44 20 57 |ET DIA-BESTAND W|
00001030: 4F 52 44 54 20 42 49 4A 47 45 57 45 52 4B 54 1F |ORDT BIJGEWERKT.|
00001040: 22 00 73 18 C9 02 9F 31 35 2C 38 2C 31 35 2C 22 |".s....15,8,15,"|
00001050: 49 30 22 3A 98 31 35 2C 22 52 3A 4F 55 44 2D 42 |I0":.15,"R:OUD-B|
00001060: 45 53 54 41 4E 44 3D 44 49 41 2D 42 45 53 54 41 |ESTAND=DIA-BESTA|
00001070: 4E 44 22 00 A0 18 CA 02 9F 32 2C 38 2C 32 2C 22 |ND"......2,8,2,"|
00001080: 30 3A 44 49 41 2D 42 45 53 54 41 4E 44 2C 53 2C |0:DIA-BESTAND,S,|
00001090: 57 22 3A 98 32 2C 4E 3A 52 24 B2 C7 28 31 33 29 |W":.2,N:R$..(13)|
000010A0: 00 D4 18 CB 02 81 5A B2 31 A4 4E 3A 98 32 2C 50 |......Z.1.N:.2,P|
000010B0: 24 28 5A 29 52 24 3A 82 5A 3A 98 31 35 2C 22 53 |$(Z)R$:.Z:.15,"S|
000010C0: 3A 4F 55 44 2D 42 45 53 54 41 4E 44 22 3A A0 32 |:OUD-BESTAND":.2|
000010D0: 3A A0 31 35 00 E5 18 CC 02 8B C2 28 37 30 30 29 |:.15.......(700)|
000010E0: B2 39 A7 31 32 00 10 19 CD 02 43 24 B2 22 C2 20 |.9.12.....C$.". |
000010F0: 20 41 4C 46 20 4C 49 4A 53 54 20 44 49 41 27 53 | ALF LIJST DIA'S|
00001100: 20 20 C2 22 3A 41 4B B2 31 30 3A 8D 35 39 3A 8F | .":AK.10:.59:.|
00001110: 00 3B 19 CE 02 43 24 B2 22 C2 20 20 53 20 4F 20 |.;...C$.". S O |
00001120: 52 20 54 20 45 20 52 20 45 20 4E 20 20 C2 22 3A |R T E R E N .":|
00001130: 41 4B B2 31 30 3A 8D 36 30 3A 8F 00 65 19 CF 02 |AK.10:.60:..e...|
00001140: 43 24 B2 22 C2 4D 20 4F 20 4D 20 45 20 4E 20 54 |C$.".M O M E N T|
00001150: 20 20 41 2E 55 2E 42 2E C2 22 3A 8D 36 30 3A 55 | A.U.B..":.60:U|
00001160: 50 B2 4E 3A 8F 00 76 19 D0 02 8B 20 55 50 B2 B3 |P.N:..v.... UP..|
00001170: 31 A7 20 37 32 36 00 8D 19 D1 02 55 50 B2 B5 28 |1. 726.....UP..(|
00001180: 55 50 AD 32 29 3A 4D 4C B2 4E AB 55 50 00 C2 19 |UP.2):ML.N.UP...|
00001190: D2 02 4B B2 30 3A 99 22 13 12 11 11 BF 92 22 3A |..K.0:."......":|
000011A0: 81 49 B2 31 A4 4D 4C 3A 47 4D B2 55 50 AA 49 3A |.I.1.ML:GM.UP.I:|
000011B0: 8B 50 24 28 49 29 B2 B3 50 24 28 47 4D 29 A7 37 |.P$(I)..P$(GM).7|
000011C0: 32 34 00 F2 19 D3 02 54 24 B2 50 24 28 49 29 3A |24.....T$.P$(I):|
000011D0: 50 24 28 49 29 B2 50 24 28 47 4D 29 3A 50 24 28 |P$(I).P$(GM):P$(|
000011E0: 47 4D 29 B2 54 24 3A 4B B2 31 3A 99 22 13 11 11 |GM).T$:K.1:."...|
000011F0: BF 22 00 02 1A D4 02 82 49 3A 8B 4B B2 31 A7 37 |."......I:.K.1.7|
00001200: 32 32 00 0B 1A D5 02 89 37 32 30 00 4C 1A D6 02 |22......720.L...|
00001210: 43 24 B2 22 C2 20 55 49 54 50 52 49 4E 54 45 4E |C$.". UITPRINTEN|
00001220: 20 4C 49 4A 53 54 20 20 C2 22 3A 8D 35 39 3A 41 | LIJST .":.59:A|
00001230: 4B B2 B5 28 4E AD 36 30 29 AA 31 3A 4B 32 B2 31 |K..(N.60).1:K2.1|
00001240: 3A 9F 31 2C 34 3A 50 50 B2 30 3A 8F 00 6D 1A D7 |:.1,4:PP.0:..m..|
00001250: 02 81 4B 31 B2 31 A4 41 4B 3A 4B 33 B2 4B 32 AA |..K1.1.AK:K3.K2.|
00001260: 32 39 3A 8B 4B 33 B1 4E A7 4B 33 B2 4E 00 A7 1A |29:.K3.N.K3.N...|
00001270: D8 02 50 50 B2 50 50 AA 31 3A 98 31 2C C7 28 31 |..PP.PP.1:.1,.(1|
00001280: 34 29 C7 28 31 36 29 22 32 32 4F 56 45 52 5A 49 |4).(16)"22OVERZI|
00001290: 43 48 54 20 44 49 41 27 53 20 28 22 50 50 22 29 |CHT DIA'S ("PP")|
000012A0: 22 3A 98 31 3A 98 31 00 DF 1A D9 02 98 31 2C C7 |":.1:.1......1,.|
000012B0: 28 31 35 29 C7 28 31 36 29 22 30 35 4F 4E 44 45 |(15).(16)"05ONDE|
000012C0: 52 57 45 52 50 20 20 20 20 20 20 20 44 4F 4F 53 |RWERP DOOS|
000012D0: 20 20 53 4C 45 45 20 20 44 20 49 20 41 22 3B 00 | SLEE D I A";.|
000012E0: 16 1B DA 02 98 31 2C C7 28 31 35 29 C7 28 31 36 |.....1,.(15).(16|
000012F0: 29 22 34 35 4F 4E 44 45 52 57 45 52 50 20 20 20 |)"45ONDERWERP |
00001300: 20 20 20 20 44 4F 4F 53 20 20 53 4C 45 45 20 20 | DOOS SLEE |
00001310: 44 20 49 20 41 22 00 4E 1B DB 02 98 31 2C C7 28 |D I A".N....1,.(|
00001320: 31 35 29 C7 28 31 36 29 22 30 35 3D 3D 3D 3D 3D |15).(16)"05=====|
00001330: 3D 3D 3D 3D 3D 3D 3D 3D 3D 20 20 3D 3D 3D 3D 20 |========= ==== |
00001340: 20 3D 3D 3D 3D 20 20 3D 3D 3D 3D 3D 22 3B 00 88 | ==== =====";..|
00001350: 1B DC 02 98 31 2C C7 28 31 35 29 C7 28 31 36 29 |....1,.(15).(16)|
00001360: 22 34 35 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |"45=============|
00001370: 3D 20 20 3D 3D 3D 3D 20 20 3D 3D 3D 3D 20 20 3D |= ==== ==== =|
00001380: 3D 3D 3D 3D 22 3A 98 31 00 A8 1B DD 02 81 5A B2 |====":.1......Z.|
00001390: 4B 32 A4 4B 33 3A 98 31 2C C7 28 31 36 29 22 30 |K2.K3:.1,.(16)"0|
000013A0: 35 22 50 24 28 5A 29 3B 00 CD 1B DE 02 8B 5A AA |5"P$(Z);......Z.|
000013B0: 33 30 B1 4E A7 98 31 2C C7 28 31 36 29 22 34 35 |30.N..1,.(16)"45|
000013C0: 20 20 20 20 22 3A 98 31 3A 89 37 33 36 00 E9 1B | ":.1:.736...|
000013D0: DF 02 98 31 2C C7 28 31 36 29 22 34 35 22 50 24 |...1,.(16)"45"P$|
000013E0: 28 5A AA 33 30 29 3A 98 31 00 10 1C E0 02 82 5A |(Z.30):.1......Z|
000013F0: 3A 4B 32 B2 4B 32 AA 36 30 3A 81 42 56 B2 31 A4 |:K2.K2.60:.BV.1.|
00001400: 41 52 AB 36 36 3A 98 31 3A 82 42 56 3A 82 4B 31 |AR.66:.1:.BV:.K1|
00001410: 00 29 1C E1 02 81 42 56 B2 31 A4 41 52 3A 98 31 |.)....BV.1.AR:.1|
00001420: 3A 82 42 56 3A A0 31 3A 8A 00 39 1C 20 03 9C 3A |:.BV:.1:..9. ..:|
00001430: 86 50 24 28 31 30 30 30 29 00 5E 1C 21 03 43 24 |.P$(1000).^.!.C$|
00001440: B2 22 C2 20 20 20 5A 4F 45 4B 20 4F 4E 44 45 52 |.". ZOEK ONDER|
00001450: 57 45 52 50 20 20 C2 22 3A 8D 35 39 3A 8F 00 94 |WERP .":.59:...|
00001460: 1C 22 03 85 22 11 11 4F 4E 44 45 52 57 45 52 50 |.".."..ONDERWERP|
00001470: 20 22 3B 57 53 24 3A 57 53 B2 C3 28 57 53 24 29 | ";WS$:WS..(WS$)|
00001480: 3A 8B 4A 41 24 B2 22 4A 22 A7 99 22 11 11 22 3A |:.JA$."J".."..":|
00001490: 89 38 30 36 00 B0 1C 23 03 99 22 11 11 22 A3 31 |.806...#.."..".1|
000014A0: 35 29 22 1C 4D 4F 4D 45 4E 54 20 41 55 42 1F 22 |5)".MOMENT AUB."|
000014B0: 00 E0 1C 24 03 9F 31 35 2C 38 2C 31 35 2C 22 49 |...$..15,8,15,"I|
000014C0: 30 22 3A 9F 32 2C 38 2C 32 2C 22 44 49 41 2D 42 |0":.2,8,2,"DIA-B|
000014D0: 45 53 54 41 4E 44 2C 53 2C 52 22 3A 84 32 2C 4E |ESTAND,S,R":.2,N|
000014E0: 00 FE 1C 25 03 81 5A B2 31 A4 4E 3A 84 32 2C 50 |...%..Z.1.N:.2,P|
000014F0: 24 28 5A 29 3A 82 5A 3A A0 32 3A A0 31 35 00 29 |$(Z):.Z:.2:.15.)|
00001500: 1D 26 03 99 22 91 4F 4E 44 45 52 57 45 52 50 20 |.&..".ONDERWERP |
00001510: 20 20 20 20 20 20 44 4F 4F 53 20 20 20 53 4C 45 | DOOS SLE|
00001520: 45 20 20 20 44 49 41 11 22 00 61 1D 27 03 81 5A |E DIA.".a.'..Z|
00001530: B2 31 A4 4E 3A 81 50 B2 31 A4 31 35 AB 57 53 3A |.1.N:.P.1.15.WS:|
00001540: 8B 57 53 24 B2 CA 28 50 24 28 5A 29 2C 50 2C 57 |.WS$..(P$(Z),P,W|
00001550: 53 29 A7 99 50 24 28 5A 29 3A 50 B2 31 35 AB 57 |S)..P$(Z):P.15.W|
00001560: 53 00 94 1D 28 03 82 50 3A 82 5A 3A 99 22 11 11 |S...(..P:.Z:."..|
00001570: 20 20 20 1C 45 49 4E 44 45 20 5A 4F 45 4B 45 4E | .EINDE ZOEKEN|
00001580: 2E 20 44 4F 4F 52 47 41 41 4E 20 12 4A 92 2F 12 |. DOORGAAN .J./.|
00001590: 4E 92 22 3B 00 B0 1D 29 03 85 4A 41 24 3A 8B 4A |N.";...)..JA$:.J|
000015A0: 41 24 B2 22 4A 22 A7 99 22 1F 22 3A 89 38 30 31 |A$."J"..".":.801|
000015B0: 00 B6 1D 2A 03 8A 00 D3 1D 84 03 99 22 93 22 3A |...*........".":|
000015C0: 80 3A 8F 20 45 49 4E 44 45 20 50 52 4F 47 52 41 |.:. EINDE PROGRA|
000015D0: 4D 4D 41 00 00 00 |MMA... |
..G.... . *** HENK STEENHART / HEERHUGO
WAARD / 02207-10889 / AUG. 1986.....G(1
47):.53280,1:.53281,1:.650,250:.646,6:.S
I$(100).....C$."B D I A B A S E B":.
59:......PP$." ":.PP$"...1.. N
IEUWE INVOER":.PP$"..2.. INLEZEN".$....P
P$"..3.. SAVEN DATA":.PP$"..4.. VERANDER
EN PER DOOS".A....PP$"..5.. NAKIJKEN PER
DOOS":.PP$"..6.. ETIKET PER DOOS......P
P$"..7.. ALFABET. LIJST DIA'S":.PP$"..8.
. ZOEK ONDERWERP"......PP$"..9.. BIJWERK
EN DIABESTAND":.PP$"..0.. EINDE PROGRAMM
A"......198,0:.198,1:.M$:M.E(M$):.M.0.M.
9 .18.@.... M . 100,200,300,400,500,600,
700,800,700:.900.X.2.. *** SUBROUTINES
...3..". ..DRUK F7-TOETS.."
:.FT$:.FT$.G(136).....4.."...":.51.P.5..
15,EN,EM$,ET,ES:.EM$.."FILE NOT FOUND"..
...6..BW.12. 1: 15:BW.0:.711...7.N.N.1:.
N.1000 . 1: 15:.711.".8.. T.8.T.1:SL.SL
.1.Z.9.DN$.H(J(D(DN),2)." ",4):SL$.H(J
(D(SL),2)." ",2)...:.P$(N).J(Y$,7)."
".DN$." ".SL$." ".H(Y$,5):....;.."."
.10)"U...................I".P.<.. .10)
C$:.AK.10.AK.0:....=.. .10)"J.........
..........K":....A.D$.I("000".(J(D(D%),2
)),3):..<.D.C$."B NIEUWE INVOER B":.
59:..G.E..".... DOOS NR. ";
D%:. 65...F.D%.E(D$):."... AANT
AL SLEDES";AS$:AS%.E(AS$).Q.G..AS%.1.AS%
.10.AS%.2...(AS%.2)..".....":.102...H.AP
%.AS%.7:.X.1.AP%:SI$(X)."*
":.X:SL.1:T.0.!.I..Z.0.AP%.1.P.J.SN
$.H("SLEE ".D(SL)." ",20)
.~.K.."."SN$" __ = EINDE INVOER":."=====
===.."...L.."VAN T/M":."DIA DIA
-OMSCHRIJVING-"...M.."=== === =====
=========": . 19,64...N..:. V1$:.C(V1$).
.2.V1$.G(141).."..":.110.5.O..H(V1$,1).G
(95).SL.SL.1:Z.Z.7.T:T.0:.116.K.P..:."..
......";V2$:.C(V2$)..2.V2$.G(141)..".":.
112...Q..:."..............";H$:H$.H(H$."
",14)...R.Z.Z.1:T.T.1:SI$(
Z).V1$."-".V2$." ".H$:.T.7.T.0:SL.SL.1:.
116...S..110...T.Z.Z.1:.Z:.19,0:.500.).H
.C$."B I N L E Z E N B":.59:..X.I.."
... DOOS NR. ";D%:. 65:KL.1
...J.D%.E(D$):IN$."DIA-DOOS ".D$:.15,8,1
5,"I0":.1,8,2,"0:".IN$.",S,R".M.K..15,EN
,EM$,ET,ES:.EM$.."FILE NOT FOUND".205...
L..".".10)".FILE NIET BESCHIKBAAR.":.SY.
1.2000:.SY:..(.M..1,D%:.1,AP%:.X.1.AP%:.
1,SI$(X).N.N..".......".13)"DOOS "D$" ("
X". )".`.O..X: 1: 15:.12...,.C$."B SA
VEN DATA B":.59:."...".16)"DOOS "D$.
S.-.IN$."DIA-DOOS ".D$:.15,8,15,"I0":.15
,"R:VERVALLEN=".IN$......1,8,2,"0:".IN$.
",S,W":.1,D%:.1,AP%.:.0..X.1.AP%:.1,SI$(
X)R$:.".......".13)"DOOS "D$" ("X". )":.
X.\.1..15,"S0:VERVALLEN": 1: 15:.12....
.C$."B DATA VERANDEREN B":.59:."...".1
6)"DOOS "D$"..":..U....Z.1. AP%:." "SI$
(Z);:." .WIJZ. J/N ?.":.198,0:.198,1...
... WY$:.WY$.."J".405...... PL$.?...SI$(
Z).H(PL$." ",20):PL$
."* ".G.... Z.L...C$."
BOVERZICHT PER SLEDEB":.59:......T.0:SL.
1:.B.1.AP%:.".....".11)"DOOS "D$" / SLEE
"SL"..".......11)SI$(B)".":T.T.1:.T.7.T
.0:SL.SL.1:.51:.504.....B.B.1:.502.'....
B:.".GEGEVENS WEGSCHRIJVEN J/N J ....";
JA$:.JA$."N".12.8....JA$."J".300.H....".
..":.505.X.X.C$."B DOOS-ETIKET B":
AK.10:.59:SL.1:....Y.C$."B WORDT GEPR
INT B":.60.V.Z..1,4:GR$.G(8):NL$.G(15):
GL$.G(14):SP$." "...[.. X .
1 . AP%:XD.0.+.\..1,NL$SP$"O...........
..............................P"GR$.G.].
.1,NL$SP$".DOOS"G(16)"19"D%G(16)"25SLEE"
SLG(16)"35"NL$;...^..1,G(16)"35.DOOS"G(1
6)"41"D%G(16)"46SLEE"SL.1G(16)"56."GR$..
._..1,NL$SP$"L..........................
................"GR$.".`..1,NL$SP$".
. ."G
R$.].A..1,NL$SP$"."SI$(X)"."SI$(X.7)"."G
R$:XD.XD.1:.X.AP%.612...B..1,NL$SP$".
. ."
GR$...C.X.X.1:.XD.7.609.E.D.SL.SL.2:X.X.
6:. X...E..1,NL$SP$"L...................
......................."...F..X.1.AR.67:
.1:.X:.1: 1:.12._...C$."B ALF. LIJST DIA
'S B":AK.10:.59:.700,M:.:.P$(1000):N.0.
....C$."B I N L E Z E N B":.60:.B(70
0).9.D%.1:.65:.705......".....".P...."
VANAF DOOS NR";D%:. 65......".
PAPIERLENGTE IN REGELS 72 ....."
;AR...A.XT.D%:DN.XT.8.B.ZD$."DIA-DOOS ".
D$:.15,8,15,"I0".S.C..1,8,2,"0:".ZD$.",S
,R":BW.12:.53:.1,D%:.1,AP%:SL.1:T.0...D.
.X.1.AP%:."........".13)"DOOS "D$" (" X"
. ) ".H.E..1,Y$:T.T.1:.H(Y$,1).."*"..55
...F..X: 1: 15:DN.DN.1:D$.I("000".(J(D(D
N),2)),3):.706...G.. XT..1.717.A.H.."...
.. .HET DIA-BESTAND WORDT BIJGEWERKT.
".S.I..15,8,15,"I0":.15,"R:OUD-BESTAND=D
IA-BESTAND". .J..2,8,2,"0:DIA-BESTAND,S,
W":.2,N:R$.G(13).T.K..Z.1.N:.2,P$(Z)R$:.
Z:.15,"S:OUD-BESTAND": 2: 15...L..B(700)
.9.12...M.C$."B ALF LIJST DIA'S B":AK.
10:.59:..;.N.C$."B S O R T E R E N B":
AK.10:.60:..E.O.C$."BM O M E N T A.U.B.
B":.60:UP.N:..V.P.. UP..1. 726...Q.UP..(
UP.2):ML.N.UP.B.R.K.0:."......":.I.1.ML:
GM.UP.I:.P$(I)..P$(GM).724...S.T$.P$(I):
P$(I).P$(GM):P$(GM).T$:K.1:."...."...T..
I:.K.1.722...U..720.L.V.C$."B UITPRINTEN
LIJST B":.59:AK..(N.60).1:K2.1:.1,4:PP
.0:..M.W..K1.1.AK:K3.K2.29:.K3.N.K3.N...
X.PP.PP.1:.1,G(14)G(16)"22OVERZICHT DIA'
S ("PP")":.1:.1...Y..1,G(15)G(16)"05ONDE
RWERP DOOS SLEE D I A";...Z..1,G
(15)G(16)"45ONDERWERP DOOS SLEE
D I A".N....1,G(15)G(16)"05=============
= ==== ==== =====";......1,G(15)G(16)
"45============== ==== ==== =====":.1
......Z.K2.K3:.1,G(16)"05"P$(Z);.M....Z.
30.N..1,G(16)"45 ":.1:.736......1,G(1
6)"45"P$(Z.30):.1......Z:K2.K2.60:.BV.1.
AR.66:.1:.BV:.K1.)....BV.1.AR:.1:.BV: 1:
..9. ..:.P$(1000).^.!.C$."B ZOEK ONDER
WERP B":.59:....".."..ONDERWERP ";WS$:W
S.C(WS$):.JA$."J".."..":.806...#.."..".1
5)".MOMENT AUB."...$..15,8,15,"I0":.2,8,
2,"DIA-BESTAND,S,R":.2,N...%..Z.1.N:.2,P
$(Z):.Z: 2: 15.).&..".ONDERWERP DO
OS SLEE DIA.".A.'..Z.1.N:.P.1.15.WS:
.WS$.J(P$(Z),P,WS)..P$(Z):P.15.WS...(..P
:.Z:.".. .EINDE ZOEKEN. DOORGAAN .J./.
N.";...)..JA$:.JA$."J"..".":.801...*...S
....".":.:. EINDE PROGRAMMA...
> CLICK IMAGE PREVIEW FOR FULL MODAL