CBM BASIC LES 4
FILE INFORMATION
FILENAME(S): CBM BASIC LES 4
FILE TYPE(S): PRG
FILE SIZE: 6.4K
FIRST SEEN: 2025-11-30 21:05:25
APPEARS ON: 1 disk(s)
FILE HASH
e7d5acf354aebf7ee54720afbe87f5d379b47cc5a32474321a26cd978f4bcef8
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DE BRUIN 59 | CBM BASIC LES 4 | PRG | DuncanTwain | 15 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0D 08 64 00 99 C7 28 31 34 32 29 00 2A 08 |....d...(142).*.|
00000010: 6E 00 51 31 B2 31 39 38 3A 97 35 33 32 38 30 2C |n.Q1.198:.53280,|
00000020: 32 3A 97 35 33 32 38 31 2C 32 00 5D 08 78 00 99 |2:.53281,2.].x..|
00000030: 22 05 93 20 2A 2A 2A 20 56 41 52 49 41 42 45 4C |".. *** VARIABEL|
00000040: 45 4E 20 2A 2A 2A 22 3A 99 22 20 2A 2A 2A 20 2D |EN ***":." *** -|
00000050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 2A 2A 2A 00 8C 08 |--------- ***...|
00000060: 82 00 99 22 11 11 90 20 56 41 52 49 41 42 45 4C |..."... VARIABEL|
00000070: 45 4E 20 5A 49 4A 4E 20 41 2E 48 2E 57 20 4B 4C |EN ZIJN A.H.W KL|
00000080: 45 49 4E 45 20 44 4F 4F 53 4A 45 53 00 BA 08 8C |EINE DOOSJES....|
00000090: 00 99 22 11 20 57 41 41 52 49 4E 20 57 45 20 47 |..". WAARIN WE G|
000000A0: 45 54 41 4C 4C 45 4E 20 5A 4F 57 45 4C 20 41 4C |ETALLEN ZOWEL AL|
000000B0: 53 20 57 4F 4F 52 44 45 4E 2C 00 E3 08 96 00 99 |S WOORDEN,......|
000000C0: 22 11 20 4D 41 41 52 20 4F 4F 4B 20 45 45 4E 20 |". MAAR OOK EEN |
000000D0: 43 4F 4D 42 49 4E 41 54 49 45 20 44 41 41 52 56 |COMBINATIE DAARV|
000000E0: 41 4E 2C 00 12 09 A0 00 99 22 11 20 54 49 4A 44 |AN,......". TIJD|
000000F0: 45 4C 49 4A 4B 20 4B 55 4E 4E 45 4E 20 4F 50 42 |ELIJK KUNNEN OPB|
00000100: 45 52 47 45 4E 2C 20 4F 4D 20 5A 45 20 4C 41 54 |ERGEN, OM ZE LAT|
00000110: 45 52 00 47 09 AA 00 99 22 11 20 45 52 20 57 45 |ER.G....". ER WE|
00000120: 45 52 20 55 49 54 20 54 45 20 48 41 4C 45 4E 20 |ER UIT TE HALEN |
00000130: 45 4E 20 54 45 20 56 45 52 57 45 52 4B 45 4E 2E |EN TE VERWERKEN.|
00000140: 22 3A 8D 31 37 36 30 00 6C 09 B4 00 99 22 93 22 |":.1760.l...."."|
00000150: 3B 3A 53 B2 34 3A 8D 31 37 32 30 3A 99 22 37 39 |;:S.4:.1720:."79|
00000160: 11 11 11 9D 9D 9D 12 41 92 11 11 11 00 92 09 BE |.......A........|
00000170: 00 99 22 13 22 3B 3A 53 B2 31 35 3A 8D 31 37 32 |..".";:S.15:.172|
00000180: 30 3A 99 22 31 31 11 11 11 9D 9D 9D 12 50 92 11 |0:."11.......P..|
00000190: 11 11 00 B8 09 C8 00 99 22 13 22 3B 3A 53 B2 32 |........".";:S.2|
000001A0: 35 3A 8D 31 37 32 30 3A 99 22 35 35 11 11 11 9D |5:.1720:."55....|
000001B0: 9D 9D 12 47 92 11 11 11 00 E5 09 D2 00 99 22 11 |...G..........".|
000001C0: 9A 20 44 45 20 56 41 52 49 41 42 45 4C 45 4E 2C |. DE VARIABELEN,|
000001D0: 20 48 49 45 52 20 27 41 27 20 27 50 27 20 45 4E | HIER 'A' 'P' EN|
000001E0: 20 27 47 27 2C 00 13 0A DC 00 99 22 11 20 49 44 | 'G',......". ID|
000001F0: 45 4E 54 49 46 49 43 45 52 45 4E 20 48 45 54 20 |ENTIFICEREN HET |
00000200: 27 44 4F 4F 53 4A 45 27 2C 20 57 41 41 52 49 4E |'DOOSJE', WAARIN|
00000210: 20 57 45 00 38 0A E6 00 99 22 11 20 45 45 4E 20 | WE.8....". EEN |
00000220: 47 45 54 41 4C 20 48 45 42 42 45 4E 20 4F 50 47 |GETAL HEBBEN OPG|
00000230: 45 42 4F 52 47 45 4E 2E 00 6B 0A F0 00 99 22 11 |EBORGEN..k....".|
00000240: 90 20 4D 45 54 3A 20 12 4C 45 54 20 41 3D 37 39 |. MET: .LET A=79|
00000250: 92 20 28 4C 45 54 20 4D 41 47 20 4A 45 20 4F 4F |. (LET MAG JE OO|
00000260: 4B 20 57 45 47 4C 41 54 45 4E 29 00 98 0A FA 00 |K WEGLATEN).....|
00000270: 99 22 20 53 54 4F 50 50 45 4E 20 57 45 20 48 45 |." STOPPEN WE HE|
00000280: 54 20 47 45 54 41 4C 20 37 39 20 49 4E 20 44 45 |T GETAL 79 IN DE|
00000290: 20 27 44 4F 4F 53 27 2E 00 BF 0A 04 01 99 22 11 | 'DOOS'.......".|
000002A0: 05 20 4D 45 54 20 48 45 54 20 27 4C 41 42 45 4C |. MET HET 'LABEL|
000002B0: 27 20 27 41 27 2E 2E 2E 22 3A 8D 31 37 36 30 00 |' 'A'...":.1760.|
000002C0: E5 0A 0E 01 99 22 93 22 3B 3A 53 B2 34 3A 8D 31 |.....".";:S.4:.1|
000002D0: 37 32 30 3A 99 22 37 39 11 11 11 9D 9D 9D 12 41 |720:."79.......A|
000002E0: 25 92 11 11 11 00 0C 0B 18 01 99 22 13 22 3B 3A |%..........".";:|
000002F0: 53 B2 31 35 3A 8D 31 37 32 30 3A 99 22 31 31 11 |S.15:.1720:."11.|
00000300: 11 11 9D 9D 9D 12 50 25 92 11 11 11 00 33 0B 22 |......P%.....3."|
00000310: 01 99 22 13 22 3B 3A 53 B2 32 35 3A 8D 31 37 32 |..".";:S.25:.172|
00000320: 30 3A 99 22 35 35 11 11 11 9D 9D 9D 12 47 25 92 |0:."55.......G%.|
00000330: 11 11 11 00 64 0B 2C 01 99 22 9A 20 48 45 54 20 |....d.,..". HET |
00000340: 50 52 4F 43 45 4E 54 54 45 4B 45 4E 20 12 25 92 |PROCENTTEKEN .%.|
00000350: 20 41 43 48 54 45 52 20 27 4E 20 4E 55 4D 45 52 | ACHTER 'N NUMER|
00000360: 49 45 4B 45 00 90 0B 36 01 99 22 11 20 56 41 52 |IEKE...6..". VAR|
00000370: 49 41 42 45 4C 45 20 42 56 2E 20 41 25 3D 37 39 |IABELE BV. A%=79|
00000380: 2C 20 53 50 41 41 52 54 20 52 55 49 4D 54 45 2C |, SPAART RUIMTE,|
00000390: 00 B6 0B 40 01 99 22 11 20 4D 41 41 52 20 4C 41 |...@..". MAAR LA|
000003A0: 41 54 20 47 45 45 4E 20 44 45 43 49 4D 41 4C 45 |AT GEEN DECIMALE|
000003B0: 4E 20 54 4F 45 21 00 E5 0B 4A 01 99 22 11 11 99 |N TOE!...J.."...|
000003C0: 20 41 25 20 49 53 20 4E 49 45 54 20 48 45 54 20 | A% IS NIET HET |
000003D0: 5A 45 4C 46 44 45 20 41 4C 53 20 41 20 45 4E 20 |ZELFDE ALS A EN |
000003E0: 4D 4F 47 45 4E 00 15 0C 54 01 99 22 11 20 42 45 |MOGEN...T..". BE|
000003F0: 49 44 45 20 49 4E 20 48 45 54 20 5A 45 4C 46 44 |IDE IN HET ZELFD|
00000400: 45 20 50 52 4F 47 52 41 4D 4D 41 20 56 4F 4F 52 |E PROGRAMMA VOOR|
00000410: 4B 4F 4D 45 4E 00 4A 0C 5E 01 99 22 11 1E 20 25 |KOMEN.J.^..".. %|
00000420: 20 4E 4F 45 4D 45 4E 20 57 45 20 45 45 4E 20 27 | NOEMEN WE EEN '|
00000430: 49 4E 54 45 47 45 52 20 49 44 45 4E 54 49 46 49 |INTEGER IDENTIFI|
00000440: 45 52 27 22 3A 8D 31 37 36 30 00 7A 0C 68 01 99 |ER'":.1760.z.h..|
00000450: 22 93 90 20 41 4C 53 20 56 41 52 49 41 42 41 4C |".. ALS VARIABAL|
00000460: 45 20 4D 41 47 20 4A 45 20 45 4C 4B 45 20 57 49 |E MAG JE ELKE WI|
00000470: 4C 4C 45 4B 45 55 52 49 47 45 00 A4 0C 72 01 99 |LLEKEURIGE...r..|
00000480: 22 11 20 4C 45 54 54 45 52 20 55 49 54 20 48 45 |". LETTER UIT HE|
00000490: 54 20 41 4C 46 41 42 45 54 20 47 45 42 52 55 49 |T ALFABET GEBRUI|
000004A0: 4B 45 4E 2E 00 CE 0C 7C 01 99 22 11 99 20 12 45 |KEN....|..".. .E|
000004B0: 45 4E 20 43 49 4A 46 45 52 20 49 53 20 4E 49 45 |EN CIJFER IS NIE|
000004C0: 54 20 54 4F 45 4C 41 41 54 42 41 41 52 21 00 F8 |T TOELAATBAAR!..|
000004D0: 0C 86 01 99 22 11 20 12 27 28 4C 45 54 29 20 39 |....". .'(LET) 9|
000004E0: 3D 38 31 27 20 49 53 20 44 55 53 20 47 52 4F 54 |=81' IS DUS GROT|
000004F0: 45 20 4F 4E 5A 49 4E 21 00 25 0D 90 01 99 22 11 |E ONZIN!.%....".|
00000500: 1E 20 56 41 52 49 41 42 45 4C 45 4E 20 4D 4F 47 |. VARIABELEN MOG|
00000510: 45 4E 20 57 45 4C 20 42 45 53 54 41 41 4E 20 55 |EN WEL BESTAAN U|
00000520: 49 54 20 27 4E 00 53 0D 9A 01 99 22 11 20 4C 45 |IT 'N.S....". LE|
00000530: 54 54 45 52 20 47 45 56 4F 4C 47 44 20 44 4F 4F |TTER GEVOLGD DOO|
00000540: 52 20 27 4E 20 43 49 4A 46 45 52 20 42 56 3A 20 |R 'N CIJFER BV: |
00000550: 12 41 31 00 79 0D A4 01 99 22 11 20 4F 46 20 55 |.A1.y....". OF U|
00000560: 49 54 20 54 57 45 45 20 4C 45 54 54 45 52 53 20 |IT TWEE LETTERS |
00000570: 42 56 3A 20 12 50 45 92 2E 00 A5 0D AE 01 99 22 |BV: .PE........"|
00000580: 11 90 20 4D 2E 55 2E 56 2E 20 44 45 20 43 4F 4D |.. M.U.V. DE COM|
00000590: 42 49 4E 41 54 49 45 53 3A 20 54 49 20 45 4E 20 |BINATIES: TI EN |
000005A0: 53 54 20 21 21 00 CF 0D B8 01 99 22 20 C5 C5 C5 |ST !!......" ...|
000005B0: C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 |................|
000005C0: C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 00 |................|
000005D0: FE 0D C2 01 99 22 05 20 4A 45 20 4D 41 47 20 45 |.....". JE MAG E|
000005E0: 52 20 57 45 4C 20 4D 45 45 52 20 4E 45 4D 45 4E |R WEL MEER NEMEN|
000005F0: 2C 20 4D 41 41 52 20 49 4B 20 4B 49 4A 4B 00 27 |, MAAR IK KIJK.'|
00000600: 0E CC 01 99 22 11 20 41 4C 4C 45 45 4E 20 4D 41 |....". ALLEEN MA|
00000610: 41 52 20 4E 41 41 52 20 44 45 20 45 45 52 53 54 |AR NAAR DE EERST|
00000620: 45 20 54 57 45 45 21 00 59 0E D6 01 99 22 11 90 |E TWEE!.Y...."..|
00000630: 20 44 55 53 20 27 43 42 4D 3D 36 34 27 20 4C 45 | DUS 'CBM=64' LE|
00000640: 45 53 20 49 4B 20 41 4C 53 20 27 43 42 3D 36 34 |ES IK ALS 'CB=64|
00000650: 27 2E 22 3A 8D 31 37 36 30 00 85 0E E0 01 99 22 |'.":.1760......"|
00000660: 93 9A 20 56 45 52 4D 49 4A 44 20 48 45 54 20 47 |.. VERMIJD HET G|
00000670: 45 42 52 55 49 4B 20 56 41 4E 20 56 41 52 49 41 |EBRUIK VAN VARIA|
00000680: 42 45 4C 45 4E 00 B4 0E EA 01 99 22 11 20 57 41 |BELEN......". WA|
00000690: 41 52 56 41 4E 20 45 45 4E 20 44 45 45 4C 20 45 |ARVAN EEN DEEL E|
000006A0: 45 4E 20 43 4F 4D 4D 41 4E 44 4F 57 4F 4F 52 44 |EN COMMANDOWOORD|
000006B0: 20 49 53 21 00 E1 0E F4 01 99 22 11 11 90 20 27 | IS!......"... '|
000006C0: 4B 4C 45 54 53 27 20 49 53 20 44 55 53 20 4F 4E |KLETS' IS DUS ON|
000006D0: 54 4F 45 4C 41 41 54 42 41 41 52 20 4F 4D 44 41 |TOELAATBAAR OMDA|
000006E0: 54 00 09 0F FE 01 99 22 11 20 44 41 41 52 20 48 |T......". DAAR H|
000006F0: 45 54 20 43 4F 4D 4D 41 4E 44 4F 20 27 4C 45 54 |ET COMMANDO 'LET|
00000700: 27 20 49 4E 20 5A 49 54 21 00 37 0F 08 02 99 22 |' IN ZIT!.7...."|
00000710: 11 11 9A 20 44 45 20 54 4F 54 41 4C 45 20 4C 49 |... DE TOTALE LI|
00000720: 4A 53 54 20 41 41 4E 20 43 4F 4D 4D 41 4E 44 4F |JST AAN COMMANDO|
00000730: 57 4F 4F 52 44 45 4E 00 58 0F 12 02 99 22 11 20 |WOORDEN.X....". |
00000740: 53 54 41 41 54 20 49 4E 20 44 45 20 48 41 4E 44 |STAAT IN DE HAND|
00000750: 4C 45 49 44 49 4E 47 2E 00 87 0F 1C 02 99 22 11 |LEIDING.......".|
00000760: 11 9E 20 48 45 54 20 49 53 20 4F 56 45 52 49 47 |.. HET IS OVERIG|
00000770: 45 4E 53 2C 20 4F 4D 20 56 45 52 47 49 53 53 49 |ENS, OM VERGISSI|
00000780: 4E 47 45 4E 20 54 45 00 B1 0F 26 02 99 22 11 20 |NGEN TE...&..". |
00000790: 56 4F 4F 52 4B 4F 4D 45 4E 2C 20 42 45 54 45 52 |VOORKOMEN, BETER|
000007A0: 20 4F 4D 20 56 41 52 49 41 42 45 4C 45 4E 20 54 | OM VARIABELEN T|
000007B0: 45 00 DD 0F 30 02 99 22 11 20 47 45 42 52 55 49 |E...0..". GEBRUI|
000007C0: 4B 45 4E 2C 20 44 49 45 20 4E 49 45 54 20 4C 41 |KEN, DIE NIET LA|
000007D0: 4E 47 45 52 20 5A 49 4A 4E 20 44 41 4E 00 FF 0F |NGER ZIJN DAN...|
000007E0: 3A 02 99 22 11 20 54 57 45 45 20 4C 45 54 54 45 |:..". TWEE LETTE|
000007F0: 52 54 45 4B 45 4E 53 2E 22 3A 8D 31 37 36 30 00 |RTEKENS.":.1760.|
00000800: 35 10 44 02 99 22 93 11 11 11 11 11 11 11 11 90 |5.D.."..........|
00000810: 20 45 45 4E 20 57 4F 4F 52 44 20 28 4B 45 54 45 | EEN WOORD (KETE|
00000820: 4E 20 56 41 4E 20 4C 45 54 54 45 52 53 29 20 4B |N VAN LETTERS) K|
00000830: 55 4E 20 4A 45 00 61 10 4E 02 99 22 11 20 49 4E |UN JE.a.N..". IN|
00000840: 20 45 45 4E 20 27 53 54 52 49 4E 47 20 56 41 52 | EEN 'STRING VAR|
00000850: 49 41 42 45 4C 45 27 20 4F 50 42 45 52 47 45 4E |IABELE' OPBERGEN|
00000860: 2E 00 85 10 58 02 85 22 11 11 20 54 59 50 20 45 |....X..".. TYP E|
00000870: 45 4E 53 20 56 49 45 52 20 4C 45 54 54 45 52 53 |ENS VIER LETTERS|
00000880: 20 22 3B 41 24 00 9B 10 59 02 41 24 B2 C8 28 41 | ";A$...Y.A$..(A|
00000890: 24 AA 22 20 20 20 20 22 2C 34 29 00 C6 10 62 02 |$." ",4)...b.|
000008A0: 99 22 13 9E 22 3B 3A 53 B2 34 3A 8D 31 37 32 30 |."..";:S.4:.1720|
000008B0: 3A 99 22 9D 22 41 24 22 11 11 11 9D 9D 9D 9D 12 |:."."A$"........|
000008C0: 41 24 92 11 11 11 00 EC 10 6C 02 99 22 13 22 3B |A$.......l..".";|
000008D0: 3A 53 B2 31 35 3A 8D 31 37 32 30 3A 99 22 31 31 |:S.15:.1720:."11|
000008E0: 11 11 11 9D 9D 9D 12 50 92 11 11 11 00 12 11 76 |.......P.......v|
000008F0: 02 99 22 13 22 3B 3A 53 B2 32 35 3A 8D 31 37 32 |..".";:S.25:.172|
00000900: 30 3A 99 22 35 35 11 11 11 9D 9D 9D 12 47 92 11 |0:."55.......G..|
00000910: 11 11 00 3D 11 80 02 99 22 11 11 11 11 11 11 99 |...=....".......|
00000920: 20 4A 45 20 5A 49 45 54 2C 20 44 41 54 20 49 4B | JE ZIET, DAT IK|
00000930: 20 44 45 5A 45 20 4C 45 54 54 45 52 53 00 62 11 | DEZE LETTERS.b.|
00000940: 8A 02 99 22 11 20 48 45 42 20 4F 50 47 45 42 4F |...". HEB OPGEBO|
00000950: 52 47 45 4E 20 49 4E 20 27 44 4F 4F 53 27 20 41 |RGEN IN 'DOOS' A|
00000960: 24 2E 00 74 11 94 02 8B 4A A7 8D 31 37 36 30 3A |$..t....J..1760:|
00000970: 89 39 33 30 00 A3 11 9E 02 99 22 11 11 05 20 4A |.930......"... J|
00000980: 45 20 4D 4F 45 54 20 44 55 53 20 45 45 4E 20 12 |E MOET DUS EEN .|
00000990: 24 92 20 54 45 4B 45 4E 20 47 45 42 52 55 49 4B |$. TEKEN GEBRUIK|
000009A0: 45 4E 2E 00 DC 11 A8 02 97 51 31 2C 30 3A 99 22 |EN.......Q1,0:."|
000009B0: 11 90 20 12 57 49 4C 20 4A 45 20 44 49 54 20 4E |.. .WIL JE DIT N|
000009C0: 4F 47 20 45 45 4E 53 20 5A 49 45 4E 20 3F 92 20 |OG EENS ZIEN ?. |
000009D0: 28 54 59 50 20 4A 20 4F 46 20 4E 29 00 EF 11 B2 |(TYP J OF N)....|
000009E0: 02 A1 41 24 3A 8B 41 24 B2 22 22 89 36 39 30 00 |..A$:.A$."".690.|
000009F0: 00 12 BC 02 8B 41 24 B3 B1 22 4E 22 89 31 32 30 |.....A$.."N".120|
00000A00: 00 42 12 C6 02 99 22 93 1E 20 45 45 4E 20 50 41 |.B....".. EEN PA|
00000A10: 41 52 20 56 4F 4F 52 42 45 45 4C 44 45 4E 20 56 |AR VOORBEELDEN V|
00000A20: 41 4E 20 50 52 4F 47 52 41 4D 4D 41 27 53 20 20 |AN PROGRAMMA'S |
00000A30: 20 20 11 4D 45 54 20 56 41 52 49 41 42 45 4C 45 | .MET VARIABELE|
00000A40: 4E 3A 00 76 12 D0 02 99 22 11 11 20 20 31 31 30 |N:.v....".. 110|
00000A50: 20 49 4E 50 55 54 20 22 C7 28 33 34 29 22 48 4F | INPUT ".(34)"HO|
00000A60: 45 20 4F 55 44 20 42 45 4E 20 4A 45 20 22 C7 28 |E OUD BEN JE ".(|
00000A70: 33 34 29 22 3B 4C 00 91 12 DA 02 99 22 11 20 20 |34)";L......". |
00000A80: 31 32 30 20 28 4C 45 54 29 20 44 3D 4C 2A 33 36 |120 (LET) D=L*36|
00000A90: 35 00 D0 12 E4 02 99 22 11 20 20 31 33 30 20 50 |5......". 130 P|
00000AA0: 52 49 4E 54 20 22 C7 28 33 34 29 22 44 41 4E 20 |RINT ".(34)"DAN |
00000AB0: 42 45 4E 20 4A 45 22 C7 28 33 34 29 22 20 44 20 |BEN JE".(34)" D |
00000AC0: 22 C7 28 33 34 29 22 44 41 47 45 4E 20 4F 55 44 |".(34)"DAGEN OUD|
00000AD0: 00 01 13 EE 02 99 22 11 11 90 20 49 4E 20 52 45 |......"... IN RE|
00000AE0: 47 45 4C 20 31 31 30 20 56 52 41 41 47 20 49 4B |GEL 110 VRAAG IK|
00000AF0: 20 4F 4D 20 45 45 4E 20 4C 45 45 46 54 49 4A 44 | OM EEN LEEFTIJD|
00000B00: 2C 00 2C 13 F8 02 99 22 11 20 44 49 45 20 49 4B |,.,....". DIE IK|
00000B10: 20 49 4E 20 27 4C 27 20 53 54 4F 50 20 45 4E 20 | IN 'L' STOP EN |
00000B20: 49 4E 20 52 45 47 45 4C 20 31 32 30 00 56 13 02 |IN REGEL 120.V..|
00000B30: 03 99 22 11 20 56 45 52 4D 45 4E 49 47 56 55 4C |..". VERMENIGVUL|
00000B40: 44 49 47 20 45 4E 20 44 49 45 20 55 49 54 4B 4F |DIG EN DIE UITKO|
00000B50: 4D 53 54 20 49 4E 00 86 13 0C 03 99 22 11 20 27 |MST IN......". '|
00000B60: 44 27 20 53 54 4F 50 2E 20 9E 49 4E 20 52 45 47 |D' STOP. .IN REG|
00000B70: 45 4C 20 31 33 30 20 50 52 49 4E 54 20 49 4B 20 |EL 130 PRINT IK |
00000B80: 54 55 53 53 45 4E 00 AF 13 16 03 99 22 11 20 44 |TUSSEN......". D|
00000B90: 45 20 54 45 4B 53 54 20 44 45 20 55 49 54 4B 4F |E TEKST DE UITKO|
00000BA0: 4D 53 54 20 27 44 27 2E 22 3A 8D 31 37 36 30 00 |MST 'D'.":.1760.|
00000BB0: DE 13 20 03 99 22 93 9A 20 48 45 54 20 53 54 55 |.. ..".. HET STU|
00000BC0: 4B 4A 45 20 50 52 4F 47 52 41 4D 4D 41 20 56 41 |KJE PROGRAMMA VA|
00000BD0: 4E 20 44 41 41 52 4E 45 54 20 57 41 41 52 00 0C |N DAARNET WAAR..|
00000BE0: 14 2A 03 99 22 11 20 49 4B 20 4F 4D 20 56 49 45 |.*..". IK OM VIE|
00000BF0: 52 20 4C 45 54 54 45 52 53 20 56 52 4F 45 47 20 |R LETTERS VROEG |
00000C00: 5A 49 45 54 20 5A 4F 20 55 49 54 3A 00 46 14 34 |ZIET ZO UIT:.F.4|
00000C10: 03 99 22 11 11 20 20 33 31 30 20 49 4E 50 55 54 |..".. 310 INPUT|
00000C20: 22 C7 28 33 34 29 22 54 59 50 20 45 45 4E 53 20 |".(34)"TYP EENS |
00000C30: 56 49 45 52 20 4C 45 54 54 45 52 53 22 C7 28 33 |VIER LETTERS".(3|
00000C40: 34 29 22 3B 41 24 00 7C 14 3E 03 99 22 11 20 20 |4)";A$.|.>..". |
00000C50: 33 33 30 20 50 52 49 4E 54 22 C7 28 33 34 29 22 |330 PRINT".(34)"|
00000C60: 4A 45 20 5A 49 45 54 2C 20 44 41 54 20 49 4B 20 |JE ZIET, DAT IK |
00000C70: 44 45 5A 45 20 4C 45 54 54 45 52 53 00 B0 14 48 |DEZE LETTERS...H|
00000C80: 03 99 22 20 20 33 34 30 20 50 52 49 4E 54 22 C7 |.." 340 PRINT".|
00000C90: 28 33 34 29 22 48 45 42 20 4F 50 47 45 42 4F 52 |(34)"HEB OPGEBOR|
00000CA0: 47 45 4E 20 49 4E 20 27 44 4F 4F 53 27 20 41 24 |GEN IN 'DOOS' A$|
00000CB0: 00 E0 14 52 03 99 22 11 11 90 20 52 45 47 45 4C |...R.."... REGEL|
00000CC0: 20 33 31 30 20 50 52 49 4E 54 45 20 44 45 20 56 | 310 PRINTE DE V|
00000CD0: 52 41 41 47 20 45 4E 20 50 4C 41 41 54 53 54 45 |RAAG EN PLAATSTE|
00000CE0: 00 0D 15 5C 03 99 22 11 20 27 54 20 41 4E 54 57 |...\..". 'T ANTW|
00000CF0: 4F 4F 52 44 20 49 4E 20 41 24 2E 20 49 4E 20 44 |OORD IN A$. IN D|
00000D00: 45 20 4F 4E 54 42 52 45 4B 45 4E 44 45 00 3A 15 |E ONTBREKENDE.:.|
00000D10: 66 03 99 22 11 20 52 45 47 45 4C 20 33 32 30 20 |f..". REGEL 320 |
00000D20: 57 45 52 44 20 48 45 54 20 50 4C 41 41 54 4A 45 |WERD HET PLAATJE|
00000D30: 20 47 45 54 45 4B 45 4E 44 2E 00 65 15 70 03 99 | GETEKEND..e.p..|
00000D40: 22 11 9A 20 44 45 20 52 45 47 45 4C 53 20 33 33 |".. DE REGELS 33|
00000D50: 30 20 45 4E 20 33 34 30 20 56 4F 4F 52 5A 41 47 |0 EN 340 VOORZAG|
00000D60: 45 4E 20 4A 45 00 8C 15 7A 03 99 22 11 20 56 41 |EN JE...z..". VA|
00000D70: 4E 20 43 4F 4D 4D 45 4E 54 41 41 52 20 4E 41 20 |N COMMENTAAR NA |
00000D80: 44 45 20 4F 50 44 52 41 43 48 54 2E 00 C3 15 84 |DE OPDRACHT.....|
00000D90: 03 97 51 31 2C 30 3A 99 22 11 90 20 12 57 49 4C |..Q1,0:.".. .WIL|
00000DA0: 20 4A 45 20 44 41 54 20 4E 4F 47 20 45 45 4E 53 | JE DAT NOG EENS|
00000DB0: 20 5A 49 45 4E 20 3F 92 20 28 4A 2F 4E 29 22 3A | ZIEN ?. (J/N)":|
00000DC0: 4A B2 31 00 D6 15 8E 03 A1 51 24 3A 8B 51 24 B2 |J.1......Q$:.Q$.|
00000DD0: 22 22 89 39 31 30 00 E7 15 98 03 8B 51 24 B3 B1 |"".910......Q$..|
00000DE0: 22 4E 22 A7 35 38 30 00 12 16 A2 03 99 22 93 9E |"N".580......"..|
00000DF0: 20 41 4C 53 20 4A 45 20 53 54 52 49 4E 47 20 56 | ALS JE STRING V|
00000E00: 41 52 49 41 42 45 4C 45 4E 20 47 45 42 52 55 49 |ARIABELEN GEBRUI|
00000E10: 4B 54 00 3C 16 AC 03 99 22 11 20 56 45 52 47 45 |KT.<....". VERGE|
00000E20: 45 54 20 44 41 4E 20 4E 49 45 54 20 48 45 54 20 |ET DAN NIET HET |
00000E30: 27 24 27 20 54 45 4B 45 4E 20 45 52 00 61 16 B6 |'$' TEKEN ER.a..|
00000E40: 03 99 22 11 20 41 43 48 54 45 52 20 57 41 4E 54 |..". ACHTER WANT|
00000E50: 20 41 4E 44 45 52 53 20 5A 49 45 20 4A 45 3A 11 | ANDERS ZIE JE:.|
00000E60: 11 00 81 16 C0 03 99 22 90 3F 52 45 44 4F 20 46 |.......".?REDO F|
00000E70: 52 4F 4D 20 53 54 41 52 54 22 3A 99 22 3F 20 22 |ROM START":."? "|
00000E80: 3B 00 BC 16 CA 03 81 58 B2 31 A4 31 30 3A 99 22 |;......X.1.10:."|
00000E90: 12 20 92 22 3B 3A 81 50 B2 31 A4 32 30 30 3A 82 |. .";:.P.1.200:.|
00000EA0: 3A 99 22 9D 20 9D 22 3B 3A 81 50 B2 31 A4 32 30 |:.". .";:.P.1.20|
00000EB0: 30 3A 82 50 2C 58 3A 99 22 12 20 22 00 E4 16 D4 |0:.P,X:.". "....|
00000EC0: 03 99 22 11 11 11 05 20 57 41 4E 54 20 49 4B 20 |..".... WANT IK |
00000ED0: 56 45 52 57 41 43 48 54 20 44 41 4E 20 43 49 4A |VERWACHT DAN CIJ|
00000EE0: 46 45 52 53 00 03 17 DE 03 99 22 11 20 4D 41 41 |FERS......". MAA|
00000EF0: 52 20 49 4B 20 4B 52 49 4A 47 20 4C 45 54 54 45 |R IK KRIJG LETTE|
00000F00: 52 53 21 00 39 17 E8 03 97 51 31 2C 30 3A 99 22 |RS!.9....Q1,0:."|
00000F10: 11 11 90 20 12 48 45 42 20 4A 45 20 48 45 54 20 |... .HEB JE HET |
00000F20: 54 4F 54 20 5A 4F 56 45 52 20 42 45 47 52 45 50 |TOT ZOVER BEGREP|
00000F30: 45 4E 92 20 28 4A 2F 4E 29 00 4D 17 F2 03 A1 51 |EN. (J/N).M....Q|
00000F40: 24 3A 8B 51 24 B2 22 22 89 31 30 31 30 00 5E 17 |$:.Q$."".1010.^.|
00000F50: FC 03 8B 51 24 B3 B1 22 4A 22 89 37 31 30 00 89 |...Q$.."J".710..|
00000F60: 17 06 04 99 22 93 99 20 49 4E 20 45 45 4E 20 53 |....".. IN EEN S|
00000F70: 54 52 49 4E 47 20 50 41 53 53 45 4E 20 4D 41 58 |TRING PASSEN MAX|
00000F80: 49 4D 41 41 4C 20 32 35 36 00 B7 17 10 04 99 22 |IMAAL 256......"|
00000F90: 11 20 54 45 4B 45 4E 53 20 49 4E 43 4C 55 53 49 |. TEKENS INCLUSI|
00000FA0: 45 46 20 41 4C 4C 45 20 53 50 41 54 49 45 53 20 |EF ALLE SPATIES |
00000FB0: 45 4E 20 41 4C 4C 45 00 E5 17 1A 04 99 22 11 20 |EN ALLE......". |
00000FC0: 4C 45 45 53 54 45 4B 45 4E 53 2E 20 20 44 45 20 |LEESTEKENS. DE |
00000FD0: 49 4E 48 4F 55 44 20 56 41 4E 20 45 45 4E 20 53 |INHOUD VAN EEN S|
00000FE0: 54 52 49 4E 47 00 11 18 24 04 99 22 11 20 4D 4F |TRING...$..". MO|
00000FF0: 45 54 20 41 4C 54 49 4A 44 20 54 55 53 53 45 4E |ET ALTIJD TUSSEN|
00001000: 20 41 41 4E 48 41 4C 49 4E 47 53 54 45 4B 45 4E | AANHALINGSTEKEN|
00001010: 53 00 30 18 2E 04 99 22 11 20 57 4F 52 44 45 4E |S.0....". WORDEN|
00001020: 20 47 45 50 4C 41 41 54 53 54 2C 20 44 55 53 3A | GEPLAATST, DUS:|
00001030: 00 60 18 38 04 99 22 11 11 90 20 20 35 30 20 57 |.`.8.."... 50 W|
00001040: 24 20 3D 20 22 C7 28 33 34 29 22 57 4F 4F 52 44 |$ = ".(34)"WOORD|
00001050: 22 C7 28 33 34 29 22 3A 50 52 49 4E 54 20 57 24 |".(34)":PRINT W$|
00001060: 00 8D 18 42 04 99 22 11 11 99 20 4B 4F 4D 54 20 |...B.."... KOMT |
00001070: 45 52 20 4E 49 45 54 53 20 4D 45 45 52 20 41 43 |ER NIETS MEER AC|
00001080: 48 54 45 52 2C 20 44 55 53 20 42 56 3A 00 AD 18 |HTER, DUS BV:...|
00001090: 4C 04 99 22 11 11 90 20 20 38 30 20 57 24 20 3D |L.."... 80 W$ =|
000010A0: 20 22 C7 28 33 34 29 22 57 4F 4F 52 44 00 EE 18 | ".(34)"WOORD...|
000010B0: 56 04 99 22 11 11 99 20 44 41 4E 20 4D 41 47 20 |V.."... DAN MAG |
000010C0: 48 45 54 20 4C 41 41 54 53 45 20 41 41 4E 48 41 |HET LAATSE AANHA|
000010D0: 4C 49 4E 47 53 54 45 4B 45 4E 20 57 45 47 20 20 |LINGSTEKEN WEG |
000010E0: 20 20 20 20 C5 C5 C5 22 3A 8D 31 37 36 30 00 1C | ...":.1760..|
000010F0: 19 60 04 99 22 93 9A 20 48 45 54 20 49 53 20 45 |.`..".. HET IS E|
00001100: 43 48 54 45 52 20 4E 49 45 54 20 4E 4F 44 49 47 |CHTER NIET NODIG|
00001110: 20 41 41 4E 48 41 4C 49 4E 47 53 2D 00 49 19 6A | AANHALINGS-.I.j|
00001120: 04 99 22 11 20 54 45 4B 45 4E 53 20 54 45 20 54 |..". TEKENS TE T|
00001130: 59 50 45 4E 20 42 49 4A 20 48 45 54 20 42 45 41 |YPEN BIJ HET BEA|
00001140: 4E 54 57 4F 4F 52 44 45 4E 00 7E 19 74 04 99 22 |NTWOORDEN.~.t.."|
00001150: 11 20 56 41 4E 20 45 45 4E 20 56 52 41 41 47 2C |. VAN EEN VRAAG,|
00001160: 20 47 45 53 54 45 4C 44 20 44 4F 4F 52 20 27 54 | GESTELD DOOR 'T|
00001170: 20 50 52 4F 47 52 41 4D 2D 11 20 4D 41 2E 00 95 | PROGRAM-. MA...|
00001180: 19 7E 04 99 22 11 05 20 42 49 4A 56 4F 4F 52 42 |.~..".. BIJVOORB|
00001190: 45 45 4C 44 3A 00 AC 19 88 04 99 22 11 11 20 20 |EELD:......".. |
000011A0: 48 4F 45 20 48 45 45 54 20 4A 49 4A 00 BE 19 92 |HOE HEET JIJ....|
000011B0: 04 99 22 20 20 3F 20 22 3B 3A 49 B2 31 35 00 F2 |.." ? ";:I.15..|
000011C0: 19 9C 04 81 58 B2 31 A4 49 3A 99 22 12 20 92 22 |....X.1.I:.". ."|
000011D0: 3B 3A 81 50 B2 31 A4 32 30 30 3A 82 3A 99 22 9D |;:.P.1.200:.:.".|
000011E0: 20 9D 22 3B 3A 81 50 B2 31 A4 32 30 30 3A 82 50 | .";:.P.1.200:.P|
000011F0: 2C 58 00 00 1A A6 04 4E B2 4E AA 31 3A 49 B2 31 |,X.....N.N.1:I.1|
00001200: 00 20 1A B0 04 91 4E 89 31 32 31 30 2C 31 32 32 |. ....N.1210,122|
00001210: 30 2C 31 32 32 30 2C 31 32 33 30 2C 31 32 34 30 |0,1220,1230,1240|
00001220: 00 31 1A BA 04 99 22 9A 4E 22 3B 3A 89 31 31 38 |.1....".N";:.118|
00001230: 30 00 41 1A C4 04 99 22 41 22 3B 3A 89 31 31 38 |0.A...."A";:.118|
00001240: 30 00 51 1A CE 04 99 22 4D 22 3B 3A 89 31 31 38 |0.Q...."M";:.118|
00001250: 30 00 61 1A D8 04 99 22 11 11 22 3A 8D 31 37 36 |0.a...."..":.176|
00001260: 30 00 91 1A E2 04 99 22 93 9E 20 4D 45 54 20 53 |0......".. MET S|
00001270: 54 52 49 4E 47 53 20 4B 41 4E 20 49 4B 20 45 4E |TRINGS KAN IK EN|
00001280: 4B 45 4C 45 20 46 41 4E 54 41 53 54 49 53 43 48 |KELE FANTASTISCH|
00001290: 45 00 AA 1A EC 04 99 22 11 20 44 49 4E 47 45 4E |E......". DINGEN|
000012A0: 20 55 49 54 48 41 4C 45 4E 2E 00 D8 1A F6 04 99 | UITHALEN.......|
000012B0: 22 11 11 20 49 4B 20 4B 45 4E 20 45 52 20 53 50 |".. IK KEN ER SP|
000012C0: 45 43 49 41 4C 45 20 43 4F 4D 4D 41 4E 44 4F 27 |ECIALE COMMANDO'|
000012D0: 53 20 56 4F 4F 52 20 3A 00 0E 1B 00 05 99 22 11 |S VOOR :......".|
000012E0: 11 9A 20 12 4C 45 46 54 24 92 28 41 24 2C 58 29 |.. .LEFT$.(A$,X)|
000012F0: 20 20 12 4D 49 44 24 92 28 41 24 2C 58 2C 59 29 | .MID$.(A$,X,Y)|
00001300: 2C 20 12 52 49 47 48 54 24 92 28 41 24 29 00 3F |, .RIGHT$.(A$).?|
00001310: 1B 0A 05 99 22 11 20 12 4C 45 4E 92 28 41 24 29 |....". .LEN.(A$)|
00001320: 20 20 20 20 20 20 12 56 41 4C 92 28 41 24 29 20 | .VAL.(A$) |
00001330: 20 20 20 20 20 20 12 53 54 52 24 92 28 41 29 00 | .STR$.(A).|
00001340: 6F 1B 14 05 99 22 11 9E 20 4C 45 54 20 57 45 4C |o....".. LET WEL|
00001350: 3A 20 42 49 4A 20 44 45 20 4C 41 41 54 53 54 45 |: BIJ DE LAATSTE|
00001360: 20 53 54 41 41 54 20 47 45 45 4E 20 24 20 21 00 | STAAT GEEN $ !.|
00001370: 9B 1B 1E 05 99 22 11 11 20 48 45 54 20 4C 49 4A |.....".. HET LIJ|
00001380: 4B 54 20 45 52 47 20 49 4E 47 45 57 49 4B 4B 45 |KT ERG INGEWIKKE|
00001390: 4C 44 2C 20 4D 41 41 52 20 49 53 00 C7 1B 28 05 |LD, MAAR IS...(.|
000013A0: 99 22 11 20 54 4F 43 48 20 45 43 48 54 20 4E 49 |.". TOCH ECHT NI|
000013B0: 45 54 20 5A 4F 20 4D 4F 45 49 4C 49 4A 4B 2E 11 |ET ZO MOEILIJK..|
000013C0: 22 3A 8D 31 37 36 30 00 F3 1B 32 05 99 22 93 9A |":.1760...2.."..|
000013D0: 20 4D 45 54 20 44 45 5A 45 20 43 4F 4D 4D 41 4E | MET DEZE COMMAN|
000013E0: 44 4F 27 53 20 47 41 41 4E 20 57 45 20 4E 55 20 |DO'S GAAN WE NU |
000013F0: 57 41 54 00 20 1C 3C 05 99 22 20 4D 41 4E 49 50 |WAT. .<.." MANIP|
00001400: 55 4C 45 52 45 4E 3A 20 53 54 45 4C 20 4E 24 3D |ULEREN: STEL N$=|
00001410: 22 C7 28 33 34 29 22 43 42 4D 22 C7 28 33 34 29 |".(34)"CBM".(34)|
00001420: 00 4A 1C 46 05 99 22 11 20 44 41 4E 20 5A 41 4C |.J.F..". DAN ZAL|
00001430: 20 45 52 20 48 45 54 20 56 4F 4C 47 45 4E 44 45 | ER HET VOLGENDE|
00001440: 20 47 45 42 45 55 52 45 4E 3A 00 61 1C 50 05 99 | GEBEUREN:.a.P..|
00001450: 22 11 90 20 20 3F 4C 45 46 54 24 28 4E 24 2C 31 |".. ?LEFT$(N$,1|
00001460: 29 00 90 1C 5A 05 99 22 11 20 49 4B 20 47 45 45 |)...Z..". IK GEE|
00001470: 46 20 12 31 92 20 4C 45 54 54 45 52 20 56 41 4E |F .1. LETTER VAN|
00001480: 20 41 46 20 4C 49 4E 4B 53 20 44 55 53 20 12 43 | AF LINKS DUS .C|
00001490: 00 A8 1C 64 05 99 22 11 05 20 20 3F 52 49 47 48 |...d..".. ?RIGH|
000014A0: 54 24 28 4E 24 2C 31 29 00 D8 1C 6E 05 99 22 11 |T$(N$,1)...n..".|
000014B0: 20 49 4B 20 47 45 45 46 20 12 31 92 20 4C 45 54 | IK GEEF .1. LET|
000014C0: 54 45 52 20 56 41 4E 20 41 46 20 52 45 43 48 54 |TER VAN AF RECHT|
000014D0: 53 20 44 55 53 20 12 4D 00 F0 1C 78 05 99 22 11 |S DUS .M...x..".|
000014E0: 90 20 20 3F 4D 49 44 24 28 4E 24 2C 32 2C 31 29 |. ?MID$(N$,2,1)|
000014F0: 00 1D 1D 82 05 99 22 11 20 49 4B 20 47 45 45 46 |......". IK GEEF|
00001500: 20 12 31 92 20 4C 45 54 54 45 52 20 56 41 4E 20 | .1. LETTER VAN |
00001510: 41 46 20 12 44 45 20 54 57 45 45 44 45 00 38 1D |AF .DE TWEEDE.8.|
00001520: 8C 05 99 22 11 20 12 56 41 4E 20 4C 49 4E 4B 53 |...". .VAN LINKS|
00001530: 92 20 44 55 53 20 12 42 00 4B 1D 96 05 99 22 11 |. DUS .B.K....".|
00001540: 05 20 20 3F 4C 45 4E 28 4E 24 29 00 7B 1D A0 05 |. ?LEN(N$).{...|
00001550: 99 22 11 20 49 4B 20 47 45 45 46 20 48 45 54 20 |.". IK GEEF HET |
00001560: 41 41 4E 54 41 4C 20 4C 45 54 54 45 52 53 20 49 |AANTAL LETTERS I|
00001570: 4E 20 4E 24 20 44 55 53 20 12 33 00 86 1D AA 05 |N N$ DUS .3.....|
00001580: 3A 8D 31 37 36 30 00 B6 1D B4 05 99 22 93 9A 20 |:.1760......".. |
00001590: 4D 45 54 20 47 45 54 41 4C 4C 45 4E 20 49 4E 20 |MET GETALLEN IN |
000015A0: 45 45 4E 20 53 54 52 49 4E 47 20 4B 55 4E 20 4A |EEN STRING KUN J|
000015B0: 45 20 4E 49 45 54 00 E2 1D BE 05 99 22 11 20 52 |E NIET......". R|
000015C0: 45 4B 45 4E 45 4E 3B 20 4A 45 20 4D 4F 45 54 20 |EKENEN; JE MOET |
000015D0: 45 52 20 45 45 52 53 54 20 44 45 20 57 41 41 52 |ER EERST DE WAAR|
000015E0: 44 45 00 0A 1E C8 05 99 22 11 20 55 49 54 48 41 |DE......". UITHA|
000015F0: 4C 45 4E 20 4D 45 54 3A 20 20 90 12 56 41 4C 28 |LEN MET: ..VAL(|
00001600: 4E 24 29 92 9A 20 20 42 56 3A 00 2A 1E D2 05 99 |N$).. BV:.*....|
00001610: 22 11 05 20 20 20 20 35 30 20 41 24 3D 22 31 32 |".. 50 A$="12|
00001620: 33 22 3A 42 24 3D 22 34 35 22 00 57 1E DC 05 99 |3":B$="45".W....|
00001630: 22 11 9A 20 57 49 4C 4C 45 4E 20 57 45 20 57 45 |".. WILLEN WE WE|
00001640: 54 45 4E 20 57 41 54 20 31 32 33 2B 34 35 20 49 |TEN WAT 123+45 I|
00001650: 53 2C 20 44 41 4E 3A 00 7A 1E E6 05 99 22 11 05 |S, DAN:.z...."..|
00001660: 20 20 20 20 36 30 20 41 3D 56 41 4C 28 41 24 29 | 60 A=VAL(A$)|
00001670: 3A 42 3D 56 41 4C 28 42 24 29 00 95 1E F0 05 99 |:B=VAL(B$)......|
00001680: 22 20 20 20 20 37 30 20 43 3D 41 2B 42 3A 50 52 |" 70 C=A+B:PR|
00001690: 49 4E 54 20 43 00 C0 1E FA 05 99 22 11 9A 20 45 |INT C......".. E|
000016A0: 4E 20 4B 52 49 4A 47 45 4E 20 57 45 20 12 31 36 |N KRIJGEN WE .16|
000016B0: 38 92 20 41 4C 53 20 55 49 54 4B 4F 4D 53 54 2E |8. ALS UITKOMST.|
000016C0: 00 D9 1E 04 06 99 22 11 11 20 44 4F 45 4E 20 57 |......".. DOEN W|
000016D0: 45 20 45 43 48 54 45 52 3A 00 FA 1E 0E 06 99 22 |E ECHTER:......"|
000016E0: 11 05 20 20 20 20 36 30 20 43 24 3D 41 24 2B 42 |.. 60 C$=A$+B|
000016F0: 24 3A 50 52 49 4E 54 20 43 24 00 2A 1F 18 06 99 |$:PRINT C$.*....|
00001700: 22 11 9A 20 44 41 4E 20 4B 52 49 4A 47 45 4E 20 |".. DAN KRIJGEN |
00001710: 57 45 20 20 12 31 32 33 34 35 92 20 41 4C 53 20 |WE .12345. ALS |
00001720: 55 49 54 4B 4F 4D 53 54 21 21 00 35 1F 22 06 3A |UITKOMST!!.5.".:|
00001730: 8D 31 37 36 30 00 66 1F 2C 06 99 22 93 90 20 57 |.1760.f.,..".. W|
00001740: 49 4C 20 4A 45 20 44 45 20 48 45 4C 45 20 4C 45 |IL JE DE HELE LE|
00001750: 53 20 4E 4F 47 20 45 45 4E 53 20 44 4F 4F 52 4E |S NOG EENS DOORN|
00001760: 45 4D 45 4E 20 3F 00 7A 1F 36 06 99 22 11 9A 20 |EMEN ?.z.6..".. |
00001770: 54 59 50 20 4A 20 4F 46 20 4E 00 8E 1F 40 06 A1 |TYP J OF N...@..|
00001780: 51 24 3A 8B 51 24 B2 22 22 89 31 36 30 30 00 A1 |Q$:.Q$."".1600..|
00001790: 1F 4A 06 8B 51 24 B2 C7 28 31 33 29 89 31 35 38 |.J..Q$..(13).158|
000017A0: 30 00 B1 1F 54 06 8B 51 24 B2 22 4A 22 89 31 32 |0...T..Q$."J".12|
000017B0: 30 00 E3 1F 5E 06 99 22 11 11 90 20 57 49 4C 20 |0...^.."... WIL |
000017C0: 4A 45 20 44 41 4E 20 48 45 54 20 4C 41 41 54 53 |JE DAN HET LAATS|
000017D0: 54 45 20 44 45 45 4C 20 4E 4F 47 20 54 45 52 55 |TE DEEL NOG TERU|
000017E0: 47 20 3F 00 F7 1F 68 06 99 22 11 9A 20 54 59 50 |G ?...h..".. TYP|
000017F0: 20 4A 20 4F 46 20 4E 00 0B 20 72 06 A1 51 24 3A | J OF N.. r..Q$:|
00001800: 8B 51 24 B2 22 22 89 31 36 35 30 00 29 20 7C 06 |.Q$."".1650.) |.|
00001810: 8B 51 24 B2 C7 28 31 33 29 A7 99 22 91 91 91 91 |.Q$..(13).."....|
00001820: 91 91 22 3A 89 31 36 33 30 00 3A 20 86 06 8B 51 |..":.1630.: ...Q|
00001830: 24 B2 22 4A 22 89 31 32 35 30 00 64 20 90 06 99 |$."J".1250.d ...|
00001840: 22 11 11 05 20 4D 45 45 52 20 48 49 45 52 4F 56 |"... MEER HIEROV|
00001850: 45 52 20 49 4E 20 44 45 20 4C 41 41 54 53 54 45 |ER IN DE LAATSTE|
00001860: 20 4C 45 53 00 8A 20 9A 06 99 22 11 11 11 20 49 | LES.. ..."... I|
00001870: 4B 20 4C 41 41 44 20 4E 55 20 44 45 20 56 4F 4C |K LAAD NU DE VOL|
00001880: 47 45 4E 44 45 20 4C 45 53 2E 00 A0 20 A4 06 97 |GENDE LES... ...|
00001890: 31 39 38 2C 31 3A 97 36 33 31 2C 31 33 31 3A 80 |198,1:.631,131:.|
000018A0: 00 D3 20 B8 06 99 A6 53 AA 33 29 22 A4 A4 A4 A4 |.. ....S.3)"....|
000018B0: A4 22 3A 99 A6 53 AA 32 29 22 CE 20 20 20 20 CE |.":..S.2)". .|
000018C0: A5 22 3A 99 A6 53 AA 31 29 22 CE 20 20 20 20 CE |.":..S.1)". .|
000018D0: 20 A5 22 00 05 21 C2 06 99 A6 53 29 22 CE 20 20 | ."..!....S)". |
000018E0: 20 20 CE 20 20 A5 22 3A 99 A6 53 29 22 CF A3 A3 | . .":..S)"...|
000018F0: A3 D0 20 20 CE 22 3A 99 A6 53 29 22 A5 12 20 20 |.. .":..S)".. |
00001900: 20 92 A7 20 CE 00 20 21 CC 06 99 A6 53 29 22 CC | .. .. !....S)".|
00001910: A4 A4 A4 BA CE 91 91 91 91 9D 9D 9D 22 3B 3A 8E |............";:.|
00001920: 00 27 21 D6 06 85 41 00 71 21 E0 06 97 51 31 2C |.'!...A.q!...Q1,|
00001930: 30 3A 99 22 13 11 11 11 11 11 11 11 11 11 11 11 |0:."............|
00001940: 11 11 11 11 11 11 11 11 11 11 11 11 20 20 20 20 |............ |
00001950: 20 20 9E 12 56 4F 4F 52 20 56 45 52 44 45 52 3A | ..VOOR VERDER:|
00001960: 20 44 52 55 4B 20 4F 50 20 27 53 50 41 43 45 27 | DRUK OP 'SPACE'|
00001970: 92 00 85 21 EA 06 A1 41 24 3A 8B 41 24 B2 22 22 |...!...A$:.A$.""|
00001980: A7 31 37 37 30 00 8B 21 F4 06 8E 00 00 00 |.1770..!...... |
....D..G(142).*.N.Q1.198:.53280,2:.53281
,2.].X..".. *** VARIABELEN ***":." *** -
--------- ***......"... VARIABELEN ZIJN
A.H.W KLEINE DOOSJES......". WAARIN WE G
ETALLEN ZOWEL ALS WOORDEN,......". MAAR
OOK EEN COMBINATIE DAARVAN,... ..". TIJD
ELIJK KUNNEN OPBERGEN, OM ZE LATER.G....
". ER WEER UIT TE HALEN EN TE VERWERKEN.
":.1760.L....".";:S.4:.1720:."79.......A
..........".";:S.15:.1720:."11.......P..
.....H..".";:S.25:.1720:."55.......G....
...R..".. DE VARIABELEN, HIER 'A' 'P' EN
'G',......". IDENTIFICEREN HET 'DOOSJE'
, WAARIN WE.8....". EEN GETAL HEBBEN OPG
EBORGEN..K....".. MET: .LET A=79. (LET M
AG JE OOK WEGLATEN)......" STOPPEN WE HE
T GETAL 79 IN DE 'DOOS'.......".. MET HE
T 'LABEL' 'A'...":.1760......".";:S.4:.1
720:."79.......A%..........".";:S.15:.17
20:."11.......P%.....3."..".";:S.25:.172
0:."55.......G%.....D.,..". HET PROCENTT
EKEN .%. ACHTER 'N NUMERIEKE...6..". VAR
IABELE BV. A%=79, SPAART RUIMTE,...@..".
MAAR LAAT GEEN DECIMALEN TOE!...J.."...
A% IS NIET HET ZELFDE ALS A EN MOGEN...
T..". BEIDE IN HET ZELFDE PROGRAMMA VOOR
KOMEN.J.^..".. % NOEMEN WE EEN 'INTEGER
IDENTIFIER'":.1760.Z.H..".. ALS VARIABAL
E MAG JE ELKE WILLEKEURIGE...R..". LETTE
R UIT HET ALFABET GEBRUIKEN..N.|..".. .E
EN CIJFER IS NIET TOELAATBAAR!......". .
'(LET) 9=81' IS DUS GROTE ONZIN!.%....".
. VARIABELEN MOGEN WEL BESTAAN UIT 'N.S.
...". LETTER GEVOLGD DOOR 'N CIJFER BV:
.A1.Y....". OF UIT TWEE LETTERS BV: .PE.
.......".. M.U.V. DE COMBINATIES: TI EN
ST !!.O...." EEEEEEEEEEEEEEEEEEEEEEEEEEE
EEEEEEE...B..". JE MAG ER WEL MEER NEMEN
, MAAR IK KIJK.'.L..". ALLEEN MAAR NAAR
DE EERSTE TWEE!.Y.V..".. DUS 'CBM=64' LE
ES IK ALS 'CB=64'.":.1760......".. VERMI
JD HET GEBRUIK VAN VARIABELEN......". WA
ARVAN EEN DEEL EEN COMMANDOWOORD IS!....
.."... 'KLETS' IS DUS ONTOELAATBAAR OMDA
T......". DAAR HET COMMANDO 'LET' IN ZIT
!.7...."... DE TOTALE LIJST AAN COMMANDO
WOORDEN.X....". STAAT IN DE HANDLEIDING.
......"... HET IS OVERIGENS, OM VERGISSI
NGEN TE...&..". VOORKOMEN, BETER OM VARI
ABELEN TE...0..". GEBRUIKEN, DIE NIET LA
NGER ZIJN DAN...:..". TWEE LETTERTEKENS.
":.1760.5.D..".......... EEN WOORD (KETE
N VAN LETTERS) KUN JE.A.N..". IN EEN 'ST
RING VARIABELE' OPBERGEN....X..".. TYP E
ENS VIER LETTERS ";A$...Y.A$.H(A$." "
,4).F.B.."..";:S.4:.1720:."."A$"........
A$.......L..".";:S.15:.1720:."11.......P
.......V..".";:S.25:.1720:."55.......G..
...=...."....... JE ZIET, DAT IK DEZE LE
TTERS.B....". HEB OPGEBORGEN IN 'DOOS' A
$..T....J..1760:.930......"... JE MOET D
US EEN .$. TEKEN GEBRUIKEN.......Q1,0:."
.. .WIL JE DIT NOG EENS ZIEN ?. (TYP J O
F N)......A$:.A$."".690......A$.."N".120
.B.F..".. EEN PAAR VOORBEELDEN VAN PROGR
AMMA'S .MET VARIABELEN:.V.P..".. 110
INPUT "G(34)"HOE OUD BEN JE "G(34)";L..
.Z..". 120 (LET) D=L*365.P....". 130 P
RINT "G(34)"DAN BEN JE"G(34)" D "G(34)"D
AGEN OUD......"... IN REGEL 110 VRAAG IK
OM EEN LEEFTIJD,.,....". DIE IK IN 'L'
STOP EN IN REGEL 120.V....". VERMENIGVUL
DIG EN DIE UITKOMST IN......". 'D' STOP.
.IN REGEL 130 PRINT IK TUSSEN......". D
E TEKST DE UITKOMST 'D'.":.1760... .."..
HET STUKJE PROGRAMMA VAN DAARNET WAAR..
.*..". IK OM VIER LETTERS VROEG ZIET ZO
UIT:.F.4..".. 310 INPUT"G(34)"TYP EENS
VIER LETTERS"G(34)";A$.|.>..". 330 PRIN
T"G(34)"JE ZIET, DAT IK DEZE LETTERS...H
.." 340 PRINT"G(34)"HEB OPGEBORGEN IN '
DOOS' A$...R.."... REGEL 310 PRINTE DE V
RAAG EN PLAATSTE...\..". 'T ANTWOORD IN
A$. IN DE ONTBREKENDE.:.F..". REGEL 320
WERD HET PLAATJE GETEKEND..E.P..".. DE R
EGELS 330 EN 340 VOORZAGEN JE...Z..". VA
N COMMENTAAR NA DE OPDRACHT..C....Q1,0:.
".. .WIL JE DAT NOG EENS ZIEN ?. (J/N)":
J.1.V....Q$:.Q$."".910......Q$.."N".580.
.....".. ALS JE STRING VARIABELEN GEBRUI
KT.<....". VERGEET DAN NIET HET '$' TEKE
N ER.A....". ACHTER WANT ANDERS ZIE JE:.
.......".?REDO FROM START":."? ";...J..X
.1.10:.". .";:.P.1.200:.:.". .";:.P.1.20
0:.P,X:.". "...T..".... WANT IK VERWACHT
DAN CIJFERS......". MAAR IK KRIJG LETTE
RS!.9....Q1,0:."... .HEB JE HET TOT ZOVE
R BEGREPEN. (J/N).M....Q$:.Q$."".1010.^.
...Q$.."J".710......".. IN EEN STRING PA
SSEN MAXIMAAL 256......". TEKENS INCLUSI
EF ALLE SPATIES EN ALLE......". LEESTEKE
NS. DE INHOUD VAN EEN STRING...$..". MO
ET ALTIJD TUSSEN AANHALINGSTEKENS.0...."
. WORDEN GEPLAATST, DUS:.`.8.."... 50 W
$ = "G(34)"WOORD"G(34)":PRINT W$...B..".
.. KOMT ER NIETS MEER ACHTER, DUS BV:...
L.."... 80 W$ = "G(34)"WOORD...V.."...
DAN MAG HET LAATSE AANHALINGSTEKEN WEG
EEE":.1760...`..".. HET IS ECHTER NI
ET NODIG AANHALINGS-.I.J..". TEKENS TE T
YPEN BIJ HET BEANTWOORDEN.~.T..". VAN EE
N VRAAG, GESTELD DOOR 'T PROGRAM-. MA...
.~..".. BIJVOORBEELD:......".. HOE HEET
JIJ......" ? ";:I.15......X.1.I:.". ."
;:.P.1.200:.:.". .";:.P.1.200:.P,X.....N
.N.1:I.1. ....N.1210,1220,1220,1230,1240
.1....".N";:.1180.A.D.."A";:.1180.Q.N.."
M";:.1180.A.X.."..":.1760......".. MET S
TRINGS KAN IK ENKELE FANTASTISCHE......"
. DINGEN UITHALEN..X....".. IK KEN ER SP
ECIALE COMMANDO'S VOOR :......"... .LEFT
$.(A$,X) .MID$.(A$,X,Y), .RIGHT$.(A$).?
....". .LEN.(A$) .VAL.(A$) .S
TR$.(A).O....".. LET WEL: BIJ DE LAATSTE
STAAT GEEN $ !......".. HET LIJKT ERG I
NGEWIKKELD, MAAR IS.G.(..". TOCH ECHT NI
ET ZO MOEILIJK..":.1760...2..".. MET DEZ
E COMMANDO'S GAAN WE NU WAT. .<.." MANIP
ULEREN: STEL N$="G(34)"CBM"G(34).J.F..".
DAN ZAL ER HET VOLGENDE GEBEUREN:.A.P..
".. ?LEFT$(N$,1)...Z..". IK GEEF .1. LE
TTER VAN AF LINKS DUS .C...D..".. ?RIGH
T$(N$,1).X.N..". IK GEEF .1. LETTER VAN
AF RECHTS DUS .M...X..".. ?MID$(N$,2,1)
......". IK GEEF .1. LETTER VAN AF .DE T
WEEDE.8....". .VAN LINKS. DUS .B.K....".
. ?LEN(N$).{. ..". IK GEEF HET AANTAL L
ETTERS IN N$ DUS .3.....:.1760......"..
MET GETALLEN IN EEN STRING KUN JE NIET..
....". REKENEN; JE MOET ER EERST DE WAAR
DE...H..". UITHALEN MET: ..VAL(N$).. B
V:.*.R..".. 50 A$="123":B$="45".W....
".. WILLEN WE WETEN WAT 123+45 IS, DAN:.
Z....".. 60 A=VAL(A$):B=VAL(B$)......
" 70 C=A+B:PRINT C......".. EN KRIJGE
N WE .168. ALS UITKOMST..Y....".. DOEN W
E ECHTER:......".. 60 C$=A$+B$:PRINT
C$.*....".. DAN KRIJGEN WE .12345. ALS
UITKOMST!!.5.".:.1760.F.,..".. WIL JE DE
HELE LES NOG EENS DOORNEMEN ?.Z.6.."..
TYP J OF N...@..Q$:.Q$."".1600...J..Q$.G
(13).1580...T..Q$."J".120...^.."... WIL
JE DAN HET LAATSTE DEEL NOG TERUG ?...H.
.".. TYP J OF N.. R..Q$:.Q$."".1650.) |.
.Q$.G(13).."......":.1630.: ...Q$."J".12
50.D ..."... MEER HIEROVER IN DE LAATSTE
LES.. ..."... IK LAAD NU DE VOLGENDE LE
S.. ...198,1:.631,131:..S ....S.3)"....
.":..S.2)"N N.":..S.1)"N N ."..!B.
..S)"N N .":..S)"O...P N":..S)"..
.. N. !L...S)"L....N.......";:..'!V..A.
Q!...Q1,0:."........................
..VOOR VERDER: DRUK OP 'SPACE'...!...A
$:.A$."".1770..!......
> CLICK IMAGE PREVIEW FOR FULL MODAL