10 (PROGRAM17)

15 (INIT)
20 @(0)=1
25 @(1)=3
30 @(2)=5
35 @(3)=7
40 @(4)=0
45 @(5)=2
50 @(6)=4
55 @(7)=6
60 @(8)=8

100 ""
105 "SLIDE PUZZLE"
110 "PUSH ANY NUM(0-999)";
115 N=?/8
120 N=%
125 M=@(N)
130 @(N)=@(N+1)
135 @(N+1)=M
140 M=@(8)
145 @(8)=@(1)
150 @(1)=M 
155 C=0

200 (DSP BD)
205 C=C+1
210 ""
215 "*** TIME=";
220 ?=C;
225 " ***"

230 N=0
235 #=(N=0)+(N=3)+(N=6)*245
240 #=250
245 ""

250 #=@(N)=0*265
255 ?=@(N);
260 #=270
265 " ";

270 N=N+1
275 #=(N<9)*235

300 (MOV NUM)
305 ""
310 ""
315 "MOV NUM?(1-8,RESTART=99)";
320 X=?
325 #=(X=99)*100
330 #=(X=0)*315
335 #=(X>8)*315

350 (0=SP,1/3=IN)
355 I=0
360 J=1
365 #=800
370 J=3
375 #=800

400 (1=SP,0/2/4=IN)
405 I=1
410 J=0
415 #=800
420 J=2
425 #=800
430 J=4
435 #=800

450 (2=SP,1/5=IN)
455 I=2
460 J=1
465 #=800
470 J=5
475 #=800

500 (3=SP,0/4/6=IN)
505 I=3
510 J=0
515 #=800
520 J=4
525 #=800
530 J=6
535 #=800

550 (4=SP,1/3/5/7=IN)
555 I=4
560 J=1
565 #=800
570 J=3
575 #=800
580 J=5
585 #=800
590 J=7
595 #=800

600 (5=SP,2/4/8=IN)
605 I=5
615 J=2
620 #=800
625 J=4
630 #=800
635 J=8
640 #=800

650 (6=SP,3/7=IN)
655 I=6
660 J=3
665 #=800
670 J=7
675 #=800

700 (7=SP,4/6/8=IN)
705 I=7
710 J=4
715 #=800
720 J=6
725 #=800
730 J=8
735 #=800

750 (8=SP,5/7=IN)
755 I=8
760 J=5
765 #=800
770 J=7
775 #=800
780 "UGOKASE MASEN!"
785 #=300

800 (JDG & MOV)
805 R=!
810 #=@(I)=0*820
815 #=R
820 #=@(J)=X*830
825 #=R
830 @(I)=X
835 @(J)=0
840 #=200