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