BASIC LES 3
FILE INFORMATION
FILENAME(S): BASIC LES 3
FILE TYPE(S): PRG
FILE SIZE: 6K
FIRST SEEN: 2025-12-01 20:43:42
APPEARS ON: 1 disk(s)
FILE HASH
4677e10c24880aa96131dcf1e5d86a3e42e205e1874220003e1201e71404af0b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BASIC | BASIC LES 3 | PRG | mace | 19 | 9 | 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 33 00 29 08 02 00 97 34 39 31 35 32 2C C2 |S 3.)....49152,.|
00000020: 28 31 38 36 29 3A 89 31 31 00 73 08 03 00 97 31 |(186):.11.s....1|
00000030: 39 38 2C 30 3A 99 22 1C 13 11 11 11 11 11 11 11 |98,0:.".........|
00000040: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000050: 20 20 20 20 20 20 12 56 4F 4F 52 20 56 45 52 44 | .VOOR VERD|
00000060: 45 52 3A 20 44 52 55 4B 20 4F 50 20 27 53 50 41 |ER: DRUK OP 'SPA|
00000070: 43 45 27 00 86 08 04 00 A1 41 24 3A 8B 41 24 B3 |CE'......A$:.A$.|
00000080: B1 22 20 22 A7 34 00 8C 08 05 00 8E 00 B7 08 06 |." ".4..........|
00000090: 00 99 22 93 11 1F 20 20 20 C5 C5 C5 C5 C5 C5 C5 |.."... .......|
000000A0: C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 |................|
000000B0: C5 C5 C5 C5 C5 C5 C5 00 EA 08 07 00 99 22 20 20 |............." |
000000C0: 20 20 32 30 20 50 52 49 4E 54 20 22 C7 28 33 34 | 20 PRINT ".(34|
000000D0: 29 22 20 48 4F 45 20 4F 55 44 20 42 45 4E 20 4A |)" HOE OUD BEN J|
000000E0: 49 4A 20 22 C7 28 33 34 29 22 00 00 09 08 00 99 |IJ ".(34)"......|
000000F0: 22 11 20 20 20 20 33 30 20 49 4E 50 55 54 20 41 |". 30 INPUT A|
00000100: 00 31 09 09 00 99 22 11 20 20 20 20 34 30 20 50 |.1....". 40 P|
00000110: 52 49 4E 54 20 41 20 22 C7 28 33 34 29 22 20 49 |RINT A ".(34)" I|
00000120: 53 20 4E 49 45 54 20 4F 55 44 2E 22 C7 28 33 34 |S NIET OUD.".(34|
00000130: 29 00 5C 09 0A 00 99 22 20 20 20 D2 D2 D2 D2 D2 |).\...." .....|
00000140: D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 |................|
00000150: D2 D2 D2 D2 D2 D2 D2 D2 D2 22 3A 8E 00 68 09 0B |.........":..h..|
00000160: 00 99 C7 28 31 34 32 29 00 7F 09 0C 00 97 35 33 |...(142)......53|
00000170: 32 38 30 2C 32 3A 97 35 33 32 38 31 2C 31 30 00 |280,2:.53281,10.|
00000180: B0 09 0D 00 99 22 93 11 1C 20 2A 2A 2A 2A 2A 2A |....."... ******|
00000190: 2A 2A 2A 20 42 41 53 49 43 20 43 55 52 53 55 53 |*** BASIC CURSUS|
000001A0: 20 4C 45 53 20 33 20 2A 2A 2A 2A 2A 2A 2A 2A 2A | LES 3 *********|
000001B0: 00 C0 09 0E 00 81 43 B2 31 A4 31 33 30 30 3A 82 |......C.1.1300:.|
000001C0: 00 E9 09 0F 00 99 22 93 11 1C 20 48 45 54 20 42 |......"... HET B|
000001D0: 45 4B 45 4E 44 45 20 27 44 4F 4B 54 45 52 27 20 |EKENDE 'DOKTER' |
000001E0: 50 52 4F 47 52 41 4D 4D 41 00 14 0A 10 00 99 22 |PROGRAMMA......"|
000001F0: 11 20 53 49 4D 55 4C 45 45 52 54 20 27 4E 20 50 |. SIMULEERT 'N P|
00000200: 53 59 43 48 49 41 54 45 52 20 49 4E 20 47 45 53 |SYCHIATER IN GES|
00000210: 50 52 45 4B 00 38 0A 11 00 99 22 11 20 4D 45 54 |PREK.8....". MET|
00000220: 20 45 45 4E 20 50 41 54 49 45 4E 54 20 4F 50 20 | EEN PATIENT OP |
00000230: 44 45 20 42 41 4E 4B 2E 00 68 0A 12 00 99 22 11 |DE BANK..h....".|
00000240: 11 20 4D 45 4E 49 47 45 45 4E 20 49 53 20 4E 49 |. MENIGEEN IS NI|
00000250: 45 54 20 49 4E 20 53 54 41 41 54 20 48 45 54 20 |ET IN STAAT HET |
00000260: 56 45 52 53 43 48 49 4C 00 8F 0A 13 00 99 22 11 |VERSCHIL......".|
00000270: 20 4F 50 20 54 45 20 4D 45 52 4B 45 4E 2C 20 4F | OP TE MERKEN, O|
00000280: 46 20 5A 45 20 4E 55 20 4D 45 54 20 45 45 4E 00 |F ZE NU MET EEN.|
00000290: BD 0A 14 00 99 22 11 20 45 43 48 54 45 20 41 52 |.....". ECHTE AR|
000002A0: 54 53 20 4F 46 20 4D 45 54 20 27 4E 20 43 4F 4D |TS OF MET 'N COM|
000002B0: 50 55 54 45 52 20 50 52 41 54 45 4E 21 00 ED 0A |PUTER PRATEN!...|
000002C0: 15 00 99 22 11 11 11 05 20 48 45 54 20 50 52 4F |...".... HET PRO|
000002D0: 47 52 41 4D 4D 41 20 4C 49 4A 4B 54 20 45 52 47 |GRAMMA LIJKT ERG|
000002E0: 20 49 4E 47 45 57 49 4B 4B 45 4C 44 2C 00 17 0B | INGEWIKKELD,...|
000002F0: 16 00 99 22 11 20 4D 41 41 52 20 49 53 20 49 4E |...". MAAR IS IN|
00000300: 20 42 45 47 49 4E 53 45 4C 20 45 52 47 20 45 45 | BEGINSEL ERG EE|
00000310: 4E 56 4F 55 44 49 47 00 2E 0B 17 00 99 22 11 20 |NVOUDIG......". |
00000320: 56 41 4E 20 4F 50 5A 45 54 2E 22 3A 8D 33 00 5A |VAN OPZET.":.3.Z|
00000330: 0B 18 00 8D 36 3A 99 22 11 11 11 90 20 49 4E 20 |....6:.".... IN |
00000340: 44 49 54 20 44 45 45 4C 20 56 41 4E 20 48 45 54 |DIT DEEL VAN HET|
00000350: 20 50 52 4F 47 52 41 4D 4D 41 00 85 0B 19 00 99 | PROGRAMMA......|
00000360: 22 11 20 47 45 42 52 55 49 4B 20 49 4B 20 52 45 |". GEBRUIK IK RE|
00000370: 47 45 4C 20 32 30 20 4F 4D 20 27 4E 20 56 52 41 |GEL 20 OM 'N VRA|
00000380: 41 47 20 54 45 00 AC 0B 1A 00 99 22 11 20 50 52 |AG TE......". PR|
00000390: 49 4E 54 45 4E 20 54 45 4E 45 49 4E 44 45 20 45 |INTEN TENEINDE E|
000003A0: 45 4E 20 41 4E 54 57 4F 4F 52 44 2C 00 DF 0B 1B |EN ANTWOORD,....|
000003B0: 00 99 22 11 20 27 4E 20 1C 12 49 4E 50 55 54 92 |..". 'N ..INPUT.|
000003C0: 90 20 53 54 41 54 45 4D 45 4E 54 2C 20 54 45 20 |. STATEMENT, TE |
000003D0: 56 45 52 4B 52 49 4A 47 45 4E 2E 22 3A 8D 33 00 |VERKRIJGEN.":.3.|
000003E0: 12 0C 1C 00 8D 36 3A 99 22 11 11 11 1C 20 41 4C |.....6:.".... AL|
000003F0: 53 20 49 4B 20 05 12 49 4E 50 55 54 92 20 1C 5A |S IK ..INPUT. .Z|
00000400: 49 45 20 57 41 43 48 54 20 49 4B 20 54 4F 54 20 |IE WACHT IK TOT |
00000410: 45 52 00 3F 0C 1D 00 99 22 11 20 45 45 4E 20 41 |ER.?....". EEN A|
00000420: 4E 54 57 4F 4F 52 44 20 49 4E 47 45 54 59 50 54 |NTWOORD INGETYPT|
00000430: 20 49 53 20 45 4E 20 42 45 52 47 20 44 41 54 00 | IS EN BERG DAT.|
00000440: 7A 0C 1E 00 99 22 11 20 4F 50 20 4F 4E 44 45 52 |z....". OP ONDER|
00000450: 20 44 45 20 4E 4F 45 4D 45 52 20 27 41 27 20 49 | DE NOEMER 'A' I|
00000460: 4E 20 4D 49 4A 4E 20 20 20 20 20 20 20 20 11 20 |N MIJN . |
00000470: 20 47 45 48 45 55 47 45 4E 2E 00 A6 0C 1F 00 99 | GEHEUGEN.......|
00000480: 22 11 1F 20 41 4C 53 20 54 45 4B 45 4E 20 44 41 |".. ALS TEKEN DA|
00000490: 54 20 49 4B 20 4F 50 20 41 4E 54 57 4F 4F 52 44 |T IK OP ANTWOORD|
000004A0: 20 57 41 43 48 54 00 D4 0C 20 00 99 22 11 20 4C | WACHT... ..". L|
000004B0: 41 41 54 20 49 4B 20 27 3F 27 20 5A 49 45 4E 20 |AAT IK '?' ZIEN |
000004C0: 41 43 48 54 45 52 20 44 45 20 56 52 41 41 47 2E |ACHTER DE VRAAG.|
000004D0: 22 3A 8D 33 00 04 0D 21 00 8D 36 3A 99 22 11 11 |":.3...!..6:."..|
000004E0: 90 20 5A 4F 20 41 4C 53 20 49 4B 20 52 45 45 44 |. ZO ALS IK REED|
000004F0: 53 20 56 45 52 54 45 4C 44 45 20 4B 55 4E 4E 45 |S VERTELDE KUNNE|
00000500: 4E 20 57 45 00 28 0D 22 00 99 22 11 20 44 49 54 |N WE.(."..". DIT|
00000510: 20 4E 4F 47 20 4B 4F 52 54 45 52 20 4F 50 53 43 | NOG KORTER OPSC|
00000520: 48 52 49 4A 56 45 4E 21 00 54 0D 23 00 99 22 11 |HRIJVEN!.T.#..".|
00000530: 11 20 48 45 54 20 42 45 53 50 41 41 52 44 45 20 |. HET BESPAARDE |
00000540: 4F 4E 53 20 49 4D 4D 45 52 53 20 52 55 49 4D 54 |ONS IMMERS RUIMT|
00000550: 45 20 49 4E 00 72 0D 24 00 99 22 11 20 49 4E 20 |E IN.r.$..". IN |
00000560: 4D 49 4A 4E 20 47 45 48 45 55 47 45 4E 21 22 3A |MIJN GEHEUGEN!":|
00000570: 8D 33 00 9D 0D 25 00 99 22 93 11 1C 20 4C 41 54 |.3...%.."... LAT|
00000580: 45 4E 20 57 45 20 44 55 53 20 41 46 53 50 52 45 |EN WE DUS AFSPRE|
00000590: 4B 45 4E 20 44 41 54 20 57 45 20 49 4E 00 C6 0D |KEN DAT WE IN...|
000005A0: 26 00 99 22 11 20 56 45 52 56 4F 4C 47 20 41 4C |&..". VERVOLG AL|
000005B0: 54 49 4A 44 20 27 4E 20 50 52 49 4E 54 20 45 4E |TIJD 'N PRINT EN|
000005C0: 20 49 4E 50 55 54 00 EF 0D 27 00 99 22 11 20 53 | INPUT...'..". S|
000005D0: 41 4D 45 4E 56 4F 45 47 45 4E 20 41 4C 53 20 48 |AMENVOEGEN ALS H|
000005E0: 45 54 20 56 4F 4F 52 4B 4F 4D 54 21 2E 2E 2E 00 |ET VOORKOMT!....|
000005F0: 26 0E 28 00 99 22 11 11 90 20 20 20 20 32 30 20 |&.(.."... 20 |
00000600: 49 4E 50 55 54 20 22 C7 28 33 34 29 22 48 4F 45 |INPUT ".(34)"HOE|
00000610: 20 4F 55 44 20 42 45 4E 20 4A 49 4A 20 22 C7 28 | OUD BEN JIJ ".(|
00000620: 33 34 29 22 3B 41 00 50 0E 29 00 99 22 11 20 20 |34)";A.P.)..". |
00000630: 20 20 33 30 20 50 52 49 4E 54 20 41 20 22 C7 28 | 30 PRINT A ".(|
00000640: 33 34 29 22 49 53 20 4E 49 45 54 20 4F 55 44 2E |34)"IS NIET OUD.|
00000650: 00 7F 0E 2A 00 99 22 11 11 1C 20 56 45 52 47 45 |...*.."... VERGE|
00000660: 45 54 20 45 43 48 54 45 52 20 4E 49 45 54 20 44 |ET ECHTER NIET D|
00000670: 45 20 50 55 4E 54 2D 4B 4F 4D 4D 41 20 45 4E 00 |E PUNT-KOMMA EN.|
00000680: A4 0E 2B 00 99 22 11 20 45 4E 20 44 45 20 41 41 |..+..". EN DE AA|
00000690: 4E 48 41 4C 49 4E 47 53 54 45 4B 45 4E 53 21 21 |NHALINGSTEKENS!!|
000006A0: 22 3A 8D 33 00 D5 0E 2C 00 99 22 93 11 1F 20 54 |":.3...,.."... T|
000006B0: 59 50 20 27 52 55 4E 27 20 45 4E 20 44 52 55 4B |YP 'RUN' EN DRUK|
000006C0: 20 4F 50 20 90 12 52 45 54 55 52 4E 92 1F 20 4F | OP ..RETURN.. O|
000006D0: 4D 20 44 49 54 00 FD 0E 2D 00 85 22 11 20 50 52 |M DIT...-..". PR|
000006E0: 4F 47 52 41 4D 4D 41 20 55 49 54 20 54 45 20 50 |OGRAMMA UIT TE P|
000006F0: 52 4F 42 45 52 45 4E 20 1C 22 3B 41 24 00 0F 0F |ROBEREN .";A$...|
00000700: 2E 00 8B 41 24 B3 B1 22 52 55 4E 22 89 34 34 00 |...A$.."RUN".44.|
00000710: 2F 0F 2F 00 85 22 90 11 11 11 11 11 20 48 4F 45 |/./.."...... HOE|
00000720: 20 4F 55 44 20 42 45 4E 20 4A 49 4A 22 3B 41 00 | OUD BEN JIJ";A.|
00000730: 4A 0F 30 00 99 41 20 22 49 53 20 4E 49 45 54 20 |J.0..A "IS NIET |
00000740: 4F 55 44 11 11 11 22 3A 8D 33 00 77 0F 31 00 99 |OUD...":.3.w.1..|
00000750: 22 93 11 1C 20 27 49 4E 50 55 54 27 20 4B 41 4E |"... 'INPUT' KAN|
00000760: 20 4F 4F 4B 20 47 45 42 52 55 49 4B 54 20 57 4F | OOK GEBRUIKT WO|
00000770: 52 44 45 4E 20 4F 4D 00 A5 0F 32 00 99 22 11 20 |RDEN OM...2..". |
00000780: 45 45 4E 20 57 4F 4F 52 44 20 54 45 20 56 52 41 |EEN WOORD TE VRA|
00000790: 47 45 4E 20 49 2E 50 2E 56 2E 20 45 45 4E 20 47 |GEN I.P.V. EEN G|
000007A0: 45 54 41 4C 2E 00 D1 0F 33 00 99 22 11 11 1F 20 |ETAL....3.."... |
000007B0: 44 41 41 52 56 4F 4F 52 20 4D 4F 45 54 20 4A 45 |DAARVOOR MOET JE|
000007C0: 20 48 45 54 20 44 4F 4C 4C 41 52 20 54 45 4B 45 | HET DOLLAR TEKE|
000007D0: 4E 00 FA 0F 34 00 99 22 11 20 41 43 48 54 45 52 |N...4..". ACHTER|
000007E0: 20 44 45 20 56 41 52 49 41 42 45 4C 45 20 27 41 | DE VARIABELE 'A|
000007F0: 27 20 50 4C 41 41 54 53 45 4E 00 26 10 35 00 99 |' PLAATSEN.&.5..|
00000800: 22 11 20 5A 4F 44 41 54 20 49 4B 20 57 45 45 54 |". ZODAT IK WEET|
00000810: 20 44 41 54 20 45 52 20 4C 45 54 54 45 52 53 20 | DAT ER LETTERS |
00000820: 4B 4F 4D 45 4E 3A 00 5D 10 36 00 99 22 90 11 11 |KOMEN:.].6.."...|
00000830: 20 20 20 20 35 30 20 49 4E 50 55 54 20 22 C7 28 | 50 INPUT ".(|
00000840: 33 34 29 22 42 45 5A 49 54 20 4A 49 4A 20 27 4E |34)"BEZIT JIJ 'N|
00000850: 20 36 34 22 C7 28 33 34 29 22 3B 41 24 00 8B 10 | 64".(34)";A$...|
00000860: 37 00 99 22 11 11 1C 20 48 45 54 20 41 4E 54 57 |7.."... HET ANTW|
00000870: 4F 4F 52 44 20 57 4F 52 44 54 20 4F 50 47 45 42 |OORD WORDT OPGEB|
00000880: 4F 52 47 45 4E 20 49 4E 20 44 45 00 C1 10 38 00 |ORGEN IN DE...8.|
00000890: 99 22 11 20 53 54 52 49 4E 47 20 56 41 52 49 41 |.". STRING VARIA|
000008A0: 42 4C 45 20 27 41 24 27 2E 22 3A 99 22 20 C4 C4 |BLE 'A$'.":." ..|
000008B0: C4 C4 C4 C4 20 C4 C4 C4 C4 C4 C4 C4 C4 22 3A 8D |.... ........":.|
000008C0: 33 00 F1 10 39 00 99 22 93 11 90 20 44 45 20 4D |3...9.."... DE M|
000008D0: 4F 47 45 4C 49 4A 4B 48 45 49 44 20 57 4F 4F 52 |OGELIJKHEID WOOR|
000008E0: 44 45 4E 20 49 4E 20 53 54 52 49 4E 47 53 20 54 |DEN IN STRINGS T|
000008F0: 45 00 1E 11 3A 00 99 22 11 20 42 45 52 47 45 4E |E...:..". BERGEN|
00000900: 20 4B 41 4E 20 47 45 42 52 55 49 4B 54 20 57 4F | KAN GEBRUIKT WO|
00000910: 52 44 45 4E 20 56 4F 4F 52 20 5A 4F 27 4E 00 4C |RDEN VOOR ZO'N.L|
00000920: 11 3B 00 99 22 11 20 50 52 4F 47 52 41 4D 4D 41 |.;..". PROGRAMMA|
00000930: 2C 20 41 4C 53 20 27 44 4F 4B 54 45 52 27 2C 20 |, ALS 'DOKTER', |
00000940: 5A 4F 44 41 54 20 45 52 20 45 45 4E 00 70 11 3C |ZODAT ER EEN.p.<|
00000950: 00 99 22 11 20 53 4F 4F 52 54 A0 43 4F 4E 56 45 |..". SOORT.CONVE|
00000960: 52 53 41 54 49 45 20 4F 4E 54 53 54 41 41 54 2E |RSATIE ONTSTAAT.|
00000970: 00 A8 11 3D 00 99 22 1C 11 11 11 20 20 20 20 35 |...=..".... 5|
00000980: 30 20 49 4E 50 55 54 20 22 C7 28 33 34 29 22 42 |0 INPUT ".(34)"B|
00000990: 45 5A 49 54 20 4A 49 4A 20 27 4E 20 36 34 22 C7 |EZIT JIJ 'N 64".|
000009A0: 28 33 34 29 22 3B 41 24 00 D7 11 3E 00 99 22 11 |(34)";A$...>..".|
000009B0: 20 20 20 20 36 30 20 49 46 20 41 24 20 3D 20 22 | 60 IF A$ = "|
000009C0: C7 28 33 34 29 22 4A 41 22 C7 28 33 34 29 22 20 |.(34)"JA".(34)" |
000009D0: 47 4F 54 4F 20 39 30 00 02 12 3F 00 99 22 11 20 |GOTO 90...?..". |
000009E0: 20 20 20 37 30 20 50 52 49 4E 54 20 22 C7 28 33 | 70 PRINT ".(3|
000009F0: 34 29 22 4F 4E 42 45 47 52 49 4A 50 45 4C 49 4A |4)"ONBEGRIJPELIJ|
00000A00: 4B 21 00 14 12 40 00 99 22 11 20 20 20 20 38 30 |K!...@..". 80|
00000A10: 20 45 4E 44 00 3E 12 41 00 99 22 11 20 20 20 20 | END.>.A..". |
00000A20: 39 30 20 50 52 49 4E 54 20 22 C7 28 33 34 29 22 |90 PRINT ".(34)"|
00000A30: 4D 41 5A 5A 45 4C 41 41 52 21 22 3A 8D 33 00 6D |MAZZELAAR!":.3.m|
00000A40: 12 42 00 99 22 91 1F 20 49 4E 20 52 45 47 45 4C |.B..".. IN REGEL|
00000A50: 20 36 30 20 4B 49 4A 4B 20 49 4B 20 4F 4D 20 54 | 60 KIJK IK OM T|
00000A60: 45 20 5A 49 45 4E 20 4F 46 20 48 45 54 00 9C 12 |E ZIEN OF HET...|
00000A70: 43 00 99 22 11 20 41 4E 54 57 4F 4F 52 44 20 4F |C..". ANTWOORD O|
00000A80: 50 20 44 45 20 56 52 41 41 47 2C 20 4F 50 47 45 |P DE VRAAG, OPGE|
00000A90: 42 4F 52 47 45 4E 20 49 4E 20 41 24 00 C9 12 44 |BORGEN IN A$...D|
00000AA0: 00 99 22 11 20 47 45 4C 49 4A 4B 20 49 53 20 41 |..". GELIJK IS A|
00000AB0: 41 4E 20 27 4A 41 27 2E 20 49 53 20 44 49 54 20 |AN 'JA'. IS DIT |
00000AC0: 57 41 41 52 2C 20 44 41 4E 00 F5 12 45 00 99 22 |WAAR, DAN...E.."|
00000AD0: 11 20 53 50 52 49 4E 47 20 49 4B 20 4E 41 41 52 |. SPRING IK NAAR|
00000AE0: 20 52 45 47 45 4C 20 39 30 20 45 4E 20 50 52 49 | REGEL 90 EN PRI|
00000AF0: 4E 54 20 49 4B 00 1C 13 46 00 99 22 20 11 22 C7 |NT IK...F.." .".|
00000B00: 28 33 34 29 22 4D 41 5A 5A 45 4C 41 41 52 21 22 |(34)"MAZZELAAR!"|
00000B10: C7 28 33 34 29 3A 99 3A 99 3A 8D 33 00 57 13 47 |.(34):.:.:.3.W.G|
00000B20: 00 99 22 90 20 91 91 91 91 91 91 91 91 91 91 91 |..". ...........|
00000B30: 49 53 20 48 45 54 20 41 4E 54 57 4F 4F 52 44 20 |IS HET ANTWOORD |
00000B40: 47 45 45 4E 20 27 4A 41 27 20 44 41 4E 20 20 20 |GEEN 'JA' DAN |
00000B50: 20 20 20 20 20 20 22 00 87 13 48 00 99 22 11 20 | "...H..". |
00000B60: 53 4C 41 20 49 4B 20 52 45 47 45 4C 20 36 30 20 |SLA IK REGEL 60 |
00000B70: 4F 56 45 52 20 45 4E 20 47 41 20 49 4B 20 4E 41 |OVER EN GA IK NA|
00000B80: 41 52 20 44 45 20 22 00 B7 13 49 00 99 22 11 20 |AR DE "...I..". |
00000B90: 45 45 52 53 54 20 56 4F 4C 47 45 4E 44 45 2C 20 |EERST VOLGENDE, |
00000BA0: 48 49 45 52 20 37 30 2C 20 45 4E 20 50 52 49 4E |HIER 70, EN PRIN|
00000BB0: 54 20 20 20 20 20 11 00 F8 13 4A 00 99 22 20 22 |T ....J.." "|
00000BC0: C7 28 33 34 29 22 4F 4E 42 45 47 52 49 4A 50 45 |.(34)"ONBEGRIJPE|
00000BD0: 4C 49 4A 4B 22 C7 28 33 34 29 22 20 20 20 20 20 |LIJK".(34)" |
00000BE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BF0: 20 20 20 20 20 20 20 22 00 17 14 4B 00 99 22 20 | "...K.." |
00000C00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C10: 20 20 20 22 3A 8D 33 00 46 14 4C 00 99 22 93 11 | ":.3.F.L.."..|
00000C20: 9E 20 27 49 46 A4 47 4F 54 4F 27 20 47 45 42 52 |. 'IF.GOTO' GEBR|
00000C30: 55 49 4B 20 4A 45 20 41 4C 53 20 49 4B 20 4E 41 |UIK JE ALS IK NA|
00000C40: 41 52 20 45 45 4E 00 76 14 4D 00 99 22 11 20 48 |AR EEN.v.M..". H|
00000C50: 45 45 4C 20 41 4E 44 45 52 20 44 45 45 4C 20 56 |EEL ANDER DEEL V|
00000C60: 41 4E 20 48 45 54 20 50 52 4F 47 52 41 4D 4D 41 |AN HET PROGRAMMA|
00000C70: 20 4D 4F 45 54 2E 00 A2 14 4E 00 99 22 11 1F 20 | MOET....N..".. |
00000C80: 41 4C 53 20 45 45 4E 20 42 45 50 41 41 4C 44 45 |ALS EEN BEPAALDE|
00000C90: 20 43 4F 4E 44 49 54 49 45 20 57 41 41 52 20 49 | CONDITIE WAAR I|
00000CA0: 53 2C 00 CD 14 4F 00 99 22 11 20 53 50 52 49 4E |S,...O..". SPRIN|
00000CB0: 47 20 49 4B 20 4E 41 41 52 20 44 45 20 52 45 47 |G IK NAAR DE REG|
00000CC0: 45 4C 20 44 49 45 20 41 43 48 54 45 52 00 F0 14 |EL DIE ACHTER...|
00000CD0: 50 00 99 22 11 20 48 45 54 20 43 4F 4D 4D 41 4E |P..". HET COMMAN|
00000CE0: 44 4F 20 27 47 4F 54 4F 27 20 53 54 41 41 54 2E |DO 'GOTO' STAAT.|
00000CF0: 00 23 15 51 00 99 22 11 11 11 9E 20 27 47 4F 54 |.#.Q..".... 'GOT|
00000D00: 4F 27 20 4B 55 4E 20 4A 45 20 4F 4F 4B 20 47 45 |O' KUN JE OOK GE|
00000D10: 42 52 55 49 4B 45 4E 20 5A 4F 4E 44 45 52 20 27 |BRUIKEN ZONDER '|
00000D20: 49 46 27 00 4C 15 52 00 99 22 20 5A 4F 44 41 54 |IF'.L.R.." ZODAT|
00000D30: 20 49 4B 20 5A 4F 4E 44 45 52 20 43 4F 4E 44 49 | IK ZONDER CONDI|
00000D40: 54 49 45 53 20 4E 41 41 52 20 44 45 00 7E 15 53 |TIES NAAR DE.~.S|
00000D50: 00 99 22 11 20 52 45 47 45 4C 20 53 50 52 49 4E |..". REGEL SPRIN|
00000D60: 47 20 44 49 45 20 41 43 48 54 45 52 20 27 47 4F |G DIE ACHTER 'GO|
00000D70: 54 4F 27 20 53 54 41 41 54 2E 22 3A 8D 33 00 B0 |TO' STAAT.":.3..|
00000D80: 15 54 00 99 22 93 11 1C 20 45 45 4E 20 41 4E 44 |.T.."... EEN AND|
00000D90: 45 52 20 48 41 4E 44 49 47 20 05 27 43 4F 4E 44 |ER HANDIG .'COND|
00000DA0: 49 54 49 4F 4E 41 4C 20 43 4F 4D 4D 41 4E 44 27 |ITIONAL COMMAND'|
00000DB0: 00 CB 15 55 00 99 22 11 1C 20 49 53 3A 20 20 20 |...U..".. IS: |
00000DC0: 20 90 27 49 46 A4 54 48 45 4E 27 00 02 16 56 00 | .'IF.THEN'...V.|
00000DD0: 99 22 11 11 11 1C 20 20 34 30 20 49 4E 50 55 54 |.".... 40 INPUT|
00000DE0: 20 22 C7 28 33 34 29 22 47 45 45 46 20 45 45 4E | ".(34)"GEEF EEN|
00000DF0: 20 47 45 54 41 4C 20 4F 50 22 C7 28 33 34 29 22 | GETAL OP".(34)"|
00000E00: 3B 4E 00 36 16 57 00 99 22 11 20 20 35 30 20 49 |;N.6.W..". 50 I|
00000E10: 46 20 4E 3E 31 30 20 54 48 45 4E 20 50 52 49 4E |F N>10 THEN PRIN|
00000E20: 54 20 22 C7 28 33 34 29 22 47 52 4F 54 45 52 20 |T ".(34)"GROTER |
00000E30: 44 41 4E 20 31 30 00 6C 16 58 00 99 22 11 20 20 |DAN 10.l.X..". |
00000E40: 36 30 20 49 46 20 41 3C 3D 31 30 20 54 48 45 4E |60 IF A<=10 THEN|
00000E50: 20 50 52 49 4E 54 20 22 C7 28 33 34 29 22 4B 4C | PRINT ".(34)"KL|
00000E60: 45 49 4E 45 52 20 44 41 4E 20 31 30 00 88 16 59 |EINER DAN 10...Y|
00000E70: 00 99 22 20 20 20 20 20 4F 46 20 47 45 4C 49 4A |.." OF GELIJ|
00000E80: 4B 20 41 41 4E 20 31 30 00 BA 16 5A 00 99 22 11 |K AAN 10...Z..".|
00000E90: 11 11 9E 20 52 45 47 45 4C 20 35 30 20 4C 41 41 |... REGEL 50 LAA|
00000EA0: 54 20 49 4B 20 41 4C 4C 45 4E 20 50 52 49 4E 54 |T IK ALLEN PRINT|
00000EB0: 45 4E 20 41 4C 53 20 44 45 11 00 E8 16 5B 00 99 |EN ALS DE....[..|
00000EC0: 22 20 43 4F 4E 44 49 54 49 45 20 57 41 41 52 20 |" CONDITIE WAAR |
00000ED0: 49 53 2C 20 44 55 53 20 41 4C 53 20 44 45 20 56 |IS, DUS ALS DE V|
00000EE0: 41 52 49 41 42 45 4C 45 00 0A 17 5C 00 99 22 11 |ARIABELE...\..".|
00000EF0: 20 27 4E 27 20 47 52 4F 54 45 52 20 49 53 20 44 | 'N' GROTER IS D|
00000F00: 41 4E 20 31 30 2E 22 3A 8D 33 00 31 17 5D 00 99 |AN 10.":.3.1.]..|
00000F10: 22 93 11 90 20 48 49 45 52 20 49 53 20 45 45 4E |"... HIER IS EEN|
00000F20: 20 56 4F 4F 52 42 45 45 4C 44 20 56 41 4E 20 27 | VOORBEELD VAN '|
00000F30: 4E 00 55 17 5E 00 99 22 11 20 27 49 46 A4 47 4F |N.U.^..". 'IF.GO|
00000F40: 54 4F 27 20 49 4E 20 57 45 52 4B 45 4C 49 4A 4B |TO' IN WERKELIJK|
00000F50: 48 45 49 44 3A 00 84 17 5F 00 85 20 22 11 11 11 |HEID:..._.. "...|
00000F60: 1C 20 57 49 4C 20 4A 45 20 44 45 5A 45 20 4C 45 |. WIL JE DEZE LE|
00000F70: 53 20 4E 4F 47 20 45 45 4E 53 20 5A 49 45 4E 20 |S NOG EENS ZIEN |
00000F80: 22 3B 41 24 00 97 17 60 00 8B 20 41 24 B2 22 4A |";A$...`.. A$."J|
00000F90: 41 22 20 89 20 32 34 00 DF 17 61 00 99 20 22 93 |A" . 24...a.. ".|
00000FA0: 1C 11 20 4C 41 41 54 20 4F 4E 53 20 27 54 20 4C |.. LAAT ONS 'T L|
00000FB0: 41 41 54 53 54 45 20 44 45 45 4C 20 56 41 4E 20 |AATSTE DEEL VAN |
00000FC0: 44 49 54 22 3A 99 22 11 20 50 52 4F 47 52 41 4D |DIT":.". PROGRAM|
00000FD0: 4D 41 20 45 45 4E 53 20 4C 49 53 54 45 4E 2E 00 |MA EENS LISTEN..|
00000FE0: E8 17 62 00 54 B2 54 49 00 FE 17 63 00 8B 54 49 |..b.T.TI...c..TI|
00000FF0: AB 54 B3 31 38 30 A7 A1 41 24 3A 89 39 39 00 3C |.T.180..A$:.99.<|
00001000: 18 64 00 99 22 90 11 11 11 11 11 11 11 11 11 11 |.d.."...........|
00001010: 11 11 11 11 11 52 55 4E 20 31 30 32 22 3A 99 22 |.....RUN 102":."|
00001020: 11 44 52 55 4B 20 4F 50 20 1C 12 52 45 54 55 52 |.DRUK OP ..RETUR|
00001030: 4E 91 91 91 91 91 91 91 91 91 91 91 00 48 18 65 |N............H.e|
00001040: 00 9B 20 39 35 AB 39 37 00 60 18 66 00 99 22 91 |.. 95.97.`.f..".|
00001050: 91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 |. "|
00001060: 00 8C 18 67 00 99 22 05 20 49 4E 20 52 45 47 45 |...g..". IN REGE|
00001070: 4C 20 39 36 20 4B 49 4A 4B 20 49 4B 20 4F 46 20 |L 96 KIJK IK OF |
00001080: 48 45 54 20 41 4E 54 57 4F 4F 52 44 00 BC 18 68 |HET ANTWOORD...h|
00001090: 00 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." |
000010A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000010B0: 20 20 20 20 20 20 20 20 20 20 20 22 00 E7 18 69 | "...i|
000010C0: 00 99 22 91 20 4F 50 20 44 45 20 56 52 41 41 47 |..". OP DE VRAAG|
000010D0: 20 28 44 41 54 20 49 53 20 4F 50 47 45 53 4C 41 | (DAT IS OPGESLA|
000010E0: 47 45 4E 20 41 4C 53 00 08 19 6A 00 99 22 11 20 |GEN ALS...j..". |
000010F0: 44 45 20 56 41 52 49 41 42 4C 45 20 41 24 29 20 |DE VARIABLE A$) |
00001100: 27 4A 41 27 20 49 53 2E 00 35 19 6B 00 99 22 11 |'JA' IS..5.k..".|
00001110: 90 20 49 53 20 44 41 54 20 5A 4F 2C 20 44 41 4E |. IS DAT ZO, DAN|
00001120: 20 53 50 52 49 4E 47 20 49 4B 20 54 45 52 55 47 | SPRING IK TERUG|
00001130: 20 4E 41 41 52 00 68 19 6C 00 99 22 11 20 32 34 | NAAR.h.l..". 24|
00001140: 20 45 4E 20 53 54 41 52 54 20 4E 4F 47 20 45 45 | EN START NOG EE|
00001150: 4E 53 20 4D 45 54 20 44 45 5A 45 20 4C 45 53 2E |NS MET DEZE LES.|
00001160: 22 3A 99 3A 99 3A 8D 33 00 A3 19 6D 00 99 22 91 |":.:.:.3...m..".|
00001170: 91 91 91 91 91 91 91 91 91 91 1F 20 41 4C 53 20 |........... ALS |
00001180: 41 24 20 47 45 45 4E 20 27 4A 41 27 20 49 53 2C |A$ GEEN 'JA' IS,|
00001190: 20 47 41 20 49 4B 20 4E 41 41 52 20 44 45 20 20 | GA IK NAAR DE |
000011A0: 20 20 22 00 DB 19 6E 00 99 22 11 20 56 4F 4C 47 | "...n..". VOLG|
000011B0: 45 4E 44 45 20 52 45 47 45 4C 20 45 4E 20 50 52 |ENDE REGEL EN PR|
000011C0: 49 4E 54 20 22 C7 28 33 34 29 22 4C 41 41 54 20 |INT ".(34)"LAAT |
000011D0: 4F 4E 53 20 27 54 20 20 20 20 22 00 1B 1A 6F 00 |ONS 'T "...o.|
000011E0: 99 22 20 4C 41 41 54 53 54 45 20 44 45 45 4C 20 |." LAATSTE DEEL |
000011F0: 56 41 4E 20 44 49 54 20 50 52 4F 47 52 41 4D 4D |VAN DIT PROGRAMM|
00001200: 41 2E 2E 2E 22 C7 28 33 34 29 22 2E 20 20 20 20 |A...".(34)". |
00001210: 20 20 20 20 20 20 20 20 20 20 22 00 4B 1A 70 00 | ".K.p.|
00001220: 99 22 1C 20 27 54 20 43 4F 4D 4D 41 4E 44 4F 20 |.". 'T COMMANDO |
00001230: 27 4C 49 53 54 27 20 4B 41 4E 20 49 4E 20 48 45 |'LIST' KAN IN HE|
00001240: 54 20 50 52 4F 47 52 41 4D 4D 41 00 7D 1A 71 00 |T PROGRAMMA.}.q.|
00001250: 99 22 20 47 45 42 52 55 49 4B 54 20 57 4F 52 44 |." GEBRUIKT WORD|
00001260: 45 4E 20 4F 4D 20 45 45 4E 20 53 54 55 4B 20 54 |EN OM EEN STUK T|
00001270: 45 20 4C 49 53 54 45 4E 2E 22 3A 8D 33 00 AC 1A |E LISTEN.":.3...|
00001280: 72 00 99 22 93 11 90 20 4F 4F 4B 20 56 41 4E 55 |r.."... OOK VANU|
00001290: 49 54 20 44 45 20 27 52 45 41 44 59 2E 27 20 4B |IT DE 'READY.' K|
000012A0: 55 4E 20 4A 45 20 4C 49 53 54 45 4E 00 D0 1A 73 |UN JE LISTEN...s|
000012B0: 00 99 22 11 20 44 4F 4F 52 20 47 45 57 4F 4F 4E |..". DOOR GEWOON|
000012C0: 20 27 4C 49 53 54 27 20 54 45 20 54 59 50 45 4E | 'LIST' TE TYPEN|
000012D0: 00 F5 1A 74 00 99 22 11 20 45 4E 20 4F 50 20 1C |...t..". EN OP .|
000012E0: 12 52 45 54 55 52 4E 92 90 20 54 45 20 44 52 55 |.RETURN.. TE DRU|
000012F0: 4B 4B 45 4E 2E 00 29 1B 75 00 99 22 11 11 1C 20 |KKEN..).u.."... |
00001300: 4D 45 54 20 27 4C 49 53 54 20 33 30 27 20 20 20 |MET 'LIST 30' |
00001310: 20 5A 49 45 20 4A 45 20 41 4C 4C 45 45 4E 20 52 | ZIE JE ALLEEN R|
00001320: 45 47 45 4C 20 33 30 22 3B 00 54 1B 76 00 99 22 |EGEL 30";.T.v.."|
00001330: 20 4D 45 54 20 27 4C 49 53 54 20 2D 33 30 27 20 | MET 'LIST -30' |
00001340: 20 20 41 4C 4C 45 20 52 45 47 45 4C 53 20 54 2F | ALLE REGELS T/|
00001350: 4D 20 33 30 00 81 1B 77 00 99 22 20 4D 45 54 20 |M 30...w.." MET |
00001360: 27 4C 49 53 54 20 33 30 2D 27 20 20 20 41 4C 4C |'LIST 30-' ALL|
00001370: 45 20 52 45 47 45 4C 53 20 56 41 4E 41 46 20 33 |E REGELS VANAF 3|
00001380: 30 00 AD 1B 78 00 99 22 20 4D 45 54 20 27 4C 49 |0...x.." MET 'LI|
00001390: 53 54 20 31 30 2D 33 30 27 20 44 45 20 52 45 47 |ST 10-30' DE REG|
000013A0: 45 4C 53 20 31 30 20 54 2F 4D 20 33 30 00 D9 1B |ELS 10 T/M 30...|
000013B0: 79 00 99 22 11 90 20 41 4C 53 20 48 45 54 20 53 |y..".. ALS HET S|
000013C0: 43 48 45 52 4D 20 56 4F 4C 20 49 53 2C 20 44 41 |CHERM VOL IS, DA|
000013D0: 4E 20 42 4C 49 4A 56 45 4E 00 02 1C 7A 00 99 22 |N BLIJVEN...z.."|
000013E0: 11 20 44 45 20 52 45 47 45 4C 53 20 41 41 4E 20 |. DE REGELS AAN |
000013F0: 44 45 20 4F 4E 44 45 52 4B 41 4E 54 20 4B 4F 4D |DE ONDERKANT KOM|
00001400: 45 4E 00 2B 1C 7B 00 99 22 11 20 45 4E 20 56 45 |EN.+.{..". EN VE|
00001410: 52 44 57 49 4A 4E 45 4E 20 5A 45 20 42 4F 56 45 |RDWIJNEN ZE BOVE|
00001420: 4E 20 28 53 43 52 4F 4C 4C 29 2E 00 55 1C 7C 00 |N (SCROLL)..U.|.|
00001430: 99 22 11 20 44 45 20 53 4E 45 4C 48 45 49 44 20 |.". DE SNELHEID |
00001440: 57 4F 52 44 54 20 47 45 48 41 4C 56 45 45 52 44 |WORDT GEHALVEERD|
00001450: 20 44 4F 4F 52 00 84 1C 7D 00 99 22 11 20 44 45 | DOOR...}..". DE|
00001460: 20 54 4F 45 54 53 20 27 05 43 54 52 4C 90 27 20 | TOETS '.CTRL.' |
00001470: 49 4E 47 45 44 52 55 4B 54 20 54 45 20 48 4F 55 |INGEDRUKT TE HOU|
00001480: 44 45 4E 2E 00 8B 1C 7E 00 8D 33 00 BB 1C 7F 00 |DEN....~..3.....|
00001490: 99 22 93 11 1C 20 4E 41 41 53 54 20 48 45 54 20 |."... NAAST HET |
000014A0: 42 45 53 50 52 4F 4B 45 4E 20 27 49 4E 50 55 54 |BESPROKEN 'INPUT|
000014B0: 27 20 49 53 20 45 52 20 4E 4F 47 00 E9 1C 80 00 |' IS ER NOG.....|
000014C0: 99 22 11 20 27 4E 20 4D 45 54 48 4F 44 45 20 4F |.". 'N METHODE O|
000014D0: 4D 20 49 4E 46 4F 52 4D 41 54 49 45 20 54 45 20 |M INFORMATIE TE |
000014E0: 4B 52 49 4A 47 45 4E 2E 2E 00 16 1D 81 00 99 22 |KRIJGEN........"|
000014F0: 11 11 90 20 48 45 54 20 12 47 45 54 92 20 43 4F |... HET .GET. CO|
00001500: 4D 4D 41 4E 44 4F 20 47 45 56 4F 4C 47 44 20 44 |MMANDO GEVOLGD D|
00001510: 4F 4F 52 20 27 4E 00 3F 1D 82 00 99 22 11 20 53 |OOR 'N.?....". S|
00001520: 54 52 49 4E 47 2D 56 41 52 49 41 42 45 4C 45 2C |TRING-VARIABELE,|
00001530: 20 41 43 43 45 50 54 45 45 52 54 20 45 45 4E 00 | ACCEPTEERT EEN.|
00001540: 6D 1D 83 00 99 22 11 20 4B 41 52 41 4B 54 45 52 |m....". KARAKTER|
00001550: 20 56 41 4E 20 48 45 54 20 54 4F 45 54 53 45 4E | VAN HET TOETSEN|
00001560: 42 4F 52 44 20 45 4E 20 57 4F 52 44 54 00 8E 1D |BORD EN WORDT...|
00001570: 84 00 99 22 11 20 56 41 41 4B 20 41 4C 53 20 56 |...". VAAK ALS V|
00001580: 4F 4C 47 54 20 47 45 42 52 55 49 4B 54 3A 00 BB |OLGT GEBRUIKT:..|
00001590: 1D 85 00 99 22 11 11 1F 20 20 20 31 30 20 50 52 |...."... 10 PR|
000015A0: 49 4E 54 20 22 C7 28 33 34 29 22 48 45 42 20 4A |INT ".(34)"HEB J|
000015B0: 45 3A 20 41 2E 20 27 4E 20 36 34 00 E8 1D 86 00 |E: A. 'N 64.....|
000015C0: 99 22 11 20 20 20 32 30 20 50 52 49 4E 54 20 22 |.". 20 PRINT "|
000015D0: C7 28 33 34 29 22 20 20 20 20 20 20 20 20 42 2E |.(34)" B.|
000015E0: 20 47 45 45 4E 20 36 34 00 19 1E 87 00 99 22 11 | GEEN 64......".|
000015F0: 20 20 20 33 30 20 50 52 49 4E 54 20 22 C7 28 33 | 30 PRINT ".(3|
00001600: 34 29 22 20 20 20 20 20 20 20 20 43 2E 20 42 49 |4)" C. BI|
00001610: 4A 4E 41 20 27 4E 20 36 34 00 4F 1E 88 00 99 22 |JNA 'N 64.O...."|
00001620: 11 20 20 20 34 30 20 47 45 54 20 41 24 20 3A 20 |. 40 GET A$ : |
00001630: 49 46 20 41 24 3D 22 C7 28 33 34 29 3B C7 28 33 |IF A$=".(34);.(3|
00001640: 34 29 22 20 47 4F 54 4F 20 34 30 22 3A 8D 33 00 |4)" GOTO 40":.3.|
00001650: 7E 1E 89 00 99 22 91 20 20 20 20 20 20 20 20 20 |~....". |
00001660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001670: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 A8 | "..|
00001680: 1E 8A 00 99 22 11 1C 20 4F 50 20 52 45 47 45 4C |....".. OP REGEL|
00001690: 20 34 30 20 42 4C 49 4A 46 20 49 4B 20 54 45 52 | 40 BLIJF IK TER|
000016A0: 55 47 20 4B 4F 4D 45 4E 00 D6 1E 8B 00 99 22 11 |UG KOMEN......".|
000016B0: 20 5A 4F 4C 41 4E 47 20 45 52 20 4E 4F 47 20 47 | ZOLANG ER NOG G|
000016C0: 45 45 4E 20 54 4F 45 54 53 20 49 53 20 49 4E 47 |EEN TOETS IS ING|
000016D0: 45 44 52 55 4B 54 00 0F 1F 8C 00 99 22 11 90 20 |EDRUKT......".. |
000016E0: 27 49 46 20 41 24 3D 22 C7 28 33 34 29 C7 28 33 |'IF A$=".(34).(3|
000016F0: 34 29 22 27 20 42 45 54 45 4B 45 4E 54 20 05 27 |4)"' BETEKENT .'|
00001700: 41 4C 53 20 41 24 20 4C 45 45 47 20 49 53 27 00 |ALS A$ LEEG IS'.|
00001710: 3F 1F 8D 00 99 22 11 90 20 49 53 20 44 45 20 43 |?....".. IS DE C|
00001720: 4F 4E 44 49 54 49 45 20 57 41 41 52 2C 20 44 41 |ONDITIE WAAR, DA|
00001730: 4E 20 47 41 20 49 4B 20 4E 41 41 52 20 34 30 00 |N GA IK NAAR 40.|
00001740: 72 1F 8E 00 99 22 11 1F 20 44 49 54 20 49 53 20 |r....".. DIT IS |
00001750: 45 45 4E 20 54 52 55 55 4B 4A 45 20 4F 4D 20 54 |EEN TRUUKJE OM T|
00001760: 45 20 4E 4F 54 45 52 45 4E 21 22 3A 99 3A 99 3A |E NOTEREN!":.:.:|
00001770: 8D 33 00 A0 1F 8F 00 99 22 93 11 1C 20 57 49 4C |.3......"... WIL|
00001780: 20 4A 45 20 4E 4F 47 20 45 45 4E 53 20 44 45 5A | JE NOG EENS DEZ|
00001790: 45 20 4C 45 53 20 44 4F 4F 52 4E 45 4D 45 4E 22 |E LES DOORNEMEN"|
000017A0: 00 B3 1F 90 00 A1 41 24 3A 8B 41 24 B2 22 4A 22 |......A$:.A$."J"|
000017B0: 89 31 35 00 C4 1F 91 00 8B 41 24 B3 B1 22 4E 22 |.15......A$.."N"|
000017C0: 89 31 34 34 00 E8 1F 92 00 99 22 11 11 11 90 20 |.144......".... |
000017D0: 4F 4B 20 54 4F 54 20 44 45 20 56 4F 4C 47 45 4E |OK TOT DE VOLGEN|
000017E0: 44 45 20 4C 45 53 21 21 00 04 20 93 00 93 22 42 |DE LES!!.. ..."B|
000017F0: 41 53 49 43 20 4C 45 53 20 34 22 2C C2 28 34 39 |ASIC LES 4",.(49|
00001800: 31 35 32 29 00 00 00 |152)... |
....... BASIC LES 3.)....49152,B(186):.1
1.S....198,0:.".........................
.VOOR VERDER: DRUK OP 'SPACE'.....
.A$:.A$.." ".4............"... EEEEEEE
EEEEEEEEEEEEEEEEEEEEEEE......" 20 PRI
NT "G(34)" HOE OUD BEN JIJ "G(34)"......
". 30 INPUT A.1....". 40 PRINT A "
G(34)" IS NIET OUD."G(34).\...." RRRRR
RRRRRRRRRRRRRRRRRRRRRRRRR":..H....G(142)
.....53280,2:.53281,10......"... ******
*** BASIC CURSUS LES 3 *********......C.
1.1300:......."... HET BEKENDE 'DOKTER'
PROGRAMMA......". SIMULEERT 'N PSYCHIATE
R IN GESPREK.8....". MET EEN PATIENT OP
DE BANK..H....".. MENIGEEN IS NIET IN ST
AAT HET VERSCHIL......". OP TE MERKEN, O
F ZE NU MET EEN......". ECHTE ARTS OF ME
T 'N COMPUTER PRATEN!......".... HET PRO
GRAMMA LIJKT ERG INGEWIKKELD,......". MA
AR IS IN BEGINSEL ERG EENVOUDIG......".
VAN OPZET.":.3.Z....6:.".... IN DIT DEEL
VAN HET PROGRAMMA......". GEBRUIK IK RE
GEL 20 OM 'N VRAAG TE......". PRINTEN TE
NEINDE EEN ANTWOORD,......". 'N ..INPUT.
. STATEMENT, TE VERKRIJGEN.":.3......6:.
".... ALS IK ..INPUT. .ZIE WACHT IK TOT
ER.?....". EEN ANTWOORD INGETYPT IS EN B
ERG DAT.Z....". OP ONDER DE NOEMER 'A' I
N MIJN . GEHEUGEN.......".. ALS
TEKEN DAT IK OP ANTWOORD WACHT.T. ..". L
AAT IK '?' ZIEN ACHTER DE VRAAG.":.3...!
..6:."... ZO ALS IK REEDS VERTELDE KUNNE
N WE.(."..". DIT NOG KORTER OPSCHRIJVEN!
.T.#..".. HET BESPAARDE ONS IMMERS RUIMT
E IN.R.$..". IN MIJN GEHEUGEN!":.3...%..
"... LATEN WE DUS AFSPREKEN DAT WE IN.F.
&..". VERVOLG ALTIJD 'N PRINT EN INPUT..
.'..". SAMENVOEGEN ALS HET VOORKOMT!....
&.(.."... 20 INPUT "G(34)"HOE OUD BEN
JIJ "G(34)";A.P.)..". 30 PRINT A "G(
34)"IS NIET OUD...*.."... VERGEET ECHTE
R NIET DE PUNT-KOMMA EN...+..". EN DE AA
NHALINGSTEKENS!!":.3.U.,.."... TYP 'RUN'
EN DRUK OP ..RETURN.. OM DIT...-..". PR
OGRAMMA UIT TE PROBEREN .";A$......A$.."
RUN".44././.."...... HOE OUD BEN JIJ";A.
J.0..A "IS NIET OUD...":.3.W.1.."... 'IN
PUT' KAN OOK GEBRUIKT WORDEN OM...2..".
EEN WOORD TE VRAGEN I.P.V. EEN GETAL..Q.
3.."... DAARVOOR MOET JE HET DOLLAR TEKE
N...4..". ACHTER DE VARIABELE 'A' PLAATS
EN.&.5..". ZODAT IK WEET DAT ER LETTERS
KOMEN:.].6.."... 50 INPUT "G(34)"BEZI
T JIJ 'N 64"G(34)";A$...7.."... HET ANTW
OORD WORDT OPGEBORGEN IN DE.A.8..". STRI
NG VARIABLE 'A$'.":." DDDDDD DDDDDDDD":.
3...9.."... DE MOGELIJKHEID WOORDEN IN S
TRINGS TE...:..". BERGEN KAN GEBRUIKT WO
RDEN VOOR ZO'N.L.;..". PROGRAMMA, ALS 'D
OKTER', ZODAT ER EEN.P.<..". SOORT CONVE
RSATIE ONTSTAAT....=..".... 50 INPUT
"G(34)"BEZIT JIJ 'N 64"G(34)";A$.W.>..".
60 IF A$ = "G(34)"JA"G(34)" GOTO 90.
..?..". 70 PRINT "G(34)"ONBEGRIJPELIJ
K!...@..". 80 END.>.A..". 90 PRINT
"G(34)"MAZZELAAR!":.3.M.B..".. IN REGEL
60 KIJK IK OM TE ZIEN OF HET...C..". AN
TWOORD OP DE VRAAG, OPGEBORGEN IN A$.I.D
..". GELIJK IS AAN 'JA'. IS DIT WAAR, DA
N...E..". SPRING IK NAAR REGEL 90 EN PRI
NT IK...F.." ."G(34)"MAZZELAAR!"G(34):.:
.:.3.W.G..". ...........IS HET ANTWOORD
GEEN 'JA' DAN "...H..". SLA IK R
EGEL 60 OVER EN GA IK NAAR DE "...I..".
EERST VOLGENDE, HIER 70, EN PRINT ..
..J.." "G(34)"ONBEGRIJPELIJK"G(34)"
"...K.."
":.3.F.L.."... 'IF.GOTO' GEBR
UIK JE ALS IK NAAR EEN.V.M..". HEEL ANDE
R DEEL VAN HET PROGRAMMA MOET....N.."..
ALS EEN BEPAALDE CONDITIE WAAR IS,.M.O..
". SPRING IK NAAR DE REGEL DIE ACHTER...
P..". HET COMMANDO 'GOTO' STAAT..#.Q..".
... 'GOTO' KUN JE OOK GEBRUIKEN ZONDER '
IF'.L.R.." ZODAT IK ZONDER CONDITIES NAA
R DE.~.S..". REGEL SPRING DIE ACHTER 'GO
TO' STAAT.":.3...T.."... EEN ANDER HANDI
G .'CONDITIONAL COMMAND'.K.U..".. IS:
.'IF.THEN'...V..".... 40 INPUT "G(34)"
GEEF EEN GETAL OP"G(34)";N.6.W..". 50 I
F N>10 THEN PRINT "G(34)"GROTER DAN 10.L
.X..". 60 IF A<=10 THEN PRINT "G(34)"KL
EINER DAN 10...Y.." OF GELIJK AAN 10
...Z..".... REGEL 50 LAAT IK ALLEN PRINT
EN ALS DE....[.." CONDITIE WAAR IS, DUS
ALS DE VARIABELE...\..". 'N' GROTER IS D
AN 10.":.3.1.].."... HIER IS EEN VOORBEE
LD VAN 'N.U.^..". 'IF.GOTO' IN WERKELIJK
HEID:..._.. ".... WIL JE DEZE LES NOG EE
NS ZIEN ";A$...`.. A$."JA" . 24...A.. ".
.. LAAT ONS 'T LAATSTE DEEL VAN DIT":.".
PROGRAMMA EENS LISTEN....B.T.TI...C..TI
.T.180..A$:.99.<.D.."................RUN
102":.".DRUK OP ..RETURN............H.E
.. 95.97.`.F..".. "...G..".
IN REGEL 96 KIJK IK OF HET ANTWOORD...H
.."
"...I..". OP DE VRAAG (DAT IS OPGESLA
GEN ALS...J..". DE VARIABLE A$) 'JA' IS.
.5.K..".. IS DAT ZO, DAN SPRING IK TERUG
NAAR.H.L..". 24 EN START NOG EENS MET D
EZE LES.":.:.:.3...M.."............ ALS
A$ GEEN 'JA' IS, GA IK NAAR DE "...N.
.". VOLGENDE REGEL EN PRINT "G(34)"LAAT
ONS 'T "...O.." LAATSTE DEEL VAN DIT
PROGRAMMA..."G(34)". ".K.P.
.". 'T COMMANDO 'LIST' KAN IN HET PROGRA
MMA.}.Q.." GEBRUIKT WORDEN OM EEN STUK T
E LISTEN.":.3...R.."... OOK VANUIT DE 'R
EADY.' KUN JE LISTEN.P.S..". DOOR GEWOON
'LIST' TE TYPEN...T..". EN OP ..RETURN.
. TE DRUKKEN..).U.."... MET 'LIST 30'
ZIE JE ALLEEN REGEL 30";.T.V.." MET 'LI
ST -30' ALLE REGELS T/M 30...W.." MET
'LIST 30-' ALLE REGELS VANAF 30...X.."
MET 'LIST 10-30' DE REGELS 10 T/M 30.Y.
Y..".. ALS HET SCHERM VOL IS, DAN BLIJVE
N...Z..". DE REGELS AAN DE ONDERKANT KOM
EN.+.{..". EN VERDWIJNEN ZE BOVEN (SCROL
L)..U.|..". DE SNELHEID WORDT GEHALVEERD
DOOR...}..". DE TOETS '.CTRL.' INGEDRUK
T TE HOUDEN....~..3....."... NAAST HET
BESPROKEN 'INPUT' IS ER NOG......". 'N M
ETHODE OM INFORMATIE TE KRIJGEN........"
... HET .GET. COMMANDO GEVOLGD DOOR 'N.?
....". STRING-VARIABELE, ACCEPTEERT EEN.
M....". KARAKTER VAN HET TOETSENBORD EN
WORDT......". VAAK ALS VOLGT GEBRUIKT:..
...."... 10 PRINT "G(34)"HEB JE: A. 'N
64......". 20 PRINT "G(34)" B.
GEEN 64......". 30 PRINT "G(34)"
C. BIJNA 'N 64.O....". 40 GET A$ :
IF A$="G(34);G(34)" GOTO 40":.3.~....".
"..
....".. OP REGEL 40 BLIJF IK TERUG KOMEN
.V....". ZOLANG ER NOG GEEN TOETS IS ING
EDRUKT......".. 'IF A$="G(34)G(34)"' BET
EKENT .'ALS A$ LEEG IS'.?....".. IS DE C
ONDITIE WAAR, DAN GA IK NAAR 40.R...."..
DIT IS EEN TRUUKJE OM TE NOTEREN!":.:.:
.3. ...."... WIL JE NOG EENS DEZE LES DO
ORNEMEN"......A$:.A$."J".15.D....A$.."N"
.144......".... OK TOT DE VOLGENDE LES!!
.. ..."BASIC LES 4",B(49152)...
> CLICK IMAGE PREVIEW FOR FULL MODAL