-
Notifications
You must be signed in to change notification settings - Fork 0
/
conway.txt
665 lines (492 loc) · 18.1 KB
/
conway.txt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
room clearWedges
clear 0000,0000 clear 0000,0001 clear 0000,0010 clear 0000,0011 clear 0000,0100 clear 0000,0101 clear 0000,0110 clear 0000,0111 clear 0000,1000 clear 0000,1001
clear 0001,0000 clear 0001,0001 clear 0001,0010 clear 0001,0011 clear 0001,0100 clear 0001,0101 clear 0001,0110 set 0001,0111 set 0001,1000 clear 0001,1001
clear 0010,0000 clear 0010,0001 clear 0010,0010 clear 0010,0011 clear 0010,0100 clear 0010,0101 clear 0010,0110 clear 0010,0111 set 0010,1000 clear 0010,1001
clear 0011,0000 clear 0011,0001 clear 0011,0010 clear 0011,0011 clear 0011,0100 set 0011,0101 clear 0011,0110 clear 0011,0111 set 0011,1000 clear 0011,1001
clear 0100,0000 clear 0100,0001 clear 0100,0010 clear 0100,0011 clear 0100,0100 set 0100,0101 clear 0100,0110 clear 0100,0111 clear 0100,1000 clear 0100,1001
clear 0101,0000 clear 0101,0001 clear 0101,0010 clear 0101,0011 clear 0101,0100 set 0101,0101 clear 0101,0110 clear 0101,0111 clear 0101,1000 clear 0101,1001
clear 0110,0000 clear 0110,0001 clear 0110,0010 clear 0110,0011 clear 0110,0100 clear 0110,0101 clear 0110,0110 clear 0110,0111 clear 0110,1000 clear 0110,1001
clear 0111,0000 clear 0111,0001 clear 0111,0010 clear 0111,0011 clear 0111,0100 clear 0111,0101 clear 0111,0110 clear 0111,0111 clear 0111,1000 clear 0111,1001
clear 1000,0000 clear 1000,0001 clear 1000,0010 clear 1000,0011 clear 1000,0100 clear 1000,0101 clear 1000,0110 clear 1000,0111 clear 1000,1000 clear 1000,1001
clear 1001,0000 clear 1001,0001 clear 1001,0010 clear 1001,0011 clear 1001,0100 clear 1001,0101 clear 1001,0110 clear 1001,0111 clear 1001,1000 clear 1001,1001
clear N0000,0000 clear N0000,0001 clear N0000,0010 clear N0000,0011 clear N0000,0100 clear N0000,0101 clear N0000,0110 clear N0000,0111 clear N0000,1000 clear N0000,1001
clear N0001,0000 clear N0001,0001 clear N0001,0010 clear N0001,0011 clear N0001,0100 clear N0001,0101 clear N0001,0110 clear N0001,0111 clear N0001,1000 clear N0001,1001
clear N0010,0000 clear N0010,0001 clear N0010,0010 clear N0010,0011 clear N0010,0100 clear N0010,0101 clear N0010,0110 clear N0010,0111 clear N0010,1000 clear N0010,1001
clear N0011,0000 clear N0011,0001 clear N0011,0010 clear N0011,0011 clear N0011,0100 clear N0011,0101 clear N0011,0110 clear N0011,0111 clear N0011,1000 clear N0011,1001
clear N0100,0000 clear N0100,0001 clear N0100,0010 clear N0100,0011 clear N0100,0100 clear N0100,0101 clear N0100,0110 clear N0100,0111 clear N0100,1000 clear N0100,1001
clear N0101,0000 clear N0101,0001 clear N0101,0010 clear N0101,0011 clear N0101,0100 clear N0101,0101 clear N0101,0110 clear N0101,0111 clear N0101,1000 clear N0101,1001
clear N0110,0000 clear N0110,0001 clear N0110,0010 clear N0110,0011 clear N0110,0100 clear N0110,0101 clear N0110,0110 clear N0110,0111 clear N0110,1000 clear N0110,1001
clear N0111,0000 clear N0111,0001 clear N0111,0010 clear N0111,0011 clear N0111,0100 clear N0111,0101 clear N0111,0110 clear N0111,0111 clear N0111,1000 clear N0111,1001
clear N1000,0000 clear N1000,0001 clear N1000,0010 clear N1000,0011 clear N1000,0100 clear N1000,0101 clear N1000,0110 clear N1000,0111 clear N1000,1000 clear N1000,1001
clear N1001,0000 clear N1001,0001 clear N1001,0010 clear N1001,0011 clear N1001,0100 clear N1001,0101 clear N1001,0110 clear N1001,0111 clear N1001,1000 clear N1001,1001
clear X0, clear X1, clear X2, set X3
clear Y0, clear Y1, clear Y2, set Y3
clear x0 clear x1 clear x2 clear x3
clear y0 clear y1 clear y2 clear y3
clear c0 clear c1 clear c2 clear c3
clear xy
clear XY
goto start
room start
>Conway's Game of Life
>Initial configuration is set
>
>
room master
visit print
visit loadFromN
>
>
prompt Press+enter+for+next+iteration+or+type+x+to+exit
>
>
on x end Conway
goto master
room scorexy
visit cnt0
visit xXyY
clear XY
if xy set XY
visit right
visit loadxy
if xy visit cnt
visit up
visit loadxy
if xy visit cnt
visit left
visit loadxy
if xy visit cnt
visit left
visit loadxy
if xy visit cnt
visit down
visit loadxy
if xy visit cnt
visit down
visit loadxy
if xy visit cnt
visit right
visit loadxy
if xy visit cnt
visit right
visit loadxy
if xy visit cnt
visit XxYy
visit liveOrDead
if live visit setNxy
return home
room printc
if c0 print 1
unless c0 print 0
if c1 print 1
unless c1 print 0
if c2 print 1
unless c2 print 0
if c3 print 1
unless c3 print 0
return home
>// XY is current state of cell
>// <c0,c1,c2,c3> is num of neighbors
room liveOrDead
clear live
unless XY unless c0 unless c1 if c2 if c3 set live return home
if XY unless c0 unless c1 if c2 set live return home
return home
>// starts at 0001,1000...1000,1000
>// prints through 0001,0001...1000,0001
>// We deliberately leave an invisible buffer square.
>// This allows better rendering and simplifies the Life algorithm.
>// We compute the next level while we print!
room print
visit clearN
visit clearx
set x3
visit cleary
set y0
room print*
visit loadxy
visit printxy
visit scorexy
clear is-y visit is(y-1)in
if good set is-y
visit is(xp2)in
unless good visit down
unless good unless is-y println + return home
unless good visit clearx
visit right
unless good println +
visit isyin
if good visit print*
return home
room printxy
unless xy print +`+
if xy print +O+
return home
room isxin
clear good
unless x0 set good
if x0 unless x1 unless x2 set good
return home
room is(xp1)in
clear good
unless x0 set good
if x0 unless x1 unless x2 unless x3 set good
return home
room is(xp2)in
clear good
unless x0 set good
return home
room isyin
clear good
unless y0 set good
if y0 unless y1 unless y2 set good
return home
room is(y-1)in
set good
unless y0 unless y1 unless y2 clear good
return home
room xXyY
clear X0 clear X1 clear X2 clear X3
clear Y0 clear Y1 clear Y2 clear Y3
if x0 set X0
if x1 set X1
if x2 set X2
if x3 set X3
if y0 set Y0
if y1 set Y1
if y2 set Y2
if y3 set Y3
return home
room XxYy
clear x0 clear x1 clear x2 clear x3
clear y0 clear y1 clear y2 clear y3
if X0 set x0
if X1 set x1
if X2 set x2
if X3 set x3
if Y0 set y0
if Y1 set y1
if Y2 set y2
if Y3 set y3
return home
room clearx
clear x0 clear x1 clear x2 clear x3
return home
room cleary
clear y0 clear y1 clear y2 clear y3
return home
room clearxy
clear xy
set modify-bool
visit loadx
return home
room setxy
set xy
set modify-bool
visit loadx
return home
room setNxy
set Nxy
set modify-bool-N
clear modify-bool
visit loadx
return home
room loadxy
clear xy
visit loadx
visit $
visit loady
if $ set xy
return home
return home
room loadx
unless modify-bool unless modify-bool-N set set-mode
unless x0 unless x1 unless x2 unless x3 goto 0000
unless x0 unless x1 unless x2 if x3 goto 0001
unless x0 unless x1 if x2 unless x3 goto 0010
unless x0 unless x1 if x2 if x3 goto 0011
unless x0 if x1 unless x2 unless x3 goto 0100
unless x0 if x1 unless x2 if x3 goto 0101
unless x0 if x1 if x2 unless x3 goto 0110
unless x0 if x1 if x2 if x3 goto 0111
if x0 unless x1 unless x2 unless x3 goto 1000
if x0 unless x1 unless x2 if x3 goto 1001
>Error: x exceeded 1001
return home
room loady
set set-mode
unless y0 unless y1 unless y2 unless y3 goto 0000
unless y0 unless y1 unless y2 if y3 goto 0001
unless y0 unless y1 if y2 unless y3 goto 0010
unless y0 unless y1 if y2 if y3 goto 0011
unless y0 if y1 unless y2 unless y3 goto 0100
unless y0 if y1 unless y2 if y3 goto 0101
unless y0 if y1 if y2 unless y3 goto 0110
unless y0 if y1 if y2 if y3 goto 0111
if y0 unless y1 unless y2 unless y3 goto 1000
if y0 unless y1 unless y2 if y3 goto 1001
>Error: y exceeded 1001
return home
room cnt0
clear c0 clear c1 clear c2 clear c3
return home
room cnt
unless c3 set c3 return home
unless c2 set c2 clear c3 return home
unless c1 set c1 clear c2 clear c3 return home
unless c0 set c0 clear c1 clear c2 clear c3 return home
>Error: inc c = 1111
return home
room right
unless x3 set x3 return home
unless x2 set x2 clear x3 return home
unless x1 set x1 clear x2 clear x3 return home
unless x0 set x0 clear x1 clear x2 clear x3 return home
>Error: inc x = 1111
return home
room left
if x3 clear x3 return home
if x2 clear x2 set x3 return home
if x1 clear x1 set x2 set x3 return home
if x0 clear x0 set x1 set x2 set x3 return home
>Error: dec x = 0000
return home
room up
unless y3 set y3 return home
unless y2 set y2 clear y3 return home
unless y1 set y1 clear y2 clear y3 return home
unless y0 set y0 clear y1 clear y2 clear y3 return home
>Error: inc y = 1111
return home
room down
if y3 clear y3 return home
if y2 clear y2 set y3 return home
if y1 clear y1 set y2 set y3 return home
if y0 clear y0 set y1 set y2 set y3 return home
>Error: dec y = 0000
return home
room 0000
if set-mode clear set-mode return home
if modify-bool visit loady
if modify-bool clear modify-bool clear 0000,$ if xy set 0000,$ return home
if modify-bool-N visit loady
if modify-bool-N clear modify-bool-N clear N0000,$ if Nxy set N0000,$ return home
clear 0000 clear 0001 clear 0010 clear 0011 clear 0100 clear 0101 clear 0110 clear 0111 clear 1000 clear 1001
if 0000,0000 set 0000
if 0000,0001 set 0001
if 0000,0010 set 0010
if 0000,0011 set 0011
if 0000,0100 set 0100
if 0000,0101 set 0101
if 0000,0110 set 0110
if 0000,0111 set 0111
if 0000,1000 set 1000
if 0000,1001 set 1001
return home
room 0001
if set-mode clear set-mode return home
if modify-bool visit loady
if modify-bool clear modify-bool clear 0001,$ if xy set 0001,$ return home
if modify-bool-N visit loady
if modify-bool-N clear modify-bool-N clear N0001,$ if Nxy set N0001,$ return home
clear 0000 clear 0001 clear 0010 clear 0011 clear 0100 clear 0101 clear 0110 clear 0111 clear 1000 clear 1001
if 0001,0000 set 0000
if 0001,0001 set 0001
if 0001,0010 set 0010
if 0001,0011 set 0011
if 0001,0100 set 0100
if 0001,0101 set 0101
if 0001,0110 set 0110
if 0001,0111 set 0111
if 0001,1000 set 1000
if 0001,1001 set 1001
return home
room 0010
if set-mode clear set-mode return home
if modify-bool visit loady
if modify-bool clear modify-bool clear 0010,$ if xy set 0010,$ return home
if modify-bool-N visit loady
if modify-bool-N clear modify-bool-N clear N0010,$ if Nxy set N0010,$ return home
clear 0000 clear 0001 clear 0010 clear 0011 clear 0100 clear 0101 clear 0110 clear 0111 clear 1000 clear 1001
if 0010,0000 set 0000
if 0010,0001 set 0001
if 0010,0010 set 0010
if 0010,0011 set 0011
if 0010,0100 set 0100
if 0010,0101 set 0101
if 0010,0110 set 0110
if 0010,0111 set 0111
if 0010,1000 set 1000
if 0010,1001 set 1001
return home
room 0011
if set-mode clear set-mode return home
if modify-bool visit loady
if modify-bool clear modify-bool clear 0011,$ if xy set 0011,$ return home
if modify-bool-N visit loady
if modify-bool-N clear modify-bool-N clear N0011,$ if Nxy set N0011,$ return home
clear 0000 clear 0001 clear 0010 clear 0011 clear 0100 clear 0101 clear 0110 clear 0111 clear 1000 clear 1001
if 0011,0000 set 0000
if 0011,0001 set 0001
if 0011,0010 set 0010
if 0011,0011 set 0011
if 0011,0100 set 0100
if 0011,0101 set 0101
if 0011,0110 set 0110
if 0011,0111 set 0111
if 0011,1000 set 1000
if 0011,1001 set 1001
return home
room 0100
if set-mode clear set-mode return home
if modify-bool visit loady
if modify-bool clear modify-bool clear 0100,$ if xy set 0100,$ return home
if modify-bool-N visit loady
if modify-bool-N clear modify-bool-N clear N0100,$ if Nxy set N0100,$ return home
clear 0000 clear 0001 clear 0010 clear 0011 clear 0100 clear 0101 clear 0110 clear 0111 clear 1000 clear 1001
if 0100,0000 set 0000
if 0100,0001 set 0001
if 0100,0010 set 0010
if 0100,0011 set 0011
if 0100,0100 set 0100
if 0100,0101 set 0101
if 0100,0110 set 0110
if 0100,0111 set 0111
if 0100,1000 set 1000
if 0100,1001 set 1001
return home
room 0101
if set-mode clear set-mode return home
if modify-bool visit loady
if modify-bool clear modify-bool clear 0101,$ if xy set 0101,$ return home
if modify-bool-N visit loady
if modify-bool-N clear modify-bool-N clear N0101,$ if Nxy set N0101,$ return home
clear 0000 clear 0001 clear 0010 clear 0011 clear 0100 clear 0101 clear 0110 clear 0111 clear 1000 clear 1001
if 0101,0000 set 0000
if 0101,0001 set 0001
if 0101,0010 set 0010
if 0101,0011 set 0011
if 0101,0100 set 0100
if 0101,0101 set 0101
if 0101,0110 set 0110
if 0101,0111 set 0111
if 0101,1000 set 1000
if 0101,1001 set 1001
return home
room 0110
if set-mode clear set-mode return home
if modify-bool visit loady
if modify-bool clear modify-bool clear 0110,$ if xy set 0110,$ return home
if modify-bool-N visit loady
if modify-bool-N clear modify-bool-N clear N0110,$ if Nxy set N0110,$ return home
clear 0000 clear 0001 clear 0010 clear 0011 clear 0100 clear 0101 clear 0110 clear 0111 clear 1000 clear 1001
if 0110,0000 set 0000
if 0110,0001 set 0001
if 0110,0010 set 0010
if 0110,0011 set 0011
if 0110,0100 set 0100
if 0110,0101 set 0101
if 0110,0110 set 0110
if 0110,0111 set 0111
if 0110,1000 set 1000
if 0110,1001 set 1001
return home
room 0111
if set-mode clear set-mode return home
if modify-bool visit loady
if modify-bool clear modify-bool clear 0111,$ if xy set 0111,$ return home
if modify-bool-N visit loady
if modify-bool-N clear modify-bool-N clear N0111,$ if Nxy set N0111,$ return home
clear 0000 clear 0001 clear 0010 clear 0011 clear 0100 clear 0101 clear 0110 clear 0111 clear 1000 clear 1001
if 0111,0000 set 0000
if 0111,0001 set 0001
if 0111,0010 set 0010
if 0111,0011 set 0011
if 0111,0100 set 0100
if 0111,0101 set 0101
if 0111,0110 set 0110
if 0111,0111 set 0111
if 0111,1000 set 1000
if 0111,1001 set 1001
return home
room 1000
if set-mode clear set-mode return home
if modify-bool visit loady
if modify-bool clear modify-bool clear 1000,$ if xy set 1000,$ return home
if modify-bool-N visit loady
if modify-bool-N clear modify-bool-N clear N1000,$ if Nxy set N1000,$ return home
clear 0000 clear 0001 clear 0010 clear 0011 clear 0100 clear 0101 clear 0110 clear 0111 clear 1000 clear 1001
if 1000,0000 set 0000
if 1000,0001 set 0001
if 1000,0010 set 0010
if 1000,0011 set 0011
if 1000,0100 set 0100
if 1000,0101 set 0101
if 1000,0110 set 0110
if 1000,0111 set 0111
if 1000,1000 set 1000
if 1000,1001 set 1001
return home
room 1001
if set-mode clear set-mode return home
if modify-bool visit loady
if modify-bool clear modify-bool clear 1001,$ if xy set 1001,$ return home
if modify-bool-N visit loady
if modify-bool-N clear modify-bool-N clear N1001,$ if Nxy set N1001,$ return home
clear 1001 clear 0001 clear 0010 clear 0011 clear 0100 clear 0101 clear 0110 clear 0111 clear 1000 clear 1001
if 1001,0000 set 0000
if 1001,0001 set 0001
if 1001,0010 set 0010
if 1001,0011 set 0011
if 1001,0100 set 0100
if 1001,0101 set 0101
if 1001,0110 set 0110
if 1001,0111 set 0111
if 1001,1000 set 1000
if 1001,1001 set 1001
return home
room loadFromN
visit clearx
visit cleary
visit clearmain
room loadFromN*
visit loadx
visit $
if N$,0000 set $,0000
if N$,0001 set $,0001
if N$,0010 set $,0010
if N$,0011 set $,0011
if N$,0100 set $,0100
if N$,0101 set $,0101
if N$,0110 set $,0110
if N$,0111 set $,0111
if N$,1000 set $,1000
if N$,1001 set $,1001
visit is(xp1)in
if good visit right
if good visit loadFromN*
return home
room clearmain
clear 0000,0000 clear 0000,0001 clear 0000,0010 clear 0000,0011 clear 0000,0100 clear 0000,0101 clear 0000,0110 clear 0000,0111 clear 0000,1000 clear 0000,1001
clear 0001,0000 clear 0001,0001 clear 0001,0010 clear 0001,0011 clear 0001,0100 clear 0001,0101 clear 0001,0110 clear 0001,0111 clear 0001,1000 clear 0001,1001
clear 0010,0000 clear 0010,0001 clear 0010,0010 clear 0010,0011 clear 0010,0100 clear 0010,0101 clear 0010,0110 clear 0010,0111 clear 0010,1000 clear 0010,1001
clear 0011,0000 clear 0011,0001 clear 0011,0010 clear 0011,0011 clear 0011,0100 clear 0011,0101 clear 0011,0110 clear 0011,0111 clear 0011,1000 clear 0011,1001
clear 0100,0000 clear 0100,0001 clear 0100,0010 clear 0100,0011 clear 0100,0100 clear 0100,0101 clear 0100,0110 clear 0100,0111 clear 0100,1000 clear 0100,1001
clear 0101,0000 clear 0101,0001 clear 0101,0010 clear 0101,0011 clear 0101,0100 clear 0101,0101 clear 0101,0110 clear 0101,0111 clear 0101,1000 clear 0101,1001
clear 0110,0000 clear 0110,0001 clear 0110,0010 clear 0110,0011 clear 0110,0100 clear 0110,0101 clear 0110,0110 clear 0110,0111 clear 0110,1000 clear 0110,1001
clear 0111,0000 clear 0111,0001 clear 0111,0010 clear 0111,0011 clear 0111,0100 clear 0111,0101 clear 0111,0110 clear 0111,0111 clear 0111,1000 clear 0111,1001
clear 1000,0000 clear 1000,0001 clear 1000,0010 clear 1000,0011 clear 1000,0100 clear 1000,0101 clear 1000,0110 clear 1000,0111 clear 1000,1000 clear 1000,1001
clear 1001,0000 clear 1001,0001 clear 1001,0010 clear 1001,0011 clear 1001,0100 clear 1001,0101 clear 1001,0110 clear 1001,0111 clear 1001,1000 clear 1001,1001
return home
room clearN
clear N0000,0000 clear N0000,0001 clear N0000,0010 clear N0000,0011 clear N0000,0100 clear N0000,0101 clear N0000,0110 clear N0000,0111 clear N0000,1000 clear N0000,1001
clear N0001,0000 clear N0001,0001 clear N0001,0010 clear N0001,0011 clear N0001,0100 clear N0001,0101 clear N0001,0110 clear N0001,0111 clear N0001,1000 clear N0001,1001
clear N0010,0000 clear N0010,0001 clear N0010,0010 clear N0010,0011 clear N0010,0100 clear N0010,0101 clear N0010,0110 clear N0010,0111 clear N0010,1000 clear N0010,1001
clear N0011,0000 clear N0011,0001 clear N0011,0010 clear N0011,0011 clear N0011,0100 clear N0011,0101 clear N0011,0110 clear N0011,0111 clear N0011,1000 clear N0011,1001
clear N0100,0000 clear N0100,0001 clear N0100,0010 clear N0100,0011 clear N0100,0100 clear N0100,0101 clear N0100,0110 clear N0100,0111 clear N0100,1000 clear N0100,1001
clear N0101,0000 clear N0101,0001 clear N0101,0010 clear N0101,0011 clear N0101,0100 clear N0101,0101 clear N0101,0110 clear N0101,0111 clear N0101,1000 clear N0101,1001
clear N0110,0000 clear N0110,0001 clear N0110,0010 clear N0110,0011 clear N0110,0100 clear N0110,0101 clear N0110,0110 clear N0110,0111 clear N0110,1000 clear N0110,1001
clear N0111,0000 clear N0111,0001 clear N0111,0010 clear N0111,0011 clear N0111,0100 clear N0111,0101 clear N0111,0110 clear N0111,0111 clear N0111,1000 clear N0111,1001
clear N1000,0000 clear N1000,0001 clear N1000,0010 clear N1000,0011 clear N1000,0100 clear N1000,0101 clear N1000,0110 clear N1000,0111 clear N1000,1000 clear N1000,1001
clear N1001,0000 clear N1001,0001 clear N1001,0010 clear N1001,0011 clear N1001,0100 clear N1001,0101 clear N1001,0110 clear N1001,0111 clear N1001,1000 clear N1001,1001
return home