GETALLENTOLK
FILE INFORMATION
FILENAME(S): GETALLENTOLK
FILE TYPE(S): PRG
FILE SIZE: 4.5K
FIRST SEEN: 2025-11-30 21:11:51
APPEARS ON: 1 disk(s)
FILE HASH
eb7b3bfd96e08be372726ad3e75538834143bf6a8a5ddb02db6aaa629292efdb
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| JAKANI LEER | GETALLENTOLK | PRG | DuncanTwain | 11 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 0A 00 89 31 30 30 30 00 15 08 14 00 |.......1000.....|
00000010: 89 31 30 31 30 00 21 08 64 00 99 22 93 22 3B 3A |.1010.!.d..".";:|
00000020: 8E 00 4F 08 6E 00 99 C8 28 22 13 11 11 11 11 11 |..O.n...("......|
00000030: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000040: 11 22 2C B6 28 B5 28 56 45 AA 31 29 29 29 3B 00 |.",.(.(VE.1)));.|
00000050: 5F 08 70 00 99 A6 B6 28 48 4F 29 29 3B 3A 8E 00 |_.p....(HO));:..|
00000060: 77 08 78 00 48 4F B2 B9 28 30 29 3A 56 45 B2 C2 |w.x.HO..(0):VE..|
00000070: 28 32 31 34 29 3A 8E 00 82 08 C8 00 A1 49 4E 24 |(214):.......IN$|
00000080: 3A 8E 00 97 08 D2 00 A1 49 4E 24 3A 8B 49 4E 24 |:.......IN$:.IN$|
00000090: B2 22 22 89 32 31 30 00 9D 08 DC 00 8E 00 A3 08 |."".210.........|
000000A0: FA 00 8E 00 B1 08 04 01 52 56 B2 BB 28 31 29 3A |........RV..(1):|
000000B0: 8E 00 BF 08 0E 01 46 52 B2 B8 28 30 29 3A 8E 00 |......FR..(0):..|
000000C0: E8 08 2C 01 53 52 24 B2 C4 28 53 52 29 3A 8B C8 |..,.SR$..(SR):..|
000000D0: 28 53 52 24 2C 31 29 B2 22 20 22 A7 53 52 24 B2 |(SR$,1)." ".SR$.|
000000E0: CA 28 53 52 24 2C 32 29 00 EE 08 2D 01 8E 00 07 |.(SR$,2)...-....|
000000F0: 09 36 01 53 52 24 B2 22 22 3A 8B 53 52 B3 30 A7 |.6.SR$."":.SR.0.|
00000100: 53 52 24 B2 22 2D 22 00 2E 09 37 01 53 52 24 B2 |SR$."-"...7.SR$.|
00000110: 53 52 24 AA CA 28 C4 28 B5 28 B6 28 53 52 29 AA |SR$..(.(.(.(SR).|
00000120: 2E 35 AC 31 30 AE AB 43 4E 29 29 2C 32 29 00 59 |.5.10..CN)),2).Y|
00000130: 09 38 01 8B C3 28 53 52 24 29 B3 43 54 AB 43 4E |.8...(SR$).CT.CN|
00000140: AA 28 43 4E B3 B1 30 29 A7 53 52 24 B2 22 20 22 |.(CN..0).SR$." "|
00000150: AA 53 52 24 3A 89 33 31 32 00 73 09 39 01 8B 43 |.SR$:.312.s.9..C|
00000160: 4E B2 30 B0 B6 28 53 52 29 B1 B2 31 45 31 30 89 |N.0..(SR)..1E10.|
00000170: 33 31 35 00 A7 09 3A 01 53 52 24 B2 53 52 24 AA |315...:.SR$.SR$.|
00000180: CA 28 C4 28 31 AA B6 28 53 52 29 AB B5 28 B6 28 |.(.(1..(SR)..(.(|
00000190: 53 52 29 29 AA 2E 35 AC 31 30 AE AB 43 4E 29 2C |SR))..5.10..CN),|
000001A0: 33 2C 43 4E AA 31 29 00 C7 09 3B 01 8B C3 28 53 |3,CN.1)...;...(S|
000001B0: 52 24 29 B3 43 54 A7 53 52 24 B2 53 52 24 AA 22 |R$).CT.SR$.SR$."|
000001C0: 20 22 3A 89 33 31 35 00 DD 09 3C 01 8B C3 28 53 | ":.315...<...(S|
000001D0: 52 24 29 B1 43 54 A7 53 52 24 B2 22 22 00 FD 09 |R$).CT.SR$.""...|
000001E0: 3D 01 8B C3 28 53 52 24 29 B3 43 54 A7 53 52 24 |=...(SR$).CT.SR$|
000001F0: B2 53 52 24 AA 22 2A 22 3A 89 33 31 37 00 03 0A |.SR$."*":.317...|
00000200: 3E 01 8E 00 19 0A 5E 01 9F 34 2C 34 3A 98 34 2C |>.....^..4,4:.4,|
00000210: 53 52 24 3B 3A A0 34 3A 8E 00 2A 0A 68 01 9F 34 |SR$;:.4:..*.h..4|
00000220: 2C 34 3A 98 34 3A A0 34 3A 8E 00 48 0A E8 03 41 |,4:.4:.4:..H...A|
00000230: B2 31 30 30 30 3A 89 32 30 3A 8F 20 47 45 54 41 |.1000:.20:. GETA|
00000240: 4C 4C 45 4E 54 4F 4C 4B 00 59 0A F2 03 8D 20 31 |LLENTOLK.Y.... 1|
00000250: 30 30 3A 89 20 31 30 35 30 00 6B 0A 10 04 8F 20 |00:. 1050.k.... |
00000260: 2A 2A 20 54 45 4B 53 54 20 2A 2A 00 96 0A 1A 04 |** TEKST **.....|
00000270: 99 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |."**************|
00000280: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000290: 2A 2A 2A 2A 2A 22 00 C1 0A 24 04 99 22 2A 20 20 |*****"...$.."* |
000002A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
000002C0: 22 00 EC 0A 2E 04 99 22 2A 20 47 45 54 41 4C 4C |"......"* GETALL|
000002D0: 45 4E 20 56 41 4E 20 43 49 4A 46 45 52 53 20 4E |EN VAN CIJFERS N|
000002E0: 41 41 52 20 54 45 4B 53 54 20 2A 22 00 17 0B 38 |AAR TEKST *"...8|
000002F0: 04 99 22 2A 20 4F 56 45 52 47 45 4E 4F 4D 45 4E |.."* OVERGENOMEN|
00000300: 20 55 49 54 20 52 45 4D 41 52 4B 53 20 31 35 20 | UIT REMARKS 15 |
00000310: 20 20 20 20 20 2A 22 00 42 0B 42 04 99 22 2A 20 | *".B.B.."* |
00000320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000340: 2A 22 00 6D 0B 4C 04 99 22 2A 20 4F 4E 54 57 45 |*".m.L.."* ONTWE|
00000350: 52 50 20 4A 41 4E 20 56 41 4E 20 57 45 45 52 44 |RP JAN VAN WEERD|
00000360: 45 4E 42 55 52 47 20 20 20 20 20 2A 22 00 98 0B |ENBURG *"...|
00000370: 56 04 99 22 2A 20 20 20 20 20 20 20 20 20 52 4F |V.."* RO|
00000380: 53 4D 41 4C 45 4E 20 20 20 20 20 20 20 20 20 20 |SMALEN |
00000390: 20 20 20 20 20 20 2A 22 00 C3 0B 60 04 99 22 2A | *"...`.."*|
000003A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003C0: 20 2A 22 00 EE 0B 6A 04 99 22 2A 20 20 20 20 20 | *"...j.."* |
000003D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003E0: 20 20 20 20 20 20 20 20 20 20 20 20 2A 22 00 19 | *"..|
000003F0: 0C 74 04 99 22 2A 20 43 4F 4D 4D 4F 44 4F 52 45 |.t.."* COMMODORE|
00000400: 20 36 34 20 47 52 4F 45 50 20 20 20 20 20 20 20 | 64 GROEP |
00000410: 20 20 20 20 20 20 20 2A 22 00 44 0C 7E 04 99 22 | *".D.~.."|
00000420: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000440: 20 20 2A 22 00 6F 0C 88 04 99 22 2A 20 20 20 20 | *".o...."* |
00000450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000460: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 22 00 | *".|
00000470: 9A 0C 92 04 99 22 2A 20 20 20 20 20 20 20 20 20 |....."* |
00000480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000490: 20 20 20 20 20 20 20 20 2A 22 00 C5 0C 9C 04 99 | *"......|
000004A0: 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |"***************|
000004B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000004C0: 2A 2A 2A 2A 22 00 DB 0C A6 04 81 20 5A B2 30 20 |****"...... Z.0 |
000004D0: A4 20 31 30 30 30 20 3A 82 20 5A 00 E5 0C B0 04 |. 1000 :. Z.....|
000004E0: 8D 20 31 30 30 00 FF 0C BA 04 8F 20 23 23 20 53 |. 100...... ## S|
000004F0: 54 52 49 4E 47 20 52 55 49 4D 54 45 20 23 23 00 |TRING RUIMTE ##.|
00000500: 0B 0D CE 04 86 20 47 28 32 30 29 00 32 0D D8 04 |..... G(20).2...|
00000510: 86 20 41 24 28 33 33 29 20 3A 81 20 4E B2 31 20 |. A$(33) :. N.1 |
00000520: A4 20 33 33 20 3A 87 20 41 24 28 4E 29 20 3A 82 |. 33 :. A$(N) :.|
00000530: 20 4E 00 4D 0D E2 04 8F 20 2A 2A 20 48 4F 4F 46 | N.M.... ** HOOF|
00000540: 44 50 52 4F 47 52 41 4D 4D 41 20 2A 2A 00 57 0D |DPROGRAMMA **.W.|
00000550: EC 04 8D 20 31 30 30 00 88 0D F6 04 99 3A 99 22 |... 100......:."|
00000560: 55 49 54 20 54 45 20 53 50 52 45 4B 45 4E 20 47 |UIT TE SPREKEN G|
00000570: 45 54 41 4C 20 3F 20 28 4D 41 58 2E 31 38 20 43 |ETAL ? (MAX.18 C|
00000580: 49 4A 46 45 52 53 29 22 00 9B 0D 00 05 85 20 41 |IJFERS)"...... A|
00000590: 24 20 3A 55 24 B2 22 22 20 3A 99 00 B8 0D 0A 05 |$ :U$."" :......|
000005A0: 8B 20 41 24 B2 22 30 22 A7 20 55 24 B2 22 4E 55 |. A$."0". U$."NU|
000005B0: 4C 22 3A 89 32 31 38 30 00 D1 0D 14 05 4B B2 30 |L":.2180.....K.0|
000005C0: 3A 46 B2 30 3A 81 4E B2 31 20 A4 20 C3 28 41 24 |:F.0:.N.1 . .(A$|
000005D0: 29 00 EA 0D 1E 05 4D 24 B2 CA 28 41 24 2C 4E 2C |).....M$..(A$,N,|
000005E0: 31 29 3A 4D B2 C6 28 4D 24 29 00 FB 0D 28 05 8B |1):M..(M$)...(..|
000005F0: 4D 24 B2 22 2E 22 A7 20 4B B2 4E 00 1A 0E 32 05 |M$.".". K.N...2.|
00000600: 8B 28 4D B3 34 36 29 B0 28 4D B1 35 37 29 B0 28 |.(M.46).(M.57).(|
00000610: 4D B2 34 37 29 A7 20 46 B2 31 00 3E 0E 3C 05 8B |M.47). F.1.>.<..|
00000620: 46 B2 31 A7 20 99 22 49 53 20 4E 49 45 54 20 55 |F.1. ."IS NIET U|
00000630: 49 54 20 54 45 20 53 50 52 45 4B 45 4E 22 00 5D |IT TE SPREKEN".]|
00000640: 0E 46 05 8B 46 B2 31 A7 20 81 49 49 B2 31 A4 31 |.F..F.1. .II.1.1|
00000650: 30 30 30 3A 82 49 49 3A 89 31 32 36 30 00 6C 0E |000:.II:.1260.l.|
00000660: 50 05 82 20 4E 20 3A 44 B2 4E AB 31 00 86 0E 5A |P.. N :D.N.1...Z|
00000670: 05 8B 20 4B B2 30 20 A7 20 41 B2 4E AB 31 20 3A |.. K.0 . A.N.1 :|
00000680: 89 20 31 33 39 30 00 90 0E 64 05 41 B2 4B AB 31 |. 1390...d.A.K.1|
00000690: 00 AE 0E 6E 05 8B 41 B1 31 38 A7 20 99 22 44 49 |...n..A.18. ."DI|
000006A0: 54 20 49 53 20 54 45 20 47 52 4F 4F 54 22 00 CE |T IS TE GROOT"..|
000006B0: 0E 78 05 8B 41 B1 31 38 A7 20 81 49 49 B2 31 A4 |.x..A.18. .II.1.|
000006C0: 31 30 30 30 3A 82 49 49 3A 89 31 32 36 30 00 DD |1000:.II:.1260..|
000006D0: 0E 82 05 42 24 B2 C8 28 41 24 2C 41 29 00 FD 0E |...B$..(A$,A)...|
000006E0: 8C 05 8B 20 C5 28 42 24 29 B2 30 20 A7 20 55 24 |... .(B$).0 . U$|
000006F0: B2 22 4E 55 4C 22 3A 89 20 31 39 33 30 00 19 0F |."NUL":. 1930...|
00000700: 96 05 8B 20 41 B2 30 20 A7 20 55 24 B2 22 4E 55 |... A.0 . U$."NU|
00000710: 4C 22 3A 89 20 31 39 33 30 00 27 0F A0 05 81 20 |L":. 1930.'.... |
00000720: 4E B2 31 20 A4 20 41 00 41 0F AA 05 47 28 4E 29 |N.1 . A.A...G(N)|
00000730: B2 C5 28 CA 28 42 24 2C 41 AB 4E AA 31 2C 31 29 |..(.(B$,A.N.1,1)|
00000740: 29 00 49 0F B4 05 82 20 4E 00 67 0F BE 05 8F 20 |).I.... N.g.... |
00000750: 2A 2A 20 47 45 54 41 4C 20 55 49 54 53 50 4C 49 |** GETAL UITSPLI|
00000760: 54 53 45 4E 20 2A 2A 00 78 0F C8 05 8B 20 41 B2 |TSEN **.x.... A.|
00000770: 30 20 A7 20 31 39 33 30 00 89 0F D2 05 8B 20 41 |0 . 1930...... A|
00000780: B1 34 20 A7 20 31 37 31 30 00 A7 0F DC 05 91 20 |.4 . 1710...... |
00000790: 41 20 89 20 31 35 31 30 2C 31 35 34 30 2C 31 36 |A . 1510,1540,16|
000007A0: 30 30 2C 31 36 35 30 00 B7 0F E6 05 8F 20 2A 2A |00,1650...... **|
000007B0: 20 41 3D 31 20 2A 2A 00 CC 0F F0 05 8B 20 47 28 | A=1 **...... G(|
000007C0: 41 29 B2 30 20 A7 20 31 39 33 20 30 00 E6 0F FA |A).0 . 193 0....|
000007D0: 05 55 24 B2 55 24 AA 41 24 28 47 28 41 29 29 3A |.U$.U$.A$(G(A)):|
000007E0: 89 20 31 39 33 30 00 F6 0F 04 06 8F 20 2A 2A 20 |. 1930...... ** |
000007F0: 41 3D 32 20 2A 2A 00 15 10 0E 06 8B 28 47 28 41 |A=2 **......(G(A|
00000800: 29 B2 30 29 AF 28 47 28 41 AB 31 29 B2 30 29 A7 |).0).(G(A.1).0).|
00000810: 20 31 39 33 30 00 46 10 18 06 8B 28 47 28 31 29 | 1930.F....(G(1)|
00000820: B2 30 29 AF 28 47 28 41 29 B3 B1 31 29 A7 20 55 |.0).(G(A)..1). U|
00000830: 24 B2 55 24 AA 41 24 28 31 38 AA 47 28 41 29 29 |$.U$.A$(18.G(A))|
00000840: 3A 89 31 39 33 30 00 76 10 22 06 8B 20 47 28 41 |:.1930.v.".. G(A|
00000850: 29 B2 31 20 A7 20 55 24 B2 55 24 AA 41 24 28 47 |).1 . U$.U$.A$(G|
00000860: 28 41 29 AC 31 30 AA 47 28 41 AB 31 29 29 20 3A |(A).10.G(A.1)) :|
00000870: 89 20 31 39 33 30 00 93 10 2C 06 8B 20 47 28 41 |. 1930...,.. G(A|
00000880: 29 B2 30 20 A7 20 41 B2 41 AB 31 20 3A 89 20 31 |).0 . A.A.1 :. 1|
00000890: 34 38 30 00 C1 10 36 06 55 24 B2 55 24 AA 41 24 |480...6.U$.U$.A$|
000008A0: 28 47 28 31 29 29 AA 22 20 45 4E 20 22 AA 41 24 |(G(1))." EN ".A$|
000008B0: 28 31 38 AA 47 28 41 29 29 20 3A 89 20 31 39 33 |(18.G(A)) :. 193|
000008C0: 30 00 D1 10 40 06 8F 20 2A 2A 20 41 3D 33 20 2A |0...@.. ** A=3 *|
000008D0: 2A 00 EC 10 4A 06 8B 20 47 28 41 29 B2 30 20 A7 |*...J.. G(A).0 .|
000008E0: 20 41 B2 32 20 3A 89 20 31 34 38 30 00 00 11 54 | A.2 :. 1480...T|
000008F0: 06 8B 20 47 28 41 29 B2 31 20 A7 20 31 36 34 30 |.. G(A).1 . 1640|
00000900: 00 13 11 5E 06 55 24 B2 55 24 AA 41 24 28 47 28 |...^.U$.U$.A$(G(|
00000910: 41 29 29 00 36 11 68 06 55 24 B2 55 24 AA 22 20 |A)).6.h.U$.U$." |
00000920: 48 4F 4E 44 45 52 44 20 22 20 3A 41 B2 32 20 3A |HONDERD " :A.2 :|
00000930: 89 20 31 34 38 30 00 46 11 72 06 8F 20 2A 2A 20 |. 1480.F.r.. ** |
00000940: 41 3D 34 20 2A 2A 00 61 11 7C 06 8B 20 47 28 34 |A=4 **.a.|.. G(4|
00000950: 29 B2 30 20 A7 20 41 B2 33 20 3A 89 20 31 34 38 |).0 . A.3 :. 148|
00000960: 30 00 98 11 86 06 8B 20 47 28 33 29 B2 30 20 A7 |0...... G(3).0 .|
00000970: 20 55 24 B2 55 24 AA 41 24 28 47 28 41 29 29 AA | U$.U$.A$(G(A)).|
00000980: 22 20 44 55 49 5A 45 4E 44 20 22 20 3A 41 B2 33 |" DUIZEND " :A.3|
00000990: 20 3A 89 20 31 34 38 30 00 C6 11 90 06 8B 20 47 | :. 1480...... G|
000009A0: 28 34 29 B2 31 20 A7 20 55 24 B2 55 24 AA 41 24 |(4).1 . U$.U$.A$|
000009B0: 28 47 28 34 29 AC 31 30 AA 47 28 33 29 29 20 3A |(G(4).10.G(3)) :|
000009C0: 89 20 31 37 30 30 00 EC 11 9A 06 55 24 B2 55 24 |. 1700.....U$.U$|
000009D0: AA 41 24 28 47 28 33 29 29 AA 22 20 45 4E 20 22 |.A$(G(3))." EN "|
000009E0: AA 41 24 28 31 38 AA 47 28 34 29 29 00 0F 12 A4 |.A$(18.G(4))....|
000009F0: 06 55 24 B2 55 24 AA 22 20 48 4F 4E 44 45 52 44 |.U$.U$." HONDERD|
00000A00: 20 22 20 3A 41 B2 32 20 3A 89 20 31 34 38 30 00 | " :A.2 :. 1480.|
00000A10: 2D 12 AE 06 8F 20 2A 2A 20 41 20 49 53 20 47 52 |-.... ** A IS GR|
00000A20: 4F 54 45 52 20 44 41 4E 20 34 20 2A 2A 00 5E 12 |OTER DAN 4 **.^.|
00000A30: B8 06 8F 20 2A 2A 20 42 45 50 41 4C 45 4E 20 57 |... ** BEPALEN W|
00000A40: 45 4C 4B 20 47 52 4F 45 50 4A 45 20 56 41 4E 20 |ELK GROEPJE VAN |
00000A50: 44 52 49 45 20 48 45 54 20 49 53 20 2A 2A 00 71 |DRIE HET IS **.q|
00000A60: 12 C2 06 5A B2 B5 28 28 41 AB 30 2E 35 29 AD 33 |...Z..((A.0.5).3|
00000A70: 29 00 A1 12 CC 06 8F 20 2A 2A 20 42 45 50 41 41 |)...... ** BEPAA|
00000A80: 4C 20 57 45 4C 4B 20 43 49 4A 46 45 52 20 49 4E |L WELK CIJFER IN|
00000A90: 20 47 52 4F 45 50 4A 45 20 56 41 4E 20 33 20 2A | GROEPJE VAN 3 *|
00000AA0: 2A 00 AD 12 D6 06 4D B2 41 AB 33 AC 5A 00 C6 12 |*.....M.A.3.Z...|
00000AB0: E0 06 91 20 4D 20 89 20 31 37 37 30 2C 31 38 31 |... M . 1770,181|
00000AC0: 30 2C 31 38 37 30 00 EA 12 EA 06 8F 20 2A 2A 20 |0,1870...... ** |
00000AD0: 4C 41 41 54 53 54 45 20 43 49 4A 46 45 52 20 49 |LAATSTE CIJFER I|
00000AE0: 4E 20 47 52 4F 45 50 20 2A 2A 00 06 13 F4 06 8B |N GROEP **......|
00000AF0: 20 47 28 41 29 20 A7 20 55 24 B2 55 24 AA 41 24 | G(A) . U$.U$.A$|
00000B00: 28 47 28 41 29 29 00 36 13 FE 06 8B 28 47 28 41 |(G(A)).6....(G(A|
00000B10: 29 B2 30 29 AF 28 47 28 41 AA 31 29 B2 30 29 AF |).0).(G(A.1).0).|
00000B20: 28 47 28 41 AA 32 29 B2 30 29 A7 41 B2 41 AB 31 |(G(A.2).0).A.A.1|
00000B30: 3A 89 31 34 38 30 00 60 13 08 07 41 B2 41 AB 31 |:.1480.`...A.A.1|
00000B40: 20 3A 55 24 B2 55 24 AA 22 20 22 AA 41 24 28 32 | :U$.U$." ".A$(2|
00000B50: 38 AA 5A 29 AA 22 20 22 20 3A 89 20 31 34 38 30 |8.Z)." " :. 1480|
00000B60: 00 86 13 12 07 8F 20 2A 2A 20 4D 49 44 44 45 4C |...... ** MIDDEL|
00000B70: 53 54 45 20 43 49 4A 46 45 52 20 49 4E 20 47 52 |STE CIJFER IN GR|
00000B80: 4F 45 50 20 2A 2A 00 9B 13 1C 07 49 B2 47 28 41 |OEP **.....I.G(A|
00000B90: 29 20 3A 4A B2 47 28 41 AB 31 29 00 B5 13 26 07 |) :J.G(A.1)...&.|
00000BA0: 8B 20 49 B2 30 20 A7 20 41 B2 41 AB 31 20 3A 89 |. I.0 . A.A.1 :.|
00000BB0: 20 31 34 38 30 00 DF 13 30 07 8B 20 49 B2 31 20 | 1480...0.. I.1 |
00000BC0: A7 20 55 24 B2 55 24 AA 41 24 28 31 30 AA 4A 29 |. U$.U$.A$(10.J)|
00000BD0: 20 3A 41 B2 41 AB 31 20 3A 89 20 31 38 30 30 00 | :A.A.1 :. 1800.|
00000BE0: FC 13 3A 07 8B 20 4A 20 A7 20 55 24 B2 55 24 AA |..:.. J . U$.U$.|
00000BF0: 41 24 28 4A 29 AA 22 20 45 4E 20 22 00 1E 14 44 |A$(J)." EN "...D|
00000C00: 07 55 24 B2 55 24 AA 41 24 28 31 38 AA 49 29 20 |.U$.U$.A$(18.I) |
00000C10: 3A 41 B2 41 AB 31 20 3A 89 20 31 38 30 30 00 42 |:A.A.1 :. 1800.B|
00000C20: 14 4E 07 8F 20 2A 2A 20 56 4F 4F 52 53 54 45 20 |.N.. ** VOORSTE |
00000C30: 43 49 4A 46 45 52 20 49 4E 20 47 52 4F 45 50 20 |CIJFER IN GROEP |
00000C40: 2A 2A 00 5F 14 58 07 8B 20 47 28 41 29 B2 30 20 |**._.X.. G(A).0 |
00000C50: A7 20 41 B2 41 AB 31 20 3A 89 20 31 34 38 30 00 |. A.A.1 :. 1480.|
00000C60: 7D 14 62 07 8B 20 47 28 41 29 B1 31 20 A7 20 55 |}.b.. G(A).1 . U|
00000C70: 24 B2 55 24 AA 41 24 28 47 28 41 29 29 00 A4 14 |$.U$.A$(G(A))...|
00000C80: 6C 07 41 41 B2 30 3A 8B 28 41 B2 36 29 AF 28 47 |l.AA.0:.(A.6).(G|
00000C90: 28 35 29 B2 30 29 AF 28 47 28 34 29 B2 30 29 A7 |(5).0).(G(4).0).|
00000CA0: 41 41 B2 31 00 D5 14 76 07 8B 41 41 B2 31 A7 20 |AA.1...v..AA.1. |
00000CB0: 55 24 B2 55 24 AA 22 20 48 4F 4E 44 45 52 44 20 |U$.U$." HONDERD |
00000CC0: 44 55 49 5A 45 4E 44 20 22 3A 41 B2 41 AB 31 3A |DUIZEND ":A.A.1:|
00000CD0: 89 31 34 38 30 00 FA 14 80 07 55 24 B2 55 24 AA |.1480.....U$.U$.|
00000CE0: 22 20 48 4F 4E 44 45 52 44 20 22 20 3A 41 B2 41 |" HONDERD " :A.A|
00000CF0: AB 31 20 3A 89 20 31 34 38 30 00 24 15 8A 07 8F |.1 :. 1480.$....|
00000D00: 20 2A 2A 20 48 49 45 52 20 41 4C 53 20 49 45 54 | ** HIER ALS IET|
00000D10: 53 20 41 43 48 54 45 52 20 44 45 20 4B 4F 4D 4D |S ACHTER DE KOMM|
00000D20: 41 20 2A 2A 00 4C 15 94 07 8F 20 2A 2A 20 4F 4F |A **.L.... ** OO|
00000D30: 4B 20 41 4C 53 20 4E 49 45 54 53 20 56 4F 4F 52 |K ALS NIETS VOOR|
00000D40: 20 44 45 20 4B 4F 4D 4D 41 20 2A 2A 00 5D 15 9E | DE KOMMA **.]..|
00000D50: 07 8B 20 4B B2 30 20 A7 20 32 31 38 30 00 7A 15 |.. K.0 . 2180.z.|
00000D60: A8 07 8F 20 2A 2A 20 41 41 4E 54 41 4C 20 44 45 |... ** AANTAL DE|
00000D70: 43 49 4D 41 4C 45 4E 20 2A 2A 00 84 15 B2 07 5A |CIMALEN **.....Z|
00000D80: B2 44 AB 4B 00 A8 15 BC 07 8F 20 2A 2A 20 42 45 |.D.K...... ** BE|
00000D90: 50 45 52 4B 20 41 41 4E 54 41 4C 20 44 45 43 49 |PERK AANTAL DECI|
00000DA0: 4D 41 4C 45 4E 20 2A 2A 00 B8 15 C6 07 8B 20 5A |MALEN **...... Z|
00000DB0: B1 35 20 A7 20 5A B2 35 00 D7 15 D0 07 8F 20 2A |.5 . Z.5...... *|
00000DC0: 2A 20 45 45 52 53 54 45 20 5A 20 44 45 43 49 4D |* EERSTE Z DECIM|
00000DD0: 41 4C 45 4E 20 2A 2A 00 EA 15 DA 07 43 24 B2 CA |ALEN **.....C$..|
00000DE0: 28 41 24 2C 4B AA 31 2C 5A 29 00 FF 15 E4 07 8B |(A$,K.1,Z)......|
00000DF0: 20 C5 28 43 24 29 B2 30 20 A7 20 32 31 38 30 00 | .(C$).0 . 2180.|
00000E00: 13 16 EE 07 55 24 B2 55 24 AA 22 20 4B 4F 4D 4D |....U$.U$." KOMM|
00000E10: 41 20 22 00 39 16 F8 07 81 20 4E B2 31 20 A4 20 |A ".9.... N.1 . |
00000E20: 5A 20 3A 44 28 4E 29 B2 C5 28 CA 28 43 24 2C 4E |Z :D(N)..(.(C$,N|
00000E30: 2C 31 29 29 20 3A 82 20 4E 00 4A 16 02 08 8B 20 |,1)) :. N.J.... |
00000E40: 5A B2 32 20 A7 20 32 31 32 30 00 58 16 0C 08 81 |Z.2 . 2120.X....|
00000E50: 20 4E B2 31 20 A4 20 5A 00 7C 16 16 08 8B 20 44 | N.1 . Z.|.... D|
00000E60: 28 4E 29 B2 30 20 A7 20 55 24 B2 55 24 AA 22 4E |(N).0 . U$.U$."N|
00000E70: 55 4C 20 22 20 3A 89 20 32 30 39 30 00 93 16 20 |UL " :. 2090... |
00000E80: 08 55 24 B2 55 24 AA 41 24 28 44 28 4E 29 29 AA |.U$.U$.A$(D(N)).|
00000E90: 22 20 22 00 9B 16 2A 08 82 20 4E 00 A6 16 34 08 |" "...*.. N...4.|
00000EA0: 89 20 32 31 38 30 00 D8 16 3E 08 8F 20 2A 2A 20 |. 2180...>.. ** |
00000EB0: 54 57 45 45 20 44 45 43 49 4D 41 4C 45 4E 20 48 |TWEE DECIMALEN H|
00000EC0: 45 42 42 45 4E 20 45 49 47 45 4E 20 55 49 54 53 |EBBEN EIGEN UITS|
00000ED0: 50 52 41 41 4B 20 2A 2A 00 EB 16 48 08 49 B2 44 |PRAAK **...H.I.D|
00000EE0: 28 31 29 20 3A 4A B2 44 28 32 29 00 12 17 52 08 |(1) :J.D(2)...R.|
00000EF0: 8B 20 49 B2 30 20 A7 20 55 24 B2 55 24 AA 22 4E |. I.0 . U$.U$."N|
00000F00: 55 4C 20 22 AA 41 24 28 4A 29 20 3A 89 20 32 31 |UL ".A$(J) :. 21|
00000F10: 38 30 00 37 17 5C 08 8B 20 49 B2 31 20 A7 20 55 |80.7.\.. I.1 . U|
00000F20: 24 B2 55 24 AA 41 24 28 31 30 AC 49 AA 4A 29 20 |$.U$.A$(10.I.J) |
00000F30: 3A 89 20 32 31 38 30 00 54 17 66 08 8B 20 4A 20 |:. 2180.T.f.. J |
00000F40: A7 20 55 24 B2 55 24 AA 41 24 28 4A 29 AA 22 20 |. U$.U$.A$(J)." |
00000F50: 45 4E 20 22 00 6F 17 70 08 55 24 B2 55 24 AA 41 |EN ".o.p.U$.U$.A|
00000F60: 24 28 31 38 AA 49 29 20 3A 89 20 32 31 38 30 00 |$(18.I) :. 2180.|
00000F70: 8C 17 7A 08 8F 20 2A 2A 20 55 49 54 50 52 49 4E |..z.. ** UITPRIN|
00000F80: 54 45 4E 20 47 45 54 41 4C 20 2A 2A 00 A3 17 84 |TEN GETAL **....|
00000F90: 08 59 B2 31 20 3A 81 20 5A B2 31 20 A4 20 C3 28 |.Y.1 :. Z.1 . .(|
00000FA0: 55 24 29 00 B4 17 8E 08 99 20 CA 28 55 24 2C 5A |U$)...... .(U$,Z|
00000FB0: 2C 31 29 3B 00 DF 17 98 08 59 B2 59 AA 31 20 3A |,1);.....Y.Y.1 :|
00000FC0: 8B 28 59 B1 33 30 29 AF 28 CA 28 55 24 2C 5A 2C |.(Y.30).(.(U$,Z,|
00000FD0: 31 29 B2 22 20 22 29 A7 20 99 20 3A 59 B2 31 00 |1)." "). . :Y.1.|
00000FE0: E7 17 A2 08 82 20 5A 00 F0 17 AC 08 99 20 3A 99 |..... Z...... :.|
00000FF0: 00 0F 18 B6 08 85 22 4E 4F 47 20 45 45 4E 20 47 |......"NOG EEN G|
00001000: 45 54 41 4C 20 28 4A 2F 4E 29 20 22 3B 41 24 00 |ETAL (J/N) ";A$.|
00001010: 23 18 C0 08 8B 20 41 24 B2 22 4A 22 20 A7 20 31 |#.... A$."J" . 1|
00001020: 32 36 30 00 37 18 CA 08 8B 20 41 24 B2 22 4E 22 |260.7.... A$."N"|
00001030: 20 A7 20 32 33 34 30 00 42 18 D4 08 89 20 32 32 | . 2340.B.... 22|
00001040: 33 30 00 53 18 DE 08 8F 20 2A 2A 20 44 41 54 41 |30.S.... ** DATA|
00001050: 20 2A 2A 00 86 18 E8 08 83 20 45 45 4E 2C 54 57 | **...... EEN,TW|
00001060: 45 45 2C 44 52 49 45 2C 56 49 45 52 2C 56 49 4A |EE,DRIE,VIER,VIJ|
00001070: 46 2C 5A 45 53 2C 5A 45 56 45 4E 2C 41 43 48 54 |F,ZES,ZEVEN,ACHT|
00001080: 2C 4E 45 47 45 4E 00 BE 18 F2 08 83 20 54 49 45 |,NEGEN...... TIE|
00001090: 4E 2C 45 4C 46 2C 54 57 41 41 4C 46 2C 44 45 52 |N,ELF,TWAALF,DER|
000010A0: 54 49 45 4E 2C 56 45 45 52 54 49 45 4E 2C 56 49 |TIEN,VEERTIEN,VI|
000010B0: 4A 46 54 49 45 4E 2C 5A 45 53 54 49 45 4E 00 F8 |JFTIEN,ZESTIEN..|
000010C0: 18 FC 08 83 20 5A 45 56 45 4E 54 49 45 4E 2C 41 |.... ZEVENTIEN,A|
000010D0: 43 48 54 54 49 45 4E 2C 4E 45 47 45 4E 54 49 45 |CHTTIEN,NEGENTIE|
000010E0: 4E 2C 54 57 49 4E 54 49 47 2C 44 45 52 54 49 47 |N,TWINTIG,DERTIG|
000010F0: 2C 56 45 45 52 54 49 47 00 2F 19 06 09 83 20 56 |,VEERTIG./.... V|
00001100: 49 4A 46 54 49 47 2C 5A 45 53 54 49 47 2C 5A 45 |IJFTIG,ZESTIG,ZE|
00001110: 56 45 4E 54 49 47 2C 54 41 43 48 54 49 47 2C 4E |VENTIG,TACHTIG,N|
00001120: 45 47 45 4E 54 49 47 2C 48 4F 4E 44 45 52 44 00 |EGENTIG,HONDERD.|
00001130: 5D 19 10 09 83 20 44 55 49 5A 45 4E 44 2C 4D 49 |].... DUIZEND,MI|
00001140: 4C 4A 4F 45 4E 2C 4D 49 4C 4A 41 52 44 2C 42 49 |LJOEN,MILJARD,BI|
00001150: 4C 4A 4F 45 4E 2C 42 49 4C 4A 41 52 44 00 78 19 |LJOEN,BILJARD.x.|
00001160: 1A 09 8F 20 2A 2A 20 45 49 4E 44 20 50 52 4F 47 |... ** EIND PROG|
00001170: 52 41 4D 4D 41 20 2A 2A 00 97 19 24 09 99 20 3A |RAMMA **...$.. :|
00001180: 99 22 54 4F 54 20 44 45 20 56 4F 4C 47 45 4E 44 |."TOT DE VOLGEND|
00001190: 45 20 4B 45 45 52 22 00 BA 19 2E 09 99 22 43 4F |E KEER"......"CO|
000011A0: 4D 4D 4F 44 4F 52 45 20 36 34 20 47 52 4F 45 50 |MMODORE 64 GROEP|
000011B0: 20 20 20 20 20 20 20 20 20 22 00 C0 19 38 09 80 | "...8..|
000011C0: 00 CB 19 04 0A 00 CB 23 30 30 30 00 00 00 FF FF |.......#000.....|
000011D0: 24 12 |$. |
.......1000......1010.!.D..".";:..O.N..H
(".......................",.(.(VE.1)));.
_.P....(HO));:..W.X.HO..(0):VE.B(214):..
..H..IN$:....R..IN$:.IN$."".210.........
........RV..(1):......FR..(0):....,.SR$.
D(SR):.H(SR$,1)." ".SR$.J(SR$,2)...-....
.6.SR$."":.SR.0.SR$."-"...7.SR$.SR$.J(D(
.(.(SR)..5.10..CN)),2).Y.8..C(SR$).CT.CN
.(CN..0).SR$." ".SR$:.312.S.9..CN.0..(SR
)..1E10.315...:.SR$.SR$.J(D(1..(SR)..(.(
SR))..5.10..CN),3,CN.1).G.;..C(SR$).CT.S
R$.SR$." ":.315...<..C(SR$).CT.SR$.""...
=..C(SR$).CT.SR$.SR$."*":.317...>.....^.
.4,4:.4,SR$;: 4:..*.H..4,4:.4: 4:..H...A
.1000:.20:. GETALLENTOLK.Y.... 100:. 105
0.K.... ** TEKST **......"**************
*********************".A.$.."*
*"......"* GETALL
EN VAN CIJFERS NAAR TEKST *"...8.."* OVE
RGENOMEN UIT REMARKS 15 *".B.B.."*
*".M.L..
"* ONTWERP JAN VAN WEERDENBURG *"...
V.."* ROSMALEN *"
.C.`.."*
*"...J.."*
*"...T.."* COMMODORE 64 GROEP
*".D.~.."*
*".O...."*
*"......"*
*".E...."***************
********************"...... Z.0 . 1000 :
. Z...... 100...... ## STRING RUIMTE ##.
..N.. G(20).2.X.. A$(33) :. N.1 . 33 :.
A$(N) :. N.M.... ** HOOFDPROGRAMMA **.W.
... 100......:."UIT TE SPREKEN GETAL ? (
MAX.18 CIJFERS)"...... A$ :U$."" :......
. A$."0". U$."NUL":.2180.Q...K.0:F.0:.N.
1 . C(A$).....M$.J(A$,N,1):M.F(M$)...(..
M$.".". K.N...2..(M.46).(M.57).(M.47). F
.1.>.<..F.1. ."IS NIET UIT TE SPREKEN".]
.F..F.1. .II.1.1000:.II:.1260.L.P.. N :D
.N.1...Z.. K.0 . A.N.1 :. 1390...D.A.K.1
...N..A.18. ."DIT IS TE GROOT".N.X..A.18
. .II.1.1000:.II:.1260.....B$.H(A$,A)...
... E(B$).0 . U$."NUL":. 1930...... A.0
. U$."NUL":. 1930.'. .. N.1 . A.A...G(N)
.E(J(B$,A.N.1,1)).I.... N.G.... ** GETAL
UITSPLITSEN **.X.H.. A.0 . 1930...R.. A
.4 . 1710...... A . 1510,1540,1600,1650.
..... ** A=1 **.L.... G(A).0 . 193 0....
.U$.U$.A$(G(A)):. 1930...... ** A=2 **..
....(G(A).0).(G(A.1).0). 1930.F....(G(1)
.0).(G(A)..1). U$.U$.A$(18.G(A)):.1930.V
.".. G(A).1 . U$.U$.A$(G(A).10.G(A.1)) :
. 1930...,.. G(A).0 . A.A.1 :. 1480.A.6.
U$.U$.A$(G(1))." EN ".A$(18.G(A)) :. 193
0.Q.@.. ** A=3 **...J.. G(A).0 . A.2 :.
1480...T.. G(A).1 . 1640...^.U$.U$.A$(G(
A)).6.H.U$.U$." HONDERD " :A.2 :. 1480.F
.R.. ** A=4 **.A.|.. G(4).0 . A.3 :. 148
0...... G(3).0 . U$.U$.A$(G(A))." DUIZEN
D " :A.3 :. 1480.F.... G(4).1 . U$.U$.A$
(G(4).10.G(3)) :. 1700.....U$.U$.A$(G(3)
)." EN ".A$(18.G(4)).....U$.U$." HONDERD
" :A.2 :. 1480.-.... ** A IS GROTER DAN
4 **.^.... ** BEPALEN WELK GROEPJE VAN
DRIE HET IS **.Q.B.Z..((A.0.5).3)...L..
** BEPAAL WELK CIJFER IN GROEPJE VAN 3 *
*...V.M.A.3.Z.F.... M . 1770,1810,1870..
.... ** LAATSTE CIJFER IN GROEP **......
G(A) . U$.U$.A$(G(A)).6....(G(A).0).(G(
A.1).0).(G(A.2).0).A.A.1:.1480.`...A.A.1
:U$.U$." ".A$(28.Z)." " :. 1480...... *
* MIDDELSTE CIJFER IN GROEP **.....I.G(A
) :J.G(A.1)...&.. I.0 . A.A.1 :. 1480...
0.. I.1 . U$.U$.A$(10.J) :A.A.1 :. 1800.
..:.. J . U$.U$.A$(J)." EN "...D.U$.U$.A
$(18.I) :A.A.1 :. 1800.B.N.. ** VOORSTE
CIJFER IN GROEP **._.X.. G(A).0 . A.A.1
:. 1480.}.B.. G(A).1 . U$.U$.A$(G(A))...
L.AA.0:.(A.6).(G(5).0).(G(4).0).AA.1.U.V
..AA.1. U$.U$." HONDERD DUIZEND ":A.A.1:
.1480.....U$.U$." HONDERD " :A.A.1 :. 14
80.$.... ** HIER ALS IETS ACHTER DE KOMM
A **.L.... ** OOK ALS NIETS VOOR DE KOMM
A **.].... K.0 . 2180.Z.... ** AANTAL DE
CIMALEN **.....Z.D.K...... ** BEPERK AAN
TAL DECIMALEN **...F.. Z.5 . Z.5.W.P.. *
* EERSTE Z DECIMALEN **...Z.C$.J(A$,K.1,
Z)...... E(C$).0 . 2180.....U$.U$." KOMM
A ".9.... N.1 . Z :D(N).E(J(C$,N,1)) :.
N.J.... Z.2 . 2120.X.... N.1 . Z.|.... D
(N).0 . U$.U$."NUL " :. 2090... .U$.U$.A
$(D(N))." "...*.. N...4.. 2180.X.>.. **
TWEE DECIMALEN HEBBEN EIGEN UITSPRAAK **
...H.I.D(1) :J.D(2)...R.. I.0 . U$.U$."N
UL ".A$(J) :. 2180.7.\.. I.1 . U$.U$.A$(
10.I.J) :. 2180.T.F.. J . U$.U$.A$(J)."
EN ".O.P.U$.U$.A$(18.I) :. 2180...Z.. **
UITPRINTEN GETAL **.....Y.1 :. Z.1 . C(
U$)...... J(U$,Z,1);.....Y.Y.1 :.(Y.30).
(J(U$,Z,1)." "). . :Y.1...... Z...... :.
......"NOG EEN GETAL (J/N) ";A$.#.... A$
."J" . 1260.7.J.. A$."N" . 2340.B.T.. 22
30.S.... ** DATA **...... EEN,TWEE,DRIE,
VIER,VIJF,ZES,ZEVEN,ACHT,NEGEN...... TIE
N,ELF,TWAALF,DERTIEN,VEERTIEN,VIJFTIEN,Z
ESTIEN...... ZEVENTIEN,ACHTTIEN,NEGENTIE
N,TWINTIG,DERTIG,VEERTIG./.... VIJFTIG,Z
ESTIG,ZEVENTIG,TACHTIG,NEGENTIG,HONDERD.
].... DUIZEND,MILJOEN,MILJARD,BILJOEN,BI
LJARD.X.... ** EIND PROGRAMMA **...$.. :
."TOT DE VOLGENDE KEER"......"COMMODORE
64 GROEP "...8...K....K#000.....
$.
> CLICK IMAGE PREVIEW FOR FULL MODAL