00000000: 00 20 54 4F 20 26 26 20 3A 58 0D 20 53 43 48 52 |. TO && :X. SCHR|
00000010: 49 4A 56 45 4E 0D 20 4D 41 41 4B 20 22 58 20 57 |IJVEN. MAAK "X W|
00000020: 4F 4F 52 44 20 22 4C 4F 47 4F 20 3A 58 0D 20 50 |OORD "LOGO :X. P|
00000030: 52 20 53 41 4D 45 4E 20 3A 58 20 5B 57 4F 52 44 |R SAMEN :X [WORD|
00000040: 54 20 4E 55 20 47 45 4C 41 44 45 4E 5D 0D 20 4C |T NU GELADEN]. L|
00000050: 41 41 44 20 3A 58 0D 45 4E 44 0D 0D 54 4F 20 26 |AAD :X.END..TO &|
00000060: 53 0D 20 26 26 20 22 53 50 52 4F 4B 45 4E 0D 45 |S. && "SPROKEN.E|
00000070: 4E 44 0D 0D 54 4F 20 26 4D 0D 20 26 26 20 22 4D |ND..TO &M. && "M|
00000080: 55 5A 49 45 4B 0D 45 4E 44 0D 0D 54 4F 20 26 5A |UZIEK.END..TO &Z|
00000090: 0D 20 26 26 20 22 5A 45 54 54 45 4E 0D 45 4E 44 |. && "ZETTEN.END|
000000A0: 0D 0D 54 4F 20 26 50 0D 20 26 26 20 22 50 52 49 |..TO &P. && "PRI|
000000B0: 4E 54 56 0D 45 4E 44 0D 0D 54 4F 20 26 4C 0D 20 |NTV.END..TO &L. |
000000C0: 26 26 20 22 4C 49 4A 53 54 45 4E 0D 45 4E 44 0D |&& "LIJSTEN.END.|
000000D0: 0D 54 4F 20 26 56 0D 20 26 26 20 22 56 4F 52 4D |.TO &V. && "VORM|
000000E0: 45 4E 0D 45 4E 44 0D 0D 54 4F 20 52 55 49 4D 54 |EN.END..TO RUIMT|
000000F0: 45 0D 20 2E 47 43 4F 4C 4C 20 50 52 20 2E 4E 4F |E. .GCOLL PR .NO|
00000100: 44 45 53 0D 45 4E 44 0D 0D 54 4F 20 53 50 20 3A |DES.END..TO SP :|
00000110: 41 41 4E 54 41 4C 0D 20 52 45 53 55 4C 54 41 41 |AANTAL. RESULTAA|
00000120: 54 20 53 50 41 54 49 45 20 3A 41 41 4E 54 41 4C |T SPATIE :AANTAL|
00000130: 0D 45 4E 44 0D 0D 54 4F 20 53 50 41 54 49 45 20 |.END..TO SPATIE |
00000140: 3A 41 41 4E 54 41 4C 0D 20 41 4C 53 20 3A 41 41 |:AANTAL. ALS :AA|
00000150: 4E 54 41 4C 20 3D 20 31 20 52 45 53 20 43 48 41 |NTAL = 1 RES CHA|
00000160: 52 20 33 32 0D 20 52 45 53 20 57 4F 4F 52 44 20 |R 32. RES WOORD |
00000170: 43 48 41 52 20 33 32 20 53 50 41 54 49 45 20 3A |CHAR 32 SPATIE :|
00000180: 41 41 4E 54 41 4C 20 2D 20 31 0D 45 4E 44 0D 0D |AANTAL - 1.END..|
00000190: 54 4F 20 57 41 43 48 54 20 3A 54 49 4A 44 0D 20 |TO WACHT :TIJD. |
000001A0: 48 45 52 48 41 41 4C 20 37 35 30 20 2A 20 3A 54 |HERHAAL 750 * :T|
000001B0: 49 4A 44 20 5B 5D 0D 45 4E 44 0D 0D 54 4F 20 42 |IJD [].END..TO B|
000001C0: 4F 4F 47 4A 45 20 3A 53 54 52 41 41 4C 0D 20 48 |OOGJE :STRAAL. H|
000001D0: 45 52 48 41 41 4C 20 31 30 20 5B 56 54 20 33 2E |ERHAAL 10 [VT 3.|
000001E0: 31 34 31 20 2A 20 3A 53 54 52 41 41 4C 20 2F 20 |141 * :STRAAL / |
000001F0: 32 30 20 52 45 20 39 5D 0D 45 4E 44 0D 0D 54 4F |20 RE 9].END..TO|
00000200: 20 50 45 4E 0D 20 4B 4C 20 31 0D 45 4E 44 0D 0D | PEN. KL 1.END..|
00000210: 54 4F 20 45 45 4E 55 49 54 20 3A 4C 49 4A 53 54 |TO EENUIT :LIJST|
00000220: 0D 20 52 45 53 55 4C 54 41 41 54 20 53 41 4D 45 |. RESULTAAT SAME|
00000230: 4E 20 5B 5D 20 45 4C 45 4D 45 4E 54 20 28 20 31 |N [] ELEMENT ( 1|
00000240: 20 2B 20 52 41 4E 44 4F 4D 20 41 41 4E 54 41 4C | + RANDOM AANTAL|
00000250: 20 3A 4C 49 4A 53 54 20 29 20 3A 4C 49 4A 53 54 | :LIJST ) :LIJST|
00000260: 0D 45 4E 44 0D 0D 54 4F 20 49 4E 20 3A 4C 49 4A |.END..TO IN :LIJ|
00000270: 53 54 20 3A 54 45 4B 53 54 0D 20 41 4C 53 20 57 |ST :TEKST. ALS W|
00000280: 4F 4F 52 44 3F 20 3A 54 45 4B 53 54 20 4D 41 41 |OORD? :TEKST MAA|
00000290: 4B 20 22 54 45 4B 53 54 20 53 41 4D 45 4E 20 3A |K "TEKST SAMEN :|
000002A0: 54 45 4B 53 54 20 5B 5D 0D 20 41 4C 53 20 4C 45 |TEKST []. ALS LE|
000002B0: 45 47 3F 20 3A 54 45 4B 53 54 20 52 45 53 55 4C |EG? :TEKST RESUL|
000002C0: 54 41 41 54 20 22 57 41 41 52 0D 20 41 4C 53 20 |TAAT "WAAR. ALS |
000002D0: 4E 49 45 54 20 45 52 42 49 4A 3F 20 45 45 52 53 |NIET ERBIJ? EERS|
000002E0: 54 45 20 3A 54 45 4B 53 54 20 3A 4C 49 4A 53 54 |TE :TEKST :LIJST|
000002F0: 20 52 45 53 20 22 4E 49 45 54 57 0D 20 52 45 53 | RES "NIETW. RES|
00000300: 55 4C 54 41 41 54 20 49 4E 20 3A 4C 49 4A 53 54 |ULTAAT IN :LIJST|
00000310: 20 4D 45 20 3A 54 45 4B 53 54 0D 45 4E 44 0D 0D | ME :TEKST.END..|
00000320: 54 4F 20 41 4E 54 57 4F 4F 52 44 31 0D 20 4C 4F |TO ANTWOORD1. LO|
00000330: 4B 41 41 4C 20 22 41 20 4D 41 41 4B 20 22 41 20 |KAAL "A MAAK "A |
00000340: 41 4E 54 57 4F 4F 52 44 0D 20 41 4C 53 20 4C 45 |ANTWOORD. ALS LE|
00000350: 45 47 3F 20 3A 41 20 52 45 53 20 22 20 41 4E 44 |EG? :A RES " AND|
00000360: 45 52 53 20 52 45 53 20 45 45 52 53 54 45 20 3A |ERS RES EERSTE :|
00000370: 41 0D 45 4E 44 0D 0D 54 4F 20 50 52 4F 47 20 3A |A.END..TO PROG :|
00000380: 4E 41 41 4D 20 3A 43 4F 4D 4D 0D 20 41 4C 53 20 |NAAM :COMM. ALS |
00000390: 3A 43 4F 4D 4D 20 3D 20 5B 45 4E 44 5D 20 50 52 |:COMM = [END] PR|
000003A0: 49 4E 54 20 53 41 4D 45 4E 20 3A 4E 41 41 4D 20 |INT SAMEN :NAAM |
000003B0: 5B 47 45 4C 45 45 52 44 5D 20 52 45 53 20 5B 5D |[GELEERD] RES []|
000003C0: 0D 20 52 55 4E 20 3A 43 4F 4D 4D 20 50 52 49 4E |. RUN :COMM PRIN|
000003D0: 54 31 20 22 3E 0D 20 52 45 53 20 5A 45 54 56 20 |T1 ">. RES ZETV |
000003E0: 3A 43 4F 4D 4D 20 50 52 4F 47 20 3A 4E 41 41 4D |:COMM PROG :NAAM|
000003F0: 20 41 4E 54 57 4F 4F 52 44 0D 45 4E 44 0D 0D 54 | ANTWOORD.END..T|
00000400: 4F 20 4F 4E 54 48 4F 55 44 20 3A 4E 41 41 4D 0D |O ONTHOUD :NAAM.|
00000410: 20 50 52 49 4E 54 31 20 22 3E 20 44 45 46 49 4E | PRINT1 "> DEFIN|
00000420: 49 45 45 52 20 3A 4E 41 41 4D 20 5A 45 54 56 20 |IEER :NAAM ZETV |
00000430: 5B 5D 20 50 52 4F 47 20 3A 4E 41 41 4D 20 41 4E |[] PROG :NAAM AN|
00000440: 54 57 4F 4F 52 44 0D 45 4E 44 0D 0D 54 4F 20 42 |TWOORD.END..TO B|
00000450: 45 57 41 41 52 50 20 3A 42 45 53 54 41 4E 44 20 |EWAARP :BESTAND |
00000460: 3A 4E 41 4D 45 4E 0D 20 28 20 42 45 57 41 41 52 |:NAMEN. ( BEWAAR|
00000470: 20 3A 42 45 53 54 41 4E 44 20 3A 4E 41 4D 45 4E | :BESTAND :NAMEN|
00000480: 20 29 0D 20 50 52 20 22 42 45 57 41 41 52 44 0D | ). PR "BEWAARD.|
00000490: 45 4E 44 0D 0D 54 4F 20 21 48 0D 20 57 45 47 20 |END..TO !H. WEG |
000004A0: 5B 42 45 57 41 41 52 50 20 4F 4E 54 48 4F 55 44 |[BEWAARP ONTHOUD|
000004B0: 20 50 52 4F 47 20 41 4E 54 57 4F 4F 52 44 31 20 | PROG ANTWOORD1 |
000004C0: 49 4E 20 45 45 4E 55 49 54 20 50 45 4E 20 42 4F |IN EENUIT PEN BO|
000004D0: 4F 47 4A 45 20 57 41 43 48 54 20 53 50 41 54 49 |OGJE WACHT SPATI|
000004E0: 45 20 53 50 20 52 55 49 4D 54 45 20 26 56 20 26 |E SP RUIMTE &V &|
000004F0: 4C 20 26 50 20 26 5A 20 26 4D 20 26 53 20 26 26 |L &P &Z &M &S &&|
00000500: 20 26 42 20 21 48 5D 0D 45 4E 44 0D 0D 54 4F 20 | &B !H].END..TO |
00000510: 26 42 0D 20 26 26 20 22 50 52 49 4E 54 42 0D 45 |&B. && "PRINTB.E|
00000520: 4E 44 0D 0D |ND.. |
. TO && :X. SCHRIJVEN. MAAK "X WOORD "LO
GO :X. PR SAMEN :X [WORDT NU GELADEN]. L
AAD :X.END..TO &S. && "SPROKEN.END..TO &
M. && "MUZIEK.END..TO &Z. && "ZETTEN.END
..TO &P. && "PRINTV.END..TO &L. && "LIJS
TEN.END..TO &V. && "VORMEN.END..TO RUIMT
E. .GCOLL PR .NODES.END..TO SP :AANTAL.
RESULTAAT SPATIE :AANTAL.END..TO SPATIE
:AANTAL. ALS :AANTAL = 1 RES CHAR 32. RE
S WOORD CHAR 32 SPATIE :AANTAL - 1.END..
TO WACHT :TIJD. HERHAAL 750 * :TIJD [].E
ND..TO BOOGJE :STRAAL. HERHAAL 10 [VT 3.
141 * :STRAAL / 20 RE 9].END..TO PEN. KL
1.END..TO EENUIT :LIJST. RESULTAAT SAME
N [] ELEMENT ( 1 + RANDOM AANTAL :LIJST
) :LIJST.END..TO IN :LIJST :TEKST. ALS W
OORD? :TEKST MAAK "TEKST SAMEN :TEKST []
. ALS LEEG? :TEKST RESULTAAT "WAAR. ALS
NIET ERBIJ? EERSTE :TEKST :LIJST RES "NI
ETW. RESULTAAT IN :LIJST ME :TEKST.END..
TO ANTWOORD1. LOKAAL "A MAAK "A ANTWOORD
. ALS LEEG? :A RES " ANDERS RES EERSTE :
A.END..TO PROG :NAAM :COMM. ALS :COMM =
[END] PRINT SAMEN :NAAM [GELEERD] RES []
. RUN :COMM PRINT1 ">. RES ZETV :COMM PR
OG :NAAM ANTWOORD.END..TO ONTHOUD :NAAM.
PRINT1 "> DEFINIEER :NAAM ZETV [] PROG
:NAAM ANTWOORD.END..TO BEWAARP :BESTAND
:NAMEN. ( BEWAAR :BESTAND :NAMEN ). PR "
BEWAARD.END..TO !H. WEG [BEWAARP ONTHOUD
PROG ANTWOORD1 IN EENUIT PEN BOOGJE WAC
HT SPATIE SP RUIMTE &V &L &P &Z &M &S &&
&B !H].END..TO &B. && "PRINTB.END..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL