10 CLEAR 100,&H5F00
20 LOADM "SOLVER/BIN"
30 DEFUSR0=&H6000
40 GB=&H5F00
50 FOR I=0 TO 80
60 READ N
70 POKE GB+I,N
80 NEXT I
90 RC=USR0(GB)
100 K$=INKEY$
110 IF K$="" THEN 100
120 CLS
130 PRINT "TYPE 'RUN' TO SEE IT AGAIN!"
140 END
1000 DATA 1,2,3,4,5,6,7,8,9 
1010 DATA 6,4,0,0,0,0,0,0,0 
1020 DATA 7,0,5,0,0,0,0,0,0 
1030 DATA 8,0,0,6,0,0,0,0,0 
1040 DATA 9,0,0,0,7,0,0,0,0 
1050 DATA 2,0,0,0,0,8,0,0,0 
1060 DATA 3,0,0,0,0,0,9,0,0 
1070 DATA 4,0,0,0,0,0,0,2,0 
1080 DATA 5,0,0,0,0,0,0,0,3