00000000: 00 20 54 4F 20 26 53 0D 20 26 26 20 22 53 50 52 |. TO &S. && "SPR|
00000010: 4F 4B 45 4E 0D 45 4E 44 0D 0D 54 4F 20 26 4D 0D |OKEN.END..TO &M.|
00000020: 20 26 26 20 22 4D 55 5A 49 45 4B 0D 45 4E 44 0D | && "MUZIEK.END.|
00000030: 0D 54 4F 20 26 5A 0D 20 26 26 20 22 5A 45 54 54 |.TO &Z. && "ZETT|
00000040: 45 4E 0D 45 4E 44 0D 0D 54 4F 20 26 50 0D 20 26 |EN.END..TO &P. &|
00000050: 26 20 22 50 52 49 4E 54 56 0D 45 4E 44 0D 0D 54 |& "PRINTV.END..T|
00000060: 4F 20 26 4C 0D 20 26 26 20 22 4C 49 4A 53 54 45 |O &L. && "LIJSTE|
00000070: 4E 0D 45 4E 44 0D 0D 54 4F 20 26 56 0D 20 26 26 |N.END..TO &V. &&|
00000080: 20 22 56 4F 52 4D 45 4E 0D 45 4E 44 0D 0D 54 4F | "VORMEN.END..TO|
00000090: 20 52 55 49 4D 54 45 0D 20 2E 47 43 4F 4C 4C 20 | RUIMTE. .GCOLL |
000000A0: 50 52 20 2E 4E 4F 44 45 53 0D 45 4E 44 0D 0D 54 |PR .NODES.END..T|
000000B0: 4F 20 53 50 20 3A 41 41 4E 54 41 4C 0D 20 52 45 |O SP :AANTAL. RE|
000000C0: 53 55 4C 54 41 41 54 20 53 50 41 54 49 45 20 3A |SULTAAT SPATIE :|
000000D0: 41 41 4E 54 41 4C 0D 45 4E 44 0D 0D 54 4F 20 53 |AANTAL.END..TO S|
000000E0: 50 41 54 49 45 20 3A 41 41 4E 54 41 4C 0D 20 41 |PATIE :AANTAL. A|
000000F0: 4C 53 20 3A 41 41 4E 54 41 4C 20 3D 20 31 20 52 |LS :AANTAL = 1 R|
00000100: 45 53 20 43 48 41 52 20 33 32 0D 20 52 45 53 20 |ES CHAR 32. RES |
00000110: 57 4F 4F 52 44 20 43 48 41 52 20 33 32 20 53 50 |WOORD CHAR 32 SP|
00000120: 41 54 49 45 20 3A 41 41 4E 54 41 4C 20 2D 20 31 |ATIE :AANTAL - 1|
00000130: 0D 45 4E 44 0D 0D 54 4F 20 57 41 43 48 54 20 3A |.END..TO WACHT :|
00000140: 54 49 4A 44 0D 20 48 45 52 48 41 41 4C 20 37 35 |TIJD. HERHAAL 75|
00000150: 30 20 2A 20 3A 54 49 4A 44 20 5B 5D 0D 45 4E 44 |0 * :TIJD [].END|
00000160: 0D 0D 54 4F 20 42 4F 4F 47 4A 45 20 3A 53 54 52 |..TO BOOGJE :STR|
00000170: 41 41 4C 0D 20 48 45 52 48 41 41 4C 20 31 30 20 |AAL. HERHAAL 10 |
00000180: 5B 56 54 20 33 2E 31 34 31 20 2A 20 3A 53 54 52 |[VT 3.141 * :STR|
00000190: 41 41 4C 20 2F 20 32 30 20 52 45 20 39 5D 0D 45 |AAL / 20 RE 9].E|
000001A0: 4E 44 0D 0D 54 4F 20 50 45 4E 0D 20 4B 4C 20 31 |ND..TO PEN. KL 1|
000001B0: 0D 45 4E 44 0D 0D 54 4F 20 45 45 4E 55 49 54 20 |.END..TO EENUIT |
000001C0: 3A 4C 49 4A 53 54 0D 20 52 45 53 55 4C 54 41 41 |:LIJST. RESULTAA|
000001D0: 54 20 53 41 4D 45 4E 20 5B 5D 20 45 4C 45 4D 45 |T SAMEN [] ELEME|
000001E0: 4E 54 20 28 20 31 20 2B 20 52 41 4E 44 4F 4D 20 |NT ( 1 + RANDOM |
000001F0: 41 41 4E 54 41 4C 20 3A 4C 49 4A 53 54 20 29 20 |AANTAL :LIJST ) |
00000200: 3A 4C 49 4A 53 54 0D 45 4E 44 0D 0D 54 4F 20 49 |:LIJST.END..TO I|
00000210: 4E 20 3A 4C 49 4A 53 54 20 3A 54 45 4B 53 54 0D |N :LIJST :TEKST.|
00000220: 20 41 4C 53 20 57 4F 4F 52 44 3F 20 3A 54 45 4B | ALS WOORD? :TEK|
00000230: 53 54 20 4D 41 41 4B 20 22 54 45 4B 53 54 20 53 |ST MAAK "TEKST S|
00000240: 41 4D 45 4E 20 3A 54 45 4B 53 54 20 5B 5D 0D 20 |AMEN :TEKST []. |
00000250: 41 4C 53 20 4C 45 45 47 3F 20 3A 54 45 4B 53 54 |ALS LEEG? :TEKST|
00000260: 20 52 45 53 55 4C 54 41 41 54 20 22 57 41 41 52 | RESULTAAT "WAAR|
00000270: 0D 20 41 4C 53 20 4E 49 45 54 20 45 52 42 49 4A |. ALS NIET ERBIJ|
00000280: 3F 20 45 45 52 53 54 45 20 3A 54 45 4B 53 54 20 |? EERSTE :TEKST |
00000290: 3A 4C 49 4A 53 54 20 52 45 53 20 22 4E 49 45 54 |:LIJST RES "NIET|
000002A0: 57 0D 20 52 45 53 55 4C 54 41 41 54 20 49 4E 20 |W. RESULTAAT IN |
000002B0: 3A 4C 49 4A 53 54 20 4D 45 20 3A 54 45 4B 53 54 |:LIJST ME :TEKST|
000002C0: 0D 45 4E 44 0D 0D 54 4F 20 41 4E 54 57 4F 4F 52 |.END..TO ANTWOOR|
000002D0: 44 31 0D 20 4C 4F 4B 41 41 4C 20 22 41 20 4D 41 |D1. LOKAAL "A MA|
000002E0: 41 4B 20 22 41 20 41 4E 54 57 4F 4F 52 44 0D 20 |AK "A ANTWOORD. |
000002F0: 41 4C 53 20 4C 45 45 47 3F 20 3A 41 20 52 45 53 |ALS LEEG? :A RES|
00000300: 20 22 20 41 4E 44 45 52 53 20 52 45 53 20 45 45 | " ANDERS RES EE|
00000310: 52 53 54 45 20 3A 41 0D 45 4E 44 0D 0D 54 4F 20 |RSTE :A.END..TO |
00000320: 42 45 57 41 41 52 50 20 3A 42 45 53 54 41 4E 44 |BEWAARP :BESTAND|
00000330: 20 3A 4E 41 4D 45 4E 0D 20 28 20 42 45 57 41 41 | :NAMEN. ( BEWAA|
00000340: 52 20 3A 42 45 53 54 41 4E 44 20 3A 4E 41 4D 45 |R :BESTAND :NAME|
00000350: 4E 20 29 0D 20 50 52 20 22 42 45 57 41 41 52 44 |N ). PR "BEWAARD|
00000360: 0D 45 4E 44 0D 0D 54 4F 20 21 48 0D 20 57 45 47 |.END..TO !H. WEG|
00000370: 20 5B 42 45 57 41 41 52 50 20 41 4E 54 57 4F 4F | [BEWAARP ANTWOO|
00000380: 52 44 31 20 49 4E 20 45 45 4E 55 49 54 20 50 45 |RD1 IN EENUIT PE|
00000390: 4E 20 42 4F 4F 47 4A 45 20 57 41 43 48 54 20 53 |N BOOGJE WACHT S|
000003A0: 50 41 54 49 45 20 53 50 20 4C 41 41 44 56 4F 52 |PATIE SP LAADVOR|
000003B0: 4D 45 4E 20 52 55 49 4D 54 45 20 26 56 20 26 4C |MEN RUIMTE &V &L|
000003C0: 20 26 50 20 26 5A 20 26 4D 20 26 53 20 26 4B 20 | &P &Z &M &S &K |
000003D0: 26 26 20 21 48 5D 0D 45 4E 44 0D 0D 54 4F 20 4C |&& !H].END..TO L|
000003E0: 41 41 44 56 4F 52 4D 45 4E 20 3A 4E 41 41 4D 0D |AADVORMEN :NAAM.|
000003F0: 20 42 4C 41 41 44 20 57 4F 4F 52 44 20 3A 4E 41 | BLAAD WOORD :NA|
00000400: 41 4D 20 22 2E 56 4F 52 4D 45 4E 0D 20 4E 42 20 |AM ".VORMEN. NB |
00000410: 28 20 50 52 20 3A 4E 41 41 4D 20 5B 47 45 4C 41 |( PR :NAAM [GELA|
00000420: 44 45 4E 5D 20 29 0D 45 4E 44 0D 0D 54 4F 20 26 |DEN] ).END..TO &|
00000430: 26 20 3A 58 0D 20 53 43 48 52 49 4A 56 45 4E 0D |& :X. SCHRIJVEN.|
00000440: 20 4D 41 41 4B 20 22 58 20 57 4F 4F 52 44 20 22 | MAAK "X WOORD "|
00000450: 4C 4F 47 4F 20 3A 58 0D 20 50 52 20 53 41 4D 45 |LOGO :X. PR SAME|
00000460: 4E 20 3A 58 20 5B 57 4F 52 44 54 20 4E 55 20 47 |N :X [WORDT NU G|
00000470: 45 4C 41 44 45 4E 5D 0D 20 4C 41 41 44 20 3A 58 |ELADEN]. LAAD :X|
00000480: 0D 20 54 45 4B 45 4E 45 4E 0D 20 50 52 20 53 41 |. TEKENEN. PR SA|
00000490: 4D 45 4E 20 3A 58 20 5B 49 53 20 47 45 4C 41 44 |MEN :X [IS GELAD|
000004A0: 45 4E 5D 0D 45 4E 44 0D 0D 54 4F 20 26 4B 0D 20 |EN].END..TO &K. |
000004B0: 26 26 20 22 4B 4C 4F 4B 0D 45 4E 44 0D 0D |&& "KLOK.END.. |
. TO &S. && "SPROKEN.END..TO &M. && "MUZ
IEK.END..TO &Z. && "ZETTEN.END..TO &P. &
& "PRINTV.END..TO &L. && "LIJSTEN.END..T
O &V. && "VORMEN.END..TO RUIMTE. .GCOLL
PR .NODES.END..TO SP :AANTAL. RESULTAAT
SPATIE :AANTAL.END..TO SPATIE :AANTAL. A
LS :AANTAL = 1 RES CHAR 32. RES WOORD CH
AR 32 SPATIE :AANTAL - 1.END..TO WACHT :
TIJD. HERHAAL 750 * :TIJD [].END..TO BOO
GJE :STRAAL. HERHAAL 10 [VT 3.141 * :STR
AAL / 20 RE 9].END..TO PEN. KL 1.END..TO
EENUIT :LIJST. RESULTAAT SAMEN [] ELEME
NT ( 1 + RANDOM AANTAL :LIJST ) :LIJST.E
ND..TO IN :LIJST :TEKST. ALS WOORD? :TEK
ST MAAK "TEKST SAMEN :TEKST []. ALS LEEG
? :TEKST RESULTAAT "WAAR. ALS NIET ERBIJ
? EERSTE :TEKST :LIJST RES "NIETW. RESUL
TAAT IN :LIJST ME :TEKST.END..TO ANTWOOR
D1. LOKAAL "A MAAK "A ANTWOORD. ALS LEEG
? :A RES " ANDERS RES EERSTE :A.END..TO
BEWAARP :BESTAND :NAMEN. ( BEWAAR :BESTA
ND :NAMEN ). PR "BEWAARD.END..TO !H. WEG
[BEWAARP ANTWOORD1 IN EENUIT PEN BOOGJE
WACHT SPATIE SP LAADVORMEN RUIMTE &V &L
&P &Z &M &S &K && !H].END..TO LAADVORME
N :NAAM. BLAAD WOORD :NAAM ".VORMEN. NB
( PR :NAAM [GELADEN] ).END..TO && :X. SC
HRIJVEN. MAAK "X WOORD "LOGO :X. PR SAME
N :X [WORDT NU GELADEN]. LAAD :X. TEKENE
N. PR SAMEN :X [IS GELADEN].END..TO &K.
&& "KLOK.END..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL