TOP-SORT-DEMO
FILE INFORMATION
FILENAME(S): TOP-SORT-DEMO
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-11-30 21:23:33
APPEARS ON: 2 disk(s)
FILE HASH
93ca5b5f473b0040aa2a3b2810111b6b8844fc13e92ab26113a6f5dc4bffaa97
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SUPERHULP 1 2 | TOP-SORT-DEMO | PRG | DuncanTwain | 8 | 3 | DOWNLOAD FILE |
| THEMODISK | TOP-SORT-DEMO | PRG | DuncanTwain | 6 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 01 00 97 35 33 32 38 30 2C 30 3A 97 |.......53280,0:.| 00000010: 35 33 32 38 31 2C 30 3A 99 C7 28 31 35 38 29 00 |53281,0:..(158).| 00000020: 5A 08 02 00 99 22 93 20 45 56 45 4E 20 47 45 44 |Z....". EVEN GED| 00000030: 55 4C 44 3A 22 3A 99 22 12 11 20 54 4F 50 2D 53 |ULD:":.".. TOP-S| 00000040: 4F 52 54 2D 24 43 43 33 45 20 92 20 57 4F 52 44 |ORT-$CC3E . WORD| 00000050: 54 20 47 45 4C 41 44 45 4E 22 00 7D 08 03 00 8B |T GELADEN".}....| 00000060: 43 B2 30 A7 43 B2 31 3A 93 22 54 4F 50 2D 53 4F |C.0.C.1:."TOP-SO| 00000070: 52 54 2D 24 43 43 33 45 22 2C 38 2C 31 00 90 08 |RT-$CC3E",8,1...| 00000080: 04 00 86 53 24 28 32 30 29 3A 9E 35 32 32 38 36 |...S$(20):.52286| 00000090: 00 B6 08 0A 00 99 22 93 20 20 20 20 20 20 20 20 |......". | 000000A0: 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | **************| 000000B0: 2A 2A 2A 2A 2A 22 00 DD 08 0B 00 99 22 20 20 20 |*****"......" | 000000C0: 20 20 20 20 20 20 20 2A 20 12 20 54 4F 50 2D 53 | * . TOP-S| 000000D0: 4F 52 54 2D 44 45 4D 4F 20 92 20 2A 22 00 02 09 |ORT-DEMO . *"...| 000000E0: 0F 00 99 22 20 20 20 20 20 20 20 20 20 20 2A 2A |..." **| 000000F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000100: 2A 22 00 29 09 10 00 99 22 11 20 20 20 20 20 20 |*".)....". | 00000110: 20 20 20 20 12 20 54 48 45 52 4D 4F 2D 53 4F 46 | . THERMO-SOF| 00000120: 54 20 20 31 39 38 34 20 22 00 5A 09 11 00 99 22 |T 1984 ".Z...."| 00000130: 11 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.===============| 00000140: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000150: 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 8B 09 14 00 99 |========="......| 00000160: 22 12 20 55 49 54 4C 45 47 20 42 49 4A 20 47 45 |". UITLEG BIJ GE| 00000170: 42 52 55 49 4B 20 56 41 4E 20 54 4F 50 2D 53 4F |BRUIK VAN TOP-SO| 00000180: 52 54 20 3A 20 20 20 20 20 20 22 00 D5 09 1E 00 |RT : ".....| 00000190: 99 22 49 4E 20 50 52 4F 47 52 41 4D 4D 41 20 57 |."IN PROGRAMMA W| 000001A0: 4F 52 44 54 20 47 45 53 4F 52 54 45 45 52 44 20 |ORDT GESORTEERD | 000001B0: 44 4F 4F 52 3A 22 3A 99 22 11 20 20 20 20 20 20 |DOOR:":.". | 000001C0: 20 20 20 20 20 20 20 20 12 20 21 2C 41 2C 53 24 | . !,A,S$| 000001D0: 28 42 29 20 22 00 18 0A 28 00 99 22 11 21 20 3D |(B) "...(..".! =| 000001E0: 20 53 4F 52 54 45 45 52 4F 50 44 52 41 43 48 54 | SORTEEROPDRACHT| 000001F0: 20 28 4D 4F 45 54 20 49 4E 20 42 45 47 49 4E 20 | (MOET IN BEGIN | 00000200: 42 41 53 49 43 20 20 20 20 52 45 47 45 4C 20 53 |BASIC REGEL S| 00000210: 54 41 41 4E 20 21 21 29 00 43 0A 32 00 99 22 41 |TAAN !!).C.2.."A| 00000220: 20 3D 20 41 41 4E 54 41 4C 20 54 45 20 53 4F 52 | = AANTAL TE SOR| 00000230: 54 45 52 45 4E 20 53 54 52 49 4E 47 2D 4E 41 4D |TEREN STRING-NAM| 00000240: 45 4E 22 00 8E 0A 3C 00 99 22 42 20 3D 20 42 45 |EN"...<.."B = BE| 00000250: 47 49 4E 20 49 4E 20 53 54 52 49 4E 47 2D 42 45 |GIN IN STRING-BE| 00000260: 53 54 41 4E 44 2C 20 56 41 4E 20 57 41 41 52 41 |STAND, VAN WAARA| 00000270: 46 20 20 20 20 20 41 20 53 54 52 49 4E 47 2D 4E |F A STRING-N| 00000280: 41 4D 45 4E 20 53 4F 52 54 45 52 45 4E 22 00 AD |AMEN SORTEREN"..| 00000290: 0A 46 00 99 22 53 24 28 32 30 29 20 3D 20 53 54 |.F.."S$(20) = ST| 000002A0: 52 49 4E 47 2D 42 45 53 54 41 4E 44 22 00 B6 0A |RING-BESTAND"...| 000002B0: 50 00 8D 39 30 30 00 F1 0A 5A 00 99 22 11 20 20 |P..900...Z..". | 000002C0: 20 20 20 20 20 20 20 20 20 20 12 20 47 45 45 46 | . GEEF| 000002D0: 20 45 45 4E 20 54 4F 45 54 53 20 22 3A 97 31 39 | EEN TOETS ":.19| 000002E0: 38 2C 30 3A 92 31 39 38 2C 31 3A 97 31 39 38 2C |8,0:.198,1:.198,| 000002F0: 30 00 13 0B 64 00 99 22 93 12 20 54 45 53 54 20 |0...d..".. TEST | 00000300: 54 4F 50 2D 53 4F 52 54 20 4E 55 20 44 4F 4F 52 |TOP-SORT NU DOOR| 00000310: 3A 20 22 00 2E 0B 6E 00 99 22 11 53 20 3D 20 53 |: "...n..".S = S| 00000320: 54 41 52 54 20 53 4F 52 54 45 52 45 4E 22 00 51 |TART SORTEREN".Q| 00000330: 0B 78 00 99 22 4E 20 3D 20 4E 41 4D 45 4E 20 42 |.x.."N = NAMEN B| 00000340: 45 53 54 41 4E 44 20 4F 50 20 53 43 48 45 52 4D |ESTAND OP SCHERM| 00000350: 22 00 7D 0B 82 00 99 22 41 20 3D 20 41 41 4E 54 |".}...."A = AANT| 00000360: 41 4C 20 54 45 20 53 4F 52 54 45 52 45 4E 20 4E |AL TE SORTEREN N| 00000370: 41 4D 45 4E 20 4F 50 47 45 56 45 4E 22 00 A7 0B |AMEN OPGEVEN"...| 00000380: 8C 00 99 22 42 20 3D 20 42 45 47 49 4E 50 4C 41 |..."B = BEGINPLA| 00000390: 41 54 53 20 49 4E 20 42 45 53 54 41 4E 44 20 4F |ATS IN BESTAND O| 000003A0: 50 47 45 56 45 4E 22 00 D6 0B 96 00 99 22 4F 20 |PGEVEN"......"O | 000003B0: 3D 20 4F 50 4E 49 45 55 57 20 4D 45 54 20 53 54 |= OPNIEUW MET ST| 000003C0: 41 52 54 2D 42 45 53 54 41 4E 44 20 42 45 47 49 |ART-BESTAND BEGI| 000003D0: 4E 4E 45 4E 11 22 00 E9 0B A0 00 A1 47 24 3A 8B |NNEN."......G$:.| 000003E0: 47 24 B2 22 22 89 31 36 30 00 0B 0C AA 00 8B 47 |G$."".160......G| 000003F0: 24 B2 22 41 22 A7 85 22 41 3D 22 3B 41 24 3A 41 |$."A".."A=";A$:A| 00000400: B2 C5 28 41 24 29 3A 89 31 30 30 00 2D 0C B4 00 |..(A$):.100.-...| 00000410: 8B 47 24 B2 22 42 22 A7 85 22 42 3D 22 3B 42 24 |.G$."B".."B=";B$| 00000420: 3A 42 B2 C5 28 42 24 29 3A 89 31 30 30 00 3C 0C |:B..(B$):.100.<.| 00000430: BE 00 8B 47 24 B2 22 4F 22 89 31 30 00 4C 0C C8 |...G$."O".10.L..| 00000440: 00 8B 47 24 B2 22 53 22 89 34 30 30 00 5C 0C D2 |..G$."S".400.\..| 00000450: 00 8B 47 24 B2 22 4E 22 89 33 30 30 00 65 0C DC |..G$."N".300.e..| 00000460: 00 89 31 36 30 00 93 0C 2C 01 99 22 93 41 3D 22 |..160...,..".A="| 00000470: 3B 41 3B 22 20 42 3D 22 3B 42 3B 22 12 20 4E 41 |;A;" B=";B;". NA| 00000480: 4D 45 4E 20 42 45 53 54 41 4E 44 20 5A 49 4A 4E |MEN BESTAND ZIJN| 00000490: 3A 11 22 00 C3 0C 36 01 81 58 B2 30 A4 32 30 3A |:."...6..X.0.20:| 000004A0: 99 22 12 22 3B C8 28 C4 28 58 29 AA 22 20 20 20 |.".";.(.(X)." | 000004B0: 20 22 2C 34 29 3B 22 92 20 22 3B 53 24 28 58 29 | ",4);". ";S$(X)| 000004C0: 3A 82 58 00 F2 0C 40 01 99 22 11 12 20 47 45 45 |:.X...@..".. GEE| 000004D0: 46 20 45 45 4E 20 54 4F 45 54 53 22 3B 3A 97 31 |F EEN TOETS";:.1| 000004E0: 39 38 2C 30 3A 92 31 39 38 2C 31 3A 97 31 39 38 |98,0:.198,1:.198| 000004F0: 2C 30 00 FB 0C 5E 01 89 31 30 30 00 0A 0D 90 01 |,0...^..100.....| 00000500: 8B 42 B1 32 30 A7 42 B2 32 30 00 17 0D 9A 01 8B |.B.20.B.20......| 00000510: 42 B3 30 A7 42 B2 30 00 24 0D A4 01 8B 41 B3 30 |B.0.B.0.$....A.0| 00000520: A7 41 B2 30 00 37 0D AE 01 8B 41 AA 42 B1 32 31 |.A.0.7....A.B.21| 00000530: A7 41 B2 32 31 AB 42 00 4A 0D C2 01 21 2C 41 2C |.A.21.B.J...!,A,| 00000540: 53 24 28 42 29 3A 89 31 30 30 00 64 0D 84 03 8C |S$(B):.100.d....| 00000550: 3A 81 58 B2 30 A4 32 30 3A 87 53 24 28 58 29 3A |:.X.0.20:.S$(X):| 00000560: 82 58 3A 8E 00 B0 0D E8 03 83 22 53 54 4F 45 4C |.X:......."STOEL| 00000570: 22 2C 22 54 41 46 45 4C 22 2C 22 42 45 44 22 2C |","TAFEL","BED",| 00000580: 22 41 41 4E 52 45 43 48 54 22 2C 22 5A 4F 4C 44 |"AANRECHT","ZOLD| 00000590: 45 52 22 2C 22 42 55 52 4F 22 2C 22 20 43 36 34 |ER","BURO"," C64| 000005A0: 22 2C 22 43 4F 4D 4D 4F 44 4F 52 45 20 36 34 22 |","COMMODORE 64"| 000005B0: 00 FA 0D F2 03 83 22 48 4F 52 4C 4F 47 45 22 2C |......"HORLOGE",| 000005C0: 22 41 52 4D 42 41 4E 44 22 2C 22 54 41 46 45 4C |"ARMBAND","TAFEL| 000005D0: 22 2C 22 56 4F 52 4B 22 2C 22 4C 45 50 45 4C 22 |","VORK","LEPEL"| 000005E0: 2C 22 4C 45 50 45 4C 41 41 52 22 2C 22 4D 45 53 |,"LEPELAAR","MES| 000005F0: 22 2C 22 4D 45 53 53 45 4E 22 00 33 0E FC 03 83 |","MESSEN".3....| 00000600: 22 41 52 4D 45 4E 22 2C 22 41 41 4C 4D 4F 45 53 |"ARMEN","AALMOES| 00000610: 22 2C 22 50 52 4F 47 52 41 4D 4D 41 22 2C 22 46 |","PROGRAMMA","F| 00000620: 20 31 32 30 30 2C 30 30 22 2C 22 31 32 30 30 2E | 1200,00","1200.| 00000630: 30 30 22 00 00 00 |00"... |
.......53280,0:.53281,0:.G(158).Z....". EVEN GEDULD:":.".. TOP-SORT-$CC3E . WORD T GELADEN".}....C.0.C.1:."TOP-SORT-$CC3E ",8,1......S$(20):.52286......". *******************"......" * . TOP-SORT-DEMO . *"......" ** *****************".)....". . TH ERMO-SOFT 1984 ".Z....".=============== ========================="......". UITLE G BIJ GEBRUIK VAN TOP-SORT : ".U... ."IN PROGRAMMA WORDT GESORTEERD DOOR:":. ". . !,A,S$(B) "...(..".! = SORTEEROPDRACHT (MOET IN BEGIN BASIC REGEL STAAN !!).C.2.."A = AANTAL TE SOR TEREN STRING-NAMEN"...<.."B = BEGIN IN S TRING-BESTAND, VAN WAARAF A STRING-N AMEN SORTEREN"...F.."S$(20) = STRING-BES TAND"...P..900...Z..". . GEEF EEN TOETS ":.198,0:.198,1:.198,0...D.." .. TEST TOP-SORT NU DOOR: "...N..".S = S TART SORTEREN".Q.X.."N = NAMEN BESTAND O P SCHERM".}...."A = AANTAL TE SORTEREN N AMEN OPGEVEN"......"B = BEGINPLAATS IN B ESTAND OPGEVEN".V...."O = OPNIEUW MET ST ART-BESTAND BEGINNEN."... ..G$:.G$."".16 0......G$."A".."A=";A$:A.E(A$):.100.-... .G$."B".."B=";B$:B.E(B$):.100.<....G$."O ".10.L.H..G$."S".400.\.R..G$."N".300.E.. ..160...,..".A=";A;" B=";B;". NAMEN BEST AND ZIJN:.".C.6..X.0.20:.".";H(D(X)." ",4);". ";S$(X):.X...@..".. GEEF EEN TO ETS";:.198,0:.198,1:.198,0...^..100..... .B.20.B.20......B.0.B.0.$....A.0.A.0.7.. ..A.B.21.A.21.B.J.B.!,A,S$(B):.100.D.... :.X.0.20:.S$(X):.X:......."STOEL","TAFEL ","BED","AANRECHT","ZOLDER","BURO"," C64 ","COMMODORE 64"......"HORLOGE","ARMBAND ","TAFEL","VORK","LEPEL","LEPELAAR","MES ","MESSEN".3...."ARMEN","AALMOES","PROGR AMMA","F 1200,00","1200.00"...
> CLICK IMAGE PREVIEW FOR FULL MODAL