BASIC LES 4
FILE INFORMATION
FILENAME(S): BASIC LES 4
FILE TYPE(S): PRG
FILE SIZE: 6.3K
FIRST SEEN: 2025-12-01 20:43:42
APPEARS ON: 1 disk(s)
FILE HASH
cf6ebcc1fb9b788b51026c7b258f07f8e19fcf00cd919f190d0bd09e5730ca75
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BASIC | BASIC LES 4 | PRG | mace | 16 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 13 08 01 00 8F 20 42 41 53 49 43 20 4C 45 |....... BASIC LE|
00000010: 53 20 34 00 23 08 02 00 48 B2 C2 28 31 38 36 29 |S 4.#...H..(186)|
00000020: 3A 89 39 00 6C 08 03 00 97 51 31 2C 30 3A 99 22 |:.9.l....Q1,0:."|
00000030: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000040: 11 11 11 11 11 11 11 11 20 20 20 20 20 20 9E 12 |........ ..|
00000050: 56 4F 4F 52 20 56 45 52 44 45 52 3A 20 44 52 55 |VOOR VERDER: DRU|
00000060: 4B 20 4F 50 20 27 53 50 41 43 45 27 00 7F 08 04 |K OP 'SPACE'....|
00000070: 00 A1 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 34 00 |..A$:.A$.." ".4.|
00000080: 85 08 05 00 8E 00 B8 08 06 00 99 A6 53 AA 33 29 |............S.3)|
00000090: 22 A4 A4 A4 A4 A4 22 3A 99 A6 53 AA 32 29 22 CE |".....":..S.2)".|
000000A0: 20 20 20 20 CE A5 22 3A 99 A6 53 AA 31 29 22 CE | ..":..S.1)".|
000000B0: 20 20 20 20 CE 20 A5 22 00 EA 08 07 00 99 A6 53 | . .".......S|
000000C0: 29 22 CE 20 20 20 20 CE 20 20 A5 22 3A 99 A6 53 |)". . .":..S|
000000D0: 29 22 CF A3 A3 A3 D0 20 20 CE 22 3A 99 A6 53 29 |)"..... .":..S)|
000000E0: 22 A5 12 20 20 20 92 A7 20 CE 00 05 09 08 00 99 |".. .. .......|
000000F0: A6 53 29 22 CC A4 A4 A4 BA CE 91 91 91 91 9D 9D |.S)"............|
00000100: 9D 22 3B 3A 8E 00 11 09 09 00 99 C7 28 31 34 32 |.";:........(142|
00000110: 29 00 2E 09 0A 00 51 31 B2 31 39 38 3A 97 35 33 |).....Q1.198:.53|
00000120: 32 38 30 2C 32 3A 97 35 33 32 38 31 2C 32 00 61 |280,2:.53281,2.a|
00000130: 09 0B 00 99 22 05 93 20 2A 2A 2A 20 56 41 52 49 |....".. *** VARI|
00000140: 41 42 45 4C 45 4E 20 2A 2A 2A 22 3A 99 22 20 2A |ABELEN ***":." *|
00000150: 2A 2A 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 2A 2A |** ---------- **|
00000160: 2A 00 90 09 0C 00 99 22 11 11 90 20 56 41 52 49 |*......"... VARI|
00000170: 41 42 45 4C 45 4E 20 5A 49 4A 4E 20 41 2E 48 2E |ABELEN ZIJN A.H.|
00000180: 57 20 4B 4C 45 49 4E 45 20 44 4F 4F 53 4A 45 53 |W KLEINE DOOSJES|
00000190: 00 BE 09 0D 00 99 22 11 20 57 41 41 52 49 4E 20 |......". WAARIN |
000001A0: 57 45 20 47 45 54 41 4C 4C 45 4E 20 5A 4F 57 45 |WE GETALLEN ZOWE|
000001B0: 4C 20 41 4C 53 20 57 4F 4F 52 44 45 4E 2C 00 E7 |L ALS WOORDEN,..|
000001C0: 09 0E 00 99 22 11 20 4D 41 41 52 20 4F 4F 4B 20 |....". MAAR OOK |
000001D0: 45 45 4E 20 43 4F 4D 42 49 4E 41 54 49 45 20 44 |EEN COMBINATIE D|
000001E0: 41 41 52 56 41 4E 2C 00 16 0A 0F 00 99 22 11 20 |AARVAN,......". |
000001F0: 54 49 4A 44 45 4C 49 4A 4B 20 4B 55 4E 4E 45 4E |TIJDELIJK KUNNEN|
00000200: 20 4F 50 42 45 52 47 45 4E 2C 20 4F 4D 20 5A 45 | OPBERGEN, OM ZE|
00000210: 20 4C 41 54 45 52 00 48 0A 10 00 99 22 11 20 45 | LATER.H....". E|
00000220: 52 20 57 45 45 52 20 55 49 54 20 54 45 20 48 41 |R WEER UIT TE HA|
00000230: 4C 45 4E 20 45 4E 20 54 45 20 56 45 52 57 45 52 |LEN EN TE VERWER|
00000240: 4B 45 4E 2E 22 3A 8D 33 00 6A 0A 11 00 99 22 93 |KEN.":.3.j....".|
00000250: 22 3B 3A 53 B2 34 3A 8D 36 3A 99 22 37 39 11 11 |";:S.4:.6:."79..|
00000260: 11 9D 9D 9D 12 41 92 11 11 11 00 8D 0A 12 00 99 |.....A..........|
00000270: 22 13 22 3B 3A 53 B2 31 35 3A 8D 36 3A 99 22 31 |".";:S.15:.6:."1|
00000280: 31 11 11 11 9D 9D 9D 12 50 92 11 11 11 00 B0 0A |1.......P.......|
00000290: 13 00 99 22 13 22 3B 3A 53 B2 32 35 3A 8D 36 3A |...".";:S.25:.6:|
000002A0: 99 22 35 35 11 11 11 9D 9D 9D 12 47 92 11 11 11 |."55.......G....|
000002B0: 00 DD 0A 14 00 99 22 11 9A 20 44 45 20 56 41 52 |......".. DE VAR|
000002C0: 49 41 42 45 4C 45 4E 2C 20 48 49 45 52 20 27 41 |IABELEN, HIER 'A|
000002D0: 27 20 27 50 27 20 45 4E 20 27 47 27 2C 00 0B 0B |' 'P' EN 'G',...|
000002E0: 15 00 99 22 11 20 49 44 45 4E 54 49 46 49 43 45 |...". IDENTIFICE|
000002F0: 52 45 4E 20 48 45 54 20 27 44 4F 4F 53 4A 45 27 |REN HET 'DOOSJE'|
00000300: 2C 20 57 41 41 52 49 4E 20 57 45 00 30 0B 16 00 |, WAARIN WE.0...|
00000310: 99 22 11 20 45 45 4E 20 47 45 54 41 4C 20 48 45 |.". EEN GETAL HE|
00000320: 42 42 45 4E 20 4F 50 47 45 42 4F 52 47 45 4E 2E |BBEN OPGEBORGEN.|
00000330: 00 63 0B 17 00 99 22 11 90 20 4D 45 54 3A 20 12 |.c....".. MET: .|
00000340: 4C 45 54 20 41 3D 37 39 92 20 28 4C 45 54 20 4D |LET A=79. (LET M|
00000350: 41 47 20 4A 45 20 4F 4F 4B 20 57 45 47 4C 41 54 |AG JE OOK WEGLAT|
00000360: 45 4E 29 00 90 0B 18 00 99 22 20 53 54 4F 50 50 |EN)......" STOPP|
00000370: 45 4E 20 57 45 20 48 45 54 20 47 45 54 41 4C 20 |EN WE HET GETAL |
00000380: 37 39 20 49 4E 20 44 45 20 27 44 4F 4F 53 27 2E |79 IN DE 'DOOS'.|
00000390: 00 B4 0B 19 00 99 22 11 05 20 4D 45 54 20 48 45 |......".. MET HE|
000003A0: 54 20 27 4C 41 42 45 4C 27 20 27 41 27 2E 2E 2E |T 'LABEL' 'A'...|
000003B0: 22 3A 8D 33 00 D7 0B 1A 00 99 22 93 22 3B 3A 53 |":.3......".";:S|
000003C0: B2 34 3A 8D 36 3A 99 22 37 39 11 11 11 9D 9D 9D |.4:.6:."79......|
000003D0: 12 41 25 92 11 11 11 00 FB 0B 1B 00 99 22 13 22 |.A%.........."."|
000003E0: 3B 3A 53 B2 31 35 3A 8D 36 3A 99 22 31 31 11 11 |;:S.15:.6:."11..|
000003F0: 11 9D 9D 9D 12 50 25 92 11 11 11 00 1F 0C 1C 00 |.....P%.........|
00000400: 99 22 13 22 3B 3A 53 B2 32 35 3A 8D 36 3A 99 22 |.".";:S.25:.6:."|
00000410: 35 35 11 11 11 9D 9D 9D 12 47 25 92 11 11 11 00 |55.......G%.....|
00000420: 50 0C 1D 00 99 22 9A 20 48 45 54 20 50 52 4F 43 |P....". HET PROC|
00000430: 45 4E 54 54 45 4B 45 4E 20 12 25 92 20 41 43 48 |ENTTEKEN .%. ACH|
00000440: 54 45 52 20 27 4E 20 4E 55 4D 45 52 49 45 4B 45 |TER 'N NUMERIEKE|
00000450: 00 7C 0C 1E 00 99 22 11 20 56 41 52 49 41 42 45 |.|....". VARIABE|
00000460: 4C 45 20 42 56 2E 20 41 25 3D 37 39 2C 20 53 50 |LE BV. A%=79, SP|
00000470: 41 41 52 54 20 52 55 49 4D 54 45 2C 00 A2 0C 1F |AART RUIMTE,....|
00000480: 00 99 22 11 20 4D 41 41 52 20 4C 41 41 54 20 47 |..". MAAR LAAT G|
00000490: 45 45 4E 20 44 45 43 49 4D 41 4C 45 4E 20 54 4F |EEN DECIMALEN TO|
000004A0: 45 21 00 D1 0C 20 00 99 22 11 11 99 20 41 25 20 |E!... .."... A% |
000004B0: 49 53 20 4E 49 45 54 20 48 45 54 20 5A 45 4C 46 |IS NIET HET ZELF|
000004C0: 44 45 20 41 4C 53 20 41 20 45 4E 20 4D 4F 47 45 |DE ALS A EN MOGE|
000004D0: 4E 00 01 0D 21 00 99 22 11 20 42 45 49 44 45 20 |N...!..". BEIDE |
000004E0: 49 4E 20 48 45 54 20 5A 45 4C 46 44 45 20 50 52 |IN HET ZELFDE PR|
000004F0: 4F 47 52 41 4D 4D 41 20 56 4F 4F 52 4B 4F 4D 45 |OGRAMMA VOORKOME|
00000500: 4E 00 33 0D 22 00 99 22 11 1E 20 25 20 4E 4F 45 |N.3."..".. % NOE|
00000510: 4D 45 4E 20 57 45 20 45 45 4E 20 27 49 4E 54 45 |MEN WE EEN 'INTE|
00000520: 47 45 52 20 49 44 45 4E 54 49 46 49 45 52 27 22 |GER IDENTIFIER'"|
00000530: 3A 8D 33 00 63 0D 23 00 99 22 93 90 20 41 4C 53 |:.3.c.#..".. ALS|
00000540: 20 56 41 52 49 41 42 41 4C 45 20 4D 41 47 20 4A | VARIABALE MAG J|
00000550: 45 20 45 4C 4B 45 20 57 49 4C 4C 45 4B 45 55 52 |E ELKE WILLEKEUR|
00000560: 49 47 45 00 8D 0D 24 00 99 22 11 20 4C 45 54 54 |IGE...$..". LETT|
00000570: 45 52 20 55 49 54 20 48 45 54 20 41 4C 46 41 42 |ER UIT HET ALFAB|
00000580: 45 54 20 47 45 42 52 55 49 4B 45 4E 2E 00 B7 0D |ET GEBRUIKEN....|
00000590: 25 00 99 22 11 99 20 12 45 45 4E 20 43 49 4A 46 |%..".. .EEN CIJF|
000005A0: 45 52 20 49 53 20 4E 49 45 54 20 54 4F 45 4C 41 |ER IS NIET TOELA|
000005B0: 41 54 42 41 41 52 21 00 E1 0D 26 00 99 22 11 20 |ATBAAR!...&..". |
000005C0: 12 27 28 4C 45 54 29 20 39 3D 38 31 27 20 49 53 |.'(LET) 9=81' IS|
000005D0: 20 44 55 53 20 47 52 4F 54 45 20 4F 4E 5A 49 4E | DUS GROTE ONZIN|
000005E0: 21 00 0E 0E 27 00 99 22 11 1E 20 56 41 52 49 41 |!...'..".. VARIA|
000005F0: 42 45 4C 45 4E 20 4D 4F 47 45 4E 20 57 45 4C 20 |BELEN MOGEN WEL |
00000600: 42 45 53 54 41 41 4E 20 55 49 54 20 27 4E 00 3C |BESTAAN UIT 'N.<|
00000610: 0E 28 00 99 22 11 20 4C 45 54 54 45 52 20 47 45 |.(..". LETTER GE|
00000620: 56 4F 4C 47 44 20 44 4F 4F 52 20 27 4E 20 43 49 |VOLGD DOOR 'N CI|
00000630: 4A 46 45 52 20 42 56 3A 20 12 41 31 00 62 0E 29 |JFER BV: .A1.b.)|
00000640: 00 99 22 11 20 4F 46 20 55 49 54 20 54 57 45 45 |..". OF UIT TWEE|
00000650: 20 4C 45 54 54 45 52 53 20 42 56 3A 20 12 50 45 | LETTERS BV: .PE|
00000660: 92 2E 00 8E 0E 2A 00 99 22 11 90 20 4D 2E 55 2E |.....*..".. M.U.|
00000670: 56 2E 20 44 45 20 43 4F 4D 42 49 4E 41 54 49 45 |V. DE COMBINATIE|
00000680: 53 3A 20 54 49 20 45 4E 20 53 54 20 21 21 00 B8 |S: TI EN ST !!..|
00000690: 0E 2B 00 99 22 20 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 |.+.." ..........|
000006A0: C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 |................|
000006B0: C5 C5 C5 C5 C5 C5 C5 C5 00 E7 0E 2C 00 99 22 05 |...........,..".|
000006C0: 20 4A 45 20 4D 41 47 20 45 52 20 57 45 4C 20 4D | JE MAG ER WEL M|
000006D0: 45 45 52 20 4E 45 4D 45 4E 2C 20 4D 41 41 52 20 |EER NEMEN, MAAR |
000006E0: 49 4B 20 4B 49 4A 4B 00 10 0F 2D 00 99 22 11 20 |IK KIJK...-..". |
000006F0: 41 4C 4C 45 45 4E 20 4D 41 41 52 20 4E 41 41 52 |ALLEEN MAAR NAAR|
00000700: 20 44 45 20 45 45 52 53 54 45 20 54 57 45 45 21 | DE EERSTE TWEE!|
00000710: 00 3F 0F 2E 00 99 22 11 90 20 44 55 53 20 27 43 |.?....".. DUS 'C|
00000720: 42 4D 3D 36 34 27 20 4C 45 45 53 20 49 4B 20 41 |BM=64' LEES IK A|
00000730: 4C 53 20 27 43 42 3D 36 34 27 2E 22 3A 8D 33 00 |LS 'CB=64'.":.3.|
00000740: 6B 0F 2F 00 99 22 93 9A 20 56 45 52 4D 49 4A 44 |k./..".. VERMIJD|
00000750: 20 48 45 54 20 47 45 42 52 55 49 4B 20 56 41 4E | HET GEBRUIK VAN|
00000760: 20 56 41 52 49 41 42 45 4C 45 4E 00 9A 0F 30 00 | VARIABELEN...0.|
00000770: 99 22 11 20 57 41 41 52 56 41 4E 20 45 45 4E 20 |.". WAARVAN EEN |
00000780: 44 45 45 4C 20 45 45 4E 20 43 4F 4D 4D 41 4E 44 |DEEL EEN COMMAND|
00000790: 4F 57 4F 4F 52 44 20 49 53 21 00 C7 0F 31 00 99 |OWOORD IS!...1..|
000007A0: 22 11 11 90 20 27 4B 4C 45 54 53 27 20 49 53 20 |"... 'KLETS' IS |
000007B0: 44 55 53 20 4F 4E 54 4F 45 4C 41 41 54 42 41 41 |DUS ONTOELAATBAA|
000007C0: 52 20 4F 4D 44 41 54 00 EF 0F 32 00 99 22 11 20 |R OMDAT...2..". |
000007D0: 44 41 41 52 20 48 45 54 20 43 4F 4D 4D 41 4E 44 |DAAR HET COMMAND|
000007E0: 4F 20 27 4C 45 54 27 20 49 4E 20 5A 49 54 21 00 |O 'LET' IN ZIT!.|
000007F0: 1D 10 33 00 99 22 11 11 9A 20 44 45 20 54 4F 54 |..3.."... DE TOT|
00000800: 41 4C 45 20 4C 49 4A 53 54 20 41 41 4E 20 43 4F |ALE LIJST AAN CO|
00000810: 4D 4D 41 4E 44 4F 57 4F 4F 52 44 45 4E 00 3E 10 |MMANDOWOORDEN.>.|
00000820: 34 00 99 22 11 20 53 54 41 41 54 20 49 4E 20 44 |4..". STAAT IN D|
00000830: 45 20 48 41 4E 44 4C 45 49 44 49 4E 47 2E 00 6D |E HANDLEIDING..m|
00000840: 10 35 00 99 22 11 11 9E 20 48 45 54 20 49 53 20 |.5.."... HET IS |
00000850: 4F 56 45 52 49 47 45 4E 53 2C 20 4F 4D 20 56 45 |OVERIGENS, OM VE|
00000860: 52 47 49 53 53 49 4E 47 45 4E 20 54 45 00 97 10 |RGISSINGEN TE...|
00000870: 36 00 99 22 11 20 56 4F 4F 52 4B 4F 4D 45 4E 2C |6..". VOORKOMEN,|
00000880: 20 42 45 54 45 52 20 4F 4D 20 56 41 52 49 41 42 | BETER OM VARIAB|
00000890: 45 4C 45 4E 20 54 45 00 C3 10 37 00 99 22 11 20 |ELEN TE...7..". |
000008A0: 47 45 42 52 55 49 4B 45 4E 2C 20 44 49 45 20 4E |GEBRUIKEN, DIE N|
000008B0: 49 45 54 20 4C 41 4E 47 45 52 20 5A 49 4A 4E 20 |IET LANGER ZIJN |
000008C0: 44 41 4E 00 E2 10 38 00 99 22 11 20 54 57 45 45 |DAN...8..". TWEE|
000008D0: 20 4C 45 54 54 45 52 54 45 4B 45 4E 53 2E 22 3A | LETTERTEKENS.":|
000008E0: 8D 33 00 18 11 39 00 99 22 93 11 11 11 11 11 11 |.3...9..".......|
000008F0: 11 11 90 20 45 45 4E 20 57 4F 4F 52 44 20 28 4B |... EEN WOORD (K|
00000900: 45 54 45 4E 20 56 41 4E 20 4C 45 54 54 45 52 53 |ETEN VAN LETTERS|
00000910: 29 20 4B 55 4E 20 4A 45 00 44 11 3A 00 99 22 11 |) KUN JE.D.:..".|
00000920: 20 49 4E 20 45 45 4E 20 27 53 54 52 49 4E 47 20 | IN EEN 'STRING |
00000930: 56 41 52 49 41 42 45 4C 45 27 20 4F 50 42 45 52 |VARIABELE' OPBER|
00000940: 47 45 4E 2E 00 68 11 3B 00 85 22 11 11 20 54 59 |GEN..h.;..".. TY|
00000950: 50 20 45 45 4E 53 20 56 49 45 52 20 4C 45 54 54 |P EENS VIER LETT|
00000960: 45 52 53 20 22 3B 41 24 00 7E 11 3C 00 41 24 B2 |ERS ";A$.~.<.A$.|
00000970: C8 28 41 24 AA 22 20 20 20 20 22 2C 34 29 00 A6 |.(A$." ",4)..|
00000980: 11 3D 00 99 22 13 9E 22 3B 3A 53 B2 34 3A 8D 36 |.=.."..";:S.4:.6|
00000990: 3A 99 22 9D 22 41 24 22 11 11 11 9D 9D 9D 9D 12 |:."."A$"........|
000009A0: 41 24 92 11 11 11 00 C9 11 3E 00 99 22 13 22 3B |A$.......>..".";|
000009B0: 3A 53 B2 31 35 3A 8D 36 3A 99 22 31 31 11 11 11 |:S.15:.6:."11...|
000009C0: 9D 9D 9D 12 50 92 11 11 11 00 EC 11 3F 00 99 22 |....P.......?.."|
000009D0: 13 22 3B 3A 53 B2 32 35 3A 8D 36 3A 99 22 35 35 |.";:S.25:.6:."55|
000009E0: 11 11 11 9D 9D 9D 12 47 92 11 11 11 00 17 12 40 |.......G.......@|
000009F0: 00 99 22 11 11 11 11 11 11 99 20 4A 45 20 5A 49 |.."....... JE ZI|
00000A00: 45 54 2C 20 44 41 54 20 49 4B 20 44 45 5A 45 20 |ET, DAT IK DEZE |
00000A10: 4C 45 54 54 45 52 53 00 3C 12 41 00 99 22 11 20 |LETTERS.<.A..". |
00000A20: 48 45 42 20 4F 50 47 45 42 4F 52 47 45 4E 20 49 |HEB OPGEBORGEN I|
00000A30: 4E 20 27 44 4F 4F 53 27 20 41 24 2E 00 4A 12 42 |N 'DOOS' A$..J.B|
00000A40: 00 8B 4A A7 8D 33 3A 89 39 33 00 79 12 43 00 99 |..J..3:.93.y.C..|
00000A50: 22 11 11 05 20 4A 45 20 4D 4F 45 54 20 44 55 53 |"... JE MOET DUS|
00000A60: 20 45 45 4E 20 12 24 92 20 54 45 4B 45 4E 20 47 | EEN .$. TEKEN G|
00000A70: 45 42 52 55 49 4B 45 4E 2E 00 B2 12 44 00 97 51 |EBRUIKEN....D..Q|
00000A80: 31 2C 30 3A 99 22 11 90 20 12 57 49 4C 20 4A 45 |1,0:.".. .WIL JE|
00000A90: 20 44 49 54 20 4E 4F 47 20 45 45 4E 53 20 5A 49 | DIT NOG EENS ZI|
00000AA0: 45 4E 20 3F 92 20 28 54 59 50 20 4A 20 4F 46 20 |EN ?. (TYP J OF |
00000AB0: 4E 29 00 C5 12 45 00 A1 41 24 3A 8B 41 24 B2 22 |N)...E..A$:.A$."|
00000AC0: 4A 22 89 31 31 00 D5 12 46 00 8B 41 24 B3 B1 22 |J".11...F..A$.."|
00000AD0: 4E 22 89 36 39 00 17 13 47 00 99 22 93 1E 20 45 |N".69...G..".. E|
00000AE0: 45 4E 20 50 41 41 52 20 56 4F 4F 52 42 45 45 4C |EN PAAR VOORBEEL|
00000AF0: 44 45 4E 20 56 41 4E 20 50 52 4F 47 52 41 4D 4D |DEN VAN PROGRAMM|
00000B00: 41 27 53 20 20 20 20 11 4D 45 54 20 56 41 52 49 |A'S .MET VARI|
00000B10: 41 42 45 4C 45 4E 3A 00 4B 13 48 00 99 22 11 11 |ABELEN:.K.H.."..|
00000B20: 20 20 31 31 30 20 49 4E 50 55 54 20 22 C7 28 33 | 110 INPUT ".(3|
00000B30: 34 29 22 48 4F 45 20 4F 55 44 20 42 45 4E 20 4A |4)"HOE OUD BEN J|
00000B40: 45 20 22 C7 28 33 34 29 22 3B 4C 00 66 13 49 00 |E ".(34)";L.f.I.|
00000B50: 99 22 11 20 20 31 32 30 20 28 4C 45 54 29 20 44 |.". 120 (LET) D|
00000B60: 3D 4C 2A 33 36 35 00 A5 13 4A 00 99 22 11 20 20 |=L*365...J..". |
00000B70: 31 33 30 20 50 52 49 4E 54 20 22 C7 28 33 34 29 |130 PRINT ".(34)|
00000B80: 22 44 41 4E 20 42 45 4E 20 4A 45 22 C7 28 33 34 |"DAN BEN JE".(34|
00000B90: 29 22 20 44 20 22 C7 28 33 34 29 22 44 41 47 45 |)" D ".(34)"DAGE|
00000BA0: 4E 20 4F 55 44 00 D6 13 4B 00 99 22 11 11 90 20 |N OUD...K.."... |
00000BB0: 49 4E 20 52 45 47 45 4C 20 31 31 30 20 56 52 41 |IN REGEL 110 VRA|
00000BC0: 41 47 20 49 4B 20 4F 4D 20 45 45 4E 20 4C 45 45 |AG IK OM EEN LEE|
00000BD0: 46 54 49 4A 44 2C 00 01 14 4C 00 99 22 11 20 44 |FTIJD,...L..". D|
00000BE0: 49 45 20 49 4B 20 49 4E 20 27 4C 27 20 53 54 4F |IE IK IN 'L' STO|
00000BF0: 50 20 45 4E 20 49 4E 20 52 45 47 45 4C 20 31 32 |P EN IN REGEL 12|
00000C00: 30 00 2B 14 4D 00 99 22 11 20 56 45 52 4D 45 4E |0.+.M..". VERMEN|
00000C10: 49 47 56 55 4C 44 49 47 20 45 4E 20 44 49 45 20 |IGVULDIG EN DIE |
00000C20: 55 49 54 4B 4F 4D 53 54 20 49 4E 00 5B 14 4E 00 |UITKOMST IN.[.N.|
00000C30: 99 22 11 20 27 44 27 20 53 54 4F 50 2E 20 9E 49 |.". 'D' STOP. .I|
00000C40: 4E 20 52 45 47 45 4C 20 31 33 30 20 50 52 49 4E |N REGEL 130 PRIN|
00000C50: 54 20 49 4B 20 54 55 53 53 45 4E 00 81 14 4F 00 |T IK TUSSEN...O.|
00000C60: 99 22 11 20 44 45 20 54 45 4B 53 54 20 44 45 20 |.". DE TEKST DE |
00000C70: 55 49 54 4B 4F 4D 53 54 20 27 44 27 2E 22 3A 8D |UITKOMST 'D'.":.|
00000C80: 33 00 B0 14 50 00 99 22 93 9A 20 48 45 54 20 53 |3...P..".. HET S|
00000C90: 54 55 4B 4A 45 20 50 52 4F 47 52 41 4D 4D 41 20 |TUKJE PROGRAMMA |
00000CA0: 56 41 4E 20 44 41 41 52 4E 45 54 20 57 41 41 52 |VAN DAARNET WAAR|
00000CB0: 00 DE 14 51 00 99 22 11 20 49 4B 20 4F 4D 20 56 |...Q..". IK OM V|
00000CC0: 49 45 52 20 4C 45 54 54 45 52 53 20 56 52 4F 45 |IER LETTERS VROE|
00000CD0: 47 20 5A 49 45 54 20 5A 4F 20 55 49 54 3A 00 18 |G ZIET ZO UIT:..|
00000CE0: 15 52 00 99 22 11 11 20 20 33 31 30 20 49 4E 50 |.R..".. 310 INP|
00000CF0: 55 54 22 C7 28 33 34 29 22 54 59 50 20 45 45 4E |UT".(34)"TYP EEN|
00000D00: 53 20 56 49 45 52 20 4C 45 54 54 45 52 53 22 C7 |S VIER LETTERS".|
00000D10: 28 33 34 29 22 3B 41 24 00 4E 15 53 00 99 22 11 |(34)";A$.N.S..".|
00000D20: 20 20 33 33 30 20 50 52 49 4E 54 22 C7 28 33 34 | 330 PRINT".(34|
00000D30: 29 22 4A 45 20 5A 49 45 54 2C 20 44 41 54 20 49 |)"JE ZIET, DAT I|
00000D40: 4B 20 44 45 5A 45 20 4C 45 54 54 45 52 53 00 82 |K DEZE LETTERS..|
00000D50: 15 54 00 99 22 20 20 33 34 30 20 50 52 49 4E 54 |.T.." 340 PRINT|
00000D60: 22 C7 28 33 34 29 22 48 45 42 20 4F 50 47 45 42 |".(34)"HEB OPGEB|
00000D70: 4F 52 47 45 4E 20 49 4E 20 27 44 4F 4F 53 27 20 |ORGEN IN 'DOOS' |
00000D80: 41 24 00 B2 15 55 00 99 22 11 11 90 20 52 45 47 |A$...U.."... REG|
00000D90: 45 4C 20 33 31 30 20 50 52 49 4E 54 45 20 44 45 |EL 310 PRINTE DE|
00000DA0: 20 56 52 41 41 47 20 45 4E 20 50 4C 41 41 54 53 | VRAAG EN PLAATS|
00000DB0: 54 45 00 DF 15 56 00 99 22 11 20 27 54 20 41 4E |TE...V..". 'T AN|
00000DC0: 54 57 4F 4F 52 44 20 49 4E 20 41 24 2E 20 49 4E |TWOORD IN A$. IN|
00000DD0: 20 44 45 20 4F 4E 54 42 52 45 4B 45 4E 44 45 00 | DE ONTBREKENDE.|
00000DE0: 0C 16 57 00 99 22 11 20 52 45 47 45 4C 20 33 32 |..W..". REGEL 32|
00000DF0: 30 20 57 45 52 44 20 48 45 54 20 50 4C 41 41 54 |0 WERD HET PLAAT|
00000E00: 4A 45 20 47 45 54 45 4B 45 4E 44 2E 00 37 16 58 |JE GETEKEND..7.X|
00000E10: 00 99 22 11 9A 20 44 45 20 52 45 47 45 4C 53 20 |..".. DE REGELS |
00000E20: 33 33 30 20 45 4E 20 33 34 30 20 56 4F 4F 52 5A |330 EN 340 VOORZ|
00000E30: 41 47 45 4E 20 4A 45 00 5E 16 59 00 99 22 11 20 |AGEN JE.^.Y..". |
00000E40: 56 41 4E 20 43 4F 4D 4D 45 4E 54 41 41 52 20 4E |VAN COMMENTAAR N|
00000E50: 41 20 44 45 20 4F 50 44 52 41 43 48 54 2E 00 95 |A DE OPDRACHT...|
00000E60: 16 5A 00 97 51 31 2C 30 3A 99 22 11 90 20 12 57 |.Z..Q1,0:.".. .W|
00000E70: 49 4C 20 4A 45 20 44 41 54 20 4E 4F 47 20 45 45 |IL JE DAT NOG EE|
00000E80: 4E 53 20 5A 49 45 4E 20 3F 92 20 28 4A 2F 4E 29 |NS ZIEN ?. (J/N)|
00000E90: 22 3A 4A B2 31 00 A8 16 5B 00 A1 51 24 3A 8B 51 |":J.1...[..Q$:.Q|
00000EA0: 24 B2 22 4A 22 89 35 37 00 B8 16 5C 00 8B 51 24 |$."J".57...\..Q$|
00000EB0: B3 B1 22 4E 22 A7 39 31 00 E3 16 5D 00 99 22 93 |.."N".91...]..".|
00000EC0: 9E 20 41 4C 53 20 4A 45 20 53 54 52 49 4E 47 20 |. ALS JE STRING |
00000ED0: 56 41 52 49 41 42 45 4C 45 4E 20 47 45 42 52 55 |VARIABELEN GEBRU|
00000EE0: 49 4B 54 00 0D 17 5E 00 99 22 11 20 56 45 52 47 |IKT...^..". VERG|
00000EF0: 45 45 54 20 44 41 4E 20 4E 49 45 54 20 48 45 54 |EET DAN NIET HET|
00000F00: 20 27 24 27 20 54 45 4B 45 4E 20 45 52 00 32 17 | '$' TEKEN ER.2.|
00000F10: 5F 00 99 22 11 20 41 43 48 54 45 52 20 57 41 4E |_..". ACHTER WAN|
00000F20: 54 20 41 4E 44 45 52 53 20 5A 49 45 20 4A 45 3A |T ANDERS ZIE JE:|
00000F30: 11 11 00 52 17 60 00 99 22 90 3F 52 45 44 4F 20 |...R.`..".?REDO |
00000F40: 46 52 4F 4D 20 53 54 41 52 54 22 3A 99 22 3F 20 |FROM START":."? |
00000F50: 22 3B 00 8D 17 61 00 81 58 B2 31 A4 31 30 3A 99 |";...a..X.1.10:.|
00000F60: 22 12 20 92 22 3B 3A 81 50 B2 31 A4 32 30 30 3A |". .";:.P.1.200:|
00000F70: 82 3A 99 22 9D 20 9D 22 3B 3A 81 50 B2 31 A4 32 |.:.". .";:.P.1.2|
00000F80: 30 30 3A 82 50 2C 58 3A 99 22 12 20 22 00 B5 17 |00:.P,X:.". "...|
00000F90: 62 00 99 22 11 11 11 05 20 57 41 4E 54 20 49 4B |b..".... WANT IK|
00000FA0: 20 56 45 52 57 41 43 48 54 20 44 41 4E 20 43 49 | VERWACHT DAN CI|
00000FB0: 4A 46 45 52 53 00 D4 17 63 00 99 22 11 20 4D 41 |JFERS...c..". MA|
00000FC0: 41 52 20 49 4B 20 4B 52 49 4A 47 20 4C 45 54 54 |AR IK KRIJG LETT|
00000FD0: 45 52 53 21 00 0A 18 64 00 97 51 31 2C 30 3A 99 |ERS!...d..Q1,0:.|
00000FE0: 22 11 11 90 20 12 48 45 42 20 4A 45 20 48 45 54 |"... .HEB JE HET|
00000FF0: 20 54 4F 54 20 5A 4F 56 45 52 20 42 45 47 52 45 | TOT ZOVER BEGRE|
00001000: 50 45 4E 92 20 28 4A 2F 4E 29 00 1D 18 65 00 A1 |PEN. (J/N)...e..|
00001010: 51 24 3A 8B 51 24 B2 22 4E 22 89 37 31 00 2E 18 |Q$:.Q$."N".71...|
00001020: 66 00 8B 51 24 B3 B1 22 4A 22 89 31 30 31 00 59 |f..Q$.."J".101.Y|
00001030: 18 67 00 99 22 93 99 20 49 4E 20 45 45 4E 20 53 |.g..".. IN EEN S|
00001040: 54 52 49 4E 47 20 50 41 53 53 45 4E 20 4D 41 58 |TRING PASSEN MAX|
00001050: 49 4D 41 41 4C 20 32 35 36 00 87 18 68 00 99 22 |IMAAL 256...h.."|
00001060: 11 20 54 45 4B 45 4E 53 20 49 4E 43 4C 55 53 49 |. TEKENS INCLUSI|
00001070: 45 46 20 41 4C 4C 45 20 53 50 41 54 49 45 53 20 |EF ALLE SPATIES |
00001080: 45 4E 20 41 4C 4C 45 00 B5 18 69 00 99 22 11 20 |EN ALLE...i..". |
00001090: 4C 45 45 53 54 45 4B 45 4E 53 2E 20 20 44 45 20 |LEESTEKENS. DE |
000010A0: 49 4E 48 4F 55 44 20 56 41 4E 20 45 45 4E 20 53 |INHOUD VAN EEN S|
000010B0: 54 52 49 4E 47 00 E1 18 6A 00 99 22 11 20 4D 4F |TRING...j..". MO|
000010C0: 45 54 20 41 4C 54 49 4A 44 20 54 55 53 53 45 4E |ET ALTIJD TUSSEN|
000010D0: 20 41 41 4E 48 41 4C 49 4E 47 53 54 45 4B 45 4E | AANHALINGSTEKEN|
000010E0: 53 00 00 19 6B 00 99 22 11 20 57 4F 52 44 45 4E |S...k..". WORDEN|
000010F0: 20 47 45 50 4C 41 41 54 53 54 2C 20 44 55 53 3A | GEPLAATST, DUS:|
00001100: 00 30 19 6C 00 99 22 11 11 90 20 20 35 30 20 57 |.0.l.."... 50 W|
00001110: 24 20 3D 20 22 C7 28 33 34 29 22 57 4F 4F 52 44 |$ = ".(34)"WOORD|
00001120: 22 C7 28 33 34 29 22 3A 50 52 49 4E 54 20 57 24 |".(34)":PRINT W$|
00001130: 00 5D 19 6D 00 99 22 11 11 99 20 4B 4F 4D 54 20 |.].m.."... KOMT |
00001140: 45 52 20 4E 49 45 54 53 20 4D 45 45 52 20 41 43 |ER NIETS MEER AC|
00001150: 48 54 45 52 2C 20 44 55 53 20 42 56 3A 00 7D 19 |HTER, DUS BV:.}.|
00001160: 6E 00 99 22 11 11 90 20 20 38 30 20 57 24 20 3D |n.."... 80 W$ =|
00001170: 20 22 C7 28 33 34 29 22 57 4F 4F 52 44 00 BB 19 | ".(34)"WOORD...|
00001180: 6F 00 99 22 11 11 99 20 44 41 4E 20 4D 41 47 20 |o.."... DAN MAG |
00001190: 48 45 54 20 4C 41 41 54 53 45 20 41 41 4E 48 41 |HET LAATSE AANHA|
000011A0: 4C 49 4E 47 53 54 45 4B 45 4E 20 57 45 47 20 20 |LINGSTEKEN WEG |
000011B0: 20 20 20 20 C5 C5 C5 22 3A 8D 33 00 E9 19 70 00 | ...":.3...p.|
000011C0: 99 22 93 9A 20 48 45 54 20 49 53 20 45 43 48 54 |.".. HET IS ECHT|
000011D0: 45 52 20 4E 49 45 54 20 4E 4F 44 49 47 20 41 41 |ER NIET NODIG AA|
000011E0: 4E 48 41 4C 49 4E 47 53 2D 00 16 1A 71 00 99 22 |NHALINGS-...q.."|
000011F0: 11 20 54 45 4B 45 4E 53 20 54 45 20 54 59 50 45 |. TEKENS TE TYPE|
00001200: 4E 20 42 49 4A 20 48 45 54 20 42 45 41 4E 54 57 |N BIJ HET BEANTW|
00001210: 4F 4F 52 44 45 4E 00 4B 1A 72 00 99 22 11 20 56 |OORDEN.K.r..". V|
00001220: 41 4E 20 45 45 4E 20 56 52 41 41 47 2C 20 47 45 |AN EEN VRAAG, GE|
00001230: 53 54 45 4C 44 20 44 4F 4F 52 20 27 54 20 50 52 |STELD DOOR 'T PR|
00001240: 4F 47 52 41 4D 2D 11 20 4D 41 2E 00 62 1A 73 00 |OGRAM-. MA..b.s.|
00001250: 99 22 11 05 20 42 49 4A 56 4F 4F 52 42 45 45 4C |.".. BIJVOORBEEL|
00001260: 44 3A 00 79 1A 74 00 99 22 11 11 20 20 48 4F 45 |D:.y.t..".. HOE|
00001270: 20 48 45 45 54 20 4A 49 4A 00 8F 1A 75 00 99 22 | HEET JIJ...u.."|
00001280: 20 20 3F 20 22 3B 3A 49 B2 31 30 3A 4E B2 30 00 | ? ";:I.10:N.0.|
00001290: C3 1A 76 00 81 58 B2 31 A4 49 3A 99 22 12 20 92 |..v..X.1.I:.". .|
000012A0: 22 3B 3A 81 50 B2 31 A4 32 30 30 3A 82 3A 99 22 |";:.P.1.200:.:."|
000012B0: 9D 20 9D 22 3B 3A 81 50 B2 31 A4 32 30 30 3A 82 |. .";:.P.1.200:.|
000012C0: 50 2C 58 00 D1 1A 77 00 4E B2 4E AA 31 3A 49 B2 |P,X...w.N.N.1:I.|
000012D0: 31 00 E8 1A 78 00 91 4E 89 31 32 32 2C 31 32 33 |1...x..N.122,123|
000012E0: 2C 31 32 33 2C 31 32 34 00 FA 1A 79 00 99 22 11 |,123,124...y..".|
000012F0: 11 22 3A 8D 33 3A 89 31 32 35 00 0A 1B 7A 00 99 |.":.3:.125...z..|
00001300: 22 9A 4E 22 3B 3A 89 31 31 38 00 19 1B 7B 00 99 |".N";:.118...{..|
00001310: 22 41 22 3B 3A 89 31 31 38 00 28 1B 7C 00 99 22 |"A";:.118.(.|.."|
00001320: 4D 22 3B 3A 89 31 31 38 00 58 1B 7D 00 99 22 93 |M";:.118.X.}..".|
00001330: 9E 20 4D 45 54 20 53 54 52 49 4E 47 53 20 4B 41 |. MET STRINGS KA|
00001340: 4E 20 49 4B 20 45 4E 4B 45 4C 45 20 46 41 4E 54 |N IK ENKELE FANT|
00001350: 41 53 54 49 53 43 48 45 00 71 1B 7E 00 99 22 11 |ASTISCHE.q.~..".|
00001360: 20 44 49 4E 47 45 4E 20 55 49 54 48 41 4C 45 4E | DINGEN UITHALEN|
00001370: 2E 00 9F 1B 7F 00 99 22 11 11 20 49 4B 20 4B 45 |.......".. IK KE|
00001380: 4E 20 45 52 20 53 50 45 43 49 41 4C 45 20 43 4F |N ER SPECIALE CO|
00001390: 4D 4D 41 4E 44 4F 27 53 20 56 4F 4F 52 20 3A 00 |MMANDO'S VOOR :.|
000013A0: D5 1B 80 00 99 22 11 11 9A 20 12 4C 45 46 54 24 |....."... .LEFT$|
000013B0: 92 28 41 24 2C 58 29 20 20 12 4D 49 44 24 92 28 |.(A$,X) .MID$.(|
000013C0: 41 24 2C 58 2C 59 29 2C 20 12 52 49 47 48 54 24 |A$,X,Y), .RIGHT$|
000013D0: 92 28 41 24 29 00 06 1C 81 00 99 22 11 20 12 4C |.(A$)......". .L|
000013E0: 45 4E 92 28 41 24 29 20 20 20 20 20 20 12 56 41 |EN.(A$) .VA|
000013F0: 4C 92 28 41 24 29 20 20 20 20 20 20 20 12 53 54 |L.(A$) .ST|
00001400: 52 24 92 28 41 29 00 36 1C 82 00 99 22 11 9E 20 |R$.(A).6....".. |
00001410: 4C 45 54 20 57 45 4C 3A 20 42 49 4A 20 44 45 20 |LET WEL: BIJ DE |
00001420: 4C 41 41 54 53 54 45 20 53 54 41 41 54 20 47 45 |LAATSTE STAAT GE|
00001430: 45 4E 20 24 20 21 00 62 1C 83 00 99 22 11 11 20 |EN $ !.b....".. |
00001440: 48 45 54 20 4C 49 4A 4B 54 20 45 52 47 20 49 4E |HET LIJKT ERG IN|
00001450: 47 45 57 49 4B 4B 45 4C 44 2C 20 4D 41 41 52 20 |GEWIKKELD, MAAR |
00001460: 49 53 00 8B 1C 84 00 99 22 11 20 54 4F 43 48 20 |IS......". TOCH |
00001470: 45 43 48 54 20 4E 49 45 54 20 5A 4F 20 4D 4F 45 |ECHT NIET ZO MOE|
00001480: 49 4C 49 4A 4B 2E 11 22 3A 8D 33 00 B7 1C 85 00 |ILIJK..":.3.....|
00001490: 99 22 93 9A 20 4D 45 54 20 44 45 5A 45 20 43 4F |.".. MET DEZE CO|
000014A0: 4D 4D 41 4E 44 4F 27 53 20 47 41 41 4E 20 57 45 |MMANDO'S GAAN WE|
000014B0: 20 4E 55 20 57 41 54 00 E4 1C 86 00 99 22 20 4D | NU WAT......" M|
000014C0: 41 4E 49 50 55 4C 45 52 45 4E 3A 20 53 54 45 4C |ANIPULEREN: STEL|
000014D0: 20 4E 24 3D 22 C7 28 33 34 29 22 43 42 4D 22 C7 | N$=".(34)"CBM".|
000014E0: 28 33 34 29 00 0E 1D 87 00 99 22 11 20 44 41 4E |(34)......". DAN|
000014F0: 20 5A 41 4C 20 45 52 20 48 45 54 20 56 4F 4C 47 | ZAL ER HET VOLG|
00001500: 45 4E 44 45 20 47 45 42 45 55 52 45 4E 3A 00 25 |ENDE GEBEUREN:.%|
00001510: 1D 88 00 99 22 11 90 20 20 3F 4C 45 46 54 24 28 |....".. ?LEFT$(|
00001520: 4E 24 2C 31 29 00 54 1D 89 00 99 22 11 20 49 4B |N$,1).T....". IK|
00001530: 20 47 45 45 46 20 12 31 92 20 4C 45 54 54 45 52 | GEEF .1. LETTER|
00001540: 20 56 41 4E 20 41 46 20 4C 49 4E 4B 53 20 44 55 | VAN AF LINKS DU|
00001550: 53 20 12 43 00 6C 1D 8A 00 99 22 11 05 20 20 3F |S .C.l....".. ?|
00001560: 52 49 47 48 54 24 28 4E 24 2C 31 29 00 9C 1D 8B |RIGHT$(N$,1)....|
00001570: 00 99 22 11 20 49 4B 20 47 45 45 46 20 12 31 92 |..". IK GEEF .1.|
00001580: 20 4C 45 54 54 45 52 20 56 41 4E 20 41 46 20 52 | LETTER VAN AF R|
00001590: 45 43 48 54 53 20 44 55 53 20 12 4D 00 B4 1D 8C |ECHTS DUS .M....|
000015A0: 00 99 22 11 90 20 20 3F 4D 49 44 24 28 4E 24 2C |..".. ?MID$(N$,|
000015B0: 32 2C 31 29 00 E1 1D 8D 00 99 22 11 20 49 4B 20 |2,1)......". IK |
000015C0: 47 45 45 46 20 12 31 92 20 4C 45 54 54 45 52 20 |GEEF .1. LETTER |
000015D0: 56 41 4E 20 41 46 20 12 44 45 20 54 57 45 45 44 |VAN AF .DE TWEED|
000015E0: 45 00 FC 1D 8E 00 99 22 11 20 12 56 41 4E 20 4C |E......". .VAN L|
000015F0: 49 4E 4B 53 92 20 44 55 53 20 12 42 00 0F 1E 8F |INKS. DUS .B....|
00001600: 00 99 22 11 05 20 20 3F 4C 45 4E 28 4E 24 29 00 |..".. ?LEN(N$).|
00001610: 3F 1E 90 00 99 22 11 20 49 4B 20 47 45 45 46 20 |?....". IK GEEF |
00001620: 48 45 54 20 41 41 4E 54 41 4C 20 4C 45 54 54 45 |HET AANTAL LETTE|
00001630: 52 53 20 49 4E 20 4E 24 20 44 55 53 20 12 33 00 |RS IN N$ DUS .3.|
00001640: 46 1E 91 00 8D 33 00 76 1E 92 00 99 22 93 9A 20 |F....3.v....".. |
00001650: 4D 45 54 20 47 45 54 41 4C 4C 45 4E 20 49 4E 20 |MET GETALLEN IN |
00001660: 45 45 4E 20 53 54 52 49 4E 47 20 4B 55 4E 20 4A |EEN STRING KUN J|
00001670: 45 20 4E 49 45 54 00 A2 1E 93 00 99 22 11 20 52 |E NIET......". R|
00001680: 45 4B 45 4E 45 4E 3B 20 4A 45 20 4D 4F 45 54 20 |EKENEN; JE MOET |
00001690: 45 52 20 45 45 52 53 54 20 44 45 20 57 41 41 52 |ER EERST DE WAAR|
000016A0: 44 45 00 CA 1E 94 00 99 22 11 20 55 49 54 48 41 |DE......". UITHA|
000016B0: 4C 45 4E 20 4D 45 54 3A 20 20 90 12 56 41 4C 28 |LEN MET: ..VAL(|
000016C0: 4E 24 29 92 9A 20 20 42 56 3A 00 EA 1E 95 00 99 |N$).. BV:......|
000016D0: 22 11 05 20 20 20 20 35 30 20 41 24 3D 22 31 32 |".. 50 A$="12|
000016E0: 33 22 3A 42 24 3D 22 34 35 22 00 17 1F 96 00 99 |3":B$="45"......|
000016F0: 22 11 9A 20 57 49 4C 4C 45 4E 20 57 45 20 57 45 |".. WILLEN WE WE|
00001700: 54 45 4E 20 57 41 54 20 31 32 33 2B 34 35 20 49 |TEN WAT 123+45 I|
00001710: 53 2C 20 44 41 4E 3A 00 3A 1F 97 00 99 22 11 05 |S, DAN:.:...."..|
00001720: 20 20 20 20 36 30 20 41 3D 56 41 4C 28 41 24 29 | 60 A=VAL(A$)|
00001730: 3A 42 3D 56 41 4C 28 42 24 29 00 55 1F 98 00 99 |:B=VAL(B$).U....|
00001740: 22 20 20 20 20 37 30 20 43 3D 41 2B 42 3A 50 52 |" 70 C=A+B:PR|
00001750: 49 4E 54 20 43 00 80 1F 99 00 99 22 11 9A 20 45 |INT C......".. E|
00001760: 4E 20 4B 52 49 4A 47 45 4E 20 57 45 20 12 31 36 |N KRIJGEN WE .16|
00001770: 38 92 20 41 4C 53 20 55 49 54 4B 4F 4D 53 54 2E |8. ALS UITKOMST.|
00001780: 00 99 1F 9A 00 99 22 11 11 20 44 4F 45 4E 20 57 |......".. DOEN W|
00001790: 45 20 45 43 48 54 45 52 3A 00 BA 1F 9B 00 99 22 |E ECHTER:......"|
000017A0: 11 05 20 20 20 20 36 30 20 43 24 3D 41 24 2B 42 |.. 60 C$=A$+B|
000017B0: 24 3A 50 52 49 4E 54 20 43 24 00 EA 1F 9C 00 99 |$:PRINT C$......|
000017C0: 22 11 9A 20 44 41 4E 20 4B 52 49 4A 47 45 4E 20 |".. DAN KRIJGEN |
000017D0: 57 45 20 20 12 31 32 33 34 35 92 20 41 4C 53 20 |WE .12345. ALS |
000017E0: 55 49 54 4B 4F 4D 53 54 21 21 00 F1 1F 9D 00 8D |UITKOMST!!......|
000017F0: 33 00 22 20 9E 00 99 22 93 90 20 57 49 4C 20 4A |3." ...".. WIL J|
00001800: 45 20 44 45 20 48 45 4C 45 20 4C 45 53 20 4E 4F |E DE HELE LES NO|
00001810: 47 20 45 45 4E 53 20 44 4F 4F 52 4E 45 4D 45 4E |G EENS DOORNEMEN|
00001820: 20 3F 00 36 20 9F 00 99 22 11 9A 20 54 59 50 20 | ?.6 ...".. TYP |
00001830: 4A 20 4F 46 20 4E 00 49 20 A0 00 A1 51 24 3A 8B |J OF N.I ...Q$:.|
00001840: 51 24 B2 22 4A 22 89 31 31 00 5A 20 A1 00 8B 51 |Q$."J".11.Z ...Q|
00001850: 24 B3 B1 22 4E 22 89 31 36 30 00 8C 20 A2 00 99 |$.."N".160.. ...|
00001860: 22 11 11 90 20 57 49 4C 20 4A 45 20 44 41 4E 20 |"... WIL JE DAN |
00001870: 48 45 54 20 4C 41 41 54 53 54 45 20 44 45 45 4C |HET LAATSTE DEEL|
00001880: 20 4E 4F 47 20 54 45 52 55 47 20 3F 00 A0 20 A3 | NOG TERUG ?.. .|
00001890: 00 99 22 11 9A 20 54 59 50 20 4A 20 4F 46 20 4E |..".. TYP J OF N|
000018A0: 00 B4 20 A4 00 A1 51 24 3A 8B 51 24 B2 22 4A 22 |.. ...Q$:.Q$."J"|
000018B0: 89 31 32 35 00 C5 20 A5 00 8B 51 24 B3 B1 22 4E |.125.. ...Q$.."N|
000018C0: 22 89 31 36 34 00 EF 20 A6 00 99 22 11 11 05 20 |".164.. ..."... |
000018D0: 4D 45 45 52 20 48 49 45 52 4F 56 45 52 20 49 4E |MEER HIEROVER IN|
000018E0: 20 44 45 20 4C 41 41 54 53 54 45 20 4C 45 53 00 | DE LAATSTE LES.|
000018F0: 15 21 A7 00 99 22 11 11 11 20 49 4B 20 4C 41 41 |.!..."... IK LAA|
00001900: 44 20 4E 55 20 44 45 20 56 4F 4C 47 45 4E 44 45 |D NU DE VOLGENDE|
00001910: 20 4C 45 53 2E 00 2A 21 A8 00 93 22 42 41 53 49 | LES..*!..."BASI|
00001920: 43 20 4C 45 53 20 35 22 2C 48 00 00 00 |C LES 5",H... |
....... BASIC LES 4.#...H.B(186):.9.L...
.Q1,0:."........................ ..
VOOR VERDER: DRUK OP 'SPACE'.....A$:.A$
.." ".4.............S.3)".....":..S.2)"N
N.":..S.1)"N N .".......S)"N N
.":..S)"O...P N":..S)".. .. N......
.S)"L....N.......";:.......G(142).....Q1
.198:.53280,2:.53281,2.A....".. *** VARI
ABELEN ***":." *** ---------- ***......"
... VARIABELEN ZIJN A.H.W KLEINE DOOSJES
......". WAARIN WE GETALLEN ZOWEL ALS WO
ORDEN,......". MAAR OOK EEN COMBINATIE D
AARVAN,......". TIJDELIJK KUNNEN OPBERGE
N, OM ZE LATER.H....". ER WEER UIT TE HA
LEN EN TE VERWERKEN.":.3.J....".";:S.4:.
6:."79.......A..........".";:S.15:.6:."1
1.......P..........".";:S.25:.6:."55....
...G..........".. DE VARIABELEN, HIER 'A
' 'P' EN 'G',......". IDENTIFICEREN HET
'DOOSJE', WAARIN WE.0....". EEN GETAL HE
BBEN OPGEBORGEN..C....".. MET: .LET A=79
. (LET MAG JE OOK WEGLATEN)......" STOPP
EN WE HET GETAL 79 IN DE 'DOOS'.......".
. MET HET 'LABEL' 'A'...":.3.W....".";:S
.4:.6:."79.......A%..........".";:S.15:.
6:."11.......P%..........".";:S.25:.6:."
55.......G%.....P....". HET PROCENTTEKEN
.%. ACHTER 'N NUMERIEKE.|....". VARIABE
LE BV. A%=79, SPAART RUIMTE,......". MAA
R LAAT GEEN DECIMALEN TOE!.Q. .."... A%
IS NIET HET ZELFDE ALS A EN MOGEN...!.."
. BEIDE IN HET ZELFDE PROGRAMMA VOORKOME
N.3."..".. % NOEMEN WE EEN 'INTEGER IDEN
TIFIER'":.3.C.#..".. ALS VARIABALE MAG J
E ELKE WILLEKEURIGE...$..". LETTER UIT H
ET ALFABET GEBRUIKEN....%..".. .EEN CIJF
ER IS NIET TOELAATBAAR!...&..". .'(LET)
9=81' IS DUS GROTE ONZIN!...'..".. VARIA
BELEN MOGEN WEL BESTAAN UIT 'N.<.(..". L
ETTER GEVOLGD DOOR 'N CIJFER BV: .A1.B.)
..". OF UIT TWEE LETTERS BV: .PE.....*..
".. M.U.V. DE COMBINATIES: TI EN ST !!..
.+.." EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
...,..". JE MAG ER WEL MEER NEMEN, MAAR
IK KIJK...-..". ALLEEN MAAR NAAR DE EERS
TE TWEE!.?....".. DUS 'CBM=64' LEES IK A
LS 'CB=64'.":.3.K./..".. VERMIJD HET GEB
RUIK VAN VARIABELEN...0..". WAARVAN EEN
DEEL EEN COMMANDOWOORD IS!.G.1.."... 'KL
ETS' IS DUS ONTOELAATBAAR OMDAT...2..".
DAAR HET COMMANDO 'LET' IN ZIT!...3.."..
. DE TOTALE LIJST AAN COMMANDOWOORDEN.>.
4..". STAAT IN DE HANDLEIDING..M.5.."...
HET IS OVERIGENS, OM VERGISSINGEN TE...
6..". VOORKOMEN, BETER OM VARIABELEN TE.
C.7..". GEBRUIKEN, DIE NIET LANGER ZIJN
DAN...8..". TWEE LETTERTEKENS.":.3...9..
".......... EEN WOORD (KETEN VAN LETTERS
) KUN JE.D.:..". IN EEN 'STRING VARIABEL
E' OPBERGEN..H.;..".. TYP EENS VIER LETT
ERS ";A$.~.<.A$.H(A$." ",4)...=..".."
;:S.4:.6:."."A$"........A$.....I.>..".";
:S.15:.6:."11.......P.......?..".";:S.25
:.6:."55.......G.......@.."....... JE ZI
ET, DAT IK DEZE LETTERS.<.A..". HEB OPGE
BORGEN IN 'DOOS' A$..J.B..J..3:.93.Y.C..
"... JE MOET DUS EEN .$. TEKEN GEBRUIKEN
....D..Q1,0:.".. .WIL JE DIT NOG EENS ZI
EN ?. (TYP J OF N).E.E..A$:.A$."J".11.U.
F..A$.."N".69...G..".. EEN PAAR VOORBEEL
DEN VAN PROGRAMMA'S .MET VARIABELEN:.
K.H..".. 110 INPUT "G(34)"HOE OUD BEN J
E "G(34)";L.F.I..". 120 (LET) D=L*365..
.J..". 130 PRINT "G(34)"DAN BEN JE"G(34
)" D "G(34)"DAGEN OUD.V.K.."... IN REGEL
110 VRAAG IK OM EEN LEEFTIJD,...L..". D
IE IK IN 'L' STOP EN IN REGEL 120.+.M.."
. VERMENIGVULDIG EN DIE UITKOMST IN.[.N.
.". 'D' STOP. .IN REGEL 130 PRINT IK TUS
SEN...O..". DE TEKST DE UITKOMST 'D'.":.
3...P..".. HET STUKJE PROGRAMMA VAN DAAR
NET WAAR...Q..". IK OM VIER LETTERS VROE
G ZIET ZO UIT:...R..".. 310 INPUT"G(34)
"TYP EENS VIER LETTERS"G(34)";A$.N.S..".
330 PRINT"G(34)"JE ZIET, DAT IK DEZE L
ETTERS...T.." 340 PRINT"G(34)"HEB OPGEB
ORGEN IN 'DOOS' A$...U.."... REGEL 310 P
RINTE DE VRAAG EN PLAATSTE...V..". 'T AN
TWOORD IN A$. IN DE ONTBREKENDE...W..".
REGEL 320 WERD HET PLAATJE GETEKEND..7.X
..".. DE REGELS 330 EN 340 VOORZAGEN JE.
^.Y..". VAN COMMENTAAR NA DE OPDRACHT...
.Z..Q1,0:.".. .WIL JE DAT NOG EENS ZIEN
?. (J/N)":J.1...[..Q$:.Q$."J".57...\..Q$
.."N".91...]..".. ALS JE STRING VARIABEL
EN GEBRUIKT...^..". VERGEET DAN NIET HET
'$' TEKEN ER.2._..". ACHTER WANT ANDERS
ZIE JE:...R.`..".?REDO FROM START":."?
";...A..X.1.10:.". .";:.P.1.200:.:.". ."
;:.P.1.200:.P,X:.". "...B..".... WANT IK
VERWACHT DAN CIJFERS.T.C..". MAAR IK KR
IJG LETTERS!...D..Q1,0:."... .HEB JE HET
TOT ZOVER BEGREPEN. (J/N)...E..Q$:.Q$."
N".71...F..Q$.."J".101.Y.G..".. IN EEN S
TRING PASSEN MAXIMAAL 256...H..". TEKENS
INCLUSIEF ALLE SPATIES EN ALLE...I..".
LEESTEKENS. DE INHOUD VAN EEN STRING...
J..". MOET ALTIJD TUSSEN AANHALINGSTEKEN
S...K..". WORDEN GEPLAATST, DUS:.0.L..".
.. 50 W$ = "G(34)"WOORD"G(34)":PRINT W$
.].M.."... KOMT ER NIETS MEER ACHTER, DU
S BV:.}.N.."... 80 W$ = "G(34)"WOORD...
O.."... DAN MAG HET LAATSE AANHALINGSTEK
EN WEG EEE":.3...P..".. HET IS ECHT
ER NIET NODIG AANHALINGS-...Q..". TEKENS
TE TYPEN BIJ HET BEANTWOORDEN.K.R..". V
AN EEN VRAAG, GESTELD DOOR 'T PROGRAM-.
MA..B.S..".. BIJVOORBEELD:.Y.T..".. HOE
HEET JIJ...U.." ? ";:I.10:N.0.C.V..X.1
.I:.". .";:.P.1.200:.:.". .";:.P.1.200:.
P,X.Q.W.N.N.1:I.1...X..N.122,123,123,124
...Y.."..":.3:.125...Z..".N";:.118...{..
"A";:.118.(.|.."M";:.118.X.}..".. MET ST
RINGS KAN IK ENKELE FANTASTISCHE.Q.~..".
DINGEN UITHALEN......".. IK KEN ER SPE
CIALE COMMANDO'S VOOR :.U...."... .LEFT$
.(A$,X) .MID$.(A$,X,Y), .RIGHT$.(A$)...
...". .LEN.(A$) .VAL.(A$) .ST
R$.(A).6....".. LET WEL: BIJ DE LAATSTE
STAAT GEEN $ !.B....".. HET LIJKT ERG IN
GEWIKKELD, MAAR IS......". TOCH ECHT NIE
T ZO MOEILIJK..":.3......".. MET DEZE CO
MMANDO'S GAAN WE NU WAT......" MANIPULER
EN: STEL N$="G(34)"CBM"G(34)......". DAN
ZAL ER HET VOLGENDE GEBEUREN:.%...."..
?LEFT$(N$,1).T....". IK GEEF .1. LETTER
VAN AF LINKS DUS .C.L....".. ?RIGHT$(N
$,1)......". IK GEEF .1. LETTER VAN AF R
ECHTS DUS .M......".. ?MID$(N$,2,1)....
..". IK GEEF .1. LETTER VAN AF .DE TWEED
E......". .VAN LINKS. DUS .B......".. ?
LEN(N$).?....". IK GEEF HET AANTAL LETTE
RS IN N$ DUS .3.F....3.V....".. MET GETA
LLEN IN EEN STRING KUN JE NIET......". R
EKENEN; JE MOET ER EERST DE WAARDE.J....
". UITHALEN MET: ..VAL(N$).. BV:......
".. 50 A$="123":B$="45"......".. WILL
EN WE WETEN WAT 123+45 IS, DAN:.:...."..
60 A=VAL(A$):B=VAL(B$).U...." 70
C=A+B:PRINT C......".. EN KRIJGEN WE .16
8. ALS UITKOMST.......".. DOEN WE ECHTER
:......".. 60 C$=A$+B$:PRINT C$......
".. DAN KRIJGEN WE .12345. ALS UITKOMST
!!......3." ...".. WIL JE DE HELE LES NO
G EENS DOORNEMEN ?.6 ...".. TYP J OF N.I
..Q$:.Q$."J".11.Z ...Q$.."N".160.. ...
"... WIL JE DAN HET LAATSTE DEEL NOG TER
UG ?. ...".. TYP J OF N.. ...Q$:.Q$."J"
.125.E ...Q$.."N".164.. ..."... MEER HIE
ROVER IN DE LAATSTE LES..!..."... IK LAA
D NU DE VOLGENDE LES..*!..."BASIC LES 5"
,H...
> CLICK IMAGE PREVIEW FOR FULL MODAL