LES NR3
FILE INFORMATION
FILENAME(S): LES NR3
FILE TYPE(S): PRG
FILE SIZE: 6.2K
FIRST SEEN: 2025-11-30 21:28:19
APPEARS ON: 1 disk(s)
FILE HASH
ff9e6617128aed2cc812a793dae7b1b43c207663725fa7300743ea8b2beddcff
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| D 64003 | LES NR3 | PRG | DuncanTwain | 3 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2A 08 5A 00 97 35 33 32 38 30 2C 36 3A 97 |..*.Z..53280,6:.|
00000010: 35 33 32 38 31 2C 36 3A 99 C7 28 31 34 29 3A 8F |53281,6:..(14):.|
00000020: 20 43 4F 50 59 52 49 47 48 54 00 34 08 63 00 8D | COPYRIGHT.4.c..|
00000030: 35 30 30 30 00 42 08 64 00 97 35 39 34 36 38 2C |5000.B.d..59468,|
00000040: 31 32 00 68 08 E8 03 99 22 93 11 11 11 20 20 20 |12.h....".... |
00000050: 3D 3D 3D 42 41 53 49 43 20 43 55 52 53 55 53 20 |===BASIC CURSUS |
00000060: 4C 45 53 20 33 3D 3D 3D 00 8A 08 F2 03 99 22 20 |LES 3===......" |
00000070: 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D | ==============|
00000080: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 9A 08 FC 03 81 |==========......|
00000090: 43 B2 31 A4 31 33 30 30 3A 82 00 C0 08 4C 04 99 |C.1.1300:....L..|
000000A0: 22 93 48 45 54 20 42 45 4B 45 4E 44 45 20 27 44 |".HET BEKENDE 'D|
000000B0: 4F 4B 54 45 52 27 20 50 52 4F 47 52 41 4D 4D 41 |OKTER' PROGRAMMA|
000000C0: 00 EA 08 56 04 99 22 11 53 49 4D 55 4C 45 45 52 |...V..".SIMULEER|
000000D0: 54 20 27 4E 20 50 53 59 43 48 49 41 54 45 52 20 |T 'N PSYCHIATER |
000000E0: 49 4E 20 47 45 53 50 52 45 4B 00 0C 09 60 04 99 |IN GESPREK...`..|
000000F0: 22 11 4D 45 54 20 45 45 4E 20 50 41 54 49 45 4E |".MET EEN PATIEN|
00000100: 54 20 4F 50 20 44 45 20 42 41 4E 4B 00 3B 09 6A |T OP DE BANK.;.j|
00000110: 04 99 22 11 11 4D 45 4E 49 47 45 45 4E 20 49 53 |.."..MENIGEEN IS|
00000120: 20 4E 49 45 54 20 49 4E 20 53 54 41 41 54 20 48 | NIET IN STAAT H|
00000130: 45 54 20 56 45 52 53 43 48 49 4C 00 61 09 74 04 |ET VERSCHIL.a.t.|
00000140: 99 22 11 4F 50 20 54 45 20 4D 45 52 4B 45 4E 2C |.".OP TE MERKEN,|
00000150: 20 4F 46 20 5A 45 20 4E 55 20 4D 45 54 20 45 45 | OF ZE NU MET EE|
00000160: 4E 00 8E 09 7E 04 99 22 11 45 43 48 54 45 20 41 |N...~..".ECHTE A|
00000170: 52 54 53 20 4F 46 20 4D 45 54 20 27 4E 20 43 4F |RTS OF MET 'N CO|
00000180: 4D 50 55 54 45 52 20 50 52 41 54 45 4E 21 00 BC |MPUTER PRATEN!..|
00000190: 09 92 04 99 22 11 11 11 48 45 54 20 50 52 4F 47 |...."...HET PROG|
000001A0: 52 41 4D 4D 41 20 4C 49 4A 4B 54 20 45 52 47 20 |RAMMA LIJKT ERG |
000001B0: 49 4E 47 45 57 49 4B 4B 45 4C 44 2C 00 E5 09 9C |INGEWIKKELD,....|
000001C0: 04 99 22 11 4D 41 41 52 20 49 53 20 49 4E 20 42 |..".MAAR IS IN B|
000001D0: 45 47 49 4E 53 45 4C 20 45 52 47 20 45 45 4E 56 |EGINSEL ERG EENV|
000001E0: 4F 55 44 49 47 00 FE 09 A6 04 99 22 11 56 41 4E |OUDIG......".VAN|
000001F0: 20 4F 50 5A 45 54 2E 22 3A 8D 39 39 39 39 00 2C | OPZET.":.9999.,|
00000200: 0A CE 04 8D 32 30 30 30 30 3A 99 22 11 11 11 49 |....20000:."...I|
00000210: 4E 20 44 49 54 20 44 45 45 4C 20 56 41 4E 20 48 |N DIT DEEL VAN H|
00000220: 45 54 20 50 52 4F 47 52 41 4D 4D 41 00 56 0A D8 |ET PROGRAMMA.V..|
00000230: 04 99 22 11 47 45 42 52 55 49 4B 20 49 4B 20 52 |..".GEBRUIK IK R|
00000240: 45 47 45 4C 20 32 30 20 4F 4D 20 27 4E 20 56 52 |EGEL 20 OM 'N VR|
00000250: 41 41 47 20 54 45 00 7C 0A E2 04 99 22 11 50 52 |AAG TE.|....".PR|
00000260: 49 4E 54 45 4E 20 54 45 4E 45 49 4E 44 45 20 45 |INTEN TENEINDE E|
00000270: 45 4E 20 41 4E 54 57 4F 4F 52 44 2C 00 AE 0A EC |EN ANTWOORD,....|
00000280: 04 99 22 11 27 4E 20 12 49 4E 50 55 54 92 20 53 |..".'N .INPUT. S|
00000290: 54 41 54 45 4D 45 4E 54 2C 20 54 45 20 56 45 52 |TATEMENT, TE VER|
000002A0: 4B 52 49 4A 47 45 4E 22 3A 8D 39 39 39 39 00 E1 |KRIJGEN":.9999..|
000002B0: 0A 14 05 8D 32 30 30 30 30 3A 99 22 11 11 11 41 |....20000:."...A|
000002C0: 4C 53 20 49 4B 20 12 49 4E 50 55 54 92 20 5A 49 |LS IK .INPUT. ZI|
000002D0: 45 20 57 41 43 48 54 20 49 4B 20 54 4F 54 20 45 |E WACHT IK TOT E|
000002E0: 52 00 10 0B 1E 05 99 22 11 45 45 4E 20 41 4E 54 |R......".EEN ANT|
000002F0: 57 4F 4F 52 44 20 49 4E 47 45 54 59 50 54 20 49 |WOORD INGETYPT I|
00000300: 53 20 45 4E 20 42 45 52 47 20 44 41 54 20 4F 50 |S EN BERG DAT OP|
00000310: 00 3D 0B 28 05 99 22 11 4F 4E 44 45 52 20 44 45 |.=.(..".ONDER DE|
00000320: 20 4E 4F 45 4D 45 52 20 27 41 27 20 49 4E 20 4D | NOEMER 'A' IN M|
00000330: 49 4A 4E 20 47 45 48 45 55 47 45 4E 2E 00 68 0B |IJN GEHEUGEN..h.|
00000340: 32 05 99 22 11 11 41 4C 53 20 54 45 4B 45 4E 20 |2.."..ALS TEKEN |
00000350: 44 41 54 20 49 4B 20 4F 50 20 41 4E 54 57 4F 4F |DAT IK OP ANTWOO|
00000360: 52 44 20 57 41 43 48 54 00 9C 0B 3C 05 99 22 11 |RD WACHT...<..".|
00000370: 4C 41 41 54 20 49 4B 20 44 55 53 20 27 3F 27 20 |LAAT IK DUS '?' |
00000380: 5A 49 45 4E 20 41 43 48 54 45 52 20 44 45 20 56 |ZIEN ACHTER DE V|
00000390: 52 41 41 47 2E 22 3A 8D 39 39 39 39 00 CE 0B 78 |RAAG.":.9999...x|
000003A0: 05 8D 32 30 30 30 30 3A 99 22 11 11 5A 4F 20 41 |..20000:."..ZO A|
000003B0: 4C 53 20 49 4B 20 52 45 45 44 53 20 56 45 52 54 |LS IK REEDS VERT|
000003C0: 45 4C 44 45 20 4B 55 4E 4E 45 4E 20 57 45 00 F1 |ELDE KUNNEN WE..|
000003D0: 0B 82 05 99 22 11 44 49 54 20 4E 4F 47 20 4B 4F |....".DIT NOG KO|
000003E0: 52 54 45 52 20 4F 50 53 43 48 52 49 4A 56 45 4E |RTER OPSCHRIJVEN|
000003F0: 21 00 1C 0C 8C 05 99 22 11 11 48 45 54 20 42 45 |!......"..HET BE|
00000400: 53 50 41 41 52 44 45 20 4F 4E 53 20 49 4D 4D 45 |SPAARDE ONS IMME|
00000410: 52 53 20 52 55 49 4D 54 45 20 49 4E 00 3C 0C 96 |RS RUIMTE IN.<..|
00000420: 05 99 22 11 49 4E 20 4D 49 4A 4E 20 47 45 48 45 |..".IN MIJN GEHE|
00000430: 55 47 45 4E 21 22 3A 8D 39 39 39 39 00 64 0C DC |UGEN!":.9999.d..|
00000440: 05 99 22 93 4C 41 54 45 4E 20 57 45 20 44 55 53 |..".LATEN WE DUS|
00000450: 20 41 46 53 50 52 45 4B 45 4E 20 44 41 54 20 57 | AFSPREKEN DAT W|
00000460: 45 20 49 4E 00 8C 0C E6 05 99 22 11 56 45 52 56 |E IN......".VERV|
00000470: 4F 4C 47 20 41 4C 54 49 4A 44 20 27 4E 20 50 52 |OLG ALTIJD 'N PR|
00000480: 49 4E 54 20 45 4E 20 49 4E 50 55 54 00 B4 0C EB |INT EN INPUT....|
00000490: 05 99 22 11 53 41 4D 45 4E 56 4F 45 47 45 4E 20 |..".SAMENVOEGEN |
000004A0: 41 4C 53 20 48 45 54 20 56 4F 4F 52 4B 4F 4D 54 |ALS HET VOORKOMT|
000004B0: 21 2E 2E 2E 00 EA 0C F0 05 99 22 11 11 20 20 20 |!.........".. |
000004C0: 20 32 30 20 49 4E 50 55 54 20 22 C7 28 33 34 29 | 20 INPUT ".(34)|
000004D0: 22 48 4F 45 20 4F 55 44 20 42 45 4E 20 4A 49 4A |"HOE OUD BEN JIJ|
000004E0: 20 22 C7 28 33 34 29 22 3B 41 00 14 0D FA 05 99 | ".(34)";A......|
000004F0: 22 11 20 20 20 20 33 30 20 50 52 49 4E 54 20 41 |". 30 PRINT A|
00000500: 20 22 C7 28 33 34 29 22 49 53 20 4E 49 45 54 20 | ".(34)"IS NIET |
00000510: 4F 55 44 2E 00 41 0D 04 06 99 22 11 11 56 45 52 |OUD..A...."..VER|
00000520: 47 45 45 54 20 45 43 48 54 45 52 20 4E 49 45 54 |GEET ECHTER NIET|
00000530: 20 44 45 20 50 55 4E 54 2D 4B 4F 4D 4D 41 20 45 | DE PUNT-KOMMA E|
00000540: 4E 00 68 0D 0E 06 99 22 11 45 4E 20 44 45 20 41 |N.h....".EN DE A|
00000550: 41 4E 48 41 4C 49 4E 47 53 54 45 4B 45 4E 53 21 |ANHALINGSTEKENS!|
00000560: 21 22 3A 8D 39 39 39 39 00 94 0D 40 06 99 22 93 |!":.9999...@..".|
00000570: 54 59 50 20 27 52 55 4E 27 20 45 4E 20 44 52 55 |TYP 'RUN' EN DRU|
00000580: 4B 20 4F 50 20 12 52 45 54 55 52 4E 92 20 4F 4D |K OP .RETURN. OM|
00000590: 20 44 49 54 00 BA 0D 45 06 85 22 11 50 52 4F 47 | DIT...E..".PROG|
000005A0: 52 41 4D 4D 41 20 55 49 54 20 54 45 20 50 52 4F |RAMMA UIT TE PRO|
000005B0: 42 45 52 45 4E 20 22 3B 41 24 00 CE 0D 4A 06 8B |BEREN ";A$...J..|
000005C0: 41 24 B3 B1 22 52 55 4E 22 89 31 36 30 30 00 ED |A$.."RUN".1600..|
000005D0: 0D 54 06 85 22 11 11 11 11 11 20 48 4F 45 20 4F |.T.."..... HOE O|
000005E0: 55 44 20 42 45 4E 20 4A 49 4A 22 3B 41 00 0B 0E |UD BEN JIJ";A...|
000005F0: 5E 06 99 41 20 22 49 53 20 4E 49 45 54 20 4F 55 |^..A "IS NIET OU|
00000600: 44 11 11 11 22 3A 8D 39 39 39 39 00 35 0E A4 06 |D...":.9999.5...|
00000610: 99 22 93 27 49 4E 50 55 54 27 20 4B 41 4E 20 4F |.".'INPUT' KAN O|
00000620: 4F 4B 20 47 45 42 52 55 49 4B 54 20 57 4F 52 44 |OK GEBRUIKT WORD|
00000630: 45 4E 20 4F 4D 00 61 0E AE 06 99 22 11 45 45 4E |EN OM.a....".EEN|
00000640: 20 57 4F 4F 52 44 20 54 45 20 56 52 41 47 45 4E | WOORD TE VRAGEN|
00000650: 20 49 2E 50 2E 56 2E 20 45 45 4E 20 47 45 54 41 | I.P.V. EEN GETA|
00000660: 4C 00 8B 0E C2 06 99 22 11 11 44 41 41 52 56 4F |L......"..DAARVO|
00000670: 4F 52 20 4D 4F 45 54 20 4A 45 20 48 45 54 20 44 |OR MOET JE HET D|
00000680: 4F 4C 4C 41 52 20 54 45 4B 45 4E 00 B3 0E CC 06 |OLLAR TEKEN.....|
00000690: 99 22 11 41 43 48 54 45 52 20 44 45 20 56 41 52 |.".ACHTER DE VAR|
000006A0: 49 41 42 45 4C 45 20 27 41 27 20 50 4C 41 41 54 |IABELE 'A' PLAAT|
000006B0: 53 45 4E 00 DE 0E D6 06 99 22 11 5A 4F 44 41 54 |SEN......".ZODAT|
000006C0: 20 49 4B 20 57 45 45 54 20 44 41 54 20 45 52 20 | IK WEET DAT ER |
000006D0: 4C 45 54 54 45 52 53 20 4B 4F 4D 45 4E 3A 00 18 |LETTERS KOMEN:..|
000006E0: 0F E0 06 99 22 11 11 20 20 20 20 35 30 20 49 4E |....".. 50 IN|
000006F0: 50 55 54 20 22 C7 28 33 34 29 22 42 45 5A 49 54 |PUT ".(34)"BEZIT|
00000700: 20 4A 49 4A 20 27 4E 20 43 42 4D 20 36 34 22 C7 | JIJ 'N CBM 64".|
00000710: 28 33 34 29 22 3B 41 24 00 44 0F EA 06 99 22 11 |(34)";A$.D....".|
00000720: 11 48 45 54 20 41 4E 54 57 4F 4F 52 44 20 57 4F |.HET ANTWOORD WO|
00000730: 52 44 54 20 4F 50 47 45 42 4F 52 47 45 4E 20 49 |RDT OPGEBORGEN I|
00000740: 4E 20 44 45 00 7B 0F F4 06 99 22 11 53 54 52 49 |N DE.{....".STRI|
00000750: 4E 47 20 56 41 52 49 41 42 4C 45 20 27 41 24 27 |NG VARIABLE 'A$'|
00000760: 2E 22 3A 99 22 B7 B7 B7 B7 B7 B7 A0 B7 B7 B7 B7 |.":."...........|
00000770: B7 B7 B7 B7 22 3A 8D 39 39 39 39 00 A8 0F 08 07 |....":.9999.....|
00000780: 99 22 93 44 45 20 4D 4F 47 45 4C 49 4A 4B 48 45 |.".DE MOGELIJKHE|
00000790: 49 44 20 57 4F 4F 52 44 45 4E 20 49 4E 20 53 54 |ID WOORDEN IN ST|
000007A0: 52 49 4E 47 53 20 54 45 00 D3 0F 12 07 99 22 11 |RINGS TE......".|
000007B0: 42 45 52 47 45 4E 20 4B 41 4E 20 47 45 42 52 55 |BERGEN KAN GEBRU|
000007C0: 49 4B 54 20 57 4F 52 44 45 4E 20 56 4F 4F 52 20 |IKT WORDEN VOOR |
000007D0: 5A 27 4E 00 00 10 1C 07 99 22 11 50 52 4F 47 52 |Z'N......".PROGR|
000007E0: 41 4D 4D 41 2C 20 41 4C 53 20 27 44 4F 4B 54 45 |AMMA, ALS 'DOKTE|
000007F0: 52 27 2C 20 5A 4F 44 41 54 20 45 52 20 45 45 4E |R', ZODAT ER EEN|
00000800: 00 23 10 26 07 99 22 11 53 4F 4F 52 54 A0 43 4F |.#.&..".SOORT.CO|
00000810: 4E 56 45 52 53 41 54 49 45 20 4F 4E 54 53 54 41 |NVERSATIE ONTSTA|
00000820: 41 54 2E 00 5E 10 30 07 99 22 11 11 11 20 20 20 |AT..^.0.."... |
00000830: 20 35 30 20 49 4E 50 55 54 20 22 C7 28 33 34 29 | 50 INPUT ".(34)|
00000840: 22 42 45 5A 49 54 20 4A 49 4A 20 27 4E 20 43 42 |"BEZIT JIJ 'N CB|
00000850: 4D 20 36 34 22 C7 28 33 34 29 22 3B 41 24 00 8D |M 64".(34)";A$..|
00000860: 10 3A 07 99 22 11 20 20 20 20 36 30 20 49 46 20 |.:..". 60 IF |
00000870: 41 24 20 3D 20 22 C7 28 33 34 29 22 4A 41 22 C7 |A$ = ".(34)"JA".|
00000880: 28 33 34 29 22 20 47 4F 54 4F 20 39 30 00 B8 10 |(34)" GOTO 90...|
00000890: 44 07 99 22 11 20 20 20 20 37 30 20 50 52 49 4E |D..". 70 PRIN|
000008A0: 54 20 22 C7 28 33 34 29 22 4F 4E 42 45 47 52 49 |T ".(34)"ONBEGRI|
000008B0: 4A 50 45 4C 49 4A 4B 21 00 CA 10 4E 07 99 22 11 |JPELIJK!...N..".|
000008C0: 20 20 20 20 38 30 20 45 4E 44 00 F7 10 58 07 99 | 80 END...X..|
000008D0: 22 11 20 20 20 20 39 30 20 50 52 49 4E 54 20 22 |". 90 PRINT "|
000008E0: C7 28 33 34 29 22 4D 41 5A 5A 45 4C 41 41 52 21 |.(34)"MAZZELAAR!|
000008F0: 22 3A 8D 39 39 39 39 00 24 11 6C 07 99 22 91 49 |":.9999.$.l..".I|
00000900: 4E 20 52 45 47 45 4C 20 36 30 20 4B 49 4A 4B 20 |N REGEL 60 KIJK |
00000910: 49 4B 20 4F 4D 20 54 45 20 5A 49 45 4E 20 4F 46 |IK OM TE ZIEN OF|
00000920: 20 48 45 54 00 52 11 76 07 99 22 11 41 4E 54 57 | HET.R.v..".ANTW|
00000930: 4F 4F 52 44 20 4F 50 20 44 45 20 56 52 41 41 47 |OORD OP DE VRAAG|
00000940: 2C 20 4F 50 47 45 42 4F 52 47 45 4E 20 49 4E 20 |, OPGEBORGEN IN |
00000950: 41 24 00 7E 11 80 07 99 22 11 47 45 4C 49 4A 4B |A$.~....".GELIJK|
00000960: 20 49 53 20 41 41 4E 20 27 4A 41 27 2E 20 49 53 | IS AAN 'JA'. IS|
00000970: 20 44 49 54 20 57 41 41 52 2C 20 44 41 4E 00 A9 | DIT WAAR, DAN..|
00000980: 11 8A 07 99 22 11 53 50 52 49 4E 47 20 49 4B 20 |....".SPRING IK |
00000990: 4E 41 41 52 20 52 45 47 45 4C 20 39 30 20 45 4E |NAAR REGEL 90 EN|
000009A0: 20 50 52 49 4E 54 20 49 4B 00 CE 11 94 07 99 22 | PRINT IK......"|
000009B0: 11 22 C7 28 33 34 29 22 4D 41 5A 5A 45 4C 41 41 |.".(34)"MAZZELAA|
000009C0: 52 21 22 C7 28 33 34 29 3A 8D 39 39 39 39 00 09 |R!".(34):.9999..|
000009D0: 12 D0 07 99 22 91 91 91 91 91 91 91 91 91 91 91 |...."...........|
000009E0: 91 49 53 20 48 45 54 20 41 4E 54 57 4F 4F 52 44 |.IS HET ANTWOORD|
000009F0: 20 47 45 45 4E 20 27 4A 41 27 20 44 41 4E 20 20 | GEEN 'JA' DAN |
00000A00: 20 20 20 20 20 20 20 20 22 00 38 12 DA 07 99 22 | ".8...."|
00000A10: 11 53 4C 41 20 49 4B 20 52 45 47 45 4C 20 36 30 |.SLA IK REGEL 60|
00000A20: 20 4F 56 45 52 20 45 4E 20 47 41 20 49 4B 20 4E | OVER EN GA IK N|
00000A30: 41 41 52 20 44 45 20 22 00 67 12 E4 07 99 22 11 |AAR DE ".g....".|
00000A40: 45 45 52 53 54 20 56 4F 4C 47 45 4E 44 45 2C 20 |EERST VOLGENDE, |
00000A50: 48 49 45 52 20 37 30 2C 20 45 4E 20 50 52 49 4E |HIER 70, EN PRIN|
00000A60: 54 20 20 20 20 20 11 00 A5 12 EE 07 99 C7 28 33 |T ........(3|
00000A70: 34 29 22 4F 4E 42 45 47 52 49 4A 50 45 4C 49 4A |4)"ONBEGRIJPELIJ|
00000A80: 4B 22 C7 28 33 34 29 22 20 20 20 20 20 20 20 20 |K".(34)" |
00000A90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000AA0: 20 20 20 20 22 00 C1 12 F8 07 99 22 20 20 20 20 | "......" |
00000AB0: 20 20 20 20 20 20 20 20 20 20 22 3A 8D 39 39 39 | ":.999|
00000AC0: 39 00 ED 12 34 08 99 22 93 27 49 46 A4 47 4F 54 |9...4..".'IF.GOT|
00000AD0: 4F 27 20 47 45 42 52 55 49 4B 20 4A 45 20 41 4C |O' GEBRUIK JE AL|
00000AE0: 53 20 49 4B 20 4E 41 41 52 20 45 45 4E 00 1C 13 |S IK NAAR EEN...|
00000AF0: 3E 08 99 22 11 48 45 45 4C 20 41 4E 44 45 52 20 |>..".HEEL ANDER |
00000B00: 44 45 45 4C 20 56 41 4E 20 48 45 54 20 50 52 4F |DEEL VAN HET PRO|
00000B10: 47 52 41 4D 4D 41 20 4D 4F 45 54 2E 00 46 13 48 |GRAMMA MOET..F.H|
00000B20: 08 99 22 11 41 4C 53 20 45 45 4E 20 42 45 50 41 |..".ALS EEN BEPA|
00000B30: 41 4C 44 45 20 43 4F 4E 44 49 54 49 45 20 57 41 |ALDE CONDITIE WA|
00000B40: 41 52 20 49 53 2C 00 70 13 52 08 99 22 11 53 50 |AR IS,.p.R..".SP|
00000B50: 52 49 4E 47 20 49 4B 20 4E 41 41 52 20 44 45 20 |RING IK NAAR DE |
00000B60: 52 45 47 45 4C 20 44 49 45 20 41 43 48 54 45 52 |REGEL DIE ACHTER|
00000B70: 00 92 13 57 08 99 22 11 48 45 54 20 43 4F 4D 4D |...W..".HET COMM|
00000B80: 41 4E 44 4F 20 27 47 4F 54 4F 27 20 53 54 41 41 |ANDO 'GOTO' STAA|
00000B90: 54 2E 00 C3 13 5C 08 99 22 11 11 11 27 47 4F 54 |T....\.."...'GOT|
00000BA0: 4F 27 20 4B 55 4E 20 4A 45 20 4F 4F 4B 20 47 45 |O' KUN JE OOK GE|
00000BB0: 42 52 55 49 4B 45 4E 20 5A 4F 4E 44 45 52 20 27 |BRUIKEN ZONDER '|
00000BC0: 49 46 27 00 EC 13 66 08 99 22 11 5A 4F 44 41 54 |IF'...f..".ZODAT|
00000BD0: 20 49 4B 20 5A 4F 4E 44 45 52 20 43 4F 4E 44 49 | IK ZONDER CONDI|
00000BE0: 54 49 45 53 20 4E 41 41 52 20 44 45 00 20 14 6B |TIES NAAR DE. .k|
00000BF0: 08 99 22 11 52 45 47 45 4C 20 53 50 52 49 4E 47 |..".REGEL SPRING|
00000C00: 20 44 49 45 20 41 43 48 54 45 52 20 27 47 4F 54 | DIE ACHTER 'GOT|
00000C10: 4F 27 20 53 54 41 41 54 2E 22 3A 8D 39 39 39 39 |O' STAAT.":.9999|
00000C20: 00 4E 14 98 08 99 22 93 45 45 4E 20 41 4E 44 45 |.N....".EEN ANDE|
00000C30: 52 20 48 41 4E 44 49 47 20 27 43 4F 4E 44 49 54 |R HANDIG 'CONDIT|
00000C40: 49 4F 4E 41 4C 20 43 4F 4D 4D 41 4E 44 27 00 66 |IONAL COMMAND'.f|
00000C50: 14 A2 08 99 22 11 49 53 3A 20 20 20 20 27 49 46 |....".IS: 'IF|
00000C60: A4 54 48 45 4E 27 00 9C 14 AC 08 99 22 11 11 11 |.THEN'......"...|
00000C70: 20 20 34 30 20 49 4E 50 55 54 20 22 C7 28 33 34 | 40 INPUT ".(34|
00000C80: 29 22 47 45 45 46 20 45 45 4E 20 47 45 54 41 4C |)"GEEF EEN GETAL|
00000C90: 20 4F 50 22 C7 28 33 34 29 22 3B 4E 00 D0 14 B6 | OP".(34)";N....|
00000CA0: 08 99 22 11 20 20 35 30 20 49 46 20 4E 3E 31 30 |..". 50 IF N>10|
00000CB0: 20 54 48 45 4E 20 50 52 49 4E 54 20 22 C7 28 33 | THEN PRINT ".(3|
00000CC0: 34 29 22 47 52 4F 54 45 52 20 44 41 4E 20 31 30 |4)"GROTER DAN 10|
00000CD0: 00 06 15 C0 08 99 22 11 20 20 36 30 20 49 46 20 |......". 60 IF |
00000CE0: 41 3C 3D 31 30 20 54 48 45 4E 20 50 52 49 4E 54 |A<=10 THEN PRINT|
00000CF0: 20 22 C7 28 33 34 29 22 4B 4C 45 49 4E 45 52 20 | ".(34)"KLEINER |
00000D00: 44 41 4E 20 31 30 00 22 15 CA 08 99 22 20 20 20 |DAN 10."...." |
00000D10: 20 20 4F 46 20 47 45 4C 49 4A 4B 20 41 41 4E 20 | OF GELIJK AAN |
00000D20: 31 30 00 52 15 D4 08 99 22 11 11 11 52 45 47 45 |10.R...."...REGE|
00000D30: 4C 20 35 30 20 4C 41 41 54 20 49 4B 20 41 4C 4C |L 50 LAAT IK ALL|
00000D40: 45 4E 20 50 52 49 4E 54 45 4E 20 41 4C 53 20 44 |EN PRINTEN ALS D|
00000D50: 45 11 00 7F 15 DE 08 99 22 43 4F 4E 44 49 54 49 |E......."CONDITI|
00000D60: 45 20 57 41 41 52 20 49 53 2C 20 44 55 53 20 41 |E WAAR IS, DUS A|
00000D70: 4C 53 20 44 45 20 56 41 52 49 41 42 45 4C 45 00 |LS DE VARIABELE.|
00000D80: A3 15 E8 08 99 22 11 27 4E 27 20 47 52 4F 54 45 |.....".'N' GROTE|
00000D90: 52 20 49 53 20 44 41 4E 20 31 30 2E 22 3A 8D 39 |R IS DAN 10.":.9|
00000DA0: 39 39 39 00 C7 15 FC 08 99 22 93 48 49 45 52 20 |999......".HIER |
00000DB0: 49 53 20 45 45 4E 20 56 4F 4F 52 42 45 45 4C 44 |IS EEN VOORBEELD|
00000DC0: 20 56 41 4E 20 27 4E 00 EA 15 01 09 99 22 11 27 | VAN 'N......".'|
00000DD0: 49 46 A4 47 4F 54 4F 27 20 49 4E 20 57 45 52 4B |IF.GOTO' IN WERK|
00000DE0: 45 4C 49 4A 4B 48 45 49 44 3A 00 17 16 06 09 85 |ELIJKHEID:......|
00000DF0: 20 22 11 11 11 57 49 4C 20 4A 45 20 44 45 5A 45 | "...WIL JE DEZE|
00000E00: 20 4C 45 53 20 4E 4F 47 20 45 45 4E 53 20 5A 49 | LES NOG EENS ZI|
00000E10: 45 4E 20 22 3B 41 24 00 2C 16 10 09 8B 20 41 24 |EN ";A$.,.... A$|
00000E20: B2 22 4A 41 22 20 89 20 31 32 33 30 00 6F 16 1A |."JA" . 1230.o..|
00000E30: 09 99 20 22 93 4C 41 41 54 20 4F 4E 53 20 27 54 |.. ".LAAT ONS 'T|
00000E40: 20 4C 41 41 54 53 54 45 20 44 45 45 4C 20 56 41 | LAATSTE DEEL VA|
00000E50: 4E 20 44 49 54 22 3A 99 22 11 50 52 4F 47 52 41 |N DIT":.".PROGRA|
00000E60: 4D 4D 41 20 45 45 4E 53 20 4C 49 53 54 45 4E 00 |MMA EENS LISTEN.|
00000E70: 78 16 24 09 54 B2 54 49 00 94 16 2E 09 8B 20 54 |x.$.T.TI...... T|
00000E80: 49 AB 54 20 B3 20 31 38 30 A7 A1 41 24 3A 89 20 |I.T . 180..A$:. |
00000E90: 32 33 35 30 00 D4 16 33 09 99 22 11 11 11 11 11 |2350...3..".....|
00000EA0: 11 11 11 11 11 11 11 11 11 11 52 55 4E 20 32 33 |..........RUN 23|
00000EB0: 38 30 22 3A 99 22 11 44 52 55 4B 20 4F 50 20 12 |80":.".DRUK OP .|
00000EC0: 52 45 54 55 52 4E 91 91 91 91 91 91 91 91 91 91 |RETURN..........|
00000ED0: 91 91 91 91 00 E4 16 38 09 9B 20 32 33 30 30 AB |.......8.. 2300.|
00000EE0: 32 33 33 30 00 FC 16 4C 09 99 22 91 91 20 20 20 |2330...L..".. |
00000EF0: 20 20 20 20 20 20 20 20 20 20 20 22 00 28 17 51 | ".(.Q|
00000F00: 09 99 22 49 4E 20 52 45 47 45 4C 20 32 33 32 30 |.."IN REGEL 2320|
00000F10: 20 4B 49 4A 4B 20 49 4B 20 4F 46 20 48 45 54 20 | KIJK IK OF HET |
00000F20: 41 4E 54 57 4F 4F 52 44 00 58 17 53 09 99 22 20 |ANTWOORD.X.S.." |
00000F30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000F40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000F50: 20 20 20 20 20 20 20 22 00 82 17 56 09 99 22 91 | "...V..".|
00000F60: 4F 50 20 44 45 20 56 52 41 41 47 20 28 44 41 54 |OP DE VRAAG (DAT|
00000F70: 20 49 53 20 4F 50 47 45 53 4C 41 47 45 4E 20 41 | IS OPGESLAGEN A|
00000F80: 4C 53 00 A2 17 60 09 99 22 11 44 45 20 56 41 52 |LS...`..".DE VAR|
00000F90: 49 41 42 4C 45 20 41 24 29 20 27 4A 41 27 20 49 |IABLE A$) 'JA' I|
00000FA0: 53 2E 00 CD 17 6A 09 99 22 11 49 53 20 44 41 54 |S....j..".IS DAT|
00000FB0: 20 5A 4F 2C 20 44 41 4E 20 53 50 52 49 4E 47 20 | ZO, DAN SPRING |
00000FC0: 49 4B 20 54 45 52 55 47 20 4E 41 41 52 00 FF 17 |IK TERUG NAAR...|
00000FD0: 74 09 99 22 11 31 32 33 30 20 45 4E 20 53 54 41 |t..".1230 EN STA|
00000FE0: 52 54 20 4E 4F 47 20 45 45 4E 53 20 4D 45 54 20 |RT NOG EENS MET |
00000FF0: 44 45 5A 45 20 4C 45 53 22 3A 8D 39 39 39 39 00 |DEZE LES":.9999.|
00001000: 39 18 C4 09 99 22 91 91 91 91 91 91 91 91 91 91 |9...."..........|
00001010: 91 91 41 4C 53 20 41 24 20 47 45 45 4E 20 27 4A |..ALS A$ GEEN 'J|
00001020: 41 27 20 49 53 2C 20 47 41 20 49 4B 20 4E 41 41 |A' IS, GA IK NAA|
00001030: 52 20 44 45 20 20 20 20 22 00 70 18 CE 09 99 22 |R DE ".p...."|
00001040: 11 56 4F 4C 47 45 4E 44 45 20 52 45 47 45 4C 20 |.VOLGENDE REGEL |
00001050: 45 4E 20 50 52 49 4E 54 20 22 C7 28 33 34 29 22 |EN PRINT ".(34)"|
00001060: 4C 41 41 54 20 4F 4E 53 20 27 54 20 20 20 20 22 |LAAT ONS 'T "|
00001070: 00 AF 18 D8 09 99 22 4C 41 41 54 53 54 45 20 44 |......"LAATSTE D|
00001080: 45 45 4C 20 56 41 4E 20 44 49 54 20 50 52 4F 47 |EEL VAN DIT PROG|
00001090: 52 41 4D 4D 41 2E 2E 2E 22 C7 28 33 34 29 22 20 |RAMMA...".(34)" |
000010A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
000010B0: DD 18 E2 09 99 22 27 54 20 43 4F 4D 4D 41 4E 44 |....."'T COMMAND|
000010C0: 4F 20 27 4C 49 53 54 27 20 4B 41 4E 20 49 4E 20 |O 'LIST' KAN IN |
000010D0: 48 45 54 20 50 52 4F 47 52 41 4D 4D 41 00 12 19 |HET PROGRAMMA...|
000010E0: EC 09 99 22 11 47 45 42 52 55 49 4B 54 20 57 4F |...".GEBRUIKT WO|
000010F0: 52 44 45 4E 20 4F 4D 20 45 45 4E 20 53 54 55 4B |RDEN OM EEN STUK|
00001100: 20 54 45 20 4C 49 53 54 45 4E 2E 22 3A 8D 39 39 | TE LISTEN.":.99|
00001110: 39 39 00 3E 19 28 0A 99 22 93 4F 4F 4B 20 56 41 |99.>.(..".OOK VA|
00001120: 4E 55 49 54 20 44 45 20 27 52 45 41 44 59 2E 27 |NUIT DE 'READY.'|
00001130: 20 4B 55 4E 20 4A 45 20 4C 49 53 54 45 4E 00 61 | KUN JE LISTEN.a|
00001140: 19 32 0A 99 22 11 44 4F 4F 52 20 47 45 57 4F 4F |.2..".DOOR GEWOO|
00001150: 4E 20 27 4C 49 53 54 27 20 54 45 20 54 59 50 45 |N 'LIST' TE TYPE|
00001160: 4E 00 83 19 37 0A 99 22 11 45 4E 20 4F 50 20 12 |N...7..".EN OP .|
00001170: 52 45 54 55 52 4E 92 20 54 45 20 44 52 55 4B 4B |RETURN. TE DRUKK|
00001180: 45 4E 2E 00 B3 19 3C 0A 99 22 11 11 4D 45 54 20 |EN....<.."..MET |
00001190: 27 4C 49 53 54 20 33 30 27 20 20 20 20 5A 49 45 |'LIST 30' ZIE|
000011A0: 20 4A 45 20 41 4C 4C 45 45 4E 20 52 45 47 45 4C | JE ALLEEN REGEL|
000011B0: 20 33 30 00 DD 19 41 0A 99 22 4D 45 54 20 27 4C | 30...A.."MET 'L|
000011C0: 49 53 54 20 2D 33 30 27 20 20 20 41 4C 4C 45 20 |IST -30' ALLE |
000011D0: 52 45 47 45 4C 53 20 54 2F 4D 20 33 30 00 09 1A |REGELS T/M 30...|
000011E0: 46 0A 99 22 4D 45 54 20 27 4C 49 53 54 20 33 30 |F.."MET 'LIST 30|
000011F0: 2D 27 20 20 20 41 4C 4C 45 20 52 45 47 45 4C 53 |-' ALLE REGELS|
00001200: 20 56 41 4E 41 46 20 33 30 00 34 1A 4B 0A 99 22 | VANAF 30.4.K.."|
00001210: 4D 45 54 20 27 4C 49 53 54 20 31 30 2D 33 30 27 |MET 'LIST 10-30'|
00001220: 20 44 45 20 52 45 47 45 4C 53 20 31 30 20 54 2F | DE REGELS 10 T/|
00001230: 4D 20 33 30 00 5E 1A 50 0A 99 22 11 41 4C 53 20 |M 30.^.P..".ALS |
00001240: 48 45 54 20 53 43 48 45 52 4D 20 56 4F 4C 20 49 |HET SCHERM VOL I|
00001250: 53 2C 20 44 41 4E 20 42 4C 49 4A 56 45 4E 00 86 |S, DAN BLIJVEN..|
00001260: 1A 55 0A 99 22 11 44 45 20 52 45 47 45 4C 53 20 |.U..".DE REGELS |
00001270: 41 41 4E 20 44 45 20 4F 4E 44 45 52 4B 41 4E 54 |AAN DE ONDERKANT|
00001280: 20 4B 4F 4D 45 4E 00 AD 1A 5A 0A 99 22 11 45 4E | KOMEN...Z..".EN|
00001290: 20 56 45 52 44 57 49 4A 4E 45 4E 20 5A 45 20 42 | VERDWIJNEN ZE B|
000012A0: 4F 56 45 4E 20 28 53 43 52 4F 4C 4C 29 00 D6 1A |OVEN (SCROLL)...|
000012B0: 5F 0A 99 22 11 44 45 20 53 4E 45 4C 48 45 49 44 |_..".DE SNELHEID|
000012C0: 20 57 4F 52 44 54 20 47 45 48 41 4C 56 45 45 52 | WORDT GEHALVEER|
000012D0: 44 20 44 4F 4F 52 00 02 1B 64 0A 99 22 11 44 45 |D DOOR...d..".DE|
000012E0: 20 54 4F 45 54 53 20 27 43 54 52 4C 27 20 49 4E | TOETS 'CTRL' IN|
000012F0: 47 45 44 52 55 4B 54 20 54 45 20 48 4F 55 44 45 |GEDRUKT TE HOUDE|
00001300: 4E 2E 00 0D 1B 82 0A 3A 8D 39 39 39 39 00 3A 1B |N......:.9999.:.|
00001310: 8C 0A 99 22 93 4E 41 41 53 54 20 48 45 54 20 42 |...".NAAST HET B|
00001320: 45 53 50 52 4F 4B 45 4E 20 27 49 4E 50 55 54 27 |ESPROKEN 'INPUT'|
00001330: 20 49 53 20 45 52 20 4E 4F 47 00 67 1B 96 0A 99 | IS ER NOG.g....|
00001340: 22 11 27 4E 20 4D 45 54 48 4F 44 45 20 4F 4D 20 |".'N METHODE OM |
00001350: 49 4E 46 4F 52 4D 41 54 49 45 20 54 45 20 4B 52 |INFORMATIE TE KR|
00001360: 49 4A 47 45 4E 2E 2E 00 92 1B AA 0A 99 22 11 11 |IJGEN........"..|
00001370: 48 45 54 20 12 47 45 54 92 20 43 4F 4D 4D 41 4E |HET .GET. COMMAN|
00001380: 44 4F 20 47 45 56 4F 4C 47 44 20 44 4F 4F 52 20 |DO GEVOLGD DOOR |
00001390: 27 4E 00 BA 1B B4 0A 99 22 11 53 54 52 49 4E 47 |'N......".STRING|
000013A0: 2D 56 41 52 49 41 42 45 4C 45 2C 20 41 43 43 45 |-VARIABELE, ACCE|
000013B0: 50 54 45 45 52 54 20 45 45 4E 00 E7 1B BE 0A 99 |PTEERT EEN......|
000013C0: 22 11 4B 41 52 41 4B 54 45 52 20 56 41 4E 20 48 |".KARAKTER VAN H|
000013D0: 45 54 20 54 4F 45 54 53 45 4E 42 4F 52 44 20 45 |ET TOETSENBORD E|
000013E0: 4E 20 57 4F 52 44 54 00 07 1C C8 0A 99 22 11 56 |N WORDT......".V|
000013F0: 41 41 4B 20 41 4C 53 20 56 4F 4C 47 54 20 47 45 |AAK ALS VOLGT GE|
00001400: 42 52 55 49 4B 54 3A 00 37 1C D2 0A 99 22 11 11 |BRUIKT:.7...."..|
00001410: 20 20 20 31 30 20 50 52 49 4E 54 20 22 C7 28 33 | 10 PRINT ".(3|
00001420: 34 29 22 48 45 42 20 4A 45 3A 20 41 2E 20 27 4E |4)"HEB JE: A. 'N|
00001430: 20 43 42 4D 20 36 34 00 68 1C DC 0A 99 22 11 20 | CBM 64.h....". |
00001440: 20 20 32 30 20 50 52 49 4E 54 20 22 C7 28 33 34 | 20 PRINT ".(34|
00001450: 29 22 20 20 20 20 20 20 20 20 42 2E 20 47 45 45 |)" B. GEE|
00001460: 4E 20 43 42 4D 20 36 34 00 9D 1C E6 0A 99 22 11 |N CBM 64......".|
00001470: 20 20 20 33 30 20 50 52 49 4E 54 20 22 C7 28 33 | 30 PRINT ".(3|
00001480: 34 29 22 20 20 20 20 20 20 20 20 43 2E 20 42 49 |4)" C. BI|
00001490: 4A 4E 41 20 27 4E 20 43 42 4D 20 36 34 00 D6 1C |JNA 'N CBM 64...|
000014A0: FA 0A 99 22 11 20 20 20 34 30 20 47 45 54 20 41 |...". 40 GET A|
000014B0: 24 20 3A 20 49 46 20 41 24 3D 22 C7 28 33 34 29 |$ : IF A$=".(34)|
000014C0: 3B C7 28 33 34 29 22 20 47 4F 54 4F 20 34 30 22 |;.(34)" GOTO 40"|
000014D0: 3A 8D 39 39 39 39 00 FB 1C 54 0B 99 22 91 20 20 |:.9999...T..". |
000014E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000014F0: 20 20 20 20 20 20 20 20 20 20 22 00 23 1D 5E 0B | ".#.^.|
00001500: 99 22 11 4F 50 20 52 45 47 45 4C 20 34 30 20 42 |.".OP REGEL 40 B|
00001510: 4C 49 4A 46 20 49 4B 20 54 45 52 55 47 20 4B 4F |LIJF IK TERUG KO|
00001520: 4D 45 4E 00 50 1D 68 0B 99 22 11 5A 4F 4C 41 4E |MEN.P.h..".ZOLAN|
00001530: 47 20 45 52 20 4E 4F 47 20 47 45 45 4E 20 54 4F |G ER NOG GEEN TO|
00001540: 45 54 53 20 49 53 20 49 4E 47 45 44 52 55 4B 54 |ETS IS INGEDRUKT|
00001550: 00 86 1D 72 0B 99 22 11 27 49 46 20 41 24 3D 22 |...r..".'IF A$="|
00001560: C7 28 33 34 29 C7 28 33 34 29 22 27 20 42 45 54 |.(34).(34)"' BET|
00001570: 45 4B 45 4E 54 20 27 41 4C 53 20 41 24 20 4C 45 |EKENT 'ALS A$ LE|
00001580: 45 47 20 49 53 27 00 B4 1D 7C 0B 99 22 11 49 53 |EG IS'...|..".IS|
00001590: 20 44 45 20 43 4F 4E 44 49 54 49 45 20 57 41 41 | DE CONDITIE WAA|
000015A0: 52 2C 20 44 41 4E 20 47 41 20 49 4B 20 4E 41 41 |R, DAN GA IK NAA|
000015B0: 52 20 34 30 00 E4 1D 86 0B 99 22 11 44 49 54 20 |R 40......".DIT |
000015C0: 49 53 20 45 45 4E 20 54 52 55 55 4B 4A 45 20 4F |IS EEN TRUUKJE O|
000015D0: 4D 20 54 45 20 4E 4F 54 45 52 45 4E 21 22 3A 8D |M TE NOTEREN!":.|
000015E0: 39 39 39 39 00 16 1E B8 0B 99 22 93 57 49 4C 20 |9999......".WIL |
000015F0: 4A 45 20 4E 4F 47 20 45 45 4E 53 20 44 45 5A 45 |JE NOG EENS DEZE|
00001600: 20 4C 45 53 20 44 4F 4F 52 4E 45 4D 45 4E 22 3A | LES DOORNEMEN":|
00001610: 8D 31 30 30 31 30 00 28 1E CC 0B 8B 41 24 B2 22 |.10010.(....A$."|
00001620: 4A 41 22 89 31 31 30 30 00 4B 1E A0 0F 99 22 93 |JA".1100.K....".|
00001630: 11 11 11 4F 4B 20 54 4F 54 20 44 45 20 56 4F 4C |...OK TOT DE VOL|
00001640: 47 45 4E 44 45 20 4C 45 53 21 21 00 65 1E AA 0F |GENDE LES!!.e...|
00001650: 93 22 43 42 4D 20 36 34 20 4C 45 53 34 22 2C 28 |."CBM 64 LES4",(|
00001660: C2 28 32 29 29 00 88 1E 88 13 8F 20 2A 2A 2A 2A |.(2))...... ****|
00001670: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001680: 2A 2A 2A 2A 2A 2A 2A 2A 00 A7 1E 92 13 8F 20 54 |********...... T|
00001690: 45 53 54 20 4F 50 20 44 49 53 4B 20 4F 46 20 43 |EST OP DISK OF C|
000016A0: 41 53 53 45 54 54 45 00 C1 1E 9C 13 58 B2 C2 28 |ASSETTE.....X..(|
000016B0: 32 29 3A 8B 58 B2 31 B0 58 B2 38 B0 58 B2 38 A7 |2):.X.1.X.8.X.8.|
000016C0: 8E 00 E7 1E A6 13 99 22 93 11 11 11 11 11 C8 45 |.......".......E|
000016D0: 45 46 54 20 55 20 45 45 4E 20 43 41 53 53 45 54 |EFT U EEN CASSET|
000016E0: 54 45 20 28 31 29 22 00 10 1F B0 13 99 22 11 4F |TE (1)"......".O|
000016F0: 46 20 45 45 4E 20 44 52 49 56 45 20 28 38 29 20 |F EEN DRIVE (8) |
00001700: 4D 45 54 20 44 45 5A 45 20 4C 45 53 53 45 4E 22 |MET DEZE LESSEN"|
00001710: 00 2A 1F BA 13 85 22 11 11 47 45 45 46 20 31 20 |.*...."..GEEF 1 |
00001720: 4F 46 20 38 22 3B 41 3A 99 41 00 46 1F C4 13 8B |OF 8";A:.A.F....|
00001730: 41 B3 B1 31 AF 41 B3 B1 38 A7 99 22 91 91 22 3B |A..1.A..8.."..";|
00001740: 3A 89 35 30 35 30 00 4F 1F CE 13 97 32 2C 41 00 |:.5050.O....2,A.|
00001750: 55 1F D8 13 8E 00 78 1F E2 13 8F 20 2A 2A 2A 2A |U.....x.... ****|
00001760: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001770: 2A 2A 2A 2A 2A 2A 2A 2A 00 A5 1F 0F 27 97 35 32 |********....'.52|
00001780: 35 2C 30 3A 99 22 11 11 12 56 4F 4F 52 20 56 45 |5,0:."...VOOR VE|
00001790: 52 44 45 52 3A 20 44 52 55 4B 20 4F 50 20 27 53 |RDER: DRUK OP 'S|
000017A0: 50 41 43 45 27 00 BA 1F 1A 27 A1 41 24 3A 8B 41 |PACE'....'.A$:.A|
000017B0: 24 B2 22 22 A7 31 30 30 31 30 00 C0 1F 24 27 8E |$."".10010...$'.|
000017C0: 00 E9 1F 20 4E 99 22 93 20 20 20 B7 B7 B7 B7 B7 |... N.". .....|
000017D0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
000017E0: B7 B7 B7 B7 B7 B7 B7 B7 B7 00 1C 20 2A 4E 99 22 |........... *N."|
000017F0: 20 20 20 20 32 30 20 50 52 49 4E 54 20 22 C7 28 | 20 PRINT ".(|
00001800: 33 34 29 22 20 48 4F 45 20 4F 55 44 20 42 45 4E |34)" HOE OUD BEN|
00001810: 20 4A 49 4A 20 22 C7 28 33 34 29 22 00 32 20 34 | JIJ ".(34)".2 4|
00001820: 4E 99 22 11 20 20 20 20 33 30 20 49 4E 50 55 54 |N.". 30 INPUT|
00001830: 20 41 00 63 20 3E 4E 99 22 11 20 20 20 20 34 30 | A.c >N.". 40|
00001840: 20 50 52 49 4E 54 20 41 20 22 C7 28 33 34 29 22 | PRINT A ".(34)"|
00001850: 20 49 53 20 4E 49 45 54 20 4F 55 44 2E 22 C7 28 | IS NIET OUD.".(|
00001860: 33 34 29 00 8E 20 48 4E 99 22 20 20 20 AF AF AF |34).. HN." ...|
00001870: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
00001880: AF AF AF AF AF AF AF AF AF AF AF 22 3A 8E 00 94 |...........":...|
00001890: 20 2F 75 80 00 AB 20 30 75 94 22 40 3A 43 42 4D | /u... 0u."@:CBM|
000018A0: 20 36 34 20 4C 45 53 33 22 2C 38 00 00 00 24 | 64 LES3",8...$ |
..*.Z..53280,6:.53281,6:.G(14):. COPYRIG
HT.4.C..5000.B.D..59468,12.H...."....
===BASIC CURSUS LES 3===......" ======
==================......C.1.1300:....L..
".HET BEKENDE 'DOKTER' PROGRAMMA...V..".
SIMULEERT 'N PSYCHIATER IN GESPREK...`..
".MET EEN PATIENT OP DE BANK.;.J.."..MEN
IGEEN IS NIET IN STAAT HET VERSCHIL.A.T.
.".OP TE MERKEN, OF ZE NU MET EEN...~.."
.ECHTE ARTS OF MET 'N COMPUTER PRATEN!..
...."...HET PROGRAMMA LIJKT ERG INGEWIKK
ELD,......".MAAR IS IN BEGINSEL ERG EENV
OUDIG......".VAN OPZET.":.9999.,.N..2000
0:."...IN DIT DEEL VAN HET PROGRAMMA.V.X
..".GEBRUIK IK REGEL 20 OM 'N VRAAG TE.|
....".PRINTEN TENEINDE EEN ANTWOORD,....
..".'N .INPUT. STATEMENT, TE VERKRIJGEN"
:.9999......20000:."...ALS IK .INPUT. ZI
E WACHT IK TOT ER......".EEN ANTWOORD IN
GETYPT IS EN BERG DAT OP.=.(..".ONDER DE
NOEMER 'A' IN MIJN GEHEUGEN..H.2.."..AL
S TEKEN DAT IK OP ANTWOORD WACHT...<..".
LAAT IK DUS '?' ZIEN ACHTER DE VRAAG.":.
9999.N.X..20000:."..ZO ALS IK REEDS VERT
ELDE KUNNEN WE......".DIT NOG KORTER OPS
CHRIJVEN!......"..HET BESPAARDE ONS IMME
RS RUIMTE IN.<....".IN MIJN GEHEUGEN!":.
9999.D....".LATEN WE DUS AFSPREKEN DAT W
E IN......".VERVOLG ALTIJD 'N PRINT EN I
NPUT......".SAMENVOEGEN ALS HET VOORKOMT
!.........".. 20 INPUT "G(34)"HOE OUD
BEN JIJ "G(34)";A......". 30 PRINT A
"G(34)"IS NIET OUD..A...."..VERGEET ECH
TER NIET DE PUNT-KOMMA EN.H....".EN DE A
ANHALINGSTEKENS!!":.9999...@..".TYP 'RUN
' EN DRUK OP .RETURN. OM DIT...E..".PROG
RAMMA UIT TE PROBEREN ";A$.N.J..A$.."RUN
".1600...T.."..... HOE OUD BEN JIJ";A...
^..A "IS NIET OUD...":.9999.5....".'INPU
T' KAN OOK GEBRUIKT WORDEN OM.A....".EEN
WOORD TE VRAGEN I.P.V. EEN GETAL...B.."
..DAARVOOR MOET JE HET DOLLAR TEKEN...L.
.".ACHTER DE VARIABELE 'A' PLAATSEN...V.
.".ZODAT IK WEET DAT ER LETTERS KOMEN:..
....".. 50 INPUT "G(34)"BEZIT JIJ 'N
CBM 64"G(34)";A$.D...."..HET ANTWOORD WO
RDT OPGEBORGEN IN DE.{....".STRING VARIA
BLE 'A$'.":."...... ........":.9999.....
.".DE MOGELIJKHEID WOORDEN IN STRINGS TE
.S....".BERGEN KAN GEBRUIKT WORDEN VOOR
Z'N......".PROGRAMMA, ALS 'DOKTER', ZODA
T ER EEN.#.&..".SOORT CONVERSATIE ONTSTA
AT..^.0.."... 50 INPUT "G(34)"BEZIT J
IJ 'N CBM 64"G(34)";A$...:..". 60 IF
A$ = "G(34)"JA"G(34)" GOTO 90...D..".
70 PRINT "G(34)"ONBEGRIJPELIJK!.J.N..".
80 END...X..". 90 PRINT "G(34)"MA
ZZELAAR!":.9999.$.L..".IN REGEL 60 KIJK
IK OM TE ZIEN OF HET.R.V..".ANTWOORD OP
DE VRAAG, OPGEBORGEN IN A$.~....".GELIJK
IS AAN 'JA'. IS DIT WAAR, DAN......".SP
RING IK NAAR REGEL 90 EN PRINT IK.N...."
."G(34)"MAZZELAAR!"G(34):.9999...P.."...
.........IS HET ANTWOORD GEEN 'JA' DAN
".8.Z..".SLA IK REGEL 60 OVER EN
GA IK NAAR DE ".G....".EERST VOLGENDE,
HIER 70, EN PRINT .......G(34)"ONBEG
RIJPELIJK"G(34)"
".A...." ":.9999...4.."
.'IF.GOTO' GEBRUIK JE ALS IK NAAR EEN...
>..".HEEL ANDER DEEL VAN HET PROGRAMMA M
OET..F.H..".ALS EEN BEPAALDE CONDITIE WA
AR IS,.P.R..".SPRING IK NAAR DE REGEL DI
E ACHTER...W..".HET COMMANDO 'GOTO' STAA
T..C.\.."...'GOTO' KUN JE OOK GEBRUIKEN
ZONDER 'IF'...F..".ZODAT IK ZONDER CONDI
TIES NAAR DE. .K..".REGEL SPRING DIE ACH
TER 'GOTO' STAAT.":.9999.N....".EEN ANDE
R HANDIG 'CONDITIONAL COMMAND'.F....".IS
: 'IF.THEN'......"... 40 INPUT "G(34
)"GEEF EEN GETAL OP"G(34)";N.P....". 50
IF N>10 THEN PRINT "G(34)"GROTER DAN 10
......". 60 IF A<=10 THEN PRINT "G(34)"
KLEINER DAN 10.".J.." OF GELIJK AAN
10.R.T.."...REGEL 50 LAAT IK ALLEN PRINT
EN ALS DE......"CONDITIE WAAR IS, DUS A
LS DE VARIABELE......".'N' GROTER IS DAN
10.":.9999.G....".HIER IS EEN VOORBEELD
VAN 'N......".'IF.GOTO' IN WERKELIJKHEI
D:...... "...WIL JE DEZE LES NOG EENS ZI
EN ";A$.,.... A$."JA" . 1230.O.... ".LAA
T ONS 'T LAATSTE DEEL VAN DIT":.".PROGRA
MMA EENS LISTEN.X.$.T.TI...... TI.T . 18
0..A$:. 2350.T.3.."...............RUN 23
80":.".DRUK OP .RETURN.................8
.. 2300.2330...L..".. ".(.Q
.."IN REGEL 2320 KIJK IK OF HET ANTWOORD
.X.S.."
"...V..".OP DE VRAAG (DAT IS OPGE
SLAGEN ALS...`..".DE VARIABLE A$) 'JA' I
S..M.J..".IS DAT ZO, DAN SPRING IK TERUG
NAAR...T..".1230 EN START NOG EENS MET
DEZE LES":.9999.9.D.."............ALS A$
GEEN 'JA' IS, GA IK NAAR DE ".P.N.."
.VOLGENDE REGEL EN PRINT "G(34)"LAAT ONS
'T "...X.."LAATSTE DEEL VAN DIT PROG
RAMMA..."G(34)" "......"'T
COMMANDO 'LIST' KAN IN HET PROGRAMMA...
...".GEBRUIKT WORDEN OM EEN STUK TE LIST
EN.":.9999.>.(..".OOK VANUIT DE 'READY.'
KUN JE LISTEN.A.2..".DOOR GEWOON 'LIST'
TE TYPEN...7..".EN OP .RETURN. TE DRUKK
EN....<.."..MET 'LIST 30' ZIE JE ALLE
EN REGEL 30...A.."MET 'LIST -30' ALLE
REGELS T/M 30...F.."MET 'LIST 30-' ALL
E REGELS VANAF 30.4.K.."MET 'LIST 10-30'
DE REGELS 10 T/M 30.^.P..".ALS HET SCHE
RM VOL IS, DAN BLIJVEN...U..".DE REGELS
AAN DE ONDERKANT KOMEN...Z..".EN VERDWIJ
NEN ZE BOVEN (SCROLL).V._..".DE SNELHEID
WORDT GEHALVEERD DOOR...D..".DE TOETS '
CTRL' INGEDRUKT TE HOUDEN......:.9999.:.
...".NAAST HET BESPROKEN 'INPUT' IS ER N
OG.G....".'N METHODE OM INFORMATIE TE KR
IJGEN........"..HET .GET. COMMANDO GEVOL
GD DOOR 'N......".STRING-VARIABELE, ACCE
PTEERT EEN......".KARAKTER VAN HET TOETS
ENBORD EN WORDT...H..".VAAK ALS VOLGT GE
BRUIKT:.7.R..".. 10 PRINT "G(34)"HEB J
E: A. 'N CBM 64.H....". 20 PRINT "G(34
)" B. GEEN CBM 64......". 30 PR
INT "G(34)" C. BIJNA 'N CBM 64.V.
...". 40 GET A$ : IF A$="G(34);G(34)"
GOTO 40":.9999...T..".
".#.^..".OP REGEL 40 BLIJF IK
TERUG KOMEN.P.H..".ZOLANG ER NOG GEEN TO
ETS IS INGEDRUKT...R..".'IF A$="G(34)G(3
4)"' BETEKENT 'ALS A$ LEEG IS'...|..".IS
DE CONDITIE WAAR, DAN GA IK NAAR 40....
..".DIT IS EEN TRUUKJE OM TE NOTEREN!":.
9999......".WIL JE NOG EENS DEZE LES DOO
RNEMEN":.10010.(.L..A$."JA".1100.K. ..".
...OK TOT DE VOLGENDE LES!!.E...."CBM 64
LES4",(B(2))...... ********************
********...... TEST OP DISK OF CASSETTE.
A...X.B(2):.X.1.X.8.X.8........"......HE
EFT U EEN CASSETTE (1)"......".OF EEN DR
IVE (8) MET DEZE LESSEN".*...."..GEEF 1
OF 8";A:.A.F.D..A..1.A..8.."..";:.5050.O
.N..2,A.U.X...X.... ********************
********....'.525,0:."...VOOR VERDER: DR
UK OP 'SPACE'....'.A$:.A$."".10010...$'.
... N.". .............................
... *N." 20 PRINT "G(34)" HOE OUD BEN
JIJ "G(34)".2 4N.". 30 INPUT A.C >N.
". 40 PRINT A "G(34)" IS NIET OUD."G(
34).. HN." ...........................
...":... /U... 0U."@:CBM 64 LES3",8...$
> CLICK IMAGE PREVIEW FOR FULL MODAL