BESCH.INVOER

FILE INFORMATION

FILENAME(S): BESCH.INVOER

FILE TYPE(S): PRG

FILE SIZE: 1.6K

FIRST SEEN: 2025-11-30 21:26:03

APPEARS ON: 1 disk(s)

FILE HASH

30897408219a38c13024ba05b4d4252f30bcda954c0381943841654724cdddff

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
UTILITIES 64 2	BESCH.INVOER	PRG	DuncanTwain	20	2	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 1E 08 0A 00 8F 20  42 45 53 43 48 45 52 4D  |....... BESCHERM|
00000010: 44 45 20 49 4E 56 4F 45  52 20 28 36 34 29 00 3B  |DE INVOER (64).;|
00000020: 08 0B 00 8F 20 53 55 42  52 4F 55 54 49 4E 45 20  |.... SUBROUTINE |
00000030: 56 41 4E 41 46 20 52 2E  31 30 30 00 41 08 0C 00  |VANAF R.100.A...|
00000040: 8F 00 53 08 0D 00 8F 20  49 4E 56 4F 45 52 2D 54  |..S.... INVOER-T|
00000050: 45 53 54 00 59 08 0E 00  8F 00 7C 08 14 00 49 B2  |EST.Y.....|...I.|
00000060: 32 35 35 3A 8F 20 4B 45  55 5A 45 20 27 4C 45 47  |255:. KEUZE 'LEG|
00000070: 41 4C 45 27 20 47 52 4F  45 50 45 4E 00 9C 08 1E  |ALE' GROEPEN....|
00000080: 00 49 4C B2 31 30 3A 8F  20 28 4D 41 58 2E 29 4C  |.IL.10:. (MAX.)L|
00000090: 45 4E 47 54 45 20 49 4E  56 4F 45 52 00 BC 08 28  |ENGTE INVOER...(|
000000A0: 00 49 53 B2 31 20 3A 8F  20 4E 55 4D 4D 45 52 20  |.IS.1 :. NUMMER |
000000B0: 56 41 4E 20 53 45 4C 45  4B 54 49 45 00 E3 08 32  |VAN SELEKTIE...2|
000000C0: 00 49 53 24 28 49 53 29  B2 22 41 42 43 22 3A 8F  |.IS$(IS)."ABC":.|
000000D0: 20 53 45 4C 45 4B 54 49  45 20 4B 41 52 41 4B 54  | SELEKTIE KARAKT|
000000E0: 45 52 53 00 E9 08 3C 00  8F 00 F2 08 46 00 99 22  |ERS...<.....F.."|
000000F0: 93 22 00 05 09 4B 00 8D  31 30 30 3A 99 22 91 22  |."...K..100:."."|
00000100: 3B 49 24 3A 80 00 0B 09  50 00 8F 00 25 09 5A 00  |;I$:....P...%.Z.|
00000110: 8F 20 2D 2D 2D 20 47 52  4F 45 50 45 4E 20 28 49  |. --- GROEPEN (I|
00000120: 29 20 2D 2D 2D 00 48 09  5B 00 8F 20 49 3D 20 20  |) ---.H.[.. I=  |
00000130: 31 20 3A 20 30 20 54 2F  4D 20 39 20 45 4E 20 4D  |1 : 0 T/M 9 EN M|
00000140: 49 4E 2D 54 45 4B 45 4E  00 6F 09 5C 00 8F 20 49  |IN-TEKEN.o.\.. I|
00000150: 3D 20 20 32 20 3A 20 41  20 54 2F 4D 20 5A 20 28  |=  2 : A T/M Z (|
00000160: 4B 4C 45 49 4E 45 20 4C  45 54 54 45 52 53 29 00  |KLEINE LETTERS).|
00000170: B2 09 5D 00 8F 20 49 3D  20 20 34 20 3A 20 41 20  |..].. I=  4 : A |
00000180: 54 2F 4D 20 5A 20 28 54  4F 45 54 53 45 4E 20 53  |T/M Z (TOETSEN S|
00000190: 41 4D 45 4E 20 20 20 20  20 20 20 20 20 20 20 20  |AMEN            |
000001A0: 20 20 20 20 20 20 4D 45  54 20 27 53 48 49 46 54  |      MET 'SHIFT|
000001B0: 27 29 00 F8 09 5E 00 8F  20 49 3D 20 20 38 20 3A  |')...^.. I=  8 :|
000001C0: 20 4C 45 45 53 54 45 4B  45 4E 53 20 45 2E 44 2E  | LEESTEKENS E.D.|
000001D0: 20 42 45 48 41 4C 56 45  20 20 20 20 20 20 20 20  | BEHALVE        |
000001E0: 20 20 20 20 20 20 20 20  20 41 41 4E 48 41 4C 49  |         AANHALI|
000001F0: 4E 47 53 54 45 4B 45 4E  00 43 0A 5F 00 8F 20 49  |NGSTEKEN.C._.. I|
00000200: 3D 20 31 36 20 3A 20 41  4C 4C 45 20 47 52 41 46  |= 16 : ALLE GRAF|
00000210: 2E 54 45 4B 45 4E 53 20  4D 45 54 20 43 2D 20 20  |.TEKENS MET C-  |
00000220: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 4C  |               L|
00000230: 4F 47 4F 20 54 4F 45 54  53 20 56 45 52 4B 52 45  |OGO TOETS VERKRE|
00000240: 47 45 4E 00 60 0A 60 00  8F 20 49 3D 20 33 32 20  |GEN.`.`.. I= 32 |
00000250: 3A 20 46 55 4E 4B 54 49  45 54 4F 45 54 53 45 4E  |: FUNKTIETOETSEN|
00000260: 00 85 0A 61 00 8F 20 49  3D 20 36 34 20 3A 20 53  |...a.. I= 64 : S|
00000270: 50 41 54 49 45 20 45 4E  20 53 48 49 46 54 2F 53  |PATIE EN SHIFT/S|
00000280: 50 41 54 49 45 00 A5 0A  62 00 8F 20 49 3D 31 32  |PATIE...b.. I=12|
00000290: 38 20 3A 20 53 50 45 43  49 41 4C 45 20 53 45 4C  |8 : SPECIALE SEL|
000002A0: 45 4B 54 49 45 00 B9 0A  63 00 8F 20 49 3D 32 35  |EKTIE...c.. I=25|
000002B0: 35 20 3A 20 41 4C 4C 45  53 00 CD 0A 64 00 8F 20  |5 : ALLES...d.. |
000002C0: 53 54 41 52 54 20 52 4F  55 54 49 4E 45 00 DA 0A  |START ROUTINE...|
000002D0: 65 00 8F 20 49 4E 56 4F  45 52 00 00 0B 66 00 99  |e.. INVOER...f..|
000002E0: 22 12 20 92 9D 22 3B 3A  49 24 B2 22 22 3A 49 33  |". ..";:I$."":I3|
000002F0: B2 30 3A 8B 49 B2 30 B0  49 4C B2 30 A7 31 36 38  |.0:.I.0.IL.0.168|
00000300: 00 21 0B 68 00 97 31 39  38 2C 30 3A 92 31 39 38  |.!.h..198,0:.198|
00000310: 2C 31 3A A1 49 31 24 3A  49 32 B2 C6 28 49 31 24  |,1:.I1$:I2..(I1$|
00000320: 29 00 30 0B 6A 00 8B 49  33 B2 49 4C A7 31 35 38  |).0.j..I3.IL.158|
00000330: 00 41 0B 6C 00 8B 28 49  AF 31 29 B2 30 A7 31 31  |.A.l..(I.1).0.11|
00000340: 34 00 58 0B 6E 00 8B 28  49 32 B1 34 37 AF 49 32  |4.X.n..(I2.47.I2|
00000350: B3 35 38 29 A7 31 36 34  00 6E 0B 70 00 8B 28 49  |.58).164.n.p..(I|
00000360: 33 B2 30 AF 49 32 B2 34  35 29 A7 31 36 34 00 7F  |3.0.I2.45).164..|
00000370: 0B 72 00 8B 28 49 AF 32  29 B2 30 A7 31 31 38 00  |.r..(I.2).0.118.|
00000380: 96 0B 74 00 8B 28 49 32  B1 36 34 AF 49 32 B3 39  |..t..(I2.64.I2.9|
00000390: 31 29 A7 31 36 34 00 A7  0B 76 00 8B 28 49 AF 34  |1).164...v..(I.4|
000003A0: 29 B2 30 A7 31 32 34 00  BF 0B 78 00 8B 28 49 32  |).0.124...x..(I2|
000003B0: B1 39 37 AF 49 32 B3 31  32 32 29 A7 31 36 34 00  |.97.I2.122).164.|
000003C0: D8 0B 7A 00 8B 28 49 32  B1 31 39 32 AF 49 32 B3  |..z..(I2.192.I2.|
000003D0: 32 31 39 29 A7 31 36 34  00 E9 0B 7C 00 8B 28 49  |219).164...|..(I|
000003E0: AF 38 29 B2 30 A7 31 33  36 00 F8 0B 7E 00 8B 49  |.8).0.136...~..I|
000003F0: 32 B2 33 34 A7 31 36 36  00 0F 0C 80 00 8B 28 49  |2.34.166......(I|
00000400: 32 B1 33 32 AF 49 32 B3  34 38 29 A7 31 36 34 00  |2.32.I2.48).164.|
00000410: 26 0C 82 00 8B 28 49 32  B1 35 37 AF 49 32 B3 36  |&....(I2.57.I2.6|
00000420: 35 29 A7 31 36 34 00 44  0C 84 00 8B 28 49 32 B1  |5).164.D....(I2.|
00000430: 39 30 AF 49 32 B3 39 36  29 B0 49 32 B2 31 39 32  |90.I2.96).I2.192|
00000440: A7 31 36 34 00 5D 0C 86  00 8B 28 49 32 B2 31 32  |.164.]....(I2.12|
00000450: 36 B0 49 32 B2 32 35 35  29 A7 31 36 34 00 6F 0C  |6.I2.255).164.o.|
00000460: 88 00 8B 28 49 AF 31 36  29 B2 30 A7 31 34 32 00  |...(I.16).0.142.|
00000470: 88 0C 8A 00 8B 28 49 32  B1 31 36 30 AF 49 32 B3  |.....(I2.160.I2.|
00000480: 31 39 32 29 A7 31 36 34  00 A1 0C 8C 00 8B 28 49  |192).164......(I|
00000490: 32 B1 32 32 33 AF 49 32  B3 32 35 35 29 A7 31 36  |2.223.I2.255).16|
000004A0: 34 00 B3 0C 8E 00 8B 28  49 AF 33 32 29 B2 30 A7  |4......(I.32).0.|
000004B0: 31 34 36 00 CC 0C 90 00  8B 28 49 32 B1 31 33 32  |146......(I2.132|
000004C0: AF 49 32 B3 31 34 31 29  A7 31 36 34 00 DE 0C 92  |.I2.141).164....|
000004D0: 00 8B 28 49 AF 36 34 29  B2 30 A7 31 35 30 00 FB  |..(I.64).0.150..|
000004E0: 0C 94 00 8B 49 32 B2 33  32 B0 49 32 B2 31 36 30  |....I2.32.I2.160|
000004F0: B0 49 32 B2 32 32 34 A7  31 36 34 00 19 0D 96 00  |.I2.224.164.....|
00000500: 8B 28 49 AF 31 32 38 29  B2 30 B0 49 53 24 28 49  |.(I.128).0.IS$(I|
00000510: 53 29 B2 22 22 A7 31 35  38 00 2E 0D 98 00 81 49  |S)."".158......I|
00000520: 34 B2 31 A4 C3 28 49 53  24 28 49 53 29 29 00 4D  |4.1..(IS$(IS)).M|
00000530: 0D 9A 00 8B 49 32 B2 C6  28 CA 28 49 53 24 28 49  |....I2..(.(IS$(I|
00000540: 53 29 2C 49 34 2C 31 29  29 A7 31 36 34 00 53 0D  |S),I4,1)).164.S.|
00000550: 9C 00 82 00 69 0D 9E 00  8B 49 32 B2 31 33 B0 49  |....i....I2.13.I|
00000560: 32 B2 31 34 31 A7 31 36  38 00 9F 0D A0 00 8B 49  |2.141.168......I|
00000570: 32 B2 32 30 A7 8B 49 33  B1 30 A7 49 33 B2 49 33  |2.20..I3.0.I3.I3|
00000580: AB 31 3A 49 24 B2 C8 28  49 24 2C C3 28 49 24 29  |.1:I$..(I$,.(I$)|
00000590: AB 31 29 3A 99 22 20 9D  9D 12 20 92 9D 22 3B 00  |.1):." ... ..";.|
000005A0: AF 0D A2 00 49 31 24 B2  22 22 3A 89 31 36 36 00  |....I1$."":.166.|
000005B0: D2 0D A4 00 49 33 B2 49  33 AA 31 3A 49 24 B2 49  |....I3.I3.1:I$.I|
000005C0: 24 AA 49 31 24 3A 99 49  31 24 3B 22 12 20 92 9D  |$.I1$:.I1$;". ..|
000005D0: 22 3B 00 DB 0D A6 00 89  31 30 34 00 E6 0D A8 00  |";......104.....|
000005E0: 99 22 20 22 3A 8E 00 EC  0D A9 00 8F 00 11 0E AA  |." ":...........|
000005F0: 00 8F 20 49 24 3D 52 45  53 55 4C 54 41 41 54 20  |.. I$=RESULTAAT |
00000600: 56 41 4E 20 54 4F 54 41  4C 45 20 49 4E 56 4F 45  |VAN TOTALE INVOE|
00000610: 52 00 36 0E AB 00 8F 20  49 31 24 3D 52 45 53 55  |R.6.... I1$=RESU|
00000620: 4C 54 41 41 54 20 49 4E  47 45 44 52 55 4B 54 45  |LTAAT INGEDRUKTE|
00000630: 20 54 4F 45 54 53 00 50  0E AC 00 8F 20 31 32 3D  | TOETS.P.... 12=|
00000640: 41 53 43 49 49 2D 57 41  41 52 44 45 20 49 31 24  |ASCII-WAARDE I1$|
00000650: 00 74 0E AD 00 8F 20 31  33 3D 41 43 54 55 45 45  |.t.... 13=ACTUEE|
00000660: 4C 20 41 41 4E 54 41 4C  20 4C 45 47 41 4C 45 20  |L AANTAL LEGALE |
00000670: 4B 41 52 2E 00 91 0E AE  00 8F 20 31 34 3D 54 45  |KAR....... 14=TE|
00000680: 4C 4C 45 52 20 42 49 4A  20 53 45 4C 45 4B 54 49  |LLER BIJ SELEKTI|
00000690: 45 00 00 00                                       |E...            |

....... BESCHERMDE INVOER (64).;.... SUB
ROUTINE VANAF R.100.A.....S.... INVOER-T
EST.Y.....|...I.255:. KEUZE 'LEGALE' GRO
EPEN.....IL.10:. (MAX.)LENGTE INVOER...(
.IS.1 :. NUMMER VAN SELEKTIE...2.IS$(IS)
."ABC":. SELEKTIE KARAKTERS...<.....F.."
."...K..100:.".";I$:....P...%.Z.. --- GR
OEPEN (I) ---.H.[.. I=  1 : 0 T/M 9 EN M
IN-TEKEN.O.\.. I=  2 : A T/M Z (KLEINE L
ETTERS)...].. I=  4 : A T/M Z (TOETSEN S
AMEN                  MET 'SHIFT')...^..
 I=  8 : LEESTEKENS E.D. BEHALVE        
         AANHALINGSTEKEN.C._.. I= 16 : A
LLE GRAF.TEKENS MET C-                 L
OGO TOETS VERKREGEN.`.`.. I= 32 : FUNKTI
ETOETSEN...A.. I= 64 : SPATIE EN SHIFT/S
PATIE...B.. I=128 : SPECIALE SELEKTIE...
C.. I=255 : ALLES.M.D.. START ROUTINE.Z.
E.. INVOER...F..". ..";:I$."":I3.0:.I.0.
IL.0.168.!.H..198,0:.198,1:.I1$:I2.F(I1$
).0.J..I3.IL.158.A.L..(I.1).0.114.X.N..(
I2.47.I2.58).164.N.P..(I3.0.I2.45).164.
.R..(I.2).0.118...T..(I2.64.I2.91).164..
.V..(I.4).0.124...X..(I2.97.I2.122).164.
X.Z..(I2.192.I2.219).164...|..(I.8).0.13
6...~..I2.34.166......(I2.32.I2.48).164.
&....(I2.57.I2.65).164.D....(I2.90.I2.96
).I2.192.164.]....(I2.126.I2.255).164.O.
...(I.16).0.142......(I2.160.I2.192).164
......(I2.223.I2.255).164......(I.32).0.
146.L....(I2.132.I2.141).164......(I.64)
.0.150......I2.32.I2.160.I2.224.164.....
.(I.128).0.IS$(IS)."".158......I4.1.C(IS
$(IS)).M....I2.F(J(IS$(IS),I4,1)).164.S.
....I....I2.13.I2.141.168... ..I2.20..I3
.0.I3.I3.1:I$.H(I$,C(I$).1):." ... ..";.
....I1$."":.166.R...I3.I3.1:I$.I$.I1$:.I
1$;". ..";......104......" ":...........
.. I$=RESULTAAT VAN TOTALE INVOER.6.... 
I1$=RESULTAAT INGEDRUKTE TOETS.P.... 12=
ASCII-WAARDE I1$.T.... 13=ACTUEEL AANTAL
 LEGALE KAR....... 14=TELLER BIJ SELEKTI
E...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL