mirror of
https://github.com/richardharrington/robotwar.git
synced 2024-06-26 01:29:33 +00:00
30 lines
518 B
Clojure
30 lines
518 B
Clojure
|
(ns robotwar.test-programs)
|
||
|
|
|
||
|
|
(def multi-use-program
|
||
|
|
" START
|
||
|
|
0 TO A
|
||
|
|
TEST
|
||
|
|
IF A > 2 GOTO START
|
||
|
|
GOSUB INCREMENT
|
||
|
|
GOTO TEST
|
||
|
|
100 TO A
|
||
|
|
INCREMENT
|
||
|
|
A + 1 TO A
|
||
|
|
ENDSUB
|
||
|
|
200 TO A ")
|
||
|
|
|
||
|
|
(def index-data-program
|
||
|
|
; to test the INDEX/DATA pair of registers
|
||
|
|
" 300 TO A
|
||
|
|
1 TO INDEX
|
||
|
|
DATA TO B")
|
||
|
|
|
||
|
|
(def random-program
|
||
|
|
; to test the RANDOM register
|
||
|
|
" 1000 TO RANDOM
|
||
|
|
RANDOM TO A
|
||
|
|
RANDOM TO A
|
||
|
|
RANDOM TO A
|
||
|
|
RANDOM TO A
|
||
|
|
RANDOM TO A ")
|