| Test 1 | Boucle simple | Test 8 | Test modulo | Test 13 | Test précision mantisse interne et externe | ||||||||||||||
| 0 -> a << | 0 0 128 -> a b c<< | PILE | |||||||||||||||||
| 1 10000 FOR a | 1 1000 FOR a | ||||||||||||||||||
| NEXT >> | a c MOD 'b' STO | Test 14 | Test précision et rapidité | ||||||||||||||||
| NEXT >> | 0 | ||||||||||||||||||
| Test 2 | Boucle GOTO | 2 20 FOR P | |||||||||||||||||
| NA | Test 9 | Test Puissance | 2 | ||||||||||||||||
| 0 0 2 -> a b c<< | 1 P FOR A | ||||||||||||||||||
| Test 3 | Affectation constante | 1 1000 FOR a | SQR | ||||||||||||||||
| 0 0 -> a b << | a c ^ 'b' STO | NEXT | |||||||||||||||||
| 1 1000 FOR a | NEXT >> | 1 P FOR A | |||||||||||||||||
| 3.14 'b' STO | SQ | ||||||||||||||||||
| NEXT >> | Test 10 | Fonction trigonometrique | NEXT | ||||||||||||||||
| 0 0 3.14 -> a b c<< | 2 SWAP - ABS + | ||||||||||||||||||
| Test 4 | Affectation variable | 1 1000 FOR a | NEXT | ||||||||||||||||
| 0 0 3.14 -> a b c << | c SIN 'b' STO | ||||||||||||||||||
| 1 1000 FOR a | NEXT >> | Test 15 | Test Graphisme | ||||||||||||||||
| c 'b' STO | ERASE | ||||||||||||||||||
| NEXT >> | Test 11 | Fonction logarithmique | { # 0d # 0d } PVIEW | ||||||||||||||||
| 0 0 3.14 -> a b c<< | PICT | ||||||||||||||||||
| Test 5 | Test Addition | 1 1000 FOR a | { # 0d # 0d } "SCORE:0" 1 GROB REPL | ||||||||||||||||
| 0 0 -> a b << | c LN 'b' STO | { # 49d # 0d } { # 49d # 30d } LINE | |||||||||||||||||
| 1 1000 FOR a | NEXT >> | { # 125d # 0d } { # 125d # 30d } LINE | |||||||||||||||||
| a DUP + 'b' STO | { # 50d # 0d } { # 124d # 1d } BOX | ||||||||||||||||||
| NEXT >> | Test 12 | Fonction Traitement chaine | { # 50d # 2d } { # 124d # 3d } BOX | ||||||||||||||||
| 0 0 "1234567890123456" -> a b c<< | { # 50d # 6d } { # 124d # 7d } BOX | ||||||||||||||||||
| Test 6 | Test Multiplication | 1 1000 FOR a | { # 50d # 8d } { # 124d # 9d } BOX | ||||||||||||||||
| 0 0 -> a b << | c 5 11 SUB 'b' STO | 0 # 86d # 10d DUP DUP # 0d 2 -3 # 89d | |||||||||||||||||
| 1 1000 FOR a | NEXT >> | -> sc bx y yb oy ox ry rx x | |||||||||||||||||
| a DUP * 'b' STO | Ť { # 50d # 30d } { # 124d # 30d } LINE | ||||||||||||||||||
| NEXT >> | DO | ||||||||||||||||||
| x B->R rx + R->B 'x' STO | |||||||||||||||||||
| Test 7 | Test logique | Test 16 | Profondeur récursivité | y B->R ry + DUP R->B 'y' STO 'yb' STO | |||||||||||||||
| 0 0 127 R>B -> a b c<< | 1 'A' STO+ T16 | IF x B->R 50 < x BR 124 > OR THEN | |||||||||||||||||
| 1 1000 FOR a | rx NEG 'rx' STO | ||||||||||||||||||
| a R>B c AND 'b' STO | x B->R 2 rx * + R->B 'x' STO | ||||||||||||||||||
| NEXT >> | END | ||||||||||||||||||
| IF y B->R 30 >= yb -2 == OR THEN | |||||||||||||||||||
| ry NEG 'ry' STO | |||||||||||||||||||
| oy B->R ry + R->B 'y' STO | |||||||||||||||||||
| END | |||||||||||||||||||
| IF x y 2 LIST PIX? THEN | |||||||||||||||||||
| sc 5 + 'sc' STO | |||||||||||||||||||
| PICT { # 22d # 0d } sc 1 GROB REPL | |||||||||||||||||||
| x y 2 LIST x 2 + y 2 LIST | |||||||||||||||||||
| x y 1 + 2 LIST x 2 + y 1 + 2 LIST | |||||||||||||||||||
| TLINE | |||||||||||||||||||
| TLINE | |||||||||||||||||||
| y B->R ry - R->B 'y' STO | |||||||||||||||||||
| ry NEG 'ry' STO | |||||||||||||||||||
| END | |||||||||||||||||||
| ox oy 2 LIST ox 2 + oy 2 LIST | |||||||||||||||||||
| ox oy 1 + 2 LIST ox 2 + oy 1 + 2 LIST | |||||||||||||||||||
| x y 2 LIST x 2 + y 1 + 2 LIST | |||||||||||||||||||
| BOX | |||||||||||||||||||
| TLINE | |||||||||||||||||||
| TLINE | |||||||||||||||||||
| x 'ox' STO | |||||||||||||||||||
| y 'oy' STO | |||||||||||||||||||
| UNTIL 'sc>200' | |||||||||||||||||||
| END | |||||||||||||||||||
| ť | |||||||||||||||||||