Home » Personal collection » Acorn hard disk » apps » Lego » !CtrlLab/LogoPrim

!CtrlLab/LogoPrim

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn hard disk » apps » Lego
Filename: !CtrlLab/LogoPrim
Read OK:
File size: 03A8 bytes
Load address: 0000
Exec address: 0000
File contents
# Primitive Primitive Number
< 2
<= 3
<> 4
= 5
> 6
>= 7
+ 8
- 9
* 10
/ 11
( 12
) 13
true 14
false 15
to 16
end 17
make 18
repeat 19
sum 20
difference 21
thing 22
define 23
name 24
and 25
or 26
abs 27
product 28
quotient 29
remainder 30
minus 31
random 32
rerandom 33
greater? 34
less? 35
not 36
if 37
ifelse 38
run 39
stop 40
output 41
op 41
number? 42
list? 43
word? 44
sentence 45
se 45
empty? 46
word 47
butfirst 48 
bf 48
butlast 49
bl 49
equal? 50
list 51
count 52
first 53
fput 54
item 55
last 56
lput 57
name? 58
.version 59
recycle 61
loop 62
space 63
waituntil 64
parse 65
clearname 66
clearnames 67
ascii 68
char 69
let 70
local 71
dotimes 72
dolist 73
carefully 74
.setcomma 75
.setpoint 76
member? 77
#sin 78
#cos 79
#tan 80
arctan 81
int 82
round 83
pow 84
sqrt 85
min 86
max 87
average 88
identical? 89
replaceitem 90
insertitem 91
itempos 92
removeitem 93
removeitempos 94
cleartools 95
stopme 96
.stopall 97
toollist 98
00000000  23 20 50 72 69 6d 69 74  69 76 65 20 50 72 69 6d  |# Primitive Prim|
00000010  69 74 69 76 65 20 4e 75  6d 62 65 72 0a 3c 20 32  |itive Number.< 2|
00000020  0a 3c 3d 20 33 0a 3c 3e  20 34 0a 3d 20 35 0a 3e  |.<= 3.<> 4.= 5.>|
00000030  20 36 0a 3e 3d 20 37 0a  2b 20 38 0a 2d 20 39 0a  | 6.>= 7.+ 8.- 9.|
00000040  2a 20 31 30 0a 2f 20 31  31 0a 28 20 31 32 0a 29  |* 10./ 11.( 12.)|
00000050  20 31 33 0a 74 72 75 65  20 31 34 0a 66 61 6c 73  | 13.true 14.fals|
00000060  65 20 31 35 0a 74 6f 20  31 36 0a 65 6e 64 20 31  |e 15.to 16.end 1|
00000070  37 0a 6d 61 6b 65 20 31  38 0a 72 65 70 65 61 74  |7.make 18.repeat|
00000080  20 31 39 0a 73 75 6d 20  32 30 0a 64 69 66 66 65  | 19.sum 20.diffe|
00000090  72 65 6e 63 65 20 32 31  0a 74 68 69 6e 67 20 32  |rence 21.thing 2|
000000a0  32 0a 64 65 66 69 6e 65  20 32 33 0a 6e 61 6d 65  |2.define 23.name|
000000b0  20 32 34 0a 61 6e 64 20  32 35 0a 6f 72 20 32 36  | 24.and 25.or 26|
000000c0  0a 61 62 73 20 32 37 0a  70 72 6f 64 75 63 74 20  |.abs 27.product |
000000d0  32 38 0a 71 75 6f 74 69  65 6e 74 20 32 39 0a 72  |28.quotient 29.r|
000000e0  65 6d 61 69 6e 64 65 72  20 33 30 0a 6d 69 6e 75  |emainder 30.minu|
000000f0  73 20 33 31 0a 72 61 6e  64 6f 6d 20 33 32 0a 72  |s 31.random 32.r|
00000100  65 72 61 6e 64 6f 6d 20  33 33 0a 67 72 65 61 74  |erandom 33.great|
00000110  65 72 3f 20 33 34 0a 6c  65 73 73 3f 20 33 35 0a  |er? 34.less? 35.|
00000120  6e 6f 74 20 33 36 0a 69  66 20 33 37 0a 69 66 65  |not 36.if 37.ife|
00000130  6c 73 65 20 33 38 0a 72  75 6e 20 33 39 0a 73 74  |lse 38.run 39.st|
00000140  6f 70 20 34 30 0a 6f 75  74 70 75 74 20 34 31 0a  |op 40.output 41.|
00000150  6f 70 20 34 31 0a 6e 75  6d 62 65 72 3f 20 34 32  |op 41.number? 42|
00000160  0a 6c 69 73 74 3f 20 34  33 0a 77 6f 72 64 3f 20  |.list? 43.word? |
00000170  34 34 0a 73 65 6e 74 65  6e 63 65 20 34 35 0a 73  |44.sentence 45.s|
00000180  65 20 34 35 0a 65 6d 70  74 79 3f 20 34 36 0a 77  |e 45.empty? 46.w|
00000190  6f 72 64 20 34 37 0a 62  75 74 66 69 72 73 74 20  |ord 47.butfirst |
000001a0  34 38 20 0a 62 66 20 34  38 0a 62 75 74 6c 61 73  |48 .bf 48.butlas|
000001b0  74 20 34 39 0a 62 6c 20  34 39 0a 65 71 75 61 6c  |t 49.bl 49.equal|
000001c0  3f 20 35 30 0a 6c 69 73  74 20 35 31 0a 63 6f 75  |? 50.list 51.cou|
000001d0  6e 74 20 35 32 0a 66 69  72 73 74 20 35 33 0a 66  |nt 52.first 53.f|
000001e0  70 75 74 20 35 34 0a 69  74 65 6d 20 35 35 0a 6c  |put 54.item 55.l|
000001f0  61 73 74 20 35 36 0a 6c  70 75 74 20 35 37 0a 6e  |ast 56.lput 57.n|
00000200  61 6d 65 3f 20 35 38 0a  2e 76 65 72 73 69 6f 6e  |ame? 58..version|
00000210  20 35 39 0a 72 65 63 79  63 6c 65 20 36 31 0a 6c  | 59.recycle 61.l|
00000220  6f 6f 70 20 36 32 0a 73  70 61 63 65 20 36 33 0a  |oop 62.space 63.|
00000230  77 61 69 74 75 6e 74 69  6c 20 36 34 0a 70 61 72  |waituntil 64.par|
00000240  73 65 20 36 35 0a 63 6c  65 61 72 6e 61 6d 65 20  |se 65.clearname |
00000250  36 36 0a 63 6c 65 61 72  6e 61 6d 65 73 20 36 37  |66.clearnames 67|
00000260  0a 61 73 63 69 69 20 36  38 0a 63 68 61 72 20 36  |.ascii 68.char 6|
00000270  39 0a 6c 65 74 20 37 30  0a 6c 6f 63 61 6c 20 37  |9.let 70.local 7|
00000280  31 0a 64 6f 74 69 6d 65  73 20 37 32 0a 64 6f 6c  |1.dotimes 72.dol|
00000290  69 73 74 20 37 33 0a 63  61 72 65 66 75 6c 6c 79  |ist 73.carefully|
000002a0  20 37 34 0a 2e 73 65 74  63 6f 6d 6d 61 20 37 35  | 74..setcomma 75|
000002b0  0a 2e 73 65 74 70 6f 69  6e 74 20 37 36 0a 6d 65  |..setpoint 76.me|
000002c0  6d 62 65 72 3f 20 37 37  0a 23 73 69 6e 20 37 38  |mber? 77.#sin 78|
000002d0  0a 23 63 6f 73 20 37 39  0a 23 74 61 6e 20 38 30  |.#cos 79.#tan 80|
000002e0  0a 61 72 63 74 61 6e 20  38 31 0a 69 6e 74 20 38  |.arctan 81.int 8|
000002f0  32 0a 72 6f 75 6e 64 20  38 33 0a 70 6f 77 20 38  |2.round 83.pow 8|
00000300  34 0a 73 71 72 74 20 38  35 0a 6d 69 6e 20 38 36  |4.sqrt 85.min 86|
00000310  0a 6d 61 78 20 38 37 0a  61 76 65 72 61 67 65 20  |.max 87.average |
00000320  38 38 0a 69 64 65 6e 74  69 63 61 6c 3f 20 38 39  |88.identical? 89|
00000330  0a 72 65 70 6c 61 63 65  69 74 65 6d 20 39 30 0a  |.replaceitem 90.|
00000340  69 6e 73 65 72 74 69 74  65 6d 20 39 31 0a 69 74  |insertitem 91.it|
00000350  65 6d 70 6f 73 20 39 32  0a 72 65 6d 6f 76 65 69  |empos 92.removei|
00000360  74 65 6d 20 39 33 0a 72  65 6d 6f 76 65 69 74 65  |tem 93.removeite|
00000370  6d 70 6f 73 20 39 34 0a  63 6c 65 61 72 74 6f 6f  |mpos 94.cleartoo|
00000380  6c 73 20 39 35 0a 73 74  6f 70 6d 65 20 39 36 0a  |ls 95.stopme 96.|
00000390  2e 73 74 6f 70 61 6c 6c  20 39 37 0a 74 6f 6f 6c  |.stopall 97.tool|
000003a0  6c 69 73 74 20 39 38 0a                           |list 98.|
000003a8