00000000: 00 20 54 4F 20 47 52 4F 45 54 20 3A 50 45 52 53 |. TO GROET :PERS|
00000010: 4F 4F 4E 0D 20 49 46 20 45 4D 50 54 59 3F 20 3A |OON. IF EMPTY? :|
00000020: 50 45 52 53 4F 4F 4E 20 50 52 49 4E 54 20 5B 41 |PERSOON PRINT [A|
00000030: 41 48 2C 20 4A 45 20 42 45 4E 54 20 54 4F 43 48 |AH, JE BENT TOCH|
00000040: 20 4E 49 45 54 20 54 45 20 56 45 52 4C 45 47 45 | NIET TE VERLEGE|
00000050: 4E 2C 20 54 4F 45 20 4E 4F 55 20 56 45 52 54 45 |N, TOE NOU VERTE|
00000060: 4C 20 4F 50 5D 20 56 52 49 45 4E 44 45 4E 20 53 |L OP] VRIENDEN S|
00000070: 54 4F 50 0D 20 49 46 20 4D 45 4D 42 45 52 3F 20 |TOP. IF MEMBER? |
00000080: 3A 50 45 52 53 4F 4F 4E 20 3A 42 45 4B 45 4E 44 |:PERSOON :BEKEND|
00000090: 20 50 52 20 53 45 20 5B 47 4F 45 44 20 4F 4D 20 | PR SE [GOED OM |
000000A0: 4A 45 20 4F 50 4E 49 45 55 57 20 54 45 20 5A 49 |JE OPNIEUW TE ZI|
000000B0: 45 4E 5D 20 3A 50 45 52 53 4F 4F 4E 20 53 54 4F |EN] :PERSOON STO|
000000C0: 50 0D 20 50 52 20 53 45 20 5B 46 49 4A 4E 20 4F |P. PR SE [FIJN O|
000000D0: 4D 20 4A 45 20 54 45 20 4F 4E 54 4D 4F 45 54 45 |M JE TE ONTMOETE|
000000E0: 4E 2C 5D 20 3A 50 45 52 53 4F 4F 4E 0D 20 4D 41 |N,] :PERSOON. MA|
000000F0: 4B 45 20 22 42 45 4B 45 4E 44 20 4C 50 55 54 20 |KE "BEKEND LPUT |
00000100: 3A 50 45 52 53 4F 4F 4E 20 3A 42 45 4B 45 4E 44 |:PERSOON :BEKEND|
00000110: 0D 45 4E 44 0D 0D 54 4F 20 56 52 49 45 4E 44 45 |.END..TO VRIENDE|
00000120: 4E 0D 20 50 52 20 5B 57 41 54 20 49 53 20 4A 45 |N. PR [WAT IS JE|
00000130: 20 4E 41 41 4D 3F 5D 0D 20 47 52 4F 45 54 20 52 | NAAM?]. GROET R|
00000140: 45 51 55 45 53 54 0D 45 4E 44 0D 0D 54 4F 20 54 |EQUEST.END..TO T|
00000150: 49 45 4E 0D 20 4F 50 20 37 20 2B 20 33 0D 45 4E |IEN. OP 7 + 3.EN|
00000160: 44 0D 0D 54 4F 20 44 55 42 42 45 4C 20 3A 47 45 |D..TO DUBBEL :GE|
00000170: 54 41 4C 0D 20 4F 50 20 32 20 2A 20 3A 47 45 54 |TAL. OP 2 * :GET|
00000180: 41 4C 0D 45 4E 44 0D 0D 54 4F 20 50 49 0D 20 4F |AL.END..TO PI. O|
00000190: 50 20 33 2E 31 34 31 35 39 0D 45 4E 44 0D 0D 54 |P 3.14159.END..T|
000001A0: 4F 20 43 49 52 43 55 4D 46 20 3A 44 49 41 4D 45 |O CIRCUMF :DIAME|
000001B0: 54 45 52 0D 20 4F 50 20 50 49 20 2A 20 3A 44 49 |TER. OP PI * :DI|
000001C0: 41 4D 45 54 45 52 0D 45 4E 44 0D 0D 54 4F 20 41 |AMETER.END..TO A|
000001D0: 52 43 20 3A 53 45 47 4D 45 4E 54 53 20 3A 43 48 |RC :SEGMENTS :CH|
000001E0: 4F 52 44 0D 20 52 45 50 45 41 54 20 3A 53 45 47 |ORD. REPEAT :SEG|
000001F0: 4D 45 4E 54 53 20 5B 46 44 20 3A 43 48 4F 52 44 |MENTS [FD :CHORD|
00000200: 20 52 54 20 31 38 5D 0D 45 4E 44 0D 0D 54 4F 20 | RT 18].END..TO |
00000210: 43 49 52 43 4C 45 20 3A 44 49 41 4D 45 54 45 52 |CIRCLE :DIAMETER|
00000220: 0D 20 41 52 43 20 32 30 20 28 20 43 49 52 43 55 |. ARC 20 ( CIRCU|
00000230: 4D 46 20 3A 44 49 41 4D 45 54 45 52 20 29 20 2F |MF :DIAMETER ) /|
00000240: 20 32 30 0D 45 4E 44 0D 0D 54 4F 20 52 4F 4E 44 | 20.END..TO ROND|
00000250: 20 3A 44 49 41 4D 45 54 45 52 0D 20 43 49 52 43 | :DIAMETER. CIRC|
00000260: 4C 45 20 3A 44 49 41 4D 45 54 45 52 0D 20 52 4F |LE :DIAMETER. RO|
00000270: 4E 44 20 3A 44 49 41 4D 45 54 45 52 20 2B 20 35 |ND :DIAMETER + 5|
00000280: 0D 45 4E 44 0D 0D 54 4F 20 4D 45 4E 53 45 4E 0D |.END..TO MENSEN.|
00000290: 20 4F 50 20 5B 53 41 4E 44 59 20 43 48 52 49 53 | OP [SANDY CHRIS|
000002A0: 20 5B 54 48 45 20 54 55 52 54 4C 45 5D 20 44 41 | [THE TURTLE] DA|
000002B0: 4E 41 20 4C 45 45 20 50 41 54 20 44 41 4C 45 5D |NA LEE PAT DALE]|
000002C0: 0D 45 4E 44 0D 0D 54 4F 20 41 43 54 49 4F 4E 53 |.END..TO ACTIONS|
000002D0: 0D 20 4F 50 20 5B 4C 4F 56 45 53 20 5B 44 52 45 |. OP [LOVES [DRE|
000002E0: 41 4D 53 20 41 42 4F 55 54 5D 20 4B 49 53 53 45 |AMS ABOUT] KISSE|
000002F0: 44 20 48 41 54 45 53 20 5B 43 41 4E 27 54 20 53 |D HATES [CAN'T S|
00000300: 54 41 4E 44 5D 20 4C 49 4B 45 53 5D 0D 45 4E 44 |TAND] LIKES].END|
00000310: 0D 0D 54 4F 20 4D 0D 20 4F 50 20 5B 53 41 4E 44 |..TO M. OP [SAND|
00000320: 59 20 43 48 52 49 53 20 5B 54 48 45 20 54 55 52 |Y CHRIS [THE TUR|
00000330: 54 4C 45 5D 20 44 41 4E 41 20 4C 45 45 20 50 41 |TLE] DANA LEE PA|
00000340: 54 20 44 41 4C 45 5D 0D 45 4E 44 0D 0D 54 4F 20 |T DALE].END..TO |
00000350: 41 0D 20 4F 50 20 5B 4C 4F 56 45 53 20 5B 44 52 |A. OP [LOVES [DR|
00000360: 45 41 4D 53 20 41 42 4F 55 54 5D 20 4B 49 53 53 |EAMS ABOUT] KISS|
00000370: 45 44 20 48 41 54 45 53 20 5B 43 41 4E 27 54 20 |ED HATES [CAN'T |
00000380: 53 54 41 4E 44 5D 20 4C 49 4B 45 53 5D 0D 45 4E |STAND] LIKES].EN|
00000390: 44 0D 0D 4D 41 4B 45 20 22 42 45 4B 45 4E 44 20 |D..MAKE "BEKEND |
000003A0: 5B 57 49 4D 20 5B 49 4B 5D 20 5B 54 48 45 4F 5D |[WIM [IK] [THEO]|
000003B0: 20 5B 57 49 4D 5D 20 5B 42 45 52 54 5D 5D 0D | [WIM] [BERT]]. |
. TO GROET :PERSOON. IF EMPTY? :PERSOON
PRINT [AAH, JE BENT TOCH NIET TE VERLEGE
N, TOE NOU VERTEL OP] VRIENDEN STOP. IF
MEMBER? :PERSOON :BEKEND PR SE [GOED OM
JE OPNIEUW TE ZIEN] :PERSOON STOP. PR SE
[FIJN OM JE TE ONTMOETEN,] :PERSOON. MA
KE "BEKEND LPUT :PERSOON :BEKEND.END..TO
VRIENDEN. PR [WAT IS JE NAAM?]. GROET R
EQUEST.END..TO TIEN. OP 7 + 3.END..TO DU
BBEL :GETAL. OP 2 * :GETAL.END..TO PI. O
P 3.14159.END..TO CIRCUMF :DIAMETER. OP
PI * :DIAMETER.END..TO ARC :SEGMENTS :CH
ORD. REPEAT :SEGMENTS [FD :CHORD RT 18].
END..TO CIRCLE :DIAMETER. ARC 20 ( CIRCU
MF :DIAMETER ) / 20.END..TO ROND :DIAMET
ER. CIRCLE :DIAMETER. ROND :DIAMETER + 5
.END..TO MENSEN. OP [SANDY CHRIS [THE TU
RTLE] DANA LEE PAT DALE].END..TO ACTIONS
. OP [LOVES [DREAMS ABOUT] KISSED HATES
[CAN'T STAND] LIKES].END..TO M. OP [SAND
Y CHRIS [THE TURTLE] DANA LEE PAT DALE].
END..TO A. OP [LOVES [DREAMS ABOUT] KISS
ED HATES [CAN'T STAND] LIKES].END..MAKE
"BEKEND [WIM [IK] [THEO] [WIM] [BERT]].
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL