FUNCTIE TOETSEN
FILE INFORMATION
FILENAME(S): FUNCTIE TOETSEN
FILE TYPE(S): PRG
FILE SIZE: 3.2K
FIRST SEEN: 2025-11-30 21:10:50
APPEARS ON: 1 disk(s)
FILE HASH
3a9ea4773daca0057cffd589794474a94e5f6541ee3be6ac2bab4789c22f782a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HCCN | FUNCTIE TOETSEN | PRG | DuncanTwain | 12 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 23 08 00 00 8F 20 20 46 55 4E 43 54 49 45 |..#.... FUNCTIE| 00000010: 20 20 54 4F 45 54 53 45 4E 20 44 45 46 49 4E 49 | TOETSEN DEFINI| 00000020: 54 49 45 00 3E 08 01 00 8F 20 20 43 4F 4D 4D 4F |TIE.>.... COMMO| 00000030: 44 4F 52 45 20 36 34 20 56 45 52 53 49 45 00 44 |DORE 64 VERSIE.D| 00000040: 08 02 00 8F 00 62 08 03 00 8F 20 20 44 4F 4F 52 |.....b.... DOOR| 00000050: 20 54 41 4E 5A 49 4E 49 20 26 20 4D 49 4E 44 5A | TANZINI & MINDZ| 00000060: 41 4B 00 7F 08 04 00 8F 20 20 41 41 4E 47 45 50 |AK...... AANGEP| 00000070: 41 53 54 20 45 4E 20 56 45 52 54 41 41 4C 44 00 |AST EN VERTAALD.| 00000080: 94 08 05 00 8F 20 20 20 20 20 20 20 20 20 20 20 |..... | 00000090: 44 4F 4F 52 00 AE 08 06 00 8F 20 20 20 20 20 20 |DOOR...... | 000000A0: 20 46 2E 42 4C 45 4A 45 4E 42 45 52 47 48 00 B6 | F.BLEJENBERGH..| 000000B0: 08 07 00 8F 2A 2A 00 D4 08 08 00 8F 2A 2A 2A 2A |....**......****| 000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000D0: 2A 2A 2A 2A 00 DC 08 09 00 8F 2A 2A 00 FE 08 0A |****......**....| 000000E0: 00 8F 20 20 20 20 20 20 20 20 47 45 42 52 55 49 |.. GEBRUI| 000000F0: 4B 54 45 20 56 41 52 49 41 42 45 4C 45 4E 00 26 |KTE VARIABELEN.&| 00000100: 09 0E 00 8F 20 54 20 3D 20 48 55 49 44 49 47 45 |.... T = HUIDIGE| 00000110: 20 48 4F 4F 47 53 54 45 20 47 45 48 45 55 47 45 | HOOGSTE GEHEUGE| 00000120: 4E 41 44 52 45 53 00 52 09 14 00 8F 20 53 4D 20 |NADRES.R.... SM | 00000130: 3D 20 53 54 41 52 54 20 56 41 4E 20 44 45 20 4D |= START VAN DE M| 00000140: 41 43 48 49 4E 45 54 41 41 4C 20 52 4F 55 54 49 |ACHINETAAL ROUTI| 00000150: 4E 45 00 95 09 19 00 8F 20 53 53 20 3D 20 53 54 |NE...... SS = ST| 00000160: 41 52 54 20 56 41 4E 20 47 45 44 45 46 49 4E 49 |ART VAN GEDEFINI| 00000170: 45 45 52 44 45 20 53 54 52 49 4E 47 53 20 56 4F |EERDE STRINGS VO| 00000180: 4F 52 20 44 45 20 46 55 4E 43 54 49 45 20 54 4F |OR DE FUNCTIE TO| 00000190: 45 54 53 45 4E 00 BD 09 1E 00 8F 20 50 50 20 3D |ETSEN...... PP =| 000001A0: 20 50 4F 49 4E 54 45 52 20 4E 41 41 52 20 53 54 | POINTER NAAR ST| 000001B0: 52 49 4E 47 20 50 4F 49 4E 54 45 52 53 00 FD 09 |RING POINTERS...| 000001C0: 23 00 8F 20 53 50 20 3D 20 50 4F 49 4E 54 45 52 |#.. SP = POINTER| 000001D0: 20 4E 41 41 52 20 53 54 52 49 4E 47 53 20 54 49 | NAAR STRINGS TI| 000001E0: 4A 44 45 4E 53 48 45 54 20 4C 41 44 45 4E 20 56 |JDENSHET LADEN V| 000001F0: 41 4E 20 44 45 20 53 54 52 49 4E 47 53 00 2D 0A |AN DE STRINGS.-.| 00000200: 28 00 8F 20 43 20 3D 20 54 45 4C 4C 45 52 20 54 |(.. C = TELLER T| 00000210: 2E 42 2E 56 20 45 20 56 41 4E 20 43 48 45 43 4B |.B.V E VAN CHECK| 00000220: 53 55 4D 20 47 45 4E 45 52 41 54 4F 52 00 5E 0A |SUM GENERATOR.^.| 00000230: 2D 00 8F 20 53 55 20 3D 20 47 45 54 41 4C 20 47 |-.. SU = GETAL G| 00000240: 45 42 52 55 49 4B 54 20 56 4F 4F 52 20 43 4F 4E |EBRUIKT VOOR CON| 00000250: 54 52 4F 4C 45 20 43 48 45 43 4B 53 55 4D 00 8D |TROLE CHECKSUM..| 00000260: 0A 32 00 8F 20 43 48 20 3D 20 43 48 45 43 4B 53 |.2.. CH = CHECKS| 00000270: 55 4D 20 47 45 4C 45 5A 45 4E 20 56 41 4E 20 44 |UM GELEZEN VAN D| 00000280: 41 54 41 20 53 54 41 54 45 4D 45 4E 54 00 B7 0A |ATA STATEMENT...| 00000290: 37 00 8F 20 42 20 3D 20 42 59 54 45 20 47 45 4C |7.. B = BYTE GEL| 000002A0: 45 5A 45 4E 20 56 41 4E 20 44 41 54 41 20 53 54 |EZEN VAN DATA ST| 000002B0: 41 54 45 4D 45 4E 54 00 BD 0A 60 00 8F 00 C5 0A |ATEMENT...`.....| 000002C0: 61 00 8F 2A 2A 00 11 0B 62 00 8F 2A 2A 2A 20 42 |a..**...b..*** B| 000002D0: 45 52 45 4B 45 4E 45 4E 20 54 4F 50 20 56 41 4E |EREKENEN TOP VAN| 000002E0: 20 47 45 48 45 55 47 45 4E 20 45 4E 20 52 45 53 | GEHEUGEN EN RES| 000002F0: 45 52 56 45 52 45 4E 20 56 41 4E 20 47 45 48 45 |ERVEREN VAN GEHE| 00000300: 55 47 45 4E 20 56 4F 4F 52 20 53 54 52 49 4E 47 |UGEN VOOR STRING| 00000310: 53 00 19 0B 63 00 8F 2A 2A 00 33 0B 64 00 54 20 |S...c..**.3.d.T | 00000320: B2 20 C2 28 35 35 29 20 AA 20 32 35 36 AC C2 28 |. .(55) . 256..(| 00000330: 35 36 29 00 45 0B 6E 00 97 20 35 36 2C 20 C2 28 |56).E.n.. 56, .(| 00000340: 34 36 29 AA 32 00 55 0B 78 00 97 20 35 32 2C 20 |46).2.U.x.. 52, | 00000350: C2 28 35 36 29 00 70 0B 82 00 99 20 22 93 46 55 |.(56).p.... ".FU| 00000360: 4E 43 54 49 45 20 54 4F 45 54 53 45 4E 22 3A 99 |NCTIE TOETSEN":.| 00000370: 00 76 0B C4 00 8F 00 7E 0B C5 00 8F 2A 2A 00 AA |.v.....~....**..| 00000380: 0B C6 00 8F 2A 2A 2A 20 44 45 46 49 4E 49 45 45 |....*** DEFINIEE| 00000390: 52 54 20 53 54 52 49 4E 47 53 20 52 4E 20 50 52 |RT STRINGS RN PR| 000003A0: 49 4E 54 20 5A 45 20 55 49 54 00 B2 0B C7 00 8F |INT ZE UIT......| 000003B0: 2A 2A 00 BF 0B C8 00 86 20 46 24 28 31 32 29 00 |**...... F$(12).| 000003C0: D3 0B D2 00 46 24 28 31 29 20 B2 20 22 4C 49 53 |....F$(1) . "LIS| 000003D0: 54 20 22 00 EC 0B DC 00 46 24 28 32 29 20 B2 20 |T ".....F$(2) . | 000003E0: 22 4C 4F 41 44 22 AA C7 28 33 34 29 00 FE 0B E6 |"LOAD"..(34)....| 000003F0: 00 46 24 28 33 29 20 B2 20 22 52 55 4E 22 00 1C |.F$(3) . "RUN"..| 00000400: 0C F0 00 46 24 28 34 29 20 B2 20 22 53 41 56 45 |...F$(4) . "SAVE| 00000410: 22 AA C7 28 33 34 29 AA 22 40 3A 22 00 42 0C FA |"..(34)."@:".B..| 00000420: 00 46 24 28 35 29 20 B2 20 22 50 52 49 4E 54 20 |.F$(5) . "PRINT | 00000430: 50 45 45 4B 28 20 20 20 20 20 29 9D 9D 9D 9D 9D |PEEK( ).....| 00000440: 9D 22 00 64 0C 04 01 46 24 28 36 29 20 B2 20 22 |.".d...F$(6) . "| 00000450: 4F 50 45 4E 20 31 35 2C 38 2C 31 35 2C 22 AA C7 |OPEN 15,8,15,"..| 00000460: 28 33 34 29 00 7F 0C 0E 01 46 24 28 37 29 20 B2 |(34).....F$(7) .| 00000470: 20 22 50 52 49 4E 54 20 46 52 45 28 30 29 22 00 | "PRINT FRE(0)".| 00000480: 96 0C 18 01 46 24 28 38 29 20 B2 20 22 43 4C 4F |....F$(8) . "CLO| 00000490: 53 45 20 31 35 22 00 AA 0C 22 01 46 24 28 39 29 |SE 15"...".F$(9)| 000004A0: 20 B2 20 22 47 4F 54 4F 20 22 00 C0 0C 2C 01 46 | . "GOTO "...,.F| 000004B0: 24 28 31 30 29 20 B2 20 22 47 4F 53 55 42 20 22 |$(10) . "GOSUB "| 000004C0: 00 D6 0C 36 01 46 24 28 31 31 29 20 B2 20 22 52 |...6.F$(11) . "R| 000004D0: 45 54 55 52 4E 22 00 EB 0C 40 01 46 24 28 31 32 |ETURN"...@.F$(12| 000004E0: 29 20 B2 20 22 50 4F 4B 45 20 22 00 FC 0C 4A 01 |) . "POKE "...J.| 000004F0: 81 20 49 20 B2 20 31 20 A4 20 31 32 00 23 0D 54 |. I . 1 . 12.#.T| 00000500: 01 99 20 22 46 22 20 AA 20 C9 28 C4 28 49 29 2C |.. "F" . .(.(I),| 00000510: C3 28 C4 28 49 29 29 AB 31 29 20 AA 20 22 20 3D |.(.(I)).1) . " =| 00000520: 20 22 3B 00 3F 0D 59 01 99 20 C7 28 33 34 29 20 | ";.?.Y.. .(34) | 00000530: AA 20 46 24 28 49 29 20 AA 20 C7 28 33 34 29 00 |. F$(I) . .(34).| 00000540: 47 0D 5E 01 82 20 49 00 4D 0D 8C 01 8F 00 55 0D |G.^.. I.M.....U.| 00000550: 8D 01 8F 2A 2A 00 A1 0D 8E 01 8F 2A 2A 2A 20 42 |...**......*** B| 00000560: 45 52 45 4B 45 4E 54 20 20 53 54 41 52 54 20 41 |EREKENT START A| 00000570: 44 52 45 53 53 45 4E 20 56 4F 4F 52 20 20 20 20 |DRESSEN VOOR | 00000580: 53 54 52 49 4E 47 53 20 41 4E 44 20 4D 41 43 48 |STRINGS AND MACH| 00000590: 49 4E 45 54 41 41 4C 20 50 52 4F 47 52 41 4D 4D |INETAAL PROGRAMM| 000005A0: 41 00 A9 0D 8F 01 8F 2A 2A 00 B3 0D 90 01 4C 20 |A......**.....L | 000005B0: B2 20 30 00 C4 0D 9A 01 81 20 49 20 B2 20 31 20 |. 0...... I . 1 | 000005C0: A4 20 31 32 00 D9 0D A4 01 4C 20 B2 20 4C 20 AA |. 12.....L . L .| 000005D0: 20 C3 28 46 24 28 49 29 29 00 E1 0D AE 01 82 20 | .(F$(I))...... | 000005E0: 49 00 0E 0E B3 01 8B 20 4C 20 B1 20 32 33 31 20 |I...... L . 231 | 000005F0: A7 20 99 20 22 12 53 54 52 49 4E 47 53 20 54 45 |. . ".STRINGS TE| 00000600: 20 4C 41 4E 47 20 22 3A 20 89 20 38 30 30 00 1F | LANG ": . 800..| 00000610: 0E B8 01 53 4D 20 B2 20 54 20 AB 20 31 33 32 00 |...SM . T . 132.| 00000620: 34 0E C2 01 53 53 20 B2 20 54 20 AB 20 4C 20 AB |4...SS . T . L .| 00000630: 20 31 35 36 00 3A 0E F0 01 8F 00 42 0E F1 01 8F | 156.:.....B....| 00000640: 2A 2A 00 67 0E F2 01 8F 2A 2A 2A 20 42 45 57 41 |**.g....*** BEWA| 00000650: 41 52 54 20 53 54 52 49 4E 47 53 20 45 4E 20 50 |ART STRINGS EN P| 00000660: 4F 49 4E 54 45 52 53 00 6F 0E F3 01 8F 2A 2A 00 |OINTERS.o....**.| 00000670: 89 0E F4 01 50 50 20 B2 20 53 53 3A 20 53 50 20 |....PP . SS: SP | 00000680: B2 20 53 53 20 AA 20 31 32 00 AA 0E FE 01 81 20 |. SS . 12...... | 00000690: 49 20 B2 20 31 20 A4 20 37 20 A9 20 32 3A 20 8D |I . 1 . 7 . 2: .| 000006A0: 20 31 30 30 30 3A 20 82 20 49 00 CB 0E 08 02 81 | 1000: . I......| 000006B0: 20 49 20 B2 20 32 20 A4 20 38 20 A9 20 32 3A 20 | I . 2 . 8 . 2: | 000006C0: 8D 20 31 30 30 30 3A 20 82 20 49 00 E9 0E 12 02 |. 1000: . I.....| 000006D0: 81 20 49 20 B2 20 39 20 A4 20 31 32 3A 20 8D 20 |. I . 9 . 12: . | 000006E0: 31 30 30 30 3A 20 82 20 49 00 EF 0E 54 02 8F 00 |1000: . I...T...| 000006F0: F7 0E 55 02 8F 2A 2A 00 1B 0F 56 02 8F 2A 2A 2A |..U..**...V..***| 00000700: 20 4C 41 41 44 20 4D 41 43 48 49 4E 45 54 41 41 | LAAD MACHINETAA| 00000710: 4C 20 50 52 4F 47 52 41 4D 4D 41 00 23 0F 57 02 |L PROGRAMMA.#.W.| 00000720: 8F 2A 2A 00 39 0F 58 02 81 20 49 20 B2 20 53 4D |.**.9.X.. I . SM| 00000730: 20 A4 20 53 4D AA 31 33 31 00 41 0F 62 02 87 20 | . SM.131.A.b.. | 00000740: 42 00 51 0F 63 02 53 55 20 B2 20 53 55 20 AA 20 |B.Q.c.SU . SU . | 00000750: 42 00 5F 0F 64 02 43 20 B2 20 43 20 AA 20 31 00 |B._.d.C . C . 1.| 00000760: 7F 0F 65 02 8B 20 43 B3 B1 31 39 20 AF 20 49 B3 |..e.. C..19 . I.| 00000770: B1 28 53 4D AA 31 33 31 29 20 A7 20 36 32 30 00 |.(SM.131) . 620.| 00000780: 88 0F 66 02 87 20 43 48 00 A9 0F 67 02 8B 20 43 |..f.. CH...g.. C| 00000790: 48 20 B2 20 53 55 20 A7 20 43 B2 30 3A 20 53 55 |H . SU . C.0: SU| 000007A0: B2 30 3A 20 89 20 36 32 30 00 CA 0F 68 02 99 3A |.0: . 620...h..:| 000007B0: 20 99 20 22 12 44 41 54 41 20 53 54 41 54 45 4D | . ".DATA STATEM| 000007C0: 45 4E 54 20 45 52 52 4F 52 22 00 EF 0F 69 02 99 |ENT ERROR"...i..| 000007D0: 20 22 12 49 4E 20 52 45 47 45 4C 22 3B 20 C2 28 | ".IN REGEL"; .(| 000007E0: 36 33 29 20 AA 20 32 35 36 AC C2 28 36 34 29 00 |63) . 256..(64).| 000007F0: F9 0F 6A 02 89 20 38 30 30 00 04 10 6C 02 97 20 |..j.. 800...l.. | 00000800: 49 2C 20 42 00 0C 10 76 02 82 20 49 00 12 10 B8 |I, B...v.. I....| 00000810: 02 8F 00 1A 10 B9 02 8F 2A 2A 00 47 10 BA 02 8F |........**.G....| 00000820: 2A 2A 2A 20 56 4F 4F 52 42 45 52 45 49 44 49 4E |*** VOORBEREIDIN| 00000830: 47 20 4D 41 43 48 49 4E 45 54 41 41 4C 20 50 52 |G MACHINETAAL PR| 00000840: 4F 47 52 41 4D 4D 41 00 4F 10 BB 02 8F 2A 2A 00 |OGRAMMA.O....**.| 00000850: 61 10 BC 02 97 20 32 35 30 2C 20 53 4D AD 32 35 |a.... 250, SM.25| 00000860: 36 00 7A 10 C6 02 97 20 32 34 39 2C 20 53 4D AB |6.z.... 249, SM.| 00000870: 32 35 36 AC C2 28 32 35 30 29 00 88 10 CB 02 97 |256..(250)......| 00000880: 20 32 34 38 2C 20 37 36 00 9A 10 D0 02 97 20 32 | 248, 76...... 2| 00000890: 35 32 2C 20 53 53 AD 32 35 36 00 B3 10 DA 02 97 |52, SS.256......| 000008A0: 20 32 35 31 2C 20 53 53 AB 32 35 36 AC C2 28 32 | 251, SS.256..(2| 000008B0: 35 32 29 00 C0 10 E4 02 97 20 36 34 39 2C 20 39 |52)...... 649, 9| 000008C0: 00 DF 10 EE 02 97 20 35 35 2C 20 C2 28 32 35 31 |...... 55, .(251| 000008D0: 29 3A 20 97 20 35 36 2C 20 C2 28 32 35 32 29 00 |): . 56, .(252).| 000008E0: FE 10 F8 02 97 20 35 31 2C 20 C2 28 32 35 31 29 |..... 51, .(251)| 000008F0: 3A 20 97 20 35 32 2C 20 C2 28 32 35 32 29 00 11 |: . 52, .(252)..| 00000900: 11 F9 02 97 20 54 AB 31 33 2C 20 C2 28 37 38 39 |.... T.13, .(789| 00000910: 29 00 24 11 FA 02 97 20 54 AB 31 34 2C 20 C2 28 |).$.... T.14, .(| 00000920: 37 38 38 29 00 2E 11 02 03 9E 20 32 34 38 00 34 |788)...... 248.4| 00000930: 11 0C 03 A2 00 3A 11 1C 03 8F 00 42 11 1D 03 8F |.....:.....B....| 00000940: 2A 2A 00 8B 11 1E 03 8F 2A 2A 2A 20 52 45 53 54 |**......*** REST| 00000950: 4F 52 45 44 20 44 45 20 48 55 49 44 49 47 45 20 |ORED DE HUIDIGE | 00000960: 54 4F 50 20 56 41 4E 20 48 45 54 20 47 45 48 45 |TOP VAN HET GEHE| 00000970: 55 47 45 4E 20 41 4C 53 20 45 45 4E 20 45 52 52 |UGEN ALS EEN ERR| 00000980: 4F 52 20 4F 50 54 52 45 45 44 54 00 93 11 1F 03 |OR OPTREEDT.....| 00000990: 8F 2A 2A 00 A3 11 20 03 97 20 35 36 2C 20 54 AD |.**... .. 56, T.| 000009A0: 32 35 36 00 BB 11 2A 03 97 20 35 35 2C 20 54 20 |256...*.. 55, T | 000009B0: AB 20 32 35 36 AC C2 28 35 36 29 00 C1 11 34 03 |. 256..(56)...4.| 000009C0: 80 00 C7 11 E4 03 8F 00 CF 11 E5 03 8F 2A 2A 00 |.............**.| 000009D0: 04 12 E6 03 8F 2A 2A 2A 20 53 55 42 52 4F 55 54 |.....*** SUBROUT| 000009E0: 49 4E 45 20 4F 4D 20 53 54 52 49 4E 47 53 20 54 |INE OM STRINGS T| 000009F0: 45 20 42 45 57 41 52 45 4E 20 56 4F 4F 52 20 46 |E BEWAREN VOOR F| 00000A00: 24 28 49 29 00 0C 12 E7 03 8F 2A 2A 00 27 12 E8 |$(I)......**.'..| 00000A10: 03 97 20 50 50 2C 20 53 50 AB 53 53 3A 20 50 50 |.. PP, SP.SS: PP| 00000A20: 20 B2 20 50 50 AA 31 00 3F 12 ED 03 8B 20 46 24 | . PP.1.?.... F$| 00000A30: 28 49 29 20 B2 20 22 22 20 A7 20 31 30 36 30 00 |(I) . "" . 1060.| 00000A40: 56 12 F2 03 81 20 4A 20 B2 20 31 20 A4 20 C3 28 |V.... J . 1 . .(| 00000A50: 46 24 28 49 29 29 00 70 12 06 04 97 20 53 50 2C |F$(I)).p.... SP,| 00000A60: 20 C6 28 CA 28 46 24 28 49 29 2C 4A 2C 31 29 29 | .(.(F$(I),J,1))| 00000A70: 00 7E 12 10 04 53 50 20 B2 20 53 50 AA 31 00 86 |.~...SP . SP.1..| 00000A80: 12 1A 04 82 20 4A 00 92 12 24 04 97 20 53 50 2C |.... J...$.. SP,| 00000A90: 20 30 00 A2 12 2E 04 53 50 20 B2 20 53 50 20 AA | 0.....SP . SP .| 00000AA0: 20 31 00 A8 12 38 04 8E 00 AE 12 24 23 8F 00 B6 | 1...8.....$#...| 00000AB0: 12 25 23 8F 2A 2A 00 DE 12 26 23 8F 2A 2A 2A 20 |.%#.**...&#.*** | 00000AC0: 44 41 54 41 20 46 4F 52 20 4D 41 43 48 49 4E 45 |DATA FOR MACHINE| 00000AD0: 54 41 41 4C 20 50 52 4F 47 52 41 4D 4D 41 00 E6 |TAAL PROGRAMMA..| 00000AE0: 12 27 23 8F 2A 2A 00 2F 13 28 23 83 31 32 30 2C |.'#.**./.(#.120,| 00000AF0: 31 36 35 2C 32 35 30 2C 31 34 31 2C 32 31 2C 33 |165,250,141,21,3| 00000B00: 2C 31 36 35 2C 32 34 39 2C 32 34 2C 31 30 35 2C |,165,249,24,105,| 00000B10: 32 31 2C 31 34 34 2C 33 2C 32 33 38 2C 32 31 2C |21,144,3,238,21,| 00000B20: 33 2C 31 34 31 2C 32 30 2C 33 2C 31 38 33 37 00 |3,141,20,3,1837.| 00000B30: 7D 13 32 23 83 38 38 2C 39 36 2C 31 36 35 2C 31 |}.2#.88,96,165,1| 00000B40: 39 38 2C 32 30 38 2C 39 32 2C 31 36 35 2C 32 35 |98,208,92,165,25| 00000B50: 34 2C 32 34 30 2C 39 31 2C 31 36 39 2C 30 2C 31 |4,240,91,169,0,1| 00000B60: 33 33 2C 32 35 34 2C 31 36 34 2C 32 35 33 2C 32 |33,254,164,253,2| 00000B70: 34 2C 31 34 34 2C 35 36 2C 32 37 39 34 00 C7 13 |4,144,56,2794...| 00000B80: 3C 23 83 32 30 31 2C 36 2C 32 34 30 2C 31 37 2C |<#.201,6,240,17,| 00000B90: 32 30 32 2C 32 30 31 2C 35 2C 32 34 30 2C 31 32 |202,201,5,240,12| 00000BA0: 2C 32 30 32 2C 32 30 31 2C 34 2C 32 34 30 2C 37 |,202,201,4,240,7| 00000BB0: 2C 31 36 39 2C 32 35 35 2C 31 34 31 2C 31 32 38 |,169,255,141,128| 00000BC0: 2C 32 2C 32 34 37 33 00 0D 14 46 23 83 34 38 2C |,2,2473...F#.48,| 00000BD0: 35 38 2C 31 33 34 2C 32 35 33 2C 31 36 32 2C 30 |58,134,253,162,0| 00000BE0: 2C 31 37 33 2C 31 34 31 2C 32 2C 32 30 31 2C 31 |,173,141,2,201,1| 00000BF0: 2C 32 30 38 2C 32 2C 31 36 32 2C 34 2C 32 30 31 |,208,2,162,4,201| 00000C00: 2C 32 2C 32 30 38 2C 32 2C 31 39 36 32 00 5B 14 |,2,208,2,1962.[.| 00000C10: 50 23 83 31 36 32 2C 38 2C 31 33 38 2C 32 34 2C |P#.162,8,138,24,| 00000C20: 31 30 31 2C 32 35 33 2C 32 30 35 2C 31 32 38 2C |101,253,205,128,| 00000C30: 32 2C 32 34 30 2C 33 30 2C 31 34 31 2C 31 32 38 |2,240,30,141,128| 00000C40: 2C 32 2C 31 36 38 2C 31 37 37 2C 32 35 31 2C 31 |,2,168,177,251,1| 00000C50: 36 38 2C 31 36 32 2C 32 34 38 38 00 AA 14 5A 23 |68,162,2488...Z#| 00000C60: 83 30 2C 31 37 37 2C 32 35 31 2C 32 34 30 2C 31 |.0,177,251,240,1| 00000C70: 37 2C 31 35 37 2C 31 31 39 2C 32 2C 32 30 30 2C |7,157,119,2,200,| 00000C80: 32 33 32 2C 31 33 34 2C 31 39 38 2C 32 32 34 2C |232,134,198,224,| 00000C90: 39 2C 32 30 38 2C 32 34 31 2C 31 33 32 2C 32 35 |9,208,241,132,25| 00000CA0: 33 2C 31 36 39 2C 32 39 36 33 00 F3 14 64 23 83 |3,169,2963...d#.| 00000CB0: 31 2C 31 33 33 2C 32 35 34 2C 37 36 2C 34 39 2C |1,133,254,76,49,| 00000CC0: 32 33 34 2C 31 36 32 2C 33 2C 31 36 35 2C 31 39 |234,162,3,165,19| 00000CD0: 37 2C 32 30 31 2C 33 2C 32 34 30 2C 31 38 37 2C |7,201,3,240,187,| 00000CE0: 32 30 32 2C 32 34 2C 31 34 34 2C 31 36 32 2C 32 |202,24,144,162,2| 00000CF0: 34 33 37 00 00 00 |437... |
..#.... FUNCTIE TOETSEN DEFINITIE.>... . COMMODORE 64 VERSIE.D.....B.... DOOR TANZINI & MINDZAK..... AANGEPAST EN V ERTAALD...... DOOR...... F.BLEJENBERGH......**.T....************ ************......**...... GEBRUI KTE VARIABELEN.&.... T = HUIDIGE HOOGSTE GEHEUGENADRES.R.... SM = START VAN DE M ACHINETAAL ROUTINE...... SS = START VAN GEDEFINIEERDE STRINGS VOOR DE FUNCTIE TO ETSEN...... PP = POINTER NAAR STRING POI NTERS...#.. SP = POINTER NAAR STRINGS TI JDENSHET LADEN VAN DE STRINGS.-.(.. C = TELLER T.B.V E VAN CHECKSUM GENERATOR.^. -.. SU = GETAL GEBRUIKT VOOR CONTROLE CH ECKSUM...2.. CH = CHECKSUM GELEZEN VAN D ATA STATEMENT...7.. B = BYTE GELEZEN VAN DATA STATEMENT...`...E.A..**...B..*** B EREKENEN TOP VAN GEHEUGEN EN RESERVEREN VAN GEHEUGEN VOOR STRINGS...C..**.3.D.T . B(55) . 256.B(56).E.N.. 56, B(46).2.U. X.. 52, B(56).P.... ".FUNCTIE TOETSEN":. .V.D...~.E..**...F..*** DEFINIEERT STRIN GS RN PRINT ZE UIT...G..**...H.. F$(12). S.R.F$(1) . "LIST ".....F$(2) . "LOAD".G (34).....F$(3) . "RUN".....F$(4) . "SAVE ".G(34)."@:".B...F$(5) . "PRINT PEEK( )......".D...F$(6) . "OPEN 15,8,15,".G (34)....F$(7) . "PRINT FRE(0)".....F$(8 ) . "CLOSE 15"...".F$(9) . "GOTO "...,.F $(10) . "GOSUB ".V.6.F$(11) . "RETURN".. .@.F$(12) . "POKE "...J.. I . 1 . 12.#.T .. "F" . I(D(I),C(D(I)).1) . " = ";.?.Y. . G(34) . F$(I) . G(34).G.^.. I.M.....U. ...**......*** BEREKENT START ADRESSEN VOOR STRINGS AND MACHINETAAL PROGRAMM A......**.....L . 0.D.... I . 1 . 12.Y.. .L . L . C(F$(I))...... I...... L . 231 . . ".STRINGS TE LANG ": . 800.....SM . T . 132.4.B.SS . T . L . 156.:.....B.... **.G....*** BEWAART STRINGS EN POINTERS. O....**.....PP . SS: SP . SS . 12...... I . 1 . 7 . 2: . 1000: . I.K.... I . 2 . 8 . 2: . 1000: . I...... I . 9 . 12: . 1000: . I...T.....U..**...V..*** LAAD MA CHINETAAL PROGRAMMA.#.W..**.9.X.. I . SM . SM.131.A.B.. B.Q.C.SU . SU . B._.D.C . C . 1..E.. C..19 . I..(SM.131) . 620. ..F.. CH...G.. CH . SU . C.0: SU.0: . 62 0.J.H..: . ".DATA STATEMENT ERROR"...I.. ".IN REGEL"; B(63) . 256.B(64)...J.. 80 0...L.. I, B...V.. I............**.G.... *** VOORBEREIDING MACHINETAAL PROGRAMMA. O....**.A.... 250, SM.256.Z.F.. 249, SM. 256.B(250)...K.. 248, 76...P.. 252, SS.2 56...Z.. 251, SS.256.B(252)...... 649, 9 ...... 55, B(251): . 56, B(252)...... 51 , B(251): . 52, B(252)...... T.13, B(789 ).$.... T.14, B(788)...... 248.4.....:.. ...B....**......*** RESTORED DE HUIDIGE TOP VAN HET GEHEUGEN ALS EEN ERROR OPTRE EDT......**... .. 56, T.256...*.. 55, T . 256.B(56).A.4...G.....O....**......*** SUBROUTINE OM STRINGS TE BEWAREN VOOR F $(I)......**.'.... PP, SP.SS: PP . PP.1. ?.... F$(I) . "" . 1060.V.... J . 1 . C( F$(I)).P.... SP, F(J(F$(I),J,1)).~...SP . SP.1...... J...$.. SP, 0.....SP . SP . 1...8.....$#....%#.**...&#.*** DATA FOR MACHINETAAL PROGRAMMA...'#.**./.(#.120, 165,250,141,21,3,165,249,24,105,21,144,3 ,238,21,3,141,20,3,1837.}.2#.88,96,165,1 98,208,92,165,254,240,91,169,0,133,254,1 64,253,24,144,56,2794.G.<#.201,6,240,17, 202,201,5,240,12,202,201,4,240,7,169,255 ,141,128,2,2473...F#.48,58,134,253,162,0 ,173,141,2,201,1,208,2,162,4,201,2,208,2 ,1962.[.P#.162,8,138,24,101,253,205,128, 2,240,30,141,128,2,168,177,251,168,162,2 488...Z#.0,177,251,240,17,157,119,2,200, 232,134,198,224,9,208,241,132,253,169,29 63...D#.1,133,254,76,49,234,162,3,165,19 7,201,3,240,187,202,24,144,162,2437...
> CLICK IMAGE PREVIEW FOR FULL MODAL