WACHT-6
FILE INFORMATION
FILENAME(S): WACHT-6
FILE TYPE(S): PRG
FILE SIZE: 3.5K
FIRST SEEN: 2025-11-30 21:06:41
APPEARS ON: 1 disk(s)
FILE HASH
5b15662f349d91b82ff169e96d55a5fd345cf0c2a4fee2667a6d1af25ab99bf8
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| STR I BASIC | WACHT-6 | PRG | DuncanTwain | 15 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0C 08 0A 00 89 20 31 30 30 30 00 17 08 64 |....... 1000...d|
00000010: 00 99 22 93 22 3A 8E 00 35 08 6E 00 56 45 B2 B5 |..".":..5.n.VE..|
00000020: 28 56 45 AD 32 35 29 3A 8B 20 56 45 B2 30 20 A7 |(VE.25):. VE.0 .|
00000030: 20 56 45 B2 31 00 53 08 70 00 48 4F B2 B5 28 48 | VE.1.S.p.HO..(H|
00000040: 4F AD 34 31 29 3A 8B 20 48 4F B2 30 20 A7 20 48 |O.41):. HO.0 . H|
00000050: 4F B2 31 00 77 08 72 00 53 50 24 B2 22 13 11 11 |O.1.w.r.SP$."...|
00000060: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000070: 11 11 11 11 11 11 22 00 89 08 73 00 99 C8 28 53 |......"...s...(S|
00000080: 50 24 2C 56 45 AA 31 29 3B 00 96 08 74 00 99 A3 |P$,VE.1);...t...|
00000090: 48 4F 29 3B 3A 8E 00 9F 08 D2 00 A1 49 4E 24 00 |HO);:.......IN$.|
000000A0: B1 08 DC 00 8B 49 4E 24 B2 22 22 3A 89 20 32 31 |.....IN$."":. 21|
000000B0: 30 00 B7 08 E6 00 8E 00 EA 08 E8 03 8F 20 2A 2A |0............ **|
000000C0: 2A 2A 20 53 49 4D 55 4C 41 54 49 45 20 56 41 4E |** SIMULATIE VAN|
000000D0: 20 48 45 54 20 57 41 43 48 54 52 49 4A 50 52 4F | HET WACHTRIJPRO|
000000E0: 42 4C 45 45 4D 20 2A 2A 2A 2A 00 05 09 06 04 8D |BLEEM ****......|
000000F0: 20 31 30 30 30 30 3A 27 49 4E 49 54 49 41 4C 49 | 10000:'INITIALI|
00000100: 53 45 52 45 4E 00 0B 09 10 04 3A 00 1A 09 4C 04 |SEREN.....:...L.|
00000110: 8F 20 48 4F 4F 46 44 4C 55 53 00 20 09 56 04 3A |. HOOFDLUS. .V.:|
00000120: 00 42 09 60 04 57 48 49 4C 45 20 41 41 4E 4B 4F |.B.`.WHILE AANKO|
00000130: 4D 53 54 B3 B2 53 4C 55 49 54 49 4E 47 53 54 49 |MST..SLUITINGSTI|
00000140: 4A 44 00 63 09 6A 04 8D 20 31 31 30 30 30 3A 8F |JD.c.j.. 11000:.|
00000150: 20 56 4F 45 52 20 53 49 4D 55 4C 41 54 49 45 20 | VOER SIMULATIE |
00000160: 55 49 54 00 6A 09 74 04 57 80 00 79 09 7E 04 4B |UIT.j.t.W..y.~.K|
00000170: 4C 41 4E 54 45 4E B2 4B 31 00 89 09 B0 04 8F 20 |LANTEN.K1...... |
00000180: 41 46 53 4C 55 49 54 45 4E 00 8F 09 BA 04 99 00 |AFSLUITEN.......|
00000190: A6 09 C4 04 54 54 B2 57 41 43 48 54 A4 54 AD 4B |....TT.WACHT.T.K|
000001A0: 4C 41 4E 54 45 4E 00 C7 09 CE 04 8D 20 32 32 30 |LANTEN...... 220|
000001B0: 30 30 3A 8F 20 54 49 4A 44 20 46 4F 52 4D 41 41 |00:. TIJD FORMAA|
000001C0: 54 20 4D 41 4B 45 4E 00 F2 09 D8 04 99 20 22 44 |T MAKEN...... "D|
000001D0: 45 20 47 45 4D 49 44 44 45 4C 44 45 20 57 41 43 |E GEMIDDELDE WAC|
000001E0: 48 54 54 49 4A 44 20 49 53 3A 20 22 3B 54 49 4A |HTTIJD IS: ";TIJ|
000001F0: 44 24 00 08 0A E2 04 54 54 B2 48 45 4C 50 A4 54 |D$.....TT.HELP.T|
00000200: AD 4B 4C 41 4E 54 45 4E 00 29 0A EC 04 8D 20 32 |.KLANTEN.).... 2|
00000210: 32 30 30 30 3A 8F 20 54 49 4A 44 20 46 4F 52 4D |2000:. TIJD FORM|
00000220: 41 41 54 20 4D 41 4B 45 4E 00 54 0A F6 04 99 20 |AAT MAKEN.T.... |
00000230: 22 44 45 20 47 45 4D 49 44 44 45 4C 44 45 20 48 |"DE GEMIDDELDE H|
00000240: 45 4C 50 54 49 4A 44 20 49 53 20 3A 20 22 3B 54 |ELPTIJD IS : ";T|
00000250: 49 4A 44 24 00 5A 0A 00 05 99 00 8D 0A 0A 05 99 |IJD$.Z..........|
00000260: 20 22 42 41 53 49 53 47 45 47 45 56 45 4E 53 3A | "BASISGEGEVENS:|
00000270: 20 47 45 4D 2E 20 4B 4C 41 4E 54 45 4E 20 50 45 | GEM. KLANTEN PE|
00000280: 52 20 55 55 52 20 3A 20 22 3B 4B 50 48 00 D5 0A |R UUR : ";KPH...|
00000290: 14 05 99 20 22 20 20 20 20 20 20 20 20 20 20 20 |... " |
000002A0: 20 20 20 20 47 45 4D 2E 20 42 45 44 49 45 4E 49 | GEM. BEDIENI|
000002B0: 4E 47 53 54 49 4A 44 20 20 3A 20 22 3B 4D 49 4E |NGSTIJD : ";MIN|
000002C0: 50 4B 4C 3B 22 20 4D 49 4E 2E 20 50 45 52 20 4B |PKL;" MIN. PER K|
000002D0: 4C 41 4E 54 22 00 DB 0A CF 07 80 00 F8 0A 10 27 |LANT"..........'|
000002E0: 8F 20 2A 2A 2A 2A 20 49 4E 49 54 49 41 4C 49 53 |. **** INITIALIS|
000002F0: 45 45 52 20 2A 2A 2A 2A 00 FE 0A 1A 27 3A 00 10 |EER ****....':..|
00000300: 0B 24 27 8D 20 31 30 30 3A 4B 45 59 20 4F 46 46 |.$'. 100:KEY OFF|
00000310: 00 32 0B 2E 27 8D 20 31 30 35 30 30 3A 27 42 41 |.2..'. 10500:'BA|
00000320: 53 49 53 47 45 47 45 56 45 4E 53 20 56 52 41 47 |SISGEGEVENS VRAG|
00000330: 45 4E 00 5C 0B 38 27 4B 4C 41 4E 54 50 53 B2 4B |EN.\.8'KLANTPS.K|
00000340: 4C 41 4E 54 50 48 AD 28 36 30 AC 36 30 29 3A 4D |LANTPH.(60.60):M|
00000350: 31 B2 AB 31 AD 4B 4C 41 4E 54 50 53 00 86 0B 42 |1..1.KLANTPS...B|
00000360: 27 53 45 43 50 4B 4C 41 4E 54 B2 36 30 AC 4D 49 |'SECPKLANT.60.MI|
00000370: 4E 50 4B 4C 41 4E 54 20 20 3A 4D 32 B2 53 45 43 |NPKLANT :M2.SEC|
00000380: 50 4B 4C 41 4E 54 00 A4 0B 4C 27 53 50 52 45 49 |PKLANT...L'SPREI|
00000390: 44 49 4E 47 B2 2E 37 AC 4D 32 3A 50 49 B2 34 AC |DING..7.M2:PI.4.|
000003A0: C1 28 31 29 00 C7 0B 56 27 53 54 41 52 54 54 49 |.(1)...V'STARTTI|
000003B0: 4A 44 B2 39 AC 36 30 AC 36 30 3A 47 45 9F 44 B2 |JD.9.60.60:GE.D.|
000003C0: 33 AC 36 30 AC 36 30 00 E8 0B 60 27 53 4C 55 49 |3.60.60...`'SLUI|
000003D0: 54 49 4E 47 53 54 49 4A 44 B2 53 54 41 52 54 54 |TINGSTIJD.STARTT|
000003E0: 49 4A 44 AA 47 45 9F 44 00 13 0C 6A 27 86 20 56 |IJD.GE.D...j'. V|
000003F0: 45 52 54 52 45 4B 28 B5 28 31 2E 35 AC 4B 4C 41 |ERTREK(.(1.5.KLA|
00000400: 4E 54 50 48 AC 47 45 9F 44 AD 28 36 30 AC 36 30 |NTPH.GE.D.(60.60|
00000410: 29 29 29 00 2C 0C 74 27 56 45 52 54 52 45 4B 28 |))).,.t'VERTREK(|
00000420: 30 29 B2 53 54 41 52 54 54 49 4A 44 00 43 0C 7E |0).STARTTIJD.C.~|
00000430: 27 57 41 43 48 54 A4 54 B2 30 3A 48 45 4C 50 A4 |'WACHT.T.0:HELP.|
00000440: 54 B2 30 00 5A 0C 88 27 27 45 45 52 53 54 45 20 |T.0.Z..''EERSTE |
00000450: 4B 4C 41 4E 54 20 4B 4F 4D 54 00 60 0C 92 27 27 |KLANT KOMT.`..''|
00000460: 00 7D 0C A6 27 8D 20 32 30 31 30 30 3A 27 52 AF |.}..'. 20100:'R.|
00000470: 4F 4D 20 54 55 53 53 45 4E 54 49 4A 44 00 9F 0C |OM TUSSENTIJD...|
00000480: B0 27 41 41 4E 4B 4F 4D 53 54 B2 53 54 41 52 54 |.'AANKOMST.START|
00000490: 54 49 4A 44 AA 54 55 53 53 45 4E 54 49 4A 44 00 |TIJD.TUSSENTIJD.|
000004A0: B3 0C BA 27 4B 4C 41 4E 54 4E 52 B2 31 3A 52 49 |...'KLANTNR.1:RI|
000004B0: 4A B2 30 00 B9 0C C4 27 27 00 C8 0C D8 27 27 4B |J.0....''....''K|
000004C0: 4F 50 20 4D 41 4B 45 4E 00 CE 0C E2 27 3A 00 D8 |OP MAKEN....':..|
000004D0: 0C EC 27 8D 20 31 30 30 00 F2 0C F6 27 56 45 4C |..'. 100....'VEL|
000004E0: 44 24 B2 22 5C 20 20 20 20 20 20 20 20 20 20 20 |D$."\ |
000004F0: 5C 22 00 07 0D 00 28 99 20 22 4B 4C 4E 52 22 3B |\"....(. "KLNR";|
00000500: 22 20 20 20 20 22 3B 00 23 0D 0A 28 99 20 55 BF |" ";.#..(. U.|
00000510: 47 20 56 45 4C 44 24 3B 22 41 41 4E 4B 4F 4D 53 |G VELD$;"AANKOMS|
00000520: 54 22 3B 00 40 0D 14 28 99 20 55 BF 47 20 56 45 |T";.@..(. U.G VE|
00000530: 4C 44 24 3B 22 42 45 44 49 45 4E 49 4E 47 22 3B |LD$;"BEDIENING";|
00000540: 00 5B 0D 1E 28 99 20 55 BF 47 20 56 45 4C 44 24 |.[..(. U.G VELD$|
00000550: 3B 22 56 45 52 54 52 45 4B 22 3B 00 78 0D 28 28 |;"VERTREK";.x.((|
00000560: 99 20 55 BF 47 20 56 45 4C 44 24 3B 22 57 41 43 |. U.G VELD$;"WAC|
00000570: 48 54 54 49 4A 44 22 3B 00 95 0D 32 28 99 20 55 |HTTIJD";...2(. U|
00000580: BF 47 20 56 45 4C 44 24 3B 22 52 49 4A 4C 45 4E |.G VELD$;"RIJLEN|
00000590: 47 54 45 22 3B 00 9B 0D 3C 28 99 00 B4 0D 46 28 |GTE";...<(....F(|
000005A0: 99 20 53 54 52 49 4E 47 24 28 37 39 2C C6 28 22 |. STRING$(79,.("|
000005B0: 3D 22 29 29 00 BA 0D 96 28 8E 00 C8 0D 04 29 8F |="))....(.....).|
000005C0: 20 2A 2A 2A 2A 20 42 41 00 E4 0D 05 29 53 49 53 | **** BA....)SIS|
000005D0: 47 45 47 45 56 45 4E 53 20 56 52 41 47 45 4E 20 |GEGEVENS VRAGEN |
000005E0: AC AC AC AC 00 EA 0D 0E 29 27 00 2C 0E 36 29 99 |........)'.,.6).|
000005F0: 20 22 44 49 54 20 50 52 4F 47 52 41 4D 4D 41 20 | "DIT PROGRAMMA |
00000600: 53 49 4D 55 4C 45 45 52 54 20 44 45 20 47 45 42 |SIMULEERT DE GEB|
00000610: 45 55 52 54 45 4E 49 53 53 45 4E 20 41 41 4E 20 |EURTENISSEN AAN |
00000620: 45 45 4E 20 4C 4F 4B 45 54 2C 20 22 00 6C 0E 40 |EEN LOKET, ".l.@|
00000630: 29 99 20 22 57 41 41 52 20 4B 4C 41 4E 54 45 4E |). "WAAR KLANTEN|
00000640: 20 41 41 4E 4B 4F 4D 45 4E 2C 20 49 4E 20 45 45 | AANKOMEN, IN EE|
00000650: 4E 20 52 49 4A 20 47 41 41 4E 20 53 54 41 41 4E |N RIJ GAAN STAAN|
00000660: 20 45 4E 20 57 41 43 48 54 45 4E 22 00 8C 0E 4A | EN WACHTEN"...J|
00000670: 29 99 20 22 54 4F 54 20 5A 45 20 47 45 48 4F 4C |). "TOT ZE GEHOL|
00000680: 50 45 4E 20 57 4F 52 44 45 4E 2E 22 00 94 0E 54 |PEN WORDEN."...T|
00000690: 29 99 3A 99 00 C2 0E 5E 29 99 20 22 57 41 54 20 |).:....^). "WAT |
000006A0: 49 53 20 55 57 20 41 41 4E 4E 41 4D 45 20 56 4F |IS UW AANNAME VO|
000006B0: 4F 52 20 48 45 54 20 47 45 4D 49 44 44 45 4C 44 |OR HET GEMIDDELD|
000006C0: 45 22 00 F8 0E 68 29 99 20 22 41 41 4E 54 41 4C |E"...h). "AANTAL|
000006D0: 20 4B 4C 41 4E 54 45 4E 20 50 45 52 20 55 55 52 | KLANTEN PER UUR|
000006E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006F0: 20 20 20 20 20 3A 22 3B 00 06 0F 72 29 85 20 4B | :";...r). K|
00000700: 4C 41 4E 54 50 48 00 0E 0F 7C 29 99 3A 99 00 40 |LANTPH...|).:..@|
00000710: 0F 86 29 99 20 22 57 41 54 20 49 53 20 55 57 20 |..). "WAT IS UW |
00000720: 41 41 4E 4E 41 4D 45 20 56 4F 4F 52 20 44 45 20 |AANNAME VOOR DE |
00000730: 47 45 4D 49 44 44 45 4C 44 45 20 44 55 55 52 22 |GEMIDDELDE DUUR"|
00000740: 00 76 0F 90 29 99 20 22 56 41 4E 20 44 45 20 42 |.v..). "VAN DE B|
00000750: 45 44 49 45 4E 49 4E 47 53 54 49 4A 44 20 49 4E |EDIENINGSTIJD IN|
00000760: 20 4D 49 4E 55 54 45 4E 20 20 20 20 20 20 20 20 | MINUTEN |
00000770: 20 20 20 3A 22 3B 00 86 0F 9A 29 85 20 4D 49 4E | :";....). MIN|
00000780: 50 4B 4C 41 4E 54 00 8E 0F A4 29 99 3A 99 00 C4 |PKLANT....).:...|
00000790: 0F AE 29 99 20 22 47 45 45 46 20 47 45 54 41 4C |..). "GEEF GETAL|
000007A0: 20 56 4F 4F 52 20 53 54 41 52 54 50 55 4E 54 20 | VOOR STARTPUNT |
000007B0: 52 41 4E 44 4F 4D 2D 47 45 4E 45 52 41 54 4F 52 |RANDOM-GENERATOR|
000007C0: 20 3A 22 3B 00 D7 0F B8 29 85 20 4E 3A 52 AF 4F | :";....). N:R.O|
000007D0: 4D 49 5A 45 28 4E 29 00 DD 0F C2 29 8E 00 F8 0F |MIZE(N)....)....|
000007E0: F8 2A 8F 20 2A 2A 2A 2A 20 53 49 4D 55 4C 41 54 |.*. **** SIMULAT|
000007F0: 49 45 20 2A 2A 2A 2A 2A 00 FE 0F 02 2B 27 00 49 |IE *****....+'.I|
00000800: 10 0C 2B 8B 20 41 41 4E 4B 4F 4D 53 54 B1 56 45 |..+. AANKOMST.VE|
00000810: 52 54 52 45 4B 28 4B 4C 41 4E 54 4E 52 AB 31 29 |RTREK(KLANTNR.1)|
00000820: 20 A7 20 42 45 47 49 4E 48 45 4C 50 B2 41 41 4E | . BEGINHELP.AAN|
00000830: 4B 4F 4D 53 54 20 45 4C 53 45 20 42 45 47 49 4E |KOMST ELSE BEGIN|
00000840: 48 45 4C 50 B2 56 45 52 54 00 68 10 0D 2B 8F 20 |HELP.VERT.h..+. |
00000850: 41 41 4E 20 31 31 30 32 30 20 52 45 4B 28 4B 4C |AAN 11020 REK(KL|
00000860: 41 4E 54 4E 52 2D 31 29 00 83 10 16 2B 8D 20 32 |ANTNR-1)....+. 2|
00000870: 30 31 35 30 3A 27 52 AF 4F 4D AB 48 45 4C 50 54 |0150:'R.OM.HELPT|
00000880: 49 4A 44 00 AB 10 20 2B 56 45 52 54 52 45 4B 28 |IJD... +VERTREK(|
00000890: 4B 4C 41 4E 54 4E 52 29 B2 42 45 47 49 4E 48 45 |KLANTNR).BEGINHE|
000008A0: 4C 50 AA 48 45 4C 50 54 49 4A 44 00 C6 10 2A 2B |LP.HELPTIJD...*+|
000008B0: 48 45 4C 50 A4 54 B2 48 45 4C 50 A4 54 AA 48 45 |HELP.T.HELP.T.HE|
000008C0: 4C 50 54 49 4A 44 00 E7 10 34 2B 57 41 43 48 54 |LPTIJD...4+WACHT|
000008D0: 54 49 4A 44 B2 42 45 47 49 4E 48 45 4C 50 AB 41 |TIJD.BEGINHELP.A|
000008E0: 41 4E 4B 4F 4D 53 54 00 05 11 3E 2B 57 41 43 48 |ANKOMST...>+WACH|
000008F0: 54 A4 54 B2 57 41 43 48 54 A4 54 AA 57 41 43 48 |T.T.WACHT.T.WACH|
00000900: 54 54 49 4A 44 00 1C 11 48 2B 8D 20 32 31 30 30 |TTIJD...H+. 2100|
00000910: 30 3A 27 41 46 44 52 55 4B 4B 45 4E 00 39 11 52 |0:'AFDRUKKEN.9.R|
00000920: 2B 8D 20 32 30 31 30 30 3A 27 52 AF 4F 4D AB 54 |+. 20100:'R.OM.T|
00000930: 55 53 53 45 4E 54 49 4A 44 00 5A 11 5C 2B 41 41 |USSENTIJD.Z.\+AA|
00000940: 4E 4B 4F 4D 53 54 B2 41 41 4E 4B 4F 4D 53 54 AA |NKOMST.AANKOMST.|
00000950: 54 55 53 53 45 4E 54 49 4A 44 00 70 11 66 2B 4B |TUSSENTIJD.p.f+K|
00000960: 4C 41 4E 54 4E 52 B2 4B 4C 41 4E 54 4E 52 AA 31 |LANTNR.KLANTNR.1|
00000970: 00 84 11 70 2B 4B B2 4B 4C 41 4E 54 4E 52 3A 52 |...p+K.KLANTNR:R|
00000980: 49 4A B2 30 00 A4 11 7A 2B 57 48 49 4C 45 20 41 |IJ.0...z+WHILE A|
00000990: 41 4E 4B 4F 4D 53 54 B3 56 45 52 54 52 45 4B 28 |ANKOMST.VERTREK(|
000009A0: 4B AB 31 29 00 B8 11 84 2B 52 49 4A B2 52 49 4A |K.1)....+RIJ.RIJ|
000009B0: AA 31 3A 4B B2 4B AB 31 00 BF 11 8E 2B 57 80 00 |.1:K.K.1....+W..|
000009C0: C5 11 B6 2B 8E 00 0E 12 84 4E 8F 20 2A 2A 2A 2A |...+.....N. ****|
000009D0: 20 52 41 4E 44 4F 4D 2D 54 49 4A 44 45 4E 20 4D | RANDOM-TIJDEN M|
000009E0: 41 4B 45 4E 20 56 4F 4C 47 45 4E 53 20 4E 45 47 |AKEN VOLGENS NEG|
000009F0: 2E 20 45 58 50 2E 20 45 4E 20 4E 4F 52 4D 2E 20 |. EXP. EN NORM. |
00000A00: 56 45 52 44 45 4C 49 4E 47 20 2A 2A 2A 2A 00 14 |VERDELING ****..|
00000A10: 12 8E 4E 27 00 35 12 98 4E 27 54 55 53 53 45 4E |..N'.5..N'TUSSEN|
00000A20: 54 49 4A 44 20 4E 45 47 2E 20 BD 2E 20 56 45 52 |TIJD NEG. .. VER|
00000A30: 44 45 45 4C 44 00 4F 12 A2 4E 54 55 53 53 45 4E |DEELD.O..NTUSSEN|
00000A40: 54 49 4A 44 B2 4D 31 AC BC 28 BB 28 31 29 29 00 |TIJD.M1..(.(1)).|
00000A50: 55 12 AC 4E 8E 00 73 12 B6 4E 27 48 45 4C 50 54 |U..N..s..N'HELPT|
00000A60: 49 4A 44 20 4E B0 4D 41 41 4C 20 56 45 52 44 45 |IJD N.MAAL VERDE|
00000A70: 45 4C 44 00 85 12 CA 4E 47 B2 BB 28 31 29 3A 48 |ELD....NG..(1):H|
00000A80: B2 BB 28 31 29 00 9F 12 D4 4E 52 B2 BA 28 AB 32 |..(1)....NR..(.2|
00000A90: AC BC 28 47 29 29 3A 55 B2 32 AC 50 49 AC 48 00 |..(G)):U.2.PI.H.|
00000AA0: AC 12 DE 4E 58 B2 52 AC BE 28 55 29 00 C8 12 E8 |...NX.R..(U)....|
00000AB0: 4E 48 45 4C 50 54 49 4A 44 B2 53 50 52 45 49 44 |NHELPTIJD.SPREID|
00000AC0: 49 4E 47 AC 58 AA 4D 32 00 E1 12 F2 4E 8B 20 48 |ING.X.M2....N. H|
00000AD0: 45 4C 50 54 49 4A 44 B3 30 20 A7 20 32 30 31 37 |ELPTIJD.0 . 2017|
00000AE0: 30 00 E7 12 42 4F 8E 00 01 13 08 52 8F 20 2A 2A |0...BO.....R. **|
00000AF0: 2A 2A 20 41 46 44 52 55 4B 4B 45 4E 20 2A 2A 2A |** AFDRUKKEN ***|
00000B00: 2A 00 07 13 12 52 27 00 21 13 1C 52 99 20 55 BF |*....R'.!..R. U.|
00000B10: 47 20 22 23 23 23 23 22 3B 4B 4C 41 4E 54 4E 52 |G "####";KLANTNR|
00000B20: 3B 00 2F 13 26 52 99 20 22 20 20 20 20 22 3B 00 |;./.&R. " ";.|
00000B30: 62 13 30 52 54 54 B2 41 41 4E 4B 4F 4D 53 54 20 |b.0RTT.AANKOMST |
00000B40: 20 20 20 20 20 20 20 3A 8D 20 32 32 30 30 30 3A | :. 22000:|
00000B50: 99 20 55 BF 47 20 56 45 4C 44 24 3B 54 49 4A 44 |. U.G VELD$;TIJD|
00000B60: 24 3B 00 95 13 3A 52 54 54 B2 42 45 47 49 4E 48 |$;...:RTT.BEGINH|
00000B70: 45 4C 50 20 20 20 20 20 20 20 3A 8D 20 32 32 30 |ELP :. 220|
00000B80: 30 30 3A 99 20 55 BF 47 20 56 45 4C 44 24 3B 54 |00:. U.G VELD$;T|
00000B90: 49 4A 44 24 3B 00 C7 13 44 52 54 54 B2 56 45 52 |IJD$;...DRTT.VER|
00000BA0: 54 52 45 4B 28 4B 4C 41 4E 54 4E 52 29 3A 8D 20 |TREK(KLANTNR):. |
00000BB0: 32 32 30 30 30 3A 99 20 55 BF 47 20 56 45 4C 44 |22000:. U.G VELD|
00000BC0: 24 2C 54 49 4A 44 24 00 FA 13 4E 52 54 54 B2 57 |$,TIJD$...NRTT.W|
00000BD0: 41 43 48 54 54 49 4A 44 20 20 20 20 20 20 20 3A |ACHTTIJD :|
00000BE0: 8D 20 32 32 30 30 30 3A 99 20 55 BF 47 20 56 45 |. 22000:. U.G VE|
00000BF0: 4C 44 24 3B 54 49 4A 44 24 3B 00 10 14 58 52 99 |LD$;TIJD$;...XR.|
00000C00: 20 55 BF 47 20 22 23 23 23 23 22 3B 52 49 4A 3B | U.G "####";RIJ;|
00000C10: 00 16 14 62 52 99 00 34 14 6C 52 8B 20 28 4B 4C |...bR..4.lR. (KL|
00000C20: 41 4E 54 4E 52 20 4D 4F 44 20 32 30 29 B3 B1 30 |ANTNR MOD 20)..0|
00000C30: 20 A7 20 8E 00 5F 14 76 52 8D 20 32 31 32 30 30 | . .._.vR. 21200|
00000C40: 3A 8D 20 31 30 32 30 30 3A 27 4B 4F 50 20 4F 50 |:. 10200:'KOP OP|
00000C50: 4E 49 45 55 57 20 41 46 44 52 55 4B 4B 45 4E 00 |NIEUW AFDRUKKEN.|
00000C60: 65 14 80 52 27 00 6B 14 C6 52 8E 00 89 14 D0 52 |e..R'.k..R.....R|
00000C70: 8F 20 2A 2A 2A 2A 20 54 4F 45 54 53 20 56 52 41 |. **** TOETS VRA|
00000C80: 47 45 4E 20 2A 2A 2A 2A 2A 00 8F 14 DA 52 27 00 |GEN *****....R'.|
00000C90: 9B 14 E4 52 41 B2 B8 28 22 22 29 00 BB 14 EE 52 |...RA..("")....R|
00000CA0: 99 20 22 54 4F 45 54 53 20 4F 4D 20 44 4F 4F 52 |. "TOETS OM DOOR|
00000CB0: 20 54 45 20 47 41 41 4E 2E 22 3B 00 C5 14 F8 52 | TE GAAN.";....R|
00000CC0: 8D 20 32 31 30 00 CB 14 2A 53 8E 00 EE 14 F0 55 |. 210...*S.....U|
00000CD0: 8F 20 2A 2A 2A 2A 20 54 49 4A 44 2D 46 4F 52 4D |. **** TIJD-FORM|
00000CE0: 41 41 54 20 4D 41 4B 45 4E 20 2A 2A 2A 2A 00 F4 |AAT MAKEN ****..|
00000CF0: 14 FA 55 3A 00 0B 15 04 56 55 52 45 4E B2 B5 28 |..U:....VUREN..(|
00000D00: 54 54 AD 28 36 30 AC 36 30 29 29 00 20 15 0E 56 |TT.(60.60)). ..V|
00000D10: 54 54 B2 54 54 AB 55 52 45 4E AC 36 30 AC 36 30 |TT.TT.UREN.60.60|
00000D20: 00 32 15 18 56 4D 49 4E 55 54 45 4E B2 54 54 5C |.2..VMINUTEN.TT\|
00000D30: 36 30 00 48 15 22 56 53 45 43 91 44 45 4E B2 54 |60.H."VSEC.DEN.T|
00000D40: 54 20 4D 4F 44 20 36 30 00 5E 15 2C 56 55 55 52 |T MOD 60.^.,VUUR|
00000D50: 24 B2 C9 28 C4 28 55 52 45 4E 29 2C 32 29 00 7A |$..(.(UREN),2).z|
00000D60: 15 36 56 4D 49 4E 55 55 54 24 B2 C9 28 C4 28 4D |.6VMINUUT$..(.(M|
00000D70: 49 4E 55 54 45 4E 29 2C 32 29 00 A0 15 40 56 8B |INUTEN),2)...@V.|
00000D80: 20 4D 49 4E 55 54 45 4E B3 31 30 20 A7 20 CA 28 | MINUTEN.10 . .(|
00000D90: 4D 49 4E 55 55 54 24 2C 31 2C 31 29 B2 22 30 22 |MINUUT$,1,1)."0"|
00000DA0: 00 BC 15 4A 56 53 45 43 91 44 45 24 B2 C9 28 C4 |...JVSEC.DE$..(.|
00000DB0: 28 53 45 43 91 44 45 4E 29 2C 32 29 00 E2 15 54 |(SEC.DEN),2)...T|
00000DC0: 56 8B 20 53 45 43 91 44 45 4E B3 31 30 20 A7 20 |V. SEC.DEN.10 . |
00000DD0: CA 28 53 45 43 91 44 45 24 2C 31 2C 31 29 B2 22 |.(SEC.DE$,1,1)."|
00000DE0: 30 22 00 09 16 5E 56 54 49 4A 44 24 B2 55 55 52 |0"...^VTIJD$.UUR|
00000DF0: 24 AA 22 2E 22 AA 4D 49 4E 55 55 54 24 AA 22 2E |$.".".MINUUT$.".|
00000E00: 22 AA 53 45 43 91 44 45 24 00 0F 16 AE 56 8E 00 |".SEC.DE$....V..|
00000E10: 00 00 |.. |
....... 1000...D..".":..5.N.VE..(VE.25):
. VE.0 . VE.1.S.P.HO..(HO.41):. HO.0 . H
O.1.W.R.SP$.".........................".
..S..H(SP$,VE.1);...T...HO);:....R..IN$.
.....IN$."":. 210............ **** SIMUL
ATIE VAN HET WACHTRIJPROBLEEM ****......
10000:'INITIALISEREN.....:...L.. HOOFDL
US. .V.:.B.`.WHILE AANKOMST..SLUITINGSTI
JD.C.J.. 11000:. VOER SIMULATIE UIT.J.T.
W..Y.~.KLANTEN.K1...... AFSLUITEN.......
..D.TT.WACHT.T.KLANTEN.G.N.. 22000:. TIJ
D FORMAAT MAKEN...X.. "DE GEMIDDELDE WAC
HTTIJD IS: ";TIJD$.....TT.HELP.T.KLANTEN
.).... 22000:. TIJD FORMAAT MAKEN.T....
"DE GEMIDDELDE HELPTIJD IS : ";TIJD$.Z..
........ "BASISGEGEVENS: GEM. KLANTEN PE
R UUR : ";KPH.U.... " GEM.
BEDIENINGSTIJD : ";MINPKL;" MIN. PER K
LANT"...O......'. **** INITIALISEER ****
....':...$'. 100:KEY OFF.2..'. 10500:'BA
SISGEGEVENS VRAGEN.\.8'KLANTPS.KLANTPH.(
60.60):M1..1.KLANTPS...B'SECPKLANT.60.MI
NPKLANT :M2.SECPKLANT...L'SPREIDING..7.
M2:PI.4.A(1).G.V'STARTTIJD.9.60.60:GE.D.
3.60.60...`'SLUITINGSTIJD.STARTTIJD.GE.D
...J'. VERTREK(.(1.5.KLANTPH.GE.D.(60.60
))).,.T'VERTREK(0).STARTTIJD.C.~'WACHT.T
.0:HELP.T.0.Z..''EERSTE KLANT KOMT.`..''
.}..'. 20100:'R.OM TUSSENTIJD....'AANKOM
ST.STARTTIJD.TUSSENTIJD....'KLANTNR.1:RI
J.0...D''.H.X''KOP MAKEN.N..':.X..'. 100
....'VELD$."\ \"....(. "KLNR";
" ";.#..(. U.G VELD$;"AANKOMST";.@..(
. U.G VELD$;"BEDIENING";.[..(. U.G VELD$
;"VERTREK";.X.((. U.G VELD$;"WACHTTIJD";
...2(. U.G VELD$;"RIJLENGTE";...<(....F(
. STRING$(79,F("="))....(..H..). **** BA
....)SISGEGEVENS VRAGEN ........)'.,.6).
"DIT PROGRAMMA SIMULEERT DE GEBEURTENIS
SEN AAN EEN LOKET, ".L.@). "WAAR KLANTEN
AANKOMEN, IN EEN RIJ GAAN STAAN EN WACH
TEN"...J). "TOT ZE GEHOLPEN WORDEN."...T
).:..B.^). "WAT IS UW AANNAME VOOR HET G
EMIDDELDE"...H). "AANTAL KLANTEN PER UUR
:";...R). KLANTPH..
.|).:..@..). "WAT IS UW AANNAME VOOR DE
GEMIDDELDE DUUR".V..). "VAN DE BEDIENING
STIJD IN MINUTEN :";....). MIN
PKLANT....).:..D..). "GEEF GETAL VOOR ST
ARTPUNT RANDOM-GENERATOR :";.W..). N:R.O
MIZE(N)...B).....*. **** SIMULATIE *****
....+'.I..+. AANKOMST.VERTREK(KLANTNR.1)
. BEGINHELP.AANKOMST ELSE BEGINHELP.VER
T.H..+. AAN 11020 REK(KLANTNR-1)....+. 2
0150:'R.OM.HELPTIJD... +VERTREK(KLANTNR)
.BEGINHELP.HELPTIJD.F.*+HELP.T.HELP.T.HE
LPTIJD...4+WACHTTIJD.BEGINHELP.AANKOMST.
..>+WACHT.T.WACHT.T.WACHTTIJD...H+. 2100
0:'AFDRUKKEN.9.R+. 20100:'R.OM.TUSSENTIJ
D.Z.\+AANKOMST.AANKOMST.TUSSENTIJD.P.F+K
LANTNR.KLANTNR.1...P+K.KLANTNR:RIJ.0...Z
+WHILE AANKOMST.VERTREK(K.1)....+RIJ.RIJ
.1:K.K.1....+W..E..+.....N. **** RANDOM-
TIJDEN MAKEN VOLGENS NEG. EXP. EN NORM.
VERDELING ****....N'.5..N'TUSSENTIJD NEG
. .. VERDEELD.O..NTUSSENTIJD.M1..(.(1)).
U..N..S..N'HELPTIJD N.MAAL VERDEELD...JN
G..(1):H..(1)...TNR..(.2..(G)):U.2.PI.H.
...NX.R..(U).H..NHELPTIJD.SPREIDING.X.M2
....N. HELPTIJD.0 . 20170...BO.....R. **
** AFDRUKKEN ****....R'.!..R. U.G "####"
;KLANTNR;./.&R. " ";.B.0RTT.AANKOMST
:. 22000:. U.G VELD$;TIJD$;...:RT
T.BEGINHELP :. 22000:. U.G VELD$;T
IJD$;.G.DRTT.VERTREK(KLANTNR):. 22000:.
U.G VELD$,TIJD$...NRTT.WACHTTIJD :
. 22000:. U.G VELD$;TIJD$;...XR. U.G "##
##";RIJ;...BR..4.LR. (KLANTNR MOD 20)..0
. .._.VR. 21200:. 10200:'KOP OPNIEUW AF
DRUKKEN.E..R'.K.FR....PR. **** TOETS VRA
GEN *****...ZR'....RA..("")....R. "TOETS
OM DOOR TE GAAN.";.E..R. 210.K.*S.....U
. **** TIJD-FORMAAT MAKEN ****....U:....
VUREN..(TT.(60.60)). ..VTT.TT.UREN.60.60
.2..VMINUTEN.TT\60.H."VSEC.DEN.TT MOD 60
.^.,VUUR$.I(D(UREN),2).Z.6VMINUUT$.I(D(M
INUTEN),2). .@V. MINUTEN.10 . J(MINUUT$,
1,1)."0"...JVSEC.DE$.I(D(SEC.DEN),2)...T
V. SEC.DEN.10 . J(SEC.DE$,1,1)."0"...^VT
IJD$.UUR$.".".MINUUT$.".".SEC.DE$....V..
..
> CLICK IMAGE PREVIEW FOR FULL MODAL