CAFETARIA
FILE INFORMATION
FILENAME(S): CAFETARIA
FILE TYPE(S): PRG
FILE SIZE: 2.9K
FIRST SEEN: 2025-12-01 02:26:15
APPEARS ON: 1 disk(s)
FILE HASH
30ba4c0a680f8ce5e91ada8a2a9d290dfd1b69e9fd2488cc4e870bd02891b4f6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HUUB GILLISSEN | CAFETARIA | PRG | hedning, shine | 28 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1A 08 1E 00 8D 31 30 30 30 3A 8F 49 4E 49 |.......1000:.INI| 00000010: 54 49 41 4C 49 53 45 52 45 4E 00 2A 08 28 00 8D |TIALISEREN.*.(..| 00000020: 32 30 30 30 3A 8F 4D 45 4E 55 00 63 08 32 00 99 |2000:.MENU.c.2..| 00000030: 48 24 3B C8 28 56 54 24 2C 31 35 29 3A 85 22 CB |H$;.(VT$,15):.".| 00000040: C5 D5 DA C5 2D CE D5 CD CD C5 D2 3A 20 22 3B 4B |....-......: ";K| 00000050: 45 55 5A 45 3A 4B 45 55 5A 45 B2 B5 28 4B 45 55 |EUZE:KEUZE..(KEU| 00000060: 5A 45 29 00 8D 08 3C 00 8B 4B 45 55 5A 45 B3 30 |ZE)...<..KEUZE.0| 00000070: 20 B0 28 4B 45 55 5A 45 B1 4E 4B 20 AF 4B 45 55 | .(KEUZE.NK .KEU| 00000080: 5A 45 B3 B1 39 39 29 20 A7 20 89 35 30 00 B4 08 |ZE..99) . .50...| 00000090: 46 00 8B 4B 45 55 5A 45 B2 39 39 20 A7 20 8D 35 |F..KEUZE.99 . .5| 000000A0: 30 30 30 3A 20 89 31 32 30 3A 8F 45 49 4E 44 53 |000: .120:.EINDS| 000000B0: 41 4C 44 4F 00 ED 08 50 00 99 48 24 3B C8 28 56 |ALDO...P..H$;.(V| 000000C0: 54 24 2C 31 37 29 3A 85 22 D4 C1 C6 C5 CC 2D CE |T$,17):.".....-.| 000000D0: D5 CD CD C5 D2 3A 20 22 3B 54 41 46 45 4C 3A 54 |.....: ";TAFEL:T| 000000E0: 41 46 45 4C B2 B5 28 54 41 46 45 4C 29 00 0A 09 |AFEL..(TAFEL)...| 000000F0: 5A 00 8B 54 41 46 45 4C B3 31 20 B0 54 41 46 45 |Z..TAFEL.1 .TAFE| 00000100: 4C B1 4E 54 20 A7 20 89 38 30 00 29 09 64 00 8B |L.NT . .80.).d..| 00000110: 4B 45 55 5A 45 B2 30 20 A7 20 8D 33 30 30 30 3A |KEUZE.0 . .3000:| 00000120: 8F 52 45 4B 45 4E 49 4E 47 00 4B 09 6E 00 8B 4B |.REKENING.K.n..K| 00000130: 45 55 5A 45 B3 B1 30 20 A7 20 8D 34 30 30 30 3A |EUZE..0 . .4000:| 00000140: 8F 42 45 53 54 45 4C 4C 49 4E 47 00 66 09 78 00 |.BESTELLING.f.x.| 00000150: 8B 4B 45 55 5A 45 B3 B1 39 39 20 B0 4F 4B B2 30 |.KEUZE..99 .OK.0| 00000160: 20 A7 20 89 34 30 00 6C 09 82 00 80 00 7F 09 E8 | . .40.l........| 00000170: 03 8F 49 4E 49 54 49 41 4C 49 53 45 52 45 4E 00 |..INITIALISEREN.| 00000180: B3 09 ED 03 48 24 B2 22 13 22 3A 20 43 4C 24 B2 |....H$.".": CL$.| 00000190: 22 93 22 3A 20 56 54 24 B2 22 11 11 11 11 11 11 |".": VT$."......| 000001A0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 000001B0: 11 11 22 00 BE 09 F2 03 99 C7 28 31 34 29 00 C9 |..".......(14)..| 000001C0: 09 F7 03 8D 31 30 30 30 30 00 F8 09 FC 03 87 4E |....10000......N| 000001D0: 4B 3A 20 86 54 28 4E 54 2C 4E 4B 29 2C 41 52 54 |K: .T(NT,NK),ART| 000001E0: 24 28 4E 4B 29 2C 50 52 59 53 28 4E 4B 29 2C 4F |$(NK),PRYS(NK),O| 000001F0: 4D 5A 45 54 28 4E 4B 29 00 23 0A 06 04 81 49 B2 |MZET(NK).#....I.| 00000200: 31 20 A4 4E 4B 3A 87 41 52 54 24 28 49 29 2C 50 |1 .NK:.ART$(I),P| 00000210: 52 59 53 28 49 29 3A 4F 4D 5A 45 54 28 49 29 B2 |RYS(I):OMZET(I).| 00000220: 30 3A 82 00 46 0A 10 04 81 49 B2 31 20 A4 4E 54 |0:..F....I.1 .NT| 00000230: 3A 81 4A B2 30 20 A4 4E 4B 3A 54 28 49 2C 4A 29 |:.J.0 .NK:T(I,J)| 00000240: B2 30 3A 82 3A 82 00 4C 0A 1A 04 8E 00 66 0A 4C |.0:.:..L.....f.L| 00000250: 04 83 31 36 3A 8F 41 41 4E 54 41 4C 20 41 52 54 |..16:.AANTAL ART| 00000260: 49 4B 45 4C 45 4E 00 77 0A 56 04 83 4B 4F 46 46 |IKELEN.w.V..KOFF| 00000270: 49 45 2C 31 2E 33 35 00 86 0A 60 04 83 54 48 45 |IE,1.35...`..THE| 00000280: 45 2C 31 2E 31 30 00 9E 0A 6A 04 83 44 49 56 2E |E,1.10...j..DIV.| 00000290: 4C 49 4D 4F 4E 41 44 45 53 2C 31 2E 35 30 00 AD |LIMONADES,1.50..| 000002A0: 0A 74 04 83 4D 45 4C 4B 2C 31 2E 32 35 00 C7 0A |.t..MELK,1.25...| 000002B0: 7E 04 83 52 4F 44 45 2F 57 49 54 54 45 20 57 49 |~..RODE/WITTE WI| 000002C0: 4A 4E 2C 32 2E 32 35 00 E0 0A 88 04 83 4D 41 52 |JN,2.25......MAR| 000002D0: 54 49 4E 49 2F 53 48 45 52 52 59 2C 32 2E 37 35 |TINI/SHERRY,2.75| 000002E0: 00 FA 0A 92 04 83 52 4F 44 45 2F 57 49 54 54 45 |......RODE/WITTE| 000002F0: 20 50 4F 52 54 2C 32 2E 37 35 00 14 0B 9C 04 83 | PORT,2.75......| 00000300: 42 49 4E 4E 45 4E 4C 2E 47 45 44 45 53 54 2E 2C |BINNENL.GEDEST.,| 00000310: 31 2E 38 30 00 2E 0B A6 04 83 42 55 49 54 45 4E |1.80......BUITEN| 00000320: 4C 2E 47 45 44 45 53 54 2E 2C 33 2E 37 35 00 49 |L.GEDEST.,3.75.I| 00000330: 0B B0 04 83 42 45 4C 45 47 44 45 20 42 52 4F 4F |....BELEGDE BROO| 00000340: 44 4A 45 53 2C 32 2E 30 30 00 60 0B BA 04 83 4B |DJES,2.00.`....K| 00000350: 52 4F 4B 45 54 2D 42 52 4F 4F 44 2C 32 2E 32 35 |ROKET-BROOD,2.25| 00000360: 00 7A 0B C4 04 83 44 49 56 2E 20 55 49 54 53 4D |.z....DIV. UITSM| 00000370: 49 4A 54 45 52 2C 34 2E 37 35 00 90 0B CE 04 83 |IJTER,4.75......| 00000380: 44 49 56 2E 20 53 4F 45 50 45 4E 2C 32 2E 35 30 |DIV. SOEPEN,2.50| 00000390: 00 A9 0B D8 04 83 42 49 45 46 53 54 55 4B 20 42 |......BIEFSTUK B| 000003A0: 52 4F 4F 44 2C 38 2E 38 35 00 BE 0B E2 04 83 48 |ROOD,8.85......H| 000003B0: 41 4C 56 45 20 48 41 41 4E 2C 37 2E 38 35 00 D1 |ALVE HAAN,7.85..| 000003C0: 0B EC 04 83 44 41 47 4D 45 4E 55 2C 31 34 2E 37 |....DAGMENU,14.7| 000003D0: 35 00 DB 0B D0 07 8F 4D 45 4E 55 00 E4 0B DA 07 |5......MENU.....| 000003E0: 99 43 4C 24 00 F0 0B E4 07 41 52 B2 4E 4B AD 32 |.CL$.....AR.NK.2| 000003F0: 00 28 0C EE 07 81 49 B2 31 20 A4 41 52 3A 99 49 |.(....I.1 .AR:.I| 00000400: 3B A3 33 29 3B 41 52 54 24 28 49 29 3B A3 31 39 |;.3);ART$(I);.19| 00000410: 29 3B 49 AA 41 52 3B A3 32 33 29 3B 41 52 54 24 |);I.AR;.23);ART$| 00000420: 28 49 AA 41 52 29 3A 82 00 49 0C F8 07 8B 41 52 |(I.AR):..I....AR| 00000430: B3 B1 B5 28 41 52 29 20 A7 99 4E 4B 3B A3 34 29 |...(AR) ..NK;.4)| 00000440: 3B 41 52 54 24 28 4E 4B 29 00 60 0C 02 08 81 49 |;ART$(NK).`....I| 00000450: B2 31 20 A4 33 39 3A 99 22 3D 22 3B 3A 82 3A 99 |.1 .39:."=";:.:.| 00000460: 00 8B 0C 0C 08 99 22 20 30 3D D2 C5 CB C5 CE C9 |......" 0=......| 00000470: CE C7 22 3B A3 32 30 29 3B 22 39 39 3D CB C1 D3 |..";.20);"99=...| 00000480: 20 C1 C6 D3 CC D5 C9 D4 C5 CE 22 00 A2 0C 16 08 | .........".....| 00000490: 81 49 B2 31 20 A4 33 39 3A 99 22 3D 22 3B 3A 82 |.I.1 .39:."=";:.| 000004A0: 3A 99 00 A8 0C 20 08 8E 00 B6 0C B8 0B 8F 52 45 |:.... ........RE| 000004B0: 4B 45 4E 49 4E 47 00 DE 0C C2 0B 99 43 4C 24 3B |KENING......CL$;| 000004C0: 22 D2 C5 CB C5 CE C9 CE C7 20 D6 CF CF D2 20 D4 |"........ .... .| 000004D0: C1 C6 C5 CC 20 22 3B 54 41 46 45 4C 3A 99 00 0E |.... ";TAFEL:...| 000004E0: 0D CC 0B 8B 54 28 54 41 46 45 4C 2C 30 29 B2 30 |....T(TAFEL,0).0| 000004F0: 20 A7 99 22 C7 C5 C5 CE 20 C2 C5 D3 D4 C5 CC CC | ..".... .......| 00000500: C9 CE C7 20 C7 C5 D0 CC C1 C1 D4 D3 D4 22 00 39 |... .........".9| 00000510: 0D D6 0B 8B 54 28 54 41 46 45 4C 2C 30 29 B3 B1 |....T(TAFEL,0)..| 00000520: 30 20 A7 20 8D 33 31 30 30 3A 8F 50 52 49 4E 54 |0 . .3100:.PRINT| 00000530: 20 42 45 44 52 41 47 45 4E 00 67 0D E0 0B 99 48 | BEDRAGEN.g....H| 00000540: 24 3B C8 28 56 54 24 2C 32 33 29 3B 22 D4 CF C5 |$;.(VT$,23);"...| 00000550: D4 D3 20 D3 D0 C1 D4 C9 C5 20 D6 CF CF D2 20 D6 |.. ...... .... .| 00000560: C5 D2 D6 CF CC C7 22 00 80 0D EA 0B A1 41 24 3A |......"......A$:| 00000570: 8B 41 24 B3 B1 22 20 22 20 A7 20 89 33 30 35 30 |.A$.." " . .3050| 00000580: 00 86 0D F4 0B 8E 00 9C 0D 1C 0C 8F 42 45 44 52 |............BEDR| 00000590: 41 47 45 4E 20 50 52 49 4E 54 45 4E 00 A6 0D 26 |AGEN PRINTEN...&| 000005A0: 0C 53 4F 4D B2 30 00 B3 0D 30 0C 81 49 B2 31 20 |.SOM.0...0..I.1 | 000005B0: A4 4E 4B 00 CB 0D 3A 0C 8B 54 28 54 41 46 45 4C |.NK...:..T(TAFEL| 000005C0: 2C 49 29 B2 30 20 A7 33 31 34 30 00 F8 0D 3C 0C |,I).0 .3140...<.| 000005D0: 42 45 44 52 41 47 B2 54 28 54 41 46 45 4C 2C 49 |BEDRAG.T(TAFEL,I| 000005E0: 29 AC 50 52 59 53 28 49 29 3A 53 4F 4D B2 53 4F |).PRYS(I):SOM.SO| 000005F0: 4D AA 42 45 44 52 41 47 00 17 0E 3F 0C 58 B2 42 |M.BEDRAG...?.X.B| 00000600: 45 44 52 41 47 3A 20 8D 37 30 30 30 3A 42 45 44 |EDRAG: .7000:BED| 00000610: 52 41 47 24 B2 58 24 00 4B 0E 42 0C 99 54 28 54 |RAG$.X$.K.B..T(T| 00000620: 41 46 45 4C 2C 49 29 3B A3 34 29 3B 41 52 54 24 |AFEL,I);.4);ART$| 00000630: 28 49 29 3B A3 33 35 AB C3 28 42 45 44 52 41 47 |(I);.35..(BEDRAG| 00000640: 24 29 29 3B 42 45 44 52 41 47 24 00 51 0E 44 0C |$));BEDRAG$.Q.D.| 00000650: 82 00 68 0E 4E 0C 81 49 B2 31 20 A4 33 39 3A 99 |..h.N..I.1 .39:.| 00000660: 22 2D 22 3B 3A 82 3A 99 00 81 0E 53 0C 58 B2 53 |"-";:.:....S.X.S| 00000670: 4F 4D 3A 20 8D 37 30 30 30 3A 53 4F 4D 24 B2 58 |OM: .7000:SOM$.X| 00000680: 24 00 A7 0E 58 0C 99 A3 32 30 29 3B 22 D4 CF D4 |$...X...20);"...| 00000690: C1 C1 CC 3A 22 3B A3 33 35 AB C3 28 53 4F 4D 24 |...:";.35..(SOM$| 000006A0: 29 29 3B 53 4F 4D 24 00 C3 0E 62 0C 81 49 B2 30 |));SOM$...b..I.0| 000006B0: 20 A4 4E 4B 3A 54 28 54 41 46 45 4C 2C 49 29 B2 | .NK:T(TAFEL,I).| 000006C0: 30 3A 82 00 C9 0E 6C 0C 8E 00 D9 0E A0 0F 8F 42 |0:....l........B| 000006D0: 45 53 54 45 4C 4C 49 4E 47 00 FF 0E AA 0F 99 48 |ESTELLING......H| 000006E0: 24 3B C8 28 56 54 24 2C 31 39 29 3A 85 22 C1 C1 |$;.(VT$,19):."..| 000006F0: CE D4 C1 CC 3A 20 20 20 20 20 20 20 22 3B 4E 00 |....: ";N.| 00000700: 4C 0F B4 0F 54 28 54 41 46 45 4C 2C 30 29 B2 31 |L...T(TAFEL,0).1| 00000710: 3A 54 28 54 41 46 45 4C 2C 4B 45 55 5A 45 29 B2 |:T(TAFEL,KEUZE).| 00000720: 54 28 54 41 46 45 4C 2C 4B 45 55 5A 45 29 AA 4E |T(TAFEL,KEUZE).N| 00000730: 3A 4F 4D 5A 45 54 28 4B 45 55 5A 45 29 B2 4F 4D |:OMZET(KEUZE).OM| 00000740: 5A 45 54 28 4B 45 55 5A 45 29 AA 4E 00 52 0F BE |ZET(KEUZE).N.R..| 00000750: 0F 8E 00 61 0F 88 13 8F 45 49 4E 44 53 41 4C 44 |...a....EINDSALD| 00000760: 4F 00 6F 0F 92 13 4F 4B B2 31 3A 99 43 4C 24 00 |O.o...OK.1:.CL$.| 00000770: 90 0F 9C 13 81 49 B2 31 20 A4 4E 54 3A 8B 54 28 |.....I.1 .NT:.T(| 00000780: 49 2C 30 29 B3 B1 30 20 A7 99 49 3A 4F 4B B2 30 |I,0)..0 ..I:OK.0| 00000790: 00 96 0F A6 13 82 00 AD 0F B0 13 8B 4F 4B 20 A7 |............OK .| 000007A0: 20 8D 35 35 30 30 3A 20 89 35 30 38 30 00 E6 0F | .5500: .5080...| 000007B0: BA 13 99 22 C2 CF D6 C5 CE D3 D4 C1 C1 CE C4 C5 |..."............| 000007C0: 20 D4 C1 C6 C5 CC 28 D3 29 20 CD CF C5 D4 C5 CE | .....(.) ......| 000007D0: 20 C5 C5 D2 D3 D4 20 CE CF C7 20 20 C1 C6 D2 C5 | ..... ... ....| 000007E0: CB C5 CE C5 CE 22 00 14 10 C4 13 99 48 24 3B C8 |....."......H$;.| 000007F0: 28 56 54 24 2C 32 33 29 3B 22 D4 CF C5 D4 D3 20 |(VT$,23);"..... | 00000800: D3 D0 C1 D4 C9 C5 20 D6 CF CF D2 20 D6 C5 D2 D6 |...... .... ....| 00000810: CF CC C7 22 00 2D 10 CE 13 A1 41 24 3A 8B 41 24 |...".-....A$:.A$| 00000820: B3 B1 22 20 22 20 A7 20 89 35 30 37 30 00 33 10 |.." " . .5070.3.| 00000830: D8 13 8E 00 40 10 7C 15 8F 54 4F 54 41 4C 45 4E |....@.|..TOTALEN| 00000840: 00 5C 10 86 15 99 43 4C 24 3B 22 C5 C9 CE C4 D2 |.\....CL$;".....| 00000850: C5 D3 D5 CC D4 C1 C1 D4 3A 22 3A 99 00 66 10 90 |........:":..f..| 00000860: 15 53 4F 4D B2 30 00 73 10 9A 15 81 49 B2 31 20 |.SOM.0.s....I.1 | 00000870: A4 4E 4B 00 9E 10 A4 15 42 45 44 52 41 47 B2 4F |.NK.....BEDRAG.O| 00000880: 4D 5A 45 54 28 49 29 AC 50 52 59 53 28 49 29 3A |MZET(I).PRYS(I):| 00000890: 53 4F 4D B2 53 4F 4D AA 42 45 44 52 41 47 00 BD |SOM.SOM.BEDRAG..| 000008A0: 10 A9 15 58 B2 42 4E FF FF FF D5 FF FF 3B FF FF |...X.BN......;..| 000008B0: FF FF FF FF FF FF FF FF D5 FF FF E3 FF FF D0 6F |...............o| 000008C0: FF FF 32 D0 DA FF FF ED FF D3 FF FF FF FF FF FF |..2.............| 000008D0: FF FF ED FF FF D3 FF FF FF FF FF F6 FF FF FF FF |................| 000008E0: FF FF FF D5 FF FF FF FF FF FF FF FF FF D4 24 00 |..............$.| 000008F0: F5 10 B8 15 82 00 0C 11 C2 15 81 49 B2 31 20 A4 |...........I.1 .| 00000900: 33 39 3A 99 22 2D 22 3B 3A 82 3A 99 00 25 11 C7 |39:."-";:.:..%..| 00000910: 15 58 B2 53 4F 4D 3A 20 8D 37 30 30 30 3A 53 4F |.X.SOM: .7000:SO| 00000920: 4D 24 B2 58 24 00 51 11 CC 15 99 A3 31 30 29 3B |M$.X$.Q.....10);| 00000930: 22 D4 CF D4 C1 CC C5 20 CF CD DA C5 D4 3A 22 3B |"...... .....:";| 00000940: A3 33 35 AB C3 28 53 4F 4D 24 29 29 3B 53 4F 4D |.35..(SOM$));SOM| 00000950: 24 00 57 11 D6 15 8E 00 7F 11 58 1B 8F 42 45 44 |$.W.......X..BED| 00000960: 52 41 47 20 56 4F 52 4D 45 4E 3B 49 4E 56 4F 45 |RAG VORMEN;INVOE| 00000970: 52 20 58 2C 20 55 49 54 56 4F 45 52 20 58 24 00 |R X, UITVOER X$.| 00000980: 94 11 62 1B 58 24 B2 CA 28 C4 28 31 30 30 AC 58 |..b.X$..(.(100.X| 00000990: 29 2C 32 29 00 B3 11 67 1B 8B C3 28 58 24 29 B3 |),2)...g...(X$).| 000009A0: 33 20 A7 58 24 B2 22 30 22 AA 58 24 3A 20 89 37 |3 .X$."0".X$: .7| 000009B0: 30 31 35 00 D4 11 6C 1B 58 24 B2 C8 28 58 24 2C |015...l.X$..(X$,| 000009C0: C3 28 58 24 29 AB 32 29 AA 22 2E 22 AA C9 28 58 |.(X$).2)."."..(X| 000009D0: 24 2C 32 29 00 DA 11 76 1B 8E 00 EA 11 10 27 8F |$,2)...v......'.| 000009E0: 20 49 4E 4C 45 49 44 49 4E 47 00 1E 12 1A 27 99 | INLEIDING....'.| 000009F0: 43 4C 24 22 D5 20 48 45 45 46 54 20 47 45 41 55 |CL$". HEEFT GEAU| 00000A00: 54 4F 4D 41 54 49 53 45 45 52 44 20 49 4E 20 D5 |TOMATISEERD IN .| 00000A10: 57 20 43 41 46 45 54 41 52 49 41 22 3A 99 00 4D |W CAFETARIA":..M| 00000A20: 12 24 27 99 22 C2 49 4A 20 45 4C 4B 45 20 42 45 |.$'.".IJ ELKE BE| 00000A30: 53 54 45 4C 4C 49 4E 47 20 54 49 4B 54 20 D5 20 |STELLING TIKT . | 00000A40: 53 4F 4F 52 54 2C 41 41 4E 54 41 4C 22 00 69 12 |SOORT,AANTAL".i.| 00000A50: 2E 27 99 22 45 4E 20 54 41 46 45 4C 4E 55 4D 4D |.'."EN TAFELNUMM| 00000A60: 45 52 20 49 4E 2E 22 3A 99 00 97 12 38 27 99 22 |ER IN.":....8'."| 00000A70: C2 49 4A 20 48 45 54 20 41 46 52 45 4B 45 4E 45 |.IJ HET AFREKENE| 00000A80: 4E 20 57 4F 52 44 54 20 56 4F 4F 52 20 45 45 4E |N WORDT VOOR EEN| 00000A90: 20 54 41 46 45 4C 22 00 C4 12 42 27 99 22 44 45 | TAFEL"...B'."DE| 00000AA0: 20 52 45 4B 45 4E 49 4E 47 20 47 45 4D 41 41 4B | REKENING GEMAAK| 00000AB0: 54 2C 20 45 4E 20 4E 41 20 53 4C 55 49 54 49 4E |T, EN NA SLUITIN| 00000AC0: 47 53 2D 22 00 E7 12 4C 27 99 22 54 49 4A 44 20 |GS-"...L'."TIJD | 00000AD0: 57 4F 52 44 54 20 44 45 20 4B 41 53 20 4F 50 47 |WORDT DE KAS OPG| 00000AE0: 45 4D 41 41 4B 54 22 00 F3 12 51 27 4D 41 58 B2 |EMAAKT"...Q'MAX.| 00000AF0: 31 30 30 00 04 13 56 27 99 48 24 C8 28 56 54 24 |100...V'.H$.(VT$| 00000B00: 2C 31 36 29 00 25 13 60 27 85 22 C8 4F 45 56 45 |,16).%.`'.".OEVE| 00000B10: 45 4C 20 54 41 46 45 4C 53 20 56 41 4E 44 41 41 |EL TAFELS VANDAA| 00000B20: 47 22 3B 41 24 00 49 13 6A 27 4E 54 B2 B5 28 C5 |G";A$.I.j'NT..(.| 00000B30: 28 41 24 29 29 3A 8B 4E 54 B3 31 B0 4E 54 B1 4D |(A$)):.NT.1.NT.M| 00000B40: 41 58 A7 89 31 30 30 37 30 00 63 13 6F 27 99 3A |AX..10070.c.o'.:| 00000B50: 99 22 C5 56 45 4E 20 47 45 44 55 4C 44 20 2E 2E |.".VEN GEDULD ..| 00000B60: 2E 2E 22 00 69 13 74 27 8E 00 00 00 |..".i.t'.... |
.......1000:.INITIALISEREN.*.(..2000:.ME NU.C.2..H$;H(VT$,15):."KEUZE-NUMMER: ";K EUZE:KEUZE..(KEUZE)...<..KEUZE.0 .(KEUZE .NK .KEUZE..99) . .50...F..KEUZE.99 . .5 000: .120:.EINDSALDO...P..H$;H(VT$,17):. "TAFEL-NUMMER: ";TAFEL:TAFEL..(TAFEL)... Z..TAFEL.1 .TAFEL.NT . .80.).D..KEUZE.0 . .3000:.REKENING.K.N..KEUZE..0 . .4000: .BESTELLING.F.X..KEUZE..99 .OK.0 . .40.L .........INITIALISEREN.....H$.".": CL$. ".": VT$."........................"..... .G(14).I....10000......NK: .T(NT,NK),ART $(NK),PRYS(NK),OMZET(NK).#....I.1 .NK:.A RT$(I),PRYS(I):OMZET(I).0:..F....I.1 .NT :.J.0 .NK:T(I,J).0:.:..L.....F.L..16:.AA NTAL ARTIKELEN.W.V..KOFFIE,1.35...`..THE E,1.10...J..DIV.LIMONADES,1.50...T..MELK ,1.25.G.~..RODE/WITTE WIJN,2.25......MAR TINI/SHERRY,2.75......RODE/WITTE PORT,2. 75......BINNENL.GEDEST.,1.80......BUITEN L.GEDEST.,3.75.I....BELEGDE BROODJES,2.0 0.`....KROKET-BROOD,2.25.Z.D..DIV. UITSM IJTER,4.75...N..DIV. SOEPEN,2.50...X..BI EFSTUK BROOD,8.85......HALVE HAAN,7.85.Q ....DAGMENU,14.75...P..MENU...Z..CL$.... .AR.NK.2.(....I.1 .AR:.I;.3);ART$(I);.19 );I.AR;.23);ART$(I.AR):..I....AR...(AR) ..NK;.4);ART$(NK).`....I.1 .39:."=";:.:. ......" 0=REKENING";.20);"99=KAS AFSLUIT EN"......I.1 .39:."=";:.:.... ........RE KENING...B..CL$;"REKENING VOOR TAFEL ";T AFEL:....L..T(TAFEL,0).0 .."GEEN BESTELL ING GEPLAATST".9.V..T(TAFEL,0)..0 . .310 0:.PRINT BEDRAGEN.G....H$;H(VT$,23);"TOE TS SPATIE VOOR VERVOLG"......A$:.A$.." " . .3050............BEDRAGEN PRINTEN...& .SOM.0...0..I.1 .NK.K.:..T(TAFEL,I).0 .3 140...<.BEDRAG.T(TAFEL,I).PRYS(I):SOM.SO M.BEDRAG...?.X.BEDRAG: .7000:BEDRAG$.X$. K.B..T(TAFEL,I);.4);ART$(I);.35.C(BEDRAG $));BEDRAG$.Q.D...H.N..I.1 .39:."-";:.:. ...S.X.SOM: .7000:SOM$.X$...X...20);"TOT AAL:";.35.C(SOM$));SOM$.C.B..I.0 .NK:T(T AFEL,I).0:..I.L...Y. ..BESTELLING......H $;H(VT$,19):."AANTAL: ";N.L...T(TA FEL,0).1:T(TAFEL,KEUZE).T(TAFEL,KEUZE).N :OMZET(KEUZE).OMZET(KEUZE).N.R.....A.... EINDSALDO.O...OK.1:.CL$......I.1 .NT:.T( I,0)..0 ..I:OK.0............OK . .5500: .5080......"BOVENSTAANDE TAFEL(S) MOETEN EERST NOG AFREKENEN"...D..H$;H(VT$,23) ;"TOETS SPATIE VOOR VERVOLG".-.N..A$:.A$ .." " . .5070.3.X...@.|..TOTALEN.\....CL $;"EINDRESULTAAT:":..F...SOM.0.S....I.1 .NK.....BEDRAG.OMZET(I).PRYS(I):SOM.SOM. BEDRAG.....X.BN...U..;..........U.....PO ..2PZ....S...........S.............U.... .....T$.........B..I.1 .39:."-";:.:..%.G .X.SOM: .7000:SOM$.X$.Q.L...10);"TOTALE OMZET:";.35.C(SOM$));SOM$.W.V....X..BED RAG VORMEN;INVOER X, UITVOER X$...B.X$.J (D(100.X),2)...G..C(X$).3 .X$."0".X$: .7 015.T.L.X$.H(X$,C(X$).2).".".I(X$,2).Z.V ......'. INLEIDING....'.CL$"U HEEFT GEAU TOMATISEERD IN UW CAFETARIA":..M.$'."BIJ ELKE BESTELLING TIKT U SOORT,AANTAL".I. .'."EN TAFELNUMMER IN.":....8'."BIJ HET AFREKENEN WORDT VOOR EEN TAFEL".D.B'."DE REKENING GEMAAKT, EN NA SLUITINGS-"...L '."TIJD WORDT DE KAS OPGEMAAKT"...Q'MAX. 100...V'.H$H(VT$,16).%.`'."HOEVEEL TAFEL S VANDAAG";A$.I.J'NT..(E(A$)):.NT.1.NT.M AX..10070.C.O'.:."EVEN GEDULD ....".I.T' ....
> CLICK IMAGE PREVIEW FOR FULL MODAL