PAG 19 V.B1
FILE INFORMATION
FILENAME(S): PAG 19 V.B1
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-11-30 21:24:22
APPEARS ON: 1 disk(s)
FILE HASH
308a4e2ee3d6c6d1e62d9e5cccd27f11d56aea9a9f4fa0ae766a262b987715f3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 SPEL 45 1 | PAG 19 V.B1 | PRG | DuncanTwain | 15 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 4E 08 00 00 8F 20 2D 2D 28 43 29 20 44 49 |..N.... --(C) DI|
00000010: 47 49 43 4F 4D 20 53 4F 46 54 57 41 52 45 2C 54 |GICOM SOFTWARE,T|
00000020: 41 50 45 20 42 30 31 20 2D 2D 20 20 20 20 20 20 |APE B01 -- |
00000030: 20 20 20 41 41 4E 47 45 50 41 53 54 20 56 4F 4F | AANGEPAST VOO|
00000040: 52 20 43 4F 4D 4D 4F 44 4F 52 45 20 36 34 00 6C |R COMMODORE 64.l|
00000050: 08 0A 00 8F 20 2A 2A 2A 20 41 44 52 45 53 53 45 |.... *** ADRESSE|
00000060: 4E 42 45 53 54 41 4E 44 20 2A 2A 2A 00 A7 08 14 |NBESTAND ***....|
00000070: 00 8F 20 20 20 20 20 56 4F 4F 52 42 45 45 4C 44 |.. VOORBEELD|
00000080: 20 56 41 4E 20 53 4F 52 54 45 52 45 4E 20 4D 2E | VAN SORTEREN M.|
00000090: 42 2E 56 20 20 20 20 20 20 20 20 20 20 20 20 50 |B.V P|
000000A0: 4F 49 4E 54 45 52 53 00 C3 08 1E 00 86 20 41 24 |OINTERS...... A$|
000000B0: 28 31 30 29 2C 42 24 28 31 30 2C 36 29 2C 43 28 |(10),B$(10,6),C(|
000000C0: 31 30 29 00 E7 08 28 00 8F 20 2A 2A 2A 20 49 4E |10)...(.. *** IN|
000000D0: 56 4F 45 52 45 4E 20 56 41 4E 20 47 45 47 45 56 |VOEREN VAN GEGEV|
000000E0: 45 4E 53 20 2A 2A 2A 00 ED 08 32 00 8C 00 12 09 |ENS ***...2.....|
000000F0: 3C 00 8F 20 2A 2A 20 49 4E 4C 45 5A 45 4E 20 41 |<.. ** INLEZEN A|
00000100: 41 4E 54 41 4C 20 52 55 42 52 49 45 4B 45 4E 20 |ANTAL RUBRIEKEN |
00000110: 2A 2A 00 1A 09 46 00 87 20 59 00 5C 09 50 00 8F |**...F.. Y.\.P..|
00000120: 20 2A 2A 20 49 4E 4C 45 5A 45 4E 20 56 41 4E 20 | ** INLEZEN VAN |
00000130: 44 45 20 52 55 42 52 49 45 4B 2D 20 20 20 20 20 |DE RUBRIEK- |
00000140: 20 20 20 20 20 20 20 20 20 20 20 20 4F 4D 53 43 | OMSC|
00000150: 48 52 59 56 49 4E 47 45 4E 20 2A 2A 00 6A 09 5A |HRYVINGEN **.j.Z|
00000160: 00 81 20 49 B2 31 20 A4 20 59 00 76 09 64 00 87 |.. I.1 . Y.v.d..|
00000170: 20 41 24 28 49 29 00 7E 09 6E 00 82 20 49 00 BA | A$(I).~.n.. I..|
00000180: 09 78 00 8F 20 2A 2A 20 49 4E 4C 45 5A 45 4E 20 |.x.. ** INLEZEN |
00000190: 56 41 4E 20 48 45 54 20 41 41 4E 54 41 4C 20 20 |VAN HET AANTAL |
000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001B0: 52 45 43 4F 52 44 53 20 2A 2A 00 C2 09 82 00 87 |RECORDS **......|
000001C0: 20 4E 00 E5 09 8C 00 8F 20 2A 2A 20 49 4E 4C 45 | N...... ** INLE|
000001D0: 5A 45 4E 20 56 41 4E 20 44 45 20 52 45 43 4F 52 |ZEN VAN DE RECOR|
000001E0: 44 53 20 2A 2A 00 F3 09 96 00 81 20 49 B2 31 20 |DS **...... I.1 |
000001F0: A4 20 4E 00 01 0A A0 00 81 20 4A B2 31 20 A4 20 |. N...... J.1 . |
00000200: 59 00 0F 0A AA 00 87 20 42 24 28 49 2C 4A 29 00 |Y...... B$(I,J).|
00000210: 17 0A B4 00 82 20 4A 00 1F 0A BE 00 82 20 49 00 |..... J...... I.|
00000220: 29 0A C8 00 89 20 37 38 30 00 4C 0A D2 00 8F 20 |).... 780.L.... |
00000230: 2A 2A 2A 20 53 55 42 2D 52 4F 55 54 49 4E 45 20 |*** SUB-ROUTINE |
00000240: 53 4F 52 54 45 52 45 4E 20 2A 2A 2A 00 6D 0A DC |SORTEREN ***.m..|
00000250: 00 8F 20 2A 2A 20 50 4F 49 4E 54 45 52 2D 54 41 |.. ** POINTER-TA|
00000260: 42 45 4C 20 56 55 4C 4C 45 4E 20 2A 2A 00 7B 0A |BEL VULLEN **.{.|
00000270: E6 00 81 20 49 B2 31 20 A4 20 4E 00 86 0A F0 00 |... I.1 . N.....|
00000280: 43 28 49 29 B2 49 00 8E 0A FA 00 82 20 49 00 B1 |C(I).I...... I..|
00000290: 0A 04 01 8F 20 2A 2A 20 42 49 4E 41 49 52 45 20 |.... ** BINAIRE |
000002A0: 53 4F 52 54 45 45 52 4D 45 54 48 4F 44 45 20 2A |SORTEERMETHODE *|
000002B0: 2A 00 BF 0A 0E 01 81 20 49 B2 32 20 A4 20 4E 00 |*...... I.2 . N.|
000002C0: C8 0A 18 01 58 31 B2 31 00 D1 0A 22 01 58 32 B2 |....X1.1...".X2.|
000002D0: 49 00 DC 0A 2C 01 50 B2 43 28 49 29 00 F3 0A 36 |I...,.P.C(I)...6|
000002E0: 01 58 33 B2 58 31 AA B5 28 28 58 32 AB 58 31 29 |.X3.X1..((X2.X1)|
000002F0: AD 32 29 00 00 0B 40 01 50 31 B2 43 28 58 33 29 |.2)...@.P1.C(X3)|
00000300: 00 1F 0B 4A 01 8B 20 42 24 28 50 2C 4A 29 20 B3 |...J.. B$(P,J) .|
00000310: 20 42 24 28 50 31 2C 4A 29 20 A7 20 33 37 30 00 | B$(P1,J) . 370.|
00000320: 3E 0B 54 01 8B 20 42 24 28 50 2C 4A 29 20 B1 20 |>.T.. B$(P,J) . |
00000330: 42 24 28 50 31 2C 4A 29 20 A7 20 34 30 30 00 48 |B$(P1,J) . 400.H|
00000340: 0B 5E 01 58 32 B2 58 33 00 52 0B 68 01 89 20 34 |.^.X2.X3.R.h.. 4|
00000350: 34 30 00 66 0B 72 01 8B 20 58 32 20 B2 20 58 33 |40.f.r.. X2 . X3|
00000360: 20 A7 20 34 34 30 00 70 0B 7C 01 58 32 B2 58 33 | . 440.p.|.X2.X3|
00000370: 00 7A 0B 86 01 89 20 33 31 30 00 8E 0B 90 01 8B |.z.... 310......|
00000380: 20 58 31 20 B2 20 58 33 20 A7 20 34 34 30 00 98 | X1 . X3 . 440..|
00000390: 0B 9A 01 58 31 B2 58 33 00 A2 0B A4 01 89 20 33 |...X1.X3...... 3|
000003A0: 31 30 00 B5 0B AE 01 8F 20 2A 20 57 49 53 53 45 |10...... * WISSE|
000003B0: 4C 45 4E 20 2A 00 C8 0B B8 01 8B 20 49 20 B2 20 |LEN *...... I . |
000003C0: 58 32 20 A7 20 34 38 30 00 DE 0B C2 01 81 20 58 |X2 . 480...... X|
000003D0: B2 49 20 A4 20 58 32 AA 31 20 A9 20 AB 31 00 EE |.I . X2.1 . .1..|
000003E0: 0B CC 01 43 28 58 29 B2 43 28 58 AB 31 29 00 F6 |...C(X).C(X.1)..|
000003F0: 0B D6 01 82 20 58 00 02 0C E0 01 43 28 58 32 29 |.... X.....C(X2)|
00000400: B2 50 00 0A 0C EA 01 82 20 49 00 10 0C F4 01 8E |.P...... I......|
00000410: 00 35 0C FE 01 8F 20 2A 2A 2A 20 53 55 42 2D 52 |.5.... *** SUB-R|
00000420: 4F 55 54 49 4E 45 20 55 49 54 50 52 49 4E 54 45 |OUTINE UITPRINTE|
00000430: 4E 20 2A 2A 2A 00 3D 0C 08 02 54 B2 30 00 4B 0C |N ***.=...T.0.K.|
00000440: 12 02 81 20 49 B2 31 20 A4 20 4E 00 55 0C 1C 02 |... I.1 . N.U...|
00000450: 54 B2 54 AA 31 00 68 0C 26 02 8B 20 54 20 B3 B1 |T.T.1.h.&.. T ..|
00000460: 20 31 20 A7 20 36 30 30 00 72 0C 30 02 99 22 93 | 1 . 600.r.0..".|
00000470: 22 3B 00 98 0C 3A 02 99 22 2A 2A 2A 20 41 44 52 |";...:.."*** ADR|
00000480: 45 53 53 45 4E 42 45 53 54 41 4E 44 20 2E 2E 2E |ESSENBESTAND ...|
00000490: 2E 2E 2E 20 2A 2A 2A 22 00 B9 0C 44 02 99 22 20 |... ***"...D.." |
000004A0: 20 20 20 47 45 53 4F 52 54 45 45 52 44 20 4F 50 | GESORTEERD OP|
000004B0: 20 3A 22 3B 41 24 28 4A 29 00 BF 0C 4E 02 99 00 | :";A$(J)...N...|
000004C0: CA 0C 58 02 50 B2 43 28 49 29 00 D3 0C 62 02 99 |..X.P.C(I)...b..|
000004D0: 20 49 3B 00 E1 0C 6C 02 81 20 58 B2 31 20 A4 20 | I;...l.. X.1 . |
000004E0: 59 00 F7 0C 76 02 99 20 42 24 28 50 2C 58 29 3B |Y...v.. B$(P,X);|
000004F0: 22 20 20 20 20 22 3B 00 FF 0C 80 02 82 20 58 00 |" ";...... X.|
00000500: 05 0D 8A 02 99 00 0B 0D 94 02 99 00 2A 0D 9E 02 |............*...|
00000510: 8B 20 28 54 20 B3 20 35 29 20 AF 20 28 49 20 B3 |. (T . 5) . (I .|
00000520: B1 20 4E 29 20 A7 20 37 35 30 00 30 0D A8 02 99 |. N) . 750.0....|
00000530: 00 67 0D B2 02 99 22 57 49 4C 54 20 55 20 44 45 |.g...."WILT U DE|
00000540: 20 52 45 53 54 20 56 41 4E 20 44 45 20 47 45 47 | REST VAN DE GEG|
00000550: 45 56 45 4E 53 20 5A 49 45 4E 20 20 20 20 20 4A |EVENS ZIEN J|
00000560: 41 2F 4E 45 45 20 22 00 70 0D BC 02 85 20 41 24 |A/NEE ".p.... A$|
00000570: 00 8A 0D C6 02 8B 20 C8 28 41 24 2C 31 29 20 B2 |...... .(A$,1) .|
00000580: 20 22 4E 22 20 A7 20 37 34 30 00 92 0D D0 02 54 | "N" . 740.....T|
00000590: B2 30 00 9C 0D DA 02 89 20 37 35 30 00 A4 0D E4 |.0...... 750....|
000005A0: 02 49 B2 4E 00 AC 0D EE 02 82 20 49 00 B2 0D F8 |.I.N...... I....|
000005B0: 02 8E 00 C6 0D 02 03 8F 20 2A 2A 2A 20 4B 45 55 |........ *** KEU|
000005C0: 5A 45 20 2A 2A 2A 00 D0 0D 0C 03 99 22 93 22 3B |ZE ***......".";|
000005D0: 00 F6 0D 16 03 99 22 2A 2A 2A 20 41 44 52 45 53 |......"*** ADRES|
000005E0: 53 45 4E 42 45 53 54 41 4E 44 20 3A 2E 2E 2E 2E |SENBESTAND :....|
000005F0: 2E 20 2A 2A 2A 22 00 10 0E 20 03 99 22 20 20 20 |. ***"... .." |
00000600: 20 4B 45 55 5A 45 2D 53 4F 52 54 45 52 45 4E 22 | KEUZE-SORTEREN"|
00000610: 00 16 0E 2A 03 99 00 2B 0E 34 03 99 22 20 30 20 |...*...+.4.." 0 |
00000620: 2E 2E 2E 2E 2E 2E 53 54 4F 50 22 00 39 0E 3E 03 |......STOP".9.>.|
00000630: 81 20 49 B2 31 20 A4 20 59 00 50 0E 48 03 99 20 |. I.1 . Y.P.H.. |
00000640: 49 3B 22 2E 2E 2E 2E 2E 2E 22 3B 41 24 28 49 29 |I;"......";A$(I)|
00000650: 00 58 0E 52 03 82 20 49 00 5E 0E 5C 03 99 00 84 |.X.R.. I.^.\....|
00000660: 0E 66 03 99 22 47 45 45 46 20 48 45 54 20 4E 55 |.f.."GEEF HET NU|
00000670: 4D 4D 45 52 20 56 41 4E 20 55 57 20 4B 45 55 5A |MMER VAN UW KEUZ|
00000680: 45 20 22 3B 00 8C 0E 70 03 85 20 4A 00 AA 0E 7A |E ";...p.. J...z|
00000690: 03 8B 20 28 4A 20 B3 20 30 29 20 B0 20 28 4A 20 |.. (J . 0) . (J |
000006A0: B1 20 59 29 20 A7 20 37 38 30 00 BB 0E 84 03 8B |. Y) . 780......|
000006B0: 20 4A B2 30 20 A7 20 31 30 32 30 00 C5 0E 8E 03 | J.0 . 1020.....|
000006C0: 8D 20 32 33 30 00 CF 0E 98 03 8D 20 35 32 30 00 |. 230...... 520.|
000006D0: D9 0E A2 03 89 20 37 38 30 00 00 0F AC 03 8F 20 |..... 780...... |
000006E0: 2A 2A 2A 20 41 44 52 45 53 53 45 4E 20 49 4E 20 |*** ADRESSEN IN |
000006F0: 44 41 54 41 2D 52 45 47 45 4C 53 2E 20 2A 2A 2A |DATA-REGELS. ***|
00000700: 00 29 0F B6 03 83 20 34 2C 4E 41 41 4D 2C 41 44 |.).... 4,NAAM,AD|
00000710: 52 45 53 2C 50 4F 53 54 43 4F 44 45 2C 57 4F 4F |RES,POSTCODE,WOO|
00000720: 4E 50 4C 41 41 54 53 2C 36 00 56 0F C0 03 83 20 |NPLAATS,6.V.... |
00000730: 4A 41 4E 53 53 45 4E 20 4B 2C 4B 4C 41 56 45 52 |JANSSEN K,KLAVER|
00000740: 57 45 49 44 45 34 35 2C 32 32 36 38 4B 4C 2C 4C |WEIDE45,2268KL,L|
00000750: 45 49 44 4F 52 50 00 80 0F CA 03 83 20 4B 4C 41 |EIDORP...... KLA|
00000760: 41 53 45 4E 20 4C 2C 54 55 52 46 20 37 38 2C 32 |ASEN L,TURF 78,2|
00000770: 36 38 36 4B 50 2C 53 43 48 41 41 47 44 4F 52 50 |686KP,SCHAAGDORP|
00000780: 00 B2 0F D4 03 83 20 53 43 48 4F 4C 54 45 4E 20 |...... SCHOLTEN |
00000790: 50 2C 44 4F 52 50 53 53 54 52 41 41 54 20 31 2C |P,DORPSSTRAAT 1,|
000007A0: 37 38 34 39 20 47 48 2C 41 43 48 54 45 52 42 45 |7849 GH,ACHTERBE|
000007B0: 52 47 00 E3 0F DE 03 83 20 48 4F 4C 53 54 20 59 |RG...... HOLST Y|
000007C0: 2C 41 43 48 54 45 52 44 52 45 45 46 20 31 37 38 |,ACHTERDREEF 178|
000007D0: 41 2C 32 33 30 30 58 43 2C 42 45 52 4B 45 4E 44 |A,2300XC,BERKEND|
000007E0: 41 41 4C 00 11 10 E8 03 83 20 4D 4F 45 52 53 20 |AAL...... MOERS |
000007F0: 44 2C 20 4C 49 4E 44 45 4C 41 41 4E 20 36 37 38 |D, LINDELAAN 678|
00000800: 2C 32 35 31 34 20 41 53 2C 42 4F 56 45 4E 44 59 |,2514 AS,BOVENDY|
00000810: 4B 00 3B 10 F2 03 83 20 41 41 4C 42 45 52 53 20 |K.;.... AALBERS |
00000820: 4A 2C 50 41 52 4B 57 45 47 20 33 35 2C 31 32 33 |J,PARKWEG 35,123|
00000830: 34 20 52 54 2C 5A 59 42 55 52 47 00 41 10 FC 03 |4 RT,ZYBURG.A...|
00000840: 80 00 00 00 |.... |
..N.... --(C) DIGICOM SOFTWARE,TAPE B01
-- AANGEPAST VOOR COMMODORE 64.L
.... *** ADRESSENBESTAND ***...... V
OORBEELD VAN SORTEREN M.B.V P
OINTERS.C.... A$(10),B$(10,6),C(10)...(.
. *** INVOEREN VAN GEGEVENS ***...2.....
<.. ** INLEZEN AANTAL RUBRIEKEN **...F..
Y.\.P.. ** INLEZEN VAN DE RUBRIEK-
OMSCHRYVINGEN **.J.Z.. I.1 .
Y.V.D.. A$(I).~.N.. I...X.. ** INLEZEN
VAN HET AANTAL RECORDS
**.B.... N...... ** INLEZEN VAN DE RECOR
DS **...... I.1 . N... .. J.1 . Y......
B$(I,J)...... J...... I.).H.. 780.L.R..
*** SUB-ROUTINE SORTEREN ***.M.... ** PO
INTER-TABEL VULLEN **.{.... I.1 . N.....
C(I).I...... I...... ** BINAIRE SORTEERM
ETHODE **...... I.2 . N.H...X1.1.Q.".X2.
I...,.P.C(I)...6.X3.X1..((X2.X1).2)...@.
P1.C(X3)...J.. B$(P,J) . B$(P1,J) . 370.
>.T.. B$(P,J) . B$(P1,J) . 400.H.^.X2.X3
.R.H.. 440.F.R.. X2 . X3 . 440.P.|.X2.X3
.Z.... 310...... X1 . X3 . 440.....X1.X3
...... 310...... * WISSELEN *.H.... I .
X2 . 480...B.. X.I . X2.1 . .1...L.C(X).
C(X.1)...V.. X.....C(X2).P...... I......
.5.... *** SUB-ROUTINE UITPRINTEN ***.=.
..T.0.K.... I.1 . N.U...T.T.1.H.&.. T ..
1 . 600.R.0..".";...:.."*** ADRESSENBES
TAND ...... ***"...D.." GESORTEERD OP
:";A$(J)...N...J.X.P.C(I).S.B.. I;...L.
. X.1 . Y...V.. B$(P,X);" ";...... X.
............*.... (T . 5) . (I .. N) . 7
50.0.....G...."WILT U DE REST VAN DE GEG
EVENS ZIEN JA/NEE ".P.... A$...F.. H
(A$,1) . "N" . 740...P.T.0...Z.. 750....
.I.N...... I.......F.... *** KEUZE ***.P
....".";......"*** ADRESSENBESTAND :....
. ***"... .." KEUZE-SORTEREN"...*...+
.4.." 0 ......STOP".9.>.. I.1 . Y.P.H..
I;"......";A$(I).X.R.. I.^.\.....F.."GEE
F HET NUMMER VAN UW KEUZE ";...P.. J...Z
.. (J . 0) . (J . Y) . 780...... J.0 . 1
020.E.... 230.O.... 520.Y.... 780......
*** ADRESSEN IN DATA-REGELS. ***.).... 4
,NAAM,ADRES,POSTCODE,WOONPLAATS,6.V....
JANSSEN K,KLAVERWEIDE45,2268KL,LEIDORP..
.J.. KLAASEN L,TURF 78,2686KP,SCHAAGDORP
...T.. SCHOLTEN P,DORPSSTRAAT 1,7849 GH,
ACHTERBERG...... HOLST Y,ACHTERDREEF 178
A,2300XC,BERKENDAAL...... MOERS D, LINDE
LAAN 678,2514 AS,BOVENDYK.;.... AALBERS
J,PARKWEG 35,1234 RT,ZYBURG.A.......
> CLICK IMAGE PREVIEW FOR FULL MODAL