BASIC LES 4
FILE INFORMATION
FILENAME(S): BASIC LES 4
FILE TYPE(S): PRG
FILE SIZE: 6.4K
FIRST SEEN: 2025-11-30 21:06:48
APPEARS ON: 2 disk(s)
FILE HASH
87d02df5000bb105e9fcf438d24f47d8a650e3736bc73ac829b871140a5bbbc9
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| V D BERGH E | BASIC LES 4 | PRG | DuncanTwain | 15 | 0 | DOWNLOAD FILE |
| EDUCATIEF 64 | BASIC LES 4 | PRG | DuncanTwain | 15 | 0 | 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 91 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 54 4D 54 45 |, SPAART RUITMTE|
00000390: 2C 00 B7 0B 40 01 99 22 11 20 4D 41 41 52 20 4C |,...@..". MAAR L|
000003A0: 41 41 54 20 47 45 45 4E 20 44 45 43 49 4D 41 4C |AAT GEEN DECIMAL|
000003B0: 45 4E 20 54 4F 45 21 00 E6 0B 4A 01 99 22 11 11 |EN TOE!...J.."..|
000003C0: 99 20 41 25 20 49 53 20 4E 49 45 54 20 48 45 54 |. A% IS NIET HET|
000003D0: 20 5A 45 4C 46 44 45 20 41 4C 53 20 41 20 45 4E | ZELFDE ALS A EN|
000003E0: 20 4D 4F 47 45 4E 00 16 0C 54 01 99 22 11 20 42 | MOGEN...T..". B|
000003F0: 45 49 44 45 20 49 4E 20 48 45 54 20 5A 45 4C 46 |EIDE IN HET ZELF|
00000400: 44 45 20 50 52 4F 47 52 41 4D 4D 41 20 56 4F 4F |DE PROGRAMMA VOO|
00000410: 52 4B 4F 4D 45 4E 00 4B 0C 5E 01 99 22 11 1E 20 |RKOMEN.K.^..".. |
00000420: 25 20 4E 4F 45 4D 45 4E 20 57 45 20 45 45 4E 20 |% NOEMEN WE EEN |
00000430: 27 49 4E 54 45 47 45 52 20 49 44 45 4E 54 49 46 |'INTEGER IDENTIF|
00000440: 49 45 52 27 22 3A 8D 31 37 36 30 00 7B 0C 68 01 |IER'":.1760.{.h.|
00000450: 99 22 93 90 20 41 4C 53 20 56 41 52 49 41 42 41 |.".. ALS VARIABA|
00000460: 4C 45 20 4D 41 47 20 4A 45 20 45 4C 4B 45 20 57 |LE MAG JE ELKE W|
00000470: 49 4C 4C 45 4B 45 55 52 49 47 45 00 A5 0C 72 01 |ILLEKEURIGE...r.|
00000480: 99 22 11 20 4C 45 54 54 45 52 20 55 49 54 20 48 |.". LETTER UIT H|
00000490: 45 54 20 41 4C 46 41 42 45 54 20 47 45 42 52 55 |ET ALFABET GEBRU|
000004A0: 49 4B 45 4E 2E 00 CF 0C 7C 01 99 22 11 99 20 12 |IKEN....|..".. .|
000004B0: 45 45 4E 20 43 49 4A 46 45 52 20 49 53 20 4E 49 |EEN CIJFER IS NI|
000004C0: 45 54 20 54 4F 45 4C 41 41 54 42 41 41 52 21 00 |ET TOELAATBAAR!.|
000004D0: F9 0C 86 01 99 22 11 20 12 27 28 4C 45 54 29 20 |.....". .'(LET) |
000004E0: 39 3D 38 31 27 20 49 53 20 44 55 53 20 47 52 4F |9=81' IS DUS GRO|
000004F0: 54 45 20 4F 4E 5A 49 4E 21 00 26 0D 90 01 99 22 |TE ONZIN!.&...."|
00000500: 11 1E 20 56 41 52 49 41 42 45 4C 45 4E 20 4D 4F |.. VARIABELEN MO|
00000510: 47 45 4E 20 57 45 4C 20 42 45 53 54 41 41 4E 20 |GEN WEL BESTAAN |
00000520: 55 49 54 20 27 4E 00 54 0D 9A 01 99 22 11 20 4C |UIT 'N.T....". L|
00000530: 45 54 54 45 52 20 47 45 56 4F 4C 47 44 20 44 4F |ETTER GEVOLGD DO|
00000540: 4F 52 20 27 4E 20 43 49 4A 46 45 52 20 42 56 3A |OR 'N CIJFER BV:|
00000550: 20 12 41 31 00 7A 0D A4 01 99 22 11 20 4F 46 20 | .A1.z....". OF |
00000560: 55 49 54 20 54 57 45 45 20 4C 45 54 54 45 52 53 |UIT TWEE LETTERS|
00000570: 20 42 56 3A 20 12 50 45 92 2E 00 A6 0D AE 01 99 | BV: .PE........|
00000580: 22 11 90 20 4D 2E 55 2E 56 2E 20 44 45 20 43 4F |".. M.U.V. DE CO|
00000590: 4D 42 49 4E 41 54 49 45 53 3A 20 54 49 20 45 4E |MBINATIES: TI EN|
000005A0: 20 53 54 20 21 21 00 D0 0D B8 01 99 22 20 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 C5 |................|
000005D0: 00 FF 0D C2 01 99 22 05 20 4A 45 20 4D 41 47 20 |......". JE MAG |
000005E0: 45 52 20 57 45 4C 20 4D 45 45 52 20 4E 45 4D 45 |ER WEL MEER NEME|
000005F0: 4E 2C 20 4D 41 41 52 20 49 4B 20 4B 49 4A 4B 00 |N, MAAR IK KIJK.|
00000600: 28 0E CC 01 99 22 11 20 41 4C 4C 45 45 4E 20 4D |(....". ALLEEN M|
00000610: 41 41 52 20 4E 41 41 52 20 44 45 20 45 45 52 53 |AAR NAAR DE EERS|
00000620: 54 45 20 54 57 45 45 21 00 5A 0E D6 01 99 22 11 |TE TWEE!.Z....".|
00000630: 90 20 44 55 53 20 27 43 42 4D 3D 36 34 27 20 4C |. DUS 'CBM=64' L|
00000640: 45 45 53 20 49 4B 20 41 4C 53 20 27 43 42 3D 36 |EES IK ALS 'CB=6|
00000650: 34 27 2E 22 3A 8D 31 37 36 30 00 86 0E E0 01 99 |4'.":.1760......|
00000660: 22 93 9A 20 56 45 52 4D 49 4A 44 20 48 45 54 20 |".. VERMIJD HET |
00000670: 47 45 42 52 55 49 4B 20 56 41 4E 20 56 41 52 49 |GEBRUIK VAN VARI|
00000680: 41 42 45 4C 45 4E 00 B5 0E EA 01 99 22 11 20 57 |ABELEN......". W|
00000690: 41 41 52 56 41 4E 20 45 45 4E 20 44 45 45 4C 20 |AARVAN EEN DEEL |
000006A0: 45 45 4E 20 43 4F 4D 4D 41 4E 44 4F 57 4F 4F 52 |EEN COMMANDOWOOR|
000006B0: 44 20 49 53 21 00 E2 0E F4 01 99 22 11 11 90 20 |D IS!......"... |
000006C0: 27 4B 4C 45 54 53 27 20 49 53 20 44 55 53 20 4F |'KLETS' IS DUS O|
000006D0: 4E 54 4F 45 4C 41 41 54 42 41 41 52 20 4F 4D 44 |NTOELAATBAAR OMD|
000006E0: 41 54 00 0A 0F FE 01 99 22 11 20 44 41 41 52 20 |AT......". DAAR |
000006F0: 48 45 54 20 43 4F 4D 4D 41 4E 44 4F 20 27 4C 45 |HET COMMANDO 'LE|
00000700: 54 27 20 49 4E 20 5A 49 54 21 00 38 0F 08 02 99 |T' IN ZIT!.8....|
00000710: 22 11 11 9A 20 44 45 20 54 4F 54 41 4C 45 20 4C |"... DE TOTALE L|
00000720: 49 4A 53 54 20 41 41 4E 20 43 4F 4D 4D 41 4E 44 |IJST AAN COMMAND|
00000730: 4F 57 4F 4F 52 44 45 4E 00 59 0F 12 02 99 22 11 |OWOORDEN.Y....".|
00000740: 20 53 54 41 41 54 20 49 4E 20 44 45 20 48 41 4E | STAAT IN DE HAN|
00000750: 44 4C 45 49 44 49 4E 47 2E 00 88 0F 1C 02 99 22 |DLEIDING......."|
00000760: 11 11 9E 20 48 45 54 20 49 53 20 4F 56 45 52 49 |... HET IS OVERI|
00000770: 47 45 4E 53 2C 20 4F 4D 20 56 45 52 47 49 53 53 |GENS, OM VERGISS|
00000780: 49 4E 47 45 4E 20 54 45 00 B2 0F 26 02 99 22 11 |INGEN TE...&..".|
00000790: 20 56 4F 4F 52 4B 4F 4D 45 4E 2C 20 42 45 54 45 | VOORKOMEN, BETE|
000007A0: 52 20 4F 4D 20 56 41 52 49 41 42 45 4C 45 4E 20 |R OM VARIABELEN |
000007B0: 54 45 00 DE 0F 30 02 99 22 11 20 47 45 42 52 55 |TE...0..". GEBRU|
000007C0: 49 4B 45 4E 2C 20 44 49 45 20 4E 49 45 54 20 4C |IKEN, DIE NIET L|
000007D0: 41 4E 47 45 52 20 5A 49 4A 4E 20 44 41 4E 00 00 |ANGER ZIJN DAN..|
000007E0: 10 3A 02 99 22 11 20 54 57 45 45 20 4C 45 54 54 |.:..". TWEE LETT|
000007F0: 45 52 54 45 4B 45 4E 53 2E 22 3A 8D 31 37 36 30 |ERTEKENS.":.1760|
00000800: 00 36 10 44 02 99 22 93 11 11 11 11 11 11 11 11 |.6.D..".........|
00000810: 90 20 45 45 4E 20 57 4F 4F 52 44 20 28 4B 45 54 |. EEN WOORD (KET|
00000820: 45 4E 20 56 41 4E 20 4C 45 54 54 45 52 53 29 20 |EN VAN LETTERS) |
00000830: 4B 55 4E 20 4A 45 00 62 10 4E 02 99 22 11 20 49 |KUN JE.b.N..". I|
00000840: 4E 20 45 45 4E 20 27 53 54 52 49 4E 47 20 56 41 |N EEN 'STRING VA|
00000850: 52 49 41 42 45 4C 45 27 20 4F 50 42 45 52 47 45 |RIABELE' OPBERGE|
00000860: 4E 2E 00 86 10 58 02 85 22 11 11 20 54 59 50 20 |N....X..".. TYP |
00000870: 45 45 4E 53 20 56 49 45 52 20 4C 45 54 54 45 52 |EENS VIER LETTER|
00000880: 53 20 22 3B 41 24 00 9C 10 59 02 41 24 B2 C8 28 |S ";A$...Y.A$..(|
00000890: 41 24 AA 22 20 20 20 20 22 2C 34 29 00 C7 10 62 |A$." ",4)...b|
000008A0: 02 99 22 13 9E 22 3B 3A 53 B2 34 3A 8D 31 37 32 |.."..";:S.4:.172|
000008B0: 30 3A 99 22 9D 22 41 24 22 11 11 11 9D 9D 9D 9D |0:."."A$".......|
000008C0: 12 41 24 92 11 11 11 00 ED 10 6C 02 99 22 13 22 |.A$.......l.."."|
000008D0: 3B 3A 53 B2 31 35 3A 8D 31 37 32 30 3A 99 22 31 |;:S.15:.1720:."1|
000008E0: 31 11 11 11 9D 9D 9D 12 50 92 11 11 11 00 13 11 |1.......P.......|
000008F0: 76 02 99 22 13 22 3B 3A 53 B2 32 35 3A 8D 31 37 |v..".";:S.25:.17|
00000900: 32 30 3A 99 22 35 35 11 11 11 9D 9D 9D 12 47 92 |20:."55.......G.|
00000910: 11 11 11 00 3E 11 80 02 99 22 11 11 11 11 11 11 |....>...."......|
00000920: 99 20 4A 45 20 5A 49 45 54 2C 20 44 41 54 20 49 |. JE ZIET, DAT I|
00000930: 4B 20 44 45 5A 45 20 4C 45 54 54 45 52 53 00 63 |K DEZE LETTERS.c|
00000940: 11 8A 02 99 22 11 20 48 45 42 20 4F 50 47 45 42 |....". HEB OPGEB|
00000950: 4F 52 47 45 4E 20 49 4E 20 27 44 4F 4F 53 27 20 |ORGEN IN 'DOOS' |
00000960: 41 24 2E 00 75 11 94 02 8B 4A A7 8D 31 37 36 30 |A$..u....J..1760|
00000970: 3A 89 39 33 30 00 A4 11 9E 02 99 22 11 11 05 20 |:.930......"... |
00000980: 4A 45 20 4D 4F 45 54 20 44 55 53 20 45 45 4E 20 |JE MOET DUS EEN |
00000990: 12 24 92 20 54 45 4B 45 4E 20 47 45 42 52 55 49 |.$. TEKEN GEBRUI|
000009A0: 4B 45 4E 2E 00 DD 11 A8 02 97 51 31 2C 30 3A 99 |KEN.......Q1,0:.|
000009B0: 22 11 90 20 12 57 49 4C 20 4A 45 20 44 49 54 20 |".. .WIL JE DIT |
000009C0: 4E 4F 47 20 45 45 4E 53 20 5A 49 45 4E 20 3F 92 |NOG EENS ZIEN ?.|
000009D0: 20 28 54 59 50 20 4A 20 4F 46 20 4E 29 00 F0 11 | (TYP J OF N)...|
000009E0: B2 02 A1 41 24 3A 8B 41 24 B2 22 22 89 36 39 30 |...A$:.A$."".690|
000009F0: 00 01 12 BC 02 8B 41 24 B3 B1 22 4E 22 89 31 32 |......A$.."N".12|
00000A00: 30 00 43 12 C6 02 99 22 93 1E 20 45 45 4E 20 50 |0.C....".. EEN P|
00000A10: 41 41 52 20 56 4F 4F 52 42 45 45 4C 44 45 4E 20 |AAR VOORBEELDEN |
00000A20: 56 41 4E 20 50 52 4F 47 52 41 4D 4D 41 27 53 20 |VAN PROGRAMMA'S |
00000A30: 20 20 20 11 4D 45 54 20 56 41 52 49 41 42 45 4C | .MET VARIABEL|
00000A40: 45 4E 3A 00 77 12 D0 02 99 22 11 11 20 20 31 31 |EN:.w....".. 11|
00000A50: 30 20 49 4E 50 55 54 20 22 C7 28 33 34 29 22 48 |0 INPUT ".(34)"H|
00000A60: 4F 45 20 4F 55 44 20 42 45 4E 20 4A 45 20 22 C7 |OE OUD BEN JE ".|
00000A70: 28 33 34 29 22 3B 4C 00 92 12 DA 02 99 22 11 20 |(34)";L......". |
00000A80: 20 31 32 30 20 28 4C 45 54 29 20 44 3D 4C 2A 33 | 120 (LET) D=L*3|
00000A90: 36 35 00 D1 12 E4 02 99 22 11 20 20 31 33 30 20 |65......". 130 |
00000AA0: 50 52 49 4E 54 20 22 C7 28 33 34 29 22 44 41 4E |PRINT ".(34)"DAN|
00000AB0: 20 42 45 4E 20 4A 45 22 C7 28 33 34 29 22 20 44 | BEN JE".(34)" D|
00000AC0: 20 22 C7 28 33 34 29 22 44 41 47 45 4E 20 4F 55 | ".(34)"DAGEN OU|
00000AD0: 44 00 02 13 EE 02 99 22 11 11 90 20 49 4E 20 52 |D......"... IN R|
00000AE0: 45 47 45 4C 20 31 31 30 20 56 52 41 41 47 20 49 |EGEL 110 VRAAG I|
00000AF0: 4B 20 4F 4D 20 45 45 4E 20 4C 45 45 46 54 49 4A |K OM EEN LEEFTIJ|
00000B00: 44 2C 00 2D 13 F8 02 99 22 11 20 44 49 45 20 49 |D,.-....". DIE I|
00000B10: 4B 20 49 4E 20 27 4C 27 20 53 54 4F 50 20 45 4E |K IN 'L' STOP EN|
00000B20: 20 49 4E 20 52 45 47 45 4C 20 31 32 30 00 57 13 | IN REGEL 120.W.|
00000B30: 02 03 99 22 11 20 56 45 52 4D 45 4E 49 47 56 55 |...". VERMENIGVU|
00000B40: 4C 44 49 47 20 45 4E 20 44 49 45 20 55 49 54 4B |LDIG EN DIE UITK|
00000B50: 4F 4D 53 54 20 49 4E 00 87 13 0C 03 99 22 11 20 |OMST IN......". |
00000B60: 27 44 27 20 53 54 4F 50 2E 20 9E 49 4E 20 52 45 |'D' STOP. .IN RE|
00000B70: 47 45 4C 20 31 33 30 20 50 52 49 4E 54 20 49 4B |GEL 130 PRINT IK|
00000B80: 20 54 55 53 53 45 4E 00 B0 13 16 03 99 22 11 20 | TUSSEN......". |
00000B90: 44 45 20 54 45 4B 53 54 20 44 45 20 55 49 54 4B |DE TEKST DE UITK|
00000BA0: 4F 4D 53 54 20 27 44 27 2E 22 3A 8D 31 37 36 30 |OMST 'D'.":.1760|
00000BB0: 00 DF 13 20 03 99 22 93 9A 20 48 45 54 20 53 54 |... ..".. HET ST|
00000BC0: 55 4B 4A 45 20 50 52 4F 47 52 41 4D 4D 41 20 56 |UKJE PROGRAMMA V|
00000BD0: 41 4E 20 44 41 41 52 4E 45 54 20 57 41 41 52 00 |AN DAARNET WAAR.|
00000BE0: 0D 14 2A 03 99 22 11 20 49 4B 20 4F 4D 20 56 49 |..*..". IK OM VI|
00000BF0: 45 52 20 4C 45 54 54 45 52 53 20 56 52 4F 45 47 |ER LETTERS VROEG|
00000C00: 20 5A 49 45 54 20 5A 4F 20 55 49 54 3A 00 47 14 | ZIET ZO UIT:.G.|
00000C10: 34 03 99 22 11 11 20 20 33 31 30 20 49 4E 50 55 |4..".. 310 INPU|
00000C20: 54 22 C7 28 33 34 29 22 54 59 50 20 45 45 4E 53 |T".(34)"TYP EENS|
00000C30: 20 56 49 45 52 20 4C 45 54 54 45 52 53 22 C7 28 | VIER LETTERS".(|
00000C40: 33 34 29 22 3B 41 24 00 7D 14 3E 03 99 22 11 20 |34)";A$.}.>..". |
00000C50: 20 33 33 30 20 50 52 49 4E 54 22 C7 28 33 34 29 | 330 PRINT".(34)|
00000C60: 22 4A 45 20 5A 49 45 54 2C 20 44 41 54 20 49 4B |"JE ZIET, DAT IK|
00000C70: 20 44 45 5A 45 20 4C 45 54 54 45 52 53 00 B1 14 | DEZE LETTERS...|
00000C80: 48 03 99 22 20 20 33 34 30 20 50 52 49 4E 54 22 |H.." 340 PRINT"|
00000C90: C7 28 33 34 29 22 48 45 42 20 4F 50 47 45 42 4F |.(34)"HEB OPGEBO|
00000CA0: 52 47 45 4E 20 49 4E 20 27 44 4F 4F 53 27 20 41 |RGEN IN 'DOOS' A|
00000CB0: 24 00 E1 14 52 03 99 22 11 11 90 20 52 45 47 45 |$...R.."... REGE|
00000CC0: 4C 20 33 31 30 20 50 52 49 4E 54 45 20 44 45 20 |L 310 PRINTE DE |
00000CD0: 56 52 41 41 47 20 45 4E 20 50 4C 41 41 54 53 54 |VRAAG EN PLAATST|
00000CE0: 45 00 0E 15 5C 03 99 22 11 20 27 54 20 41 4E 54 |E...\..". 'T ANT|
00000CF0: 57 4F 4F 52 44 20 49 4E 20 41 24 2E 20 49 4E 20 |WOORD IN A$. IN |
00000D00: 44 45 20 4F 4E 54 42 52 45 4B 45 4E 44 45 00 3B |DE ONTBREKENDE.;|
00000D10: 15 66 03 99 22 11 20 52 45 47 45 4C 20 33 32 30 |.f..". REGEL 320|
00000D20: 20 57 45 52 44 20 48 45 54 20 50 4C 41 41 54 4A | WERD HET PLAATJ|
00000D30: 45 20 47 45 54 45 4B 45 4E 44 2E 00 66 15 70 03 |E GETEKEND..f.p.|
00000D40: 99 22 11 9A 20 44 45 20 52 45 47 45 4C 53 20 33 |.".. DE REGELS 3|
00000D50: 33 30 20 45 4E 20 33 34 30 20 56 4F 4F 52 5A 41 |30 EN 340 VOORZA|
00000D60: 47 45 4E 20 4A 45 00 8D 15 7A 03 99 22 11 20 56 |GEN JE...z..". V|
00000D70: 41 4E 20 43 4F 4D 4D 45 4E 54 41 41 52 20 4E 41 |AN COMMENTAAR NA|
00000D80: 20 44 45 20 4F 50 44 52 41 43 48 54 2E 00 C4 15 | DE OPDRACHT....|
00000D90: 84 03 97 51 31 2C 30 3A 99 22 11 90 20 12 57 49 |...Q1,0:.".. .WI|
00000DA0: 4C 20 4A 45 20 44 41 54 20 4E 4F 47 20 45 45 4E |L JE DAT NOG EEN|
00000DB0: 53 20 5A 49 45 4E 20 3F 92 20 28 4A 2F 4E 29 22 |S ZIEN ?. (J/N)"|
00000DC0: 3A 4A B2 31 00 D7 15 8E 03 A1 51 24 3A 8B 51 24 |:J.1......Q$:.Q$|
00000DD0: B2 22 22 89 39 31 30 00 E8 15 98 03 8B 51 24 B3 |."".910......Q$.|
00000DE0: B1 22 4E 22 A7 35 38 30 00 13 16 A2 03 99 22 93 |."N".580......".|
00000DF0: 9E 20 41 4C 53 20 4A 45 20 53 54 52 49 4E 47 20 |. ALS JE STRING |
00000E00: 56 41 52 49 41 42 45 4C 45 4E 20 47 45 42 52 55 |VARIABELEN GEBRU|
00000E10: 49 4B 54 00 3D 16 AC 03 99 22 11 20 56 45 52 47 |IKT.=....". VERG|
00000E20: 45 45 54 20 44 41 4E 20 4E 49 45 54 20 48 45 54 |EET DAN NIET HET|
00000E30: 20 27 24 27 20 54 45 4B 45 4E 20 45 52 00 62 16 | '$' TEKEN ER.b.|
00000E40: B6 03 99 22 11 20 41 43 48 54 45 52 20 57 41 4E |...". ACHTER WAN|
00000E50: 54 20 41 4E 44 45 52 53 20 5A 49 45 20 4A 45 3A |T ANDERS ZIE JE:|
00000E60: 11 11 00 82 16 C0 03 99 22 90 3F 52 45 44 4F 20 |........".?REDO |
00000E70: 46 52 4F 4D 20 53 54 41 52 54 22 3A 99 22 3F 20 |FROM START":."? |
00000E80: 22 3B 00 BD 16 CA 03 81 58 B2 31 A4 31 30 3A 99 |";......X.1.10:.|
00000E90: 22 12 20 92 22 3B 3A 81 50 B2 31 A4 32 30 30 3A |". .";:.P.1.200:|
00000EA0: 82 3A 99 22 9D 20 9D 22 3B 3A 81 50 B2 31 A4 32 |.:.". .";:.P.1.2|
00000EB0: 30 30 3A 82 50 2C 58 3A 99 22 12 20 22 00 E5 16 |00:.P,X:.". "...|
00000EC0: D4 03 99 22 11 11 11 05 20 57 41 4E 54 20 49 4B |...".... WANT IK|
00000ED0: 20 56 45 52 57 41 43 48 54 20 44 41 4E 20 43 49 | VERWACHT DAN CI|
00000EE0: 4A 46 45 52 53 00 04 17 DE 03 99 22 11 20 4D 41 |JFERS......". MA|
00000EF0: 41 52 20 49 4B 20 4B 52 49 4A 47 20 4C 45 54 54 |AR IK KRIJG LETT|
00000F00: 45 52 53 21 00 3A 17 E8 03 97 51 31 2C 30 3A 99 |ERS!.:....Q1,0:.|
00000F10: 22 11 11 90 20 12 48 45 42 20 4A 45 20 48 45 54 |"... .HEB JE HET|
00000F20: 20 54 4F 54 20 5A 4F 56 45 52 20 42 45 47 52 45 | TOT ZOVER BEGRE|
00000F30: 50 45 4E 92 20 28 4A 2F 4E 29 00 4E 17 F2 03 A1 |PEN. (J/N).N....|
00000F40: 51 24 3A 8B 51 24 B2 22 22 89 31 30 31 30 00 5F |Q$:.Q$."".1010._|
00000F50: 17 FC 03 8B 51 24 B3 B1 22 4A 22 89 37 31 30 00 |....Q$.."J".710.|
00000F60: 8A 17 06 04 99 22 93 99 20 49 4E 20 45 45 4E 20 |.....".. IN EEN |
00000F70: 53 54 52 49 4E 47 20 50 41 53 53 45 4E 20 4D 41 |STRING PASSEN MA|
00000F80: 58 49 4D 41 41 4C 20 32 35 36 00 B8 17 10 04 99 |XIMAAL 256......|
00000F90: 22 11 20 54 45 4B 45 4E 53 20 49 4E 43 4C 55 53 |". TEKENS INCLUS|
00000FA0: 49 45 46 20 41 4C 4C 45 20 53 50 41 54 49 45 53 |IEF ALLE SPATIES|
00000FB0: 20 45 4E 20 41 4C 4C 45 00 E6 17 1A 04 99 22 11 | EN ALLE......".|
00000FC0: 20 4C 45 45 53 54 45 4B 45 4E 53 2E 20 20 44 45 | LEESTEKENS. DE|
00000FD0: 20 49 4E 48 4F 55 44 20 56 41 4E 20 45 45 4E 20 | INHOUD VAN EEN |
00000FE0: 53 54 52 49 4E 47 00 12 18 24 04 99 22 11 20 4D |STRING...$..". M|
00000FF0: 4F 45 54 20 41 4C 54 49 4A 44 20 54 55 53 53 45 |OET ALTIJD TUSSE|
00001000: 4E 20 41 41 4E 48 41 4C 49 4E 47 53 54 45 4B 45 |N AANHALINGSTEKE|
00001010: 4E 53 00 31 18 2E 04 99 22 11 20 57 4F 52 44 45 |NS.1....". WORDE|
00001020: 4E 20 47 45 50 4C 41 41 54 53 54 2C 20 44 55 53 |N GEPLAATST, DUS|
00001030: 3A 00 61 18 38 04 99 22 11 11 90 20 20 35 30 20 |:.a.8.."... 50 |
00001040: 57 24 20 3D 20 22 C7 28 33 34 29 22 57 4F 4F 52 |W$ = ".(34)"WOOR|
00001050: 44 22 C7 28 33 34 29 22 3A 50 52 49 4E 54 20 57 |D".(34)":PRINT W|
00001060: 24 00 8E 18 42 04 99 22 11 11 99 20 4B 4F 4D 54 |$...B.."... KOMT|
00001070: 20 45 52 20 4E 49 45 54 53 20 4D 45 45 52 20 41 | ER NIETS MEER A|
00001080: 43 48 54 45 52 2C 20 44 55 53 20 42 56 3A 00 AE |CHTER, DUS BV:..|
00001090: 18 4C 04 99 22 11 11 90 20 20 38 30 20 57 24 20 |.L.."... 80 W$ |
000010A0: 3D 20 22 C7 28 33 34 29 22 57 4F 4F 52 44 00 EF |= ".(34)"WOORD..|
000010B0: 18 56 04 99 22 11 11 99 20 44 41 4E 20 4D 41 47 |.V.."... DAN MAG|
000010C0: 20 48 45 54 20 4C 41 41 54 53 45 20 41 41 4E 48 | HET LAATSE AANH|
000010D0: 41 4C 49 4E 47 53 54 45 4B 45 4E 20 57 45 47 20 |ALINGSTEKEN WEG |
000010E0: 20 20 20 20 20 C5 C5 C5 22 3A 8D 31 37 36 30 00 | ...":.1760.|
000010F0: 1D 19 60 04 99 22 93 9A 20 48 45 54 20 49 53 20 |..`..".. HET IS |
00001100: 45 43 48 54 45 52 20 4E 49 45 54 20 4E 4F 44 49 |ECHTER NIET NODI|
00001110: 47 20 41 41 4E 48 41 4C 49 4E 47 53 2D 00 4A 19 |G AANHALINGS-.J.|
00001120: 6A 04 99 22 11 20 54 45 4B 45 4E 53 20 54 45 20 |j..". TEKENS TE |
00001130: 54 59 50 45 4E 20 42 49 4A 20 48 45 54 20 42 45 |TYPEN BIJ HET BE|
00001140: 41 4E 54 57 4F 4F 52 44 45 4E 00 7F 19 74 04 99 |ANTWOORDEN...t..|
00001150: 22 11 20 56 41 4E 20 45 45 4E 20 56 52 41 41 47 |". VAN EEN VRAAG|
00001160: 2C 20 47 45 53 54 45 4C 44 20 44 4F 4F 52 20 27 |, GESTELD DOOR '|
00001170: 54 20 50 52 4F 47 52 41 4D 2D 11 20 4D 41 2E 00 |T PROGRAM-. MA..|
00001180: 96 19 7E 04 99 22 11 05 20 42 49 4A 56 4F 4F 52 |..~..".. BIJVOOR|
00001190: 42 45 45 4C 44 3A 00 AD 19 88 04 99 22 11 11 20 |BEELD:......".. |
000011A0: 20 48 4F 45 20 48 45 45 54 20 4A 49 4A 00 BF 19 | HOE HEET JIJ...|
000011B0: 92 04 99 22 20 20 3F 20 22 3B 3A 49 B2 31 35 00 |..." ? ";:I.15.|
000011C0: F3 19 9C 04 81 58 B2 31 A4 49 3A 99 22 12 20 92 |.....X.1.I:.". .|
000011D0: 22 3B 3A 81 50 B2 31 A4 32 30 30 3A 82 3A 99 22 |";:.P.1.200:.:."|
000011E0: 9D 20 9D 22 3B 3A 81 50 B2 31 A4 32 30 30 3A 82 |. .";:.P.1.200:.|
000011F0: 50 2C 58 00 01 1A A6 04 4E B2 4E AA 31 3A 49 B2 |P,X.....N.N.1:I.|
00001200: 31 00 21 1A B0 04 91 4E 89 31 32 31 30 2C 31 32 |1.!....N.1210,12|
00001210: 32 30 2C 31 32 32 30 2C 31 32 33 30 2C 31 32 34 |20,1220,1230,124|
00001220: 30 00 32 1A BA 04 99 22 9A 4E 22 3B 3A 89 31 31 |0.2....".N";:.11|
00001230: 38 30 00 42 1A C4 04 99 22 41 22 3B 3A 89 31 31 |80.B...."A";:.11|
00001240: 38 30 00 52 1A CE 04 99 22 4D 22 3B 3A 89 31 31 |80.R...."M";:.11|
00001250: 38 30 00 62 1A D8 04 99 22 11 11 22 3A 8D 31 37 |80.b...."..":.17|
00001260: 36 30 00 92 1A E2 04 99 22 93 9E 20 4D 45 54 20 |60......".. MET |
00001270: 53 54 52 49 4E 47 53 20 4B 41 4E 20 49 4B 20 45 |STRINGS KAN IK E|
00001280: 4E 4B 45 4C 45 20 46 41 4E 54 41 53 54 49 53 43 |NKELE FANTASTISC|
00001290: 48 45 00 AB 1A EC 04 99 22 11 20 44 49 4E 47 45 |HE......". DINGE|
000012A0: 4E 20 55 49 54 48 41 4C 45 4E 2E 00 D9 1A F6 04 |N UITHALEN......|
000012B0: 99 22 11 11 20 49 4B 20 4B 45 4E 20 45 52 20 53 |.".. IK KEN ER S|
000012C0: 50 45 43 49 41 4C 45 20 43 4F 4D 4D 41 4E 44 4F |PECIALE COMMANDO|
000012D0: 27 53 20 56 4F 4F 52 20 3A 00 0F 1B 00 05 99 22 |'S VOOR :......"|
000012E0: 11 11 9A 20 12 4C 45 46 54 24 92 28 41 24 2C 58 |... .LEFT$.(A$,X|
000012F0: 29 20 20 12 4D 49 44 24 92 28 41 24 2C 58 2C 59 |) .MID$.(A$,X,Y|
00001300: 29 2C 20 12 52 49 47 48 54 24 92 28 41 24 29 00 |), .RIGHT$.(A$).|
00001310: 40 1B 0A 05 99 22 11 20 12 4C 45 4E 92 28 41 24 |@....". .LEN.(A$|
00001320: 29 20 20 20 20 20 20 12 56 41 4C 92 28 41 24 29 |) .VAL.(A$)|
00001330: 20 20 20 20 20 20 20 12 53 54 52 24 92 28 41 29 | .STR$.(A)|
00001340: 00 70 1B 14 05 99 22 11 9E 20 4C 45 54 20 57 45 |.p....".. LET WE|
00001350: 4C 3A 20 42 49 4A 20 44 45 20 4C 41 41 54 53 54 |L: BIJ DE LAATST|
00001360: 45 20 53 54 41 41 54 20 47 45 45 4E 20 24 20 21 |E STAAT GEEN $ !|
00001370: 00 9C 1B 1E 05 99 22 11 11 20 48 45 54 20 4C 49 |......".. HET LI|
00001380: 4A 4B 54 20 45 52 47 20 49 4E 47 45 57 49 4B 4B |JKT ERG INGEWIKK|
00001390: 45 4C 44 2C 20 4D 41 41 52 20 49 53 00 C8 1B 28 |ELD, MAAR IS...(|
000013A0: 05 99 22 11 20 54 4F 43 48 20 45 43 48 54 20 4E |..". TOCH ECHT N|
000013B0: 49 45 54 20 5A 4F 20 4D 4F 45 49 4C 49 4A 4B 2E |IET ZO MOEILIJK.|
000013C0: 11 22 3A 8D 31 37 36 30 00 F4 1B 32 05 99 22 93 |.":.1760...2..".|
000013D0: 9A 20 4D 45 54 20 44 45 5A 45 20 43 4F 4D 4D 41 |. MET DEZE COMMA|
000013E0: 4E 44 4F 27 53 20 47 41 41 4E 20 57 45 20 4E 55 |NDO'S GAAN WE NU|
000013F0: 20 57 41 54 00 21 1C 3C 05 99 22 20 4D 41 4E 49 | WAT.!.<.." MANI|
00001400: 50 55 4C 45 52 45 4E 3A 20 53 54 45 4C 20 4E 24 |PULEREN: STEL N$|
00001410: 3D 22 C7 28 33 34 29 22 43 42 4D 22 C7 28 33 34 |=".(34)"CBM".(34|
00001420: 29 00 4B 1C 46 05 99 22 11 20 44 41 4E 20 5A 41 |).K.F..". DAN ZA|
00001430: 4C 20 45 52 20 48 45 54 20 56 4F 4C 47 45 4E 44 |L ER HET VOLGEND|
00001440: 45 20 47 45 42 45 55 52 45 4E 3A 00 62 1C 50 05 |E GEBEUREN:.b.P.|
00001450: 99 22 11 90 20 20 3F 4C 45 46 54 24 28 4E 24 2C |.".. ?LEFT$(N$,|
00001460: 31 29 00 91 1C 5A 05 99 22 11 20 49 4B 20 47 45 |1)...Z..". IK GE|
00001470: 45 46 20 12 31 92 20 4C 45 54 54 45 52 20 56 41 |EF .1. LETTER VA|
00001480: 4E 20 41 46 20 4C 49 4E 4B 53 20 44 55 53 20 12 |N AF LINKS DUS .|
00001490: 43 00 A9 1C 64 05 99 22 11 05 20 20 3F 52 49 47 |C...d..".. ?RIG|
000014A0: 48 54 24 28 4E 24 2C 31 29 00 D9 1C 6E 05 99 22 |HT$(N$,1)...n.."|
000014B0: 11 20 49 4B 20 47 45 45 46 20 12 31 92 20 4C 45 |. IK GEEF .1. LE|
000014C0: 54 54 45 52 20 56 41 4E 20 41 46 20 52 45 43 48 |TTER VAN AF RECH|
000014D0: 54 53 20 44 55 53 20 12 4D 00 F1 1C 78 05 99 22 |TS DUS .M...x.."|
000014E0: 11 90 20 20 3F 4D 49 44 24 28 4E 24 2C 32 2C 31 |.. ?MID$(N$,2,1|
000014F0: 29 00 1E 1D 82 05 99 22 11 20 49 4B 20 47 45 45 |)......". IK GEE|
00001500: 46 20 12 31 92 20 4C 45 54 54 45 52 20 56 41 4E |F .1. LETTER VAN|
00001510: 20 41 46 20 12 44 45 20 54 57 45 45 44 45 00 39 | AF .DE TWEEDE.9|
00001520: 1D 8C 05 99 22 11 20 12 56 41 4E 20 4C 49 4E 4B |....". .VAN LINK|
00001530: 53 92 20 44 55 53 20 12 42 00 4C 1D 96 05 99 22 |S. DUS .B.L...."|
00001540: 11 05 20 20 3F 4C 45 4E 28 4E 24 29 00 7C 1D A0 |.. ?LEN(N$).|..|
00001550: 05 99 22 11 20 49 4B 20 47 45 45 46 20 48 45 54 |..". IK GEEF HET|
00001560: 20 41 41 4E 54 41 4C 20 4C 45 54 54 45 52 53 20 | AANTAL LETTERS |
00001570: 49 4E 20 4E 24 20 44 55 53 20 12 33 00 87 1D AA |IN N$ DUS .3....|
00001580: 05 3A 8D 31 37 36 30 00 B7 1D B4 05 99 22 93 9A |.:.1760......"..|
00001590: 20 4D 45 54 20 47 45 54 41 4C 4C 45 4E 20 49 4E | MET GETALLEN IN|
000015A0: 20 45 45 4E 20 53 54 52 49 4E 47 20 4B 55 4E 20 | EEN STRING KUN |
000015B0: 4A 45 20 4E 49 45 54 00 E3 1D BE 05 99 22 11 20 |JE NIET......". |
000015C0: 52 45 4B 45 4E 45 4E 3B 20 4A 45 20 4D 4F 45 54 |REKENEN; JE MOET|
000015D0: 20 45 52 20 45 45 52 53 54 20 44 45 20 57 41 41 | ER EERST DE WAA|
000015E0: 52 44 45 00 0B 1E C8 05 99 22 11 20 55 49 54 48 |RDE......". UITH|
000015F0: 41 4C 45 4E 20 4D 45 54 3A 20 20 90 12 56 41 4C |ALEN MET: ..VAL|
00001600: 28 4E 24 29 92 9A 20 20 42 56 3A 00 2B 1E D2 05 |(N$).. BV:.+...|
00001610: 99 22 11 05 20 20 20 20 35 30 20 41 24 3D 22 31 |.".. 50 A$="1|
00001620: 32 33 22 3A 42 24 3D 22 34 35 22 00 58 1E DC 05 |23":B$="45".X...|
00001630: 99 22 11 9A 20 57 49 4C 4C 45 4E 20 57 45 20 57 |.".. WILLEN WE W|
00001640: 45 54 45 4E 20 57 41 54 20 31 32 33 2B 34 35 20 |ETEN WAT 123+45 |
00001650: 49 53 2C 20 44 41 4E 3A 00 7B 1E E6 05 99 22 11 |IS, DAN:.{....".|
00001660: 05 20 20 20 20 36 30 20 41 3D 56 41 4C 28 41 24 |. 60 A=VAL(A$|
00001670: 29 3A 42 3D 56 41 4C 28 42 24 29 00 96 1E F0 05 |):B=VAL(B$).....|
00001680: 99 22 20 20 20 20 37 30 20 43 3D 41 2B 42 3A 50 |." 70 C=A+B:P|
00001690: 52 49 4E 54 20 43 00 C1 1E FA 05 99 22 11 9A 20 |RINT C......".. |
000016A0: 45 4E 20 4B 52 49 4A 47 45 4E 20 57 45 20 12 31 |EN KRIJGEN WE .1|
000016B0: 36 38 92 20 41 4C 53 20 55 49 54 4B 4F 4D 53 54 |68. ALS UITKOMST|
000016C0: 2E 00 DA 1E 04 06 99 22 11 11 20 44 4F 45 4E 20 |.......".. DOEN |
000016D0: 57 45 20 45 43 48 54 45 52 3A 00 FB 1E 0E 06 99 |WE ECHTER:......|
000016E0: 22 11 05 20 20 20 20 36 30 20 43 24 3D 41 24 2B |".. 60 C$=A$+|
000016F0: 42 24 3A 50 52 49 4E 54 20 43 24 00 2B 1F 18 06 |B$:PRINT C$.+...|
00001700: 99 22 11 9A 20 44 41 4E 20 4B 52 49 4A 47 45 4E |.".. DAN KRIJGEN|
00001710: 20 57 45 20 20 12 31 32 33 34 35 92 20 41 4C 53 | WE .12345. ALS|
00001720: 20 55 49 54 4B 4F 4D 53 54 21 21 00 36 1F 22 06 | UITKOMST!!.6.".|
00001730: 3A 8D 31 37 36 30 00 67 1F 2C 06 99 22 93 90 20 |:.1760.g.,..".. |
00001740: 57 49 4C 20 4A 45 20 44 45 20 48 45 4C 45 20 4C |WIL JE DE HELE L|
00001750: 45 53 20 4E 4F 47 20 45 45 4E 53 20 44 4F 4F 52 |ES NOG EENS DOOR|
00001760: 4E 45 4D 45 4E 20 3F 00 7B 1F 36 06 99 22 11 9A |NEMEN ?.{.6.."..|
00001770: 20 54 59 50 20 4A 20 4F 46 20 4E 00 8F 1F 40 06 | TYP J OF N...@.|
00001780: A1 51 24 3A 8B 51 24 B2 22 22 89 31 36 30 30 00 |.Q$:.Q$."".1600.|
00001790: A2 1F 4A 06 8B 51 24 B2 C7 28 31 33 29 89 31 35 |..J..Q$..(13).15|
000017A0: 38 30 00 B2 1F 54 06 8B 51 24 B2 22 4A 22 89 31 |80...T..Q$."J".1|
000017B0: 32 30 00 E4 1F 5E 06 99 22 11 11 90 20 57 49 4C |20...^.."... WIL|
000017C0: 20 4A 45 20 44 41 4E 20 48 45 54 20 4C 41 41 54 | JE DAN HET LAAT|
000017D0: 53 54 45 20 44 45 45 4C 20 4E 4F 47 20 54 45 52 |STE DEEL NOG TER|
000017E0: 55 47 20 3F 00 F8 1F 68 06 99 22 11 9A 20 54 59 |UG ?...h..".. TY|
000017F0: 50 20 4A 20 4F 46 20 4E 00 0C 20 72 06 A1 51 24 |P J OF N.. r..Q$|
00001800: 3A 8B 51 24 B2 22 22 89 31 36 35 30 00 2A 20 7C |:.Q$."".1650.* ||
00001810: 06 8B 51 24 B2 C7 28 31 33 29 A7 99 22 91 91 91 |..Q$..(13).."...|
00001820: 91 91 91 22 3A 89 31 36 33 30 00 3B 20 86 06 8B |...":.1630.; ...|
00001830: 51 24 B2 22 4A 22 89 31 32 35 30 00 65 20 90 06 |Q$."J".1250.e ..|
00001840: 99 22 11 11 05 20 4D 45 45 52 20 48 49 45 52 4F |."... MEER HIERO|
00001850: 56 45 52 20 49 4E 20 44 45 20 4C 41 41 54 53 54 |VER IN DE LAATST|
00001860: 45 20 4C 45 53 00 8B 20 9A 06 99 22 11 11 11 20 |E LES.. ..."... |
00001870: 49 4B 20 4C 41 41 44 20 4E 55 20 44 45 20 56 4F |IK LAAD NU DE VO|
00001880: 4C 47 45 4E 44 45 20 4C 45 53 2E 00 B1 20 A4 06 |LGENDE LES... ..|
00001890: 99 22 1C 11 11 11 11 11 11 11 11 11 11 22 3A 93 |."...........":.|
000018A0: 22 42 41 53 49 43 20 4C 45 53 20 35 22 2C 38 3A |"BASIC LES 5",8:|
000018B0: 80 00 E4 20 B8 06 99 A6 53 AA 33 29 22 A4 A4 A4 |... ....S.3)"...|
000018C0: A4 A4 22 3A 99 A6 53 AA 32 29 22 CE 20 20 20 20 |..":..S.2)". |
000018D0: CE A5 22 3A 99 A6 53 AA 31 29 22 CE 20 20 20 20 |..":..S.1)". |
000018E0: CE 20 A5 22 00 16 21 C2 06 99 A6 53 29 22 CE 20 |. ."..!....S)". |
000018F0: 20 20 20 CE 20 20 A5 22 3A 99 A6 53 29 22 CF A3 | . .":..S)"..|
00001900: A3 A3 D0 20 20 CE 22 3A 99 A6 53 29 22 A5 12 20 |... .":..S)".. |
00001910: 20 20 92 A7 20 CE 00 31 21 CC 06 99 A6 53 29 22 | .. ..1!....S)"|
00001920: CC A4 A4 A4 BA CE 91 91 91 91 9D 9D 9D 22 3B 3A |.............";:|
00001930: 8E 00 38 21 D6 06 85 41 00 82 21 E0 06 97 51 31 |..8!...A..!...Q1|
00001940: 2C 30 3A 99 22 13 11 11 11 11 11 11 11 11 11 11 |,0:."...........|
00001950: 11 11 11 11 11 11 11 11 11 11 11 11 11 20 20 20 |............. |
00001960: 20 20 20 9E 12 56 4F 4F 52 20 56 45 52 44 45 52 | ..VOOR VERDER|
00001970: 3A 20 44 52 55 4B 20 4F 50 20 27 53 50 41 43 45 |: DRUK OP 'SPACE|
00001980: 27 92 00 96 21 EA 06 A1 41 24 3A 8B 41 24 B2 22 |'...!...A$:.A$."|
00001990: 22 A7 31 37 37 30 00 9C 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 RUITMTE,...@.."
. MAAR LAAT GEEN DECIMALEN TOE!...J.."..
. A% IS NIET HET ZELFDE ALS A EN MOGEN..
.T..". BEIDE IN HET ZELFDE PROGRAMMA VOO
RKOMEN.K.^..".. % NOEMEN WE EEN 'INTEGER
IDENTIFIER'":.1760.{.H..".. ALS VARIABA
LE MAG JE ELKE WILLEKEURIGE...R..". LETT
ER UIT HET ALFABET GEBRUIKEN..O.|..".. .
EEN CIJFER IS NIET TOELAATBAAR!......".
.'(LET) 9=81' IS DUS GROTE ONZIN!.&...."
.. VARIABELEN MOGEN WEL BESTAAN UIT 'N.T
....". LETTER GEVOLGD DOOR 'N CIJFER BV:
.A1.Z....". OF UIT TWEE LETTERS BV: .PE
........".. M.U.V. DE COMBINATIES: TI EN
ST !!.P...." EEEEEEEEEEEEEEEEEEEEEEEEEE
EEEEEEEE...B..". JE MAG ER WEL MEER NEME
N, MAAR IK KIJK.(.L..". ALLEEN MAAR NAAR
DE EERSTE TWEE!.Z.V..".. DUS 'CBM=64' L
EES IK ALS 'CB=64'.":.1760......".. VERM
IJD HET GEBRUIK VAN VARIABELEN......". W
AARVAN EEN DEEL EEN COMMANDOWOORD IS!...
..."... 'KLETS' IS DUS ONTOELAATBAAR OMD
AT......". DAAR HET COMMANDO 'LET' IN ZI
T!.8...."... DE TOTALE LIJST AAN COMMAND
OWOORDEN.Y....". STAAT IN DE HANDLEIDING
......."... HET IS OVERIGENS, OM VERGISS
INGEN TE...&..". VOORKOMEN, BETER OM VAR
IABELEN TE...0..". GEBRUIKEN, DIE NIET L
ANGER ZIJN DAN...:..". TWEE LETTERTEKENS
.":.1760.6.D..".......... EEN WOORD (KET
EN VAN LETTERS) KUN JE.B.N..". IN EEN 'S
TRING VARIABELE' OPBERGEN....X..".. TYP
EENS VIER LETTERS ";A$...Y.A$.H(A$."
",4).G.B.."..";:S.4:.1720:."."A$".......
.A$.......L..".";:S.15:.1720:."11.......
P.......V..".";:S.25:.1720:."55.......G.
....>...."....... JE ZIET, DAT IK DEZE L
ETTERS.C....". HEB OPGEBORGEN IN 'DOOS'
A$..U....J..1760:.930......"... JE MOET
DUS EEN .$. TEKEN GEBRUIKEN.......Q1,0:.
".. .WIL JE DIT NOG EENS ZIEN ?. (TYP J
OF N)......A$:.A$."".690......A$.."N".12
0.C.F..".. EEN PAAR VOORBEELDEN VAN PROG
RAMMA'S .MET VARIABELEN:.W.P..".. 11
0 INPUT "G(34)"HOE OUD BEN JE "G(34)";L.
..Z..". 120 (LET) D=L*365.Q....". 130
PRINT "G(34)"DAN BEN JE"G(34)" D "G(34)"
DAGEN OUD......"... IN REGEL 110 VRAAG I
K OM EEN LEEFTIJD,.-....". DIE IK IN 'L'
STOP EN IN REGEL 120.W....". VERMENIGVU
LDIG EN DIE UITKOMST IN......". 'D' STOP
. .IN REGEL 130 PRINT IK TUSSEN......".
DE TEKST DE UITKOMST 'D'.":.1760... ..".
. HET STUKJE PROGRAMMA VAN DAARNET WAAR.
..*..". IK OM VIER LETTERS VROEG ZIET ZO
UIT:.G.4..".. 310 INPUT"G(34)"TYP EENS
VIER LETTERS"G(34)";A$.}.>..". 330 PRI
NT"G(34)"JE ZIET, DAT IK DEZE LETTERS...
H.." 340 PRINT"G(34)"HEB OPGEBORGEN IN
'DOOS' A$...R.."... REGEL 310 PRINTE DE
VRAAG EN PLAATSTE...\..". 'T ANTWOORD IN
A$. IN DE ONTBREKENDE.;.F..". REGEL 320
WERD HET PLAATJE GETEKEND..F.P..".. DE
REGELS 330 EN 340 VOORZAGEN JE...Z..". V
AN COMMENTAAR NA DE OPDRACHT..D....Q1,0:
.".. .WIL JE DAT NOG EENS ZIEN ?. (J/N)"
:J.1.W....Q$:.Q$."".910......Q$.."N".580
......".. ALS JE STRING VARIABELEN GEBRU
IKT.=....". VERGEET DAN NIET HET '$' TEK
EN ER.B....". ACHTER WANT ANDERS ZIE JE:
........".?REDO FROM START":."? ";...J..
X.1.10:.". .";:.P.1.200:.:.". .";:.P.1.2
00:.P,X:.". "...T..".... WANT IK VERWACH
T DAN CIJFERS......". MAAR IK KRIJG LETT
ERS!.:....Q1,0:."... .HEB JE HET TOT ZOV
ER BEGREPEN. (J/N).N....Q$:.Q$."".1010._
....Q$.."J".710......".. IN EEN STRING P
ASSEN MAXIMAAL 256......". TEKENS INCLUS
IEF ALLE SPATIES EN ALLE......". LEESTEK
ENS. DE INHOUD VAN EEN STRING...$..". M
OET ALTIJD TUSSEN AANHALINGSTEKENS.1....
". WORDEN GEPLAATST, DUS:.A.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 N
IET NODIG AANHALINGS-.J.J..". TEKENS TE
TYPEN BIJ HET BEANTWOORDEN..T..". VAN E
EN VRAAG, GESTELD DOOR 'T PROGRAM-. MA..
..~..".. BIJVOORBEELD:......".. HOE HEE
T JIJ......" ? ";:I.15......X.1.I:.". .
";:.P.1.200:.:.". .";:.P.1.200:.P,X.....
N.N.1:I.1.!....N.1210,1220,1220,1230,124
0.2....".N";:.1180.B.D.."A";:.1180.R.N..
"M";:.1180.B.X.."..":.1760......".. MET
STRINGS KAN IK ENKELE FANTASTISCHE......
". DINGEN UITHALEN..Y....".. IK KEN ER S
PECIALE COMMANDO'S VOOR :......"... .LEF
T$.(A$,X) .MID$.(A$,X,Y), .RIGHT$.(A$).
@....". .LEN.(A$) .VAL.(A$) .
STR$.(A).P....".. LET WEL: BIJ DE LAATST
E STAAT GEEN $ !......".. HET LIJKT ERG
INGEWIKKELD, MAAR IS.H.(..". TOCH ECHT N
IET ZO MOEILIJK..":.1760...2..".. MET DE
ZE COMMANDO'S GAAN WE NU WAT.!.<.." MANI
PULEREN: STEL N$="G(34)"CBM"G(34).K.F.."
. DAN ZAL ER HET VOLGENDE GEBEUREN:.B.P.
.".. ?LEFT$(N$,1)...Z..". IK GEEF .1. L
ETTER VAN AF LINKS DUS .C...D..".. ?RIG
HT$(N$,1).Y.N..". IK GEEF .1. LETTER VAN
AF RECHTS DUS .M...X..".. ?MID$(N$,2,1
)......". IK GEEF .1. LETTER VAN AF .DE
TWEEDE.9....". .VAN LINKS. DUS .B.L...."
.. ?LEN(N$).|. ..". IK GEEF HET AANTAL
LETTERS IN N$ DUS .3.....:.1760......"..
MET GETALLEN IN EEN STRING KUN JE NIET.
.....". REKENEN; JE MOET ER EERST DE WAA
RDE...H..". UITHALEN MET: ..VAL(N$)..
BV:.+.R..".. 50 A$="123":B$="45".X...
.".. WILLEN WE WETEN WAT 123+45 IS, DAN:
.{....".. 60 A=VAL(A$):B=VAL(B$).....
." 70 C=A+B:PRINT C.A....".. EN KRIJG
EN WE .168. ALS UITKOMST..Z....".. DOEN
WE ECHTER:......".. 60 C$=A$+B$:PRINT
C$.+....".. DAN KRIJGEN WE .12345. ALS
UITKOMST!!.6.".:.1760.G.,..".. WIL JE D
E HELE LES NOG EENS DOORNEMEN ?.{.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".1
250.E ..."... MEER HIEROVER IN DE LAATST
E LES.. ..."... IK LAAD NU DE VOLGENDE L
ES... ..."...........":."BASIC LES 5",8:
... ....S.3)".....":..S.2)"N N.":..S.
1)"N N ."..!B...S)"N N .":..S)"O.
..P N":..S)".. .. N.1!L...S)"L....N..
.....";:..8!V..A..!...Q1,0:."...........
............. ..VOOR VERDER: DRUK O
P 'SPACE'...!...A$:.A$."".1770..!......
> CLICK IMAGE PREVIEW FOR FULL MODAL