Multiple names: ALFABETISEREN, ALFASORT
FILE INFORMATION
FILENAME(S):
• ALFABETISEREN<br>• ALFASORT
FILE TYPE(S): PRG
FILE SIZE: 4.9K
FIRST SEEN: 2025-11-30 21:27:38
APPEARS ON: 2 disk(s)
FILE HASH
036e9d2e63bba97fb90218e12617f07a98bd938a15270feac3bece9c8bc93aa0
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| EDUCATIEF | ALFABETISEREN | PRG | DuncanTwain | 8 | 0 | DOWNLOAD FILE |
| TIGA | ALFASORT | PRG | DuncanTwain | 16 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 12 08 00 00 8F 20 44 55 4D 4D 59 52 45 47 |....... DUMMYREG|
00000010: 45 4C 00 33 08 0A 00 41 B2 31 30 30 30 3A 89 32 |EL.3...A.1000:.2|
00000020: 31 39 30 3A 8F 20 41 4C 46 41 42 45 54 49 53 45 |190:. ALFABETISE|
00000030: 52 45 4E 00 63 08 14 00 99 C8 28 22 13 11 11 11 |REN.c.....("....|
00000040: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000050: 11 11 11 11 11 22 2C B6 28 B5 28 56 45 AA 31 29 |.....",.(.(VE.1)|
00000060: 29 29 3B 00 73 08 1E 00 99 A6 B6 28 48 4F 29 29 |));.s......(HO))|
00000070: 3B 3A 8E 00 98 08 28 00 48 4F B2 C2 28 32 30 39 |;:....(.HO..(209|
00000080: 29 AA 32 35 36 AC C2 28 32 31 30 29 AB 31 30 32 |).256..(210).102|
00000090: 34 AA C2 28 32 31 31 29 00 B6 08 32 00 56 45 B2 |4..(211)...2.VE.|
000000A0: B5 28 48 4F AD 34 30 29 3A 48 4F B2 48 4F AB 34 |.(HO.40):HO.HO.4|
000000B0: 30 AC 56 45 3A 8E 00 C1 08 3C 00 A1 49 4E 24 3A |0.VE:....<..IN$:|
000000C0: 8E 00 D5 08 46 00 A1 49 4E 24 3A 8B 49 4E 24 B2 |....F..IN$:.IN$.|
000000D0: 22 22 89 37 30 00 DB 08 50 00 8E 00 08 09 5A 00 |"".70...P.....Z.|
000000E0: 97 35 34 32 39 36 2C 31 35 3A 97 35 34 32 37 38 |.54296,15:.54278|
000000F0: 2C 32 35 35 3A 97 35 34 32 37 33 2C 39 35 3A 97 |,255:.54273,95:.|
00000100: 35 34 32 37 36 2C 31 37 00 1A 09 64 00 81 4F 4F |54276,17...d..OO|
00000110: B2 31 A4 32 30 30 3A 82 4F 4F 00 3B 09 6E 00 97 |.1.200:.OO.;.n..|
00000120: 35 34 32 37 36 2C 30 3A 97 35 34 32 37 37 2C 30 |54276,0:.54277,0|
00000130: 3A 97 35 34 32 37 38 2C 30 3A 8E 00 60 09 78 00 |:.54278,0:..`.x.|
00000140: 53 52 24 B2 22 22 3A 8B 53 52 B1 B2 31 30 AE 28 |SR$."":.SR..10.(|
00000150: 43 54 AB 43 4E AB B4 28 43 4E 29 29 A7 32 30 30 |CT.CN..(CN)).200|
00000160: 00 7B 09 82 00 8B 53 52 B3 AB 2E 35 AC 31 30 AE |.{....SR...5.10.|
00000170: AB 43 4E A7 53 52 24 B2 22 2D 22 00 A2 09 8C 00 |.CN.SR$."-".....|
00000180: 53 52 24 B2 53 52 24 AA CA 28 C4 28 B5 28 B6 28 |SR$.SR$..(.(.(.(|
00000190: 53 52 29 AA 2E 35 AC 31 30 AE AB 43 4E 29 29 2C |SR)..5.10..CN)),|
000001A0: 32 29 00 CD 09 96 00 8B C3 28 53 52 24 29 B3 43 |2).......(SR$).C|
000001B0: 54 AB 43 4E AA 28 43 4E B3 B1 30 29 A7 53 52 24 |T.CN.(CN..0).SR$|
000001C0: B2 22 20 22 AA 53 52 24 3A 89 31 35 30 00 E7 09 |." ".SR$:.150...|
000001D0: A0 00 8B 43 4E B2 30 B0 B6 28 53 52 29 B1 B2 31 |...CN.0..(SR)..1|
000001E0: 45 31 30 89 31 38 30 00 1B 0A AA 00 53 52 24 B2 |E10.180.....SR$.|
000001F0: 53 52 24 AA CA 28 C4 28 31 AA B6 28 53 52 29 AB |SR$..(.(1..(SR).|
00000200: B5 28 B6 28 53 52 29 29 AA 2E 35 AC 31 30 AE AB |.(.(SR))..5.10..|
00000210: 43 4E 29 2C 33 2C 43 4E AA 31 29 00 3B 0A B4 00 |CN),3,CN.1).;...|
00000220: 8B C3 28 53 52 24 29 B3 43 54 A7 53 52 24 B2 53 |..(SR$).CT.SR$.S|
00000230: 52 24 AA 22 20 22 3A 89 31 38 30 00 51 0A BE 00 |R$." ":.180.Q...|
00000240: 8B C3 28 53 52 24 29 B1 43 54 A7 53 52 24 B2 22 |..(SR$).CT.SR$."|
00000250: 22 00 71 0A C8 00 8B C3 28 53 52 24 29 B3 43 54 |".q.....(SR$).CT|
00000260: A7 53 52 24 B2 53 52 24 AA 22 2A 22 3A 89 32 30 |.SR$.SR$."*":.20|
00000270: 30 00 77 0A D2 00 8E 00 91 0A DC 00 41 57 B2 30 |0.w.........AW.0|
00000280: 3A 8F 20 41 41 4E 54 41 4C 20 57 4F 4F 52 44 45 |:. AANTAL WOORDE|
00000290: 4E 00 A4 0A E6 00 48 4F B2 30 3A 56 45 B2 34 AA |N.....HO.0:VE.4.|
000002A0: 32 AC 41 57 00 B3 0A F0 00 8B 41 57 B3 35 20 A7 |2.AW......AW.5 .|
000002B0: 32 36 30 00 C7 0A FA 00 48 4F B2 31 39 3A 56 45 |260.....HO.19:VE|
000002C0: B2 32 AC 41 57 AB 36 00 CF 0A 04 01 8D 32 30 00 |.2.AW.6......20.|
000002D0: EA 0A 0E 01 53 52 B2 41 57 AA 31 3A 43 54 B2 32 |....SR.AW.1:CT.2|
000002E0: 3A 43 4E B2 30 3A 8D 31 32 30 00 0F 0B 18 01 99 |:CN.0:.120......|
000002F0: 53 52 24 3B 22 20 22 3B 3A 4D 4C B2 39 3A 8D 31 |SR$;" ";:ML.9:.1|
00000300: 39 35 30 3A 8B 41 24 B2 22 22 20 A7 33 34 30 00 |950:.A$."" .340.|
00000310: 24 0B 22 01 8D 34 38 30 3A 8B 41 57 B3 31 30 20 |$."..480:.AW.10 |
00000320: A7 32 33 30 00 2E 0B 2C 01 8D 31 36 34 30 00 41 |.230...,..1640.A|
00000330: 0B 36 01 48 4F B2 30 3A 56 45 B2 32 33 3A 8D 32 |.6.HO.0:VE.23:.2|
00000340: 30 00 6E 0B 40 01 99 22 4D 45 54 20 3C 52 45 54 |0.n.@.."MET <RET|
00000350: 55 52 4E 3E 20 53 54 41 52 54 20 48 45 54 20 53 |URN> START HET S|
00000360: 4F 52 54 45 52 45 4E 2E 2E 2E 20 20 22 3B 00 87 |ORTEREN... ";..|
00000370: 0B 4A 01 8D 37 30 3A 8B C6 28 49 4E 24 29 B3 B1 |.J..70:..(IN$)..|
00000380: 31 33 20 A7 33 33 30 00 97 0B 54 01 8B 41 57 B2 |13 .330...T..AW.|
00000390: 30 20 A7 32 32 33 30 00 AC 0B 5E 01 8D 37 32 30 |0 .2230...^..720|
000003A0: 3A 8F 20 4F 56 45 52 5A 49 43 48 54 00 C3 0B 68 |:. OVERZICHT...h|
000003B0: 01 8D 36 31 30 3A 8F 20 53 4E 45 4C 53 4F 52 54 |..610:. SNELSORT|
000003C0: 45 45 52 00 D6 0B 72 01 48 4F B2 32 39 3A 81 49 |EER...r.HO.29:.I|
000003D0: B2 31 20 A4 41 57 00 F1 0B 7C 01 56 45 B2 32 AC |.1 .AW...|.VE.2.|
000003E0: 49 AA 31 3A 8D 32 30 3A 99 53 24 28 49 29 3A 82 |I.1:.20:.S$(I):.|
000003F0: 49 00 04 0C 86 01 48 4F B2 30 3A 56 45 B2 32 33 |I.....HO.0:VE.23|
00000400: 3A 8D 32 30 00 34 0C 90 01 99 22 57 49 4C 20 4A |:.20.4...."WIL J|
00000410: 45 20 44 41 54 20 4E 55 20 57 41 54 20 4C 41 4E |E DAT NU WAT LAN|
00000420: 47 5A 41 4D 45 52 20 5A 49 45 4E 20 3F 20 22 3B |GZAMER ZIEN ? ";|
00000430: 3A 8D 37 30 00 45 0C 9A 01 8B 49 4E 24 B2 22 4E |:.70.E....IN$."N|
00000440: 22 A7 34 37 30 00 57 0C A4 01 8B 49 4E 24 B3 B1 |".470.W....IN$..|
00000450: 22 4A 22 A7 33 39 30 00 6C 0C AE 01 8D 37 32 30 |"J".390.l....720|
00000460: 3A 8F 20 4F 56 45 52 5A 49 43 48 54 00 82 0C B8 |:. OVERZICHT....|
00000470: 01 8D 39 31 30 3A 8F 20 4F 50 53 43 48 55 49 56 |..910:. OPSCHUIV|
00000480: 45 4E 00 9A 0C C2 01 8D 39 39 30 3A 8F 20 54 52 |EN......990:. TR|
00000490: 41 41 47 53 4F 52 54 45 45 52 00 AD 0C CC 01 8D |AAGSORTEER......|
000004A0: 31 37 39 30 3A 8F 20 53 50 41 54 49 45 00 B7 0C |1790:. SPATIE...|
000004B0: D6 01 89 32 33 34 30 00 D8 0C E0 01 8F 20 53 55 |...2340...... SU|
000004C0: 42 52 20 43 4F 4E 54 52 4F 4C 45 45 52 20 20 57 |BR CONTROLEER W|
000004D0: 4F 4F 52 44 20 20 41 24 00 E1 0C EA 01 4C 45 B2 |OORD A$.....LE.|
000004E0: 30 00 F2 0C F4 01 81 56 4B B2 31 20 A4 C3 28 41 |0......VK.1 ..(A|
000004F0: 24 29 00 07 0D FE 01 56 42 B2 C6 28 CA 28 41 24 |$).....VB..(.(A$|
00000500: 2C 56 4B 2C 31 29 29 00 22 0D 08 02 8B 28 56 42 |,VK,1))."....(VB|
00000510: B1 36 34 29 20 AF 28 56 42 B3 39 31 29 20 A7 35 |.64) .(VB.91) .5|
00000520: 35 30 00 43 0D 12 02 8B 28 56 42 B1 36 34 AA 48 |50.C....(VB.64.H|
00000530: 4C 29 20 AF 28 56 42 B3 39 31 AA 48 4C 29 20 A7 |L) .(VB.91.HL) .|
00000540: 35 35 30 00 4C 0D 1C 02 4C 45 B2 31 00 54 0D 26 |550.L...LE.1.T.&|
00000550: 02 82 56 4B 00 63 0D 30 02 8B 4C 45 B2 30 20 A7 |..VK.c.0..LE.0 .|
00000560: 35 39 30 00 94 0D 3A 02 45 45 24 B2 22 57 4F 4F |590...:.EE$."WOO|
00000570: 52 44 20 42 45 56 41 54 20 4E 49 45 54 20 41 4C |RD BEVAT NIET AL|
00000580: 4C 45 45 4E 20 4D 41 41 52 20 4C 45 54 54 45 52 |LEEN MAAR LETTER|
00000590: 53 20 21 22 00 A3 0D 44 02 8D 31 36 39 30 3A 89 |S !"...D..1690:.|
000005A0: 36 30 30 00 BA 0D 4E 02 41 57 B2 41 57 AA 31 3A |600...N.AW.AW.1:|
000005B0: 57 4F 24 28 41 57 29 B2 41 24 00 C0 0D 58 02 8E |WO$(AW).A$...X..|
000005C0: 00 D7 0D 62 02 8F 20 53 55 42 52 20 53 4E 45 4C |...b.. SUBR SNEL|
000005D0: 53 4F 52 54 45 45 52 00 E0 0D 6C 02 8D 37 39 30 |SORTEER...l..790|
000005E0: 00 EF 0D 76 02 8B 41 57 B2 31 20 A7 37 31 30 00 |...v..AW.1 .710.|
000005F0: FE 0D 80 02 81 49 B2 31 20 A4 41 57 AB 31 00 0D |.....I.1 .AW.1..|
00000600: 0E 8A 02 81 4A B2 49 AA 31 20 A4 41 57 00 24 0E |....J.I.1 .AW.$.|
00000610: 94 02 8B 57 24 28 49 29 B3 B2 57 24 28 4A 29 20 |...W$(I)..W$(J) |
00000620: A7 36 39 30 00 48 0E 9E 02 46 54 24 B2 57 24 28 |.690.H...FT$.W$(|
00000630: 49 29 3A 57 24 28 49 29 B2 57 24 28 4A 29 3A 57 |I):W$(I).W$(J):W|
00000640: 24 28 4A 29 B2 46 54 24 00 6C 0E A8 02 46 54 24 |$(J).FT$.l...FT$|
00000650: B2 53 24 28 49 29 3A 53 24 28 49 29 B2 53 24 28 |.S$(I):S$(I).S$(|
00000660: 4A 29 3A 53 24 28 4A 29 B2 46 54 24 00 73 0E B2 |J):S$(J).FT$.s..|
00000670: 02 82 4A 00 7A 0E BC 02 82 49 00 80 0E C6 02 8E |..J.z....I......|
00000680: 00 95 0E D0 02 8F 20 53 55 42 52 20 4F 56 45 52 |...... SUBR OVER|
00000690: 5A 49 43 48 54 00 AB 0E DA 02 99 22 93 4F 4E 47 |ZICHT......".ONG|
000006A0: 45 53 4F 52 54 45 45 52 44 22 3B 00 CC 0E E4 02 |ESORTEERD";.....|
000006B0: 48 4F B2 32 39 3A 56 45 B2 30 3A 8D 32 30 3A 99 |HO.29:VE.0:.20:.|
000006C0: 22 47 45 53 4F 52 54 45 45 52 44 22 00 D9 0E EE |"GESORTEERD"....|
000006D0: 02 81 49 B2 31 20 A4 41 57 00 F7 0E F8 02 48 4F |..I.1 .AW.....HO|
000006E0: B2 30 3A 56 45 B2 32 AC 49 AA 31 3A 8D 32 30 3A |.0:VE.2.I.1:.20:|
000006F0: 99 57 4F 24 28 49 29 00 FE 0E 02 03 82 49 00 04 |.WO$(I)......I..|
00000700: 0F 0C 03 8E 00 26 0F 16 03 8F 20 53 55 42 52 20 |.....&.... SUBR |
00000710: 5A 45 54 20 4F 4D 20 49 4E 20 48 4F 4F 46 44 4C |ZET OM IN HOOFDL|
00000720: 45 54 54 45 52 53 00 33 0F 20 03 81 49 B2 31 20 |ETTERS.3. ..I.1 |
00000730: A4 41 57 00 3D 0F 2A 03 41 24 B2 22 22 00 51 0F |.AW.=.*.A$."".Q.|
00000740: 34 03 81 4A B2 31 20 A4 C3 28 57 4F 24 28 49 29 |4..J.1 ..(WO$(I)|
00000750: 29 00 68 0F 3E 03 42 B2 C6 28 CA 28 57 4F 24 28 |).h.>.B..(.(WO$(|
00000760: 49 29 2C 4A 2C 31 29 29 00 7A 0F 48 03 8B 42 B3 |I),J,1)).z.H..B.|
00000770: 39 36 20 A7 42 B2 42 AA 48 4C 00 89 0F 52 03 41 |96 .B.B.HL...R.A|
00000780: 24 B2 41 24 AA C7 28 42 29 00 90 0F 5C 03 82 4A |$.A$..(B)...\..J|
00000790: 00 9D 0F 66 03 57 24 28 49 29 B2 41 24 00 AE 0F |...f.W$(I).A$...|
000007A0: 70 03 53 24 28 49 29 B2 57 4F 24 28 49 29 00 B5 |p.S$(I).WO$(I)..|
000007B0: 0F 7A 03 82 49 00 BB 0F 84 03 8E 00 D2 0F 8E 03 |.z..I...........|
000007C0: 8F 20 53 55 42 52 4F 55 54 49 4E 45 20 53 48 49 |. SUBROUTINE SHI|
000007D0: 46 54 00 E6 0F 98 03 81 49 B2 31 20 A4 32 39 3A |FT......I.1 .29:|
000007E0: 48 4F B2 49 AB 31 00 F3 0F A2 03 81 4A B2 31 20 |HO.I.1......J.1 |
000007F0: A4 41 57 00 04 10 AC 03 56 45 B2 32 AC 4A AA 31 |.AW.....VE.2.J.1|
00000800: 3A 8D 32 30 00 28 10 B6 03 99 CA 28 57 4F 24 28 |:.20.(.....(WO$(|
00000810: 4A 29 AA C8 28 4C 45 24 2C 32 39 29 2C 49 2C 31 |J)..(LE$,29),I,1|
00000820: 29 3B 57 4F 24 28 4A 29 00 2F 10 C0 03 82 4A 00 |);WO$(J)./....J.|
00000830: 36 10 CA 03 82 49 00 3C 10 D4 03 8E 00 54 10 DE |6....I.<.....T..|
00000840: 03 8F 20 53 55 42 52 20 54 52 41 41 47 53 4F 52 |.. SUBR TRAAGSOR|
00000850: 54 45 45 52 00 5D 10 E8 03 8D 37 39 30 00 6A 10 |TEER.]....790.j.|
00000860: F2 03 8B 41 57 B2 31 20 A7 8E 00 79 10 FC 03 81 |...AW.1 ...y....|
00000870: 58 B2 31 20 A4 41 57 AB 31 00 81 10 06 04 42 B2 |X.1 .AW.1.....B.|
00000880: 58 00 90 10 10 04 81 59 B2 58 AA 31 20 A4 41 57 |X......Y.X.1 .AW|
00000890: 00 A6 10 1A 04 8B 57 24 28 42 29 B1 57 24 28 59 |......W$(B).W$(Y|
000008A0: 29 20 A7 42 B2 59 00 AD 10 24 04 82 59 00 BD 10 |) .B.Y...$..Y...|
000008B0: 2E 04 8B 42 B1 58 20 A7 8D 31 31 30 30 00 C4 10 |...B.X ..1100...|
000008C0: 38 04 82 58 00 CA 10 42 04 8E 00 E8 10 4C 04 8F |8..X...B.....L..|
000008D0: 20 53 55 42 52 20 56 45 52 57 49 53 53 45 4C 20 | SUBR VERWISSEL |
000008E0: 20 58 20 45 4E 20 20 42 00 FE 10 56 04 49 52 B2 | X EN B...V.IR.|
000008F0: 32 AC 58 AA 31 3A 4A 52 B2 32 AC 42 AA 31 00 11 |2.X.1:JR.2.B.1..|
00000900: 11 60 04 4A 43 B2 32 38 AB C3 28 53 24 28 42 29 |.`.JC.28..(S$(B)|
00000910: 29 00 26 11 6A 04 49 43 B2 4A 43 AB C3 28 53 24 |).&.j.IC.JC..(S$|
00000920: 28 58 29 29 AB 31 00 38 11 74 04 8B 58 AA 31 B2 |(X)).1.8.t..X.1.|
00000930: 42 20 A7 49 43 B2 32 39 00 56 11 7E 04 8F 2D 2D |B .IC.29.V.~..--|
00000940: 20 53 43 48 55 49 46 20 53 24 28 42 29 20 45 52 | SCHUIF S$(B) ER|
00000950: 55 49 54 20 2D 2D 00 69 11 88 04 81 48 4F B2 32 |UIT --.i....HO.2|
00000960: 39 20 A4 4A 43 20 A9 AB 31 00 73 11 92 04 8D 31 |9 .JC ..1.s....1|
00000970: 35 30 30 00 8C 11 9C 04 56 45 B2 4A 52 3A 8D 32 |500.....VE.JR:.2|
00000980: 30 3A 99 53 24 28 42 29 3B 22 20 22 00 94 11 A6 |0:.S$(B);" "....|
00000990: 04 82 48 4F 00 B2 11 B0 04 8F 2D 2D 20 53 43 48 |..HO......-- SCH|
000009A0: 55 49 46 20 53 24 28 58 29 20 45 52 55 49 54 20 |UIF S$(X) ERUIT |
000009B0: 2D 2D 00 C3 11 BA 04 8B 49 43 B1 32 38 20 A7 31 |--......IC.28 .1|
000009C0: 32 36 30 00 D6 11 C4 04 81 48 4F B2 32 39 20 A4 |260......HO.29 .|
000009D0: 49 43 20 A9 AB 31 00 E0 11 CE 04 8D 31 35 30 30 |IC ..1......1500|
000009E0: 00 F9 11 D8 04 56 45 B2 49 52 3A 8D 32 30 3A 99 |.....VE.IR:.20:.|
000009F0: 53 24 28 58 29 3B 22 20 22 00 01 12 E2 04 82 48 |S$(X);" "......H|
00000A00: 4F 00 23 12 EC 04 8F 20 53 43 48 55 49 46 20 57 |O.#.... SCHUIF W|
00000A10: 24 28 42 29 20 4F 50 2C 20 57 24 28 58 29 20 4E |$(B) OP, W$(X) N|
00000A20: 45 45 52 00 3E 12 F6 04 48 4F B2 4A 43 3A 81 53 |EER.>...HO.JC:.S|
00000A30: 4B B2 4A 52 20 A4 49 52 AA 31 20 A9 AB 31 00 48 |K.JR .IR.1 ..1.H|
00000A40: 12 00 05 8D 31 35 30 30 00 67 12 0A 05 56 45 B2 |....1500.g...VE.|
00000A50: 53 4B 3A 8D 32 30 3A 99 C8 28 4C 45 24 2C C3 28 |SK:.20:..(LE$,.(|
00000A60: 53 24 28 42 29 29 29 00 7E 12 14 05 56 45 B2 53 |S$(B))).~...VE.S|
00000A70: 4B AB 31 3A 8D 32 30 3A 99 53 24 28 42 29 00 86 |K.1:.20:.S$(B)..|
00000A80: 12 1E 05 82 53 4B 00 9D 12 28 05 48 4F B2 49 43 |....SK...(.HO.IC|
00000A90: 3A 81 53 4B B2 49 52 20 A4 4A 52 AB 31 00 A7 12 |:.SK.IR .JR.1...|
00000AA0: 32 05 8D 31 35 30 30 00 C6 12 3C 05 56 45 B2 53 |2..1500...<.VE.S|
00000AB0: 4B 3A 8D 32 30 3A 99 C8 28 4C 45 24 2C C3 28 53 |K:.20:..(LE$,.(S|
00000AC0: 24 28 58 29 29 29 00 E1 12 46 05 56 45 B2 53 4B |$(X)))...F.VE.SK|
00000AD0: AA 31 3A 8D 32 30 3A 99 53 24 28 58 29 3A 82 53 |.1:.20:.S$(X):.S|
00000AE0: 4B 00 FC 12 50 05 8F 20 53 43 48 55 49 46 20 53 |K...P.. SCHUIF S|
00000AF0: 54 52 49 4E 47 53 20 54 45 52 55 47 00 0B 13 5A |TRINGS TERUG...Z|
00000B00: 05 81 48 4F B2 4A 43 20 A4 32 38 00 15 13 64 05 |..HO.JC .28...d.|
00000B10: 8D 31 35 30 30 00 2E 13 6E 05 56 45 B2 49 52 3A |.1500...n.VE.IR:|
00000B20: 8D 32 30 3A 99 22 20 22 3B 53 24 28 42 29 00 36 |.20:." ";S$(B).6|
00000B30: 13 78 05 82 48 4F 00 47 13 82 05 8B 49 43 B1 32 |.x..HO.G....IC.2|
00000B40: 38 20 A7 31 34 36 30 00 56 13 8C 05 81 48 4F B2 |8 .1460.V....HO.|
00000B50: 49 43 20 A4 32 38 00 60 13 96 05 8D 31 35 30 30 |IC .28.`....1500|
00000B60: 00 79 13 A0 05 56 45 B2 4A 52 3A 8D 32 30 3A 99 |.y...VE.JR:.20:.|
00000B70: 22 20 22 3B 53 24 28 58 29 00 81 13 AA 05 82 48 |" ";S$(X)......H|
00000B80: 4F 00 A3 13 B4 05 54 24 B2 57 24 28 58 29 3A 57 |O.....T$.W$(X):W|
00000B90: 24 28 58 29 B2 57 24 28 42 29 3A 57 24 28 42 29 |$(X).W$(B):W$(B)|
00000BA0: B2 54 24 00 C5 13 BE 05 54 24 B2 53 24 28 58 29 |.T$.....T$.S$(X)|
00000BB0: 3A 53 24 28 58 29 B2 53 24 28 42 29 3A 53 24 28 |:S$(X).S$(B):S$(|
00000BC0: 42 29 B2 54 24 00 D4 13 C8 05 58 58 B2 31 3A 8D |B).T$.....XX.1:.|
00000BD0: 31 37 36 30 00 DA 13 D2 05 8E 00 EB 13 DC 05 8F |1760............|
00000BE0: 20 53 55 42 52 20 50 41 55 5A 45 00 FC 13 E6 05 | SUBR PAUZE.....|
00000BF0: 58 58 B2 30 2E 31 3A 8D 31 37 36 30 00 02 14 F0 |XX.0.1:.1760....|
00000C00: 05 8E 00 19 14 FA 05 8F 20 53 55 42 52 4F 55 54 |........ SUBROUT|
00000C10: 49 4E 45 20 54 49 54 45 4C 00 30 14 04 06 99 22 |INE TITEL.0...."|
00000C20: 93 22 3A 48 4F B2 36 3A 56 45 B2 31 3A 8D 32 30 |.":HO.6:VE.1:.20|
00000C30: 00 50 14 0E 06 99 22 41 20 4C 20 46 20 41 20 42 |.P...."A L F A B|
00000C40: 20 45 20 54 20 49 20 53 20 45 20 52 20 45 20 4E | E T I S E R E N|
00000C50: 00 62 14 18 06 48 4F B2 36 3A 56 45 B2 32 3A 8D |.b...HO.6:VE.2:.|
00000C60: 32 30 00 82 14 22 06 99 22 2D 2D 2D 2D 2D 2D 2D |20...".."-------|
00000C70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000C80: 2D 2D 00 88 14 2C 06 8E 00 9F 14 36 06 8F 20 53 |--...,.....6.. S|
00000C90: 55 42 52 20 49 4E 53 54 52 55 43 54 49 45 53 00 |UBR INSTRUCTIES.|
00000CA0: B2 14 40 06 48 4F B2 30 3A 56 45 B2 31 39 3A 8D |..@.HO.0:VE.19:.|
00000CB0: 32 30 00 DF 14 4A 06 99 22 44 52 55 4B 20 4F 50 |20...J.."DRUK OP|
00000CC0: 20 52 45 54 55 52 4E 20 4E 41 20 45 4C 4B 20 49 | RETURN NA ELK I|
00000CD0: 4E 47 45 56 4F 45 52 44 20 57 4F 4F 52 44 22 00 |NGEVOERD WOORD".|
00000CE0: 0C 15 54 06 99 22 11 44 52 55 4B 20 57 45 45 52 |..T..".DRUK WEER|
00000CF0: 20 4F 50 20 52 45 54 55 52 4E 20 56 4F 4F 52 20 | OP RETURN VOOR |
00000D00: 48 45 54 20 53 4F 52 54 45 52 45 4E 00 12 15 5E |HET SORTEREN...^|
00000D10: 06 8E 00 31 15 68 06 8F 20 53 55 42 52 20 57 49 |...1.h.. SUBR WI|
00000D20: 53 20 4F 4E 44 45 52 53 54 45 20 52 45 47 45 4C |S ONDERSTE REGEL|
00000D30: 53 00 45 15 72 06 48 4F B2 30 3A 81 56 45 B2 31 |S.E.r.HO.0:.VE.1|
00000D40: 39 20 A4 32 33 00 53 15 7C 06 8D 32 30 3A 99 4C |9 .23.S.|..20:.L|
00000D50: 45 24 3B 00 5B 15 86 06 82 56 45 00 61 15 90 06 |E$;.[....VE.a...|
00000D60: 8E 00 7C 15 9A 06 8F 20 53 55 42 52 20 46 4F 55 |..|.... SUBR FOU|
00000D70: 54 4D 45 4C 44 49 4E 47 20 45 45 24 00 9C 15 A4 |TMELDING EE$....|
00000D80: 06 8D 31 36 34 30 3A 8F 20 57 49 53 20 4F 4E 44 |..1640:. WIS OND|
00000D90: 45 52 53 54 45 20 52 45 47 45 4C 53 00 BE 15 AE |ERSTE REGELS....|
00000DA0: 06 48 4F B2 31 39 AB C3 28 45 45 24 29 AD 32 3A |.HO.19..(EE$).2:|
00000DB0: 56 45 B2 32 30 3A 8D 32 30 3A 99 45 45 24 00 D1 |VE.20:.20:.EE$..|
00000DC0: 15 B8 06 8D 31 37 39 30 3A 8F 20 53 50 41 54 49 |....1790:. SPATI|
00000DD0: 45 00 F1 15 C2 06 8D 31 36 34 30 3A 8F 20 57 49 |E......1640:. WI|
00000DE0: 53 20 4F 4E 44 45 52 53 54 45 20 52 45 47 45 4C |S ONDERSTE REGEL|
00000DF0: 53 00 09 16 CC 06 8D 31 35 39 30 3A 8F 20 49 4E |S......1590:. IN|
00000E00: 53 54 52 55 43 54 49 45 53 00 0F 16 D6 06 8E 00 |STRUCTIES.......|
00000E10: 2C 16 E0 06 8F 20 50 52 4F 43 20 57 41 43 48 54 |,.... PROC WACHT|
00000E20: 20 58 58 20 53 45 43 4F 4E 44 45 4E 00 42 16 EA | XX SECONDEN.B..|
00000E30: 06 81 5A 5A B2 31 20 A4 31 30 30 AC 58 58 3A 82 |..ZZ.1 .100.XX:.|
00000E40: 5A 5A 00 48 16 F4 06 8E 00 5A 16 FE 06 8F 20 53 |ZZ.H.....Z.... S|
00000E50: 55 42 52 20 53 50 41 54 49 45 00 6D 16 08 07 48 |UBR SPATIE.m...H|
00000E60: 4F B2 32 3A 56 45 B2 32 33 3A 8D 32 30 00 9E 16 |O.2:VE.23:.20...|
00000E70: 12 07 99 22 44 52 55 4B 20 4F 50 20 44 45 20 53 |..."DRUK OP DE S|
00000E80: 50 41 54 49 45 42 41 4C 4B 20 56 4F 4F 52 20 56 |PATIEBALK VOOR V|
00000E90: 45 52 56 4F 4C 47 22 3B 3A 8D 31 39 32 30 00 B6 |ERVOLG";:.1920..|
00000EA0: 16 1C 07 8D 37 30 3A 8B 49 4E 24 B3 B1 22 20 22 |....70:.IN$.." "|
00000EB0: 20 A7 31 38 32 30 00 BC 16 26 07 8E 00 D3 16 30 | .1820...&.....0|
00000EC0: 07 8F 20 53 55 42 52 20 54 49 54 45 4C 50 41 47 |.. SUBR TITELPAG|
00000ED0: 49 4E 41 00 E5 16 3A 07 48 4F B2 38 3A 56 45 B2 |INA...:.HO.8:VE.|
00000EE0: 38 3A 8D 32 30 00 05 17 44 07 99 22 41 20 4C 20 |8:.20...D.."A L |
00000EF0: 46 20 41 20 42 20 45 20 54 20 49 20 53 20 45 20 |F A B E T I S E |
00000F00: 52 20 45 20 4E 00 19 17 4E 07 48 4F B2 31 32 3A |R E N...N.HO.12:|
00000F10: 56 45 B2 31 31 3A 8D 32 30 00 30 17 58 07 99 22 |VE.11:.20.0.X.."|
00000F20: 4D 45 54 20 44 45 20 43 4F 4D 50 55 54 45 52 22 |MET DE COMPUTER"|
00000F30: 00 55 17 62 07 81 48 4F B2 31 20 A4 37 30 30 3A |.U.b..HO.1 .700:|
00000F40: 8D 36 30 3A 8B 49 4E 24 B3 B1 22 22 20 A7 48 4F |.60:.IN$.."" .HO|
00000F50: B2 31 30 30 30 00 5D 17 6C 07 82 48 4F 00 63 17 |.1000.].l..HO.c.|
00000F60: 76 07 8E 00 7F 17 80 07 8F 20 53 55 42 52 20 42 |v........ SUBR B|
00000F70: 55 46 46 45 52 20 4C 45 45 47 4D 41 4B 45 4E 00 |UFFER LEEGMAKEN.|
00000F80: 96 17 8A 07 8D 36 30 3A 8B 49 4E 24 B3 B1 22 22 |.....60:.IN$..""|
00000F90: 20 A7 31 39 33 30 00 9C 17 94 07 8E 00 BD 17 9E | .1930..........|
00000FA0: 07 8F 20 53 55 42 52 20 49 4E 56 4F 45 52 20 56 |.. SUBR INVOER V|
00000FB0: 41 4E 20 45 45 4E 20 53 54 52 49 4E 47 00 C7 17 |AN EEN STRING...|
00000FC0: A8 07 41 24 B2 22 22 00 E3 17 B2 07 8D 34 30 3A |..A$.""......40:|
00000FD0: 81 4F 4F B2 31 20 A4 4D 4C 3A 99 22 20 22 3B 3A |.OO.1 .ML:." ";:|
00000FE0: 82 4F 4F 00 EB 17 BC 07 8D 32 30 00 04 18 C6 07 |.OO......20.....|
00000FF0: 8D 31 39 32 30 3A 8F 20 42 55 46 46 45 52 20 4C |.1920:. BUFFER L|
00001000: 45 47 45 4E 00 23 18 D0 07 8D 37 30 3A 47 42 B2 |EGEN.#....70:GB.|
00001010: C6 28 49 4E 24 29 3A 8B 47 42 B2 31 33 20 A7 32 |.(IN$):.GB.13 .2|
00001020: 31 31 30 00 44 18 DA 07 8B 28 47 42 B2 44 4C 29 |110.D....(GB.DL)|
00001030: 20 AF 28 41 24 B2 22 22 29 20 A7 8D 39 30 3A 89 | .(A$."") ..90:.|
00001040: 31 39 39 30 00 56 18 E4 07 8B 47 42 B3 B1 44 4C |1990.V....GB..DL|
00001050: 20 A7 32 30 37 30 00 70 18 EE 07 8B C3 28 41 24 | .2070.p.....(A$|
00001060: 29 B2 31 20 A7 41 24 B2 22 22 3A 89 32 30 35 30 |).1 .A$."":.2050|
00001070: 00 85 18 F8 07 41 24 B2 C8 28 41 24 2C C3 28 41 |.....A$..(A$,.(A|
00001080: 24 29 AB 31 29 00 A3 18 02 08 8D 34 30 3A 48 4F |$).1)......40:HO|
00001090: B2 48 4F AB 31 3A 8D 32 30 3A 99 22 20 22 3B 3A |.HO.1:.20:." ";:|
000010A0: 8D 32 30 00 AD 18 0C 08 89 31 39 39 30 00 CC 18 |.20......1990...|
000010B0: 16 08 8B 28 C3 28 41 24 29 B2 4D 4C 29 20 B0 28 |...(.(A$).ML) .(|
000010C0: 47 42 B3 33 33 29 20 A7 32 31 30 30 00 EA 18 20 |GB.33) .2100... |
000010D0: 08 8B 28 47 42 B1 31 32 37 29 20 AF 28 47 42 B3 |..(GB.127) .(GB.|
000010E0: 31 36 30 29 20 A7 32 31 30 30 00 04 19 2A 08 99 |160) .2100...*..|
000010F0: 49 4E 24 3B 3A 41 24 B2 41 24 AA 49 4E 24 3A 89 |IN$;:A$.A$.IN$:.|
00001100: 32 30 30 30 00 12 19 34 08 8D 39 30 3A 89 32 30 |2000...4..90:.20|
00001110: 30 30 00 18 19 3E 08 8E 00 2D 19 48 08 8F 20 53 |00...>...-.H.. S|
00001120: 55 42 52 20 4A 41 20 4F 46 20 4E 45 45 00 3C 19 |UBR JA OF NEE.<.|
00001130: 52 08 4D 4C B2 33 3A 8D 31 39 35 30 00 4C 19 5C |R.ML.3:.1950.L.\|
00001140: 08 4F 42 24 B2 C8 28 41 24 2C 31 29 00 55 19 66 |.OB$..(A$,1).U.f|
00001150: 08 59 B2 AB 31 00 74 19 70 08 8B 28 4F 42 24 B2 |.Y..1.t.p..(OB$.|
00001160: 22 CA 22 29 20 B0 28 4F 42 24 B2 22 4A 22 29 20 |".") .(OB$."J") |
00001170: A7 59 B2 31 00 93 19 7A 08 8B 28 4F 42 24 B2 22 |.Y.1...z..(OB$."|
00001180: CE 22 29 20 B0 28 4F 42 24 B2 22 4E 22 29 20 A7 |.") .(OB$."N") .|
00001190: 59 B2 30 00 99 19 84 08 8E 00 AE 19 8E 08 8F 20 |Y.0............ |
000011A0: 49 4E 49 54 49 41 4C 49 53 45 52 49 4E 47 00 C9 |INITIALISERING..|
000011B0: 19 98 08 86 57 4F 24 28 31 30 29 2C 57 24 28 31 |....WO$(10),W$(1|
000011C0: 30 29 2C 53 24 28 31 30 29 00 FB 19 A2 08 4C 45 |0),S$(10).....LE|
000011D0: 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |$." |
000011E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000011F0: 20 20 20 20 20 20 20 20 20 20 22 00 1E 1A AC 08 | ".....|
00001200: 48 4C B2 C6 28 22 C1 22 29 AB C6 28 22 41 22 29 |HL..(".")..("A")|
00001210: 3A 8B 48 4C B3 30 20 A7 48 4C B2 AB 48 4C 00 27 |:.HL.0 .HL..HL.'|
00001220: 1A B6 08 99 22 93 22 00 37 1A C0 08 8D 31 38 34 |....".".7....184|
00001230: 30 3A 8D 31 35 33 30 00 49 1A CA 08 48 4F B2 30 |0:.1530.I...HO.0|
00001240: 3A 56 45 B2 37 3A 8D 32 30 00 6F 1A D4 08 99 22 |:VE.7:.20.o...."|
00001250: 54 49 4B 20 48 4F 4F 47 53 54 45 4E 53 20 54 49 |TIK HOOGSTENS TI|
00001260: 45 4E 20 57 4F 4F 52 44 45 4E 20 49 4E 2C 22 00 |EN WOORDEN IN,".|
00001270: 96 1A DE 08 99 22 45 4C 4B 20 4D 45 54 20 4D 41 |....."ELK MET MA|
00001280: 58 49 4D 41 41 4C 20 4E 45 47 45 4E 20 4C 45 54 |XIMAAL NEGEN LET|
00001290: 54 45 52 53 2E 22 00 C5 1A E8 08 99 22 11 4E 41 |TERS."......".NA|
000012A0: 44 41 54 20 4A 45 20 44 45 20 57 4F 4F 52 44 45 |DAT JE DE WOORDE|
000012B0: 4E 20 48 45 42 54 20 49 4E 47 45 54 49 4B 54 2C |N HEBT INGETIKT,|
000012C0: 20 5A 41 4C 22 00 E5 1A F2 08 99 22 44 45 20 43 | ZAL"......"DE C|
000012D0: 4F 4D 50 55 54 45 52 20 5A 45 20 53 4F 52 54 45 |OMPUTER ZE SORTE|
000012E0: 52 45 4E 2E 22 00 11 1B FC 08 99 22 11 54 49 4B |REN."......".TIK|
000012F0: 20 4E 55 20 48 45 54 20 54 45 4B 45 4E 20 49 4E | NU HET TEKEN IN|
00001300: 20 44 41 54 20 4A 45 20 47 45 42 52 55 49 4B 54 | DAT JE GEBRUIKT|
00001310: 22 00 36 1B 06 09 99 22 4F 4D 20 45 45 4E 20 4C |".6...."OM EEN L|
00001320: 45 54 54 45 52 20 54 45 20 57 49 53 53 45 4E 3A |ETTER TE WISSEN:|
00001330: 22 3B 3A 8D 37 30 00 44 1B 10 09 44 4C B2 C6 28 |";:.70.D...DL..(|
00001340: 49 4E 24 29 00 4E 1B 1A 09 8D 31 37 39 30 00 5E |IN$).N....1790.^|
00001350: 1B 24 09 8D 31 35 33 30 3A 8D 31 35 39 30 00 67 |.$..1530:.1590.g|
00001360: 1B 2E 09 89 32 32 30 00 00 00 |....220... |
....... DUMMYREGEL.3...A.1000:.2190:. AL
FABETISEREN.C....H("....................
.....",.(.(VE.1)));.S......(HO));:....(.
HO.B(209).256.B(210).1024.B(211)...2.VE.
.(HO.40):HO.HO.40.VE:..A.<..IN$:..U.F..I
N$:.IN$."".70...P.....Z..54296,15:.54278
,255:.54273,95:.54276,17...D..OO.1.200:.
OO.;.N..54276,0:.54277,0:.54278,0:..`.X.
SR$."":.SR..10.(CT.CN..(CN)).200.{....SR
...5.10..CN.SR$."-".....SR$.SR$.J(D(.(.(
SR)..5.10..CN)),2).M....C(SR$).CT.CN.(CN
..0).SR$." ".SR$:.150... ..CN.0..(SR)..1
E10.180.....SR$.SR$.J(D(1..(SR)..(.(SR))
..5.10..CN),3,CN.1).;....C(SR$).CT.SR$.S
R$." ":.180.Q....C(SR$).CT.SR$."".Q.H..C
(SR$).CT.SR$.SR$."*":.200.W.R.......AW.0
:. AANTAL WOORDEN.....HO.0:VE.4.2.AW....
..AW.5 .260.G...HO.19:VE.2.AW.6.O....20.
....SR.AW.1:CT.2:CN.0:.120......SR$;" ";
:ML.9:.1950:.A$."" .340.$."..480:.AW.10
.230...,..1640.A.6.HO.0:VE.23:.20.N.@.."
MET <RETURN> START HET SORTEREN... ";..
.J..70:.F(IN$)..13 .330...T..AW.0 .2230.
..^..720:. OVERZICHT.C.H..610:. SNELSORT
EER.V.R.HO.29:.I.1 .AW...|.VE.2.I.1:.20:
.S$(I):.I.....HO.0:VE.23:.20.4...."WIL J
E DAT NU WAT LANGZAMER ZIEN ? ";:.70.E..
..IN$."N".470.W....IN$.."J".390.L....720
:. OVERZICHT......910:. OPSCHUIVEN...B..
990:. TRAAGSORTEER...L..1790:. SPATIE...
V..2340.X.... SUBR CONTROLEER WOORD A$
.....LE.0......VK.1 .C(A$).....VB.F(J(A$
,VK,1))."....(VB.64) .(VB.91) .550.C....
(VB.64.HL) .(VB.91.HL) .550.L...LE.1.T.&
..VK.C.0..LE.0 .590...:.EE$."WOORD BEVAT
NIET ALLEEN MAAR LETTERS !"...D..1690:.
600...N.AW.AW.1:WO$(AW).A$...X...W.B.. S
UBR SNELSORTEER...L..790...V..AW.1 .710.
.....I.1 .AW.1......J.I.1 .AW.$....W$(I)
..W$(J) .690.H...FT$.W$(I):W$(I).W$(J):W
$(J).FT$.L...FT$.S$(I):S$(I).S$(J):S$(J)
.FT$.S....J.Z....I...F.....P.. SUBR OVER
ZICHT...Z..".ONGESORTEERD";.L...HO.29:VE
.0:.20:."GESORTEERD".Y....I.1 .AW.....HO
.0:VE.2.I.1:.20:.WO$(I)......I.......&..
.. SUBR ZET OM IN HOOFDLETTERS.3. ..I.1
.AW.=.*.A$."".Q.4..J.1 .C(WO$(I)).H.>.B.
F(J(WO$(I),J,1)).Z.H..B.96 .B.B.HL...R.A
$.A$.G(B)...\..J...F.W$(I).A$...P.S$(I).
WO$(I)...Z..I.......R.... SUBROUTINE SHI
FT......I.1 .29:HO.I.1......J.1 .AW.....
VE.2.J.1:.20.(....J(WO$(J).H(LE$,29),I,1
);WO$(J)./....J.6.J..I.<.T...T.... SUBR
TRAAGSORTEER.]....790.J....AW.1 ...Y....
X.1 .AW.1.....B.X......Y.X.1 .AW......W$
(B).W$(Y) .B.Y...$..Y......B.X ..1100.D.
8..X.J.B.....L.. SUBR VERWISSEL X EN B
...V.IR.2.X.1:JR.2.B.1...`.JC.28.C(S$(B)
).&.J.IC.JC.C(S$(X)).1.8.T..X.1.B .IC.29
.V.~..-- SCHUIF S$(B) ERUIT --.I....HO.2
9 .JC ..1.S....1500.....VE.JR:.20:.S$(B)
;" "......HO......-- SCHUIF S$(X) ERUIT
--.C....IC.28 .1260.V.D..HO.29 .IC ..1..
.N..1500...X.VE.IR:.20:.S$(X);" "......H
O.#.... SCHUIF W$(B) OP, W$(X) NEER.>...
HO.JC:.SK.JR .IR.1 ..1.H....1500.G...VE.
SK:.20:.H(LE$,C(S$(B))).~...VE.SK.1:.20:
.S$(B)......SK...(.HO.IC:.SK.IR .JR.1...
2..1500.F.<.VE.SK:.20:.H(LE$,C(S$(X)))..
.F.VE.SK.1:.20:.S$(X):.SK...P.. SCHUIF S
TRINGS TERUG...Z..HO.JC .28...D..1500...
N.VE.IR:.20:." ";S$(B).6.X..HO.G....IC.2
8 .1460.V....HO.IC .28.`....1500.Y. .VE.
JR:.20:." ";S$(X)......HO.....T$.W$(X):W
$(X).W$(B):W$(B).T$.E...T$.S$(X):S$(X).S
$(B):S$(B).T$.T.H.XX.1:.1760.Z.R........
SUBR PAUZE.....XX.0.1:.1760............
SUBROUTINE TITEL.0....".":HO.6:VE.1:.20
.P...."A L F A B E T I S E R E N.B...HO.
6:VE.2:.20...".."-----------------------
--...,.....6.. SUBR INSTRUCTIES...@.HO.0
:VE.19:.20...J.."DRUK OP RETURN NA ELK I
NGEVOERD WOORD"...T..".DRUK WEER OP RETU
RN VOOR HET SORTEREN...^...1.H.. SUBR WI
S ONDERSTE REGELS.E.R.HO.0:.VE.19 .23.S.
|..20:.LE$;.[....VE.A.....|.... SUBR FOU
TMELDING EE$......1640:. WIS ONDERSTE RE
GELS.....HO.19.C(EE$).2:VE.20:.20:.EE$.Q
....1790:. SPATIE...B..1640:. WIS ONDERS
TE REGELS...L..1590:. INSTRUCTIES...V...
,.... PROC WACHT XX SECONDEN.B....ZZ.1 .
100.XX:.ZZ.H.....Z.... SUBR SPATIE.M...H
O.2:VE.23:.20......"DRUK OP DE SPATIEBAL
K VOOR VERVOLG";:.1920......70:.IN$.." "
.1820...&...S.0.. SUBR TITELPAGINA...:.
HO.8:VE.8:.20...D.."A L F A B E T I S E
R E N...N.HO.12:VE.11:.20.0.X.."MET DE C
OMPUTER".U.B..HO.1 .700:.60:.IN$.."" .HO
.1000.].L..HO.C.V....... SUBR BUFFER LE
EGMAKEN......60:.IN$.."" .1930..........
.. SUBR INVOER VAN EEN STRING.G...A$."".
.....40:.OO.1 .ML:." ";:.OO......20...F.
.1920:. BUFFER LEGEN.#.P..70:GB.F(IN$):.
GB.13 .2110.D.Z..(GB.DL) .(A$."") ..90:.
1990.V....GB..DL .2070.P....C(A$).1 .A$.
"":.2050.....A$.H(A$,C(A$).1)......40:HO
.HO.1:.20:." ";:.20......1990.L....(C(A$
).ML) .(GB.33) .2100... ..(GB.127) .(GB.
160) .2100...*..IN$;:A$.A$.IN$:.2000...4
..90:.2000...>...-.H.. SUBR JA OF NEE.<.
R.ML.3:.1950.L.\.OB$.H(A$,1).U.F.Y..1.T.
P..(OB$."J") .(OB$."J") .Y.1...Z..(OB$."
N") .(OB$."N") .Y.0............ INITIALI
SERING.I....WO$(10),W$(10),S$(10).....LE
$."
".....HL.F("A").F("A"):.HL.0 .HL..HL.'
....".".7....1840:.1530.I.J.HO.0:VE.7:.2
0.O.T.."TIK HOOGSTENS TIEN WOORDEN IN,".
....."ELK MET MAXIMAAL NEGEN LETTERS.".E
....".NADAT JE DE WOORDEN HEBT INGETIKT,
ZAL"......"DE COMPUTER ZE SORTEREN."...
...".TIK NU HET TEKEN IN DAT JE GEBRUIKT
".6...."OM EEN LETTER TE WISSEN:";:.70.D
...DL.F(IN$).N....1790.^.$..1530:.1590.G
....220...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL